gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

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