1 2 SDSS=6771 3 SDST=6772 4 SDSQ=6773 5 SDLC=6774 6 SDLD=6775 7 SDRC=6776 8 SDRD=6777 9 10 CAF=6007 11 12 *17 13 000017 0000 AUTO, 0 14 000020 0000 OUT, 0 15 000021 0000 IN, 0 16 000022 0000 CNTR1, 0 17 000023 0000 CNTR2, 0 18 000024 0000 GOOD, 0 19 000025 0000 HEAD1, 0 20 000026 0000 HEAD2, 0 21 000027 0000 BLK, 0 22 000030 0000 FILPNT, 0 23 24 000031 0000 TYPE, 0000 25 000032 6046 TLS 26 000033 6041 TSF 27 000034 5033 JMP .-1 28 000035 6042 TCF 29 000036 7200 CLA 30 000037 5431 JMP I TYPE 31 000040 0000 CRLF, 0 32 000041 1177 TAD [215 33 000042 4031 JMS TYPE 34 000043 1176 TAD [212 35 000044 4031 JMS TYPE 36 000045 5440 JMP I CRLF 37 000046 0000 LOOP1, 0 38 000047 7604 LAS 39 000050 7004 RAL 40 000051 7700 SMA CLA 41 000052 2046 ISZ LOOP1 42 000053 5446 JMP I LOOP1 43 000054 7770 M10, -10 44 000055 0000 BLKTRY, 0 45 000056 0000 DISBL, 0 46 000057 0000 DISDA, 0 47 000060 0000 BLKCN, 0 48 000061 0000 BLKREV, 0 49 000062 1175 TAD [3000 50 000063 1774 TAD UNIT 51 000064 6774 IOT172, SDLC 52 000065 4773 JMS RDQUAD 53 000066 4773 JMS RDQUAD 54 000067 5461 JMP I BLKREV 55 000070 0000 BLKEND, 0 56 000071 6771 IOT173, SDSS 57 000072 5071 JMP .-1 58 000073 6776 IOT174, SDRC 59 000074 0172 AND [77 60 000075 1171 TAD [-22 61 000076 7640 SZA CLA 62 000077 5071 JMP .-6 63 000100 5470 JMP I BLKEND 64 000101 0000 BLKSER, 0 65 000102 6771 IOT175, SDSS 66 000103 5102 JMP .-1 67 000104 6777 IOT176, SDRD 68 000105 3057 DCA DISDA 69 000106 6776 IOT177, SDRC 70 000107 0172 AND [77 71 000110 1170 TAD [-26 72 000111 7640 SZA CLA 73 000112 5102 JMP .-10 74 000113 5501 JMP I BLKSER 75 76 PAGE 77 000200 5777 JMP SELECT 78 000201 7300 DATREG, CLA CLL 79 000202 3020 DCA OUT 80 000203 1376 TAD (MESS1 81 000204 3025 DCA HEAD1 82 000205 1020 TAD OUT 83 000206 7040 CMA 84 000207 6775 IOT1, SDLD 85 000210 7200 CLA 86 000211 1020 TAD OUT 87 000212 6775 IOT2, SDLD 88 000213 7200 CLA 89 000214 6777 IOT3, SDRD 90 000215 3021 DCA IN 91 000216 7604 LAS 92 000217 7710 SPA CLA 93 000220 5210 JMP DATREG+7 94 000221 1021 TAD IN 95 000222 7041 CIA 96 000223 1020 TAD OUT 97 000224 7650 SNA CLA 98 000225 5232 JMP DATLUP 99 000226 4775 JMS ERROR1 100 000227 7604 LAS 101 000230 7710 SPA CLA 102 000231 5210 JMP DATREG+7 103 000232 2020 DATLUP, ISZ OUT 104 000233 5205 JMP DATREG+4 105 000234 4046 JMS LOOP1 106 000235 5201 JMP DATREG 107 108 /ROUTINE TO CHECK THE LOADING AND READING OF THE COMMAND REGISTER 109 110 000236 7300 COMREG, CLA CLL 111 000237 3020 DCA OUT 112 000240 1374 TAD (MESS2 113 000241 3025 DCA HEAD1 114 000242 1020 TAD OUT 115 000243 0373 AND (6400 116 000244 6774 IOT4, SDLC 117 000245 7200 CLA 118 000246 6776 IOT5, SDRC 119 000247 0372 AND (7400 120 000250 3021 DCA IN 121 000251 7604 LAS 122 000252 7710 SPA CLA 123 000253 5242 JMP COMREG+4 124 000254 1020 TAD OUT 125 000255 0373 AND (6400 126 000256 7041 CIA 127 000257 1021 TAD IN 128 000260 7650 SNA CLA 129 000261 5266 JMP CLOOP 130 000262 4775 JMS ERROR1 131 000263 7604 LAS 132 000264 7710 SPA CLA 133 000265 5242 JMP COMREG+4 134 000266 1020 CLOOP, TAD OUT 135 000267 1371 TAD (400 136 000270 7450 SNA 137 000271 5303 JMP INITST-2 138 000272 3020 DCA OUT 139 000273 7604 LAS 140 000274 7010 RAR 141 000275 7620 SNL CLA 142 000276 5242 JMP COMREG+4 143 000277 7010 RAR 144 000300 1020 TAD OUT 145 000301 7640 SZA CLA 146 000302 5242 JMP COMREG+4 147 000303 4046 JMS LOOP1 148 000304 5236 JMP COMREG 149 000305 7300 INITST, CLA CLL 150 000306 1370 TAD (MESS3 151 000307 3025 DCA HEAD1 152 000310 1367 TAD (MESS4 153 000311 3026 DCA HEAD2 154 000312 1373 TAD (6400 155 000313 6774 IOT6, SDLC 156 000314 6007 CAF 157 000315 7604 LAS 158 000316 7710 SPA CLA 159 000317 5305 JMP INITST 160 000320 6776 IOT7, SDRC 161 000321 0372 AND (7400 162 000322 7650 SNA CLA 163 000323 5330 JMP .+5 164 000324 4766 JMS ERROR2 165 000325 7604 LAS 166 000326 7710 SPA CLA 167 000327 5305 JMP INITST 168 000330 4046 JMS LOOP1 169 000331 5305 JMP INITST 170 000332 5771 JMP CHKCLA 171 172 000366 0537 PAGE 000367 5054 000370 5044 000371 0400 000372 7400 000373 6400 000374 5021 000375 0476 000376 5000 000377 2600 173 000400 7300 CHKCLA, CLA CLL 174 000401 1377 TAD (MESS5 175 000402 3025 DCA HEAD1 176 000403 1376 TAD (MESS6 177 000404 3026 DCA HEAD2 178 000405 1167 CSDLC, TAD [6777 179 000406 6774 IOT8, SDLC 180 000407 7650 SNA CLA 181 000410 5215 JMP .+5 182 000411 7604 LAS 183 000412 7710 SPA CLA 184 000413 5205 JMP CSDLC 185 000414 4337 JMS ERROR2 186 000415 7604 LAS 187 000416 7710 SPA CLA 188 000417 5205 JMP CSDLC 189 000420 1375 TAD (MESS7 190 000421 3026 DCA HEAD2 191 000422 7300 CSDRC, CLA CLL 192 000423 6774 IOT9, SDLC 193 000424 7240 CLA CMA 194 000425 6776 IOT10, SDRC 195 000426 7650 SNA CLA 196 000427 5234 JMP .+5 197 000430 7604 LAS 198 000431 7710 SPA CLA 199 000432 5222 JMP CSDRC 200 000433 4337 JMS ERROR2 201 000434 7604 LAS 202 000435 7710 SPA CLA 203 000436 5222 JMP CSDRC 204 000437 1374 TAD (MESS8 205 000440 3026 DCA HEAD2 206 000441 7240 CSDLD, CLA CMA 207 000442 6775 IOT11, SDLD 208 000443 7640 SZA CLA 209 000444 5251 JMP .+5 210 000445 7604 LAS 211 000446 7710 SPA CLA 212 000447 5241 JMP CSDLD 213 000450 4337 JMS ERROR2 214 000451 7604 LAS 215 000452 7710 SPA CLA 216 000453 5241 JMP CSDLD 217 000454 1373 TAD (MESS9 218 000455 3026 DCA HEAD2 219 000456 7300 CSDRD, CLA CLL 220 000457 6775 IOT12, SDLD 221 000460 7240 CLA CMA 222 000461 6777 IOT13, SDRD 223 000462 7650 SNA CLA 224 000463 5270 JMP .+5 225 000464 7604 LAS 226 000465 7710 SPA CLA 227 000466 5256 JMP CSDRD 228 000467 4337 JMS ERROR2 229 000470 7604 LAS 230 000471 7710 SPA CLA 231 000472 5256 JMP CSDRD 232 000473 4046 JMS LOOP1 233 000474 5200 JMP CHKCLA 234 000475 5772 JMP SINGLE 235 236 / ERROR HANDLER ROUTINE-DATA WORD TYPEOUTS 237 238 000476 0000 ERROR1, 0 239 000477 7604 LAS 240 000500 0371 AND (400 241 000501 7640 SZA CLA 242 000502 5325 JMP ERR1HT 243 000503 4040 JMS CRLF 244 000504 1025 TAD HEAD1 245 000505 7450 SNA 246 000506 5315 JMP .+7 247 000507 4770 JMS MESAGE 248 000510 3025 DCA HEAD1 249 000511 4040 JMS CRLF 250 000512 1367 TAD (FORMT1 251 000513 4770 JMS MESAGE 252 000514 4040 JMS CRLF 253 000515 1020 TAD OUT 254 000516 0366 AND (6400 255 000517 4765 JMS OPRINT 256 000520 1364 TAD (240 257 000521 4031 JMS TYPE 258 000522 1021 TAD IN 259 000523 4765 JMS OPRINT 260 000524 4040 JMS CRLF 261 000525 7604 ERR1HT, LAS 262 000526 0363 AND (200 263 000527 7650 SNA CLA 264 000530 7402 E1HLT, HLT 265 000531 5676 JMP I ERROR1 266 267 000532 0717 FORMT1, TEXT "GOOD BAD" 000533 1704 000534 4002 000535 0104 000536 0000 268 269 000537 0000 ERROR2, 0 270 000540 7604 LAS 271 000541 0371 AND (400 272 000542 7640 SZA CLA 273 000543 5356 JMP ERR2HT 274 000544 4040 JMS CRLF 275 000545 1025 TAD HEAD1 276 000546 7450 SNA 277 000547 5353 JMP .+4 278 000550 4770 JMS MESAGE 279 000551 3025 DCA HEAD1 280 000552 4040 JMS CRLF 281 000553 1026 TAD HEAD2 282 000554 4770 JMS MESAGE 283 000555 4040 JMS CRLF 284 000556 7604 ERR2HT, LAS 285 000557 0363 AND (200 286 000560 7650 SNA CLA 287 000561 7402 HLT 288 000562 5737 JMP I ERROR2 289 290 000563 0200 PAGE 000564 0240 000565 2316 000566 6400 000567 0532 000570 2264 000571 0400 000572 0600 000573 5161 000574 5151 000575 5136 000576 5123 000577 5076 291 292 / CHECK SINGLE LINE SKIP INSTRUCTION AND LOGIC 293 294 000600 7300 SINGLE, CLA CLL 295 000601 1377 TAD (MESS10 296 000602 3025 DCA HEAD1 297 000603 1376 TAD (MESS11 298 000604 3026 DCA HEAD2 299 000605 6774 SDLC 300 000606 6771 IOT14, SDSS 301 000607 7410 SKP 302 000610 4775 JMS ERROR2 303 000611 1374 TAD (1000 304 000612 6774 IOT15, SDLC 305 000613 1373 TAD (MESS12 306 000614 3026 DCA HEAD2 307 000615 7200 SINGL0, CLA 308 000616 1372 TAD (-1000 309 000617 3022 DCA CNTR1 310 000620 3023 DCA CNTR2 311 000621 6771 IOT16, SDSS 312 000622 7410 SKP 313 000623 5234 JMP SING1-2 314 000624 2023 ISZ CNTR2 315 000625 5221 JMP .-4 316 000626 2022 ISZ CNTR1 317 000627 5221 JMP .-6 318 000630 4775 JMS ERROR2 319 000631 7604 LAS 320 000632 7710 SPA CLA 321 000633 5200 JMP SINGLE 322 000634 1371 TAD (MESS13 323 000635 3026 DCA HEAD2 324 000636 6771 SING1, SDSS 325 000637 4775 JMS ERROR2 326 000640 7604 LAS 327 000641 7710 SPA CLA 328 000642 5236 JMP SING1 329 000643 1370 TAD (MESS14 330 000644 3026 DCA HEAD2 331 000645 6771 SING2, SDSS 332 000646 5245 JMP .-1 333 000647 6007 CAF 334 000650 7604 LAS 335 000651 7710 SPA CLA 336 000652 5245 JMP SING2 337 000653 6771 IOT17, SDSS 338 000654 5261 JMP SING3-4 339 000655 4775 JMS ERROR2 340 000656 7604 LAS 341 000657 7710 SPA CLA 342 000660 5245 JMP SING2 343 000661 1374 TAD (1000 344 000662 6774 IOT18, SDLC 345 000663 1367 TAD (MESS15 346 000664 3026 DCA HEAD2 347 000665 6771 SING3, SDSS 348 000666 5265 JMP .-1 349 000667 7200 CLA 350 000670 6775 IOT19, SDLD 351 000671 7604 LAS 352 000672 7710 SPA CLA 353 000673 5265 JMP SING3 354 000674 6771 IOT20, SDSS 355 000675 5302 JMP SING4-2 356 000676 4775 JMS ERROR2 357 000677 7604 LAS 358 000700 7710 SPA CLA 359 000701 5265 JMP SING3 360 000702 1366 TAD (MESS16 361 000703 3026 DCA HEAD2 362 000704 6771 SING4, SDSS 363 000705 5304 JMP .-1 364 000706 7200 CLA 365 000707 6776 IOT21, SDRC 366 000710 7604 LAS 367 000711 7710 SPA CLA 368 000712 5304 JMP SING4 369 000713 6771 IOT22, SDSS 370 000714 5321 JMP SING5-2 371 000715 4775 JMS ERROR2 372 000716 7604 LAS 373 000717 7710 SPA CLA 374 000720 5304 JMP SING4 375 000721 1365 TAD (MESS17 376 000722 3026 DCA HEAD2 377 000723 6771 SING5, SDSS 378 000724 5323 JMP .-1 379 000725 7200 CLA 380 000726 6777 IOT23, SDRD 381 000727 7604 LAS 382 000730 7710 SPA CLA 383 000731 5323 JMP SING5 384 000732 6771 IOT24, SDSS 385 000733 5774 JMP SING6-2 386 000734 4775 JMS ERROR2 387 000735 7604 LAS 388 000736 7710 SPA CLA 389 000737 5323 JMP SING5 390 000740 5774 JMP SING6-2 391 392 000765 5416 PAGE 000766 5373 000767 5350 000770 5326 000771 5305 000772 7000 000773 5253 000774 1000 000775 0537 000776 5222 000777 5174 393 001000 1377 TAD (MESS18 394 001001 3026 DCA HEAD2 395 001002 6771 SING6, SDSS 396 001003 5202 JMP .-1 397 001004 6772 IOT25, SDST 398 001005 7000 NOP 399 001006 6773 IOT26, SDSQ 400 001007 7200 CLA 401 001010 1376 TAD (1000 402 001011 6774 IOT27, SDLC 403 001012 6771 IOT28, SDSS 404 001013 7410 SKP 405 001014 5221 JMP SING7 406 001015 4775 JMS ERROR2 407 001016 7604 LAS 408 001017 7710 SPA CLA 409 001020 5202 JMP SING6 410 001021 6774 SING7, SDLC 411 001022 4046 JMS LOOP1 412 001023 5774 JMP SINGLE 413 001024 7300 QUAD, CLA CLL 414 001025 1373 TAD (MESS19 415 001026 3025 DCA HEAD1 416 001027 1372 TAD (MESS20 417 001030 3026 DCA HEAD2 418 001031 6774 SDLC 419 001032 6773 IOT29, SDSQ 420 001033 7410 SKP 421 001034 4775 JMS ERROR2 422 001035 1376 TAD (1000 423 001036 6774 IOT30, SDLC 424 001037 1371 TAD (MESS21 425 001040 3026 DCA HEAD2 426 001041 6777 QUAD0, SDRD 427 001042 6771 IOT31, SDSS 428 001043 5242 JMP .-1 429 001044 6773 IOT32, SDSQ 430 001045 5250 JMP .+3 431 001046 4775 JMS ERROR2 432 001047 5274 JMP Q0LUP 433 001050 6771 IOT33, SDSS 434 001051 7410 SKP 435 001052 5250 JMP .-2 436 001053 6773 IOT34, SDSQ 437 001054 5257 JMP .+3 438 001055 4775 JMS ERROR2 439 001056 5274 JMP Q0LUP 440 001057 6771 IOT35, SDSS 441 001060 5257 JMP .-1 442 001061 6773 IOT36, SDSQ 443 001062 5265 JMP .+3 444 001063 4775 JMS ERROR2 445 001064 5274 JMP Q0LUP 446 001065 1370 TAD (MESS22 447 001066 3026 DCA HEAD2 448 001067 6771 IOT37, SDSS 449 001070 7410 SKP 450 001071 5267 JMP .-2 451 001072 6773 IOT38, SDSQ 452 001073 4775 JMS ERROR2 453 001074 7604 Q0LUP, LAS 454 001075 7710 SPA CLA 455 001076 5235 JMP QUAD0-4 456 001077 1367 TAD (MESS23 457 001100 3026 DCA HEAD2 458 001101 6773 QUAD1, SDSQ 459 001102 4775 JMS ERROR2 460 001103 7604 LAS 461 001104 7710 SPA CLA 462 001105 5301 JMP QUAD1 463 001106 1366 TAD (MESS24 464 001107 3026 DCA HEAD2 465 001110 6773 QUAD2, SDSQ 466 001111 5310 JMP .-1 467 001112 6007 CAF 468 001113 7604 LAS 469 001114 7710 SPA CLA 470 001115 5310 JMP QUAD2 471 001116 6773 IOT39, SDSQ 472 001117 5324 JMP QUAD3-4 473 001120 4775 JMS ERROR2 474 001121 7604 LAS 475 001122 7710 SPA CLA 476 001123 5310 JMP QUAD2 477 001124 1376 TAD (1000 478 001125 6774 IOT40, SDLC 479 001126 1365 TAD (MESS25 480 001127 3026 DCA HEAD2 481 001130 6773 QUAD3, SDSQ 482 001131 5330 JMP .-1 483 001132 7200 CLA 484 001133 6775 IOT41, SDLD 485 001134 7604 LAS 486 001135 7710 SPA CLA 487 001136 5330 JMP QUAD3 488 001137 6773 IOT42, SDSQ 489 001140 5764 JMP QUAD4-2 490 001141 4775 JMS ERROR2 491 001142 7604 LAS 492 001143 7710 SPA CLA 493 001144 5330 JMP QUAD3 494 001145 5764 JMP QUAD4-2 495 496 001164 1200 PAGE 001165 5656 001166 5635 001167 5615 001170 5564 001171 5546 001172 5516 001173 5471 001174 0600 001175 0537 001176 1000 001177 5441 497 001200 1377 TAD (MESS26 498 001201 3026 DCA HEAD2 499 001202 6773 QUAD4, SDSQ 500 001203 5202 JMP .-1 501 001204 7200 CLA 502 001205 6776 IOT43, SDRC 503 001206 7604 LAS 504 001207 7710 SPA CLA 505 001210 5202 JMP QUAD4 506 001211 6773 IOT44, SDSQ 507 001212 5217 JMP QUAD5-2 508 001213 4776 JMS ERROR2 509 001214 7604 LAS 510 001215 7710 SPA CLA 511 001216 5202 JMP QUAD4 512 001217 1375 TAD (MESS27 513 001220 3026 DCA HEAD2 514 001221 6773 QUAD5, SDSQ 515 001222 5221 JMP .-1 516 001223 7200 CLA 517 001224 6777 IOT45, SDRD 518 001225 7604 LAS 519 001226 7710 SPA CLA 520 001227 5221 JMP QUAD5 521 001230 6773 IOT46, SDSQ 522 001231 5236 JMP QUAD6-2 523 001232 4776 JMS ERROR2 524 001233 7604 LAS 525 001234 7710 SPA CLA 526 001235 5221 JMP QUAD5 527 001236 1374 TAD (MESS28 528 001237 3026 DCA HEAD2 529 001240 6773 QUAD6, SDSQ 530 001241 5240 JMP .-1 531 001242 6772 IOT47, SDST 532 001243 7000 NOP 533 001244 6771 IOT48, SDSS 534 001245 7000 NOP 535 001246 7200 CLA 536 001247 1373 TAD (1000 537 001250 6774 IOT49, SDLC 538 001251 7604 LAS 539 001252 7710 SPA CLA 540 001253 5240 JMP QUAD6 541 001254 6773 IOT50, SDSQ 542 001255 7410 SKP 543 001256 5263 JMP QUAD7-2 544 001257 4776 JMS ERROR2 545 001260 7604 LAS 546 001261 7710 SPA CLA 547 001262 5240 JMP QUAD6 548 001263 1372 TAD (MESS29 549 001264 3026 DCA HEAD2 550 001265 7300 QUAD7, CLA CLL 551 001266 1371 TAD (-2 552 001267 3022 DCA CNTR1 553 001270 6775 IOT51, SDLD 554 001271 6771 IOT52, SDSS 555 001272 5271 JMP .-1 556 001273 6771 IOT53, SDSS 557 001274 7410 SKP 558 001275 5274 JMP .-1 / BUGBUG: "JMP .-2" MAKES MORE SENSE 559 001276 6771 IOT54, SDSS 560 001277 5276 JMP .-1 561 001300 2022 ISZ CNTR1 562 001301 5270 JMP QUAD7+3 563 001302 7604 LAS 564 001303 7710 SPA CLA 565 001304 5265 JMP QUAD7 566 001305 6773 IOT55, SDSQ 567 001306 7410 SKP 568 001307 4776 JMS ERROR2 569 001310 7604 LAS 570 001311 7710 SPA CLA 571 001312 5265 JMP QUAD7 572 001313 4046 JMS LOOP1 573 001314 5770 JMP QUAD 574 575 /CHECK TIMING ERROR SKIP INSTRUCTIONS AND LOGIC 576 577 001315 7300 TIMING, CLA CLL 578 001316 1367 TAD (MESS30 579 001317 3025 DCA HEAD1 580 001320 1366 TAD (MESS31 581 001321 3026 DCA HEAD2 582 001322 6774 SDLC 583 001323 1373 TAD (1000 584 001324 6774 IOT56, SDLC 585 001325 6771 IOT57, SDSS 586 001326 5325 JMP .-1 587 001327 6772 IOT58, SDST 588 001330 7410 SKP 589 001331 4776 JMS ERROR2 590 001332 1365 TAD (MESS32 591 001333 3026 DCA HEAD2 592 001334 6773 TIME0, SDSQ 593 001335 5334 JMP .-1 594 001336 7200 CLA 595 001337 3022 DCA CNTR1 596 001340 2022 ISZ CNTR1 /WAIT A WHILE SO THAT TIMING ERROR 597 001341 5340 JMP .-1 /CAN SET 598 001342 6772 IOT59, SDST 599 001343 7410 SKP 600 001344 5351 JMP TIME1-2 601 001345 4776 JMS ERROR2 602 001346 7604 LAS 603 001347 7710 SPA CLA 604 001350 5334 JMP TIME0 605 001351 1364 TAD (MESS33 606 001352 3026 DCA HEAD2 607 001353 6772 TIME1, SDST 608 001354 4776 JMS ERROR2 609 001355 7604 LAS 610 001356 7710 SPA CLA 611 001357 5353 JMP TIME1 612 001360 5763 JMP TIME2-2 613 614 001363 1400 PAGE 001364 6140 001365 6101 001366 6052 001367 6026 001370 1024 001371 7776 001372 5773 001373 1000 001374 5744 001375 5722 001376 0537 001377 5700 615 001400 1377 TAD (MESS34 616 001401 3026 DCA HEAD2 617 001402 6772 TIME2, SDST 618 001403 5202 JMP .-1 619 001404 6007 CAF 620 001405 7604 LAS 621 001406 7710 SPA CLA 622 001407 5202 JMP TIME2 623 001410 6772 IOT60, SDST 624 001411 5216 JMP TIME3-4 625 001412 4776 JMS ERROR2 626 001413 7604 LAS 627 001414 7710 SPA CLA 628 001415 5202 JMP TIME2 629 001416 1375 TAD (1000 630 001417 6774 IOT61, SDLC 631 001420 1374 TAD (MESS35 632 001421 3026 DCA HEAD2 633 001422 6772 TIME3, SDST 634 001423 5222 JMP .-1 635 001424 6776 IOT62, SDRC 636 001425 3021 DCA IN 637 001426 7604 LAS 638 001427 7710 SPA CLA 639 001430 5222 JMP TIME3 640 001431 1021 TAD IN 641 001432 0373 AND (100 642 001433 7440 SZA 643 001434 5241 JMP TIME4-4 644 001435 4776 JMS ERROR2 645 001436 7604 LAS 646 001437 7710 SPA CLA 647 001440 5222 JMP TIME3 648 001441 1375 TAD (1000 649 001442 6774 IOT63, SDLC 650 001443 1372 TAD (MESS36 651 001444 3026 DCA HEAD2 652 001445 6772 TIME4, SDST 653 001446 5245 JMP .-1 654 001447 6774 IOT64, SDLC 655 001450 7604 LAS 656 001451 7710 SPA CLA 657 001452 5245 JMP TIME4 658 001453 6772 IOT65, SDST 659 001454 5261 JMP TIME5-2 660 001455 4776 JMS ERROR2 661 001456 7604 LAS 662 001457 7710 SPA CLA 663 001460 5245 JMP TIME4 664 001461 1371 TAD (MESS37 665 001462 3026 DCA HEAD2 666 001463 7300 TIME5, CLA CLL 667 001464 1370 TAD (3000 668 001465 6774 IOT66, SDLC 669 001466 6771 IOT67, SDSS 670 001467 5266 JMP .-1 671 001470 6776 IOT68, SDRC 672 001471 0367 AND (77 673 001472 1366 TAD (-22 674 001473 7640 SZA CLA 675 001474 5266 JMP .-6 676 001475 6776 IOT69, SDRC 677 001476 0365 AND (7000 678 001477 1364 TAD (400 679 001500 6774 IOT70, SDLC 680 001501 3022 DCA CNTR1 681 001502 2022 ISZ CNTR1 /WAIT A WHILE 682 001503 5302 JMP .-1 683 001504 6772 IOT71, SDST 684 001505 4776 JMS ERROR2 685 001506 1363 TAD (MESS38 686 001507 3026 DCA HEAD2 687 001510 6776 IOT72, SDRC 688 001511 0364 AND (400 689 001512 7640 SZA CLA 690 001513 4776 JMS ERROR2 691 001514 7604 LAS 692 001515 7710 SPA CLA 693 001516 5263 JMP TIME5 694 001517 1362 TAD (MESS39 695 001520 3026 DCA HEAD2 696 001521 7300 TIME6, CLA CLL 697 001522 1375 TAD (1000 698 001523 6774 IOT73, SDLC 699 001524 6771 IOT74, SDSS 700 001525 5324 JMP .-1 701 001526 1361 TAD (-5 702 001527 3023 DCA CNTR2 703 001530 3022 DCA CNTR1 704 001531 6776 IOT75, SDRC 705 001532 6777 IOT76, SDRD 706 001533 6775 IOT77, SDLD 707 001534 2022 ISZ CNTR1 708 001535 5331 JMP .-4 709 001536 2023 ISZ CNTR2 710 001537 5331 JMP .-6 711 001540 7604 LAS 712 001541 7710 SPA CLA 713 001542 5327 JMP TIME6+6 714 001543 6772 IOT78, SDST 715 001544 4776 JMS ERROR2 716 001545 7604 LAS 717 001546 7710 SPA CLA 718 001547 5321 JMP TIME6 719 001550 4046 JMS LOOP1 720 001551 5760 JMP TIMING 721 001552 5757 JMP UTSMRK 722 723 001557 1600 PAGE 001560 1315 001561 7773 001562 6324 001563 6276 001564 0400 001565 7000 001566 7756 001567 0077 001570 3000 001571 6252 001572 6231 001573 0100 001574 6177 001575 1000 001576 0537 001577 6157 724 001600 7300 UTSMRK, CLA CLL 725 001601 1377 TAD (MESS43 726 001602 3025 DCA HEAD1 727 001603 1376 TAD (MESS44 728 001604 3026 DCA HEAD2 729 001605 6774 IOT82, SDLC 730 001606 1375 TAD (1000 731 001607 6774 IOT83, SDLC 732 001610 7604 LAS 733 001611 7710 SPA CLA 734 001612 5200 JMP UTSMRK 735 001613 6776 IOT84, SDRC 736 001614 0374 AND (77 737 001615 7440 SZA 738 001616 4773 JMS ERROR2 739 001617 7604 LAS 740 001620 7710 SPA CLA 741 001621 5200 JMP UTSMRK 742 001622 1372 TAD (MESS45 743 001623 3026 DCA HEAD2 744 001624 7300 UTSMK1, CLA CLL 745 001625 1375 TAD (1000 746 001626 6774 IOT85, SDLC 747 001627 6771 IOT86, SDSS 748 001630 5227 JMP .-1 749 001631 6776 IOT87, SDRC 750 001632 0374 AND (77 751 001633 7650 SNA CLA 752 001634 5227 JMP .-5 753 001635 6774 IOT88, SDLC 754 001636 7604 LAS 755 001637 7710 SPA CLA 756 001640 5224 JMP UTSMK1 757 001641 6776 IOT89, SDRC 758 001642 0374 AND (77 759 001643 7440 SZA 760 001644 4773 JMS ERROR2 761 001645 7604 LAS 762 001646 7710 SPA CLA 763 001647 5224 JMP UTSMK1 764 001650 1371 TAD (MESS46 765 001651 3026 DCA HEAD2 766 001652 7300 UTSMK2, CLA CLL 767 001653 1370 TAD (3000 768 001654 6774 IOT90, SDLC 769 001655 6771 IOT91, SDSS 770 001656 5255 JMP .-1 771 001657 6776 IOT92, SDRC 772 001660 0374 AND (77 773 001661 7650 SNA CLA 774 001662 5255 JMP .-5 775 001663 1375 TAD (1000 776 001664 6774 IOT93, SDLC 777 001665 7604 LAS 778 001666 7710 SPA CLA 779 001667 5252 JMP UTSMK2 780 001670 6776 IOT94, SDRC 781 001671 0374 AND (77 782 001672 7440 SZA 783 001673 4773 JMS ERROR2 784 001674 7604 LAS 785 001675 7710 SPA CLA 786 001676 5252 JMP UTSMK2 787 001677 1367 TAD (MESS47 788 001700 3026 DCA HEAD2 789 001701 7300 UTSMK3, CLA CLL 790 001702 1375 TAD (1000 791 001703 6774 IOT95, SDLC 792 001704 6771 IOT96, SDSS 793 001705 5304 JMP .-1 794 001706 6776 IOT97, SDRC 795 001707 0374 AND (77 796 001710 7650 SNA CLA 797 001711 5304 JMP .-5 798 001712 1370 TAD (3000 799 001713 6774 IOT98, SDLC 800 001714 7604 LAS 801 001715 7710 SPA CLA 802 001716 5301 JMP UTSMK3 803 001717 6776 IOT99, SDRC 804 001720 0374 AND (77 805 001721 7440 SZA 806 001722 4773 JMS ERROR2 807 001723 7604 LAS 808 001724 7710 SPA CLA 809 001725 5301 JMP UTSMK3 810 001726 5766 JMP UTSMK4-2 811 812 001766 2000 PAGE 001767 6517 001770 3000 001771 6466 001772 6441 001773 0537 001774 0077 001775 1000 001776 6415 001777 6352 813 002000 1377 TAD (MESS48 814 002001 3026 DCA HEAD2 815 002002 7300 UTSMK4, CLA CLL 816 002003 1376 TAD (1000 817 002004 6774 IOT100, SDLC 818 002005 6771 IOT101, SDSS 819 002006 5205 JMP .-1 820 002007 6776 IOT102, SDRC 821 002010 0375 AND (77 822 002011 7650 SNA CLA 823 002012 5205 JMP .-5 824 002013 1374 TAD (5000 825 002014 6774 IOT103, SDLC 826 002015 7604 LAS 827 002016 7710 SPA CLA 828 002017 5202 JMP UTSMK4 829 002020 6776 IOT104, SDRC 830 002021 0375 AND (77 831 002022 7440 SZA 832 002023 4773 JMS ERROR2 833 002024 7604 LAS 834 002025 7710 SPA CLA 835 002026 5202 JMP UTSMK4 836 002027 7604 LAS 837 002030 7010 RAR 838 002031 7630 SZL CLA 839 002032 5262 JMP UTSMK6 840 002033 1372 TAD (MESS49 841 002034 3026 DCA HEAD2 842 002035 7300 UTSMK5, CLA CLL 843 002036 1374 TAD (5000 844 002037 6774 IOT105, SDLC 845 002040 6771 IOT106, SDSS 846 002041 5240 JMP .-1 847 002042 6776 IOT107, SDRC 848 002043 0375 AND (77 849 002044 7650 SNA CLA 850 002045 5240 JMP IOT106 851 002046 1376 TAD (1000 852 002047 6774 IOT108, SDLC 853 002050 7604 LAS 854 002051 7710 SPA CLA 855 002052 5235 JMP UTSMK5 856 002053 6776 IOT109, SDRC 857 002054 0375 AND (77 858 002055 7440 SZA 859 002056 4773 JMS ERROR2 860 002057 7604 LAS 861 002060 7710 SPA CLA 862 002061 5235 JMP UTSMK5 863 002062 4046 UTSMK6, JMS LOOP1 864 002063 5771 JMP UTSMRK 865 002064 1370 TAD (4000 866 002065 6774 IOT110, SDLC 867 002066 7604 LAS 868 002067 7006 RTL 869 002070 7710 SPA CLA 870 002071 5767 JMP DATREG 871 002072 5766 JMP XFER 872 /ROUTINE TO SEARCH AND FIND ALL BLOCK NUMBERS 873 /THE RIGHT HAND REEL MUST HAVE AT LEAST FOUR TURNS OF TAPE ON IT 874 *2100 875 002100 7300 BLKCH, CLA CLL 876 002101 3056 DCA DISBL 877 002102 1166 TAD [-2702 878 002103 3060 DCA BLKCN 879 002104 4061 JMS BLKREV 880 002105 4070 JMS BLKEND 881 002106 1165 TAD [1000 882 002107 1765 TAD UNIT 883 002110 6774 IOT171, SDLC 884 002111 4764 JMS RDQUAD 885 002112 4764 JMS RDQUAD 886 002113 4101 FBLKCT, JMS BLKSER 887 002114 1057 TAD DISDA 888 002115 7041 CIA 889 002116 1056 TAD DISBL 890 002117 7640 SZA CLA 891 002120 5346 JMP BLKERR 892 002121 2056 ISZ DISBL 893 002122 2060 ISZ BLKCN 894 002123 5313 JMP FBLKCT 895 002124 4070 JMS BLKEND 896 002125 1164 TAD [2701 897 002126 3056 DCA DISBL 898 002127 1166 TAD [-2702 899 002130 3060 DCA BLKCN 900 002131 4061 JMS BLKREV 901 002132 4101 RBLKCT, JMS BLKSER 902 002133 1057 TAD DISDA 903 002134 7041 CIA 904 002135 1056 TAD DISBL 905 002136 7640 SZA CLA 906 002137 5346 JMP BLKERR 907 002140 7040 CMA 908 002141 1056 TAD DISBL 909 002142 3056 DCA DISBL 910 002143 2060 ISZ BLKCN 911 002144 5332 JMP RBLKCT 912 002145 5300 JMP BLKCH 913 002146 7300 BLKERR, CLA CLL 914 002147 1056 TAD DISBL 915 002150 7402 HLT 916 002151 7200 CLA 917 002152 1057 TAD DISDA 918 002153 7402 HLT 919 002154 5300 JMP BLKCH 920 921 002164 4707 PAGE 002165 2234 002166 3000 002167 0201 002170 4000 002171 1600 002172 6604 002173 0537 002174 5000 002175 0077 002176 1000 002177 6550 922 /TAPE 2 923 /ROUTINE TO RUN FROM END ZONE TO END ZONE 924 /AND DISPLAY THE CORRENT BLOCK NUMBER IN THE AC 925 002200 7300 DBLOCK, CLA CLL 926 002201 3233 DCA DISBLK 927 002202 1377 TAD (3000 928 002203 1234 TAD UNIT 929 002204 6774 IOT111, SDLC 930 002205 7300 CLA CLL 931 002206 6771 DISLUP, SDSS 932 002207 5206 JMP .-1 933 002210 7300 CLA CLL 934 002211 6777 IOT112, SDRD 935 002212 3236 DCA DISDAT 936 002213 6776 IOT113, SDRC 937 002214 0376 AND (77 938 002215 1375 TAD (-26 939 002216 7440 SZA 940 002217 5224 JMP DISEND 941 002220 1236 TAD DISDAT 942 002221 2233 ISZ DISBLK 943 002222 5221 JMP .-1 944 002223 5206 JMP DISLUP 945 002224 1374 DISEND, TAD (4 946 002225 7640 SZA CLA 947 002226 5206 JMP DISLUP 948 002227 6776 IOT114, SDRC 949 002230 7006 RTL 950 002231 7032 CML RTR 951 002232 5204 JMP DISLUP-2 952 002233 0000 DISBLK, 0 953 002234 0000 UNIT, 0 954 002235 0000 DISTRK, 0 955 002236 0000 DISDAT, 0 956 /ROUTINE TO ROKC DECTAPE UNIT 0 957 /FOR A DISTANCE DETERMINED BY ACS 958 002237 7300 ROCK, CLA CLL 959 002240 1373 TAD (1000 960 002241 6774 IOT115, SDLC 961 002242 7604 LAS 962 002243 7040 CMA 963 002244 3001 DCA 1 964 002245 2000 ISZ 0 965 002246 5245 JMP .-1 966 002247 2001 ISZ 1 967 002250 5245 JMP .-3 968 002251 7000 NOP 969 002252 1377 TAD (3000 970 002253 6774 IOT116, SDLC 971 002254 7604 LAS 972 002255 7040 CMA 973 002256 3001 DCA 1 974 002257 2000 ISZ 0 975 002260 5257 JMP .-1 976 002261 2001 ISZ 1 977 002262 5257 JMP .-3 978 002263 5240 JMP ROCK+1 979 002264 0000 MESAGE, 0 980 002265 3315 DCA MPNTR 981 002266 1715 TAD I MPNTR 982 002267 7012 RTR 983 002270 7012 RTR 984 002271 7012 RTR 985 002272 0376 AND (77 986 002273 7450 SNA 987 002274 5664 JMP I MESAGE 988 002275 1372 TAD (-40 989 002276 7510 SPA 990 002277 1371 TAD (100 991 002300 1370 TAD (240 992 002301 4031 JMS TYPE 993 002302 1715 TAD I MPNTR 994 002303 0376 AND (77 995 002304 7450 SNA 996 002305 5664 JMP I MESAGE 997 002306 1372 TAD (-40 998 002307 7510 SPA 999 002310 1371 TAD (100 1000 002311 1370 TAD (240 1001 002312 4031 JMS TYPE 1002 002313 2315 ISZ MPNTR 1003 002314 5266 JMP MESAGE+2 1004 002315 0000 MPNTR, 0 1005 002316 0000 OPRINT, 0 1006 002317 3340 DCA ONUMB 1007 002320 1367 TAD (-4 1008 002321 3341 DCA OCNT 1009 002322 1340 TAD ONUMB 1010 002323 7004 RAL 1011 002324 7004 OPLOOP, RAL 1012 002325 7006 RTL 1013 002326 3340 DCA ONUMB 1014 002327 1340 TAD ONUMB 1015 002330 0366 AND (7 1016 002331 1365 TAD (260 1017 002332 4031 JMS TYPE 1018 002333 1340 TAD ONUMB 1019 002334 2341 ISZ OCNT 1020 002335 5324 JMP OPLOOP 1021 002336 7200 CLA 1022 002337 5716 JMP I OPRINT 1023 002340 0000 ONUMB, 0000 1024 002341 0000 OCNT, 0000 1025 1026 002365 0260 PAGE 002366 0007 002367 7774 002370 0240 002371 0100 002372 7740 002373 1000 002374 0004 002375 7752 002376 0077 002377 3000 1027 /ROUTINE TO RUN FROM ENDZONE TO ENDZONE CHECKING THE MARK TRACK IN BLOCKS 1028 002400 7300 BLKCHK, CLA CLL 1029 002401 1377 TAD (3000 1030 002402 6774 IOT117, SDLC 1031 002403 4315 JMS RD6MRK 1032 002404 4307 ENDZ, JMS RD1MRK 1033 002405 1376 TAD (-22 1034 002406 7640 SZA CLA 1035 002407 5204 JMP ENDZ 1036 002410 6776 IOT118, SDRC 1037 002411 7006 RTL 1038 002412 7032 CML RTR 1039 002413 6774 IOT119, SDLC 1040 002414 4315 JMS RD6MRK 1041 002415 4307 JMS RD1MRK 1042 002416 1375 TAD (-26 1043 002417 7650 SNA CLA 1044 002420 5236 JMP RVGARD 1045 002421 5215 JMP .-4 1046 002422 4315 FWDEXP, JMS RD6MRK 1047 002423 1374 TAD (-25 1048 002424 7440 SZA 1049 002425 7402 HLT 1050 002426 4315 BLKMRK, JMS RD6MRK 1051 002427 1375 TAD (-26 1052 002430 7450 SNA 1053 002431 5236 JMP RVGARD 1054 002432 7001 IAC 1055 002433 7440 SZA 1056 002434 7402 HLT 1057 002435 5204 JMP ENDZ 1058 002436 4315 RVGARD, JMS RD6MRK 1059 002437 1373 TAD (-32 1060 002440 7440 SZA 1061 002441 7402 HLT 1062 002442 1372 TAD (-4 1063 002443 3000 DCA 0 1064 002444 4315 JMS RD6MRK 1065 002445 1371 LOCK, TAD (-10 1066 002446 7440 SZA 1067 002447 7402 HLT 1068 002450 2000 ISZ 0 1069 002451 5244 JMP .-5 1070 002452 1370 DATA, TAD (-122 1071 002453 3000 DCA 0 1072 002454 4315 JMS RD6MRK 1073 002455 1367 TAD (-70 1074 002456 7440 SZA 1075 002457 7402 HLT 1076 002460 2000 ISZ 0 1077 002461 5254 JMP .-5 1078 002462 1372 PREFIN, TAD (-4 1079 002463 3000 DCA 0 1080 002464 4315 JMS RD6MRK 1081 002465 1366 TAD (-73 1082 002466 7440 SZA 1083 002467 7402 HLT 1084 002470 2000 ISZ 0 1085 002471 5264 JMP .-5 1086 002472 4315 GUARD, JMS RD6MRK 1087 002473 1365 TAD (-51 1088 002474 7440 SZA 1089 002475 7402 HLT 1090 002476 4315 REVBLK, JMS RD6MRK 1091 002477 1364 TAD (-45 1092 002500 7440 SZA 1093 002501 7402 HLT 1094 002502 4315 REVEXP, JMS RD6MRK 1095 002503 1374 TAD (-25 1096 002504 7440 SZA 1097 002505 7402 HLT 1098 002506 5222 JMP FWDEXP 1099 /READ 1 SHIFT OF MARK TRACK SUBROUTINE 1100 002507 0000 RD1MRK, 0 1101 002510 6771 IOT120, SDSS 1102 002511 5310 JMP .-1 1103 002512 6776 IOT121, SDRC 1104 002513 0363 AND (77 1105 002514 5707 JMP I RD1MRK 1106 /READ 6 SHIFTS OF MARK TRACK SUBROUTINE 1107 002515 0000 RD6MRK, 0 1108 002516 1362 TAD (-6 1109 002517 3307 DCA RD1MRK 1110 002520 6771 IOT122, SDSS 1111 002521 5320 JMP .-1 1112 002522 6776 IOT123, SDRC 1113 002523 2307 ISZ RD1MRK 1114 002524 5320 JMP .-4 1115 002525 0363 AND (77 1116 002526 5715 JMP I RD6MRK 1117 1118 002562 7772 PAGE 002563 0077 002564 7733 002565 7727 002566 7705 002567 7710 002570 7656 002571 7770 002572 7774 002573 7746 002574 7753 002575 7752 002576 7756 002577 3000 1119 /CHECK SELECT ERROR STATUS BIT AND ABILITY TO CLEAR "WRITE" 1120 /UNIT 1 IS "OFF-LINE" OR NON-EXISTANT 1121 /UNIT 0 IS "ON LINE" AND "WRITE LOCKED" 1122 002600 7300 SELECT, CLA CLL 1123 002601 1377 TAD (MESS50 1124 002602 3025 DCA HEAD1 1125 002603 1376 TAD (MESS51 1126 002604 3026 DCA HEAD2 1127 002605 6774 IOT124, SDLC 1128 002606 6772 IOT125, SDST 1129 002607 7410 SKP 1130 002610 4775 JMS ERROR2 1131 002611 1374 TAD (MESS52 1132 002612 3026 DCA HEAD2 1133 002613 1373 TAD (4000 1134 002614 6774 IOT126, SDLC 1135 002615 7200 CLA 1136 002616 6776 IOT127, SDRC 1137 002617 3021 DCA IN 1138 002620 7604 LAS 1139 002621 7710 SPA CLA 1140 002622 5200 JMP SELECT 1141 002623 1021 TAD IN 1142 002624 0372 AND (100 1143 002625 7650 SNA CLA 1144 002626 4775 JMS ERROR2 1145 002627 7604 LAS 1146 002630 7710 SPA CLA 1147 002631 5200 JMP SELECT 1148 002632 1371 TAD (MESS53 1149 002633 3026 DCA HEAD2 1150 002634 1370 SELCT1, TAD (4400 1151 002635 6774 IOT128, SDLC 1152 002636 7604 LAS 1153 002637 7710 SPA CLA 1154 002640 5234 JMP SELCT1 1155 002641 6776 IOT129, SDRC 1156 002642 3021 DCA IN 1157 002643 1021 TAD IN 1158 002644 0367 AND (400 1159 002645 7640 SZA CLA 1160 002646 4775 JMS ERROR2 1161 002647 7604 LAS 1162 002650 7710 SPA CLA 1163 002651 5234 JMP SELCT1 1164 002652 1366 TAD (MESS63 1165 002653 3026 DCA HEAD2 1166 002654 6774 SELCT2, SDLC 1167 002655 7604 LAS 1168 002656 7710 SPA CLA 1169 002657 5254 JMP SELCT2 1170 002660 6776 IOT130, SDRC 1171 002661 3021 DCA IN 1172 002662 1021 TAD IN 1173 002663 0372 AND (100 1174 002664 7640 SZA CLA 1175 002665 4775 JMS ERROR2 1176 002666 7604 LAS 1177 002667 7710 SPA CLA 1178 002670 5254 JMP SELCT2 1179 002671 4046 JMS LOOP1 1180 002672 5200 JMP SELECT 1181 /CHECK WRITE LOCK OUT STATUS BIT AND ABILITY TO CLEAR "WRITE" 1182 /UNIT 0 IS "WRITE_LOCKED" 1183 002673 7300 WL0, CLA CLL 1184 002674 1365 TAD (MESS54 1185 002675 3025 DCA HEAD1 1186 002676 1364 TAD (MESS55 1187 002677 3026 DCA HEAD2 1188 002700 6774 SDLC 1189 002701 6776 IOT131, SDRC 1190 002702 3021 DCA IN 1191 002703 7604 LAS 1192 002704 7710 SPA CLA 1193 002705 5273 JMP WL0 1194 002706 1021 TAD IN 1195 002707 0363 AND (200 1196 002710 7650 SNA CLA 1197 002711 4775 JMS ERROR2 1198 002712 7604 LAS 1199 002713 7710 SPA CLA 1200 002714 5273 JMP WL0 1201 002715 1362 TAD (MESS56 1202 002716 3026 DCA HEAD2 1203 002717 1367 WL1, TAD (400 1204 002720 6774 IOT132, SDLC 1205 002721 7604 LAS 1206 002722 7710 SPA CLA 1207 002723 5317 JMP WL1 1208 002724 6776 IOT133, SDRC 1209 002725 3021 DCA IN 1210 002726 1021 TAD IN 1211 002727 0367 AND (400 1212 002730 7640 SZA CLA 1213 002731 4775 JMS ERROR2 1214 002732 7604 LAS 1215 002733 7710 SPA CLA 1216 002734 5317 JMP WL1 1217 002735 4046 JMS LOOP1 1218 002736 5273 JMP WL0 1219 002737 1361 TAD (OK 1220 002740 4760 JMS MESAGE 1221 002741 4040 JMS CRLF 1222 002742 7402 HLT 1223 002743 5342 JMP .-1 1224 002744 1713 OK, TEXT "OK" 002745 0000 1225 1226 002760 2264 PAGE 002761 2744 002762 6767 002763 0200 002764 6744 002765 6730 002766 7107 002767 0400 002770 4400 002771 6706 002772 0100 002773 4000 002774 6664 002775 0537 002776 6653 002777 6640 1227 1228 /TD8EA READ_WRITE AND SEARCH TEST PROGRAM 1229 /COPYRIGHT 1971, DIGITAL EQUIPMENT CORP., MAYNARD, MASS. 01754 1230 1231 BUFF1=7200 1232 BUFF2=7400 1233 1234 /ROUTINE TO CHECK DATA TRANSFERS ON TAPE 1235 1236 003000 7300 XFER, CLA CLL 1237 003001 3021 DCA IN 1238 003002 1377 TAD (FILL0 1239 003003 4224 JMS WREAD 1240 003004 1376 TAD (FILL1 1241 003005 4224 JMS WREAD 1242 003006 1375 TAD (FILL25 1243 003007 4224 JMS WREAD 1244 003010 1374 TAD (FILPAT 1245 003011 4224 JMS WREAD 1246 003012 1373 TAD (FILINC 1247 003013 4224 JMS WREAD 1248 003014 1372 TAD (FILDEC 1249 003015 4224 JMS WREAD 1250 003016 1371 TAD (SPEC1 1251 003017 4224 JMS WREAD 1252 003020 1370 TAD (SPEC2 1253 003021 4224 JMS WREAD 1254 003022 4767 JMS PASCNT 1255 003023 5202 JMP XFER+2 1256 /ROUTINE TO WRITE AND READ BACK AND COMPARE EVERY 100TH BLOCK ON TAPE 1257 003024 0000 WREAD, 0 1258 003025 3030 DCA FILPNT 1259 003026 3766 DCA SUNIT 1260 003027 1365 TAD (-200 1261 003030 4430 JMS I FILPNT 1262 003031 7200 CLA 1263 003032 3027 DCA BLK 1264 003033 1364 TAD (MESS57 1265 003034 3025 DCA HEAD1 1266 003035 1363 WREL1, TAD (MESS58 1267 003036 3026 DCA HEAD2 1268 003037 1027 TAD BLK 1269 003040 4762 JMS WRITE 1270 003041 7200 BUFF1 1271 003042 7600 -200 1272 003043 1361 TAD (MESS59 1273 003044 3026 DCA HEAD2 1274 003045 1027 TAD BLK 1275 003046 4760 JMS READ 1276 003047 7400 BUFF2 1277 003050 7577 -201 1278 003051 1365 TAD (-200 1279 003052 4757 JMS COMPAR 1280 003053 7200 BUFF1 1281 003054 7401 BUFF2+1 1282 003055 1356 TAD (MESS60 1283 003056 3026 DCA HEAD2 1284 003057 1027 TAD BLK 1285 003060 4755 JMS READR 1286 003061 7400 BUFF2 1287 003062 7577 -201 1288 003063 1027 TAD BLK 1289 003064 1354 TAD (100 1290 003065 3027 DCA BLK 1291 003066 1027 TAD BLK 1292 003067 1353 TAD (-2701 1293 003070 7710 SPA CLA 1294 003071 5235 JMP WREL1 1295 003072 1352 TAD (2701 1296 003073 3027 DCA BLK 1297 003074 1351 TAD (MESS61 1298 003075 3025 DCA HEAD1 1299 003076 1350 WREL2, TAD (MESS62 1300 003077 3026 DCA HEAD2 1301 003100 1027 TAD BLK 1302 003101 4747 JMS WRITER 1303 003102 7200 BUFF1 1304 003103 7600 -200 1305 003104 1356 TAD (MESS60 1306 003105 3026 DCA HEAD2 1307 003106 1027 TAD BLK 1308 003107 4755 JMS READR 1309 003110 7400 BUFF2 1310 003111 7577 -201 1311 003112 1365 TAD (-200 1312 003113 4757 JMS COMPAR 1313 003114 7200 BUFF1 1314 003115 7401 BUFF2+1 1315 003116 1361 TAD (MESS59 1316 003117 3026 DCA HEAD2 1317 003120 1027 TAD BLK 1318 003121 4760 JMS READ 1319 003122 7400 BUFF2 1320 003123 7577 -201 1321 003124 1027 TAD BLK 1322 003125 1346 TAD (-100 1323 003126 3027 DCA BLK 1324 003127 1027 TAD BLK 1325 003130 7700 SMA CLA 1326 003131 5276 JMP WREL2 1327 003132 7604 LAS 1328 003133 7010 RAR 1329 003134 7630 SZL CLA 1330 003135 5624 JMP I WREAD 1331 003136 1766 TAD SUNIT 1332 003137 1345 TAD (4000 1333 003140 7450 SNA 1334 003141 5624 JMP I WREAD 1335 003142 3766 DCA SUNIT 1336 003143 5232 JMP WREL1-3 1337 1338 003145 4000 PAGE 003146 7700 003147 3671 003150 7075 003151 7062 003152 2701 003153 5077 003154 0100 003155 3714 003156 7050 003157 3200 003160 4600 003161 7037 003162 4472 003163 7025 003164 7012 003165 7600 003166 4471 003167 3477 003170 3461 003171 3443 003172 3421 003173 3400 003174 3276 003175 3260 003176 3243 003177 3227 1339 /SUBROUTINE TO COMPARE TWO DATA BUFFERS, INDICATE AN ERROR 1340 /CALLING SEQUENCE: 1341 / TAD (-N /MINUS (2'S) NUMBER OF WORDS TO COMPARE 1342 / JMS COMPAR /CALL SUBROUTINE 1343 / GADD /1ST ADDRESS OF GOOD DATA 1344 / TADD /1ST ADDRESS OF TEST DATA 1345 / /RETURN HERE WHEN DONE 1346 003200 0000 COMPAR, 0 1347 003201 3224 DCA CCNTR 1348 003202 1600 TAD I COMPAR 1349 003203 3225 DCA GPNTR 1350 003204 2200 ISZ COMPAR 1351 003205 1600 TAD I COMPAR 1352 003206 3226 DCA TPNTR 1353 003207 2200 ISZ COMPAR 1354 003210 1377 TAD (DATMES 1355 003211 3776 DCA DATHD 1356 003212 1625 COMLUP, TAD I GPNTR 1357 003213 7041 CIA 1358 003214 1626 TAD I TPNTR 1359 003215 7640 SZA CLA 1360 003216 4775 JMS DATERR 1361 003217 2225 ISZ GPNTR 1362 003220 2226 ISZ TPNTR 1363 003221 2224 ISZ CCNTR 1364 003222 5212 JMP COMLUP 1365 003223 5600 JMP I COMPAR 1366 003224 0000 CCNTR, 0 1367 003225 0000 GPNTR, 0 1368 003226 0000 TPNTR, 0 1369 1370 003227 0000 FILL0, 0 1371 003230 3241 DCA FILL0C 1372 003231 1627 TAD I FILL0 1373 003232 3242 DCA FILL0P 1374 003233 2227 ISZ FILL0 1375 003234 3642 DCA I FILL0P 1376 003235 2242 ISZ FILL0P 1377 003236 2241 ISZ FILL0C 1378 003237 5234 JMP .-3 1379 003240 5627 JMP I FILL0 1380 003241 0000 FILL0C, 0 1381 003242 0000 FILL0P, 0 1382 1383 003243 0000 FILL1, 0 1384 003244 3256 DCA FILL1C 1385 003245 1643 TAD I FILL1 1386 003246 3257 DCA FILL1P 1387 003247 2243 ISZ FILL1 1388 003250 7240 CLA CMA 1389 003251 3657 DCA I FILL1P 1390 003252 2257 ISZ FILL1P 1391 003253 2256 ISZ FILL1C 1392 003254 5250 JMP .-4 1393 003255 5643 JMP I FILL1 1394 003256 0000 FILL1C, 0 1395 003257 0000 FILL1P, 0 1396 1397 003260 0000 FILL25, 0 1398 003261 3273 DCA FILL2C 1399 003262 1660 TAD I FILL25 1400 003263 3275 DCA FILL2P 1401 003264 2260 ISZ FILL25 1402 003265 1274 TAD FILL2K 1403 003266 3675 DCA I FILL2P 1404 003267 2275 ISZ FILL2P 1405 003270 2273 ISZ FILL2C 1406 003271 5265 JMP .-4 1407 003272 5660 JMP I FILL25 1408 003273 0000 FILL2C, 0 1409 003274 2525 FILL2K, 2525 1410 003275 0000 FILL2P, 0 1411 1412 003276 0000 FILPAT, 0 1413 003277 3323 DCA FILLC1 1414 003300 1676 TAD I FILPAT 1415 003301 3321 DCA FILLP1 1416 003302 2276 ISZ FILPAT 1417 003303 1325 FILPL1, TAD FILTP 1418 003304 3322 DCA FILLP2 1419 003305 1331 TAD FILTC 1420 003306 3324 DCA FILLC2 1421 003307 1722 FILPL2, TAD I FILLP2 1422 003310 3721 DCA I FILLP1 1423 003311 2321 ISZ FILLP1 1424 003312 2323 ISZ FILLC1 1425 003313 7410 SKP 1426 003314 5676 JMP I FILPAT 1427 003315 2322 ISZ FILLP2 1428 003316 2324 ISZ FILLC2 1429 003317 5307 JMP FILPL2 1430 003320 5303 JMP FILPL1 1431 003321 0000 FILLP1, 0 1432 003322 0000 FILLP2, 0 1433 003323 0000 FILLC1, 0 1434 003324 0000 FILLC2, 0 1435 003325 3326 FILTP, .+1 1436 003326 2225 2225 1437 003327 5522 5522 1438 003330 2555 2555 1439 003331 7775 FILTC, FILTP-FILTC+1 1440 1441 003375 4000 PAGE 003376 4040 003377 4042 1442 003400 0000 FILINC, 0 1443 003401 3216 DCA FILICT 1444 003402 1600 TAD I FILINC 1445 003403 3217 DCA FILIPT 1446 003404 2200 ISZ FILINC 1447 003405 3220 DCA FILIDT 1448 003406 1220 TAD FILIDT 1449 003407 3617 DCA I FILIPT 1450 003410 2220 ISZ FILIDT 1451 003411 7000 NOP 1452 003412 2217 ISZ FILIPT 1453 003413 2216 ISZ FILICT 1454 003414 5206 JMP .-6 1455 003415 5600 JMP I FILINC 1456 003416 0000 FILICT, 0 1457 003417 0000 FILIPT, 0 1458 003420 0000 FILIDT, 0 1459 1460 003421 0000 FILDEC, 0 1461 003422 3240 DCA FILDCT 1462 003423 1621 TAD I FILDEC 1463 003424 3241 DCA FILDPT 1464 003425 2221 ISZ FILDEC 1465 003426 3242 DCA FILDDT 1466 003427 1242 TAD FILDDT 1467 003430 3641 DCA I FILDPT 1468 003431 7040 CMA 1469 003432 1242 TAD FILDDT 1470 003433 2241 ISZ FILDPT 1471 003434 2240 ISZ FILDCT 1472 003435 5226 JMP .-7 1473 003436 7200 CLA 1474 003437 5621 JMP I FILDEC 1475 003440 0000 FILDCT, 0 1476 003441 0000 FILDPT, 0 1477 003442 0000 FILDDT, 0 1478 1479 003443 0000 SPEC1, 0 1480 003444 3256 DCA SP1CT 1481 003445 1643 TAD I SPEC1 1482 003446 3257 DCA SP1PT 1483 003447 2243 ISZ SPEC1 1484 003450 1260 TAD SPEC1D 1485 003451 3657 DCA I SP1PT 1486 003452 2257 ISZ SP1PT 1487 003453 2256 ISZ SP1CT 1488 003454 5250 JMP .-4 1489 003455 5643 JMP I SPEC1 1490 003456 0000 SP1CT, 0 1491 003457 0000 SP1PT, 0 1492 003460 6161 SPEC1D, 6161 1493 1494 003461 0000 SPEC2, 0 1495 003462 3274 DCA SP2CT 1496 003463 1661 TAD I SPEC2 1497 003464 3275 DCA SP2PT 1498 003465 2261 ISZ SPEC2 1499 003466 1276 TAD SPEC2D 1500 003467 3675 DCA I SP2PT 1501 003470 2275 ISZ SP2PT 1502 003471 2274 ISZ SP2CT 1503 003472 5266 JMP .-4 1504 003473 5661 JMP I SPEC2 1505 003474 0000 SP2CT, 0 1506 003475 0000 SP2PT, 0 1507 003476 3434 SPEC2D, 3434 1508 1509 003477 0000 PASCNT, 0 1510 003500 4040 JMS CRLF 1511 003501 1377 TAD (PASS 1512 003502 4776 JMS MESAGE 1513 003503 2021 ISZ IN 1514 003504 7000 NOP 1515 003505 1021 TAD IN 1516 003506 4775 JMS OPRINT 1517 003507 1374 TAD (COMP 1518 003510 4776 JMS MESAGE 1519 003511 4040 JMS CRLF 1520 003512 5677 JMP I PASCNT 1521 003513 2001 PASS, TEXT "PASS " 003514 2323 003515 4000 1522 003516 4003 COMP, TEXT " COMPLETE" 003517 1715 003520 2014 003521 0524 003522 0500 1523 1524 003574 3516 PAGE 003575 2316 003576 2264 003577 3513 1525 /REVERSE SEARCH SUBROUTINE 1526 003600 0000 RSERCH, 0 1527 003601 3270 DCA RSLOOK 1528 003602 1054 TAD M10 1529 003603 3055 DCA BLKTRY 1530 003604 1377 TAD (1000 1531 003605 1776 TAD SUNIT 1532 003606 6774 RSRCH0, SDLC 1533 003607 6776 IOT134, SDRC 1534 003610 0375 AND (100 1535 003611 7640 SZA CLA 1536 003612 5563 JMP I [SELERR 1537 003613 4774 JMS RDQUAD 1538 003614 4774 JMS RDQUAD 1539 003615 6771 RSRCH1, SDSS 1540 003616 7410 SKP 1541 003617 6777 IOT135, SDRD 1542 003620 6771 IOT136, SDSS 1543 003621 5220 JMP .-1 1544 003622 6776 IOT138, SDRC 1545 003623 0373 AND (77 1546 003624 1372 TAD (-26 1547 003625 7450 SNA 1548 003626 5240 JMP RSRCH2 1549 003627 1371 TAD (4 1550 003630 7640 SZA CLA 1551 003631 5215 JMP RSRCH1 1552 003632 6776 IOT13A, SDRC 1553 003633 7006 RTL 1554 003634 7032 CML RTR 1555 003635 2055 ISZ BLKTRY 1556 003636 5206 JMP RSRCH0 1557 003637 5261 JMP RSTURN+5 1558 003640 6776 RSRCH2, SDRC 1559 003641 7006 RTL 1560 003642 6777 IOT137, SDRD 1561 003643 7041 CIA 1562 003644 1270 TAD RSLOOK 1563 003645 7450 SNA 1564 003646 5265 JMP RLOCED 1565 003647 7041 CIA 1566 003650 7420 SNL 1567 003651 1371 TAD (4 1568 003652 7630 SZL CLA 1569 003653 5215 JMP RSRCH1 1570 003654 6776 RSTURN, SDRC 1571 003655 7006 RTL 1572 003656 7032 CML RTR 1573 003657 2055 ISZ BLKTRY 1574 003660 5206 JMP RSRCH0 1575 003661 7200 CLA 1576 003662 1270 TAD RSLOOK 1577 003663 7402 HLT 1578 003664 5263 JMP .-1 1579 003665 7630 RLOCED, SZL CLA 1580 003666 5215 JMP RSRCH1 1581 003667 5600 JMP I RSERCH 1582 003670 0000 RSLOOK, 0 1583 /WRITE REVERSE SUBROUTINE 1584 003671 0000 WRITER, 0 1585 003672 3770 DCA WCNT 1586 003673 1671 TAD I WRITER 1587 003674 3767 DCA WADDR 1588 003675 2271 ISZ WRITER 1589 003676 1671 TAD I WRITER 1590 003677 3766 DCA WCOUNT 1591 003700 1271 TAD WRITER 1592 003701 7001 IAC 1593 003702 3765 DCA WRITE 1594 003703 4764 JMS CSUMRT 1595 003704 0025 25 1596 003705 7177 BUFF1-1 1597 003706 7600 -200 1598 003707 4763 JMS SBCXOR 1599 003710 4331 JMS WRTLCK 1600 003711 1770 TAD WCNT 1601 003712 4200 JMS RSERCH 1602 003713 5762 JMP WRITE1 1603 /READ REVERSE SUBROUTINE 1604 003714 0000 READR, 0 1605 003715 3761 DCA RCNT 1606 003716 1714 TAD I READR 1607 003717 3760 DCA RADDR 1608 003720 2314 ISZ READR 1609 003721 1714 TAD I READR 1610 003722 3757 DCA RCOUNT 1611 003723 1314 TAD READR 1612 003724 7001 IAC 1613 003725 3756 DCA READ 1614 003726 1761 TAD RCNT 1615 003727 4200 JMS RSERCH 1616 003730 5755 JMP READ1 1617 1618 003731 0000 WRTLCK, 0 1619 003732 1776 TAD SUNIT 1620 003733 6774 IOT151, SDLC 1621 003734 6776 IOT15A, SDRC 1622 003735 0354 AND (200 1623 003736 7640 SZA CLA 1624 003737 5562 JMP I [WROERR 1625 003740 5731 JMP I WRTLCK 1626 1627 003754 0200 PAGE 003755 4612 003756 4600 003757 4660 003760 4657 003761 4656 003762 4512 003763 4714 003764 4303 003765 4472 003766 4545 003767 4544 003770 4470 003771 0004 003772 7752 003773 0077 003774 4707 003775 0100 003776 4471 003777 1000 1628 /DATA ERROR HANDLER 1629 004000 0000 DATERR, 0 1630 004001 7604 LAS 1631 004002 0377 AND (400 1632 004003 7640 SZA CLA 1633 004004 5233 JMP DATHLT-3 1634 004005 1240 TAD DATHD 1635 004006 7650 SNA CLA 1636 004007 5220 JMP DATNUM 1637 004010 4250 JMS HEADTP 1638 004011 1240 TAD DATHD 1639 004012 4776 JMS MESAGE 1640 004013 3240 DCA DATHD 1641 004014 4040 JMS CRLF 1642 004015 1375 TAD (FORMT1 1643 004016 4776 JMS MESAGE 1644 004017 4040 JMS CRLF 1645 004020 1774 DATNUM, TAD GPNTR 1646 004021 3241 DCA DATPNT 1647 004022 1641 TAD I DATPNT 1648 004023 4773 JMS OPRINT 1649 004024 1372 TAD (240 1650 004025 4031 JMS TYPE 1651 004026 1771 TAD TPNTR 1652 004027 3241 DCA DATPNT 1653 004030 1641 TAD I DATPNT 1654 004031 4773 JMS OPRINT 1655 004032 4040 JMS CRLF 1656 004033 7604 LAS 1657 004034 0370 AND (200 1658 004035 7650 SNA CLA 1659 004036 7402 DATHLT, HLT 1660 004037 5600 JMP I DATERR 1661 004040 0000 DATHD, 0 1662 004041 0000 DATPNT, 0 1663 004042 0401 DATMES, TEXT "DATA ERROR" 004043 2401 004044 4005 004045 2222 004046 1722 004047 0000 1664 1665 /SUBROUTINE TO TYPE OUT HEADER FOR DATA TESTS 1666 004050 0000 HEADTP, 0 1667 004051 4040 JMS CRLF 1668 004052 1367 TAD (UMESS 1669 004053 4776 JMS MESAGE 1670 004054 1372 TAD (240 1671 004055 4031 JMS TYPE 1672 004056 6776 IOT139, SDRC 1673 004057 7710 SPA CLA 1674 004060 7001 IAC 1675 004061 1366 TAD (260 1676 004062 4031 JMS TYPE 1677 004063 4040 JMS CRLF 1678 004064 1365 TAD (BMESS 1679 004065 4776 JMS MESAGE 1680 004066 1372 TAD (240 1681 004067 4031 JMS TYPE 1682 004070 1027 TAD BLK 1683 004071 4773 JMS OPRINT 1684 004072 4040 JMS CRLF 1685 004073 1025 TAD HEAD1 1686 004074 4776 JMS MESAGE 1687 004075 4040 JMS CRLF 1688 004076 1026 TAD HEAD2 1689 004077 4776 JMS MESAGE 1690 004100 4040 JMS CRLF 1691 004101 5650 JMP I HEADTP 1692 004102 2516 UMESS, TEXT "UNIT" 004103 1124 004104 0000 1693 004105 0214 BMESS, TEXT "BLOCK" 004106 1703 004107 1300 1694 1695 /CHECKSUM ERROR HANDLER 1696 004110 0000 CHKERR, 0 1697 004111 3331 DCA CHKDAT 1698 004112 6776 IOT140, SDRC 1699 004113 0364 AND (4000 1700 004114 6774 IOT141, SDLC 1701 004115 4250 JMS HEADTP 1702 004116 1363 TAD (CHKMES 1703 004117 4776 JMS MESAGE 1704 004120 4040 JMS CRLF 1705 004121 7604 LAS 1706 004122 0370 AND (200 1707 004123 7640 SZA CLA 1708 004124 5710 JMP I CHKERR 1709 004125 1331 TAD CHKDAT 1710 004126 7402 CHKHLT, HLT 1711 004127 7200 CLA 1712 004130 5710 JMP I CHKERR 1713 004131 0000 CHKDAT, 0 1714 004132 0310 CHKMES, TEXT "CHECKSUM ERROR" 004133 0503 004134 1323 004135 2515 004136 4005 004137 2222 004140 1722 004141 0000 1715 1716 004163 4132 PAGE 004164 4000 004165 4105 004166 0260 004167 4102 004170 0200 004171 3226 004172 0240 004173 2316 004174 3225 004175 0532 004176 2264 004177 0400 1717 /WRITE LOCK OUT ERROR 1718 004200 4777 WROERR, JMS HEADTP 1719 004201 6776 IOT142, SDRC 1720 004202 0376 AND (4000 1721 004203 6774 IOT143, SDLC 1722 004204 1375 TAD (WROMES 1723 004205 4774 JMS MESAGE 1724 004206 4040 JMS CRLF 1725 004207 7604 LAS 1726 004210 0373 AND (200 1727 004211 7650 SNA CLA 1728 004212 7402 WRDHLT, HLT 1729 004213 5772 JMP WREL1+2 1730 004214 2516 WROMES, TEXT "UNIT WRITE LOCKED" 004215 1124 004216 4027 004217 2211 004220 2405 004221 4014 004222 1703 004223 1305 004224 0400 1731 1732 /SELECT ERROR HANDLER 1733 004225 4777 SELERR, JMS HEADTP 1734 004226 1371 TAD (SELMES 1735 004227 4774 JMS MESAGE 1736 004230 4040 JMS CRLF 1737 004231 7604 LAS 1738 004232 0373 AND (200 1739 004233 7650 SNA CLA 1740 004234 7402 SELHLT, HLT 1741 004235 5772 JMP WREL1+2 1742 004236 2305 SELMES, TEXT "SELECT ERROR" 004237 1405 004240 0324 004241 4005 004242 2222 004243 1722 004244 0000 1743 1744 /TIMING ERROR HANDLER 1745 004245 0000 TYMERR, 0 1746 004246 6776 IOT144, SDRC 1747 004247 0376 AND (4000 1748 004250 6774 IOT145, SDLC 1749 004251 4777 JMS HEADTP 1750 004252 1370 TAD (TYMMES 1751 004253 4774 JMS MESAGE 1752 004254 4040 JMS CRLF 1753 004255 7604 LAS 1754 004256 0373 AND (200 1755 004257 7650 SNA CLA 1756 004260 7402 TYMHLT, HLT 1757 004261 5767 JMP WREAD+3 1758 004262 2411 TYMMES, TEXT "TIMING ERROR" 004263 1511 004264 1607 004265 4005 004266 2222 004267 1722 004270 0000 1759 1760 /SUBROUTINE TO CLEAR WRITE AFTER QUAD LINE FLAG 1761 004271 0000 CLRWT, 0 1762 004272 6773 IOT168, SDSQ 1763 004273 5272 JMP .-1 1764 004274 6772 IOT154, SDST 1765 004275 7610 SKP CLA 1766 004276 4161 JMS [TYMERR /BUGBUG: No '[' makes sense here?? 1767 004277 6776 IOT169, SDRC 1768 004300 0366 AND (7000 1769 004301 6774 IOT170, SDLC 1770 004302 5671 JMP I CLRWT 1771 1772 004303 0000 CSUMRT, 0 1773 004304 1703 TAD I CSUMRT 1774 004305 3765 DCA CHKSUM 1775 004306 2303 ISZ CSUMRT 1776 004307 1703 TAD I CSUMRT 1777 004310 3017 DCA AUTO 1778 004311 2303 ISZ CSUMRT 1779 004312 1703 TAD I CSUMRT 1780 004313 3322 DCA XXX 1781 004314 2303 ISZ CSUMRT 1782 004315 1417 TAD I AUTO 1783 004316 4764 JMS SBCXOR 1784 004317 2322 ISZ XXX 1785 004320 5315 JMP .-3 1786 004321 5703 JMP I CSUMRT 1787 004322 0000 XXX, 0 1788 1789 004323 0000 CHKCHK, 0000 1790 004324 4303 JMS CSUMRT 1791 004325 0000 0 1792 004326 7377 BUFF2-1 1793 004327 7575 -203 1794 004330 1765 TAD CHKSUM 1795 004331 7040 CMA 1796 004332 0363 AND (77 1797 004333 7440 SZA 1798 004334 4560 JMS I [CHKERR 1799 004335 5723 JMP I CHKCHK 1800 1801 004363 0077 PAGE 004364 4714 004365 4744 004366 7000 004367 3027 004370 4262 004371 4236 004372 3037 004373 0200 004374 2264 004375 4214 004376 4000 004377 4050 1802 /SEARCH ROUTINE 1803 /SUBROUTINE IS ENTERED WITH THE NUMBER OF THE DESIRED BLOCK IN THE AC 1804 /PROGRAM WILL EXIT WITH TAPE MOVING IN THE FORWARD DIRECTION 1805 /UNIT BIT IS IN SUNIT, BIT 0, BITS 1 TO 11 ARE 0 1806 004400 0000 SEARCH, 0 1807 004401 3270 DCA SLOOK 1808 004402 1054 TAD M10 1809 004403 3055 DCA BLKTRY 1810 004404 1377 TAD (3000 1811 004405 1271 TAD SUNIT 1812 004406 6774 SRCH0, SDLC 1813 004407 6776 IOT146, SDRC 1814 004410 0376 AND (100 1815 004411 7640 SZA CLA 1816 004412 5563 JMP I [SELERR 1817 004413 4775 JMS RDQUAD 1818 004414 4775 JMS RDQUAD 1819 004415 6771 SRCH1, SDSS 1820 004416 7410 SKP 1821 004417 6777 IOT147, SDRD 1822 004420 6771 IOT148, SDSS 1823 004421 5220 JMP .-1 1824 004422 6776 IOT149, SDRC 1825 004423 0374 AND (77 1826 004424 1373 TAD (-26 1827 004425 7450 SNA 1828 004426 5240 JMP SRCH2 1829 004427 1372 TAD (4 1830 004430 7640 SZA CLA 1831 004431 5215 JMP SRCH1 1832 004432 6776 IOT14A, SDRC 1833 004433 7006 RTL 1834 004434 7032 CML RTR 1835 004435 2055 ISZ BLKTRY 1836 004436 5206 JMP SRCH0 1837 004437 5261 JMP BADBLK 1838 004440 6776 SRCH2, SDRC 1839 004441 7006 RTL 1840 004442 6777 IOT150, SDRD 1841 004443 7041 CIA 1842 004444 1270 TAD SLOOK 1843 004445 7450 SNA 1844 004446 5265 JMP LOC8ED 1845 004447 7041 CIA 1846 004450 7420 SNL 1847 004451 1371 TAD (2 1848 004452 7630 SZL CLA 1849 004453 5215 JMP SRCH1 1850 004454 6776 IOT15B, SDRC 1851 004455 7006 RTL 1852 004456 7032 CML RTR 1853 004457 2055 ISZ BLKTRY 1854 004460 5206 JMP SRCH0 1855 004461 7200 BADBLK, CLA 1856 004462 1270 TAD SLOOK 1857 004463 7402 HLT 1858 004464 5263 JMP .-1 1859 004465 7620 LOC8ED, SNL CLA 1860 004466 5215 JMP SRCH1 1861 004467 5600 JMP I SEARCH 1862 004470 0000 SLOOK, 0 1863 004471 0000 SUNIT, 0 1864 1865 /WRITE SUBROUTINE 1866 004472 0000 WRITE, 0 1867 004473 3270 DCA WCNT 1868 004474 1672 TAD I WRITE 1869 004475 3344 DCA WADDR 1870 004476 2272 ISZ WRITE 1871 004477 1672 TAD I WRITE 1872 004500 3345 DCA WCOUNT 1873 004501 2272 ISZ WRITE 1874 004502 4770 JMS CSUMRT 1875 004503 0025 25 1876 004504 7177 BUFF1-1 1877 004505 7600 -200 1878 004506 4767 JMS SBCXOR 1879 004507 4766 JMS WRTLCK 1880 004510 1270 TAD WCNT 1881 004511 4200 JMS SEARCH 1882 004512 4765 WRITE1, JMS REVGRD 1883 004513 4775 JMS RDQUAD 1884 004514 6776 IOT152, SDRC 1885 004515 1364 TAD (400 1886 004516 6774 IOT153, SDLC 1887 004517 1363 TAD (25 1888 004520 4762 JMS WRQUAD 1889 004521 1744 WRITE2, TAD I WADDR 1890 004522 2344 ISZ WADDR 1891 004523 7000 NOP 1892 004524 4762 JMS WRQUAD 1893 004525 2345 ISZ WCOUNT 1894 004526 5321 JMP WRITE2 1895 004527 4762 JMS WRQUAD 1896 004530 1761 TAD CHKSUM 1897 004531 7040 CMA 1898 004532 0374 AND (77 1899 004533 7106 CLL RTL 1900 004534 7006 RTL 1901 004535 7006 RTL 1902 004536 4762 JMS WRQUAD 1903 004537 4760 JMS CLRWT 1904 004540 6776 IOT155, SDRC 1905 004541 0357 AND (4000 1906 004542 6774 IOT156, SDLC 1907 004543 5672 JMP I WRITE 1908 WCNT=SLOOK 1909 004544 0000 WADDR, 0 1910 004545 0000 WCOUNT, 0 1911 1912 004557 4000 PAGE 004560 4271 004561 4744 004562 4701 004563 0025 004564 0400 004565 4661 004566 3731 004567 4714 004570 4303 004571 0002 004572 0004 004573 7752 004574 0077 004575 4707 004576 0100 004577 3000 1913 /READ SUBROUTINE 1914 004600 0000 READ, 0 1915 004601 3256 DCA RCNT 1916 004602 1600 TAD I READ 1917 004603 3257 DCA RADDR 1918 004604 2200 ISZ READ 1919 004605 1600 TAD I READ 1920 004606 3260 DCA RCOUNT 1921 004607 2200 ISZ READ 1922 004610 1256 TAD RCNT 1923 004611 4777 JMS SEARCH 1924 004612 6771 READ1, SDSS 1925 004613 5212 JMP .-1 1926 004614 6776 IOT16A, SDRC 1927 004615 0376 AND (77 1928 004616 1375 TAD (-32 1929 004617 7450 SNA 1930 004620 5225 JMP .+5 1931 004621 1374 TAD (10 1932 004622 7640 SZA CLA 1933 004623 5212 JMP READ1 1934 004624 5274 JMP IOT162 1935 004625 4307 JMS RDQUAD 1936 004626 4307 JMS RDQUAD 1937 004627 4307 JMS RDQUAD 1938 004630 0376 AND (77 1939 004631 7410 SKP 1940 004632 4307 READ2, JMS RDQUAD 1941 004633 3657 DCA I RADDR 1942 004634 2257 ISZ RADDR 1943 004635 7000 NOP 1944 004636 2260 ISZ RCOUNT 1945 004637 5232 JMP READ2 1946 004640 4307 JMS RDQUAD 1947 004641 3657 DCA I RADDR 1948 004642 2257 ISZ RADDR 1949 004643 4307 JMS RDQUAD 1950 004644 0373 AND (7700 1951 004645 3657 DCA I RADDR 1952 004646 6772 IOT157, SDST 1953 004647 7410 SKP 1954 004650 4561 JMS I [TYMERR 1955 004651 6776 IOT158, SDRC 1956 004652 0372 AND (4000 1957 004653 6774 IOT159, SDLC 1958 004654 4771 JMS CHKCHK 1959 004655 5600 JMP I READ 1960 004656 0000 RCNT, 0 1961 004657 0000 RADDR, 0 1962 004660 0000 RCOUNT, 0 1963 1964 /WAIT FOR REVERSE GUARD SUBROUTINE 1965 004661 0000 REVGRD, 0 1966 004662 6771 IOT160, SDSS 1967 004663 5262 JMP .-1 1968 004664 6776 IOT161, SDRC 1969 004665 0376 AND (77 1970 004666 1375 TAD (-32 1971 004667 7450 SNA 1972 004670 5661 JMP I REVGRD 1973 004671 1374 TAD (10 1974 004672 7640 SZA CLA 1975 004673 5262 JMP REVGRD+1 1976 004674 6776 IOT162, SDRC 1977 004675 0372 AND (4000 1978 004676 6774 IOT163, SDLC 1979 004677 7402 HLT 1980 004700 5277 JMP .-1 1981 1982 /WRITE A "QUAD WORD" (12 BIT WORD) SUBROUTINE 1983 004701 0000 WRQUAD, 0 1984 004702 6773 IOT164, SDSQ 1985 004703 5302 JMP .-1 1986 004704 6775 IOT165, SDLD 1987 004705 7600 M0200A, CLA+400 1988 004706 5701 JMP I WRQUAD 1989 1990 /READ A "QUAD WORD" (12 BIT WORD) SUBROUTINE 1991 004707 0000 RDQUAD, 0000 1992 004710 6773 IOT166, SDSQ 1993 004711 5310 JMP .-1 1994 004712 6777 IOT167, SDRD 1995 004713 5707 JMP I RDQUAD 1996 1997 /SIXBIT COMPLEMENT XOR SUBROUTINE 1998 004714 0000 SBCXOR, 0 1999 004715 7040 CMA 2000 004716 3345 DCA SBWORD 2001 004717 1345 TAD SBWORD 2002 004720 0344 AND CHKSUM 2003 004721 7041 CIA 2004 004722 7104 CLL RAL 2005 004723 1345 TAD SBWORD 2006 004724 1344 TAD CHKSUM 2007 004725 3344 DCA CHKSUM 2008 004726 1345 TAD SBWORD 2009 004727 7112 CLL RTR; RTR; RTR 004730 7012 004731 7012 2010 004732 3345 DCA SBWORD 2011 004733 1345 TAD SBWORD 2012 004734 0344 AND CHKSUM 2013 004735 7041 CIA 2014 004736 7104 CLL RAL 2015 004737 1345 TAD SBWORD 2016 004740 1344 TAD CHKSUM 2017 004741 0376 AND (77 2018 004742 3344 DCA CHKSUM 2019 004743 5714 JMP I SBCXOR 2020 004744 0000 CHKSUM, 0 2021 SBWORD=. 2022 004771 4323 PAGE 004772 4000 004773 7700 004774 0010 004775 7746 004776 0077 004777 4400 2023 2024 /MESSAGES 2025 005000 1417 MESS1, TEXT "LOAD AND READ DATA REGISTER ERROR" 005001 0104 005002 4001 005003 1604 005004 4022 005005 0501 005006 0440 005007 0401 005010 2401 005011 4022 005012 0507 005013 1123 005014 2405 005015 2240 005016 0522 005017 2217 005020 2200 2026 005021 1417 MESS2, TEXT "LOAD AND READ COMMAND REGISTER ERROR" 005022 0104 005023 4001 005024 1604 005025 4022 005026 0501 005027 0440 005030 0317 005031 1515 005032 0116 005033 0440 005034 2205 005035 0711 005036 2324 005037 0522 005040 4005 005041 2222 005042 1722 005043 0000 2027 005044 1116 MESS3, TEXT "INITIALIZE TEST" 005045 1124 005046 1101 005047 1411 005050 3205 005051 4024 005052 0523 005053 2400 2028 005054 0301 MESS4, TEXT "CAF DID NOT CLEAR COMMAND REGISTER" 005055 0640 005056 0411 005057 0440 005060 1617 005061 2440 005062 0314 005063 0501 005064 2240 005065 0317 005066 1515 005067 0116 005070 0440 005071 2205 005072 0711 005073 2324 005074 0522 005075 0000 2029 005076 0310 MESS5, TEXT "CHECK SDLC, SDLD, SDRC, SDRD AND AC CLEAR" 005077 0503 005100 1340 005101 2304 005102 1403 005103 5440 005104 2304 005105 1404 005106 5440 005107 2304 005110 2203 005111 5440 005112 2304 005113 2204 005114 4001 005115 1604 005116 4001 005117 0340 005120 0314 005121 0501 005122 2200 2030 005123 2304 MESS6, TEXT "SDLC DID NOT CLEAR AC" 005124 1403 005125 4004 005126 1104 005127 4016 005130 1724 005131 4003 005132 1405 005133 0122 005134 4001 005135 0300 2031 005136 2304 MESS7, TEXT "SDRC DID NOT CLEAR AC" 005137 2203 005140 4004 005141 1104 005142 4016 005143 1724 005144 4003 005145 1405 005146 0122 005147 4001 005150 0300 2032 005151 2304 MESS8, TEXT "SDLD CLEARED AC" 005152 1404 005153 4003 005154 1405 005155 0122 005156 0504 005157 4001 005160 0300 2033 005161 2304 MESS9, TEXT "SDRD DID NOT CLEAR AC" 005162 2204 005163 4004 005164 1104 005165 4016 005166 1724 005167 4003 005170 1405 005171 0122 005172 4001 005173 0300 2034 005174 2311 MESS10, TEXT "SINGLE LINE FLAG SKIP INSTRUCTION AND LOGIC" 005175 1607 005176 1405 005177 4014 005200 1116 005201 0540 005202 0614 005203 0107 005204 4023 005205 1311 005206 2040 005207 1116 005210 2324 005211 2225 005212 0324 005213 1117 005214 1640 005215 0116 005216 0440 005217 1417 005220 0711 005221 0300 2035 005222 2311 MESS11, TEXT "SINGLE LINE FLAG ALWAYS SET OR SDSS ALWAYS SKIPS" 005223 1607 005224 1405 005225 4014 005226 1116 005227 0540 005230 0614 005231 0107 005232 4001 005233 1427 005234 0131 005235 2340 005236 2305 005237 2440 005240 1722 005241 4023 005242 0423 005243 2340 005244 0114 005245 2701 005246 3123 005247 4023 005250 1311 005251 2023 005252 0000 2036 005253 2311 MESS12, TEXT "SINGLE LINE FLAG DOES NOT SET OR SDSS DOES NOT SKIP" 005254 1607 005255 1405 005256 4014 005257 1116 005260 0540 005261 0614 005262 0107 005263 4004 005264 1705 005265 2340 005266 1617 005267 2440 005270 2305 005271 2440 005272 1722 005273 4023 005274 0423 005275 2340 005276 0417 005277 0523 005300 4016 005301 1724 005302 4023 005303 1311 005304 2000 2037 005305 2311 MESS13, TEXT "SINGLE LINE FLAG CLEARED BY SDSS" 005306 1607 005307 1405 005310 4014 005311 1116 005312 0540 005313 0614 005314 0107 005315 4003 005316 1405 005317 0122 005320 0504 005321 4002 005322 3140 005323 2304 005324 2323 005325 0000 2038 005326 2311 MESS14, TEXT "SINGLE LINE FLAG NOT CLEARED BY CAF" 005327 1607 005330 1405 005331 4014 005332 1116 005333 0540 005334 0614 005335 0107 005336 4016 005337 1724 005340 4003 005341 1405 005342 0122 005343 0504 005344 4002 005345 3140 005346 0301 005347 0600 2039 005350 2311 MESS15, TEXT "SINGLE LINE FLAG NOT CLEARED BY SDLD" 005351 1607 005352 1405 005353 4014 005354 1116 005355 0540 005356 0614 005357 0107 005360 4016 005361 1724 005362 4003 005363 1405 005364 0122 005365 0504 005366 4002 005367 3140 005370 2304 005371 1404 005372 0000 2040 005373 2311 MESS16, TEXT "SINGLE LINE FLAG NOT CLEARED BY SDRC" 005374 1607 005375 1405 005376 4014 005377 1116 005400 0540 005401 0614 005402 0107 005403 4016 005404 1724 005405 4003 005406 1405 005407 0122 005410 0504 005411 4002 005412 3140 005413 2304 005414 2203 005415 0000 2041 005416 2311 MESS17, TEXT "SINGLE LINE FLAG NOT CLEARED BY SDRD" 005417 1607 005420 1405 005421 4014 005422 1116 005423 0540 005424 0614 005425 0107 005426 4016 005427 1724 005430 4003 005431 1405 005432 0122 005433 0504 005434 4002 005435 3140 005436 2304 005437 2204 005440 0000 2042 005441 2311 MESS18, TEXT "SINGLE LINE FLAG CLEARED BY SDST, SDSQ, OR SDLC" 005442 1607 005443 1405 005444 4014 005445 1116 005446 0540 005447 0614 005450 0107 005451 4003 005452 1405 005453 0122 005454 0504 005455 4002 005456 3140 005457 2304 005460 2324 005461 5440 005462 2304 005463 2321 005464 5440 005465 1722 005466 4023 005467 0414 005470 0300 2043 005471 2125 MESS19, TEXT "QUAD LINE FLAG SKIP INSTRUCTION AND LOGIC" 005472 0104 005473 4014 005474 1116 005475 0540 005476 0614 005477 0107 005500 4023 005501 1311 005502 2040 005503 1116 005504 2324 005505 2225 005506 0324 005507 1117 005510 1640 005511 0116 005512 0440 005513 1417 005514 0711 005515 0300 2044 005516 2125 MESS20, TEXT "QUAD LINE FLAG ALWAYS SET OR SDSQ ALWAYS SKIPS" 005517 0104 005520 4014 005521 1116 005522 0540 005523 0614 005524 0107 005525 4001 005526 1427 005527 0131 005530 2340 005531 2305 005532 2440 005533 1722 005534 4023 005535 0423 005536 2140 005537 0114 005540 2701 005541 3123 005542 4023 005543 1311 005544 2023 005545 0000 2045 005546 2125 MESS21, TEXT "QUAD LINE FLAG SET TOO SOON" 005547 0104 005550 4014 005551 1116 005552 0540 005553 0614 005554 0107 005555 4023 005556 0524 005557 4024 005560 1717 005561 4023 005562 1717 005563 1600 2046 005564 2125 MESS22, TEXT "QUAD LINE FLAG DOES NOT SET OR SDSQ DOES NOT SKIP" 005565 0104 005566 4014 005567 1116 005570 0540 005571 0614 005572 0107 005573 4004 005574 1705 005575 2340 005576 1617 005577 2440 005600 2305 005601 2440 005602 1722 005603 4023 005604 0423 005605 2140 005606 0417 005607 0523 005610 4016 005611 1724 005612 4023 005613 1311 005614 2000 2047 005615 2125 MESS23, TEXT "QUAD LINE FLAG CLEARED BY SDSQ" 005616 0104 005617 4014 005620 1116 005621 0540 005622 0614 005623 0107 005624 4003 005625 1405 005626 0122 005627 0504 005630 4002 005631 3140 005632 2304 005633 2321 005634 0000 2048 005635 2125 MESS24, TEXT "QUAD LINE FLAG NOT CLEARED BY CAF" 005636 0104 005637 4014 005640 1116 005641 0540 005642 0614 005643 0107 005644 4016 005645 1724 005646 4003 005647 1405 005650 0122 005651 0504 005652 4002 005653 3140 005654 0301 005655 0600 2049 005656 2125 MESS25, TEXT "QUAD LINE FLAG NOT CLEARED BY SDLD" 005657 0104 005660 4014 005661 1116 005662 0540 005663 0614 005664 0107 005665 4016 005666 1724 005667 4003 005670 1405 005671 0122 005672 0504 005673 4002 005674 3140 005675 2304 005676 1404 005677 0000 2050 005700 2125 MESS26, TEXT "QUAD LINE FLAG NOT CLEARED BY SDRC" 005701 0104 005702 4014 005703 1116 005704 0540 005705 0614 005706 0107 005707 4016 005710 1724 005711 4003 005712 1405 005713 0122 005714 0504 005715 4002 005716 3140 005717 2304 005720 2203 005721 0000 2051 005722 2125 MESS27, TEXT "QUAD LINE FLAG NOT CLEARED BY SDRD" 005723 0104 005724 4014 005725 1116 005726 0540 005727 0614 005730 0107 005731 4016 005732 1724 005733 4003 005734 1405 005735 0122 005736 0504 005737 4002 005740 3140 005741 2304 005742 2204 005743 0000 2052 005744 2125 MESS28, TEXT "QUAD LINE FLAG CLEARED BY SDST, SDSS, OR SDLC" 005745 0104 005746 4014 005747 1116 005750 0540 005751 0614 005752 0107 005753 4003 005754 1405 005755 0122 005756 0504 005757 4002 005760 3140 005761 2304 005762 2324 005763 5440 005764 2304 005765 2323 005766 5440 005767 1722 005770 4023 005771 0414 005772 0300 2053 005773 2125 MESS29, TEXT "QUAD LINE FLAG COUNTER FLIP/FLOP NOT PROPERLY CLEARED" 005774 0104 005775 4014 005776 1116 005777 0540 006000 0614 006001 0107 006002 4003 006003 1725 006004 1624 006005 0522 006006 4006 006007 1411 006010 2057 006011 0614 006012 1720 006013 4016 006014 1724 006015 4020 006016 2217 006017 2005 006020 2214 006021 3140 006022 0314 006023 0501 006024 2205 006025 0400 2054 006026 2411 MESS30, TEXT "TIMING ERROR SKIP INSTRUCTION AND LOGIC" 006027 1511 006030 1607 006031 4005 006032 2222 006033 1722 006034 4023 006035 1311 006036 2040 006037 1116 006040 2324 006041 2225 006042 0324 006043 1117 006044 1640 006045 0116 006046 0440 006047 1417 006050 0711 006051 0300 2055 006052 2411 MESS31, TEXT "TIMING ERROR ALWAYS SET OR SDST ALWAYS SKIPS" 006053 1511 006054 1607 006055 4005 006056 2222 006057 1722 006060 4001 006061 1427 006062 0131 006063 2340 006064 2305 006065 2440 006066 1722 006067 4023 006070 0423 006071 2440 006072 0114 006073 2701 006074 3123 006075 4023 006076 1311 006077 2023 006100 0000 2056 006101 2411 MESS32, TEXT "TIMING ERROR DOES NOT SET IN READ MODE OR SDST DOES NOT SKIP" 006102 1511 006103 1607 006104 4005 006105 2222 006106 1722 006107 4004 006110 1705 006111 2340 006112 1617 006113 2440 006114 2305 006115 2440 006116 1116 006117 4022 006120 0501 006121 0440 006122 1517 006123 0405 006124 4017 006125 2240 006126 2304 006127 2324 006130 4004 006131 1705 006132 2340 006133 1617 006134 2440 006135 2313 006136 1120 006137 0000 2057 006140 2411 MESS33, TEXT "TIMING ERROR CLEARED BY SDST" 006141 1511 006142 1607 006143 4005 006144 2222 006145 1722 006146 4003 006147 1405 006150 0122 006151 0504 006152 4002 006153 3140 006154 2304 006155 2324 006156 0000 2058 006157 2411 MESS34, TEXT "TIMING ERROR NOT CLEARED BY CAF" 006160 1511 006161 1607 006162 4005 006163 2222 006164 1722 006165 4016 006166 1724 006167 4003 006170 1405 006171 0122 006172 0504 006173 4002 006174 3140 006175 0301 006176 0600 2059 006177 2411 MESS35, TEXT "TIMING ERROR STATUS BIT NOT SET IN COMMAND REGISTER" 006200 1511 006201 1607 006202 4005 006203 2222 006204 1722 006205 4023 006206 2401 006207 2425 006210 2340 006211 0211 006212 2440 006213 1617 006214 2440 006215 2305 006216 2440 006217 1116 006220 4003 006221 1715 006222 1501 006223 1604 006224 4022 006225 0507 006226 1123 006227 2405 006230 2200 2060 006231 2411 MESS36, TEXT "TIMING ERROR NOT CLEARED BY SDLC" 006232 1511 006233 1607 006234 4005 006235 2222 006236 1722 006237 4016 006240 1724 006241 4003 006242 1405 006243 0122 006244 0504 006245 4002 006246 3140 006247 2304 006250 1403 006251 0000 2061 006252 2411 MESS37, TEXT "TIMING ERROR DOES NOT SET IN WRITE MODE" 006253 1511 006254 1607 006255 4005 006256 2222 006257 1722 006260 4004 006261 1705 006262 2340 006263 1617 006264 2440 006265 2305 006266 2440 006267 1116 006270 4027 006271 2211 006272 2405 006273 4015 006274 1704 006275 0500 2062 006276 2411 MESS38, TEXT "TIMING ERROR DOES NOT CLEAR WRITE FLIP/FLOP" 006277 1511 006300 1607 006301 4005 006302 2222 006303 1722 006304 4004 006305 1705 006306 2340 006307 1617 006310 2440 006311 0314 006312 0501 006313 2240 006314 2722 006315 1124 006316 0540 006317 0614 006320 1120 006321 5706 006322 1417 006323 2000 2063 006324 2411 MESS39, TEXT "TIMING ERROR NOT SET BY SDRC SDRD, OR SDLC" 006325 1511 006326 1607 006327 4005 006330 2222 006331 1722 006332 4016 006333 1724 006334 4023 006335 0524 006336 4002 006337 3140 006340 2304 006341 2203 006342 4023 006343 0422 006344 0454 006345 4017 006346 2240 006347 2304 006350 1403 006351 0000 2064 006352 2520 MESS43, TEXT "UP TO SPEED CIRCUITRY CHECK USING 'CLEAR MARK TRACK REGISTER' FEATURE" 006353 4024 006354 1740 006355 2320 006356 0505 006357 0440 006360 0311 006361 2203 006362 2511 006363 2422 006364 3140 006365 0310 006366 0503 006367 1340 006370 2523 006371 1116 006372 0740 006373 4703 006374 1405 006375 0122 006376 4015 006377 0122 006400 1340 006401 2422 006402 0103 006403 1340 006404 2205 006405 0711 006406 2324 006407 0522 006410 4740 006411 0605 006412 0124 006413 2522 006414 0500 2065 006415 1501 MESS44, TEXT "MARK TRACK REGISTER NOT CLEARED BY 'GO'" 006416 2213 006417 4024 006420 2201 006421 0313 006422 4022 006423 0507 006424 1123 006425 2405 006426 2240 006427 1617 006430 2440 006431 0314 006432 0501 006433 2205 006434 0440 006435 0231 006436 4047 006437 0717 006440 4700 2066 006441 1501 MESS45, TEXT "MARK TRACK REGISTER NOT CLEARED BY 'STOP'" 006442 2213 006443 4024 006444 2201 006445 0313 006446 4022 006447 0507 006450 1123 006451 2405 006452 2240 006453 1617 006454 2440 006455 0314 006456 0501 006457 2205 006460 0440 006461 0231 006462 4047 006463 2324 006464 1720 006465 4700 2067 006466 1501 MESS46, TEXT "MARK TRACK REGISTER NOT CLEARED BY 'REV' TO 'FWD'" 006467 2213 006470 4024 006471 2201 006472 0313 006473 4022 006474 0507 006475 1123 006476 2405 006477 2240 006500 1617 006501 2440 006502 0314 006503 0501 006504 2205 006505 0440 006506 0231 006507 4047 006510 2205 006511 2647 006512 4024 006513 1740 006514 4706 006515 2704 006516 4700 2068 006517 1501 MESS47, TEXT "MARK TRACK REGISTER NOT CLEARED BY 'FWD' TO 'REV'" 006520 2213 006521 4024 006522 2201 006523 0313 006524 4022 006525 0507 006526 1123 006527 2405 006530 2240 006531 1617 006532 2440 006533 0314 006534 0501 006535 2205 006536 0440 006537 0231 006540 4047 006541 0627 006542 0447 006543 4024 006544 1740 006545 4722 006546 0526 006547 4700 2069 006550 1501 MESS48, TEXT "MARK TRACK REGISTER NOT CLEARED BY 'UNIT 0' TO 'UNIT 1'" 006551 2213 006552 4024 006553 2201 006554 0313 006555 4022 006556 0507 006557 1123 006560 2405 006561 2240 006562 1617 006563 2440 006564 0314 006565 0501 006566 2205 006567 0440 006570 0231 006571 4047 006572 2516 006573 1124 006574 4060 006575 4740 006576 2417 006577 4047 006600 2516 006601 1124 006602 4061 006603 4700 2070 006604 1501 MESS49, TEXT "MARK TRACK REGISTER NOT CLEARED BY 'UNIT 1' TO 'UNIT 0'" 006605 2213 006606 4024 006607 2201 006610 0313 006611 4022 006612 0507 006613 1123 006614 2405 006615 2240 006616 1617 006617 2440 006620 0314 006621 0501 006622 2205 006623 0440 006624 0231 006625 4047 006626 2516 006627 1124 006630 4061 006631 4740 006632 2417 006633 4047 006634 2516 006635 1124 006636 4060 006637 4700 2071 006640 4723 MESS50, TEXT "'SELECT ERROR' TESTS" 006641 0514 006642 0503 006643 2440 006644 0522 006645 2217 006646 2247 006647 4024 006650 0523 006651 2423 006652 0000 2072 006653 2411 MESS51, TEXT "TIMING ERROR SET" 006654 1511 006655 1607 006656 4005 006657 2222 006660 1722 006661 4023 006662 0524 006663 0000 2073 006664 1617 MESS52, TEXT "NO SELECT ERROR STATUS FROM UNIT 1" 006665 4023 006666 0514 006667 0503 006670 2440 006671 0522 006672 2217 006673 2240 006674 2324 006675 0124 006676 2523 006677 4006 006700 2217 006701 1540 006702 2516 006703 1124 006704 4061 006705 0000 2074 006706 4727 MESS53, TEXT "'WRITE' NOT CLEARED BY SELECT ERROR" 006707 2211 006710 2405 006711 4740 006712 1617 006713 2440 006714 0314 006715 0501 006716 2205 006717 0440 006720 0231 006721 4023 006722 0514 006723 0503 006724 2440 006725 0522 006726 2217 006727 2200 2075 006730 4727 MESS54, TEXT "'WRITE LOCK OUT' TESTS" 006731 2211 006732 2405 006733 4014 006734 1703 006735 1340 006736 1725 006737 2447 006740 4024 006741 0523 006742 2423 006743 0000 2076 006744 1617 MESS55, TEXT "NO WRITE LOCK OUT STATUS FROM UNIT 0" 006745 4027 006746 2211 006747 2405 006750 4014 006751 1703 006752 1340 006753 1725 006754 2440 006755 2324 006756 0124 006757 2523 006760 4006 006761 2217 006762 1540 006763 2516 006764 1124 006765 4060 006766 0000 2077 006767 4727 MESS56, TEXT "'WRITE' NOT CLEARED BY WRITE LOCK OUT" 006770 2211 006771 2405 006772 4740 006773 1617 006774 2440 006775 0314 006776 0501 006777 2205 007000 0440 007001 0231 007002 4027 007003 2211 007004 2405 007005 4014 007006 1703 007007 1340 007010 1725 007011 2400 2078 007012 0401 MESS57, TEXT "DATA WRITTEN FORWARD" 007013 2401 007014 4027 007015 2211 007016 2424 007017 0516 007020 4006 007021 1722 007022 2701 007023 2204 007024 0000 2079 007025 2722 MESS58, TEXT "WRITE DATA FORWARD" 007026 1124 007027 0540 007030 0401 007031 2401 007032 4006 007033 1722 007034 2701 007035 2204 007036 0000 2080 007037 2205 MESS59, TEXT "READ DATA FORWARD" 007040 0104 007041 4004 007042 0124 007043 0140 007044 0617 007045 2227 007046 0122 007047 0400 2081 007050 2205 MESS60, TEXT "READ DATA BACKWARD" 007051 0104 007052 4004 007053 0124 007054 0140 007055 0201 007056 0313 007057 2701 007060 2204 007061 0000 2082 007062 0401 MESS61, TEXT "DATA WRITTEN BACKWARD" 007063 2401 007064 4027 007065 2211 007066 2424 007067 0516 007070 4002 007071 0103 007072 1327 007073 0122 007074 0400 2083 007075 2722 MESS62, TEXT "WRITE DATA BACKWARD" 007076 1124 007077 0540 007100 0401 007101 2401 007102 4002 007103 0103 007104 1327 007105 0122 007106 0400 2084 007107 1617 MESS63, TEXT "NO UNIT 0 SELECTED" 007110 4025 007111 1611 007112 2440 007113 6040 007114 2305 007115 1405 007116 0324 007117 0504 007120 0000 2085 2086 PAGE 2087 /ROUTINE TO CHANGE ALL TD8E IOTS IN PROGRAM FOR MULTIPLE UNIT 2088 /ROUTINE IS STARTED AT LOCATION "MODIFY" WITH AC6,7 AND 8 INDICATING 2089 /DEVICE SELECTION BITS 6, 7, AND 8 OF THE CONTROL TO BE TESTED (4,5,6, OR 7) 2090 2091 BUFF1, 2092 007200 7604 MODIFY, LAS 2093 007201 0221 AND MODMS1 2094 007202 3223 DCA MODCON 2095 007203 1230 TAD MODTAB 2096 007204 3224 DCA MODPT1 2097 007205 1227 TAD MODSIZ 2098 007206 3226 DCA MODCNT 2099 007207 1624 MODLUP, TAD I MODPT1 2100 007210 3225 DCA MODPT2 2101 007211 1625 TAD I MODPT2 2102 007212 0222 AND MODMS2 2103 007213 1223 TAD MODCON 2104 007214 3625 DCA I MODPT2 2105 007215 2224 ISZ MODPT1 2106 007216 2226 ISZ MODCNT 2107 007217 5207 JMP MODLUP 2108 007220 7402 HLT 2109 007221 0030 MODMS1, 30 2110 007222 7747 MODMS2, 7747 2111 007223 0000 MODCON, 0 2112 007224 0000 MODPT1, 0 2113 007225 0000 MODPT2, 0 2114 007226 0000 MODCNT, 0 2115 007227 7461 MODSIZ, -MODEND+MODTAB 2116 007230 7231 MODTAB, .+1 2117 007231 0207 IOT1 2118 007232 0212 IOT2 2119 007233 0214 IOT3 2120 007234 0244 IOT4 2121 007235 0246 IOT5 2122 007236 0313 IOT6 2123 007237 0320 IOT7 2124 007240 0406 IOT8 2125 007241 0423 IOT9 2126 007242 0425 IOT10 2127 007243 0442 IOT11 2128 007244 0457 IOT12 2129 007245 0461 IOT13 2130 007246 0606 IOT14 2131 007247 0612 IOT15 2132 007250 0621 IOT16 2133 007251 0636 SING1 2134 007252 0645 SING2 2135 007253 0653 IOT17 2136 007254 0662 IOT18 2137 007255 0665 SING3 2138 007256 0670 IOT19 2139 007257 0674 IOT20 2140 007260 0704 SING4 2141 007261 0707 IOT21 2142 007262 0713 IOT22 2143 007263 0723 SING5 2144 007264 0726 IOT23 2145 007265 0732 IOT24 2146 007266 1002 SING6 2147 007267 1004 IOT25 2148 007270 1006 IOT26 2149 007271 1011 IOT27 2150 007272 1012 IOT28 2151 007273 1032 IOT29 2152 007274 1036 IOT30 2153 007275 1041 QUAD0 2154 007276 1042 IOT31 2155 007277 1044 IOT32 2156 007300 1050 IOT33 2157 007301 1053 IOT34 2158 007302 1057 IOT35 2159 007303 1061 IOT36 2160 007304 1067 IOT37 2161 007305 1072 IOT38 2162 007306 1101 QUAD1 2163 007307 1110 QUAD2 2164 007310 1116 IOT39 2165 007311 1125 IOT40 2166 007312 1130 QUAD3 2167 007313 1133 IOT41 2168 007314 1137 IOT42 2169 007315 1202 QUAD4 2170 007316 1205 IOT43 2171 007317 1211 IOT44 2172 007320 1221 QUAD5 2173 007321 1224 IOT45 2174 007322 1230 IOT46 2175 007323 1240 QUAD6 2176 007324 1242 IOT47 2177 007325 1244 IOT48 2178 007326 1250 IOT49 2179 007327 1254 IOT50 2180 007330 1270 IOT51 2181 007331 1271 IOT52 2182 007332 1273 IOT53 2183 007333 1276 IOT54 2184 007334 1305 IOT55 2185 007335 1324 IOT56 2186 007336 1325 IOT57 2187 007337 1327 IOT58 2188 007340 1334 TIME0 2189 007341 1342 IOT59 2190 007342 1353 TIME1 2191 007343 1402 TIME2 2192 007344 1410 IOT60 2193 007345 1417 IOT61 2194 007346 1422 TIME3 2195 007347 1424 IOT62 2196 007350 1442 IOT63 2197 007351 1445 TIME4 2198 007352 1447 IOT64 2199 007353 1453 IOT65 2200 007354 1465 IOT66 2201 007355 1466 IOT67 2202 007356 1470 IOT68 2203 007357 1475 IOT69 2204 007360 1500 IOT70 2205 007361 1504 IOT71 2206 007362 1510 IOT72 2207 007363 1523 IOT73 2208 007364 1524 IOT74 2209 007365 1531 IOT75 2210 007366 1532 IOT76 2211 007367 1533 IOT77 2212 007370 1543 IOT78 2213 007371 1605 IOT82 2214 007372 1607 IOT83 2215 007373 1613 IOT84 2216 007374 1626 IOT85 2217 007375 1627 IOT86 2218 007376 1631 IOT87 2219 007377 1635 IOT88 2220 007400 1641 IOT89 2221 007401 1654 IOT90 2222 007402 1655 IOT91 2223 007403 1657 IOT92 2224 007404 1664 IOT93 2225 007405 1670 IOT94 2226 007406 1703 IOT95 2227 007407 1704 IOT96 2228 007410 1706 IOT97 2229 007411 1713 IOT98 2230 007412 1717 IOT99 2231 007413 2004 IOT100 2232 007414 2005 IOT101 2233 007415 2007 IOT102 2234 007416 2014 IOT103 2235 007417 2020 IOT104 2236 007420 2037 IOT105 2237 007421 2040 IOT106 2238 007422 2042 IOT107 2239 007423 2047 IOT108 2240 007424 2053 IOT109 2241 007425 2065 IOT110 2242 007426 2204 IOT111 2243 007427 2206 DISLUP 2244 007430 2211 IOT112 2245 007431 2213 IOT113 2246 007432 2227 IOT114 2247 007433 2241 IOT115 2248 007434 2253 IOT116 2249 007435 2402 IOT117 2250 007436 2410 IOT118 2251 007437 2413 IOT119 2252 007440 2510 IOT120 2253 007441 2512 IOT121 2254 007442 2520 IOT122 2255 007443 2522 IOT123 2256 007444 2605 IOT124 2257 007445 2606 IOT125 2258 007446 2614 IOT126 2259 007447 2616 IOT127 2260 007450 2635 IOT128 2261 007451 2641 IOT129 2262 007452 2654 SELCT2 2263 007453 2660 IOT130 2264 007454 2701 IOT131 2265 007455 2720 IOT132 2266 007456 2724 IOT133 2267 007457 3606 RSRCH0 2268 007460 3607 IOT134 2269 007461 3615 RSRCH1 2270 007462 3617 IOT135 2271 007463 3620 IOT136 2272 007464 3632 IOT13A 2273 007465 3642 IOT137 2274 007466 3622 IOT138 2275 007467 3640 RSRCH2 2276 007470 3654 RSTURN 2277 007471 4056 IOT139 2278 007472 4112 IOT140 2279 007473 4114 IOT141 2280 007474 4201 IOT142 2281 007475 4203 IOT143 2282 007476 4246 IOT144 2283 007477 4250 IOT145 2284 007500 4406 SRCH0 2285 007501 4407 IOT146 2286 007502 4415 SRCH1 2287 007503 4417 IOT147 2288 007504 4420 IOT148 2289 007505 4422 IOT149 2290 007506 4432 IOT14A 2291 007507 4442 IOT150 2292 007510 4454 IOT15B 2293 007511 4440 SRCH2 2294 007512 3733 IOT151 2295 007513 3734 IOT15A 2296 007514 4514 IOT152 2297 007515 4516 IOT153 2298 007516 4274 IOT154 2299 007517 4540 IOT155 2300 007520 4542 IOT156 2301 007521 4646 IOT157 2302 007522 4651 IOT158 2303 007523 4653 IOT159 2304 007524 4662 IOT160 2305 007525 4614 IOT16A 2306 007526 4612 READ1 2307 007527 4664 IOT161 2308 007530 4674 IOT162 2309 007531 4676 IOT163 2310 007532 4702 IOT164 2311 007533 4704 IOT165 2312 007534 4710 IOT166 2313 007535 4712 IOT167 2314 007536 4272 IOT168 2315 007537 4277 IOT169 2316 007540 4301 IOT170 2317 007541 2110 IOT171 2318 007542 0064 IOT172 2319 007543 0071 IOT173 2320 007544 0073 IOT174 2321 007545 0102 IOT175 2322 007546 0104 IOT176 2323 007547 0106 MODEND, IOT177 2324 2325 000160 4110 $ 000161 4245 000162 4200 000163 4225 000164 2701 000165 1000 000166 5076 000167 6777 000170 7752 000171 7756 000172 0077 000173 4707 000174 2234 000175 3000 000176 0212 000177 0215 AUTO 0017 BADBLK 4461 BLK 0027 BLKCH 2100 BLKCHK 2400 unreferenced BLKCN 0060 BLKEND 0070 BLKERR 2146 BLKMRK 2426 unreferenced BLKREV 0061 BLKSER 0101 BLKTRY 0055 BMESS 4105 BUFF1 7200 BUFF2 7400 CAF 6007 CCNTR 3224 CHKCHK 4323 CHKCLA 0400 CHKDAT 4131 CHKERR 4110 CHKHLT 4126 unreferenced CHKMES 4132 CHKSUM 4744 CLOOP 0266 CLRWT 4271 CNTR1 0022 CNTR2 0023 COMLUP 3212 COMP 3516 COMPAR 3200 COMREG 0236 CRLF 0040 CSDLC 0405 CSDLD 0441 CSDRC 0422 CSDRD 0456 CSUMRT 4303 DATA 2452 unreferenced DATERR 4000 DATHD 4040 DATHLT 4036 DATLUP 0232 DATMES 4042 DATNUM 4020 DATPNT 4041 DATREG 0201 DBLOCK 2200 unreferenced DISBL 0056 DISBLK 2233 DISDA 0057 DISDAT 2236 DISEND 2224 DISLUP 2206 DISTRK 2235 unreferenced E1HLT 0530 unreferenced ENDZ 2404 ERR1HT 0525 ERR2HT 0556 ERROR1 0476 ERROR2 0537 FBLKCT 2113 FILDCT 3440 FILDDT 3442 FILDEC 3421 FILDPT 3441 FILICT 3416 FILIDT 3420 FILINC 3400 FILIPT 3417 FILL0 3227 FILL0C 3241 FILL0P 3242 FILL1 3243 FILL1C 3256 FILL1P 3257 FILL25 3260 FILL2C 3273 FILL2K 3274 FILL2P 3275 FILLC1 3323 FILLC2 3324 FILLP1 3321 FILLP2 3322 FILPAT 3276 FILPL1 3303 FILPL2 3307 FILPNT 0030 FILTC 3331 FILTP 3325 FORMT1 0532 FWDEXP 2422 GOOD 0024 unreferenced GPNTR 3225 GUARD 2472 unreferenced HEAD1 0025 HEAD2 0026 HEADTP 4050 IN 0021 INITST 0305 IOT1 0207 IOT10 0425 IOT100 2004 IOT101 2005 IOT102 2007 IOT103 2014 IOT104 2020 IOT105 2037 IOT106 2040 IOT107 2042 IOT108 2047 IOT109 2053 IOT11 0442 IOT110 2065 IOT111 2204 IOT112 2211 IOT113 2213 IOT114 2227 IOT115 2241 IOT116 2253 IOT117 2402 IOT118 2410 IOT119 2413 IOT12 0457 IOT120 2510 IOT121 2512 IOT122 2520 IOT123 2522 IOT124 2605 IOT125 2606 IOT126 2614 IOT127 2616 IOT128 2635 IOT129 2641 IOT13 0461 IOT130 2660 IOT131 2701 IOT132 2720 IOT133 2724 IOT134 3607 IOT135 3617 IOT136 3620 IOT137 3642 IOT138 3622 IOT139 4056 IOT13A 3632 IOT14 0606 IOT140 4112 IOT141 4114 IOT142 4201 IOT143 4203 IOT144 4246 IOT145 4250 IOT146 4407 IOT147 4417 IOT148 4420 IOT149 4422 IOT14A 4432 IOT15 0612 IOT150 4442 IOT151 3733 IOT152 4514 IOT153 4516 IOT154 4274 IOT155 4540 IOT156 4542 IOT157 4646 IOT158 4651 IOT159 4653 IOT15A 3734 IOT15B 4454 IOT16 0621 IOT160 4662 IOT161 4664 IOT162 4674 IOT163 4676 IOT164 4702 IOT165 4704 IOT166 4710 IOT167 4712 IOT168 4272 IOT169 4277 IOT16A 4614 IOT17 0653 IOT170 4301 IOT171 2110 IOT172 0064 IOT173 0071 IOT174 0073 IOT175 0102 IOT176 0104 IOT177 0106 IOT18 0662 IOT19 0670 IOT2 0212 IOT20 0674 IOT21 0707 IOT22 0713 IOT23 0726 IOT24 0732 IOT25 1004 IOT26 1006 IOT27 1011 IOT28 1012 IOT29 1032 IOT3 0214 IOT30 1036 IOT31 1042 IOT32 1044 IOT33 1050 IOT34 1053 IOT35 1057 IOT36 1061 IOT37 1067 IOT38 1072 IOT39 1116 IOT4 0244 IOT40 1125 IOT41 1133 IOT42 1137 IOT43 1205 IOT44 1211 IOT45 1224 IOT46 1230 IOT47 1242 IOT48 1244 IOT49 1250 IOT5 0246 IOT50 1254 IOT51 1270 IOT52 1271 IOT53 1273 IOT54 1276 IOT55 1305 IOT56 1324 IOT57 1325 IOT58 1327 IOT59 1342 IOT6 0313 IOT60 1410 IOT61 1417 IOT62 1424 IOT63 1442 IOT64 1447 IOT65 1453 IOT66 1465 IOT67 1466 IOT68 1470 IOT69 1475 IOT7 0320 IOT70 1500 IOT71 1504 IOT72 1510 IOT73 1523 IOT74 1524 IOT75 1531 IOT76 1532 IOT77 1533 IOT78 1543 IOT8 0406 IOT82 1605 IOT83 1607 IOT84 1613 IOT85 1626 IOT86 1627 IOT87 1631 IOT88 1635 IOT89 1641 IOT9 0423 IOT90 1654 IOT91 1655 IOT92 1657 IOT93 1664 IOT94 1670 IOT95 1703 IOT96 1704 IOT97 1706 IOT98 1713 IOT99 1717 LOC8ED 4465 LOCK 2445 unreferenced LOOP1 0046 M0200A 4705 unreferenced M10 0054 MESAGE 2264 MESS1 5000 MESS10 5174 MESS11 5222 MESS12 5253 MESS13 5305 MESS14 5326 MESS15 5350 MESS16 5373 MESS17 5416 MESS18 5441 MESS19 5471 MESS2 5021 MESS20 5516 MESS21 5546 MESS22 5564 MESS23 5615 MESS24 5635 MESS25 5656 MESS26 5700 MESS27 5722 MESS28 5744 MESS29 5773 MESS3 5044 MESS30 6026 MESS31 6052 MESS32 6101 MESS33 6140 MESS34 6157 MESS35 6177 MESS36 6231 MESS37 6252 MESS38 6276 MESS39 6324 MESS4 5054 MESS43 6352 MESS44 6415 MESS45 6441 MESS46 6466 MESS47 6517 MESS48 6550 MESS49 6604 MESS5 5076 MESS50 6640 MESS51 6653 MESS52 6664 MESS53 6706 MESS54 6730 MESS55 6744 MESS56 6767 MESS57 7012 MESS58 7025 MESS59 7037 MESS6 5123 MESS60 7050 MESS61 7062 MESS62 7075 MESS63 7107 MESS7 5136 MESS8 5151 MESS9 5161 MODCNT 7226 MODCON 7223 MODEND 7547 MODIFY 7200 unreferenced MODLUP 7207 MODMS1 7221 MODMS2 7222 MODPT1 7224 MODPT2 7225 MODSIZ 7227 MODTAB 7230 MPNTR 2315 OCNT 2341 OK 2744 ONUMB 2340 OPLOOP 2324 OPRINT 2316 OUT 0020 PASCNT 3477 PASS 3513 PREFIN 2462 unreferenced Q0LUP 1074 QUAD 1024 QUAD0 1041 QUAD1 1101 QUAD2 1110 QUAD3 1130 QUAD4 1202 QUAD5 1221 QUAD6 1240 QUAD7 1265 RADDR 4657 RBLKCT 2132 RCNT 4656 RCOUNT 4660 RD1MRK 2507 RD6MRK 2515 RDQUAD 4707 READ 4600 READ1 4612 READ2 4632 READR 3714 REVBLK 2476 unreferenced REVEXP 2502 unreferenced REVGRD 4661 RLOCED 3665 ROCK 2237 RSERCH 3600 RSLOOK 3670 RSRCH0 3606 RSRCH1 3615 RSRCH2 3640 RSTURN 3654 RVGARD 2436 SBCXOR 4714 SBWORD 4745 SDLC 6774 SDLD 6775 SDRC 6776 SDRD 6777 SDSQ 6773 SDSS 6771 SDST 6772 SEARCH 4400 SELCT1 2634 SELCT2 2654 SELECT 2600 SELERR 4225 SELHLT 4234 unreferenced SELMES 4236 SING1 0636 SING2 0645 SING3 0665 SING4 0704 SING5 0723 SING6 1002 SING7 1021 SINGL0 0615 unreferenced SINGLE 0600 SLOOK 4470 SP1CT 3456 SP1PT 3457 SP2CT 3474 SP2PT 3475 SPEC1 3443 SPEC1D 3460 SPEC2 3461 SPEC2D 3476 SRCH0 4406 SRCH1 4415 SRCH2 4440 SUNIT 4471 TIME0 1334 TIME1 1353 TIME2 1402 TIME3 1422 TIME4 1445 TIME5 1463 TIME6 1521 TIMING 1315 TPNTR 3226 TYMERR 4245 TYMHLT 4260 unreferenced TYMMES 4262 TYPE 0031 UMESS 4102 UNIT 2234 UTSMK1 1624 UTSMK2 1652 UTSMK3 1701 UTSMK4 2002 UTSMK5 2035 UTSMK6 2062 UTSMRK 1600 WADDR 4544 WCNT 4470 WCOUNT 4545 WL0 2673 WL1 2717 WRDHLT 4212 unreferenced WREAD 3024 WREL1 3035 WREL2 3076 WRITE 4472 WRITE1 4512 WRITE2 4521 WRITER 3671 WROERR 4200 WROMES 4214 WRQUAD 4701 WRTLCK 3731 XFER 3000 XXX 4322