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

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

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