mirror of
https://github.com/fadden/6502bench.git
synced 2026-04-27 03:17:45 +00:00
Andy McFadden
eb6999b1b0
When asked to tag an absolute JMP instruction ($4C) as code, we now scan forward to see if it's the start of a series of JMPs. If we find more than one, we offer the opportunity to tag the entire set all at once. A series of unformatted JMPs has been added to 20200-ui-edge-cases for manual testing. (issue #22)
95 lines
2.1 KiB
ArmAsm
95 lines
2.1 KiB
ArmAsm
.setcpu "6502"
|
|
FOOZP = $f0
|
|
OVERL = $3000
|
|
projover = $3100 ;replaced by proj symbol w/same name, diff addr (no match)
|
|
FOO = $f000
|
|
FOO_5 = $f005
|
|
|
|
.org $2000
|
|
jmp skip
|
|
|
|
.byte "hello, " ;string should be split by no-op addr change
|
|
.org $200a
|
|
.byte "world"
|
|
.byte $80
|
|
|
|
.org $2100
|
|
skip: lda #$00
|
|
sta addr1-1 ;edit this operand
|
|
sta addr1
|
|
sta addr1+1
|
|
jmp next1
|
|
|
|
.byte "testing stuff."
|
|
addr1: .byte "!?---"
|
|
.org $00f4
|
|
zf4: .byte $00
|
|
.byte $00
|
|
L00F6: .byte $00
|
|
.byte $00
|
|
.org $2200
|
|
line1: .asciiz "this is line1"
|
|
line2: .asciiz "this is line2"
|
|
L221C: .asciiz "this is line3"
|
|
.asciiz "this is line4"
|
|
.byte $80
|
|
|
|
foo_f0 .set $f0
|
|
foo_f4 .set $f4
|
|
next1: lda addr1
|
|
sta FOO
|
|
sta FOO_5
|
|
sta FOO+8
|
|
ldx OVERL
|
|
ldx projover
|
|
ldx $4000
|
|
ldx line1
|
|
ldx line2+1
|
|
ldx L221C
|
|
ldx L221C+1
|
|
ldx line2+35
|
|
ldy $00
|
|
ldy foo_f0
|
|
ldy foo_f0+1
|
|
ldy FOOZP+2
|
|
ldy zf4
|
|
ldy L00F6
|
|
lda #$00
|
|
nop
|
|
bcc bitsy+1
|
|
bitsy: .byte $2c
|
|
lda #$ff
|
|
jmp @L228B
|
|
|
|
.word FOO
|
|
.word FOO_5
|
|
.word FOO+9
|
|
.word OVERL
|
|
.word projover
|
|
.word $4000
|
|
.word line1
|
|
.word line2+5
|
|
.word L221C
|
|
.word line2+33
|
|
.word zf4
|
|
.byte $80
|
|
|
|
@L228B: nop
|
|
jmp @L22A8
|
|
|
|
.byte $4c
|
|
.byte $8b
|
|
.byte $22,"L9",$22,"L"
|
|
.byte $95
|
|
.byte $22
|
|
.byte $4c
|
|
.byte $00
|
|
.byte $30
|
|
.byte $ea
|
|
.byte "L9",$22,"L"
|
|
.byte $00
|
|
.byte "1LLLLLL"
|
|
|
|
@L22A8: rts
|
|
|