From 8785c01f9e71c2f2d7add826c3a942ca47e7a5f4 Mon Sep 17 00:00:00 2001
From: Camden Dixie O'Brien <cdo@wip.sh>
Date: Sun, 1 Mar 2026 15:29:41 +0000
Subject: [PATCH] Implement loops

---
 prelude.f | 14 ++++++++++++++
 1 file changed, 14 insertions(+)

diff --git a/prelude.f b/prelude.f
index a516ba9..af4fe2d 100644
--- 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 ;