mirror of
https://github.com/fadden/6502bench.git
synced 2024-11-04 15:05:03 +00:00
345dff7765
Generate a 6502 test from the 65816 version by substituting the 16-bit instructions with 8-bit no-ops. There's a lot of project edits and weird stuff in the test, so this was much easier than starting over. The 65816 variant is largely unchanged, though it could now be stripped down to the stack-offset instructions.
115 lines
2.6 KiB
ArmAsm
115 lines
2.6 KiB
ArmAsm
;Edited to have duplicate labels (PROJ_ZERO, DPCODE).
|
|
CONST_ZERO equ $f0 ;project const
|
|
|
|
PROJ_ZERO equ $00 ;project addr
|
|
PROJ_ONE equ $01 ;project addr
|
|
|
|
org $1000
|
|
ldy PROJ_ZERO
|
|
lda (PROJ_ONE),y
|
|
sta $03 ;could be PROJ_ONE+2, but "nearby" is off
|
|
ldx $04
|
|
lda #CONST_ZERO
|
|
ora #$f1
|
|
]VAR_ZERO equ $00
|
|
]VAR_TWO equ $02
|
|
]VAR_THREE equ $03
|
|
]CONST_ZERO_VAR equ $f0
|
|
ldy ]VAR_ZERO
|
|
lda (]VAR_ZERO+1),y
|
|
sta ]VAR_THREE
|
|
ldx $04
|
|
lda #$f0
|
|
ora #$f1
|
|
eor 0
|
|
ora 240
|
|
]PROJ_ZERO_DUP1 equ $10 ;clash with project symbol
|
|
]DPCODE_DUP1 equ $80 ;clash with user label
|
|
lda ]VAR_ZERO
|
|
lda ]VAR_ZERO+1
|
|
lda ]VAR_TWO
|
|
lda ]VAR_THREE
|
|
lda $04
|
|
lda ]PROJ_ZERO_DUP1
|
|
lda $11
|
|
lda DPCODE
|
|
ldx PROJ_ZERO
|
|
ldx PROJ_ONE
|
|
ldx $02
|
|
bit $ffa9
|
|
ldy PROJ_ZERO
|
|
ldy PROJ_ONE
|
|
ldy $02
|
|
dfb $2c
|
|
]NH0 equ $00 ;not hidden
|
|
]NH1 equ $01 ;not hidden
|
|
L103C lda #$fe
|
|
beq L103C
|
|
ldy ]NH0
|
|
ldy ]NH1
|
|
ldy $02
|
|
nop
|
|
]PTR0 equ $10
|
|
]CONST0 equ $10
|
|
lda ]PTR0
|
|
ldx ]PTR0+1
|
|
ldy $12
|
|
lda #$10
|
|
ora #$13
|
|
;Test name redefinition. This is mostly of interest for assemblers without
|
|
;redefinable variables, but also of interest to the cross-reference window.
|
|
]PTR equ $20 ;#1
|
|
ldx ]PTR
|
|
]PTR equ $22 ;#2
|
|
ldx ]PTR
|
|
]PTR equ $24 ;#3
|
|
ldx ]PTR
|
|
:PTR_1 nop
|
|
]PTR_A equ $20
|
|
ldy ]PTR_A
|
|
]PTR_B equ $1f
|
|
ldy ]PTR_B+1
|
|
]PTR_C equ $1d
|
|
ldy ]PTR_C+3
|
|
]PTR_D equ $21
|
|
ldy ]PTR_C+3
|
|
]VAL0 equ $30
|
|
]VAL1 equ $31
|
|
]VAL2 equ $32
|
|
]VAL3 equ $33
|
|
]VAL4 equ $34
|
|
]VAL5 equ $35
|
|
and ]VAL0
|
|
and ]VAL1
|
|
and ]VAL2
|
|
and ]VAL3
|
|
and ]VAL4
|
|
and ]VAL5
|
|
]VAL14 equ $31
|
|
and ]VAL0
|
|
and ]VAL14
|
|
and ]VAL14+1
|
|
and ]VAL14+2
|
|
and ]VAL14+3
|
|
and ]VAL5
|
|
]DPNOP equ $80 ;same as org
|
|
lda DPCODE
|
|
jsr DPCODE
|
|
rts
|
|
|
|
org $0080
|
|
DPCODE nop
|
|
lda DPCODE
|
|
lda: DPCODE
|
|
nop
|
|
ora: DPCODE
|
|
:SPLIT1 lda #$2c
|
|
]SPLITTER equ $80
|
|
ldx $1234
|
|
beq :SPLIT1
|
|
:SPLIT2 lda $2c
|
|
ldx $5678
|
|
beq :SPLIT2
|
|
rts
|
|
|