1 /DIRECT V3D FOR OS/78 V1A AND OS/8 V3D 2 / 3 / 4 / 5 / 6 / 7 / 8 / 9 / 10 / 11 /COPYRIGHT (C) 1974,1975,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 /JANUARY 17, 1974 H.J. 46 / 47 /5-AUGUST-1975 MAINT. RELEASE CHANGES S.R. 48 /1. UPDATED COPYRIGHT DATE 49 /2. CHANGED VERSION NUMBER TO V4 50 /3. INCORPORATED PATCH (SEQ #2) OF FEB 1975 DSN 51 / (FIXES BUG RE: DEFAULTING TO TTY: AND DSK:) 52 / 53 / 5-APR-77 MH OS/78 FIXES (V5A) 54 / 18-MAY-77 MH SPR 2286 (V6A) 55 / 56 /DIRECTORY LISTING PROGRAM 57 / 58 / START ADDRESS 14600; JSW 6403 59 / 60 61 PTR=20 62 CNT=21 63 INFPTR=22 64 OUHAND=23 65 INHAND=24 66 EPTR=26 67 INSCNT=27 68 TEMP=30 69 OKFLAG=31 70 IFCNT=32 71 OSWTCH=33 72 INFWDS=34 73 BDPTR=35 74 GPTR1=36 75 76 77 XR=10 78 XR1=11 79 XR2=12 80 81 82 AC2=CLA CLL CML RTL 83 AC4000=CLA CLL CML RAR 84 ACM2=CLA CLL CMA RAL 85 ACM3=CLA CLL CMA RTL 86 87 88 ALTOPT=7642 89 OPT1=7643 90 OPT2=7644 91 EQLS=7646 /EQUALS OPTION 92 DATE=7666 93 BIPCCL=7777 /CONTAINS DATE EXTENSION IN BITS 3 AND 4 (MH) 94 BUF=5200 /THE FILE OUTPUT BUFFER 95 /5 BLOCKS LONG, TO 7577 96 97 98 FIELD 1 99 *2000 100 012000 7610 SKP CLA /NORMAL ENTRY 101 012001 5205 JMP MSTRT /CHAIN ENTRY 102 012002 4777 CDCALL, JMS I (200 /SEE WHAT THE PERSON WANTS 103 012003 0005 5 104 012004 5200 STAR, 5200 /IN SPECIAL MODE 105 106 012005 1776 MSTRT, TAD I (OPT2 /GET OPTION /W 107 012006 7012 RTR 108 012007 7620 SNL CLA /SKIP FOR VESION NUMBER 109 012010 5215 JMP EQUALT 110 012011 4775 JMS I (ERROR /PRINT VERSION NUMBER 111 012012 4240 VERNO+40 112 012013 1374 TAD (215 113 012014 4773 JMS I (TYPE 114 115 /SET UP FOR MULTIPLE ENTRIES ON A LINE 116 117 012015 1772 EQUALT, TAD I (EQLS /EQUALS OPTION WORD 118 012016 7510 SPA /MUST BE POSITIVE 119 012017 7332 CLA CLL CML RTR /SET AC LARGE POSITIVE 120 012020 1371 TAD (-10 /CHECK LEGALITY OF OPTION 121 012021 7740 SMA SZA CLA /SKIP IF GOOD 122 012022 5770 JMP BADEQ 123 124 /SUBSTITUTE .DI IF NULL EXTENSION 125 126 012023 1767 TAD I (7604 /GET EXTENSION 127 012024 7450 SNA /SKIP IF GIVEN 128 012025 1366 TAD (0411 /.DI 129 012026 3767 DCA I (7604 /PUT EXTENSION BACK 130 131 / GET THE DATE INCREMENT BITS 132 133 012027 6201 CDF 0 /GET GET WORD FORM FIELD 0(MH) 134 012030 1765 TAD I (BIPCCL /THE BITS WITH DATE EXT. ARE 3 AND 4 (MH) 135 012031 6211 CDF 10 /BACK TO FIELD 1 (MH) 136 012032 7012 RTR /SHIFT THOSE BITS SO THEY CREATE A 0,10,20, OR 30(MH) 137 012033 7012 RTR /AFTER MASKING (MH) 138 012034 0364 AND (0030 /MASK (MH) 139 012035 3763 DCA DATINC /SAVE THE DATE EXTENSION (MH) 140 141 / CHECK FOR ? IN OUTPUT SPECIFICATION 142 012036 1371 TAD (-10 143 012037 3021 DCA CNT /CNT HAVING -10 PUTS US AT FIRST CHAR 144 012040 1362 S1C, TAD (7605 145 012041 4761 JMS I (GTSXBT /GET A CHAR 146 012042 1360 TAD (-"?!7700 /CHECK FOR ? 147 012043 7450 SNA 148 012044 5757 JMP QINO 149 012045 1356 TAD ("?-"* 150 012046 7650 SNA CLA 151 012047 5755 JMP AINO 152 012050 2021 ISZ CNT 153 012051 5240 JMP S1C 154 155 156 / CHECK FOR EMBEDDED * IN ANY SPECIFICATION 157 012052 1362 TAD (7605 158 012053 3020 S4L, DCA PTR 159 012054 1371 TAD (-10 160 012055 3021 DCA CNT 161 012056 1020 ACK, TAD PTR 162 012057 4761 JMS I (GTSXBT 163 012060 1354 TAD (-"*!7700 164 012061 7640 SZA CLA 165 012062 5275 JMP CNTUP 166 012063 7326 AC2 167 012064 1021 TAD CNT 168 012065 7440 SZA 169 012066 1353 TAD (6 170 012067 7650 SNA CLA 171 012070 2021 ISZ CNT 172 012071 1020 TAD PTR 173 012072 4761 JMS I (GTSXBT 174 012073 7640 SZA CLA 175 012074 5755 JMP AINO 176 012075 2021 CNTUP, ISZ CNT 177 012076 5256 JMP ACK 178 012077 1420 TAD I PTR 179 012100 7650 SNA CLA 180 012101 5752 JMP I (NULLCK 181 012102 1351 TAD (5 182 012103 1020 TAD PTR 183 012104 5253 JMP S4L 184 185 /THIS IS THE END OF OPERATION CODE 186 /IT CLOSES THE FILE AND HANDLES RETURNS 187 188 012105 2750 ENDCHK, ISZ I (ECHO 189 012106 1347 TAD (232 190 012107 4746 OLOOP, JMS I (OUTCHR 191 012110 1745 TAD I (OUWDCT /GET -WORDS LEFT IN BUFFER 192 012111 0344 AND (177 /CHECK AGAINST NEW BUFFER # 193 012112 7450 SNA /SPR 2286, CHECK CAREFULLY (MH) 194 012113 1743 TAD RPOS /TO SEE IF ANY TRAILING (MH) 195 012114 7041 CIA /OR DANGLING CHARS (MH) 196 012115 1342 TAD (RPOS-1 /ARE LEFT OVER (MH) 197 012116 7640 SZA!CLA /(MH) 198 012117 5307 JMP OLOOP /KEEP GOING TO DUMP ONE 199 012120 1745 TAD I (OUWDCT 200 012121 1341 TAD (1200 /DONT DUMP IF AT END 201 012122 7640 SZA CLA 202 012123 4740 JMS DUMP /DUMP BUFFER 203 012124 1737 TAD I (7600 204 012125 4777 JMS I (200 205 012126 0004 4 206 012127 7601 7601 207 012130 0000 CLEN, 0 208 012131 5736 JMP CLOERR 209 012132 5735 JMP ABORT /CODE MOVED TO ANOTHER PAGE (MH) 210 211 012135 2524 PAGE 012136 4031 012137 7600 012140 4502 012141 1200 012142 3132 012143 3133 012144 0177 012145 3135 012146 3101 012147 0232 012150 3257 012151 0005 012152 2200 012153 0006 012154 7726 012155 2317 012156 0025 012157 2322 012160 7701 012161 3200 012162 7605 012163 3552 012164 0030 012165 7777 012166 0411 012167 7604 012170 2531 012171 7770 012172 7646 012173 3226 012174 0215 012175 2501 012176 7644 012177 0200 212 213 012200 1377 NULLCK, TAD (7201 214 012201 3225 DCA AO2 215 012202 1377 TAD (7201 216 012203 3211 DCA AO1 217 012204 1776 TAD I (7600 218 012205 7450 SNA 219 012206 5215 JMP TTYHND 220 012207 4775 JMS I (200 221 012210 0001 1 222 012211 7201 AO1, 7201 223 012212 7402 HLT 224 012213 1211 TAD AO1 225 012214 5232 JMP CMN 226 012215 1374 TTYHND, TAD (2424 227 012216 3223 DCA TTY1 228 012217 1373 TAD (3100 229 012220 3224 DCA TTY2 230 012221 4775 JMS I (200 231 012222 0001 1 232 012223 0000 TTY1, 0 233 012224 0000 TTY2, 0 234 012225 7201 AO2, 7201 235 012226 5772 JMP I (IDBLVT 236 012227 1224 TAD TTY2 237 012230 3776 DCA I (7600 238 012231 1225 TAD AO2 239 012232 3023 CMN, DCA OUHAND 240 012233 1371 TAD (7601 241 012234 3240 DCA BLCK 242 012235 1776 TAD I (7600 243 012236 4775 JMS I (200 244 012237 0003 3 245 012240 7601 BLCK, 7601 246 012241 0000 LENGTH, 0 247 012242 5770 JMP I (NOROOM 248 012243 1240 TAD BLCK 249 012244 3767 DCA I (BLCKN 250 012245 1366 TAD (BUF 251 012246 3765 DCA I (OCPTR 252 012247 1364 TAD (RPOS-1 /SPR 2286 (MH) 253 012250 3763 DCA I (RPOS 254 012251 1362 TAD (-1200 /NUMBER OF WORDS IN BUFFER 255 012252 3761 DCA I (OUWDCT 256 012253 3760 DCA I (CLEN 257 012254 1757 TAD I (7605 258 012255 7450 SNA 259 012256 5327 JMP FINDSK /V3C IF NO DEVICE SPECIFIED, LOOKUP 'DSK' 260 012257 3757 SETDEV, DCA I (7605 261 012260 1357 TAD (7605 262 012261 3022 DOMOIN, DCA INFPTR 263 012262 1356 TAD (6601 264 012263 3271 DCA AI1 265 012264 1422 TAD I INFPTR 266 012265 7450 SNA 267 012266 5755 JMP I (ENDCHK 268 012267 4775 JMS I (200 269 012270 0001 1 270 012271 6601 AI1, 6601 271 012272 7402 HLT 272 012273 1271 TAD AI1 273 012274 3024 DCA INHAND 274 012275 1354 TAD (OUTCHR 275 012276 3033 DCA OSWTCH 276 012277 4753 JMS I (CRLF 277 012300 1752 TAD I (DATE 278 012301 3751 DCA I (DATNOW /SAVE CURRENT DATE (MH) 279 012302 1752 TAD I (DATE /GET DATE BACK INTO AC (MH) 280 012303 4750 JMS I (PDATE 281 012304 4753 JMS I (CRLF 282 012305 4753 JMS I (CRLF 283 012306 3747 DCA I (ECOUNT 284 012307 7040 CMA 285 012310 1746 TAD I (EQLS 286 012311 7500 SMA /SET UP NEGATIVE COUNT 287 012312 7040 CMA 288 012313 3745 DCA I (ALNCNT /SAVE FOR LATER 289 012314 1745 TAD I (ALNCNT /SAVE FOR LATER 290 012315 3773 DCA I (LNCNT /SAVE FOR LATER 291 012316 5744 JMP I (PG1 292 293 012317 4743 AINO, JMS I (ERROR 294 012320 4363 ILLA+40 295 012321 5324 JMP EOLIN 296 012322 4743 QINO, JMS I (ERROR 297 012323 4356 ILLQ+40 298 012324 1342 EOLIN, TAD (215 /COME HERE TO ABORT DIRECTORY 299 012325 4741 JMS I (TYPE /AND PRINT CRLF 300 012326 5740 JMP I (ABORT /ABORT OPERATION AND GOTO ENDUP 301 302 012327 3333 FINDSK, DCA XX /V3C 303 012330 4775 JMS I (200 /CALL USR 304 012331 0012 12 /TO DO AN INQUIRE 305 012332 5723 5723 /TO LOCATE 'DSK' 306 012333 0000 XX, 0 307 012334 0000 0 308 012335 5772 JMP I (IDBLVT /NO 'DSK' IMPOSSIBLE (SO SAY NO 'TTY') 309 012336 1333 TAD XX /RETURN DEVICE NUMBER OF DSK 310 012337 5257 JMP SETDEV 311 012340 2524 PAGE 012341 3226 012342 0215 012343 2501 012344 2400 012345 3077 012346 7646 012347 3736 012350 3450 012351 3551 012352 7666 012353 4071 012354 3101 012355 2105 012356 6601 012357 7605 012360 2130 012361 3135 012362 6600 012363 3133 012364 3132 012365 3136 012366 5200 012367 4525 012370 4034 012371 7601 012372 4037 012373 3100 012374 2424 012375 0200 012376 7600 012377 7201 312 DIRCTY=0 /LOCATION OF INPUT DIRECTORY 313 314 012400 1422 PG1, TAD I INFPTR 315 012401 1377 TAD (7757 316 012402 3030 DCA TEMP 317 012403 1430 TAD I TEMP 318 012404 7700 SMA CLA 319 012405 5273 JMP NFIN 320 012406 6202 CIF 0 321 012407 4424 JMS I INHAND 322 012410 1400 1400 323 012411 0000 DIRCTY 324 012412 0001 1 325 012413 5276 JMP INDERR 326 012414 6201 CDF 0 /CODE TO CHECK FOR 327 012415 1776 TAD I (DIRCTY /LEGALITY OF DIRECTORY 328 012416 7140 CMA CLL 329 012417 1775 TAD I (DIRCTY+2 330 012420 6211 CDF 10 331 012421 7420 SNL 332 012422 1374 TAD (7700 333 012423 7630 SZL CLA 334 012424 5270 JMP BIDIR /DIRECTORY IS BAD 335 336 / COUNT NUMBER OF INPUTS FROM SAME DEVICE 337 012425 1022 TAD INFPTR 338 012426 7410 SKP 339 012427 1020 GETCNT, TAD PTR 340 012430 7001 IAC 341 012431 3020 DCA PTR 342 012432 1420 TAD I PTR 343 012433 7640 SZA CLA 344 012434 5244 JMP NOSUB 345 012435 1373 TAD (5200 346 012436 3420 DCA I PTR 347 012437 1372 TAD (3 348 012440 1020 TAD PTR 349 012441 3030 DCA TEMP 350 012442 1373 TAD (5200 351 012443 3430 DCA I TEMP 352 012444 1020 NOSUB, TAD PTR 353 012445 1371 TAD (4 354 012446 3020 DCA PTR 355 012447 2021 ISZ CNT 356 012450 1770 TAD I (OPT2 357 012451 0367 AND (10 358 012452 7640 SZA CLA 359 012453 5261 JMP NOPTIM 360 012454 1420 TAD I PTR 361 012455 7041 CIA 362 012456 1422 TAD I INFPTR 363 012457 7650 SNA CLA 364 012460 5227 JMP GETCNT 365 012461 1021 NOPTIM, TAD CNT 366 012462 7041 CIA 367 012463 3027 DCA INSCNT 368 012464 1020 TAD PTR 369 012465 3766 DCA I (MOIN 370 012466 3035 DCA BDPTR 371 012467 5765 JMP I (NBLOCK 372 373 012470 4764 BIDIR, JMS I (ERROR 374 012471 4370 BADDIR+40 375 012472 5763 JMP I (EOLIN 376 012473 4764 NFIN, JMS I (ERROR 377 012474 4325 NFLEIN+40 378 012475 5763 JMP I (EOLIN 379 012476 4764 INDERR, JMS I (ERROR 380 012477 4246 BADIRD+40 381 012500 5763 JMP I (EOLIN 382 383 /THIS IS THE ERROR MESSAGE PRINTER 384 385 012501 0000 ERROR, 0 386 012502 2762 ISZ I (ECHO 387 012503 7300 CLA CLL 388 012504 1361 TAD (TYPE 389 012505 3033 DCA OSWTCH 390 012506 1374 TAD (-100 391 012507 3021 DCA CNT 392 012510 1701 PLOOP, TAD I ERROR 393 012511 4760 JMS I (GTSXBT 394 012512 3323 DCA DFLAG 395 012513 1323 TAD DFLAG 396 012514 4757 JMS I (CONVTP 397 012515 2021 ISZ CNT 398 012516 1323 TAD DFLAG 399 012517 7640 SZA CLA 400 012520 5310 JMP PLOOP 401 012521 2301 ISZ ERROR 402 012522 5701 JMP I ERROR 403 404 012523 0000 DFLAG, 0 405 012524 1756 ABORT, TAD I (ALTOPT /MOVED (MH) 406 012525 7700 SMA CLA 407 012526 5755 JMP I (CDCALL 408 012527 6203 CIF CDF 0 409 012530 5754 JMP I (7605 410 012531 4764 BADEQ, JMS I (ERROR 411 012532 4345 BIGEQ+40 412 012533 5763 JMP I (EOLIN 413 414 012554 7605 PAGE 012555 2002 012556 7642 012557 3217 012560 3200 012561 3226 012562 3257 012563 2324 012564 2501 012565 2600 012566 4070 012567 0010 012570 7644 012571 0004 012572 0003 012573 5200 012574 7700 012575 0002 012576 0000 012577 7757 415 416 /THIS IS THE SUPERQUASIFACETED DIRECTORY PATTERN MATCHING ROUTINE 417 418 /THE INPUT DIRECTORY IS SEARCHED HERE, IF A MATCH 419 /IS FOUND USING THE INPUT GROUPING 420 /GOT1 GETS CONTROL WITH -BLOCKS IN THE AC 421 422 012600 1035 NBLOCK, TAD BDPTR /POINTER TO START OF DIR BLOCK 423 012601 3010 DCA XR 424 012602 6201 CDF 0 425 012603 1410 TAD I XR /GET BLOCK NUMBER FIRST FILE 426 012604 3344 DCA BLOCK 427 012605 1410 TAD I XR /NEXT SEGMENT NUMBER 428 012606 3342 DCA LFLAG /IF IT 0 WE AT END 429 012607 2010 ISZ XR /SKIP TENTATIVE FILE WORD 430 012610 1410 TAD I XR /GET -NUMBER OF INFO WORDS 431 012611 7041 CIA /MAKE POSITVE 432 012612 3034 DCA INFWDS 433 012613 1010 TAD XR /POINT TO FIRST 434 012614 7001 IAC /ENTRY 435 012615 3026 DCA EPTR 436 437 012616 1426 BLOOP, TAD I EPTR /GET FILENAME WORD 438 012617 6211 CDF 10 439 012620 7650 SNA CLA /SKIP IF FILE HERE 440 012621 5310 JMP EMPTY /NO... ITS REALLY AN EMPTY 441 012622 1027 TAD INSCNT /SET NUMBER OF INPUT TO LOOK 442 012623 3343 DCA NCNT /AT ALL AT ONCE 443 012624 3345 DCA MATFLG /CLEAR MATCH FLAG 444 012625 1022 TAD INFPTR /ADDRESS OF FIRST INPUT 445 012626 7410 SKP 446 012627 1341 MN1, TAD GPTR2 /ADDRESS OF CURRENT INPUT 447 012630 1377 TAD (5 /GTSXBT SUBR REQUIRES US TO 448 012631 3341 DCA GPTR2 /POINT TO END OF FIELD 449 012632 1026 TAD EPTR /POINT DIRECTORY POINTER TO 450 012633 1376 TAD (4 /END OF ENTRY FOR SAME REASON 451 012634 3036 DCA GPTR1 452 012635 1036 TAD GPTR1 /SET EPNEXT TO POINT TO 453 012636 1034 TAD INFWDS /MINUS NUMBER OF BLOCKS IN 454 012637 3340 DCA EPNEXT /FILE WORD 455 012640 1375 TAD (-10 /NUMBER OF CHARS TO LOOK AT 456 012641 3021 WILDNM, DCA CNT 457 458 012642 1341 MLP, TAD GPTR2 /OK - GET A CHARACTER FROM 459 012643 4774 JMS I (GTSXBT /STRING 460 012644 1373 TAD (-"*!7700 /IS IT AN * 461 012645 7450 SNA /SKIP IF NOT * 462 012646 5332 JMP WILDA /YEP... ITS A WILD CARD 463 012647 1372 TAD ("*-"? /IS IT A ? 464 012650 7450 SNA /SKIP IF NOT 465 012651 5264 JMP WILD /YES... FORCE MATCH ON THIS CHAR 466 012652 1371 TAD ("?&77 /RESTORE VALUE 467 012653 7041 CIA /NEGATE 468 012654 3337 DCA CHAR /AND SAVE 469 012655 1036 TAD GPTR1 /NOW GET CHAR FROM DIRECTORY 470 012656 6201 CDF 0 471 012657 4774 JMS I (GTSXBT 472 012660 6211 CDF 10 473 012661 1337 TAD CHAR /DO CHARS MATCH 474 012662 7640 SZA CLA /SKIP IF THEY DO 475 012663 5267 JMP NM1 /NO MATCH ON THIS INPUT 476 012664 2021 WILD, ISZ CNT /BUMP COUNT OF CHARS & POINTER 477 012665 5242 JMP MLP /COMPARE ALL 8 478 012666 2345 MEXT, ISZ MATFLG /A MATCH!!!!!!! 479 012667 7200 NM1, CLA /WILD CARD COMES HERE WITH ICHY AC 480 012670 2343 ISZ NCNT /HAVE WE CHECKED GROUP OF INPUTS 481 012671 5227 JMP MN1 /NO CHECK WHOLE GROUP 482 012672 1345 TAD MATFLG /HAVE THERE BEEN ANY MATCHES 483 012673 7640 SZA CLA /SKIP IF NOT 484 012674 1376 TAD (4 /WILL INVERT /V SWITCH 485 012675 1770 TAD I (OPT2 /ADD SWITCH 486 012676 0376 AND (4 /ISOLATE IT 487 012677 6201 CDF 0 488 /SKIPS IF INPUT DIRECTORY ENTRY IS NOT CANDIDATE 489 /THAT IS - IF A MATCH WAS NOT FOUND BETWEEN ANY 490 /OF THE INPUTS AND /V WAS NOT SPECIFIED OR 491 /A MATCH WAS FOUND AND /V WAS SPECIFIED 492 493 /THIS ALLOWS /V TO MEAN EVERYTHING BUT... 494 495 012700 7640 SZA CLA 496 012701 1740 TAD I EPNEXT /GET -NUMBER OF BLOCKS 497 012702 6211 CDF 10 498 012703 7440 SZA /SKIPS IF TENTATIVE OR NOT CANDIDATE 499 012704 5767 JMP I (GOT1 /PROCESS FILE 500 012705 1340 NENT, TAD EPNEXT /POINT EPTR TO BLOCK 501 012706 3026 DCA EPTR /COUNT OF FILE 502 012707 5312 JMP NEMPTY 503 012710 2026 EMPTY, ISZ EPTR /ON EMPTY MAKE EPTR POINT TO BLOCK COUNT 504 012711 4766 JMS I (HEMPTY /HANDLE EMPTY SLOTS 505 012712 6201 NEMPTY, CDF 0 506 012713 1426 TAD I EPTR /GET BLOCK COUNT 507 012714 7041 CIA /MAKE POSITIVE 508 012715 1344 TAD BLOCK 509 012716 3344 DCA BLOCK /KEEP SUM 510 012717 2026 ISZ EPTR /POINT TO NEXT ENTRY 511 012720 2435 ISZ I BDPTR /POINTS TO -NUMBER OF ENTRIES 512 012721 5216 JMP BLOOP /NOT DONE WITH SEGMENT 513 012722 6211 CDF 10 514 012723 1365 TAD (400 /BUMP TO NEXT SEGMENT 515 012724 1035 TAD BDPTR 516 012725 3035 DCA BDPTR 517 012726 1342 TAD LFLAG /DID WE PROCESS LAST SEGMENT 518 012727 7640 SZA CLA /SKIP IF WE DID 519 012730 5200 JMP NBLOCK /PROCESS NEW SEGNENT 520 012731 5764 JMP I (SAYNON 521 522 /HANDLE WILD CARDS 523 524 012732 1021 WILDA, TAD CNT /GET CURRENT CHAR POSITION 525 012733 1363 TAD (6 /ADD SIZE OF FILENAME 526 012734 7510 SPA /SKIP IF IN EXTENSION FIELD 527 012735 5241 JMP WILDNM /THIS BUMPS TO EXTENSION 528 012736 5266 JMP MEXT /THIS MEANS IT HAS TO BE A MATCH 529 530 531 012737 0000 CHAR, 0 532 012740 0000 EPNEXT, 0 533 012741 0000 GPTR2, 0 534 012742 0000 LFLAG, 0 535 012743 0000 NCNT, 0 536 012744 0000 BLOCK, 0 537 012745 0000 MATFLG, 0 538 539 540 012763 0006 PAGE 012764 4042 012765 0400 012766 3641 012767 3000 012770 7644 012771 0077 012772 7753 012773 7726 012774 3200 012775 7770 012776 0004 012777 0005 541 013000 3032 GOT1, DCA IFCNT /-# OF BLOCKS IN AC 542 013001 4777 JMS I (DATCHK /VERIFY /C AND /O SWITCHES 543 013002 1376 TAD (OUTCHR 544 013003 3033 DCA OSWTCH 545 013004 1775 TAD I (OPT2 546 013005 7710 SPA CLA 547 013006 5774 JMP I (NENT 548 013007 4773 JMS I (ADDINF /SEE IF ADDITIONAL INFO WORDS 549 013010 1775 TAD I (OPT2 550 013011 0372 AND (100 /IS /R USED 551 013012 7650 SNA CLA 552 013013 5226 JMP NOR 553 013014 1022 TAD INFPTR /FILL IN *.* FOR FILENAME 554 013015 7001 IAC 555 013016 3030 DCA TEMP 556 013017 1371 TAD (5200 /* 557 013020 3430 DCA I TEMP 558 013021 2030 ISZ TEMP 559 013022 2030 ISZ TEMP 560 013023 2030 ISZ TEMP /POINT TO EXTENSION 561 013024 1371 TAD (5200 /.* 562 013025 3430 DCA I TEMP /SUBSTITUTE IT 563 013026 1036 NOR, TAD GPTR1 564 013027 6201 CDF 565 013030 4770 JMS I (PNMSUB 566 013031 1767 TAD I (OPT1 567 013032 7006 RTL 568 013033 7620 SNL CLA 569 013034 5240 JMP SKPBLK 570 013035 4766 JMS I (CONVTP 571 013036 1765 TAD I (BLOCK 572 013037 4341 JMS BSPACE /(MH) PATCH FOR /B/E 573 013040 1767 SKPBLK, TAD I (OPT1 574 013041 0372 AND (100 575 013042 7640 SZA CLA 576 013043 5256 JMP NODATE 577 013044 1032 TAD IFCNT 578 013045 7041 CIA 579 013046 4764 JMS I (PRNUM 580 013047 1034 TAD INFWDS 581 013050 7650 SNA CLA 582 013051 5256 JMP NODATE 583 013052 6201 CDF 584 013053 1436 TAD I GPTR1 585 013054 6211 CDF 10 586 013055 4763 JMS I (PDATE 587 013056 2300 NODATE, ISZ LNCNT /IS LINE FILLED? 588 013057 5264 JMP MOROLN /NO 589 013060 4762 JMS CRLF 590 013061 1277 TAD ALNCNT /RESET COUNT 591 013062 3300 DCA LNCNT 592 013063 5774 JMP I (NENT 593 013064 1361 MOROLN, TAD (5 /OUTPUT 5 BLANKS 594 013065 4760 JMS I (BLANK 595 013066 5774 JMP I (NENT 596 597 /BLANKS ROUTINE 598 013067 0000 BLANK, 0 599 013070 7041 CIA 600 013071 3276 DCA BLTMP 601 013072 4766 JMS I (CONVTP 602 013073 2276 ISZ BLTMP 603 013074 5272 JMP .-2 604 013075 5667 JMP I BLANK 605 013076 0000 BLTMP, 0 606 607 608 013077 0000 ALNCNT, 0 609 013100 0000 LNCNT, 0 610 611 013101 0000 OUTCHR, 0 612 013102 5733 JMP I RPOS 613 013103 3736 RPOS1, DCA I OCPTR 614 013104 4333 JMS RPOS 615 013105 3337 RPOS2, DCA HOLD 616 013106 4333 JMS RPOS 617 013107 7006 RPOS3, RTL 618 013110 7006 RTL 619 013111 3340 DCA HOLD2 620 013112 1340 TAD HOLD2 621 013113 0357 AND (7400 622 013114 1736 TAD I OCPTR 623 013115 3736 DCA I OCPTR 624 013116 2336 ISZ OCPTR 625 013117 1340 TAD HOLD2 626 013120 7006 RTL 627 013121 7006 RTL 628 013122 0357 AND (7400 629 013123 1337 TAD HOLD 630 013124 3736 DCA I OCPTR 631 013125 2336 ISZ OCPTR 632 013126 2335 ISZ OUWDCT 633 013127 7410 SKP 634 013130 4756 JMS DUMP 635 013131 4333 JMS RPOS 636 013132 5303 JMP RPOS1 637 013133 3103 RPOS, RPOS1 638 013134 5701 JMP I OUTCHR 639 640 013135 0000 OUWDCT, 0 641 013136 0000 OCPTR, 0 642 013137 0000 HOLD, 0 643 013140 0000 HOLD2, 0 644 013141 0000 BSPACE, 0 /(MH) PATCH FOR /B/E 645 013142 4755 JMS I (OPRNT 646 013143 7201 CLA!IAC 647 013144 4760 JMS I (BLANK 648 013145 5741 JMP I BSPACE 649 650 013155 3260 PAGE 013156 4502 013157 7400 013160 3067 013161 0005 013162 4071 013163 3450 013164 3400 013165 2744 013166 3217 013167 7643 013170 4000 013171 5200 013172 0100 013173 4077 013174 2705 013175 7644 013176 3101 013177 3300 651 652 013200 7402 GTSXBT, HLT 653 013201 7104 CLL RAL 654 013202 1021 TAD CNT 655 013203 7030 CML RAR 656 013204 3030 DCA TEMP 657 013205 1430 TAD I TEMP 658 013206 7420 SNL 659 013207 4212 JMS ROTR6 660 013210 0377 AND (77 661 013211 5600 JMP I GTSXBT 662 663 664 013212 0000 ROTR6, 0 665 013213 7012 RTR 666 013214 7012 RTR 667 013215 7012 RTR 668 013216 5612 JMP I ROTR6 669 670 013217 7402 CONVTP, HLT 671 013220 7440 SZA 672 013221 1376 TAD (240 673 013222 0377 AND (77 674 013223 1376 TAD (240 675 013224 4433 JMS I OSWTCH 676 013225 5617 JMP I CONVTP 677 678 013226 7402 TYPE, HLT 679 013227 3245 DCA HOLD1 680 013230 1375 TAD (217 681 013231 4774 JMS I (CTYPE 682 013232 7410 SKP 683 013233 3257 DCA ECHO 684 013234 1257 TAD ECHO 685 013235 7650 SNA CLA 686 013236 5626 JMP I TYPE 687 013237 4773 JMS I (CINTER 688 013240 7410 SKP 689 013241 5772 JMP I (ABORT 690 013242 1245 TAD HOLD1 691 013243 4246 JMS TTY 692 013244 5626 JMP I TYPE 693 694 013245 0000 HOLD1, 0 695 696 013246 0000 TTY, 0 697 013247 6046 TLS 698 013250 6041 TSF 699 013251 5250 JMP .-1 700 013252 1371 TAD (-215 701 013253 7640 SZA CLA 702 013254 5646 JMP I TTY 703 013255 1370 TAD (12 704 013256 5247 JMP TTY+1 705 706 013257 0001 ECHO, 1 707 708 013260 0000 OPRNT, 0 709 013261 3200 DCA GTSXBT 710 013262 1367 TAD (-4 711 013263 3021 DCA CNT 712 013264 1200 OPLP, TAD GTSXBT 713 013265 7106 RTL CLL 714 013266 7004 RAL 715 013267 3200 DCA GTSXBT 716 013270 1200 TAD GTSXBT 717 013271 7004 RAL 718 013272 0366 AND (7 719 013273 1365 TAD (260 720 013274 4764 JMS I (CONVTP 721 013275 2021 ISZ CNT 722 013276 5264 JMP OPLP 723 013277 5660 JMP I OPRNT 724 725 726 /ROUTINE TO MAKE SURE USER SPECIFIED 727 //C AND /O SWITCHES CAUSE CORRECT MATCH WITH DATE 728 729 013300 0000 DATCHK, 0 730 013301 1763 TAD I (OPT1 /CHECK /C 731 013302 4314 JMS MDATE 732 013303 7000 NOP /RETURN HERE WITH AC=0 IF NO /C 733 013304 7640 SZA CLA /RETURN HERE WITH AC=0 IF DATES MATCH 734 013305 5762 JMP I (NENT /DATES DONT MATCH AND /C GIVEN 735 013306 1761 TAD I (OPT2 /CHECK /V 736 013307 4314 JMS MDATE 737 013310 7240 CMA CLA /SET AC=-1 IF NO /V 738 013311 7650 SNA CLA /RETURN HERE AC=0 IF DATES SAME 739 013312 5762 JMP I (NENT /DATES SAME WITH /V-IGNORE FILE 740 013313 5700 JMP I DATCHK /CONTINUE 741 742 013314 0000 MDATE, 0 //O AND /V ARE AC2 743 013315 7006 RTL /IS IT OPTION ON? 744 013316 7700 SMA CLA /SKIP IF IT IS 745 013317 5714 JMP I MDATE /NO- RETURN WITH 0 AC 746 013320 2314 ISZ MDATE /SKIP RETURN 747 013321 6201 CDF 0 748 013322 1436 TAD I GPTR1 /GET DATE WORD 749 013323 7041 CIA 750 013324 6211 CDF 10 751 013325 1760 TAD I (DATE /COMPARE WITH MONITORS, 0 IF = 752 013326 5714 JMP I MDATE 753 754 013360 7666 PAGE 013361 7644 013362 2705 013363 7643 013364 3217 013365 0260 013366 0007 013367 7774 013370 0012 013371 7563 013372 2524 013373 3624 013374 3600 013375 0217 013376 0240 013377 0077 755 756 013400 0000 PRNUM, 0 757 013401 3237 DCA NUM 758 013402 1377 TAD (PWRTEN 759 013403 3020 DCA PTR 760 013404 2242 PRNTLP, ISZ MPNTCNT 761 013405 7410 SKP 762 013406 7330 AC4000 763 013407 3240 DCA PNTFLG 764 013410 3241 DCA DIG 765 013411 1420 DIVLPY, TAD I PTR 766 013412 7450 SNA 767 013413 5600 JMP I PRNUM 768 013414 7100 CLL 769 013415 1237 TAD NUM 770 013416 7420 SNL 771 013417 5223 JMP PRTDIG 772 013420 3237 DCA NUM 773 013421 2241 ISZ DIG 774 013422 5211 JMP DIVLPY 775 013423 7200 PRTDIG, CLA 776 013424 1241 TAD DIG 777 013425 1240 TAD PNTFLG 778 013426 7450 SNA 779 013427 5235 STPBLK, JMP PRBLNK 780 013430 1376 TAD (260 781 013431 4775 JMS I (CONVTP 782 013432 7330 CLA CLL CML RAR 783 013433 2020 NXTPWR, ISZ PTR 784 013434 5204 JMP PRNTLP 785 013435 4775 PRBLNK, JMS I (CONVTP 786 013436 5233 JMP NXTPWR 787 788 013437 0000 NUM, 0 789 013440 0000 PNTFLG, 0 790 013441 0000 DIG, 0 791 013442 0000 MPNTCNT,0 792 793 013443 6030 PWRTEN, -1750;-144;-12;-1;0 013444 7634 013445 7766 013446 7777 013447 0000 794 795 013450 0000 PDATE, 0 796 013451 7450 SNA 797 013452 5341 JMP FDATE 798 013453 3350 DCA DATEY 799 013454 1351 TAD DATNOW /WAS A DATE ENTERED AT BOOT TIME?(MH) 800 013455 7450 SNA /SKIP IF SO(MH) 801 013456 5341 JMP FDATE /NO -- DON'T PRINT DATE IF NOT ENTERED(MH) 802 013457 0374 AND (7 /YES -- SAVE YR NEGATED(MH) 803 013460 7041 CMA!IAC /(MH) 804 013461 3353 DCA DATTMP /SAVE THIS RESULT TEMP(MH) 805 013462 2773 ISZ I (STPBLK 806 013463 4775 JMS I (CONVTP 807 013464 7346 ACM3 808 013465 3772 DCA I (MPNTCNT 809 013466 1350 TAD DATEY 810 013467 7012 RTR 811 013470 7010 RAR 812 013471 0371 AND (37 813 013472 4770 JMS I (PRNUM 814 013473 1367 TAD ("- 815 013474 4775 JMS I (CONVTP 816 013475 1350 TAD DATEY 817 013476 7106 CLL RTL 818 013477 7006 RTL 819 013500 7004 RAL 820 013501 0366 AND (17 821 013502 3200 DCA PRNUM 822 013503 1200 TAD PRNUM 823 013504 1200 TAD PRNUM 824 013505 1200 TAD PRNUM 825 013506 1365 TAD (DATTAB-4 826 013507 3010 DCA XR 827 013510 7346 ACM3 828 013511 3021 DCA CNT 829 013512 1410 TAD I XR 830 013513 4433 JMS I OSWTCH 831 013514 2021 ISZ CNT 832 013515 5312 JMP .-3 833 013516 1367 TAD ("- 834 013517 4433 JMS I OSWTCH 835 013520 1350 TAD DATEY 836 013521 0374 AND (7 837 013522 1353 TAD DATTMP /ADD -ENTERED YR(MH) 838 013523 7100 CLL /CLEAR LINK FOR FLAG USE(MH) 839 013524 7740 SZA!SMA!CLA /SKIP AND CLEAR IF ENTERED YR BIGGER,SAME(MH) 840 013525 7020 CML /SET LINK IF DIR YR BIGGER THAN ENETERED YR (MH) 841 013526 1350 TAD DATEY /GET DATE BACK(MH) 842 013527 0374 AND (7 /GET THE YR(MH) 843 013530 7430 SZL /SKIP IF ENTERED YR WAS BIG OR SAME(MH) 844 013531 1364 TAD (-10 /SUBTRACT 10 OCTAL IF DIR YR WAS BIGGER(MH) 845 013532 1352 TAD DATINC /ADD DATE INCREMENT(MH) 846 013533 1363 TAD (106 847 013534 4770 JMS I (PRNUM 848 013535 7240 CLA CMA 849 013536 1773 TAD I (STPBLK 850 013537 3773 DCA I (STPBLK 851 013540 5650 JMP I PDATE 852 013541 1762 FDATE, TAD I (LNCNT /SEE IF AT END OF LINE? 853 013542 7001 IAC /AC=0 NOW IF YES 854 013543 7650 SNA CLA /OUT PUT SPACES TO FILL DATE SLOT 855 013544 5650 JMP I PDATE /NO NEED FOR SPACES IF AT END OF LINE 856 013545 1361 TAD (12 /10 SPACES IS WHATS NEEDED 857 013546 4760 JMS I (BLANK 858 013547 5650 JMP I PDATE /LEAVE 859 860 013550 0000 DATEY, 0 861 013551 0000 DATNOW, 0 /CURRENT DATE IF ONE WAS ENTERED(MH) 862 013552 0000 DATINC, 0 /DATE ENXTENSION TO 1970 (0,10,20, OR 30) (MH) 863 013553 0000 DATTMP, 0 /TEMP STORE (MH) 864 865 013560 3067 PAGE 013561 0012 013562 3100 013563 0106 013564 7770 013565 4421 013566 0017 013567 0255 013570 3400 013571 0037 013572 3442 013573 3427 013574 0007 013575 3217 013576 0260 013577 3443 866 867 013600 0000 CTYPE, 0 868 013601 3223 DCA T2 869 013602 1377 TAD (200 870 013603 6034 KRS 871 013604 7041 CIA 872 013605 1223 TAD T2 873 013606 7650 SNA CLA 874 013607 6031 KSF 875 013610 5600 JMP I CTYPE 876 013611 6032 KCC 877 013612 1376 TAD ("^ 878 013613 4775 JMS I (TTY 879 013614 1223 TAD T2 880 013615 1374 TAD (100 881 013616 4775 JMS I (TTY 882 013617 1373 TAD (215 883 013620 4775 JMS I (TTY 884 013621 2200 ISZ CTYPE 885 013622 5600 JMP I CTYPE 886 887 013623 0000 T2, 0 888 889 013624 0000 CINTER, 0 890 013625 1372 TAD (203 891 013626 4200 JMS CTYPE 892 013627 5231 JMP UPPCK 893 013630 5235 JMP SPURGE 894 013631 1371 UPPCK, TAD (220 895 013632 4200 JMS CTYPE 896 013633 5624 JMP I CINTER 897 013634 7410 SKP 898 013635 7040 SPURGE, CMA 899 013636 3770 DCA I (ALTOPT 900 013637 2224 ISZ CINTER 901 013640 5624 JMP I CINTER 902 903 013641 0000 HEMPTY, 0 904 013642 6201 CDF 0 905 013643 1426 TAD I EPTR 906 013644 6211 CDF 10 907 013645 7041 CIA 908 013646 1336 TAD ECOUNT 909 013647 3336 DCA ECOUNT 910 013650 1767 TAD I (OPT1 911 013651 0377 AND (200 912 013652 7640 SZA CLA 913 013653 5257 JMP LISTEM 914 013654 1766 TAD I (OPT2 915 013655 7700 SMA CLA 916 013656 5641 JMP I HEMPTY 917 013657 1767 LISTEM, TAD I (OPT1 918 013660 0365 AND (10 /IS /I GIVEN 919 013661 7650 SNA CLA /IF YES PAD BY ADDIDTIONAL INFO WORDS 920 013662 5273 JMP EMSG 921 013663 7240 CLA CMA 922 013664 1034 TAD INFWDS /NUMBER OF SPACES=5*(INFWDS-1) 923 013665 3764 DCA DFLAG 924 013666 1764 TAD DFLAG 925 013667 7106 RTL CLL 926 013670 1764 TAD DFLAG 927 013671 7440 SZA /DONT OUTPUT 4096 BLANKS 928 013672 4763 JMS I (BLANK 929 013673 1362 EMSG, TAD (EMPTYM-1 930 013674 3011 DCA XR1 931 013675 1361 TAD (-11 932 013676 3021 DCA CNT 933 013677 1411 EOLP, TAD I XR1 934 013700 4760 JMS I (OUTCHR 935 013701 2021 ISZ CNT 936 013702 5277 JMP EOLP 937 013703 1767 TAD I (OPT1 938 013704 7006 RTL 939 013705 7620 SNL CLA 940 013706 5312 JMP SKIPES 941 013707 4757 JMS I (CONVTP 942 013710 1756 TAD I (BLOCK 943 013711 4755 JMS I (BSPACE /(MH) PATCH FOR /B/E 944 013712 6201 SKIPES, CDF 0 945 013713 1426 TAD I EPTR 946 013714 6211 CDF 10 947 013715 7041 CIA 948 013716 4754 JMS I (PRNUM 949 013717 2753 ISZ I (LNCNT /AT END OF LINE 950 013720 5325 JMP WORK /NO. HAVE TO DO BLANK PADDING 951 013721 4752 JMS I (CRLF 952 013722 1751 TAD I (ALNCNT /RESET COUNT 953 013723 3753 DCA I (LNCNT 954 013724 5641 JMP I HEMPTY 955 013725 1350 WORK, TAD (5 /FORCES 5 BLANKS 956 013726 4763 JMS I (BLANK 957 013727 1767 TAD I (OPT1 958 013730 0374 AND (100 /CHECK FOR /F 959 013731 7640 SZA CLA /ADD 10 SPACES TO COVER DATE 960 013732 5641 JMP I HEMPTY 961 013733 1347 TAD (12 962 013734 4763 JMS I (BLANK 963 013735 5641 JMP I HEMPTY 964 965 013736 0000 ECOUNT, 0 966 967 013747 0012 PAGE 013750 0005 013751 3077 013752 4071 013753 3100 013754 3400 013755 3141 013756 2744 013757 3217 013760 3101 013761 7767 013762 4375 013763 3067 013764 2523 013765 0010 013766 7644 013767 7643 013770 7642 013771 0220 013772 0203 013773 0215 013774 0100 013775 3246 013776 0336 013777 0200 968 969 014000 0000 PNMSUB, 0 970 014001 3225 DCA NMEPLC 971 014002 6214 RDF 972 014003 1377 TAD (CDF 973 014004 3210 DCA FLDFUD 974 014005 1376 TAD (-10 975 014006 3021 DCA CNT 976 014007 1225 PNLOOP, TAD NMEPLC 977 014010 7402 FLDFUD, HLT 978 014011 4775 JMS I (GTSXBT 979 014012 6211 CDF 10 980 014013 4774 JMS I (CONVTP 981 014014 1373 TAD (3 982 014015 1021 TAD CNT 983 014016 7640 SZA CLA 984 014017 5222 JMP .+3 985 014020 1372 TAD (". 986 014021 4433 JMS I OSWTCH 987 014022 2021 ISZ CNT 988 014023 5207 JMP PNLOOP 989 014024 5600 JMP I PNMSUB 990 991 014025 0000 NMEPLC, 0 992 993 014026 4771 WRTERR, JMS I (ERROR 994 014027 4301 OUERR+40 995 014030 5770 JMP I (EOLIN 996 014031 4771 CLOERR, JMS I (ERROR 997 014032 4313 CLERR+40 998 014033 5770 JMP I (EOLIN 999 014034 4771 NOROOM, JMS I (ERROR 1000 014035 4265 SPRBLM+40 1001 014036 5770 JMP I (EOLIN 1002 014037 4771 IDBLVT, JMS I (ERROR 1003 014040 4402 NOTTY+40 1004 014041 5770 JMP I (EOLIN 1005 1006 014042 1367 SAYNON, TAD (OUTCHR 1007 014043 3033 DCA OSWTCH 1008 014044 4766 JMS I (CRLF 1009 014045 4766 JMS I (CRLF 1010 014046 1365 TAD (-4 /FORCE PRINTING OF ONLY 1 DIGIT 1011 014047 3764 DCA I (MPNTCNT /FOR 0 FREE BLOCKS 1012 014050 1763 TAD I (ECOUNT 1013 014051 4762 JMS I (PRNUM 1014 014052 4774 JMS I (CONVTP 1015 014053 1361 TAD (FRBLM-1 1016 014054 3011 DCA XR1 1017 014055 1360 TAD (-13 1018 014056 3021 DCA CNT 1019 014057 1411 FRBLP, TAD I XR1 1020 014060 4767 JMS I (OUTCHR 1021 014061 2021 ISZ CNT 1022 014062 5257 JMP FRBLP 1023 014063 4766 JMS I (CRLF 1024 014064 1357 TAD (14 /FORM FEED 1025 014065 4767 JMS I (OUTCHR 1026 014066 1270 TAD MOIN 1027 014067 5756 JMP I (DOMOIN 1028 1029 014070 0000 MOIN, 0 1030 1031 014071 0000 CRLF, 0 1032 014072 1355 TAD (215 1033 014073 4767 JMS OUTCHR 1034 014074 1354 TAD (212 1035 014075 4767 JMS OUTCHR 1036 014076 5671 JMP I CRLF 1037 1038 /ROUTINE TO DUMP ADDITIONAL INFO WORDS IF WANTED 1039 1040 014077 0000 ADDINF, 0 1041 014100 1753 TAD I (OPT1 1042 014101 0352 AND (10 /CHECK /I SWITCH 1043 014102 7650 SNA CLA 1044 014103 5677 JMP I ADDINF 1045 014104 7240 CLA CMA 1046 014105 1034 TAD INFWDS /GET NUMBER 1047 014106 7550 SPA SNA /MUST BE 2 OR MORE TO PRINT 1048 014107 5325 JMP CLARET /RETURN 1049 014110 7041 CIA 1050 014111 3330 DCA CNTX 1051 014112 1036 TAD GPTR1 1052 014113 7001 IAC /BUMP TO FIRST ONE 1053 014114 3327 DCA PGPTR1 1054 014115 6201 ADDLP, CDF 0 1055 014116 1727 TAD I PGPTR1 /GET WORD 1056 014117 6211 CDF 10 1057 014120 4751 JMS I (OPRNT /PRINT IT IN OCTAL 1058 014121 4774 JMS I (CONVTP /OUTPUT A BLANK 1059 014122 2327 ISZ PGPTR1 /BUMP 1060 014123 2330 ISZ CNTX /COUNT NUMBER 1061 014124 5315 JMP ADDLP 1062 014125 7200 CLARET, CLA /RETRN 1063 014126 5677 JMP I ADDINF 1064 1065 014127 0000 PGPTR1, 0 1066 014130 0000 CNTX, 0 1067 1068 014151 3260 PAGE 014152 0010 014153 7643 014154 0212 014155 0215 014156 2261 014157 0014 014160 7765 014161 4406 014162 3400 014163 3736 014164 3442 014165 7774 014166 4071 014167 3101 014170 2324 014171 2501 014172 0256 014173 0003 014174 3217 014175 3200 014176 7770 014177 6201 1069 1070 014200 0411 VERNO, TEXT /DIRECT V6A / 014201 2205 014202 0324 014203 4026 014204 6601 014205 4000 1071 014206 0522 BADIRD, TEXT /ERROR READING INPUT DIRECTORY/ 014207 2217 014210 2240 014211 2205 014212 0104 014213 1116 014214 0740 014215 1116 014216 2025 014217 2440 014220 0411 014221 2205 014222 0324 014223 1722 014224 3100 1072 014225 1617 SPRBLM, TEXT /NO ROOM FOR OUTPUT FILE/ 014226 4022 014227 1717 014230 1540 014231 0617 014232 2240 014233 1725 014234 2420 014235 2524 014236 4006 014237 1114 014240 0500 1073 014241 0522 OUERR, TEXT /ERROR WRITING FILE/ 014242 2217 014243 2240 014244 2722 014245 1124 014246 1116 014247 0740 014250 0611 014251 1405 014252 0000 1074 014253 0522 CLERR, TEXT /ERROR CLOSING FILE/ 014254 2217 014255 2240 014256 0314 014257 1723 014260 1116 014261 0740 014262 0611 014263 1405 014264 0000 1075 014265 0405 NFLEIN, TEXT /DEVICE DOES NOT HAVE DIRECTORY/ 014266 2611 014267 0305 014270 4004 014271 1705 014272 2340 014273 1617 014274 2440 014275 1001 014276 2605 014277 4004 014300 1122 014301 0503 014302 2417 014303 2231 014304 0000 1076 014305 0521 BIGEQ, TEXT /EQUALS OPTION BAD/ 014306 2501 014307 1423 014310 4017 014311 2024 014312 1117 014313 1640 014314 0201 014315 0400 1077 014316 1114 ILLQ, TEXT /ILLEGAL ?/ 014317 1405 014320 0701 014321 1440 014322 7700 1078 014323 1114 ILLA, TEXT /ILLEGAL */ 014324 1405 014325 0701 014326 1440 014327 5200 1079 014330 0201 BADDIR, TEXT /BAD INPUT DIRECTORY/ 014331 0440 014332 1116 014333 2025 014334 2440 014335 0411 014336 2205 014337 0324 014340 1722 014341 3100 1080 014342 2410 NOTTY, TEXT /THERE IS NO HOPE-THERE IS NO TTY HANDLER IN YOUR SYSTEM/ 014343 0522 014344 0540 014345 1123 014346 4016 014347 1740 014350 1017 014351 2005 014352 5524 014353 1005 014354 2205 014355 4011 014356 2340 014357 1617 014360 4024 014361 2431 014362 4010 014363 0116 014364 0414 014365 0522 014366 4011 014367 1640 014370 3117 014371 2522 014372 4023 014373 3123 014374 2405 014375 1500 1081 014376 0274 EMPTYM, "<;"E;"M;"P;"T;"Y;">;240;240 014377 0305 014400 0315 014401 0320 014402 0324 014403 0331 014404 0276 014405 0240 014406 0240 1082 014407 0306 FRBLM, "F;"R;"E;"E;240;"B;"L;"O;"C;"K;"S 014410 0322 014411 0305 014412 0305 014413 0240 014414 0302 014415 0314 014416 0317 014417 0303 014420 0313 014421 0323 1083 1084 014422 0302 "B;"A;"D /PROTECTION AGAINST BAD DATE 014423 0301 014424 0304 1085 014425 0312 DATTAB, "J;"A;"N 014426 0301 014427 0316 1086 014430 0306 "F;"E;"B 014431 0305 014432 0302 1087 014433 0315 "M;"A;"R 014434 0301 014435 0322 1088 014436 0301 "A;"P;"R 014437 0320 014440 0322 1089 014441 0315 "M;"A;"Y 014442 0301 014443 0331 1090 014444 0312 "J;"U;"N 014445 0325 014446 0316 1091 014447 0312 "J;"U;"L 014450 0325 014451 0314 1092 014452 0301 "A;"U;"G 014453 0325 014454 0307 1093 014455 0323 "S;"E;"P 014456 0305 014457 0320 1094 014460 0317 "O;"C;"T 014461 0303 014462 0324 1095 014463 0316 "N;"O;"V 014464 0317 014465 0326 1096 014466 0304 "D;"E;"C 014467 0305 014470 0303 1097 014471 0302 "B;"A;"D /PROTECTION AGAINST BAD DATE 014472 0301 014473 0304 1098 014474 0302 "B;"A;"D /PROTECTION AGAINST BAD DATE 014475 0301 014476 0304 1099 014477 0302 "B;"A;"D /PROTECTION AGAINST BAD DATE 014500 0301 014501 0304 1100 1101 014502 0000 DUMP, 0 1102 014503 1777 TAD I (LENGTH /GET LENGTH AVAILABLE 1103 014504 7450 SNA /IF ZERO ITS NON FILE STRUCTURE 1104 014505 5316 JMP NOMATR /IF ZERO DOESNT MATTER 1105 014506 7100 CLL 1106 014507 1776 TAD I (CLEN /ADD CURRENT SIZE 1107 014510 1375 TAD (5 /ADD # OF BLOCKS 1108 014511 7630 SZL CLA /WE ARE OK IF SKIPS 1109 014512 5774 JMP I (NOROOM 1110 014513 1776 TAD I (CLEN /UPDATE CLOSING LENGTH 1111 014514 1375 TAD (5 /BY NUMBER OF BLOCKS 1112 014515 3776 DCA I (CLEN /SAVE FOR CLOSE 1113 014516 1773 NOMATR, TAD OUWDCT 1114 014517 1372 TAD (5210 1115 014520 3323 DCA CTLWD 1116 014521 6202 CIF 0 1117 014522 4423 JMS I OUHAND 1118 014523 5210 CTLWD, 5210 1119 014524 5200 BUFAD, BUF 1120 014525 0000 BLCKN, 0 1121 014526 5771 JMP WRTERR 1122 014527 1375 TAD (5 1123 014530 1325 TAD BLCKN /UPDATE BLOCK # BY 5 1124 014531 3325 DCA BLCKN 1125 014532 1370 TAD (-1200 1126 014533 3773 DCA OUWDCT 1127 014534 1324 TAD BUFAD 1128 014535 3767 DCA OCPTR 1129 014536 5702 JMP I DUMP 1130 / 1131 1132 014567 3136 *4600 014570 6600 014571 4026 014572 5210 014573 3135 014574 4034 014575 0005 014576 2130 014577 2241 1133 1134 014600 4204 JMS INIT 1135 014601 4204 JMS INIT 1136 014602 5777 JMP I (2000 1137 014603 5776 JMP I (2001 1138 014604 0000 INIT, 0 1139 014605 2204 ISZ INIT 1140 014606 7300 CLA CLL 1141 014607 1377 TAD (2000 1142 014610 6201 CDF 0 1143 014611 3775 DCA I (7745 1144 014612 1374 TAD (6403 1145 014613 3773 DCA I (7746 1146 014614 6211 CDF 10 1147 014615 5604 JMP I INIT 1148 014773 7746 $ 014774 6403 014775 7745 014776 2001 014777 2000 ABORT 2524 AC2 7326 AC4000 7330 ACK 2056 ACM2 7344 unreferenced ACM3 7346 ADDINF 4077 ADDLP 4115 AI1 2271 AINO 2317 ALNCNT 3077 ALTOPT 7642 AO1 2211 AO2 2225 BADDIR 4330 BADEQ 2531 BADIRD 4206 BDPTR 0035 BIDIR 2470 BIGEQ 4305 BIPCCL 7777 BLANK 3067 BLCK 2240 BLCKN 4525 BLOCK 2744 BLOOP 2616 BLTMP 3076 BSPACE 3141 BUF 5200 BUFAD 4524 CDCALL 2002 CHAR 2737 CINTER 3624 CLARET 4125 CLEN 2130 CLERR 4253 CLOERR 4031 CMN 2232 CNT 0021 CNTUP 2075 CNTX 4130 CONVTP 3217 CRLF 4071 CTLWD 4523 CTYPE 3600 DATCHK 3300 DATE 7666 DATEY 3550 DATINC 3552 DATNOW 3551 DATTAB 4425 DATTMP 3553 DFLAG 2523 DIG 3441 DIRCTY 0000 DIVLPY 3411 DOMOIN 2261 DUMP 4502 ECHO 3257 ECOUNT 3736 EMPTY 2710 EMPTYM 4376 EMSG 3673 ENDCHK 2105 EOLIN 2324 EOLP 3677 EPNEXT 2740 EPTR 0026 EQLS 7646 EQUALT 2015 ERROR 2501 FDATE 3541 FINDSK 2327 FLDFUD 4010 FRBLM 4407 FRBLP 4057 GETCNT 2427 GOT1 3000 GPTR1 0036 GPTR2 2741 GTSXBT 3200 HEMPTY 3641 HOLD 3137 HOLD1 3245 HOLD2 3140 IDBLVT 4037 IFCNT 0032 ILLA 4323 ILLQ 4316 INDERR 2476 INFPTR 0022 INFWDS 0034 INHAND 0024 INIT 4604 INSCNT 0027 LENGTH 2241 LFLAG 2742 LISTEM 3657 LNCNT 3100 MATFLG 2745 MDATE 3314 MEXT 2666 MLP 2642 MN1 2627 MOIN 4070 MOROLN 3064 MPNTCN 3442 MSTRT 2005 NBLOCK 2600 NCNT 2743 NEMPTY 2712 NENT 2705 NFIN 2473 NFLEIN 4265 NM1 2667 NMEPLC 4025 NODATE 3056 NOMATR 4516 NOPTIM 2461 NOR 3026 NOROOM 4034 NOSUB 2444 NOTTY 4342 NULLCK 2200 NUM 3437 NXTPWR 3433 OCPTR 3136 OKFLAG 0031 unreferenced OLOOP 2107 OPLP 3264 OPRNT 3260 OPT1 7643 OPT2 7644 OSWTCH 0033 OUERR 4241 OUHAND 0023 OUTCHR 3101 OUWDCT 3135 PDATE 3450 PG1 2400 PGPTR1 4127 PLOOP 2510 PNLOOP 4007 PNMSUB 4000 PNTFLG 3440 PRBLNK 3435 PRNTLP 3404 PRNUM 3400 PRTDIG 3423 PTR 0020 PWRTEN 3443 QINO 2322 ROTR6 3212 RPOS 3133 RPOS1 3103 RPOS2 3105 unreferenced RPOS3 3107 unreferenced S1C 2040 S4L 2053 SAYNON 4042 SETDEV 2257 SKIPES 3712 SKPBLK 3040 SPRBLM 4225 SPURGE 3635 STAR 2004 unreferenced STPBLK 3427 T2 3623 TEMP 0030 TTY 3246 TTY1 2223 TTY2 2224 TTYHND 2215 TYPE 3226 UPPCK 3631 VERNO 4200 WILD 2664 WILDA 2732 WILDNM 2641 WORK 3725 WRTERR 4026 XR 0010 XR1 0011 XR2 0012 unreferenced XX 2333