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 ;