[gforth] / gforth / kernel / main.fs  

gforth: gforth/kernel/main.fs

Diff for /gforth/kernel/main.fs between version 1.15 and 1.16

version 1.15, Tue May 18 15:13:50 1999 UTC version 1.16, Thu May 20 13:29:17 1999 UTC
Line 103 
Line 103 
   
 \ Setup                                                13feb93py  \ Setup                                                13feb93py
   
 here normal-dp !  
 UNLOCK tudp @ LOCK udp !  
 decimal  
   
 has? header [IF]  has? header [IF]
 \    UNLOCK  \    UNLOCK
     here >address 2 cells  !  \ image size      here >address 2 cells  !  \ image size
Line 116 
Line 112 
   >boot    >boot
 [THEN]  [THEN]
   
 UNLOCK Tlast @  include ./pass.fs
 LOCK  
 1 cells - dup forth-wordlist wordlist-id ! Last !  
 .unresolved  .unresolved

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help