[gforth] / gforth / asm / generic.fs  

gforth: gforth/asm/generic.fs

Diff for /gforth/asm/generic.fs between version 1.8 and 1.9

version 1.8, Sat Apr 24 18:25:12 2010 UTC version 1.9, Sat May 8 18:26:57 2010 UTC
Line 102 
Line 102 
 : 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  ( -- )

Generate output suitable for use with a patch program
Legend:
Removed from v.1.8  
changed lines
  Added in v.1.9
CVS Admin

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help