[gforth] / gforth / kernel / basics.fs  

gforth: gforth/kernel/basics.fs

Diff for /gforth/kernel/basics.fs between version 1.14 and 1.15

version 1.14, Mon Apr 12 10:17:52 1999 UTC version 1.15, Thu May 6 21:33:36 1999 UTC
Line 41 
Line 41 
 ' maxaligned Alias cfaligned ( addr1 -- addr2 ) \ gforth  ' maxaligned Alias cfaligned ( addr1 -- addr2 ) \ gforth
   
 : chars ( n1 -- n2 ) \ core  : chars ( n1 -- n2 ) \ core
   \G @i{n2} is the number of address units corresponding to @i{n1} chars.""
 ; immediate  ; immediate
   
   
Line 80 
Line 81 
 \ on off                                               23feb93py  \ on off                                               23feb93py
   
 \ on is used by docol:  \ on is used by docol:
 : on  ( addr -- ) \ gforth  : on  ( a-addr -- ) \ gforth
       \G Set the (value of the) variable  at @i{a-addr} to @code{true}.
     true  swap ! ;      true  swap ! ;
 : off ( addr -- ) \ gforth  : off ( a-addr -- ) \ gforth
       \G Set the (value of the) variable at @i{a-addr} to @code{false}.
     false swap ! ;      false swap ! ;
   
 \ dabs roll                                           17may93jaw  \ dabs roll                                           17may93jaw

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help