From 2a582b7b6dfe4fe98ce5842c11ac5ae4d55158e7 Mon Sep 17 00:00:00 2001 From: Devine Lu Linvega Date: Sat, 2 Mar 2024 21:05:33 -0800 Subject: [PATCH] (life.tal) Stop reading nbors at 4 --- projects/examples/demos/life.tal | 6 ++++-- 1 file changed, 4 insertions(+), 2 deletions(-) diff --git a/projects/examples/demos/life.tal b/projects/examples/demos/life.tal index 6188a0a..718068b 100644 --- a/projects/examples/demos/life.tal +++ b/projects/examples/demos/life.tal @@ -82,7 +82,8 @@ DUP [ LIT &y $1 ] INC GTHk ?&hor POP2 INC GTHk ?&ver - POP2 ;MMU/move21 .System/expansion DEO2 + POP2 + ( move ) ;MMU/move21 .System/expansion DEO2 ! @ ( x y -- ) @@ -120,8 +121,9 @@ #00 OVRk ADD2 ;&mask ADD2 LDA2 ( ) [ LIT &y $1 ] ADD SWP ( ) [ LIT &x $1 ] ADD SWP get-index LDA [ STH ADDr ] + ( stop at 3 ) DUPr [ LITr 03 ] GTHr [ LITr _&end ] JCNr ( ) INC GTHk ?&l - POP2 STHr JMP2r + &end POP2 STHr JMP2r &mask [ ffff 00ff 01ff ff00 0100 ff01 0001 0101 ]