mirror of
https://github.com/fadden/6502bench.git
synced 2024-07-31 07:29:00 +00:00
5f472b60cf
Split ".org" into ".arstart" and ".arend" (address range start/end). Address range ends are now shown in the code list view, and the pseudo-op can be edited in app settings. Address range starts are now shown after notes and long comments, rather than before, which brings the on-screen display in sync with generated code. Reworked the address range editor UI to include the new features. The implementation is fully broken. More changes to the AddressMap API, putting the resolved region length into a separate ActualLength field. Added FindRegion(). Renamed some things. Code generation changed slightly: the blank line before a region-end line now comes after it, and ACME's "} ;!pseudopc" is now just "}". This required minor updates to some of the regression test results.
125 lines
2.5 KiB
ArmAsm
125 lines
2.5 KiB
ArmAsm
.cpu "65816"
|
|
.logical $021000
|
|
.as
|
|
.xs
|
|
clc
|
|
xce
|
|
sep #$ff
|
|
jsr L21100
|
|
jsr L21107
|
|
jmp L22000
|
|
|
|
.here
|
|
.logical $021100
|
|
L21100 bit L21100 & $ffff
|
|
L21103 lda #$11
|
|
ldx #$11
|
|
L21107 ldy #$11
|
|
per L21103
|
|
bra L21103
|
|
|
|
.here
|
|
.logical $021100
|
|
_L21100_0 bit _L21100_0 & $ffff
|
|
lda #$22
|
|
_L21105 ldx #$22
|
|
ldy #$22
|
|
per _L21105
|
|
jmp _L21105
|
|
|
|
.here
|
|
.logical $021100
|
|
_L21100_1 bit _L21100_1 & $ffff
|
|
lda #$33
|
|
ldx #$33
|
|
_L21107_0 ldy #$33
|
|
per _L21107_0
|
|
bra _L21107_0
|
|
|
|
.here
|
|
.logical $022000
|
|
L22000 bit L22000 & $ffff
|
|
beq $022018
|
|
bra _L22020
|
|
|
|
.here
|
|
.logical $022020
|
|
_L22020 bit _L22020 & $ffff
|
|
beq $022029
|
|
brl _L22080
|
|
|
|
_offend nop
|
|
.here
|
|
.logical $022080
|
|
_L22080 bit _L22080 & $ffff
|
|
lda _offend & $ffff
|
|
jsr _offend
|
|
lda $2029
|
|
jsr $022029
|
|
lda 0+(_L22080 & $ffff)-1
|
|
jsr _L22080-1
|
|
lda _L22080 & $ffff
|
|
jsr _L22080
|
|
lda $00
|
|
beq _L22100
|
|
.byte $ad
|
|
.here
|
|
|
|
.logical $022100
|
|
_L22100 nop
|
|
nop
|
|
jmp _L23000
|
|
|
|
.here
|
|
.logical $022800
|
|
.byte $00
|
|
.byte $28
|
|
.fill 14,$00
|
|
.here
|
|
.logical $022820
|
|
.fill 18,$00
|
|
.here
|
|
|
|
.logical $023000
|
|
_L23000 bit _L23000 & $ffff
|
|
lda #$44
|
|
ldx #$44
|
|
ldy #$44
|
|
brl _fwd
|
|
|
|
_ulabel .byte $00
|
|
.byte $01
|
|
.here
|
|
.logical $023100
|
|
.byte $02
|
|
|
|
_fwd bit _fwd & $ffff
|
|
lda _ulabel & $ffff
|
|
lda 0+(_ulabel & $ffff)+1
|
|
lda $300e
|
|
lda $300f
|
|
lda 0+(_fwd & $ffff)-1
|
|
beq _L23182
|
|
.byte $ea
|
|
.byte $ea
|
|
.here
|
|
.logical $023180
|
|
.byte $00
|
|
.byte $01
|
|
|
|
_L23182 bit _L23182 & $ffff
|
|
lda _label1 & $ffff
|
|
lda 0+(_label1 & $ffff)+1
|
|
lda 0+(_label1 & $ffff)+112
|
|
bra _L23200
|
|
|
|
_label1 .byte $ea
|
|
.byte $ea
|
|
.here
|
|
|
|
.logical $023200
|
|
_L23200 bit _L23200 & $ffff
|
|
.byte $00
|
|
.byte $01
|
|
.here
|