1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
2 ;; high-level definition words
3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
7 ?EXEC !CSP CURRENT @ CONTEXT ! CREATE ]
33 $FORTH_END_WORD CONSTANT
47 $FORTH_END_WORD VARIABLE
54 CREATE SMUDGE HERE 2! 4 ALLOT
56 $FORTH_END_WORD 2CONSTANT
77 $FORTH_END_WORD 2VARIABLE
101 R> LATEST PFA CFA ! ;S
102 $FORTH_END_WORD (;CODE)
104 $FORTH_WORD ;CODE IMM
108 $FORTH_END_WORD ;CODE
113 $FORTH_END_WORD <BUILDS
119 $FORTH_END_WORD DOES>
138 -FIND 0BRANCH create0
139 DROP NFA ID. 4 MESSAGE SPACE
141 HERE DUP C@ WIDTH @ MIN 1+ ALLOT DUP
142 LIT #A0 TOGGLE HERE 1- LIT #80 TOGGLE
143 LATEST , CURRENT @ ! HERE 2+ , ;S
144 $FORTH_END_WORD CREATE