| true DefaultValue interpreter |
true DefaultValue interpreter |
| true DefaultValue ITC |
true DefaultValue ITC |
| false DefaultValue rom |
false DefaultValue rom |
| |
false DefaultValue flash |
| true DefaultValue standardthreading |
true DefaultValue standardthreading |
| |
|
| \ ANSForth environment stuff |
\ ANSForth environment stuff |
| |
|
| >TARGET |
>TARGET |
| Cond: DOES> |
Cond: DOES> |
| T here 5 cells H + alit, compile (does>2) compile ;s |
T here H [ T has? peephole H [IF] ] 5 [ [ELSE] ] 4 [ [THEN] ] T cells |
| |
H + alit, compile (does>2) compile ;s |
| doeshandler, resolve-does>-part |
doeshandler, resolve-does>-part |
| ;Cond |
;Cond |
| |
|
