2025-11-13 11:07:39 -05:00
|
|
|
.feature c_comments
|
|
|
|
|
.include "../../build/loadersymbols-c64.inc"
|
|
|
|
|
|
2025-11-15 16:55:16 -05:00
|
|
|
CODE_START_ADDR = $e000
|
|
|
|
|
|
2025-11-13 11:07:39 -05:00
|
|
|
.segment "CODE"
|
|
|
|
|
|
|
|
|
|
ZP=$e0
|
|
|
|
|
offset = ZP+0
|
|
|
|
|
ZX0_src = ZP+2
|
|
|
|
|
ZX0_dst = ZP+4
|
|
|
|
|
bitr = ZP+6
|
|
|
|
|
pntr = ZP+7
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
.org $080d
|
|
|
|
|
|
2025-11-15 16:55:16 -05:00
|
|
|
copy_start:
|
2025-11-13 11:07:39 -05:00
|
|
|
sei
|
|
|
|
|
lda #$35
|
|
|
|
|
sta $01
|
2025-11-15 16:55:16 -05:00
|
|
|
|
2025-11-28 22:27:57 -05:00
|
|
|
lda #<code
|
|
|
|
|
sta ZX0_src
|
|
|
|
|
lda #>code
|
|
|
|
|
sta ZX0_src+1
|
|
|
|
|
lda #<CODE_START_ADDR
|
|
|
|
|
sta ZX0_dst
|
|
|
|
|
lda #>CODE_START_ADDR
|
|
|
|
|
jsr zx02
|
2025-11-15 16:55:16 -05:00
|
|
|
|
2025-11-28 03:15:49 -05:00
|
|
|
inc $01
|
2025-11-15 16:55:16 -05:00
|
|
|
cli
|
|
|
|
|
jsr install
|
|
|
|
|
sei
|
2025-11-28 03:15:49 -05:00
|
|
|
dec $01
|
2025-11-28 22:27:57 -05:00
|
|
|
jmp CODE_START_ADDR
|
|
|
|
|
|
|
|
|
|
.include "zx02.asm"
|
2025-11-28 03:15:49 -05:00
|
|
|
|
|
|
|
|
check_return:
|
|
|
|
|
; for some reason GETIN enable interrupts back
|
|
|
|
|
lda #0
|
|
|
|
|
sta $d01a
|
|
|
|
|
asl $d019
|
|
|
|
|
lda #$36
|
2025-11-15 16:55:16 -05:00
|
|
|
sta $01
|
2025-11-28 03:15:49 -05:00
|
|
|
:
|
|
|
|
|
jsr $ff9f ; SCNKEY
|
|
|
|
|
jsr $ffe4 ; GETIN
|
|
|
|
|
cmp #$0d
|
|
|
|
|
bne :-
|
|
|
|
|
dec $01
|
2025-11-28 22:27:57 -05:00
|
|
|
jmp CODE_START_ADDR
|
|
|
|
|
|
|
|
|
|
.assert zx02 = $082f, error, .sprintf("change zx02 address to $%04x", zx02)
|
|
|
|
|
.assert check_return = $08b5, error, .sprintf("change check_return address to $%04x", check_return)
|
2025-11-15 16:55:16 -05:00
|
|
|
|
|
|
|
|
.res loadraw - *
|
|
|
|
|
.incbin "../../build/loader-c64.prg", 2
|
|
|
|
|
|
|
|
|
|
.res install - *
|
|
|
|
|
.incbin "../../build/install-c64.prg", 2
|
|
|
|
|
|
2025-11-28 22:27:57 -05:00
|
|
|
code: .incbin "main.zx0"
|
