| 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 | $ |