Implement conditionals

2026-03-01 15:29:32 +00:00
parent fde6429d4f
commit 53d3a308cd
1 changed files with 20 additions and 0 deletions
--- a/prelude.f
+++ b/prelude.f
@@ -1,5 +1,25 @@
 : \ KEY 10 = 0BRANCH [ -20 , ] ; IMMEDIATE \ Now we have line comments :)

+\ Conditionals
+
+: IF
+  LIT 0BRANCH ,
+  HERE @ 0 ,
+; IMMEDIATE
+
+: THEN
+  DUP HERE @ SWAP -
+  SWAP !
+; IMMEDIATE
+
+: ELSE
+  LIT BRANCH ,
+  HERE @ 0 ,
+  SWAP
+  DUP HERE @ SWAP -
+  SWAP !
+; IMMEDIATE
+
 \ Peripheral register addresses

 : TXBUF 0 ;