4cade/src/demo/repton.a

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_dir_e
!text "/REPTON"
repton_e
!if * > $300 {
!error "code is too large, ends at ", *
}