1 /11 OS8 CAMP 2 3 / 4 /S.R. 5 / 6 / 7 /CASSETTE & MAGTAPE POSITIONER (CAMP) 8 / 9 / 10 / 11 / 12 / 13 / 14 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE VITHOUT NOTICE 15 /AND SHOULD NOT BE CONTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 16 /CORPORATION. DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY 17 /FOR ANY ERRORS THAT MAY APPEAR IN THIS DOCUMENT. 18 / 19 /THE SOFTWARE DESCRIBED IN THIS DOCUMENT IS FURNISHED TO THE PURCHASER 20 /UNDER A LICENSE FOR USE ON A SINGLE COMPUTER SYSTEM AND CAN BE COPIED 21 /(WITH INCLUSION OF DIGITAL'S COPYRIGHT NOTICE) ONLY FOR USE IN SUCH 22 /SYSTEM, EXCEPT AS MAY OTHERWISE BE PROVIDED IN WRITING BY DIGITAL. 23 / 24 /DIGITAL EQUIPMENT CORPORATION ASSUMES NO RESPONSIBILITY FOR THE USE 25 /OR RELIABILITY OF ITS SOFTWARE ON EQUIPMENT THAT IS NOT SUPPLIED BY 26 /DIGITAL. 27 / 28 / 29 / COPYRIGHT (C) 1973,1975,1977 BY DIGITAL EQUIPMENT CORPORATION. 30 / 31 / 32 / 33 / 34 35 / MUST SKIP LOCS 1000-1377 36 37 LINBUF=1000 38 39 XR1=11 40 XR2=12 41 XR3=13 42 43 *20 44 45 000020 0000 TEMP, 0 46 000021 0000 T, 0 47 000022 0000 T2, 0 48 000023 0000 LINPTR, 0 49 000024 0000 T3, 0 50 000025 0000 FLAG, 0 51 000026 0000 SPKNT, 0 52 000027 0000 DEVTYP, 0 /DEVICE TYPE (BITS 6-11) 53 000030 0000 ENTRY, 0 /HANDLER ENTRY POINT 54 000031 0000 NUM, 0 55 000032 0000 TYP, 0 /0 MEANS 'F', 1 MEANS 'R' 56 000033 0000 T4, 0 57 000034 0000 DEVNUM, 0 58 000035 0000 DCW, 0 /DEVICE CONTROL WORD 59 000036 0000 DCWPTR, 0 60 000037 0200 USR, 200 /POINTS TO USR ENTRY POINT 61 000040 0000 ESCBIT, 0 /1 MEANS USER TYPED ALTMODE 62 000041 0000 CNT, 0 63 000042 0000 CTOFLG, 0 /-1 MEANS SAW ^O 64 000043 0000 COUNT, 0 65 000044 0000 PTR, 0 66 000045 0000 DHIT, 0 /DEVICE HANDLER INFO TABLE - 1 67 000046 0000 DHI, 0 /DEVICE HANDLER INFO 68 000047 0000 DBLK, 0 /DEVICE HANDLER BLOCK 69 000050 0000 VNOPTR, 0 /PTS TO VERSION # IN HANDLER 70 000051 0000 VNO, 0 /CURRENT HANDLER VERSION NUMBER 71 000052 0000 SAVPTR, 0 72 000053 0000 NO, 0 /1 MEANS 'NO' 73 000054 0001 FLG, 1 /1 MEANS SAW NO DIGITS 74 000055 0000 P, 0 75 000056 0000 RR, 0 76 000057 0000 NUCODE, 0 77 78 / MAGTAPE SPECIAL CODES 79 80 REWKOD=1 81 SKFKOD=3 /SKIP FORWARD FILE 82 UNLKOD=4 83 EOFKOD=5 84 SKPKOD=2 /FORWARD RECORD 85 BAKKOD=SKPKOD+4000 86 BKFKOD=SKFKOD+4000 87 88 DTLA=6766 89 90 /0000-0777 /CAMP 91 /1000-1377 /OS/8 LINE BUFFER 92 /1400-1777 /PS/8 LINE BUFFER 93 /2000- /CAMP 94 /7000-7177 /I/O BUFFER 95 /7200-7577 /OS/8 HANDLER 96 /7600-7777 /OS/8 97 98 DLDC=6746 99 DLAG=6743 100 PAGE 101 *200 102 103 000200 7410 START, SKP 104 000201 5205 JMP CHN 105 000202 1377 TAD ("# 106 000203 4577 JMS I [TYPE 107 000204 4576 JMS I [READ /READ A LINE INTO OS/8 LINE BUFFER 108 000205 1175 CHN, TAD [LINBUF /CHAIN ENTRY ADDRESS 109 000206 3023 DCA LINPTR /INITIALIZE POINTER TO LINE BUFFER 110 000207 7240 STA 111 000210 4574 JMS I [SPACE /IGNORE LEADING SPACES 112 000211 4244 JMS GETTWO /GET TWO CHARS 113 000212 3020 DCA TEMP 114 000213 4573 JMS I [SCAN /SCAN PAST EXTRA LETTERS OR DIGITS 115 000214 1020 TAD TEMP 116 000215 4572 JMS I [BRANCH /GO TO APPROPRIATE ROUTINE 117 000216 5465 -2313;SKIP /SK 000217 2415 118 000220 7261 -0517;EOF /EO 000221 2400 119 000222 7577 -0201;BACK /BA 000223 2502 120 000224 5573 -2205;REWIND /RE 000225 2431 121 000226 5262 -2516;UNLOAD /UN 000227 2461 122 000230 5173 -2605;VERSION /VE 000231 0501 123 000232 6773 -1005;HELP /HE 000233 0600 124 000234 5114 -2664;V4 /V4 000235 0763 125 000236 5473 -2305;SYNTAX /SE 000237 0400 126 SETLOC=.-1 127 000240 0000 0 128 000241 7650 SNA CLA 129 000242 5571 JMP I [GOAWAY 130 000243 5570 JMP I [SYNTAX /NONE OF THESE 131 132 /V1 FEATURES: 133 /FIXES SINCE FIELD TEST RELEASE: 134 135 /1. ADDED CASSETTE SUPPORT 136 /2. FIXED BUG RE IMMEDIATE ALTMOD 137 /3. CHANGED SPECIAL CODES TO AGREE WITH NEW MAGTAPE HANDLER 138 /4. IGNORE NULLS ON INPUT 139 /5. ALLOW UNLOADING AN RK8E 140 141 /CHANGES MADE TO V3: 142 143 /1. SET COMMAND IMPLEMENTED 144 145 /MAINTENANCE RELEASE CHANGES: 146 147 /1. TOOK OUT 'SET' SINCE WE DON'T WANT TO SUPPORT IT 148 / UNTIL OS/8 V4 149 /2. FIXED BUG RE AT EOF AND BOF MESSAGES 150 /3. CHANGED CAMP TO USE NEW TM8E HANDLER 151 / NOTE: CAMP WILL NOT WORK PROPERLY WITH 152 / TM8E HANDLERS PRIOR TO VERSION F 153 /4. PROPERLY FIND EOT EVEN IF WE'RE JUST 154 / BEFORE A FILE MARK. 155 /5. GIVE AT BOT OR EOT MESSAGE IF SEE REFLECTIVE SPOT 156 /6. CHANGED VERSION NUMBER TO V4 157 /7. ENSURE THAT USER CAN'T PASS OVER EOD 158 159 /V3D CHANGES: 160 161 /1. FIXED BUG WITH UNLOADING RKS 162 / GETTWO 163 164 /GET TWO LETTERS OR DIGITS FROM INPUT LINE, PACK IN SIXBIT 165 /ADVANCE PAST THEM. SUBSTITUTE NULL IF NOT FOUND. 166 167 000244 0000 GETTWO, 0 168 000245 4255 JMS GETSIX 169 000246 7106 CLL RTL 170 000247 7006 RTL 171 000250 7006 RTL 172 000251 3022 DCA T2 173 000252 4255 JMS GETSIX 174 000253 1022 TAD T2 /COMBINE 175 000254 5644 JMP I GETTWO 176 177 000255 0000 GETSIX, 0 /GET A SIXBIT LETTER OR DIGIT (OR NULL) 178 000256 4301 JMS ALPHA /IS IT ALPHANUMERIC? 179 000257 5262 JMP NOTALPH /NO 180 000260 0167 AND [77 /YES 181 000261 5655 JMP I GETSIX /TRUNCATE TO SIXBIT 182 000262 7200 NOTALPH,CLA 183 000263 4274 JMS BACKC 184 000264 5655 JMP I GETSIX /RETURN NULL 185 186 000265 0000 GETC, 0 /GET A CHARACTER, ADVANCE POINTER 187 000266 1423 TAD I LINPTR 188 000267 0166 AND [177 /ALWAYS RETURN 8-BIT 189 000270 7440 SZA 190 000271 1165 TAD [200 /WITH HIGH ORDER BIT ON 191 000272 2023 ISZ LINPTR /ADVANCE SCAN 192 000273 5665 JMP I GETC /RETURN 193 194 000274 0000 BACKC, 0 /MOVE SCAN POINTER BACK ONE 195 000275 7240 STA 196 000276 1023 TAD LINPTR 197 000277 3023 DCA LINPTR 198 000300 5674 JMP I BACKC /RETURN 199 /RETURN 1 NOT OF TYPE DESIRED 200 /RETURN 2 DESIRED TYPE 201 /IN BOTH CASES, CHAR IS LEFT IN AC 202 203 000301 0000 ALPHA, 0 /LOOK FOR ALPHANUMERIC 204 000302 4564 JMS I [GETC 205 000303 4312 JMS LETTER /IS IT A LETTER? 206 000304 5306 JMP TRYDIG /NO, TRY DIGIT 207 000305 5310 JMP GOTAL /YES 208 000306 4322 TRYDIG, JMS DIGIT /IS IT A DIGIT? 209 000307 5701 JMP I ALPHA /NO, AINT LETTER OR DIGIT 210 000310 2301 GOTAL, ISZ ALPHA /YES, EITHER LETTER OR DIGIT 211 000311 5701 JMP I ALPHA /RETURN WITH IT IN AC 212 213 000312 0000 LETTER, 0 /LOOK FOR LETTER 214 000313 1376 TAD (-"A 215 000314 7100 CLL 216 000315 1375 TAD ("A-"Z-1 217 000316 7420 SNL 218 000317 2312 ISZ LETTER 219 000320 1374 TAD ("Z+1 /RESTORE CHAR 220 000321 5712 JMP I LETTER 221 222 000322 0000 DIGIT, 0 /LOOK FOR DIGIT 223 000323 1373 TAD (-"0 224 000324 7100 CLL 225 000325 1372 TAD ("0-"9-1 /(DECIMAL) 226 000326 7420 SNL 227 000327 2322 ISZ DIGIT 228 000330 1371 TAD ("9+1 /RESTORE DIGIT TO CHARACTER FORM 229 000331 5722 JMP I DIGIT /AND RETURN WITH IT IN AC 230 000371 0272 PAGE 000372 7766 000373 7520 000374 0333 000375 7746 000376 7477 000377 0243 231 000400 7200 SYNTAX, CLA 232 000401 4221 JMS PRINT 233 000402 7740 TEXT /? SYNTAX ERROR/ 000403 2331 000404 1624 000405 0130 000406 4005 000407 2222 000410 1722 000411 0000 234 000412 1040 GOAWAY, TAD ESCBIT 235 000413 7640 SZA CLA 236 000414 5563 JMP I [7605 /LINE ENDED WITH ESCAPE 237 000415 1576 TAD I [READ /WAS 'READ' EVER CALLED? 238 000416 7640 SZA CLA 239 000417 5565 JMP I [START /YES, GET A NEW LINE 240 000420 5563 JMP I [7605 /NO, WE MUST'VE BEEN CHAINED TO, RECALL KBM 241 242 000421 0000 PRINT, 0 243 000422 1621 TAD I PRINT 244 000423 7012 RTR 245 000424 7012 RTR 246 000425 7012 RTR 247 000426 4236 JMS PRIN 248 000427 1621 TAD I PRINT 249 000430 4236 JMS PRIN 250 000431 2221 ISZ PRINT 251 000432 5222 JMP PRINT+1 252 000433 4562 LV, JMS I [CRLF 253 000434 2221 ISZ PRINT 254 000435 5621 JMP I PRINT 255 256 000436 0000 PRIN, 0 257 000437 0167 AND [77 258 000440 7450 SNA 259 000441 5233 JMP LV 260 000442 1161 TAD [240 261 000443 0167 AND [77 262 000444 1161 TAD [240 263 000445 3024 DCA T3 264 000446 1165 TAD [200 265 000447 6034 KRS 266 000450 1377 TAD (-203 267 000451 7450 SNA 268 000452 5261 JMP CTRLC 269 000453 1376 TAD (203-217 /^O 270 000454 7650 SNA CLA 271 000455 4267 JMS CTRLO 272 000456 1024 TAD T3 273 000457 4577 JMS I [TYPE 274 000460 5636 JMP I PRIN 275 000461 1160 CTRLC, TAD ["^ 276 000462 4577 JMS I [TYPE 277 000463 1375 TAD ("C 278 000464 4577 JMS I [TYPE /ECHO "^C" 279 000465 4557 JMS I [DELAYY 280 000466 5556 JMP I [7600 /THEN GO AWAY 281 000467 0000 CTRLO, 0 282 000470 6032 KCC /CLEAR OUT ^O 283 000471 1160 TAD ["^ 284 000472 4577 JMS I [TYPE 285 000473 1374 TAD ("O 286 000474 4577 JMS I [TYPE 287 000475 4562 JMS I [CRLF 288 000476 7240 STA 289 000477 3042 DCA CTOFLG /STOP ECHOING 290 000500 5667 JMP I CTRLO 291 292 000501 4221 VERSION,JMS PRINT 293 000502 1723 TEXT \OS/8 CAMP V5A\ 000503 5770 000504 4003 000505 0115 000506 2040 000507 2665 000510 0100 294 000511 5565 JMP I [START 295 000512 4221 NUMBIG, JMS PRINT 296 000513 7740 TEXT /? NUMBER TOO BIG/ 000514 1625 000515 1502 000516 0522 000517 4024 000520 1717 000521 4002 000522 1107 000523 0000 297 000524 5571 JMP I [GOAWAY 298 000525 4221 NONEX, JMS PRINT 299 000526 7740 TEXT /? CAN'T - DEVICE DOESN'T EXIST/ 000527 0301 000530 1647 000531 2440 000532 5540 000533 0405 000534 2611 000535 0305 000536 4004 000537 1705 000540 2316 000541 4724 000542 4005 000543 3011 000544 2324 000545 0000 300 000546 5571 JMP I [GOAWAY 301 302 000547 4221 SYSERR, JMS PRINT 303 000550 7740 TEXT \? I/O ERROR ON SYS:\ 000551 1157 000552 1740 000553 0522 000554 2217 000555 2240 000556 1716 000557 4023 000560 3123 000561 7200 304 000562 5571 JMP I [GOAWAY 305 000574 0317 PAGE 000575 0303 000576 7764 000577 7575 306 000600 4555 HELP, JMS I [PRINT 307 000601 0201 TEXT /BACKSPACE DEV: N FILES/ 000602 0313 000603 2320 000604 0103 000605 0540 000606 0405 000607 2672 000610 4016 000611 4006 000612 1114 000613 0523 000614 0000 308 000615 4555 JMS I [PRINT 309 000616 0201 TEXT /BACKSPACE DEV: N RECORDS/ 000617 0313 000620 2320 000621 0103 000622 0540 000623 0405 000624 2672 000625 4016 000626 4022 000627 0503 000630 1722 000631 0423 000632 0000 310 000633 4555 JMS I [PRINT 311 000634 0517 TEXT /EOF DEV:/ 000635 0640 000636 0405 000637 2672 000640 0000 312 000641 5257 H2, JMP H1 / JMS I [PRINT 313 000642 2305 TEXT /SET DEV: [NO] ATTRIB [N]/ 000643 2440 000644 0405 000645 2672 000646 4033 000647 1617 000650 3540 000651 0124 000652 2422 000653 1102 000654 4033 000655 1635 000656 0000 314 000657 4555 H1, JMS I [PRINT 315 000660 2313 TEXT /SKIP DEV: N FILES/ 000661 1120 000662 4004 000663 0526 000664 7240 000665 1640 000666 0611 000667 1405 000670 2300 316 000671 4555 JMS I [PRINT 317 000672 2313 TEXT /SKIP DEV: N RECORDS/ 000673 1120 000674 4004 000675 0526 000676 7240 000677 1640 000700 2205 000701 0317 000702 2204 000703 2300 318 000704 4555 JMS I [PRINT 319 000705 2313 TEXT /SKIP DEV: EOD/ 000706 1120 000707 4004 000710 0526 000711 7240 000712 0517 000713 0400 320 000714 4555 JMS I [PRINT 321 000715 2205 TEXT /REWIND DEV:/ 000716 2711 000717 1604 000720 4004 000721 0526 000722 7200 322 000723 4555 JMS I [PRINT 323 000724 2516 TEXT /UNLOAD DEV:/ 000725 1417 000726 0104 000727 4004 000730 0526 000731 7200 324 000732 4555 JMS I [PRINT 325 000733 2605 TEXT /VERSION/ 000734 2223 000735 1117 000736 1600 326 000737 4555 JMS I [PRINT 327 000740 1005 TEXT /HELP/ 000741 1420 000742 0000 328 000743 5565 JMP I [START 329 000744 7200 BADEV, CLA 330 000745 4555 JMS I [PRINT 331 000746 7740 TEXT /? CAN'T FOR THIS DEVICE/ 000747 0301 000750 1647 000751 2440 000752 0617 000753 2240 000754 2410 000755 1123 000756 4004 000757 0526 000760 1103 000761 0500 332 000762 5571 JMP I [GOAWAY 333 334 000763 1377 V4, TAD (SET 335 000764 3776 DCA I (SETLOC 336 000765 1257 TAD H1 337 000766 3241 DCA H2 338 000767 5565 JMP I [START 339 000776 0237 PAGE 000777 4200 340 *2000 341 342 /ORIGIN PAST OS/8 LINE BUFFER AT 1000. 343 /SKIP PAST PS/8 LINE BUFFER (AT 1400) JUST IN CASE 344 /PS/8 USERS WISH TO PATCH THIS PROGRAM 345 346 /SCAN PAST EXTRA LETTERS OR DIGITS 347 348 002000 0000 SCAN, 0 349 002001 4554 JMS I [ALPHA 350 002002 5205 JMP NOPE 351 002003 7200 CLA 352 002004 5201 JMP SCAN+1 353 002005 7200 NOPE, CLA 354 002006 4553 JMS I [BACKC 355 002007 5600 JMP I SCAN 356 357 /SCAN PAST SPACES; GIVE ERROR IF NO SPACES FOUND UNLESS AC=-1 358 359 002010 0000 SPACE, 0 360 002011 3025 DCA FLAG /SET AC=-1 TO PREVENT ERROR ON NO SPACES FOUND 361 002012 3026 DCA SPKNT /INITIALIZE SPACE COUNTER 362 002013 7410 SKP /JUMP INTO LOOP 363 002014 2026 GOTSP, ISZ SPKNT 364 002015 4564 JMS I [GETC /GET NEXT CHAR 365 002016 1377 TAD (-240 366 002017 7650 SNA CLA /IS IT A SPACE? 367 002020 5214 JMP GOTSP /YES, COUNT IT 368 002021 4553 JMS I [BACKC /NO, PUT IT BACK 369 002022 2025 ISZ FLAG /CHECK FLAG 370 002023 7410 SKP /USER DIDN'T SPECIFY FLAG 371 002024 5610 JMP I SPACE /-0 MEANT DON'T CHECK IF FOUND SPACE 372 002025 1026 TAD SPKNT /HOW MANY SPACES DID WE FIND? 373 002026 7640 SZA CLA 374 002027 5610 JMP I SPACE /SOME. OK 375 002030 5570 JMP I [SYNTAX /NONE. TSK. TSK. 376 002031 0000 BRANCH, 0 377 002032 3021 DCA T 378 002033 1631 BR2, TAD I BRANCH 379 002034 2231 ISZ BRANCH 380 002035 7450 SNA 381 002036 5247 JMP NOTFND 382 002037 1021 TAD T 383 002040 7650 SNA CLA 384 002041 5244 JMP FOUND 385 002042 2231 ISZ BRANCH 386 002043 5233 JMP BR2 387 388 002044 1631 FOUND, TAD I BRANCH 389 002045 3021 DCA T 390 002046 5421 JMP I T /FOUND ITEM IN COLUMN 1, JUMP TO ADDRESS IN COL 2 391 392 002047 1021 NOTFND, TAD T 393 002050 5631 JMP I BRANCH /IF NOT FOUND IN COL 1, RETURN WITH AC INTACT 394 002051 0000 CHECKR, 0 395 002052 1035 TAD DCW 396 002053 7004 RAL 397 002054 7700 SMA CLA 398 002055 5651 JMP I CHECKR 399 002056 4555 RONLY, JMS I [PRINT 400 002057 7740 TEXT /? CAN'T - DEVICE IS READ-ONLY/ 002060 0301 002061 1647 002062 2440 002063 5540 002064 0405 002065 2611 002066 0305 002067 4011 002070 2340 002071 2205 002072 0104 002073 5517 002074 1614 002075 3100 401 002076 5571 JMP I [GOAWAY 402 002077 0000 CHECKW, 0 403 002100 1035 TAD DCW 404 002101 7006 RTL 405 002102 7700 SMA CLA 406 002103 5677 JMP I CHECKW 407 002104 4555 WONLY, JMS I [PRINT 408 002105 7740 TEXT /? CAN'T - DEVICE IS WRITE-ONLY/ 002106 0301 002107 1647 002110 2440 002111 5540 002112 0405 002113 2611 002114 0305 002115 4011 002116 2340 002117 2722 002120 1124 002121 0555 002122 1716 002123 1431 002124 0000 409 002125 5571 JMP I [GOAWAY 410 002126 0000 ONUM, 0 411 002127 3031 DCA NUM 412 002130 7201 CLA IAC 413 002131 3054 DCA FLG 414 002132 4564 ONM1, JMS I [GETC 415 002133 1376 TAD (-"0-10 /CONVERT TO DIGIT 416 002134 7100 CLL 417 002135 1375 TAD (10 418 002136 7420 SNL 419 002137 5354 JMP OEON 420 002140 3033 DCA T4 421 002141 3054 DCA FLG 422 002142 1031 TAD NUM 423 002143 0152 AND [7000 424 002144 7640 SZA CLA 425 002145 5551 JMP I [NUMBIG 426 002146 1031 TAD NUM 427 002147 7106 CLL RTL 428 002150 7004 RAL 429 002151 1033 TAD T4 430 002152 3031 DCA NUM 431 002153 5332 JMP ONM1 432 002154 7200 OEON, CLA 433 002155 4553 JMS I [BACKC 434 002156 1031 TAD NUM 435 002157 5726 JMP I ONUM 436 002175 0010 PAGE 002176 7510 002177 7540 437 /READ A LINE INTO OS/8 LINE BUFFER 438 439 002200 0000 READ, 0 440 002201 3042 DCA CTOFLG /ALLOW ECHOING 441 002202 1175 RD1, TAD [LINBUF 442 002203 3023 DCA LINPTR 443 002204 3040 DCA ESCBIT 444 002205 4326 GT, JMS GET 445 002206 4572 LOOK, JMS I [BRANCH 446 002207 7401 -377;RUBOUT 002210 2255 447 002211 7561 -217;GT /^O 002212 2205 448 002213 7575 -203;CTRLC /^C 002214 0461 449 002215 7566 -212;LF /LINE FEED 002216 2353 450 002217 7563 -215;CR /CARRIAGE RETURN 002220 2323 451 002221 7403 -375;ESCAPE /ALTMODE 002222 2320 452 002223 7402 -376;ESCAPE /ALTMODE (2ND FLAVOR) 002224 2320 453 002225 7545 -233;ESCAPE /ESCAPE 002226 2320 454 002227 7553 -225;CTRLU /^U 002230 2247 455 002231 7600 -200;GT /IGNORE NULLS 002232 2205 456 002233 0000 0 457 002234 3020 DCA TEMP /NONE OF THESE 458 002235 1023 TAD LINPTR 459 002236 1377 TAD (-LINBUF-377 460 002237 7650 SNA CLA /AT END OF LINE BUFFER? 461 002240 5205 JMP GT /YES, DON'T ACCEPT CHAR 462 002241 1020 TAD TEMP /NO, RETRIEVE CHAR 463 002242 4335 JMS TYPE /ECHO IT 464 002243 1020 TAD TEMP /INSERT IN BUFFER 465 002244 3423 DCA I LINPTR 466 002245 2023 ISZ LINPTR /BUMP POINTER 467 002246 5205 JMP GT /NEXT 468 469 002247 1160 CTRLU, TAD ["^ 470 002250 4335 JMS TYPE 471 002251 1376 TAD ("U 472 002252 4335 JMS TYPE /ECHO "^U" 473 002253 4562 JMS I [CRLF 474 002254 5202 JMP RD1 475 002255 1023 RUBOUT, TAD LINPTR 476 002256 1152 TAD [-LINBUF 477 002257 7450 SNA 478 002260 5316 JMP BOL /AT BEGIN OF LINE 479 002261 1150 TAD [LINBUF-1 480 002262 3023 DCA LINPTR /MOVE POINTER BACK ONE 481 002263 1147 TAD ["\ 482 002264 4335 JMS TYPE /ECHO "\" 483 002265 1423 RUB3, TAD I LINPTR 484 002266 4335 JMS TYPE /ECHO RUBBED-OUT CHARACTER 485 002267 4326 GT2, JMS GET 486 002270 4572 JMS I [BRANCH 487 002271 7401 -377;RUB2 002272 2305 488 002273 7562 -216;GT2 /IGNORE ^O 002274 2267 489 002275 7575 -203;CTRLC /^C 002276 0461 490 002277 0000 0 491 002300 3020 DCA TEMP /A NEW CHAR 492 002301 1147 TAD ["\ 493 002302 4335 JMS TYPE /ENCLOSE RUBBED-OUT CHARS IN \'S 494 002303 1020 TAD TEMP 495 002304 5206 JMP LOOK 496 497 002305 1023 RUB2, TAD LINPTR 498 002306 1152 TAD [-LINBUF 499 002307 7450 SNA 500 002310 5314 JMP BOL2 501 002311 1150 TAD [LINBUF-1 502 002312 3023 DCA LINPTR 503 002313 5265 JMP RUB3 504 505 002314 1147 BOL2, TAD ["\ 506 002315 4335 JMS TYPE 507 002316 4562 BOL, JMS I [CRLF 508 002317 5202 JMP RD1 509 510 002320 1375 ESCAPE, TAD ("$ /ECHO ESCAPE AS DOLLAR SIGN 511 002321 4335 JMS TYPE 512 002322 2040 ISZ ESCBIT /NOTE ESCAPE 513 002323 3423 CR, DCA I LINPTR /INSERT 0 AT END 514 002324 4562 JMS I [CRLF 515 002325 5600 JMP I READ /RETURN, WE GOT LINE 516 002326 0000 GET, 0 517 002327 6031 KSF 518 002330 5327 JMP .-1 519 002331 6036 KRB 520 002332 0166 AND [177 521 002333 1165 TAD [200 /FORCE TO 8-BIT 522 002334 5726 JMP I GET 523 524 002335 0000 TYPE, 0 525 002336 3352 DCA TYPEM 526 002337 4557 JMS I [DELAYY 527 002340 3337 DCA .-1 /DELAY FIRST TIME THRU TO LET THINGS QUIET DOWN 528 002341 1042 TAD CTOFLG 529 002342 7640 SZA CLA 530 002343 5735 JMP I TYPE /NO ECHOING 531 002344 1352 TAD TYPEM 532 002345 6046 TLS 533 002346 6041 TSF 534 002347 5346 JMP .-1 535 002350 7200 CLA 536 002351 5735 JMP I TYPE 537 538 002352 0000 TYPEM, 0 539 540 002353 3423 LF, DCA I LINPTR /TEMPORARILY INSERT A 0 SENTINEL 541 002354 1150 TAD [LINBUF-1 542 002355 3011 DCA XR1 543 002356 4562 JMS I [CRLF 544 002357 1146 TAD ["# 545 002360 4577 JMS I [TYPE 546 002361 1411 LFLP, TAD I XR1 547 002362 7450 SNA 548 002363 5545 JMP I [GT /FINHSHED, GET SOME MORE CHARS 549 002364 4577 JMS I [TYPE /ECHO CURRENT CHARS 550 002365 5361 JMP LFLP 551 002375 0244 PAGE 002376 0325 002377 6401 552 002400 4574 EOF, JMS I [SPACE /SPAN OVER SPACES 553 002401 4544 JMS I [GETDEV /GET DEVICE 554 002402 4543 JMS I [CHECKR 555 002403 1027 TAD DEVTYP 556 002404 4572 JMS I [BRANCH 557 002405 7760 -20;MAGEOF 002406 3416 558 002407 7751 -27;CASEOF 002410 3105 559 002411 0000 ZBLOCK 2 002412 0000 560 002413 0000 0 561 002414 5542 JMP I [BADEV 562 563 002415 4574 SKIP, JMS I [SPACE 564 002416 4544 JMS I [GETDEV 565 002417 4541 JMS I [CHECKW 566 002420 4321 JMS GETNUM 567 002421 1027 TAD DEVTYP 568 002422 4572 JMS I [BRANCH 569 002423 7760 -20;MAGSKP 002424 3400 570 002425 7751 -27;CASSKP 002426 3050 571 002427 0000 0 572 002430 5542 JMP I [BADEV 573 574 002431 4574 REWIND, JMS I [SPACE 575 002432 4544 JMS I [GETDEV 576 002433 4541 JMS I [CHECKW 577 002434 1027 TAD DEVTYP 578 002435 4572 JMS I [BRANCH 579 002436 7760 -20;MAGREW 002437 3505 580 002440 7751 -27;CASREW 002441 3107 581 002442 7762 -16;TCREW 002443 3200 582 / -17;LTREW 583 002444 0000 ZBLOCK 4 /PATCH SPACE 002445 0000 002446 0000 002447 0000 584 002450 0000 0 585 002451 1035 TAD DCW 586 002452 7700 SMA CLA 587 002453 5542 JMP I [BADEV /NOT FILE STRUCTURED 588 002454 7201 CLA IAC /READ BLOCK 0 TO REWIND 589 002455 3540 DCA I [BLK 590 002456 1377 TAD (100 591 002457 4537 JMS I [GO 592 002460 5571 JMP I [GOAWAY 593 002461 4574 UNLOAD, JMS I [SPACE 594 002462 4544 JMS I [GETDEV 595 002463 4541 JMS I [CHECKW 596 002464 1027 TAD DEVTYP 597 002465 4572 JMS I [BRANCH 598 002466 7760 -20;MAGUNL 002467 3502 599 / -27;CASUNL 600 002470 7762 -16;TCUNL 002471 3202 601 002472 7757 -21;TDUNL 002473 3225 602 / -17;LTUNL 603 002474 7755 -23;RKEUNL 002475 3753 604 002476 0000 ZBLOCK 2 002477 0000 605 002500 0000 0 606 002501 5542 JMP I [BADEV 607 608 002502 4574 BACK, JMS I [SPACE 609 002503 4544 JMS I [GETDEV 610 002504 4541 JMS I [CHECKW 611 002505 4321 JMS GETNUM 612 002506 1032 TAD TYP 613 002507 7710 SPA CLA 614 002510 5570 JMP I [SYNTAX /CAN'T BACKSPACE TO EOD 615 002511 1027 TAD DEVTYP 616 002512 4572 JMS I [BRANCH 617 002513 7760 -20;MAGBAK 002514 3443 618 002515 7751 -27;CASBAK 002516 3124 619 002517 0000 0 620 002520 5542 JMP I [BADEV 621 002521 0000 GETNUM, 0 /PARSE OFF :NNNN [F ! R] OR EOD 622 002522 7201 CLA IAC 623 002523 3031 DCA NUM 624 002524 3032 DCA TYP 625 002525 4564 JMS I [GETC 626 002526 7450 SNA 627 002527 5721 JMP I GETNUM /EOL 628 002530 1376 TAD (-": 629 002531 7640 SZA CLA 630 002532 5570 JMP I [SYNTAX 631 002533 7240 STA 632 002534 4574 JMS I [SPACE /OPTIONAL SPACES 633 002535 1423 TAD I LINPTR 634 002536 7450 SNA 635 002537 5721 JMP I GETNUM /EOL 636 002540 1375 TAD (-"E 637 002541 7650 SNA CLA 638 002542 5364 JMP EO 639 002543 4536 JMS I [NUMBER 640 002544 3031 DCA NUM 641 002545 7240 STA 642 002546 4574 JMS I [SPACE /MORE OPTIONAL SPACES 643 002547 3032 DCA TYP 644 002550 4564 JMS I [GETC 645 002551 7450 SNA 646 002552 5721 JMP I GETNUM /NO F OR R. F ASSUMED 647 002553 1374 TAD (-"F 648 002554 7450 SNA 649 002555 5362 JMP R /0 MEANS 'F' 650 002556 1373 TAD ("F-"R 651 002557 7640 SZA CLA 652 002560 5570 JMP I [SYNTAX 653 002561 7201 CLA IAC /1 MEANS 'R' 654 002562 3032 R, DCA TYP 655 002563 5721 JMP I GETNUM 656 002564 7240 EO, STA /-1 MEANS 'E' 657 002565 5362 JMP R 658 002573 7764 PAGE 002574 7472 002575 7473 002576 7506 002577 0100 659 /GET A DECIMAL NUMBER, RETURN IT IN AC 660 661 002600 0000 NUMBER, 0 662 002601 3031 DCA NUM 663 002602 7201 CLA IAC 664 002603 3054 DCA FLG 665 002604 4564 NM1, JMS I [GETC 666 002605 4535 JMS I [DIGIT 667 002606 5227 JMP EON 668 002607 1377 TAD (-"0 /CONVERT TO DIGIT 669 002610 3033 DCA T4 670 002611 3054 DCA FLG /NOTE PASSAGE OF A DIGIT 671 002612 1031 TAD NUM 672 002613 0152 AND [7000 673 002614 7640 SZA CLA 674 002615 5551 JMP I [NUMBIG 675 002616 1031 TAD NUM 676 002617 7106 CLL RTL 677 002620 1031 TAD NUM 678 002621 7104 CLL RAL 679 002622 1033 TAD T4 680 002623 7430 SZL 681 002624 5551 JMP I [NUMBIG 682 002625 3031 DCA NUM 683 002626 5204 JMP NM1 684 685 002627 7200 EON, CLA 686 002630 4553 JMS I [BACKC 687 002631 1054 TAD FLG 688 002632 7440 SZA 689 002633 3031 DCA NUM /IF NO DIGITS, RETURN A 1 690 002634 1031 TAD NUM 691 002635 5600 JMP I NUMBER 692 / GETDEV 693 694 /PARSES OFF A DEVICE NAME (1-4 CHARS) 695 /DETERMINES IF IT EXISTS 696 /LOADS HANDLER INTO 7200-7577 IF NOT ALREADY IN CORE 697 /SETS ENTRY POINT ADDRESS AT 'ENTRY' 698 /SETS DEVICE NUMBER AT 'DEVNUM' 699 /SETS DEVICE CONTROL WORD AT 'DCW' 700 /SETS 'DEVTYP' 701 702 002636 0000 GETDEV, 0 703 002637 4534 JMS I [GETTWO 704 002640 3261 DCA WD1 705 002641 4534 JMS I [GETTWO 706 002642 3262 DCA WD2 707 002643 1261 TAD WD1 708 002644 1262 TAD WD2 709 002645 3261 DCA WD1 /COMBINE TWO WORDS INTO 1 (IN WD1) 710 002646 1262 TAD WD2 711 002647 7650 SNA CLA 712 002650 5255 JMP INQ 713 002651 1261 TAD WD1 /OS/8 KLUDGE FOR UNIQUENESS 714 002652 7104 CLL RAL 715 002653 7130 STL RAR /FORCE BIT 0 ON IF 2ND WORD WAS NON-ZERO 716 002654 3261 DCA WD1 717 002655 3262 INQ, DCA WD2 718 002656 6212 CIF 10 719 002657 4437 JMS I USR 720 002660 0012 12 /INQUIRE 721 002661 0000 WD1, 0 /DEVICE NAME 722 002662 0000 WD2, 0 /GETS DEVICE NUMBER 723 002663 0000 WD3, 0 /GETS ENTRY POINT 724 002664 5533 JMP I [NONEX /DEVICE DOESN'T EXIST 725 002665 1263 TAD WD3 726 002666 7440 SZA /IS HANDLER ALREADY IN CORE? 727 002667 5311 JMP INCORE /YES 728 002670 1261 TAD WD1 729 002671 3300 DCA DW1 730 002672 1376 TAD (7201 /ALLOW TWO PAGE HANDLER IN 7200 731 002673 3302 DCA DW3 732 002674 3301 DCA DW2 733 002675 6212 CIF 10 734 002676 4437 JMS I USR 735 002677 0001 1 /FETCH 736 002700 0000 DW1, 0 /DEVICE NAME 737 002701 0000 DW2, 0 /GETS DEVICE NUMBER 738 002702 0000 DW3, 0 /GETS ENTRY POINT 739 002703 5533 JMP I [NONEX /DOESN'T EXIST 740 002704 1301 TAD DW2 741 002705 3034 DCA DEVNUM 742 002706 1302 TAD DW3 743 002707 3030 DCA ENTRY 744 002710 5314 JMP GETYP 745 002711 3030 INCORE, DCA ENTRY 746 002712 1262 TAD WD2 747 002713 3034 DCA DEVNUM 748 002714 1034 GETYP, TAD DEVNUM 749 002715 1375 TAD (7757 750 002716 3036 DCA DCWPTR /POILT INTO DEVICE CONTROL WGRD TABLE 751 002717 6211 CDF 10 752 002720 1436 TAD I DCWPTR /GET DCW 753 002721 3035 DCA DCW 754 002722 1035 TAD DCW 755 002723 7012 RTR 756 002724 7010 RAR 757 002725 0167 AND [77 758 002726 3027 DCA DEVTYP 759 002727 7240 STA 760 002730 1774 TAD I (37 /GET ADDRESS OF DHIT 761 002731 3045 DCA DHIT 762 002732 1045 TAD DHIT 763 002733 1034 TAD DEVNUM 764 002734 3046 DCA DHI 765 002735 1446 TAD I DHI 766 002736 6201 CDF 0 767 002737 3046 DCA DHI 768 002740 1046 TAD DHI 769 002741 7006 RTL 770 002742 7006 RTL 771 002743 7006 RTL 772 002744 0373 AND (17 773 002745 7440 SZA 774 002746 1372 TAD (15 775 002747 3047 DCA DBLK 776 002750 5636 JMP I GETDEV 777 778 002751 0000 DELAYY, 0 779 002752 1371 TAD (-10 780 002753 3362 DCA OUTER 781 002754 2361 ISZ ZER 782 002755 5354 JMP .-1 783 002756 2362 ISZ OUTER 784 002757 5354 JMP .-3 785 002760 5751 JMP I DELAYY 786 002761 0000 ZER, 0 787 002762 7770 OUTER, -10 788 002771 7770 PAGE 002772 0015 002773 0017 002774 0037 002775 7757 002776 7201 002777 7520 789 003000 1777 LOADPT, TAD I (FUNCT 790 003001 1376 TAD (-REWKOD 791 003002 7650 SNA CLA 792 003003 5571 JMP I [GOAWAY /LOAD POINT ON A REWIND IS NOT AN ERROR 793 003004 4555 READBT, JMS I [PRINT 794 003005 7740 TEXT /? CAN'T - AT BOT OR EOT/ 003006 0301 003007 1647 003010 2440 003011 5540 003012 0124 003013 4002 003014 1724 003015 4017 003016 2240 003017 0517 003020 2400 795 003021 5571 JMP I [GOAWAY 796 003022 4555 READEOF,JMS I [PRINT 797 003023 4540 TEXT /% CAN'T - AT EOF/ 003024 0301 003025 1647 003026 2440 003027 5540 003030 0124 003031 4005 003032 1706 003033 0000 798 003034 5571 JMP I [GOAWAY 799 800 003035 4555 READBOF,JMS I [PRINT 801 003036 4540 TEXT /% CAN'T - AT BOF/ 003037 0301 003040 1647 003041 2440 003042 5540 003043 0124 003044 4002 003045 1706 003046 0000 802 003047 5571 JMP I [GOAWAY 803 804 003050 3775 CASSKP, DCA I (DIR 805 003051 1032 TAD TYP 806 003052 7650 SNA CLA 807 003053 5312 JMP CSKPF 808 003054 5774 JMP I (NOTIMPL 809 810 003055 0000 CGO, 0 811 003056 3260 DCA CFUNCT 812 003057 4430 JMS I ENTRY 813 003060 0000 CFUNCT, 0 814 003061 7000 CBUFR, 7000 815 003062 7777 CBLK, -1 816 003063 7410 SKP 817 003064 5655 JMP I CGO 818 003065 3020 DCA TEMP 819 003066 1020 TAD TEMP 820 003067 7700 SMA CLA 821 003070 5773 JMP I (END /SOFT ERROR 822 003071 4555 JMS I [PRINT 823 003072 7740 TEXT \? CAN'T - I/O ERROR\ 003073 0301 003074 1647 003075 2440 003076 5540 003077 1157 003100 1740 003101 0522 003102 2217 003103 2200 824 003104 5571 JMP I [GOAWAY 825 826 003105 4255 CASEOF, JMS CGO 827 003106 5571 JMP I [GOAWAY 828 829 003107 1372 CASREW, TAD (REWKOD 830 003110 4255 JMS CGO 831 003111 5571 JMP I [GOAWAY 832 003112 1031 CSKPF, TAD NUM 833 003113 7450 SNA 834 003114 7001 IAC 835 003115 7041 CIA 836 003116 3043 DCA COUNT 837 003117 1371 TAD (SKFKOD 838 003120 4255 JMS CGO 839 003121 2043 ISZ COUNT 840 003122 5317 JMP .-3 841 003123 5571 JMP I [GOAWAY 842 843 003124 7201 CASBAK, CLA IAC 844 003125 3775 DCA I (DIR 845 003126 1032 TAD TYP 846 003127 7640 SZA CLA 847 003130 5341 JMP CBAKBLK 848 003131 1031 TAD NUM 849 003132 7040 CMA 850 003133 3043 DCA COUNT 851 003134 1370 TAD (BKFKOD 852 003135 4255 JMS CGO 853 003136 2043 ISZ COUNT 854 003137 5334 JMP .-3 855 003140 5571 JMP I [GOAWAY 856 857 003141 1031 CBAKBLK,TAD NUM 858 003142 7450 SNA 859 003143 7001 IAC 860 003144 7041 CIA 861 003145 3043 DCA COUNT 862 003146 1367 TAD (BAKKOD 863 003147 4255 JMS CGO 864 003150 2043 ISZ COUNT 865 003151 5346 JMP .-3 866 003152 5571 JMP I [GOAWAY 867 003167 4002 PAGE 003170 4003 003171 0003 003172 0001 003173 3533 003174 4044 003175 3532 003176 7777 003177 3513 868 003200 4212 TCREW, JMS TCR 869 003201 5571 JMP I [GOAWAY 870 871 003202 4212 TCUNL, JMS TCR 872 003203 1030 TAD ENTRY 873 003204 7001 IAC 874 003205 7012 RTR 875 003206 7012 RTR 876 003207 0152 AND [7000 877 003210 6766 DTLA /SELECT ANOTHER UNIT 878 003211 5571 JMP I [GOAWAY 879 880 003212 0000 TCR, 0 881 003213 1030 TAD ENTRY 882 003214 1377 TAD (-7607 883 003215 7640 SZA CLA /SYSTEM TC08 DECTAPE MUST BE UNIT 0 884 003216 1030 TAD ENTRY 885 003217 7012 RTR 886 003220 7012 RTR 887 003221 0152 AND [7000 /ISOLATE UNIT # IN BITS 0-2 888 003222 1376 TAD (600 /GO REVERSE 889 003223 6766 DTLA 890 003224 5612 JMP I TCR 891 003225 1377 TDUNL, TAD (-7607 892 003226 7640 SZA CLA 893 003227 1030 TAD ENTRY 894 003230 3020 DCA TEMP 895 003231 1020 TAD TEMP 896 003232 7012 RTR 897 003233 7010 RAR 898 003234 7210 CLA RAR 899 003235 3253 DCA UNIT 900 003236 1020 TAD TEMP 901 003237 0132 AND [3 902 003240 7041 CIA 903 003241 1167 TAD [77 /GET DEV CODE 904 003242 7106 CLL RTL 905 003243 7004 RAL 906 003244 1375 TAD (6004 /BUILD 'SDLC' 907 003245 3250 DCA BSDLC 908 003246 1253 TAD UNIT 909 003247 1374 TAD (3000 /GO, REVERSE 910 003250 7402 BSDLC, HLT 911 003251 7200 CLA 912 003252 5571 JMP I [GOAWAY 913 003253 0000 UNIT, 0 914 003254 0000 TTCODE, 0 915 003255 1053 TAD NO 916 003256 7640 SZA CLA 917 003257 5570 JMP I [SYNTAX 918 003260 4531 JMS I [ONUM 919 003261 7450 SNA 920 003262 5570 JMP I [SYNTAX 921 003263 3057 DCA NUCODE 922 003264 1057 TAD NUCODE 923 003265 0130 AND [7700 924 003266 7640 SZA CLA 925 003267 5551 JMP I [NUMBIG 926 003270 4527 JMS I [TTST1 927 003271 1373 TAD (7200 928 003272 3056 DCA RR 929 003273 4334 JMS GETIOT 930 003274 5526 JMP I [OLDERR 931 003275 7041 CIA 932 003276 3022 DCA T2 933 003277 4334 TTLP, JMS GETIOT 934 003300 5526 JMP I [OLDERR 935 003301 7041 CIA 936 003302 3024 DCA T3 937 003303 1024 TAD T3 938 003304 7041 CIA 939 003305 1022 TAD T2 940 003306 7450 SNA 941 003307 5277 JMP TTLP 942 003310 7700 SMA CLA 943 003311 5314 JMP .+3 944 003312 1024 TAD T3 945 003313 3022 DCA T2 /T2 CONTAINS NEG OF SMALLER IOT 946 003314 1373 TAD (7200 947 003315 3056 DCA RR 948 003316 4334 TTLP2, JMS GETIOT 949 003317 5654 JMP I TTCODE 950 003320 1022 TAD T2 951 003321 7640 SZA CLA 952 003322 7201 CLA IAC 953 003323 1057 TAD NUCODE 954 003324 7106 CLL RTL 955 003325 7004 RAL 956 003326 3024 DCA T3 957 003327 1456 TAD I RR 958 003330 0372 AND (7007 959 003331 1024 TAD T3 960 003332 3456 DCA I RR 961 003333 5316 JMP TTLP2 962 003334 0000 GETIOT, 0 963 003335 2056 ISZ RR 964 003336 1056 TAD RR 965 003337 1371 TAD (-7600 966 003340 7650 SNA CLA 967 003341 5734 JMP I GETIOT 968 003342 1456 TAD I RR 969 003343 0152 AND [7000 970 003344 1173 TAD [-6000 971 003345 7640 SZA CLA 972 003346 5335 JMP GETIOT+1 973 003347 1456 TAD I RR 974 003350 7012 RTR 975 003351 7010 RAR 976 003352 0167 AND [77 977 003353 1370 TAD (-20 978 003354 7110 CLL RAR 979 003355 7450 SNA 980 003356 5335 JMP GETIOT+1 981 003357 7004 RAL 982 003360 1367 TAD (20 983 003361 2334 ISZ GETIOT 984 003362 5734 JMP I GETIOT 985 003367 0020 PAGE 003370 7760 003371 0200 003372 7007 003373 7200 003374 3000 003375 6004 003376 0600 003377 0171 986 003400 3332 MAGSKP, DCA DIR 987 003401 1032 TAD TYP 988 003402 7450 SNA 989 003403 5221 JMP SKPF 990 003404 7710 SPA CLA 991 003405 5232 JMP SKPEOD 992 003406 1031 TAD NUM 993 003407 7450 SNA 994 003410 7201 CLA IAC 995 003411 7041 CIA 996 003412 3315 DCA WC 997 003413 1377 TAD (SKPKOD 998 003414 4310 JMS GO 999 003415 5571 JMP I [GOAWAY 1000 1001 003416 1376 MAGEOF, TAD (EOFKOD 1002 003417 4310 JMS GO 1003 003420 5571 JMP I [GOAWAY 1004 1005 003421 1031 SKPF, TAD NUM 1006 003422 7450 SNA 1007 003423 5342 JMP SKP0 1008 003424 7041 CIA 1009 003425 3315 DCA WC 1010 003426 4775 JMS I (FUDGE /DON'T LET GUY TRICK US INTO GOING PAST EOD 1011 003427 1374 TAD (SKFKOD 1012 003430 4310 JMS GO 1013 003431 5571 JMP I [GOAWAY 1014 1015 003432 4775 SKPEOD, JMS I (FUDGE /DON'T LET GUY TRICK US INTO GOING PAST EOD 1016 003433 4430 JMS I ENTRY 1017 003434 0003 SKFKOD 1018 003435 0000 0 1019 003436 0000 0 /SKIP 4096 FILES 1020 003437 7500 SMA 1021 003440 7610 SKP CLA 1022 003441 5274 JMP CHKBOT 1023 003442 5571 JMP I [GOAWAY 1024 1025 003443 7201 MAGBAK, CLA IAC 1026 003444 3332 DCA DIR 1027 003445 1032 TAD TYP 1028 003446 7650 SNA CLA 1029 003447 5260 JMP BAKF 1030 003450 1031 TAD NUM 1031 003451 7450 SNA 1032 003452 7201 CLA IAC 1033 003453 7041 CIA 1034 003454 3315 DCA WC 1035 003455 1373 TAD (BAKKOD 1036 003456 4310 JMS GO 1037 003457 5571 JMP I [GOAWAY 1038 003460 1031 BAKF, TAD NUM 1039 003461 7040 CMA 1040 003462 3266 DCA WC2 1041 003463 4430 JMS I ENTRY 1042 003464 4003 BKFKOD 1043 003465 0000 0 1044 003466 7777 WC2, -1 / 1045 003467 7500 SMA 1046 003470 7610 SKP CLA 1047 003471 5274 JMP CHKBOT 1048 003472 1377 TAD (SKPKOD /SKIP 1 RECORD FORWARD 1049 003473 5352 JMP SKY 1050 1051 003474 3020 CHKBOT, DCA TEMP 1052 003475 1020 TAD TEMP 1053 003476 0372 AND (1000 1054 003477 7650 SNA CLA 1055 003500 5330 JMP IOE 1056 003501 5771 JMP I (READBT 1057 003502 1370 MAGUNL, TAD (UNLKOD 1058 003503 4310 JMS GO 1059 003504 5571 JMP I [GOAWAY 1060 1061 003505 1367 MAGREW, TAD (REWKOD 1062 003506 4310 JMS GO 1063 003507 5571 JMP I [GOAWAY 1064 1065 003510 0000 GO, 0 1066 003511 3313 DCA FUNCT 1067 003512 4430 JMS I ENTRY 1068 003513 0000 FUNCT, 0 1069 003514 7000 BUFR, 7000 1070 WC, 1071 003515 7777 BLK, -1 1072 003516 7410 SKP /I/O ERROR 1073 003517 5710 JMP I GO 1074 003520 3020 DCA TEMP 1075 003521 1020 TAD TEMP 1076 003522 7700 SMA CLA 1077 003523 5333 JMP END /SOFT ERROR 1078 003524 1020 TAD TEMP 1079 003525 0372 AND (1000 1080 003526 7640 SZA CLA 1081 003527 5525 JMP I [LOADPT 1082 003530 1020 IOE, TAD TEMP 1083 003531 5524 JMP I [IOERR 1084 1085 003532 0000 DIR, 0 /0- FORWARD ; 1- BACKWARDS 1086 1087 003533 1032 END, TAD TYP 1088 003534 7650 SNA CLA 1089 003535 5766 JMP I (EODERR /V3C NEW HANDLER CALL 1090 003536 1332 TAD DIR /SAW FILE MARK 1091 003537 7650 SNA CLA /V3C 1092 003540 5523 JMP I [READEOF /AT END OF FILE 1093 003541 5522 JMP I [READBOF /AT BEGIN OF FILE 1094 003542 4430 SKP0, JMS I ENTRY 1095 003543 0003 SKFKOD 1096 003544 0000 0 /IRRELEVANT 1097 003545 7777 -1 /ADVANCE 1 FILE 1098 003546 7500 SMA 1099 003547 7610 SKP CLA 1100 003550 5524 JMP I [IOERR /HARD ERROR 1101 003551 1373 TAD (BAKKOD 1102 003552 3354 SKY, DCA SKX /V3C 1103 003553 4430 JMS I ENTRY 1104 003554 4002 SKX, BAKKOD 1105 003555 0000 0 /IRREL 1106 003556 7777 -1 /BACK OVER FILE MARK 1107 003557 7500 SMA 1108 003560 7610 SKP CLA 1109 003561 5524 JMP I [IOERR 1110 003562 5571 JMP I [GOAWAY 1111 003566 4066 PAGE 003567 0001 003570 0004 003571 3004 003572 1000 003573 4002 003574 0003 003575 4101 003576 0005 003577 0002 1112 003600 0377 IOERR, AND (3777 1113 003601 7104 CLL RAL 1114 003602 3020 DCA TEMP 1115 003603 4555 JMS I [PRINT 1116 003604 7740 TEXT \? CAN'T - I/O ERROR\ 003605 0301 003606 1647 003607 2440 003610 5540 003611 1157 003612 1740 003613 0522 003614 2217 003615 2200 1117 003616 1376 TAD (-13 /11 BITS TO LOOK AT 1118 003617 3041 DCA CNT 1119 003620 1375 TAD (JLIST 1120 003621 3233 DCA JM 1121 003622 1020 IOLUP, TAD TEMP 1122 003623 7004 RAL 1123 003624 3020 DCA TEMP 1124 003625 7430 SZL 1125 003626 5633 JMP I JM 1126 003627 2233 IOCONT, ISZ JM 1127 003630 2041 ISZ CNT 1128 003631 5222 JMP IOLUP 1129 003632 5571 JMP I [GOAWAY 1130 1131 003633 0000 JM, 0 1132 1133 003634 5247 JLIST, JMP BIT1 1134 003635 5257 JMP BIT2 1135 003636 5264 JMP BIT3 1136 003637 5276 JMP BIT4 1137 003640 5310 JMP BIT5 1138 003641 5315 JMP BIT6 1139 003642 5334 JMP BIT7 1140 003643 5346 JMP BIT8 1141 003644 5774 JMP I (BIT9 1142 003645 5773 JMP I (BIT10 1143 003646 5772 JMP I (BIT11 1144 003647 4555 BIT1, JMS I [PRINT 1145 003650 5022 TEXT /(REWINDING)/ 003651 0527 003652 1116 003653 0411 003654 1607 003655 5100 1146 003656 5227 JMP IOCONT 1147 003657 4555 BIT2, JMS I [PRINT 1148 003660 5002 TEXT /(BOT)/ 003661 1724 003662 5100 1149 003663 5227 JMP IOCONT 1150 003664 4555 BIT3, JMS I [PRINT 1151 003665 5023 TEXT /(SELECT ERROR)/ 003666 0514 003667 0503 003670 2440 003671 0522 003672 2217 003673 2251 003674 0000 1152 003675 5227 JMP IOCONT 1153 003676 4555 BIT4, JMS I [PRINT 1154 003677 5020 TEXT /(PARITY ERROR)/ 003700 0122 003701 1124 003702 3140 003703 0522 003704 2217 003705 2251 003706 0000 1155 003707 5227 JMP IOCONT 1156 003710 4555 BIT5, JMS I [PRINT 1157 003711 5005 TEXT /(EOF)/ 003712 1706 003713 5100 1158 003714 5227 JMP IOCONT 1159 003715 4555 BIT6, JMS I [PRINT 1160 003716 5022 TEXT /(RECORD LENGTH INCORRECT)/ 003717 0503 003720 1722 003721 0440 003722 1405 003723 1607 003724 2410 003725 4011 003726 1603 003727 1722 003730 2205 003731 0324 003732 5100 1161 003733 5227 JMP IOCONT 1162 003734 4555 BIT7, JMS I [PRINT 1163 003735 5024 TEXT /(TIMING ERROR)/ 003736 1115 003737 1116 003740 0740 003741 0522 003742 2217 003743 2251 003744 0000 1164 003745 5227 JMP IOCONT 1165 003746 4555 BIT8, JMS I [PRINT 1166 003747 5005 TEXT /(EOT)/ 003750 1724 003751 5100 1167 003752 5227 JMP IOCONT 1168 003753 7100 RKEUNL, CLL 1169 003754 1030 TAD ENTRY 1170 003755 1371 TAD (200 1171 003756 7620 SNL CLA 1172 003757 1030 TAD ENTRY 1173 003760 0370 AND (6 /ISOLATE UNIT 1174 003761 1367 TAD (2000 /WRITE PROTECT DISK 1175 003762 6746 DLDC /LOAD COMMAND REGISTER 1176 003763 6743 DLAG 1177 003764 5571 JMP I [GOAWAY 1178 003767 2000 PAGE 003770 0006 003771 0200 003772 4030 003773 4013 003774 4000 003775 3634 003776 7765 003777 3777 1179 004000 4555 BIT9, JMS I [PRINT 1180 004001 5027 TEXT /(WRITE LOCK-OUT)/ 004002 2211 004003 2405 004004 4014 004005 1703 004006 1355 004007 1725 004010 2451 004011 0000 1181 004012 5777 JMP I (IOCONT 1182 004013 4555 BIT10, JMS I [PRINT 1183 004014 5022 TEXT /(READ COMPARE ERROR)/ 004015 0501 004016 0440 004017 0317 004020 1520 004021 0122 004022 0540 004023 0522 004024 2217 004025 2251 004026 0000 1184 004027 5777 JMP I (IOCONT 1185 004030 4555 BIT11, JMS I [PRINT 1186 004031 5011 TEXT /(ILLEGAL FUNCTION)/ 004032 1414 004033 0507 004034 0114 004035 4006 004036 2516 004037 0324 004040 1117 004041 1651 004042 0000 1187 004043 5777 JMP I (IOCONT 1188 004044 4555 NOTIMPL,JMS I [PRINT 1189 004045 4540 TEXT /% OPERATION NOT YET IMPLEMENTED/ 004046 1720 004047 0522 004050 0124 004051 1117 004052 1640 004053 1617 004054 2440 004055 3105 004056 2440 004057 1115 004060 2014 004061 0515 004062 0516 004063 2405 004064 0400 1190 004065 5571 JMP I [GOAWAY 1191 004066 4555 EODERR, JMS I [PRINT 1192 004067 7740 TEXT /? CAN'T - AT EOD/ 004070 0301 004071 1647 004072 2440 004073 5540 004074 0124 004075 4005 004076 1704 004077 0000 1193 004100 5571 JMP I [GOAWAY 1194 /THIS ROUTINE PREVENTS US FROM GOING PAST EOD WHEN 1195 /SKIPPING FORWARD FILES. 1196 /IT DOES THIS BY THE FOLLOWING ALGORITHM: 1197 /FIRST WE BACKSPACE A RECORD. 1198 /IF WE SAW DATA, THEN OK, WE RETURN TO THE USER; 1199 /THIS WILL NOT AFFECT HIS SKIP FILE COUNT. 1200 /IF WE SAW A FILE MARK, THEN WE SKIP FORWARD 1201 /BACK OVER THAT FILE, IGNORING THE FILE MARK ERROR. 1202 /IF WE SAW BOT, THEN, OK NO ERROR. 1203 1204 004101 0000 FUDGE, 0 1205 004102 4430 JMS I ENTRY /V3C ALL NEW 1206 004103 4002 BAKKOD 1207 004104 0000 TM, 0 1208 004105 7777 -1 1209 004106 7410 SKP 1210 004107 5701 JMP I FUDGE 1211 004110 7510 SPA 1212 004111 4315 JMS BER 1213 004112 7640 SZA CLA 1214 004113 4325 JMS FRWD 1215 004114 5701 JMP I FUDGE 1216 1217 /IF ERROR WAS BOT, OK 1218 1219 004115 0000 BER, 0 1220 004116 3304 DCA TM 1221 004117 1304 TAD TM 1222 004120 0376 AND (1000 1223 004121 7640 SZA CLA 1224 004122 5715 JMP I BER /BOT OK, NO FRWD 1225 004123 1304 TAD TM 1226 004124 5524 JMP I [IOERR 1227 1228 004125 0000 FRWD, 0 1229 004126 4430 JMS I ENTRY 1230 004127 0002 SKPKOD 1231 004130 0000 0 1232 004131 7777 -1 1233 004132 7500 SMA 1234 004133 7610 SKP CLA 1235 004134 5524 JMP I [IOERR 1236 004135 5725 JMP I FRWD 1237 004176 1000 PAGE 004177 3627 1238 004200 4574 SET, JMS I [SPACE 1239 004201 3051 DCA VNO /V3C 1240 004202 4544 JMS I [GETDEV 1241 004203 4564 JMS I [GETC 1242 004204 4572 JMS I [BRANCH 1243 004205 7506 -":;COLN 004206 4215 1244 004207 7540 -" ;COLN 004210 4215 1245 004211 7523 -"-;HYPH 004212 4277 1246 004213 0000 0 1247 004214 5570 JMP I [SYNTAX /NO : OR BLANK AFTER NAME 1248 004215 7240 COLN, STA 1249 004216 4574 JMS I [SPACE /IGNORE OPTIONAL SPACES 1250 004217 4564 JMS I [GETC 1251 004220 7450 SNA 1252 004221 5570 JMP I [SYNTAX 1253 004222 1377 TAD (-"- 1254 004223 7650 SNA CLA 1255 004224 5277 JMP HYPH 1256 004225 4553 JMS I [BACKC 1257 004226 3335 COLN2, DCA NAM1 1258 004227 3336 DCA NAM2 1259 004230 1376 TAD (MAIN-1 /LOOK FOR DEVICE TYPE IN MAIN TABLE 1260 004231 3011 MNLUP, DCA XR1 1261 004232 1411 TAD I XR1 1262 004233 7540 SMA SZA 1263 004234 5350 JMP NOTYP /NOT FOUND 1264 004235 1027 TAD DEVTYP 1265 004236 7650 SNA CLA 1266 004237 5243 JMP FNDTYP 1267 004240 1011 TAD XR1 1268 004241 1375 TAD (3 /POINT TO NEXT ENTRY 1269 004242 5231 JMP MNLUP 1270 004243 1411 FNDTYP, TAD I XR1 /GET GENERIC NAME 1271 004244 3335 DCA NAM1 1272 004245 1411 TAD I XR1 1273 004246 3336 DCA NAM2 1274 004247 3360 DCA AUXFLG 1275 004250 1411 TAD I XR1 /GET PTR TO DEVICE TABLE 1276 004251 3044 INTO, DCA PTR 1277 004252 3053 DCA NO 1278 004253 1023 TAD LINPTR 1279 004254 3052 DCA SAVPTR /SAVE SCAN POINTER 1280 004255 4534 JMS I [GETTWO 1281 004256 1374 TAD (-1617 1282 004257 7650 SNA CLA /ARE NEXT TWO CHARS 'NO'? 1283 004260 4341 JMS SAWNO /YES 1284 004261 1052 TAD SAVPTR /NO 1285 004262 3023 DCA LINPTR /RESTORE PTR 1286 004263 1444 SCNLUP, TAD I PTR 1287 004264 7450 SNA /GET NEXT KEYWORD POINTER 1288 004265 5311 JMP NOKEY 1289 004266 2044 ISZ PTR /POINT TO PTR TO ROUTINE 1290 004267 4521 JMS I [KEYSRCH 1291 004270 5354 JMP NOF /NOT FOUND 1292 004271 1444 TAD I PTR /FOUND 1293 004272 3044 DCA PTR /GET PTR TO ROUTINE 1294 004273 4773 JMS I (HREAD /READ HANDLER 1295 004274 4444 JMS I PTR /CALL ROUTINE 1296 004275 4772 JMS I (HWRITE /REWRITE HANDLER 1297 004276 5571 JMP I [GOAWAY 1298 004277 4554 HYPH, JMS I [ALPHA 1299 004300 5520 JMP I [BADV 1300 004301 3051 DCA VNO 1301 004302 1051 TAD VNO 1302 004303 7450 SNA 1303 004304 5520 JMP I [BADV 1304 004305 0117 AND [17 1305 004306 3051 DCA VNO 1306 004307 4574 JMS I [SPACE /IGNORE SPACE 1307 004310 5226 JMP COLN2 1308 004311 1360 NOKEY, TAD AUXFLG 1309 004312 7650 SNA CLA 1310 004313 5361 JMP NOO 1311 004314 4555 JMS I [PRINT 1312 004315 7740 TEXT \? UNKNOWN ATTRIBUTE FOR DEVICE \ 004316 2516 004317 1316 004320 1727 004321 1640 004322 0124 004323 2422 004324 1102 004325 2524 004326 0540 004327 0617 004330 2240 004331 0405 004332 2611 004333 0305 004334 4040 004335 0000 1313 *.-1 1314 004335 0000 NAM1, 0 1315 004336 0000 NAM2, 0 1316 004337 0000 0 1317 004340 5571 JMP I [GOAWAY 1318 1319 004341 0000 SAWNO, 0 1320 004342 2053 ISZ NO 1321 004343 7240 STA 1322 004344 4574 JMS I [SPACE 1323 004345 1023 TAD LINPTR 1324 004346 3052 DCA SAVPTR 1325 004347 5741 JMP I SAWNO 1326 1327 004350 7200 NOTYP, CLA 1328 004351 2360 ISZ AUXFLG 1329 004352 1371 TAD (AUX /SEARCH AUXILIARY TABLE 1330 004353 5251 JMP INTO 1331 004354 2044 NOF, ISZ PTR 1332 004355 1052 TAD SAVPTR 1333 004356 3023 DCA LINPTR 1334 004357 5263 JMP SCNLUP 1335 1336 004360 0000 AUXFLG, 0 1337 1338 004361 2360 NOO, ISZ AUXFLG 1339 004362 1371 TAD (AUX 1340 004363 3044 DCA PTR 1341 004364 5263 JMP SCNLUP 1342 004371 4747 PAGE 004372 4502 004373 4400 004374 6161 004375 0003 004376 4577 004377 7523 1343 004400 0000 HREAD, 0 1344 004401 1047 TAD DBLK 1345 004402 7450 SNA 1346 004403 5240 JMP RESERR 1347 004404 3210 DCA BLOCK 1348 004405 4777 JMS I (7607 1349 004406 0200 200 /READ 2 PAGES 1350 004407 7200 L7200, 7200 /INTO 7200-7577 1351 004410 0000 BLOCK, 0 /FROM THIS BLOCK ON SYSTEM DEVICE 1352 004411 5516 JMP I [SYSERR 1353 004412 1046 TAD DHI 1354 004413 0376 AND (177 /GET RELATIVE ENTRY PT 1355 004414 1207 TAD L7200 1356 004415 3030 DCA ENTRY 1357 004416 1051 TAD VNO 1358 004417 7640 SZA CLA /V3C 1359 004420 5600 JMP I HREAD /VNO ALREADY SET BY - COMMAND 1360 004421 1030 TAD ENTRY 1361 004422 3050 VLOOP, DCA VNOPTR 1362 004423 1450 TAD I VNOPTR 1363 004424 7100 CLL 1364 004425 1375 TAD (-33 1365 004426 7630 SZL CLA 1366 004427 5235 JMP BACKV 1367 004430 1450 TAD I VNOPTR 1368 004431 7450 SNA 1369 004432 5261 JMP OLDERR 1370 004433 3051 DCA VNO 1371 004434 5600 JMP I HREAD 1372 004435 7240 BACKV, STA 1373 004436 1050 TAD VNOPTR 1374 004437 5222 JMP VLOOP 1375 1376 004440 4555 RESERR, JMS I [PRINT 1377 004441 7740 TEXT /? CAN'T - DEVICE IS RESIDENT/ 004442 0301 004443 1647 004444 2440 004445 5540 004446 0405 004447 2611 004450 0305 004451 4011 004452 2340 004453 2205 004454 2311 004455 0405 004456 1624 004457 0000 1378 004460 5571 JMP I [GOAWAY 1379 004461 7200 OLDERR, CLA 1380 004462 4555 JMS I [PRINT 1381 004463 7740 TEXT /? CAN'T - OBSOLETE HANDLER/ 004464 0301 004465 1647 004466 2440 004467 5540 004470 1702 004471 2317 004472 1405 004473 2405 004474 4010 004475 0116 004476 0414 004477 0522 004500 0000 1382 004501 5571 JMP I [GOAWAY 1383 1384 004502 0000 HWRITE, 0 1385 004503 1210 TAD BLOCK 1386 004504 3310 DCA BLKTWO 1387 004505 4777 JMS I (7607 1388 004506 4200 4200 1389 004507 7200 7200 1390 004510 0000 BLKTWO, 0 1391 004511 5516 JMP I [SYSERR 1392 004512 5702 JMP I HWRITE 1393 004513 7200 NEWERR, CLA 1394 004514 4555 JMS I [PRINT 1395 004515 7740 TEXT /? CAN'T - UNKNOWN VERSION OF THIS HANDLER/ 004516 0301 004517 1647 004520 2440 004521 5540 004522 2516 004523 1316 004524 1727 004525 1640 004526 2605 004527 2223 004530 1117 004531 1640 004532 1706 004533 4024 004534 1011 004535 2340 004536 1001 004537 1604 004540 1405 004541 2200 1396 004542 5571 JMP I [GOAWAY 1397 004575 7745 PAGE 004576 0177 004577 7607 1398 004600 0000 MAIN, -0; DEVICE TTY; TTYTBL 004601 2424 004602 3100 004603 4706 1399 004604 7777 -1; DEVICE PTR; PTRTBL 004605 2024 004606 2200 004607 5705 1400 004610 7776 -2; DEVICE PTP; PTPTBL 004611 2024 004612 2000 004613 5712 1401 004614 7775 -3; DEVICE CDR; CDRTBL 004615 0304 004616 2200 004617 4651 1402 004620 7774 -4; DEVICE LPT; LPTTBL 004621 1420 004622 2400 004623 4660 1403 004624 7760 -20; DEVICE MTA; MTATBL 004625 1524 004626 0100 004627 4673 1404 004630 0001 1 1405 004631 0000 ZBLOCK 20 004632 0000 004633 0000 004634 0000 004635 0000 004636 0000 004637 0000 004640 0000 004641 0000 004642 0000 004643 0000 004644 0000 004645 0000 004646 0000 004647 0000 004650 0000 1406 /TABLE ENDS WITH A POSITIVE NON-ZERO NUMBER 1407 004651 5016 CDRTBL, CODE;CDCODE 004652 6502 1408 004653 0000 ZBLOCK 4 004654 0000 004655 0000 004656 0000 1409 004657 0000 0 1410 1411 004660 5000 LPTTBL, WIDTH;LPWDTH 004661 5200 1412 004662 5006 LC;LPLC 004663 5410 1413 004664 5011 LV8E;LPLV 004665 5400 1414 004666 0000 ZBLOCK 4 004667 0000 004670 0000 004671 0000 1415 004672 0000 0 1416 1417 004673 5111 MTATBL, PARITY;MTAPAR 004674 6400 1418 004675 5120 DENSITY;MTADEN 004676 6452 1419 004677 5062 FILES;MTAFIL 004700 6461 1420 004701 0000 ZBLOCK 4 004702 0000 004703 0000 004704 0000 1421 004705 0000 0 1422 004706 5000 TTYTBL, WIDTH;TTWIDTH 004707 6053 1423 004710 5016 CODE;TTCODE 004711 3254 1424 004712 5023 ALT;TTALT 004713 5421 1425 004714 5033 ECHO;TTECHO 004715 5425 1426 004716 5006 LC;TTLC 004717 6023 1427 004720 5040 PAYGE;TTPAGE 004721 5435 1428 004722 5045 TAB;TTTAB 004723 5467 1429 004724 5130 FILL;TTFILL 004725 5600 1430 004726 5135 FLAGG;TTFLAG 004727 6004 1431 004730 5142 CTRL;TTCTRL 004731 6047 1432 004732 5166 GAG;TTGAG 004733 6000 1433 004734 5160 DELAY;TTDELAY 004735 5646 1434 004736 0000 ZBLOCK 10 004737 0000 004740 0000 004741 0000 004742 0000 004743 0000 004744 0000 004745 0000 1435 004746 0000 0 1436 1437 004747 5051 AUX, LOC;GENLOC 004750 6271 1438 004751 5062 FILES;GENFIL 004752 5327 1439 004753 5070 READO;GENREA 004754 5313 1440 004755 5101 VERS;GENVER 004756 5274 1441 004757 0000 ZBLOCK 10 004760 0000 004761 0000 004762 0000 004763 0000 004764 0000 004765 0000 004766 0000 1442 004767 0000 0 1443 PAGE 1444 005000 0327 WIDTH, "W;"I;"D;"T;"H;0 005001 0311 005002 0304 005003 0324 005004 0310 005005 0000 1445 005006 0314 LC, "L;"C;0 005007 0303 005010 0000 1446 005011 0314 LV8E, "L;"V;4000+"8;4000+"E;0 005012 0326 005013 4270 005014 4305 005015 0000 1447 005016 0303 CODE, "C;"O;"D;"E;0 005017 0317 005020 0304 005021 0305 005022 0000 1448 005023 0301 ALT, "A;"L;"T;4000+"M;4000+"O;4000+"D;4000+"E;0 005024 0314 005025 0324 005026 4315 005027 4317 005030 4304 005031 4305 005032 0000 1449 005033 0305 ECHO, "E;"C;"H;"O;0 005034 0303 005035 0310 005036 0317 005037 0000 1450 005040 0320 PAYGE, "P;"A;"G;"E;0 005041 0301 005042 0307 005043 0305 005044 0000 1451 005045 0324 TAB, "T;"A;"B;0 005046 0301 005047 0302 005050 0000 1452 005051 0314 LOC, "L;"O;"C;4000+"A;4000+"T;4000+"I;4000+"O;4000+"N;0 005052 0317 005053 0303 005054 4301 005055 4324 005056 4311 005057 4317 005060 4316 005061 0000 1453 005062 0306 FILES, "F;"I;"L;"E;4000+"S;0 005063 0311 005064 0314 005065 0305 005066 4323 005067 0000 1454 005070 0322 READO, "R;"E;"A;"D;4000+"O;4000+"N;4000+"L;4000+"Y;0 005071 0305 005072 0301 005073 0304 005074 4317 005075 4316 005076 4314 005077 4331 005100 0000 1455 005101 0326 VERS, "V;"E;"R;4000+"S;4000+"I;4000+"O;4000+"N;0 005102 0305 005103 0322 005104 4323 005105 4311 005106 4317 005107 4316 005110 0000 1456 005111 0320 PARITY, "P;"A;"R;4000+"I;4000+"T;4000+"Y;0 005112 0301 005113 0322 005114 4311 005115 4324 005116 4331 005117 0000 1457 005120 0304 DENSITY,"D;"E;"N;4000+"S;4000+"I;4000+"T;4000+"Y;0 005121 0305 005122 0316 005123 4323 005124 4311 005125 4324 005126 4331 005127 0000 1458 005130 0306 FILL, "F;"I;"L;"L;0 005131 0311 005132 0314 005133 0314 005134 0000 1459 005135 0306 FLAGG, "F;"L;"A;"G;0 005136 0314 005137 0301 005140 0307 005141 0000 1460 005142 0303 CTRL, "C;"T;"R;"L;0 005143 0324 005144 0322 005145 0314 005146 0000 1461 005147 0305 EVEN, "E;4000+"V;4000+"E;4000+"N;0 005150 4326 005151 4305 005152 4316 005153 0000 1462 005154 0317 ODD, "O;4000+"D;4000+"D;0 005155 4304 005156 4304 005157 0000 1463 005160 0304 DELAY, "D;"E;"L;"A;"Y;0 005161 0305 005162 0314 005163 0301 005164 0331 005165 0000 1464 005166 0307 GAG, "G;"A;"G;0 005167 0301 005170 0307 005171 0000 1465 PAGE 1466 005200 0000 LPWDTH, 0 1467 005201 4777 JMS I (GETWID 1468 005202 4207 JMS LPTST1 1469 005203 1031 TAD NUM 1470 005204 7040 CMA 1471 005205 3776 DCA I (7200 1472 005206 5600 JMP I LPWDTH 1473 1474 005207 0000 LPTST1, 0 1475 005210 1775 TAD I (7201 1476 005211 7710 SPA CLA 1477 005212 5230 JMP L645 1478 005213 1051 TAD VNO 1479 005214 4572 JMS I [BRANCH 1480 005215 7777 -1;OLDERR 005216 4461 1481 005217 7776 -2;LPTOK 005220 5227 1482 005221 0000 ZBLOCK 4 005222 0000 005223 0000 005224 0000 1483 005225 0000 0 1484 005226 5515 JMP I [NEWERR 1485 005227 5607 LPTOK, JMP I LPTST1 1486 1487 005230 4555 L645, JMS I [PRINT 1488 005231 7740 TEXT /? CAN'T AFFECT ANNALEX LPT/ 005232 0301 005233 1647 005234 2440 005235 0106 005236 0605 005237 0324 005240 4001 005241 1616 005242 0114 005243 0530 005244 4014 005245 2024 005246 0000 1489 005247 5571 JMP I [GOAWAY 1490 005250 0000 ASRTST, 0 1491 005251 1046 TAD DHI 1492 005252 7710 SPA CLA 1493 005253 5650 JMP I ASRTST 1494 005254 4555 JMS I [PRINT 1495 005255 7740 TEXT /? CAN'T - NOT KL8E HANDLER/ 005256 0301 005257 1647 005260 2440 005261 5540 005262 1617 005263 2440 005264 1314 005265 7005 005266 4010 005267 0116 005270 0414 005271 0522 005272 0000 1496 005273 5571 JMP I [GOAWAY 1497 005274 0000 GENVER, 0 1498 005275 1053 TAD NO 1499 005276 7640 SZA CLA 1500 005277 5570 JMP I [SYNTAX 1501 005300 4554 JMS I [ALPHA 1502 005301 5342 JMP BADV 1503 005302 3031 DCA NUM 1504 005303 1031 TAD NUM 1505 005304 0374 AND (40 1506 005305 7640 SZA CLA 1507 005306 5342 JMP BADV 1508 005307 1031 TAD NUM 1509 005310 0373 AND (37 1510 005311 3450 DCA I VNOPTR 1511 005312 5674 JMP I GENVER 1512 1513 005313 0000 GENREA, 0 1514 005314 6211 CDF 10 1515 005315 1436 TAD I DCWPTR 1516 005316 7106 CLL RTL 1517 005317 7104 CLL RAL 1518 005320 1053 TAD NO 1519 005321 7010 RAR 1520 005322 7030 CML RAR 1521 005323 7010 RAR 1522 005324 3436 DCA I DCWPTR 1523 005325 6201 CDF 0 1524 005326 5713 JMP I GENREA 1525 1526 005327 0000 GENFIL, 0 1527 005330 6211 CDF 10 1528 005331 1436 TAD I DCWPTR 1529 005332 7104 CLL RAL 1530 005333 7104 CLL RAL /ZERO LINK 1531 005334 1053 TAD NO 1532 005335 7010 RAR 1533 005336 7030 CML RAR 1534 005337 3436 DCA I DCWPTR 1535 005340 6201 CDF 0 1536 005341 5727 JMP I GENFIL 1537 005342 7200 BADV, CLA 1538 005343 4555 JMS I [PRINT 1539 005344 7740 TEXT /? BAD VERSION LETTER/ 005345 0201 005346 0440 005347 2605 005350 2223 005351 1117 005352 1640 005353 1405 005354 2424 005355 0522 005356 0000 1540 005357 5571 JMP I [GOAWAY 1541 1542 005360 0000 CRLF, 0 1543 005361 1114 TAD [215 1544 005362 4772 JMS I (TYPE 1545 005363 1113 TAD [212 1546 005364 4772 JMS I (TYPE 1547 005365 5760 JMP I CRLF 1548 005372 2335 PAGE 005373 0037 005374 0040 005375 7201 005376 7200 005377 6112 1549 005400 0000 LPLV, 0 1550 005401 4777 JMS I (LPTST1 1551 005402 1053 TAD NO 1552 005403 7106 CLL RTL 1553 005404 7006 RTL 1554 005405 1376 TAD (4 1555 005406 3775 DCA I (7201 1556 005407 5600 JMP I LPLV 1557 1558 005410 0000 LPLC, 0 1559 005411 4777 JMS I (LPTST1 1560 005412 1053 TAD NO 1561 005413 7106 CLL RTL 1562 005414 7006 RTL 1563 005415 7004 RAL 1564 005416 7041 CIA 1565 005417 3774 DCA I (7202 1566 005420 5610 JMP I LPLC 1567 1568 005421 0000 TTALT, 0 1569 005422 4527 JMS I [TTST1 1570 005423 5512 JMP I [NOTIMPL 1571 005424 5621 JMP I TTALT 1572 1573 005425 0000 TTECHO, 0 1574 005426 4527 JMS I [TTST1 1575 005427 1053 TAD NO 1576 005430 7640 SZA CLA 1577 005431 1373 TAD (SKP CLA-SZA 1578 005432 1372 TAD (SZA 1579 005433 3771 DCA I (7200+120 1580 005434 5625 JMP I TTECHO 1581 1582 005435 0000 TTPAGE, 0 1583 005436 4770 JMS I (ASRTST 1584 005437 1051 TAD VNO 1585 005440 4572 JMS I [BRANCH 1586 005441 7777 -1;OLDERR 005442 4461 1587 005443 7776 -2;OLDERR 005444 4461 1588 005445 7775 -3;OLDERR 005446 4461 1589 005447 7774 -4;PAGOK 005450 5455 1590 005451 0000 ZBLOCK 2 005452 0000 1591 005453 0000 0 1592 005454 5515 JMP I [NEWERR 1593 005455 1767 PAGOK, TAD I (7200+216 1594 005456 1366 TAD (-SNA 1595 005457 7640 SZA CLA 1596 005460 5511 JMP I [REASEM 1597 005461 1053 TAD NO 1598 005462 7650 SNA CLA 1599 005463 1365 TAD (SZA CLA-CLA 1600 005464 1364 TAD (CLA 1601 005465 3767 DCA I (7200+216 1602 005466 5635 JMP I TTPAGE 1603 005467 0000 TTTAB, 0 1604 005470 4527 JMS I [TTST1 1605 005471 4564 JMS I [GETC 1606 005472 7450 SNA 1607 005473 5303 JMP TTEO 1608 005474 1363 TAD (-"/ 1609 005475 7650 SNA CLA 1610 005476 4564 JMS I [GETC 1611 005477 1362 TAD (-"N 1612 005500 7640 SZA CLA 1613 005501 5570 JMP I [SYNTAX 1614 005502 5310 JMP NOTEC 1615 005503 1053 TTEO, TAD NO 1616 005504 7650 SNA CLA 1617 005505 1361 TAD (5000 1618 005506 1311 TAD L200 1619 005507 4760 JMS I (TECO 1620 005510 4510 NOTEC, JMS I [SRCH 1621 005511 0200 L200, 200;100;7 005512 0100 005513 0007 1622 005514 5511 JMP I [REASEM 1623 005515 3020 DCA TEMP 1624 005516 7344 STA CLL RAL /-2 1625 005517 1020 TAD TEMP 1626 005520 3022 DCA T2 1627 005521 1020 TAD TEMP 1628 005522 1357 TAD (3 1629 005523 3024 DCA T3 1630 005524 1053 TAD NO 1631 005525 7650 SNA CLA 1632 005526 5341 JMP SETAB 1633 005527 1020 TAD TEMP 1634 005530 1356 TAD (-4 1635 005531 3033 DCA T4 1636 005532 1033 TAD T4 1637 005533 0355 AND (77 1638 005534 1354 TAD (1200 /TAD TTY240 1639 005535 3422 DCA I T2 1640 005536 1353 TAD (SZA CLA 1641 005537 3424 DCA I T3 1642 005540 5667 JMP I TTTAB 1643 005541 1020 SETAB, TAD TEMP 1644 005542 1352 TAD (-12 1645 005543 3033 DCA T4 1646 005544 1433 TAD I T4 1647 005545 3422 DCA I T2 1648 005546 1351 TAD (SKP CLA 1649 005547 3424 DCA I T3 1650 005550 5667 JMP I TTTAB 1651 005551 7610 PAGE 005552 7766 005553 7640 005554 1200 005555 0077 005556 7774 005557 0003 005560 6654 005561 5000 005562 7462 005563 7521 005564 7200 005565 0440 005566 0330 005567 7416 005570 5250 005571 7320 005572 7440 005573 0150 005574 7202 005575 7201 005576 0004 005577 5207 1652 005600 0000 TTFILL, 0 1653 005601 4527 JMS I [TTST1 1654 005602 4510 JMS I [SRCH 1655 005603 0200 200;100;1377 005604 0100 005605 1377 1656 005606 5511 JMP I [REASEM 1657 005607 1377 TAD (-1 1658 005610 3020 DCA TEMP 1659 005611 1053 TAD NO 1660 005612 7104 CLL RAL 1661 005613 1376 TAD (2 1662 005614 1020 TAD TEMP 1663 005615 3022 DCA T2 1664 005616 1422 TAD I T2 1665 005617 3420 DCA I TEMP 1666 005620 5600 JMP I TTFILL 1667 1668 005621 4555 REASEM, JMS I [PRINT 1669 005622 7740 TEXT /? CAN'T - MUST REASSEMBLE KL8E SOURCE/ 005623 0301 005624 1647 005625 2440 005626 5540 005627 1525 005630 2324 005631 4022 005632 0501 005633 2323 005634 0515 005635 0214 005636 0540 005637 1314 005640 7005 005641 4023 005642 1725 005643 2203 005644 0500 1670 005645 5571 JMP I [GOAWAY 1671 1672 005646 0000 TTDELAY,0 1673 005647 4527 JMS I [TTST1 1674 005650 5512 JMP I [NOTIMPL 1675 005651 5646 JMP I TTDELAY 1676 /ENTER WITH PTR TO POSSIBLE KEYWORD IN AC 1677 1678 005652 0000 KEYSRCH,0 1679 005653 3277 DCA KPTR 1680 005654 1677 KL, TAD I KPTR 1681 005655 2277 ISZ KPTR 1682 005656 7450 SNA 1683 005657 5300 JMP GOTKEY 1684 005660 7041 CIA 1685 005661 3020 DCA TEMP 1686 005662 4554 JMS I [ALPHA /IS IT ALPHANUMERIC? 1687 005663 5271 JMP EOK /NO 1688 005664 1020 TAD TEMP /COMPARE 1689 005665 7104 CLL RAL /LOW ORDER 11 BITS 1690 005666 7650 SNA CLA 1691 005667 5254 JMP KL /MATCHED, KEEP LOOKING 1692 005670 5652 JMP I KEYSRCH /DIDN'T MATCH 1693 005671 4553 EOK, JMS I [BACKC 1694 005672 1020 TAD TEMP 1695 005673 7041 CIA /INPUT STREAM RAN OUT OR HIT SPACE 1696 005674 7710 SPA CLA 1697 005675 5300 JMP GOTKEY /SPACE OR EOL MATCH FLAGGED CHARACTER 1698 005676 5652 JMP I KEYSRCH 1699 1700 005677 0000 KPTR, 0 1701 1702 005700 4573 GOTKEY, JMS I [SCAN 1703 005701 7240 STA /SKIP EXTRA STUFF 1704 005702 4574 JMS I [SPACE 1705 005703 2252 ISZ KEYSRCH /TAKE GOOD RETURN 2 1706 005704 5652 JMP I KEYSRCH 1707 1708 005705 0000 PTRTBL, ZBLOCK 4 005706 0000 005707 0000 005710 0000 1709 005711 0000 0 1710 1711 005712 0000 PTPTBL, ZBLOCK 4 005713 0000 005714 0000 005715 0000 1712 005716 0000 0 1713 005776 0002 PAGE 005777 7777 1714 006000 0000 TTGAG, 0 1715 006001 4333 JMS TTST1 1716 006002 5512 JMP I [NOTIMPL 1717 006003 5600 JMP I TTGAG 1718 1719 006004 0000 TTFLAG, 0 1720 006005 4333 JMS TTST1 1721 006006 4510 JMS I [SRCH 1722 006007 0200 200;200;247 006010 0200 006011 0247 1723 006012 5511 JMP I [REASEM 1724 006013 1377 TAD (-2 1725 006014 3020 DCA TEMP 1726 006015 1053 TAD NO 1727 006016 7650 SNA CLA 1728 006017 1376 TAD (SZA CLA-CLA 1729 006020 1375 TAD (CLA 1730 006021 3420 DCA I TEMP 1731 006022 5604 JMP I TTFLAG 1732 1733 006023 0000 TTLC, 0 1734 006024 4333 JMS TTST1 1735 006025 4510 JMS I [SRCH 1736 006026 0200 200;200;377 006027 0200 006030 0377 1737 006031 5511 JMP I [REASEM 1738 006032 1374 TAD (5 1739 006033 3020 DCA TEMP 1740 006034 1420 TAD I TEMP 1741 006035 7100 CLL 1742 006036 1165 TAD [200 1743 006037 7620 SNL CLA 1744 006040 5511 JMP I [REASEM 1745 006041 1053 TAD NO 1746 006042 7650 SNA CLA 1747 006043 1107 TAD [40 /SNA CLA 1748 006044 1373 TAD (7610 /SKP CLA 1749 006045 3420 DCA I TEMP 1750 006046 5623 JMP I TTLC 1751 1752 006047 0000 TTCTRL, 0 1753 006050 4333 JMS TTST1 1754 006051 5512 JMP I [NOTIMPL 1755 006052 5647 JMP I TTCTRL 1756 006053 0000 TTWIDTH,0 1757 006054 4312 JMS GETWID 1758 006055 4333 JMS TTST1 1759 006056 1031 TAD NUM 1760 006057 0106 AND [7 1761 006060 7640 SZA CLA 1762 006061 5505 JMP I [BADWID 1763 006062 1031 TAD NUM 1764 006063 1156 TAD [-200 1765 006064 7650 SNA CLA 1766 006065 5505 JMP I [BADWID 1767 006066 4510 JMS I [SRCH 1768 006067 0200 200;200;7600 006070 0200 006071 7600 1769 006072 5511 JMP I [REASEM 1770 006073 7001 IAC 1771 006074 3020 DCA TEMP 1772 006075 1420 TAD I TEMP 1773 006076 0166 AND [177 1774 006077 1372 TAD (177+7200 1775 006100 3022 DCA T2 1776 006101 1020 TAD TEMP 1777 006102 7001 IAC 1778 006103 3024 DCA T3 1779 006104 1031 TAD NUM 1780 006105 7041 CIA 1781 006106 3424 DCA I T3 1782 006107 1424 TAD I T3 1783 006110 3422 DCA I T2 1784 006111 5653 JMP I TTWIDTH 1785 006112 0000 GETWID, 0 1786 006113 1053 TAD NO 1787 006114 7640 SZA CLA 1788 006115 5570 JMP I [SYNTAX 1789 006116 4356 JMS OPTEQ 1790 006117 4536 JMS I [NUMBER 1791 006120 7450 SNA 1792 006121 5771 JMP I (BADWID 1793 006122 3031 DCA NUM 1794 006123 1054 TAD FLG 1795 006124 7640 SZA CLA 1796 006125 5570 JMP I [SYNTAX /NO DIGITS 1797 006126 1031 TAD NUM 1798 006127 0104 AND [7400 1799 006130 7640 SZA CLA 1800 006131 5551 JMP I [NUMBIG 1801 006132 5712 JMP I GETWID 1802 1803 006133 0000 TTST1, 0 1804 006134 4770 JMS I (ASRTST 1805 006135 1051 TAD VNO 1806 006136 4572 JMS I [BRANCH 1807 006137 7777 -1;OLDERR 006140 4461 1808 006141 7776 -2;OLDERR 006142 4461 1809 006143 7775 -3;TTOK 006144 6155 1810 006145 7774 -4;TTOK /V3C 006146 6155 1811 006147 0000 ZBLOCK 4 006150 0000 006151 0000 006152 0000 1812 006153 0000 0 1813 006154 5515 JMP I [NEWERR 1814 006155 5733 TTOK, JMP I TTST1 1815 006156 0000 OPTEQ, 0 1816 006157 4564 JMS I [GETC 1817 006160 1367 TAD (-"= 1818 006161 7640 SZA CLA 1819 006162 5365 JMP NOE 1820 006163 4574 JMS I [SPACE 1821 006164 5756 JMP I OPTEQ 1822 006165 4553 NOE, JMS I [BACKC 1823 006166 5756 JMP I OPTEQ 1824 006167 7503 PAGE 006170 5250 006171 6200 006172 7377 006173 7610 006174 0005 006175 7200 006176 0440 006177 7776 1825 006200 4555 BADWID, JMS I [PRINT 1826 006201 7740 TEXT /? ILLEGAL WIDTH/ 006202 1114 006203 1405 006204 0701 006205 1440 006206 2711 006207 0424 006210 1000 1827 006211 5571 JMP I [GOAWAY 1828 1829 006212 0000 OPRIN, 0 1830 006213 3237 DCA N3 1831 006214 1377 TAD (-4 1832 006215 3236 DCA OKNT 1833 006216 1237 OPLP, TAD N3 1834 006217 4227 JMS DGP 1835 006220 1237 TAD N3 1836 006221 7006 RTL 1837 006222 7004 RAL 1838 006223 3237 DCA N3 1839 006224 2236 ISZ OKNT 1840 006225 5216 JMP OPLP 1841 006226 5612 JMP I OPRIN 1842 1843 006227 0000 DGP, 0 1844 006230 7006 RTL 1845 006231 7006 RTL 1846 006232 0106 AND [7 1847 006233 1103 TAD [60 1848 006234 4577 JMS I [TYPE 1849 006235 5627 JMP I DGP 1850 1851 006236 0000 OKNT, 0 1852 006237 0000 N3, 0 1853 006240 0000 NUM2, 0 1854 006241 0000 GTEM, 0 1855 006242 0000 SRCH, 0 1856 006243 1642 TAD I SRCH 1857 006244 2242 ISZ SRCH 1858 006245 1376 TAD (7200-1 1859 006246 3011 DCA XR1 1860 006247 1642 TAD I SRCH 1861 006250 2242 ISZ SRCH 1862 006251 7041 CIA 1863 006252 3041 DCA CNT 1864 006253 1642 TAD I SRCH 1865 006254 7041 CIA 1866 006255 3020 DCA TEMP 1867 006256 2242 ISZ SRCH 1868 006257 1411 SRLUP, TAD I XR1 1869 006260 1020 TAD TEMP 1870 006261 7650 SNA CLA 1871 006262 5266 JMP SRFND 1872 006263 2041 ISZ CNT 1873 006264 5257 JMP SRLUP 1874 006265 5642 JMP I SRCH 1875 006266 2242 SRFND, ISZ SRCH 1876 006267 1011 TAD XR1 1877 006270 5642 JMP I SRCH 1878 006271 0000 GENLOC, 0 1879 006272 1053 TAD NO 1880 006273 7640 SZA CLA 1881 006274 5570 JMP I [SYNTAX 1882 006275 4531 JMS I [ONUM 1883 006276 3240 DCA NUM2 1884 006277 1054 TAD FLG 1885 006300 7640 SZA CLA 1886 006301 5570 JMP I [SYNTAX 1887 006302 4564 JMS I [GETC 1888 006303 3020 DCA TEMP 1889 006304 1020 TAD TEMP 1890 006305 7450 SNA 1891 006306 5312 JMP ENOL 1892 006307 1375 TAD (-"= 1893 006310 7640 SZA CLA 1894 006311 5570 JMP I [SYNTAX 1895 006312 1046 ENOL, TAD DHI 1896 006313 7710 SPA CLA 1897 006314 1374 TAD (-200 1898 006315 1374 TAD (-200 1899 006316 7100 CLL 1900 006317 1240 TAD NUM2 1901 006320 7630 SZL CLA 1902 006321 5551 JMP I [NUMBIG 1903 006322 1240 TAD NUM2 1904 006323 1373 TAD (7200 /BASE OF HANDLER 1905 006324 3240 DCA NUM2 1906 006325 1020 TAD TEMP 1907 006326 7650 SNA CLA 1908 006327 5343 JMP ODT 1909 006330 4531 GETNEW, JMS I [ONUM 1910 006331 3031 DCA NUM 1911 006332 1054 TAD FLG 1912 006333 7640 SZA CLA 1913 006334 5671 JMP I GENLOC 1914 006335 4564 JMS I [GETC 1915 006336 7640 SZA CLA 1916 006337 5570 JMP I [SYNTAX 1917 006340 1031 TAD NUM 1918 006341 3640 DCA I NUM2 1919 006342 5671 JMP I GENLOC 1920 006343 1640 ODT, TAD I NUM2 1921 006344 4212 JMS OPRIN 1922 006345 1372 TAD ("/ 1923 006346 4577 JMS I [TYPE 1924 006347 1576 TAD I [READ 1925 006350 3241 DCA GTEM /SAVE CHAIN STATUS 1926 006351 4576 JMS I [READ 1927 006352 1175 TAD [LINBUF 1928 006353 3023 DCA LINPTR 1929 006354 1241 TAD GTEM 1930 006355 3576 DCA I [READ 1931 006356 5330 JMP GETNEW 1932 006372 0257 PAGE 006373 7200 006374 7600 006375 7503 006376 7177 006377 7774 1933 006400 0000 MTAPAR, 0 1934 006401 1053 TAD NO 1935 006402 7640 SZA CLA 1936 006403 5570 JMP I [SYNTAX 1937 006404 4224 JMS MTST1 1938 006405 1023 TAD LINPTR 1939 006406 3052 DCA SAVPTR 1940 006407 1377 TAD (EVEN 1941 006410 4521 JMS I [KEYSRCH 1942 006411 7410 SKP 1943 006412 5221 JMP SETE 1944 006413 1052 TAD SAVPTR 1945 006414 3023 DCA LINPTR 1946 006415 1376 TAD (ODD 1947 006416 4521 JMS I [KEYSRCH 1948 006417 5570 JMP I [SYNTAX 1949 006420 1375 TAD (400 1950 006421 1374 SETE, TAD (2 1951 006422 3773 DCA I (7200 1952 006423 5600 JMP I MTAPAR 1953 1954 006424 0000 MTST1, 0 1955 006425 1051 TAD VNO 1956 006426 4572 JMS I [BRANCH 1957 006427 7777 -1;OLDERR 006430 4461 1958 006431 7776 -2;OLDERR 006432 4461 1959 006433 7775 -3;OLDERR 006434 4461 1960 006435 7774 -4;MTOK 006436 6451 1961 006437 7773 -5;MTOK 006440 6451 1962 006441 7772 -6;MTOK 006442 6451 1963 006443 0000 ZBLOCK 4 006444 0000 006445 0000 006446 0000 1964 006447 0000 0 1965 006450 5515 JMP I [NEWERR 1966 006451 5624 MTOK, JMP I MTST1 1967 1968 006452 0000 MTADEN, 0 1969 006453 4224 JMS MTST1 1970 006454 1053 TAD NO 1971 006455 7640 SZA CLA 1972 006456 5570 JMP I [SYNTAX 1973 006457 5512 JMP I [NOTIMPL 1974 006460 5652 JMP I MTADEN 1975 006461 0000 MTAFIL, 0 1976 006462 4224 JMS MTST1 1977 006463 1053 TAD NO 1978 006464 3772 DCA I (7201 1979 006465 5661 JMP I MTAFIL 1980 1981 006466 4555 BADCOD, JMS I [PRINT 1982 006467 7740 TEXT /? UNKNOWN CARD CODE/ 006470 2516 006471 1316 006472 1727 006473 1640 006474 0301 006475 2204 006476 4003 006477 1704 006500 0500 1983 006501 5571 JMP I [GOAWAY 1984 1985 /SUPPOSED TO WORK ON ALL VERSIONS 1986 1987 006502 0000 CDCODE, 0 1988 006503 1053 TAD NO 1989 006504 7640 SZA CLA 1990 006505 5570 JMP I [SYNTAX 1991 006506 4771 JMS I (OPTEQ 1992 006507 4536 JMS I [NUMBER 1993 006510 1370 TAD (-32 /026 1994 006511 7450 SNA 1995 006512 5322 JMP C026 1996 006513 1367 TAD (32-35 /029 1997 006514 7640 SZA CLA 1998 006515 5266 JMP BADCOD 1999 006516 4326 JMS CHANGE 2000 006517 6600 LIST1;LIST2 006520 6616 2001 006521 5702 JMP I CDCODE 2002 006522 4326 C026, JMS CHANGE 2003 006523 6600 LIST1;LIST3 006524 6633 2004 006525 5702 JMP I CDCODE 2005 006526 0000 CHANGE, 0 2006 006527 1726 TAD I CHANGE 2007 006530 3347 DCA P1 2008 006531 2326 ISZ CHANGE 2009 006532 1726 TAD I CHANGE 2010 006533 3350 DCA P2 2011 006534 2326 ISZ CHANGE 2012 006535 1747 CHLUP, TAD I P1 2013 006536 7450 SNA 2014 006537 5726 JMP I CHANGE 2015 006540 1373 TAD (7200 /BASE OF HANDLER 2016 006541 3351 DCA P3 2017 006542 1750 TAD I P2 2018 006543 3751 DCA I P3 2019 006544 2347 ISZ P1 2020 006545 2350 ISZ P2 2021 006546 5335 JMP CHLUP 2022 2023 006547 0000 P1, 0 2024 006550 0000 P2, 0 2025 006551 0000 P3, 0 2026 006567 7775 PAGE 006570 7746 006571 6156 006572 7201 006573 7200 006574 0002 006575 0400 006576 5154 006577 5147 2027 006600 0304 LIST1, 304;305;306 006601 0305 006602 0306 2028 006603 0314 314;315;316 006604 0315 006605 0316 2029 006606 0324 324;325;326;327 006607 0325 006610 0326 006611 0327 2030 006612 0334 334;335;336 006613 0335 006614 0336 2031 006615 0000 0 2032 2033 006616 3203 LIST2, 3203;4007;3502 006617 4007 006620 3502 2034 006621 7514 7514;0577;3637 006622 0577 006623 3637 2035 006624 0104 0104;1211;3374;0641 006625 1211 006626 3374 006627 0641 2036 006630 7316 7316;3410;1376 006631 3410 006632 1376 2037 2038 006633 7735 LIST3, 7735;4076;0774 006634 4076 006635 0774 2039 006636 3314 3314;1002;0305 006637 1002 006640 0305 2040 006641 3204 3204;1273;3606;1341 006642 1273 006643 3606 006644 1341 2041 006645 3716 3716;1175;3401 006646 1175 006647 3401 2042 006650 2405 TECNAM, FILENAME TECO.SV 006651 0317 006652 0000 006653 2326 2043 2044 006654 0000 TECO, 0 2045 006655 3310 DCA SA 2046 006656 1377 TAD (TECNAM 2047 006657 3264 DCA ARG1 2048 006660 7201 CLA IAC /LOOKUP ON SYS 2049 006661 6212 CIF 10 2050 006662 4437 JMS I USR 2051 006663 0002 2 2052 006664 6650 ARG1, TECNAM /STARTING BLOCK 2053 006665 0000 0 2054 006666 5654 JMP I TECO /NOT FOUND 2055 006667 1264 TAD ARG1 2056 006670 3274 DCA BLKN 2057 006671 4776 JMS I (7607 2058 006672 0100 100 /READ 1 PAGE FROM TECO 2059 006673 7000 7000 /BUFFER 2060 006674 0000 BLKN, 0 2061 006675 5516 JMP I [SYSERR 2062 006676 1274 TAD BLKN 2063 006677 3305 DCA BLKN2 2064 006700 1310 TAD SA 2065 006701 3775 DCA I (7002 /REL LOC 2 IS S.A. 2066 006702 4776 JMS I (7607 2067 006703 4100 4100 2068 006704 7000 7000 2069 006705 0000 BLKN2, 0 2070 006706 5516 JMP I [SYSERR 2071 006707 5654 JMP I TECO 2072 2073 006710 0000 SA, 0 2074 006775 7002 PAGE 006776 7607 006777 6650 2075 2076 /7000-7177 BUFFER FOR TECO CCB 2077 /7200-7577 BUFFER FOR HANDLER 2078 000103 0060 FIELD 0 000104 7400 000105 6200 000106 0007 000107 0040 000110 6242 000111 5621 000112 4044 000113 0212 000114 0215 000115 4513 000116 0547 000117 0017 000120 5342 000121 5652 000122 3035 000123 3022 000124 3600 000125 3000 000126 4461 000127 6133 000130 7700 000131 2126 000132 0003 000133 0525 000134 0244 000135 0322 000136 2600 000137 3510 000140 3515 000141 2077 000142 0744 000143 2051 000144 2636 000145 2205 000146 0243 000147 0334 000150 0777 000151 0512 000152 7000 000153 0274 000154 0301 000155 0421 000156 7600 000157 2751 000160 0336 000161 0240 000162 5360 000163 7605 000164 0265 000165 0200 000166 0177 000167 0077 000170 0400 000171 0412 000172 2031 000173 2000 000174 2010 000175 1000 000176 2200 000177 2335 2079 *200 2080 $ ALPHA 0301 ALT 5023 ARG1 6664 ASRTST 5250 AUX 4747 AUXFLG 4360 BACK 2502 BACKC 0274 BACKV 4435 BADCOD 6466 BADEV 0744 BADV 5342 BADWID 6200 BAKF 3460 BAKKOD 4002 BER 4115 BIT1 3647 BIT10 4013 BIT11 4030 BIT2 3657 BIT3 3664 BIT4 3676 BIT5 3710 BIT6 3715 BIT7 3734 BIT8 3746 BIT9 4000 BKFKOD 4003 BLK 3515 BLKN 6674 BLKN2 6705 BLKTWO 4510 BLOCK 4410 BOL 2316 BOL2 2314 BR2 2033 BRANCH 2031 BSDLC 3250 BUFR 3514 unreferenced C026 6522 CASBAK 3124 CASEOF 3105 CASREW 3107 CASSKP 3050 CBAKBL 3141 CBLK 3062 unreferenced CBUFR 3061 unreferenced CDCODE 6502 CDRTBL 4651 CFUNCT 3060 CGO 3055 CHANGE 6526 CHECKR 2051 CHECKW 2077 CHKBOT 3474 CHLUP 6535 CHN 0205 CNT 0041 CODE 5016 COLN 4215 COLN2 4226 COUNT 0043 CR 2323 CRLF 5360 CSKPF 3112 CTOFLG 0042 CTRL 5142 CTRLC 0461 CTRLO 0467 CTRLU 2247 DBLK 0047 DCW 0035 DCWPTR 0036 DELAY 5160 DELAYY 2751 DENSIT 5120 DEVNUM 0034 DEVTYP 0027 DGP 6227 DHI 0046 DHIT 0045 DIGIT 0322 DIR 3532 DLAG 6743 DLDC 6746 DTLA 6766 DW1 2700 DW2 2701 DW3 2702 ECHO 5033 END 3533 ENOL 6312 ENTRY 0030 EO 2564 EODERR 4066 EOF 2400 EOFKOD 0005 EOK 5671 EON 2627 ESCAPE 2320 ESCBIT 0040 EVEN 5147 FILES 5062 FILL 5130 FLAG 0025 FLAGG 5135 FLG 0054 FNDTYP 4243 FOUND 2044 FRWD 4125 FUDGE 4101 FUNCT 3513 GAG 5166 GENFIL 5327 GENLOC 6271 GENREA 5313 GENVER 5274 GET 2326 GETC 0265 GETDEV 2636 GETIOT 3334 GETNEW 6330 GETNUM 2521 GETSIX 0255 GETTWO 0244 GETWID 6112 GETYP 2714 GO 3510 GOAWAY 0412 GOTAL 0310 GOTKEY 5700 GOTSP 2014 GT 2205 GT2 2267 GTEM 6241 H1 0657 H2 0641 HELP 0600 HREAD 4400 HWRITE 4502 HYPH 4277 INCORE 2711 INQ 2655 INTO 4251 IOCONT 3627 IOE 3530 IOERR 3600 IOLUP 3622 JLIST 3634 JM 3633 KEYSRC 5652 KL 5654 KPTR 5677 L200 5511 L645 5230 L7200 4407 LC 5006 LETTER 0312 LF 2353 LFLP 2361 LINBUF 1000 LINPTR 0023 LIST1 6600 LIST2 6616 LIST3 6633 LOADPT 3000 LOC 5051 LOOK 2206 LPLC 5410 LPLV 5400 LPTOK 5227 LPTST1 5207 LPTTBL 4660 LPWDTH 5200 LV 0433 LV8E 5011 MAGBAK 3443 MAGEOF 3416 MAGREW 3505 MAGSKP 3400 MAGUNL 3502 MAIN 4600 MNLUP 4231 MTADEN 6452 MTAFIL 6461 MTAPAR 6400 MTATBL 4673 MTOK 6451 MTST1 6424 N3 6237 NAM1 4335 NAM2 4336 NEWERR 4513 NM1 2604 NO 0053 NOE 6165 NOF 4354 NOKEY 4311 NONEX 0525 NOO 4361 NOPE 2005 NOTALP 0262 NOTEC 5510 NOTFND 2047 NOTIMP 4044 NOTYP 4350 NUCODE 0057 NUM 0031 NUM2 6240 NUMBER 2600 NUMBIG 0512 ODD 5154 ODT 6343 OEON 2154 OKNT 6236 OLDERR 4461 ONM1 2132 ONUM 2126 OPLP 6216 OPRIN 6212 OPTEQ 6156 OUTER 2762 P 0055 unreferenced P1 6547 P2 6550 P3 6551 PAGOK 5455 PARITY 5111 PAYGE 5040 PRIN 0436 PRINT 0421 PTPTBL 5712 PTR 0044 PTRTBL 5705 R 2562 RD1 2202 READ 2200 READBO 3035 READBT 3004 READEO 3022 READO 5070 REASEM 5621 RESERR 4440 REWIND 2431 REWKOD 0001 RKEUNL 3753 RONLY 2056 unreferenced RR 0056 RUB2 2305 RUB3 2265 RUBOUT 2255 SA 6710 SAVPTR 0052 SAWNO 4341 SCAN 2000 SCNLUP 4263 SET 4200 SETAB 5541 SETE 6421 SETLOC 0237 SKFKOD 0003 SKIP 2415 SKP0 3542 SKPEOD 3432 SKPF 3421 SKPKOD 0002 SKX 3554 SKY 3552 SPACE 2010 SPKNT 0026 SRCH 6242 SRFND 6266 SRLUP 6257 START 0200 SYNTAX 0400 SYSERR 0547 T 0021 T2 0022 T3 0024 T4 0033 TAB 5045 TCR 3212 TCREW 3200 TCUNL 3202 TDUNL 3225 TECNAM 6650 TECO 6654 TEMP 0020 TM 4104 TRYDIG 0306 TTALT 5421 TTCODE 3254 TTCTRL 6047 TTDELA 5646 TTECHO 5425 TTEO 5503 TTFILL 5600 TTFLAG 6004 TTGAG 6000 TTLC 6023 TTLP 3277 TTLP2 3316 TTOK 6155 TTPAGE 5435 TTST1 6133 TTTAB 5467 TTWIDT 6053 TTYTBL 4706 TYP 0032 TYPE 2335 TYPEM 2352 UNIT 3253 UNLKOD 0004 UNLOAD 2461 USR 0037 V4 0763 VERS 5101 VERSIO 0501 VLOOP 4422 VNO 0051 VNOPTR 0050 WC 3515 WC2 3466 WD1 2661 WD2 2662 WD3 2663 WIDTH 5000 WONLY 2104 unreferenced XR1 0011 XR2 0012 unreferenced XR3 0013 unreferenced ZER 2761