[gforth] / gforth / cross.fs  

gforth: gforth/cross.fs

Diff for /gforth/cross.fs between version 1.19 and 1.20

version 1.19, Thu Jan 19 17:47:59 1995 UTC version 1.20, Tue Jan 24 17:31:17 1995 UTC
Line 121 
Line 121 
   
 >CROSS  >CROSS
   
 bigendian  0 pad ! -1 pad c! pad @ 0<  bigendian
 = [IF]  [IF]
 \   : bswap ; immediate  
 : T!  ( n addr -- )  >r s>d r> tcell bounds swap 1-  : T!  ( n addr -- )  >r s>d r> tcell bounds swap 1-
   DO  maxbyte ud/mod rot I c!  -1 +LOOP  2drop ;    DO  maxbyte ud/mod rot I c!  -1 +LOOP  2drop ;
 : T@  ( addr -- n )  >r 0 0 r> tcell bounds  : T@  ( addr -- n )  >r 0 0 r> tcell bounds
   DO  maxbyte * swap maxbyte um* rot + swap I c@ + swap  LOOP d>s ;    DO  maxbyte * swap maxbyte um* rot + swap I c@ + swap  LOOP d>s ;
   
 [ELSE]  [ELSE]
 : T!  ( n addr -- )  >r s>d r> tcell bounds  : T!  ( n addr -- )  >r s>d r> tcell bounds
   DO  maxbyte ud/mod rot I c!  LOOP  2drop ;    DO  maxbyte ud/mod rot I c!  LOOP  2drop ;
 : T@  ( addr -- n )  >r 0 0 r> tcell bounds swap 1-  : T@  ( addr -- n )  >r 0 0 r> tcell bounds swap 1-
   DO  maxbyte * swap maxbyte um* rot + swap I c@ + swap  -1 +LOOP d>s ;    DO  maxbyte * swap maxbyte um* rot + swap I c@ + swap  -1 +LOOP d>s ;
   
 \   : bswap ( big / little -- little / big )  0  
 \           cell 1- FOR  bits/byte lshift over  
 \                        [ 1 bits/byte lshift 1- ] Literal and or  
 \                        swap bits/byte rshift swap  NEXT  nip ;  
 [THEN]  [THEN]
   
 \ Memory initialisation                                05dec92py  \ Memory initialisation                                05dec92py

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help