home *** CD-ROM | disk | FTP | other *** search
/ ftp.whtech.com / ftp.whtech.com.7z / ftp.whtech.com / emulators / v9t9 / linux / sources / V9t9 / tools / Forth / 99test.fs < prev    next >
Encoding:
Text File  |  2006-10-19  |  807 b   |  68 lines
  1. 1 constant init-test-level
  2.  
  3. \    get-rom-addr defined in command line as a constant
  4. get-rom-addr constant ROM-start-addr
  5.  
  6. create mach-file ," 99config.fs" 
  7. include cross.fs
  8.  
  9. >target
  10.  
  11. only forth also definitions
  12.  
  13. include 99asm.fs
  14. include 99equs.fs
  15.  
  16. : PUSH 
  17.     mov TOS , *SP+
  18. ; immediate
  19.  
  20.  
  21. >minimal
  22.  
  23. \    Memory layout
  24. \
  25. \    User variables stored relative to >A000.
  26. \    Dictionary starts after that.
  27. \    (We could easily put this stuff at >3000 and have 24k for dict.)
  28.  
  29. $2800 constant StartRAM
  30. $800 constant    (#rp)
  31. $800 constant    (#sp)
  32. $100 constant    (#pad)
  33. $100 constant    (##-pad)
  34. $100 constant    (#slit-pad)
  35. $100 constant    (#tib)
  36.  
  37. $3800 constant StartUser
  38.  
  39. \ \\\\\\\\\\\\\\\\\\\\\\\\\\\
  40.  
  41. lock
  42.  
  43. >rom
  44.  
  45. include 99simple.fs
  46.  
  47. unlock
  48.  
  49. .regions
  50.  
  51. turnkey
  52.  
  53.  
  54. .stats
  55. .unresolved
  56.  
  57. unlock
  58.  
  59. rom-dictionary extent save-region test.bin
  60.  
  61.  
  62.  
  63.  
  64.  
  65.  
  66.  
  67.  
  68.