Commit | Line | Data |
---|---|---|
7af5ad59 PH |
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 | $ |