[gforth] / gforth / kernel / main.fs  

gforth: gforth/kernel/main.fs

Diff for /gforth/kernel/main.fs between version 1.3 and 1.4

version 1.3, Sun Jul 6 16:11:02 1997 UTC version 1.4, Sat Sep 13 12:05:53 1997 UTC
Line 39 
Line 39 
   
 cell 2 = [IF] 32 [ELSE] 256 [THEN] KB makekernel ( size )  cell 2 = [IF] 32 [ELSE] 256 [THEN] KB makekernel ( size )
 \ create image-header  \ create image-header
 has-header [IF]  has? header [IF]
 0 A,    \ base address  0 A,    \ base address
 0 ,     \ checksum  0 ,     \ checksum
 0 ,     \ image size (without tags)  0 ,     \ image size (without tags)
Line 62 
Line 62 
 LOCK  LOCK
   
 doc-off  doc-off
 has-prims [IF]  has? prims [IF]
     include kernel/aliases.fs             \ include primitive aliases      include kernel/aliases.fs             \ include primitive aliases
 [ELSE]  [ELSE]
     prims-include      prims-include
Line 78 
Line 78 
 include kernel/errore.fs  include kernel/errore.fs
 include kernel/version.fs  include kernel/version.fs
 include kernel/kernel.fs              \ load kernel  include kernel/kernel.fs              \ load kernel
 has-files [IF]  has? file [IF]
 include kernel/args.fs  include kernel/args.fs
 include kernel/files.fs               \ load file words  include kernel/files.fs               \ load file words
 include kernel/paths.fs  include kernel/paths.fs
 include kernel/require.fs  include kernel/require.fs
 [THEN]  [THEN]
 has-locals [IF]  has? glocals [IF]
 include kernel/cond.fs                \ load IF and co  include kernel/cond.fs                \ load IF and co
 [ELSE]  [ELSE]
 include kernel/cond-old.fs            \ load IF and co w/o locals  include kernel/cond-old.fs            \ load IF and co w/o locals
Line 101 
Line 101 
 tudp H @ minimal udp !  tudp H @ minimal udp !
 decimal  decimal
   
 has-header [IF]  has? header [IF]
   here         2 cells !  \ image size    here         2 cells !  \ image size
   ' boot >body 8 cells !  \ Entry point    ' boot >body 8 cells !  \ Entry point
 [ELSE]  [ELSE]

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help