mirror of
https://github.com/fadden/6502bench.git
synced 2024-12-11 13:50:13 +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.
123 lines
2.2 KiB
ArmAsm
123 lines
2.2 KiB
ArmAsm
!cpu 6502
|
|
* = $1000
|
|
!word $1000 ;PRG-style header
|
|
|
|
!pseudopc $1000 {
|
|
jsr L1100
|
|
jsr L1107
|
|
jmp L2000
|
|
|
|
}
|
|
!pseudopc $1100 {
|
|
L1100 bit L1100
|
|
L1103 lda #$11
|
|
ldx #$11
|
|
L1107 ldy #$11
|
|
clv
|
|
bvc L1103
|
|
|
|
}
|
|
!pseudopc $1100 {
|
|
@L1100_0 bit @L1100_0
|
|
lda #$22
|
|
@L1105 ldx #$22
|
|
ldy #$22
|
|
jmp @L1105
|
|
|
|
}
|
|
!pseudopc $1100 {
|
|
@L1100_1 bit @L1100_1
|
|
lda #$33
|
|
ldx #$33
|
|
@L1107_0 ldy #$33
|
|
sec
|
|
bcs @L1107_0
|
|
|
|
}
|
|
!pseudopc $2000 {
|
|
L2000 bit L2000
|
|
beq $2018
|
|
bne @L2020
|
|
|
|
}
|
|
!pseudopc $2020 {
|
|
@L2020 bit @L2020
|
|
beq $2028
|
|
bne L2080
|
|
|
|
offend nop
|
|
}
|
|
!pseudopc $2080 {
|
|
L2080 bit L2080
|
|
lda offend
|
|
jsr offend
|
|
lda $2028
|
|
jsr $2028
|
|
lda L2080-1
|
|
jsr L2080-1
|
|
lda L2080
|
|
jsr L2080
|
|
lda $00
|
|
beq @L2100
|
|
!byte $ad
|
|
}
|
|
|
|
!pseudopc $2100 {
|
|
@L2100 nop
|
|
nop
|
|
jmp @L3000
|
|
|
|
}
|
|
!pseudopc $2800 {
|
|
!byte $00
|
|
!byte $28
|
|
!fill 14,$00
|
|
}
|
|
!pseudopc $2820 {
|
|
!fill 18,$00
|
|
}
|
|
|
|
!pseudopc $3000 {
|
|
@L3000 bit @L3000
|
|
lda #$44
|
|
ldx #$44
|
|
ldy #$44
|
|
jmp fwd
|
|
|
|
ulabel !byte $00
|
|
!byte $01
|
|
}
|
|
!pseudopc $3100 {
|
|
!byte $02
|
|
|
|
fwd bit fwd
|
|
lda ulabel
|
|
lda ulabel+1
|
|
lda $300e
|
|
lda $300f
|
|
lda fwd-1
|
|
beq @L3182
|
|
!byte $ea
|
|
!byte $ea
|
|
}
|
|
!pseudopc $3180 {
|
|
!byte $00
|
|
!byte $01
|
|
|
|
@L3182 bit @L3182
|
|
lda label1
|
|
lda label1+1
|
|
lda L3200
|
|
clv
|
|
bvc L3200
|
|
|
|
label1 !byte $ea
|
|
!byte $ea
|
|
}
|
|
|
|
!pseudopc $3200 {
|
|
L3200 bit L3200
|
|
!byte $00
|
|
!byte $01 ;execution continues off end of file
|
|
}
|