1 /16 TM8-E MAGTAPE HANDLER FOR OS/8 2 3 4 5 6 7 8 9 10 11 12 / 13 / 14 /COPYRIGHT (C) 1973,1974,1975 BY DIGITAL EQUIPMENT CORPORATION 15 / 16 / 17 / 18 / 19 / 20 / 21 / 22 / 23 / 24 / 25 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 26 /AND SHOULD NOT BE CONTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 27 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 28 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 29 / 30 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 31 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 32 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 33 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 34 / 35 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 36 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 37 /DIGITAL. 38 / 39 / 40 / 41 / 42 / 43 LWCR=6701 /LOAD WORD COUNT REGISTER AND CLEAR AC 44 LCAR=6703 /LOAD CURRENT ADDRESS REGISTER AND CLEAR AC 45 LCMR=6705 /LOAD COMMAND REGISTER AND CLEAR AC 46 LFGR=6706 /LOAD FUNCTION REGISTER AND CLEAR AC 47 CLT=6712 /CLEAR TRANSPORT 48 RMSR=6714 /CLEAR AC AND READ MAIN STATUS REGISTER 49 RFSR=6716 /CLEAR AC AND READ STUFF 50 SKEF=6721 /SKIP IF ERROR FLAG IS SET 51 SKJD=6723 /SKIP IF THE JOB IS DONE (MTTF IS SET) 52 SKTR=6724 /SKIP IF TAPE UNIT READY (TUR TRUE) 53 54 MTAVERSION="F&77 55 56 /SPECIAL CODES USED WHEN PAGE COUNT=0 (CODES IN BITS 9-11 OF FN WORD) 57 58 /0 (CLOSE) WRITE 2 EOF'S 59 /1 REWIND 60 /2 SPACE FORWARD/REVERSE RECORDS 61 / IF BIT 0 OF THE FUNCTION WORD IS A 0, 62 / THIS CODE ADVANCES RECORDS. 63 / THE NEGATIVE OF THE NUMBER OF RECODRDS IS SPECIFIED IN ARG 3 64 / IF BIT 0 OF THE FUNCTION WORD IS A 1, 65 / THIS CODE BACKSPACES RECORDS. 66 / THE NEGATIVE OF THE NUMBER OF RECORDS IS SPECIFIED AS ARG 3. 67 / UNDER NO CIRCUMSTANCES DOES THIS COMMAND CONTINUE PAST A FILE MARK. 68 /3 SPACE FORWARD/REVERSE FILES 69 / IF BIT 0 OF THE FUNCTION WORD IS A 0 70 / THEN THIS FUNCTION ADVANCE FILE MARKS 71 / THE NEGATIVE OF THE NUMBER OF FILE MARKS IS SPECIFIED BY ARG3 72 / THE TAPE IS LEFT POSITIONED AFTER THIS FILE MARK 73 / BUT UNDER NO CIRCUMSTANCES DOES THE TAPE ADVANCE PAST 74 / THE SECOND MARK OF TWO CONSECUTIVE FILE MARKS 75 / IF BIT 0 OF THE FUNCTION WORD IS A 1, 76 / THIS CODE BACKSPACES PAST FILE MARKS. 77 / THE NEGATIVE OF THE NUMBER OF FILE MARKS IS SPECIFIED BY ARG 3. 78 / THE TAPE IS LEFT POSITIONED BEFORE THE LAST FILE MARK, 79 / SO THE USER PROBABLY WANTS TO DO A FORWARD RECORD NEXT. 80 /4 REWIND AND PUT OFF-LINE 81 /5 WRITE EOF 82 /6 PERFORM OPERATION WITH SPECIFIED BLOCKSIZE 83 / THE NEGATIVE OF THE DESIRED BLOCKSIZE IS SPECIFIED AS ARG 3. 84 /7 CURRENTLY UNUSED 85 86 /NOTE: SKIP TO EOD CAN BE PERFORMED BY SKIPPING 4096 FILES 87 88 /MAINTENANCE RELEASE CHANGES: 89 90 /1. MAJOR CODE OVERHAUL 91 /2. SKIP RECORDS RETURNS NON-FATAL ERROR IF IT DETECTS FILE MARK 92 /3. SKIP FORWARD FILES NEVER EVER PASSES EOD 93 /4. SKIP FORWARD FILES RETURNS ERROR IF IT STARTS IMMEDIATELY 94 / BEFORE A FILE MARK (UNLESS IT'S AT BOT) 95 / IT THEN REMAINS BEFORE THE FILE MARK 96 /5. FIXED TIMING PROBLEM FOR TS03 97 /6. CHANGED ORDER OF TEST FOR DATA DURING SKIP FORWARD FILES 98 /7. MADE UNUSED FUNCTION CODE 7 ACT SAME AS 0 99 100 /BUILD DESCRIPTOR BLOCK 101 102 *0 103 104 000000 7770 -10 /8 ENTRY POINTS 105 106 000001 2415 DEVICE TM8E;DEVICE MTA0;200;MTA0&177+4000;ZBLOCK 2 000002 7005 000003 1524 000004 0160 000005 0200 000006 4176 000007 0000 000010 0000 107 000011 2415 DEVICE TM8E;DEVICE MTA1;200;MTA1&177+4000;ZBLOCK 2 000012 7005 000013 1524 000014 0161 000015 0200 000016 4175 000017 0000 000020 0000 108 000021 2415 DEVICE TM8E;DEVICE MTA2;200;MTA2&177+4000;ZBLOCK 2 000022 7005 000023 1524 000024 0162 000025 0200 000026 4174 000027 0000 000030 0000 109 000031 2415 DEVICE TM8E;DEVICE MTA3;200;MTA3&177+4000;ZBLOCK 2 000032 7005 000033 1524 000034 0163 000035 0200 000036 4173 000037 0000 000040 0000 110 000041 2415 DEVICE TM8E;DEVICE MTA4;200;MTA4&177+4000;ZBLOCK 2 000042 7005 000043 1524 000044 0164 000045 0200 000046 4172 000047 0000 000050 0000 111 000051 2415 DEVICE TM8E;DEVICE MTA5;200;MTA5&177+4000;ZBLOCK 2 000052 7005 000053 1524 000054 0165 000055 0200 000056 4171 000057 0000 000060 0000 112 000061 2415 DEVICE TM8E;DEVICE MTA6;200;MTA6&177+4000;ZBLOCK 2 000062 7005 000063 1524 000064 0166 000065 0200 000066 4170 000067 0000 000070 0000 113 000071 2415 DEVICE TM8E;DEVICE MTA7;200;MTA7&177+4000;ZBLOCK 2 000072 7005 000073 1524 000074 0167 000075 0200 000076 4167 000077 0000 000100 0000 114 *200 115 116 000200 0402 PARITY, 402 /CHANGE TO 2 TO HAVE EVEN PARITY 117 000201 0000 BLOCK0, 0 /SET TO 1 TO INHIBIT REWIND ON BLOCK 0 118 000202 1376 MTATAD, TAD MTA0 /USED TO MAKE HANDLER SERIALLY REUSABLE 119 /CONTENTS MUST BE 13XX [V3C] 120 000203 2256 MTISZ, ISZ MTANO /DITTO 121 000204 2366 STOP, ISZ MTHX 122 000205 7402 MTEXIT, HLT /CIF CDF TO USER'S FIELD 123 000206 5766 JMP I MTHX 124 125 000207 0000 PNEXT, 0 126 /V3C CLA 127 000210 1256 TAD MTANO /GET UNIT # 128 000211 7041 CIA 129 000212 1202 TAD MTATAD /FIND WHICH ENTRY POINT 130 000213 3214 DCA MTFUN /MAKE A 'TAD MTAN' AND EXECUTE IT 131 000214 7402 MTFUN, HLT 132 000215 3366 DCA MTHX /COLLECT ARGUMENTS VIA 'MTHX' 133 000216 7332 CLA STL RTR /2000 134 000217 1214 TAD MTFUN /MAKE A 'DCA MTAN' AND EXECUTE IT 135 000220 3222 DCA NBLOK 136 000221 1203 TAD MTISZ /RESTORE DESTROYED ISZ 137 000222 7402 NBLOK, HLT 138 000223 1766 TAD I MTHX /GET FUNCTION WORD 139 000224 3214 DCA MTFUN /SAVE IT IN 'MTFUN' 140 000225 2366 ISZ MTHX /POINT TO BUFFER ADDRESS 141 000226 7240 STA /GET ONE LESS THAN 142 000227 1766 TAD I MTHX /BUFFER ADDRESS 143 000230 3314 DCA NBUFF /AND STORE AWAY 144 000231 2366 ISZ MTHX /POINT TO BLOCK NUMBER 145 000232 1766 TAD I MTHX /GET BLOCK NUMBER 146 000233 3222 DCA NBLOK /STORE AWAY 147 000234 2366 ISZ MTHX /POINT TO ERROR RETURN 148 000235 6214 RDF /GET CALLING FIELD 149 000236 1240 TAD MTCDIF /CREATE CIF CDF TO USER'S FIELD 150 000237 3205 DCA MTEXIT /STORE AWAY WHERE WILL BE USEFUL LATER 151 000240 6203 MTCDIF, CIF CDF 0 /GO TO FIELD 0 152 000241 1256 TAD MTANO /GET UNIT NUMBER 153 000242 7112 CLL RTR 154 000243 7012 RTR 155 000244 3256 DCA MTANO /PUT IN BITS 0-2 OF 'MTANO' 156 000245 1214 TAD MTFUN /RETRIEVE FUNCTION WORD 157 000246 0311 AND L70 /ISOLATE FIELD OF BUFFER 158 000247 1200 TAD PARITY /SET ODD PARITY BITS, AND DENSITY 8 (800 BPI, 7-CHANNEL) 159 000250 1256 TAD MTANO /COMBINE WITH UNIT NUMBER 160 000251 3307 DCA MTAWD /TO GET A USEFUL MTA COMMAND 161 000252 1214 TAD MTFUN /ZERO BUFFER FOR PIP ON EOF 162 000253 0311 AND L70 /FIELD OF ORIGIN 163 000254 1277 TAD MTCDF 164 000255 3256 DCA USRCDF 165 USRCDF, 166 000256 0000 MTANO, 0 167 000257 3256 DCA MTANO /RESET 'MTANO' FOR NEXT CALL 168 000260 1214 TAD MTFUN 169 000261 7004 RAL 170 000262 0276 AND P7600 /GET # OF WORDS IN BUFFER 171 000263 7470 SNA SZL /ZERO BUFFER IF READING 172 000264 5276 JMP P7600 173 000265 7041 CIA 174 000266 3315 DCA MTH 175 000267 1314 TAD NBUFF 176 000270 3342 DCA ERROR 177 000271 2342 MCLRLP, ISZ ERROR 178 000272 0100 L100, 100 179 000273 3742 DCA I ERROR 180 000274 2315 ISZ MTH 181 000275 5271 JMP MCLRLP 182 000276 7600 P7600, 7600 183 000277 6201 MTCDF, CDF 0 184 000300 1201 TAD BLOCK0 185 000301 7450 SNA /OPERATE IN MULTIPLE-FILE MODE? 186 000302 1222 TAD NBLOK /RETRIEVE BLOCK 187 000303 7640 SZA CLA /IS IT BLOCK 0? 188 000304 5312 JMP BIGBLK /NO 189 000305 1202 TAD MTATAD /YES, REWIND [CAN BE 13XX] 190 000306 4315 JMS MTH /CALL MAGTAPE ROUTINE 191 000307 1000 MTAWD, 1000 /CA IMMATERIAL 192 000310 0175 M7603, -7603 /WC IMMATERIAL 193 000311 0070 L70, 70 /NO REWIND ERRORS (THESE CAN'T OCCUR) 194 000312 1214 BIGBLK, TAD MTFUN 195 000313 4607 JMS I PNEXT /GO READ OR WRITE NEXT PAGE 196 000314 0000 NBUFF, 0 /ONE LESS THAN ADDRESS OF BUFFER 197 /MUST BE AT LOC AFTER CALL TO NEXT 198 / MTH 199 200 /SET UP WC AND CA REGISTERS, LOAD FUNCTION AND GO 201 202 /CALLING SEQUENCE: 203 204 / TAD (FNWORD 205 / JMS MTH 206 / BUFFER ADDRESS-1 207 / -WORD COUNT 208 / MASK FOR UNACCEPTABLE ERROR CONDITIONS 209 / 210 211 / TAKES HANDLER ERROR RETURN ON ERRORS. 212 / IF ERROR, AC HAS ERROR CODE FROM MAIN STATUS REGISTER 213 / AC IS POSITIVE IF E.O.F. READ 214 215 000315 0000 MTH, 0 /MUST BE AT 2ND LOC AFTER CALL TO NEXT 216 000316 3342 DCA ERROR /SAVE FUNCTION TEMPORARILY 217 000317 6724 SKTR /V3C 218 000320 5317 JMP .-1 /FIX TIMING BUG 219 000321 6712 CLT /CLEAR THE WORLD 220 000322 1307 TAD MTAWD 221 000323 6705 LCMR /LOAD COMMAND REGISTER 222 000324 1715 TAD I MTH /GET CURRENT ADDRESS 223 000325 6703 LCAR /LOAD IT 224 000326 2315 ISZ MTH /POINT TO WORD COUNT 225 000327 1715 TAD I MTH /GET WORD COUNT (TWO'S COMPLEMENT THEREOF) 226 000330 6701 LWCR /LOAD IT 227 000331 2315 ISZ MTH /POINT TO ERROR MASK 228 000332 1342 TAD ERROR /GET FUNCTION BACK 229 000333 6706 LFGR /GO BABY GO 230 000334 4342 JMS ERROR /CHECK FOR ERROR 231 000335 6723 SKJD /THROUGH? 232 000336 5334 JMP .-2 /NO 233 000337 4342 JMS ERROR /YES, ANY ERRORS? 234 000340 2315 E1, ISZ MTH /AMAZING WE MADE IT (NO ERRORS) 235 000341 5715 JMP I MTH /NORMAL RETURN 236 237 IFNZRO MTH-NBUFF-1 238 000342 0000 ERROR, 0 239 000343 1276 TAD P7600 /YES 240 000344 6034 KRS /IS IT CTRL/C? 241 000345 1310 TAD M7603 /ALLOW PARITY TELETYPES 242 000346 7650 SNA CLA 243 000347 6031 KSF 244 000350 5353 JMP SIFE 245 000351 6712 CLT /ABORT I/O 246 000352 5676 JMP I P7600 /RETURN TO OS/8 KEYBOARD MONITOR 247 000353 6721 SIFE, SKEF /SKIP ON ERROR 248 000354 5742 JMP I ERROR /RETURN, NO ERRORS 249 000355 6714 RMSR /WHAT'S CAUSING THE ERROR? 250 000356 0715 AND I MTH /IS IT A GOOD ONE? (USE ERROR MASK) 251 000357 7650 SNA CLA /IS ERROR ACCEPTABLE? 252 000360 5340 JMP E1 /YES 253 000361 6714 RMSR /NOT ACCEPTABLE 254 000362 0272 AND L100 /IS IT AN E.O.F.? 255 000363 7450 SNA /IF SO, LEAVE BIT 0 CLEAR 256 000364 6714 RMSR 257 000365 5205 JMP MTEXIT /AND LEAVE WITH STATUS IN AC 258 259 IFZERO .-367&4000 260 *366 261 000366 0006 MTHX, MTAVERSION 262 000367 2256 MTA7, ISZ MTANO 263 000370 2256 MTA6, ISZ MTANO 264 000371 2256 MTA5, ISZ MTANO 265 000372 2256 MTA4, ISZ MTANO 266 000373 2256 MTA3, ISZ MTANO 267 000374 2256 MTA2, ISZ MTANO 268 000375 2256 MTA1, ISZ MTANO 269 000376 2256 MTA0, ISZ MTANO 270 000377 4207 JMS PNEXT /GET ADDRESS OF FIRST LOCATION ON NEXT PAGE 271 PAGE 272 273 IFNZRO PARITY-200 274 *400 275 276 000400 0000 NEXT, 0 277 000401 3267 DCA RECNO /READ OR WRITE AND HOW MANY 278 000402 1200 TAD NEXT 279 000403 1250 TAD KSTOP 280 000404 3270 DCA NSTOP /ADDRESS OF RETURN ROUTINES 281 000405 1200 TAD NEXT 282 000406 1251 TAD KBLOK 283 000407 3263 DCA WC 284 000410 1663 TAD I WC 285 000411 3263 DCA WC 286 000412 1600 TAD I NEXT 287 000413 3262 DCA BUFFER /GET BUFFER ADDRESS - 1 288 000414 2200 ISZ NEXT /POINT TO MTH 289 000415 1377 TAD (3677 /V3C 290 000416 3264 DCA ERFLAG /DEFAULT IS REPORT ALL ERRORS EXCEPT EOF 291 000417 1267 TAD RECNO 292 000420 7104 CLL RAL /LINK SPECIFIES READ OR WRITE 293 000421 0355 AND L7600 /-(# OF BLOCKS)^200 294 000422 7450 SNA 295 000423 5273 JMP ZERO /0 PAGE COUNT! 296 000424 3267 DCA RECNO 297 000425 7430 SZL /READ OR WRITE? 298 000426 7332 STL CLA RTR /WRITE. +2000 TO CONVERT READ CODE TO WRITE CODE 299 000427 1272 TAD L2100 /READ (OR WRITE) & GO 300 000430 3253 DCA TEMP /SAVE THIS COMMAND 301 000431 1355 TAD L7600 302 000432 3263 DCA WC /OS/8 USES 128 WORD BLOCKS 303 000433 7240 STA /V3C 304 000434 3264 DCA ERFLAG /NOW DEFAULT IS REPORT ALL ERRORS 305 000435 1253 RL1, TAD TEMP 306 000436 4260 JMS GO 307 000437 1262 TAD BUFFER /NEXT 200 WORDS 308 000440 1367 TAD L200 309 000441 3262 DCA BUFFER 310 000442 1267 TAD RECNO /ANY MORE? 311 000443 1355 TAD L7600 312 000444 7450 SNA 313 000445 5670 JMP I NSTOP /NO, FINISH 314 000446 3267 DCA RECNO /YES, LOOP 315 000447 5235 JMP RL1 /REJOIN PROCESSING 316 317 000450 7670 KSTOP, STOP-NBUFF /USED TO RELOCATE 'STOP' 318 319 000451 7706 KBLOK, NBLOK-NBUFF 320 000452 0000 FLAG, 0 321 322 COUNT, 323 000453 0000 TEMP, 0 324 325 000454 1266 EFL2, TAD L5100 326 000455 4260 JMS GO /ALL THIS CODE IS NEW FOR V3C 327 000456 1266 EFL1, TAD L5100 328 000457 5346 JMP GOO /V3C 329 330 000460 0000 GO, 0 331 000461 4600 JMS I NEXT /CALL MTH 332 000462 7402 BUFFER, HLT 333 000463 0000 WC, 0 334 000464 7777 ERFLAG, -1 335 000465 5660 JMP I GO 336 337 000466 5100 L5100, 5100 338 000467 0000 RECNO, 0 339 000470 0000 NSTOP, 0 340 000471 0007 L7, 7 341 000472 2100 L2100, 2100 342 000473 1267 ZERO, TAD RECNO /RETRIEVE FN WORD (MUST PRESERVE LINK) 343 000474 0271 AND L7 /ISOLATE SPECIAL CODE 344 000475 1307 TAD PJUMP 345 000476 3277 DCA .+1 346 000477 7402 FN, HLT /BRANCH THROUGH JUMP TABLE 347 348 000500 5254 TABLE, JMP EFL2 /0 CLOSE. WRITE TWO EOF'S 349 000501 5364 JMP REW /1 REWIND 350 000502 5340 JMP SPACE /2 SPACE FORWARD/REVERSE RECORDS 351 000503 5310 JMP SEOF /3 SPACE FORWARD/REVERSE FILES 352 000504 5345 JMP UNLOAD /4 REWIND AND OFF-LINE 353 000505 5256 JMP EFL1 /5 WRITE EOF 354 000506 5356 JMP SPEC /6 READ OR WRITE WITH SPECIAL BLOCKSIZE 355 000507 5300 PJUMP, JMP TABLE /7 UNUSED SAME AS 0 356 357 000510 7010 SEOF, RAR /LINK ON MEANS REVERSE 358 000511 7012 RTR 359 000512 3277 DCA FN 360 000513 1263 TAD WC 361 000514 3253 DCA COUNT 362 000515 7240 STA 363 000516 3263 DCA WC 364 000517 6714 RMSR 365 000520 0376 AND (3000 /CHECK BOT BIT 366 000521 7640 SZA CLA /SIMULATE DATA IF AT BOT (OR REWINDING) 367 000522 7201 FILE, CLA IAC 368 000523 3252 FILE2, DCA FLAG 369 000524 1277 TAD FN 370 000525 1353 TAD L6100 /V3C FORWARD [OR BACKSPACE] A RECORD 371 000526 4260 JMS GO 372 000527 6714 RMSR 373 000530 0354 AND P100 374 000531 7650 SNA CLA /SKIP IF FILE MARK FOUND 375 000532 5322 JMP FILE 376 000533 1277 TAD FN 377 000534 1252 TAD FLAG 378 000535 7640 SZA CLA /WAS THERE ANY DATA? 379 000536 5350 JMP CONT /V3C YES, CONTINUE 380 /EITHER SAW DATA OR WAS GOING IN REVERSE 381 000537 7120 STL /NO, BACKSPACE ONE RECORD 382 000540 7240 SPACE, CLA CMA /V3C DON'T TOUCH LINK 383 000541 3264 DCA ERFLAG /ALL ERRORS ARE FATAL 384 000542 7010 RAR /LINK ON MEANS REVERSE (READ BIT) 385 000543 7130 STL RAR 386 000544 7130 STL RAR 387 000545 1354 UNLOAD, TAD P100 /ADD IN 'GO' BIT 388 000546 4260 GOO, JMS GO 389 000547 5670 JMP I NSTOP 390 391 000550 2253 CONT, ISZ COUNT /V3C 392 000551 5323 JMP FILE2 /CONTINUE? 393 000552 5670 JMP I NSTOP /CHECK FOR EOD BEFORE COUNT 394 395 /FLAG .NE. 0 MEANS SAW DATA 396 000553 6100 L6100, 6100 397 000554 0100 P100, 100 398 000555 7600 L7600, 7600 399 400 000556 7240 SPEC, CLA CMA /V3C DON'T TOUCH LINK 401 000557 3264 DCA ERFLAG /ALL ERRORS ARE NOW FATAL 402 000560 7430 SZL /LINK STILL CONTAINS READ/WRITE BIT 403 000561 7332 STL CLA RTR 404 000562 1272 TAD L2100 /V3C 405 000563 5346 JMP GOO /V3C 406 407 000564 3264 REW, DCA ERFLAG /NO REWIND ERRORS 408 000565 1375 TAD (1000 /V3C 409 000566 5345 JMP UNLOAD /V3C 410 000567 0200 L200, 200 411 000575 1000 PAGE 000576 3000 000577 3677 412 $ BIGBLK 0312 BLOCK0 0201 BUFFER 0462 CLT 6712 CONT 0550 COUNT 0453 E1 0340 EFL1 0456 EFL2 0454 ERFLAG 0464 ERROR 0342 FILE 0522 FILE2 0523 FLAG 0452 FN 0477 GO 0460 GOO 0546 KBLOK 0451 KSTOP 0450 L100 0272 L200 0567 L2100 0472 L5100 0466 L6100 0553 L7 0471 L70 0311 L7600 0555 LCAR 6703 LCMR 6705 LFGR 6706 LWCR 6701 M7603 0310 MCLRLP 0271 MTA0 0376 MTA1 0375 MTA2 0374 MTA3 0373 MTA4 0372 MTA5 0371 MTA6 0370 MTA7 0367 MTANO 0256 MTATAD 0202 MTAVER 0006 MTAWD 0307 MTCDF 0277 MTCDIF 0240 MTEXIT 0205 MTFUN 0214 MTH 0315 MTHX 0366 MTISZ 0203 NBLOK 0222 NBUFF 0314 NEXT 0400 NSTOP 0470 P100 0554 P7600 0276 PARITY 0200 PJUMP 0507 PNEXT 0207 RECNO 0467 REW 0564 RFSR 6716 unreferenced RL1 0435 RMSR 6714 SEOF 0510 SIFE 0353 SKEF 6721 SKJD 6723 SKTR 6724 SPACE 0540 SPEC 0556 STOP 0204 TABLE 0500 TEMP 0453 UNLOAD 0545 USRCDF 0256 WC 0463 ZERO 0473