moustache notation

This commit is contained in:
giomba 2021-04-14 11:24:36 +02:00
parent 493d69f669
commit d13e88b0fd
2 changed files with 7 additions and 7 deletions

View File

@ -58,8 +58,8 @@ score:
introYscroll:
BYTE
; raster line for interrupt
rasterLineInt:
; interrupt raster line to draw moustache
moustacheLine:
BYTE
#if VERBOSE = 1

View File

@ -34,7 +34,7 @@ introreset SUBROUTINE
; first raster interrupt line, for moustaches
lda #68+19
sta rasterLineInt
sta moustacheLine
rts
@ -42,7 +42,7 @@ statusIntro0 SUBROUTINE
lda introYscroll
.enter:
inc rasterLineInt
inc moustacheLine
lda $d011
and #$07
@ -100,7 +100,7 @@ setupMoustacheInterrupt SUBROUTINE
sty $315
; Set raster beam to trigger interrupt at row
lda rasterLineInt
lda moustacheLine
sta $d012
rts
@ -138,7 +138,7 @@ setupMoustacheInterrupt SUBROUTINE
stx $314
sty $315
clc
lda rasterLineInt
lda moustacheLine
adc #23
sta $d012
@ -198,7 +198,7 @@ statusIntro1 SUBROUTINE
cmp #$04
beq .next
inc $d011
inc rasterLineInt
inc moustacheLine
jsr setupMoustacheInterrupt