4cade/src/demo/choplifter.a

39 lines
784 B
Plaintext

;license:MIT
;(c) 2021 by qkumba
!cpu 6502
!to "res/DEMO/CHOPLIFTER",plain
*=$300
!source "src/constants.a" ; no code in these
!source "src/macros.a"
+READ_RAM2_WRITE_RAM2
jsr EnableAccelerator
+LOAD_FILE_AT choplifter, $00
lda #$60
sta $403F
jsr $4000 ; decompress
lda #$4C
sta $0DAB
ldx #0
stx $0DAC
stx $08F0
inx
stx $0DAD
stx $08F1
lda #$18
sta $0DA9
jsr DisableAccelerator
+READ_ROM_NO_WRITE
ldy #0
jmp $400
choplifter
!byte 23
!text "X/CHOPLIFTER/CHOPLIFTER"
!if * > $3F0 {
!error "code is too large, ends at ", *
}