2020-09-15 12:57:10 +00:00
|
|
|
#if VERBOSE = 1
|
|
|
|
|
LASTINIT SET .
|
|
|
|
|
#endif
|
|
|
|
|
|
2018-09-22 08:58:10 +00:00
|
|
|
; Intro reset
|
|
|
|
|
; ----------------------------------------------------------------------
|
2021-04-13 21:19:47 +00:00
|
|
|
introreset SUBROUTINE
|
2018-09-22 08:58:10 +00:00
|
|
|
jsr multicolorOff
|
|
|
|
|
|
2020-04-08 07:15:25 +00:00
|
|
|
jsr clearScreen
|
2018-09-22 08:58:10 +00:00
|
|
|
|
|
|
|
|
; Set screen colors
|
|
|
|
|
lda #0
|
|
|
|
|
sta $d020 ; overscan
|
|
|
|
|
sta $d021 ; center
|
|
|
|
|
|
2021-04-13 21:19:47 +00:00
|
|
|
lda #14
|
|
|
|
|
sta introYscroll
|
|
|
|
|
|
|
|
|
|
ldx #$78
|
|
|
|
|
stx dstPointer
|
|
|
|
|
ldy #$04
|
|
|
|
|
sty dstPointer + 1
|
|
|
|
|
|
|
|
|
|
lda #68+19
|
|
|
|
|
sta rasterLineInt
|
|
|
|
|
|
|
|
|
|
#if DEBUG = 1
|
|
|
|
|
ldy #$00
|
|
|
|
|
.charsetLoop:
|
|
|
|
|
tya
|
|
|
|
|
sta $4c8,y
|
|
|
|
|
iny
|
|
|
|
|
bne .charsetLoop
|
|
|
|
|
#endif
|
2018-09-22 08:58:10 +00:00
|
|
|
|
2020-09-15 12:57:10 +00:00
|
|
|
#if VERBOSE = 1
|
|
|
|
|
ECHO "introreset.asm @ ",LASTINIT,"len:",(. - LASTINIT)
|
2021-04-13 21:19:47 +00:00
|
|
|
#endif
|
