This commit is contained in:
Matej 2025-11-03 19:17:22 +01:00
parent e021590fa6
commit 0ff78394b6
3 changed files with 11 additions and 8 deletions

View file

@ -1,6 +1,9 @@
11 1
12 2
13 3
14 4
15 5
6
7
8
0 0

View file

@ -11,7 +11,8 @@
SNAKE START 0 SNAKE START 0
FIRST CLEAR A FIRST LDA #0x44
STA DIREC
LOOP JSUB RENDER LOOP JSUB RENDER
JSUB WAIT JSUB WAIT
@ -64,7 +65,6 @@ L6 STCH DIREC
L7 .check bounds L7 .check bounds
.for (pos : snakex/y) assert x/y >= 0 && x/y <= 15 .for (pos : snakex/y) assert x/y >= 0 && x/y <= 15
JSUB RENDER
J LOOP J LOOP
HALT J HALT HALT J HALT

View file

@ -87,7 +87,7 @@ SKIP1 WD STDOUT
WD STDOUT WD STDOUT
RSUB RSUB
MASK1 WORD X'0000FF' MASK1 WORD X'0000FF'
MASK WORD X'F00000' MASK WORD X'F00000'
STDOUT BYTE X'01' STDOUT BYTE X'01'
DEVICE BYTE X'FA' DEVICE BYTE X'FA'