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
12
13
14
15
1
2
3
4
5
6
7
8
0

View file

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

View file

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