File: BOOT50.LS of Disk: V50/Source/Source-Listing-MAC-1
(Source file text)
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 1
FILE # 1
1 /BOOT FOR KBM V50
2 /
3 /
4 /
5 /
6 /
7 /
8 /
9 /
10 /
11 /COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION
12 / AND 1979 BY DATAPLAN GMBH
13 / AND 2015 W. VAN DER MARK
14 /
15 /
16 /
17 /
18 /
19 /
20 /
21 /
22 /
23 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE
24 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT
25 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY
26 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT.
27 /
28 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER
29 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED
30 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH
31 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL.
32 /
33 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE
34 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY
35 /DIGITAL.
36 /
37 /
38 /
39 /
40 /
41 /
42 /
43 /
44 /
45 /
46 /
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 2
FILE # 1
47
48
49 /SR
50
51 /FIXES MADE FOR MAINTENANCE RELEASE:
52
53 /1. ADDED RX01 (FLOPPY BOOTSTRAP)
54 /2. LEFT PATCH SPACE IN NAME TABLE
55
56 / 26-DEC-77
57
58 /1. ADDED RL BOOTSTRAP (S.R.)
59
60 /WVDM
61 /1. LOWER CASE
62 /2. MACREL
63 /3. MULTI8
64 /4. GERMAN
65 /5. SI DISK
66
67 /INSTRUCTIONS THAT GENERATE CONSTANTS
68
69 7201 AC0001=CLA IAC
70 7326 AC0002=CLA CLL CML RTL
71 7325 AC0003=CLA CLL CML IAC RAL
72 7307 AC0004=CLA CLL IAC RTL
73 7327 AC0006=CLA CLL CML IAC RTL
74 7203 AC0100=CLA IAC BSW
75 7332 AC2000=CLA CLL CML RTR
76 7350 AC3777=CLA CLL CMA RAR
77 7330 AC4000=CLA CLL CML RAR
78 7352 AC5777=CLA CLL CMA RTR
79 7333 AC6000=CLA CLL CML IAC RTR
80 7346 AC7775=CLA CLL CMA RTL
81 7344 AC7776=CLA CLL CMA RAL
82
83 / GERMAN=1 /NOT ANYMORE
84
85
86 0200 .ASECT BOOT,ROOT
87 0000 FIELD 0
88 2000 *2000
89 2000 .START START,0
90 7403 .JSW 7403
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 3
FILE # 1
91
92
93 02000 7200 START, CLA /ALLOW BEING CHAINED TO
94 02001 6002 IOF
95 02002 1777 TAD I (7600
96 02003 7710 SPA CLA
97 02004 5261 JMP OS8IN
98 02005 2325 ISZ INNER
99 02006 5205 JMP .-1
100 02007 2326 ISZ OUTR
101 02010 5205 JMP .-3
102 02011 4776 JMS I (TESTRK
103 02012 1775 COSIN, TAD I (7776
104 02013 7041 COMN, CIA
105 02014 3327 DCA CODE
106 02015 1374 TAD (TABLE
107 02016 3333 DCA PTR
108 02017 1733 LOOP, TAD I PTR
109 02020 7450 SNA
110 02021 5773 JMP I (OS8
111 02022 1327 TAD CODE
112 02023 7640 SZA CLA
113 02024 5255 JMP NXT
114 02025 2333 ISZ PTR
115 02026 1733 TAD I PTR
116 02027 3331 DCA OLDLOC
117 02030 2333 ISZ PTR
118 02031 1733 TAD I PTR
119 02032 3332 DCA NEWLOC
120 02033 2333 ISZ PTR
121 02034 1733 TAD I PTR
122 02035 7041 CIA
123 02036 3330 DCA LENGTH
124 02037 1731 XXLUP, TAD I OLDLOC
125 02040 3732 DCA I NEWLOC
126 02041 2331 ISZ OLDLOC
127 02042 2332 ISZ NEWLOC
128 02043 2330 ISZ LENGTH
129 02044 5237 JMP XXLUP
130 02045 2333 ISZ PTR
131 02046 1733 TAD I PTR
132 02047 3335 DCA TEMP
133 02050 1324 TAD HLTSWT
134 02051 7650 SNA CLA
135 02052 7402 HLT
136 02053 7100 CLL
137 02054 5735 JMP I TEMP
138
139 02055 1333 NXT, TAD PTR
140 02056 1372 TAD (5
141 02057 3333 DCA PTR
142 02060 5217 JMP LOOP
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 4
FILE # 1
143
144
145 02061 1777 OS8IN, TAD I (7600
146 02062 1371 TAD (-4207
147 02063 7640 SZA CLA
148 02064 5770 JMP I (RETRY
149 02065 1767 TAD I (1000
150 02066 1366 TAD (777
151 02067 7650 SNA CLA
152 02070 1365 TAD (600
153 02071 1366 TAD (1000-1
154 02072 3334 DCA SCAN
155 02073 2334 SKAN, ISZ SCAN
156 02074 1734 TAD I SCAN
157 02075 7450 SNA
158 02076 5770 JMP I (RETRY
159 02077 0364 AND (177
160 02100 1363 TAD (-<"/&177>
161 02101 7640 SZA CLA
162 02102 5273 JMP SKAN
163 02103 2334 ISZ SCAN
164 02104 1734 TAD I SCAN
165 02105 0362 AND (37
166 02106 7002 BSW
167 02107 3335 DCA TEMP
168 02110 2334 ISZ SCAN
169 02111 1734 TAD I SCAN
170 02112 0362 AND (37
171 02113 1335 TAD TEMP
172 02114 3335 DCA TEMP
173 02115 2334 ISZ SCAN
174 02116 1734 TAD I SCAN
175 02117 0364 AND (177
176 02120 1361 TAD (-<".&177>
177 02121 3324 DCA HLTSWT
178 02122 1335 TAD TEMP
179 02123 5213 JMP COMN
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 5
FILE # 1
180
181
182 02124 0001 HLTSWT, 1
183 02125 0000 INNER, 0
184 02126 7760 OUTR, -20
185 02127 0000 CODE, 0
186 02130 0000 LENGTH, 0
187 02131 0000 OLDLOC, 0
188 02132 0000 NEWLOC, 0
189 02133 0000 PTR, 0
190 02134 0000 SCAN, 0
191 02135 0000 TEMP, 0
------
02161 7722
02162 0037
02163 7721
02164 0177
02165 0600
02166 0777
02167 1000
02170 2404
02171 3571
02172 0005
02173 2400
02174 2600
02175 7776
02176 2337
02177 7600
192 2200 PAGE
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 6
FILE # 1
193
194
195 02200 0326 LV, "V
196 02201 0265 V1, "5
197 02202 0260 V2, "0
198 02203 0330 PTCLEV, "X
199
200 02204 1200 VERS, TAD LV
201 02205 4306 JMS PUT
202 02206 1201 TAD V1
203 02207 4306 JMS PUT
204 02210 1202 TAD V2
205 02211 4306 JMS PUT
206 02212 1203 TAD PTCLEV
207 02213 4306 JMS PUT
208 02214 5777 JMP I (RETRY
209
210 6615 DIML=6615
211 02215 7201 DISK, CLA IAC
212 02216 6615 DIML
213 02217 7650 SNA CLA
214 02220 5243 JMP GOTRF
215 02221 1376 TAD (70
216 02222 6732 6732
217 02223 7650 SNA CLA
218 02224 5245 JMP GOTRK8
219 02225 7201 CLA IAC
220 02226 6744 6744
221 02227 7650 SNA CLA
222 02230 5242 JMP GOTRE
223 02231 7240 STA
224 02232 6512 6512
225 02233 7200 CLA
226 02234 6513 6513
227 02235 1375 TAD (-17
228 02236 7640 SZA CLA
229 02237 5777 JMP I (RETRY
230 02240 1374 TAD ('SI
231 02241 5773 JMP I (COMN
232
233 02242 7240 GOTRE, STA /RE
234 02243 1372 GOTRF, TAD ('RF /RF
235 02244 5773 JMP I (COMN
236 02245 1371 GOTRK8, TAD ('RK /RK
237 02246 5773 JMP I (COMN
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 7
FILE # 1
238
239
240 02247 6141 TAPE, 6141 /LINC
241 02250 0017 17 /COMPL AC
242 02251 0002 2 /PDP
243 02252 7001 IAC
244 02253 7650 SNA CLA
245 02254 5276 JMP GOTLTA
246 02255 1376 TAD (70
247 02256 6774 6774
248 02257 7200 CLA
249 02260 6772 6772
250 02261 7000 NOP
251 02262 1370 TAD (-70
252 02263 7650 SNA CLA
253 02264 5274 JMP GOTTC
254 02265 7330 AC4000
255 02266 6774 6774
256 02267 7200 CLA
257 02270 6776 6776
258 02271 7700 SMA CLA
259 02272 5777 JMP I (RETRY
260
261 02273 7201 GOTTD, CLA IAC
262 02274 1367 GOTTC, TAD ('TC /TC
263 02275 5773 JMP I (COMN
264 02276 1366 GOTLTA, TAD ('LT /LT
265 02277 5773 JMP I (COMN
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 8
FILE # 1
266
267
268 02300 0000 CRLF, 0
269 02301 1365 TAD (215
270 02302 4306 JMS PUT
271 02303 1364 TAD (212
272 02304 4306 JMS PUT
273 02305 5700 JMP I CRLF
274
275 02306 0000 PUT, 0
276 02307 6046 TLS
277 02310 6041 TSF
278 02311 5310 JMP .-1
279 02312 7200 CLA
280 02313 5706 JMP I PUT
281
282 02314 0000 GET, 0
283 02315 6031 KSF
284 02316 5315 JMP .-1
285 02317 6036 KRB
286 02320 0363 AND (177
287 02321 6046 TLS
288 02322 6041 TSF
289 02323 5322 JMP .-1
290 02324 1362 TAD (-003
291 02325 7450 SNA
292 02326 5761 JMP I (7605
293 02327 1360 TAD (003-177
294 02330 7450 SNA
295 02331 5777 JMP I (RETRY
296 02332 1357 TAD (177-015
297 02333 7440 SZA
298 02334 2314 ISZ GET
299 02335 1356 TAD (015
300 02336 5714 JMP I GET
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 9
FILE # 1
301
302
303 02337 0000 TESTRK, 0
304 02340 1376 TAD (70
305 02341 6732 6732
306 02342 7650 SNA CLA
307 02343 5737 JMP I TESTRK
308 02344 1355 RK05, TAD (RK8E
309 02345 3754 DCA I (RKADR
310 02346 5737 JMP I TESTRK
------
02354 2606
02355 3035
02356 0015
02357 0162
02360 7604
02361 7605
02362 7775
02363 0177
02364 0212
02365 0215
02366 1424
02367 2403
02370 7710
02371 2213
02372 2206
02373 2013
02374 2311
02375 7761
02376 0070
02377 2404
311 2400 PAGE
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 10
FILE # 1
312
313
314 OS8,
315 .IF NDF GERMAN <
316 02400 1377 TAD ("N
317 02401 4776 JMS I (PUT
318 02402 1375 TAD ("O
319 02403 4776 JMS I (PUT
320 >
321 .IF DF GERMAN <
322 TAD ("N
323 JMS I (PUT
324 TAD ("e
325 JMS I (PUT
326 TAD ("i
327 JMS I (PUT
328 TAD ("n
329 JMS I (PUT
330 >
331 02404 7300 RETRY, CLA CLL
332 02405 4774 JMS I (CRLF
333 02406 1373 TAD ("/
334 02407 4776 JMS I (PUT
335 02410 4772 JMS I (GET
336 02411 5204 JMP RETRY
337 02412 0371 AND (37
338 02413 7002 BSW
339 02414 3770 DCA I (TEMP
340 02415 4772 JMS I (GET
341 02416 5204 JMP RETRY
342 02417 0371 AND (37
343 02420 1770 TAD I (TEMP
344 02421 3770 DCA I (TEMP
345 02422 4772 RETMOR, JMS I (GET
346 02423 5227 JMP RETEND
347 02424 1367 TAD (-<".&177>
348 02425 3766 DCA I (HLTSWT
349 02426 5222 JMP RETMOR
350 02427 7300 RETEND, CLA CLL
351 02430 4774 JMS I (CRLF
352 02431 1770 TAD I (TEMP
353 02432 5765 JMP I (COMN
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 11
FILE # 1
354
355
356 /
------
02565 2013
02566 2124
02567 7722
02570 2135
02571 0037
02572 2314
02573 0257
02574 2300
02575 0317
02576 2306
02577 0316
357 2600 PAGE
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 12
FILE # 1
358
359
360 /FORMAT:
361 /
362 /SIXBIT OF 2-CHARACTER NAME
363 /ADDRESS OF BOOTSTRAP CODE IN BOOT
364 /ADDRESS WHERE BOOTSTRAP CODE IS TO BE MOVED TO
365 /LENGTH OF BOOTSTRAP IN WORDS
366 /STARTING ADDRESS OF BOOTSTRAP
367
368 02600 2403 TABLE, 'TC
369 02601 3000 DECTAP
370 02602 7554 7554
371 02603 0025 25
372 02604 7554 7554
373
374 02605 2213 'RK
375 02606 3024 RKADR, RK8
376 02607 0021 21
377 02610 0011 11
378 02611 0021 21
379
380 02612 2404 'TD
381 02613 3046 TD8E
382 02614 7277 TD8EST
383 02615 0034 34
384 02616 7277 TD8EST
385
386 02617 1424 'LT
387 02620 3102 LINCTP
388 02621 4400 4400
389 02622 0007 7
390 02623 4400 4400
391
392 02624 2206 'RF
393 02625 3111 RF08
394 02626 7746 7746
395 02627 0007 7
396 02630 7746 7746
397
398 02631 2024 'PT
399 02632 3142 BINLDR
400 02633 7612 7612
401 02634 0166 166
402 02635 7700 7700
403
404 02636 3205 'ZE
405 02637 3330 ZERO
406 02640 0004 ZERSTR
407 02641 0006 6
408 02642 0004 ZERSTR
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 13
FILE # 1
409
410
411 02643 2431 'TY
412 02644 3353 TYPSET
413 02645 7730 7730
414 02646 0042 42
415 02647 7730 7730
416
417 02650 0414 'DL
418 02651 3336 DIAL
419 02652 4012 4012
420 02653 0006 6
421 02654 4012 4012
422
423 02655 0301 'CA
424 02656 3433 CAS
425 02657 4000 4000
426 02660 0040 40
427 02661 4000 4000
428
429 02662 0415 'DM
430 02663 3415 DSKMON
431 02664 0171 171
432 02665 0016 16
433 02666 0174 174
434
435 02667 2605 'VE
436 02670 2204 VERS
437 02671 2204 VERS
438 02672 0001 1
439 02673 2204 VERS
440
441 02674 0424 'DT
442 02675 2247 TAPE
443 02676 2247 TAPE
444 02677 0001 1
445 02700 2247 TAPE
446
447 02701 0413 'DK
448 02702 2215 DISK
449 02703 2215 DISK
450 02704 0001 1
451 02705 2215 DISK
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 14
FILE # 1
452
453
454 02706 2205 'RE
455 02707 3035 RK8E
456 02710 0021 RK8EST
457 02711 0011 11
458 02712 0021 RK8EST
459
460 02713 2311 'SI
461 02714 3120 SIDK
462 02715 0000 SIDKST
463 02716 0006 6
464 02717 0000 SIDKST
465
466 02720 2230 'RX
467 02721 3473 RX01
468 02722 0020 RX8E
469 02723 0042 42
470 02724 0033 RXSTRT
471
472 02725 2214 'RL
473 02726 3535 RL01
474 02727 0001 RLPRIM
475 02730 0035 35
476 02731 0001 RLPRIM
477
478 02732 2630 'VX
479 02733 3344 VXA0
480 02734 0000 VXSTR
481 02735 0007 7
482 02736 0000 VXSTR
483
484 02737 1525 'MU
485 02740 3126 M8
486 02741 0020 M8STR
487 02742 0014 14
488 02743 0020 M8STR
489
490 02744 0000 ZBLOCK 3^5 /PATCH SPACE
491
492 02763 0000 0
493 3000 PAGE
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 15
FILE # 1
494
495
496 03000 7600 DECTAP, 7600
497 03001 6774 6774
498 03002 1374 1374
499 03003 6766 6766
500 03004 6771 6771
501 03005 5360 5360
502 03006 7240 7240
503 03007 1354 1354
504 03010 3773 3773
505 03011 1354 1354
506 03012 3772 3772
507 03013 1375 1375
508 03014 6766 6766
509 03015 5376 5376
510 03016 7754 7754
511 03017 7755 7755
512 03020 0600 0600
513 03021 0220 0220
514 03022 6771 6771
515 03023 5376 5376
516
517 03024 6732 RK8, 6732
518 03025 6751 6751
519 03026 6745 6745
520 03027 5023 5023
521 03030 6742 6742
522 03031 6753 6753
523 03032 6755 6755
524 03033 6733 6733
525 03034 5031 5031
526
527 3035 RK8E, RELOC 21
528 00021* 7000 RK8EST, NOP
529 00022* 7000 NOP
530 00023* 7000 NOP
531 00024* 7000 NOP
532 00025* 7201 AC0001
533 00026* 6742 6742
534 00027* 6742 6742
535 00030* 6743 6743
536 00031* 5031 JMP .
537 3046 RELOC
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 16
FILE # 1
538
539
540 /TD8E, RELOC 7300-1
541 /TD8EST,6007
542 / 1312
543 / 4312
544 / 4312
545 / 6773
546 / 5303
547 / 6777
548 / 3726
549 / 2326
550 / 5303
551 / 5732
552 / 2000
553 / 1300
554 / 6774
555 / 6771
556 / 5315
557 / 6776
558 / 0331
559 / 1327
560 / 7640
561 / 5315
562 / 2321
563 / 5712
564 / 7354
565 / 7756
566 / 7747
567 / 0077
568 / 7400
569
570 3046 RELOC
571 /TD8E BOOTSTRAP
572 /
573 6773 SDSQ=6773
574 6777 SDRD=6777
575 6774 SDLC=6774
576 6771 SDSS=6771
577 6776 SDRC=6776
578
579 3046 TD8E, RELOC 7300-1
580 07277* 6007 TD8EST, 6007
581 07300* 1312 K1000, TAD GETTD /PUT DRIVE IN REVERSE
582 07301* 4312 JMS GETTD /LOOK FOR END ZONE
583 07302* 4312 JMS GETTD /LOOK FOR 31 CODE
584 07303* 6773 RD, SDSQ /NOW READ ALL INTO CORE
585 07304* 5303 JMP .-1
586 07305* 6777 SDRD /READ 12 BIT WORD
587 07306* 3726 DCA I WCT /AND PUT IT IN CORE
588 07307* 2326 ISZ WCT
589 07310* 5303 JMP RD /LOOP UNTIL FIELD 0
590 07311* 5732 JMP I STRT /IS LOADED, THEN START
591 07312* 2000 GETTD, 2000
592 07313* 1300 TAD K1000 /SET MOTION &DIRECTION
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 16-1
FILE # 1
593 07314* 6774 SDLC
594 07315* 6771 BSRCH, SDSS /WAIT FOR 22 OR 31 CODE
595 07316* 5315 JMP .-1 /22 IS END ZONE, 31 IS
596 07317* 6776 SDRC /4 WORDS BEFORE DATA
597 07320* 0331 AND K77 /IS THIS WHAT WE WANT?
598 07321* 1327 TAD BM22 /THIS GETS INCREMENTED
599 07322* 7640 SZA CLA /IF YES, RETURN.
600 07323* 5315 JMP BSRCH /NO.KEEP LOOKING.
601 07324* 2321 ISZ .-3 /LOOK FOR NEXT IN LIST
602 07325* 5712 JMP I GETTD
603 07326* 7354 WCT, 7354 /START LOADING CORE AT 7354
604 07327* 7756 BM22, -22 /THE OTHER BOOTSTRAP GETS
605 07330* 7747 -31 /LOADED AT 7400.
606 07331* 0077 K77, 77
607 07332* 7400 STRT, 7400
608
609 3102 RELOC
610
611
612 03102 6141 LINCTP, 6141
613 03103 1020 1020
614 03104 0020 0020
615 03105 0004 0004
616 03106 0700 0700
617 03107 0000 0000
618 03110 6020 6020
619
620 03111 6643 RF08, 6643
621 03112 6615 6615
622 03113 7600 7600
623 03114 6603 6603
624 03115 6622 6622
625 03116 5352 5352
626 03117 5752 5752
627
628 /SI3040 BOOTSTRAP
629 3120 SIDK, RELOC 0
630 /SIDKST,6502
631 / 0000
632 / 6517
633 / 6512
634 / 6514
635 / JMP .
636 / RELOC
637
638 6502 DLCR=6502
639 6517 DWCA=6517
640 6512 DLSR=6512
641 6514 DLTR=6514
642
643 00000* 6502 SIDKST, DLCR /ASSURE DATA FIELD 0 (ALSO WORD COUNT)
644 00001* 0000 0 /START CORE ADDRESS
645 00002* 6517 DWCA /SET WC, CA FROM 0 AND 1
646 00003* 6512 DLSR /SECTOR 0
647 00004* 6514 DLTR /READ FROM TRACK ZERO, UNIT 0
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 16-2
FILE # 1
648 00005* 5005 JMP . /WAIT FOR DSDD;JMP .-1 OVERLAY
649 3126 RELOC
650
651 3126 M8, RELOC 20
652 00020* 6007 M8STR, CAF
653 00021* 6254 6254 /SM8
654 00022* 7402 HLT
655 00023* 6000 6000 /MULTI8 HANDLER CALL
656 00024* 5030 JMP .+4
657 00025* 0200 200 /2 PAGES
658 00026* 7400 7400 /IN 7400
659 00027* 0000 0 /BLOCK 0
660 00030* 7440 SZA /AC = 0 OK
661 00031* 7402 HLT
662 00032* 5433 JMP I .+1
663 00033* 7400 7400 /NEW RESTORE/BOOT 1-MAR-80
664 3142 RELOC
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 17
FILE # 1
665
666
667 /BINLDR, 0000
668 / 3212
669 / 4260
670 / 1300
671 / 7750
672 / 5237
673 / 2212
674 / 7040
675 / 5227
676 / 1212
677 / 7640
678 / 5230
679 / 1214
680 / 0274
681 / 1341
682 / 7510
683 / 2226
684 / 7750
685 / 5626
686 / 1214
687 / 0256
688 / 1257
689 / 3213
690 / 5230
691 / 0070
692 / 6201
693 / 0000
694 / 0000
695 / 6031
696 / 5262
697 / 6036
698 / 3214
699 / 1214
700 / 5660
701 / 6011
702 / 5270
703 / 6016
704 / 5265
705 / 0300
706 / 4343
707 / 7041
708 / 1215
709 / 7402
710 / 6032
711 / 6014
712 / 6214
713 / 1257
714 / 3213
715 / 7604
716 / 7700
717 / 1353
718 / 1352
719 / 3261
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 17-1
FILE # 1
720 / 4226
721 / 5313
722 / 3215
723 / 1213
724 / 3336
725 / 1214
726 / 3376
727 / 4260
728 / 3355
729 / 4226
730 / 5275
731 / 4343
732 / 7420
733 / 5336
734 / 3216
735 / 1376
736 / 1355
737 / 1215
738 / 5315
739 / 0000
740 / 3616
741 / 2216
742 / 7600
743 / 5332
744 / 0000
745 / 1376
746 / 7106
747 / 7006
748 / 7006
749 / 1355
750 / 5743
751 / 5262
752 / 0006
753 / 0000
754 / 0000
755 / 6014
756 / 6011
757 / 5357
758 / 6016
759 / 7106
760 / 7006
761 / 7510
762 / 5374
763 / 7006
764 / 6011
765 / 5367
766 / 6016
767 / 7420
768 / 3776
769 / 3376
770 / 5357
771 / 0000
772 / 5301
773
774 3142 BINLDR, RELOC 7612
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 17-2
FILE # 1
775 07612* 0000 SWITCH, 0
776 07613* 0000 MEMTEM, 0
777 07614* 0000 CHAR, 0
778 07615* 0000 CHKSUM, 0
779 07616* 0000 ORIGIN, 0
780
781 /SOME NULLS IN BETWEEN
782 07617* 0000 ZBLOCK 7
783
784 07626* 0000 BEGG, 0
785 07627* 3212 DCA SWITCH /SET SWITCH
786 07630* 4260 JMS READB /GET A CHARACTER
787 07631* 1300 TAD M376 /TEST FOR 377
788 07632* 7750 SPA SNA CLA
789 07633* 5237 JMP .+4 /NO
790 07634* 2212 ISZ SWITCH /YES, COMPLEMENT SWITCH
791 07635* 7040 CMA
792 07636* 5227 JMP BEGG+1
793 07637* 1212 TAD SWITCH /NOT 377
794 07640* 7640 SZA CLA /IS SWITCH SET?
795 07641* 5230 JMP BEGG+2 /YES, IGNORE
796 07642* 1214 TAD CHAR /NO, TEST FOR CODE
797 07643* 0274 AND MASK /TYPES
798 07644* 1341 TAD M200
799 07645* 7510 SPA
800 07646* 2226 ISZ BEGG /DATA OR ORIGIN
801 07647* 7750 SPA SNA CLA
802 07650* 5626 JMP I BEGG /DATA, ORIGIN OR L/T
803 07651* 1214 TAD CHAR /FIELD SETTING
804 07652* 0256 AND FMASK
805 07653* 1257 TAD CHANGE
806 07654* 3213 DCA MEMTEM
807 07655* 5230 JMP BEGG+2 /CONTINUE INPUT
808 07656* 0070 FMASK, 70
809 07657* 6201 CHANGE, CDF
810 07660* 0000 READB, 0
811 07661* 0000 0
812 07662* 6031 LOR, KSF /WAIT FOR FLAG
813 07663* 5262 JMP .-1
814 07664* 6036 KRB
815 07665* 3214 DCA CHAR
816 07666* 1214 TAD CHAR
817 07667* 5660 JMP I READB
818 07670* 6011 HIR, RSF
819 07671* 5270 JMP .-1
820 07672* 6016 RRB RFC
821 07673* 5265 JMP LOR+3
822 07674* 0300 MASK, 300
823 07675* 4343 BEND, JMS ASSEMB
824 07676* 7041 CIA
825 07677* 1215 TAD CHKSUM
826 07700* 7402 M376, HLT
827 07701* 6032 BEGIN, KCC
828 07702* 6014 RFC
829 07703* 6214 RDF
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 17-3
FILE # 1
830 07704* 1257 TAD CHANGE
831 07705* 3213 DCA MEMTEM /SAVE FIELD INSTRUCTION
832 07706* 7604 CLA OSR
833 07707* 7700 SMA CLA
834 07710* 1353 TAD HIRI
835 07711* 1352 TAD LORI
836 07712* 3261 DCA READB+1
837 07713* 4226 JMS BEGG
838 07714* 5313 JMP .-1 /IGNORE LEADER
839 07715* 3215 GO, DCA CHKSUM
840 07716* 1213 TAD MEMTEM
841 07717* 3336 DCA MEMFLD
842 07720* 1214 TAD CHAR
843 07721* 3376 DCA WORD1
844 07722* 4260 JMS READB
845 07723* 3355 DCA WORD2
846 07724* 4226 JMS BEGG /LOOK AHEAD
847 07725* 5275 JMP BEND /TRAILER, END
848 07726* 4343 JMS ASSEMB
849 07727* 7420 SNL
850 07730* 5336 JMP MEMFLD
851 07731* 3216 DCA ORIGIN
852 07732* 1376 CHEX, TAD WORD1
853 07733* 1355 TAD WORD2
854 07734* 1215 TAD CHKSUM
855 07735* 5315 JMP GO
856 07736* 0000 MEMFLD, 0
857 07737* 3616 DCA I ORIGIN
858 07740* 2216 ISZ ORIGIN
859 07741* 7600 M200, 7600
860 07742* 5332 JMP CHEX
861 07743* 0000 ASSEMB, 0
862 07744* 1376 TAD WORD1
863 07745* 7106 CLL RTL
864 07746* 7006 RTL
865 07747* 7006 RTL
866 07750* 1355 TAD WORD2
867 07751* 5743 JMP I ASSEMB
868 07752* 5262 LORI, JMP LOR
869 07753* 0006 HIRI, HIR-LOR
870 07754* 0000 0
871 07755* 0000 WORD2, 0
872
873 6016 RCC=6016
874 6014 RCF=6014
875 07756* 6014 BEG, RCF /CLEAR AC AND FLAG
876 07757* 6011 RSF /SKIP IF FLAG=1
877 07760* 5357 JMP .-1 /LOOKING FOR CHAR
878 07761* 6016 RCC /READ BUFFER
879 07762* 7106 CLL RTL /CH8 IN AC0
880 07763* 7006 RTL /CHECKING FOR LEADER
881 07764* 7510 SPA /FOUND LEADER
882 07765* 5374 JMP WORD1-2 /OK
883 07766* 7006 RTL /NO, CH7 IN LINK
884 07767* 6011 RSF
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 17-4
FILE # 1
885 07770* 5367 JMP .-1
886 07771* 6016 RCC /READ, NO CLEAR
887 07772* 7420 SNL /CHECKING FOR ADDRESS
888 07773* 3776 DCA I WORD1 /STORE CONTENTS
889 07774* 3376 DCA WORD1 /STORE ADDRESS
890 07775* 5357 JMP BEG+1 /NEXT WORD
891 07776* 0000 WORD1, 0
892 07777* 5301 JMP BEGIN
893
894 3330 RELOC
895
896
897 3330 ZERO, RELOC 4
898 00004* 1005 ZERSTR, TAD .+1
899 00005* 3410 DCA I ZXR
900 00006* 5004 JMP ZERSTR
901 00007* 5404 JMP I ZERSTR
902 00010* 0011 ZXR, .+1
903 00011* 2010 ISZ ZXR
904 3336 RELOC
905
906 03336 6141 DIAL, 6141
907 03337 1020 1020
908 03340 0020 0020
909 03341 0004 0004
910 03342 0701 0701
911 03343 7300 7300
912
913 6200 LXM=6200
914 3344 VXA0, RELOC 0
915 00000* 7200 VXSTR, CLA
916 00001* 1006 TAD VXENA
917 00002* 6200 LXM
918 00003* 6207 CIF CDF 4
919 00004* 5405 JMP I .+1
920 00005* 0000 0000
921 00006* 7000 VXENA, 7000
922 3353 RELOC
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 18
FILE # 1
923
924
925 03353 6774 TYPSET, 6774
926 03354 1347 1347
927 03355 4341 4341
928 03356 7240 7240
929 03357 1353 1353
930 03360 3355 3355
931 03361 1352 1352
932 03362 4341 4341
933 03363 5753 5753
934 03364 7777 7777
935 03365 6766 6766
936 03366 3354 3354
937 03367 6771 6771
938 03370 5344 5344
939 03371 5741 5741
940 03372 4600 4600
941 03373 7777 7777
942 03374 7777 7777
943 03375 4220 4220
944 03376 7400 7400
945 03377 7777 7777
946 03400 7777 7777
947 03401 7777 7777
948 03402 6014 6014
949 03403 6011 6011
950 03404 5360 5360
951 03405 7106 7106
952 03406 6012 6012
953 03407 7420 7420
954 03410 5357 5357
955 03411 5756 5756
956 03412 4356 4356
957 03413 3373 3373
958 03414 4356 4356
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 19
FILE # 1
959
960
961 03415 7577 DSKMON, 7577
962 03416 7750 7750
963 03417 7751 7751
964 03420 1171 1171
965 03421 3572 3572
966 03422 1172 1172
967 03423 3573 3573
968 03424 6643 6643
969 03425 6615 6615
970 03426 6603 6603
971 03427 6602 6602
972 03430 5203 5203
973 03431 5606 5606
974 03432 7600 7600
975
976 03433 1237 CAS, 1237
977 03434 1206 1206
978 03435 6704 6704
979 03436 6706 6706
980 03437 6703 6703
981 03440 5204 5204
982 03441 7264 7264
983 03442 6702 6702
984 03443 7610 7610
985 03444 3211 3211
986 03445 3636 3636
987 03446 1205 1205
988 03447 6704 6704
989 03450 6706 6706
990 03451 6701 6701
991 03452 5216 5216
992 03453 7002 7002
993 03454 7430 7430
994 03455 1636 1636
995 03456 7022 7022
996 03457 3636 3636
997 03460 7420 7420
998 03461 2236 2236
999 03462 2235 2235
1000 03463 5215 5215
1001 03464 7346 7346
1002 03465 7002 7002
1003 03466 3235 3235
1004 03467 5201 5201
1005 03470 7737 7737
1006 03471 3557 3557
1007 03472 7730 7730
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 20
FILE # 1
1008
1009
1010 / DEVICE IOT SYMBOLIC EQUATES
1011 /
1012 6751 LCD=6751 /LOAD COMMAND
1013 6752 XDR=6752 /TRANSFER DATA
1014 6753 STR=6753 /SKIP IF READY TO TRANSFER
1015 6754 SER=6754 /SKIP ON ERROR
1016 6755 SDN=6755 /SKIP ON DONE
1017
1018 3473 RX01, RELOC 20
1019 RX8E,
1020 00020* 1061 READ, TAD UNIT /TRY NEXT COMBINATION OF DENSITY AND UNIT
1021 00021* 1046 TAD CON360 /ADDING IN 360
1022 00022* 0060 AND CON420 /KEEPING ONLY 420 BITS
1023 00023* 3061 DCA UNIT /CYCLES 400,420,0,20,400,,,,,,,,
1024 00024* 7327 AC0006 /COMMAND TO READ DISK - MUST BE ON OMNIBUS!
1025 00025* 1061 TAD UNIT /UNIT AND DENSITY
1026 00026* 6751 LCD /COMMAND TO CONTROLLER
1027 00027* 7201 AC0001 /TO SET SECTOR AND TRACK TO 1
1028 00030* 4053 JMS LOAD /SECTOR TO CONTROLLER, LEAVES AC ALONE
1029 00031* 4053 JMS LOAD /AND TRACK
1030 00032* 7004 LITRAL, 7004 /LEAVING A 2 IN AC; SERVES AS LITERAL
1031 /
1032 / FOLLOWING IS PART OF WAIT LOOP, SAME SECONDARY BOOTS, OLD PRIMARY BOOT
1033 /
1034 RXSTRT,
1035 00033* 6755 XSTRT, SDN /HAS DONE COME UP; CODE STARTS HERE!
1036 00034* 5054 JMP LOAD+1 /NO, GO CHECK FOR READY TO TRANSFER
1037 /
1038 / NOW, DONE OR ERROR
1039 /
1040 00035* 6754 SER /SKIP ON AN ERROR, TRY ANOTHER DENSITY ETC.
1041 00036* 7450 SNA /NASTY, AC=2 FOR ABOUT TO DO SILO, 0 ON START-UP
1042 00037* 5020 JMP READ /START-UP, GO SET UP UNIT, THEN READ TO SILO
1043 00040* 1061 TAD UNIT /AC ALREADY 2, PUT IN UNIT, DENSITY
1044 00041* 6751 LCD /TO EMPTY THE SILO
1045 00042* 1061 TAD UNIT /SET UP LOC 60 FOR OLD SECONDARY BOOT
1046 00043* 0046 AND CON360 /KEEPING UNLY DENSITY BIT
1047 00044* 1032 TAD LITRAL /ADDING IN 7004, BECAUSE THAT'S WHAT SYS WANTS
1048 00045* 3060 DCA RX1SAV /OLD SECONDARY BOOT MOVES IT TO HANDLER
1049 00046* 0360 CON360, 360 /LITERAL; EXECUTES IN LINE AS A NO-OP
1050 / /FALLS THRU TO NEXT PAGE OF LISTING
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 21
FILE # 1
1051
1052
1053 / FOLLOWING CODE SAME AS OLD PRIMARY BOOT
1054 /
1055 00047* 4053 JMS LOAD /GRAB NEXT ITEM FROM SILO
1056 00050* 3002 DCA 2 /TRADITION; SECONDARY BOOT STARTS LOADING AT 2 !
1057 00051* 2050 ISZ 50 /INCREMENT LOAD ADDRESS
1058 00052* 5047 JMP 47 /GO BACK FOR ANOTHER
1059 /
1060 / SECONDARY BOOT LOADS OVER PRIMARY BOOT UNIT LOCATION 47 IS LOADED,
1061 / THEN CONTROL PASSES TO SECONDARY BOOT
1062 /
1063 00053* 0000 LOAD, 0 /SUBROUTINE TO GIVE AND TAKE DATA FROM CONTROLLER
1064 00054* 6753 STR /IS HE READY TO TALK TO US?
1065 00055* 5033 JMP XSTRT /NO, IS HE PERHAPS DONE WITH SILO, OR IN ERROR?
1066 00056* 6752 XDR /YES, DATA IN OR OUT;IF DATA TO CONTROLLER, AC UNCHANGED
1067 00057* 5453 JMP I LOAD /NO MAGIC, JUST EXIT FROM SUBROUTINE
1068 /
1069 / 60 GOES TO OLD SECONDARY BOOT
1070 / 61 HAS DENSITY AND UNIT THAT BOOTED SUCCESSFULLY
1071 /
1072 /
1073 CON420, /USE IT TO HOLD 420 LITERAL TO START OUT
1074 00060* 0420 RX1SAV, 420 /UNIT^20+7004 TO GO TO SYS HANDLER
1075 00061* 0020 UNIT, 20 /<DENSITY^400>+<UNIT^20> THAT BOOTED OK
1076 /
1077
1078 3535 RELOC
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 22
FILE # 1
1079
1080
1081 /RL01 DEFINITIONS
1082
1083 6600 RLIOT=6600
1084 6600 RLDC=RLIOT 0 /CLEAR DEVICE
1085 6601 RLSD=RLIOT 1 /SKIP IF DONE
1086 6602 RLMA=RLIOT 2 /LOAD MEM ADDR
1087 6603 RLCA=RLIOT 3 /LOAD REGISTER "A"
1088 6604 RLCB=RLIOT 4 /LOAD REG "B" AND EXECUTE
1089 6605 RLSA=RLIOT 5 /LOAD SECTOR ADDR
1090 /RLIOT 6 UNUSED
1091 6607 RLWC=RLIOT 7 /LOAD WORD COUNT
1092 6610 RRER=RLIOT 10 /READ ERROR REG
1093 6611 RRWC=RLIOT 11 /READ WORD COUNT
1094 6612 RRCA=RLIOT 12 /READ REG "A"
1095 6613 RRCB=RLIOT 13 /READ REG "B"
1096 6614 RRSA=RLIOT 14 /READ SECTOR ADDR
1097 6615 RRSI=RLIOT 15 /READ SILO BYTE
1098 /RLIOT 16 UNUSED
1099 6617 RLSE=RLIOT 17 /SKIP IF ERROR
1100 /RLCB FUNCTION BITS:
1101 0000 RLMT=0 /MAINTENANCE MODE
1102 0001 RLRE=1 /RESET DRIVE ERRORS
1103 0002 RLST=2 /READ STATUS REGS INTO SILO
1104 0003 RLSK=3 /SEEK
1105 0004 RLRH=4 /READ HEADER
1106 0005 RLWR=5 /WRITE
1107 0006 RLRD=6 /READ
1108 0007 RLRN=7 /READ WITH NO HEADER CHECK
1109 /BIT DEFINITIONS IN REGISTERS:
1110 1000 BYTE=1000 /BYTE TRANSFER MODE
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 23
FILE # 1
1111
1112
1113 3535 RL01, RELOC 1
1114 00001* 6600 RLPRIM, RLDC /CLEAR DRIVE
1115 00002* 7201 AC0001
1116 00003* 4027 JMS IOSUB /RESET DRIVE ERRORS
1117 00004* 1004 TAD . /=1004
1118 00005* 4027 JMS IOSUB /BYTE READ HEADER TO FIND OUT WHERE WE ARE
1119 00006* 6615 RRSI /READ HEADER BYTE #1
1120 00007* 7002 BSW
1121 00010* 7012 RTR /LSB OF CYLINDER
1122 00011* 6615 RRSI /READ HEADER BYTE #2
1123 00012* 0025 AND C377
1124 00013* 7004 RAL /MAKE CYLINDER ADRESS
1125 00014* 6603 RLCA /USE AS DIFFERENCE FOR SEEK TO 0,0
1126 00015* 7325 AC0003
1127 00016* 4027 JMS IOSUB /GO SEEK
1128 00017* 7332 AC2000 /SECTOR 20
1129 00020* 6605 RLSA /LOAD IT
1130 00021* 1026 TAD CM200
1131 00022* 6607 RLWC /ONE PAGE WORD COUNT
1132 00023* 7327 AC0006
1133 00024* 4027 JMS IOSUB /READ SECONDARY BOOTSTRAP
1134 00025* 0377 C377, 0377 /IOSUB DOES NOT RETURN (OVERLAID)
1135 00026* 7600 CM200, -200
1136 00027* 0000 IOSUB, 0
1137 00030* 6604 RLCB /EXECUTE FINCTION
1138 00031* 6601 RLSD /WAIT UNTIL DONE
1139 00032* 5031 JMP .-1 /'IOSUB' IS ALSO IN SEC. BOOT
1140 00033* 6617 RLSE /KEEP IT HERE
1141 00034* 5427 JMP I IOSUB
1142 00035* 5001 JMP RLPRIM /ERROR : TRY AGAIN
1143 3572 RELOC
1144 3600 PAGE
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 24
FILE # 1
1145
1146
/BOOT FOR KBM V50 MACREL-V2C MON 15-JUN-87 PAGE 25
SYMBOL TABLE
AC0001 7201 GOTTC 2274 RLMA 6602 WCT 7326
AC0002 7326 GOTTD 2273 RLMT 0000 WORD1 7776
AC0003 7325 HIR 7670 RLPRIM 0001 WORD2 7755
AC0004 7307 HIRI 7753 RLRD 0006 XDR 6752
AC0006 7327 HLTSWT 2124 RLRE 0001 XSTRT 0033
AC0100 7203 INNER 2125 RLRH 0004 XXLUP 2037
AC2000 7332 IOSUB 0027 RLRN 0007 ZERO 3330
AC3777 7350 K1000 7300 RLSA 6605 ZERSTR 0004
AC4000 7330 K77 7331 RLSD 6601 ZXR 0010
AC5777 7352 LCD 6751 RLSE 6617
AC6000 7333 LENGTH 2130 RLSK 0003
AC7775 7346 LINCTP 3102 RLST 0002
AC7776 7344 LITRAL 0032 RLWC 6607
ASSEMB 7743 LOAD 0053 RLWR 0005
BEG 7756 LOOP 2017 RL01 3535
BEGG 7626 LOR 7662 RRCA 6612
BEGIN 7701 LORI 7752 RRCB 6613
BEND 7675 LV 2200 RRER 6610
BINLDR 3142 LXM 6200 RRSA 6614
BM22 7327 MASK 7674 RRSI 6615
BOOT 3600 ASECT MEMFLD 7736 RRWC 6611
BSRCH 7315 MEMTEM 7613 RXSTRT 0033
BYTE 1000 M200 7741 RX01 3473
CAS 3433 M376 7700 RX1SAV 0060
CHANGE 7657 M8 3126 RX8E 0020
CHAR 7614 M8STR 0020 SCAN 2134
CHEX 7732 NEWLOC 2132 SDLC 6774
CHKSUM 7615 NXT 2055 SDN 6755
CM200 0026 OLDLOC 2131 SDRC 6776
CODE 2127 ORIGIN 7616 SDRD 6777
COMN 2013 OS8 2400 SDSQ 6773
CON360 0046 OS8IN 2061 SDSS 6771
CON420 0060 OUTR 2126 SER 6754
COSIN 2012 PTCLEV 2203 SIDK 3120
CRLF 2300 PTR 2133 SIDKST 0000
C377 0025 PUT 2306 SKAN 2073
DECTAP 3000 RCC 6016 START 2000
DIAL 3336 RCF 6014 STR 6753
DIML 6615 RD 7303 STRT 7332
DISK 2215 READ 0020 SWITCH 7612
DLCR 6502 READB 7660 TABLE 2600
DLSR 6512 RETEND 2427 TAPE 2247
DLTR 6514 RETMOR 2422 TD8E 3046
DSKMON 3415 RETRY 2404 TD8EST 7277
DWCA 6517 RF08 3111 TEMP 2135
FLD: 0 0200 ASECT RKADR 2606 TESTRK 2337
FMASK 7656 RK05 2344 TYPSET 3353
GET 2314 RK8 3024 UNIT 0061
GETTD 7312 RK8E 3035 VERS 2204
GO 7715 RK8EST 0021 VXA0 3344
GOTLTA 2276 RLCA 6603 VXENA 0006
GOTRE 2242 RLCB 6604 VXSTR 0000
GOTRF 2243 RLDC 6600 V1 2201
GOTRK8 2245 RLIOT 6600 V2 2202