1 /RX5B.PA NON-SYSTEM HANDLER FOR RX50 DRIVE PAIR B 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 /COPYRIGHT (C) 1982,1984 BY DIGITAL EQUIPMENT CORPORATION 11 / 12 / 13 / 14 / 15 / 16 / 17 / 18 / 19 / 20 / 21 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 22 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 23 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 24 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 25 / 26 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 27 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 28 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 29 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 30 / 31 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 32 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 33 /DIGITAL. 34 / 35 / 36 / 37 / 38 / 39 / 40 / 41 / 42 / 43 / 44 45 /DEFINITIONS OF RX8/E IOT'S 46 47 RXVER= 0263 /VERSION = B3 48 49 NOCHK= 0 / 0 = NO CTRL C CHECK, 1 = CTRL C CHECK 50 51 DEVCOD= 750 /DEVICECODE 52 53 SEL= 6000+DEVCOD /SELECT DRIVE PAIR A OR B WITH AC<11> 54 LCD= 6001+DEVCOD /LOAD COMMAND REGISTER 55 XDR= 6002+DEVCOD /TRANSFER DATA REGISTER 56 STR= 6003+DEVCOD /SKIP ON TRANSFER REQUEST FLAG, CLEAR FLAG 57 SER= 6004+DEVCOD /SKIP ON ERROR FLAG, CLEAR FLAG 58 SDN= 6005+DEVCOD /SKIP ON DONE FLAG, CLEAR FLAG 59 INTR= 6006+DEVCOD /INTERRUPT ENABLE/DISABLE 60 INIT= 6007+DEVCOD /INITIALIZE CONTROLLER AND RECALIBRATE DRIVES 61 62 63 /NOTES ON THIS HANDLER: 64 65 /THIS HANDLER READS AND WRITES THE DISK IN "12-BIT" MODE, IN WHICH 66 / ONE RX50 SECTOR CONTAINS 256 WORDS. THIS INVOLVES SOME COMPLICATION 67 /TO SUPPORT THE ABILITY OF OS/8 TO READ AND WRITE AN ODD NUMBER OF PAGES 68 /( 256*N + 128 WORDS ). IN THE CASE OF AN ODD PAGE COUNT, THE HANDLER 69 /FILLS THE SECOND HALF OF THE LAST SECTOR WITH THE LAST DATA WORD ON WRITE 70 /AND DISCARDS THE SECOND HALF OF THE LAST SECTOR ON READING. 71 72 /THE ENTIRE DISK CONTAINS 800 OS/8 BLOCKS. 73 /ONLY 770 OF THE BLOCKS CAN BE USED. THE REMAINING 30 BLOCKS HAVE 74 /BEEN ALLOCATED TO DECMATE II FIRMWARE. 75 76 /TO MAXIMIZE SPEED ON THE DEVICE, THE HANDLER READS AND WRITES 77 /ON A TRACK WITH A TWO-WAY INTERLEAVE. 78 79 /TRACK-SECTOR COMPUTATION IS DONE DURING I/O TO/FROM THE SILO 80 81 AC4000=CLL CLA CML RAR /SET AC TO 4000 82 AC7776=CLL CLA CMA RAL /SET AC TO 7776 83 AC0002=CLL CLA CML RTL /SET AC TO 0002 84 AC7775=CLL CLA CMA RTL /SET AC TO 7775 85 /BUILD DATA 86 87 *0 88 89 000000 7776 -2 /TWO ENTRY POINTS 90 000001 2230 DEVICE RX5B /DEVICE GROUP NAME 000002 6502 91 000003 2230 DEVICE RX52 /ENTRY POINT NAME 000004 6562 92 000005 4300 4300 /CODE FOR MULTI-RX 93 000006 4031 RX52&177+4000 /ENTRY POINT OFFSET 94 000007 0000 0 95 000010 0000 0 96 000011 2230 DEVICE RX5B /DEVICE GROUP NAME 000012 6502 97 000013 2230 DEVICE RX53 /ENTRY POINT NAME 000014 6563 98 000015 4300 4300 99 000016 4035 RX53&177+4000 /ENTRY POINT OFFSET 100 000017 0000 0 101 000020 0000 0 102 *200 103 / 104 / 105 / INIT CODE 106 / 107 000200 7402 POINT, HLT /ADDR OF SECOND PAGE AT INIT TIME 108 000201 4600 UNIT, JMS I POINT /GO TO SECOND PAGE TO INIT 109 / 110 / LIST OF VECTORS TO SECOND PAGE 111 / 112 000202 0201 LQUO, QUO-. /LQUO MUST LEAD OFF LIST 113 000203 0176 LRETRY, RETRY-. 114 000204 0200 LREC, REC-. 115 000205 0260 LREMD, REMD-. 116 000206 0200 LFN, FN-. 117 000207 0200 LDENSW, DENSW-. 118 000210 0200 LENTRY, ENTRY-. 119 000211 0326 LWAIT, WAIT-. 120 000212 0337 LERROR, ERRSET-. 121 VCOUNT=LQUO-. 122 123 000213 5241 JMP WHICH 124 000214 7772 LM6, -6 125 000215 0006 L6, 6 126 DECIMAL 127 000216 0117 L79, 79 128 000217 0117 SEEK, 79 129 OCTAL 130 131 / ENTRY POINTS ARE AT 31,35 132 / 133 *.&7600+31 134 135 000231 0263 RX52, RXVER 136 000232 4367 JMS ZOO /COMMON ENTRY ROUTINE 137 000233 0000 0 /UNIT 0 138 000234 7777 -1 /MINUS SAYS STILL HAVE TO INIT IT; 139 140 000235 0000 RX53, 0 141 000236 4367 JMS ZOO 142 000237 0020 20 /DRIVE 1 143 000240 5241 DOOR, JMP WHICH /INIT TIME LITERAL (MUST BE MINUS) 144 /GETS SAME TYPE CODE AS OTHER ENTRY POINT 145 146 / 147 / COME HERE FROM ZOO 148 / 149 / PROCESS ENTRY POINT, DEVICE TYPE 150 / 151 000241 7201 WHICH, CLA IAC /SELECT SECOND DRIVE PAIR 152 000242 6750 SEL 153 000243 7300 CLL CLA 154 000244 1214 TAD LM6 /INIT RETRY COUNT 155 000245 3603 DCA I LRETRY 156 000246 1767 TAD I ZOO /GET DRIVE NUMBER (2 OR 3) 157 000247 3201 DCA UNIT /HOLD FOR LATER 158 000250 2367 ISZ ZOO /MOVE TO TYPE CODE 159 000251 1767 TAD I ZOO /HAS THIS DRIVE BEED INIT'ED 160 000252 7700 SMA CLA /SKIP IF NO 161 000253 5261 JMP NORMAL /GO TO NORMAL PATH 162 000254 7610 RSTART, SKP CLA 163 000255 0020 20 164 000256 1255 TAD .-1 165 000257 3767 DCA I ZOO /PLACE TYPE CODE, THREE LOC.'S AFTER ENTRY POINT 166 000260 0012 L12, 12 /MAY SKIP 167 000261 1354 NORMAL, TAD L7400 / 256 WORDS PER SECTOR 168 000262 3607 DCA I LDENSW /PLACE FOR LOOP CONTROL 169 000263 1201 TAD UNIT /RX50 170 000264 3606 DCA I LFN /PLACE INTO FUNCTION CONTROL WORD 171 000265 7346 AC7775 /BACK UP ZOO TO FETCH CALLING ADDR 172 000266 1367 TAD ZOO 173 000267 3376 DCA T1 /HOLD TEMPORARY 174 000270 1776 TAD I T1 /HERE IS CALLING ADDR 175 000271 7402 CLLFLD, HLT /PUT CDF TO CALLING FIELD HERE 176 000272 4610 JMS I LENTRY /GO TO SECOND PAGE, LEAVING POINTER TO DIVSUB 177 178 / 179 / DIVSUB SUBROUTINE !!MUST!! FOLLOW IMMEDIATELY 180 / 181 / DIVSUB 182 / 183 / CALL TO SET UP TRACK, SECTOR, FROM OVERALL SECTOR # 184 / ALSO, SET UNIT WITH HEAD COMMAND IF WE ARE ON TO SECOND SIDE 185 / 186 / CALL WITH AC <0 IF IT IS REALLY AN ERROR RETRY 187 / CALL WITH AC >=0 IF CALL TO DIVSUB 188 189 000273 0000 DIVSUB, 0 190 000274 6201 CDF 0 /AND DATA FIELD MUST BE TO HERE 191 000275 7710 SPA CLA /SKIP IF REALLY A DIVIDE REQUEST 192 000276 5327 JMP RECOVR /NO, IT WAS AN ERROR RETRY!! 193 000277 3602 DCA I LQUO /CLEAR DIVIDE QUOTIENT 194 000300 7010 RAR 195 000301 3326 DCA SAVL /SAVE THE CONTENTS OF THE LINK 196 000302 1604 TAD I LREC /THIS FOR TRACK-SECTOR 197 000303 2602 DIVLOO, ISZ I LQUO /MAIN DIIVIDIE LOOP 198 000304 1353 TAD LM12 /DIVIDE BY 10 TO GET TRACK 199 000305 7500 SMA /SKIP IF DONE 200 000306 5303 JMP DIVLOO 201 000307 1260 TAD L12 /REMAINDER 0-9 202 000310 3376 DCA T1 /HOLD IT IN TEMPORARY 203 000311 1376 TAD T1 /CALCULATE BLOCK NUMBER FOR 204 000312 1376 TAD T1 /AN INTERLEAVE OF 2 205 000313 7101 CLL IAC /LINK CLEAR FOR FINAL TEST; +1 TO START AT 1 NOT 0 206 000314 1353 TAD LM12 /DIVIDE BY 10 TO GET SECTOR 207 000315 7540 SMA SZA /SKIP IF DONE 208 000316 5314 JMP .-2 209 000317 1260 TAD L12 /RESTORE POSITIVE VALUE TO BE SECTOR 210 000320 3605 DCA I LREMD 211 000321 7620 SNL CLA 212 000322 2605 ISZ I LREMD /COMPENSATE FOR ODD SECTOR 213 000323 1326 TAD SAVL 214 000324 7104 CLL RAL /RESTORE LINK 215 000325 5673 JMP I DIVSUB /OUT 216 000326 0000 SAVL, 0 /TEMPORARY SO WE CAN SAVE LINK THROUGH ALL THE 217 /EVIL ARITHMETIC 218 000327 1217 RECOVR, TAD SEEK /ERROR RETRY ROUTINE 219 000330 7650 SNA CLA /THIS WILL ALTERNATE BETWEEN TRACKS 1 AND 79 220 000331 1216 TAD L79 221 000332 3217 DCA SEEK 222 000333 1201 TAD UNIT /GET UNIT NUMBER 223 000334 1215 TAD L6 224 000335 6751 LCD /AND LOAD IT 225 000336 4611 JMS I LWAIT /WAIT FOR OPERATION TO COMPLETE 226 000337 7410 SKP /STR NORMAL RETURN 227 000340 5612 JMP I LERROR /DONE ERROR RETURN 228 000341 7201 CLA IAC /SELECT SECTOR 1 229 000342 6752 XDR 230 000343 4611 JMS I LWAIT /WAIT FOR OPERATION TO FINISH 231 000344 7410 SKP 232 000345 5612 JMP I LERROR 233 000346 1217 TAD SEEK /SEEK TO TRACK 1 OR 79 234 000347 6752 XDR 235 000350 4611 JMS I LWAIT /WAIT FOR OPERATION TO COMPLETE 236 000351 5612 JMP I LERROR 237 000352 5254 JMP RSTART 238 000353 7766 LM12, -12 239 000354 7400 L7400, 7400 240 / 241 / 242 / 243 *.&7600+167 /FORCE TO END OF PAGE 244 / ZOO SUBROUTINE 245 / 246 / TO SET UP ENTRY POINT PROCESSING, AND INIT CODE 247 / 248 000367 0000 ZOO, 0 /ADDR OF 'HIT' ENTRY POINT +2 COMES HERE 249 000370 7200 CLA /FOR SAFETY 250 000371 6214 RDF /SAVE CALLERS FIELD SETTING 251 000372 1374 TAD LCDF0 /ADD IN CDF 0 252 000373 3271 DCA CLLFLD /RESET WHEN GOING TO I/O SUB 253 000374 6201 LCDF0, CDF 0 /DATA FIELD HERE FOR INDIRECTS 254 000375 1240 CLOSE, TAD DOOR /CLOSE DOOR TO ONCE ONLY CODE (JMP WHICH 255 000376 3375 T1, DCA CLOSE /USE ONCE-ONLY FOR TEMPORARY LOCATION 256 000377 4200 JMS POINT /LEAVE ADDR OF SECOND PAGE 257 / 258 / 259 / VARIABLES, ALSO INIT CODE LIVES HERE 260 / 261 / 262 000400 0000 BUF, 0 /POINTER TO CALLER'S BUFFER 263 000401 0000 RETRY, 0 /RETRY COUNT 264 000402 0000 SYS, 0 /POINTER TO CALL 265 000403 0000 QUO, 0 /DIVIDE QUOTIENT, WHICH IS TRACK NUMBER 266 000404 0000 REC, 0 /SECTOR NUMBER OF FLOPPY 267 000405 0000 BC, 0 /CONTROL COUNT, WORDS TO TRANSFER 268 000406 0000 FN, 0 /0 FOR WRITE; 2 FOR READ; HEAD, DENSITY, UNIT 269 000407 0000 DENSW, 0 /GETS SET TO 7400 FOR SILO UNLOAD 270 000410 0000 ENTRY, 0 /ENTRY POINT, LEAVE ADDR OF DIVSUB HERE 271 / 272 IFNZRO .&177-10&4000 <_ERROR> /ENOUGH ROOM FOR INIT? 273 / 274 *.&7600 275 / 276 / INIT TIME: FILL VECTOR TABLE 277 / 278 000400 0000 THERE, 0 /FILLED BY JMS, POINTS TO VECTOR 279 000401 1200 ILOOP, TAD THERE /POINTER IS ALSO OFFSET! 280 000402 1600 TAD I THERE /MAKING VECTOR 281 000403 3600 DCA I THERE 282 000404 2200 ISZ THERE /MOVE TO NEXT VECTOR 283 000405 2374 ISZ FLPWC /CONTROL COUNT ON THIS PAGE 284 000406 5201 JMP ILOOP 285 000407 5600 JMP I THERE /BACK TO FIRST PAGE 286 / 287 / IO SUBROUTINE 288 / 289 / ENTRY POINT AT END OF LAST LISTING PAGE 290 / 291 / 292 *ENTRY+1 /RESUME RUNTIME CODE 293 / 294 000411 3202 DCA SYS /POINTER TO ARG'S, EXIT 295 000412 6214 RDF /DATA FIELD OF USER CALL 296 000413 1377 TAD (CDF CIF 0 /MAKE CDF CIF TO CALLER'S FIELD 297 000414 3334 DCA EXFLD /SET UP FOR CALL 298 000415 7330 AC4000 /SET LINK=0, AC=4000 299 000416 1602 TAD I SYS /CARRY READ-WRITE BIT TO LINK 300 000417 0375 AND L70 /KEEP FIELD FOR BUFFER 301 000420 1366 TAD LLCDF0 /MAKE CDF TO BUFFER FIELD 302 000421 3253 DCA BUFCDF /PLACE INTO I/O LOOP 303 000422 7026 CML RTL /MAKE FUNCTION CODE, 0=WRITE, 2=READ 304 000423 1206 TAD FN /START-UP CODE HAS SET HEAD, DENSITY, UNIT ETC. 305 000424 3206 DCA FN 306 000425 1602 TAD I SYS /MAKE LOOP CONTROL COUNT 307 000426 7004 RAL 308 000427 0340 AND L7600 309 000430 7041 CIA /0 FOR WHOLE FIELD 310 000431 3205 DCA BC /MINUS TOTAL NUMBER OF WORDS 311 000432 2202 ISZ SYS 312 000433 1602 TAD I SYS /BUFFER ADDRESS 313 000434 3200 DCA BUF 314 000435 2202 ISZ SYS 315 000436 1602 TAD I SYS /STARTING BLOCK NUMBER 316 000437 3204 DCA REC 317 000440 2202 ISZ SYS /MOVE POINTER TO ERROR EXIT 318 000441 4610 JMS I ENTRY /CALL DIVISION SUBROUTINE OTHER PAGE 319 000442 7326 AC0002 /MASK OUT READ WRITE BIT 320 000443 0206 AND FN /SPLIT READ AND WRITE 321 000444 7640 SZA CLA /SKIP IF WRITE 322 000445 5305 JMP STREAD /READ GOES TO START IN MIDDLE OF LOOP 323 /WRITE FALLS THRU TO NEXT LISTING PAGE 324 /WRITE FALLS THRU TO THIS LOOP 325 / 326 / TOP OF MAIN LOOP 327 / 328 000446 1206 TOP, TAD FN /SET SILO TO LOAD-UNLOAD 329 000447 6751 LCD /COMMAND TO CONTROLLER 330 000450 1207 TAD DENSW /MAKE SILO LOOP COUNT, 7400 FOR RX50 331 000451 3374 DCA FLPWC /LDCMD ENTRY SAFE TEMPORARY 332 000452 7100 CLL /FLAG FOR BC OVERFLOW 333 000453 7402 BUFCDF, HLT /CDF TO BUFFER FIELD PLACED HERE 334 000454 4337 TRLOOP, JMS WAIT /WAIT FOR STR 335 000455 7410 SKP 336 000456 5351 JMP ERRSET 337 000457 1600 TAD I BUF /IN CASE WRITE, FETCH A WORD 338 000460 6752 XDR /TO OR FROM AC 339 000461 7430 SZL /LINK SET IF BLOCK COUNT EXPIRED, ODD PAGE THING 340 000462 5271 JMP INCWC /THROUGH AWAY DATA, JUST COUNT TRANSFERS 341 000463 3600 DCA I BUF /STILL WORDS TO GET 342 000464 2200 ISZ BUF 343 000465 0000 REMD, 0 /HOME FOR SECTOR NUMBER, ALWAYS 00XY, HENCE NOP 344 000466 2205 ISZ BC /TEST FOR END OF TRANSFER 345 000467 7410 SKP /NO, GO ON 346 000470 7120 STL /YES, SET "DONE SENDING" FLAG 347 000471 2374 INCWC, ISZ FLPWC /256 WORD COUNTER 348 000472 5254 JMP TRLOOP 349 000473 4337 JMS WAIT /WAIT FOR SDN 350 000474 5351 JMP ERRSET 351 000475 1205 TAD BC /WENT TO ZERO IF TRANSFER COMPLETE 352 000476 7640 SZA CLA 353 000477 5305 JMP STREAD 354 000500 7326 AC0002 355 000501 0206 AND FN /SET AC = 0 356 000502 7640 SZA CLA /IF BC = 0 AND DOING A READ THEN WERE DONE 357 000503 5330 JMP EXIT 358 000504 7120 STL /INDICATES THAT BLOCK COUNT HAS EXPIRED 359 / 360 / MIDDLE OF MAIN LOOP 361 / 362 000505 1336 STREAD, TAD K4 /LEAVE THE LINK ALONE 363 000506 1206 TAD FN /TURNING SILO COMMAND INTO READ-WRITE COMMAND 364 000507 6751 LCD /I/O COMMAND TO CONTROLLER 365 000510 4337 JMS WAIT /WAIT FOR STR 366 000511 7410 SKP 367 000512 5351 JMP ERRSET 368 000513 1265 TAD REMD /PRECOMPUTED SECTOR # 369 000514 6752 XDR 370 000515 4337 JMS WAIT /WAIT FOR STR 371 000516 7410 SKP 372 000517 5351 JMP ERRSET 373 000520 1203 TAD QUO /TRACK # 374 000521 6752 XDR /TRACK # IS ALWAYS NON0 !! 375 000522 2204 ISZ REC /MOVE TO NEXT RECORD NUMBER 376 000523 4610 JMS I ENTRY /DO TRACK SECTOR FOR NEXT OPERATION 377 000524 4337 JMS WAIT /WAIT FOR SDN 378 000525 5351 JMP ERRSET 379 000526 7620 SNL CLA /EXIT IF LINK SET, DIVIDE ROUTINE MUST PRESERVE !! 380 000527 5246 JMP TOP /STILL MORE 381 000530 2202 EXIT, ISZ SYS /KICK TO OK EXIT 382 000531 3204 SELBAK, DCA REC /TEMPORARY TO HOLD AC 383 000532 6750 SEL /SELECT FIRST DRIVE PAIR 384 000533 1204 TAD REC /RETURN WITH (POSSIBLE) AC VALUE 385 000534 7402 EXFLD, HLT /CDF CIF TO CALLER 386 000535 5602 JMP I SYS /OUT 387 000536 0004 K4, 4 /MAKES 0 GO TO 4 AND 2 GO TO 6 388 000537 0000 WAIT, 0 389 000540 7600 L7600, 7600 /CLA, AND ALSO A LITERAL 390 000541 6753 STR /TEST FOR XFER FLAG 391 000542 7410 SKP 392 000543 5737 JMP I WAIT /IF XFER FLAG IS SET GOTO CALLER +1 393 000544 6755 SDN /TEST FOR DONE FLAG 394 000545 5341 JMP WAIT+2 /LOOP UNTIL STR OR SDN HAVE COMPLETED 395 000546 2337 ISZ WAIT /DONE SET, SET UP RETURN TO CALLER +2 396 000547 6754 SER /SKIP IF AN ERROR 397 000550 5355 JMP MONCHK /NO ERROR CHECK K.B. 398 000551 7330 ERRSET, AC4000 /ERROR CODE FOR HARD ERROR 399 000552 2201 ISZ RETRY 400 000553 4610 JMS I ENTRY /NO, -AC SAYS TO RETRY NOT DIVIDE!!! 401 000554 5331 JMP SELBAK /SELECT BACK TO FIRST PAIR 402 403 000555 7010 MONCHK, RAR /SAVE THE LINK 404 000556 3373 DCA SAVLNK 405 406 IFNZRO NOCHK < KSF /IS K.B. FLAG SET > / Test for ctrl c 407 000557 7000 IFZERO NOCHK < NOP > / Don't test for ctrl c 408 409 000560 5370 JMP MONLEV /NO 410 000561 6036 KRB /YES 411 000562 1376 TAD M3 /LOOK FOR CTRL C 412 000563 7640 SZA CLA 413 000564 5370 JMP MONLEV /NOT CTRL C 414 000565 6750 SEL 415 000566 6201 LLCDF0, CDF 0 /CTRL C FOUND 416 000567 5740 JMP I L7600 /RETURN TO SYSTEM 417 418 000570 1373 MONLEV, TAD SAVLNK /RESTORE LINK 419 000571 7004 RAL 420 000572 5737 JMP I WAIT /RETURN TO CALLER 421 422 000573 0000 SAVLNK, 0 423 000574 7767 FLPWC, VCOUNT 424 000575 0070 L70, 70 425 000576 7775 M3, -3 426 427 000577 6203 PAGE 428 $ AC0002 7326 AC4000 7330 AC7775 7346 AC7776 7344 unreferenced BC 0405 BUF 0400 BUFCDF 0453 CLLFLD 0271 CLOSE 0375 DENSW 0407 DEVCOD 0750 DIVLOO 0303 DIVSUB 0273 DOOR 0240 ENTRY 0410 ERRSET 0551 EXFLD 0534 EXIT 0530 FLPWC 0574 FN 0406 ILOOP 0401 INCWC 0471 INIT 6757 unreferenced INTR 6756 unreferenced K4 0536 L12 0260 L6 0215 L70 0575 L7400 0354 L7600 0540 L79 0216 LCD 6751 LCDF0 0374 LDENSW 0207 LENTRY 0210 LERROR 0212 LFN 0206 LLCDF0 0566 LM12 0353 LM6 0214 LQUO 0202 LREC 0204 LREMD 0205 LRETRY 0203 LWAIT 0211 M3 0576 MONCHK 0555 MONLEV 0570 NOCHK 0000 NORMAL 0261 POINT 0200 QUO 0403 REC 0404 RECOVR 0327 REMD 0465 RETRY 0401 RSTART 0254 RX52 0231 RX53 0235 RXVER 0263 SAVL 0326 SAVLNK 0573 SDN 6755 SEEK 0217 SEL 6750 SELBAK 0531 SER 6754 STR 6753 STREAD 0505 SYS 0402 T1 0376 THERE 0400 TOP 0446 TRLOOP 0454 UNIT 0201 VCOUNT 7767 WAIT 0537 WHICH 0241 XDR 6752 ZOO 0367