gforth/cross.fs - diff

Return to cross.fs CVS log

Up to [gforth] / gforth

version 1.80, 1999/07/24 13:07:18	version 1.82, 1999/12/30 20:43:25
Line 864 float Constant tfloat	Line 864 float Constant tfloat
bits/byte Constant tbits/byte	bits/byte Constant tbits/byte
[THEN]	[THEN]
H	H
tbits/byte bits/byte / Constant tbyte	tbits/char bits/byte / Constant tbyte


\ Variables 06oct92py	\ Variables 06oct92py
Line 1222 T has? relocate H	Line 1222 T has? relocate H
: c@ ( taddr -- char ) >image Sc@ ;	: c@ ( taddr -- char ) >image Sc@ ;
: c! ( char taddr -- ) >image Sc! ;	: c! ( char taddr -- ) >image Sc! ;
: 2@ ( taddr -- x1 x2 ) T dup cell+ @ swap @ H ;	: 2@ ( taddr -- x1 x2 ) T dup cell+ @ swap @ H ;
: 2! ( x1 x2 taddr -- ) T swap over ! cell+ ! H ;	: 2! ( x1 x2 taddr -- ) T tuck ! cell+ ! H ;

\ Target compilation primitives 06oct92py	\ Target compilation primitives 06oct92py
\ included A! 16may93jaw	\ included A! 16may93jaw