Commit | Line | Data |
---|---|---|
7af5ad59 PH |
1 | /16 BOOT - OS/8 V3D |
2 | / | |
3 | / | |
4 | / | |
5 | / | |
6 | / | |
7 | / | |
8 | / | |
9 | / | |
10 | / | |
11 | /COPYRIGHT (C) 1974,1975,1977 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 /SR | |
46 | ||
47 | /FIXES MADE FOR MAINTENANCE RELEASE: | |
48 | ||
49 | /1. ADDED RX01 (FLOPPY BOOTSTRAP) | |
50 | /2. LEFT PATCH SPACE IN NAME TABLE | |
51 | ||
52 | PTR=14 | |
53 | OLDLOC=15 | |
54 | NEWLOC=16 | |
55 | CDOIO=27 | |
56 | SCAN=17 | |
57 | ||
58 | *1 | |
59 | HLT | |
60 | JMP I (7600 | |
61 | *100 | |
62 | ||
63 | INNER, 0 | |
64 | OUTR, -20 | |
65 | CODE, 0 | |
66 | LENGTH, 0 | |
67 | \f *200 | |
68 | ||
69 | START, CLA /ALLOW BEING CHAINED TO | |
70 | TAD I (7600 | |
71 | SPA CLA | |
72 | JMP OS8IN | |
73 | ISZ INNER | |
74 | JMP .-1 | |
75 | ISZ OUTR | |
76 | JMP .-3 | |
77 | JMS I (TESTRK | |
78 | COSIN, TAD I (7776 | |
79 | COMN, CIA | |
80 | DCA CODE | |
81 | TAD (TABLE-1 | |
82 | DCA PTR | |
83 | LOOP, TAD I PTR | |
84 | SNA | |
85 | JMP OS8 | |
86 | TAD CODE | |
87 | SZA CLA | |
88 | JMP NXT | |
89 | IOF | |
90 | STA | |
91 | TAD I PTR | |
92 | DCA OLDLOC | |
93 | STA | |
94 | TAD I PTR | |
95 | DCA NEWLOC | |
96 | TAD I PTR | |
97 | CIA | |
98 | DCA LENGTH | |
99 | TAD I OLDLOC | |
100 | DCA I NEWLOC | |
101 | ISZ LENGTH | |
102 | JMP .-3 | |
103 | TAD I PTR | |
104 | DCA TEMP | |
105 | TAD HLTSWT | |
106 | SNA CLA | |
107 | HLT | |
108 | CLL | |
109 | JMP I TEMP | |
110 | HLTSWT, 1 | |
111 | ||
112 | NXT, TAD PTR | |
113 | TAD (4 | |
114 | DCA PTR | |
115 | JMP LOOP | |
116 | \fOS8, TAD ("N | |
117 | JMS I (PUT | |
118 | TAD ("O | |
119 | JMS I (PUT | |
120 | CLA IAC | |
121 | DCA HLTSWT | |
122 | RETRY, JMS I (CRLF | |
123 | TAD ("/ | |
124 | JMS I (PUT | |
125 | JMS I (GET | |
126 | SKP | |
127 | JMP RETRY | |
128 | CLL RTL | |
129 | RTL | |
130 | RTL | |
131 | DCA TEMP | |
132 | JMS I (GET | |
133 | SKP | |
134 | JMP RETRY | |
135 | TAD TEMP | |
136 | DCA TEMP | |
137 | JMS I (GET | |
138 | JMP .-1 | |
139 | CLA | |
140 | JMS I (CRLF | |
141 | TAD TEMP | |
142 | JMP COMN | |
143 | \fOS8IN, TAD I (7600 | |
144 | TAD (-4207 | |
145 | SZA CLA | |
146 | JMP RETRY | |
147 | TAD I (1000 | |
148 | TAD (777 | |
149 | SNA CLA | |
150 | TAD (600 | |
151 | TAD (1000-1 | |
152 | DCA SCAN | |
153 | SKAN, TAD I SCAN | |
154 | SNA | |
155 | JMP RETRY | |
156 | AND (177 | |
157 | TAD (-"/!7600 | |
158 | SZA CLA | |
159 | JMP SKAN | |
160 | TAD I SCAN | |
161 | AND (77 | |
162 | CLL RTL | |
163 | RTL | |
164 | RTL | |
165 | DCA TEMP | |
166 | TAD I SCAN | |
167 | AND (77 | |
168 | TAD TEMP | |
169 | DCA TEMP | |
170 | TAD I SCAN | |
171 | AND (177 | |
172 | TAD (-".!7600 | |
173 | DCA HLTSWT | |
174 | TAD TEMP | |
175 | JMP COMN | |
176 | ||
177 | TEMP, 0 | |
178 | PAGE | |
179 | \fTABLE, 2403 /TC | |
180 | DECTAP | |
181 | 7554 | |
182 | 25 | |
183 | 7554 | |
184 | ||
185 | 2213 /RK | |
186 | RKADR, RK8 | |
187 | 21 | |
188 | 11 | |
189 | 21 | |
190 | ||
191 | 2404 /TD | |
192 | TD8E | |
193 | 7277 | |
194 | 34 | |
195 | 7277 | |
196 | ||
197 | 1424 /LT | |
198 | LINCTP | |
199 | 4400 | |
200 | 7 | |
201 | 4400 | |
202 | ||
203 | 2206 /RF | |
204 | RF08 | |
205 | 7746 | |
206 | 7 | |
207 | 7746 | |
208 | ||
209 | 2024 /PT | |
210 | BINLDR | |
211 | 7626 | |
212 | 152 | |
213 | 7700 | |
214 | ||
215 | 3205 /ZE | |
216 | ZERO | |
217 | 4 | |
218 | 6 | |
219 | 4 | |
220 | ||
221 | 2431 /TY | |
222 | TYPSET | |
223 | 7730 | |
224 | 42 | |
225 | 7730 | |
226 | ||
227 | 0414 /DL | |
228 | DIAL | |
229 | 4012 | |
230 | 6 | |
231 | 4012 | |
232 | ||
233 | 0301 /CA | |
234 | CAS | |
235 | 4000 | |
236 | 40 | |
237 | 4000 | |
238 | ||
239 | 0415 /DM | |
240 | DSKMON | |
241 | 171 | |
242 | 16 | |
243 | 174 | |
244 | ||
245 | 2605 /VE | |
246 | VERS | |
247 | VERS | |
248 | 1 | |
249 | VERS | |
250 | ||
251 | 0424 /DT | |
252 | TAPE | |
253 | TAPE | |
254 | 1 | |
255 | TAPE | |
256 | ||
257 | 0413 /DK | |
258 | DISK | |
259 | DISK | |
260 | 1 | |
261 | DISK | |
262 | ||
263 | 2205 /RE | |
264 | RK8E | |
265 | 21 | |
266 | 11 | |
267 | 21 | |
268 | ||
269 | 2523 /US | |
270 | 1 | |
271 | 1 | |
272 | 1 | |
273 | RETRY | |
274 | ||
275 | 2230 /RX | |
276 | RX01 | |
277 | RX8E | |
278 | 36 | |
279 | RXSTRT | |
280 | ||
281 | ZBLOCK 4^5 /PATCH SPACE | |
282 | ||
283 | 0 | |
284 | ||
285 | /FORMAT: | |
286 | ||
287 | /SIXBIT OF 2-CHARACTER NAME | |
288 | /ADDRESS OF BOOTSTRAP CODE IN BOOT | |
289 | /ADDRESS WHERE BOOTSTRAP CODE IS TO BE MOVED TO | |
290 | /LENGTH OF BOOTSTRAP IN WORDS | |
291 | /STARTING ADDRESS OF BOOTSTRAP | |
292 | \fDECTAP, 7600 | |
293 | 6774 | |
294 | 1374 | |
295 | 6766 | |
296 | 6771 | |
297 | 5360 | |
298 | 7240 | |
299 | 1354 | |
300 | 3773 | |
301 | 1354 | |
302 | 3772 | |
303 | 1375 | |
304 | 6766 | |
305 | 5376 | |
306 | 7754 | |
307 | 7755 | |
308 | 0600 | |
309 | 0220 | |
310 | 6771 | |
311 | 5376 | |
312 | \fRK8, 6732 | |
313 | 6751 | |
314 | 6745 | |
315 | 5023 | |
316 | 6742 | |
317 | 6753 | |
318 | 6755 | |
319 | 6733 | |
320 | 5031 | |
321 | ||
322 | RK8E, 7000 | |
323 | 7000 | |
324 | 7000 | |
325 | 7000 | |
326 | 7201 | |
327 | 6742 | |
328 | 6742 | |
329 | 6743 | |
330 | 5031 | |
331 | \fTD8E, 6007 | |
332 | 1312 | |
333 | 4312 | |
334 | 4312 | |
335 | 6773 | |
336 | 5303 | |
337 | 6777 | |
338 | 3726 | |
339 | 2326 | |
340 | 5303 | |
341 | 5732 | |
342 | 2000 | |
343 | 1300 | |
344 | 6774 | |
345 | 6771 | |
346 | 5315 | |
347 | 6776 | |
348 | 0331 | |
349 | 1327 | |
350 | 7640 | |
351 | 5315 | |
352 | 2321 | |
353 | 5712 | |
354 | 7354 | |
355 | 7756 | |
356 | 7747 | |
357 | 0077 | |
358 | 7400 | |
359 | \fLINCTP, 6141 | |
360 | 1020 | |
361 | 0020 | |
362 | 0004 | |
363 | 0700 | |
364 | 0000 | |
365 | 6020 | |
366 | \fRF08, 6643 | |
367 | 6615 | |
368 | 7600 | |
369 | 6603 | |
370 | 6622 | |
371 | 5352 | |
372 | 5752 | |
373 | \f/ 1000 IS OS/8 LINE BUUFFER | |
374 | / 1600 IS PS/8 LINE BUFFERE | |
375 | ||
376 | *2000 | |
377 | ||
378 | BINLDR, 0000 | |
379 | 3212 | |
380 | 4260 | |
381 | 1300 | |
382 | 7750 | |
383 | 5237 | |
384 | 2212 | |
385 | 7040 | |
386 | 5227 | |
387 | 1212 | |
388 | 7640 | |
389 | 5230 | |
390 | 1214 | |
391 | 0274 | |
392 | 1341 | |
393 | 7510 | |
394 | 2226 | |
395 | 7750 | |
396 | 5626 | |
397 | 1214 | |
398 | 0256 | |
399 | 1257 | |
400 | 3213 | |
401 | 5230 | |
402 | 0070 | |
403 | 6201 | |
404 | 0000 | |
405 | 0000 | |
406 | 6031 | |
407 | 5262 | |
408 | 6036 | |
409 | 3214 | |
410 | 1214 | |
411 | 5660 | |
412 | 6011 | |
413 | 5270 | |
414 | 6016 | |
415 | 5265 | |
416 | 0300 | |
417 | 4343 | |
418 | 7041 | |
419 | 1215 | |
420 | 7402 | |
421 | 6032 | |
422 | 6014 | |
423 | 6214 | |
424 | 1257 | |
425 | 3213 | |
426 | 7604 | |
427 | 7700 | |
428 | 1353 | |
429 | 1352 | |
430 | 3261 | |
431 | 4226 | |
432 | 5313 | |
433 | 3215 | |
434 | 1213 | |
435 | 3336 | |
436 | 1214 | |
437 | 3376 | |
438 | 4260 | |
439 | 3355 | |
440 | 4226 | |
441 | 5275 | |
442 | 4343 | |
443 | 7420 | |
444 | 5336 | |
445 | 3216 | |
446 | 1376 | |
447 | 1355 | |
448 | 1215 | |
449 | 5315 | |
450 | 0000 | |
451 | 3616 | |
452 | 2216 | |
453 | 7600 | |
454 | 5332 | |
455 | 0000 | |
456 | 1376 | |
457 | 7106 | |
458 | 7006 | |
459 | 7006 | |
460 | 1355 | |
461 | 5743 | |
462 | 5262 | |
463 | 0006 | |
464 | 0000 | |
465 | 0000 | |
466 | 6014 | |
467 | 6011 | |
468 | 5357 | |
469 | 6016 | |
470 | 7106 | |
471 | 7006 | |
472 | 7510 | |
473 | 5374 | |
474 | 7006 | |
475 | 6011 | |
476 | 5367 | |
477 | 6016 | |
478 | 7420 | |
479 | 3776 | |
480 | 3376 | |
481 | 5357 | |
482 | 0000 | |
483 | 5301 | |
484 | \fZERO, 1005 | |
485 | 3410 | |
486 | 5004 | |
487 | 5404 | |
488 | 0011 | |
489 | 2010 | |
490 | \fDIAL, 6141 | |
491 | 1020 | |
492 | 0020 | |
493 | 0004 | |
494 | 0701 | |
495 | 7300 | |
496 | \f/ 7300 | |
497 | / 6002 | |
498 | / 6042 | |
499 | / 6022 | |
500 | / 6012 | |
501 | / 6032 | |
502 | / 6601 | |
503 | / 6764 | |
504 | / 1221 | |
505 | / 3010 | |
506 | / 1622 | |
507 | / 2222 | |
508 | / 7450 | |
509 | / 5620 | |
510 | / 3410 | |
511 | / 5212 | |
512 | / 7730 | |
513 | / 7727 | |
514 | / 0223 | |
515 | TYPSET, 6774 | |
516 | 1347 | |
517 | 4341 | |
518 | 7240 | |
519 | 1353 | |
520 | 3355 | |
521 | 1352 | |
522 | 4341 | |
523 | 5753 | |
524 | 7777 | |
525 | 6766 | |
526 | 3354 | |
527 | 6771 | |
528 | 5344 | |
529 | 5741 | |
530 | 4600 | |
531 | 7777 | |
532 | 7777 | |
533 | 4220 | |
534 | 7400 | |
535 | 7777 | |
536 | 7777 | |
537 | 7777 | |
538 | 6014 | |
539 | 6011 | |
540 | 5360 | |
541 | 7106 | |
542 | 6012 | |
543 | 7420 | |
544 | 5357 | |
545 | 5756 | |
546 | 4356 | |
547 | 3373 | |
548 | 4356 | |
549 | \fPTCLEV, "A | |
550 | L3, "4 | |
551 | LV, "V | |
552 | VERS, TAD LV | |
553 | JMS I (PUT | |
554 | TAD L3 | |
555 | JMS I (PUT | |
556 | TAD PTCLEV | |
557 | JMS I (PUT | |
558 | JMP I PRETRY | |
559 | PRETRY, RETRY | |
560 | \fDSKMON, 7577 | |
561 | 7750 | |
562 | 7751 | |
563 | 1171 | |
564 | 3572 | |
565 | 1172 | |
566 | 3573 | |
567 | 6643 | |
568 | 6615 | |
569 | 6603 | |
570 | 6602 | |
571 | 5203 | |
572 | 5606 | |
573 | 7600 | |
574 | \fCAS, 1237 | |
575 | 1206 | |
576 | 6704 | |
577 | 6706 | |
578 | 6703 | |
579 | 5204 | |
580 | 7264 | |
581 | 6702 | |
582 | 7610 | |
583 | 3211 | |
584 | 3636 | |
585 | 1205 | |
586 | 6704 | |
587 | 6706 | |
588 | 6701 | |
589 | 5216 | |
590 | 7002 | |
591 | 7430 | |
592 | 1636 | |
593 | 7022 | |
594 | 3636 | |
595 | 7420 | |
596 | 2236 | |
597 | 2235 | |
598 | 5215 | |
599 | 7346 | |
600 | 7002 | |
601 | 3235 | |
602 | 5201 | |
603 | 7737 | |
604 | 3557 | |
605 | 7730 | |
606 | \f LCD=6751 | |
607 | SDN=6755 | |
608 | SER=6754 | |
609 | STR=6753 | |
610 | XDR=6752 | |
611 | ||
612 | RX01, RELOC 24 | |
613 | ||
614 | RX8E, STL RTL | |
615 | TAD UNIT /GET A READ COMMAND ON THE PROPER | |
616 | LCD /UNIT AND LOAD IT INTO THE COMMAND REGISTER | |
617 | CLA IAC | |
618 | JMS LOAD /READ SECTOR ONE | |
619 | JMS LOAD /OF TRACK ONE. | |
620 | CLL RAL /SET AC = 2 AS FLAG SAYING WE READ TRACK 1 | |
621 | ||
622 | RXSTRT, /** BOOTSTRAP START ADDR ** | |
623 | HANGGG, SDN /DO A FIGURE-8 SKIP - | |
624 | JMP LOAD+1 /ONLY THE DONE FLAG WILL COME UP | |
625 | SER /ANY ERRORS? | |
626 | SNA /OR IS THIS THE INITIAL DUMMY WAIT? | |
627 | SKP CLA /IF EITHER ONE, TRY OTHER DRIVE | |
628 | JMP GOODRD /IF ALL IS WELL, GO READ THE SECTOR BUFFER | |
629 | TAD UNIT /COME HERE ON READ ERRORS - | |
630 | CIA /FLIP THE UNIT NUMBER | |
631 | TAD X6030 /IN "UNIT" | |
632 | DCA UNIT | |
633 | JMP RX8E | |
634 | GOODRD, LCD /LOAD THE EMPTY SECTOR BUFFER COMMAND ( A CONVENIENT 2) | |
635 | LP, JMS LOAD /GET A WORD FROM THE SECTOR BUFFER | |
636 | DCA 2 /SECONDARY BOOT LOADS INTO LOCATIONS 2-51 | |
637 | ISZ .-1 /BUMP STORE ADDRESS | |
638 | JMP LP | |
639 | ||
640 | LOAD, 0 | |
641 | STR /DO A FIGURE-8 LOOP WAITING FOR THE TRANSFER | |
642 | JMP HANGGG /OR DONE FLAGS TO COME UP. | |
643 | XDR /TRANSFER FLAG CAME UP - TRANSFER A WORD | |
644 | JMP I LOAD | |
645 | ||
646 | UNIT, 7024 /7004 = DRIVE 0, 7024 = DRIVE 1 | |
647 | X6030, 6030 /CONSTANT NEEDED TO FLIP UNIT - 7004+7024. | |
648 | ||
649 | RELOC | |
650 | PAGE | |
651 | \fL2213, 2213 | |
652 | DIML=6615 | |
653 | DISK, CLA IAC | |
654 | DIML | |
655 | SNA CLA | |
656 | JMP GOTRF | |
657 | TAD (70 | |
658 | 6732 | |
659 | SNA CLA | |
660 | JMP GOTRK8 | |
661 | CLA IAC | |
662 | 6744 | |
663 | SZA CLA | |
664 | JMP I PRETR | |
665 | STA /RE | |
666 | GOTRF, TAD L2206 /RF | |
667 | JMP I PCOMN | |
668 | L2206, 2206 | |
669 | GOTRK8, TAD L2213 /RK | |
670 | JMP I PCOMN | |
671 | PRETR, RETRY | |
672 | \fTAPE, 6141 /LINC | |
673 | 17 /COMPL AC | |
674 | 2 /PDP | |
675 | IAC | |
676 | SNA CLA | |
677 | JMP GOTLTA | |
678 | TAD (70 | |
679 | 6774 | |
680 | CLA | |
681 | 6772 | |
682 | NOP | |
683 | TAD M70 | |
684 | SNA CLA | |
685 | JMP GOTTC | |
686 | STL CLA RAR | |
687 | 6774 | |
688 | CLA | |
689 | 6776 | |
690 | SMA CLA | |
691 | JMP I PRETR | |
692 | GOTTD, CLA IAC | |
693 | GOTTC, TAD L2403 /TC | |
694 | JMP I PCOMN | |
695 | GOTLTA, TAD L1424 /LT | |
696 | JMP I PCOMN | |
697 | L1424, 1424 | |
698 | L2403, 2403 | |
699 | PCOMN, COMN | |
700 | M70, -70 | |
701 | / 0000 | |
702 | \fCRLF, 0 | |
703 | TAD L215 | |
704 | JMS PUT | |
705 | TAD L212 | |
706 | JMS PUT | |
707 | JMP I CRLF | |
708 | ||
709 | L215, 215 | |
710 | L212, 212 | |
711 | ||
712 | PUT, 0 | |
713 | TLS | |
714 | TSF | |
715 | JMP .-1 | |
716 | CLA | |
717 | JMP I PUT | |
718 | ||
719 | GET, 0 | |
720 | KSF | |
721 | JMP .-1 | |
722 | KRB | |
723 | AND (177 | |
724 | TLS | |
725 | TSF | |
726 | JMP .-1 | |
727 | TAD (-003 | |
728 | SNA | |
729 | JMP I (7605 | |
730 | TAD (003-177 | |
731 | SNA | |
732 | JMP I (RETRY | |
733 | TAD (177-015 | |
734 | SNA | |
735 | ISZ GET | |
736 | TAD (015 | |
737 | AND (77 | |
738 | JMP I GET | |
739 | ||
740 | TESTRK, 0 | |
741 | TAD (70 | |
742 | 6732 | |
743 | SNA CLA | |
744 | JMP I TESTRK | |
745 | RK05, TAD (RK8E | |
746 | DCA I (RKADR | |
747 | JMP I TESTRK | |
748 | ||
749 | FIELD 0 | |
750 | *200 | |
751 | $ |