2020-08-21 05:26:14 +00:00
|
|
|
|
|
|
|
|
SET_GR = $C050
|
|
|
|
|
FULLGR = $C052
|
|
|
|
|
PAGE0 = $C054
|
|
|
|
|
HIRES = $C057
|
|
|
|
|
|
2020-08-22 05:26:08 +00:00
|
|
|
WAIT = $FCA8 ;; delay 1/2(26+27A+5A^2) us
|
|
|
|
|
|
|
|
|
|
KEYPRESS = $C000
|
|
|
|
|
KEYRESET = $C010
|
|
|
|
|
|
2020-08-21 05:26:14 +00:00
|
|
|
the_1980s:
|
|
|
|
|
|
|
|
|
|
bit SET_GR
|
|
|
|
|
bit FULLGR
|
|
|
|
|
bit PAGE0
|
|
|
|
|
bit HIRES
|
|
|
|
|
|
2020-08-22 05:26:08 +00:00
|
|
|
forever:
|
|
|
|
|
lda KEYPRESS
|
|
|
|
|
bpl forever
|
|
|
|
|
|
|
|
|
|
bit KEYRESET
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
;============================
|
|
|
|
|
; setup load code
|
|
|
|
|
;============================
|
|
|
|
|
|
|
|
|
|
; enable drive motor
|
|
|
|
|
|
|
|
|
|
lda $c0e9 ; fixme, patch
|
|
|
|
|
|
|
|
|
|
; wait 1s
|
|
|
|
|
|
|
|
|
|
ldx #6
|
|
|
|
|
wait_1s:
|
|
|
|
|
lda #255
|
|
|
|
|
jsr WAIT
|
|
|
|
|
dex
|
|
|
|
|
bne wait_1s
|
|
|
|
|
|
|
|
|
|
|
|
|
|
|
entry=$1f00
|
|
|
|
|
phase=$bf2e
|
|
|
|
|
|
|
|
|
|
lda #>(entry-1)
|
|
|
|
|
pha
|
|
|
|
|
lda #<(entry-1)
|
|
|
|
|
pha
|
|
|
|
|
|
|
|
|
|
lda #<(8*2)
|
|
|
|
|
sta phase+1
|
|
|
|
|
ldx #33
|
|
|
|
|
lda #$1f
|
|
|
|
|
ldy #0
|
|
|
|
|
|
|
|
|
|
jmp $be07
|
|
|
|
|
|
|
|
|
|
|
2020-08-21 05:26:14 +00:00
|
|
|
|
|
|
|
|
.align $100
|
|
|
|
|
|
|
|
|
|
.incbin "new_80s.hgr"
|
