gforth/comp-i.fs - diff

Return to comp-i.fs CVS log

Up to [gforth] / gforth

version 1.21, 2010/05/13 09:39:07	version 1.22, 2010/09/05 18:04:17
Line 24 s" address-unit-bits" environment? drop	Line 24 s" address-unit-bits" environment? drop
\ write a cell to the file	\ write a cell to the file
w cell file-id write-file ;	w cell file-id write-file ;

: th ( addr1 n -- addr2 )
cells + ;

: bset ( bmask c-addr -- )	: bset ( bmask c-addr -- )
tuck c@ or swap c! ;	tuck c@ or swap c! ;