1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
16 $FORTH_END_CODE_WORD 0=
22 $FORTH_END_CODE_WORD NOT
34 $FORTH_END_CODE_WORD 0<
56 $FORTH_END_CODE_WORD <
70 $FORTH_END_CODE_WORD U<
74 ;; ;; ;; ( n0 n1 -- flag )
75 ;; ;; 2DUP XOR 0< 0BRANCH uless0
76 ;; ;; DROP 0< 0= BRANCH uless1
81 ;; ;; $FORTH_END_WORD U<
85 ;; ;; ( n0 n1 -- flag )
96 $FORTH_END_CODE_WORD U>
104 $FORTH_END_CODE_WORD >
108 ;; ;; ( n0 n1 -- flag )
129 $FORTH_END_CODE_WORD <>
139 $FORTH_END_CODE_WORD !=