1 /TD8E FORMATTER V4 2 / 3 / 4 / 5 / 6 / 7 / 8 // 9 / 10 / 11 / 12 / 13 /COPYRIGHT (C) 1971, 1975 14 /DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASS. 15 / 16 / 17 / 18 /THIS SOFTWARE IS FURNISHED UNDER A LICENSE FOR USE ONLY ON A 19 /SINGLE COMPUTER SYSTEM AND MAY BE COPIED ONLY WITH THE INCLU- 20 /SION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE, OR ANT OTHER 21 /COPIES THEREOF, MAY NOT BR PROVIDED OR OTHERWISE MADE AVAILABLE 22 /TO ANY OTHER PERSON EXCEPT FOR USE ON SUCH SYSTEM AND TO ONE WHO 23 /AGREES TO THESE LICENSE TERMS. TITLE TO AND OWNERSHIP OF THE 24 /SOFTWARE SHALL AT ALL TIMES REMAIN IN DEC. 25 / 26 / 27 /THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT 28 /NOTICE AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL 29 /EQUIPMRNT COROPATION. 30 / 31 /DEC ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 32 /SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DEC. 33 / 34 / 35 / 36 / 37 / 38 / 39 40 41 /TD8E DECTAPE FORMATTER COPYRIGHT 1971 42 /DIGITAL EQUIPMENT CORP. 43 /MAYNARD , MASS 44 45 46 47 48 49 X1=10 50 X2=11 51 52 /SYMBOL TABLE AUGMENTATION 53 54 SDSS=6771 55 SDST=6772 56 SDSQ=6773 57 SDLC=6774 58 SDLD=6775 59 SDRC=6776 60 SDRD=6777 61 62 63 *0 64 000000 0000 0 65 000001 5001 JMP 1 /HLT PROGRAM GOT INTERRUPTED SOMEHOW 66 000002 0002 2 67 000003 0003 3 68 000004 0000 0 69 000005 0000 0 70 71 /WORKING LOCATIONS 72 73 *20 74 75 000020 0000 W1, 0000 76 000021 0000 W2, 0000 77 000022 0000 W3, 0000 78 000023 0000 W4, 0000 79 000024 0000 W5, 0000 80 000025 0000 W6, 0000 81 000026 0000 BLOCKS, 0000 82 000027 0000 DTA, 0000 83 000030 0000 PHASE, 0000 84 000031 0000 TOTAL, 0000 85 000032 0000 VAR1, 0000 86 000033 0000 VAR2, 0000 87 /CONSTANTS 88 89 000034 0017 C0017, 0017 90 000035 0070 C0070, 0070 91 000036 0077 C0077, 0077 92 000037 0007 C0007, 0007 93 000040 0700 C0700, 0700 94 000041 0203 C203, 0203 95 000042 0201 C201, 0201 96 000043 0260 C260, 0260 97 000044 0261 C261, 0261 98 000045 0270 C270, 0270 99 000046 0271 C271, 0271 100 000047 0277 C277, 0277 101 000050 1620 C1620, 1620 102 000051 7000 C7000, 7000 103 000052 7700 C7700, 7700 104 000053 7714 C7714, 7714 105 000054 7761 C7761, 7761 106 000055 0215 CRCOD, 0215 107 000056 0313 LETK, 0313 108 000057 0212 LFCOD, 0212 109 000060 7776 M2, -2 110 000061 7775 M3, -3 111 000062 7772 M6, -6 112 000063 7771 M7, -7 113 000064 7764 M14, -14 114 000065 7634 M144, -144 115 000066 0240 SPCOD, 0240 116 117 000067 3377 BADD, BUFFER-1 118 000070 3400 BFR, BUFFER 119 000071 0325 COMPAR, COMPRE 120 000072 1066 IT, INIT1 121 000073 0400 QU1, Q1 122 000074 0410 QU2, Q2 123 000075 0422 QU3, Q3 124 000076 0434 QU4, Q4 125 000077 0454 MESS, MES 126 000100 1011 STX, START 127 000101 0523 TYOCT, TYCT 128 000102 0202 TYPE, MESAGE 129 000103 0260 TYPIN, TYPN 130 000104 0600 WAIT, STALL 131 000105 0000 WC, 0 132 000106 0000 MTR, 0 133 000107 3120 SLRDRC, SRDRC 134 000110 0000 DATRD, 0 135 000111 7723 M55, -55 136 000112 7753 M25, -25 137 000113 7752 M26, -26 138 000114 7746 M32, -32 139 000115 7770 M10, -10 140 000116 7710 M70, -70 141 000117 7705 M73, -73 142 000120 7727 M51, -51 143 000121 7733 M45, -45 144 000122 7756 M22, -22 145 000123 7635 M143, -143 146 000124 7726 M52, -52 147 000125 7747 M31, -31 148 000126 7472 M306, -306 149 000127 0000 CNT, 0 150 000130 7774 M4, -4 151 000131 7471 M307, -307 152 000132 3000 SSDSQT, SDSQT 153 000133 3027 SA3LNS, A3LNS 154 000134 3056 SCEXPC, CEXPC 155 000135 0077 MSK77, 0077 156 000136 3133 NUD, NUDTA 157 000137 0000 BLK, 0 158 000140 0000 REVBLK, 0 159 000141 3070 BCXOR, SBCXOR 160 000142 0000 CHKSUM, 0 161 000143 0000 SBWORD, 0 162 163 164 165 /TYPE THE CHARACTER IN THE AC ON THE KEYBOARD PRINTER 166 167 000144 0000 RSEND, 0000 168 000145 6046 TLS /LOAD AND PRINT, CLEAR FLAG 169 000146 6041 TSF /WAIT FOR CONFIRMATION 170 000147 5146 JMP .-1 /ENDLESSLY 171 000150 6042 TCF /CLEAR THE FLAG ANYWAY 172 000151 5544 JMP I RSEND 173 174 175 /PRINT A "?" ON THE KEYBOARD TYPER 176 177 000152 0153 QU, .+1 178 000153 6002 IOF 179 000154 7300 CLA CLL /C(AC)+C(L)=0 180 000155 1047 TAD C277 /"?" 181 000156 4144 JMS RSEND /TYPE THE CHARACTER 182 000157 5560 JMP I .+1 /RESTART 183 000160 1072 INIT 184 185 /DECTAPE CONTROL WORDS 186 187 000161 1400 DT1400, 1400 188 000162 0400 DT0400, 0400 189 000163 2000 DT2000, 2000 190 000164 3000 DT3000, 3000 191 000165 1000 DT1000, 1000 192 193 000166 3155 BINCO, BINCON 194 000167 0724 SELTIM, ZTIM 195 000170 0657 MARKER, ZMKTK 196 000171 0613 BLKERR, ZBLK 197 000172 0637 DATERR, ZDATA 198 000173 0702 CHKERR, ZPAR 199 000174 1400 DOMARK, STMK 200 000175 0000 DBUFPT, 0 /POINTER TO CURRENT POSITION IN DTA LIST 201 202 203 204 *200 /PAGE 1 205 /TYPE CANNED MESSAGES..... 206 /THANKS TO DIGITAL 8-18-U 207 000200 5601 JMP I .+1 208 000201 0515 PATCH 209 210 000202 0000 MESAGE, 0 211 000203 6002 IOF 212 000204 7240 CLA CMA /SET C(AC)=-1 213 000205 1202 TAD MESAGE /ADD LOCATION 214 000206 3010 DCA 10 /AUTO INDEX REGISTER 215 000207 1410 TAD I 10 /FETCH FIRST WORD 216 000210 3221 DCA MSRGHT /SAVE IT 217 000211 1221 TAD MSRGHT 218 000212 7012 RTR 219 000213 7012 RTR /ROTATE 6 BITS TO THE RIGHT 220 000214 7012 RTR 221 000215 4222 JMS TYPECH /TYPE IT 222 000216 1221 TAD MSRGHT /GET DATA AGAIN 223 000217 4222 JMS TYPECH /TYPE RIGHT HALF 224 000220 5207 JMP MESAGE+5 /CONTINUE 225 000221 0000 MSRGHT, 0 /TEMPORARY STORAGE 226 000222 0000 TYPECH, 0 /TYPE CHARACTER IN C(AC)6-11 227 000223 0036 AND C0077 228 000224 7450 SNA /IS IT END OF MESSAGE? 229 000225 5410 JMP I 10 /YES: EXIT 230 000226 1253 TAD M40 /SUBTRACT 40 231 000227 7500 SMA /<40? 232 000230 5233 JMP .+3 /NO 233 000231 1254 TAD C340 /YES: ADD 300 234 000232 5246 JMP MTP /TO CODES <40 235 000233 1061 TAD M3 /SUBTRACT 3 236 000234 7440 SZA /IS IT ZERO? 237 000235 5240 JMP .+3 /NO 238 000236 1255 TAD C212 /YES: CODE 43 IS 239 000237 5246 JMP MTP /LINE-FEED (212) 240 000240 1060 TAD M2 /SUBTRACT 2 241 000241 7440 SZA /IS IT ZERO? 242 000242 5245 JMP .+3 /NO 243 000243 1256 TAD C215 /YES: CODE 45 IS 244 000244 5246 JMP MTP /CARRIAGE RETURN (215) 245 000245 1257 TAD C245 /ADD 200 TO OTHERS >40 246 000246 6046 MTP, TLS /TRANSMIT CHARACTER 247 000247 6041 TSF /WAIT FOR THE FLAG 248 000250 5247 JMP .-1 /NOT SET YET 249 000251 7200 CLA /SET: CLEAR C(AC) 250 000252 5622 JMP I TYPECH /RETURN 251 252 /CONSTANTS 253 254 000253 7740 M40, -40 255 000254 0340 C340, 340 256 000255 0212 C212, 212 257 000256 0215 C215, 215 258 000257 0245 C245, 245 259 /ROUTINE WAITS UNTILL A COMPLETE MESSAGE HAS BEEN ENTERED 260 /SIGNIFIED BY A CR. 261 262 000260 0000 TYPN, 0 263 000261 6002 IOF 264 000262 6032 KCC /CLEAR AC, KEYBOARD FLAG 265 000263 1067 TAD BADD /GET BUFFER ADDRESS 266 000264 3020 DCA W1 /STORE FOR THE CHARACTER STRING 267 268 /READ AND RESPOND WITH THE CHARACTER 269 270 000265 2020 NTYRTN, ISZ W1 /NORMAL RETURN. INCREMENT BUFFER 271 000266 6031 KSF /WAIT FOR KEYBOARD 272 000267 5266 JMP .-1 /FLAG TO RAISE 273 000270 6036 KRB /GOT FLAG, RESET IT, GET CHARACTER 274 000271 4144 JMS RSEND /SEND CHARACTER BACK 275 000272 0377 AND (177 /TAKE CARE OF PARITY 276 000273 1376 TAD (200 277 000274 3420 DCA I W1 /LOAD CHARACTER INTO BUFFER AREA 278 000275 1420 TAD I W1 /CHECK FOR CTRL C 279 000276 7041 CIA 280 000277 1041 TAD C203 281 000300 7640 SZA CLA 282 000301 5306 JMP CHKSP /NO- CHECK FOR SPACE 283 000302 6007 6007 /CAF- CLEAR ALL FLAGS 284 000303 7000 NOP /JUST IN CASE 285 000304 7200 CLA 286 000305 5775 JMP 7605 287 288 /IF CHARACTER IS A SPACE, IGNORE IT 289 290 000306 1420 CHKSP, TAD I W1 /CHARACTER INTO THE AC 291 000307 7041 CIA /SUBTRACT FROM SPACE CODE (240) 292 000310 1066 TAD SPCOD /COMPLETE COMPARISON 293 000311 7650 SNA CLA /WAS IT A SPACE? 294 000312 5266 JMP NTYRTN+1 /YES: DO NOT INCREMENT BUFFER 295 296 /IF CHARACTER IS A CR, EXIT FROM ROUTINE 297 298 000313 1420 TAD I W1 /CHARACTER TO AC 299 000314 7041 CIA /SET AC TO SUBTRACT CR (215) 300 000315 1055 TAD CRCOD /COMPLETE COMPARISON 301 000316 7640 SZA CLA /WAS IT CR? 302 000317 5265 JMP NTYRTN /NO: INCREMENT BUFFER + WAIT 303 304 /CARRIAGE RETURN FOUND, EXIT FROM ROUTINE 305 306 000320 1057 TAD LFCOD /GIVE KEYBOARD LINE FEED 307 000321 4144 JMS RSEND /EXECUTE LINE FEED 308 000322 7300 CLA CLL /EXIT WITH C(ACC) + AND C(L)=0 309 000323 6002 IOF 310 000324 5660 JMP I TYPN /RETURN TO CALL 311 312 /COMPARE A STRING OF CHARACTERS IN "BUFFER" 313 /TO A CHARACTER STRING AFTER A JMS IN ASCII 314 315 000325 0000 COMPRE, 0 316 000326 7240 CLA CMA /C(AC)=7777 317 000327 1325 TAD COMPRE /SUBTRACT 1 FOR INDEX REG 1 318 000330 3010 DCA 10 /AUTO INDEX 1 SET TO CHA STRING 319 000331 1067 TAD BADD /AUTO INDEX 2 SET TO BUFFER-1 320 000332 3011 DCA 11 /LOAD X2 321 322 /COMPARE CHARACTERS TILL ONE DOESN'T COMPARE OR TILL 323 /A 0 IS FOUND IN X1. IF OK, RETURN TO TWO PLUS THE 324 /ZERO, IF BAD ONE PLUS 325 326 000333 1410 TAD I X1 /CHARACTER FROM PROGRAM 327 000334 7041 CIA /TO SUBTRACT FROM 328 000335 1411 TAD I X2 /CHARACTER IN BUFFER 329 000336 7640 SZA CLA /COMPARE? 330 000337 5345 JMP CERR /NO:RESYNC FOR NON COMPARE EXIT 331 000340 1410 TAD I X1 /YES: CHECK FOR GOOD EXIT 332 000341 7440 SZA /IF 0, EXIT GOOD 333 000342 5334 JMP .-6 /NO: TEST NEXT CHAACTER 334 000343 2010 ISZ X1 /+1 TO X1(TOTAL 2 FROM THE 0) 335 000344 5410 JMP I X1 /+1 TO X1, EXIT 336 337 /ERROR FOUND. RESYNC AND EXIT NO COMPARE 338 339 000345 1410 CERR, TAD I X1 /CHARACTER FROM PROGRAM 340 000346 7640 SZA CLA /IS THIS EXIT KEY? (0000) 341 000347 5345 JMP .-2 /NO: GET NEXT 342 000350 5410 JMP I X1 /YES: EXIT, NOT COMPARE 343 344 000375 7605 *400 000376 0200 000377 0177 345 /VARIOUS ERROR MESSAGES 346 /"NOT DECIMAL" 347 348 000400 4502 Q1, JMS I TYPE 349 000401 1617 1617 /NO 350 000402 2440 2440 /T 351 000403 0405 0405 /DE 352 000404 0311 0311 /CI 353 000405 1501 1501 /MA 354 000406 1400 1400 /L 355 000407 5247 JMP QUX 356 357 /"TO MANY WORDS" 358 359 000410 4502 Q2, JMS I TYPE 360 000411 2417 2417 /TO 361 000412 1740 1740 /O 362 000413 1501 1501 /MA 363 000414 1631 1631 /NY 364 000415 4027 4027 / W 365 000416 1722 1722 /OR 366 000417 0423 0423 /DS 367 000420 0000 0000 /00 368 000421 5247 JMP QUX 369 370 /"TO MANY BLOCKS" 371 372 000422 4502 Q3, JMS I TYPE 373 000423 2417 2417 /TO 374 000424 1740 1740 /O 375 000425 1501 1501 /MA 376 000426 1631 1631 /NY 377 000427 4002 4002 / B 378 000430 1417 1417 /LO 379 000431 0313 0313 /CK 380 000432 2300 2300 /S0 381 000433 5247 JMP QUX 382 383 /"NOT DIVISIBLE BY 3" 384 000434 4502 Q4, JMS I TYPE 385 000435 1617 1617 /NO 386 000436 2440 2440 /T 387 000437 0411 0411 /DI 388 000440 2611 2611 /VI 389 000441 2311 2311 /SI 390 000442 0214 0214 /BL 391 000443 0540 0540 /E 392 000444 0231 0231 /BY 393 000445 4063 4063 / 3 394 000446 0000 0000 /00 395 000447 4502 QUX, JMS I TYPE 396 000450 4345 4345 /CR+LF 397 000451 0000 0000 /END 398 000452 5653 JMP I .+1 399 000453 1072 INIT 400 /THE CODING BELOW CREATES THE BLOCK NUMBER 401 /CONVERSION PRIOR TO THE TAPE WRITE. 402 403 000454 0000 MES, 0 404 000455 3023 DCA W4 /SAVE WORD 405 000456 7100 CLL 406 000457 1023 TAD W4 407 000460 7052 CMA RTR 408 000461 7012 RTR 409 000462 0051 AND C7000 410 000463 3306 DCA V1 411 000464 1023 TAD W4 412 000465 7046 CMA RTL 413 000466 7004 RAL 414 000467 0040 AND C0700 415 000470 3307 DCA V2 416 000471 1023 TAD W4 417 000472 7052 CMA RTR 418 000473 7010 RAR 419 000474 0035 AND C0070 420 000475 3313 DCA V3 421 000476 1023 TAD W4 422 000477 7046 CMA RTL 423 000500 7006 RTL 424 000501 0037 AND C0007 425 000502 1306 TAD V1 426 000503 1307 TAD V2 427 000504 1313 TAD V3 428 000505 5654 JMP I MES 429 430 000506 0000 V1, 0000 431 000507 0000 V2, 0000 432 000510 7777 7777 433 000511 7700 7700 434 000512 0000 0000 435 000513 0000 V3, 0000 436 000514 0000 0000 437 438 000515 7200 PATCH, CLA 439 000516 1322 TAD .+4 440 000517 3001 DCA 1 441 000520 5721 JMP I .+1 442 000521 1011 START 443 000522 7402 HLT 444 /TYPE ONE FOUR CHARACTER OCTAL WORD GIVEN TO THE 445 /ROUTINE VIA C(ACC). C(ACC)=0 ON EXIT 446 447 000523 0000 TYCT, 0 448 000524 3363 DCA TW1 /STORE WORD GIVEN 449 000525 1363 TAD TW1 /TO C(ACC) AGAIN 450 000526 7012 RTR 451 000527 7012 RTR /6 BITS RIGHT 452 000530 7012 RTR 453 000531 3360 DCA TYCT1+2 /SAVE ROTATED VALUE, 1ST TWO 454 000532 1360 TAD TYCT1+2 /TO C(ACC) AGAIN 455 000533 0037 AND C0007 /ISOLATE SECOND CHARACTER 456 000534 1364 TAD C6060 /CONVERT TO ASCII 457 000535 3357 DCA TYCT1+1 /STORE AS FIRST PARTIAL 2 458 000536 1360 TAD TYCT1+2 /ROTATED VALUE STORED ABOVE 459 000537 7006 RTL 460 000540 7004 RAL /3 BITS LEFT 461 000541 0040 AND C0700 /ISOLATE FIRST CHARACTER 462 000542 1357 TAD TYCT1+1 /CONVERT 1ST TO ASCII 463 000543 3357 DCA TYCT1+1 /1ST AND 2ND CHARACTERS READY 464 000544 1363 TAD TW1 /ORIGIONAL WORD 465 000545 0037 AND C0007 /ISOLATE 4TH CHARACTER 466 000546 1364 TAD C6060 /CONVERT 4 TH TO ASCII 467 000547 3360 DCA TYCT1+2 /STORE 4TH FOR A MOMENT 468 000550 1363 TAD TW1 /ORIGIONAL WORD 469 000551 7006 RTL 470 000552 7004 RAL /POSITION IT 3RD CHARACTER 471 000553 0040 AND C0700 /ISOLATE 3RD CHARACTER 472 000554 1360 TAD TYCT1+2 /CONVERT TO ASCII 473 000555 3360 DCA TYCT1+2 /CONVERSION COMPLETE 474 000556 4502 TYCT1, JMS I TYPE /TYPE THE FOUR CHARACTERS 475 000557 0000 0 /FIRST 2 476 000560 0000 0 /SECOND 2 477 000561 0000 0 /KILL KEY 478 000562 5723 JMP I TYCT /EXIT FROM ROUTINE 479 480 /SOME CONSTANTS FOR THE ROUTINE 481 482 000563 0000 TW1, 0000 483 000564 6060 C6060, 6060 484 485 *600 486 487 000600 0000 STALL, 0 488 000601 7200 CLA 489 000602 1412 TAD I 12 /WORD TO BE WRITTEN 490 000603 6773 SDSQ /WAIT FOR QUADLINE FLAG 491 000604 5203 JMP .-1 492 000605 6775 SDLD /LOAD DATA REGISTERS 493 000606 6772 SDST /CHECK FOR TIMING ERROR 494 000607 7410 SKP 495 000610 4567 JMS I SELTIM /TIMING ERROR 496 000611 7200 CLA 497 000612 5600 JMP I STALL /GO GET NEXT WORD 498 499 500 501 /WAIT TILL WORD COUNT REGISTER GOES TO ZERO 502 503 /BLOCK NUMBER ERROR 504 000613 0000 ZBLK, 0 505 000614 7200 CLA 506 000615 1027 TAD DTA 507 000616 6774 SDLC /STOP MOVEMENT OF TAPE 508 000617 4502 JMS I TYPE 509 000620 2003 2003 /PC 510 000621 4000 4000 /END 511 000622 7240 CLA CMA 512 000623 1213 TAD ZBLK 513 000624 4501 JMS I TYOCT 514 000625 4502 JMS I TYPE 515 000626 4040 4040 /DOUBLE SPACE 516 000627 0214 0214 /BL 517 000630 1703 1703 /OC 518 000631 1340 1340 /K 519 000632 1625 1625 /NU 520 000633 1502 1502 /MB 521 000634 0522 0522 /ER 522 000635 4000 4000 /END 523 000636 5344 JMP ZCOM 524 525 /DATA ERRORS 526 000637 0000 ZDATA, 0 527 000640 7200 CLA 528 000641 1027 TAD DTA 529 000642 6774 SDLC /STOP THE TAPE 530 000643 4502 JMS I TYPE 531 000644 2003 2003 532 000645 4000 4000 533 000646 7240 CLA CMA 534 000647 1237 TAD ZDATA 535 000650 4501 JMS I TYOCT 536 000651 4502 JMS I TYPE 537 000652 4040 4040 538 000653 0401 0401 /DA 539 000654 2401 2401 /TA 540 000655 4000 4000 /END 541 000656 5344 JMP ZCOM 542 543 /MARK TRACK ERROR 544 545 000657 0000 ZMKTK, 0 546 000660 7200 CLA 547 000661 1027 TAD DTA 548 000662 6774 SDLC /STOP THE TAPE 549 000663 4502 JMS I TYPE 550 000664 2003 2003 /PC 551 000665 4000 4000 /END 552 000666 7240 CLA CMA 553 000667 1257 TAD ZMKTK 554 000670 4501 JMS I TYOCT 555 000671 4502 JMS I TYPE 556 000672 4040 4040 557 000673 1501 1501 /MA 558 000674 2213 2213 /RK 559 000675 4024 4024 / T 560 000676 2201 2201 /RA 561 000677 0313 0313 /CK 562 000700 4000 4000 / 0 563 000701 5344 JMP ZCOM 564 /PARITY ERROR 565 566 000702 0000 ZPAR, 0 567 000703 7200 CLA 568 000704 1027 TAD DTA 569 000705 6774 SDLC /STOP THE TAPE 570 000706 4502 JMS I TYPE 571 000707 2003 2003 /PC 572 000710 4000 4000 /END 573 000711 7240 CLA CMA 574 000712 1302 TAD ZPAR 575 000713 4501 JMS I TYOCT 576 000714 4502 JMS I TYPE 577 000715 4040 4040 578 000716 0310 0310 /CH 579 000717 0503 0503 /EC 580 000720 1323 1323 /KS 581 000721 2515 2515 /UM 582 000722 4000 4000 /0 583 000723 5344 JMP ZCOM 584 585 586 /TIMING ERROR 587 588 000724 0000 ZTIM, 0 589 000725 7200 CLA 590 000726 1027 TAD DTA 591 000727 6774 SDLC /STOP THE TAPE 592 000730 4502 JMS I TYPE 593 000731 2003 2003 594 000732 4000 4000 595 000733 7240 CLA CMA 596 000734 1324 TAD ZTIM 597 000735 4501 JMS I TYOCT 598 000736 4502 JMS I TYPE 599 000737 4040 4040 600 000740 2411 2411 /TI 601 000741 1511 1511 /MI 602 000742 1607 1607 /NG 603 000743 4000 4000 / 0 604 605 /TYPE "ERROR PHASE X" 606 607 000744 1030 ZCOM, TAD PHASE /WHAT PHASE OF OPERATION 608 000745 1363 TAD PFORM /WAS THE MACHINE IN 609 000746 3356 DCA TFORM /WHEN ERROR OCCURED 610 000747 4502 JMS I TYPE 611 000750 0522 0522 /ER 612 000751 2217 2217 /RO 613 000752 2240 2240 /R 614 000753 2010 2010 /PH 615 000754 0123 0123 /AS 616 000755 0540 0540 /E 617 000756 4060 TFORM, 4060 / X 618 000757 4543 4543 /CR+LF 619 000760 0000 0000 /END 620 000761 5762 JMP I .+1 621 000762 2726 RETRY 622 000763 4060 PFORM, 4060 623 624 625 626 /HERE STARTS THIS PROGRAM. IT WILL ASK THE 627 /OPERATOR FOR DRIVE NUMBERS, THEN ASK HIM FOR 628 /A DIRECTION ON WHAT TO DO WITH THE DRIVES. 629 630 /THE SEQUENCE FOR MARKING A TAPE WOULD APPEAR AS: 631 632 633 /UNIT? (0 OR 1 OR 0 1) 634 /FORMAT? (MARK 1215) 635 /2277 WORDS, 0256 BLOCKS.OK? YES OR NO 636 /(YES) 637 638 639 /THAT DATA IN PARENTHESIS IS TYPED BY THE OPERATOR 640 /(HE DOESN'T TYPE THE PARENTHESIS) 641 /IF HE HAD ANSWERED NO, "FORMAT?" WOULD BE TYPED OUT. 642 /IF THE DRIVE WAS WRONG, HE WOULD TYPE RESTART. 643 /IF HE HAD TYPED "MARK" IN RESPONSE TO "FORMAT?" THE 644 /TAPE WOULD BE MARKED WITH THE STANDARD PDP-8 CONFIGURATION. 645 /IF HE HAD TYPED "MARK 384" THE TAPE WOULD 646 /BE MARKED WITH THE STANDARD PDP-10 CONFIGURATION 647 /NOTE: THE WORD AND BLOCK NUMBERS ARE TYPED IN OCTAL 648 /IF A MISTAKE OCCURS ON THE OPERATORS PART (WITH REFERANCE 649 /TO BLOCK + WORD SIZE) HE WILL BE TOLD ABOUT IT 650 651 652 653 654 655 *1000 656 657 /MAKE A CALL FOR THE DECTAPE NUMBERS TO BE 658 /WORKED. 659 660 001000 4502 STAR0, JMS I TYPE /TYPE VERSION NUMBER 661 001001 4543 4543 /CR+LF 662 001002 4300 4300 /LF+0 663 001003 4502 JMS I TYPE 664 001004 2404 TEXT /TDFMT V4A/ 001005 0615 001006 2440 001007 2664 001010 0100 665 001011 4502 START, JMS I TYPE /SET UP TYPER 666 001012 4543 4543 /CR+LF 667 001013 4300 4300 /LF+END 668 669 001014 4502 TYQU, JMS I TYPE /"UNIT?" 670 001015 2516 2516 /UN 671 001016 1124 1124 /IT 672 001017 7740 7740 /? 673 001020 0000 0000 /END 674 675 /WAIT FOR A REPLY 676 677 001021 4503 JMS I TYPIN /GET NUMBERS 678 001022 1067 TAD BADD /INITIALIZE POINTER (BFR) 679 001023 7001 IAC /(BADD=BUFFER-1, SO BUMP THE AC) 680 001024 3070 DCA BFR /TO START OF INPUT BUFFER 681 001025 3777 DCA DCTR /INITIALIZE DTA COUNTER TO 0 682 001026 3357 DCA CRFLAG /CLEAR FLAG SO CR NOT ACCEPTIBLE 683 001027 1055 CRCHK, TAD CRCOD /GET CODE FOR CAR. RETN 684 001030 7041 CIA /NEGATE IT 685 001031 1470 TAD I BFR /SEE IF NEXT CHAR. IN 686 001032 7450 SNA /BUFFER IS CAR. RETN. 687 001033 5255 JMP OKCR /YES: SEE IF C.R. LEGAL HERE 688 001034 3357 DCA CRFLAG /NO: SO C.R. IS LEGAL NOW 689 001035 1043 VALCHK, TAD C260 /SEE IF # IS LESS THAN 690 001036 7041 CIA /ASCII 0 (260) 691 001037 1470 TAD I BFR /SUBTRACT BUFFER DATA 692 001040 7710 SPA CLA /IS IT LESS THAN ASII 0? 693 001041 5214 JMP TYQU /YES: TELL OUTSIDE WORLD 694 001042 1044 TAD C261 /NO: SEE IF GREATER THAN 695 001043 7040 CMA /ASC II 1 (261) 696 001044 1470 TAD I BFR /SUBTRACT BUFFER DATA 697 001045 7700 SMA CLA /GREATER THAN ASCII 7? 698 001046 5214 JMP TYQU /YES: TELL OUTSIDE WORLD 699 001047 1470 TAD I BFR /NO: ACCEPT BUFFER 700 001050 7012 RTR 701 001051 0051 AND C7000 /ISOLATE DTA 702 001052 4776 JMS REPEAT /GO CHECK FOR REPEATED DTA AND STORE # 703 001053 2070 ISZ BFR /INCREMENT INPUT BUF. PTR. 704 001054 5227 JMP CRCHK /GO LOOK AT NEXT CHAR. 705 706 /THIS SECTION CHECKS TO SEE IF THERE HAS BEEN ANY 707 /VALID INPUT ONCE A CARRIAGE RETURN IS SEEN 708 001055 7200 OKCR, CLA /CLEAR AC 709 001056 1357 TAD CRFLAG /LOAD CR FLAG; 0 MEANS NO GOOD 710 001057 7650 SNA CLA 711 001060 5211 JMP START /0: NO VALID INPUT; RESTART 712 001061 1777 TAD DCTR /NOT 0: SO HAVE VALID INPUT 713 001062 1775 TAD DBUFAD /CALCULATE END OF DTA LIST +1 714 001063 3175 DCA DBUFPT /STORE IT IN BUFFER POINTER, THEN 715 001064 7040 CMA /COMPLEMENT THE AC AND 716 001065 3575 DCA I DBUFPT /TERMINATE DTA LIST WITH 7777 717 001066 7200 INIT1, CLA /CLEAR AC IF COME THRU LOC IT 718 001067 1775 TAD DBUFAD /AND RESET LIST POINTER 719 001070 3175 DCA DBUFPT /TO START OF LIST 720 001071 4756 JMS I GETDTA /GO GET A DTA NUMBER 721 722 /INFORM THE OPERATOR THAT THE PROGRAM IS SET TO START 723 /TYPE "FORMAT" AND WAIT FOR THE REPLY 724 725 001072 4502 INIT, JMS I TYPE /MESSAGE OUT 726 001073 0617 0617 /FO 727 001074 2215 2215 /RM 728 001075 0124 0124 /AT 729 001076 7740 7740 /? 730 001077 0000 0000 /END 731 001100 4503 JMS I TYPIN /WAIT FOR A REPLY 732 001101 4471 JMS I COMPAR /DID HE TYPE "MARK"? 733 001102 0315 0315 /M 734 001103 0301 0301 /A 735 001104 0322 0322 /R 736 001105 0313 0313 /K 737 001106 0000 0000 /END 738 001107 5312 JMP .+3 739 001110 5711 JMP I .+1 740 001111 1200 MARK /TO MARK A TAPE 741 /SEE IF HE TYPED "RDR" (READ AND TYPE FIRST 12 742 /BLOCK NUMBERS IN REVERSE). 743 744 001112 4471 JMS I COMPAR 745 001113 0322 0322 /R 746 001114 0304 0304 /D 747 001115 0322 0322 /R 748 001116 0000 0000 /0 749 001117 5322 JMP .+3 750 001120 5721 JMP I .+1 751 001121 2677 RDR /TYPE BLOCKS 752 753 /SEE IF HE TYPED "RDF" (READ AND TYPE FIRST 12 754 /BLOCK NUMBERS FORWARD). 755 756 001122 4471 JMS I COMPAR 757 001123 0322 0322 /R 758 001124 0304 0304 /D 759 001125 0306 0306 /F 760 001126 0000 0000 /0 761 001127 5332 JMP .+3 762 001130 5731 JMP I .+1 763 001131 2600 RDFA /TYPE BLOCKS 764 765 /SEE IF HE TYPED "SAME" (MEANING MARK A TAPE 766 /USING THE SAME CONSTANTS AS BEFORE). 767 768 001132 4471 JMS I COMPAR 769 001133 0323 0323 /S 770 001134 0301 0301 /A 771 001135 0315 0315 /M 772 001136 0305 0305 /E 773 001137 0000 0000 /0 774 001140 5343 JMP .+3 775 001141 5742 JMP I .+1 776 001142 3200 SWCHK /TO MARK AS BEFORE 777 778 /SEE IF HE TYPED "RESTART" 779 780 001143 4471 JMS I COMPAR 781 001144 0322 0322 /R 782 001145 0305 0305 /E 783 001146 0323 0323 /S 784 001147 0324 0324 /T 785 001150 0301 0301 /A 786 001151 0322 0322 /R 787 001152 0324 0324 /T 788 001153 0000 0000 /0 789 001154 4152 JMS QU /MUST BE NONSENSE 790 001155 5211 JMP START /START ALL OVER 791 001156 3133 GETDTA, NUDTA /POINTER TO ROUTINE TO SWITCH UNITS 792 001157 0000 CRFLAG, 0 /=0, CR NO GOOD; NOT 0, CR IS OK 793 794 001175 2544 *1200 001176 2525 001177 2543 795 /MARK WAS TYPED IN, IF W1-1 IS NOT A "K",ASSUME THAT 796 /A NUMBER WAS TYPED IN, AND VERIFY THIS. IF W1-1 IS 797 /A "K", ASSUME STANDARD FORMAT.(W1=LAST ENTRY INTO THE BUFFER) 798 799 001200 1566 MARK, TAD I BINCO /ADDRESS OF FIRST BINARY 800 001201 3024 DCA W5 /CONSTANT FOR DEC TO BIN 801 001202 3031 DCA TOTAL /WILL BE BINARY EQUIVILANT 802 803 /SAVE C(X1) FOR DECREMENT THROUGH BUFFER 804 805 001203 7240 DNC, CLA CMA /DECREMENT BUFFER ADDRESS 806 001204 1020 TAD W1 /ADDRESS BY 1 807 001205 3020 DCA W1 /W1=SWEEP ADDRESS 808 809 /LOOK FOR END OF PROCESSING BY LOOKING FOR A "K" IN BUFFER 810 811 001206 1056 TAD LETK /LETTER ASCII "K" 812 001207 7041 CIA /SUBTRACT FROM CHARACTER 813 001210 1420 TAD I W1 /IN BUFFER 814 001211 7650 SNA CLA /EQUAL? 815 001212 5244 JMP DIV3 /YES: SEE IF DIVISIBLE BY 3 816 817 /VERIFY THIS CHARACTER AS BEING OF DECIMAL ORIGIN 818 819 001213 1043 TAD C260 /ASCII FOR 0 820 001214 7041 CIA /TO SEE IF CHARACTER 821 001215 1420 TAD I W1 /IS LESS THAN 260 822 001216 7710 SPA CLA /IS IT? 823 001217 5473 JMP I QU1 /YES: NOT DECIMAL CHARACTER 824 001220 1046 TAD C271 /ASCII FOR 9 825 001221 7040 CMA /TO SEE IF GREATER THAN 826 001222 1420 TAD I W1 /9 827 001223 7700 SMA CLA /IS IT? 828 001224 5473 JMP I QU1 /NOT A DECIMAL CHARACTER 829 /CHARACTER IS DECIMAL. NOW CONVERT IT TO BINARY 830 /REMEMBER POSITION OF CHARACTER IN BUFFER MAY BE 831 /10,100,1000. 832 833 001225 1420 TAD I W1 /ISOLATE THE NUMBER 834 001226 0034 AND C0017 /FOR PROPER CONVERSION 835 001227 7450 SNA /IF 0, NO BINARY CONVERSION NEEDED 836 001230 5242 JMP IBS /YES: 0: INCREMENT BINARY CONVERSION 837 838 /NOT 0, SET UP CONVERSION LOOP 839 840 001231 7141 CLL CIA /NUMBER OF ADDITIONS 841 001232 3023 DCA W4 /TO NEGATIVE FOR ISZ 842 001233 1424 TAD I W5 /BINARY POSITION TO C(ACC) 843 001234 1031 TAD TOTAL /ADD TO PRESENT TOTAL 844 001235 7430 SZL /CHECK ON TO MANY WORDS 845 001236 5474 JMP I QU2 /TO MANY WORDS CALLED FOR 846 001237 3031 DCA TOTAL /KEEP RUNNING SUM 847 001240 2023 ISZ W4 /LAST ADDITION? 848 001241 5233 JMP .-6 /NO: ADD AGAIN 849 850 /FINAL ADDITION FOR THIS POSITION COMPLETED 851 852 001242 2024 IBS, ISZ W5 /NEXT POSITION 853 001243 5203 JMP DNC /DO NEXT CHARACTER 854 855 /LAST CHARACTER COMPLETED. SEE IF DIVISIBLE BY 3 856 /IF NOT A NORMAL INPUT 857 858 001244 1031 DIV3, TAD TOTAL /GET TOTAL WORDS 859 001245 7450 SNA /IF TOTAL 0, NORMAL INPUT 860 001246 1042 TAD C201 /129 OCT. THIS TEST REDUNDANT 861 001247 1034 TAD C0017 /ADD CONSTANT 15 TO TOTAL 862 001250 3031 DCA TOTAL /FOR FUTURE CONSIDERATIONS 863 001251 3032 DCA VAR1 /# OF WORDS/3 FOR MARK TRACK WRITING 864 001252 1031 TAD TOTAL /RESTORE IN THE ACC 865 001253 7100 CLL /TO DIVIDE BY 3, LINK KEEPS OVERFLOW 866 001254 1061 TAD M3 /SUBTRACT 3 867 001255 2032 ISZ VAR1 /ON EACH DIVISION, KEEP RUNNING SUM 868 001256 7440 SZA /IF AC = 0,NO REMAINDER 869 001257 7420 SNL /WHEN LINC GOES TO 0, DIVISION ENDED 870 001260 7410 SKP /NOW SEE IF IT DIVIDED EVENLY 871 001261 5253 JMP .-6 /SUBTRACT 3 MORE 872 001262 7640 SZA CLA /IF 0,OK. OTHERWISE ERROR 873 001263 5476 JMP I QU4 /NOT DIVISIBLE BY 3 874 875 /CORRECT "VAR1" ( THE NUMBER OF WORDS/3) FOR THE +15 876 /ADDED JUST ABOVE AND AN INHERANT +2 DUE TO MARK TRACK 877 /CONFIGURATION TO BE WRITTEN. 878 879 001264 1063 TAD M7 /SUBTRACT 7 FROM PHONY SETUP 880 001265 1032 TAD VAR1 /GIVING THE NUMBER OF TIMES 881 001266 7041 CIA /TO BE USED LATER IN A ISZ 882 001267 3032 DCA VAR1 /DATA MARK WILL BE WRITTEN 883 /COMPUTE A VALUE FOR TOTAL NUMBER OF BLOCKS 884 /RECORD SIZE + 15 INTO 636160 OCT. 885 886 001270 1053 TAD C7714 /EXTENDED 64 VALUE. SETS AC#2 887 001271 3020 DCA W1 /SET FOR 640000 888 001272 4755 JMS I FORM10 /PATCH TO CHECK FOR STD.10 FORMAT 889 001273 1050 TAD C1620 /VERNIER ADJUSTMENT FOR FORMULA 890 001274 7100 CLL /ACC#2 CARRY FUNCTION 891 001275 1031 TAD TOTAL /WORD COUNT 892 001276 2026 ISZ BLOCKS /+1 TO BLOCK COUNT 893 001277 7410 SKP 894 001300 5475 JMP I QU3 /TO MANY BLOCKS CALLED FOR 895 001301 7420 SNL /CARRY INTO ACC#2? 896 001302 5275 JMP .-5 /NO: CONTINUE COUNT 897 001303 2020 ISZ W1 /YES: FULLY DIVIDED? 898 001304 5274 JMP .-10 /NO: CONTINUE PROCESS 899 001305 7300 CLA CLL /C(ACC)+ C(L)=0 900 001306 1026 F10RTN, TAD BLOCKS /FOR MARK TRACK (COME HERE FR F10PAT IF 10 FRMT) 901 001307 7040 CMA /WRITING 902 001310 3033 DCA VAR2 /SEE MARK WRITE 903 904 /VALUES FOR BLOCK AND RECORD SIZE HAVE BEEN 905 /COMPUTED. TELL OUTSIDE WORLD AND GET THE OK. 906 907 001311 1031 TAD TOTAL /SUBTRACT 15 FROM TOTAL 908 001312 1054 TAD C7761 /WORDS FOOLING OPERATOR 909 001313 3031 DCA TOTAL /CORRECTED FOR TAPE WRITING 910 001314 1031 TAD TOTAL /FOR OCTAL TYPEOUT 911 001315 4501 JMS I TYOCT /TYPE OCTAL WORDS 912 001316 4502 JMS I TYPE /TYPE MESSAGE 913 001317 4027 4027 / W 914 001320 1722 1722 /OR 915 001321 0423 0423 /DS 916 001322 5400 5400 /, END 917 001323 1026 TAD BLOCKS /TYPE OUT BLOCK #S 918 001324 7001 IAC /TO FOOL THE OPERATOR 919 001325 4501 JMS I TYOCT /IN OCTAL 920 001326 4502 JMS I TYPE /TYPE MESSAGES 921 001327 4002 4002 / B 922 001330 1417 1417 /LO 923 001331 0313 0313 /CK 924 001332 2356 2356 /S. 925 001333 1713 1713 /OK 926 001334 7733 7733 /?( 927 001335 3105 3105 /YE 928 001336 2340 2340 /S 929 001337 1722 1722 /OR 930 001340 4016 4016 / N 931 001341 1735 1735 /O) 932 001342 4543 4543 /CR+LF 933 001343 0000 0000 /END 934 001344 4503 JMS I TYPIN /WAIT FOR REPLY 935 /SEE IF A YES OR NO ANSWER WAS GIVEN 936 937 001345 4471 JMS I COMPAR 938 001346 0331 0331 /Y 939 001347 0305 0305 /E 940 001350 0323 0323 /S 941 001351 0000 0000 /END 942 001352 5472 JMP I IT 943 944 001353 5754 JMP I .+1 945 001354 3200 SWCHK 946 001355 1556 FORM10, F10PAT 947 948 949 950 *1400 951 /SET THE TAPE INTO MOTION. ALL VARIABLES ARE SET. 952 953 /WRITE TIMING AND MARK TRACK 954 955 001400 7200 STMK, CLA 956 001401 3030 DCA PHASE 957 001402 1161 TAD DT1400 /FWD, WRITE, GO 958 001403 1027 TAD DTA /GET UNIT NUMBER 959 001404 6774 SDLC /LOAD COMMAND REGISTER 960 001405 1033 TAD VAR2 /TO MAKE A RESTART FOR THE SAME 961 001406 3025 DCA W6 /OPTION POSSIBLE 962 963 /WRITE ABOUT 10 FEET OF END ZONE 964 001407 3020 DCA W1 965 001410 1310 CEZ, TAD REZ /ADDRESS OF DATA 966 001411 4270 JMS SETUP 967 001412 2020 ISZ W1 968 001413 5210 JMP CEZ /NOT END FOOTAGE 969 001414 1065 TAD M144 /OK WRITE INTERBLOCK SYNC 970 001415 3020 DCA W1 971 001416 4222 JMS INBLSY 972 001417 2020 ISZ W1 973 001420 5216 JMP .-2 974 001421 5230 JMP WDZ 975 976 /WRITE INTERBLOCK SYNC 977 001422 0000 INBLSY, 0 978 001423 1032 TAD VAR1 /RESET THE WORDS 979 001424 3024 DCA W5 980 001425 1314 TAD IBZ /ADDRESS OF DATA 981 001426 4270 JMS SETUP /GO OUT AND WRITE 1 982 001427 5622 JMP I INBLSY /GO DO AGAIN 983 984 /WRITE FORWARD BLOCKMARK AND REVERSE GUARD 985 001430 1320 WDZ, TAD FBM /ADDRESS OF PATTERN 986 001431 4270 JMS SETUP 987 988 /WRITE LOCKMARK, REVERSE CHECKSUM, REV FINAL, REV PREFINAL 989 001432 1324 LRCFP, TAD WLMRF 990 001433 4300 JMS SETUP1 991 992 /WRITE THE DATA TRACK 993 001434 1333 DTRK, TAD DZ /ADDRESS OF PATTERN 994 001435 4270 JMS SETUP 995 001436 2024 ISZ W5 996 001437 5234 JMP DTRK /NOW WRITE DATA MARK TRACK AGAIN 997 /WRITE PREFINAL, FINAL, CHECKSUM, AND REVERSE LOCK 998 001440 1337 PFCRC, TAD FEZ /ADDRESS OF DATA 999 001441 4300 JMS SETUP1 1000 1001 /WRITE GUARD REVERSE BLOCK 1002 001442 1346 GRB, TAD GRZ 1003 001443 4270 JMS SETUP 1004 1005 /THIS COMPLETES 1 BLOCK, GO BACK AND WRITE THE REST 1006 001444 4222 JMS INBLSY /WRITE INTERBLOCK SYNC 1007 001445 2025 ISZ W6 /TOTAL NUMBER OF BLOCKS 1008 001446 5230 JMP WDZ /WRITTEN? NO: 1009 1010 /ALL DATA BLOCKS WRITTEN NOW WRITE BUFFER ZONE OF INTERBLOCK SYNC 1011 001447 1123 TAD M143 /198 EXPAND CODES AT END OF BLOCKS 1012 001450 3020 DCA W1 1013 001451 4222 JMS INBLSY 1014 001452 2020 ISZ W1 1015 001453 5251 JMP .-2 1016 1017 /FINISHED BLOCK WRITTING, WRITE ANOTHER 10(1) OF END ZONES 1018 001454 3020 DCA W1 1019 001455 1352 WEZF, TAD EZM 1020 001456 4270 JMS SETUP 1021 001457 2020 ISZ W1 1022 001460 5255 JMP WEZF 1023 001461 6772 SDST 1024 001462 7610 SKP CLA 1025 001463 4567 JMS I SELTIM /TIMING ERROR 1026 001464 1373 TAD C1 1027 001465 3030 DCA PHASE 1028 001466 5667 JMP I .+1 1029 001467 1600 MWTM 1030 1031 001470 0000 SETUP, 0 1032 001471 3012 DCA 12 /WORD TO BE WRITTEN ON MARK TRACK 1033 001472 1061 TAD M3 1034 001473 3105 DCA WC 1035 001474 4504 JMS I WAIT 1036 001475 2105 ISZ WC 1037 001476 5274 JMP .-2 1038 001477 5670 JMP I SETUP 1039 1040 001500 0000 SETUP1, 0 1041 001501 3012 DCA 12 1042 001502 1062 TAD M6 1043 001503 3105 DCA WC 1044 001504 4504 JMS I WAIT 1045 001505 2105 ISZ WC 1046 001506 5304 JMP .-2 1047 001507 5700 JMP I SETUP1 1048 /THESE ARE THE DATA CONFIGURATIONS FOR THE MARK TRACK 1049 1050 1051 /REVERSE END ZONE 1052 1053 001510 1510 REZ, . 1054 001511 4044 4044 /ON TAPE AS 5555 (OCT) 1055 001512 0440 0440 1056 001513 4404 4404 1057 1058 /INTERBLOCK SYNC 1059 1060 001514 1514 IBZ, . 1061 001515 0404 0404 /ON TAPE AS 2525 (OCT) 1062 001516 0404 0404 1063 001517 0404 0404 1064 1065 /FORWARD BLOCK MARK AND REVERSE GUARD 1066 1067 001520 1520 FBM, . 1068 001521 0404 0404 /ON TAPE AS 2632 (OCT) 1069 001522 4004 4004 1070 001523 4040 4040 1071 1072 /LOCK MARK, REVERSE CHECKSUM, REVERSE FINAL 1073 /AND REVERSE PREFINAL 1074 1075 001524 1524 WLMRF, . 1076 001525 0040 0040 /ON TAPE AS 10101010 (OCT) 1077 001526 0000 0000 1078 001527 4000 4000 1079 001530 0040 0040 1080 001531 0000 0000 1081 001532 4000 4000 1082 1083 /DATA MARK 1084 1085 001533 1533 DZ, . 1086 001534 4440 4440 /ON TAPE AS 7070 (OCT) 1087 001535 0044 0044 1088 001536 4000 4000 1089 1090 /PREFINAL, FINAL, FWD CHECKSUM, AND REVERSE LOCK 1091 1092 001537 1537 FEZ, . 1093 001540 4440 4440 /ON TAPE AS 73737373 (OCT) 1094 001541 4444 4444 1095 001542 4044 4044 1096 001543 4440 4440 1097 001544 4444 4444 1098 001545 4044 4044 1099 /FORWARD GUARD AND REVERSE BLOCK NUMBER 1100 1101 001546 1546 GRZ, . 1102 001547 4040 4040 /ON TAPE AS 5145 (OCT) 1103 001550 0440 0440 1104 001551 0404 0404 1105 1106 /FORWARD END ZONE 1107 1108 001552 1552 EZM, . 1109 001553 0400 0400 /ON TAPE AS 2222 (OCT) 1110 001554 4004 4004 1111 001555 0040 0040 1112 /SUBROUTINE TO SEE IF USER TYPED MARK 384 1113 /TO SPECIFY STANDARD PDP-10 FORMAT 1114 001556 0000 F10PAT, 0 1115 001557 3026 DCA BLOCKS /CLEAR LOC. BLOCKS IN CASE NOT 10-FORMAT 1116 001560 1031 TAD TOTAL /AND GET NUMBER TYPED BY USER 1117 001561 1371 TAD M617 /WAS IT 384? 1118 001562 7640 SZA CLA 1119 001563 5756 JMP I F10PAT /NO-RETURN 1120 001564 3020 DCA W1 /YES-CLEAR W1 FOR WAIT LOOP 1121 001565 1372 TAD C1101 /AND ADJUST BLOCK TOTAL FOR 1122 001566 3026 DCA BLOCKS /1102(OCTAL) BLOCKS. 1123 001567 5770 JMP I .+1 1124 001570 1306 F10BAK, F10RTN 1125 001571 7161 M617, -617 1126 001572 1101 C1101, 1101 1127 001573 0001 C1, 0001 1128 1129 *1600 1130 /THE MARK TRACK HAS BEEN WRITTEN, AND TAPE IS 1131 /MOVING FORWARD IN THE FORWARD END ZONE. STOP 1132 /THE TAPE AND SEE IF THERE ARE ANY TAPES LEFT TO 1133 /MARK--IF SO GO DO THEM, ELSE TELL OPERATOR TO THROW THE 1134 /"OFF/WTM" SWITCH TO "OFF" 1135 /HE WILL THEN CONTINUE AFTER THIS ACTION 1136 1137 1138 /KILL WRITE,STOP TAPE 1139 1140 001600 7200 MWTM, CLA 1141 001601 1027 TAD DTA /UNIT 1142 001602 6774 SDLC 1143 001603 4777 JMS NUDTA 1144 001604 5574 JMP I DOMARK 1145 1146 /MESSAGE TO THE OPERATOR 1147 001605 4502 OFF, JMS I TYPE 1148 001606 2305 2305 /SE 1149 001607 2440 2440 /T 1150 001610 2327 2327 /SW 1151 001611 1124 1124 /IT 1152 001612 0310 0310 /CH 1153 001613 4024 4024 /T 1154 001614 1740 1740 /O 1155 001615 1706 1706 /OF 1156 001616 0600 0600 /F 1157 001617 4503 JMS I TYPIN /WAIT FOR CR 1158 001620 5621 JMP I .+1 1159 001621 3327 SWOFF /CHECK TO MAKE SURE THAT SWITCH IS OFF 1160 /REVERSE TAPE AND READ MARK TRACK 1161 001622 1164 PSER, TAD DT3000 /REVERSE GO 1162 001623 1027 TAD DTA /UNIT 1163 001624 6774 SDLC /LOAD COMMAND REGISTER 1164 001625 3020 DCA W1 /STALL ROUTINE TO GET UP TO SPEED 1165 001626 6773 SDSQ 1166 001627 5226 JMP .-1 1167 001630 6776 SDRC 1168 001631 2020 ISZ W1 1169 001632 5226 JMP .-4 1170 001633 6773 SDSQ /SKIP ON QUAD LINE IF SET AFTER WAIT ROUTINE 1171 001634 7410 SKP 1172 001635 5240 JMP .+3 /FLAG WAS SET 1173 001636 6771 SDSS /READ IN A LINE OF TAPE 1174 001637 5236 JMP .-1 1175 001640 6776 SDRC /READ THE COMMAND REGISTER 1176 001641 6772 SDST /CHECK FOR A TIMING ERROR 1177 001642 7410 SKP 1178 001643 4567 JMS I SELTIM /TIMING ERROR 1179 001644 0135 AND MSK77 /CHECK TO SEE IF TAPE IS STILL IN END ZONE 1180 001645 1111 TAD M55 1181 001646 7640 SZA CLA 1182 001647 5236 JMP .-11 /NOT A 55 YET 1183 001650 4532 JMS I SSDSQT /YES,READ IN SOME MORE 1184 001651 1111 TAD M55 /IS IT END ZONE 1185 001652 7650 SNA CLA 1186 001653 5250 JMP .-3 /STILL IN END ZONE 1187 001654 1106 TAD MTR /GET THE MARK TRACK 1188 001655 1112 TAD M25 /IS IT EXPAND CODE 1189 001656 7640 SZA CLA 1190 001657 4534 JMS I SCEXPC /NOT YET,CHECK FOR A 52,AND ADVANCE 3 LINES 1191 001660 7200 CLA /YES IT IS EXPAND CODE 1192 001661 1126 TAD M306 /SET UP FOR 198 EXPAND CODES 1193 001662 3127 DCA CNT 1194 001663 4532 JMS I SSDSQT /THE TAPE SHOULD BE IN SYNC NOW 1195 001664 1112 TAD M25 /READ THE REST OF EXPAND CODE 1196 001665 7640 SZA CLA 1197 001666 4570 JMS I MARKER /MARK TRACK ERROR 1198 001667 2127 ISZ CNT /INCREMENT COUNTER 1199 001670 5263 JMP .-5 1200 001671 1033 TAD VAR2 /NUMBER OF BLOCKS 1201 001672 3025 DCA W6 1202 001673 4532 RSTBLK, JMS I SSDSQT /START OF A STANDARD BLOCK 1203 001674 1112 TAD M25 /FIRST EXPAND CODE AT BEGINNING 1204 001675 7640 SZA CLA /OF BLOCK 1205 001676 4570 JMS I MARKER /MARK TRACK ERROR 1206 001677 4532 JMS I SSDSQT /READ MARK BLOCK NUMBER 1207 001700 1113 TAD M26 1208 001701 7640 SZA CLA 1209 001702 4570 JMS I MARKER /MARK TRACK ERROR 1210 001703 4532 JMS I SSDSQT /READ MARK GUARD 1211 001704 1114 TAD M32 1212 001705 7640 SZA CLA 1213 001706 4570 JMS I MARKER /MARK TRACK ERROR 1214 001707 1130 TAD M4 1215 001710 3127 DCA CNT 1216 001711 4532 JMS I SSDSQT /READ L,CK,F,PF 1217 001712 1115 TAD M10 1218 001713 7640 SZA CLA 1219 001714 4570 JMS I MARKER /MARK TRACK ERROR 1220 001715 2127 ISZ CNT 1221 001716 5311 JMP .-5 1222 001717 7300 CLA CLL 1223 001720 1032 TAD VAR1 1224 001721 7004 RAL 1225 001722 3024 DCA W5 /NUMBER OF DATA MARKS 1226 001723 4532 JMS I SSDSQT /READ DATA MARKS 1227 001724 1116 TAD M70 1228 001725 7640 SZA CLA 1229 001726 4570 JMS I MARKER /MARK TRACK ERROR 1230 001727 2024 ISZ W5 /COUNT FOR NUMBER OF BLOCKS 1231 001730 5323 JMP .-5 1232 001731 1130 TAD M4 1233 001732 3127 DCA CNT 1234 001733 4532 JMS I SSDSQT /READ PF,F,CK,L 1235 001734 1117 TAD M73 1236 001735 7640 SZA CLA 1237 001736 4570 JMS I MARKER /MARK TRACK ERROR 1238 001737 2127 ISZ CNT 1239 001740 5333 JMP .-5 1240 001741 4532 JMS I SSDSQT /READ REVERSE GUARD 1241 001742 1120 TAD M51 1242 001743 7640 SZA CLA 1243 001744 4570 JMS I MARKER 1244 1245 001745 4532 JMS I SSDSQT /READ BLOCK NUMBER 1246 001746 1121 TAD M45 1247 001747 7640 SZA CLA 1248 001750 4570 JMS I MARKER /MARK TRACK ERROR 1249 001751 4532 JMS I SSDSQT /READ EXPAND CODE 1250 001752 1112 TAD M25 1251 001753 7640 SZA CLA 1252 001754 4570 JMS I MARKER /END OF ONE BLOCK,MARK TRACK ERROR 1253 1254 001755 2025 ISZ W6 /FINISHED ALL BLOCKS 1255 001756 5273 JMP RSTBLK /NO:DO OTHER BLOCKS 1256 001757 1131 TAD M307 /SET UP FOR INTERBLOCK SYNC AT END OF TAPE 1257 001760 3127 DCA CNT 1258 001761 4532 JMS I SSDSQT /CHECK FOR 199 EXPAND CODES 1259 001762 1112 TAD M25 1260 001763 7640 SZA CLA 1261 001764 4570 JMS I MARKER /MARK TRACK ERROR 1262 001765 2127 ISZ CNT 1263 001766 5361 JMP .-5 1264 001767 4532 JMS I SSDSQT 1265 001770 1122 TAD M22 1266 001771 7640 SZA CLA 1267 001772 4570 JMS I MARKER 1268 001773 1027 TAD DTA 1269 001774 6774 SDLC 1270 001775 5776 JMP I .+1 1271 001776 2000 WDBLKN, DBLKN /GO OUT TO WRITE DATA AND BLOCK NUMBERS FORWARD 1272 1273 1274 1275 001777 3133 *2000 1276 002000 1356 DBLKN, TAD C2 1277 002001 3030 DCA PHASE 1278 002002 1033 TAD VAR2 /NUMBER OF BLOCKS 1279 1280 002003 3025 DCA W6 1281 002004 3137 DCA BLK /INITIAL BLOCK IS 0 1282 002005 1137 TAD BLK 1283 002006 4477 JMS I MESS /COMPUTE THE COMP OBVERSE OF REV BLK 1284 002007 3140 DCA REVBLK 1285 002010 6775 SDLD 1286 002011 1161 TAD DT1400 /FORWARD,WRITE,GO 1287 002012 1027 TAD DTA /UNIT 1288 002013 6774 SDLC /LOAD THE COMMAND REGISTER 1289 002014 6776 SDRC /CHECK TO MAKE SURE WRITE IS SET 1290 002015 7006 RTL 1291 002016 7004 RAL 1292 002017 7700 SMA CLA 1293 002020 4357 JMS WLO /WRITE FAILED TO SET 1294 002021 1062 TAD M6 1295 002022 3127 DCA CNT 1296 002023 6773 SDSQ /ROUTINE TO GET UP TO SPEED 1297 002024 5223 JMP .-1 1298 002025 6775 SDLD 1299 002026 2127 ISZ CNT 1300 002027 5223 JMP .-4 1301 002030 6775 SDLD 1302 002031 6772 SDST 1303 002032 7410 SKP 1304 002033 4567 JMS I SELTIM /TIMING ERROR 1305 002034 6771 LINE, SDSS /WRITE ALL ZEROES TO THE FIRST BLOCK 1306 002035 5234 JMP .-1 1307 002036 6775 SDLD /LOAD THE DATA BUFFER 1308 002037 6776 SDRC 1309 002040 6772 SDST 1310 002041 7410 SKP 1311 002042 4567 JMS I SELTIM /TIMING ERROR 1312 002043 0135 AND MSK77 1313 002044 3106 DCA MTR 1314 002045 1106 TAD MTR 1315 002046 1113 TAD M26 1316 002047 7640 SZA CLA 1317 002050 5234 JMP LINE 1318 002051 6775 SDLD 1319 002052 6772 SDST 1320 002053 7410 SKP 1321 002054 4567 JMS I SELTIM /TIMING ERROR 1322 002055 5265 JMP WDOBLK /GO AND WRITE REVERSE GUARD 1323 002056 7300 WDBLK, CLA CLL /BEGINNING OF BLOCK,WRITE DATA AND BLOCK NUMBER 1324 002057 4346 JMS W4L /WRITE EIGHT LINES 1325 002060 4346 JMS W4L /END OF EXPAND CODE,BEGINNING OF BLK NUMBER 1326 002061 1137 TAD BLK /GET FORWARD BLOCK NUMBER 1327 002062 4346 JMS W4L /WRITE IT 1328 002063 7200 CLA 1329 002064 4346 JMS W4L /WRITE FIRST WORD OF REV GUARD 1330 002065 7200 WDOBLK, CLA 1331 002066 4346 JMS W4L /SECOND WORD OF REVERSE GUARD 1332 002067 4346 JMS W4L 1333 002070 4346 JMS W4L /FIRST WORD OF REVERSE CHECKSUM 1334 002071 1031 WDATA, TAD TOTAL /NUMBER OF DATA WORDS TO BE WRITTEN 1335 002072 7041 CIA 1336 002073 3024 DCA W5 /SET UP COUNTER 1337 002074 4346 JMS W4L 1338 002075 2024 ISZ W5 /INCREMENT COUNTER 1339 002076 5274 JMP .-2 1340 002077 7300 CLA CLL 1341 002100 1135 TAD MSK77 /COME BACK TO WRITE LAST WORD AND CHECKSUM 1342 002101 4346 JMS W4L 1343 002102 7200 CLA 1344 002103 4346 JMS W4L /FINISH CHECKSUM 1345 002104 4346 JMS W4L /FIRST WORD OF REVERSE LOCK 1346 002105 4346 JMS W4L /LAST WORD OF RL. AND HALF OF GUARD 1347 002106 4346 JMS W4L /REST OF GUARD 1348 002107 1140 TAD REVBLK /GET REVERSE BLOCK NUMBER 1349 002110 4346 JMS W4L 1350 002111 7240 CLA CMA 1351 002112 4346 JMS W4L /END OF BLOCK NUMBER AND HALF OF EXPAND CODE 1352 002113 4346 JMS W4L /END OF EXPAND CODE 1353 002114 2137 ISZ BLK 1354 002115 7200 CLA 1355 002116 1137 TAD BLK 1356 002117 4477 JMS I MESS /COMPUTE NEW BLK NUMBER 1357 002120 3140 DCA REVBLK 1358 002121 6772 SDST 1359 002122 7410 SKP 1360 002123 4567 JMS I SELTIM /TIMING ERROR 1361 002124 2025 ISZ W6 /IS IT DONE WRITING BLK AND DATA 1362 002125 5256 JMP WDBLK /NO 1363 002126 6773 SDSQ 1364 002127 5326 JMP .-1 1365 002130 6777 SDRD 1366 002131 7200 CLA 1367 002132 1165 TAD DT1000 /SEARCH FOR END ZONE 1368 002133 1027 TAD DTA /GET UNIT 1369 002134 6774 SDLC /LOAD THE COMMAND REG 1370 002135 6771 SDSS 1371 002136 5335 JMP .-1 1372 002137 6776 SDRC 1373 002140 0135 AND MSK77 1374 002141 1122 TAD M22 1375 002142 7640 SZA CLA 1376 002143 5335 JMP .-6 1377 002144 5745 JMP I .+1 1378 002145 2400 DBLOCK 1379 1380 002146 0000 W4L, 0 1381 002147 6773 SDSQ 1382 002150 5347 JMP .-1 /SKIP ON QUAD LINE FLAG 1383 002151 6775 SDLD /LOAD THE DATA BUFFER 1384 002152 6772 SDST /CHECK FOR A TIMING ERROR 1385 002153 7410 SKP 1386 002154 4567 JMS I SELTIM /TIMING ERROR 1387 002155 5746 JMP I W4L 1388 1389 002156 0002 C2, 0002 1390 1391 002157 0000 WLO, 0 1392 002160 1027 TAD DTA /STOP THE TAPE 1393 002161 6774 SDLC /LOAD THE COMMAND REGISTER 1394 002162 4502 JMS I TYPE 1395 002163 2003 2003 /PC 1396 002164 4000 4000 /END 1397 002165 7240 CLA CMA 1398 002166 1357 TAD WLO 1399 002167 4501 JMS I TYOCT 1400 002170 4502 JMS I TYPE 1401 002171 4040 4040 1402 002172 2722 2722 /WR 1403 002173 1124 1124 /IT 1404 002174 0540 0540 /E 1405 002175 0000 0000 /END 1406 002176 5777 JMP I .+1 1407 002177 0744 ZCOM 1408 1409 1410 1411 1412 *2200 1413 002200 1372 BLCSD, TAD C4 1414 002201 3030 DCA PHASE 1415 002202 7300 CLA CLL 1416 002203 1033 TAD VAR2 1417 002204 3025 DCA W6 /SET UP FOR THE NUMBER OF BLOCKS 1418 002205 3137 DCA BLK /SET BLK TO 0 1419 002206 1165 TAD DT1000 /FORWARD READ 1420 002207 1027 TAD DTA /UNIT 1421 002210 6774 SDLC /LOAD THE COMMAND REG 1422 002211 1137 TAD BLK 1423 002212 4477 JMS I MESS /CALCULATE THE COMPLEMENT OBVERSE 1424 002213 3140 DCA REVBLK 1425 002214 6772 SDST 1426 002215 7410 SKP 1427 002216 4567 JMS I SELTIM /TIMING ERROR 1428 002217 1062 TAD M6 /WAIT TO GET UP TO SPEED 1429 002220 3127 DCA CNT /SET UP COUNTER 1430 002221 6773 SDSQ /SKIP ON A QUAD LINE FLAG 1431 002222 5221 JMP .-1 1432 002223 6777 SDRD /READ THE DATA BUFFER TO CLEAR FLAG 1433 002224 2127 ISZ CNT 1434 002225 5221 JMP .-4 1435 002226 7200 CLA 1436 002227 3142 BLCSDA, DCA CHKSUM 1437 002230 4507 JMS I SLRDRC /READ A SINGLE LINE AT A TIME 1438 002231 1113 TAD M26 1439 002232 7640 SZA CLA /IS IT BLOCK MARK 1440 002233 5777 JMP SRDRC+4 /NO,GO BACK 1441 002234 6772 SDST 1442 002235 7410 SKP 1443 002236 4567 JMS I SELTIM /TIMING ERROR 1444 002237 1110 TAD DATRD 1445 002240 7041 CIA 1446 002241 1137 TAD BLK 1447 002242 7640 SZA CLA 1448 002243 4571 JMS I BLKERR /BLK NUMBER ERROR 1449 002244 4532 JMS I SSDSQT /READ GUARD 1450 002245 4532 JMS I SSDSQT /READ REVERSE LOCK 1451 002246 4532 JMS I SSDSQT /READ CHECKSUM 1452 002247 6777 SDRD /READ THE DATA BUFFER 1453 002250 6772 SDST 1454 002251 7410 SKP 1455 002252 4567 JMS I SELTIM /TIMING ERROR 1456 002253 0135 AND MSK77 1457 002254 4541 JMS I BCXOR /GO OUT TO CHECKSUM ROUTINE 1458 002255 1031 RDATA, TAD TOTAL /NUMBER OF WORDS PER BLOCK 1459 002256 7041 CIA 1460 002257 3024 DCA W5 /SET UP COUNTER 1461 002260 6773 SDSQ 1462 002261 5260 JMP .-1 1463 002262 6777 SDRD /READ THE DATA BUFFER 1464 002263 6772 SDST 1465 002264 7410 SKP 1466 002265 4567 JMS I SELTIM /TIMING ERROR 1467 002266 3110 DCA DATRD 1468 002267 1110 TAD DATRD /SAVE THE DATA WORD 1469 002270 7640 SZA CLA 1470 002271 4572 JMS I DATERR /DATA ERROR 1471 002272 1110 TAD DATRD 1472 002273 4541 JMS I BCXOR 1473 002274 6772 SDST /CHECK FOR A TIMING ERROR 1474 002275 7410 SKP 1475 002276 4567 JMS I SELTIM /TIMING ERROR 1476 002277 2024 ISZ W5 1477 002300 5260 JMP RDATA+3 1478 002301 6773 SDSQ /READ REVERSE CHECKSUM 1479 002302 5301 JMP .-1 1480 002303 6777 SDRD /READ IT IN 1481 002304 6772 SDST 1482 002305 7410 SKP 1483 002306 4567 JMS I SELTIM /TIMING ERROR 1484 002307 0052 AND C7700 1485 002310 4541 JMS I BCXOR /CHECK CHECK SUM 1486 002311 1142 TAD CHKSUM 1487 002312 0135 AND MSK77 1488 002313 7001 IAC 1489 002314 1052 TAD C7700 1490 002315 7640 SZA CLA 1491 002316 4573 JMS I CHKERR /CHECKSUM ERROR 1492 002317 6772 SDST 1493 002320 7410 SKP 1494 002321 4567 JMS I SELTIM /TIMING ERROR 1495 002322 4507 JMS I SLRDRC /ADVANCE A SINGLE LINE FLAG 1496 002323 1125 TAD M31 /LOOK FOR REV BLK NUMBER 1497 002324 7640 SZA CLA 1498 002325 5777 JMP SRDRC+4 1499 002326 6772 SDST 1500 002327 7410 SKP 1501 002330 4567 JMS I SELTIM /TIMING ERROR 1502 002331 1110 TAD DATRD 1503 002332 7041 CIA 1504 002333 1140 TAD REVBLK /COMPARE BLOCK READ WITH ONE COMPUTED 1505 002334 7640 SZA CLA 1506 002335 4571 JMS I BLKERR /BLOCK NUMBER ERROR 1507 002336 6773 SDSQ 1508 002337 5336 JMP .-1 1509 002340 6777 SDRD 1510 002341 6772 SDST 1511 002342 7410 SKP 1512 002343 4567 JMS I SELTIM /TIMING ERROR 1513 002344 7300 CLA CLL 1514 002345 2137 ISZ BLK 1515 002346 1137 TAD BLK 1516 002347 4477 JMS I MESS 1517 002350 3140 DCA REVBLK 1518 002351 6772 SDST 1519 002352 7410 SKP 1520 002353 4567 JMS I SELTIM /TIMING ERROR 1521 002354 2025 ISZ W6 1522 002355 5227 JMP BLCSDA 1523 002356 1165 TAD DT1000 1524 002357 1027 TAD DTA 1525 002360 6774 SDLC 1526 002361 6771 SDSS 1527 002362 5361 JMP .-1 1528 002363 6776 SDRC 1529 002364 0135 AND MSK77 1530 002365 1122 TAD M22 1531 002366 7640 SZA CLA 1532 002367 5361 JMP .-6 1533 002370 5771 JMP I .+1 1534 002371 2442 RDBLKS 1535 1536 002372 0004 C4, 0004 1537 1538 1539 002377 3124 *2400 1540 002400 1240 DBLOCK, TAD C3 1541 002401 3030 DCA PHASE 1542 002402 7300 CLA CLL 1543 002403 3235 DCA DISBLK 1544 002404 1164 TAD DT3000 /REVERSE,GO 1545 002405 1027 TAD DTA /UNIT 1546 002406 6774 SDLC /LOAD THE COMMAND REGISTER 1547 002407 7300 CLA CLL 1548 002410 6771 DISLUP, SDSS 1549 002411 5210 JMP .-1 1550 002412 7300 CLA CLL 1551 002413 6777 SDRD 1552 002414 3236 DCA DISDAT /SAVE THE DATA BUFFER 1553 002415 6776 SDRC 1554 002416 0135 AND MSK77 /MASK OUT THE MARK TRACK 1555 002417 1113 TAD M26 /CHECK FOR BLOCK NUMBER 1556 002420 7440 SZA 1557 002421 5226 JMP DISEND /NOT BLK MARK,CHECK FOR END ZONE 1558 002422 1236 TAD DISDAT /DISPLAY THE NUMBER IN THE AC 1559 002423 2235 ISZ DISBLK 1560 002424 5223 JMP .-1 1561 002425 5210 JMP DISLUP /GO SEARCH FOR THE NEXT BLOCK 1562 002426 1237 DISEND, TAD FOUR /IS IT END ZONE 1563 002427 7640 SZA CLA 1564 002430 5210 JMP DISLUP /NO,GO GET NEXT LINE 1565 002431 1027 TAD DTA /STOP GET READY TO READ 1566 002432 6774 SDLC /LOAD THE COMMAND REGISTER 1567 002433 5634 JMP I .+1 1568 002434 2200 BLCSD 1569 002435 0000 DISBLK, 0 1570 002436 0000 DISDAT, 0 1571 002437 0004 FOUR, 4 1572 002440 0003 C3, 0003 1573 002441 0005 C5, 0005 1574 1575 002442 1241 RDBLKS, TAD C5 1576 002443 3030 DCA PHASE 1577 002444 1033 TAD VAR2 1578 002445 3024 DCA W5 /SET UP FOR NUMBER OF BLOCKS 1579 002446 7001 IAC 1580 002447 1033 TAD VAR2 1581 002450 3025 DCA W6 /SET UP TO CHECK BLK REVERSE 1582 002451 1164 TAD DT3000 /READ REVERSE GO 1583 002452 1027 TAD DTA /UNIT 1584 002453 6774 SDLC /LOAD THE COMMAND REGISTER 1585 002454 1062 TAD M6 1586 002455 3127 DCA CNT 1587 002456 6771 SDSS 1588 002457 5256 JMP .-1 1589 002460 6776 SDRC 1590 002461 7200 CLA 1591 002462 2127 ISZ CNT 1592 002463 5256 JMP .-5 1593 002464 6771 RDBLK, SDSS 1594 002465 5264 JMP .-1 1595 002466 6777 SDRD /READ THE DATA BUFFER AND STORE IT AWAY 1596 002467 3127 DCA CNT 1597 002470 6776 SDRC 1598 002471 0135 AND MSK77 1599 002472 1113 TAD M26 1600 002473 7640 SZA CLA /IS IT BLOCK NUMBER 1601 002474 5264 JMP RDBLK 1602 002475 1127 TAD CNT 1603 002476 1025 TAD W6 1604 002477 7640 SZA CLA 1605 002500 4571 JMS I BLKERR /BLOCK NUMBER ERROR 1606 002501 7001 IAC 1607 002502 1025 TAD W6 /INCREMENT A NUMBER FOR COMPARE COUNTER 1608 002503 3025 DCA W6 1609 002504 2024 ISZ W5 /INCREMENT BLK COUNTER 1610 002505 5264 JMP RDBLK 1611 002506 6771 SDSS 1612 002507 5306 JMP .-1 1613 002510 6776 SDRC 1614 002511 0135 AND MSK77 1615 002512 1122 TAD M22 1616 002513 7640 SZA CLA 1617 002514 5306 JMP .-6 1618 002515 1027 TAD DTA 1619 002516 6774 SDLC /LOAD THE COMMAND REGISTER WITH UNIT STOP 1620 002517 7001 IAC 1621 002520 3030 DCA PHASE 1622 002521 4777 JMS NUDTA 1623 002522 5776 JMP PSER 1624 002523 5724 JMP I .+1 1625 002524 1072 INIT /END GO BACK TO DIRECT 1626 / 1627 / 1628 /SUBROUTINE TO CHECK FOR REPEATED DTA NUMBERS 1629 /DTA # TO COMPARE TO LIST IS IN AC ON ENTRY--THIS 1630 /ROUTINE STORES THE DTA # IF IT IS NEW AND IGNORES IT 1631 /IF IT IS NOT-CALL BY JMS REPEAT WITH DTA # IN AC 1632 002525 0000 REPEAT, 0 1633 002526 3345 DCA DNUM /TEM STORAGE FOR NEW DTA # 1634 002527 1344 TAD DBUFAD /INITIALIZE POINTER (DBUFPT) 1635 002530 3175 DCA DBUFPT /TO START OF DTA LIST 1636 002531 1343 TAD DCTR /LOAD NUM. OF DTAS STORED 1637 002532 7040 CMA /COMPLEMENT IT 1638 002533 3342 DCA COMCTR /STORE IN COMPARE COUNTER 1639 002534 2342 COMCHK, ISZ COMCTR /DONE WITH ALL COMPARES? 1640 002535 5346 JMP DOCOMP /NO: GO DO COMPARE 1641 002536 1345 TAD DNUM /YES: STORE NEW DTA# 1642 002537 3575 DCA I DBUFPT /AT END OF LIST 1643 002540 2343 ISZ DCTR /INCR. # OF DTAS STORED 1644 002541 5725 JMP I REPEAT /RETURN 1645 1646 002542 0000 COMCTR, 0 /COUNTER FOR # OF LIST COMPARISONS TO BE DONE 1647 002543 0000 DCTR, 0 /COUNTER FOR # OF DTAS IN LIST 1648 002544 3162 DBUFAD, DTABUF /START OF DTA NUM. LIST 1649 002545 0000 DNUM, 0 /TEM STORAGE FOR DTA # 1650 / 1651 / 1652 /THIS SECTION DOES THE ACTUAL COMPARISON BETWEEN 1653 /THE DTA# PASSED TO THE ROUTINE AND A NUMBER ON THE LIST 1654 1655 002546 1575 DOCOMP, TAD I DBUFPT /GET NXT DTA NUMBER PASSED 1656 002547 7041 CIA /NEGATE IT 1657 002550 1345 TAD DNUM /ADD IN DTA NUMBER PASSED 1658 002551 7650 SNA CLA /ARE THEY THE SAME 1659 002552 5725 JMP I REPEAT /YES: RETURN 1660 002553 2175 ISZ DBUFPT /NO: INCREMENT LIST POINTER 1661 002554 5334 JMP COMCHK /SEE IF DONE ALL COMPARES 1662 / 1663 / 1664 1665 1666 002576 1622 *2600 002577 3133 1667 1668 002600 7300 RDFA, CLA CLL 1669 002601 1164 TAD DT3000 /REVERSE READ GO 1670 002602 1027 TAD DTA /GET UNIT 1671 002603 6774 SDLC /LOAD THE COMMAND REGISTER 1672 002604 6771 SDSS /SKIP ON A SINGLE LINE FLAG 1673 002605 5204 JMP .-1 1674 002606 6776 SDRC /READ THE COMMAND REGISTER 1675 002607 0135 AND MSK77 1676 002610 1122 TAD M22 /IS IT END ZONE 1677 002611 7640 SZA CLA /YES 1678 002612 5204 JMP .-6 /NO GO BACK AND LOOK AGAIN 1679 002613 1165 TAD DT1000 /FORWARD READ GO 1680 002614 1027 TAD DTA /UNIT 1681 002615 6774 SDLC /LOAD THE COMMAND REGISTER 1682 002616 1062 TAD M6 1683 002617 3127 DCA CNT 1684 002620 6771 SDSS 1685 002621 5220 JMP .-1 1686 002622 6776 SDRC 1687 002623 7200 CLA 1688 002624 2127 ISZ CNT 1689 002625 5220 JMP .-5 1690 002626 1113 RDFA1, TAD M26 1691 002627 3022 DCA W3 /SET UP COUNTER TO READ 22 BLOCKS 1692 002630 1067 TAD BADD /SET UP BUFFER ADDRESS 1693 002631 3011 DCA X2 1694 002632 6771 SDSS /GO SINGLE LINE FLAGS 1695 002633 5232 JMP .-1 1696 002634 6777 SDRD /READ THE DATA BUFFER 1697 002635 3127 DCA CNT 1698 002636 6776 SDRC /READ THE COMMAND REGISTER 1699 002637 0135 AND MSK77 1700 002640 1113 TAD M26 /SEARCH FOR BLOCK NUMBER 1701 002641 7640 SZA CLA 1702 002642 5232 JMP RDFA1+4 /NOT BLOCK NUMBER YET GO BACK AGAIN 1703 002643 1127 TAD CNT /OK BLK NUMBER STORE IT AWAY 1704 002644 3411 DCA I X2 1705 002645 2022 ISZ W3 /INCREMENT COUNTER 1706 002646 5232 JMP RDFA1+4 /NOT 22 BLOCKS YET 1707 002647 1027 TAD DTA 1708 002650 6774 SDLC /STOP THE DTA 1709 1710 /TYPE OUT BLOCK NUMBERS AND DTA UNIT# 1711 1712 002651 4502 JMS I TYPE 1713 002652 0424 0424 /DT 1714 002653 0140 0140 /A 1715 002654 0000 0000 /END 1716 002655 1027 TAD DTA /GET UNIT NUMBER 1717 002656 7006 RTL 1718 002657 4501 JMS I TYOCT /AND TYPE IT OUT 1719 002660 4502 JMS I TYPE 1720 002661 4345 4345 /CR&LF 1721 002662 0000 0000 /END 1722 002663 1113 TAD M26 /WILL TYPE ALL 1723 002664 3020 DCA W1 /22 WORDS 1724 002665 1067 TAD BADD /ADDRESS OF BLOCK 1725 002666 3011 DCA X2 /NUMBERS TO INDEX 1726 002667 1411 TAD I X2 /FIRST OR NEXT BLOCK 1727 002670 4501 JMS I TYOCT /TYPE IT OUT 1728 002671 4502 JMS I TYPE /CR&LF 1729 002672 4345 4345 /CR&LF 1730 002673 0000 0000 /END 1731 002674 2020 ISZ W1 /COMPLETE 1732 002675 5267 JMP .-6 1733 002676 5472 JMP I IT /GO ASK FOR FORMAT 1734 1735 002677 7300 RDR, CLA CLL 1736 002700 1165 TAD DT1000 /FORWARD READ GO 1737 002701 1027 TAD DTA /UNIT 1738 002702 6774 SDLC /LOAD THE COMMAND REGISTER 1739 002703 6771 SDSS /SKIP ON A SINGLE LINE FLAG 1740 002704 5303 JMP .-1 1741 002705 6776 SDRC /READ THE COMMAND REGISTER 1742 002706 0135 AND MSK77 1743 002707 1122 TAD M22 /CHECK FOR END ZONE 1744 002710 7640 SZA CLA 1745 002711 5303 JMP .-6 /NOT YET GO BACK 1746 002712 1164 TAD DT3000 /REVERSE READ GO 1747 002713 1027 TAD DTA /UNIT 1748 002714 6774 SDLC /LOAD THE COMMAND REGISTER 1749 002715 1062 TAD M6 1750 002716 3127 DCA CNT 1751 002717 6771 SDSS 1752 002720 5317 JMP .-1 1753 002721 6776 SDRC 1754 002722 7200 CLA 1755 002723 2127 ISZ CNT 1756 002724 5317 JMP .-5 1757 002725 5226 JMP RDFA1 /STORE NUMBERS IN REVERSE 1758 1759 002726 4503 RETRY, JMS I TYPIN 1760 002727 4471 JMS I COMPAR 1761 002730 0322 0322 /R 1762 002731 0305 0305 /E 1763 002732 0324 0324 /T 1764 002733 0322 0322 /R 1765 002734 0331 0331 /Y 1766 002735 0000 0000 /END 1767 002736 5472 JMP I IT /GUESS HE DOESN'T WANT TO TRY AGAIN 1768 002737 7200 CLA 1769 002740 1165 TAD DT1000 /FORWARD READ GO 1770 002741 1027 TAD DTA /UNIT 1771 002742 6774 SDLC /LOAD THE COMMAND REGISTER 1772 002743 1062 TAD M6 1773 002744 3127 DCA CNT /WAIT 6 LINES 1774 002745 6771 SDSS 1775 002746 5345 JMP .-1 1776 002747 6776 SDRC /READ THE COMMAND REGISTER 1777 002750 2127 ISZ CNT 1778 002751 5345 JMP .-4 1779 002752 6771 SDSS 1780 002753 5352 JMP .-1 1781 002754 6776 SDRC 1782 002755 0135 AND MSK77 1783 002756 1122 TAD M22 1784 002757 7640 SZA CLA 1785 002760 5352 JMP .-6 1786 002761 1164 TAD DT3000 1787 002762 1027 TAD DTA 1788 002763 6774 SDLC 1789 002764 7201 CLA IAC 1790 002765 3030 DCA PHASE 1791 002766 5767 JMP I .+1 1792 002767 1633 PSER+11 1793 1794 1795 1796 *3000 1797 1798 1799 003000 0000 SDSQT, 0 1800 003001 6773 SDSQ /ADVANCE SIX LINES 1801 003002 5201 JMP .-1 /SKIP ON QUAD LINE FLAG 1802 003003 6776 SDRC /READ COMMAND REGISTER 1803 003004 6772 SDST 1804 003005 7410 SKP 1805 003006 4567 JMS I SELTIM /TIMING ERROR 1806 003007 6771 SDSS 1807 003010 5207 JMP .-1 /SKIP ON SINGLE LINE FLAG 1808 003011 6776 SDRC 1809 003012 6772 SDST 1810 003013 7410 SKP 1811 003014 4567 JMS I SELTIM /TIMING ERROR 1812 003015 6771 SDSS 1813 003016 5215 JMP .-1 1814 003017 6776 SDRC /READ THE COMMAND REGISTER 1815 003020 6772 SDST 1816 003021 7410 SKP 1817 003022 4567 JMS I SELTIM /TIMING ERROR 1818 003023 0135 AND MSK77 /SAVE THE MARK TRACK LAST 6 BITS 1819 003024 3106 DCA MTR 1820 003025 1106 TAD MTR 1821 003026 5600 JMP I SDSQT 1822 1823 003027 0000 A3LNS, 0 /ADVANCE THREE LINES 1824 003030 6771 SDSS 1825 003031 5230 JMP .-1 /SKIP ON SINGLE LINE FLAG 1826 003032 6776 SDRC 1827 003033 6772 SDST 1828 003034 7410 SKP 1829 003035 4567 JMS I SELTIM /TIMING ERROR 1830 003036 6771 SDSS 1831 003037 5236 JMP .-1 1832 003040 6776 SDRC 1833 003041 6772 SDST 1834 003042 7410 SKP 1835 003043 4567 JMS I SELTIM /TIMING ERROR 1836 003044 6771 SDSS 1837 003045 5244 JMP .-1 1838 003046 6776 SDRC 1839 003047 6772 SDST 1840 003050 7410 SKP 1841 003051 4567 JMS I SELTIM /TIMING ERROR 1842 003052 0135 AND MSK77 1843 003053 3106 DCA MTR 1844 003054 1106 TAD MTR 1845 003055 5627 JMP I A3LNS 1846 1847 003056 0000 CEXPC, 0 1848 003057 1106 TAD MTR 1849 003060 1124 TAD M52 1850 003061 7640 SZA CLA 1851 003062 4570 JMS I MARKER /MARK TRACK ERROR 1852 003063 4227 JMS A3LNS /READ THREE MORE LINES 1853 003064 1112 TAD M25 /IS IT 25 NOW 1854 003065 7640 SZA CLA 1855 003066 4570 JMS I MARKER /NO ,MARK TRACK ERROR 1856 003067 5656 JMP I CEXPC /YES:IT IS EXPAND CODE NUMBER 1 1857 1858 /SIXBIT COMPLEMENT XOR SUBROUTINE 1859 /SUBROUTINE IS ENTERED WITH DATA WORD TO BE XORED IN AC 1860 /TWO SIX-BIT COMPLEMENT XORS WILL TAKE PLACE TO LOC CHKSUM 1861 /WITH THE RESULT IN CHKSUM 1862 1863 003070 0000 SBCXOR, 0 1864 003071 7040 CMA /COMPLEMENT WORD 1865 003072 3143 DCA SBWORD /AND SAV 1866 003073 1143 TAD SBWORD 1867 003074 0142 AND CHKSUM 1868 003075 7041 CIA 1869 003076 7104 CLL RAL 1870 003077 1143 TAD SBWORD 1871 003100 1142 TAD CHKSUM 1872 003101 3142 DCA CHKSUM 1873 003102 1143 TAD SBWORD 1874 003103 7112 RTR CLL;RTR;RTR 003104 7012 003105 7012 1875 003106 3143 DCA SBWORD 1876 003107 1143 TAD SBWORD 1877 003110 0142 AND CHKSUM 1878 003111 7041 CIA 1879 003112 7104 CLL RAL 1880 003113 1143 TAD SBWORD 1881 003114 1142 TAD CHKSUM 1882 003115 0135 AND MSK77 1883 003116 3142 DCA CHKSUM 1884 003117 5670 JMP I SBCXOR 1885 1886 003120 0000 SRDRC, 0 1887 003121 6773 SDSQ 1888 003122 7410 SKP 1889 003123 5326 JMP .+3 1890 003124 6771 SDSS 1891 003125 5324 JMP .-1 1892 003126 6777 SDRD 1893 003127 3110 DCA DATRD 1894 003130 6776 SDRC 1895 003131 0135 AND MSK77 1896 003132 5720 JMP I SRDRC 1897 1898 003133 0000 NUDTA, 0 1899 003134 1754 TAD I LSTPT /GET CURRENT VALUE OF DATA LIST PTR 1900 003135 3353 DCA TBUFPT /STORE IT AS TEM,BUF,PTR 1901 003136 1753 TAD I TBUFPT /GET A DTA # FROM THE LIST 1902 003137 0037 AND C0007 1903 003140 7640 SZA CLA /IS IT A 7777 1904 003141 5346 JMP LSTEND /YES END OF LIST 1905 003142 1753 TAD I TBUFPT /NO;GET IT BACK 1906 003143 3027 DCA DTA 1907 003144 2754 ISZ I LSTPT /INCREMENT LIST POINTER 1908 003145 5733 JMP I NUDTA /RETURN 1909 /COME HERE AT END OF LIST TO RESET POINTERS AND RETURN TO CALL+2 1910 003146 2333 LSTEND, ISZ NUDTA /INCREMENT RETURN POINTER 1911 003147 1752 TAD I STRTPT /GET ADR OF START OF LIST 1912 003150 3754 DCA I LSTPT 1913 003151 5334 JMP NUDTA+1 /GO GET FIRST DTA# AND RETURN 1914 003152 2544 STRTPT, DBUFAD /POINTER TO START OF DATA LIST 1915 003153 0000 TBUFPT, 0 /TEM STORAGE FOR BOT PTR 1916 003154 0175 LSTPT, DBUFPT /POINTER TO CURRENT VALUE OF DTA LIST PTR 1917 1918 /CONSTANTS FOR FORMULA TRANSLATION SECTION 1919 003155 3156 BINCON, .+1 1920 003156 0001 0001 1921 003157 0012 0012 1922 003160 0144 0144 1923 003161 1750 1750 1924 003162 0000 DTABUF, 0 1925 1926 1927 1928 1929 1930 *3200 1931 /CHECK SWITCH TO SEE IF SET TO WTM POSITION 1932 003200 4502 SWCHK, JMS I TYPE /TYPE OUT MESSAGE 1933 003201 2305 2305 /SE 1934 003202 2440 2440 /T 1935 003203 2327 2327 /SW 1936 003204 1124 1124 /IT 1937 003205 0310 0310 /CH 1938 003206 4024 4024 /T 1939 003207 1740 1740 /O 1940 003210 2724 2724 /WT 1941 003211 1500 1500 /M 1942 003212 4503 JMS I TYPIN /WAIT FOR CR 1943 003213 7200 CLA 1944 003214 3256 DCA CNTERL 1945 003215 6775 SDLD /CLEAR SINGLE AND QUAD FLAGS 1946 003216 6771 SDSS 1947 003217 7410 SKP 1948 003220 5224 JMP .+4 1949 003221 2256 ISZ CNTERL 1950 003222 5216 JMP .-4 1951 003223 5267 JMP SWCHER /ERROR,TYPE ERROR MESSAGE AND GO TO SWCHK 1952 /SEE IF THE DRIVE IS OK 1953 003224 6774 RSTSM, SDLC /LOAD CR TO CLEAR TIMEING ERROR 1954 003225 6775 SDLD /LOAD DATA BUFFER TO CLEAR S Q FLAGS 1955 003226 1162 TAD DT0400 /SET WRITE 1956 003227 1027 TAD DTA /GET UNIT 1957 003230 3257 DCA SAV /STORE IT AWAY 1958 003231 1257 TAD SAV 1959 003232 6771 SDSS 1960 003233 5232 JMP .-1 1961 003234 6774 SDLC 1962 003235 1257 TAD SAV 1963 003236 6774 SDLC /LOAD THE TRANSPORT 1964 003237 6776 SDRC /READ THE COMMAND REGISTER AND CHECK IT 1965 003240 7006 RTL 1966 003241 7004 RAL 1967 003242 7500 SMA /CHECK WRITE TO BE SET 1968 003243 5260 JMP ERCHK /WRITE IS NOT SET 1969 003244 7004 RAL /CHECK WLO 1970 003245 7510 SPA 1971 003246 5260 JMP ERCHK /WLO 1972 003247 7004 RAL /CHECK SELECT AND TIMING ERROR 1973 003250 7710 SPA CLA 1974 003251 5260 JMP ERCHK /SELECT OR TIMING ERROR 1975 003252 4777 JMS NUDTA /CHECK OTHER DRIVE IF ANY 1976 003253 5213 JMP RSTSM-11 /CHECK OTHER DRIVE 1977 003254 5655 JMP I .+1 1978 003255 1400 STMK 1979 003256 0000 CNTERL, 0 1980 003257 0000 SAV, 0 1981 1982 003260 4502 ERCHK, JMS I TYPE /INCORRECT SETUP 1983 003261 2305 2305 /SE 1984 003262 2425 2425 /TU 1985 003263 2077 2077 /P 1986 003264 0000 0000 /END 1987 003265 5666 JMP I .+1 1988 003266 1011 START 1989 1990 003267 4502 SWCHER, JMS I TYPE 1991 003270 2327 2327 /SW 1992 003271 1124 1124 /IT 1993 003272 0310 0310 /CH 1994 003273 4016 4016 /N 1995 003274 1724 1724 /OT 1996 003275 4023 4023 /S 1997 003276 0524 0524 /ET 1998 003277 4024 4024 /T 1999 003300 1740 1740 /O 2000 003301 2724 2724 /WT 2001 003302 1540 1540 /M 2002 003303 1722 1722 /OR 2003 003304 4023 4023 /S 2004 003305 1116 1116 /IN 2005 003306 0714 0714 /GL 2006 003307 0540 0540 /E 2007 003310 1411 1411 /LI 2008 003311 1605 1605 /NE 2009 003312 4006 4006 /F 2010 003313 1401 1401 /LA 2011 003314 0740 0740 /G 2012 003315 0601 0601 /FA 2013 003316 1114 1114 /IL 2014 003317 0504 0504 /ED 2015 003320 4024 4024 /T 2016 003321 1740 1740 /O 2017 003322 2305 2305 /SE 2018 003323 2440 2440 /T 2019 003324 4543 4543 /CR LF 2020 003325 0000 0000 /END 2021 003326 5200 JMP SWCHK 2022 2023 003327 7200 SWOFF, CLA 2024 003330 3256 DCA CNTERL 2025 003331 6775 SDLD /CLEAR ANY FLAGS THAT ARE SET 2026 003332 6771 SDSS 2027 003333 7410 SKP 2028 003334 5776 JMP OFF /FLAG SHOULDN'T BE SET 2029 003335 2256 ISZ CNTERL 2030 003336 5332 JMP .-4 2031 003337 7200 CLA 2032 003340 5741 JMP I .+1 2033 003341 1622 PSER 2034 2035 2036 003376 1605 *3400 003377 3133 2037 /INPUT BUFFER FOR TELETYPE THIS MUST BE AT THE END OF PROGRAM 2038 2039 003400 0000 BUFFER, 0 2040 2041 $ A3LNS 3027 BADD 0067 BCXOR 0141 BFR 0070 BINCO 0166 BINCON 3155 BLCSD 2200 BLCSDA 2227 BLK 0137 BLKERR 0171 BLOCKS 0026 BUFFER 3400 C0007 0037 C0017 0034 C0070 0035 C0077 0036 C0700 0040 C1 1573 C1101 1572 C1620 0050 C2 2156 C201 0042 C203 0041 C212 0255 C215 0256 C245 0257 C260 0043 C261 0044 C270 0045 unreferenced C271 0046 C277 0047 C3 2440 C340 0254 C4 2372 C5 2441 C6060 0564 C7000 0051 C7700 0052 C7714 0053 C7761 0054 CERR 0345 CEXPC 3056 CEZ 1410 CHKERR 0173 CHKSP 0306 CHKSUM 0142 CNT 0127 CNTERL 3256 COMCHK 2534 COMCTR 2542 COMPAR 0071 COMPRE 0325 CRCHK 1027 CRCOD 0055 CRFLAG 1157 DATERR 0172 DATRD 0110 DBLKN 2000 DBLOCK 2400 DBUFAD 2544 DBUFPT 0175 DCTR 2543 DISBLK 2435 DISDAT 2436 DISEND 2426 DISLUP 2410 DIV3 1244 DNC 1203 DNUM 2545 DOCOMP 2546 DOMARK 0174 DT0400 0162 DT1000 0165 DT1400 0161 DT2000 0163 unreferenced DT3000 0164 DTA 0027 DTABUF 3162 DTRK 1434 DZ 1533 ERCHK 3260 EZM 1552 F10BAK 1570 unreferenced F10PAT 1556 F10RTN 1306 FBM 1520 FEZ 1537 FORM10 1355 FOUR 2437 GETDTA 1156 GRB 1442 unreferenced GRZ 1546 IBS 1242 IBZ 1514 INBLSY 1422 INIT 1072 INIT1 1066 IT 0072 LETK 0056 LFCOD 0057 LINE 2034 LRCFP 1432 unreferenced LSTEND 3146 LSTPT 3154 M10 0115 M14 0064 unreferenced M143 0123 M144 0065 M2 0060 M22 0122 M25 0112 M26 0113 M3 0061 M306 0126 M307 0131 M31 0125 M32 0114 M4 0130 M40 0253 M45 0121 M51 0120 M52 0124 M55 0111 M6 0062 M617 1571 M7 0063 M70 0116 M73 0117 MARK 1200 MARKER 0170 MES 0454 MESAGE 0202 MESS 0077 MSK77 0135 MSRGHT 0221 MTP 0246 MTR 0106 MWTM 1600 NTYRTN 0265 NUD 0136 unreferenced NUDTA 3133 OFF 1605 OKCR 1055 PATCH 0515 PFCRC 1440 unreferenced PFORM 0763 PHASE 0030 PSER 1622 Q1 0400 Q2 0410 Q3 0422 Q4 0434 QU 0152 QU1 0073 QU2 0074 QU3 0075 QU4 0076 QUX 0447 RDATA 2255 RDBLK 2464 RDBLKS 2442 RDFA 2600 RDFA1 2626 RDR 2677 REPEAT 2525 RETRY 2726 REVBLK 0140 REZ 1510 RSEND 0144 RSTBLK 1673 RSTSM 3224 SA3LNS 0133 unreferenced SAV 3257 SBCXOR 3070 SBWORD 0143 SCEXPC 0134 SDLC 6774 SDLD 6775 SDRC 6776 SDRD 6777 SDSQ 6773 SDSQT 3000 SDSS 6771 SDST 6772 SELTIM 0167 SETUP 1470 SETUP1 1500 SLRDRC 0107 SPCOD 0066 SRDRC 3120 SSDSQT 0132 STALL 0600 STAR0 1000 unreferenced START 1011 STMK 1400 STRTPT 3152 STX 0100 unreferenced SWCHER 3267 SWCHK 3200 SWOFF 3327 TBUFPT 3153 TFORM 0756 TOTAL 0031 TW1 0563 TYCT 0523 TYCT1 0556 TYOCT 0101 TYPE 0102 TYPECH 0222 TYPIN 0103 TYPN 0260 TYQU 1014 V1 0506 V2 0507 V3 0513 VALCHK 1035 unreferenced VAR1 0032 VAR2 0033 W1 0020 W2 0021 unreferenced W3 0022 W4 0023 W4L 2146 W5 0024 W6 0025 WAIT 0104 WC 0105 WDATA 2071 unreferenced WDBLK 2056 WDBLKN 1776 unreferenced WDOBLK 2065 WDZ 1430 WEZF 1455 WLMRF 1524 WLO 2157 X1 0010 X2 0011 ZBLK 0613 ZCOM 0744 ZDATA 0637 ZMKTK 0657 ZPAR 0702 ZTIM 0724