mirror of
https://github.com/fadden/6502bench.git
synced 2024-09-09 22:55:56 +00:00
C64 PRG files are pretty common. Their salient feature is that they start with a 16-bit value that is used as the load address. The value is commonly generated by the assembler itself, rather than explicitly added to the source file. Not all assemblers know what a PRG file is, and some of them handle it in ways that are difficult to guarantee in SourceGen. ACME adds the 16-bit header when the output file name ends in ".prg", cc65 uses a modified config file, 64tass uses a different command-line option, and Merlin 32 has no idea what they are. This change adds PRG file detection and handling to the 64tass code generator. Doing so required making a few changes to the gen/asm interfaces, because we now need to have the generator pass additional flags to the assembler, and sometimes we need code generation to start somewhere other than offset zero. Overall the changes were pretty minor. The 20042-address-changes test needed a 6502-only variant. A new test (20040-address-changes) has been added and given a PRG header. As part of this change the 65816 variant was changed to use addresses in bank 2, which uncovered a code generation bug that this change also fixes. The 64tass --long-address flag doesn't appear to be necessary for files <= 65536 bytes long, so we no longer emit it for those. (issue #90)
120 lines
2.1 KiB
ArmAsm
120 lines
2.1 KiB
ArmAsm
.cpu "6502"
|
|
|
|
* = $1000
|
|
jsr L1100
|
|
jsr L1107
|
|
jmp L2000
|
|
|
|
.logical $1100
|
|
L1100 bit L1100
|
|
L1103 lda #$11
|
|
ldx #$11
|
|
L1107 ldy #$11
|
|
clv
|
|
bvc L1103
|
|
|
|
.here
|
|
.logical $1100
|
|
_L1100_0 bit _L1100_0
|
|
lda #$22
|
|
_L1105 ldx #$22
|
|
ldy #$22
|
|
jmp _L1105
|
|
|
|
.here
|
|
.logical $1100
|
|
_L1100_1 bit _L1100_1
|
|
lda #$33
|
|
ldx #$33
|
|
_L1107_0 ldy #$33
|
|
sec
|
|
bcs _L1107_0
|
|
|
|
.here
|
|
.logical $2000
|
|
L2000 bit L2000
|
|
beq $2018
|
|
bne _L2020
|
|
|
|
.here
|
|
.logical $2020
|
|
_L2020 bit _L2020
|
|
beq $2028
|
|
bne L2080
|
|
|
|
offend nop
|
|
.here
|
|
.logical $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
|
|
|
|
.here
|
|
.logical $2100
|
|
_L2100 nop
|
|
nop
|
|
jmp _L3000
|
|
|
|
.here
|
|
.logical $2800
|
|
.byte $00
|
|
.byte $28
|
|
.fill 14,$00
|
|
.here
|
|
.logical $2820
|
|
.fill 18,$00
|
|
|
|
.here
|
|
.logical $3000
|
|
_L3000 bit _L3000
|
|
lda #$44
|
|
ldx #$44
|
|
ldy #$44
|
|
jmp fwd
|
|
|
|
ulabel .byte $00
|
|
.byte $01
|
|
.here
|
|
.logical $3100
|
|
.byte $02
|
|
|
|
fwd bit fwd
|
|
lda ulabel
|
|
lda ulabel+1
|
|
lda $300e
|
|
lda $300f
|
|
lda fwd-1
|
|
beq _L3182
|
|
.byte $ea
|
|
.byte $ea
|
|
.here
|
|
.logical $3180
|
|
.byte $00
|
|
.byte $01
|
|
|
|
_L3182 bit _L3182
|
|
lda label1
|
|
lda label1+1
|
|
lda L3200
|
|
clv
|
|
bvc L3200
|
|
|
|
label1 .byte $ea
|
|
.byte $ea
|
|
|
|
.here
|
|
.logical $3200
|
|
L3200 bit L3200
|
|
.byte $00
|
|
.byte $01 ;execution continues off end of file
|
|
.here
|