Implement loops

2026-03-01 15:29:41 +00:00
parent 53d3a308cd
commit 8785c01f9e
1 changed files with 14 additions and 0 deletions
--- a/prelude.f
+++ b/prelude.f
@@ -20,6 +20,20 @@
  SWAP !
 ; IMMEDIATE

+\ Loops
+
+: BEGIN HERE @ ; IMMEDIATE
+
+: UNTIL
+  LIT 0BRANCH ,
+  HERE @ - ,
+; IMMEDIATE
+
+: AGAIN
+  LIT BRANCH ,
+  HERE @ - ,
+; IMMEDIATE
+
 \ Peripheral register addresses

 : TXBUF 0 ;