mirror of
https://github.com/fadden/6502bench.git
synced 2024-08-17 07:29:01 +00:00
This is the first step toward changing the address region map from a linear list to a hierarchy. See issue #107 for the plan. The AddressMap class has been rewritten to support the new approach. The rest of the project has been updated to conform to the new API, but feature-wise is unchanged. While the map class supports nested regions with explicit lengths, the rest of the application still assumes a series of non-overlapping regions with "floating" lengths. The Set Address dialog is currently non-functional. All of the output for cc65 changed because generation of segment comments has been removed. Some of the output for ACME changed as well, because we no longer follow "* = addr" with a redundant pseudopc statement. ACME and 65tass have similar approaches to placing things in memory, and so now have similar implementations.
127 lines
2.5 KiB
ArmAsm
127 lines
2.5 KiB
ArmAsm
!cpu 65816
|
|
PrintInlineL1String = $011000
|
|
PrintInlineL2String = $012000
|
|
PrintInlineDciString = $013000
|
|
|
|
* = $1000
|
|
!as
|
|
!rs
|
|
clc
|
|
xce
|
|
sep #$30
|
|
jsr PrintInline8String
|
|
!text "01234567"
|
|
jsr PrintInlineRev8String
|
|
!text "76543210"
|
|
jsr PrintInlineNullString
|
|
!text "null-term string",$00
|
|
jsl PrintInlineL1String
|
|
!text $14,"string with length/1"
|
|
jsl PrintInlineL2String
|
|
!text $14,$00,"string with length/2"
|
|
jsl PrintInlineDciString
|
|
!text "DCI strin",$e7
|
|
jsr L1800
|
|
jsr L184F
|
|
jsr L1848
|
|
!byte $00,$01
|
|
!word data01
|
|
!byte $00,$02
|
|
!word data02
|
|
nop
|
|
jsr L1085
|
|
!byte $24
|
|
L1085 !byte $a9
|
|
!byte $00
|
|
sta $ff
|
|
!byte $ea
|
|
jmp Next1
|
|
|
|
PrintInline8String rts
|
|
|
|
PrintInlineRev8String rts
|
|
|
|
PrintInlineNullString rts
|
|
|
|
data01 !word 4386
|
|
!byte $33,$44
|
|
!32 $88776655
|
|
!byte $99,$88,$77,$66
|
|
!byte 'f'
|
|
!byte 'F' | $80
|
|
!byte $40
|
|
!byte $c1
|
|
!byte $42
|
|
!byte $c3
|
|
!byte $44
|
|
!byte $c5
|
|
!byte $46
|
|
!byte $c7
|
|
!24 PrintInlineL2String
|
|
!word data02
|
|
!byte $80
|
|
data02 !word @data03
|
|
!byte $80
|
|
!xor $80 {
|
|
@data03 !text "AllEight"
|
|
}
|
|
|
|
NoCont pla ;split across address change
|
|
pla
|
|
rts
|
|
|
|
L10BA jsr NoCont
|
|
|
|
!byte $00
|
|
!byte $80
|
|
|
|
L10BF jsr NoCont
|
|
|
|
!byte $00
|
|
!byte $80
|
|
|
|
Next1 jsr L10BA
|
|
jsr @L10CF
|
|
clc
|
|
jsr L10BF
|
|
rts
|
|
|
|
@L10CF sec
|
|
jsr L10BF
|
|
clc
|
|
!byte $00,$02
|
|
!word data02
|
|
bcc @L10DE
|
|
bcs @L10DE
|
|
|
|
!byte $00
|
|
!byte $80
|
|
|
|
@L10DE rts
|
|
|
|
!fill 289,$00
|
|
|
|
!pseudopc $1800 {
|
|
L1800 jsr PrintInlineNullString
|
|
per $8778
|
|
rtl
|
|
|
|
!byte $65
|
|
!byte $6e
|
|
!byte $20
|
|
!byte $01
|
|
} ;!pseudopc
|
|
!pseudopc $1840 {
|
|
!text "string"
|
|
!byte $00
|
|
!byte $60
|
|
|
|
L1848 jsl PrintInlineL2String
|
|
asl
|
|
!byte $00,$60
|
|
|
|
L184F jsr PrintInlineNullString
|
|
adc $6e
|
|
!byte $64
|
|
} ;!pseudopc
|