1 /TC01 RANDOM EXERCISER 2 3 RANBFR=6774 4 BUFFRS=RANBFR+201 5 IOT=6000 6 7 /GO TO PROCESS INTERRUPT 8 9 *1 10 000001 5402 5402 11 000002 3034 IRECD 12 13 *40 14 000040 0000 RECORD, 0 15 000041 0000 BLKFND, 0 16 000042 0041 IDCON, .-1 17 000043 7754 WCLOC, 7754 18 000044 7755 CALOC, 7755 19 000045 0000 CDRIVE, 0 20 000046 0000 UNFUNC, 0 21 000047 0000 MSBITS, 0 22 000050 0000 COMBIT, 0 23 000051 0000 POSITN, 0 24 000052 0000 DIRECT, 0 25 000053 0000 LSTBLK, 0 26 000054 0000 LSTDRV, 0 27 000055 3600 SRCHIT, SEARCH 28 000056 3400 REWIND, REPOSI 29 000057 3437 NEWDRV, CHNGDR 30 000060 1000 SELRAN, RANSEL 31 000061 0600 GENPAT, PATGEN 32 000062 0735 RANGEN, GENRAN 33 000063 0400 READ1, RDDATA 34 000064 0547 REGENP, PREGEN 35 000065 1225 DATACO, CODATA 36 000066 3000 WAITI, WATINT 37 000067 4321 ERRSTP, ERSTP 38 000070 1200 DATAMV, MVDATA 39 000071 0040 RECRDK, RECORD 40 000072 7777 COCNTR, 7777 41 000073 6774 RBUFST, RANBFR 42 000074 6773 RBFLOC, RANBFR-1 43 000075 7174 BF1LOC, BUFFRS-1 44 000076 0000 DIRFLG, 0 45 000077 0000 NUMBLK, 0 46 000100 7174 RBUFND, RANBFR+200 47 000101 4441 WRTDTY, TYWDAT 48 000102 6775 RBFWD2, RANBFR+1 49 000103 7376 BF2LOC, BUFFRS+201 50 000104 0420 READ2, REREAD 51 000105 0470 READ2A, REREDA 52 000106 4272 TYPCON, TYCONT 53 000107 4200 TYPTEX, TYTEXT 54 000110 7760 K7760, 7760 55 000111 0037 K0037, 37 56 000112 7770 K7779, 7770 57 000113 0200 K0200, 200 58 000114 0040 K0040, 40 59 000115 0614 K0614, 614 60 000116 0030 K0030, 30 61 000117 7577 K7577, 7577 62 000120 0007 K0007, 7 63 000121 4000 K4000, 4000 64 000122 0700 K0700, 700 65 000123 0070 K0070, 70 66 000124 7000 K7000, 7000 67 000125 0003 K0003, 3 68 000126 0214 K0214, 214 69 000127 7700 K7700, 7700 70 000130 4511 DRIVTY, TYDRV 71 000131 1000 K1000, 1000 72 EZBIT=K1000 73 000132 0010 K0010, 10 74 000133 0020 K0020, 20 75 000134 0077 K0077, 77 76 000135 0100 K0100, 100 77 000136 0240 K0240, 240 78 000137 0400 K0400, 400 79 000140 0604 K0604, 604 80 000141 0016 K16, 16 81 000142 0260 K260, 260 82 000143 3777 K3777, 3777 83 000144 4423 READTY, TYRDAT 84 000145 4411 SRCHTY, TYSRCH 85 000146 5075 K5075, 5075 86 000147 5076 K5076, 5076 87 000150 0050 K0050, 50 88 000151 0000 PASFLG, 0 89 000152 0002 K0002, 2 90 000153 2701 K2701, 2701 91 000154 6000 K6000, 6000 92 000155 4000 SRCHER, SRHERR 93 000156 0000 TAPONT, 0 94 000157 0000 BLKFLG, 0 95 000160 0000 PREBLK, 0 96 000161 3321 RETUJM, JMRETU 97 000162 0000 FRSWAT, 0 98 99 *200 100 000200 7604 RANDEX, CLA OSR 101 000201 0110 AND K7760 102 000202 7440 SZA 103 000203 5206 JMP .+3 104 000204 7402 HLT 105 000205 5200 JMP RANDEX 106 000206 3047 DCA MSBITS 107 000207 7402 HLT 108 000210 7040 CMA 109 000211 3162 DCA FRSWAT 110 000212 6774 IOT 774 111 000213 4456 JMS I REWIND 112 000214 3453 DCA I LSTBLK 113 000215 4457 JMS I NEWDRV 114 000216 5214 JMP .-2 115 000217 7201 CLA IAC 116 000220 3054 DCA LSTDRV 117 000221 4460 MOFPRO, JMS I SELRAN 118 000222 7240 CLA CMA 119 000223 3151 DCA PASFLG 120 000224 1045 TAD CDRIVE 121 000225 1054 TAD LSTDRV 122 000226 7650 SNA CLA 123 000227 5325 JMP SAMDRV 124 000230 1045 TAD CDRIVE 125 000231 7041 CMA IAC 126 000232 3054 DCA LSTDRV 127 000233 7040 CMA 128 000234 3350 DCA RSQFLG 129 000235 4462 MOFPR1, JMS I RANGEN 130 000236 0111 AND K0037 131 000237 7040 CMA 132 000240 3077 DCA NUMBLK 133 000241 4462 JMS I RANGEN 134 000242 0125 AND K0003 135 000243 7650 SNA CLA 136 000244 7040 CMA 137 000245 3076 DCA DIRFLG 138 000246 1453 TAD I LSTBLK 139 000247 7650 SNA CLA 140 000250 5724 JMP I WRITES 141 000251 7100 CLL 142 000252 1076 TAD DIRFLG 143 000253 7640 SZA CLA 144 000254 7120 STL 145 000255 1077 TAD NUMBLK 146 000256 7420 SNL 147 000257 7041 CMA IAC 148 000260 1451 TAD I POSITN 149 000261 3040 DCA RECORD 150 000262 1040 TAD RECORD 151 000263 7710 SPA CLA 152 000264 3040 DCA RECORD 153 000265 1040 TAD RECORD 154 000266 7040 CMA 155 000267 1453 TAD I LSTBLK 156 000270 7710 SPA CLA 157 000271 5724 JMP I WRITES 158 000272 4462 JMS I RANGEN 159 000273 0120 AND K0007 160 000274 7450 SNA 161 000275 5703 JMP I .+6 162 000276 0125 AND K0003 163 000277 7650 SNA CLA 164 000300 5304 JMP .+4 165 000301 5702 JMP I .+1 166 000302 2000 RDCMOD 167 000303 2400 RALLTS 168 000304 4463 RDTAB, JMS I READ1 169 000305 5504 JMP I READ2 170 000306 1113 TAD K0200 171 000307 6764 IOT 764 172 000310 1040 TAD RECORD 173 000311 3451 DCA I POSITN 174 000312 1076 TAD DIRFLG 175 000313 3452 DCA I DIRECT 176 000314 4464 JMS I REGENP 177 000315 4465 JMS I DATACO 178 000316 6774 RANBFR 179 000317 7175 BUFFRS 180 000320 0201 201 181 000321 2072 ISZ COCNTR 182 000322 5505 JMP I READ2A 183 000323 5221 JMP MOFPRO 184 000324 1400 WRITES, WRITE1 185 000325 4462 SAMDRV, JMS I RANGEN 186 000326 7510 SPA 187 000327 5236 JMP MOFPR1+1 188 000330 2350 ISZ RSQFLG 189 000331 5236 JMP MOFPR1+1 190 000332 0125 AND K0003 191 000333 7650 SNA CLA 192 000334 7040 CMA 193 000335 3076 DCA DIRFLG 194 000336 1076 TAD DIRFLG 195 000337 7041 CMA IAC 196 000340 1073 TAD RBUFST 197 000341 3040 DCA RECORD 198 000342 1076 TAD DIRFLG 199 000343 1440 TAD I RECORD 200 000344 0143 AND K3777 201 000345 3040 DCA RECORD 202 000346 5747 JMP I .+1 203 000347 1600 RDSEQ 204 000350 0000 RSQFLG, 0 205 206 *400 207 000400 5200 RDDATA, JMP . 208 000401 7200 CLA 209 000402 4455 JMS I SRCHIT 210 000403 1116 TAD K0030 211 000404 6764 IOT 764 212 000405 1117 TAD K7577 213 000406 3443 DCA I WCLOC 214 000407 1075 TAD BF1LOC 215 000410 3444 DCA I CALOC 216 000411 4466 JMS I WAITI 217 000412 0001 1 218 000413 5600 JMP I RDDATA 219 000414 1443 TAD I WCLOC 220 000415 7650 SNA CLA 221 000416 2200 ISZ RDDATA 222 000417 5600 JMP I RDDATA 223 000420 7240 REREAD, CLA CMA 224 000421 3151 DCA PASFLG 225 000422 4467 JMS I ERRSTP 226 000423 4544 JMS I READTY 227 000424 1071 TAD RECRDK 228 000425 4506 JMS I TYPCON 229 000426 4507 JMS I TYPTEX 230 000427 0042 0042 231 000430 5457 5457 232 000431 4353 4353 233 000432 7700 7700 234 000433 6772 IOT 772 235 000434 3010 DCA 10 236 000435 1132 TAD K0010 237 000436 4506 JMS I TYPCON 238 000437 4507 JMS I TYPTEX 239 000440 0063 0063 240 000441 6441 6441 241 000442 6400 6400 242 000443 4200 4200 243 000444 7777 7777 244 000445 7700 7700 245 000446 1443 TAD I WCLOC 246 000447 7650 SNA CLA 247 000450 5260 JMP .+10 248 000451 1043 TAD WCLOC 249 000452 4506 JMS I TYPCON 250 000453 4507 JMS I TYPTEX 251 000454 0067 0067 252 000455 1643 1643 253 000456 1677 1677 254 000457 5270 JMP REREDA 255 000460 4464 JMS I REGENP 256 000461 1444 TAD I CALOC 257 000462 1343 TAD K7600 258 000463 3266 DCA .+3 259 000464 4465 JMS I DATACO 260 000465 6774 RANBFR 261 000466 7175 BUFFRS 262 000467 0201 0201 263 000470 7604 REREDA, LAS 264 000471 0154 AND K6000 265 000472 7650 SNA CLA 266 000473 7402 HLT 267 000474 2151 ISZ PASFLG 268 000475 5325 JMP REWDRV 269 000476 1076 TAD DIRFLG 270 000477 7040 CMA 271 000500 3076 DCA DIRFLG 272 000501 4463 JMS I READ1 273 000502 5222 JMP REREAD+2 274 000503 4464 JMS I REGENP 275 000504 4465 JMS I DATACO 276 000505 6774 RANBFR 277 000506 7175 BUFFRS 278 000507 0201 0201 279 000510 2072 ISZ COCNTR 280 000511 5270 JMP REREDA 281 000512 1076 TAD DIRFLG 282 000513 7040 CMA 283 000514 3076 DCA DIRFLG 284 000515 4463 JMS I READ1 285 000516 5222 JMP REREAD+2 286 000517 4465 JMS I DATACO 287 000520 6774 RANBFR 288 000521 7175 BUFFRS 289 000522 0201 201 290 000523 2072 ISZ COCNTR 291 000524 5270 JMP REREDA 292 000525 1140 REWDRV, TAD K0604 293 000526 1046 TAD UNFUNC 294 000527 6766 IOT 766 295 000530 4466 JMS I WAITI 296 000531 5000 5000 297 000532 5344 JMP K7600+1 298 000533 3453 DCA I LSTBLK 299 000534 3451 DCA I POSITN 300 000535 7040 CMA 301 000536 3452 DCA I DIRECT 302 000537 7001 IAC 303 000540 3054 DCA LSTDRV 304 000541 5742 JMP I .+1 305 000542 0221 MOFPRO 306 000543 7600 K7600, 7600 307 000544 4746 JMS I .+2 308 000545 5325 JMP REWDRV 309 000546 3542 MOVER+2 310 000547 5347 PREGEN, JMP . 311 000550 1074 TAD RBFLOC 312 000551 3010 DCA 10 313 000552 1372 TAD GETRED+2 314 000553 3017 DCA 17 315 000554 1444 TAD I CALOC 316 000555 3370 DCA GETRED 317 000556 1770 TAD I GETRED 318 000557 4771 JMS I GETRED+1 319 000560 3410 DCA I 10 320 000561 7040 CMA 321 000562 1370 TAD GETRED 322 000563 3370 DCA GETRED 323 000564 2017 ISZ 17 324 000565 5356 JMP .-7 325 000566 4461 JMS I GENPAT 326 000567 5747 JMP I PREGEN 327 000570 0000 GETRED, 0 328 000571 0703 MCOMOB 329 000572 7774 7774 330 / 0 /VRS -- REFERENCED 331 332 *600 333 000600 5200 PATGEN, JMP . 334 000601 1353 TAD MIN4 335 000602 3275 DCA GENDEX 336 000603 1073 TAD RBUFST 337 000604 3276 DCA GENDEX+1 338 000605 1100 TAD RBUFND 339 000606 3277 DCA GENDEX+2 340 000607 1301 TAD RPATO+1 341 000610 3300 DCA RPATO 342 000611 1676 TAD I GENDEX+1 343 000612 3301 DCA RPATO+1 344 000613 1301 TAD RPATO+1 345 000614 4303 JMS MCOMOB 346 000615 3677 DCA I GENDEX+2 347 000616 2276 ISZ GENDEX+1 348 000617 7240 CLA CMA 349 000620 1277 TAD GENDEX+2 350 000621 2275 ISZ GENDEX 351 000622 5206 JMP PATGEN+6 352 000623 3277 DCA GENDEX+2 353 000624 1354 TAD MIN60 354 000625 3275 DCA GENDEX 355 000626 1300 GNPATR, TAD RPATO 356 000627 7110 CLL RAR 357 000630 7430 SZL 358 000631 1121 TAD K4000 359 000632 3302 DCA RPATO+2 360 000633 1302 TAD RPATO+2 361 000634 3676 DCA I GENDEX+1 362 000635 1302 TAD RPATO+2 363 000636 4303 JMS MCOMOB 364 000637 3677 DCA I GENDEX+2 365 000640 1301 TAD RPATO+1 366 000641 3300 DCA RPATO 367 000642 1302 TAD RPATO+2 368 000643 3301 DCA RPATO+1 369 000644 2276 ISZ GENDEX+1 370 000645 7240 CLA CMA 371 000646 1277 TAD GENDEX+2 372 000647 3277 DCA GENDEX+2 373 000650 2275 ISZ GENDEX 374 000651 5226 JMP GNPATR 375 000652 3302 DCA RPATO+2 376 000653 1300 TAD RPATO 377 000654 7110 CLL RAR 378 000655 7430 SZL 379 000656 2302 ISZ RPATO+2 380 000657 7440 SZA 381 000660 5254 JMP .-4 382 000661 1301 TAD RPATO+1 383 000662 7110 CLL RAR 384 000663 7430 SZL 385 000664 2302 ISZ RPATO+2 386 000665 7440 SZA 387 000666 5262 JMP .-4 388 000667 1302 TAD RPATO+2 389 000670 4303 JMS MCOMOB 390 000671 0127 AND K7700 391 000672 1302 TAD RPATO+2 392 000673 3676 DCA I GENDEX+1 393 000674 5600 JMP I PATGEN 394 000675 0000 GENDEX, 0 395 000676 0000 0 396 000677 0000 0 397 000700 0000 RPATO, 0 398 000701 0000 0 399 000702 0000 0 400 000703 5303 MCOMOB, JMP . 401 000704 3355 DCA COMSTR 402 000705 1355 TAD COMSTR 403 000706 0122 AND K0700 404 000707 7110 CLL RAR 405 000710 7012 RTR 406 000711 3356 DCA COMSTR+1 407 000712 1355 TAD COMSTR 408 000713 0123 AND K0070 409 000714 7006 RTL 410 000715 7004 RAL 411 000716 1356 TAD COMSTR+1 412 000717 3356 DCA COMSTR+1 413 000720 1355 TAD COMSTR 414 000721 0120 AND K0007 415 000722 7012 RTR 416 000723 7012 RTR 417 000724 1356 TAD COMSTR+1 418 000725 3356 DCA COMSTR+1 419 000726 1355 TAD COMSTR 420 000727 0124 AND K7000 421 000730 7006 RTL 422 000731 7006 RTL 423 000732 1356 TAD COMSTR+1 424 000733 7040 CMA 425 000734 5703 JMP I MCOMOB 426 000735 5335 GENRAN, JMP . 427 000736 7200 CLA 428 000737 1352 TAD RANVAR 429 000740 7104 CLL RAL 430 000741 7430 SZL 431 000742 7001 IAC 432 000743 3352 DCA RANVAR 433 000744 1352 TAD RANVAR 434 000745 1351 TAD RANN0 435 000746 3351 DCA RANN0 436 000747 1351 TAD RANN0 437 000750 5735 JMP I GENRAN 438 000751 2634 RANN0, 2634 439 000752 4263 RANVAR, 4263 440 000753 7774 MIN4, 7774 441 000754 7704 MIN60, 7704 442 000755 0000 COMSTR, 0 443 / 0 /VRS -- REFERENCED 444 445 *1000 446 001000 5200 RANSEL, JMP . 447 001001 4246 JMS SELGEN 448 001002 0120 AND K0007 449 001003 3045 DCA CDRIVE 450 001004 1045 TAD CDRIVE 451 001005 7110 CLL RAR 452 001006 7012 RTR 453 001007 7010 RAR 454 001010 3046 DCA UNFUNC 455 001011 1045 TAD CDRIVE 456 001012 7040 CMA 457 001013 3010 DCA 10 458 001014 1121 TAD K4000 459 001015 3011 DCA 11 460 001016 2010 ISZ 10 461 001017 7410 SKP 462 001020 5225 JMP EXIST 463 001021 1011 TAD 11 464 001022 7110 CLL RAR 465 001023 3011 DCA 11 466 001024 5216 JMP .-6 467 001025 1011 EXIST, TAD 11 468 001026 0047 AND MSBITS 469 001027 7650 SNA CLA 470 001030 5201 JMP RANSEL+1 471 001031 1045 TAD CDRIVE 472 001032 1243 TAD POSTBL 473 001033 3051 DCA POSITN 474 001034 1045 TAD CDRIVE 475 001035 1244 TAD DIRTBL 476 001036 3052 DCA DIRECT 477 001037 1045 TAD CDRIVE 478 001040 1245 TAD LSTTBL 479 001041 3053 DCA LSTBLK 480 001042 5600 JMP I RANSEL 481 001043 3502 POSTBL, PNTRS+1 482 001044 3513 DIRTBL, PNTRS+12 483 001045 3524 LSTTBL, PNTRS+23 484 001046 5246 SELGEN, JMP . 485 001047 1261 TAD SELVAR 486 001050 7104 CLL RAL 487 001051 7430 SZL 488 001052 7001 IAC 489 001053 3261 DCA SELVAR 490 001054 1261 TAD SELVAR 491 001055 1262 TAD SELVAR+1 492 001056 3262 DCA SELVAR+1 493 001057 1262 TAD SELVAR+1 494 001060 5646 JMP I SELGEN 495 001061 4263 SELVAR, 4263 496 001062 2634 2634 497 498 *1200 499 001200 5200 MVDATA, JMP . 500 001201 7200 CLA 501 001202 1600 TAD I MVDATA 502 001203 2200 ISZ MVDATA 503 001204 3222 DCA MOVDEX 504 001205 1600 TAD I MVDATA 505 001206 2200 ISZ MVDATA 506 001207 3223 DCA MOVDEX+1 507 001210 1600 TAD I MVDATA 508 001211 2200 ISZ MVDATA 509 001212 3224 DCA MOVDEX+2 510 001213 1622 TAD I MOVDEX 511 001214 3623 DCA I MOVDEX+1 512 001215 2222 ISZ MOVDEX 513 001216 2223 ISZ MOVDEX+1 514 001217 2224 ISZ MOVDEX+2 515 001220 5213 JMP .-5 516 001221 5600 JMP I MVDATA 517 001222 0000 MOVDEX, 0 518 001223 0000 0 519 001224 0000 0 520 001225 5225 CODATA, JMP . 521 001226 7200 CLA 522 001227 1625 TAD I CODATA 523 001230 2225 ISZ CODATA 524 001231 3255 DCA CODEX 525 001232 1625 TAD I CODATA 526 001233 3256 DCA CODEX+1 527 001234 2225 ISZ CODATA 528 001235 1625 TAD I CODATA 529 001236 7041 CMA IAC 530 001237 3257 DCA CODEX+2 531 001240 2225 ISZ CODATA 532 001241 7040 CMA 533 001242 3072 DCA COCNTR 534 001243 1655 COLOOP, TAD I CODEX 535 001244 7041 CMA IAC 536 001245 1656 TAD I CODEX+1 537 001246 7640 SZA CLA 538 001247 5261 JMP COERRO 539 001250 2255 ISZ CODEX 540 001251 2256 ISZ CODEX+1 541 001252 2257 ISZ CODEX+2 542 001253 5243 JMP COLOOP 543 001254 5625 JMP I CODATA 544 001255 0000 CODEX, 0 545 001256 0000 0 546 001257 0000 0 547 001260 1256 .-2 548 001261 2072 COERRO, ISZ COCNTR 549 001262 5313 JMP COERR1 550 001263 4467 JMS I ERRSTP 551 001264 6761 IOT 761 552 001265 0132 AND K0010 553 001266 7650 SNA CLA 554 001267 5273 JMP .+4 555 001270 4672 JMS I .+2 556 001271 5274 JMP .+3 557 001272 4432 TYRALL 558 001273 4544 JMS I READTY 559 001274 4507 JMS I TYPTEX 560 001275 7777 7777 561 001276 4441 4441 562 001277 6441 6441 563 001300 0045 0045 564 001301 6262 6262 565 001302 5762 5762 566 001303 7700 7700 567 001304 1071 TAD RECRDK 568 001305 4506 JMS I TYPCON 569 001306 4507 JMS I TYPTEX 570 001307 0042 0042 571 001310 5457 5457 572 001311 4353 4353 573 001312 7700 7700 574 001313 7604 COERR1, CLA OSR 575 001314 0131 AND K1000 576 001315 7650 SNA CLA 577 001316 5323 JMP .+5 578 001317 1072 TAD COCNTR 579 001320 1354 TAD K7774 580 001321 7700 SMA CLA 581 001322 5250 JMP COLOOP+5 582 001323 4507 JMS I TYPTEX 583 001324 7777 7777 584 001325 7700 7700 585 001326 1255 TAD CODEX 586 001327 4506 JMS I TYPCON 587 001330 4507 JMS I TYPTEX 588 001331 0043 0043 589 001332 5762 5762 590 001333 7700 7700 591 001334 1256 TAD CODEX+1 592 001335 4506 JMS I TYPCON 593 001336 4507 JMS I TYPTEX 594 001337 0051 0051 595 001340 5643 5643 596 001341 7700 7700 597 001342 1260 TAD CODEX+3 598 001343 4506 JMS I TYPCON 599 001344 4507 JMS I TYPTEX 600 001345 0041 41 601 001346 4444 4444 602 001347 6263 6263 603 001350 0051 51 604 001351 5643 5643 605 001352 7700 7700 606 001353 5250 JMP COLOOP+5 607 001354 7774 K7774, 7774 608 609 *1400 610 001400 1074 WRITE1, TAD RBFLOC 611 001401 3010 DCA 10 612 001402 1453 TAD I LSTBLK 613 001403 3410 DCA I 10 614 001404 1077 TAD NUMBLK 615 001405 7041 CMA IAC 616 001406 1453 TAD I LSTBLK 617 001407 3040 DCA RECORD 618 001410 1040 TAD RECORD 619 001411 1146 TAD K5075 620 001412 7700 SMA CLA 621 001413 5317 JMP REWCK 622 001414 1040 TAD RECORD 623 001415 3410 DCA I 10 624 001416 4462 JMS I RANGEN 625 001417 3410 DCA I 10 626 001420 4462 JMS I RANGEN 627 001421 3410 DCA I 10 628 001422 4462 JMS I RANGEN 629 001423 0125 AND K0003 630 001424 7650 SNA CLA 631 001425 7040 CMA 632 001426 3076 DCA DIRFLG 633 001427 1076 TAD DIRFLG 634 001430 1073 TAD RBUFST 635 001431 3010 DCA 10 636 001432 1010 TAD 10 637 001433 3011 DCA 11 638 001434 1121 TAD K4000 639 001435 1410 TAD I 10 640 001436 3411 DCA I 11 641 001437 4461 JMS I GENPAT 642 001440 1077 TAD NUMBLK 643 001441 3370 DCA SAVNUM 644 001442 1077 CORT1R, TAD NUMBLK 645 001443 7040 CMA 646 001444 3040 DCA RECORD 647 001445 1076 TAD DIRFLG 648 001446 7640 SZA CLA 649 001447 1040 TAD RECORD 650 001450 1453 TAD I LSTBLK 651 001451 3040 DCA RECORD 652 001452 5653 JMP I .+1 653 001453 2200 WDCMOD 654 001454 4455 JMS I SRCHIT 655 001455 1150 WRT1A, TAD K0050 656 001456 6764 IOT 764 657 001457 1117 TAD K7577 658 001460 3443 DCA I WCLOC 659 001461 1074 TAD RBFLOC 660 001462 3444 DCA I CALOC 661 001463 4466 JMS I WAITI 662 001464 0001 1 663 001465 5326 JMP WSTERR 664 001466 1443 TAD I WCLOC 665 001467 7640 SZA CLA 666 001470 5326 JMP WSTERR 667 001471 1076 TAD DIRFLG 668 001472 7100 CLL 669 001473 1040 TAD RECORD 670 001474 7510 SPA 671 001475 7320 CLA STL 672 001476 3040 DCA RECORD 673 001477 7420 SNL 674 001500 2040 ISZ RECORD 675 001501 2077 ISZ NUMBLK 676 001502 5256 JMP WRT1A+1 677 001503 1040 WDINC, TAD RECORD 678 001504 3451 DCA I POSITN 679 001505 1076 TAD DIRFLG 680 001506 3452 DCA I DIRECT 681 001507 1502 TAD I RBFWD2 682 001510 0143 AND K3777 683 001511 3453 DCA I LSTBLK 684 001512 1113 TAD K0200 685 001513 6764 IOT 764 686 001514 5715 JMP I .+1 687 001515 0221 MOFPRO 688 001516 0525 REWDRV 689 001517 4462 REWCK, JMS I RANGEN 690 001520 7710 SPA CLA 691 001521 5716 JMP I REWCK-1 692 001522 3040 DCA RECORD 693 001523 3076 DCA DIRFLG 694 001524 5725 JMP I .+1 695 001525 0304 RDTAB 696 001526 4467 WSTERR, JMS I ERRSTP 697 001527 4501 JMS I WRTDTY 698 001530 1071 TAD RECRDK 699 001531 4506 JMS I TYPCON 700 001532 4507 JMS I TYPTEX 701 001533 0042 42 702 001534 5457 5457 703 001535 4353 4353 704 001536 7700 7700 705 001537 1370 TAD SAVNUM 706 001540 3077 DCA NUMBLK 707 001541 6772 IOT 772 708 001542 3372 DCA SAVNUM+2 709 001543 1371 TAD SAVNUM+1 710 001544 4506 JMS I TYPCON 711 001545 4507 JMS I TYPTEX 712 001546 0063 63 713 001547 6441 6441 714 001550 6400 6400 715 001551 4277 4277 716 001552 1043 TAD WCLOC 717 001553 4506 JMS I TYPCON 718 001554 4507 JMS I TYPTEX 719 001555 0067 67 720 001556 1643 1643 721 001557 1677 1677 722 001560 7604 LAS 723 001561 0154 AND K6000 724 001562 7650 SNA CLA 725 001563 7402 HLT 726 001564 2151 ISZ PASFLG 727 001565 5767 JMP I .+2 728 001566 5242 JMP CORT1R 729 001567 0525 REWDRV 730 001570 0000 SAVNUM, 0 731 001571 1572 .+1 732 / 0 /VRS -- REFERENCED 733 734 *1600 735 001600 1473 RDSEQ, TAD I RBUFST 736 001601 0143 AND K3777 737 001602 3040 DCA RECORD 738 001603 1502 TAD I RBFWD2 739 001604 0143 AND K3777 740 001605 3077 DCA NUMBLK 741 001606 1040 TAD RECORD 742 001607 7040 CMA 743 001610 1077 TAD NUMBLK 744 001611 3077 DCA NUMBLK 745 001612 4462 JMS I RANGEN 746 001613 7100 CLL 747 001614 7710 SPA CLA 748 001615 7040 CMA 749 001616 7440 SZA 750 001617 7120 STL 751 001620 3076 DCA DIRFLG 752 001621 1040 TAD RECORD 753 001622 7430 SZL 754 001623 1077 TAD NUMBLK 755 001624 3040 DCA RECORD 756 001625 1077 TAD NUMBLK 757 001626 7040 CMA 758 001627 3077 DCA NUMBLK 759 001630 4463 JMS I READ1 760 001631 5504 JMP I READ2 761 001632 2077 RDBUF1, ISZ NUMBLK 762 001633 5236 JMP .+3 763 001634 1113 TAD K0200 764 001635 5242 JMP .+5 765 001636 1103 TAD BF2LOC 766 001637 3444 DCA I CALOC 767 001640 1117 TAD K7577 768 001641 3443 DCA I WCLOC 769 001642 6764 IOT 764 770 001643 4465 JMS I DATACO 771 001644 6774 RANBFR 772 001645 7175 BUFFRS 773 001646 0201 0201 774 001647 2072 ISZ COCNTR 775 001650 5505 JMP I READ2A 776 001651 1077 TAD NUMBLK 777 001652 7650 SNA CLA 778 001653 5325 JMP NDOFRD 779 001654 1076 TAD DIRFLG 780 001655 7450 SNA 781 001656 7001 IAC 782 001657 1040 TAD RECORD 783 001660 3040 DCA RECORD 784 001661 4466 JMS I WAITI 785 001662 0001 1 786 001663 5504 JMP I READ2 787 001664 1443 TAD I WCLOC 788 001665 7640 SZA CLA 789 001666 5504 JMP I READ2 790 001667 2077 ISZ NUMBLK 791 001670 5273 JMP .+3 792 001671 1113 TAD K0200 793 001672 5277 JMP .+5 794 001673 1075 TAD BF1LOC 795 001674 3444 DCA I CALOC 796 001675 1117 TAD K7577 797 001676 3443 DCA I WCLOC 798 001677 6764 IOT 764 799 001700 4465 JMS I DATACO 800 001701 6774 RANBFR 801 001702 7377 BUFFRS+202 802 001703 0201 0201 803 001704 2072 ISZ COCNTR 804 001705 5505 JMP I READ2A 805 001706 1077 TAD NUMBLK 806 001707 7650 SNA CLA 807 001710 5325 JMP NDOFRD 808 001711 1076 TAD DIRFLG 809 001712 7450 SNA 810 001713 7001 IAC 811 001714 1040 TAD RECORD 812 001715 3040 DCA RECORD 813 001716 4466 JMS I WAITI 814 001717 0001 1 815 001720 5504 JMP I READ2 816 001721 1443 TAD I WCLOC 817 001722 7640 SZA CLA 818 001723 5504 JMP I READ2 819 001724 5232 JMP RDBUF1 820 001725 1040 NDOFRD, TAD RECORD 821 001726 3451 DCA I POSITN 822 001727 1076 TAD DIRFLG 823 001730 3452 DCA I DIRECT 824 001731 5732 JMP I .+1 825 001732 0221 MOFPRO 826 827 /PAUSE 828 829 /TC01 DECTREX 1 - TAPE 2 830 /READ CONTINUOUS MODE 831 /TWO BLOCKS AND COMPARE DATA READ 832 833 *2000 834 002000 1076 RDCMOD, TAD DIRFLG 835 002001 7640 SZA CLA 836 002002 5212 JMP .+10 837 002003 1040 TAD RECORD 838 002004 7040 CMA 839 002005 1453 TAD I LSTBLK 840 002006 7440 SZA 841 002007 5215 JMP .+6 842 002010 5611 JMP I .+1 843 002011 0304 RDTAB 844 002012 1040 TAD RECORD 845 002013 7650 SNA CLA 846 002014 5611 JMP I .-3 847 002015 4455 JMS I SRCHIT 848 002016 1313 TAD K0130 849 002017 6764 IOT 764 850 002020 1117 TAD K7577 851 002021 1117 TAD K7577 852 002022 3443 DCA I WCLOC 853 002023 1075 TAD BF1LOC 854 002024 3444 DCA I CALOC 855 002025 4466 JMS I WAITI 856 002026 0001 1 857 002027 5275 JMP RDCERR 858 002030 1443 TAD I WCLOC 859 002031 7640 SZA CLA 860 002032 5504 JMP I READ2 861 002033 1113 TAD K0200 862 002034 6764 IOT 764 863 002035 1076 TAD DIRFLG 864 002036 7450 SNA 865 002037 7001 IAC 866 002040 1040 TAD RECORD 867 002041 3040 DCA RECORD 868 002042 4464 JMS I REGENP 869 002043 4465 JMS I DATACO 870 002044 6774 RANBFR 871 002045 7376 BUFFRS+201 872 002046 0201 0201 873 002047 2072 ISZ COCNTR 874 002050 5505 JMP I READ2A 875 002051 7040 CMA 876 002052 1103 TAD BF2LOC 877 002053 3444 DCA I CALOC 878 002054 4464 JMS I REGENP 879 002055 1076 TAD DIRFLG 880 002056 7450 SNA 881 002057 7001 IAC 882 002060 7041 CMA IAC 883 002061 1040 TAD RECORD 884 002062 3040 DCA RECORD 885 002063 4465 JMS I DATACO 886 002064 6774 RANBFR 887 002065 7175 BUFFRS 888 002066 0201 0201 889 002067 2072 ISZ COCNTR 890 002070 5505 JMP I READ2A 891 002071 1040 TAD RECORD 892 002072 3451 DCA I POSITN 893 002073 5674 JMP I .+1 894 002074 0221 MOFPRO 895 002075 1443 RDCERR, TAD I WCLOC 896 002076 7450 SNA 897 002077 5305 JMP .+6 898 002100 7041 CMA IAC 899 002101 1117 TAD K7577 900 002102 3443 DCA I WCLOC 901 002103 5704 JMP I .+1 902 002104 0420 REREAD 903 002105 1076 TAD DIRFLG 904 002106 7450 SNA 905 002107 7001 IAC 906 002110 1040 TAD RECORD 907 002111 3040 DCA RECORD 908 002112 5704 JMP I .-6 909 002113 0130 K0130, 130 910 911 *2200 912 002200 3277 WDCMOD, DCA TRECTR 913 002201 1077 TAD NUMBLK 914 002202 1125 TAD K0003 915 002203 7450 SNA 916 002204 5212 JMP SWCMOD 917 002205 7500 SMA 918 002206 5611 JMP I .+3 919 002207 2277 ISZ TRECTR 920 002210 5202 JMP WDCMOD+2 921 002211 1454 WRT1A-1 922 002212 1277 SWCMOD, TAD TRECTR 923 002213 7040 CMA 924 002214 3277 DCA TRECTR 925 002215 4470 JMS I DATAMV 926 002216 6774 RANBFR 927 002217 7175 BUFFRS 928 002220 7376 7376 929 002221 4455 JMS I SRCHIT 930 002222 1301 TAD K0150 931 002223 6764 SWCMDL, IOT 764 932 002224 1300 TAD K7175 933 002225 3443 DCA I WCLOC 934 002226 1074 TAD RBFLOC 935 002227 3444 DCA I CALOC 936 002230 4466 JMS I WAITI 937 002231 0001 1 938 002232 5253 JMP WDCERR 939 002233 1443 TAD I WCLOC 940 002234 7640 SZA CLA 941 002235 5253 JMP WDCERR 942 002236 1076 TAD DIRFLG 943 002237 7100 CLL 944 002240 7640 SZA CLA 945 002241 7120 STL 946 002242 1125 TAD K0003 947 002243 7430 SZL 948 002244 7041 CMA IAC 949 002245 1040 TAD RECORD 950 002246 3040 DCA RECORD 951 002247 2277 ISZ TRECTR 952 002250 5223 JMP SWCMDL 953 002251 5652 JMP I .+1 954 002252 1503 WDINC 955 002253 3277 WDCERR, DCA TRECTR 956 002254 1443 TAD I WCLOC 957 002255 7041 CMA IAC 958 002256 1117 TAD K7577 959 002257 7510 SPA 960 002260 5263 JMP .+3 961 002261 2277 ISZ TRECTR 962 002262 5256 JMP .-4 963 002263 7200 CLA 964 002264 1076 TAD DIRFLG 965 002265 7100 CLL 966 002266 7640 SZA CLA 967 002267 7120 STL 968 002270 1277 TAD TRECTR 969 002271 7430 SZL 970 002272 7041 CMA IAC 971 002273 1040 TAD RECORD 972 002274 3040 DCA RECORD 973 002275 5676 JMP I .+1 974 002276 1526 WSTERR 975 002277 0000 TRECTR, 0 976 002300 7175 K7175, 7175 977 002301 0150 K0150, 0150 978 979 *2400 980 002400 1076 RALLTS, TAD DIRFLG 981 002401 7450 SNA 982 002402 7001 IAC 983 002403 7041 CMA IAC 984 002404 1040 TAD RECORD 985 002405 3040 DCA RECORD 986 002406 1040 TAD RECORD 987 002407 7510 SPA 988 002410 5214 JMP .+4 989 002411 1147 TAD K5076 990 002412 7710 SPA CLA 991 002413 5217 JMP .+4 992 002414 7200 CLA 993 002415 5616 JMP I .+1 994 002416 0235 MOFPR1 995 002417 3377 DCA RAEFLG 996 002420 4455 JMS I SRCHIT 997 002421 6764 IOT 764 998 002422 1076 TAD DIRFLG 999 002423 7450 SNA 1000 002424 7001 IAC 1001 002425 1040 TAD RECORD 1002 002426 3040 DCA RECORD 1003 002427 6773 IOT 773 1004 002430 5227 JMP .-1 1005 002431 7710 SPA CLA 1006 002432 5371 JMP RASERR 1007 002433 1041 TAD BLKFND 1008 002434 7041 CMA IAC 1009 002435 1040 TAD RECORD 1010 002436 7640 SZA CLA 1011 002437 5371 JMP RASERR 1012 002440 1374 TAD K0120 1013 002441 6764 IOT 764 1014 002442 1375 TAD K7571 1015 002443 3443 DCA I WCLOC 1016 002444 1075 TAD BF1LOC 1017 002445 3444 DCA I CALOC 1018 002446 4466 JMS I WAITI 1019 002447 0001 1 1020 002450 5770 JMP I RARERR 1021 002451 1443 TAD I WCLOC 1022 002452 7640 SZA CLA 1023 002453 5770 JMP I RARERR 1024 002454 1113 TAD K0200 1025 002455 6764 IOT 764 1026 002456 1376 TAD RADLOC 1027 002457 3010 DCA 10 1028 002460 1117 TAD K7577 1029 002461 3011 DCA 11 1030 002462 3364 DCA CKSUMR 1031 002463 1410 TAD I 10 1032 002464 0134 AND K0077 1033 002465 3363 DCA REVCHK 1034 002466 1410 TAD I 10 1035 002467 4331 JMS XORSUM 1036 002470 2011 ISZ 11 1037 002471 5266 JMP .-3 1038 002472 1364 TAD CKSUMR 1039 002473 7040 CMA 1040 002474 0134 AND K0077 1041 002475 3361 DCA DATASM 1042 002476 1410 TAD I 10 1043 002477 0127 AND K7700 1044 002500 3362 DCA FWDCHK 1045 002501 1361 TAD DATASM 1046 002502 3364 DCA CKSUMR 1047 002503 1362 TAD FWDCHK 1048 002504 4331 JMS XORSUM 1049 002505 1363 TAD REVCHK 1050 002506 4331 JMS XORSUM 1051 002507 1364 TAD CKSUMR 1052 002510 7640 SZA CLA 1053 002511 5760 JMP I CKSERR 1054 002512 1040 RADCHK, TAD RECORD 1055 002513 3451 DCA I POSITN 1056 002514 7040 CMA 1057 002515 1444 TAD I CALOC 1058 002516 3444 DCA I CALOC 1059 002517 4464 JMS I REGENP 1060 002520 4465 JMS I DATACO 1061 002521 6774 RANBFR 1062 002522 7202 BUFFRS+5 1063 002523 0201 0201 1064 002524 2377 ISZ RAEFLG 1065 002525 2072 ISZ COCNTR 1066 002526 5505 JMP I READ2A 1067 002527 5730 JMP I .+1 1068 002530 0217 MOFPRO-2 1069 002531 5331 XORSUM, JMP . 1070 002532 7040 CMA 1071 002533 3365 DCA XORSAV 1072 002534 7040 CMA 1073 002535 3366 DCA XORSAV+1 1074 002536 1365 TAD XORSAV 1075 002537 7040 CMA 1076 002540 0364 AND CKSUMR 1077 002541 3367 DCA XORSAV+2 1078 002542 1364 TAD CKSUMR 1079 002543 7040 CMA 1080 002544 0365 AND XORSAV 1081 002545 1367 TAD XORSAV+2 1082 002546 0134 AND K0077 1083 002547 3364 DCA CKSUMR 1084 002550 2366 ISZ XORSAV+1 1085 002551 5731 JMP I XORSUM 1086 002552 1365 TAD XORSAV 1087 002553 7012 RTR 1088 002554 7012 RTR 1089 002555 7012 RTR 1090 002556 3365 DCA XORSAV 1091 002557 5336 JMP XORSUM+5 1092 002560 2600 CKSERR, ERRCKS 1093 002561 0000 DATASM, 0 1094 002562 0000 FWDCHK, 0 1095 002563 0000 REVCHK, 0 1096 002564 0000 CKSUMR, 0 1097 002565 0000 XORSAV, 0 1098 002566 0000 0 1099 002567 0000 0 1100 002570 2707 RARERR, ERRRAR 1101 002571 3151 RASERR, DCA PASFLG 1102 002572 5773 JMP I .+1 1103 002573 4000 SRHERR 1104 002574 0120 K0120, 0120 1105 002575 7571 K7571, 7571 1106 002576 7200 RADLOC, BUFFRS+3 1107 002577 0000 RAEFLG, 0 1108 1109 *2600 1110 002600 4701 ERRCKS, JMS I CSECON 1111 002601 1071 TAD RECRDK 1112 002602 4506 JMS I TYPCON 1113 002603 4507 JMS I TYPTEX 1114 002604 0042 42 1115 002605 5457 5457 1116 002606 4353 4353 1117 002607 7777 7777 1118 002610 4353 4353 1119 002611 6365 6365 1120 002612 5500 5500 1121 002613 4562 4562 1122 002614 6257 6257 1123 002615 6277 6277 1124 002616 1302 TAD CSECON+1 1125 002617 4506 JMS I TYPCON 1126 002620 4507 JMS I TYPTEX 1127 002621 0062 62 1128 002622 4566 4566 1129 002623 7700 7700 1130 002624 4257 JMS CKSTYP 1131 002625 1303 TAD CSECON+2 1132 002626 4506 JMS I TYPCON 1133 002627 4704 JMS I CSECON+3 1134 002630 4257 JMS CKSTYP 1135 002631 4270 JMS CALCTY 1136 002632 1305 TAD CSECON+4 1137 002633 4506 JMS I TYPCON 1138 002634 4257 JMS CKSTYP 1139 002635 1706 TAD I CSECON+5 1140 002636 7040 CMA 1141 002637 0134 AND K0077 1142 002640 3706 DCA I CSECON+5 1143 002641 1306 TAD CSECON+5 1144 002642 4506 JMS I TYPCON 1145 002643 4270 JMS CALCTY 1146 002644 4507 JMS I TYPTEX 1147 002645 0054 54 1148 002646 1660 1660 1149 002647 1642 1642 1150 002650 1677 1677 1151 002651 7040 CMA 1152 002652 3655 DCA I .+3 1153 002653 5654 JMP I .+1 1154 002654 2512 RADCHK 1155 002655 2577 RAEFLG 1156 002656 0525 REWDRV 1157 002657 5257 CKSTYP, JMP . 1158 002660 4507 JMS I TYPTEX 1159 002661 0043 43 1160 002662 5045 5045 1161 002663 4353 4353 1162 002664 0063 63 1163 002665 6555 6555 1164 002666 7700 7700 1165 002667 5657 JMP I CKSTYP 1166 002670 5270 CALCTY, JMP . 1167 002671 4507 JMS I TYPTEX 1168 002672 0043 43 1169 002673 4154 4154 1170 002674 4365 4365 1171 002675 5441 5441 1172 002676 6445 6445 1173 002677 4477 4477 1174 002700 5670 JMP I CALCTY 1175 002701 4432 CSECON, TYRALL 1176 002702 2563 REVCHK 1177 002703 2561 DATASM 1178 002704 4474 TYDATA 1179 002705 2562 FWDCHK 1180 002706 2564 CKSUMR 1181 002707 4467 ERRRAR, JMS I ERRSTP 1182 002710 4701 JMS I CSECON 1183 002711 1071 TAD RECRDK 1184 002712 4506 JMS I TYPCON 1185 002713 4507 JMS I TYPTEX 1186 002714 0042 42 1187 002715 5457 5457 1188 002716 4353 4353 1189 002717 7700 7700 1190 002720 6772 IOT 772 1191 002721 3345 DCA .+24 1192 002722 1344 TAD .+22 1193 002723 4506 JMS I TYPCON 1194 002724 4507 JMS I TYPTEX 1195 002725 0063 63 1196 002726 6441 6441 1197 002727 6400 6400 1198 002730 4277 4277 1199 002731 1043 TAD WCLOC 1200 002732 4506 JMS I TYPCON 1201 002733 4507 JMS I TYPTEX 1202 002734 0067 67 1203 002735 1643 1643 1204 002736 1677 1677 1205 002737 7604 LAS 1206 002740 0154 AND K6000 1207 002741 7650 SNA CLA 1208 002742 7402 HLT 1209 002743 5656 JMP I CKSTYP-1 1210 002744 2745 .+1 1211 002745 0000 0 1212 1213 *3000 1214 003000 5200 WATINT, JMP . 1215 003001 1323 TAD WTKON1 1216 003002 3325 DCA WTCNTR 1217 003003 6761 IOT 761 1218 003004 0123 AND K0070 1219 003005 7640 SZA CLA 1220 003006 5211 JMP .+3 1221 003007 1324 TAD WTKON2 1222 003010 3325 DCA WTCNTR 1223 003011 2162 ISZ FRSWAT 1224 003012 5217 JMP RESETD 1225 003013 4331 JMS SETIDX 1226 003014 6001 ION 1227 003015 5616 JMP I .+1 1228 003016 3200 ISZTST 1229 003017 3162 RESETD, DCA FRSWAT 1230 003020 2342 ISZ PICNTR 1231 003021 7410 SKP 1232 003022 4331 JMS SETIDX 1233 003023 1000 TAD 0 1234 003024 3743 DCA I PIDEX1 1235 003025 2343 ISZ PIDEX1 1236 003026 1326 TAD LKSAVE 1237 003027 7010 RAR 1238 003030 7200 CLA 1239 003031 1327 TAD ACSAVE 1240 003032 6001 ION 1241 003033 5400 JMP I 0 1242 003034 3327 IRECD, DCA ACSAVE 1243 003035 7004 RAL 1244 003036 3326 DCA LKSAVE 1245 003037 6771 IOT 771 1246 003040 5255 JMP NDTSKP 1247 003041 6772 IOT 772 1248 003042 3330 DCA SBRECD 1249 003043 1600 TAD I WATINT 1250 003044 7040 CMA 1251 003045 0330 AND SBRECD 1252 003046 7650 SNA CLA 1253 003047 2200 ISZ WATINT 1254 003050 2200 ISZ WATINT 1255 003051 1200 TAD WATINT 1256 003052 3744 DCA I PIDEX2 1257 003053 2344 ISZ PIDEX2 1258 003054 5600 JMP I WATINT 1259 003055 4467 NDTSKP, JMS I ERRSTP 1260 003056 4507 JMS I TYPTEX 1261 003057 7777 7777 1262 003060 6016 6016 1263 003061 5116 5116 1264 003062 0077 0077 1265 003063 5304 JMP PTSTNS 1266 003064 3065 PTSTND, .+1 1267 003065 2325 ISZ WTCNTR 1268 003066 5664 JMP I PTSTND 1269 003067 6002 IOF 1270 003070 6771 IOT 771 1271 003071 7040 CMA 1272 003072 3330 DCA SBRECD 1273 003073 4467 JMS I ERRSTP 1274 003074 4507 JMS I TYPTEX 1275 003075 7777 7777 1276 003076 5657 5657 1277 003077 0060 60 1278 003100 1651 1651 1279 003101 1677 1677 1280 003102 2330 ISZ SBRECD 1281 003103 5307 JMP .+4 1282 003104 4507 PTSTNS, JMS I TYPTEX 1283 003105 0056 56 1284 003106 5777 5777 1285 003107 4507 JMS I TYPTEX 1286 003110 0044 44 1287 003111 4543 4543 1288 003112 6441 6441 1289 003113 6045 6045 1290 003114 0063 63 1291 003115 5351 5351 1292 003116 6077 6077 1293 003117 2200 ISZ WATINT 1294 003120 7040 CMA 1295 003121 3162 DCA FRSWAT 1296 003122 5600 JMP I WATINT 1297 003123 7655 WTKON1, 7655 1298 003124 6422 WTKON2, 6422 1299 003125 0000 WTCNTR, 0 1300 003126 0000 LKSAVE, 0 1301 003127 0000 ACSAVE, 0 1302 003130 0000 SBRECD, 0 1303 003131 5331 SETIDX, JMP . 1304 003132 1341 TAD K7772Y 1305 003133 3342 DCA PICNTR 1306 003134 1345 TAD PITBL 1307 003135 3343 DCA PIDEX1 1308 003136 1354 TAD PIRTBL 1309 003137 3344 DCA PIDEX2 1310 003140 5731 JMP I SETIDX 1311 003141 7772 K7772Y, 7772 1312 003142 0000 PICNTR, 0 1313 003143 0000 PIDEX1, 0 1314 003144 0000 PIDEX2, 0 1315 003145 3146 PITBL, .+1 1316 1317 *PITBL+7 1318 003154 3155 PIRTBL, .+1 1319 1320 *3200 1321 003200 7040 ISZTST, CMA 1322 003201 3345 DCA TEMP5 1323 003202 3342 DCA TEMP2 1324 003203 3341 DCA TEMP1 1325 003204 2341 ISZ TEMP1 1326 003205 2342 ISZ TEMP2 1327 003206 5204 JMP .-2 1328 003207 1342 TAD TEMP2 1329 003210 7440 SZA 1330 003211 7402 HLT 1331 003212 7240 CLA CMA 1332 003213 1341 TAD TEMP1 1333 003214 7440 SZA 1334 003215 7402 HLT 1335 003216 2345 ISZ TEMP5 1336 003217 7410 SKP 1337 003220 5203 JMP ISZTST+3 1338 003221 4750 JMS I NDPTST 1339 003222 1342 ROT1TS, TAD TEMP2 1340 003223 7130 STL RAR 1341 003224 7004 RAL 1342 003225 7420 SNL 1343 003226 7402 HLT 1344 003227 7041 CMA IAC 1345 003230 1342 TAD TEMP2 1346 003231 7440 SZA 1347 003232 7402 HLT 1348 003233 2342 ISZ TEMP2 1349 003234 5222 JMP ROT1TS 1350 003235 4750 JMS I NDPTST 1351 003236 1342 ROT2TS, TAD TEMP2 1352 003237 7106 CLL RTL 1353 003240 7012 RTR 1354 003241 7430 SZL 1355 003242 7402 HLT 1356 003243 7041 CMA IAC 1357 003244 1342 TAD TEMP2 1358 003245 7440 SZA 1359 003246 7402 HLT 1360 003247 2342 ISZ TEMP2 1361 003250 5236 JMP ROT2TS 1362 003251 4750 JMS I NDPTST 1363 003252 3343 TADTST, DCA TEMP3 1364 003253 1346 TAD PRAN1 1365 003254 7104 CLL RAL 1366 003255 7430 SZL 1367 003256 7001 IAC 1368 003257 3346 DCA PRAN1 1369 003260 1347 TAD PRAN2 1370 003261 1346 TAD PRAN1 1371 003262 3347 DCA PRAN2 1372 003263 1347 TAD PRAN2 1373 003264 3344 DCA TEMP4 1374 003265 1347 TAD PRAN2 1375 003266 1343 TAD TEMP3 1376 003267 7041 CMA IAC 1377 003270 1344 TAD TEMP4 1378 003271 7440 SZA 1379 003272 7402 HLT 1380 003273 2344 ISZ TEMP4 1381 003274 7000 NOP 1382 003275 2343 ISZ TEMP3 1383 003276 5265 JMP .-11 1384 003277 4750 JMS I NDPTST 1385 003300 1354 JMSTST, TAD K7763X 1386 003301 3341 DCA TEMP1 1387 003302 1353 TAD K7600X 1388 003303 3342 DCA TEMP2 1389 003304 1351 TAD JMSLOC 1390 003305 3343 DCA TEMP3 1391 003306 1352 TAD JMSKON 1392 003307 3344 DCA TEMP4 1393 003310 1344 TAD TEMP4 1394 003311 3743 DCA I TEMP3 1395 003312 2344 ISZ TEMP4 1396 003313 2343 ISZ TEMP3 1397 003314 2342 ISZ TEMP2 1398 003315 5310 JMP .-5 1399 003316 1355 TAD RETJMP 1400 003317 3743 DCA I TEMP3 1401 003320 5751 JMP I JMSLOC 1402 003321 1353 JMRETU, TAD K7600X 1403 003322 3342 DCA TEMP2 1404 003323 1351 TAD JMSLOC 1405 003324 3343 DCA TEMP3 1406 003325 1343 TAD TEMP3 1407 003326 7040 CMA 1408 003327 1743 TAD I TEMP3 1409 003330 7440 SZA 1410 003331 7402 HLT 1411 003332 2343 ISZ TEMP3 1412 003333 2342 ISZ TEMP2 1413 003334 5325 JMP JMRETU+4 1414 003335 2341 ISZ TEMP1 1415 003336 5302 JMP JMSTST+2 1416 003337 4750 JMS I NDPTST 1417 003340 5200 JMP ISZTST 1418 003341 0000 TEMP1, 0 1419 003342 0000 TEMP2, 0 1420 003343 0000 TEMP3, 0 1421 003344 0000 TEMP4, 0 1422 003345 0000 TEMP5, 0 1423 003346 4263 PRAN1, 4263 1424 003347 2634 PRAN2, 2634 1425 003350 3064 NDPTST, PTSTND 1426 003351 6000 JMSLOC, 6000 1427 003352 4200 JMSKON, 4200 1428 003353 7600 K7600X, 7600 1429 003354 7763 K7763X, 7763 1430 003355 5561 RETJMP, JMP I RETUJM 1431 1432 /PAUSE 1433 1434 /TC01 DECTEX 1 - TAPE 3 1435 1436 *3400 1437 003400 5200 REPOSI, JMP . 1438 003401 4217 JMS RSFDRV 1439 003402 1140 TAD K0604 1440 003403 1046 TAD UNFUNC 1441 003404 6766 IOT 766 1442 003405 4466 JMS I WAITI 1443 003406 5000 5000 1444 003407 5340 JMP MOVER 1445 003410 7240 CLA CMA 1446 003411 3451 DCA I POSITN 1447 003412 7240 CLA CMA 1448 003413 3452 DCA I DIRECT 1449 003414 4237 JMS CHNGDR 1450 003415 5202 JMP REPOSI+2 1451 003416 5600 JMP I REPOSI 1452 003417 5217 RSFDRV, JMP . 1453 003420 7200 CLA 1454 003421 3045 DCA CDRIVE 1455 003422 1121 TAD K4000 1456 003423 3050 DCA COMBIT 1457 003424 1047 TAD MSBITS 1458 003425 0050 AND COMBIT 1459 003426 7640 SZA CLA 1460 003427 5235 JMP RSFDR1 1461 003430 1050 TAD COMBIT 1462 003431 7110 CLL RAR 1463 003432 3050 DCA COMBIT 1464 003433 2045 ISZ CDRIVE 1465 003434 5224 JMP RSFDRV+5 1466 003435 4261 RSFDR1, JMS GNPTRS 1467 003436 5617 JMP I RSFDRV 1468 003437 5237 CHNGDR, JMP . 1469 003440 7200 CLA 1470 003441 1050 TAD COMBIT 1471 003442 7110 CLL RAR 1472 003443 0300 AND NBIT8 1473 003444 7440 SZA 1474 003445 5251 JMP .+4 1475 003446 4217 JMS RSFDRV 1476 003447 2237 ISZ CHNGDR 1477 003450 5637 JMP I CHNGDR 1478 003451 3050 DCA COMBIT 1479 003452 2045 ISZ CDRIVE 1480 003453 1050 TAD COMBIT 1481 003454 0047 AND MSBITS 1482 003455 7650 SNA CLA 1483 003456 5240 JMP CHNGDR+1 1484 003457 4261 JMS GNPTRS 1485 003460 5637 JMP I CHNGDR 1486 003461 5261 GNPTRS, JMP . 1487 003462 1045 TAD CDRIVE 1488 003463 7112 CLL RTR 1489 003464 7012 RTR 1490 003465 3046 DCA UNFUNC 1491 003466 1045 TAD CDRIVE 1492 003467 1301 TAD PNTRS 1493 003470 3051 DCA POSITN 1494 003471 1045 TAD CDRIVE 1495 003472 1312 TAD PNTRS+11 1496 003473 3052 DCA DIRECT 1497 003474 1045 TAD CDRIVE 1498 003475 1323 TAD PNTRS+22 1499 003476 3053 DCA LSTBLK 1500 003477 5661 JMP I GNPTRS 1501 003500 7767 NBIT8, 7767 1502 003501 3502 PNTRS, .+1 1503 003502 0000 0 1504 003503 0000 0 1505 003504 0000 0 1506 003505 0000 0 1507 003506 0000 0 1508 003507 0000 0 1509 003510 0000 0 1510 003511 0000 0 1511 003512 3513 .+1 1512 003513 0000 0 1513 003514 0000 0 1514 003515 0000 0 1515 003516 0000 0 1516 003517 0000 0 1517 003520 0000 0 1518 003521 0000 0 1519 003522 0000 0 1520 003523 3524 .+1 1521 003524 0000 0 1522 003525 0000 0 1523 003526 0000 0 1524 003527 0000 0 1525 003530 0000 0 1526 003531 0000 0 1527 003532 0000 0 1528 003533 0000 0 1529 003534 0000 0 1530 003535 3536 .+1 1531 003536 0000 0 1532 003537 4400 TYMOVE 1533 003540 4342 MOVER, JMS .+2 1534 003541 5202 JMP REPOSI+2 1535 003542 5342 JMP . 1536 003543 4467 JMS I ERRSTP 1537 003544 4737 JMS I MOVER-1 /TYMOVE 1538 003545 6772 IOT 772 1539 003546 3336 DCA MOVER-2 1540 003547 1335 TAD MOVER-3 1541 003550 4506 JMS I TYPCON 1542 003551 4507 JMS I TYPTEX 1543 003552 0063 63 1544 003553 6441 6441 1545 003554 6400 6400 1546 003555 4277 4277 1547 003556 7604 LAS 1548 003557 0154 AND K6000 1549 003560 7650 SNA CLA 1550 003561 7402 HLT 1551 003562 5742 JMP I MOVER+2 1552 1553 *3600 1554 003600 5200 SEARCH, JMP . 1555 003601 7300 CLA CLL 1556 003602 1076 TAD DIRFLG 1557 003603 7640 SZA CLA 1558 003604 7120 STL 1559 003605 1125 TAD K0003 1560 003606 7420 SNL 1561 003607 7041 CMA IAC 1562 003610 1040 TAD RECORD 1563 003611 7041 CMA IAC 1564 003612 3156 DCA TAPONT 1565 003613 1076 TAD DIRFLG 1566 003614 7650 SNA CLA 1567 003615 1137 TAD K0400 1568 003616 1126 TAD K0214 1569 003617 1046 TAD UNFUNC 1570 003620 6766 IOT 766 1571 003621 1042 TAD IDCON 1572 003622 3444 DCA I CALOC 1573 003623 7040 CMA 1574 003624 3157 DCA BLKFLG 1575 003625 4466 JMS I WAITI 1576 003626 0001 1 1577 003627 5326 JMP SREZTS 1578 003630 4263 JMS SRCONT 1579 003631 5235 JMP SRTARN 1580 003632 5235 JMP SRTARN 1581 003633 6764 IOT 764 1582 003634 5225 JMP .-7 1583 003635 6761 SRTARN, IOT 761 1584 003636 7040 CMA 1585 003637 0113 AND K0200 1586 003640 1137 TAD K0400 1587 003641 6764 IOT 764 1588 003642 1040 TAD RECORD 1589 003643 7041 CMA IAC 1590 003644 3156 DCA TAPONT 1591 003645 7040 CMA 1592 003646 3157 DCA BLKFLG 1593 003647 4466 JMS I WAITI 1594 003650 0001 1 1595 003651 5555 JMP I SRCHER 1596 003652 4263 JMS SRCONT 1597 003653 5600 JMP I SEARCH 1598 003654 5555 JMP I SRCHER 1599 003655 7040 CMA 1600 003656 1157 TAD BLKFLG 1601 003657 7650 SNA CLA 1602 003660 5355 JMP SRCMOD 1603 003661 6764 IOT 764 1604 003662 5247 JMP .-13 1605 003663 5263 SRCONT, JMP . 1606 003664 2157 ISZ BLKFLG 1607 003665 7410 SKP 1608 003666 5302 JMP SRFBLK 1609 003667 6761 IOT 761 1610 003670 0137 AND K0400 1611 003671 7640 SZA CLA 1612 003672 7040 CMA 1613 003673 7450 SNA 1614 003674 7001 IAC 1615 003675 1160 TAD PREBLK 1616 003676 7041 CMA IAC 1617 003677 1041 TAD BLKFND 1618 003700 7640 SZA CLA 1619 003701 5555 JMP I SRCHER 1620 003702 1041 SRFBLK, TAD BLKFND 1621 003703 3160 DCA PREBLK 1622 003704 1041 TAD BLKFND 1623 003705 1156 TAD TAPONT 1624 003706 7450 SNA 1625 003707 5663 JMP I SRCONT 1626 003710 2263 ISZ SRCONT 1627 003711 7100 CLL 1628 003712 7710 SPA CLA 1629 003713 7120 STL 1630 003714 6761 IOT 761 1631 003715 0137 AND K0400 1632 003716 7430 SZL 1633 003717 5323 JMP .+4 1634 003720 7640 SZA CLA 1635 003721 2263 ISZ SRCONT 1636 003722 5663 JMP I SRCONT 1637 003723 7650 SNA CLA 1638 003724 2263 ISZ SRCONT 1639 003725 5663 JMP I SRCONT 1640 003726 6772 SREZTS, IOT 772 1641 003727 0131 AND EZBIT 1642 003730 7650 SNA CLA 1643 003731 5555 JMP I SRCHER 1644 003732 1156 TAD TAPONT 1645 003733 7500 SMA 1646 003734 5340 JMP .+4 1647 003735 1153 TAD K2701 1648 003736 7700 SMA CLA 1649 003737 5352 JMP .+13 1650 003740 7604 LAS 1651 003741 7010 RAR 1652 003742 7620 SNL CLA 1653 003743 5235 JMP SRTARN 1654 003744 1113 TAD K0200 1655 003745 6764 IOT 764 1656 003746 4466 JMS I WAITI 1657 003747 5000 5000 1658 003750 5555 JMP I SRCHER 1659 003751 5235 JMP SRTARN 1660 003752 2157 ISZ BLKFLG 1661 003753 5555 JMP I SRCHER 1662 003754 5235 JMP SRTARN 1663 003755 1041 SRCMOD, TAD BLKFND 1664 003756 7041 CMA IAC 1665 003757 1040 TAD RECORD 1666 003760 7500 SMA 1667 003761 7041 CMA IAC 1668 003762 3443 DCA I WCLOC 1669 003763 1135 TAD K0100 1670 003764 6764 IOT 764 1671 003765 4466 JMS I WAITI 1672 003766 0001 1 1673 003767 5555 JMP I SRCHER 1674 003770 1041 TAD BLKFND 1675 003771 7041 CMA IAC 1676 003772 1040 TAD RECORD 1677 003773 7640 SZA CLA 1678 003774 5555 JMP I SRCHER 1679 003775 1135 TAD K0100 1680 003776 6764 IOT 764 1681 003777 5600 JMP I SEARCH 1682 1683 *4000 1684 004000 4467 SRHERR, JMS I ERRSTP 1685 004001 4545 JMS I SRCHTY 1686 004002 1071 TAD RECRDK 1687 004003 4506 JMS I TYPCON 1688 004004 4507 JMS I TYPTEX 1689 004005 0042 42 1690 004006 5457 5457 1691 004007 4353 4353 1692 004010 0067 67 1693 004011 4156 4156 1694 004012 6445 6445 1695 004013 4400 4400 1696 004014 7700 7700 1697 004015 1076 TAD DIRFLG 1698 004016 7650 SNA CLA 1699 004017 5222 JMP .+3 1700 004020 4714 JMS I BACKTY 1701 004021 7410 SKP 1702 004022 4715 JMS I FORDTY 1703 004023 1042 TAD IDCON 1704 004024 4506 JMS I TYPCON 1705 004025 4507 JMS I TYPTEX 1706 004026 0042 42 1707 004027 5457 5457 1708 004030 4353 4353 1709 004031 0046 46 1710 004032 5765 5765 1711 004033 5644 5644 1712 004034 7700 7700 1713 004035 7040 CMA 1714 004036 1710 TAD I SEKONS 1715 004037 7710 SPA CLA 1716 004040 5252 JMP .+12 1717 004041 1311 TAD SEKONS+1 1718 004042 4506 JMS I TYPCON 1719 004043 4507 JMS I TYPTEX 1720 004044 0054 54 1721 004045 4163 4163 1722 004046 6400 6400 1723 004047 4254 4254 1724 004050 5743 5743 1725 004051 5377 5377 1726 004052 2710 ISZ I SEKONS 1727 004053 7000 NOP 1728 004054 1310 TAD SEKONS 1729 004055 4506 JMS I TYPCON 1730 004056 4507 JMS I TYPTEX 1731 004057 0042 42 1732 004060 5457 5457 1733 004061 4353 4353 1734 004062 6300 6300 1735 004063 6245 6245 1736 004064 4144 4144 1737 004065 7700 7700 1738 004066 6772 IOT 772 1739 004067 3313 DCA SEKONS+3 1740 004070 1312 TAD SEKONS+2 1741 004071 4506 JMS I TYPCON 1742 004072 4507 JMS I TYPTEX 1743 004073 0063 63 1744 004074 6441 6441 1745 004075 6400 6400 1746 004076 4277 4277 1747 004077 7604 LAS 1748 004100 0154 AND K6000 1749 004101 7650 SNA CLA 1750 004102 7402 HLT 1751 004103 2151 ISZ PASFLG 1752 004104 5707 JMP I .+3 1753 004105 5706 JMP I .+1 1754 004106 3601 SEARCH+1 1755 004107 0525 REWDRV 1756 004110 0157 SEKONS, BLKFLG 1757 004111 0160 PREBLK 1758 004112 4113 .+1 1759 004113 0000 0 1760 004114 4547 BACKTY, TYBKW 1761 004115 4557 FORDTY, TYFWD 1762 1763 *4200 1764 004200 5200 TYTEXT, JMP . 1765 004201 7200 CLA 1766 004202 1600 TAD I TYTEXT 1767 004203 7040 CMA 1768 004204 3320 DCA TXSTOR 1769 004205 2200 ISZ TYTEXT 1770 004206 1320 TAD TXSTOR 1771 004207 7440 SZA 1772 004210 5213 JMP .+3 1773 004211 4250 JMS CRLFLF 1774 004212 5201 JMP TYTEXT+1 1775 004213 0127 AND K7700 1776 004214 7450 SNA 1777 004215 5600 JMP I TYTEXT 1778 004216 7012 RTR 1779 004217 7012 RTR 1780 004220 7012 RTR 1781 004221 4230 JMS TYCHAR 1782 004222 1320 TAD TXSTOR 1783 004223 0134 AND K0077 1784 004224 7450 SNA 1785 004225 5600 JMP I TYTEXT 1786 004226 4230 JMS TYCHAR 1787 004227 5201 JMP TYTEXT+1 1788 004230 5230 TYCHAR, JMP . 1789 004231 3247 DCA CRLFLF-1 1790 004232 7604 LAS 1791 004233 7710 SPA CLA 1792 004234 5630 JMP I TYCHAR 1793 004235 1247 TAD CRLFLF-1 1794 004236 7040 CMA 1795 004237 0134 AND K0077 1796 004240 1136 TAD K0240 1797 004241 6046 TLS 1798 004242 6041 TSF 1799 004243 5242 JMP .-1 1800 004244 7200 CLA 1801 004245 6042 TCF 1802 004246 5630 JMP I TYCHAR 1803 004247 0000 0 1804 004250 5250 CRLFLF, JMP . 1805 004251 7604 LAS 1806 004252 7710 SPA CLA 1807 004253 5650 JMP I CRLFLF 1808 004254 1270 TAD K0215 1809 004255 6046 TLS 1810 004256 6041 TSF 1811 004257 5256 JMP .-1 1812 004260 7200 CLA 1813 004261 1271 TAD K0212 1814 004262 6046 TLS 1815 004263 6041 TSF 1816 004264 5263 JMP .-1 1817 004265 6042 TCF 1818 004266 7200 CLA 1819 004267 5650 JMP I CRLFLF 1820 004270 0215 K0215, 0215 1821 004271 0212 K0212, 0212 1822 004272 5272 TYCONT, JMP . 1823 004273 3320 DCA TXSTOR 1824 004274 1720 TAD I TXSTOR 1825 004275 3320 DCA TXSTOR 1826 004276 4250 JMS CRLFLF 1827 004277 4304 JMS TYCOVR 1828 004300 4304 JMS TYCOVR 1829 004301 4304 JMS TYCOVR 1830 004302 4304 JMS TYCOVR 1831 004303 5672 JMP I TYCONT 1832 004304 5304 TYCOVR, JMP . 1833 004305 1320 TAD TXSTOR 1834 004306 7006 RTL 1835 004307 7004 RAL 1836 004310 3320 DCA TXSTOR 1837 004311 1320 TAD TXSTOR 1838 004312 7004 RAL 1839 004313 0120 AND K0007 1840 004314 1133 TAD K0020 1841 004315 7040 CMA 1842 004316 4230 JMS TYCHAR 1843 004317 5704 JMP I TYCOVR 1844 004320 0000 TXSTOR, 0 1845 004321 5321 ERSTP, JMP . 1846 004322 6761 IOT 761 1847 004323 0113 AND K0200 1848 004324 1125 TAD K0003 1849 004325 6764 IOT 764 1850 004326 5721 JMP I ERSTP 1851 1852 *4400 1853 004400 5000 TYMOVE, JMP 1854 004401 4311 JMS TYDRV 1855 004402 4507 JMS I TYPTEX 1856 004403 7777 7777 1857 004404 5557 5557 1858 004405 6645 6645 1859 004406 0077 0077 1860 004407 4340 JMS TYDIR 1861 004410 5600 JMP I TYMOVE 1862 004411 5211 TYSRCH, JMP . 1863 004412 4311 JMS TYDRV 1864 004413 4507 JMS I TYPTEX 1865 004414 6345 6345 1866 004415 4162 4162 1867 004416 4350 4350 1868 004417 0077 0077 1869 004420 4340 JMS TYDIR 1870 004421 4365 JMS TYMODE 1871 004422 5611 JMP I TYSRCH 1872 004423 5223 TYRDAT, JMP . 1873 004424 4311 JMS TYDRV 1874 004425 4257 JMS TYREAD 1875 004426 4274 JMS TYDATA 1876 004427 4340 JMS TYDIR 1877 004430 4365 JMS TYMODE 1878 004431 5623 JMP I TYRDAT 1879 004432 5232 TYRALL, JMP . 1880 004433 4311 JMS TYDRV 1881 004434 4257 JMS TYREAD 1882 004435 4303 JMS TYALL 1883 004436 4340 JMS TYDIR 1884 004437 4365 JMS TYMODE 1885 004440 5632 JMP I TYRALL 1886 004441 5241 TYWDAT, JMP . 1887 004442 4311 JMS TYDRV 1888 004443 4265 JMS TYWRIT 1889 004444 4274 JMS TYDATA 1890 004445 4340 JMS TYDIR 1891 004446 4365 JMS TYMODE 1892 004447 5641 JMP I TYWDAT 1893 004450 5250 TYWALL, JMP . 1894 004451 4311 JMS TYDRV 1895 004452 4265 JMS TYWRIT 1896 004453 4303 JMS TYALL 1897 004454 4340 JMS TYDIR 1898 004455 4365 JMS TYMODE 1899 004456 5650 JMP I TYWALL 1900 004457 5257 TYREAD, JMP . 1901 004460 4507 JMS I TYPTEX 1902 004461 6245 6245 1903 004462 4144 4144 1904 004463 0077 0077 1905 004464 5657 JMP I TYREAD 1906 004465 5265 TYWRIT, JMP . 1907 004466 4507 JMS I TYPTEX 1908 004467 6762 6762 1909 004470 5164 5164 1910 004471 4500 4500 1911 004472 7700 7700 1912 004473 5665 JMP I TYWRIT 1913 004474 5274 TYDATA, JMP . 1914 004475 4507 JMS I TYPTEX 1915 004476 0000 0 1916 004477 4441 4441 1917 004500 6441 6441 1918 004501 0077 0077 1919 004502 5674 JMP I TYDATA 1920 004503 5303 TYALL, JMP . 1921 004504 4507 JMS I TYPTEX 1922 004505 4154 4154 1923 004506 5400 5400 1924 004507 7700 7700 1925 004510 5703 JMP I TYALL 1926 004511 5311 TYDRV, JMP . 1927 004512 7604 LAS 1928 004513 7710 SPA CLA 1929 004514 5711 JMP I TYDRV 1930 004515 4507 JMS I TYPTEX 1931 004516 7777 7777 1932 004517 7777 7777 1933 004520 4462 4462 1934 004521 5166 5166 1935 004522 4500 4500 1936 004523 0077 0077 1937 004524 1045 TAD CDRIVE 1938 004525 7450 SNA 1939 004526 1132 TAD K0010 1940 004527 1142 TAD K260 1941 004530 6046 TLS 1942 004531 6041 TSF 1943 004532 5331 JMP .-1 1944 004533 6042 TCF 1945 004534 4507 JMS I TYPTEX 1946 004535 7777 7777 1947 004536 7700 7700 1948 004537 5711 JMP I TYDRV 1949 004540 5340 TYDIR, JMP . 1950 004541 6761 IOT 761 1951 004542 0137 AND K0400 1952 004543 7650 SNA CLA 1953 004544 5355 JMP TYFWD-2 1954 004545 4347 JMS TYBKW 1955 004546 5740 JMP I TYDIR 1956 004547 5347 TYBKW, JMP . 1957 004550 4507 JMS I TYPTEX 1958 004551 4253 4253 1959 004552 6744 6744 1960 004553 0077 0077 1961 004554 5747 JMP I TYBKW 1962 004555 4357 JMS TYFWD 1963 004556 5740 JMP I TYDIR 1964 004557 5357 TYFWD, JMP . 1965 004560 4507 JMS I TYPTEX 1966 004561 4667 4667 1967 004562 4400 4400 1968 004563 7700 7700 1969 004564 5757 JMP I TYFWD 1970 004565 5365 TYMODE, JMP . 1971 004566 6761 IOT 761 1972 004567 0135 AND K0100 1973 004570 7650 SNA CLA 1974 004571 5765 JMP I TYMODE 1975 004572 4507 JMS I TYPTEX 1976 004573 4300 4300 1977 004574 5557 5557 1978 004575 4445 4445 1979 004576 0077 0077 1980 004577 5765 JMP I TYMODE 1981 $ ACSAVE 3127 BACKTY 4114 BF1LOC 0075 BF2LOC 0103 BLKFLG 0157 BLKFND 0041 BUFFRS 7175 CALCTY 2670 CALOC 0044 CDRIVE 0045 CHNGDR 3437 CKSERR 2560 CKSTYP 2657 CKSUMR 2564 COCNTR 0072 CODATA 1225 CODEX 1255 COERR1 1313 COERRO 1261 COLOOP 1243 COMBIT 0050 COMSTR 0755 CORT1R 1442 CRLFLF 4250 CSECON 2701 DATACO 0065 DATAMV 0070 DATASM 2561 DIRECT 0052 DIRFLG 0076 DIRTBL 1044 DRIVTY 0130 unreferenced ERRCKS 2600 ERRRAR 2707 ERRSTP 0067 ERSTP 4321 EXIST 1025 EZBIT 0131 FORDTY 4115 FRSWAT 0162 FWDCHK 2562 GENDEX 0675 GENPAT 0061 GENRAN 0735 GETRED 0570 GNPATR 0626 GNPTRS 3461 IDCON 0042 IRECD 3034 ISZTST 3200 JMRETU 3321 JMSKON 3352 JMSLOC 3351 JMSTST 3300 K0002 0152 unreferenced K0003 0125 K0007 0120 K0010 0132 K0020 0133 K0030 0116 K0037 0111 K0040 0114 unreferenced K0050 0150 K0070 0123 K0077 0134 K0100 0135 K0120 2574 K0130 2113 K0150 2301 K0200 0113 K0212 4271 K0214 0126 K0215 4270 K0240 0136 K0400 0137 K0604 0140 K0614 0115 unreferenced K0700 0122 K1000 0131 K16 0141 unreferenced K260 0142 K2701 0153 K3777 0143 K4000 0121 K5075 0146 K5076 0147 K6000 0154 K7000 0124 K7175 2300 K7571 2575 K7577 0117 K7600 0543 K7600X 3353 K7700 0127 K7760 0110 K7763X 3354 K7772Y 3141 K7774 1354 K7779 0112 unreferenced LKSAVE 3126 LSTBLK 0053 LSTDRV 0054 LSTTBL 1045 MCOMOB 0703 MIN4 0753 MIN60 0754 MOFPR1 0235 MOFPRO 0221 MOVDEX 1222 MOVER 3540 MSBITS 0047 MVDATA 1200 NBIT8 3500 NDOFRD 1725 NDPTST 3350 NDTSKP 3055 NEWDRV 0057 NUMBLK 0077 PASFLG 0151 PATGEN 0600 PICNTR 3142 PIDEX1 3143 PIDEX2 3144 PIRTBL 3154 PITBL 3145 PNTRS 3501 POSITN 0051 POSTBL 1043 PRAN1 3346 PRAN2 3347 PREBLK 0160 PREGEN 0547 PTSTND 3064 PTSTNS 3104 RADCHK 2512 RADLOC 2576 RAEFLG 2577 RALLTS 2400 RANBFR 6774 RANDEX 0200 RANGEN 0062 RANN0 0751 RANSEL 1000 RANVAR 0752 RARERR 2570 RASERR 2571 RBFLOC 0074 RBFWD2 0102 RBUFND 0100 RBUFST 0073 RDBUF1 1632 RDCERR 2075 RDCMOD 2000 RDDATA 0400 RDSEQ 1600 RDTAB 0304 READ1 0063 READ2 0104 READ2A 0105 READTY 0144 RECORD 0040 RECRDK 0071 REGENP 0064 REPOSI 3400 REREAD 0420 REREDA 0470 RESETD 3017 RETJMP 3355 RETUJM 0161 REVCHK 2563 REWCK 1517 REWDRV 0525 REWIND 0056 ROT1TS 3222 ROT2TS 3236 RPATO 0700 RSFDR1 3435 RSFDRV 3417 RSQFLG 0350 SAMDRV 0325 SAVNUM 1570 SBRECD 3130 SEARCH 3600 SEKONS 4110 SELGEN 1046 SELRAN 0060 SELVAR 1061 SETIDX 3131 SRCHER 0155 SRCHIT 0055 SRCHTY 0145 SRCMOD 3755 SRCONT 3663 SREZTS 3726 SRFBLK 3702 SRHERR 4000 SRTARN 3635 SWCMDL 2223 SWCMOD 2212 TADTST 3252 unreferenced TAPONT 0156 TEMP1 3341 TEMP2 3342 TEMP3 3343 TEMP4 3344 TEMP5 3345 TRECTR 2277 TXSTOR 4320 TYALL 4503 TYBKW 4547 TYCHAR 4230 TYCONT 4272 TYCOVR 4304 TYDATA 4474 TYDIR 4540 TYDRV 4511 TYFWD 4557 TYMODE 4565 TYMOVE 4400 TYPCON 0106 TYPTEX 0107 TYRALL 4432 TYRDAT 4423 TYREAD 4457 TYSRCH 4411 TYTEXT 4200 TYWALL 4450 TYWDAT 4441 TYWRIT 4465 UNFUNC 0046 WAITI 0066 WATINT 3000 WCLOC 0043 WDCERR 2253 WDCMOD 2200 WDINC 1503 WRITE1 1400 WRITES 0324 WRT1A 1455 WRTDTY 0101 WSTERR 1526 WTCNTR 3125 WTKON1 3123 WTKON2 3124 XORSAV 2565 XORSUM 2531