mirror of
https://github.com/fadden/6502bench.git
synced 2026-04-27 03:17:45 +00:00
Andy McFadden
c70d015b00
Some 16-bit operands are tracked internally as 24-bit, appending the B (data bank) or K (program bank) register to form the full address. For some assemblers the K-bank instructions must be output as 24-bit values, even for 16-bit JMP/JSR, but for most we want to strip the bank byte off before outputting the operand as hex or decimal. This expands 20032-labels-and-symbols with a mix of 24-bit, 16-bit+B, and 16-bit+K instructions formatted in various ways. No existing tests were affected by this change. (issue #172)
293 lines
7.2 KiB
ArmAsm
293 lines
7.2 KiB
ArmAsm
;Project was edited to add a label in the middle of a dense hex region, and add
|
|
;a duplicate label.
|
|
.setcpu "65816"
|
|
BMI1 = $30 ;opcode mnemonic
|
|
zip = $cd
|
|
absl = $1029
|
|
absh = $feed
|
|
biggie = $123456
|
|
thirty2 = $12345678 ;32-bit constant test
|
|
|
|
plataddr = $3000 ;address only in platform file
|
|
projalsa = $3200 ;same val as projalso
|
|
|
|
.org $012345
|
|
.a8
|
|
.i8
|
|
start: clc
|
|
xce
|
|
sep #$30
|
|
lda #zip
|
|
lda #zip+16
|
|
lda #zip-192
|
|
lda #<absh
|
|
lda #>absh
|
|
lda #<absh-192
|
|
lda #>absh+1
|
|
lda #<absl
|
|
lda #>absl
|
|
lda #<absl+192
|
|
lda #>absl-1
|
|
lda #<start
|
|
lda #>start
|
|
lda #^start
|
|
pea $feed
|
|
pea $2345
|
|
pea $0001
|
|
pea $3456
|
|
pea $0012
|
|
pea absh
|
|
pea start & $ffff
|
|
pea start >> 16
|
|
pea biggie & $ffff
|
|
pea biggie >> 16
|
|
lda zip+1
|
|
lda a:zip+1
|
|
lda f:zip+1
|
|
lda absh-1
|
|
lda f:absh-1
|
|
lda absh+1
|
|
lda f:absh+1
|
|
lda start & $ffff +1
|
|
lda start+1
|
|
lda start & $ffff -1
|
|
lda start-1
|
|
lda biggie & $ffff +1
|
|
lda biggie+1
|
|
lda biggie & $ffff -1
|
|
lda biggie-1
|
|
rep #$30
|
|
.a16
|
|
.i16
|
|
lda #zip
|
|
lda #zip+16
|
|
lda #zip+64
|
|
lda #absl
|
|
lda #absl >> 8
|
|
lda #absl-$1000
|
|
lda #absl >> 8 -16
|
|
lda #absl >> 16
|
|
lda #absh
|
|
lda #absh >> 8
|
|
lda #absh-$f000
|
|
lda #absh >> 8 +16
|
|
lda #absh >> 16 +1
|
|
lda #start & $ffff
|
|
lda #start >> 8
|
|
lda #start >> 16
|
|
lda #biggie & $ffff
|
|
lda #biggie >> 8
|
|
lda #biggie >> 16
|
|
bra @skipdata
|
|
|
|
.byte zip
|
|
.byte <absh
|
|
.byte >absh
|
|
.byte <start
|
|
.byte >start
|
|
.byte ^start
|
|
.word zip
|
|
.word absl
|
|
.word absl >> 8
|
|
.word absl-$1000
|
|
.word absl >> 8 -16
|
|
.word absh
|
|
.word absh >> 8
|
|
.word absh-$f000
|
|
.word absh >> 8 +16
|
|
.word start & $ffff
|
|
.word start >> 8
|
|
.word start >> 16
|
|
.word start & $ffff +1
|
|
.word start >> 8
|
|
.word start >> 16
|
|
.dbyt absh
|
|
.faraddr zip
|
|
.faraddr absh
|
|
.faraddr absh >> 8
|
|
.faraddr start
|
|
.faraddr start >> 8
|
|
.faraddr start >> 16
|
|
.dword zip
|
|
.dword absh
|
|
.dword absh >> 8
|
|
.dword start-1
|
|
.dword start >> 8
|
|
.dword start >> 16
|
|
|
|
@skipdata: lda #biggie >> 16 -1
|
|
mvn #^biggie,#^biggie-17
|
|
mvp #^start,#^start+17
|
|
mvn #18,#1
|
|
mvp #%00000001,#%00010010
|
|
per @skipdata
|
|
brl @nextchunk
|
|
|
|
@nextchunk: jml @L1000_1
|
|
|
|
.org $1000
|
|
@L1000_1: nop
|
|
@L1000: nop
|
|
@L1000_0: nop
|
|
@l1000: sep #$30
|
|
.a8
|
|
.i8
|
|
lda plataddr
|
|
lda $3100
|
|
lda projalsa
|
|
lda $3300
|
|
bra @calls
|
|
|
|
nop
|
|
@targ: nop
|
|
nop
|
|
@L1016: per @targ-1
|
|
per @targ
|
|
per @targ+1
|
|
jsr @targ-1
|
|
jsr @targ
|
|
jsr @targ+1
|
|
@L1028: bra @targ-1
|
|
|
|
@L102A: bra @targ
|
|
|
|
@L102C: bra @targ+1
|
|
|
|
@L102E: brl @targ-1
|
|
|
|
@L1031: brl @targ
|
|
|
|
@L1034: brl @targ+1
|
|
|
|
@L1037: jmp @targ-1
|
|
|
|
@L103A: jmp @targ
|
|
|
|
@L103D: jmp @targ+1
|
|
|
|
@L1040: jml @targ-1
|
|
|
|
@L1044: jml @targ
|
|
|
|
@L1048: jml @targ+1
|
|
|
|
@calls: jsr @L1016
|
|
jsr @L1028
|
|
jsr @L102A
|
|
jsr @L102C
|
|
jsr @L102E
|
|
jsr @L1031
|
|
jsr @L1034
|
|
jsr @L1037
|
|
jsr @L103A
|
|
jsr @L103D
|
|
jsr @L1040
|
|
jsr @L1044
|
|
jsr @L1048
|
|
brl @L118E
|
|
|
|
@bulk: .byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f ;bulky
|
|
.byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f
|
|
.byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f
|
|
.byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f
|
|
.byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f
|
|
.byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f
|
|
.byte $80,$81,$82,$83,$84,$85,$86,$87,$88,$89,$8a,$8b,$8c,$8d,$8e,$8f
|
|
@string: .byte "This is a long string. Put a label and comment on it to confir" ;stringy
|
|
.byte "m that the label and comment only appear on the first line. T"
|
|
.byte "he quick brown fox jumps over the lazy dogs."
|
|
|
|
@L118E: lda #<thirty2+2
|
|
lda #>thirty2+3
|
|
lda #^thirty2
|
|
rep #BMI1
|
|
.a16
|
|
.i16
|
|
lda #thirty2 & $ffff +3
|
|
lda #thirty2 >> 8 & $ffff +4
|
|
lda #thirty2 >> 16
|
|
before: nop
|
|
lda before
|
|
lda <before
|
|
lda <before+1
|
|
lda (<before+2)
|
|
lda (<before+3),y
|
|
lda [<before+4],y
|
|
lda [<before+5]
|
|
lda <before+6,x
|
|
lda (<before+7,x)
|
|
lda before-$10f8,y
|
|
lda z:<after+6
|
|
lda (<after+7),y
|
|
after: ldx <after+8,y
|
|
ldy <after+9,x
|
|
pei (<after+10)
|
|
nop
|
|
jml @L21000
|
|
|
|
.org $021000
|
|
@L21000: nop
|
|
.a8
|
|
.i8
|
|
ptest: pea $1001
|
|
pea $1001
|
|
pea ptest & $ffff
|
|
pea $3456
|
|
pea $0012
|
|
pea $3456
|
|
pea $0012
|
|
pea biggie & $ffff
|
|
pea biggie >> 16
|
|
jmp L22000 & $ffff
|
|
|
|
.org $020010
|
|
testlow: .byte $02
|
|
.org $0010
|
|
testzp: .byte $00
|
|
|
|
.org $022000
|
|
L22000: nop
|
|
phk
|
|
plb
|
|
lda $123456,x
|
|
jsl $123456
|
|
jsr $3456
|
|
lda ptest & $ffff,x
|
|
jsr ptest & $ffff
|
|
lda a:testlow & $ffff,x
|
|
jsr testlow & $ffff
|
|
lda testzp,x
|
|
nop
|
|
lda biggie,x
|
|
jsl biggie
|
|
jsr biggie & $ffff
|
|
lda ptest & $ffff,x
|
|
jsr ptest & $ffff
|
|
lda a:testlow & $ffff,x
|
|
jsr testlow & $ffff
|
|
lda testzp,x
|
|
nop
|
|
lda $123456,x
|
|
jsl $123456
|
|
jsr $3456
|
|
lda $1001,x
|
|
jsr $1001
|
|
lda a:$0010,x
|
|
jsr $0010
|
|
lda $10,x
|
|
nop
|
|
sep #$30
|
|
lda #$e0
|
|
pha
|
|
plb
|
|
lda 1193046,x
|
|
jsl 1193046
|
|
jsr 13398
|
|
lda 4097,x
|
|
jsr 4097
|
|
lda a:16,x
|
|
jsr 16
|
|
lda 16,x
|
|
rts
|
|
|