home *** CD-ROM | disk | FTP | other *** search
/ Hall of Fame / HallofFameCDROM.cdr / prog1 / 4th_86.lzh / MAND.DEM < prev    next >
Text File  |  1989-02-15  |  1KB  |  54 lines
  1.  
  2. OFF PRINTLOAD
  3.  
  4.     iload kernel23.img   " kernel23.img loaded" ." crlf
  5.  
  6.  : ,AND swap 4 pick and 3 poke and ;
  7. ( *******************)
  8. : ,OR  swap 4 pick or 3 poke or ;
  9. ( *******************)
  10. : ,XOR swap 4 pick xor 3 poke xor ; 
  11.  
  12. g0load 7egam3.bin " 7egam3 loaded " ." crlf
  13.  
  14. g0load 7double3.bin
  15. gload 7fpoint3.bin
  16. fload 7fpoint3.4th
  17.  
  18. fload mand.pro
  19.  
  20.  
  21. ( define a constant that is the def adr of the last word)
  22. LAST @ DUPB@ + 2+ @ CONST ENTRYPOINT
  23.  
  24.  : MYPROGRAM  norm ;
  25.  
  26.  
  27. : BOOT  ( bootstrap)
  28.   1000h setmem brkoff myprogram ENTRYPOINT EXEC 
  29.         q-u-it  ;
  30.  
  31. 1000 ( 128)  CONST SYSIZE    ( stack space for program)
  32. '' SYSIZE BLOCK SYSTK ( define stack)
  33.  
  34.  100H
  35.  CODE GOFORTH
  36.   HEAD @ SWAP GETLOC SWAP ORG JMP, HEAD !
  37.   ( That patched the startup jump into the given location)
  38.  
  39.   SP '' SYSTK '' SYSIZE + 10 - LXI, ( SET SP)
  40.   H '' SYSTK LXI,  ( '' CSP SHLD, )
  41.         df89h head! ( mov di,bx) ( SET CSP)
  42.  
  43.  
  44.   :ENTER BOOT  ( enter forth and execute user bootstrap)
  45. ; 
  46.  
  47. STATUS ( print code size)
  48.  
  49.         " MAND.COM" SAVE
  50. " COM file written^13 10^" ."
  51.  
  52. q-u-it
  53.  
  54.