home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.7z / ftp.whtech.com / emulators / v9t9 / linux / sources / V9t9 / tools / Forth / init.fs < prev    next >
Encoding:
Text File  |  2006-10-19  |  1.0 KB  |  62 lines
  1. \ \\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\\
  2.  
  3. : (splash)
  4.     ." V9t9 FORTH" cr
  5.     ." press shift+ctrl+alt+space to abort" cr
  6.     cr
  7.  
  8.     \ debug notes
  9.     ." write-file not done, read-file buggy" cr
  10. ;
  11.  
  12. [[ $90 checkmemory ]]
  13.  
  14. : (cold) 
  15.     \ This code is very important!
  16.     \ We don't initialize these DEFERed words
  17.     \ since their deferral address must reside in RAM
  18.     \ in order to be changed.
  19.  
  20.     \ Also, the use of (IS) is specific to
  21.     \ the cross compiler, which assumes we have more
  22.     \ stuff between the NFA and the PFA than we do.
  23.     \ (i.e., not >body)
  24.  
  25.     ['] (EMIT) ['] EMIT  (IS)
  26.     ['] (EMIT) ['] EMIT8 (IS)
  27.     ['] (KEY?) ['] KEY?  (IS)
  28.     ['] (KEY) ['] KEY      (IS)
  29.     ['] (TYPE) ['] TYPE  (IS)
  30.  
  31.     cls
  32.     (splash)
  33.  
  34. \     flush user dictionary
  35.     dp0 dp !        \ bye bye!
  36.     
  37. \    set up wordlist     !!!
  38.     fence >latest !
  39.  
  40.     decimal
  41.  
  42. \    Set up initial variable vals
  43.  
  44.     (rp0) rp0 !     
  45.     (sp0) sp0 !
  46.     (pad0) (pad) !     
  47.     (#-pad0) (#-pad) !
  48.     (slit-pad0) (slit-pad) !
  49.  
  50. [ [[ test-level @ [IF] ]] ]
  51.     ." Running tests..." cr
  52.     runtests
  53. [ [[ [THEN] ]] ]
  54.  
  55.     sp0 @ sp!
  56.  
  57. \    init-files
  58.  
  59.     quit
  60. ;
  61.  
  62.