1 /RL1: RL01 DRIVE 1 NON-SYSTEM HANDLER 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 / 11 /COPYRIGHT (C) 1977 BY DIGITAL EQUIPMENT CORPORATION 12 / 13 / 14 / 15 / 16 / 17 / 18 / 19 / 20 / 21 / 22 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 23 /AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 24 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 25 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 26 / 27 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 28 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 29 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 30 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 31 / 32 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 33 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 34 /DIGITAL. 35 / 36 / 37 / 38 / 39 / 40 / 41 / 42 / 43 / 44 / 45 /RL01 DRIVE 1 NON-SYSTEM HANDLER 46 47 VERSION="A&77 48 49 /NOTES: 50 /1. PRE-OMNIBUS COMPUTERS NOT SUPPORTED. 51 52 /EDIT HISTORY: 53 /13-OCT-77 DAVID SPECTOR: CREATION 54 55 /INSTRUCTIONS THAT GENERATE CONSTANTS 56 57 AC0001=CLA IAC 58 AC0002=CLA CLL CML RTL 59 AC0003=CLA CLL CML IAC RAL /* 60 AC0004=CLA CLL IAC RTL /* 61 AC0006=CLA CLL CML IAC RTL /* 62 AC0100=CLA IAC BSW /* 63 AC2000=CLA CLL CML RTR 64 AC3777=CLA CLL CMA RAR 65 AC4000=CLA CLL CML RAR 66 AC5777=CLA CLL CMA RTR 67 AC6000=CLA CLL CML IAC RTR /* 68 AC7775=CLA CLL CMA RTL 69 AC7776=CLA CLL CMA RAL 70 71 /* USE ONLY ON VT-78 AND PDP-8E,F,M,A 72 73 /ID CODE AT START OF BAD BLOCK LIST (BBL) 74 ID=123 75 76 /BAD BLOCK LIST FORMAT: 77 /WORD CONTENTS 78 /0 ID (IDENTIFICATION CODE) 79 /1 BAD BLOCKS FOR DEVICE A (ASCENDING ORDER) 80 /... ... 81 /20 0 (TERMINATOR FOR LIST A) 82 /21 BAD BLOCKS FOR DEVICE B (ASCENDING ORDER) 83 /... ... 84 /40 0 (TERMINATOR FOR LIST B) 85 86 /RL01 DEFINITIONS 87 88 RLIOT=6600 89 RLDC=RLIOT 0 /CLEAR DEVICE 90 RLSD=RLIOT 1 /SKIP IF DONE 91 RLMA=RLIOT 2 /LOAD MEM ADDR 92 RLCA=RLIOT 3 /LOAD REGISTER "A" 93 RLCB=RLIOT 4 /LOAD REG "B" AND EXECUTE 94 RLSA=RLIOT 5 /LOAD SECTOR ADDR 95 /RLIOT 6 UNUSED 96 RLWC=RLIOT 7 /LOAD WORD COUNT 97 RRER=RLIOT 10 /READ ERROR REG 98 RRWC=RLIOT 11 /READ WORD COUNT 99 RRCA=RLIOT 12 /READ REG "A" 100 RRCB=RLIOT 13 /READ REG "B" 101 RRSA=RLIOT 14 /READ SECTOR ADDR 102 RRSI=RLIOT 15 /READ SILO BYTE 103 /RLIOT 16 UNUSED 104 RLSE=RLIOT 17 /SKIP IF ERROR 105 /RLCB FUNCTION BITS: 106 RLMT=0 /MAINTENANCE MODE 107 RLRE=1 /RESET DRIVE ERRORS 108 RLST=2 /READ STATUS REGS INTO SILO 109 RLSK=3 /SEEK 110 RLRH=4 /READ HEADER 111 RLWR=5 /WRITE 112 RLRD=6 /READ 113 RLRN=7 /READ WITH NO HEADER CHECK 114 /BIT DEFINITIONS IN REGISTERS: 115 BYTE=1000 /BYTE TRANSFER MODE 116 /HEADER BLOCK FOR USE BY "BUILD" 117 118 *0 119 000000 7776 -2 /- NR DEVICES PER HANDLER 120 121 /FORMAT OF ENTRIES IN HEADER BLOCK: 122 /WORD DESCRIPTION 123 /0 GROUP NAME (4 CHAR) 124 /2 DEVICE NAME (4 CHAR) 125 /4 DCB WORD FOR AN RL (TYPE 26) DIRECTORY DEVICE 126 /5 OFFSET TO ENTRY POINT, 2-PAGE INDICATOR 127 /6 0 (UNUSED WORD) 128 /7 0 TO REPRESENT NON-SYSTEM DEVICE 129 130 DRIVE=1 131 132 000001 2214 DEVICE RL1;DEVICE RL1A;4260;RLA&177+4000;0;0 000002 6100 000003 2214 000004 6101 000005 4260 000006 4045 000007 0000 000010 0000 133 000011 2214 DEVICE RL1;DEVICE RL1B;4260;RLB&177+4000;0;0 000012 6100 000013 2214 000014 6102 000015 4260 000016 4041 000017 0000 000020 0000 134 /HANDLER CODE 135 *200 /FIRST PAGE 136 137 /DATA 138 139 000200 0017 A17, 17 140 000201 0047 A47, 47 141 000202 0175 A175, 175 142 000203 0200 A200, 200 143 000204 0377 A377, 377 144 000205 7751 A7751, 7751 145 000206 1265 BASE, TAD BBL+1 146 000207 0146 ABLOCK, BLOCK-MAIN 147 000210 0161 AMA, MA-MAIN /RELATIVE ADDR OF MA 148 000211 0151 ASECT, SECTOR-MAIN 149 000212 0147 ATRACK, TRACK-MAIN 150 000213 0141 AERROR, ERROR-MAIN 151 152 /SET UP ARGUMENTS BY CALLING 2ND PAGE SUBROUTINE 153 000214 1244 SET, TAD OFFSET /INITIALIZE MAPPING (BELOW) 154 000215 7002 BSW 155 000216 7106 CLL RTL /(0 OR 20: DEVICE A OR B) 156 000217 1206 TAD BASE 157 000220 3223 DCA MAP 158 000221 1241 TAD RLB /ADDR OF ARGS 159 000222 4663 JMS I GO /SETUP (AC NON-ZERO) 160 /MAP NEXT BLOCK AROUND ANY BAD BLOCKS BELOW IT 161 000223 1000 MAP, TAD /INITIALIZED ABOVE 162 000224 7450 SNA /0 TERMINATES LIST 163 000225 5330 JMP MAPPED 164 000226 7161 STL CIA /13-BIT NEGATE 165 000227 1607 TAD I ABLOCK /COMPARE WITH BLOCK 166 000230 7630 SZL CLA 167 000231 5330 JMP MAPPED /BAD BLOCK IS ABOVE CURRENT BLOCK 168 000232 2223 ISZ MAP /TRY NEXT BAD BLOCK ALSO 169 000233 2607 NEXT, ISZ I ABLOCK /INCREMENT CURRENT BLOCK NUMBER, 170 /EITHER DURING 171 /BAD BLOCK MAPPING OR AFTER SUCCESSFUL TRANSFER 172 /OF TWO SECTORS (PAGES) WITH MORE TO GO 173 000234 5223 JMP MAP /CONTINUE MAPPING 174 000235 5613 JMP I AERROR /ERROR ON BLOCK OVERFLOW 175 000236 0000 ZBLOCK 240+DRIVE-. /UNUSED 000237 0000 000240 0000 176 177 /ENTRY POINT FOR DEVICE B 178 179 000241 0001 RLB, VERSION 180 000242 7307 AC0004 /TRACK OFFSET WILL BE 400 181 000243 5251 JMP START /SKIP AROUND RLA ENTRY POINT 182 000244 0000 OFFSET, 0 /TRACK OFFSET FOR DEVICE (0 OR 400) 183 184 /ENTRY POINT FOR DEVICE A 185 186 000245 0001 RLA, VERSION 187 000246 7600 A7600, 7600 /=CLA 188 000247 1245 TAD RLA /TRANSFER CALLING ADDR 189 000250 3241 DCA RLB 190 000251 7002 START, BSW /SET OFFSET TO 0 IF DEV A, 400 IF DEV B 191 000252 3244 DCA OFFSET 192 000253 1246 TAD A7600 /RETURN TO KEYBOARD MONITOR 193 000254 6034 KRS /IF CTRL,C TYPED 194 000255 1202 TAD A175 /-CTRL,C 195 000256 7650 SNA CLA 196 000257 6031 KSF 197 000260 5377 ONCE, JMP ONLY /THIS INSTRUCTION IS DONE ONCE ONLY. IT IS 198 /THEN CHANGED TO "JMP SET" AFTER HANDLER RELOCATION 199 /IS DONE AND THE BAD BLOCK LIST IS READ IN. 200 000261 6203 ACDIF, CIF CDF 00 201 000262 5646 JMP I A7600 /CALL KB MONITOR 202 /THIS LOC IS SET TO ADDR OF NEXT PAGE BY ONCE-ONLY CODE 203 000263 0000 GO, 0 /ADDR OF MAIN 204 /-----BOUNDARY OF BAD BLOCK LIST----- 205 BBL, 206 /ONCE-ONLY CODE, REPLACED BY BAD BLOCK LIST 207 /READ IN BAD BLOCK LIST (BBL) 208 /SAVE CALLING DATA FIELD 209 000264 6214 RDF 210 000265 1267 TAD OOCDF 211 000266 3326 DCA BACK 212 000267 6201 OOCDF, CDF 00 /SET TO CURRENT FIELD 213 /REPLACE ONCE-ONLY JUMP INSTRUCTION 214 000270 1327 TAD JMPSET 215 000271 3260 DCA ONCE 216 000272 1304 LOOP, TAD LIST /RELOCATE CROSS-PAGE REFERENCES; 217 /SCAN "LIST" FOR RELATIVE LOCATIONS 218 /OF VALUES TO BE RELOCATED 219 000273 7450 SNA /0 ACTS AS TERMINATOR 220 000274 5324 JMP OUT 221 000275 1263 TAD GO /RELOCATE RELATIVE ADDRESS 222 000276 3377 DCA ONLY /"ONLY" IS NOW TEMP STORAGE 223 000277 2272 ISZ LOOP /NEXT VALUE 224 000300 1263 TAD GO 225 000301 1777 TAD I ONLY /RELOCATE THE CONTENTS 226 000302 3777 DCA I ONLY 227 000303 5272 JMP LOOP /CONTINUE UNTIL DONE 228 229 /LIST OF RELATIVE ADDRESSES OF RELATIVE VALUES 230 231 000304 0160 LIST, BARG-MAIN 232 000305 7607 ABLOCK-MAIN 233 000306 0162 BBBL-MAIN 234 000307 7610 AMA-MAIN 235 000310 7611 ASECT-MAIN 236 000311 7612 ATRACK-MAIN 237 000312 0161 MA-MAIN 238 000313 7613 AERROR-MAIN 239 000314 0000 0 /TERMINATOR 240 241 000315 0000 ZBLOCK BBL+40-. /UNUSED (IN BBL BUFFER) 000316 0000 000317 0000 000320 0000 000321 0000 000322 0000 000323 0000 242 243 /ONCE-ONLY CODE CONTINUES 244 000324 4663 OUT, JMS I GO /READ BAD BLOCK LIST 245 /-----BOUNDARY OF BAD BLOCK LIST----- 246 000325 7200 OK, CLA /ERROR RETURN (IGNORE) 247 000326 6201 BACK, CDF /RESTORE CALLING FIELD 248 000327 5214 JMPSET, JMP SET /SETUP FOR TRANSFER 249 250 /END OF ONCE-ONLY CODE 251 /SETUP ARGS FOR CALL TO 2ND PAGE SUBROUTINE 252 /CALCULATE TRACK AND SECTOR FROM BLOCK 253 000330 1607 MAPPED, TAD I ABLOCK 254 000331 7012 RTR 255 000332 7012 RTR 256 000333 0204 AND A377 257 000334 1244 TAD OFFSET /DEVICE OFFSET (0 OR 400) 258 000335 3612 DCA I ATRACK 259 000336 1607 TAD I ABLOCK /CALCULATE SECTOR FROM BLOCK 260 000337 0200 AND A17 /SECTOR CODE 261 000340 7106 CLL RTL 262 000341 1205 TAD A7751 263 000342 7510 SPA 264 000343 1201 TAD A47 265 000344 7002 BSW 266 000345 3611 DCA I ASECT 267 /TRANSFER 1ST PAGE OF BLOCK 268 000346 4663 JMS I GO 269 000347 1203 TAD A200 /INCREMENT MA 270 000350 1610 TAD I AMA 271 000351 3610 DCA I AMA 272 /INCREMENT SECTOR 273 000352 1203 TAD A200 274 000353 1611 TAD I ASECT 275 000354 3611 DCA I ASECT 276 /TRANSFER 2ND PAGE OF BLOCK 277 000355 4663 JMS I GO 278 000356 1203 TAD A200 /INCREMENT MA 279 000357 1610 TAD I AMA 280 000360 3610 DCA I AMA 281 /CONTINUE WITH NEXT BLOCK 282 000361 5233 JMP NEXT 283 284 /ONCE-ONLY CODE AT END OF PAGE 285 000362 0000 ZBLOCK 377-. /UNUSED 000363 0000 000364 0000 000365 0000 000366 0000 000367 0000 000370 0000 000371 0000 000372 0000 000373 0000 000374 0000 000375 0000 000376 0000 286 000377 4263 ONLY, JMS GO /EXECUTED ONCE ONLY; STORES ADDR OF 287 /2ND PAGE IN LOC "GO" 288 *400 289 /2ND PAGE OF HANDLER 290 291 /SUBROUTINE TO SETUP AND TRANSFER 292 /AC=0 FOR TRANSFER ELSE SETUP 293 000400 0000 MAIN, 0 294 000401 7450 SNA 295 000402 5242 JMP TRANS 296 /GET HANDLER ARGUMENTS 297 000403 3360 SETUP, DCA BARG /ADDR OF HANDLER ARGS 298 000404 7332 AC2000 /SET "OLDTRK" TO INVALID TRACK 299 000405 3355 DCA OLDTRK /TO FORCE READING NEXT HEADER. 300 000406 1365 TAD B7600 /SET FOR FULL PAGE TRANSFERS 301 000407 3350 DCA WC /(WAS SMALLER FOR BBL READ) 302 000410 1760 TAD I BARG /NOW GET HANDLER ARGUMENTS 303 /FUNCTION WORD 304 /NOTE: THE FOLLOWING INSTRUCTION IS USED AS A CONSTANT 305 000411 0377 B377, AND B4070 /CONVERT TO RLCB FORMAT 306 000412 7510 SPA 307 000413 1364 TAD B3777 308 000414 1366 TAD BRLRD 309 000415 3357 DCA FNC 310 000416 1760 TAD I BARG /FUNCTION WORD 311 000417 7004 RAL /CONVERT TO PAGE COUNT IN BITS [7600] 312 000420 0365 AND B7600 313 000421 3356 DCA PAGES 314 000422 2360 ISZ BARG 315 000423 1760 TAD I BARG /MA 316 000424 3361 DCA MA 317 000425 2360 ISZ BARG 318 000426 1760 TAD I BARG /BLOCK 319 000427 3346 DCA BLOCK 320 000430 2360 ISZ BARG 321 /SAVE CALLING FIELD FOR RETURN 322 000431 6214 RDF 323 000432 1234 TAD BCDIF 324 000433 3344 DCA BRTN 325 /RESET DATA FIELD AND RETURN FROM SETUP WITH AC=BLOCK 326 000434 6203 BCDIF, CIF CDF 00 327 /GET DEVICE OFFSET FROM 1ST PAGE 328 000435 1762 TAD I BBBL /CHECK FOR BBL VALIDITY - 329 000436 1371 TAD CHECK /1ST LOC OF BBL CONTAINS AN 330 000437 7640 SZA CLA /IDENTIFICATION CODE ("ID") 331 000440 5341 JMP ERROR /TAKE ERROR RETURN FROM HANDLER 332 /IF BBL IS INVALID. 333 000441 5600 JMP I MAIN 334 /TRANSFER ONE OR MORE PAGES TO/FROM DISK 335 /GET INTERPAGE ARGUMENTS 336 /RESET RETRY COUNT FOR 2 RETRIES ON I/O ERRORS 337 000442 7346 TRANS, AC7775 /AC=-3 338 000443 3354 DCA ERRCNT 339 /CALCULATE CYLINDER AND SURFACE FROM TRACK 340 000444 1347 TAD TRACK 341 000445 7110 CLL RAR 342 000446 3352 DCA CYL 343 000447 7012 RTR 344 000450 3353 DCA SURF 345 /COMPARE WITH OLD (PREVIOUS) TRACK; IF SAME, DO TRANSFER 346 000451 4300 JMS TRKCMP 347 /IF REQUESTED TRACK IS DIFFERENT, SEEK TO TRACK 348 /RESET DRIVE (FUNCTION=1) 349 000452 6600 RETRY, RLDC /CLEAR CONTROLLER, AC 350 /SEEK (FUNCTION=3) WHEN CALLED FROM BELOW 351 000453 7001 SEEK, IAC /AC=(1 OR 3) 352 000454 4330 JMS IO /RESET DRIVE OR SEEK 353 /READ NEXT HEADER TO FIND OUT ACTUAL CURRENT TRACK 354 000455 1367 TAD HEADER 355 000456 4330 JMS IO /READ NEXT HEADER 356 000457 6615 RRSI /GET HEADER BYTE #1 357 000460 7002 BSW 358 000461 0363 AND B3 359 000462 3355 DCA OLDTRK /SAVE 2 LSB 360 000463 6615 RRSI /GET HEADER BYTE #2 361 000464 0211 AND B377 /HARDWARE SHOULD DO THIS 362 000465 7106 CLL RTL 363 000466 1355 TAD OLDTRK /ADD IN MSB 364 000467 3355 DCA OLDTRK 365 /COMPARE WITH OLD (PREVIOUS) TRACK; IF SAME, DO TRANSFER 366 000470 4300 JMS TRKCMP 367 /IF REQUESTED TRACK IS DIFFERENT, SEEK TO TRACK 368 /CALCULATE DIFFERENCE WORD FOR SEEK FROM TRACK DIFFERENCE 369 000471 7510 SPA /IF POSITIVE, LINK WILL BE SET 370 000472 7141 CLL CIA /IF NEGATIVE, CLEAR LINK 371 000473 7010 RAR /DELETE SURFACE, INCLUDE DIRECTION 372 000474 1353 TAD SURF /ADD SURFACE 373 000475 6603 RLCA /LOAD DIFFERENCE WORD 374 000476 7326 AC0002 /PREPARE FOR SEEK 375 /LOOP BACK AND PERFORM SEEK; THIS ENSURES THAT THE TRACK 376 /REACHED IS THE CORRECT ONE IN SPITE OF POSSIBLE RL01 377 /SEEK UNRELIABILITY 378 000477 5253 JMP SEEK 379 /SUBROUTINE TO COMPARE REQUESTED TRACK WITH OLD (REMEMBERED) 380 /TRACK; IF SAME, DO TRANSFER. IF DIFFERENT, RETURN WITH AC= 381 /REQUESTED-OLD, AND LINK=1 382 000500 0000 TRKCMP, 0 383 000501 1355 TAD OLDTRK /CALCULATE DIFFERENCE 384 000502 7041 CIA 385 000503 1347 TAD TRACK 386 000504 7120 STL /LINK MUST BE SET WHEN 387 /DIFFERENCE IS POSITIVE. 388 000505 7440 SZA 389 000506 5700 JMP I TRKCMP /DIFFERENT; RETURN 390 /ON TRACK: DO TRANSFER 391 /LOAD ALL REGISTERS 392 000507 1351 TAD SECTOR 393 000510 6605 RLSA 394 000511 1350 TAD WC 395 000512 6607 RLWC 396 000513 1353 TAD SURF 397 000514 1352 TAD CYL 398 000515 6603 RLCA 399 000516 1361 TAD MA 400 000517 6602 RLMA 401 /DO THE READ OR WRITE 402 000520 1357 TAD FNC 403 000521 4330 JMS IO 404 /COUNT REQUESTED NUMBER OF PAGES 405 000522 1365 TAD B7600 406 000523 1356 TAD PAGES 407 000524 7450 SNA 408 000525 5343 JMP DONE 409 000526 3356 DCA PAGES 410 000527 5600 JMP I MAIN /RETURN FOR MORE 411 /SUBROUTINE TO DO THE ACTUAL I/O 412 000530 0000 IO, 0 /AC=MODE,FIELD,FUNCTION 413 000531 1370 TAD BDRIVE 414 000532 6604 RLCB /DO THE OPERATION 415 000533 6601 RLSD /WAIT UNTIL DONE 416 000534 5333 JMP .-1 417 000535 6617 RLSE /TEST FOR I/O ERROR(S) 418 000536 5730 JMP I IO /NONE; RETURN 419 /IF ERROR, RETRY TWICE 420 000537 2354 ISZ ERRCNT /MORE RETRIES LEFT? 421 000540 5252 JMP RETRY /YES 422 /AFTER THREE TRIES, TAKE HANDLER ERROR RETURN 423 /WITH AC=4000 424 000541 7330 ERROR, AC4000 425 000542 7410 SKP 426 /NORMAL RETURN FROM HANDLER 427 000543 2360 DONE, ISZ BARG /SKIP ERROR RETURN 428 000544 6203 BRTN, CIF CDF 00 /RETURN TO CALLING FIELD 429 /BBL READ: NOP (FIELD 0) 430 000545 5760 JMP I BARG /RETURN TO CALLING PROGRAM 431 /DATA 432 000546 0000 BLOCK, 0 433 000547 0000 TRACK, 0 /BBL READ: TRACK 0 434 000550 7737 WC, -41 /BBL READ: -BBL LENGTH 435 000551 1400 SECTOR, 1400 /BBL READ: SECTOR 14 436 000552 0000 CYL, 0 437 000553 0000 SURF, 0 438 000554 0000 ERRCNT, 0 /COUNT OF RETRIES 439 000555 2000 OLDTRK, 2000 /FORCE INITIAL SEEK 440 000556 0200 PAGES, 200 /BBL READ: ONE PAGE 441 000557 0006 FNC, RLRD /BBL READ: READ FUNCTION 442 /RELOCATED RELATIVE ADDRESSES 443 444 000560 7725 BARG, OK-MAIN /BBL READ: RETURN FROM READ 445 /ADDRESS OF HANDLER ARGUMENTS 446 000561 7664 MA, BBL-MAIN /BBL READ: ADDR OF BBL 447 000562 7664 BBBL, BBL-MAIN 448 449 000563 0003 B3, 3 450 000564 3777 B3777, 3777 451 000565 7600 B7600, 7600 452 000566 0006 BRLRD, RLRD 453 000567 1004 HEADER, BYTE RLRH 454 000570 0100 BDRIVE, DRIVE^100 /DRIVE BITS FOR RLCB 455 000571 7655 CHECK, -ID 456 457 /THIS CONSTANT MUST BE AT END OF PAGE 458 000572 0000 ZBLOCK 577-. 000573 0000 000574 0000 000575 0000 000576 0000 459 000577 4070 B4070, 4070 460 $ A17 0200 A175 0202 A200 0203 A377 0204 A47 0201 A7600 0246 A7751 0205 ABLOCK 0207 AC0001 7201 unreferenced AC0002 7326 AC0003 7325 unreferenced AC0004 7307 AC0006 7327 unreferenced AC0100 7203 unreferenced AC2000 7332 AC3777 7350 unreferenced AC4000 7330 AC5777 7352 unreferenced AC6000 7333 unreferenced AC7775 7346 AC7776 7344 unreferenced ACDIF 0261 unreferenced AERROR 0213 AMA 0210 ASECT 0211 ATRACK 0212 B3 0563 B377 0411 B3777 0564 B4070 0577 B7600 0565 BACK 0326 BARG 0560 BASE 0206 BBBL 0562 BBL 0264 BCDIF 0434 BDRIVE 0570 BLOCK 0546 BRLRD 0566 BRTN 0544 BYTE 1000 CHECK 0571 CYL 0552 DONE 0543 DRIVE 0001 ERRCNT 0554 ERROR 0541 FNC 0557 GO 0263 HEADER 0567 ID 0123 IO 0530 JMPSET 0327 LIST 0304 LOOP 0272 MA 0561 MAIN 0400 MAP 0223 MAPPED 0330 NEXT 0233 OFFSET 0244 OK 0325 OLDTRK 0555 ONCE 0260 ONLY 0377 OOCDF 0267 OUT 0324 PAGES 0556 RETRY 0452 RLA 0245 RLB 0241 RLCA 6603 RLCB 6604 RLDC 6600 RLIOT 6600 RLMA 6602 RLMT 0000 unreferenced RLRD 0006 RLRE 0001 unreferenced RLRH 0004 RLRN 0007 unreferenced RLSA 6605 RLSD 6601 RLSE 6617 RLSK 0003 unreferenced RLST 0002 unreferenced RLWC 6607 RLWR 0005 unreferenced RRCA 6612 unreferenced RRCB 6613 unreferenced RRER 6610 unreferenced RRSA 6614 unreferenced RRSI 6615 RRWC 6611 unreferenced SECTOR 0551 SEEK 0453 SET 0214 SETUP 0403 unreferenced START 0251 SURF 0553 TRACK 0547 TRANS 0442 TRKCMP 0500 VERSIO 0001 WC 0550