giomba/snake6502
1
0
Fork 0
Code Issues Pull Requests Projects Releases Wiki Activity

moustache notation

Browse Source
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
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

4
src/data.asm
View File

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

10
src/intro1.asm
View File

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