1 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
3 ;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;;
23 ?COMP 2 ?PAIRS HERE OVER - SWAP ! ;S
39 3 ?PAIRS COMPILE (LOOP)
45 3 ?PAIRS COMPILE (+LOOP)
51 1 ?PAIRS COMPILE 0BRANCH
62 1 ?PAIRS COMPILE BRANCH
66 $FORTH_WORD REPEAT IMM
68 >R >R AGAIN R> R> 2- ENDIF ;S
69 $FORTH_END_WORD REPEAT
85 2 ?PAIRS COMPILE BRANCH
86 HERE 0 , SWAP 2 ENDIF 2 ;S
102 4 ?PAIRS COMPILE OVER
105 HERE 0 , COMPILE DROP
109 $FORTH_WORD ENDOF IMM
111 LIT 5 ?PAIRS COMPILE BRANCH
112 HERE 0 , SWAP 2 ENDIF 4 ;S
113 $FORTH_END_WORD ENDOF
115 $FORTH_WORD OTHERWISE IMM
117 ;; part of CASE: OTHERWISE ( val ) ... ENDOF
122 $FORTH_END_WORD OTHERWISE
124 $FORTH_WORD ENDCASE IMM
136 $FORTH_END_WORD ENDCASE