d6
/
uxn
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

(life.tal) Stop reading nbors at 4

This commit is contained in:
Devine Lu Linvega 2024-03-02 21:05:33 -08:00
parent 28da4f5dfc
commit 2a582b7b6d
1 changed files with 4 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

6
projects/examples/demos/life.tal
View File

@ -82,7 +82,8 @@
DUP [ LIT &y $1 ] <run-cell> DUP [ LIT &y $1 ] <run-cell>
INC GTHk ?&hor INC GTHk ?&hor
POP2 INC GTHk ?&ver POP2 INC GTHk ?&ver
POP2 ;MMU/move21 .System/expansion DEO2 POP2
( move ) ;MMU/move21 .System/expansion DEO2
!<redraw> !<redraw>
@<run-cell> ( x y -- ) @<run-cell> ( x y -- )
@ -120,8 +121,9 @@
#00 OVRk ADD2 ;&mask ADD2 LDA2 #00 OVRk ADD2 ;&mask ADD2 LDA2
( ) [ LIT &y $1 ] ADD SWP ( ) [ LIT &y $1 ] ADD SWP
( ) [ LIT &x $1 ] ADD SWP get-index LDA [ STH ADDr ] ( ) [ LIT &x $1 ] ADD SWP get-index LDA [ STH ADDr ]
( stop at 3 ) DUPr [ LITr 03 ] GTHr [ LITr _&end ] JCNr
( ) INC GTHk ?&l ( ) INC GTHk ?&l
POP2 STHr JMP2r &end POP2 STHr JMP2r
&mask [ &mask [
ffff 00ff 01ff ff00 0100 ff01 0001 0101 ] ffff 00ff 01ff ff00 0100 ff01 0001 0101 ]