| \ Core words for DOS FORTH |
| |
| : NIP SWAP DROP ; |
| : / /MOD NIP ; |
| : MOD /MOD DROP ; |
| |
| : LITERAL IMMEDIATE ' LIT , , ; |
| : [COMPILE] IMMEDIATE WORD FIND >CFA , ; |
| : RECURSE IMMEDIATE LATEST , >CFA , ; |
| |
| \ Control structures |
| |
| \ cond IF <*b0> true ELSE false THEN rest |
| : IF ( -- *then ) IMMEDIATE ' 0BRANCH , HERE @ 0 , ; |
| |
| : THEN ( *then -- *then ) IMMEDIATE |
| DUP HERE @ SWAP ( *then *then *here ) |
| SWAP - ( *then *here-*then ) |
| SWAP ! ; |
| |
| : ELSE ( *then -- *here ) IMMEDIATE |
| ' BRANCH , |
| HERE @ ( *then *ph ) |
| 0 , |
| SWAP ( *ph *then ) |
| DUP ( *ph *then *then ) |
| HERE @ ( *ph *then *then *here ) |
| SWAP - ( *ph *then diff ) |
| SWAP ! ( *ph ) ; |
| |
| IMG-DUMPED |
| |
| DUMP-IMAGE FORTH.COM |
| |
| BYE |