mirror of
https://github.com/a2-4am/4cade.git
synced 2024-06-16 16:29:51 +00:00
57 lines
1.1 KiB
Plaintext
57 lines
1.1 KiB
Plaintext
|
;license:MIT
|
||
|
|
;(c) 2022 by qkumba
|
||
|
|
|
||
|
|
!cpu 6502
|
||
|
|
!to "res/DEMO/LADY.TUT",plain
|
||
|
|
*=$200
|
||
|
|
|
||
|
|
!source "src/constants.a" ; no code in these
|
||
|
|
!source "src/macros.a"
|
||
|
|
|
||
|
|
+READ_RAM2_WRITE_RAM2
|
||
|
|
jsr EnableAccelerator
|
||
|
|
+LOAD_FILE_AT title, $00
|
||
|
|
ldx #5
|
||
|
|
- lda $100,x
|
||
|
|
sta $70,x
|
||
|
|
dex
|
||
|
|
bpl -
|
||
|
|
lda #<callback
|
||
|
|
sta $84F
|
||
|
|
lda #>callback
|
||
|
|
sta $850
|
||
|
|
jmp $0800 ; decompress
|
||
|
|
|
||
|
|
callback
|
||
|
|
lda #$2C
|
||
|
|
sta $8470 ; reset vector to reboot
|
||
|
|
sta $84B7
|
||
|
|
lda #$00
|
||
|
|
sta $84BE
|
||
|
|
sta $84C5
|
||
|
|
dec $84C9
|
||
|
|
lda #$D0
|
||
|
|
sta $2547
|
||
|
|
sta $257D
|
||
|
|
sta $2598
|
||
|
|
sta $2562
|
||
|
|
sta $7B88
|
||
|
|
lda #$2C
|
||
|
|
sta $7FEE
|
||
|
|
lda #$4C
|
||
|
|
sta $7D99
|
||
|
|
sta $812F
|
||
|
|
lda #$70
|
||
|
|
sta $7D9A
|
||
|
|
sta $8130
|
||
|
|
lda #0
|
||
|
|
sta $7D9B
|
||
|
|
sta $8131
|
||
|
|
jsr DisableAccelerator
|
||
|
|
+READ_ROM_NO_WRITE
|
||
|
|
jmp $8460
|
||
|
|
|
||
|
|
title !byte x_e-x_b
|
||
|
|
x_b !text "X/LADY.TUT/LADY.TUT"
|
||
|
|
x_e
|