1 /PROGRAM TO CONVERT STANDARD FORMAT D/D MONITOR ON TD8E TAPE 2 /START WITH OS8 12K BOOTSTRAP MUST BF USED ON TAPE JUST AFTER 3 /BUILDING BY TBLD BUT BEFORE ANY OTHFR SYSTEM PROGRAMS ARE 4 /WRITTEN ON THE TAPE. START PROGRAM WITH NEW TAPF ON UNIT 1. 5 *200 6 000200 4657 JMS I SYSIO /RFAO 1ST SAM BLK 7 000201 0003 3 8 000202 0200 200 9 000203 1400 1400 10 000204 0000 0 11 000205 7402 HLT 12 000206 7001 IAC /MARK BLOCKS 35,6,7 A MONITOR 13 000207 3654 DCA I P1435 /FOR PROTECTION 14 000210 7001 IAC 15 000211 3655 DCA I P1436 16 000212 7001 IAC 17 000213 3656 DCA I P1437 18 000214 4657 JMS I SYSIO /RFWRITE SAM I 19 000215 0005 5 20 000216 0200 200 21 000217 1400 1400 22 000220 0202 202 /LTNK 23 000221 7402 HLT 24 000222 4657 JMS I SYSIO /NOW WRITE IN THF TDSE RTN 25 000223 0005 5 /AND MONTTOR HFAO 26 000224 0035 35 27 000225 0400 400 28 000226 0000 0 29 000227 7402 HLT 30 000230 4657 JMS I SYSIO 31 000231 0005 5 32 000232 0036 36 33 000233 0600 600 34 000234 0000 0 35 000235 7402 HLT 36 000236 4657 JMS I SYSIO 37 000237 0005 5 38 000240 0037 37 39 000241 1000 1000 40 000242 0000 0 41 000243 7402 HLT 42 000244 4657 JMS I SYSIO /WRITE BOOT INTO BLK 0 43 000245 0005 5 44 000246 0000 0 45 000247 1200 1200 46 000250 0000 0 47 000251 7402 HLT 48 000252 5653 JMP I .+1 /RESTART MONITOR 49 000253 7600 7600 50 000254 1435 P1435, 1435 51 000255 1436 P1436, 1436 52 000256 1437 P1437, 1437 53 000257 7642 SYSIO, 7642 54 55 /TD8E DECTAPE RTN. 56 DRTVE=10 /UNITS 0 AND 1 SELECTED 57 MFIELD=10 /AFIELD=10=MFIELD 58 WDSBLK=201 /129 WORDS PER BLOCK 59 *400 60 NOPUNCH 61 *7400 62 ENPUNCH 63 007400 0000 DTA0, 0 /ENTRY POINT FROM UNIT 0 64 007401 7300 CLA CLL /0 TO LINK 65 007402 5210 JMP DTA1X 66 007403 1000 C1000, 1000 67 007404 0000 DTA1, 0 /UNIT 2 ENTRY 68 007405 7320 CLA CLL CML /1 TO LINK 69 007406 1204 TAD DTA1 70 007407 3200 DCA DTA0 /PICK UP ARGS AT DTA0 71 007410 7010 DTA1X, RAR 72 007411 3361 DCA UNIT /LINK TO UNIT POSITION 73 007412 6214 RDF 74 007413 1354 TAD C6203 /GET DATA FIFLD AND SETUP RETURN 75 007414 3352 DCA LEAVE 76 007415 1600 TAD I DTA0 /GET FUNCTION WORD 77 007416 6775 SDLD /PUT FUNCTION INTO DATA REGISTER 78 007417 7112 CLL RTR /AC STILL HAS FUNCTION, PUT # WORDS 79 /BLOCK INTO LINK 80 007420 7630 SZL CLA /KNOCK ONE OFF WDSBLK? 81 007421 7001 IAC /YES 82 007422 1360 TAD MWORDS 83 007423 3356 DCA WCOUNT /STORE MASTER WORD COUNT 84 007424 2200 ISZ DTA0 /TO BUFFFR 85 007425 1600 TAD I DTA0 86 007426 3357 DCA BUFF 87 007427 2200 ISZ DTA0 /TO BLOCK NUMBER 88 007430 1600 TAD I DTA0 89 007431 3204 DCA BLOCK 90 007432 2200 ISZ DTA0 /POINT TO ERROR EXIT 91 007433 6213 CIF CDF MFIELD /TO ROUTINES DATA FIELD 92 007434 6777 SDRD /GET FUNCTION INTO AC 93 007435 7104 CLL RAL 94 007436 0307 AND CM200 /GET # PAGES TO XFFR 95 007437 3364 DCA PGCT 96 007440 6777 SDRD 97 007441 0374 C374, AND C70 /GET FIELD FOR XFER 98 007442 1354 TAD C6203 /FORM CDF N 99 007443 3377 DCA XFIELD /IF=0 AND DF=N AT XFFR. 100 007444 7346 CLA CLL CMA RTL 101 007445 3367 DCA TRYCNT /3 ERROR TRIES 102 007446 1361 TAD UNIT /TEST FOR SELECT ERROR 103 007447 6774 SDLC 104 007450 6776 SDRC 105 007451 0366 AND C100 106 007452 7640 SZA CLA 107 007453 5346 JMP FATAL-1 108 BLOCK=DTA1 109 110 007454 6777 SDRD /PUT FUNCT INTI XFUNCT IN SECOND PG 111 007455 3762 DCA I CXFUN 112 007456 1356 TAD WCOUNT 113 007457 3765 DCA I CXWCT 114 007460 6777 SDRD /GET MOTION BIT TO LTNK 115 007461 7110 CLL RAR 116 007462 5301 JMP GO /AND START THE MOTTON. 117 007463 6772 RWCOM, SDST /ANY CHECKSUM ERRORS? 118 007464 7640 SZA CLA /OR CHECKSUM ERRORS? 119 007465 5341 JMP TRY3 /PLEASE NOTE THAT THE LINK IS ALWAYS 120 /SET AT RWCOM, GFTCHK SETS IT. 121 007466 1364 TAD PGCT /NO FRROR..FINISHED XFER? 122 007467 1307 TAD CM200 123 007470 7450 SNA 124 007471 5345 JMP EXIT /ALL DONE. GET OUT 125 007472 3364 DCA PGCT /NEW PAGE COUNT 126 007473 2204 ISZ BLOCK /NEXT BLOCK TO XF£R 127 007474 1356 TAD WCOUNT /FORM NEXT BUFFER ADDRESS 128 007475 7041 CIA 129 007476 1357 TAD BUFF 130 007477 3357 DCA BUFF 131 007500 7120 CLL CML /FORCES MOTION FORWARD 132 007501 7232 GO, CLA CML RTR /LINK BECOMES MOTION BIT 133 007502 1203 TAD C1000 134 007503 1361 TAD UNIT /PUT IN 'GO' AND UNIT # 135 007504 6774 SDLC /LOOK FOR BLOCK NO. 136 007505 4755 JMS I CRDQUD /WAIT AT LEAST 6 LINES TO LOOK 137 007506 4755 JMS I CRDQUD 138 007507 7600 CM200, 7600 /COULD HAVE SAVED A LOC. HERE 139 007510 6771 SRCH, SDSS 140 007511 5310 JMP .-1 /WAIT FOR SINGLE LTNE FLAG 141 007512 6776 SDRC 142 007513 7106 CLL RTL /DIRECTION TO LINK. INFO BTTS 143 /ARE SHIFTED. 144 007514 0241 AND C374 /ISOLATE MARK TRACK BITS 145 007515 1333 TAD M110 /IS IT END ZONE? 146 007516 7450 SNA /THE LTNK STAYS SAME THRU THIS 147 007517 5335 JMP ENDZ 148 007520 1363 TAD M20 /CHECK FOR BLOCK MARK 149 007521 7640 SZA CLA 150 007522 5310 JMP SRCH 151 152 007523 6777 SDRD /GET THE BLOCK NUMBER 153 007524 7430 SZL /IF WE ARE IN REVERSE, LOOK FOP 3 154 /BLOCKS BEFORE TARGET BLOCK. THIS 155 /ALLOWS TURNAROUND AND UP TO SPEED. 156 007525 1375 TAD C3 /REVERSE 157 007526 7040 CMA 158 007527 1204 TAD BLOCK 159 007530 7040 CMA /IS IT RIGHT BLOCK? 160 007531 7450 SNA 161 007532 5370 JMP FOUND /YES..HOORAY! 162 007533 7670 M110, SZL SNA CLA /NO, BUT ARE WE HEADED FOR IT? 163 /ABOVE SNA IS SUPERFLUOUS. 164 007534 5310 JMP SRCH /YES 165 007535 6776 ENDZ, SDRC /WE ARE IN THE END ZONE 166 007536 7106 CLL RTL /DIRECTION TO LINK 167 007537 7630 SZL CLA /ARE WE IN REVERSE? 168 007540 5301 JMP GO /YES..TURN US AROUND 169 /IF WE ARE IN THE END ZONE GOING FORWARD, IT IS AN ERROR 170 007541 2367 TRY3, ISZ TRYCNT 171 007542 5301 JMP GO /TRY 3 TIMES 172 007543 7300 CLL CLA 173 007544 5347 JMP FATAL /LINK OFF MEANS AC=4000 ON 174 007545 2200 EXIT, ISZ DTA0 175 007546 7120 CLL CML /AC=0 ON NORMAL RETURN 176 007547 1361 FATAL, TAD UNIT 177 007550 6774 SDLC /STOP THE UNIT 178 007551 7230 CLA CML RAR 179 007552 7402 LEAVE, HLT 180 007553 5600 JMP I DTA0 181 007554 6203 C6203, 6203 182 007555 7713 CRDQUD, RDQUAD 183 007556 0000 WCOUNT, 0 184 007557 0000 BUFF, 0 185 007560 7577 MWORDS, -WDSBLK 186 007561 0000 UNIT, 0 187 007562 7753 CXFUN, XFUNCT 188 007563 7760 M20, -20 189 007564 0000 PGCT, 0 190 007565 7761 CXWCT, XWCT 191 007566 0100 C100, 100 192 007567 7775 TRYCNT, -3 193 007570 7630 FOUND, SZL CLA /RIGHT BLOCK. HOW ABOUT DIRECTTOW? 194 007571 5301 JMP GO /WRONG..TURN AROUND 195 007572 1361 TAD UNIT /PUT UNIT INTO LTNK 196 007573 7104 CLL RAL /AC IS NOW 0 197 007574 0070 C70, 70 /********DON'T MOVE THTS!!!!****** 198 007575 0003 C3, 3 199 007576 1357 TAD BUFF /GET BUFFER ADORESS 200 007577 7402 XFIELD, HLT /INTO NEXT PAGE 201 202 007600 6212 CIF MFIELD 203 007601 3360 DCA XBUFF /SAVE ADDRESS 204 007602 7010 RAR /NOW GET UNIT # 205 007603 3320 DCA XUNIT 206 007604 1361 TAD XWCT 207 007605 3357 DCA WORDS /WORD COUNTER 208 007606 6771 REVGRD, SDSS 209 007607 5206 JMP .-1 /LOOK FOR REVERSE GUARD 210 007610 6776 SDRC 211 007611 0241 AND K77 212 007612 1354 TAD CM32 /IS IT REVERSE GUARD? 213 007613 7640 SZA CLA 214 007614 5206 JMP REVGRD /NO. KEEP LOOKING 215 007615 1353 TAD XFUNCT /GET FUNCTION READ OR WRITE 216 007616 7700 K7700, SMA CLA 217 007617 5254 JMP READ /NEG. IS WRITE 218 007620 6776 WRTTE, SDRC 219 007621 0266 AND C300 /CHECK FOR WRITE LOCK AND SELECT ERR 220 007622 7120 CLL CML /LOCK OUT AND SELECT ARE AC 0 ERRORS 221 007623 7640 SZA CLA 222 007624 5751 JMP I CFATAL /FATAL ERROR. LINK MUST B£ ON 223 007625 4313 JMS RDQUAD /NO ONE EVER USES THIS WORD! 224 007626 7600 C7600, 7600 225 007627 1355 TAD D1400 226 007630 1320 TAD XUNIT /INITIATE WRITE MOOE 227 007631 6774 SDLC 228 007632 7240 CLA CMA 229 007633 4304 JMS WRQUAD /PUT 77 IN REVERSE CHECKSUM 230 007634 7240 CLA CMA 231 007635 3356 DCA CHKSUM 232 007636 1760 WRLP, TAD I XBUFF /GLORY BE! THE ACTUAL WRITE! 233 007637 4304 JMS WRQUAD 234 007640 2360 ISZ XBUFF /BUMP CORE POINTER 235 007641 0077 K77, 77 /ABOVE MAY SKIP 236 007642 2357 ISZ WORDS /DONE THIS BLOCK? 237 007643 5236 JMP WRLP /NOT YET..LOOP A WHILE 238 007644 1353 TAD XFUNCT /IS THE OPERATION FOR WDSBLK PER BLK? 239 007645 7112 CLL RTR /IF NO, WRITE A 0 WORD 240 007646 7630 SZL CLA 241 007647 4304 JMS WRQUAD /WRITE A WORD OF 0 242 007650 4335 JMS GETCHK /DO THE CHECK SUM 243 007651 4304 JMS WRQUAD /WRITE FORWARD CHECKSUM 244 007652 4304 JMS WRQUAD /ALLOW CHECKSUM TO BE WRITTEN 245 007653 5752 JMP I CRWCOM 246 247 007654 4313 READ, JMS RDQUAD 248 007655 4313 JMS RDQUAD 249 007656 4313 JMS RDQUAD /SKIP CONTROL WORDS 250 007657 0241 AND K77 251 007660 1216 TAD K7700 /TACK 7700 ONTO CHECKSUM. 252 007661 3356 DCA CHKSUM /CHECKSUM ONLY LOW 6 BITS ANYWAY 253 007662 4313 RDLP, JMS RDQUAD 254 007663 4320 JMS EQUFUN /COMPUTE CHECKSUM AS WE GO 255 007664 3760 DCA I XBUFF /IT GETS CONDENSED LATER 256 007665 2360 ISZ XBUFF 257 007666 0300 C300, 300 /PROTECTION 258 007667 2357 ISZ WORDS /DONE THIS OP? 259 007670 5262 JMP RDLP /NO SUCH LUCK 260 007671 1353 TAD XFUNCT /IF OP WAS FOR WDSBLK-1, READ AND 261 007672 7112 CLL RTR /CHECKSUM THE LAST TAPE WORD 262 007673 7620 SNL CLA 263 007674 5277 JMP RDLP2 264 007675 4313 JMS RDQUAD /NOT NEEDED FOR WDSBLK/BLOCK 265 007676 4320 JMS EQUFUN /CHECKSUM IT 266 007677 4313 RDLP2, JMS RDQUAD /READ CHECKSUM 267 007700 0216 AND K7700 268 007701 4320 JMS EQUFUN 269 007702 4335 JMS GETCHK /GET SIX BIT CHECKSUM 270 007703 5752 JMP I CRWCOM 271 272 007704 0000 WRQUAD, 0 /WRITE OUT A 12 BIT WORD 273 007705 4320 JMS EQUFUN /ADD THIS TO CHECKSUM 274 007706 6773 SDSQ /SKIP ON QUADLINE FLAG 275 007707 5306 JMP .-1 276 007710 6775 SDLD /LOAD DATA ONTO BUS 277 007711 7200 CLA /SDLD DOESN'T CLEAR AC 278 007712 5704 JMP I WRQUAD 279 280 007713 0000 RDQUAD, 0 /READ A 12 BIT WORD 281 007714 6773 SDSQ 282 007715 5314 JMP .-1 283 007716 6777 SDRD /READ DATA 284 007717 5713 JMP I RDQUAD 285 286 007720 0000 EQUFUN, 0 /COMPUTE EQUIVALENCE CHECKSUM 287 007721 7040 CMA 288 007722 3362 DCA EQUTMP /ACTUALLY CHECKSUMS ON DECTAPE ARE 289 007723 1362 TAD EQUTMP /EQUIVALENCE OF ALL WORDS IN A RECORD 290 007724 0356 AND CHKSUM /SIX BITS AT A TIME, BUT SINCE EQUIVALENCE 291 007725 7041 CIA /IS ASSOCIATIVE, WE CAN DO IT 12 292 007726 7104 CLL RAL /BITS AT A TIME AND CONDENSE LATER. 293 007727 1362 TAD EQUTMP /THIS ROUTINE USES THESE IDENTITIES: 294 007730 1356 TAD CHKSUM /A+B=(A.XOR.B)+2*(A.AND.B) 295 007731 3356 DCA CHKSUM /A.EQU.B=.NOT.(A.XOR.B)=A.XOR.(.NOT.B) 296 007732 1362 TAD EQUTMP /A.EQU.B=(A+(.NOT.B))-2*(A.AND.(.NOT.B)) 297 007733 7040 CMA 298 007734 5720 JMP I EQUFUN 299 300 007735 0000 GETCHK, 0 /FORM 6 BIT CHECKSUM 301 007736 7200 CLA 302 007737 1356 TAD CHKSUM 303 007740 7040 CMA 304 007741 7106 CLL RTL 305 007742 7006 RTL 306 007743 7006 RTL 307 007744 4320 JMS EQUFUN 308 007745 7320 CLA CLL CML /FORCES LINK ON AT RWCOM 309 007746 1356 TAD CHKSUM 310 007747 0216 AND K7700 311 007750 5735 JMP I GETCHK 312 313 007751 7547 CFATAL, FATAL 314 007752 7463 CRWCOM, RWCOM 315 007753 0000 XFUNCT, 0 316 007754 7746 CM32, -32 317 007755 1400 D1400, 1400 318 007756 0000 CHKSUM, 0 319 007757 0000 WORDS, 0 320 007760 0000 XBUFF, 0 321 007761 0000 XWCT, 0 322 007762 0000 EQUTMP, 0 323 XUNIT=EQUFUN 324 007763 0000 0 325 007764 0000 0 326 007765 0000 0 327 007766 0000 0 328 007767 4777 JMS I DT0 329 007770 0102 0102 330 007771 7600 7600 331 007772 0037 37 332 007773 7402 HLT 333 007774 6203 CIF CDF 0 334 007775 5776 JMP I .+1 335 007776 7600 7600 336 007777 7400 DT0, 7400 337 338 /MONITOR HEAD 339 /RUNS AT 7600 340 /RESIDENT PAGE OF MONITOR (7600-7777 AND BlOCK 0) 341 /DECTAPE VERSION 342 /FUNCTION: SAVE CORE 7200-7577 IN SCRATCH 343 / READS REST OF MONITOR INTO 344 / CORE 7200-7577 JUMPS TO 345 / MONITOR PAGE 2 (7400) 346 *1000 347 NOPUNCH 348 *7600 349 ENPUNCH 350 007600 0070 D0070, 70 /CONSTANT ACTS AS NOP 351 007601 4242 JMS DTSYS /SAVE CORE 7200-737? 352 007602 0005 5 353 007603 0005 5 354 007604 7200 7200 355 007605 0000 0 356 007606 7402 HLT 357 007607 4242 JMS DTSYS /SAVE CORE 7400-7577 358 007610 0005 5 359 007611 0006 6 /SCRATCH BLOCK 2 360 007612 7400 7400 361 007613 0000 0 362 007614 7402 HLT 363 007615 4242 JMS DTSYS /READ IN PAGE 1 OF SAVE 364 007616 0003 3 365 007617 0001 1 366 007620 7200 7200 367 007621 0000 DTCORE, 0 368 007622 7402 HLT 369 007623 4242 JMS DTSYS /READ IN MONITOR PAGE 2 370 007624 0003 3 371 007625 0002 2 372 007626 7400 DTSTRT, 7400 373 007627 0000 0 374 007630 7402 HLT 375 007631 5626 JMP I DTSTRT /ENTER MONITOR PAGE 2 376 007632 0000 DTHOLD, 0 377 007633 0000 DTLINK, 0 378 007634 0000 PLINK, 0 379 007635 0000 LNHOLD, 0 380 007636 7400 TD8E0, 7400 381 007637 7404 TD8E1, 7404 /••MUST FOLLOW TD8E0*** 382 007640 4636 JMST8, JMS I TD8E0 383 007641 0700 P700, 700 384 385 /TD8E DECTAPE AS SYSTEM DEVICE 386 007642 0000 DTSYS, 0 /SYSTEM I/O 387 007643 7200 CLA 388 007644 1642 TAD I DTSYS /GET FCN WORO 389 007645 2242 ISZ DTSYS 390 007646 3351 DCA DTCODE 391 007647 1351 TAD DTCODE /FIND FIELD BITS 392 007650 0200 AND D0070 393 007651 3332 DCA ARG1 394 007652 1344 TAD PCDF /SET TRANSFER FIELD CDF'S 395 007653 1332 TAD ARG1 396 007654 3304 DCA XCDF 397 007655 1304 TAD XCDF 398 007656 3337 DCA XCDF1 399 007657 1351 TAD DTCODE /MOVE WRITE BIT TO BIT 0 400 007660 7112 CLL RTR 401 007661 7012 RTR /CLEAR JUNK 402 007662 0350 AND D4000 403 007663 1353 TAD D0100 /WRITE/READ ONLY 1 BLOCK 404 007664 1332 TAD ARG1 /ADD TO FIELD BITS 405 007665 3332 DCA ARG1 406 007666 1642 TAD I DTSYS /GET BLOCK 407 007667 2242 ISZ DTSYS 408 007670 3334 DCA ARG3 409 007671 1642 TAD I DTSYS /GET CORE ADDR 410 007672 2242 ISZ DTSYS /BUMP TO LINKWORD ADDR. 411 007673 3333 DCA ARG2 412 007674 1333 TAD ARG2 /FORM ADDRESS OF 201TH WORD 413 007675 1352 TAD D0200 414 007676 3234 DCA PLINK 415 007677 1242 TAD DTSYS /SAVE LINK WORD ADDR 416 007700 3233 DCA DTLINK 417 007701 1642 TAD I DTSYS /GET LINK WORO 418 007702 2242 ISZ DTSYS /BUMP TO ERROR ADDRESS 419 007703 3235 DCA LNHOLD /SAVE LINK 420 007704 6201 XCDF, CDF 0 /POINT TO TRANSFER FIELD 421 007705 1634 TAD I PLINK /SAVE ENDANGERED WORD 422 007706 3232 DCA DTHOLD 423 007707 1235 TAD LNHOLD /PUT LINK WORD IN XFFR FIELD 424 007710 3634 DCA I PLINK 425 007711 6201 CDF 0 /BACK TO FIELD 0 426 007712 1351 TAD DTCODE /IS THIS AN INOIRECT RETURN 427 007713 0356 AND D1000 428 007714 7650 SNA CLA 429 007715 5322 JMP .+5 /NO 430 007716 1642 TAD I DTSYS /YES, ERROR HOLDS RETURN ADDR -1 431 007717 3242 DCA DTSYS 432 007720 7040 CMA /PREPARE TO DUMP LINK AT 7777 433 007721 3233 DCA DTLINK 434 435 007722 1240 DTTRY, TAD JMST8 /SET UNIT 0 ENTRY 436 007723 3331 DCA .+6 437 007724 1351 TAD DTCODE /GET UNIT CODE 438 007725 0241 AND P700 /ANYTHING BUT 0 IS UNIT 1 439 007726 7640 SZA CLA 440 007727 2331 ISZ .+2 /BUMP TO UNIT 1 ADDRESS 441 007730 6212 CIF 10 442 007731 4636 JMS I TD8E0 443 007732 0000 ARG1, 0 /FUNCT 444 007733 0000 ARG2, 0 /CORE 445 007734 0000 ARG3, 0 /BLOCK 446 007735 7610 SKP CLA /ERROR 447 007736 2242 ISZ DTSYS /OK, BUMP TO NORMAL RETURN 448 007737 6201 XCDF1, CDF 0 /SET XFER FIELD 449 007740 1634 TAD I PLINK /SAVE LINK WORO 450 007741 3235 DCA LNHOLD 451 007742 1232 TAD DTHOLD /RESTORE ENDANGERED WORD 452 007743 3634 DCA I PLINK 453 007744 6201 PCDF, CDF 0 /BACK TO 0 454 007745 1235 TAD LNHOLD /PUT AWAY LINK WORD FOR DUMP AT 7777 455 007746 3633 DCA I DTLINK 456 007747 5642 JMP I DTSYS 457 007750 4000 D4000, 4000 458 007751 0000 DTCODE, 0 459 007752 0200 D0200, 200 460 007753 0100 D0100, 100 461 007754 0000 0 /WC 462 007755 0000 0 /CA 463 007756 1000 D1000, 1000 464 465 /TD8E DISK/DECTAPE BOOTSTRAP TO USE STANDAPD 30 WORD 12K BOOT 466 /ASSEMBLED AT 7400. LOADED INTO 1220 INITIALLY. LOADS INTO 467 /7400 VIA BOOTSTRAP. 468 /READS IN FLD 1 PART FROM BLOCKS 35,36 THEN STARTS FLD1 469 /BOOTSTRAP WHICH READS MONITOR HEAD FRDM BLOCK 37 470 *1220 471 NOPUNCH 472 *7400 473 ENPUNCH 474 SDSS=6771 475 SDST=6772 476 SDSQ=6773 477 SDLC=6774 478 SDLD=6775 479 SDRC=6776 480 SDRD=6777 481 007400 1246 TBOOT, TAD K7600 /128 WORDS/PAGE 482 007401 3244 DCA TWCT /WAIT FOR A BLOCK MARK 483 007402 6771 SDSS 484 007403 5202 JMP .-1 485 007404 6776 SDRC 486 007405 0233 AND T77 487 007406 1251 TAD M26 /IS IT A BLOCK MARK? 488 007407 7640 SZA CLA 489 007410 5202 JMP TBOOT+2 /NO 490 007411 6777 SDRD /GET BLOCK NO 491 007412 1253 TBLKNO, TAD M35 /NEED BLOCKS 35,36 492 007413 7640 SZA CLA 493 007414 5202 JMP TBOOT+2 /NO 494 007415 6771 TRGRD, SDSS 495 007416 5215 JMP .-1 496 007417 6776 SDRC /LOOK FOR REV. GUARD WORD 497 007420 0233 AND T77 498 007421 1252 TAD M32 499 007422 7640 SZA CLA 500 007423 5215 JMP TRGRD /NOT YET 501 007424 4255 JMS TRQD /SKIP CONTROL WORDS 502 007425 4255 JMS TRQD 503 007426 4255 JMS TRQD 504 007427 6211 CDF 10 /LOAD TO FLD 1 505 007430 4255 TREAD, JMS TRQD /GET DATA WORDS 506 007431 3645 DCA I PTR 507 007432 2245 ISZ PTR 508 007433 0077 T77, 77 /NOP 509 007434 2244 ISZ TWCT /FINISHED BLOCK? 510 007435 5230 JMP TREAD /NO 511 007436 2212 ISZ TBLKNO /YES. DO NEXT BLOCK 512 007437 2250 ISZ M2 /DONE BOTH BLOCKS? 513 007440 5200 JMP TBOOT /NO 514 007441 6774 SDLC /DONE STOP TAPE 515 007442 6213 CIF CDF 10 516 007443 5647 JMP I K7767 /GO READ MONITOR HEAD 517 518 007444 7600 TWCT, 7600 /1ST LOCATION FOR TD8E RTN 519 007445 7400 PTR, 7400 520 007446 7600 K7600, 7600 521 007447 7767 K7767, 7767 522 007450 7776 M2, -2 523 007451 7752 M26, -26 524 007452 7746 M32, -32 525 007453 7743 M35, -35 526 007454 7742 M36, -36 /MUST FOLLOW M55 527 007455 0000 TRQD, 0 /READ A WORD 528 007456 6773 SDSQ 529 007457 5256 JMP .-1 530 007460 6777 SDRD 531 007461 5655 JMP I TRQD 532 $ ARG1 7732 ARG2 7733 ARG3 7734 BLOCK 7404 BUFF 7557 C100 7566 C1000 7403 C3 7575 C300 7666 C374 7441 C6203 7554 C70 7574 C7600 7626 unreferenced CFATAL 7751 CHKSUM 7756 CM200 7507 CM32 7754 CRDQUD 7555 CRWCOM 7752 CXFUN 7562 CXWCT 7565 D0070 7600 D0100 7753 D0200 7752 D1000 7756 D1400 7755 D4000 7750 DRTVE 0010 unreferenced DT0 7777 DTA0 7400 DTA1 7404 DTA1X 7410 DTCODE 7751 DTCORE 7621 unreferenced DTHOLD 7632 DTLINK 7633 DTSTRT 7626 DTSYS 7642 DTTRY 7722 unreferenced ENDZ 7535 EQUFUN 7720 EQUTMP 7762 EXIT 7545 FATAL 7547 FOUND 7570 GETCHK 7735 GO 7501 JMST8 7640 K7600 7446 K77 7641 K7700 7616 K7767 7447 LEAVE 7552 LNHOLD 7635 M110 7533 M2 7450 M20 7563 M26 7451 M32 7452 M35 7453 M36 7454 unreferenced MFIELD 0010 MWORDS 7560 P1435 0254 P1436 0255 P1437 0256 P700 7641 PCDF 7744 PGCT 7564 PLINK 7634 PTR 7445 RDLP 7662 RDLP2 7677 RDQUAD 7713 READ 7654 REVGRD 7606 RWCOM 7463 SDLC 6774 SDLD 6775 SDRC 6776 SDRD 6777 SDSQ 6773 SDSS 6771 SDST 6772 SRCH 7510 SYSIO 0257 T77 7433 TBLKNO 7412 TBOOT 7400 TD8E0 7636 TD8E1 7637 unreferenced TREAD 7430 TRGRD 7415 TRQD 7455 TRY3 7541 TRYCNT 7567 TWCT 7444 UNIT 7561 WCOUNT 7556 WDSBLK 0201 WORDS 7757 WRLP 7636 WRQUAD 7704 WRTTE 7620 unreferenced XBUFF 7760 XCDF 7704 XCDF1 7737 XFIELD 7577 XFUNCT 7753 XUNIT 7720 XWCT 7761