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 ;