39 lines
423 B
ArmAsm
39 lines
423 B
ArmAsm
.import decrunch
|
|
.importzp tc_sp, tc_dp
|
|
bmp = $2000
|
|
|
|
jsr initscreen
|
|
|
|
lda#<(bmp-1)
|
|
sta tc_dp
|
|
lda#>(bmp-1)
|
|
sta tc_dp+1
|
|
|
|
lda#<dcSrc
|
|
sta tc_sp
|
|
lda#>dcSrc
|
|
sta tc_sp+1
|
|
|
|
jsr decrunch
|
|
|
|
done:
|
|
jmp done
|
|
|
|
|
|
|
|
|
|
initscreen:
|
|
lda#11
|
|
sta $d021
|
|
jsr $e536
|
|
lda#$56
|
|
sta $07e7
|
|
lda#$3b
|
|
sta $d011
|
|
lda#$18
|
|
sta $d018
|
|
rts
|
|
|
|
dcSrc:
|
|
.incbin "../crunched.bin"
|