[gforth] / gforth / Attic / main.fs  

gforth: gforth/Attic/main.fs

Diff for /gforth/Attic/main.fs between version 1.2 and 1.12

version 1.2, Thu May 5 15:46:49 1994 UTC version 1.12, Fri Sep 9 16:27:21 1994 UTC
Line 3 
Line 3 
 \ : include bl word count included ;  \ : include bl word count included ;
 \ we want write include...  \ we want write include...
   
 : : ( -- colon-sys )  Header [ ' : @ ] ALiteral cfa, 0 ] ;  \ : : ( -- colon-sys )  Header [ ' : @ ] ALiteral cfa, 0 ] ;
 : ; ( colon-sys -- )  ?struc postpone exit reveal postpone [ ; immediate  \ : ; ( colon-sys -- )  ?struc postpone exit reveal postpone [ ; immediate
 : :noname ( -- xt colon-sys )  here [ ' : @ ] ALiteral cfa, 0 ] ;  \ : :noname ( -- xt colon-sys )  here [ ' : @ ] ALiteral cfa, 0 ] ;
   
 include search-order.fs  [IFUNDEF] vocabulary include search-order.fs [THEN]
   
 include cross.fs               \ include cross-compiler  include cross.fs               \ include cross-compiler
   
 decimal  decimal
   
 128 KB makekernal , 0 , 0 , 0 A,  256 KB makekernal , 0 , 0 , 0 A, 0 A,
   
 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 26 
Line 26 
   
 include vars.fs                \ variables and other stuff  include vars.fs                \ variables and other stuff
 include add.fs                 \ additional things  include add.fs                 \ additional things
 include environ.fs             \ create environmental query strings  
 include errore.fs  include errore.fs
 include kernal.fs              \ load kernal  include kernal.fs              \ load kernal
 include extend.fs              \ load core-extended  include extend.fs              \ load core-extended
Line 39 
Line 38 
   
 \ Setup                                                13feb93py  \ Setup                                                13feb93py
   
 here dp !  here normal-dp !
 tudp H @ minimal udp !  tudp H @ minimal udp !
 decimal  decimal
   
 \ 64 KB       0 cells !  \ total Space... defined above!  \ 64 KB       0 cells !  \ total Space... defined above!
 here         1 cells !  \ Size of the system  here         1 cells !  \ Size of the system
   2 KB       2 cells !  \ Return stack size    16 KB       2 cells !  \ Return and fp stack size
 ' boot >body 3 cells !  \ Entry point  ' boot >body 3 cells !  \ Entry point
   
 UNLOCK Tlast @  UNLOCK Tlast @
Line 54 
Line 53 
 .unresolved  .unresolved
   
 cr cr  cr cr
 endian [IF]  bigendian [IF]
    save-cross kernal.32bimg     save-cross kernl32b.fi
 [ELSE]  [ELSE]
    save-cross kernal.32limg     save-cross kernl32l.fi
 [THEN] cr  [THEN] cr
   
 bye  bye

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

Powered by ViewCVS 1.0-dev 		(Powered by ViewCVS)

ViewCVS and CVS Help