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