version 1.5, 1994/06/01 10:05:14
|
version 1.8, 1994/07/13 19:20:59
|
Line 134 include machine.fs
|
Line 134 include machine.fs
|
: cell+ cell + ; |
: cell+ cell + ; |
: cells cell<< lshift ; |
: cells cell<< lshift ; |
: chars ; |
: chars ; |
|
: floats float * ; |
|
|
>CROSS |
>CROSS |
: cell/ cell<< rshift ; |
: cell/ cell<< rshift ; |
>TARGET |
>TARGET |
Line 207 CREATE Bittable 80 c, 40 c, 20 c, 10 c,
|
Line 208 CREATE Bittable 80 c, 40 c, 20 c, 10 c,
|
: ! ( w taddr -- ) >r bswap r> >image ! ; |
: ! ( w taddr -- ) >r bswap r> >image ! ; |
: c@ ( taddr -- char ) >image c@ ; |
: c@ ( taddr -- char ) >image c@ ; |
: c! ( char taddr -- ) >image c! ; |
: c! ( char taddr -- ) >image c! ; |
|
: 2@ ( taddr -- x1 x2 ) T dup cell+ @ swap @ H ; |
|
: 2! ( x1 x2 taddr -- ) T swap over ! cell+ ! H ; |
|
|
\ Target compilation primitives 06oct92py |
\ Target compilation primitives 06oct92py |
\ included A! 16may93jaw |
\ included A! 16may93jaw |
Line 347 VARIABLE ^imm
|
Line 350 VARIABLE ^imm
|
^imm @ @ dup <imm> = ?EXIT |
^imm @ @ dup <imm> = ?EXIT |
<res> <> ABORT" CROSS: Cannot immediate a unresolved word" |
<res> <> ABORT" CROSS: Cannot immediate a unresolved word" |
<imm> ^imm @ ! ; |
<imm> ^imm @ ! ; |
: restrict ; |
: restrict 40 flag! ; |
>CROSS |
>CROSS |
|
|
\ ALIAS2 ansforth conform alias 9may93jaw |
\ ALIAS2 ansforth conform alias 9may93jaw |
Line 488 Cond: [Char] ( "<char>" -- ) restrict
|
Line 491 Cond: [Char] ( "<char>" -- ) restrict
|
|
|
Cond: EXIT ( -- ) restrict? compile ;S ;Cond |
Cond: EXIT ( -- ) restrict? compile ;S ;Cond |
|
|
|
Cond: ?EXIT ( -- ) 1 abort" CROSS: using ?exit" ;Cond |
|
|
Cond: ; ( -- ) restrict? |
Cond: ; ( -- ) restrict? |
depth ?dup IF 1- <> ABORT" CROSS: Stack changed" |
depth ?dup IF 1- <> ABORT" CROSS: Stack changed" |
ELSE true ABORT" CROSS: Stack empty" THEN |
ELSE true ABORT" CROSS: Stack empty" THEN |