mirror of https://github.com/a2-4am/4cade.git
49 lines
1.0 KiB
Plaintext
49 lines
1.0 KiB
Plaintext
;license:MIT
|
|
;(c) 2021-2022 by Frank M., qkumba
|
|
|
|
!cpu 6502
|
|
!to "build/DEMO/REPTON#060200",plain
|
|
*=$200
|
|
|
|
!source "src/constants.a" ; no code in these
|
|
!source "src/macros.a"
|
|
|
|
+READ_RAM2_WRITE_RAM2
|
|
+LOAD_FILE_KEEP_DIR repton, repton_dir_e-repton_dir_b
|
|
lda #$60
|
|
sta $086D
|
|
jsr $0800 ; decompress1
|
|
|
|
lda #$60
|
|
sta $BA18
|
|
jsr $BA03 ; decompress2
|
|
|
|
ldx #5-1
|
|
- lda patch1, x
|
|
sta $06A3, x ; ($06A6 in notes, second byte of patch also changes to $13)
|
|
dex
|
|
bpl - ; exit when user presses any key
|
|
|
|
ldx #3-1
|
|
- lda patch2, x
|
|
sta $07A4, x
|
|
dex
|
|
bpl - ; exit at end of demo cycle
|
|
|
|
jmp $0767
|
|
|
|
patch1 !byte $10,$13
|
|
patch2 !byte $4C,$00,$01
|
|
|
|
repton !byte repton_e-repton_b
|
|
repton_b
|
|
repton_dir_b
|
|
!text "X/REPTON"
|
|
repton_dir_e
|
|
!text "/REPTON"
|
|
repton_e
|
|
|
|
!if * > $300 {
|
|
!error "code is too large, ends at ", *
|
|
}
|