[BACK]Return to main.fs CVS log [TXT] [DIR] Up to [gforth] / gforth

Diff for /gforth/Attic/main.fs between versions 1.27 and 1.28

version 1.27, 1997/02/06 21:23:04 version 1.28, 1997/02/08 22:58:14
Line 39  decimal Line 39  decimal
   
 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]
 0 A,    \ base address  0 A,    \ base address
 0 ,     \ checksum  0 ,     \ checksum
 0 ,     \ image size (without tags)  0 ,     \ image size (without tags)
Line 55  cell 2 = [IF] 32 [ELSE] 256 [THEN] KB ma Line 56  cell 2 = [IF] 32 [ELSE] 256 [THEN] KB ma
 0 ,     \ fp stack base  0 ,     \ fp stack base
 0 ,     \ return stack base  0 ,     \ return stack base
 0 ,     \ locals stack base  0 ,     \ locals stack base
   [THEN]
   
 UNLOCK ghost - drop \ ghost must exist because - would be treated as number  UNLOCK ghost - drop \ ghost must exist because - would be treated as number
 LOCK  LOCK
Line 63  doc-off Line 65  doc-off
 has-prims [IF]  has-prims [IF]
     include aliases.fs             \ include primitive aliases      include aliases.fs             \ include primitive aliases
 [ELSE]  [ELSE]
       prims-include
       undef-words
     include primitives.fs      include primitives.fs
       all-words
 [THEN]  [THEN]
 doc-on  doc-on
   
Line 73  include vars.fs                \ variabl Line 78  include vars.fs                \ variabl
 include errore.fs  include errore.fs
 include version.fs  include version.fs
 include kernel.fs              \ load kernel  include kernel.fs              \ load kernel
   has-files [IF]
 include args.fs  include args.fs
 include files.fs               \ load file words  include files.fs               \ load file words
   [THEN]
   has-locals [IF]
 include conditionals.fs        \ load IF and co  include conditionals.fs        \ load IF and co
   [ELSE]
   include conditionals-old.fs    \ load IF and co w/o locals
   [THEN]
 include tools.fs               \ load tools ( .s dump )  include tools.fs               \ load tools ( .s dump )
 include toolsext.fs  include toolsext.fs
   
Line 87  here normal-dp ! Line 98  here normal-dp !
 tudp H @ minimal udp !  tudp H @ minimal udp !
 decimal  decimal
   
   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]
     >boot
   [THEN]
   
 UNLOCK Tlast @  UNLOCK Tlast @
 LOCK  LOCK
Removed from v.1.27  
changed lines
  Added in v.1.28

FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>