sw/os8/v3d/sources/system/dectapes/dectape1/C2BOOT.PA

   1 /SECONDARY BOOTSTRAP V5A
   2 /
   3 /
   4 /
   5 /
   6 /
   7 /
   8 /
   9 /
  10 /
  11 /COPYRIGHT  (C)  1973,1974 BY DIGITAL EQUIPMENT CORPORATION
  12 /
  13 /
  14 /
  15 /
  16 /
  17 /
  18 /
  19 /
  20 /
  21 /
  22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
  23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
  24 /CORPORATION.  DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
  25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
  26 /
  27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
  28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
  29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
  30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
  31 /
  32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
  33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
  34 /DIGITAL.
  35 /
  36 /
  37 /
  38 /
  39 /
  40 /
  41 /
  42 /
  43 /
  44 /
  45 \f
  46 /       DEC-8E-OC2BA-A-LA
  47 /       COPYRIGHT 1972
  48 /       DIGITAL EQUIPMENT CORPORATION
  49 /       MAYNARD, MASS.  01754
  50
  51 /       S.R.
  52
  53         VERSON= 5       /5= VERSION 5, ETC
  54         SUBVER= 01      /01=A, ETC
  55
  56         BSW=7002
  57         KSDR=6701
  58         KSDF=6701
  59         KSBF=6703
  60         KLSA=6704
  61         KGOA=6706
  62         KRSB=6707
  63         NOPUNCH
  64         *3602
  65         ENPUNCH
  66
  67 BIN,    STA
  68         DCA GRKNT
  69 ITSFLD, TAD CDF0
  70         DCA FLD
  71 ITSORG, DCA ORG         /ASSUMES ORIGIN ALWAYS APPEARS
  72                         /AFTER FIELD SETTING
  73 BINLDR, STA
  74         DCA ORGSW
  75         JMS GETBYT
  76 FOOL,   BSW
  77         CLL RTR
  78         SZL
  79         JMP SPEC        /BIT 4=1
  80         SPA             /BIT 4=0 (TWO WORD COMMAND)
  81         ISZ ORGSW       /IS ORIGIN
  82 N7000,  NOP
  83         RAL
  84         CLL RAL
  85         DCA TEM
  86         JMS GETBYT
  87         TAD TEM         /COMBINE
  88         ISZ ORGSW
  89         JMP ITSORG      /ORIGIN
  90 FLD,    HLT
  91         DCA I ORG
  92         ISZ ORG
  93 CDF0,   CDF 0
  94         JMP BINLDR
  95 SPEC,   SMA
  96         JMP     MON
  97         RTL
  98         AND N7000
  99         BSW
 100         JMP ITSFLD
 101 \fGETBYT,        0
 102         ISZ     GRKNT
 103         JMP     RDBYTE
 104         TAD     X260
 105         KLSA
 106         KGOA
 107         KSBF
 108         JMP     .-1
 109         KRSB
 110         AND     X7774
 111         SZA CLA
 112         HLT
 113         ISZ     FIRST
 114         JMP     NOTFST
 115         JMS RESET
 116         TAD     X270
 117         STL
 118         JMP I   X4002
 119 NOTFST, TAD     X7600
 120         DCA     GRKNT
 121         TAD     X200
 122         KLSA
 123         KGOA
 124         KSDF
 125         JMP     .-1
 126 RDBYTE, KGOA
 127         KSDF
 128         JMP     .-1
 129         JMP I   GETBYT
 130
 131         ZBLOCK 3701-.   /LOCATION 3701 IS SKIPPED BY PRIMARY LOADER
 132
 133
 134         NOPUNCH
 135         0
 136         ENPUNCH
 137 \fMON,   CDF CIF 10
 138         JMP I   .+1
 139         5200
 140
 141 ORG,    0
 142 TEM,    0
 143 ORGSW,  0
 144
 145 X200,   200
 146 X260,   260
 147 X270,   270
 148 X7737,  7737
 149 XKNT,   4035
 150 XPTR,   4036
 151 X4002,  4002
 152 GRKNT,  0
 153 X7774,  7774
 154 FIRST,  -1
 155 X7600,  7600
 156 RESET,  0               /SET UP PRIMARY BOOTSTRAP FOR REUSE
 157         TAD     X7737
 158         DCA I   XKNT
 159         DCA I   XPTR
 160         TAD X3211       /A "DCA ." FOR LOCATION 4011
 161         DCA I X4011
 162         JMP I RESET
 163 X3211,  3211
 164 X4011,  4011
 165         ZBLOCK 4000-.
 166         BIN
 167         JMP I .-1       /MUST END IN OCTAL 00
 168         $
 169 \fGETBYT,        0       /DF IS RAANDOM ON ENTRY
 170         CDF 10
 171         ISZ GRKNT
 172         JMP TB
 173         TAD (-200
 174         DCA GRKNT
 175         TAD (BINBUF
 176         DCA GRPTR
 177         CALL (HANDLER
 178         READ+F1
 179         BINBUF
 180         HLT
 181         CALL XWAIT
 182 TB,     TAD I GRPTR
 183         INCR GRPTR
 184         EXIT GETBYT
 185
 186 GRKNT,  0
 187 GRPTR,  0
 188
 189 /       00      DATA
 190 /       01      ORIGIN
 191 /       11      FIELD
 192 /       10      LEADER/TRAILER
 193         PAGE
 194         $