1 /FAMILY OF 8 3040 DIAGNOSTIC 09/12/73 2 3 /SYSTEM INDUSTRIES, INC. 4 /535 DEL RY AVENUE 5 /SUNNYVALE, CALIFORNIA 94086 6 7 /WVDMARK NEW SOURCE AND COMMENTS 2011-10-01 8 9 /STARTING ADDRESS: 200 10 /CORE: 0-5777 11 12 *0 13 00000 0000 INTENT, 0 14 00001 4402 JMS I .+1 15 00002 5256 ILTRP 16 /EQUALS TABLE 17 SKON=6000 18 IOT=6000 19 ION=6001 20 IOF=6002 21 SRQ=6003 22 CAF=6007 23 24 DSKDAT=5400 25 BUF1=5500 26 BUF2=6400 27 /LAI51=FRM51 28 29 DSDD=6001 /SKIP DISK DONE 30 DLCR=6002 /LOAD CONTROL 31 DRCR=6003 /READ CONTROL 32 DCSR=6004 /CLEAR STATUS 33 DRSR=6005 /READ STATUS 34 DLSS=6006 /LOAD SEEK AND STRT OVERLAP SEEK 35 DRSS=6007 /READ SEEK STATUS 36 DSDE=6011 /SKIP ERROR 37 DLSR=6012 /LOAD SECTOR ADDRESS 38 DSRR=6013 /READ SECTOR ADDRESS 39 DLTR=6014 /LOAD TRACK ADDRESS AND READ 40 DLTW=6015 /LOAD TRACK ADDRESS AND WRITE 41 DRTR=6016 /READ TRACK ADDRESS 42 DWCA=6017 /INITIATE WORD COUNT AND CURRENT ADDRESS 43 44 *20 45 /PAGE ZERO-DATA TRANSFER LOCATIONS 46 00020 0000 DATA1, 0 /R-W CONTROL 47 00021 0000 0 /WAIT TIME 48 00022 0000 0 /ERROR VALUE 49 00023 0000 0 /0=DO NOT CK. SAR 50 00024 0000 0 /0=CK. DATA 51 00025 0000 EXOLS1, 0 52 00026 6006 DLSS 53 /PAGE ZERO-CONTROL SETTINGS 54 00027 0000 WCCA, 0 55 00030 6400 BUF2 56 00031 0000 SECTOR, 0 57 00032 0000 0 /SECTOR BACKUP 58 00033 0000 TRACK, 0 59 00034 0000 0 /TRACK BACKUP 60 00035 0000 BLOCKS, 0 / 61 00036 0000 TYPDSK, 0 /0=MOVING, 1=FIXED DISK - UNIT AREA -- FROM HERE 62 00037 0000 MAXTSC, 0 /MAX SECTORS HO 63 00040 0000 0 /LO 64 00041 0000 MAXTTR, 0 65 00042 0000 MAXRSC, 0 /MAX SECTORS HO 66 00043 0000 0 /LO 67 00044 0000 MAXRTR, 0 /MAX TRACK FROM PARAMETER ROUTINE 68 00045 0000 FULL, 0 /FULL DISK = 0 69 00046 0000 UNIT, 0 70 00047 0000 DAISY, 0 /2000 IF FIXED 71 00050 0000 DAIVAL, 0 /2000 IF REMOVABLE - UNIT AREA -- TO HERE 72 00051 0400 SINSEC, 400 73 00052 0600 MULSEC, 600 74 00053 0004 NUMSEC, 4 75 00054 0000 MAXSEC, 0 76 00055 0000 0 77 00056 0000 MAXTRK, 0 78 00057 0000 ADDRES, 0 79 00060 0000 ERRFLG, 0 80 00061 0000 ERRFL1, 0 81 00062 0000 ERRNUM, 0 82 00063 0000 PORTS, 0 83 00064 0000 PASS1, 0 84 00065 0000 LPFORM, 0 /FORMAT SWITCH 85 /PAGE ZERO-IOT ROUTINE LOCATIONS 86 00066 4702 CLSTAT, EXCLST /CLEAR STATUS REGISTER 87 00067 4713 SKPDON, EXSKDN /SKIP DONE WITH TIMEOUT 88 00070 4360 RDSTAT, EXRDST /READ STATUS REGISTER 89 00071 4370 RDTRAD, EXRDTR /READ TRACK ADDRESS 90 00072 3764 RDSEC, EXRDSC 91 00073 3746 LDCON, EXLCON 92 00074 0343 LDTARD, EXLTAR 93 00075 2361 LDTAWR, EXLTAW 94 00076 3563 LDSEC, EXLSEC 95 00077 3553 RDSSR, EXRDSS 96 00100 3363 IOLS, EXOLS 97 00101 3352 IWCCA, EXIWC 98 /PAGE ZERO-SUBROUTINE CALLS 99 00102 4600 TYPERR, EXTERR 100 00103 4543 HLTLP, EXHLTP /HALT? FIRST RETURN REPEAT, SECOND CONTINUE 101 00104 4646 TYPDAT, EXTDAT 102 00105 4500 TYPADD, EXTADD 103 00106 4507 SECADD, EXSCAD 104 00107 4634 WRITE, EXWR 105 00110 4641 READ, EXRD 106 00111 1550 MOVE12, EXM12 107 00112 5343 CLR2, EXCL2 108 00113 4314 TYPDIS, EXTDIS 109 00114 4327 TYPENA, EXTENA 110 00115 4400 TYPTEX, EXTEX 111 00116 5000 TYPSTB, EXTSTB 112 00117 5025 TYPSTI, EXTSTI 113 00120 5061 TYPSRI, EXTSRI 114 00121 5035 TYPSRB, EXTSRB 115 00122 5117 TYPCNI, EXTCNI 116 00123 4455 CRLF, EXCRLF 117 00124 4471 TYPQQ, EXTQQ 118 00125 5207 TYPWD, EXTWD 119 00126 5200 TYPCHK, EXTCHK 120 00127 5164 TYPSB, EXTSB 121 00130 5171 TYPIS, EXTIS 122 00131 5125 TYPTAB, EXTAB 123 00132 5067 TYPCNB, EXTCNB 124 00133 5145 TYPSCB, EXTSCB 125 00134 4734 TYPUN, EXTUN 126 00135 4136 TYPON, EXTON 127 00136 1144 CLRMOV, EXCLMV 128 00137 4143 CLR1, EXCL1 /FILL LAST WCCA-2 WORDS OF BUF1 WITH 0'S FOLLOWED BY ONE 6666 129 00140 0305 PEXEC2, EXEC2 /MOVE ROUTINE 130 00141 4167 TYPLAS, EXLAS /READ SWITCH INTO SWR AND PRINT 131 00142 6017 EXIWC1, DWCA 132 00143 0027 WCCA 133 LAI51, 134 00144 0000 FRM51, 0 135 00145 0000 0 136 00146 0000 0 137 00147 3577 3577 138 00150 0000 SWR, 0 /SWITCH VALUE 139 00151 7777 M1, 7777 140 NL0002=CLA CLL CML RTL 141 00152 2366 NL0003=JMS I . ; LDTHRE 142 00153 2372 NL0004=JMS I . ; LDFOUR 143 00154 0000 TEMP, 0 144 00155 5365 PWAIT, WAIT 145 00156 7760 CNT, 7760 146 00157 0000 TEMP1, 0 147 148 *200 149 /EXECUTIVE ROUTINE FOR FAMILY OF 8 COMPUTERS 150 00200 4726 EXEC, JMS I EXEC1 /CALLS PARAM INPUT ROUTINE 151 00201 4727 JMS I EXEC1+1 /CALLS CERTST TEST 1. REGISTER 152 00202 4730 JMS I EXEC1+2 /CALLS INTST TEST 2. INTERRUPT 153 00203 4731 JMS I EXEC1+3 /CALLS WCTST TEST 3. WCCA 154 00204 7200 CLA 155 00205 1332 TAD EXEC1+4 /GETS DSKDAT-1 156 00206 3212 DCA EXEC21 157 00207 1063 TAD PORTS 158 00210 3334 DCA EXEC3+1 /SAVE IN LIST 159 00211 4305 JMS EXEC2 /MOVE 160 00212 0000 EXEC21, 0 /FROM 161 00213 0035 TYPDSK-1 /TO 162 00214 0013 13 /COUNT 163 00215 4534 JMS I TYPUN 164 00216 4523 JMS I CRLF 165 00217 4305 JMS EXEC2 166 00220 0041 MAXRSC-1 167 00221 0053 MAXSEC-1 168 00222 0003 3 169 00223 4733 JMS I EXEC3 /LAITST TEST 4. LOGICAL ADDRESS INTERLOCK AND OVERLAP SEEK 170 00224 4305 JMS EXEC2 171 00225 0036 MAXTSC-1 172 00226 0053 MAXSEC-1 173 00227 0003 3 174 00230 1036 TAD TYPDSK /FIXED DISK? 175 00231 7640 SZA CLA 176 00232 5237 JMP .+5 /YES, SKIP 177 00233 1064 TAD PASS1 178 00234 1065 TAD LPFORM /FORMAT? 179 00235 7640 SZA CLA 180 00236 4735 JMS I EXEC3+2 /GO THERE - FRMTST TESTS 5. 181 00237 4736 JMS I EXEC3+3 /WRB11 TESTS 6. 182 00240 0115 115 /ERRNO 183 00241 0000 0 184 00242 0000 0 185 00243 0000 0 186 00244 0004 4 187 00245 7200 CLA 188 00246 1064 TAD PASS1 189 00247 1065 TAD LPFORM 190 00250 7640 SZA CLA 191 00251 4737 JMS I EXEC4 /SABTST 192 00252 4740 JMS I EXEC4+1 /RANTST 193 00253 4741 JMS I EXEC4+2 /BDATST 194 00254 4742 JMS I EXEC4+3 /MDATST 195 00255 7200 CLA 196 00256 1047 TAD DAISY 197 00257 7650 SNA CLA 198 00260 5270 JMP EXEC5+1 199 00261 1050 TAD DAIVAL 200 00262 7640 SZA CLA 201 00263 5267 JMP EXEC5 202 00264 7132 STL RTR 203 00265 3050 DCA DAIVAL 204 00266 5215 JMP EXEC21+3 205 206 00267 3050 EXEC5, DCA DAIVAL 207 00270 1212 TAD EXEC21 208 00271 1214 TAD EXEC21+2 209 00272 3212 DCA EXEC21 /NEXT UNIT 210 00273 2334 ISZ EXEC3+1 211 00274 5211 JMP EXEC21-1 /MORE UNITS 212 00275 1064 TAD PASS1 /FIRST PASS? 213 00276 7650 SNA CLA 214 00277 5201 JMP EXEC+1 215 00300 3064 DCA PASS1 216 00301 1065 TAD LPFORM 217 00302 7650 SNA CLA 218 00303 4513 JMS I TYPDIS /TURN SWITCH OFF! 219 00304 5201 JMP EXEC+1 220 221 00305 0000 EXEC2, 0 /MOVE INFO FOR UNIT 222 00306 1705 TAD I EXEC2 223 00307 3010 DCA 10 224 00310 2305 ISZ EXEC2 225 00311 1705 TAD I EXEC2 226 00312 3011 DCA 11 227 00313 2305 ISZ EXEC2 228 00314 1705 TAD I EXEC2 229 00315 7041 CIA 230 00316 3325 DCA EXEC22 231 00317 2305 ISZ EXEC2 232 00320 1410 TAD I 10 233 00321 3411 DCA I 11 234 00322 2325 ISZ EXEC22 235 00323 5320 JMP .-3 236 00324 5705 JMP I EXEC2 237 00325 0000 EXEC22, 0 238 00326 3600 EXEC1, PARAM 239 00327 0400 CERTST 240 00330 3525 INTST 241 00331 0545 WCTST 242 00332 5377 DSKDAT-1 243 00333 2600 EXEC3, LAITST /TESTS 4. FORMAT 244 00334 0000 0 /PORTS 245 00335 2400 FRMTST /TESTS 5. FORMAT 246 00336 1600 WRB11 /TESTS 6. TWO WORD WRITE/READ 247 00337 2000 EXEC4, SABTST /TESTS 7. SEEK ALL BLOCKS 248 00340 2242 RANTST /TESTS 8. RANDOM SEEK 249 00341 2200 BDATST /TESTS 9. SINGLE BLOCK WRITE/READ 250 00342 0713 MDATST /TESTS 10. MULTIPLE SECTOR WRITE/READ 251 00343 0000 EXLTAR, 0 /LOAD TAR AND INITIATE A READ 252 00344 7200 CLA /AC=0=READ 253 00345 4347 JMS EXLTA 254 00346 5743 JMP I EXLTAR 255 00347 0000 EXLTA, 0 /LOAD TAR AND INITIATE READ OR WRITE 256 00350 1057 TAD ADDRES /AC=0=READ, AC=1=WRITE 257 00351 1360 TAD EXLTA1+3/DLTR, DLTW = DLTR+1 258 00352 3355 DCA EXLTA1 259 00353 1050 TAD DAIVAL 260 00354 1033 TAD TRACK 261 00355 0000 EXLTA1, 0 262 00356 7200 CLA 263 00357 5747 JMP I EXLTA 264 00360 6014 DLTR 265 266 *400 267 /CONTROL-STATUS REGISTER TEST-SECTOR REGISTER-SKP DONE 268 00400 0000 CERTST, 0 269 00401 7301 CLA CLL IAC 270 00402 4702 JMS I CER1 /REGTRT 271 00403 6002 DLCR 272 00404 6003 DRCR 273 00405 7177 7177 /MASK BITS 3,4 UNUSED 274 00406 5067 EXTCNB /TYPOUT ERROR ROUTINE 275 00407 0001 1 /ERRNO 1 276 00410 5202 JMP .-6 277 00411 4703 JMS I CER1+1 /REGRES 278 00412 6003 DRCR 279 00413 0143 0143 /SHOULD RESET INTENA,FMTENA,BUSY,DONE 280 00414 5067 EXTCNB 281 00415 0002 2 /ERRNO 2 282 00416 5210 JMP .-6 283 00417 7004 RAL 284 00420 7420 SNL 285 00421 5202 JMP CERTST+2 286 00422 7004 RAL 287 00423 4255 JMS CER4 288 00424 4467 CER2, JMS I SKPDON 289 00425 5232 JMP CER3 /DSDD SKIPPED 290 00426 7200 CLA 291 00427 1304 TAD CER1+2 /ERRNO 212 292 00430 4502 JMS I TYPERR 293 00431 4517 JMS I TYPSTI 294 00432 4503 CER3, JMS I HLTLP 295 00433 5224 JMP CER2 296 00434 4266 JMS CER41 297 00435 7326 NL0002 298 00436 4255 JMS CER4 299 00437 4266 JMS CER41 300 00440 7301 CLA CLL IAC 301 00441 4702 CER5, JMS I CER1 302 00442 6012 DLSR 303 00443 6013 DSRR 304 00444 0017 17 305 00445 5145 EXTSCB 306 00446 0213 213 /ERRNO 213 307 00447 5241 JMP .-6 308 00450 7004 RAL 309 00451 0244 AND .-5 310 00452 7440 SZA 311 00453 5241 JMP CER5 312 00454 5600 JMP I CERTST 313 00455 0000 CER4, 0 314 00456 4702 JMS I CER1 315 00457 6002 DLCR 316 00460 6005 DRSR 317 00461 7777 7777 318 00462 5000 EXTSTB 319 00463 0210 210 /ERRNO 210 320 00464 5256 JMP CER4+1 321 00465 5655 JMP I CER4 322 00466 0000 CER41, 0 323 00467 4466 JMS I CLSTAT 324 00470 4470 JMS I RDSTAT 325 00471 7650 SNA CLA 326 00472 5277 JMP .+5 327 00473 7040 CMA 328 00474 1304 TAD CER1+2 /ERRNO 211 329 00475 4502 JMS I TYPERR 330 00476 4517 JMS I TYPSTI 331 00477 4503 JMS I HLTLP 332 00500 5267 JMP CER41+1 333 00501 5666 JMP I CER41 334 00502 3443 CER1, REGTRT 335 00503 0505 REGRES 336 00504 0212 212 337 /REGISTER RESET TEST - SAVES AC - WD1=RDIOT, 338 /WD2= ERR MASK, WD3=TYPOUT, WDA=ERRNO 339 00505 0000 REGRES, 0 340 00506 3344 DCA REGR1 341 00507 1705 TAD I REGRES /GET RDIOT 342 00510 2305 ISZ REGRES 343 00511 1057 TAD ADDRES 344 00512 3316 DCA REGR2 345 00513 6000 SKON 346 00514 5317 JMP .+3 347 00515 6007 CAF 348 00516 0000 REGR2, 0 /EXECUTE HERE 349 00517 6001 ION 350 00520 0705 AND I REGRES 351 00521 2305 ISZ REGRES 352 00522 7650 SNA CLA /READ = VALUE? 353 00523 5334 JMP REGR3 354 00524 1705 TAD I REGRES 355 00525 3316 DCA REGR2 /TYPOUT ERROR ROUTINE 356 00526 2305 ISZ REGRES 357 00527 1705 TAD I REGRES /ERROR NUMBER 358 00530 4502 JMS I TYPERR 359 00531 7200 CLA 360 00532 4716 JMS I REGR2 361 00533 5335 JMP .+2 /ERROR RETURN 362 00534 2305 REGR3, ISZ REGRES 363 00535 2305 ISZ REGRES 364 00536 4503 JMS I HLTLP 365 00537 5341 JMP .+2 366 00540 2305 ISZ REGRES 367 00541 7200 CLA 368 00542 1344 TAD REGR1 369 00543 5705 JMP I REGRES 370 00544 0000 REGR1, 0 371 /WORD COUNT AND CURRENT ADDRESS TEST 372 00545 0000 WCTST, 0 373 00546 7200 CLA 374 00547 4360 JMS WCT2 375 00550 7144 CLL CMA RAL 376 00551 4360 JMS WCT2 377 00552 7200 CLA 378 00553 1371 TAD WCT1 379 00554 4360 JMS WCT2 380 00555 7110 RAR CLL 381 00556 4360 JMS WCT2 382 00557 5745 JMP I WCTST 383 00560 0000 WCT2, 0 384 00561 4772 JMS I WCT1+1 385 00562 6017 DWCA 386 00563 6016 DRTR 387 00564 3777 3777 388 00565 5125 EXTAB 389 00566 0004 4 /ERRNO 4 390 00567 5361 JMP .-6 391 00570 5760 JMP I WCT2 392 00571 5252 WCT1, 5252 393 00572 3443 REGTRT 394 395 *600 396 /FORMAT ROUTINE, WD1=SECTOR STATUS WORD, WD2=STARTING SECTOR #, WD3=BASE ERRO 397 00600 0000 FRM15, 0 398 00601 7200 CLA 399 00602 1305 TAD FRM152 400 00603 3302 DCA FRM151 /INIT COUNT WITH 23 401 00604 1307 TAD FRM152+2 402 00605 3010 DCA 10 /BUF2-1 403 00606 1302 TAD FRM151 404 00607 7041 CIA 405 00610 3303 DCA FRM151+1 /COUNT 23 406 00611 3410 DCA I 10 /OF ZERO'S 407 00612 2303 ISZ FRM151+1 408 00613 5211 JMP .-2 409 00614 7130 STL RAR /AND ONE 8000 410 00615 3410 DCA I 10 411 00616 1050 TAD DAIVAL /2000 IF REMOVABLE 412 00617 1600 TAD I FRM15 /0 OR 4000 FOR WRITE-LOCK 413 00620 2200 ISZ FRM15 414 00621 3306 DCA FRM152+1 415 00622 1600 TAD I FRM15 /STARTING SECTOR 416 00623 2200 ISZ FRM15 417 00624 1306 TAD FRM152+1 /+ TEMP 418 00625 3410 DCA I 10 419 00626 1010 TAD 10 420 00627 3303 DCA FRM151+1 /START OF DATA 421 00630 7326 NL0002 422 00631 1302 TAD FRM151 423 00632 3027 DCA WCCA /25 424 00633 3031 DCA SECTOR 425 00634 3033 DCA TRACK 426 00635 3035 DCA BLOCKS 427 00636 1107 TAD WRITE 428 00637 3020 DCA DATA1 /SET TO WRITE 429 00640 1310 TAD FRM152+3 430 00641 3021 DCA DATA1+1 /WAIT TIME 400 431 00642 1600 TAD I FRM15 432 00643 3022 DCA DATA1+2 /BASE ERROR 433 00644 2200 ISZ FRM15 434 00645 7040 CMA 435 00646 3023 DCA DATA1+3 436 00647 7040 CMA 437 00650 3024 DCA DATA1+4 438 00651 7100 CLL 439 00652 1055 TAD MAXSEC+1 440 00653 7041 CIA 441 00654 3302 DCA FRM151 /LO ORDER 442 00655 1054 TAD MAXSEC 443 00656 7040 CMA 444 00657 7430 SZL 445 00660 7001 IAC 446 00661 3304 DCA FRM151+2 /HI ORDER 447 00662 1311 TAD FRM152+4 /FORMAT ENABLE 448 00663 4473 JMS I LDCON 449 00664 4712 FRM153, JMS I FRM152+5 /RDWR 450 00665 5264 JMP .-1 /ERROR 451 00666 2035 ISZ BLOCKS 452 00667 4506 JMS I SECADD /ADD BLOCKS TO SECTOR 453 00670 7200 CLA 454 00671 3035 DCA BLOCKS 455 00672 1033 TAD TRACK 456 00673 1306 TAD FRM152+1 /2000 AND 4000 457 00674 3703 DCA I FRM151+1 /IN TRACK LOCATION 458 00675 2302 ISZ FRM151 459 00676 5264 JMP FRM153 460 00677 2304 ISZ FRM151+2 /DONE HI ORDER? 461 00700 5264 JMP FRM153 462 00701 5600 JMP I FRM15 /DONE 463 00702 0000 FRM151, 0 464 00703 0000 0 465 00704 0000 0 466 00705 0023 FRM152, 23 467 00706 0000 0 468 00707 6377 BUF2-1 469 00710 0400 400 470 00711 0040 40 /FORMAT ENABLE 471 00712 1200 RDWR 472 473 /MULTIPLE BLOCK WRITE, MULTIPLE AND SINGLE BLOCK READS 474 00713 0000 MDATST, 0 475 00714 7200 CLA 476 00715 1052 TAD MULSEC /600 477 00716 4771 JMS I MDAT1 /DSKRW 478 00717 4634 EXWR 479 00720 0400 400 480 00721 0154 154 /ERRNO 481 00722 0600 600 482 00723 0002 2 /NO. BLOCKS 483 00724 0012 12 /START 484 00725 0001 1 /INTERLACE 485 00726 7772 7772 486 00727 1052 TAD MULSEC 487 00730 4771 JMS I MDAT1 488 00731 4641 EXRD 489 00732 0400 400 490 00733 0161 161 /ERRNO 491 00734 0600 600 492 00735 0002 2 493 00736 0016 16 494 00737 0001 1 495 00740 7770 7770 496 00741 1051 TAD SINSEC /400 497 00742 4771 JMS I MDAT1 498 00743 4641 EXRD 499 00744 0400 400 500 00745 0166 166 /ERRNO 501 00746 0600 600 502 00747 0001 1 503 00750 0016 16 504 00751 0002 2 505 00752 7760 7760 506 00753 1051 TAD SINSEC 507 00754 7110 CLL RAR 508 00755 3363 DCA MDAT2 509 00756 1051 TAD SINSEC 510 00757 4771 JMS I MDAT1 511 00760 4641 EXRD 512 00761 0400 400 513 00762 0166 166 514 00763 0000 MDAT2, 0 515 00764 0001 1 516 00765 0017 17 517 00766 0002 2 518 00767 7760 7760 519 00770 5713 JMP I MDATST 520 00771 1000 MDAT1, DSKRW 521 522 *1000 523 /ROUTINE TO READ/WRITE ENTIRE DISK-DATA PATTERN. 524 /CALLING SEQUENCE, AC=WDCT, WD1=RD/WR CONTROL, WD2=WAIT TIME, 525 /WD3=BASE ERROR, WD4=PATTERN LEN, WD5=NO. BLKS, WD6=START, 526 /WD7=INTERLACE 527 01000 0000 DSKRW, 0 528 01001 3027 DCA WCCA /400, 600 529 01002 7040 CMA 530 01003 1200 TAD DSKRW 531 01004 3010 DCA 10 532 01005 1410 TAD I 10 533 01006 3020 DCA DATA1 /RD/WR 534 01007 1410 TAD I 10 535 01010 3021 DCA DATA1+1 /WAIT TIME 536 01011 1410 TAD I 10 537 01012 3022 DCA DATA1+2 /ERROR VALUE 538 01013 7040 CMA 539 01014 3023 DCA DATA1+3 /CHECK SAR 540 01015 3024 DCA DATA1+4 /CHECK DATA 541 01016 1410 TAD I 10 542 01017 4731 JMS I DSK1 /PATGEN 543 01020 1410 TAD I 10 544 01021 3035 DCA BLOCKS /NO. BLOCKS 545 01022 1410 TAD I 10 546 01023 3341 DCA DSK2+2 /START 547 01024 1410 TAD I 10 548 01025 7041 CIA 549 01026 3340 DCA DSK2+1 /MULTIPLIER 550 01027 1410 TAD I 10 551 01030 3337 DCA DSK2 /-INTERLACE 552 01031 1010 TAD 10 553 01032 7001 IAC 554 01033 3200 DCA DSKRW /RETURN 555 01034 1051 TAD SINSEC 556 01035 1332 TAD DSK1+1 /BUF1-1 557 01036 3335 DCA DSK1+4 /BUF1-1+400 558 01037 1335 TAD DSK1+4 559 01040 3336 DCA DSK1+5 560 01041 2336 ISZ DSK1+5 561 01042 4473 JMS I LDCON 562 01043 7040 DSK5, CMA 563 01044 3732 DCA I DSK1+1 564 01045 1341 TAD DSK2+2 565 01046 7040 CMA 566 01047 3733 DCA I DSK1+2 567 01050 3033 DCA TRACK 568 01051 1341 TAD DSK2+2 569 01052 3031 DCA SECTOR 570 01053 7040 CMA 571 01054 3735 DCA I DSK1+4 572 01055 7001 IAC 573 01056 1341 TAD DSK2+2 574 01057 7040 CMA 575 01060 3736 DCA I DSK1+5 576 01061 4536 DSK3, JMS I CLRMOV /EXCLMV SEE BELOW 577 01062 4734 JMS I DSK1+3 /RDWR 578 01063 5261 JMP DSK3 579 01064 1337 TAD DSK2 580 01065 3342 DCA DSK2+3 581 01066 4506 DSK4, JMS I SECADD 582 01067 1035 TAD BLOCKS 583 01070 7041 CIA 584 01071 1733 TAD I DSK1+2 585 01072 3733 DCA I DSK1+2 586 01073 7420 SNL 587 01074 7040 CMA 588 01075 1732 TAD I DSK1+1 589 01076 3732 DCA I DSK1+1 590 01077 2342 ISZ DSK2+3 591 01100 5266 JMP DSK4 592 01101 7140 CMA CLL 593 01102 1733 TAD I DSK1+2 594 01103 3736 DCA I DSK1+5 595 01104 7420 SNL 596 01105 7040 CMA 597 01106 1732 TAD I DSK1+1 598 01107 3735 DCA I DSK1+4 599 01110 1033 TAD TRACK 600 01111 7041 CIA 601 01112 1056 TAD MAXTRK 602 01113 7700 SMA CLA 603 01114 5261 JMP DSK3 604 01115 1340 TAD DSK2+1 605 01116 3343 DCA DSK2+4 606 01117 1035 TAD BLOCKS 607 01120 2343 ISZ DSK2+4 /BLOCKS * MULTIPLIER 608 01121 5317 JMP .-2 609 01122 7041 CIA 610 01123 1341 TAD DSK2+2 611 01124 3341 DCA DSK2+2 /NEW START 612 01125 1341 TAD DSK2+2 613 01126 7700 SMA CLA 614 01127 5243 JMP DSK5 615 01130 5600 JMP I DSKRW 616 01131 1400 DSK1, PATGEN 617 01132 5500 BUF1 618 01133 5501 BUF1+1 619 01134 1200 RDWR 620 01135 0000 0 /SECOND HALF OF BUFFER LIKE BUF1 621 01136 0000 0 /LIKE BUF1+1 622 01137 0000 DSK2, 0 /-INTERLACE 623 01140 0000 0 /MULTIPLIER 624 01141 0000 0 /START 625 01142 0000 0 626 01143 0000 0 /TEMP 627 01144 0000 EXCLMV, 0 /ON WRITE CALL MOVE12, ON READ CALL CLR2 628 01145 7200 CLA 629 01146 1020 TAD DATA1 630 01147 7041 CIA 631 01150 1107 TAD WRITE 632 01151 7640 SZA CLA 633 01152 5355 JMP .+3 634 01153 4511 JMS I MOVE12 /WRITE: EXM12 MOVE BUF1 TO BUF2, ONE 6666 635 01154 5356 JMP .+2 636 01155 4512 JMS I CLR2 /READ: EXCL2 CLEAR BUF2, ALL 3333, ONE 6666 637 01156 5744 JMP I EXCLMV 638 639 *1200 640 /READ-WRITE ROUTINE, PERFORMS OPERATION AND CHECKS 641 /FOR TIME-OUT, HARDWARE ERROR IN STATUS REGISTER, 642 /TAR AND SCR VALUE, COMPARES DATA AND END OF BUFFER. 643 /EXITS+1 IF NO ERROR IS DETECTED. 644 01200 0000 RDWR, 0 645 01201 4466 JMS I CLSTAT /EXCLST CLEAR STR 646 01202 4420 JMS I DATA1 /INITIATE DATA TRANSFER EXRD/EXWR 647 01203 7200 CLA 648 01204 1021 TAD DATA1+1 /WAIT TIME 649 01205 7041 CIA 650 01206 3311 DCA RDWR1 651 01207 4467 JMS I SKPDON /SKIP? 652 01210 5221 JMP RDWR2 /OK 653 01211 2311 ISZ RDWR1 654 01212 5207 JMP .-3 /WAIT 655 01213 7200 CLA /TIME-OUT ERROR 656 01214 4320 JMS RDWR3 /TYPE ERROR 657 01215 4503 JMS I HLTLP 658 01216 5600 JMP I RDWR 659 01217 2200 ISZ RDWR 660 01220 5600 JMP I RDWR 661 01221 4470 RDWR2, JMS I RDSTAT 662 01222 7700 SMA CLA 663 01223 5227 JMP RDWR4 664 01224 7201 CLA IAC /STR ERROR 665 01225 4320 JMS RDWR3 /TYPE ERROR 666 01226 5232 JMP .+4 667 01227 1023 RDWR4, TAD DATA1+3 668 01230 7640 SZA CLA /CHECK SAR? 669 01231 4344 JMS RDWR5 /YES 670 01232 1024 TAD DATA1+4 671 01233 7640 SZA CLA /CHECK DATA 672 01234 5215 JMP RDWR2-4 /NO, THAT WAS IT 673 01235 1027 TAD WCCA 674 01236 7041 CIA 675 01237 3311 DCA RDWR1 /COUNT 676 01240 1312 TAD RDWR1+1 /BUF1 677 01241 3010 DCA 10 678 01242 1313 TAD RDWR1+2 /BUF2 679 01243 3011 DCA 11 680 01244 1410 TAD I 10 681 01245 7041 CIA 682 01246 1411 TAD I 11 683 01247 7640 SZA CLA 684 01250 5262 JMP RDWR6 /DATA ERROR 685 01251 2311 ISZ RDWR1 686 01252 5244 JMP .-6 687 01253 1411 RDWR7, TAD I 11 688 01254 1314 TAD RDWR1+3 /-6666 689 01255 7650 SNA CLA 690 01256 5215 JMP RDWR2-4 /OK, END 691 01257 4553 NL0004 /DATA OVERFLOW ERROR +4 692 01260 4337 JMS RDWR31 693 01261 5215 JMP RDWR2-4 694 01262 4552 RDWR6, NL0003 /DATA ERROR +3 695 01263 4337 JMS RDWR31 696 01264 1315 TAD RDWR11 697 01265 3316 DCA RDWR11+1/8 MORE ERRORS 698 01266 4504 JMS I TYPDAT 699 01267 2311 RDWR8, ISZ RDWR1 700 01270 5272 JMP .+2 701 01271 5253 JMP RDWR7 /FLUSHED BUFFER 702 01272 1410 TAD I 10 703 01273 7041 CIA 704 01274 1411 TAD I 11 705 01275 7650 SNA CLA 706 01276 5267 JMP RDWR8 707 01277 2316 ISZ RDWR11+1 708 01300 5266 JMP RDWR8-1 /TYPE 8 MORE ERRORS 709 01301 7604 LAS 710 01302 0317 AND RDWR11+2 711 01303 7640 SZA CLA 712 01304 5264 JMP RDWR8-3 713 01305 1027 TAD WCCA 714 01306 1313 TAD RDWR1+2 715 01307 3011 DCA 11 716 01310 5253 JMP RDWR7 717 01311 0000 RDWR1, 0 718 01312 5477 BUF1-1 719 01313 6377 BUF2-1 720 01314 1112 1112 721 01315 7770 RDWR11, 7770 722 01316 0000 0 723 01317 0010 10 724 01320 0000 RDWR3, 0 /ERROR TYPE OUT 725 01321 3154 DCA TEMP 726 01322 1023 TAD DATA1+3 727 01323 7640 SZA CLA 728 01324 5332 JMP .+6 729 01325 7326 NL0002 730 01326 7040 CMA 731 01327 1154 TAD TEMP 732 01330 7700 SMA CLA 733 01331 7040 CMA 734 01332 1154 TAD TEMP 735 01333 1022 TAD DATA1+2 736 01334 4502 JMS I TYPERR 737 01335 4505 JMS I TYPADD 738 01336 5720 JMP I RDWR3 739 01337 0000 RDWR31, 0 740 01340 4506 JMS I SECADD 741 01341 4320 JMS RDWR3 742 01342 4776 JMS I RDWR32 743 01343 5737 JMP I RDWR31 744 01344 0000 RDWR5, 0 /CHECK TAR AND SCR 745 01345 4506 JMS I SECADD 746 01346 4471 JMS I RDTRAD 747 01347 7041 CIA 748 01350 1033 TAD TRACK 749 01351 1050 TAD DAIVAL 750 01352 7640 SZA CLA 751 01353 5373 JMP RDWR51 /TAR ERROR 752 01354 7001 IAC 753 01355 0053 AND NUMSEC 754 01356 7126 STL RTL 755 01357 7121 CLL CML IAC 756 01360 7006 RTL 757 01361 7001 IAC /17 758 01362 3377 DCA RDWR32+1 759 01363 4472 JMS I RDSEC 760 01364 0377 AND RDWR32+1 761 01365 7041 CIA 762 01366 1031 TAD SECTOR 763 01367 7640 SZA CLA 764 01370 5373 JMP RDWR51 /SCR ERROR 765 01371 4776 JMS I RDWR32 766 01372 5744 JMP I RDWR5 767 01373 7126 RDWR51, STL RTL 768 01374 4320 JMS RDWR3 769 01375 5371 JMP RDWR51-2 770 01376 5322 RDWR32, RDWX32 771 01377 0000 0 772 773 *1400 774 /PATTERN GENERATION - AC=LENGTH 775 01400 0000 PATGEN, 0 776 01401 7041 CIA 777 01402 3331 DCA PATG1 778 01403 1332 TAD PATG1+1 779 01404 3333 DCA PATG1+2 /-600 780 01405 1334 TAD PATG1+3 /BUF1-1 781 01406 3011 DCA 11 782 01407 4222 JMS PATG3 783 01410 5217 JMP .+7 784 01411 4222 JMS PATG3 785 01412 5217 JMP .+5 786 01413 4222 JMS PATG3 787 01414 5217 JMP .+3 788 01415 5600 JMP I PATGEN 789 01416 3411 DCA I 11 790 01417 2333 ISZ PATG1+2 791 01420 5216 JMP .-2 792 01421 5600 JMP I PATGEN 793 01422 0000 PATG3, 0 794 01423 1335 TAD PATG2 /5252 795 01424 3341 DCA PATG5 796 01425 1345 TAD PATG6 /ROUTINE PATG42 NOP 797 01426 4273 JMS PATG41 798 01427 5622 JMP I PATG3 799 01430 3341 DCA PATG5 /0000 800 01431 1345 TAD PATG6 /ROUTINE PATG42 NOP 801 01432 4273 JMS PATG41 802 01433 5622 JMP I PATG3 803 01434 1336 TAD PATG2+1 804 01435 3341 DCA PATG5 /7776 805 01436 1346 TAD PATG6+1 /ROUTINE PATG43 ROTATE 806 01437 4273 JMS PATG41 807 01440 5622 JMP I PATG3 808 01441 1337 TAD PATG2+2 809 01442 3341 DCA PATG5 /7070 810 01443 1347 TAD PATG6+2 /ROUTINE PATG44 COMPLEMENT 811 01444 4273 JMS PATG41 812 01445 5622 JMP I PATG3 813 01446 1340 TAD PATG2+3 814 01447 3341 DCA PATG5 /2525 815 01450 1345 TAD PATG6 /ROUTINE PATG42 NOP 816 01451 4273 JMS PATG41 817 01452 5622 JMP I PATG3 818 01453 7001 IAC 819 01454 3341 DCA PATG5 /0001 820 01455 1346 TAD PATG6+1 /ROUTINE PATG43 ROTATE 821 01456 4273 JMS PATG41 822 01457 5622 JMP I PATG3 823 01460 7040 CMA 824 01461 3341 DCA PATG5 /7777 825 01462 1345 TAD PATG6 /ROUTINE PATG42 NOP 826 01463 4273 JMS PATG41 827 01464 5622 JMP I PATG3 828 01465 3341 DCA PATG5 /0000 829 01466 1347 TAD PATG6+2 /ROUTINE PATG44 COMPLEMENT 830 01467 4273 JMS PATG41 831 01470 5622 JMP I PATG3 832 01471 2222 ISZ PATG3 833 01472 5622 JMP I PATG3 834 01473 0000 PATG41, 0 835 01474 3344 DCA PATG5+3 /ROUTINE 836 01475 1342 TAD PATG5+1 837 01476 3343 DCA PATG5+2 /-20 838 01477 1341 TAD PATG5 839 01500 3411 DCA I 11 840 01501 4744 JMS I PATG5+3 841 01502 2331 ISZ PATG1 842 01503 5305 JMP .+2 843 01504 5673 JMP I PATG41 /REQUEST LENGTH END 844 01505 2333 ISZ PATG1+2 /COUNT 845 01506 7000 NOP 846 01507 2343 ISZ PATG5+2 847 01510 5277 JMP PATG41+4 848 01511 2273 ISZ PATG41 849 01512 5673 JMP I PATG41 /SECOND EXIT DONE 20 850 01513 0000 PATG42, 0 /NOP 851 01514 5713 JMP I PATG42 852 01515 0000 PATG43, 0 /ROTATE LEFT 853 01516 1341 TAD PATG5 854 01517 7104 CLL RAL 855 01520 7430 SZL 856 01521 7001 IAC 857 01522 3341 DCA PATG5 858 01523 5715 JMP I PATG43 859 01524 0000 PATG44, 0 /COMPLEMENT 860 01525 1341 TAD PATG5 861 01526 7040 CMA 862 01527 3341 DCA PATG5 863 01530 5724 JMP I PATG44 864 01531 0000 PATG1, 0 /LENGTH 865 01532 7200 7200 866 01533 0000 0 /FULL BUF -600 867 01534 5477 BUF1-1 868 01535 5252 PATG2, 5252 869 01536 7776 7776 870 01537 7070 7070 871 01540 2525 2525 872 01541 0000 PATG5, 0 /PATTERN 873 01542 7760 7760 874 01543 0000 0 875 01544 0000 0 876 01545 1513 PATG6, PATG42 877 01546 1515 PATG43 878 01547 1524 PATG44 879 01550 0000 EXM12, 0 /MOVE WCCA WORDS FROM BUF1 TO BUF2 880 01551 7200 CLA /FOLLOWED BY ONE 6666 881 01552 1027 TAD WCCA 882 01553 3357 DCA .+4 883 01554 4540 JMS I PEXEC2 884 01555 5477 BUF1-1 885 01556 6377 BUF2-1 886 01557 0000 0 887 01560 1363 TAD EXM3 888 01561 3411 DCA I 11 889 01562 5750 JMP I EXM12 890 01563 6666 EXM3, 6666 891 892 *1600 893 /CALLING SEQUENCE, WD1=ERROR NO., WD2,3 = START DATA VALUE 894 /WD4,5= MODIFY VALUE 895 01600 0000 WRB11, 0 896 01601 7200 CLA 897 01602 1600 TAD I WRB11 898 01603 3022 DCA DATA1+2 /ERRNO 899 01604 3023 DCA DATA1+3 /PREPARE DATA1 VALUES 900 01605 3024 DCA DATA1+4 901 01606 1257 TAD WRB12 902 01607 3021 DCA DATA1+1 903 01610 1107 TAD WRITE 904 01611 3020 DCA DATA1 905 01612 7001 IAC 906 01613 3035 DCA BLOCKS 907 01614 7326 NL0002 908 01615 3027 DCA WCCA 909 01616 4473 JMS I LDCON 910 01617 2200 ISZ WRB11 911 01620 1600 TAD I WRB11 912 01621 3260 DCA WRB12+1 /START DATA 913 01622 2200 ISZ WRB11 914 01623 1600 TAD I WRB11 915 01624 3261 DCA WRB12+2 /START DATA 916 01625 2200 ISZ WRB11 917 01626 1600 TAD I WRB11 918 01627 3262 DCA WRB12+3 919 01630 2200 ISZ WRB11 920 01631 1600 TAD I WRB11 /INTERLEAVE 921 01632 2200 ISZ WRB11 922 01633 7510 SPA 923 01634 5240 JMP .+4 924 01635 3377 DCA SAVBLK /SET FIRST BLOCK 925 01636 7001 IAC 926 01637 5243 JMP .+4 927 01640 7041 CIA 928 01641 3377 DCA SAVBLK 929 01642 7040 CMA 930 01643 3263 DCA WRB12+4 931 01644 4264 JMS WRB13 932 01645 1051 TAD SINSEC 933 01646 3027 DCA WCCA 934 01647 4537 JMS I CLR1 /FILL LAST WCCA-2 WORDS OF BUF1 WITH 0'S FOLLOWED BY ONE 6666 935 01650 1110 TAD READ 936 01651 3020 DCA DATA1 937 01652 4553 NL0004 938 01653 1022 TAD DATA1+2 /NEXT SUBTEST READ 939 01654 3022 DCA DATA1+2 940 01655 4264 JMS WRB13 941 01656 5600 JMP I WRB11 942 01657 0400 WRB12, 400 943 01660 0000 0 /START DATA 944 01661 0000 0 /" 945 01662 0000 0 /INTERLEAVE 946 01663 0000 0 /" 1 OR -1 947 01664 0000 WRB13, 0 948 01665 1377 TAD SAVBLK 949 01666 3376 DCA SAVSEC 950 01667 7040 CMA 951 01670 1376 TAD SAVSEC 952 01671 7510 SPA 953 01672 5664 JMP I WRB13 954 01673 3376 DCA SAVSEC 955 01674 1376 TAD SAVSEC 956 01675 3031 DCA SECTOR 957 01676 4342 JMS WRB18 958 01677 1031 TAD SECTOR 959 01700 4350 JMS WRB17 960 01701 4303 JMS WRB15 961 01702 5267 JMP WRB13+3 962 01703 0000 WRB15, 0 963 01704 7300 CLA CLL 964 01705 3033 DCA TRACK 965 01706 1055 TAD MAXSEC+1 966 01707 7041 CIA 967 01710 3373 DCA WRB14+3 968 01711 1054 TAD MAXSEC 969 01712 7040 CMA 970 01713 7430 SZL 971 01714 7001 IAC 972 01715 3372 DCA WRB14+2 973 01716 4536 WRB16, JMS I CLRMOV 974 01717 4774 JMS I WRB14+4 /RDWR 975 01720 5316 JMP WRB16 976 01721 1377 TAD SAVBLK 977 01722 7041 CIA 978 01723 3375 DCA WRB14+5 979 01724 4506 JMS I SECADD 980 01725 2375 ISZ WRB14+5 981 01726 5324 JMP .-2 982 01727 1377 TAD SAVBLK 983 01730 4350 JMS WRB17 984 01731 1373 TAD WRB14+3 985 01732 1377 TAD SAVBLK 986 01733 3373 DCA WRB14+3 987 01734 1373 TAD WRB14+3 988 01735 7640 SZA CLA 989 01736 5316 JMP WRB16 990 01737 2372 ISZ WRB14+2 991 01740 5316 JMP WRB16 992 01741 5703 JMP I WRB15 993 01742 0000 WRB18, 0 994 01743 1260 TAD WRB12+1 995 01744 3770 DCA I WRB14 996 01745 1261 TAD WRB12+2 997 01746 3771 DCA I WRB14+1 998 01747 5742 JMP I WRB18 999 01750 0000 WRB17, 0 1000 01751 7041 CIA 1001 01752 7450 SNA 1002 01753 5750 JMP I WRB17 1003 01754 3375 DCA WRB14+5 1004 01755 7100 CLL 1005 01756 1263 TAD WRB12+4 1006 01757 1771 TAD I WRB14+1 1007 01760 3771 DCA I WRB14+1 1008 01761 7004 RAL 1009 01762 1262 TAD WRB12+3 1010 01763 1770 TAD I WRB14 1011 01764 3770 DCA I WRB14 1012 01765 2375 ISZ WRB14+5 1013 01766 5355 JMP WRB17+5 1014 01767 5750 JMP I WRB17 1015 01770 5500 WRB14, BUF1 1016 01771 5501 BUF1+1 1017 01772 0000 0 1018 01773 0000 0 1019 01774 1200 RDWR 1020 01775 0000 0 1021 01776 0000 SAVSEC, 0 1022 01777 0000 SAVBLK, 0 1023 1024 *2000 1025 /SEEK ALL BLOCKS TEST - USES SEEK/READ 1026 02000 0000 SABTST, 0 1027 02001 7200 CLA 1028 02002 3227 DCA SAB1 1029 02003 3230 DCA SAB1+1 1030 02004 1235 TAD SAB1+6 1031 02005 4236 JMS SAB2 1032 02006 4265 SAB5, JMS SAB3 1033 02007 2027 SAB1 1034 02010 4265 JMS SAB3 1035 02011 2031 SAB1+2 1036 02012 7340 CMA CLL CLA 1037 02013 1232 TAD SAB1+3 1038 02014 3232 DCA SAB1+3 1039 02015 7420 SNL 1040 02016 7040 CMA 1041 02017 1231 TAD SAB1+2 1042 02020 3231 DCA SAB1+2 1043 02021 2230 ISZ SAB1+1 1044 02022 7410 SKP 1045 02023 2227 ISZ SAB1 1046 02024 4341 JMS SAB4 1047 02025 5206 JMP SAB5 1048 02026 5600 JMP I SABTST 1049 02027 0000 SAB1, 0 1050 02030 0000 0 1051 02031 0000 0 1052 02032 0000 0 1053 02033 0000 0 1054 02034 0000 0 1055 02035 0125 125 1056 02036 0000 SAB2, 0 1057 02037 3022 DCA DATA1+2 1058 02040 7140 CMA CLL 1059 02041 1055 TAD MAXSEC+1 1060 02042 3232 DCA SAB1+3 1061 02043 7420 SNL 1062 02044 7040 CMA 1063 02045 1054 TAD MAXSEC 1064 02046 3231 DCA SAB1+2 1065 02047 1110 TAD READ 1066 02050 3020 DCA DATA1 1067 02051 1264 TAD SAB21 1068 02052 3021 DCA DATA1+1 1069 02053 3023 DCA DATA1+3 1070 02054 3024 DCA DATA1+4 1071 02055 1051 TAD SINSEC 1072 02056 3027 DCA WCCA 1073 02057 4537 JMS I CLR1 1074 02060 7001 IAC 1075 02061 3035 DCA BLOCKS 1076 02062 4473 JMS I LDCON 1077 02063 5636 JMP I SAB2 1078 02064 0400 SAB21, 400 1079 02065 0000 SAB3, 0 1080 02066 1665 TAD I SAB3 1081 02067 3333 DCA SAB31 1082 02070 2265 ISZ SAB3 1083 02071 1733 TAD I SAB31 1084 02072 3734 DCA I SAB31+1 1085 02073 1053 TAD NUMSEC 1086 02074 1337 TAD SAB31+4 1087 02075 3336 DCA SAB31+3 1088 02076 1733 TAD I SAB31 1089 02077 7104 CLL RAL 1090 02100 2336 ISZ SAB31+3 1091 02101 5277 JMP .-2 1092 02102 3033 DCA TRACK 1093 02103 2333 ISZ SAB31 1094 02104 1733 TAD I SAB31 1095 02105 3735 DCA I SAB31+2 1096 02106 1053 TAD NUMSEC 1097 02107 7041 CIA 1098 02110 3336 DCA SAB31+3 1099 02111 7124 STL RAL 1100 02112 2336 ISZ SAB31+3 1101 02113 5311 JMP .-2 1102 02114 0733 AND I SAB31 1103 02115 3031 DCA SECTOR 1104 02116 1053 TAD NUMSEC 1105 02117 7041 CIA 1106 02120 3336 DCA SAB31+3 1107 02121 1733 TAD I SAB31 1108 02122 7110 CLL RAR 1109 02123 2336 ISZ SAB31+3 1110 02124 5322 JMP .-2 1111 02125 1033 TAD TRACK 1112 02126 3033 DCA TRACK 1113 02127 4512 JMS I CLR2 1114 02130 4740 JMS I SAB31+5 1115 02131 5327 JMP .-2 1116 02132 5665 JMP I SAB3 1117 02133 0000 SAB31, 0 1118 02134 5500 BUF1 1119 02135 5501 BUF1+1 1120 02136 0000 0 1121 02137 7764 7764 1122 02140 1200 RDWR 1123 02141 0000 SAB4, 0 1124 02142 7300 CLA CLL 1125 02143 1232 TAD SAB1+3 1126 02144 7041 CIA 1127 02145 1230 TAD SAB1+1 1128 02146 3234 DCA SAB1+5 1129 02147 1231 TAD SAB1+2 1130 02150 7040 CMA 1131 02151 7430 SZL 1132 02152 7001 IAC 1133 02153 1227 TAD SAB1 1134 02154 7500 SMA 1135 02155 2341 ISZ SAB4 1136 02156 3233 DCA SAB1+4 1137 02157 5741 JMP I SAB4 1138 02160 0000 RANSIZ, 0 1139 02161 4341 JMS SAB4 1140 02162 5760 JMP I RANSIZ 1141 02163 1233 TAD SAB1+4 1142 02164 3227 DCA SAB1 1143 02165 1234 TAD SAB1+5 1144 02166 3230 DCA SAB1+1 1145 02167 5361 JMP RANSIZ+1 1146 1147 *2200 1148 /SINGLE BLOCK WRITE, SINGLE AND MULTIPLE BLOCK READS 1149 02200 0000 BDATST, 0 1150 02201 7200 CLA 1151 02202 1051 TAD SINSEC 1152 02203 4641 JMS I BDAT1 1153 02204 4634 EXWR 1154 02205 0400 400 1155 02206 0135 135 1156 02207 0600 600 1157 02210 0001 1 1158 02211 0005 5 1159 02212 0001 1 1160 02213 7772 7772 1161 02214 1051 TAD SINSEC 1162 02215 4641 JMS I BDAT1 1163 02216 4641 EXRD 1164 02217 0400 400 1165 02220 0142 142 1166 02221 0600 600 1167 02222 0001 1 1168 02223 0007 7 1169 02224 0001 1 1170 02225 7770 7770 1171 02226 1052 TAD MULSEC 1172 02227 4641 JMS I BDAT1 1173 02230 4641 EXRD 1174 02231 0400 400 1175 02232 0147 147 1176 02233 0600 600 1177 02234 0002 2 1178 02235 0016 16 1179 02236 0001 1 1180 02237 7770 7770 1181 02240 5600 JMP I BDATST 1182 02241 1000 BDAT1, DSKRW 1183 /RANDOM SEEK TEST - USES SEEK/READ 1184 02242 0000 RANTST, 0 1185 02243 7200 CLA 1186 02244 1263 TAD RANT1 1187 02245 3264 DCA RANT1+1 1188 02246 1265 TAD RANT1+2 1189 02247 4666 JMS I RANT1+3 1190 02250 4273 RANT3, JMS RANUMB 1191 02251 1325 TAD RANUM1 1192 02252 3667 DCA I RANT2 1193 02253 1331 TAD RANUM2 1194 02254 3670 DCA I RANT2+1 1195 02255 4671 JMS I RANT2+2 1196 02256 4672 JMS I RANT2+3 1197 02257 2027 SAB1 1198 02260 2264 ISZ RANT1+1 1199 02261 5250 JMP RANT3 1200 02262 5642 JMP I RANTST 1201 02263 7000 RANT1, 7000 1202 02264 0000 0 1203 02265 0131 131 1204 02266 2036 SAB2 1205 02267 2027 RANT2, SAB1 1206 02270 2030 SAB1+1 1207 02271 2160 RANSIZ 1208 02272 2065 SAB3 1209 02273 0000 RANUMB, 0 1210 02274 7200 CLA 1211 02275 1326 TAD RANUM1+1 1212 02276 0331 AND RANUM2 1213 02277 7112 CLL RTR 1214 02300 7012 RTR 1215 02301 3330 DCA RANUM1+3 1216 02302 1326 TAD RANUM1+1 1217 02303 7012 RTR 1218 02304 7010 RAR 1219 02305 0332 AND RANUM2+1 1220 02306 3327 DCA RANUM1+2 1221 02307 4335 JMS RANUM3 1222 02310 4350 JMS RANUM4 1223 02311 4350 JMS RANUM4 1224 02312 4335 JMS RANUM3 1225 02313 1333 TAD RANUM2+2 1226 02314 3325 DCA RANUM1 1227 02315 1334 TAD RANUM2+3 1228 02316 3326 DCA RANUM1+1 1229 02317 4335 JMS RANUM3 1230 02320 1327 TAD RANUM1+2 1231 02321 3325 DCA RANUM1 1232 02322 1330 TAD RANUM1+3 1233 02323 3326 DCA RANUM1+1 1234 02324 5673 JMP I RANUMB 1235 02325 0005 RANUM1, 5 1236 02326 4321 4321 1237 02327 0000 0 1238 02330 0000 0 1239 02331 0007 RANUM2, 7 1240 02332 0017 17 1241 02333 0003 K3, 3 1242 02334 3031 3031 1243 02335 0000 RANUM3, 0 1244 02336 7300 CLA CLL 1245 02337 1326 TAD RANUM1+1 1246 02340 1330 TAD RANUM1+3 1247 02341 3330 DCA RANUM1+3 1248 02342 7004 RAL 1249 02343 1325 TAD RANUM1 1250 02344 1327 TAD RANUM1+2 1251 02345 0332 AND RANUM2+1 1252 02346 3327 DCA RANUM1+2 1253 02347 5735 JMP I RANUM3 1254 02350 0000 RANUM4, 0 1255 02351 1330 TAD RANUM1+3 1256 02352 7104 CLL RAL 1257 02353 3330 DCA RANUM1+3 1258 02354 1327 TAD RANUM1+2 1259 02355 7004 RAL 1260 02356 0332 AND RANUM2+1 1261 02357 3327 DCA RANUM1+2 1262 02360 5750 JMP I RANUM4 1263 02361 0000 EXLTAW, 0 /LOAD TAR AND INITIATE WRITE 1264 02362 7201 CLA IAC 1265 02363 4765 JMS I .+2 1266 02364 5761 JMP I EXLTAW 1267 02365 0347 EXLTA 1268 1269 02366 0000 LDTHRE, 0 1270 02367 7300 CLA CLL 1271 02370 1333 TAD K3 1272 02371 5766 JMP I LDTHRE 1273 1274 02372 0000 LDFOUR, 0 1275 02373 7301 CLA CLL IAC 1276 02374 1333 TAD K3 1277 02375 5772 JMP I LDFOUR 1278 1279 *2400 1280 /FORMAT TEST SUBROUTINE 1281 02400 0000 FRMTST, 0 1282 02401 4741 JMS I FRM2 /TEST 5.1 FRM15 1283 02402 0000 0 1284 02403 0000 0 1285 02404 0053 53 /ERRNO 53 1286 02405 4742 JMS I FRM2+1 /TEST 5.2,5.3 WRB11 1287 02406 0075 75 /ERRNO 75 1288 02407 0000 0 1289 02410 0000 0 1290 02411 0000 0 1291 02412 0004 4 1292 02413 7604 CLA OSR 1293 02414 0343 AND FRM2+2 /40 1294 02415 7640 SZA CLA 1295 02416 5321 JMP FRM3 1296 02417 4741 JMS I FRM2 /TEST 5.4 FRM15 1297 02420 0000 0 1298 02421 1777 1777 1299 02422 0173 173 /ERRNO 1300 02423 7200 CLA 1301 02424 3033 DCA TRACK 1302 02425 4744 JMS I FRM2+3 /TEST 5.5 FRM5 1303 02426 0000 0 1304 02427 0343 EXLTAR 1305 02430 4000 4000 1306 02431 4401 4401 1307 02432 7777 7777 1308 02433 0176 176 /ERRNO 1309 02434 5225 JMP .-7 1310 02435 4744 JMS I FRM2+3 /TEST 5.6 FRM5 1311 02436 0000 0 1312 02437 2361 EXLTAW 1313 02440 4000 4000 1314 02441 4401 4401 1315 02442 7777 7777 1316 02443 0200 200 /ERRNO 1317 02444 5235 JMP .-7 1318 02445 4741 JMS I FRM2 /TEST 5.7 FRM15 1319 02446 4000 4000 1320 02447 0000 0 1321 02450 0056 56 /ERRNO 1322 02451 7200 CLA 1323 02452 1054 TAD MAXSEC 1324 02453 3260 DCA FRM4 1325 02454 1055 TAD MAXSEC+1 1326 02455 3261 DCA FRM4+1 1327 02456 4742 JMS I FRM2+1 /TEST 5.8,5.9 WRB11 1328 02457 0105 105 /ERRNO 1329 02460 0000 FRM4, 0 1330 02461 0000 0 1331 02462 7777 7777 1332 02463 7774 7774 1333 02464 7604 CLA OSR 1334 02465 0345 AND FRM2+4 1335 02466 7650 SNA CLA 1336 02467 5314 JMP FRM7 1337 02470 4513 JMS I TYPDIS 1338 02471 7200 CLA 1339 02472 3033 DCA TRACK 1340 02473 4744 JMS I FRM2+3 /TEST 5.10 FRM5 1341 02474 0040 40 1342 02475 2361 EXLTAW 1343 02476 0400 400 1344 02477 5001 5001 1345 02500 7777 7777 1346 02501 0202 202 /ERRNO 1347 02502 5273 JMP .-7 1348 02503 4744 JMS I FRM2+3 /TEST 5.11 FRM5 1349 02504 0000 0 1350 02505 2361 EXLTAW 1351 02506 0400 400 1352 02507 4041 4041 1353 02510 7777 7777 1354 02511 0204 204 /ERRNO 1355 02512 5303 JMP .-7 1356 02513 4514 JMS I TYPENA 1357 02514 4741 FRM7, JMS I FRM2 /TEST 5.12 FRM15 1358 02515 0000 0 1359 02516 0000 0 1360 02517 0064 64 /ERRNO 1361 02520 5600 JMP I FRMTST 1362 02521 4523 FRM3, JMS I CRLF 1363 02522 4515 JMS I TYPTEX 1364 02523 0516 TEXT /END FORMAT OPERATION/ 02524 0440 02525 0617 02526 2215 02527 0124 02530 4017 02531 2005 02532 2201 02533 2411 02534 1716 02535 0000 1365 02536 4523 JMS I CRLF 1366 02537 7402 HLT 1367 02540 5337 JMP .-1 1368 02541 0600 FRM2, FRM15 1369 02542 1600 WRB11 1370 02543 0040 40 1371 02544 3200 FRM5 1372 02545 0020 20 1373 /WVDMARK PATCH... 1374 /INTRET, JMS CLEAR 1375 / ION 1376 / JMP I 0 1377 /IONRET, 0 1378 / JMS CLEAR 1379 / ION 1380 / JMP I IONRET 1381 /CLEAR, 0 1382 / CLA 1383 / NOP 1384 / NOP /CLEAR IOT DEPENDING ON DEVICES 1385 / NOP /CLEAR IOT DEPENDING ON DEVICES 1386 / NOP /CLEAR IOT DEPENDING ON DEVICES 1387 / NOP /CLEAR IOT DEPENDING ON DEVICES 1388 / NOP /CLEAR IOT DEPENDING ON DEVICES 1389 / JMP I CLEAR 1390 1391 *2600 1392 /OVERLAP SEEK-LAI TEST, MAIN ROUTINE 1393 02600 0000 LAITST, 0 1394 02601 7200 CLA 1395 02602 1046 TAD UNIT 1396 02603 7041 CIA 1397 02604 3365 DCA LAI2 1398 02605 7001 IAC 1399 02606 3774 DCA I LAI21 1400 02607 1366 TAD LAI2+1 /7770 1401 02610 3775 DCA I LAI21+1 1402 02611 1365 TAD LAI2 1403 02612 7650 SNA CLA 1404 02613 5226 JMP LAI22 1405 02614 1774 LAI23, TAD I LAI21 1406 02615 7104 CLL RAL 1407 02616 7006 RTL 1408 02617 3774 DCA I LAI21 /0010, 0100, 1000 1409 02620 1775 TAD I LAI21+1 1410 02621 7124 STL RAL 1411 02622 7006 RTL 1412 02623 3775 DCA I LAI21+1 /7704, 7044, 0444 1413 02624 2365 ISZ LAI2 1414 02625 5214 JMP LAI23 1415 02626 4477 LAI22, JMS I RDSSR /TEST 4.1 READY TO SEEK? 1416 02627 0774 AND I LAI21 1417 02630 7650 SNA CLA 1418 02631 5236 JMP LAI3 1419 02632 4553 NL0004 1420 02633 7001 IAC /ERRNO 5 1421 02634 4502 JMS I TYPERR 1422 02635 4520 JMS I TYPSRI 1423 02636 4503 LAI3, JMS I HLTLP 1424 02637 5226 JMP LAI22 1425 02640 7201 CLA IAC 1426 02641 1056 TAD MAXTRK 1427 02642 3033 DCA TRACK /MAXTRK+1 FOR NEXT TEST 1428 02643 3031 DCA SECTOR 1429 02644 4772 JMS I LAI2+5 /LAI6 1430 02645 4555 JMS I PWAIT 1431 02646 0775 AND I LAI21+1 1432 02647 3776 DCA I LAI21+2 1433 02650 4500 LAI31, JMS I IOLS /LOAD SAR AND OVERLAP SEEK 1434 02651 7200 CLA 1435 02652 1774 TAD I LAI21 1436 02653 7004 RAL 1437 02654 3365 DCA LAI2 1438 02655 1365 TAD LAI2 1439 02656 7004 RAL 1440 02657 1365 TAD LAI2 1441 02660 3365 DCA LAI2 1442 02661 4477 JMS I RDSSR 1443 02662 0365 AND LAI2 1444 02663 7650 SNA CLA 1445 02664 5271 JMP LAI32 1446 02665 4552 NL0003 1447 02666 7104 CLL RAL /ERRNO 6 1448 02667 4502 JMS I TYPERR 1449 02670 4520 JMS I TYPSRI 1450 02671 3365 LAI32, DCA LAI2 1451 02672 4773 JMS I LAI2+6 /LAI7 1452 02673 7650 SNA CLA 1453 02674 5302 JMP LAI34 1454 02675 2365 ISZ LAI2 1455 02676 5272 JMP LAI32+1 1456 02677 1367 TAD LAI2+2 /ERRNO 206 1457 02700 4502 JMS I TYPERR 1458 02701 4520 JMS I TYPSRI 1459 02702 4503 LAI34, JMS I HLTLP 1460 02703 5250 JMP LAI31 1461 02704 1033 TAD TRACK 1462 02705 4770 JMS I LAI2+3 /LAI4 1463 02706 0000 0 1464 02707 0004 4 1465 02710 0001 1 1466 02711 0007 7 /ERRNO 7.. 1467 02712 5304 JMP .-6 1468 02713 4770 JMS I LAI2+3 1469 02714 0000 0 1470 02715 0000 0 1471 02716 0001 1 1472 02717 0015 15 /ERRNO 15.. 1473 02720 5313 JMP .-5 1474 02721 1056 TAD MAXTRK 1475 02722 4770 JMS I LAI2+3 1476 02723 0000 0 1477 02724 0000 0 1478 02725 0001 1 1479 02726 0023 23 /ERRNO 23.. 1480 02727 5321 JMP .-6 1481 02730 7201 CLA IAC 1482 02731 3027 DCA WCCA 1483 02732 4501 JMS I IWCCA 1484 02733 4473 JMS I LDCON 1485 02734 1056 TAD MAXTRK 1486 02735 4770 JMS I LAI2+3 1487 02736 0002 2 1488 02737 0000 0 1489 02740 0000 0 1490 02741 0031 31 /ERRNO 31.. 1491 02742 5334 JMP .-6 1492 02743 1046 TAD UNIT 1493 02744 3377 DCA LAI21+3 1494 02745 1046 TAD UNIT 1495 02746 7041 CIA 1496 02747 1371 TAD LAI2+4 1497 02750 3046 DCA UNIT 1498 02751 4473 JMS I LDCON 1499 02752 1377 TAD LAI21+3 1500 02753 3046 DCA UNIT 1501 02754 1056 TAD MAXTRK 1502 02755 4770 JMS I LAI2+3 1503 02756 0000 0 1504 02757 0000 0 1505 02760 0000 0 1506 02761 0037 37 /ERRNO 37.. 1507 02762 5354 JMP .-6 1508 02763 4772 JMS I LAI2+5 1509 02764 5600 JMP I LAITST 1510 02765 0000 LAI2, 0 1511 02766 7770 7770 1512 02767 0206 206 1513 02770 3000 LAI4 1514 02771 0003 3 1515 02772 3400 LAI6 1516 02773 5331 LAI7 1517 02774 3153 LAI21, LAI41 1518 02775 3154 LAI41+1 1519 02776 3155 LAI41+2 1520 02777 0000 0 1521 1522 *3000 1523 /CALL SEQ - AC=TRACK,WD1=BUSY VAL,WD2=HDW VAL,WD3=DON VAL, 1524 /WD4=ERROR 1525 /LAI AND OVERLAP SEEK TEST ROUTINE-BASIC DRIVE 1526 03000 0000 LAI4, 0 1527 03001 3361 DCA LAI42+3 1528 03002 4466 JMS I CLSTAT 1529 03003 1057 TAD ADDRES 1530 03004 1356 TAD LAI42 1531 03005 3213 DCA LAI43 1532 03006 1357 TAD LAI42+1 1533 03007 3360 DCA LAI42+2 1534 03010 3363 DCA LAI42+5 1535 03011 1361 TAD LAI42+3 1536 03012 4500 JMS I IOLS 1537 03013 0000 LAI43, 0 /6507=DRSS 1538 03014 0353 AND LAI41 1539 03015 7640 SZA CLA 1540 03016 2363 ISZ LAI42+5 1541 03017 2360 ISZ LAI42+2 1542 03020 5213 JMP LAI43 1543 03021 1213 TAD LAI43 1544 03022 3223 DCA .+1 1545 03023 0000 LAI45, 0 /DRSS AGAIN 1546 03024 3361 DCA LAI42+3 1547 03025 1361 TAD LAI42+3 1548 03026 0353 AND LAI41 1549 03027 7650 SNA CLA 1550 03030 5272 JMP LAI47 1551 03031 1361 TAD LAI42+3 1552 03032 0354 AND LAI41+1 1553 03033 7041 CIA 1554 03034 1355 TAD LAI41+2 1555 03035 7650 SNA CLA 1556 03036 5345 JMP LAI441 1557 03037 7326 NL0002 1558 03040 2200 ISZ LAI4 1559 03041 2200 ISZ LAI4 1560 03042 2200 ISZ LAI4 1561 03043 1600 TAD I LAI4 1562 03044 4502 JMS I TYPERR 1563 03045 7200 CLA 1564 03046 1355 TAD LAI41+2 1565 03047 4521 JMS I TYPSRB 1566 03050 2200 LAI46, ISZ LAI4 1567 03051 4503 JMS I HLTLP 1568 03052 5600 JMP I LAI4 1569 03053 2200 ISZ LAI4 1570 03054 5600 JMP I LAI4 1571 03055 2360 LAI44, ISZ LAI42+2 1572 03056 5223 JMP LAI45 1573 03057 2200 ISZ LAI4 1574 03060 2200 ISZ LAI4 1575 03061 2200 ISZ LAI4 1576 03062 1600 TAD I LAI4 1577 03063 4502 JMS I TYPERR 1578 03064 7200 CLA 1579 03065 1360 TAD LAI42+2 1580 03066 7640 SZA CLA 1581 03067 4517 JMS I TYPSTI 1582 03070 4520 JMS I TYPSRI 1583 03071 5250 JMP LAI46 1584 03072 1046 LAI47, TAD UNIT 1585 03073 7041 CIA 1586 03074 7450 SNA 1587 03075 5305 JMP .+10 1588 03076 3362 DCA LAI42+4 1589 03077 1361 TAD LAI42+3 1590 03100 7012 RTR 1591 03101 7010 RAR 1592 03102 2362 ISZ LAI42+4 1593 03103 5300 JMP .-3 1594 03104 3361 DCA LAI42+3 1595 03105 7326 NL0002 1596 03106 0361 AND LAI42+3 1597 03107 7041 CIA 1598 03110 1600 TAD I LAI4 1599 03111 7650 SNA CLA 1600 03112 5315 JMP .+3 1601 03113 4552 NL0003 1602 03114 5257 JMP LAI44+2 1603 03115 2200 ISZ LAI4 1604 03116 4553 NL0004 1605 03117 0361 AND LAI42+3 1606 03120 7041 CIA 1607 03121 1600 TAD I LAI4 1608 03122 7650 SNA CLA 1609 03123 5331 JMP .+6 1610 03124 1036 TAD TYPDSK 1611 03125 7640 SZA CLA 1612 03126 5331 JMP .+3 1613 03127 4553 NL0004 1614 03130 5260 JMP LAI44+3 1615 03131 2200 ISZ LAI4 1616 03132 4470 JMS I RDSTAT 1617 03133 7010 RAR 1618 03134 7204 CLA RAL 1619 03135 7041 CIA 1620 03136 1600 TAD I LAI4 1621 03137 2200 ISZ LAI4 1622 03140 7650 SNA CLA 1623 03141 5250 JMP LAI46 1624 03142 4553 NL0004 1625 03143 7001 IAC 1626 03144 5262 JMP LAI44+5 1627 03145 1352 LAI441, TAD .+5 1628 03146 7001 IAC 1629 03147 7440 SZA 1630 03150 5346 JMP .-2 1631 03151 5255 JMP LAI44 1632 03152 7760 7760 1633 03153 0000 LAI41, 0 1634 03154 0000 0 1635 03155 0000 0 1636 03156 6007 LAI42, DRSS 1637 03157 7774 7774 1638 03160 0000 0 1639 03161 0000 0 1640 03162 0000 0 1641 03163 0000 0 1642 1643 *3200 1644 /SPECIAL CHECK ROUTINE FOR FORMAT CHECKS 1645 03200 0000 FRM5, 0 1646 03201 7200 CLA 1647 03202 3031 DCA SECTOR 1648 03203 4476 JMS I LDSEC 1649 03204 4466 JMS I CLSTAT 1650 03205 7200 CLA 1651 03206 1600 TAD I FRM5 1652 03207 4473 JMS I LDCON 1653 03210 2200 ISZ FRM5 1654 03211 7200 CLA 1655 03212 1600 TAD I FRM5 1656 03213 3144 DCA FRM51 1657 03214 2200 ISZ FRM5 1658 03215 1600 TAD I FRM5 1659 03216 7041 CIA 1660 03217 3145 DCA FRM51+1 1661 03220 4544 JMS I FRM51 1662 03221 2200 ISZ FRM5 1663 03222 1600 TAD I FRM5 1664 03223 2200 ISZ FRM5 1665 03224 0600 AND I FRM5 1666 03225 3144 DCA FRM51 1667 03226 4467 JMS I SKPDON 1668 03227 5244 JMP FRM52 1669 03230 2145 ISZ FRM51+1 1670 03231 5226 JMP .-3 1671 03232 2200 ISZ FRM5 1672 03233 1600 FRM53, TAD I FRM5 1673 03234 4502 JMS I TYPERR 1674 03235 1144 TAD FRM51 1675 03236 4516 JMS I TYPSTB 1676 03237 2200 ISZ FRM5 1677 03240 4503 JMS I HLTLP 1678 03241 5600 JMP I FRM5 1679 03242 2200 ISZ FRM5 1680 03243 5600 JMP I FRM5 1681 03244 4470 FRM52, JMS I RDSTAT 1682 03245 0600 AND I FRM5 1683 03246 7041 CIA 1684 03247 1144 TAD FRM51 1685 03250 2200 ISZ FRM5 1686 03251 7650 SNA CLA 1687 03252 5237 JMP FRM52-5 1688 03253 7001 IAC 1689 03254 5233 JMP FRM53 1690 /ROUTINE TO CHECK FOR LAI ERROR GENERATION 1691 03255 0000 LAI5, 0 1692 03256 7300 CLA CLL 1693 03257 1655 TAD I LAI5 1694 03260 3144 DCA LAI51 /READ/WRITE 1695 03261 2255 ISZ LAI5 1696 03262 1655 TAD I LAI5 1697 03263 7041 CIA 1698 03264 3146 DCA LAI51+2 /TIMEOUT 1699 03265 2255 ISZ LAI5 1700 03266 1655 TAD I LAI5 1701 03267 7040 CMA 1702 03270 7430 SZL 1703 03271 7001 IAC 1704 03272 3145 DCA LAI51+1 /TIMEOUT 1705 03273 2255 ISZ LAI5 1706 03274 4473 JMS I LDCON 1707 03275 4466 JMS I CLSTAT 1708 03276 7201 CLA IAC 1709 03277 3027 DCA WCCA 1710 03300 4501 JMS I IWCCA 1711 03301 4476 JMS I LDSEC 1712 03302 4544 JMS I LAI51 1713 03303 4467 JMS I SKPDON 1714 03304 5323 JMP LAI52 1715 03305 2146 ISZ LAI51+2 1716 03306 5303 JMP .-3 1717 03307 2145 ISZ LAI51+1 1718 03310 5303 JMP .-5 1719 03311 7200 CLA 1720 03312 1655 LAI53, TAD I LAI5 /ERRNO 1721 03313 2255 ISZ LAI5 1722 03314 4502 JMS I TYPERR 1723 03315 4517 JMS I TYPSTI 1724 03316 4520 JMS I TYPSRI 1725 03317 4503 JMS I HLTLP 1726 03320 5655 JMP I LAI5 1727 03321 2255 ISZ LAI5 1728 03322 5655 JMP I LAI5 1729 03323 4470 LAI52, JMS I RDSTAT 1730 03324 1147 TAD LAI51+3 /3577 -4201 1731 03325 7650 SNA CLA 1732 03326 5331 JMP .+3 1733 03327 7201 CLA IAC /ERRNO+1 1734 03330 5312 JMP LAI53 1735 03331 1046 TAD UNIT 1736 03332 7040 CMA 1737 03333 3144 DCA LAI51 1738 03334 4477 JMS I RDSSR 1739 03335 7012 RTR 1740 03336 7010 RAR 1741 03337 2144 ISZ LAI51 1742 03340 5335 JMP .-3 1743 03341 7630 SZL CLA 1744 03342 5350 JMP .+6 1745 03343 1036 TAD TYPDSK 1746 03344 7640 SZA CLA 1747 03345 5350 JMP .+3 1748 03346 7326 NL0002 /ERRNO+2 1749 03347 5312 JMP LAI53 1750 03350 2255 ISZ LAI5 1751 03351 5317 JMP LAI52-4 1752 03352 0000 EXIWC, 0 /INITIATE WCCA 1753 03353 7200 CLA 1754 03354 1142 TAD EXIWC1 1755 03355 1057 TAD ADDRES 1756 03356 3360 DCA .+2 1757 03357 1143 TAD EXIWC1+1 1758 03360 0000 0 1759 03361 7200 CLA 1760 03362 5752 JMP I EXIWC 1761 03363 0000 EXOLS, 0 /LOAD SAR WITH CONTENTS OF AC, UNIT, AND INITIATE OVERLAP SEEK 1762 03364 3025 DCA EXOLS1 1763 03365 1026 TAD EXOLS1+1 1764 03366 1057 TAD ADDRES 1765 03367 3374 DCA .+5 1766 03370 1046 TAD UNIT 1767 03371 7112 CLL RTR 1768 03372 7010 RAR 1769 03373 1025 TAD EXOLS1 1770 03374 0000 0 1771 03375 7200 CLA 1772 03376 5763 JMP I EXOLS 1773 1774 *3400 1775 03400 0000 LAI6, 0 /SUBTESTS 4.8, 4.9 1776 03401 1057 TAD ADDRES 1777 03402 1223 TAD LAI61 1778 03403 3232 DCA LAI63 1779 03404 4624 JMS I LAI61+1 /LAI5 TEST 4.8 1780 03405 0343 EXLTAR 1781 03406 0400 400 1782 03407 0000 0 1783 03410 0045 45 /ERRNO 45.. 1784 03411 5204 JMP .-5 1785 03412 4226 JMS LAI62 1786 03413 4624 JMS I LAI61+1 /LAI5 TEST 4.9 1787 03414 2361 EXLTAW 1788 03415 1000 1000 1789 03416 0000 0 1790 03417 0050 50 /ERRNO 50.. 1791 03420 5213 JMP .-5 1792 03421 4226 JMS LAI62 1793 03422 5600 JMP I LAI6 1794 03423 6011 LAI61, DSDE 1795 03424 3255 LAI5 1796 03425 0207 207 /ERRNO 207 1797 03426 0000 LAI62, 0 1798 03427 4470 JMS I RDSTAT 1799 03430 7700 SMA CLA 1800 03431 5626 JMP I LAI62 1801 03432 0000 LAI63, 0 1802 03433 5235 JMP .+2 1803 03434 5626 JMP I LAI62 1804 03435 1225 TAD LAI61+2 /ERRNO 207 1805 03436 4502 JMS I TYPERR 1806 03437 4517 JMS I TYPSTI 1807 03440 4503 JMS I HLTLP 1808 03441 5232 JMP LAI63 1809 03442 5626 JMP I LAI62 1810 /REGISTER TRANSFER TEST, CALLING SEQUENC-AC=VALUE 1811 /WD1=LDIOT,WD2=RDIOT,WD3=ERRMASK,WD4=TYPOUT,WD5=ERRNO 1812 03443 0000 REGTRT, 0 1813 03444 3307 DCA REGT1 1814 03445 1307 TAD REGT1 1815 03446 3033 DCA TRACK 1816 03447 1033 TAD TRACK 1817 03450 3031 DCA SECTOR 1818 03451 4313 JMS REGT2 /EXEC LDIOT 1819 03452 4313 JMS REGT2 /EXEC RDIOT 1820 03453 0643 AND I REGTRT 1821 03454 3310 DCA REGT1+1 1822 03455 1307 TAD REGT1 1823 03456 0643 AND I REGTRT 1824 03457 2243 ISZ REGTRT 1825 03460 3311 DCA REGT1+2 1826 03461 1311 TAD REGT1+2 1827 03462 7041 CIA 1828 03463 1310 TAD REGT1+1 1829 03464 7650 SNA CLA /READ = VALUE? 1830 03465 5277 JMP REGT3 1831 03466 1643 TAD I REGTRT 1832 03467 3310 DCA REGT1+1 /TYPOUT ERROR ROUTINE 1833 03470 2243 ISZ REGTRT 1834 03471 1643 TAD I REGTRT 1835 03472 4502 JMS I TYPERR /ERROR NUMBER 1836 03473 7200 CLA 1837 03474 1311 TAD REGT1+2 /TYPE VALUE 1838 03475 4710 JMS I REGT1+1 1839 03476 5300 JMP .+2 /ERROR RETURN 1840 03477 2243 REGT3, ISZ REGTRT /OK , GO BACK 1841 03500 2243 ISZ REGTRT 1842 03501 4503 JMS I HLTLP 1843 03502 5304 JMP .+2 1844 03503 2243 ISZ REGTRT 1845 03504 7200 CLA 1846 03505 1307 TAD REGT1 1847 03506 5643 JMP I REGTRT 1848 03507 0000 REGT1, 0 1849 03510 0000 0 1850 03511 0000 0 1851 03512 0000 0 1852 03513 0000 REGT2, 0 1853 03514 3312 DCA REGT1+3 1854 03515 1643 TAD I REGTRT 1855 03516 2243 ISZ REGTRT 1856 03517 1057 TAD ADDRES 1857 03520 3323 DCA .+3 1858 03521 1307 TAD REGT1 1859 03522 1312 TAD REGT1+3 1860 03523 0000 0 1861 03524 5713 JMP I REGT2 1862 /INTERRUPT TEST 1863 03525 0000 INTST, 0 1864 03526 7200 CLA 1865 03527 1002 TAD 2 1866 03530 3350 DCA INT1 1867 03531 1351 TAD INT1+1 1868 03532 3002 DCA 2 1869 03533 1352 TAD INT1+2 1870 03534 4473 JMS I LDCON 1871 03535 4552 NL0003 1872 03536 4502 JMS I TYPERR 1873 03537 4522 JMS I TYPCNI 1874 03540 7200 INT2, CLA 1875 03541 1350 TAD INT1 1876 03542 3002 DCA 2 1877 03543 4473 JMS I LDCON 1878 03544 6001 ION 1879 03545 4503 JMS I HLTLP 1880 03546 5326 JMP INTST+1 1881 03547 5725 JMP I INTST 1882 03550 0000 INT1, 0 1883 03551 3540 INT2 1884 03552 0101 101 1885 03553 0000 EXRDSS, 0 /READ SSR 1886 03554 7200 CLA 1887 03555 1057 TAD ADDRES 1888 03556 1362 TAD .+4 1889 03557 3360 DCA .+1 1890 03560 0000 0 1891 03561 5753 JMP I EXRDSS 1892 03562 6007 DRSS 1893 03563 0000 EXLSEC, 0 /LOAD SCR WITH SECTOR 1894 03564 7200 CLA 1895 03565 1057 TAD ADDRES 1896 03566 1374 TAD .+6 1897 03567 3371 DCA .+2 1898 03570 1031 TAD SECTOR 1899 03571 0000 0 1900 03572 7200 CLA 1901 03573 5763 JMP I EXLSEC 1902 03574 6012 DLSR 1903 1904 *3600 1905 /PARAMETER INPUT ROUTINE 1906 03600 0000 PARAM, 0 1907 03601 7200 CLA 1908 03602 6032 KCC 1909 03603 3060 DCA ERRFLG 1910 03604 1345 TAD PAR11+2 1911 03605 3061 DCA ERRFL1 1912 03606 7001 IAC 1913 03607 3064 DCA PASS1 1914 03610 1337 TAD PAR1 /-4 1915 03611 3340 DCA PAR1+1 1916 03612 1341 TAD PAR1+2 /DSKDAT AREA 1917 03613 3220 DCA PAR2 1918 03614 4742 PAR3, JMS I PAR1+3 /UNPAR 1919 03615 5227 JMP PAR21 1920 03616 4540 JMS I PEXEC2 /MOVE FROM TO 1921 03617 0035 TYPDSK-1 1922 03620 0000 PAR2, 0 /POINTS TO AREA OF UNIT 1923 03621 0013 13 1924 03622 1220 TAD PAR2 1925 03623 1221 TAD PAR2+1 /POINT TO NEW UNIT 1926 03624 3220 DCA PAR2 1927 03625 2340 ISZ PAR1+1 1928 03626 5214 JMP PAR3 /NEXT UNIT 1929 03627 1340 PAR21, TAD PAR1+1 1930 03630 7041 CIA 1931 03631 1337 TAD PAR1 1932 03632 7440 SZA 1933 03633 5236 JMP .+3 1934 03634 4524 JMS I TYPQQ 1935 03635 5201 JMP PARAM+1 1936 03636 3063 DCA PORTS 1937 03637 4523 PAR22, JMS I CRLF 1938 03640 4515 JMS I TYPTEX 1939 03641 0516 TEXT /ENTER UNIT ADDRESS/ 03642 2405 03643 2240 03644 2516 03645 1124 03646 4001 03647 0404 03650 2205 03651 2323 03652 0000 1940 03653 4541 JMS I TYPLAS 1941 03654 1150 TAD SWR 1942 03655 0343 AND PAR11 /ONLY 64 AND PAIR 1943 03656 7650 SNA CLA 1944 03657 5262 JMP .+3 1945 03660 4524 JMS I TYPQQ 1946 03661 5237 JMP PAR22 1947 03662 1150 TAD SWR 1948 03663 7104 CLL RAL 1949 03664 7006 RTL 1950 03665 3057 DCA ADDRES /PUT INTO DEVICE ADDRESS FOR MERGE 1951 03666 4523 JMS I CRLF 1952 03667 4515 JMS I TYPTEX 1953 03670 0516 TEXT /ENTER FORMAT LOOP CONTROL/ 03671 2405 03672 2240 03673 0617 03674 2215 03675 0124 03676 4014 03677 1717 03700 2040 03701 0317 03702 1624 03703 2217 03704 1400 1954 03705 4541 JMS I TYPLAS 1955 03706 1150 TAD SWR 1956 03707 7640 SZA CLA 1957 03710 7001 IAC 1958 03711 3065 DCA LPFORM /SET FORMAT SWITCH 1959 03712 4744 JMS I PAR11+1 /MESSAGE SET FORMAT 1960 03713 4515 JMS I TYPTEX 1961 03714 5440 TEXT /, ERROR AND TYPE OUT CONTROLS/ 03715 0522 03716 2217 03717 2240 03720 0116 03721 0440 03722 2431 03723 2005 03724 4017 03725 2524 03726 4003 03727 1716 03730 2422 03731 1714 03732 2300 1962 03733 4541 JMS I TYPLAS /READ SWITCH ONE LAST TIME AND GO 1963 03734 4523 JMS I CRLF 1964 03735 6001 ION 1965 03736 5600 JMP I PARAM 1966 03737 7774 PAR1, 7774 1967 03740 0000 0 1968 03741 5377 DSKDAT-1 1969 03742 4000 UNPAR 1970 03743 7701 PAR11, 7701 1971 03744 4334 EXTNA1 1972 03745 7771 7771 1973 03746 0000 EXLCON, 0 /LOAD CNR WITH CONTENTS OF AC, UNIT 1974 03747 3362 DCA LDCON1 1975 03750 1363 TAD LDCON1+1 1976 03751 1057 TAD ADDRES 1977 03752 3357 DCA .+5 1978 03753 1046 TAD UNIT 1979 03754 7106 CLL RTL 1980 03755 7004 RAL 1981 03756 1362 TAD LDCON1 1982 03757 0000 0 1983 03760 7200 CLA 1984 03761 5746 JMP I EXLCON 1985 03762 0000 LDCON1, 0 1986 03763 6002 DLCR 1987 03764 0000 EXRDSC, 0 1988 03765 7200 CLA 1989 03766 1057 TAD ADDRES 1990 03767 1373 TAD .+4 1991 03770 3371 DCA .+1 1992 03771 0000 0 1993 03772 5764 JMP I EXRDSC 1994 03773 6013 DSRR 1995 1996 *4000 1997 /ENTER PARAMETERS FOR A DISK PORT 1998 04000 0000 UNPAR, 0 1999 04001 3047 DCA DAISY 2000 04002 3050 DCA DAIVAL 2001 04003 4523 JMS I CRLF 2002 04004 4515 JMS I TYPTEX 2003 04005 0516 TEXT /ENTER DISK TEST INFORMATION/ 04006 2405 04007 2240 04010 0411 04011 2313 04012 4024 04013 0523 04014 2440 04015 1116 04016 0617 04017 2215 04020 0124 04021 1117 04022 1600 2004 04023 4541 JMS I TYPLAS 2005 04024 1150 TAD SWR 2006 04025 7450 SNA 2007 04026 5600 JMP I UNPAR /SWITCH = 0 END PORTS 2008 04027 0323 AND UNPAR2 2009 04030 3046 DCA UNIT /BITS 10,11 OF UNIT 2010 04031 1150 TAD SWR 2011 04032 0326 AND UNPAR2+3 /BIT 8 2012 04033 7650 SNA CLA 2013 04034 5237 JMP UNPAR3 2014 04035 1325 TAD UNPAR2+2 /1457=408 CYL 2015 04036 7410 SKP 2016 04037 1330 UNPAR3, TAD UNPAR4 /627 =204 CYL 2017 04040 3044 DCA MAXRTR 2018 04041 1150 TAD SWR 2019 04042 0327 AND UNPAR2+4 /BIT 9 2020 04043 7750 SNA CLA CLL 2021 04044 5264 JMP UNPAR5 2022 04045 3036 DCA TYPDSK /MOVING HEAD DISK 2023 04046 1150 TAD SWR 2024 04047 0324 AND UNPAR2+1 /BITS 6-7 2025 04050 7450 SNA 2026 04051 5272 JMP UNPAR5+6 /NOT FIXED AND NOT REMOVABLE ERROR 2027 04052 7012 RTR 2028 04053 7012 RTR 2029 04054 7010 RAR 2030 04055 7650 SNA CLA /REMOVABLE? 2031 04056 5307 JMP UNPR51 2032 04057 1331 TAD UNPAR4+1 2033 04060 7420 SNL /FIXED DISK IN LINK 2034 04061 3050 DCA DAIVAL /2000 IF REMOVABLE 2035 04062 3047 DCA DAISY /2000 IF FIXED 2036 04063 5307 JMP UNPR51 2037 04064 7040 UNPAR5, CMA 2038 04065 3036 DCA TYPDSK /FIXED HEAD DISK 2039 04066 1150 TAD SWR 2040 04067 0332 AND UNPAR4+2 /3700 2041 04070 7440 SZA 2042 04071 5274 JMP .+3 2043 04072 4524 JMS I TYPQQ 2044 04073 5201 JMP UNPAR+1 2045 04074 1333 TAD UNPAR4+3 /5700 16 MAX 2046 04075 7700 SMA CLA 2047 04076 5272 JMP .-4 /MORE THAN 16 ERROR 2048 04077 1150 TAD SWR 2049 04100 0332 AND UNPAR4+2 2050 04101 7112 CLL RTR 2051 04102 7010 RAR 2052 04103 3044 DCA MAXRTR /8 TO 128 TRACKS 2053 04104 7040 CMA 2054 04105 1044 TAD MAXRTR 2055 04106 3044 DCA MAXRTR /-1 FOR MAX TRACKS 2056 04107 4734 UNPR51, JMS I UNPAR4+4 /UNPAR6 2057 04110 0042 MAXRSC 2058 04111 3045 DCA FULL /FULL DISK = 0 2059 04112 4540 JMS I PEXEC2 /MOVE TRACKS AND SECTORS 2060 04113 0041 MAXRSC-1 2061 04114 0036 MAXTSC-1 /TO TSC 2062 04115 0003 3 2063 04116 1150 TAD SWR /TEST NUMBER OF CYLS? 2064 04117 7710 SPA CLA 2065 04120 4735 JMS I UNPAR4+5 /YES GO TO UNPAR7 2066 04121 2200 ISZ UNPAR 2067 04122 5600 JMP I UNPAR 2068 04123 0003 UNPAR2, 3 2069 04124 0060 60 2070 04125 1457 1457 2071 04126 0010 10 2072 04127 0004 4 2073 04130 0627 UNPAR4, 627 2074 04131 2000 2000 2075 04132 3700 3700 2076 04133 5700 5700 2077 04134 4200 UNPAR6 2078 04135 4237 UNPAR7 2079 04136 0000 EXTON, 0 2080 04137 4515 JMS I TYPTEX 2081 04140 1716 TEXT /ON / 04141 4000 2082 04142 5736 JMP I EXTON 2083 04143 0000 EXCL1, 0 /FILL LAST WCCA-2 WORDS OF BUF1 WITH 0'S 2084 04144 7200 CLA /FOLLOWED BY ONE 6666 2085 04145 1362 TAD EXCL11 2086 04146 3012 DCA 12 2087 04147 1027 TAD WCCA 2088 04150 1366 TAD EXCL11+4 2089 04151 7041 CIA 2090 04152 3363 DCA EXCL11+1 /WCCA-2 2091 04153 1364 TAD EXCL11+2 2092 04154 3412 DCA I 12 /ZEROS 2093 04155 2363 ISZ EXCL11+1 2094 04156 5353 JMP .-3 2095 04157 1365 TAD EXCL11+3 2096 04160 3412 DCA I 12 /6666 2097 04161 5743 JMP I EXCL1 2098 04162 5501 EXCL11, BUF1+1 /BUF1-1 + 2 2099 04163 0000 0 2100 04164 0000 0 2101 04165 6666 6666 2102 04166 7776 7776 2103 04167 0000 EXLAS, 0 /READ SWITCHES, STORE IN SWR 2104 04170 7402 HLT 2105 04171 7604 LAS 2106 04172 3150 DCA SWR 2107 04173 1150 TAD SWR 2108 04174 4525 JMS I TYPWD /AND PRINT 2109 04175 5767 JMP I EXLAS 2110 2111 *4200 2112 04200 0000 UNPAR6, 0 2113 04201 1053 TAD NUMSEC 2114 04202 7041 CIA 2115 04203 3232 DCA UNPR61 /-4 2116 04204 1600 TAD I UNPAR6 /MAXRSC OR MAXTSC 2117 04205 3233 DCA UNPR61+1 2118 04206 1233 TAD UNPR61+1 2119 04207 3234 DCA UNPR61+2 2120 04210 2200 ISZ UNPAR6 2121 04211 2234 ISZ UNPR61+2 2122 04212 1234 TAD UNPR61+2 2123 04213 3235 DCA UNPR61+3 2124 04214 2235 ISZ UNPR61+3 2125 04215 3633 DCA I UNPR61+1 2126 04216 1635 TAD I UNPR61+3 /GET MAX TRACKS MAXRTR MAXTTR 2127 04217 3634 DCA I UNPR61+2 2128 04220 7001 IAC /MAX HAD ONE LESS 2129 04221 1634 TAD I UNPR61+2 /LOOP HERE 2130 04222 7104 CLL RAL 2131 04223 3634 DCA I UNPR61+2 /LOW ORDER 2132 04224 1633 TAD I UNPR61+1 2133 04225 7004 RAL 2134 04226 3633 DCA I UNPR61+1 /HIGH ORDER 2135 04227 2232 ISZ UNPR61 /MULTIPLY * 16 2136 04230 5221 JMP .-7 2137 04231 5600 JMP I UNPAR6 2138 04232 0000 UNPR61, 0 2139 04233 0000 0 /MAXRSC OR MAXTSC 2140 04234 0000 0 /MAXRSC OR MAXTSC + 1 2141 04235 0000 0 /MAXRTR OR MAXTTR 2142 04236 0000 0 2143 04237 0000 UNPAR7, 0 2144 04240 4523 JMS I CRLF 2145 04241 4515 JMS I TYPTEX 2146 04242 0516 TEXT /ENTER MAX CYLINDER/ 04243 2405 04244 2240 04245 1501 04246 3040 04247 0331 04250 1411 04251 1604 04252 0522 04253 0000 2147 04254 4541 JMS I TYPLAS 2148 04255 1036 TAD TYPDSK 2149 04256 7640 SZA CLA 2150 04257 5305 JMP UNPR72 2151 04260 1044 TAD MAXRTR 2152 04261 7010 RAR 2153 04262 7040 CMA 2154 04263 3236 DCA UNPR61+4 2155 04264 1150 TAD SWR 2156 04265 7450 SNA 2157 04266 5272 JMP UNPR73 2158 04267 1236 TAD UNPR61+4 2159 04270 7750 SPA SNA CLA 2160 04271 5274 JMP .+3 2161 04272 4524 UNPR73, JMS I TYPQQ 2162 04273 5240 JMP UNPAR7+1 2163 04274 1150 TAD SWR 2164 04275 7104 CLL RAL 2165 04276 1151 TAD M1 2166 04277 3041 UNPR74, DCA MAXTTR /GETS SPECIFIED MAX TRACKS 2167 04300 4200 JMS UNPAR6 2168 04301 0037 MAXTSC 2169 04302 7040 CMA 2170 04303 3045 DCA FULL /SIGNAL PARTIAL TRACK TEST 2171 04304 5637 JMP I UNPAR7 2172 04305 7404 UNPR72, OSR 2173 04306 7041 CIA 2174 04307 1044 TAD MAXRTR 2175 04310 7710 SPA CLA 2176 04311 5272 JMP UNPR73 /NOT BIGGER THAN MAX 2177 04312 7404 OSR 2178 04313 5277 JMP UNPR74 2179 04314 0000 EXTDIS, 0 2180 04315 4523 JMS I CRLF 2181 04316 4515 JMS I TYPTEX 2182 04317 0411 TEXT /DISABLE/ 04320 2301 04321 0214 04322 0500 2183 04323 4345 JMS FRSW 2184 04324 4523 JMS I CRLF 2185 04325 7402 HLT 2186 04326 5714 JMP I EXTDIS 2187 04327 0000 EXTENA, 0 2188 04330 4334 JMS EXTNA1 2189 04331 4523 JMS I CRLF 2190 04332 7402 HLT 2191 04333 5727 JMP I EXTENA 2192 04334 0000 EXTNA1, 0 2193 04335 4523 JMS I CRLF 2194 04336 4515 JMS I TYPTEX 2195 04337 0516 TEXT /ENABLE/ 04340 0102 04341 1405 04342 0000 2196 04343 4345 JMS FRSW 2197 04344 5734 JMP I EXTNA1 2198 04345 0000 FRSW, 0 2199 04346 4515 JMS I TYPTEX 2200 04347 4006 TEXT / FORMAT SWITCH/ 04350 1722 04351 1501 04352 2440 04353 2327 04354 1124 04355 0310 04356 0000 2201 04357 5745 JMP I FRSW 2202 04360 0000 EXRDST, 0 /READ STATUS REGISTER 2203 04361 7200 CLA 2204 04362 1057 TAD ADDRES 2205 04363 1367 TAD .+4 2206 04364 3365 DCA .+1 2207 04365 0000 0 2208 04366 5760 JMP I EXRDST 2209 04367 6005 DRSR 2210 04370 0000 EXRDTR, 0 /READ TRACK ADDRESS 2211 04371 7200 CLA 2212 04372 1057 TAD ADDRES 2213 04373 1377 TAD .+4 2214 04374 3375 DCA .+1 2215 04375 0000 0 2216 04376 5770 JMP I EXRDTR 2217 04377 6016 DRTR 2218 2219 *4400 2220 04400 0000 EXTEX, 0 2221 04401 7200 CLA 2222 04402 1600 TAD I EXTEX 2223 04403 0221 AND EXTEX1 2224 04404 3222 DCA EXTEX1+1 2225 04405 1600 TAD I EXTEX 2226 04406 2200 ISZ EXTEX 2227 04407 7012 RTR 2228 04410 7012 RTR 2229 04411 7012 RTR 2230 04412 0221 AND EXTEX1 2231 04413 4227 JMS CHAROT 2232 04414 5600 JMP I EXTEX 2233 04415 1222 TAD EXTEX1+1 2234 04416 4227 JMS CHAROT 2235 04417 5600 JMP I EXTEX 2236 04420 5201 JMP EXTEX+1 2237 04421 0077 EXTEX1, 77 2238 04422 0000 0 2239 04423 0000 0 2240 04424 7745 7745 2241 04425 0100 100 2242 04426 0200 200 2243 04427 0000 CHAROT, 0 2244 04430 7450 SNA 2245 04431 5627 JMP I CHAROT 2246 04432 3223 DCA EXTEX1+2 2247 04433 1223 TAD EXTEX1+2 2248 04434 1224 TAD EXTEX1+3 2249 04435 7710 SPA CLA 2250 04436 1225 TAD EXTEX1+4 2251 04437 1226 TAD EXTEX1+5 2252 04440 1223 TAD EXTEX1+2 2253 04441 4244 JMS CHAROD 2254 04442 2227 ISZ CHAROT 2255 04443 5627 JMP I CHAROT 2256 04444 0000 CHAROD, 0 2257 04445 6002 IOF 2258 04446 6046 TLS 2259 04447 6041 TSF 2260 04450 5247 JMP .-1 2261 04451 6042 TCF 2262 04452 7200 CLA /WVDMARK JMS I .+1 2263 04453 6001 ION /IONRET 2264 04454 5644 JMP I CHAROD 2265 04455 0000 EXCRLF, 0 2266 04456 7200 CLA 2267 04457 1266 TAD EXCRL1 2268 04460 4244 JMS CHAROD 2269 04461 1267 TAD EXCRL1+1 2270 04462 4244 JMS CHAROD 2271 04463 1266 TAD EXCRL1 2272 04464 4244 JMS CHAROD 2273 04465 5655 JMP I EXCRLF 2274 04466 0215 EXCRL1, 215 2275 04467 0212 212 2276 04470 0277 277 2277 04471 0000 EXTQQ, 0 2278 04472 7200 CLA 2279 04473 1270 TAD EXCRL1+2 2280 04474 4244 JMS CHAROD 2281 04475 1270 TAD EXCRL1+2 2282 04476 4244 JMS CHAROD 2283 04477 5671 JMP I EXTQQ 2284 04500 0000 EXTADD, 0 2285 04501 4526 JMS I TYPCHK 2286 04502 5700 JMP I EXTADD 2287 04503 4517 JMS I TYPSTI /STR IS 2288 04504 4531 JMS I TYPTAB /TAR SB IS 2289 04505 4533 JMS I TYPSCB /SCR SB IS 2290 04506 5700 JMP I EXTADD 2291 04507 0000 EXSCAD, 0 /SAVE TRACK AND SECTOR 2292 04510 3341 DCA EXSCA1 /ADD BLOCKS TO SECTOR 2293 04511 1031 TAD SECTOR /CONVERT TO TRACK AND SECTOR 2294 04512 3032 DCA SECTOR+1 2295 04513 1033 TAD TRACK 2296 04514 3034 DCA TRACK+1 2297 04515 1053 TAD NUMSEC 2298 04516 7041 CIA 2299 04517 3342 DCA EXSCA1+1 2300 04520 7040 CMA 2301 04521 7104 CLL RAL 2302 04522 2342 ISZ EXSCA1+1 2303 04523 5321 JMP .-2 2304 04524 3342 DCA EXSCA1+1 2305 04525 1035 TAD BLOCKS 2306 04526 1031 TAD SECTOR 2307 04527 3031 DCA SECTOR 2308 04530 1031 TAD SECTOR 2309 04531 1342 TAD EXSCA1+1 2310 04532 7430 SZL 2311 04533 5336 JMP .+3 2312 04534 3031 DCA SECTOR 2313 04535 2033 ISZ TRACK 2314 04536 7300 CLA CLL 2315 04537 1341 TAD EXSCA1 2316 04540 5707 JMP I EXSCAD 2317 04541 0000 EXSCA1, 0 2318 04542 0000 0 2319 04543 0000 EXHLTP, 0 /HALT OR CONTINUE ROUTINE 2320 04544 7200 CLA /FIRST RETURN REPEAT, SECOND CONTINUE 2321 04545 1060 TAD ERRFLG 2322 04546 7650 SNA CLA 2323 04547 5373 JMP EXHLT1 2324 04550 3060 DCA ERRFLG 2325 04551 2061 ISZ ERRFL1 /DONE 7 TIMES? 2326 04552 5743 JMP I EXHLTP 2327 04553 7040 CMA 2328 04554 3061 DCA ERRFL1 2329 04555 7404 OSR 2330 04556 7012 RTR /HALT ON ERROR? 2331 04557 7630 SZL CLA 2332 04560 5363 JMP .+3 2333 04561 1062 TAD ERRNUM /YES 2334 04562 7402 HLT 2335 04563 7604 CLA OSR /COME HERE FROM JMP .-12 JMP .-3 2336 04564 7010 RAR /CONTINUE WITH TEST? 2337 04565 7630 SZL CLA 2338 04566 5743 JMP I EXHLTP /REPEAT CURRENT TEST 2339 04567 2343 ISZ EXHLTP /CONTINUE 2340 04570 1376 TAD EXHLT1+3 2341 04571 3061 DCA ERRFL1 2342 04572 5743 JMP I EXHLTP 2343 04573 1376 EXHLT1, TAD .+3 2344 04574 3061 DCA ERRFL1 2345 04575 5363 JMP .-12 2346 04576 7771 7771 2347 2348 *4600 2349 04600 0000 EXTERR, 0 /TYPE ERROR NUMBER 2350 04601 3062 DCA ERRNUM 2351 04602 7040 CMA 2352 04603 3060 DCA ERRFLG 2353 04604 4526 JMS I TYPCHK 2354 04605 5600 JMP I EXTERR 2355 04606 4523 JMS I CRLF 2356 04607 4515 JMS I TYPTEX 2357 04610 0522 TEXT /ERROR/ 04611 2217 04612 2200 2358 04613 1062 TAD ERRNUM 2359 04614 4525 JMS I TYPWD 2360 04615 1062 TAD ERRNUM 2361 04616 1231 TAD EXTER1 2362 04617 7710 SPA CLA 2363 04620 5227 JMP EXTER2 2364 04621 1062 TAD ERRNUM 2365 04622 1232 TAD EXTER1+1 2366 04623 7700 SMA CLA 2367 04624 5227 JMP EXTER2 2368 04625 4535 JMS I TYPON 2369 04626 4534 JMS I TYPUN 2370 04627 4523 EXTER2, JMS I CRLF 2371 04630 5600 JMP I EXTERR 2372 04631 7773 EXTER1, 7773 2373 04632 7571 7571 2374 04633 4060 4060 2375 04634 0000 EXWR, 0 /INITIATE WCCA, LOAD SCR WITH SECTOR, INITIATE WRITE 2376 04635 4501 JMS I IWCCA 2377 04636 4476 JMS I LDSEC 2378 04637 4475 JMS I LDTAWR 2379 04640 5634 JMP I EXWR 2380 04641 0000 EXRD, 0 /INITIATE WCCA, LOAD SCR WITH SECTOR, INITIATE READ 2381 04642 4501 JMS I IWCCA 2382 04643 4476 JMS I LDSEC 2383 04644 4474 JMS I LDTARD 2384 04645 5641 JMP I EXRD 2385 04646 0000 EXTDAT, 0 2386 04647 4526 JMS I TYPCHK 2387 04650 5646 JMP I EXTDAT 2388 04651 4515 JMS I TYPTEX 2389 04652 2717 TEXT /WORD/ 04653 2204 04654 0000 2390 04655 1300 TAD EXTDA1 2391 04656 1011 TAD 11 2392 04657 4525 JMS I TYPWD 2393 04660 4515 JMS I TYPTEX 2394 04661 0401 TEXT /DATA / 04662 2401 04663 4000 2395 04664 4527 JMS I TYPSB 2396 04665 1010 TAD 10 2397 04666 3301 DCA EXTDA1+1 2398 04667 1701 TAD I EXTDA1+1 2399 04670 4525 JMS I TYPWD 2400 04671 4530 JMS I TYPIS 2401 04672 1011 TAD 11 2402 04673 3301 DCA EXTDA1+1 2403 04674 1701 TAD I EXTDA1+1 2404 04675 4525 JMS I TYPWD 2405 04676 4523 JMS I CRLF 2406 04677 5646 JMP I EXTDAT 2407 04700 1400 EXTDA1, -BUF2 2408 04701 0000 0 2409 04702 0000 EXCLST, 0 /CLEAR STR 2410 04703 7200 CLA 2411 04704 1057 TAD ADDRES 2412 04705 1311 TAD .+4 2413 04706 3307 DCA .+1 2414 04707 0000 0 2415 04710 5702 JMP I EXCLST 2416 04711 6004 DCSR 2417 04712 0000 0 2418 04713 0000 EXSKDN, 0 /SKIP DONE WITH TIMEOUT 2419 04714 7200 CLA 2420 04715 1057 TAD ADDRES 2421 04716 1331 TAD SKPDN1 2422 04717 3322 DCA .+3 2423 04720 1332 TAD SKPDN1+1 2424 04721 3333 DCA SKPDN1+2 /INT COUNTER -180 2425 04722 0000 0 2426 04723 5325 JMP .+2 2427 04724 5713 JMP I EXSKDN 2428 04725 2333 ISZ SKPDN1+2 2429 04726 5322 JMP .-4 2430 04727 2313 ISZ EXSKDN /TIMEOUT EXIT 1.11 MSEC 2431 04730 5713 JMP I EXSKDN 2432 04731 6001 SKPDN1, DSDD 2433 04732 7514 7514 2434 04733 0000 0 2435 04734 0000 EXTUN, 0 /TYPE UNIT 2436 04735 1046 TAD UNIT 2437 04736 1233 TAD EXTER1+2 2438 04737 3343 DCA .+4 2439 04740 4515 JMS I TYPTEX /UNIT X 2440 04741 2516 TEXT /UNIT/ 04742 1124 04743 0000 2441 04744 0000 0 2442 04745 1036 TAD TYPDSK 2443 04746 7640 SZA CLA 2444 04747 5734 JMP I EXTUN 2445 04750 1050 TAD DAIVAL 2446 04751 7650 SNA CLA 2447 04752 5363 JMP EXTER4 2448 04753 4515 JMS I TYPTEX /-REMOVABLE 2449 04754 5522 TEXT /-REMOVABLE/ 04755 0515 04756 1726 04757 0102 04760 1405 04761 0000 2450 04762 5734 JMP I EXTUN 2451 04763 4515 EXTER4, JMS I TYPTEX 2452 04764 5506 TEXT /-FIXED/ 04765 1130 04766 0504 04767 0000 2453 04770 5734 JMP I EXTUN 2454 2455 *5000 2456 05000 0000 EXTSTB, 0 /STR SB IS, CNR IS 2457 05001 3233 DCA STOR1 2458 05002 3234 DCA STOR1+1 2459 05003 4526 JMS I TYPCHK 2460 05004 5600 JMP I EXTSTB 2461 05005 4515 JMS I TYPTEX 2462 05006 2324 TEXT /STR / 05007 2240 05010 0000 2463 05011 1234 TAD STOR1+1 2464 05012 7640 SZA CLA 2465 05013 5217 JMP .+4 2466 05014 4527 JMS I TYPSB 2467 05015 1233 TAD STOR1 2468 05016 4525 JMS I TYPWD 2469 05017 4530 JMS I TYPIS 2470 05020 4470 JMS I RDSTAT 2471 05021 4525 JMS I TYPWD 2472 05022 4523 JMS I CRLF 2473 05023 4522 JMS I TYPCNI 2474 05024 5600 JMP I EXTSTB 2475 05025 0000 EXTSTI, 0 /STR IS 2476 05026 7200 CLA 2477 05027 1225 TAD EXTSTI 2478 05030 3200 DCA EXTSTB 2479 05031 7040 CMA 2480 05032 5202 JMP EXTSTB+2 2481 05033 0000 STOR1, 0 2482 05034 0000 0 2483 05035 0000 EXTSRB, 0 /SSR SB IS 2484 05036 3233 DCA STOR1 2485 05037 3234 DCA STOR1+1 2486 05040 4526 JMS I TYPCHK 2487 05041 5635 JMP I EXTSRB 2488 05042 4515 JMS I TYPTEX 2489 05043 2323 TEXT /SSR / 05044 2240 05045 0000 2490 05046 1234 TAD STOR1+1 2491 05047 7640 SZA CLA 2492 05050 5254 JMP .+4 2493 05051 4527 JMS I TYPSB 2494 05052 1233 TAD STOR1 2495 05053 4525 JMS I TYPWD 2496 05054 4530 JMS I TYPIS 2497 05055 4477 JMS I RDSSR 2498 05056 4525 JMS I TYPWD 2499 05057 4523 JMS I CRLF 2500 05060 5635 JMP I EXTSRB 2501 05061 0000 EXTSRI, 0 /SSR IS 2502 05062 7200 CLA 2503 05063 1261 TAD EXTSRI 2504 05064 3235 DCA EXTSRB 2505 05065 7040 CMA 2506 05066 5237 JMP EXTSRB+2 2507 05067 0000 EXTCNB, 0 /CNR SB IS 2508 05070 3233 DCA STOR1 2509 05071 3234 DCA STOR1+1 2510 05072 4526 JMS I TYPCHK 2511 05073 5667 JMP I EXTCNB 2512 05074 4515 JMS I TYPTEX 2513 05075 0316 TEXT /CNR / 05076 2240 05077 0000 2514 05100 1234 TAD STOR1+1 2515 05101 7640 SZA CLA 2516 05102 5306 JMP .+4 2517 05103 4527 JMS I TYPSB 2518 05104 1233 TAD STOR1 2519 05105 4525 JMS I TYPWD 2520 05106 4530 JMS I TYPIS 2521 05107 1057 TAD ADDRES 2522 05110 1316 TAD .+6 2523 05111 3312 DCA .+1 2524 05112 0000 0 2525 05113 4525 JMS I TYPWD 2526 05114 4523 JMS I CRLF 2527 05115 5667 JMP I EXTCNB 2528 05116 6003 DRCR 2529 05117 0000 EXTCNI, 0 /CNR IS 2530 05120 7200 CLA 2531 05121 1317 TAD EXTCNI 2532 05122 3267 DCA EXTCNB 2533 05123 7040 CMA 2534 05124 5271 JMP EXTCNB+2 2535 05125 0000 EXTAB, 0 /TAR SB IS 2536 05126 4526 JMS I TYPCHK 2537 05127 5725 JMP I EXTAB 2538 05130 4515 JMS I TYPTEX 2539 05131 2401 TEXT /TAR / 05132 2240 05133 0000 2540 05134 4527 JMS I TYPSB 2541 05135 1033 TAD TRACK 2542 05136 1050 TAD DAIVAL 2543 05137 4525 JMS I TYPWD 2544 05140 4530 JMS I TYPIS 2545 05141 4471 JMS I RDTRAD 2546 05142 4525 JMS I TYPWD 2547 05143 4523 JMS I CRLF 2548 05144 5725 JMP I EXTAB 2549 05145 0000 EXTSCB, 0 /SCR SB IS 2550 05146 4526 JMS I TYPCHK 2551 05147 5745 JMP I EXTSCB 2552 05150 4515 JMS I TYPTEX 2553 05151 2303 TEXT /SCR / 05152 2240 05153 0000 2554 05154 4527 JMS I TYPSB 2555 05155 1031 TAD SECTOR 2556 05156 4525 JMS I TYPWD 2557 05157 4530 JMS I TYPIS 2558 05160 4472 JMS I RDSEC 2559 05161 4525 JMS I TYPWD 2560 05162 4523 JMS I CRLF 2561 05163 5745 JMP I EXTSCB 2562 05164 0000 EXTSB, 0 2563 05165 4515 JMS I TYPTEX 2564 05166 2302 TEXT /SB/ 05167 0000 2565 05170 5764 JMP I EXTSB 2566 05171 0000 EXTIS, 0 2567 05172 4515 JMS I TYPTEX 2568 05173 1123 TEXT /IS/ 05174 0000 2569 05175 5771 JMP I EXTIS 2570 2571 *5200 2572 05200 0000 EXTCHK, 0 2573 05201 7604 LAS 2574 05202 7012 RTR 2575 05203 7010 RAR 2576 05204 7620 SNL CLA 2577 05205 2200 ISZ EXTCHK 2578 05206 5600 JMP I EXTCHK 2579 05207 0000 EXTWD, 0 2580 05210 3246 DCA EXTWD1 2581 05211 1246 TAD EXTWD1 2582 05212 0247 AND EXTWD1+1 2583 05213 7106 CLL RTL 2584 05214 7006 RTL 2585 05215 1250 TAD EXTWD1+2 2586 05216 3241 DCA EXTWD2 2587 05217 1246 TAD EXTWD1 2588 05220 0252 AND EXTWD3 2589 05221 3253 DCA EXTWD3+1 2590 05222 1246 TAD EXTWD1 2591 05223 7012 RTR 2592 05224 7010 RAR 2593 05225 0254 AND EXTWD3+2 2594 05226 1253 TAD EXTWD3+1 2595 05227 1251 TAD EXTWD1+3 2596 05230 3242 DCA EXTWD2+1 2597 05231 1246 TAD EXTWD1 2598 05232 0254 AND EXTWD3+2 2599 05233 7106 CLL RTL 2600 05234 7006 RTL 2601 05235 7006 RTL 2602 05236 1255 TAD EXTWD3+3 2603 05237 3243 DCA EXTWD2+2 2604 05240 4515 JMS I TYPTEX 2605 05241 0000 EXTWD2, 0 2606 05242 0000 0 2607 05243 0000 0 2608 05244 0000 0 2609 05245 5607 JMP I EXTWD 2610 05246 0000 EXTWD1, 0 2611 05247 7000 7000 2612 05250 4060 4060 2613 05251 6060 6060 2614 05252 0700 EXTWD3, 700 2615 05253 0000 0 2616 05254 0007 7 2617 05255 6040 6040 2618 05256 0000 ILTRP, 0 2619 05257 6007 CAF 2620 05260 4526 JMS I TYPCHK 2621 05261 5313 JMP ILTR1 2622 05262 4515 JMS I TYPTEX 2623 05263 1114 TEXT /ILLEGAL TRAP TO ADDRESS 0000 FROM ADDRESS/ 05264 1405 05265 0701 05266 1440 05267 2422 05270 0120 05271 4024 05272 1740 05273 0104 05274 0422 05275 0523 05276 2340 05277 6060 05300 6060 05301 4006 05302 2217 05303 1540 05304 0104 05305 0422 05306 0523 05307 2300 2624 05310 1000 TAD 0 2625 05311 4525 JMS I TYPWD 2626 05312 4523 JMS I CRLF 2627 05313 7240 ILTR1, CMA CLA 2628 05314 3060 DCA ERRFLG 2629 05315 3062 DCA ERRNUM 2630 05316 4503 JMS I HLTLP 2631 05317 7000 NOP 2632 05320 6001 ION /WVDMARK JMP I .+1 INTRET 2633 05321 5400 JMP I 0 /INTRET 2634 05322 0000 RDWX32, 0 2635 05323 7200 CLA 2636 05324 1032 TAD SECTOR+1 2637 05325 3031 DCA SECTOR 2638 05326 1034 TAD TRACK+1 2639 05327 3033 DCA TRACK 2640 05330 5722 JMP I RDWX32 2641 05331 0000 LAI7, 0 2642 05332 1341 TAD LAI71 2643 05333 7001 IAC 2644 05334 7440 SZA 2645 05335 5333 JMP .-2 2646 05336 4477 JMS I RDSSR 2647 05337 0742 AND I LAI71+1 2648 05340 5731 JMP I LAI7 2649 05341 7760 LAI71, 7760 2650 05342 3153 LAI41 2651 05343 0000 EXCL2, 0 /FILLS BUF2 WITH WCCA 3333'S 2652 05344 7200 CLA /FOLLOWED BY ONE 6666 2653 05345 1361 TAD EXCL21 2654 05346 3012 DCA 12 2655 05347 1027 TAD WCCA 2656 05350 7041 CIA 2657 05351 3362 DCA EXCL21+1 2658 05352 1363 TAD EXCL21+2 2659 05353 3412 DCA I 12 2660 05354 2362 ISZ EXCL21+1 2661 05355 5352 JMP .-3 2662 05356 1364 TAD EXCL21+3 2663 05357 3412 DCA I 12 2664 05360 5743 JMP I EXCL2 2665 05361 6377 EXCL21, BUF2-1 2666 05362 0000 0 2667 05363 3333 3333 2668 05364 6666 6666 2669 05365 0000 WAIT, 0 2670 05366 7200 CLA 2671 05367 1156 TAD CNT 2672 05370 3157 DCA TEMP1 2673 05371 7001 IAC 2674 05372 7440 SZA 2675 05373 5371 JMP .-2 2676 05374 2157 ISZ TEMP1 2677 05375 5371 JMP .-4 2678 05376 4477 JMS I RDSSR 2679 05377 5765 JMP I WAIT 2680 2681 $