izaya/collapseos
1
0
Fork 0
mirror of https://github.com/hsoft/collapseos.git synced 2024-11-27 18:28:05 +11:00
Code Issues Releases Wiki Activity

forth: forgot to commit high.fs...

Browse Source
This commit is contained in:
Virgil Dupras 2020-03-21 21:22:07 -04:00
parent ac914c3847
commit d5b6659507
1 changed files with 14 additions and 0 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

14
forth/high.fs Normal file
View File

@ -0,0 +1,14 @@
( Higher level stuff that generally requires all core units )
: ."
LIT
BEGIN
C< DUP ( c c )
( 34 is ASCII for " )
DUP 34 = IF DROP DROP 0 0 THEN
C,
0 = UNTIL
COMPILE (print)
; IMMEDIATE
: ABORT" [COMPILE] ." COMPILE ABORT ; IMMEDIATE