1 /14 OS/8 RESOURCES PROGRAM 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 46 47 / S.R. 48 49 /SAVE INFO: 50 51 / .R ABSLDR 52 / *RESORC$ 53 / .SAVE SYS RESORC;12000=6003 54 55 /CORE MAP: 56 57 /0000-1777 C.D. 58 /2000-2377 DEVICE NAME AND LENGTH TABLE 59 /2400-2777 OUTPUT BUFFER (DOESN'T OVERLAP BETA REGISTER) 60 /3000-3377 INPUT HANDLER 61 /3400-3777 OUTPUT HANDLER 62 /4000-7377 INPUT DIRECTORY 63 /4000-7577 INPUT HANDLERS (LOSE 2ND HALF OF LAST ONE) 64 65 /FIELD 1 66 67 /10000-11777 USR 68 /11400-11777 INPUT KBM 69 /12000-15577 PROGRAM 70 /15600-16177 INPUT BLOCK 0 71 /16200-17577 INPUT USR 72 73 INPBL0=5600 74 INPKBM=1400 75 INPUSR=6200 76 INPHND=4000 77 78 FAST=20 79 DIG=21 80 EXTEN=22 81 82 DEVNUM=23 /DEVICE NUMBER OF HANDLER 83 CNT=24 84 PDNT=25 /PTS TO DEVICE NAME TABLE 85 TEMP=26 86 PUDNT=27 /PTS TO USER DEVICE NAME TABLE 87 PDHIT=30 /PTS TO DEVICE HANDLER INFO TABLE 88 PDCWT=31 /PTS TO DEVICE CONTROL WORD TABLE 89 PTYP=32 90 LFT=33 91 RT=LFT+1 92 DVNO=35 93 BLOC=36 94 PDHRT=37 /POINTS TO DEVICE HANDLER RESIDENCY TABLE 95 UN=6 96 X0=10 97 XR1=11 98 99 RESVERSION="A 100 101 /FIXES SINCE FIELD TEST RELEASE: 102 103 /1. 'INPUT ERROR' MESSAGE NO LONGER GARBLED 104 /2. '%NON SYSTEM DEVICE' NEVER PRINTS HANDLERS 105 106 /FIXES FOR MAINTENANCE RELEASE (V3C): 107 108 /3. INCORPORATED PATCH SEQ NO 1 ALLOWS DISTINGUISHING BETWEEN 109 / HIGH AND LOW SPEED PTR'S AND ADDITIONAL CASSETTES 110 / [DSN FEB 1975] 111 112 /4. FIXED LENGTHS OF DF32'S AND RF08'S [SUPERSEDES PATCH SEQ #2 113 / DSN APR 1975] 114 115 /5. CHANGED VERSION NUMBER TO V3, UPDATED COPYRIGHT 116 /6. ADDED DUMP, LST, AND RX-- TO INTERNAL NAME TABLES 117 118 /7. ADDED DETAILS ABOUT DUMP AND FLOPPIES TO TABLES 119 120 /V3D CHANGES: 121 122 /8. ADDED NAMES SLU AND LQP TO TABLES 123 /9. CAN DISTINGUISH LQP KIND OF LPTR 124 /10. FIXED BUG ABOUT DUMPING BUFFER FULL OF NULLS 125 /11. REMOVED LITTLE-USED 'OUT', 'DEV' FROM NAME TABLES 126 FIELD 1 127 128 *2000 129 130 012000 7410 START, SKP 131 012001 5205 JMP NOCD /CHAIN ENTRY POINT 132 / JMS I (7700 /WE ASSUME THE USR IS IN CORE 133 / 10 /DON'T HAVE TO LOCK USR IN CORE IF JSW SET RIGHT 134 012002 4777 CD, JMS I (200 135 012003 0005 5 /COMMAND DECODE 136 012004 2331 2331 /DEFAULT INPUT EXTENSION = 'SY' 137 012005 3776 NOCD, DCA CTRLO 138 012006 4775 JMS OPENO /OPEN OUTPUT FILE 139 012007 3342 DCA FILENO 140 012010 1374 TAD (7617 141 012011 3337 DCA INPTR /POINT TO FIRST INPUT FILE 142 012012 1773 TAD I (7644 143 012013 0372 AND (4 / V OPTION? 144 012014 7640 SZA CLA 145 012015 4771 JMS TYPEV /OUTPUT VERSION # 146 012016 4317 JMS SETSW 147 012017 3344 DCA FLAG 148 012020 1774 TAD I (7617 149 012021 7650 SNA CLA 150 012022 4345 JMS SPCASE /NO FIRST ARG MEANS USE SYS: IN SPECIAL SENSE 151 012023 5230 JMP INL2 152 012024 1737 INLOOP, TAD I INPTR /GET INPUT FILE # AND LENGTH 153 012025 7650 SNA CLA 154 012026 5301 JMP FINI /NO MORE INPUT 155 012027 4770 JMS PRDASH 156 012030 1737 INL2, TAD I INPTR 157 012031 0367 AND (17 158 012032 3035 DCA DVNO /GET 4-BIT DEVICE # 159 012033 2342 ISZ FILENO 160 012034 1737 TAD I INPTR 161 012035 0366 AND (7760 /GET NEGATIVE OF FILE LENGTH 162 012036 3340 DCA FILEN 163 012037 2337 ISZ INPTR 164 012040 1737 TAD I INPTR /GET STARTING BLOCK OF FILE 165 012041 3343 DCA SBLOCK 166 012042 2337 ISZ INPTR 167 012043 1035 TAD DVNO 168 012044 4307 JMS GETDCW 169 012045 7700 SMA CLA 170 012046 5261 JMP NOFLST /DEVICE IS NOT FILE STRUCTURED 171 012047 4765 JMS OPENI /GET INPUT HANDLER 172 012050 4764 JMS DIRECT /ASCERTAIN DIRECTORY INFO 173 012051 4763 JMS HNDLRS /ASCERTAIN HANDLERS 174 012052 1022 TAD EXTEN 175 012053 7640 SZA CLA 176 012054 4762 JMS CNTSLT 177 012055 4761 JMS MONVER /ASCERTAIN MONITOR VERSION # 178 012056 4760 NEXT, JMS CRLF 179 012057 3344 DCA FLAG 180 012060 5224 JMP INLOOP 181 012061 4757 NOFLST, JMS PRINT 182 012062 4504 TEXT /%DEV IS NOT FILE STRUCTURED/ 012063 0526 012064 4011 012065 2340 012066 1617 012067 2440 012070 0611 012071 1405 012072 4023 012073 2422 012074 2503 012075 2425 012076 2205 012077 0400 183 012100 5256 JMP NEXT 184 185 012101 4756 FINI, JMS CLOSEO /CLOSE OUTPUT FILE 186 012102 1755 FINIS, TAD I (7642 187 012103 7700 SMA CLA 188 012104 5202 JMP CD /COMMAND LINE ENDED WITH CR 189 012105 6203 CIF CDF 0 /COMMAND LINE ENDED WITH ALTMODE 190 012106 5754 JMP I (7605 /GO BACK TO MONITOR 191 192 /CURRENT PIP /Y FILES ARE 50 (DEC) = 62 (OCTAL) BLOCKS LONG 193 194 012107 0000 GETDCW, 0 195 012110 0367 AND (17 196 012111 1353 TAD (7757 /GET PTR INTO DEVICE CONTROL WORD TABLE 197 012112 3341 DCA DCW 198 012113 1741 TAD I DCW /GET D.C.W. 199 012114 3341 DCA DCW /SAVE (WHY?) 200 012115 1341 TAD DCW 201 012116 5707 JMP I GETDCW 202 203 012117 0000 SETSW, 0 204 012120 3020 DCA FAST 205 012121 3022 DCA EXTEN 206 012122 7201 CLA IAC 207 012123 0752 AND I (7643 208 012124 7650 SNA CLA 209 012125 5330 JMP NOTF 210 012126 2020 ISZ FAST 211 012127 5717 JMP I SETSW 212 012130 1752 NOTF, TAD I (7643 213 012131 0377 AND (200 214 012132 7650 SNA CLA 215 012133 5717 JMP I SETSW 216 012134 2022 ISZ EXTEN 217 012135 2020 ISZ FAST 218 012136 5717 JMP I SETSW 219 220 /FAST GT 0 IF /L OR /E SWITCH SET 221 /EXTEN=1 IF /E SWITCH SET AND /L NOT SET 222 012137 0000 INPTR, 0 /POINTS TO INPUT FILE LIST 223 012140 0000 FILEN, 0 /INPUT FILE LENGTH (NEG IN BITS 0-7) 224 012141 0000 DCW, 0 /INPUT DEVICE CONTROL WORD 225 012142 0000 FILENO, 0 /INPUT FILE NUMBER IN INPUT LIST 226 012143 0000 SBLOCK, 0 /STARTING BLOCK # OF INPUT FILE 227 012144 0000 FLAG, 0 /NON-ZERO MEANS SPECIAL CASE OF NO FIRST ARG 228 229 012145 0000 SPCASE, 0 230 012146 2344 ISZ FLAG /NOTE SPECIAL CASE 231 012147 7201 CLA IAC 232 012150 3774 DCA I (7617 /FORCE FIRST INPUT TO BE SYS: 233 012151 5745 JMP I SPCASE 234 012152 7643 PAGE 012153 7757 012154 7605 012155 7642 012156 2400 012157 2200 012160 2344 012161 4400 012162 5537 012163 5000 012164 3400 012165 3312 012166 7760 012167 0017 012170 3137 012171 2332 012172 0004 012173 7644 012174 7617 012175 2417 012176 2276 012177 0200 235 012200 0000 PRINT, 0 236 012201 1600 TAD I PRINT 237 012202 3214 DCA PRT 238 012203 2200 ISZ PRINT 239 012204 1214 TAD PRT 240 012205 4215 JMS RTR6 241 012206 4222 JMS PR 242 012207 5600 JMP I PRINT 243 012210 1214 TAD PRT 244 012211 4222 JMS PR 245 012212 5600 JMP I PRINT 246 012213 5201 JMP PRINT+1 247 012214 0000 PRT, 0 248 012215 0000 RTR6, 0 249 012216 7012 TTY212, RTR 250 012217 7012 RTR 251 012220 7012 RTR 252 012221 5615 JMP I RTR6 253 254 012222 0000 PR, 0 255 012223 0377 AND (77 256 012224 7450 SNA 257 012225 5622 JMP I PR 258 012226 1376 TAD (240 259 012227 0377 AND (77 260 012230 1376 TAD (240 261 012231 4775 JMS PUTO 262 012232 2222 ISZ PR 263 012233 5622 JMP I PR 264 265 012234 0000 TPRINT, 0 /PRINT TO TELETYPE 266 012235 7200 CLA 267 012236 1634 TAD I TPRINT 268 012237 3214 DCA PRT 269 012240 2234 ISZ TPRINT 270 012241 1214 TAD PRT 271 012242 4215 JMS RTR6 272 012243 4247 JMS TPUT 273 012244 1214 TAD PRT 274 012245 4247 JMS TPUT 275 012246 5235 JMP TPRINT+1 276 277 012247 0000 TPUT, 0 278 012250 0377 AND (77 279 012251 7450 SNA 280 012252 5260 JMP PUTCR 281 012253 1376 TAD (240 282 012254 0377 AND (77 283 012255 1376 TAD (240 284 012256 4262 JMS TYPE 285 012257 5647 JMP I TPUT 286 287 012260 4352 PUTCR, JMS TCRLF 288 012261 5634 JMP I TPRINT 289 012262 0000 TYPE, 0 290 012263 3275 DCA TYTEM 291 012264 1276 TAD CTRLO 292 012265 7640 SZA CLA 293 012266 5662 JMP I TYPE /DON'T TYPE IF CONTROL/O FLAG SET 294 012267 6031 KSF 295 012270 7410 SKP 296 012271 4305 JMS LOOKC 297 012272 1275 TAD TYTEM 298 012273 4277 JMS TYPE2 299 012274 5662 JMP I TYPE 300 301 012275 0000 TYTEM, 0 302 012276 0000 CTRLO, 0 /NON-ZERO MEANS CTRLO/O WAS STRUCK 303 304 012277 0000 TYPE2, 0 305 012300 6046 TLS 306 012301 6041 TSF 307 012302 5301 JMP .-1 308 012303 7200 CLA 309 012304 5677 JMP I TYPE2 310 311 012305 0000 LOOKC, 0 312 012306 6036 KRB 313 012307 0374 AND (177 314 012310 1373 TAD (-17 315 012311 7450 SNA /IS IT ^O? 316 012312 5320 JMP CTROLO /YES 317 012313 1372 TAD (17-3 /NO 318 012314 7640 SZA CLA /IS IT ^C? 319 012315 5705 JMP I LOOKC /NO 320 012316 6203 CIF CDF 0 /YES 321 012317 5771 JMP I (7605 322 012320 1370 CTROLO, TAD ("^ 323 012321 4277 JMS TYPE2 324 012322 1367 TAD ("O 325 012323 4277 JMS TYPE2 326 012324 2276 ISZ CTRLO 327 012325 1366 TAD (215 328 012326 4277 JMS TYPE2 329 012327 1216 TAD TTY212 330 012330 4277 JMS TYPE2 331 012331 5662 JMP I TYPE 332 012332 0000 TYPEV, 0 333 012333 4200 JMS PRINT 334 012334 2205 TEXT /RESORC V4 / 012335 2317 012336 2203 012337 4026 012340 6440 012341 0000 335 *.-2 336 012340 6301 RESVERSION&77+6300 337 *.+1 338 012342 4344 JMS CRLF 339 012343 5732 JMP I TYPEV 340 341 012344 0000 CRLF, 0 342 012345 1366 TAD (215 343 012346 4775 JMS PUTO 344 012347 1216 TAD TTY212 345 012350 4775 JMS PUTO 346 012351 5744 JMP I CRLF 347 348 012352 0000 TCRLF, 0 349 012353 1366 TAD (215 350 012354 4262 JMS TYPE 351 012355 1365 TAD (212 352 012356 4262 JMS TYPE 353 012357 5752 JMP I TCRLF 354 355 012360 6030 DLST, -1750 /1000 356 012361 7634 -144 /100 357 012362 7766 -12 /10 358 012363 7777 -1 /1 359 012364 0000 0 /END 360 012365 0212 PAGE 012366 0215 012367 0317 012370 0336 012371 7605 012372 0014 012373 7761 012374 0177 012375 2600 012376 0240 012377 0077 361 012400 0000 CLOSEO, 0 /CLOSE OUTPUT FILE 362 012401 1377 TAD (232 /PUT ^Z IN BUFFER 363 012402 4776 JMS PUTO 364 012403 1375 TAD (-577 /V3D 365 012404 3271 DCA KNT /SEND 577 NULLS TO OUTPUT BUFFER 366 012405 4776 JMS PUTO /THIS GUARANTEES TO PURGE IT 367 012406 2271 ISZ KNT 368 012407 5205 JMP .-2 369 012410 1774 TAD I (7600 370 012411 4773 JMS I (200 371 012412 0004 4 /CLOSE 372 012413 7601 L7601, 7601 /POINTER TO OUTPUT FILE NAME 373 012414 0000 OUTLEN, 0 /LENGTH OF OUTPUT FILE 374 012415 7402 HLT /SYSTEM ERROR, CANNOT OCCUR 375 012416 5600 JMP I CLOSEO 376 012417 0000 OPENO, 0 377 012420 4772 JMS OINIT 378 012421 3214 DCA OUTLEN 379 012422 1371 TAD (3401 380 012423 3237 DCA OENTRY 381 012424 1774 TAD I (7600 382 012425 7650 SNA CLA 383 012426 5272 JMP DEFALT 384 012427 1774 TAD I (7600 385 012430 4770 JMS GETDCW 386 012431 7004 RAL 387 012432 7710 SPA CLA 388 012433 5767 JMP NOWR /READ ONLY 389 012434 1774 TAD I (7600 390 012435 4773 JMS I (200 391 012436 0001 1 /FETCH DEVICE HANDLER (POSSIBLY 2-PAGE) 392 012437 3401 OENTRY, 3401 /INTO PAGE 3400 393 012440 7402 HLT /SYSTEM ERROR CANNOT OCCUR 394 012441 1213 O2, TAD L7601 395 012442 3257 DCA SBLKO 396 012443 1613 TAD I L7601 397 012444 7450 SNA 398 012445 1366 TAD (2205 /RE 399 012446 3613 DCA I L7601 /DEFAULT OUTPUT NAME IS RE 400 012447 3260 DCA OLEN 401 012450 1765 TAD I (7604 402 012451 7450 SNA 403 012452 1364 TAD (1423 /LS 404 012453 3765 DCA I (7604 / .LS IS DEFAULT OUTPUT EXTENSION 405 012454 1774 TAD I (7600 406 012455 4773 JMS I (200 407 012456 0003 3 /ENTER OUTPUT FILE 408 012457 7601 SBLKO, 7601 /POINTS TO OUTPUT FILE NAME 409 012460 0000 OLEN, 0 /COMPLEMENT OF ACTUAL OUTPUT FILE LENGTH 410 012461 5763 JMP DEVFUL /OUTPUT DEVICE FULL 411 012462 1257 TAD SBLKO 412 012463 3762 DCA OBLOCK 413 012464 1260 TAD OLEN 414 012465 7440 SZA 415 012466 1361 TAD (-1 416 012467 3260 DCA OLEN 417 012470 5617 JMP I OPENO 418 419 012471 0000 KNT, 0 420 012472 1360 DEFALT, TAD (3100 /SET TTY: AS DEFAULT OUTPUT DEVICE 421 012473 3301 DCA DVN 422 012474 1371 TAD (3401 423 012475 3302 DCA OENT 424 012476 4773 JMS I (200 425 012477 0001 1 /FETCH HANDLER BY NAME 426 012500 2424 2424 /TT 427 012501 3100 DVN, 3100 /DEVICE TTY: 428 012502 3401 OENT, 3401 /INTO 3400 429 012503 5757 JMP NOTTY /NO TTY: ON SYS: 430 012504 1302 TAD OENT 431 012505 3237 DCA OENTRY 432 012506 1301 TAD DVN 433 012507 3774 DCA I (7600 434 012510 5241 JMP O2 435 436 012511 4756 OUTERR, JMS TPRINT 437 012512 7717 TEXT /?OUTPUT ERROR/ 012513 2524 012514 2025 012515 2440 012516 0522 012517 2217 012520 2200 438 012521 4755 JMS CRLF 439 012522 5754 JMP FINIS 440 012523 0000 TRY09, 0 441 012524 1353 TAD (60 442 012525 7041 CIA 443 012526 1752 TAD NAM 444 012527 3021 DCA DIG 445 012530 1021 TAD DIG 446 012531 7100 CLL 447 012532 1351 TAD (-10 /TRY DIGITS 0-7 448 012533 7630 SZL CLA 449 012534 5723 JMP I TRY09 450 012535 1021 TAD DIG 451 012536 1353 TAD (60 452 012537 1034 TAD RT 453 012540 3034 DCA RT 454 012541 5750 JMP GOTIT 455 456 012542 0000 PUTSP, 0 457 012543 1347 TAD (40 458 012544 4776 JMS PUTO 459 012545 5742 JMP I PUTSP 460 012547 0040 PAGE 012550 4502 012551 7770 012552 3035 012553 0060 012554 2102 012555 2344 012556 2234 012557 3232 012560 3100 012561 7777 012562 2656 012563 3200 012564 1423 012565 7604 012566 2205 012567 3213 012570 2107 012571 3401 012572 3246 012573 0200 012574 7600 012575 7201 012576 2600 012577 0232 461 012600 0000 PUTO, 0 462 012601 0377 AND (377 463 012602 6201 CDF 0 464 012603 5604 JMP I PUTJMP 465 012604 2605 PUTJMP, X1 466 012605 3664 X1, DCA I PUTPT1 467 012606 1376 TAD (X2 468 012607 3204 DCA PUTJMP 469 012610 6211 PUTLV, CDF 10 470 012611 5600 JMP I PUTO /RETURN 471 472 012612 3665 X2, DCA I PUTPT2 473 012613 1375 TAD (X3 474 012614 3204 DCA PUTJMP 475 012615 5210 JMP PUTLV 476 477 012616 3317 X3, DCA TMP 478 012617 1317 TAD TMP 479 012620 7106 CLL RTL 480 012621 7006 RTL 481 012622 0374 AND (7400 482 012623 1664 TAD I PUTPT1 483 012624 3664 DCA I PUTPT1 484 012625 1317 TAD TMP 485 012626 7112 CLL RTR 486 012627 7012 RTR 487 012630 7010 RAR 488 012631 0374 AND (7400 489 012632 1665 TAD I PUTPT2 490 012633 3665 DCA I PUTPT2 491 012634 2264 ISZ PUTPT1 492 012635 2264 ISZ PUTPT1 493 012636 2265 ISZ PUTPT2 494 012637 2265 ISZ PUTPT2 495 012640 1373 TAD (X1 496 012641 3204 DCA PUTJMP 497 012642 2266 ISZ PUTKNT 498 012643 5210 JMP PUTLV 499 012644 6211 CDF 10 /BUFFER FILLED 500 012645 2772 ISZ OLEN 501 012646 7410 SKP 502 012647 5771 JMP DEVFUL /CAN'T WRITE ANYMORE 503 012650 6202 CIF 0 504 012651 1770 TAD OENTRY 505 012652 3341 DCA OENTR /GET ON SAME PAGE 506 012653 4741 JMS I OENTR 507 012654 4200 4200 /WRITE 1 BLOCK 508 012655 2400 2400 /FIELD 0, LOC 2400 509 012656 0000 OBLOCK, 0 /OUTPUT BLOCK # 510 012657 5767 JMP OUTERR 511 012660 2766 ISZ OUTLEN 512 012661 2256 ISZ OBLOCK /POINT TO NEXT BLOCK 513 012662 4765 JMS OINIT 514 012663 5600 JMP I PUTO /RETURN 515 012664 0000 PUTPT1, 0 516 012665 0000 PUTPT2, 0 517 012666 0000 PUTKNT, 0 518 519 012667 7001 ZLQP, IAC /23 520 012670 7001 PLAT4, IAC /22 521 012671 7001 PLAT3, IAC /21 522 012672 7001 PLAT2, IAC /20 523 012673 7001 PLAT1, IAC /17 524 012674 7001 ZXTRA, IAC /16 525 012675 7001 ZKL8E, IAC /15 526 012676 7001 ZRK8E, IAC /14 527 012677 7001 ZRK8, IAC /13 528 012700 7001 ZASR, IAC /12 529 012701 7001 ZTA8, IAC /11 530 012702 7001 ZTD8, IAC /10 531 012703 7001 ZL645, IAC /7 532 012704 7001 ZLPSV, IAC /6 533 012705 7001 ZLV8E, IAC /5 534 012706 7001 Z026, IAC /4 535 012707 7001 Z029, IAC /3 536 012710 7001 ZLSPT, IAC /2 537 012711 7001 ZPT8E, IAC /1 538 012712 7104 NOKIND, CLL RAL 539 /PRINTS NAME FROM TABLE, ENTER WITH ENTRY # IN AC 540 012713 1364 PRNAM, TAD (TABASE 541 012714 4763 JMS PUTNAM 542 012715 4762 JMS UNIT 543 012716 5761 JMP KINDRET 544 TMP, 545 012717 0000 GETD77, 0 546 012720 1360 TAD (7707 547 012721 3757 DCA MASK 548 012722 1356 TAD (-6704 /V3C 549 012723 4755 JMS SRCH 550 012724 7012 RTR 551 012725 7010 RAR 552 012726 0354 AND (7 553 012727 5717 JMP I GETD77 554 555 012730 1430 QTTY, TAD I PDHIT 556 012731 7700 SMA CLA /1 OR 2 PAGE? 557 012732 5300 JMP ZASR /1 PAGE 558 012733 5275 JMP ZKL8E /2 PAGE 559 560 012734 1430 QRK8E, TAD I PDHIT 561 012735 0354 AND (7 562 012736 7110 CLL RAR 563 012737 3006 DCA UN 564 012740 5276 JMP ZRK8E 565 566 OENTR, 567 012741 0000 TSTUN, 0 568 012742 1430 TAD I PDHIT 569 012743 0354 AND (7 570 012744 3006 DCA UN 571 012745 5741 JMP I TSTUN 572 573 574 012746 4341 QRK8, JMS TSTUN 575 012747 5277 JMP ZRK8 576 012754 0007 PAGE 012755 4013 012756 1074 012757 4101 012760 7707 012761 4012 012762 4725 012763 3745 012764 4513 012765 3246 012766 2414 012767 2511 012770 2437 012771 3200 012772 2460 012773 2605 012774 7400 012775 2616 012776 2612 012777 0377 577 013000 0000 NAME, 0 578 013001 3235 DCA NAM 579 013002 1020 TAD FAST 580 013003 7640 SZA CLA 581 013004 5213 JMP TRY1 582 013005 7240 STA 583 013006 1023 TAD DEVNUM 584 013007 7650 SNA CLA 585 013010 5213 JMP TRY1 586 013011 1377 TAD (", 587 013012 4776 JMS PUTO 588 013013 1375 TRY1, TAD (LIST1 589 013014 3236 DCA NM1 590 013015 1636 LP1, TAD I NM1 591 013016 7450 SNA 592 013017 5237 JMP TRY2 593 013020 3033 DCA LFT 594 013021 2236 ISZ NM1 /TRY A-B 595 013022 1374 TAD (-2 /CHANGE TO -4 TO TRY A-D 596 013023 3026 DCA TEMP 597 013024 3034 DCA RT 598 013025 1034 LP1X, TAD RT 599 013026 1373 TAD (100 600 013027 3034 DCA RT 601 013030 4772 JMS COMB 602 013031 4771 JMS TRY09 603 013032 2026 ISZ TEMP 604 013033 5225 JMP LP1X 605 013034 5215 JMP LP1 606 607 013035 0000 NAM, 0 /SPECIFIED NAME 608 013036 0000 NM1, 0 609 610 013037 1370 TRY2, TAD (LIST2 611 013040 3236 DCA NM1 612 013041 1636 LP2, TAD I NM1 613 013042 7450 SNA 614 013043 5263 JMP TRY3 615 013044 3033 DCA LFT 616 013045 2236 ISZ NM1 617 013046 1636 TAD I NM1 618 013047 2236 ISZ NM1 619 013050 3034 DCA RT 620 013051 4772 JMS COMB 621 013052 3026 DCA TEMP 622 013053 1026 TAD TEMP 623 013054 7041 CIA 624 013055 1235 TAD NAM 625 013056 7650 SNA CLA 626 013057 5767 JMP GOTIT 627 013060 1026 TAD TEMP 628 013061 4771 JMS TRY09 629 013062 5241 JMP LP2 630 /TRY0 SHOULD BE SPECIAL CASE TESTS 631 632 013063 1235 TRY3, TAD NAM 633 013064 4766 JMS RTR6 634 013065 0365 AND (37 635 013066 7450 SNA 636 013067 5322 JMP TRY4 637 013070 4303 JMS SETIFA 638 013071 7110 CLL RAR 639 013072 4766 JMS RTR6 640 013073 3033 DCA LFT 641 013074 1235 TAD NAM 642 013075 0364 AND (77 643 013076 4303 JMS SETIFA 644 013077 1033 TAD LFT 645 013100 3033 DCA LFT 646 013101 3034 DCA RT 647 013102 5767 JMP GOTIT 648 649 013103 0000 SETIFA, 0 650 013104 7450 SNA 651 013105 5703 JMP I SETIFA 652 013106 1363 TAD (-33 653 013107 7510 SPA 654 013110 5317 JMP LETR 655 013111 1362 TAD (33-60 656 013112 7100 CLL 657 013113 1361 TAD (-12 658 013114 7430 SZL 659 013115 5321 JMP NODI 660 013116 1365 TAD (12+60-33 661 013117 1360 LETR, TAD (33 662 013120 5703 JMP I SETIFA 663 013121 7200 NODI, CLA 664 013122 1235 TRY4, TAD NAM 665 013123 4757 JMS NNAME 666 013124 5600 NAMLV, JMP I NAME 667 013125 0000 CMFLG, 0 668 669 /COMB, 0 670 / TAD RT 671 / SZA CLA 672 / STA 673 / DCA CMFLG 674 / TAD LFT 675 / TAD RT 676 / ISZ CMFLG 677 / JMP I COMB 678 / CLL RAL 679 / STL RAR 680 / JMP I COMB /TURN ON BIT 0 OF 1 WORD NAME 681 682 013126 0424 LIST1, TEXT /DTMTLTTDCSRKRFRX/ 013127 1524 013130 1424 013131 2404 013132 0323 013133 2213 013134 2206 013135 2230 013136 0000 683 / ZBLOCK 1 /PATCH SPACE 684 685 013137 0000 PRDASH, 0 686 013140 4756 JMS PRINT 687 013141 5555 TEXT /------/ 013142 5555 013143 5555 013144 0000 688 013145 4755 JMS CRLF 689 013146 4755 JMS CRLF 690 013147 5737 JMP I PRDASH 691 013150 0000 RTL6, 0 692 013151 7006 RTL 693 013152 7006 RTL 694 013153 7006 RTL 695 013154 5750 JMP I RTL6 696 013155 2344 PAGE 013156 2200 013157 5274 013160 0033 013161 7766 013162 7753 013163 7745 013164 0077 013165 0037 013166 2215 013167 4502 013170 4435 013171 2523 013172 3756 013173 0100 013174 7776 013175 3126 013176 2600 013177 0254 697 013200 4777 DEVFUL, JMS TPRINT 698 013201 7717 TEXT /?OUTPUT DEV FULL/ 013202 2524 013203 2025 013204 2440 013205 0405 013206 2640 013207 0625 013210 1414 013211 0000 699 013212 5776 JMP FINIS 700 701 013213 4777 NOWR, JMS TPRINT 702 013214 7717 TEXT /?OUTPUT DEV IS READ-ONLY/ 013215 2524 013216 2025 013217 2440 013220 0405 013221 2640 013222 1123 013223 4022 013224 0501 013225 0455 013226 1716 013227 1431 013230 0000 703 013231 5776 JMP FINIS 704 013232 4777 NOTTY, JMS TPRINT 705 013233 7724 TEXT /?TTY DOES NOT EXIST/ 013234 2431 013235 4004 013236 1705 013237 2340 013240 1617 013241 2440 013242 0530 013243 1123 013244 2400 706 013245 5776 JMP FINIS 707 013246 0000 OINIT, 0 708 013247 1375 TAD (-200 709 013250 3774 DCA PUTKNT 710 013251 1373 TAD (2400 711 013252 3772 DCA PUTPT1 712 013253 1371 TAD (2401 713 013254 3770 DCA PUTPT2 714 013255 1367 TAD (X1 715 013256 3766 DCA PUTJMP 716 013257 5646 JMP I OINIT 717 013260 0000 READI, 0 718 013261 1660 TAD I READI 719 013262 3274 DCA ARG1 720 013263 2260 ISZ READI 721 013264 1660 TAD I READI 722 013265 3275 DCA ARG2 723 013266 2260 ISZ READI 724 013267 1660 TAD I READI 725 013270 3276 DCA ARG3 726 013271 2260 ISZ READI 727 013272 6202 CIF 0 728 013273 4720 JMS I IENTRY 729 013274 0000 ARG1, 0 730 013275 0000 ARG2, 0 731 013276 0000 ARG3, 0 732 013277 5301 JMP INERR 733 013300 5660 JMP I READI /REURN 734 735 013301 4777 INERR, JMS TPRINT 736 013302 7711 TEXT /?INPUT ERROR/ 013303 1620 013304 2524 013305 4005 013306 2222 013307 1722 013310 0000 737 013311 5776 JMP FINIS 738 739 013312 0000 OPENI, 0 /FECTH INPUT HANDLER 740 013313 1365 TAD (3001 /INTO PAGES 3000, 3200 741 013314 3320 DCA IENTRY 742 013315 1035 TAD DVNO 743 013316 4764 JMS I (200 744 013317 0001 1 /FETCH HANDLER 745 013320 3001 IENTRY, 3001 746 013321 7402 HLT /SYSTEM ERROR, CAN'T OCCUR 747 013322 5712 JMP I OPENI 748 013323 0000 PRFREE, 0 749 013324 4763 JMS PRINT 750 013325 0622 TEXT /FREE DEVICE SLOTS: / 013326 0505 013327 4004 013330 0526 013331 1103 013332 0540 013333 2314 013334 1724 013335 2372 013336 4000 751 013337 1762 TAD FREEDV 752 013340 4761 JMS XPRINT 753 013341 4763 JMS PRINT 754 013342 5440 TEXT /, FREE BLOCK SLOTS: / 013343 4006 013344 2205 013345 0540 013346 0214 013347 1703 013350 1340 013351 2314 013352 1724 013353 2372 013354 4000 755 013355 1760 TAD SLKNT 756 013356 4761 JMS XPRINT 757 013357 5723 JMP I PRFREE 758 013360 5526 PAGE 013361 3532 013362 5030 013363 2200 013364 0200 013365 3001 013366 2604 013367 2605 013370 2665 013371 2401 013372 2664 013373 2400 013374 2666 013375 7600 013376 2102 013377 2234 759 013400 0000 DIRECT, 0 760 013401 1777 TAD SBLOCK 761 013402 7640 SZA CLA 762 013403 5600 JMP I DIRECT /NO DIRECTORY INFO FOR FILES 763 013404 4776 JMS READI 764 013405 1400 1400 /READ 6 BLOCKS 765 013406 4000 4000 /INTO 04000 766 013407 0001 1 /FROM BLOCK 1 767 013410 4775 JMS DVALID /CHECK IF VALID DIRECTORY 768 013411 1020 TAD FAST 769 013412 7650 SNA CLA 770 013413 5600 JMP I DIRECT /NO DIRECT IN FAST MODE 771 013414 4774 JMS CRLF 772 013415 3306 DCA USED 773 013416 3307 DCA UNUSED 774 013417 3310 DCA NFILES 775 013420 3311 DCA NMTS 776 013421 3312 DCA NSEGS 777 013422 7330 STL CLA RAR /4000 778 013423 3331 DIRLUP, DCA DIRPTR 779 013424 2312 ISZ NSEGS 780 013425 4323 JMS GETDIR 781 013426 3317 DCA NENTRY /- NO. OF ENTRIES IN SEGMENT 782 013427 4323 JMS GETDIR 783 013430 3320 DCA STBLK /STARTING BLOCK # OF FIRST FILE IN SEGMENT 784 013431 4323 JMS GETDIR 785 013432 3321 DCA LINK /LINK TO NEXT SEGMENT 786 013433 4323 JMS GETDIR 787 013434 7200 CLA /IGNORE FLAG WORD TO TENTATIVE FILE 788 013435 4323 JMS GETDIR 789 013436 3322 DCA AIW /# OF ADDITIONAL INFO WORDS 790 013437 1317 TAD NENTRY 791 013440 3305 DCA DKNT 792 013441 4323 SEGLUP, JMS GETDIR 793 013442 7650 SNA CLA 794 013443 5261 JMP EMPTY /AN EMPTY ENTRY 795 013444 1322 TAD AIW 796 013445 7041 CIA 797 013446 1373 TAD (3 798 013447 1331 TAD DIRPTR 799 013450 3331 DCA DIRPTR /POINT TO FILE LENGTH 800 013451 4323 JMS GETDIR /GET NEG OF NUMBER OF BLOCKS IN FILE 801 013452 7450 SNA 802 013453 5266 JMP NEXTF /A TENTATIVE FILE, IGNORE 803 013454 7041 CIA 804 013455 1306 TAD USED 805 013456 3306 DCA USED 806 013457 2310 ISZ NFILES 807 013460 5266 JMP NEXTF 808 013461 4323 EMPTY, JMS GETDIR 809 013462 7041 CIA 810 013463 1307 TAD UNUSED 811 013464 3307 DCA UNUSED 812 013465 2311 ISZ NMTS 813 013466 2305 NEXTF, ISZ DKNT /ANY MORE ENTRIES IN THIS SEGMENT? 814 013467 5241 JMP SEGLUP /YES 815 013470 1321 TAD LINK 816 013471 7650 SNA CLA 817 013472 5313 JMP GOTINFO 818 013473 1312 TAD NSEGS 819 013474 7040 CMA 820 013475 1321 TAD LINK /ASSUME LINKS ARE IN ORDER 821 013476 7640 SZA CLA 822 013477 5772 JMP BADDIR 823 013500 7240 STA /GO TO NEXT SEGMENT 824 013501 1331 TAD DIRPTR 825 013502 0371 AND (7400 826 013503 1370 TAD (400 827 013504 5223 JMP DIRLUP 828 013505 0000 DKNT, 0 829 013506 0000 USED, 0 /NO. OF BLOCKS USED 830 013507 0000 UNUSED, 0 /# OF UNUSED BLOCKS ON DEVICE 831 013510 0000 NFILES, 0 /# OF FILES 832 013511 0000 NMTS, 0 /# OF EMPTIES 833 013512 0000 NSEGS, 0 /# OF DIRECTORY SEGMENTS USED 834 013513 4767 GOTINFO,JMS PRINFO 835 013514 4774 LVDIR, JMS CRLF 836 013515 4774 JMS CRLF 837 013516 5600 JMP I DIRECT 838 839 013517 0000 NENTRY, 0 /- # OF ENTRIES IN SEGMENT 840 013520 0000 STBLK, 0 /STARTING BLOCK # OF FIRST FILE IN SEGMENT 841 013521 0000 LINK, 0 /LINK TO NEXT SEGMENT 842 013522 0000 AIW, 0 /# OF ADDITIOANAL INFORMATION WORDS 843 844 013523 0000 GETDIR, 0 845 013524 6201 CDF 0 846 013525 1731 TAD I DIRPTR 847 013526 6211 CDF 10 848 013527 2331 ISZ DIRPTR 849 013530 5723 JMP I GETDIR 850 851 013531 0000 DIRPTR, 0 852 013532 0000 XPRINT, 0 853 013533 7450 SNA 854 013534 5337 JMP NONEPR 855 013535 4766 JMS OPRINT 856 013536 5732 JMP I XPRINT 857 858 013537 4765 NONEPR, JMS PRINT 859 013540 1617 TEXT /NONE/ 013541 1605 013542 0000 860 013543 5732 JMP I XPRINT 861 862 013544 0000 SLOTAB, ZBLOCK 10 /KEEPS TRACK OF USED SLOTS 013545 0000 013546 0000 013547 0000 013550 0000 013551 0000 013552 0000 013553 0000 863 864 013554 0000 GETTYP, 0 865 013555 6201 CDF 0 866 013556 1432 TAD I PTYP 867 013557 6211 CDF 10 868 013560 5754 JMP I GETTYP 869 870 QTC08, 871 013561 4764 QLINC, JMS TSTUN 872 013562 5763 JMP NOKIND 873 013563 2712 PAGE 013564 2741 013565 2200 013566 4247 013567 3600 013570 0400 013571 7400 013572 4713 013573 0003 013574 2344 013575 4660 013576 3260 013577 2143 874 013600 0000 PRINFO, 0 875 013601 1022 TAD EXTEN 876 013602 7650 SNA CLA 877 013603 5253 JMP NOFLS /JUST # OF FREE BLOCKS UNLESS /E 878 013604 1777 TAD NFILES 879 013605 7450 SNA 880 013606 5253 JMP NOFLS 881 013607 7120 STL 882 013610 4776 JMS DPRINT 883 013611 4775 JMS PRINT 884 013612 4006 TEXT / FILES IN / 013613 1114 013614 0523 013615 4011 013616 1640 013617 0000 885 013620 1774 TAD USED 886 013621 7120 STL 887 013622 4776 JMS DPRINT 888 013623 4775 JMS PRINT 889 013624 4002 TEXT / BLOCKS/ 013625 1417 013626 0313 013627 2300 890 013630 7240 STA 891 013631 1773 TAD NSEGS 892 013632 7650 SNA CLA 893 013633 5252 JMP ONESEG 894 013634 4775 JMS PRINT 895 013635 4025 TEXT / USING / 013636 2311 013637 1607 013640 4000 896 013641 1773 TAD NSEGS 897 013642 7120 STL 898 013643 4776 JMS DPRINT 899 013644 4775 JMS PRINT 900 013645 4023 TEXT / SEGMENTS/ 013646 0507 013647 1505 013650 1624 013651 2300 901 013652 4772 ONESEG, JMS CRLF 902 013653 1771 NOFLS, TAD UNUSED 903 013654 7120 STL 904 013655 4776 JMS DPRINT 905 013656 4775 JMS PRINT 906 013657 4006 TEXT / FREE BLOCKS/ 013660 2205 013661 0540 013662 0214 013663 1703 013664 1323 013665 0000 907 013666 1022 TAD EXTEN 908 013667 7650 SNA CLA 909 013670 5600 JMP I PRINFO 910 013671 1770 TAD NMTS 911 013672 7110 CLL RAR 912 013673 7650 SNA CLA 913 013674 5311 JMP MT1 914 013675 4775 JMS PRINT 915 013676 4050 TEXT / (/ 013677 0000 916 013700 1770 TAD NMTS 917 013701 7120 STL 918 013702 4776 JMS DPRINT 919 013703 4775 JMS PRINT 920 013704 4005 TEXT / EMPTIES)/ 013705 1520 013706 2411 013707 0523 013710 5100 921 013711 7201 MT1, CLA IAC 922 013712 1767 TAD AIW 923 013713 7640 SZA CLA 924 013714 4316 JMS PRAIW 925 013715 5600 JMP I PRINFO 926 927 013716 0000 PRAIW, 0 928 013717 4772 JMS CRLF 929 013720 1767 TAD AIW 930 013721 7041 CIA 931 013722 7120 STL 932 013723 4776 JMS DPRINT 933 013724 4775 JMS PRINT 934 013725 4005 TEXT / EXTRA INFO WDS/ 013726 3024 013727 2201 013730 4011 013731 1606 013732 1740 013733 2704 013734 2300 935 013735 5716 JMP I PRAIW 936 /HNDGET GETS VALUE IN HANDLER FROM REL LOC IN AC 937 938 013736 0000 HNDGET, 0 939 013737 1036 TAD BLOC 940 013740 3026 DCA TEMP 941 013741 6201 CDF 0 942 013742 1426 TAD I TEMP 943 013743 6211 CDF 10 944 013744 5736 JMP I HNDGET 945 946 013745 0000 PUTNAM, 0 947 013746 3355 DCA PUTNMT 948 013747 1755 TAD I PUTNMT 949 013750 4766 JMS PUTPAK 950 013751 2355 ISZ PUTNMT 951 013752 1755 TAD I PUTNMT 952 013753 4766 JMS PUTPAK 953 013754 5745 JMP I PUTNAM 954 013755 0000 PUTNMT, 0 955 /THIS PRINTS A 4 CHAR NAME, ARG IN AC. 956 957 013756 0000 COMB, 0 /TEMP 958 013757 1033 TAD LFT 959 013760 1034 TAD RT 960 013761 7500 SMA 961 013762 1365 TAD (4000 962 013763 5756 JMP I COMB 963 013765 4000 PAGE 013766 4276 013767 3522 013770 3511 013771 3507 013772 2344 013773 3512 013774 3506 013775 2200 013776 4200 013777 3510 964 014000 0000 KIND, 0 965 014001 4777 JMS PUTSP 966 014002 1036 TAD BLOC 967 014003 7650 SNA CLA 968 014004 5776 JMP NOKIND 969 014005 4775 JMS GETTYP 970 014006 7450 SNA 971 014007 5776 JMP NOKIND 972 014010 3026 DCA TEMP 973 014011 5426 JMP I TEMP /BRANCH TO APPROPRIATE SUBROUTINE 974 014012 5600 KINDRET,JMP I KIND 975 976 /KIND SUBROUTINES 977 /ENTER WITH BLOC POINTING TO HANDLER BLOCK IN CORE 978 979 /SRCH SEARCHES THE HANDLER FOR THE NEGATIVE 980 /OF THE NON-ZERO VALUE IN THE AC. 981 /MASKED BY MASK. 982 /IF FOUND, RETURN IS MADE WITH VALUE(WITHOUT MASK) IN AC 983 /IF NOT FOUND, AC IS 0 UPON RETURN 984 985 014013 0000 SRCH, 0 986 014014 3241 DCA LOOK4 987 014015 7240 STA 988 014016 1036 TAD BLOC 989 014017 3011 DCA XR1 990 014020 1374 TAD (-230 /V3C MUST SEARCH 2 PAGES; TROUBLE IF TA8E IS IN LAST SLOT 991 014021 3240 DCA SRCHCNT 992 014022 6201 SRCHLP, CDF 0 993 014023 1411 TAD I XR1 994 014024 6211 CDF 10 995 014025 3026 DCA TEMP 996 014026 1026 TAD TEMP 997 014027 0301 AND MASK 998 014030 1241 TAD LOOK4 999 014031 7650 SNA CLA 1000 014032 5236 JMP SRCHGOT 1001 014033 2240 ISZ SRCHCNT 1002 014034 5222 JMP SRCHLP 1003 014035 5613 JMP I SRCH 1004 1005 014036 1026 SRCHGOT,TAD TEMP 1006 014037 5613 JMP I SRCH 1007 1008 014040 7400 SRCHCNT,-400 1009 014041 0000 LOOK4, 0 1010 / **** NOTE: ALL HANDLERS SHOULD BE PADDED OUT TO FILL PAGE 1011 / WITH ZEROES 1012 /BUILD SHOULD WRITE ZEROES IN 2ND PAGE OF ONE PAGE HANDLER 1013 /SPECIAL PURPOSE ROUTINES 1014 1015 QPTP, 1016 014042 7240 QPTR, STA 1017 014043 3301 DCA MASK 1018 014044 1373 TAD (-6021 1019 014045 4213 JMS SRCH 1020 014046 7640 SZA CLA 1021 014047 5772 JMP ZPT8E 1022 014050 5771 JMP ZLSPT 1023 1024 /FOR TYPE PTR 1025 / IF HANDLER CONTAINS A 6021 IT IS A PT8E 1026 / OTHERWISE IT IS A LSPT 1027 1028 014051 1370 QCR8E, TAD (104 1029 014052 4767 JMS HNDGET 1030 014053 1366 TAD (-3203 1031 014054 7450 SNA 1032 014055 5765 JMP Z029 1033 014056 1364 TAD (3203-7735 1034 014057 7650 SNA CLA 1035 014060 5763 JMP Z026 1036 014061 5776 JMP NOKIND 1037 1038 /FOR TYPE CR8E 1039 / IF REL LOC 104 IS A 3203 IT IN 029 KIND 1040 / IF REL LOC 104 IS A 7735 IT IS AN 026 KIND 1041 / OTHERWISE IT IS AN UNKNOWN KIND 1042 1043 014062 7240 QLPTR, STA 1044 014063 3301 DCA MASK 1045 014064 1362 TAD (-6652 /SEARCH FOR A 6652 1046 014065 4213 JMS SRCH 1047 014066 7640 SZA CLA 1048 014067 5761 JMP ZL645 /FOUND IT 1049 014070 7201 CLA IAC /LOOK AT REL LOC 1 1050 014071 4767 JMS HNDGET 1051 014072 1360 TAD (-4 1052 014073 7450 SNA 1053 014074 5757 JMP ZLV8E 1054 014075 1356 TAD (4-14 1055 014076 7650 SNA CLA 1056 014077 5755 JMP ZLPSV 1057 014100 5776 JMP NOKIND 1058 1059 /IF HANDLER CONTAINS A 6652 IT'S AN L645 1060 /OTHERWISE, DEPENDS ON REL LOC 1 1061 / IF REL LOC 1 IS A 14, IT'S A LPSV 1062 / IF REL LOC 1 IS A 4, IT'S A LV8E 1063 / OTHERWISE IT'S UNKNOWN (POSSIBLY OLD LP08 OR LS8E KIND) 1064 1065 014101 0000 MASK, 0 1066 014102 4754 QTD8E, JMS GETD77 1067 014103 7041 CIA 1068 014104 1353 TAD (10 1069 014105 3026 DCA TEMP 1070 014106 1752 TAD KTD8+1 1071 014107 0351 AND (7700 1072 014110 1026 TAD TEMP 1073 014111 3752 DCA KTD8+1 1074 014112 1430 TAD I PDHIT 1075 014113 7012 RTR 1076 014114 7010 RAR 1077 014115 7240 STA 1078 014116 1026 TAD TEMP 1079 014117 7024 CML RAL /TIMES 2 + LINK 1080 014120 3006 DCA UN 1081 014121 5750 JMP ZTD8 1082 1083 /FIGURE OUT KIND OF TD8E BY DEVICE CODE FOUND IN 67N1 INSTRUCTION 1084 / N TYPE 1085 / 7 TD8A 1086 / 6 TD8B 1087 /.. 1088 / 1 TD8G 1089 / 0 TD8H 1090 1091 014122 4754 QTA8E, JMS GETD77 1092 014123 7001 IAC 1093 014124 3026 DCA TEMP 1094 014125 1747 TAD KTA8+1 1095 014126 0351 AND (7700 1096 014127 1026 TAD TEMP 1097 014130 3747 DCA KTA8+1 1098 014131 7240 STA 1099 014132 1430 TAD I PDHIT 1100 014133 0346 AND (177 1101 014134 7650 SNA CLA 1102 014135 7201 CLA IAC 1103 014136 3006 DCA UN 1104 014137 7240 STA 1105 014140 1026 TAD TEMP 1106 014141 7104 CLL RAL 1107 014142 1006 TAD UN 1108 014143 3006 DCA UN 1109 014144 5745 JMP ZTA8 1110 /FIGURE OUT KIND OF TA8E BY DEVICE CODE FOUND IN 67N1 INSTRUCTION 1111 1112 / N KIND 1113 / 0 TA8A 1114 / 1 TA8B 1115 /... 1116 / 6 TA8G 1117 / 7 TA8H 1118 014145 2701 PAGE 014146 0177 014147 4536 014150 2702 014151 7700 014152 4534 014153 0010 014154 2717 014155 2704 014156 7770 014157 2705 014160 7774 014161 2703 014162 1126 014163 2706 014164 3246 014165 2707 014166 4575 014167 3736 014170 0104 014171 2710 014172 2711 014173 1757 014174 7550 014175 3554 014176 2712 014177 2542 1119 /DECIMAL PRINT 1120 /LINK OFF MEANS PRINT LEADING SPACES 1121 /LINK ON MEANS DON'T PRINT LEADING SPACES OR ZEROS 1122 1123 014200 0000 DPRINT, 0 1124 014201 3275 DCA DTM 1125 014202 7010 RAR 1126 014203 3317 DCA LNK 1127 014204 3246 DCA ZFLG 1128 014205 1377 TAD (DLST 1129 014206 3245 DCA PLST 1130 014207 3244 DPL2, DCA DYG 1131 014210 1645 DPLUP, TAD I PLST 1132 014211 7450 SNA 1133 014212 5600 JMP I DPRINT 1134 014213 7100 CLL 1135 014214 1275 TAD DTM 1136 014215 7420 SNL 1137 014216 5222 JMP NEGG 1138 014217 2244 ISZ DYG 1139 014220 3275 DCA DTM 1140 014221 5210 JMP DPLUP 1141 1142 014222 7200 NEGG, CLA 1143 014223 1244 TAD DYG 1144 014224 1246 TAD ZFLG 1145 014225 7450 SNA 1146 014226 5235 JMP PRBLNK 1147 014227 1376 TAD (60 1148 014230 4775 JMS PUTO 1149 014231 7330 STL CLA RAR /4000 1150 014232 3246 DCA ZFLG 1151 014233 2245 ISZZ, ISZ PLST 1152 014234 5207 JMP DPL2 1153 1154 014235 1317 PRBLNK, TAD LNK 1155 014236 7104 CLL RAL 1156 014237 1315 TAD L40 1157 014240 7420 SNL 1158 014241 4775 JMS PUTO 1159 014242 7200 CLA 1160 014243 5233 JMP ISZZ 1161 014244 0000 DYG, 0 1162 014245 0000 PLST, 0 1163 014246 0000 ZFLG, 0 /4000 MEANS PASSED LEADING ZEROES 1164 /PRINTS A 2-DIGIT OCTAL NUMBER WITH LEADING 0'S 1165 1166 014247 0000 OPRINT, 0 1167 014250 3343 DCA OTEM 1168 014251 1343 TAD OTEM 1169 014252 7012 RTR 1170 014253 7010 RAR 1171 014254 4260 JMS OPRI 1172 014255 1343 TAD OTEM 1173 014256 4260 JMS OPRI 1174 014257 5647 JMP I OPRINT 1175 1176 014260 0000 OPRI, 0 1177 014261 0374 AND (7 1178 014262 1373 TAD (260 1179 014263 4775 JMS PUTO 1180 014264 5660 JMP I OPRI 1181 1182 014265 0000 PRINT4, 0 1183 014266 3275 DCA DTM 1184 014267 1275 TAD DTM 1185 014270 4772 JMS RTR6 1186 014271 4247 JMS OPRINT 1187 014272 1275 TAD DTM 1188 014273 4247 JMS OPRINT 1189 014274 5665 JMP I PRINT4 1190 1191 014275 0000 DTM, 0 1192 1193 014276 0000 PUTPAK, 0 1194 014277 3275 DCA DTM 1195 014300 1275 TAD DTM 1196 014301 4772 JMS RTR6 1197 014302 4771 JMS PR 1198 014303 4310 JMS BLNKIT 1199 014304 1275 TAD DTM 1200 014305 4771 JMS PR 1201 014306 4310 JMS BLNKIT 1202 014307 5676 JMP I PUTPAK 1203 1204 014310 0000 BLNKIT, 0 1205 014311 1020 TAD FAST 1206 014312 7640 SZA CLA 1207 014313 1315 TAD L40 1208 014314 4771 JMS PR 1209 014315 0040 L40, 40 /CAN'T HURT TO CALL PR WITH A 0 1210 014316 5710 JMP I BLNKIT 1211 LNK, 1212 014317 0000 VERSN, 0 1213 014320 4770 JMS PUTSP 1214 014321 1036 TAD BLOC 1215 014322 7650 SNA CLA 1216 014323 5353 JMP SYSV /TEMP (ENTRY PT IS IN FIELD 1 7600 1217 014324 1430 TAD I PDHIT 1218 014325 0367 AND (177 1219 014326 1036 TAD BLOC 1220 014327 3275 GOVR, DCA DTM 1221 014330 4343 JMS GETV 1222 014331 7101 CLL IAC 1223 014332 1366 TAD (-34 1224 014333 7630 SZL CLA 1225 014334 5350 JMP NOOOP 1226 014335 4343 JMS GETV 1227 014336 7440 PUTVR, SZA 1228 014337 1315 TAD L40 1229 014340 1315 TAD L40 1230 014341 4775 JMS PUTO 1231 014342 5717 JMP I VERSN 1232 1233 OTEM, 1234 014343 0000 GETV, 0 1235 014344 6201 CDF 0 1236 014345 1675 TAD I DTM 1237 014346 6211 CDF 10 1238 014347 5743 JMP I GETV 1239 1240 014350 7240 NOOOP, STA 1241 014351 1275 TAD DTM /SCAN BACKWARDS FOR HANDLER VERSION # (LT 33) 1242 014352 5327 JMP GOVR 1243 1244 014353 1437 SYSV, TAD I PDHRT 1245 014354 0367 AND (177 1246 014355 1365 TAD (INPBL0+200 1247 014356 3275 DCA DTM 1248 014357 1675 TAD I DTM 1249 014360 7100 CLL 1250 014361 1366 TAD (-34 1251 014362 7620 SNL CLA 1252 014363 1675 TAD I DTM /PRINT BAD VERSION # AS SPACE 1253 014364 5336 JMP PUTVR 1254 014365 6000 PAGE 014366 7744 014367 0177 014370 2542 014371 2222 014372 2215 014373 0260 014374 0007 014375 2600 014376 0060 014377 2360 1255 014400 0000 MONVER, 0 1256 014401 1020 TAD FAST 1257 014402 7650 SNA CLA 1258 014403 5600 JMP I MONVER 1259 014404 1777 TAD I (1400 1260 014405 1376 TAD (-7607 1261 014406 7450 SNA 1262 014407 5232 JMP NOTV3 1263 014410 1375 TAD (7607+60 1264 014411 3231 DCA TEMPX 1265 014412 1774 TAD I (1400+31 1266 014413 3230 DCA TMPTWO 1267 014414 1373 OS8, TAD ("O 1268 014415 4772 JMS PUTO 1269 014416 4771 MONV2, JMS PRINT 1270 014417 2357 TEXT \S/8 V\ 014420 7040 014421 2600 1271 014422 1231 TAD TEMPX 1272 014423 4772 JMS PUTO 1273 014424 1230 TAD TMPTWO 1274 014425 4772 JMS PUTO 1275 014426 4770 JMS CRLF 1276 014427 5600 JMP I MONVER 1277 1278 014430 0000 TMPTWO, 0 1279 014431 0000 TEMPX, 0 1280 1281 014432 1367 NOTV3, TAD (40 1282 014433 3230 DCA TMPTWO 1283 /CHECK FOR PS/8 AND COS 1284 014434 5214 JMP OS8 1285 014435 1420 LIST2, DEVICE LPT 014436 2400 1286 014437 2424 DEVICE TTY 014440 3100 1287 014441 2024 DEVICE PTR 014442 2200 1288 014443 2024 DEVICE PTP 014444 2000 1289 014445 0304 DEVICE CDR 014446 2200 1290 014447 2331 DEVICE SYS 014450 2300 1291 014451 0423 DEVICE DSK 014452 1300 1292 014453 0304 DEVICE CDP 014454 2000 1293 / DEVICE DEV 1294 / DEVICE OUT 1295 / DEVICE INP 1296 014455 0201 DEVICE BAT 014456 2400 1297 014457 1625 DEVICE NULL /SHOULD BE IN NEXT TABLE 014460 1414 1298 014461 1423 DEVICE LST /V3C 014462 2400 1299 014463 0425 DEVICE DUMP 014464 1520 1300 014465 2314 DEVICE SLU 014466 2500 1301 014467 1421 DEVICE LQP 014470 2000 1302 014471 0000 ZBLOCK 10 /PATCH SPACE 014472 0000 014473 0000 014474 0000 014475 0000 014476 0000 014477 0000 014500 0000 1303 014501 0000 0 1304 1305 /LIST3, DEVICE NULL 1306 / DEVICE TEST 1307 / DEVICE LIST 1308 / DEVICE DUMP /V3C 1309 / ZBLOCK 2 /PATCH SPACE 1310 / 0 1311 1312 /INTERESTING NOTE: 'BAT', 'FOO2' AND 'RKC6' ALL HASH OUT TO 6601 1313 /** WANT TO CHANGE AIW PRINTER TO SAY 'NO' ADDITIONAL INFO WORDS 1314 /IF THERE ARE NONE. 1315 /DTN 1316 /DKN 1317 014502 1020 GOTIT, TAD FAST 1318 014503 7640 SZA CLA 1319 014504 4766 JMS PUTSP 1320 014505 1365 TAD (LFT 1321 014506 4764 JMS PUTNAM 1322 014507 1020 TAD FAST 1323 014510 7640 SZA CLA 1324 014511 4766 JMS PUTSP 1325 014512 5763 JMP NAMLV 1326 014513 4040 TABASE, 4040;4040 /0 014514 4040 1327 014515 2024 DEVICE PT8E /1 014516 7005 1328 014517 1323 DEVICE KS33 /2 014520 6363 1329 014521 6062 DEVICE 029 /3 014522 7100 1330 014523 6062 DEVICE 026 /4 014524 6600 1331 014525 1426 DEVICE LV8E /5 014526 7005 1332 014527 1420 DEVICE LPSV /6 014530 2326 1333 014531 1466 DEVICE L645 /7 014532 6465 1334 014533 2404 KTD8, DEVICE TD8 /10 014534 7000 1335 014535 2401 KTA8, DEVICE TA8 /11 014536 7000 1336 014537 0123 DEVICE AS33 /12 014540 6363 1337 014541 2213 DEVICE RK01 /13 014542 6061 1338 014543 2213 DEVICE RK05 /14 014544 6065 1339 014545 1314 DEVICE KL8E /15 014546 7005 1340 014547 3024 DEVICE XTRA /16 014550 2201 1341 014551 4075 TEXT / =1/ /17 014552 6100 1342 014553 4075 TEXT / =2/ /20 014554 6200 1343 014555 4075 TEXT / =3/ /21 014556 6300 1344 014557 4075 TEXT / =4/ /22 014560 6400 1345 014561 1421 DEVICE LQP /23 014562 2000 1346 014563 3124 PAGE 014564 3745 014565 0033 014566 2542 014567 0040 014570 2344 014571 2200 014572 2600 014573 0317 014574 1431 014575 7667 014576 0171 014577 1400 1347 /FORMAT OF SYSTEM HEAD FILE 1348 1349 /REL BLK CONTENTS ABS BLK ON DEV 1350 1351 /0 BOOTSTRAP & PAGE 0'S 0 1352 /1-4 KEYBOARD MONITOR 7-12 1353 /5-7 USR 13-15 1354 /10-17 DEVICE HANDLERS 16-25 1355 /20 ENTER 26 1356 /21-42 SCRATCH BLOCKS 27-50 1357 /43-45 COMMAND DECODER 51-53 1358 /46-47 SAVE,DATE 54-55 1359 /50 ERROR OVERLAY 56 1360 /51 CHAIN OVERLAY 57 1361 /52-55 ODT 60-63 1362 /56 RESERVED FOR EXPN 64 1363 /57 CCL SCRATCH 65 1364 /60 12K TD8E HANDLER 66 1365 /61 CCL OVERLAY 67 1366 /DIR DID NOT GET IN CORE ON /F? 1367 1368 014600 3777 DEV, DCA BLCK0 1369 014601 1376 TAD (66 1370 014602 3775 DCA BLCK66 1371 014603 1374 TAD (7 1372 014604 3773 DCA KBM 1373 014605 1372 TAD (13 1374 014606 3771 DCA USRBLK 1375 014607 6201 CDF 0 1376 014610 1770 TAD I (4001 /GET STARTING BLOCK # OF FILES 1377 014611 6211 CDF 10 1378 014612 1367 TAD (-7 1379 014613 7650 SNA CLA 1380 014614 5217 JMP NONSYS /FILES START AT BLOCK 7 OF DEVICE 1381 014615 1366 TAD (16 1382 /CHECK TO SEE THAT DEVICE HAS SYSTEM ON IT 1383 014616 5765 JMP RD 1384 1385 014617 4764 NONSYS, JMS PRINT 1386 014620 4516 TEXT /%NON SYSTEM DEVICE/ 014621 1716 014622 4023 014623 3123 014624 2405 014625 1540 014626 0405 014627 2611 014630 0305 014631 0000 1387 014632 5763 JMP NEXT 1388 1389 014633 4764 BADFIL, JMS PRINT 1390 014634 4516 TEXT /%NOT A SYSTEM HEAD/ 014635 1724 014636 4001 014637 4023 014640 3123 014641 2405 014642 1540 014643 1005 014644 0104 014645 0000 1391 014646 5763 JMP NEXT 1392 1393 014647 4764 BADMON, JMS PRINT 1394 014650 4502 TEXT /%BAD MONITOR/ 014651 0104 014652 4015 014653 1716 014654 1124 014655 1722 014656 0000 1395 014657 5763 JMP NEXT 1396 014660 0000 DVALID, 0 1397 014661 7330 STL CLA RAR /4000 1398 014662 3762 DCA DIRPTR 1399 014663 4761 JMS GETDIR 1400 014664 7100 CLL 1401 014665 1360 TAD (200 1402 014666 7620 SNL CLA 1403 014667 5313 JMP BADDIR 1404 014670 4761 JMS GETDIR 1405 014671 7450 SNA 1406 014672 5313 JMP BADDIR 1407 014673 1357 TAD (-400 /REMEMBER COS 1408 014674 7700 SMA CLA 1409 014675 5313 JMP BADDIR 1410 014676 4761 JMS GETDIR 1411 014677 7200 CLA /LINKS THOROUGHLY CHECKED ELSEWHERE 1412 014700 4761 JMS GETDIR 1413 014701 7450 SNA 1414 014702 5310 JMP OKDIR 1415 014703 1356 TAD (-1400 1416 014704 7100 CLL 1417 014705 1355 TAD (-1000 1418 014706 7630 SZL CLA 1419 014707 5313 JMP BADDIR 1420 014710 4761 OKDIR, JMS GETDIR 1421 014711 7750 SPA SNA CLA 1422 014712 5660 JMP I DVALID 1423 014713 4764 BADDIR, JMS PRINT 1424 014714 7702 TEXT \?BAD DIRECTORY\ 014715 0104 014716 4004 014717 1122 014720 0503 014721 2417 014722 2231 014723 0000 1425 014724 5754 JMP LVDIR 1426 014725 0000 UNIT, 0 1427 014726 4753 JMS PUTSP 1428 014727 1036 TAD BLOC 1429 014730 7650 SNA CLA 1430 014731 5340 JMP TSTSUN 1431 014732 1006 TAD UN 1432 014733 7510 SPA 1433 014734 1352 TAD (40+1-60 1434 014735 1351 ZOUN, TAD (60 1435 014736 4750 JMS PUTO 1436 014737 5725 JMP I UNIT 1437 1438 014740 1437 TSTSUN, TAD I PDHRT 1439 014741 1347 TAD (-7607 1440 014742 7640 SZA CLA 1441 014743 7201 CLA IAC /ASSUME CORESIDENT HANDLERS ARE UNIT 1 1442 014744 5335 JMP ZOUN /ELSE, NO UNIT 1443 014747 0171 PAGE 014750 2600 014751 0060 014752 7761 014753 2542 014754 3514 014755 7000 014756 6400 014757 7400 014760 0200 014761 3523 014762 3531 014763 2056 014764 2200 014765 5024 014766 0016 014767 7771 014770 4001 014771 5055 014772 0013 014773 5051 014774 0007 014775 5040 014776 0066 014777 5030 1444 015000 0000 HNDLRS, 0 1445 015001 1777 TAD SBLOCK 1446 015002 7450 SNA /IS IT A FILE? 1447 015003 5776 JMP DEV /NO 1448 015004 3230 DCA BLCK0 /YES 1449 015005 1230 TAD BLCK0 1450 015006 1375 TAD (60 1451 015007 3240 DCA BLCK66 1452 015010 1774 TAD FILEN 1453 015011 1373 TAD (-6340 1454 015012 7640 SZA CLA 1455 015013 5772 JMP BADFIL /FILE DOESN'T HAVE LENGTH 50 (DECIMAL) 1456 015014 1230 TAD BLCK0 1457 015015 7001 IAC 1458 015016 3251 DCA KBM 1459 015017 1230 TAD BLCK0 1460 015020 1371 TAD (5 1461 015021 3255 DCA USRBLK 1462 015022 1230 TAD BLCK0 1463 015023 1370 TAD (10 1464 015024 3261 RD, DCA HNDBLK 1465 015025 4767 JMS READI /READ IN BLOCK 0 1466 015026 0210 210 /2 PAGES 1467 015027 5600 INPBL0 1468 FREEDV, /# OF FREE DEVICE NUMBERS 1469 015030 0000 BLCK0, 0 1470 015031 1766 TAD I (INPBL0+212 /** DEPENDS ON TD8E HANDLER 1471 015032 1365 TAD (-3 1472 015033 7640 SZA CLA /IS IT 12K TD8E? 1473 015034 5241 JMP NOTD8E /NO 1474 015035 4767 JMS READI /YES 1475 015036 0110 110 /1 PAGE 1476 015037 5600 INPBL0 1477 015040 0066 BLCK66, 66 1478 015041 1764 NOTD8E, TAD I (INPBL0+200 1479 015042 1363 TAD (-4207 1480 015043 7640 SZA CLA 1481 015044 5762 JMP BADMON /BAD MONITOR ON DEVICE 1482 015045 3007 DCA 7 /DELETE CURRENT USR DIRECTORY SEGMENT 1483 /SINCE KBM READS OVER IT 1484 015046 4767 JMS READI /READ IN KEYBOARD MONITOR 1485 015047 0211 211 /ONLY FIRST 2 PAGES 1486 015050 1400 INPKBM 1487 015051 0007 KBM, 7 1488 015052 4767 JMS READI /READ IN USR 1489 015053 0611 611 /6 PAGES 1490 015054 6200 INPUSR 1491 015055 0013 USRBLK, 13 1492 015056 4767 JMS READI /READ IN ALL HANDLERS (EXCEPT 2ND PAGE OF LAST ONE) 1493 015057 1700 1700 /17 PAGES 1494 015060 4000 INPHND 1495 015061 0016 HNDBLK, 16 1496 015062 1361 TAD (-17 1497 015063 3024 DCA CNT 1498 015064 3230 DCA FREEDV 1499 015065 4760 JMS ZEROSL 1500 015066 3023 DCA DEVNUM 1501 015067 4757 JMS SETPTS 1502 015070 4756 JMS HEADING 1503 015071 2023 LOOP, ISZ DEVNUM /PT TO NEXT HANDLER 1504 015072 1425 TAD I PDNT /LOOK AT DEVICE NAME 1505 015073 7650 SNA CLA 1506 015074 5342 JMP NOXXT 1507 015075 1022 TAD EXTEN 1508 015076 7650 SNA CLA 1509 015077 5302 JMP NONUM 1510 015100 1023 TAD DEVNUM 1511 015101 4755 JMS OPRINT 1512 015102 1425 NONUM, TAD I PDNT 1513 015103 4754 JMS NAME /PRINT NAME 1514 015104 1020 TAD FAST 1515 015105 7650 SNA CLA 1516 015106 5331 JMP NEXXT 1517 015107 4753 JMS TIPE /PRINT TYPE 1518 015110 1022 TAD EXTEN 1519 015111 7650 SNA CLA 1520 015112 5323 JMP PUSER 1521 015113 4752 JMS MODE /PRINT MODE 1522 015114 4751 JMS SIZE /PRINT SIZE 1523 015115 4750 JMS BLOCK /PRINT BLOCK # OF LOC OF HANDLER 1524 015116 7240 STA 1525 015117 3006 DCA UN 1526 015120 4747 JMS KIND /PRINT KIND 1527 015121 4746 JMS VERSN /PRINT HANDLER VERSION # 1528 015122 4745 JMS ENTRY 1529 015123 1427 PUSER, TAD I PUDNT 1530 015124 7650 SNA CLA 1531 015125 5330 JMP EOL 1532 015126 1427 TAD I PUDNT 1533 015127 4754 JMS NAME /PRINT USER NAME 1534 015130 4744 EOL, JMS CRLF 1535 015131 2025 NEXXT, ISZ PDNT 1536 015132 2027 ISZ PUDNT 1537 015133 2030 ISZ PDHIT 1538 015134 2031 ISZ PDCWT 1539 015135 2037 ISZ PDHRT 1540 015136 2024 ISZ CNT 1541 015137 5271 JMP LOOP 1542 015140 4744 JMS CRLF 1543 015141 5600 JMP I HNDLRS 1544 1545 015142 2230 NOXXT, ISZ FREEDV 1546 015143 5331 JMP NEXXT 1547 015144 2344 PAGE 015145 5502 015146 4317 015147 4000 015150 5442 015151 5336 015152 5400 015153 5305 015154 3000 015155 4247 015156 5200 015157 5252 015160 5526 015161 7761 015162 4647 015163 3571 015164 6000 015165 7775 015166 6012 015167 3260 015170 0010 015171 0005 015172 4633 015173 1440 015174 2140 015175 0060 015176 4600 015177 2143 1548 015200 0000 HEADING,0 1549 015201 1020 TAD FAST 1550 015202 7650 SNA CLA 1551 015203 5600 JMP I HEADING 1552 015204 1022 TAD EXTEN 1553 015205 7650 SNA CLA 1554 015206 5237 JMP REGLR 1555 015207 4777 JMS PRINT 1556 015210 4340 TEXT /# NAME TYPE MODE SIZ BLK KIND U V ENT USER/ 015211 4016 015212 0115 015213 0540 015214 2431 015215 2005 015216 4015 015217 1704 015220 0540 015221 2311 015222 3240 015223 0214 015224 1340 015225 1311 015226 1604 015227 4025 015230 4026 015231 4005 015232 1624 015233 4025 015234 2305 015235 2200 1557 015236 5250 JMP HDLV 1558 015237 4777 REGLR, JMS PRINT 1559 015240 4016 TEXT / NAME TYPE USER/ 015241 0115 015242 0540 015243 2431 015244 2005 015245 4025 015246 2305 015247 2200 1560 015250 4776 HDLV, JMS CRLF 1561 015251 5600 JMP I HEADING 1562 015252 0000 SETPTS, 0 1563 015253 1775 TAD I (INPUSR+36 1564 015254 1374 TAD (INPUSR 1565 015255 3025 DCA PDNT 1566 015256 1773 TAD FLAG 1567 015257 7640 SZA CLA 1568 015260 1372 TAD (7741-141-INPBL0 1569 015261 1371 TAD (INPBL0+141 1570 015262 3027 DCA PUDNT 1571 /CHANGE FOR FLAG? 1572 015263 1770 TAD I (INPUSR+37 1573 015264 1374 TAD (INPUSR 1574 015265 3030 DCA PDHIT 1575 /FLAG? 1576 015266 1367 TAD (INPBL0+160 1577 015267 3031 DCA PDCWT 1578 015270 1366 TAD (INPBL0+47 1579 015271 3037 DCA PDHRT /DEVICE HANDLER RESIDENCY TABLE 1580 015272 5652 JMP I SETPTS 1581 015273 0000 CODE, 0 /DEVICE CODE 1582 1583 015274 0000 NNAME, 0 1584 015275 3305 DCA TIPE 1585 015276 1365 TAD ("( 1586 015277 4764 JMS PUTO 1587 015300 1305 TAD TIPE 1588 015301 4763 JMS PRINT4 1589 015302 1362 TAD (") 1590 015303 4764 JMS PUTO 1591 015304 5674 JMP I NNAME 1592 1593 015305 0000 TIPE, 0 1594 015306 1431 TAD I PDCWT 1595 015307 7012 RTR 1596 015310 7010 RAR 1597 015311 0361 AND (77 1598 015312 3273 DCA CODE 1599 015313 1273 TAD CODE 1600 015314 7106 CLL RTL 1601 015315 1372 TAD (TYPTBL 1602 015316 3032 DCA PTYP 1603 015317 4760 JMS GETTYP 1604 015320 2032 ISZ PTYP 1605 015321 7450 SNA 1606 015322 5330 JMP UNKN 1607 015323 4757 JMS PUTPAK 1608 015324 4760 JMS GETTYP 1609 015325 4757 JMS PUTPAK 1610 015326 2032 ISZ PTYP /POINT TO SIZE 1611 015327 5705 JMP I TIPE 1612 015330 4756 UNKN, JMS PUTSP 1613 015331 1273 TAD CODE 1614 015332 4755 JMS OPRINT 1615 015333 4756 JMS PUTSP 1616 015334 2032 ISZ PTYP 1617 015335 5705 JMP I TIPE 1618 015336 0000 SIZE, 0 1619 015337 4760 JMS GETTYP 1620 015340 7041 CIA 1621 015341 7100 CLL 1622 015342 4754 JMS DPRINT 1623 015343 4756 JMS PUTSP 1624 015344 2032 ISZ PTYP /POINT TO KIND SUBROUTINE 1625 015345 5736 JMP I SIZE 1626 1627 015346 1430 QLPTRX, TAD I PDHIT 1628 015347 7700 SMA CLA /1 OR 2 PAGE? 1629 015350 5753 JMP QLPTR /1 PG 1630 015351 5752 JMP ZLQP /2 PG 1631 015352 2667 PAGE 015353 4062 015354 4200 015355 4247 015356 2542 015357 4276 015360 3554 015361 0077 015362 0251 015363 4265 015364 2600 015365 0250 015366 5647 015367 5760 015370 6237 015371 5741 015372 2000 015373 2144 015374 6200 015375 6236 015376 2344 015377 2200 1632 015400 0000 MODE, 0 1633 015401 4777 JMS PUTSP 1634 015402 1376 TAD (-4 1635 015403 3241 DCA MKNT 1636 015404 1431 TAD I PDCWT 1637 015405 7006 RTL 1638 015406 7004 RAL 1639 015407 4226 JMS MSET 1640 015410 0322 "R 1641 015411 1431 TAD I PDCWT 1642 015412 7006 RTL 1643 015413 4226 JMS MSET 1644 015414 0327 "W 1645 015415 1431 TAD I PDCWT 1646 015416 7004 RAL 1647 015417 7020 CML 1648 015420 4226 JMS MSET 1649 015421 0306 "F 1650 015422 4777 JMS PUTSP 1651 015423 2241 ISZ MKNT 1652 015424 5221 JMP .-3 1653 015425 5600 JMP I MODE 1654 1655 015426 0000 MSET, 0 1656 015427 7200 CLA 1657 015430 1626 TAD I MSET 1658 015431 3302 DCA MCHAR 1659 015432 2226 ISZ MSET 1660 015433 7430 SZL 1661 015434 5626 JMP I MSET 1662 015435 2241 ISZ MKNT 1663 015436 1302 TAD MCHAR 1664 015437 4775 JMS PUTO 1665 015440 5626 JMP I MSET 1666 1667 015441 0000 MKNT, 0 1668 ET, 1669 015442 0000 BLOCK, 0 1670 015443 1430 TAD I PDHIT 1671 015444 4774 JMS RTL6 1672 015445 0373 AND (17 1673 015446 7450 SNA 1674 015447 5275 JMP SYS 1675 015450 3325 DCA SLTM 1676 015451 7240 STA 1677 015452 1325 TAD SLTM 1678 015453 7112 CLL RTR 1679 015454 7012 RTR 1680 015455 7010 RAR 1681 015456 1372 TAD (INPHND 1682 015457 3036 DCA BLOC 1683 015460 1325 TAD SLTM 1684 015461 1371 TAD (15 1685 015462 4770 JMS OPRINT 1686 015463 1430 TAD I PDHIT 1687 015464 7700 SMA CLA 1688 015465 1367 TAD (40-"+ 1689 015466 1366 TAD ("+ 1690 015467 4775 JMS PUTO /"+" MEANS 2 PAGE HANDLER 1691 015470 1325 TAD SLTM 1692 015471 1365 TAD (SLOTAB-1 1693 015472 3325 DCA SLTM 1694 015473 2725 ISZ I SLTM 1695 015474 5642 JMP I BLOCK 1696 015475 4764 SYS, JMS PRINT 1697 015476 2331 TEXT /SYS/ 015477 2300 1698 015500 3036 DCA BLOC /0 MEANS RESIDENT WITH SYS: 1699 015501 5642 JMP I BLOCK 1700 1701 MCHAR, 1702 015502 0000 ENTRY, 0 1703 015503 4777 JMS PUTSP 1704 015504 1036 TAD BLOC 1705 015505 7650 SNA CLA 1706 015506 5323 JMP SYSENT 1707 015507 1430 TAD I PDHIT 1708 015510 3242 EN2, DCA ET 1709 015511 1242 TAD ET 1710 015512 4763 JMS RTR6 1711 015513 0362 AND (1 1712 015514 7440 SZA 1713 015515 1361 TAD (20 1714 015516 1360 TAD (40 1715 015517 4775 JMS PUTO 1716 015520 1242 TAD ET 1717 015521 4770 JMS OPRINT 1718 015522 5702 JMP I ENTRY 1719 1720 015523 1437 SYSENT, TAD I PDHRT 1721 015524 5310 JMP EN2 1722 015525 0000 SLTM, 0 1723 1724 SLKNT, 1725 015526 0000 ZEROSL, 0 1726 015527 1357 TAD (-10 1727 015530 3325 DCA SLTM 1728 015531 1365 TAD (SLOTAB-1 1729 015532 3010 DCA X0 1730 015533 3410 DCA I X0 1731 015534 2325 ISZ SLTM 1732 015535 5333 JMP .-2 1733 015536 5726 JMP I ZEROSL 1734 1735 015537 0000 CNTSLT, 0 1736 015540 1357 TAD (-10 1737 015541 3325 DCA SLTM 1738 015542 3326 DCA SLKNT 1739 015543 1365 TAD (SLOTAB-1 1740 015544 3010 DCA X0 1741 015545 1410 CNSLP, TAD I X0 1742 015546 7650 SNA CLA 1743 015547 2326 ISZ SLKNT 1744 015550 2325 ISZ SLTM 1745 015551 5345 JMP CNSLP 1746 015552 4756 JMS PRFREE 1747 015553 4755 JMS CRLF 1748 015554 5737 JMP I CNTSLT 1749 015555 2344 PAGE 015556 3323 015557 7770 015560 0040 015561 0020 015562 0001 015563 2215 015564 2200 015565 3543 015566 0253 015567 7565 015570 4247 015571 0015 015572 4000 015573 0017 015574 3150 015575 2600 015576 7774 015577 2542 1750 FIELD 0 1751 1752 *2000 1753 1754 / DEVICE LENGTH TABLE 1755 1756 /FORMAT OF THIS TABLE: 1757 1758 /1,2 DEVICE GENERALIZED NAME (CORR TO TYPE) 1759 /3 NEG OF LENGTH 1760 /4 ADDRESS OF SUBR IN FIELD 1 FOR SPECIALIZATION 1761 1762 002000 2424 TYPTBL, DEVICE TTY ;0000;QTTY /0 002001 3100 002002 0000 002003 2730 1763 002004 2024 DEVICE PTR ;0000;QPTR /1 002005 2200 002006 0000 002007 4042 1764 002010 2024 DEVICE PTP ;0000;QPTP /2 002011 2000 002012 0000 002013 4042 1765 002014 0322 DEVICE CR8E;0000;QCR8E /3 002015 7005 002016 0000 002017 4051 1766 002020 1420 DEVICE LPTR;0000;QLPTRX /4 V3D 002021 2422 002022 0000 002023 5346 1767 002024 2213 DEVICE RK8 ;1520;QRK8 /5 002025 7000 002026 1520 002027 2746 1768 002030 2206 DEVICE RF08;6001;PLAT1 /6 V3C 002031 6070 002032 6001 002033 2673 1769 002034 2206 DEVICE RF08;4002;PLAT2 /7 002035 6070 002036 4002 002037 2672 1770 002040 2206 DEVICE RF08;2003;PLAT3 /10 002041 6070 002042 2003 002043 2671 1771 002044 2206 DEVICE RF08;0004;PLAT4 /11 RF'S NOW ONLY HAVE LOGICALLY 1777 BLOCKS 002045 6070 002046 0004 002047 2670 1772 002050 0406 DEVICE DF32;7601;PLAT1 /12 002051 6362 002052 7601 002053 2673 1773 002054 0406 DEVICE DF32;7402;PLAT2 /13 V3C 002055 6362 002056 7402 002057 2672 1774 002060 0406 DEVICE DF32;7203;PLAT3 /14 002061 6362 002062 7203 002063 2671 1775 002064 0406 DEVICE DF32;7004;PLAT4 /15 DF'S HAVE 177 BLOCKS 002065 6362 002066 7004 002067 2670 1776 002070 2403 DEVICE TC08;6437;QTC08 /16 002071 6070 002072 6437 002073 3561 1777 002074 1411 DEVICE LINC;6437;QLINC /17 002075 1603 002076 6437 002077 3561 1778 002100 2415 DEVICE TM8E;0000;0 /20 002101 7005 002102 0000 002103 0000 1779 002104 2404 DEVICE TD8E;6437;QTD8E /21 002105 7005 002106 6437 002107 4102 1780 002110 0201 DEVICE BAT ;0000;0 /22 002111 2400 002112 0000 002113 0000 1781 002114 2213 DEVICE RK8E;1520;QRK8E /23 002115 7005 002116 1520 002117 2734 1782 002120 1625 DEVICE NULL;0000;0 /24 002121 1414 002122 0000 002123 0000 1783 002124 2230 DEVICE RX8E;7022;0 /25 002125 7005 002126 7022 002127 0000 1784 002130 0000 ZBLOCK 4 /26 002131 0000 002132 0000 002133 0000 1785 002134 2401 DEVICE TA8E;0000;QTA8E /27 002135 7005 002136 0000 002137 4122 1786 002140 2622 DEVICE VR12;0000;0 /30 002141 6162 002142 0000 002143 0000 1787 002144 0000 ZBLOCK 4 /31 002145 0000 002146 0000 002147 0000 1788 002150 0000 ZBLOCK 4 /32 002151 0000 002152 0000 002153 0000 1789 002154 0000 ZBLOCK 4 /33 002155 0000 002156 0000 002157 0000 1790 002160 0000 ZBLOCK 4 /34 002161 0000 002162 0000 002163 0000 1791 002164 0000 ZBLOCK 4 /35 002165 0000 002166 0000 002167 0000 1792 002170 0425 DEVICE DUMP;0000;0 /36 002171 1520 002172 0000 002173 0000 1793 002174 0000 ZBLOCK 4 /37 002175 0000 002176 0000 002177 0000 1794 002200 0000 ZBLOCK TYPTBL+400-. 002201 0000 002202 0000 002203 0000 002204 0000 002205 0000 002206 0000 002207 0000 002210 0000 002211 0000 002212 0000 002213 0000 002214 0000 002215 0000 002216 0000 002217 0000 002220 0000 002221 0000 002222 0000 002223 0000 002224 0000 002225 0000 002226 0000 002227 0000 002230 0000 002231 0000 002232 0000 002233 0000 002234 0000 002235 0000 002236 0000 002237 0000 002240 0000 002241 0000 002242 0000 002243 0000 002244 0000 002245 0000 002246 0000 002247 0000 002250 0000 002251 0000 002252 0000 002253 0000 002254 0000 002255 0000 002256 0000 002257 0000 002260 0000 002261 0000 002262 0000 002263 0000 002264 0000 002265 0000 002266 0000 002267 0000 002270 0000 002271 0000 002272 0000 002273 0000 002274 0000 002275 0000 002276 0000 002277 0000 002300 0000 002301 0000 002302 0000 002303 0000 002304 0000 002305 0000 002306 0000 002307 0000 002310 0000 002311 0000 002312 0000 002313 0000 002314 0000 002315 0000 002316 0000 002317 0000 002320 0000 002321 0000 002322 0000 002323 0000 002324 0000 002325 0000 002326 0000 002327 0000 002330 0000 002331 0000 002332 0000 002333 0000 002334 0000 002335 0000 002336 0000 002337 0000 002340 0000 002341 0000 002342 0000 002343 0000 002344 0000 002345 0000 002346 0000 002347 0000 002350 0000 002351 0000 002352 0000 002353 0000 002354 0000 002355 0000 002356 0000 002357 0000 002360 0000 002361 0000 002362 0000 002363 0000 002364 0000 002365 0000 002366 0000 002367 0000 002370 0000 002371 0000 002372 0000 002373 0000 002374 0000 002375 0000 002376 0000 002377 0000 1795 PAGE 1796 FIELD 1 1797 *2000 1798 $ AIW 3522 ARG1 3274 ARG2 3275 ARG3 3276 BADDIR 4713 BADFIL 4633 BADMON 4647 BLCK0 5030 BLCK66 5040 BLNKIT 4310 BLOC 0036 BLOCK 5442 CD 2002 CLOSEO 2400 CMFLG 3125 unreferenced CNSLP 5545 CNT 0024 CNTSLT 5537 CODE 5273 COMB 3756 CRLF 2344 CTRLO 2276 CTROLO 2320 DCW 2141 DEFALT 2472 DEV 4600 DEVFUL 3200 DEVNUM 0023 DIG 0021 DIRECT 3400 DIRLUP 3423 DIRPTR 3531 DKNT 3505 DLST 2360 DPL2 4207 DPLUP 4210 DPRINT 4200 DTM 4275 DVALID 4660 DVN 2501 DVNO 0035 DYG 4244 EMPTY 3461 EN2 5510 ENTRY 5502 EOL 5130 ET 5442 EXTEN 0022 FAST 0020 FILEN 2140 FILENO 2142 FINI 2101 FINIS 2102 FLAG 2144 FREEDV 5030 GETD77 2717 GETDCW 2107 GETDIR 3523 GETTYP 3554 GETV 4343 GOTINF 3513 GOTIT 4502 GOVR 4327 HDLV 5250 HEADIN 5200 HNDBLK 5061 HNDGET 3736 HNDLRS 5000 IENTRY 3320 INERR 3301 INL2 2030 INLOOP 2024 INPBL0 5600 INPHND 4000 INPKBM 1400 INPTR 2137 INPUSR 6200 ISZZ 4233 KBM 5051 KIND 4000 KINDRE 4012 KNT 2471 KTA8 4535 KTD8 4533 L40 4315 L7601 2413 LETR 3117 LFT 0033 LINK 3521 LIST1 3126 LIST2 4435 LNK 4317 LOOK4 4041 LOOKC 2305 LOOP 5071 LP1 3015 LP1X 3025 LP2 3041 LVDIR 3514 MASK 4101 MCHAR 5502 MKNT 5441 MODE 5400 MONV2 4416 unreferenced MONVER 4400 MSET 5426 MT1 3711 NAM 3035 NAME 3000 NAMLV 3124 NEGG 4222 NENTRY 3517 NEXT 2056 NEXTF 3466 NEXXT 5131 NFILES 3510 NM1 3036 NMTS 3511 NNAME 5274 NOCD 2005 NODI 3121 NOFLS 3653 NOFLST 2061 NOKIND 2712 NONEPR 3537 NONSYS 4617 NONUM 5102 NOOOP 4350 NOTD8E 5041 NOTF 2130 NOTTY 3232 NOTV3 4432 NOWR 3213 NOXXT 5142 NSEGS 3512 O2 2441 OBLOCK 2656 OENT 2502 OENTR 2741 OENTRY 2437 OINIT 3246 OKDIR 4710 OLEN 2460 ONESEG 3652 OPENI 3312 OPENO 2417 OPRI 4260 OPRINT 4247 OS8 4414 OTEM 4343 OUTERR 2511 OUTLEN 2414 PDCWT 0031 PDHIT 0030 PDHRT 0037 PDNT 0025 PLAT1 2673 PLAT2 2672 PLAT3 2671 PLAT4 2670 PLST 4245 PR 2222 PRAIW 3716 PRBLNK 4235 PRDASH 3137 PRFREE 3323 PRINFO 3600 PRINT 2200 PRINT4 4265 PRNAM 2713 unreferenced PRT 2214 PTYP 0032 PUDNT 0027 PUSER 5123 PUTCR 2260 PUTJMP 2604 PUTKNT 2666 PUTLV 2610 PUTNAM 3745 PUTNMT 3755 PUTO 2600 PUTPAK 4276 PUTPT1 2664 PUTPT2 2665 PUTSP 2542 PUTVR 4336 QCR8E 4051 QLINC 3561 QLPTR 4062 QLPTRX 5346 QPTP 4042 QPTR 4042 QRK8 2746 QRK8E 2734 QTA8E 4122 QTC08 3561 QTD8E 4102 QTTY 2730 RD 5024 READI 3260 REGLR 5237 RESVER 0301 RT 0034 RTL6 3150 RTR6 2215 SBLKO 2457 SBLOCK 2143 SEGLUP 3441 SETIFA 3103 SETPTS 5252 SETSW 2117 SIZE 5336 SLKNT 5526 SLOTAB 3544 SLTM 5525 SPCASE 2145 SRCH 4013 SRCHCN 4040 SRCHGO 4036 SRCHLP 4022 START 2000 unreferenced STBLK 3520 SYS 5475 SYSENT 5523 SYSV 4353 TABASE 4513 TCRLF 2352 TEMP 0026 TEMPX 4431 TIPE 5305 TMP 2717 TMPTWO 4430 TPRINT 2234 TPUT 2247 TRY09 2523 TRY1 3013 TRY2 3037 TRY3 3063 TRY4 3122 TSTSUN 4740 TSTUN 2741 TTY212 2216 TYPE 2262 TYPE2 2277 TYPEV 2332 TYPTBL 2000 TYTEM 2275 UN 0006 UNIT 4725 UNKN 5330 UNUSED 3507 USED 3506 USRBLK 5055 VERSN 4317 X0 0010 X1 2605 X2 2612 X3 2616 XPRINT 3532 XR1 0011 Z026 2706 Z029 2707 ZASR 2700 ZEROSL 5526 ZFLG 4246 ZKL8E 2675 ZL645 2703 ZLPSV 2704 ZLQP 2667 ZLSPT 2710 ZLV8E 2705 ZOUN 4735 ZPT8E 2711 ZRK8 2677 ZRK8E 2676 ZTA8 2701 ZTD8 2702 ZXTRA 2674 unreferenced