version 1.5, 1994/06/01 10:05:14
|
version 1.7, 1994/07/08 15:00:30
|
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 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 |