FORGET
Some parts of this page/site are currently incomplete & will be updated asap
Other parts will change continually so use “Refresh” in your browser !!
There is extensive use of “Tooltips” text to support learning which do
not seem to render on a Smartphone
NFA: 00728E 86 DB 86H
00728F 464F5247 45 DB "FORGE"
007294 D4 DB 'T'+80H
LFA: 007295 7A72 DW TICK-4
CFA: 007297 3C28 FORG: DW DOCOL
PFA: 007299 B268 DW CURR ; CURRENT
00729B 8F27 DW AT ; @
00729D BF68 DW CONT ; CONTEXT
00729F F027 DW STORE ; !
0072A1 6368 DW INN ; IN
0072A3 8F27 DW AT ; @
0072A5 7E72 DW TICK ; '
0072A7 E826 DW SWAP ; SWAP
0072A9 BF68 DW CONT ; CONTEXT
0072AB 8F27 DW AT ; @
0072AD 3E29 DW FORTH ; FORTH
0072AF BF68 DW CONT ; CONTEXT
0072B1 8F27 DW AT ; @
0072B3 5969 DW EQUAL ; =
0072B5 EC25 DW ZEQU ; 0=
0072B7 DA21 DW ZBRAN
0072B9 1C00 DW FORG1-$ ; IF
0072BB 6368 DW INN ; IN
0072BD F027 DW STORE ; !
0072BF 076F DW DFIND ; -FIND
0072C1 DA21 DW ZBRAN
0072C3 0800 DW FORG11-$ ; IF
0072C5 DA26 DW DDROP ; 2DROP
0072C7 C221 DW BRAN
0072C9 0800 DW FORG3-$ ; ELSE
0072CB 0621 1800 FORG11: DW LIT,24 ; 24
0072CF 316F DW ERROR ; ERROR
0072D1 FORG3: ; THEN
0072D1 C221 DW BRAN
0072D3 0400 DW FORG2-$ ; ELSE
0072D5 CC26 FORG1: DW DROP ; DROP
0072D7 3136 FORG2: ; THEN
0072D7 5B6A B 3137 DW NFA ; NFA
0072D9 0B27 B 3138 DW DUP ; DUP
0072DB 5B68 B 3139 DW FENCE ; FENCE
0072DD 8F27 B 3140 DW AT ; @
0072DF 8769 B 3141 DW ULESS ; U<
0072E1 DA21 B 3142 DW ZBRAN
0072E3 0800 B 3143 DW FORG4-$ ; IF
0072E5 0621 1500 B 3144 DW LIT,21 ; 21
0072E9 316F B 3145 DW ERROR ; ERROR
0072EB CB68 B 3146 FORG4: DW VTABLE ; VOC_TABLE
0072ED B627 B 3147 DW CAT ; C@
0072EF CF67 B 3148 DW FOUR ; 4
0072F1 3622 B 3149 DW XDO ; (DO)
0072F3 CB68 B 3150 FORG5: DW VTABLE ; VOC_TABLE
0072F5 5222 B 3151 DW IDO ; I
0072F7 1226 B 3152 DW PLUS ; +
0072F9 8F27 B 3153 DW AT ; @
0072FB B 3154 FORG6: ; BEGIN
0072FB 0B27 B 3155 DW DUP ; DUP
0072FD 6D6A B 3156 DW PFA ; PFA
0072FF 3F6A B 3157 DW LFA ; LFA
007301 8F27 B 3158 DW AT ; @
007303 CB68 B 3159 DW VTABLE ; VOC_TABLE
007305 DF68 B 3160 DW TWOP ; 2+
007307 5969 B 3161 DW EQUAL ; =
007309 DA21 B 3162 DW ZBRAN
00730B 0800 B 3163 DW FORG7-$ ; IF
00730D C367 B 3164 DW ONE ; 1
00730F C221 B 3165 DW BRAN
007311 1C00 B 3166 DW FORG8-$ ; ELSE
007313 1927 B 3167 FORG7: DW TDUP ; 2DUP
007315 E826 B 3168 DW SWAP ; SWAP
007317 8769 B 3169 DW ULESS ; U<
007319 EC25 B 3170 DW ZEQU ; 0=
00731B DA21 B 3171 DW ZBRAN
00731D 0E00 B 3172 DW FORG9-$ ; IF
00731F 6D6A B 3173 DW PFA ; PFA
007321 3F6A B 3174 DW LFA ; LFA
007323 8F27 B 3175 DW AT ; @
007325 BF67 B 3176 DW ZERO ; 0
007327 C221 B 3177 DW BRAN
007329 0400 B 3178 DW FORG10-$ ; ELSE
00732B C367 B 3179 FORG9: DW ONE ; 1
00732D B 3180 FORG10: ; THEN
00732D B 3181 FORG8: ; THEN
00732D DA21 B 3182 DW ZBRAN
00732F CCFF B 3183 DW FORG6-$ ; UNTIL
007331 CB68 B 3184 DW VTABLE ; VOC_TABLE
007333 5222 B 3185 DW IDO ; I
007335 1226 B 3186 DW PLUS ; +
007337 F027 B 3187 DW STORE ; !
007339 C767 B 3188 DW TWO ; 2
00733B 2922 B 3189 DW XPLOO
00733D B6FF B 3190 DW FORG5-$ ; (LOOP)
00733F 5068 B 3191 DW DP ; DP
007341 F027 B 3192 DW STORE ; !
007343 1725 B 3193 DW SEMIS