4cade/src/demo/flip.out.a
frankmilliron b0d96bad23
Nibbler & Flip Out demo launchers (#405)
* Add files via upload

* Add files via upload
2021-10-27 13:07:30 -04:00

73 lines
1.4 KiB
Plaintext

;license:MIT
;(c) 2021 by Frank M.
!cpu 6502
!to "res/DEMO/FLIP.OUT",plain
*=$300
!source "src/constants.a" ; no code in these
!source "src/macros.a"
+READ_RAM2_WRITE_RAM2
jsr EnableAccelerator
+LOAD_FILE_AT title, $00
lda #$60
sta $3EEE
jsr $3EC7 ; decompress
lda #$60
sta $BF0E
jsr $BEF7 ; decompress and show title
ldx #13-1
- lda patch1, x
sta $8B39, x
dex
bpl - ; exit on keypress on main menu
ldx #7-1
- lda patch2, x
sta $88BF, x
dex
bpl -
lda #$10
sta $6474
sta $685E
lda #$1C
sta $6474+1
sta $685E+1
lda #$4C
sta $6474+2
sta $685E+2
sta $78CD
lda #0
sta $6474+3
sta $685E+3
sta $78CD+1
lda #1
sta $6474+4
sta $685E+4
sta $78CD+2 ; set exits
lda #$D0
sta $7716
sta $7730 ; disable sound
+DISABLE_ACCEL
jmp $8F63
title !byte x_e-x_b
x_b !text "X/FLIP.OUT/FLIP.OUT"
x_e
patch1 !byte $B0,$08,$AD,$00,$C0,$10,$1F,$4C,$00,$01,$20,$69,$8B
patch2 !byte $10,$03,$4C,$00,$01,$EA,$EA
!if * > $3F0 {
!error "code is too large, ends at ", *
}