Annotation of gforth/main.fs, revision 1.1
1.1 ! anton 1: \ MAIN.FS Kernal main load file 20may93jaw
! 2:
! 3: \ : include bl word count included ;
! 4: \ we want write include...
! 5:
! 6: : : ( -- colon-sys ) Header [ ' : @ ] ALiteral cfa, 0 ] ;
! 7: : ; ( colon-sys -- ) ?struc postpone exit reveal postpone [ ; immediate
! 8: : :noname ( -- xt colon-sys ) here [ ' : @ ] ALiteral cfa, 0 ] ;
! 9:
! 10: include search-order.fs
! 11:
! 12: include cross.fs \ include cross-compiler
! 13:
! 14: decimal
! 15:
! 16: 128 KB makekernal , 0 , 0 , 0 A,
! 17:
! 18: UNLOCK ghost - drop \ ghost must exist because - would be treated as number
! 19: LOCK
! 20:
! 21: 0 AConstant forthstart
! 22:
! 23: include aliases.fs \ include primitive aliases
! 24: \ include cond.fs \ conditional compile
! 25: \ include patches.fs \ include primitive patches
! 26:
! 27: include vars.fs \ variables and other stuff
! 28: include add.fs \ additional things
! 29: include environ.fs \ create environmental query strings
! 30: include errore.fs
! 31: include kernal.fs \ load kernal
! 32: include extend.fs \ load core-extended
! 33: include tools.fs \ load tools ( .s dump )
! 34: \ include words.fs
! 35: \ include wordinfo.fs
! 36: \ include see.fs \ load see
! 37: include toolsext.fs
! 38: \ include search-order.fs
! 39:
! 40: \ Setup 13feb93py
! 41:
! 42: here dp !
! 43: decimal
! 44:
! 45: \ 64 KB 0 cells ! \ total Space... defined above!
! 46: here 1 cells ! \ Size of the system
! 47: 2 KB 2 cells ! \ Return stack size
! 48: ' boot >body 3 cells ! \ Entry point
! 49:
! 50: UNLOCK Tlast @
! 51: LOCK
! 52: 1 cells - dup forth-wordlist ! Last !
! 53: .unresolved
! 54:
! 55: cr cr
! 56: endian [IF]
! 57: save-cross kernal.32bimg
! 58: [ELSE]
! 59: save-cross kernal.32limg
! 60: [THEN] cr
! 61:
! 62: bye
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>