1            /       TINY RX01 DRIVE ZERO ONLY BOOTSTRAP.
   2            
   3            / configuration section
   4            
   5            IOTADR=0750             / default system drive is at IOT 75
   6            
   7            / RX01 and other opcode definitions
   8            
   9            LCD=6001+IOTADR
  10            XDR=6002+IOTADR
  11            STR=6003+IOTADR
  12            SDN=6005+IOTADR
  13            
  14            NL0001=CLA CLL IAC
  15            NL0002=CLA CLL CML RTL
  16            
  17            / Constants pertaining to the bootstrap sector being read.
  18            SBOOT=0000
  19            SLP=0047
  20            
  21                    *33                     /STARTS LOADING HERE
  22            
  23 00033 6755 SHANGG, SDN                     /BOOTSTRAP STARTS HERE; DONE FLAG UP?
  24 00034 5054         JMP     SLODE1          /TRY TRANSFER FLAG IF DONE FLAG IS NOT UP
  25 00035 7326         NL0002                  /SETUP FOR EMPTYING
  26 00036 6751         LCD                     /LOAD THE COMMAND
  27            
  28 00037 0000         ZBLOCK  SLP-.           /0000'S WILL EXECUTE AND FALL THROUGH TO SLP!
     00040 0000 
     00041 0000 
     00042 0000 
     00043 0000 
     00044 0000 
     00045 0000 
     00046 0000 
  29            
  30 00047 4053 SLP,    JMS     SLODE           /GET A WORD
  31 00050 3002 SLPSTR, DCA     SBOOT&177+2     /PUT A WORD
  32 00051 2050         ISZ     SLPSTR          /BUMP TO NEXT WORD
  33 00052 5047         JMP     SLP             /KEEP GOING UNTIL SLP IS OVERLAYED!
  34            
  35 00053 5047 SLODE,  JMP     SLP             /LOAD A WORD ROUTINE;OK to use same as previous or following or anything else
  36            
  37 00054 6753 SLODE1, STR                     /WORD READY?
  38 00055 5033         JMP     SHANGG          /NO, TRY DONE
  39 00056 6752         XDR                     /YES, GET A WORD
  40 00057 5453         JMP I   SLODE           /RETURN
  41            
  42 00060 7004 SBU,    0^20+7004               /INDICATE UNIT ZERO TO NEXT LEVEL
  43            $