( START OF FILE "7STINIT2" -- 8 July 88 -- MFB )
( FILE TO CREATE A SINGLE TASK INITIALIZER. PRIOR TO 
  LOADING THIS FILE, THE TOP OF THE STACK CONTAINS
  THE ADDRESS OF THE STARTUP JUMP.)

CODE SINGLE-TASK-INIT
  HEAD @ SWAP GETLOC SWAP ORG JMP, HEAD !
  ( THIS PATCHED THE STARTUP JUMP INTO THE GIVEN LOC.)

  SP '' SYSTK '' SYSIZE + 10 - LXI, ( SET SP)
  H '' SYSTK LXI,  '' CSP SHLD, ( SET CSP)

  :ENTER BOOT  ( ENTER SEVENTH AND EXECUTE USER BOOTSTRAP)
; 
( END OF INITIALIZER.)
( END OF FILE "7STINIT2")