mf.f

-ML- JMP    8  0  1 -X-  
-ML- ;         1  1 -X-  INLINE
-ML- EXIT      1  1 -X-  INLINE
-ML- T=0    8  2  1 -X-  
-ML- T<0    8  3  1 -X-  
-ML- CALL   8  4  1 -X-  
-ML- !AC       5  1 -X-  INLINE
-ML- @AC       6  1 -X-  INLINE
-ML- SYS       7  1 -X-  INLINE
-ML- LIT1   8  8  1 -X-  
-ML- @A+       9  1 -X-  INLINE
-ML- LIT    8 10  1 -X-  
-ML- @A       11  1 -X-  INLINE
-ML- !        12  1 -X-  INLINE
-ML- !A+      13  1 -X-  INLINE
-ML- @        14  1 -X-  INLINE
-ML- !A       15  1 -X-  INLINE
-ML- COM      16  1 -X-  INLINE
-ML- 2*       17  1 -X-  INLINE
-ML- 2/       18  1 -X-  INLINE
-ML- *        19  1 -X-  INLINE
-ML- XOR      20  1 -X-  INLINE
-ML- AND      21  1 -X-  INLINE
-ML- 1-       22  1 -X-  INLINE
-ML- +        23  1 -X-  INLINE
-ML- R>       24  1 -X-  INLINE
-ML- A        25  1 -X-  INLINE
-ML- AND      25  1 -X-  INLINE
-ML- DUP      26  1 -X-  INLINE
-ML- OVER     27  1 -X-  INLINE
-ML- >R       28  1 -X-  INLINE
-ML- >A       29  1 -X-  INLINE
-ML- 1+       30  1 -X-  INLINE
-ML- DROP     31  1 -X-  INLINE

-ML- : 8 108 7 1 -X- IMMEDIATE

: EMIT   101 SYS ; INLINE
: .10    102 SYS ; INLINE
: .16    103 SYS ; INLINE
: FOPEN  104 SYS ; INLINE
: FCLOSE 105 SYS ; INLINE
: C,     106 SYS ; INLINE
: ,      107 SYS ; INLINE
: CREATE 108 SYS ; INLINE
: FIND   109 SYS ; IMMEDIATE
: (H)    110 SYS ; INLINE
: (L)    111 SYS ; INLINE
: (ST)   112 SYS ; INLINE
: CELL   113 SYS ; INLINE
: MEM    114 SYS ; INLINE
: MEM-SZ 115 SYS ; INLINE
: IMM    116 SYS ; INLINE
: INL    117 SYS ; INLINE
: STREQ  118 SYS ; INLINE
: STRLEN 119 SYS ; INLINE
: STRCPY 120 SYS ; INLINE
: NXTWD  121 SYS ; INLINE
: CLOCK  122 SYS ; INLINE

: a>r a >r ; inline
: r>a r> >a ; inline
: H (H) @ ; : L (L) @ ;
: swap a>r >R >A R> A r>a ; INLINE

: if T=0 C, H 0 , ; IMMEDIATE
: -if T<0 C, H 0 , ; IMMEDIATE
: else JMP C, H SWAP 0 , H SWAP ! ; IMMEDIATE
: then H SWAP ! ; IMMEDIATE

: begin H ; IMMEDIATE
: until T=0  C, , ; IMMEDIATE
: again JMP  C, , ; IMMEDIATE

: sp   32 EMIT ;
: cr   13 emit 10 emit ;
: bye (ST) >A 999 !A ;
: negate COM 1 + ;
: - negate + ;
: . .10 sp ;
: .hex .16 sp ;
: type a>r >a begin @ac if emit else drop r>a exit then a 1+ >a again ;
: = - if dup xor else 1- then ;
: < - -if 1- else dup xor then ;
: > swap - < ;

H MEM - .   MEM MEM-SZ + L - .   L H - . cr
2 3 * . cr 
2 3 > . cr
3 3 = . cr

: .word cell 2* + 2 + type ;
FIND type if .word else . then cr
FIND NONONO if .word else . then cr