gforth/asm/generic.fs - diff

Return to generic.fs CVS log

Up to [gforth] / gforth / asm

version 1.8, 2010/04/24 18:25:12	version 1.9, 2010/05/08 18:26:57
Line 102 Variable I-Len	Line 102 Variable I-Len
: opc! ( adr len -- )	: opc! ( adr len -- )
\G Logically OR string of bytes into instruction latch	\G Logically OR string of bytes into instruction latch
dup I-Len @ max I-Len !	dup I-Len @ max I-Len !
I-Latch -rot bounds DO I c@ over c@ or over c! char+ LOOP drop ;	I-Latch -rot bounds ?DO I c@ over c@ or over c! char+ LOOP drop ;

: I-Init ( -- ) 0 I-Len ! I-Latch 10 erase ;	: I-Init ( -- ) 0 I-Len ! I-Latch 10 erase ;
: I-Flush ( -- )	: I-Flush ( -- )