diff --git a/prelude.f b/prelude.f index 5c9ef2a..548cb55 100644 --- a/prelude.f +++ b/prelude.f @@ -1,5 +1,12 @@ +76 EMIT 111 EMIT 97 EMIT 100 EMIT 105 EMIT 110 EMIT 103 EMIT 32 EMIT +112 EMIT 114 EMIT 101 EMIT 108 EMIT 117 EMIT 100 EMIT 101 EMIT 32 EMIT + : \ KEY 10 = 0BRANCH [ -20 , ] ; IMMEDIATE \ Now we have line comments :) +\ We'll periodically sprinkle these in so that it's clear to the user +\ that things are happening. +46 EMIT + \ Conditionals : IF @@ -20,6 +27,8 @@ SWAP ! ; IMMEDIATE +46 EMIT + \ Loops : BEGIN HERE @ ; IMMEDIATE @@ -34,6 +43,8 @@ HERE @ - , ; IMMEDIATE +46 EMIT + \ Recursive calls : RECURSE LATEST @ >CFA , ; IMMEDIATE @@ -50,6 +61,8 @@ ( ( Take that, C ) ) +46 EMIT + \ Peripheral register addresses : TXBUF 0 ; @@ -60,6 +73,8 @@ : RXTAIL 67 ; : SYSREADY 68 ; +46 EMIT + \ Printing utilities : CR 10 EMIT ; @@ -77,6 +92,8 @@ + EMIT ; +CHAR . EMIT + : . \ Handle negatives DUP 0< IF CHAR - EMIT NEGATE THEN @@ -101,6 +118,8 @@ 2DROP ; +CHAR . EMIT + : TYPE ( addr len -- ) BEGIN DUP 0= IF 2DROP EXIT THEN @@ -109,6 +128,8 @@ AGAIN ; +CHAR . EMIT + : C, HERE @ C! 1 HERE +! ; : ." @@ -152,6 +173,8 @@ CHAR . EMIT ." ." VERSION-PATCH . ; +CHAR . EMIT + \ Welcome banner : BANNER @@ -165,6 +188,7 @@ CHAR . EMIT CR ; +." done" CR BANNER \ Set SYSREADY high to indicate prelude has finished and enable user