1 /8 OS8 SET (PAL8/MACREL VERSION) 2 3 / 4 /S.R. 5 / 6 / 7 / S E T 8 / 9 / 10 / 11 / 12 / 13 / 14 /THE INFORMATION IN THIS DOCUMENT IS SUBJECT TO CHANGE WITHOUT NOTICE 15 /AND SHOULD NOT BE CONSTRUED 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) 1977 BY DIGITAL EQUIPMENT CORPORATION. 30 / 31 / 32 / 33 / 34 / EDIT HISTORY: 35 36 / 19-MAR-77 S.R. REMOVED FROM CAMP V4 37 / 19-MAR-77 S.R. FIXED BUG WITH SET MTA FILES 38 / 19-MAR-77 S.R. FIXED BUG WITH SET CDR 39 / 19-MAR-77 S.R. FIXED BUG WITH = OPTION 40 / 19-MAR-77 S.R. CONVERTED TO MACREL CODE 41 / 01-APR-77 S.R. TTY PAUSE 42 / 01-APR-77 S.R. TTY HEIGHT 43 / 01-APR-77 S.R. TTY SCOPE 44 / 17-APR-77 S.R. REWROTE TTY PAGE 45 / 17-APR-77 S.R. DEV: DVCODE 46 / 17-APR-77 S.R. FINISHED TTY SCOPE 47 / 27-APR-77 S.R. TTY COL 48 / 27-APR-77 S.R. SYS OPTIONS (INIT, OS8, OS78) 49 / 03-MAY-77 S.R. LA8A, LA78 50 / 03-MAY-77 S.R. INIT OS78 FIXES TERMINATE 51 / 03-MAY-77 S.R. BASIC FIXES 52 / 29-JUN-77 S.R. TTY ARROW (NOT FOR PS/8) 53 / 29-JUN-77 S.R. TTY ESC (NOT FOR PS/8) 54 / 29-JUN-77 S.R. DEV BLK LOC (NOT FOR PS/8) 55 56 / MUST SKIP LOCS 1000-1777 57 58 LINBUF=1000 59 60 AUXBUF=6600 61 62 IFDEF EDF 63 IFNDEF EDF 64 65 IFNZRO MACREL < .XSECT XSET 66 > 67 IFZERO MACREL < *10 > 68 69 000010 0000 XR1, 0 70 000011 0000 XR2, 0 71 000012 0000 XR3, 0 72 73 IFNZRO MACREL < .ZSECT ZSET 74 > 75 IFZERO MACREL < *20 > 76 000020 0000 TEMP, 0 77 000021 0000 T, 0 78 000022 0000 T2, 0 79 000023 0000 LINPTR, 0 80 000024 0000 T3, 0 81 000025 0000 FLAG, 0 82 000026 0000 SPKNT, 0 83 000027 0000 DEVTYP, 0 /DEVICE TYPE (BITS 6-11) 84 000030 0000 ENTRY, 0 /HANDLER ENTRY POINT 85 000031 0000 NUM, 0 86 000032 0000 TYP, 0 /0 MEANS 'F', 1 MEANS 'R' 87 000033 0000 T4, 0 88 000034 0000 DEVNUM, 0 89 000035 0000 DCW, 0 /DEVICE CONTROL WORD 90 000036 0000 DCWPTR, 0 91 000037 0200 USR, 200 /POINTS TO USR ENTRY POINT 92 000040 0000 ESCBIT, 0 /1 MEANS USER TYPED ALTMODE 93 000041 0000 CNT, 0 94 000042 0000 CTOFLG, 0 /-1 MEANS SAW ^O 95 000043 0000 PTR, 0 96 000044 0000 DHIT, 0 /DEVICE HANDLER INFO TABLE - 1 97 000045 0000 DHI, 0 /DEVICE HANDLER INFO 98 000046 0000 DBLK, 0 /DEVICE HANDLER BLOCK 99 000047 0000 VNOPTR, 0 /PTS TO VERSION # IN HANDLER 100 000050 0000 VNO, 0 /CURRENT HANDLER VERSION NUMBER 101 000051 0000 SAVPTR, 0 102 000052 0000 NO, 0 /1 MEANS 'NO' 103 000053 0001 FLG, 1 /1 MEANS SAW NO DIGITS 104 000054 0000 RR, 0 105 000055 0000 NUCODE, 0 106 000056 0000 SCOP, 0 /NON-0 IF TTY IS SCOPE 107 000057 0000 NUM2, 0 108 109 /0000-0777 /SET 110 /1000-1377 /OS/8 LINE BUFFER 111 /1400-1777 /PS/8 LINE BUFFER 112 /2000-6577 /SET 113 /6600-7177 /AUXILIARY I/O BUFFER 114 /7000-7177 /I/O BUFFER FOR TECO CCB 115 /7200-7577 /OS/8 HANDLER 116 /7600-7777 /OS/8 117 118 SCPBIT=7726 /BIT 4 119 IFNZRO MACREL < .ASECT ASET 120 > 121 *200 122 123 000200 7410 START, SKP 124 000201 5206 JMP CHN 125 000202 1377 TAD ("# 126 000203 4577 JMS I [TYPE 127 000204 4232 JMS BIT 128 000205 4576 JMS I [READ /READ A LINE INTO OS/8 LINE BUFFER 129 000206 1175 CHN, TAD [LINBUF /CHAIN ENTRY ADDRESS 130 000207 3023 DCA LINPTR /INITIALIZE POINTER TO LINE BUFFER 131 000210 4232 JMS BIT 132 000211 7240 STA 133 000212 4574 JMS I [SPACE /IGNORE LEADING SPACES 134 000213 4241 JMS GETTWO /GET TWO CHARS 135 000214 3020 DCA TEMP 136 000215 4573 JMS I [SCAN /SCAN PAST EXTRA LETTERS OR DIGITS 137 000216 1020 TAD TEMP 138 000217 4572 JMS I [BRANCH /GO TO APPROPRIATE ROUTINE 139 000220 5473 -2305;SET /SE 000221 3731 140 000222 5173 -2605;VERSION /VE 000223 0501 141 000224 6773 -1005;HELP /HE 000225 0327 142 000226 0000 0 143 000227 7650 SNA CLA 144 000230 5571 JMP I [GOAWAY 145 000231 5570 JMP I [SYNTAX /NONE OF THESE 146 147 000232 0000 BIT, 0 148 000233 6211 CDF 10 149 000234 1776 TAD I (SCPBIT 150 000235 6201 CDF 0 151 000236 0167 AND [200 152 000237 3056 DCA SCOP /NOTE WHETHER TTY IS SCOPE V3D 153 000240 5632 JMP I BIT 154 / GETTWO 155 156 /GET TWO LETTERS OR DIGITS FROM INPUT LINE, PACK IN SIXBIT 157 /ADVANCE PAST THEM. SUBSTITUTE NULL IF NOT FOUND. 158 159 000241 0000 GETTWO, 0 160 000242 4252 JMS GETSIX 161 000243 7106 CLL RTL 162 000244 7006 RTL 163 000245 7006 RTL 164 000246 3022 DCA T2 165 000247 4252 JMS GETSIX 166 000250 1022 TAD T2 /COMBINE 167 000251 5641 JMP I GETTWO 168 169 000252 0000 GETSIX, 0 /GET A SIXBIT LETTER OR DIGIT (OR NULL) 170 000253 4276 JMS ALPHA /IS IT ALPHANUMERIC? 171 000254 5257 JMP NOTALPH /NO 172 000255 0166 AND [77 /YES 173 000256 5652 JMP I GETSIX /TRUNCATE TO SIXBIT 174 000257 7200 NOTALPH,CLA 175 000260 4271 JMS BACKC 176 000261 5652 JMP I GETSIX /RETURN NULL 177 178 000262 0000 GETC, 0 /GET A CHARACTER, ADVANCE POINTER 179 000263 1423 TAD I LINPTR 180 000264 0165 AND [177 /ALWAYS RETURN 8-BIT 181 000265 7440 SZA 182 000266 1167 TAD [200 /WITH HIGH ORDER BIT ON 183 000267 2023 ISZ LINPTR /ADVANCE SCAN 184 000270 5662 JMP I GETC /RETURN 185 186 000271 0000 BACKC, 0 /MOVE SCAN POINTER BACK ONE 187 000272 7240 STA 188 000273 1023 TAD LINPTR 189 000274 3023 DCA LINPTR 190 000275 5671 JMP I BACKC /RETURN 191 /RETURN 1 NOT OF TYPE DESIRED 192 /RETURN 2 DESIRED TYPE 193 /IN BOTH CASES, CHAR IS LEFT IN AC 194 195 000276 0000 ALPHA, 0 /LOOK FOR ALPHANUMERIC 196 000277 4564 JMS I [GETC 197 000300 4307 JMS LETTER /IS IT A LETTER? 198 000301 5303 JMP TRYDIG /NO, TRY DIGIT 199 000302 5305 JMP GOTAL /YES 200 000303 4317 TRYDIG, JMS DIGIT /IS IT A DIGIT? 201 000304 5676 JMP I ALPHA /NO, AINT LETTER OR DIGIT 202 000305 2276 GOTAL, ISZ ALPHA /YES, EITHER LETTER OR DIGIT 203 000306 5676 JMP I ALPHA /RETURN WITH IT IN AC 204 205 000307 0000 LETTER, 0 /LOOK FOR LETTER 206 000310 1375 TAD (-"A 207 000311 7100 CLL 208 000312 1374 TAD ("A-"Z-1 209 000313 7420 SNL 210 000314 2307 ISZ LETTER 211 000315 1373 TAD ("Z+1 /RESTORE CHAR 212 000316 5707 JMP I LETTER 213 214 000317 0000 DIGIT, 0 /LOOK FOR DIGIT 215 000320 1372 TAD (-"0 216 000321 7100 CLL 217 000322 1371 TAD ("0-"9-1 /(DECIMAL) 218 000323 7420 SNL 219 000324 2317 ISZ DIGIT 220 000325 1370 TAD ("9+1 /RESTORE DIGIT TO CHARACTER FORM 221 000326 5717 JMP I DIGIT /AND RETURN WITH IT IN AC 222 000327 4563 HELP, JMS I [PRINT 223 000330 2305 TEXT /SET DEV: [NO] ATTRIB [N]/ 000331 2440 000332 0405 000333 2672 000334 4033 000335 1617 000336 3540 000337 0124 000340 2422 000341 1102 000342 4033 000343 1635 000344 0000 224 000345 4563 JMS I [PRINT 225 000346 2605 TEXT /VERSION/ 000347 2223 000350 1117 000351 1600 226 000352 4563 JMS I [PRINT 227 000353 1005 TEXT /HELP/ 000354 1420 000355 0000 228 000356 5567 JMP I [START 229 000370 0272 PAGE 000371 7766 000372 7520 000373 0333 000374 7746 000375 7477 000376 7726 000377 0243 230 000400 7200 SYNTAX, CLA 231 000401 4221 JMS PRINT 232 000402 7740 TEXT /? SYNTAX ERROR/ 000403 2331 000404 1624 000405 0130 000406 4005 000407 2222 000410 1722 000411 0000 233 000412 1040 GOAWAY, TAD ESCBIT 234 000413 7640 SZA CLA 235 000414 5562 JMP I [7605 /LINE ENDED WITH ESCAPE 236 000415 1576 TAD I [READ /WAS 'READ' EVER CALLED? 237 000416 7640 SZA CLA 238 000417 5567 JMP I [START /YES, GET A NEW LINE 239 000420 5562 JMP I [7605 /NO, WE MUST'VE BEEN CHAINED TO, RECALL KBM 240 241 000421 0000 PRINT, 0 242 000422 1621 TAD I PRINT 243 000423 7012 RTR 244 000424 7012 RTR 245 000425 7012 RTR 246 000426 4236 JMS PRIN 247 000427 1621 TAD I PRINT 248 000430 4236 JMS PRIN 249 000431 2221 ISZ PRINT 250 000432 5222 JMP PRINT+1 251 000433 4561 LV, JMS I [CRLF 252 000434 2221 ISZ PRINT 253 000435 5621 JMP I PRINT 254 255 000436 0000 PRIN, 0 256 000437 0166 AND [77 257 000440 7450 SNA 258 000441 5233 JMP LV 259 000442 1160 TAD [240 260 000443 0166 AND [77 261 000444 1160 TAD [240 262 000445 3024 DCA T3 263 000446 1167 TAD [200 264 000447 6034 KRS 265 000450 1377 TAD (-203 266 000451 7450 SNA 267 000452 5261 JMP CTRLC 268 000453 1376 TAD (203-217 /^O 269 000454 7650 SNA CLA 270 000455 4267 JMS CTRLO 271 000456 1024 TAD T3 272 000457 4577 JMS I [TYPE 273 000460 5636 JMP I PRIN 274 000461 1157 CTRLC, TAD ["^ 275 000462 4577 JMS I [TYPE 276 000463 1375 TAD ("C 277 000464 4577 JMS I [TYPE /ECHO "^C" 278 000465 4556 JMS I [DELAYY 279 000466 5555 JMP I [7600 /THEN GO AWAY 280 000467 0000 CTRLO, 0 281 000470 6032 KCC /CLEAR OUT ^O 282 000471 1157 TAD ["^ 283 000472 4577 JMS I [TYPE 284 000473 1374 TAD ("O 285 000474 4577 JMS I [TYPE 286 000475 4561 JMS I [CRLF 287 000476 7240 STA 288 000477 3042 DCA CTOFLG /STOP ECHOING 289 000500 5667 JMP I CTRLO 290 291 000501 4221 VERSION,JMS PRINT 292 000502 1723 TEXT \OS/8 SET V1B\ 000503 5770 000504 4023 000505 0524 000506 4026 000507 6102 000510 0000 293 000511 5567 JMP I [START 294 000512 4221 NUMBIG, JMS PRINT 295 000513 7740 TEXT /? NUMBER TOO BIG/ 000514 1625 000515 1502 000516 0522 000517 4024 000520 1717 000521 4002 000522 1107 000523 0000 296 000524 5571 JMP I [GOAWAY 297 000525 4221 NONEX, JMS PRINT 298 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 299 000546 5571 JMP I [GOAWAY 300 301 000547 4221 SYSERR, JMS PRINT 302 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 303 000562 5571 JMP I [GOAWAY 304 000574 0317 PAGE 000575 0303 000576 7764 000577 7575 305 000600 0000 SYSOS8, 0 306 000601 1052 TAD NO /REVERSE MEANING OF 'NO' 307 000602 7650 SNA CLA 308 000603 7001 IAC 309 000604 3052 DCA NO 310 000605 4207 JMS SYS78 311 000606 5600 JMP I SYSOS8 312 313 000607 0000 SYS78, 0 314 000610 1154 TAD [7771 315 000611 4553 JMS I [SET200 316 000612 4552 JMS I [7607 317 000613 0200 200 318 000614 6600 AUXBUF 319 000615 0000 0 320 000616 5551 JMP I [SYSERR 321 000617 1377 TAD (AUXBUF+371 322 000620 4553 JMS I [SET200 323 000621 4552 JMS I [7607 324 000622 4200 4200 325 000623 6600 AUXBUF 326 000624 0000 0 327 000625 5551 JMP I [SYSERR 328 000626 4552 JMS I [7607 /THERE'S A 2ND COPY 329 000627 0200 200 /IN BLOCK 11 LOCATION 56 330 000630 6600 AUXBUF 331 000631 0011 11 332 000632 5551 JMP I [SYSERR 333 000633 1376 TAD (AUXBUF+56 334 000634 4553 JMS I [SET200 335 000635 4552 JMS I [7607 336 000636 4200 4200 337 000637 6600 AUXBUF 338 000640 0011 11 339 000641 5551 JMP I [SYSERR 340 000642 4775 JMS I (FIXCCL 341 000643 5607 JMP I SYS78 342 000644 0000 SYSINI, 0 343 000645 4564 JMS I [GETC 344 000646 7650 SNA CLA 345 000647 5306 JMP DEFINI /ASSUME @INIT 346 000650 1052 TAD NO 347 000651 7640 SZA CLA 348 000652 5570 JMP I [SYNTAX /SET SYS NO INIT CMD 349 000653 4550 JMS I [BACKC 350 000654 1023 TAD LINPTR 351 000655 3305 DCA SAVLP 352 000656 1374 TAD (-6 /ALLOW A MAXIMUM OF 5 CHARS 353 000657 3304 DCA SAVKN 354 000660 4564 SAVLUP, JMS I [GETC 355 000661 7650 SNA CLA 356 000662 5310 JMP DEFDO 357 000663 2304 ISZ SAVKN 358 000664 5260 JMP SAVLUP 359 000665 4563 JMS I [PRINT 360 000666 7740 TEXT /? INITIAL COMMAND TOO BIG/ 000667 1116 000670 1124 000671 1101 000672 1440 000673 0317 000674 1515 000675 0116 000676 0440 000677 2417 000700 1740 000701 0211 000702 0700 361 000703 5571 JMP I [GOAWAY 362 363 000704 0000 SAVKN, 0 364 000705 0000 SAVLP, 0 365 366 000706 1373 DEFINI, TAD (INIMSG 367 000707 3305 DCA SAVLP 368 000710 4552 DEFDO, JMS I [7607 369 000711 0200 200 370 000712 6600 AUXBUF 371 000713 0000 0 372 000714 5551 JMP I [SYSERR 373 000715 1052 TAD NO 374 000716 7640 SZA CLA 375 000717 1372 TAD (400-1077 376 000720 1371 TAD (1077 377 000721 3770 DCA I (AUXBUF+77 378 000722 4552 JMS I [7607 379 000723 4200 4200 380 000724 6600 AUXBUF 381 000725 0000 0 382 000726 5551 JMP I [SYSERR 383 000727 1052 TAD NO 384 000730 7640 SZA CLA 385 000731 5644 JMP I SYSINI 386 000732 4552 JMS I [7607 387 000733 0200 200 388 000734 6600 AUXBUF 389 000735 0011 11 390 000736 5551 JMP I [SYSERR 391 000737 7240 STA 392 000740 1305 TAD SAVLP 393 000741 3011 DCA XR2 394 000742 1367 TAD (AUXBUF-1 395 000743 3012 DCA XR3 396 000744 1366 TAD (-5 397 000745 3304 DCA SAVKN 398 000746 1411 MOVL, TAD I XR2 399 000747 3412 DCA I XR3 400 000750 2304 ISZ SAVKN 401 000751 5346 JMP MOVL 402 000752 4552 JMS I [7607 403 000753 4200 4200 404 000754 6600 AUXBUF 405 000755 0011 11 406 000756 5551 JMP I [SYSERR 407 000757 5644 JMP I SYSINI 408 409 000760 0300 INIMSG, "@;"I;"N;"I;"T;0 000761 0311 000762 0316 000763 0311 000764 0324 000765 0000 410 000766 7773 PAGE 000767 6577 000770 6677 000771 1077 000772 7301 000773 0760 000774 7772 000775 3144 000776 6656 000777 7171 411 *1400 412 413 /THIS WON'T ALWAYS WORK UNDER PS/8: 414 415 001400 5601 TTGGO, JMP I TTGAG 416 001401 0000 TTGAG, 0 417 001402 4547 JMS I [TTST1 418 001403 4563 JMS I [PRINT 419 001404 0140 TEXT /A FUNNY THING HAPPENED TO ME ON THE WAY TO THE COMPUTER ROOM./ 001405 0625 001406 1616 001407 3140 001410 2410 001411 1116 001412 0740 001413 1001 001414 2020 001415 0516 001416 0504 001417 4024 001420 1740 001421 1505 001422 4017 001423 1640 001424 2410 001425 0540 001426 2701 001427 3140 001430 2417 001431 4024 001432 1005 001433 4003 001434 1715 001435 2025 001436 2405 001437 2240 001440 2217 001441 1715 001442 5600 420 001443 4563 JMS I [PRINT 421 001444 0140 TEXT /A PANHANDLER CAME UP TO ME AND SAID,/ 001445 2001 001446 1610 001447 0116 001450 0414 001451 0522 001452 4003 001453 0115 001454 0540 001455 2520 001456 4024 001457 1740 001460 1505 001461 4001 001462 1604 001463 4023 001464 0111 001465 0454 001466 0000 422 001467 4563 JMS I [PRINT 423 001470 4203 TEXT /"CAN YOU SPARE ME $25,000 FOR A CUP OF COFFEE?"/ 001471 0116 001472 4031 001473 1725 001474 4023 001475 2001 001476 2205 001477 4015 001500 0540 001501 4462 001502 6554 001503 6060 001504 6040 001505 0617 001506 2240 001507 0140 001510 0325 001511 2040 001512 1706 001513 4003 001514 1706 001515 0605 001516 0577 001517 4200 424 001520 4563 JMS I [PRINT 425 001521 4227 TEXT /"WHY SO MUCH?", I ASKED IN AMAZEMENT./ 001522 1031 001523 4023 001524 1740 001525 1525 001526 0310 001527 7742 001530 5440 001531 1140 001532 0123 001533 1305 001534 0440 001535 1116 001536 4001 001537 1501 001540 3205 001541 1505 001542 1624 001543 5600 426 001544 4563 JMS I [PRINT 427 001545 4224 TEXT /"THINGS HAVE BECOME SO AUTOMATED", HE REPLIED,/ 001546 1011 001547 1607 001550 2340 001551 1001 001552 2605 001553 4002 001554 0503 001555 1715 001556 0540 001557 2317 001560 4001 001561 2524 001562 1715 001563 0124 001564 0504 001565 4254 001566 4010 001567 0540 001570 2205 001571 2014 001572 1105 001573 0454 001574 0000 428 001575 4563 JMS I [PRINT 429 001576 4224 TEXT /"THAT THE ONLY WAY I CAN ORDER IT/ 001577 1001 001600 2440 001601 2410 001602 0540 001603 1716 001604 1431 001605 4027 001606 0131 001607 4011 001610 4003 001611 0116 001612 4017 001613 2204 001614 0522 001615 4011 001616 2400 430 001617 4563 JMS I [PRINT 431 001620 1123 TEXT /IS WITH A COMPUTER ORDER FORM"./ 001621 4027 001622 1124 001623 1040 001624 0140 001625 0317 001626 1520 001627 2524 001630 0522 001631 4017 001632 2204 001633 0522 001634 4006 001635 1722 001636 1542 001637 5600 432 001640 5777 JMP I (TTGGO 433 001641 0000 TTESC, 0 /V3D 434 001642 4776 JMS I (OLDTST 435 001643 4546 JMS I [SRCH 436 001644 0200 200;200;44 001645 0200 001646 0044 437 001647 5545 JMP I [REASEM 438 001650 1375 TAD (-4 439 001651 3020 DCA TEMP /SEE SOURCE OF KL8E 440 001652 1052 TAD NO 441 001653 7640 SZA CLA 442 001654 1374 TAD (7640-CLA /YES 443 001655 1373 TAD (CLA /NO 444 001656 3420 DCA I TEMP 445 001657 5641 JMP I TTESC 446 447 001660 0000 TTAROW, 0 /V3D 448 001661 4776 JMS I (OLDTST 449 001662 4546 JMS I [SRCH 450 001663 0200 200;200;7740 001664 0200 001665 7740 451 001666 5545 JMP I [REASEM 452 001667 7001 IAC 453 001670 3020 DCA TEMP 454 001671 1420 TAD I TEMP 455 001672 7004 RAL 456 001673 7710 KSPA, SPA CLA 457 001674 5545 JMP I [REASEM 458 001675 2020 ISZ TEMP 459 001676 2020 ISZ TEMP 460 001677 1020 TAD TEMP 461 001700 1372 TAD (3 462 001701 3363 DCA TEMP2 463 001702 1052 TAD NO 464 001703 7650 SNA CLA 465 001704 5310 JMP YESARO /YES 466 001705 1273 TAD KSPA /NO 467 001706 3420 NOAROW, DCA I TEMP 468 001707 5660 JMP I TTAROW 469 001710 1763 YESARO, TAD I TEMP2 470 001711 5306 JMP NOAROW 471 001712 0000 GENBLK, 0 /V3D 472 001713 4771 JMS I (GENCMN 473 001714 1057 TAD NUM2 474 001715 3335 DCA BLOK /GET BLOCK NUMBER 475 001716 1370 TAD (LOC 476 001717 4544 JMS I [KEYSRCH 477 001720 5570 JMP I [SYNTAX 478 001721 4771 JMS I (GENCMN /GET LOCATION 479 001722 1143 TAD [-400 480 001723 7100 CLL 481 001724 1057 TAD NUM2 482 001725 7630 SZL CLA 483 001726 5542 JMP I [NUMBIG 484 001727 1057 TAD NUM2 485 001730 1334 TAD PAUXBUF 486 001731 3057 DCA NUM2 487 001732 4430 JMS I ENTRY /READ BLOCK 488 001733 0200 200 489 001734 6600 PAUXBUF,AUXBUF 490 001735 0000 BLOK, 0 491 001736 5551 JMP I [SYSERR 492 001737 1020 TAD TEMP 493 001740 7650 SNA CLA 494 001741 4767 JMS I (ODT 495 001742 4541 JMS I [ONUM 496 001743 3031 DCA NUM 497 001744 7201 CLA IAC 498 001745 3034 DCA DEVNUM /FAKE OUT - PREVENTS RE-WRITING USED HANDLER 499 001746 1053 TAD FLG 500 001747 7640 SZA CLA 501 001750 5712 JMP I GENBLK 502 001751 4564 JMS I [GETC 503 001752 7640 SZA CLA 504 001753 5570 JMP I [SYNTAX 505 001754 1031 TAD NUM 506 001755 3457 DCA I NUM2 /SET NEW VALUE 507 001756 1335 TAD BLOK 508 001757 3363 DCA BLOK2 509 001760 4430 JMS I ENTRY 510 001761 4200 4200 511 001762 6600 AUXBUF 512 TEMP2, 513 001763 0000 BLOK2, 0 514 001764 5551 JMP I [SYSERR 515 001765 5712 JMP I GENBLK 516 001767 6135 PAGE 001770 4542 001771 6056 001772 0003 001773 7200 001774 0440 001775 7774 001776 2600 001777 1400 517 *2000 518 519 /ORIGIN PAST OS/8 LINE BUFFER AT 1000. 520 /SKIP PAST PS/8 LINE BUFFER (AT 1400) JUST IN CASE 521 /PS/8 USERS WISH TO PATCH THIS PROGRAM 522 523 /SCAN PAST EXTRA LETTERS OR DIGITS 524 525 002000 0000 SCAN, 0 526 002001 4540 JMS I [ALPHA 527 002002 5205 JMP NOPE 528 002003 7200 CLA 529 002004 5201 JMP SCAN+1 530 002005 7200 NOPE, CLA 531 002006 4550 JMS I [BACKC 532 002007 5600 JMP I SCAN 533 534 /SCAN PAST SPACES; GIVE ERROR IF NO SPACES FOUND UNLESS AC=-1 535 536 002010 0000 SPACE, 0 537 002011 3025 DCA FLAG /SET AC=-1 TO PREVENT ERROR ON NO SPACES FOUND 538 002012 3026 DCA SPKNT /INITIALIZE SPACE COUNTER 539 002013 7410 SKP /JUMP INTO LOOP 540 002014 2026 GOTSP, ISZ SPKNT 541 002015 4564 JMS I [GETC /GET NEXT CHAR 542 002016 1137 TAD [-240 543 002017 7650 SNA CLA /IS IT A SPACE? 544 002020 5214 JMP GOTSP /YES, COUNT IT 545 002021 4550 JMS I [BACKC /NO, PUT IT BACK 546 002022 2025 ISZ FLAG /CHECK FLAG 547 002023 7410 SKP /USER DIDN'T SPECIFY FLAG 548 002024 5610 JMP I SPACE /-0 MEANT DON'T CHECK IF FOUND SPACE 549 002025 1026 TAD SPKNT /HOW MANY SPACES DID WE FIND? 550 002026 7640 SZA CLA 551 002027 5610 JMP I SPACE /SOME. OK 552 002030 5570 JMP I [SYNTAX /NONE. TSK. TSK. 553 002031 0000 BRANCH, 0 554 002032 3021 DCA T 555 002033 1631 BR2, TAD I BRANCH 556 002034 2231 ISZ BRANCH 557 002035 7450 SNA 558 002036 5247 JMP NOTFND 559 002037 1021 TAD T 560 002040 7650 SNA CLA 561 002041 5244 JMP FOUND 562 002042 2231 ISZ BRANCH 563 002043 5233 JMP BR2 564 565 002044 1631 FOUND, TAD I BRANCH 566 002045 3021 DCA T 567 002046 5421 JMP I T /FOUND ITEM IN COLUMN 1, JUMP TO ADDRESS IN COL 2 568 569 002047 1021 NOTFND, TAD T 570 002050 5631 JMP I BRANCH /IF NOT FOUND IN COL 1, RETURN WITH AC INTACT 571 572 002051 6201 BADKBM, CDF 0 573 002052 4563 JMS I [PRINT 574 002053 7740 TEXT /? OLD VERSION OF KBM/ 002054 1714 002055 0440 002056 2605 002057 2223 002060 1117 002061 1640 002062 1706 002063 4013 002064 0215 002065 0000 575 002066 5571 JMP I [GOAWAY 576 LLS=6666 577 DBTD=6574 578 LSF=6661 579 DBST=6570 580 581 002067 0000 LP78, 0 582 002070 1377 TAD (CMA-NOP 583 002071 4273 JMS LP8A 584 002072 5667 JMP I LP78 585 586 002073 0000 LP8A, 0 587 002074 1376 TAD (NOP /AC MAY BE NON-0 588 002075 3356 DCA LPKOD 589 002076 4775 JMS I (LPTST1 590 002077 1050 TAD VNO 591 002100 1374 TAD (-2 592 002101 7650 SNA CLA 593 002102 5773 JMP I (OLDERR 594 002103 4546 JMS I [SRCH 595 002104 0000 0;200;7700 002105 0200 002106 7700 596 002107 5773 JMP I (OLDERR 597 002110 1372 TAD (3 598 002111 3020 DCA TEMP 599 002112 1420 TAD I TEMP 600 002113 0136 AND [7000 601 002114 1175 TAD [-7000 602 002115 7640 SZA CLA /NOP OR CMA 603 002116 5773 JMP I (OLDERR 604 002117 1356 TAD LPKOD 605 002120 3420 DCA I TEMP 606 002121 2020 ISZ TEMP 607 002122 1420 TAD I TEMP 608 002123 0136 AND [7000 609 002124 1371 TAD (-6000 610 002125 7640 SZA CLA 611 002126 5773 JMP I (OLDERR 612 002127 1356 TAD LPKOD 613 002130 0135 AND [70 614 002131 7640 SZA CLA 615 002132 1370 TAD (DBTD-LLS 616 002133 1367 TAD (LLS 617 002134 3420 DCA I TEMP 618 002135 2020 ISZ TEMP 619 002136 1356 TAD LPKOD 620 002137 3420 DCA I TEMP 621 002140 4546 JMS I [SRCH 622 002141 0100 100;100;6203 002142 0100 002143 6203 623 002144 5773 JMP I (OLDERR 624 002145 1366 TAD (2 625 002146 3020 DCA TEMP 626 002147 1356 TAD LPKOD 627 002150 0135 AND [70 628 002151 7640 SZA CLA 629 002152 1365 TAD (DBST-LSF 630 002153 1364 TAD (LSF 631 002154 3420 DCA I TEMP 632 002155 5673 JMP I LP8A 633 634 002156 0000 LPKOD, 0 635 002164 6661 PAGE 002165 7707 002166 0002 002167 6666 002170 7706 002171 2000 002172 0003 002173 4261 002174 7776 002175 5007 002176 7000 002177 0040 636 /READ A LINE INTO OS/8 LINE BUFFER 637 638 002200 0000 READ, 0 639 002201 3042 DCA CTOFLG /ALLOW ECHOING 640 002202 1175 RD1, TAD [LINBUF 641 002203 3023 DCA LINPTR 642 002204 3040 DCA ESCBIT 643 002205 4534 GT, JMS I [GET 644 002206 4572 LOOK, JMS I [BRANCH 645 002207 7401 -377;RUBOUT 002210 2261 646 002211 7561 -217;GT /^O 002212 2205 647 002213 7575 -203;CTRLC /^C 002214 0461 648 002215 7566 -212;LF /LINE FEED 002216 2355 649 002217 7563 -215;CR /CARRIAGE RETURN 002220 2352 650 002221 7403 -375;ESCAPE /ALTMODE 002222 2347 651 002223 7402 -376;ESCAPE /ALTMODE (2ND FLAVOR) 002224 2347 652 002225 7545 -233;ESCAPE /ESCAPE 002226 2347 653 002227 7553 -225;CTRLU /^U 002230 2251 654 002231 7600 -200;GT /IGNORE NULLS 002232 2205 655 002233 7555 -223;GT /IGNORE ^S 002234 2205 656 002235 0000 0 657 002236 3020 DCA TEMP /NONE OF THESE 658 002237 1023 TAD LINPTR 659 002240 1377 TAD (-LINBUF-377 660 002241 7650 SNA CLA /AT END OF LINE BUFFER? 661 002242 5205 JMP GT /YES, DON'T ACCEPT CHAR 662 002243 1020 TAD TEMP /NO, RETRIEVE CHAR 663 002244 4577 JMS I [TYPE /ECHO IT 664 002245 1020 TAD TEMP /INSERT IN BUFFER 665 002246 3423 DCA I LINPTR 666 002247 2023 ISZ LINPTR /BUMP POINTER 667 002250 5205 JMP GT /NEXT 668 669 002251 1157 CTRLU, TAD ["^ 670 002252 4577 JMS I [TYPE 671 002253 1376 TAD ("U 672 002254 4577 JMS I [TYPE /ECHO "^U" 673 002255 4561 JMS I [CRLF 674 002256 1375 RDA, TAD ("# 675 002257 4577 JMS I [TYPE 676 002260 5202 JMP RD1 677 BS=10 678 679 002261 1023 RUBOUT, TAD LINPTR 680 002262 1136 TAD [-LINBUF 681 002263 7450 SNA 682 002264 5345 JMP BOL /AT BEGIN OF LINE 683 002265 1133 TAD [LINBUF-1 684 002266 3023 DCA LINPTR /MOVE POINTER BACK ONE 685 002267 1056 TAD SCOP 686 002270 7640 SZA CLA 687 002271 1374 TAD (BS-"\ 688 002272 1132 TAD ["\ 689 002273 4577 JMS I [TYPE /ECHO "\" 690 002274 1056 RUB3, TAD SCOP 691 002275 7650 SNA CLA 692 002276 5301 JMP .+3 693 002277 1131 TAD [40 694 002300 7410 SKP 695 002301 1423 TAD I LINPTR 696 002302 4577 JMS I [TYPE /ECHO RUBBED-OUT CHARACTER 697 002303 1056 TAD SCOP 698 002304 7650 SNA CLA 699 002305 5310 JMP GT2 700 002306 1130 TAD [BS 701 002307 4577 JMS I [TYPE 702 002310 4534 GT2, JMS I [GET 703 002311 4572 JMS I [BRANCH 704 002312 7401 -377;RUB2 002313 2331 705 002314 7562 -216;GT2 /IGNORE ^O 002315 2310 706 002316 7575 -203;CTRLC /^C 002317 0461 707 002320 0000 0 708 002321 3020 DCA TEMP /A NEW CHAR 709 002322 1056 TAD SCOP 710 002323 7640 SZA CLA 711 002324 5327 JMP .+3 712 002325 1132 TAD ["\ 713 002326 4577 JMS I [TYPE /ENCLOSE RUBBED-OUT CHARS IN \'S 714 002327 1020 TAD TEMP 715 002330 5206 JMP LOOK 716 717 002331 1023 RUB2, TAD LINPTR 718 002332 1136 TAD [-LINBUF 719 002333 7450 SNA 720 002334 5340 JMP BOL2 721 002335 1133 TAD [LINBUF-1 722 002336 3023 DCA LINPTR 723 002337 5274 JMP RUB3 724 002340 1056 BOL2, TAD SCOP 725 002341 7640 SZA CLA 726 002342 5345 JMP BOL 727 002343 1132 TAD ["\ 728 002344 4577 JMS I [TYPE 729 002345 4561 BOL, JMS I [CRLF 730 002346 5256 JMP RDA 731 732 002347 1127 ESCAPE, TAD ["$ /ECHO ESCAPE AS DOLLAR SIGN 733 002350 4577 JMS I [TYPE 734 002351 2040 ISZ ESCBIT /NOTE ESCAPE 735 002352 3423 CR, DCA I LINPTR /INSERT 0 AT END 736 002353 4561 JMS I [CRLF 737 002354 5600 JMP I READ /RETURN, WE GOT LINE 738 002355 3423 LF, DCA I LINPTR /TEMPORARILY INSERT A 0 SENTINEL 739 002356 1133 TAD [LINBUF-1 740 002357 3010 DCA XR1 741 002360 4561 JMS I [CRLF 742 002361 1126 TAD ["# 743 002362 4577 JMS I [TYPE 744 002363 1410 LFLP, TAD I XR1 745 002364 7450 SNA 746 002365 5525 JMP I [GT /FINISHED, GET SOME MORE CHARS 747 002366 4577 JMS I [TYPE /ECHO CURRENT CHARS 748 002367 5363 JMP LFLP 749 002374 7454 PAGE 002375 0243 002376 0325 002377 6401 750 /GET A DECIMAL NUMBER, RETURN IT IN AC 751 752 002400 0000 NUMBER, 0 753 002401 3031 DCA NUM 754 002402 7201 CLA IAC 755 002403 3053 DCA FLG 756 002404 4550 JMS I [BACKC 757 002405 4564 NM1, JMS I [GETC 758 002406 4524 JMS I [DIGIT 759 002407 5230 JMP EON 760 002410 1377 TAD (-"0 /CONVERT TO DIGIT 761 002411 3033 DCA T4 762 002412 3053 DCA FLG /NOTE PASSAGE OF A DIGIT 763 002413 1031 TAD NUM 764 002414 0136 AND [7000 765 002415 7640 SZA CLA 766 002416 5542 JMP I [NUMBIG 767 002417 1031 TAD NUM 768 002420 7106 CLL RTL 769 002421 1031 TAD NUM 770 002422 7104 CLL RAL 771 002423 1033 TAD T4 772 002424 7430 SZL 773 002425 5542 JMP I [NUMBIG 774 002426 3031 DCA NUM 775 002427 5205 JMP NM1 776 777 002430 7200 EON, CLA 778 002431 4550 JMS I [BACKC 779 002432 1053 TAD FLG 780 002433 7440 SZA 781 002434 3031 DCA NUM /IF NO DIGITS, RETURN A 1 782 002435 1031 TAD NUM 783 002436 5600 JMP I NUMBER 784 / GETDEV 785 786 /PARSES OFF A DEVICE NAME (1-4 CHARS) 787 /DETERMINES IF IT EXISTS 788 /LOADS HANDLER INTO 7200-7577 IF NOT ALREADY IN CORE 789 /SETS ENTRY POINT ADDRESS AT 'ENTRY' 790 /SETS DEVICE NUMBER AT 'DEVNUM' 791 /SETS DEVICE CONTROL WORD AT 'DCW' 792 /SETS 'DEVTYP' 793 794 002437 0000 GETDEV, 0 795 002440 4523 JMS I [GETTWO 796 002441 3262 DCA WD1 797 002442 4523 JMS I [GETTWO 798 002443 3263 DCA WD2 799 002444 1262 TAD WD1 800 002445 1263 TAD WD2 801 002446 3262 DCA WD1 /COMBINE TWO WORDS INTO 1 (IN WD1) 802 002447 1263 TAD WD2 803 002450 7650 SNA CLA 804 002451 5256 JMP INQ 805 002452 1262 TAD WD1 /OS/8 KLUDGE FOR UNIQUENESS 806 002453 7104 CLL RAL 807 002454 7130 STL RAR /FORCE BIT 0 ON IF 2ND WORD WAS NON-ZERO 808 002455 3262 DCA WD1 809 002456 3263 INQ, DCA WD2 810 002457 6212 CIF 10 811 002460 4437 JMS I USR 812 002461 0012 12 /INQUIRE 813 002462 0000 WD1, 0 /DEVICE NAME 814 002463 0000 WD2, 0 /GETS DEVICE NUMBER 815 002464 0000 WD3, 0 /GETS ENTRY POINT 816 002465 5522 JMP I [NONEX /DEVICE DOESN'T EXIST 817 002466 1264 TAD WD3 818 002467 7440 SZA /IS HANDLER ALREADY IN CORE? 819 002470 5312 JMP INCORE /YES 820 002471 1262 TAD WD1 821 002472 3301 DCA DW1 822 002473 1376 TAD (7201 /ALLOW TWO PAGE HANDLER IN 7200 823 002474 3303 DCA DW3 824 002475 3302 DCA DW2 825 002476 6212 CIF 10 826 002477 4437 JMS I USR 827 002500 0001 1 /FETCH 828 002501 0000 DW1, 0 /DEVICE NAME 829 002502 0000 DW2, 0 /GETS DEVICE NUMBER 830 002503 0000 DW3, 0 /GETS ENTRY POINT 831 002504 5522 JMP I [NONEX /DOESN'T EXIST 832 002505 1302 TAD DW2 833 002506 3034 DCA DEVNUM 834 002507 1303 TAD DW3 835 002510 3030 DCA ENTRY 836 002511 5315 JMP GETYP 837 002512 3030 INCORE, DCA ENTRY 838 002513 1263 TAD WD2 839 002514 3034 DCA DEVNUM 840 002515 1034 GETYP, TAD DEVNUM 841 002516 1375 TAD (7757 842 002517 3036 DCA DCWPTR /POINT INTO DEVICE CONTROL WGRD TABLE 843 002520 6211 CDF 10 844 002521 1436 TAD I DCWPTR /GET DCW 845 002522 3035 DCA DCW 846 002523 1035 TAD DCW 847 002524 7012 RTR 848 002525 7010 RAR 849 002526 0166 AND [77 850 002527 3027 DCA DEVTYP 851 002530 7240 STA 852 002531 1774 TAD I (37 /GET ADDRESS OF DHIT 853 002532 3044 DCA DHIT 854 002533 1044 TAD DHIT 855 002534 1034 TAD DEVNUM 856 002535 3045 DCA DHI 857 002536 1445 TAD I DHI 858 002537 6201 CDF 0 859 002540 3045 DCA DHI 860 002541 1045 TAD DHI 861 002542 7006 RTL 862 002543 7006 RTL 863 002544 7006 RTL 864 002545 0373 AND (17 865 002546 7440 SZA 866 002547 1372 TAD (15 867 002550 3046 DCA DBLK 868 002551 5637 JMP I GETDEV 869 870 002552 0000 DELAYY, 0 871 002553 1371 TAD (-10 872 002554 3363 DCA OUTER 873 002555 2362 ISZ ZER 874 002556 5355 JMP .-1 875 002557 2363 ISZ OUTER 876 002560 5355 JMP .-3 877 002561 5752 JMP I DELAYY 878 002562 0000 ZER, 0 879 002563 7770 OUTER, -10 880 002571 7770 PAGE 002572 0015 002573 0017 002574 0037 002575 7757 002576 7201 002577 7520 881 002600 0000 OLDTST, 0 /V3D 882 002601 4777 JMS I (ASRTST 883 002602 1050 TAD VNO 884 002603 4572 JMS I [BRANCH 885 002604 7777 -1;OLDERR 002605 4261 886 002606 7776 -2;OLDERR 002607 4261 887 002610 7775 -3;OLDERR 002611 4261 888 002612 7774 -4;OLDERR 002613 4261 889 002614 7773 -5;TSTOK 002615 2624 890 002616 0000 ZBLOCK 4 002617 0000 002620 0000 002621 0000 891 002622 0000 0 892 002623 5521 JMP I [NEWERR 893 002624 5600 TSTOK, JMP I OLDTST 894 002625 0000 TTPAUS, 0 895 002626 4200 JMS OLDTST 896 002627 4546 JMS I [SRCH 897 002630 0200 200;100;15 002631 0100 002632 0015 898 002633 5545 JMP I [REASEM 899 002634 1376 TAD (-3 900 002635 3020 DCA TEMP /SEE SOURCE OF KL8E FOR EXPLANATION 901 002636 1052 TAD NO 902 002637 7650 SNA CLA 903 002640 1375 TAD (7650-7610 /YES 904 002641 1374 TAD (7610 /NO 905 002642 3420 DCA I TEMP 906 002643 3031 DCA NUM 907 002644 4564 JMS I [GETC 908 002645 7650 SNA CLA 909 002646 5304 JMP NOPA /NO PAUSE VALUE 910 002647 1052 TAD NO 911 002650 7640 SZA CLA 912 002651 5570 JMP I [SYNTAX /SET TTY NO PAUSE N 913 002652 4520 JMS I [NUMBER 914 002653 7450 SNA 915 002654 5313 JMP BADPAUS 916 002655 3031 DCA NUM 917 002656 1031 TAD NUM /SCALE CORRECTLY 918 002657 7104 CLL RAL 919 002660 1031 TAD NUM 920 002661 7106 CLL RTL 921 002662 3031 DCA NUM 922 002663 1053 TAD FLG 923 002664 7640 SZA CLA 924 002665 5313 JMP BADPAUS /NO DIGITS 925 002666 1031 TAD NUM 926 002667 0117 AND [6000 927 002670 7640 SZA CLA 928 002671 5313 JMP BADPAUS 929 002672 4546 JMS I [SRCH 930 002673 0300 300;77;7600 002674 0077 002675 7600 931 002676 5545 JMP I [REASEM 932 002677 1373 TAD (5 933 002700 3020 DCA TEMP 934 002701 1031 TAD NUM 935 002702 7041 CIA 936 002703 3420 DCA I TEMP 937 002704 4772 NOPA, JMS I (BASLUK 938 002705 5625 JMP I TTPAUS 939 002706 1031 TAD NUM 940 002707 7041 CIA 941 002710 3771 DCA I (AUXBUF+1 942 002711 4770 JMS I (BASWRI 943 002712 5625 JMP I TTPAUS 944 002713 4563 BADPAUS,JMS I [PRINT 945 002714 7740 TEXT /? BAD VALUE FOR PAUSE DURATION/ 002715 0201 002716 0440 002717 2601 002720 1425 002721 0540 002722 0617 002723 2240 002724 2001 002725 2523 002726 0540 002727 0425 002730 2201 002731 2411 002732 1716 002733 0000 946 002734 5571 JMP I [GOAWAY 947 002735 0000 ONUM, 0 948 002736 3031 DCA NUM 949 002737 7201 CLA IAC 950 002740 3053 DCA FLG 951 002741 4564 ONM1, JMS I [GETC 952 002742 1367 TAD (-"0-10 /CONVERT TO DIGIT 953 002743 7100 CLL 954 002744 1130 TAD [10 955 002745 7420 SNL 956 002746 5363 JMP OEON 957 002747 3033 DCA T4 958 002750 3053 DCA FLG 959 002751 1031 TAD NUM 960 002752 0136 AND [7000 961 002753 7640 SZA CLA 962 002754 5542 JMP I [NUMBIG 963 002755 1031 TAD NUM 964 002756 7106 CLL RTL 965 002757 7004 RAL 966 002760 1033 TAD T4 967 002761 3031 DCA NUM 968 002762 5341 JMP ONM1 969 002763 7200 OEON, CLA 970 002764 4550 JMS I [BACKC 971 002765 1031 TAD NUM 972 002766 5735 JMP I ONUM 973 002767 7510 PAGE 002770 3547 002771 6601 002772 3525 002773 0005 002774 7610 002775 0040 002776 7775 002777 5052 974 003000 0000 TTCOL, 0 975 003001 1052 TAD NO 976 003002 7640 SZA CLA 977 003003 5570 JMP I [SYNTAX /SET TTY NO COL 978 003004 4564 JMS I [GETC 979 003005 7650 SNA CLA 980 003006 5253 JMP BADCOL /NO COL SPECIFIED 981 003007 4520 JMS I [NUMBER 982 003010 7450 SNA 983 003011 5253 JMP BADCOL 984 003012 3031 DCA NUM 985 003013 1053 TAD FLG 986 003014 7640 SZA CLA 987 003015 5570 JMP I [SYNTAX 988 003016 1031 TAD NUM 989 003017 0116 AND [7770 990 003020 7640 SZA CLA 991 003021 5253 JMP BADCOL 992 003022 1377 TAD (CCLNAM /READ IN CCL.SV 993 003023 4515 JMS I [LOOKUP 994 003024 5330 JMP CCLNF /CCL NOT FOUND 995 003025 1376 TAD (2 /WANT 2ND BLOCK IN CCL 996 003026 3232 DCA ARG2 /CCL LOCATIONS 12400-12777 997 003027 4775 JMS I (7607 998 003030 0200 200 /READ IN 2 PAGES 999 003031 6600 AUXBUF 1000 003032 0000 ARG2, 0 1001 003033 5551 JMP I [SYSERR 1002 003034 1232 TAD ARG2 1003 003035 3250 DCA ARG3 1004 003036 1774 TAD I (AUXBUF /GET PTR TO DIRECT COL WORD 1005 003037 7510 SPA 1006 003040 5267 JMP OLDCCL 1007 003041 1373 TAD (AUXBUF-2400 /RELOCATE 1008 003042 3232 DCA ARG2 1009 003043 1031 TAD NUM 1010 003044 3632 DCA I ARG2 1011 003045 4775 JMS I (7607 1012 003046 4200 4200 1013 003047 6600 AUXBUF 1014 003050 0000 ARG3, 0 1015 003051 5551 JMP I [SYSERR 1016 003052 5600 JMP I TTCOL 1017 003053 4563 BADCOL, JMS I [PRINT 1018 003054 7740 TEXT /? BAD COLUMN COUNT/ 003055 0201 003056 0440 003057 0317 003060 1425 003061 1516 003062 4003 003063 1725 003064 1624 003065 0000 1019 003066 5571 JMP I [GOAWAY 1020 1021 003067 7200 OLDCCL, CLA 1022 003070 4563 JMS I [PRINT 1023 003071 7740 TEXT /? WRONG VERSION OF CCL/ 003072 2722 003073 1716 003074 0740 003075 2605 003076 2223 003077 1117 003100 1640 003101 1706 003102 4003 003103 0314 003104 0000 1024 003105 5571 JMP I [GOAWAY 1025 003106 0000 TYPE, 0 1026 003107 3323 DCA TYPEM 1027 003110 4556 JMS I [DELAYY 1028 003111 3310 DCA .-1 /DELAY FIRST TIME THRU TO LET THINGS QUIET DOWN 1029 003112 1042 TAD CTOFLG 1030 003113 7640 SZA CLA 1031 003114 5706 JMP I TYPE /NO ECHOING 1032 003115 1323 TAD TYPEM 1033 003116 6046 TLS 1034 003117 6041 TSF 1035 003120 5317 JMP .-1 1036 003121 7200 CLA 1037 003122 5706 JMP I TYPE 1038 1039 003123 0000 TYPEM, 0 1040 1041 003124 0303 CCLNAM, FILENAME CCL.SV 003125 1400 003126 0000 003127 2326 1042 1043 003130 4563 CCLNF, JMS I [PRINT 1044 003131 7740 TEXT /? CCL.SV NOT FOUND/ 003132 0303 003133 1456 003134 2326 003135 4016 003136 1724 003137 4006 003140 1725 003141 1604 003142 0000 1045 003143 5571 JMP I [GOAWAY 1046 CCLBLK=67 1047 1048 003144 0000 FIXCCL, 0 1049 003145 4552 JMS I [7607 1050 003146 0200 200 1051 003147 6600 AUXBUF 1052 003150 0067 CCLBLK 1053 003151 5551 JMP I [SYSERR 1054 003152 1774 TAD I (AUXBUF 1055 003153 1372 TAD (-"G 1056 003154 7710 SPA CLA 1057 003155 5771 JMP I (OLDCCL 1058 003156 1370 TAD (CCLTBL 1059 003157 4767 JMS I (FIXUP 1060 003160 4552 JMS I [7607 1061 003161 4200 4200 1062 003162 6600 AUXBUF 1063 003163 0067 CCLBLK 1064 003164 5551 JMP I [SYSERR 1065 003165 5744 JMP I FIXCCL 1066 003167 3476 PAGE 003170 3342 003171 3067 003172 7471 003173 4200 003174 6600 003175 7607 003176 0002 003177 3124 1067 003200 0305 ESC, "E;"S;"C;4000+"A;4000+"P;4000+"E;0 003201 0323 003202 0303 003203 4301 003204 4320 003205 4305 003206 0000 1068 1069 003207 0000 TTHGHT, 0 1070 003210 4777 JMS I (OLDTST 1071 003211 4564 JMS I [GETC 1072 003212 7650 SNA CLA 1073 003213 5776 JMP I (BADHIT /NO HEIGHT 1074 003214 1052 TAD NO 1075 003215 7640 SZA CLA 1076 003216 5570 JMP I [SYNTAX /SET TTY NO HEIGHT 1077 003217 4520 JMS I [NUMBER 1078 003220 7450 SNA 1079 003221 5776 JMP I (BADHIT 1080 003222 3031 DCA NUM 1081 003223 1053 TAD FLG 1082 003224 7640 SZA CLA 1083 003225 5776 JMP I (BADHIT /NO DIGITS 1084 003226 4546 JMS I [SRCH 1085 003227 0300 300;77;7600 003230 0077 003231 7600 1086 003232 5545 JMP I [REASEM 1087 003233 1375 TAD (3 1088 003234 3020 DCA TEMP 1089 003235 1031 TAD NUM 1090 003236 7041 CIA 1091 003237 3420 DCA I TEMP 1092 003240 1420 TAD I TEMP 1093 003241 2020 ISZ TEMP 1094 003242 3420 DCA I TEMP 1095 003243 4774 JMS I (BASLUK 1096 003244 5607 JMP I TTHGHT 1097 003245 1031 TAD NUM 1098 003246 7041 CIA 1099 003247 3773 DCA I (AUXBUF 1100 003250 4772 JMS I (BASWRI 1101 003251 5607 JMP I TTHGHT 1102 / LOC YES NO 1103 003252 7113 KBMTBL, AUXBUF+313; 0210; 1070 003253 0210 003254 1070 1104 003255 7114 AUXBUF+314; 1313; 2020 003256 1313 003257 2020 1105 003260 7116 AUXBUF+316; 1324; 7240 003261 1324 003262 7240 1106 003263 7117 AUXBUF+317; 4423; 3020 003264 4423 003265 3020 1107 003266 7122 AUXBUF+322; 1313; 1440 003267 1313 003270 1440 1108 003271 7024 AUXBUF+224; 7555; 7403 003272 7555 003273 7403 1109 003274 7025 AUXBUF+225; 1207; 1302 003275 1207 003276 1302 1110 003277 7026 AUXBUF+226; 7557; 7402 003300 7557 003301 7402 1111 003302 7027 AUXBUF+227; 1207; 1302 003303 1207 003304 1302 1112 003305 0000 0 1113 1114 003306 6735 CDTBL, AUXBUF+135; 0210; 1102 003307 0210 003310 1102 1115 003311 6736 AUXBUF+136; 1335; 2024 003312 1335 003313 2024 1116 003314 6740 AUXBUF+140; 1346; 7240 003315 1346 003316 7240 1117 003317 6741 AUXBUF+141; 4466; 3024 003320 4466 003321 3024 1118 003322 6744 AUXBUF+144; 1335; 1420 003323 1335 003324 1420 1119 003325 6633 AUXBUF+33; 7555; 7403 003326 7555 003327 7403 1120 003330 6634 AUXBUF+34; 5207; 5321 003331 5207 003332 5321 1121 003333 6635 AUXBUF+35; 7557; 7402 003334 7557 003335 7402 1122 003336 6636 AUXBUF+36; 5207; 5321 003337 5207 003340 5321 1123 003341 0000 0 1124 1125 003342 6604 CCLTBL, AUXBUF+4; 0024; 0002 003343 0024 003344 0002 1126 003345 6605 AUXBUF+5; 0522; 0143 003346 0522 003347 0143 1127 003350 6606 AUXBUF+6; 5551; 5363 003351 5551 003352 5363 1128 003353 6607 AUXBUF+7; 5600; 6000 003354 5600 003355 6000 1129 003356 0000 0 1130 1131 003357 0301 AROW, "A;"R;"R;"O;"W;0 003360 0322 003361 0322 003362 0317 003363 0327 003364 0000 1132 003372 3547 PAGE 003373 6600 003374 3525 003375 0003 003376 3746 003377 2600 1133 / SCOPE BIT ON DISK: 1134 / BLOCK 0 REL 126 BIT 4 1135 1136 / SCOPE BIT IN MEMORY: 1137 / LOC 17726 BIT 4 1138 1139 003400 0000 TTSCOP, 0 1140 /THE FOLLOWING CODE WOULD BE ADDED IF WE WANT TO 1141 /ALLOW CHANGING KL8E SCOPE PATTERNS 1142 / JMS I (ASRTST 1143 / TAD VNO 1144 / JMS I [BRANCH 1145 / -1;OLDERR 1146 / -2;OLDERR 1147 / -3;OLDERR 1148 / -4;OLDERR 1149 / -5;TTSCOK 1150 / ZBLOCK 2 1151 / 0 1152 / JMP I [NEWERR 1153 003401 4777 TTSCOK, JMS I (7607 1154 003402 0200 200 1155 003403 6600 AUXBUF /READ 2 PAGES INTO AUXILIARY BUFFER 1156 003404 0011 11 1157 003405 5551 JMP I [SYSERR 1158 003406 1376 TAD (KBMTBL 1159 003407 4276 JMS FIXUP 1160 003410 4777 JMS I (7607 1161 003411 4200 4200 1162 003412 6600 AUXBUF 1163 003413 0011 11 1164 003414 5551 JMP I [SYSERR 1165 003415 4777 JMS I (7607 1166 003416 0200 200 1167 003417 6600 AUXBUF /READ BLOCK 53 (CD) 1168 003420 0053 53 1169 003421 5551 JMP I [SYSERR 1170 003422 1375 TAD (CDTBL 1171 003423 4276 JMS FIXUP 1172 003424 4777 JMS I (7607 1173 003425 4200 4200 1174 003426 6600 AUXBUF 1175 003427 0053 53 1176 003430 5551 JMP I [SYSERR 1177 003431 1052 TAD NO /SET SCOPE BIT 1178 003432 7650 SNA CLA 1179 003433 7001 IAC 1180 003434 3056 DCA SCOP 1181 003435 6211 CDF 10 1182 003436 1374 TAD (SCPBIT 1183 003437 4256 JMS SET200 1184 003440 6201 CDF 0 1185 003441 4777 JMS I (7607 1186 003442 0200 200 1187 003443 6600 AUXBUF 1188 003444 0000 0 1189 003445 5551 JMP I [SYSERR 1190 003446 1373 TAD (AUXBUF+126 1191 003447 4256 JMS SET200 1192 003450 4777 JMS I (7607 1193 003451 4200 4200 1194 003452 6600 AUXBUF 1195 003453 0000 0 1196 003454 5551 JMP I [SYSERR 1197 / JMS I [SRCH 1198 / 366;11;7770 1199 / JMP I [REASEM 1200 / CLA 1201 / JMS I [SRCH 1202 / 0;200;"\ 1203 / JMP I [OLDERR 1204 / IAC 1205 / DCA TEMP 1206 / TAD NO 1207 / SNA CLA 1208 / TAD (1336-1367 1209 / TAD (1367 1210 / DCA I TEMP 1211 003455 5600 JMP I TTSCOP 1212 003456 0000 SET200, 0 /DF IS SPECIALLY SET 1213 003457 3275 DCA HLTPTR 1214 003460 1675 TAD I HLTPTR 1215 003461 0372 AND (7577 1216 003462 3020 DCA TEMP 1217 003463 1020 TAD TEMP 1218 003464 1371 TAD (-HLT 1219 003465 7640 SZA CLA 1220 003466 5770 JMP I (BADKBM 1221 003467 1052 TAD NO 1222 003470 7650 SNA CLA 1223 003471 1167 TAD [200 1224 003472 1020 TAD TEMP 1225 003473 3675 DCA I HLTPTR 1226 003474 5656 JMP I SET200 1227 003475 0000 HLTPTR, 0 1228 1229 003476 0000 FIXUP, 0 1230 003477 3317 DCA FIXPTR 1231 003500 1717 FIXLUP, TAD I FIXPTR 1232 003501 7450 SNA 1233 003502 5676 JMP I FIXUP 1234 003503 3320 DCA FIXLOC 1235 003504 2317 ISZ FIXPTR 1236 003505 1052 TAD NO 1237 003506 7640 SZA CLA 1238 003507 2317 ISZ FIXPTR 1239 003510 1717 TAD I FIXPTR 1240 003511 3720 DCA I FIXLOC 1241 003512 1052 TAD NO 1242 003513 7650 SNA CLA 1243 003514 2317 ISZ FIXPTR 1244 003515 2317 ISZ FIXPTR 1245 003516 5300 JMP FIXLUP 1246 1247 003517 0000 FIXPTR, 0 1248 003520 0000 FIXLOC, 0 1249 003521 0201 BASNAM, FILENAME BASIC.SV 003522 2311 003523 0300 003524 2326 1250 1251 003525 0000 BASLUK, 0 1252 003526 1367 TAD (BASNAM 1253 003527 4766 JMS I (LOOKUP 1254 003530 5725 JMP I BASLUK 1255 003531 2325 ISZ BASLUK 1256 003532 1365 TAD (7 1257 003533 3337 DCA BASBLK 1258 003534 4552 JMS I [7607 1259 003535 0200 200 1260 003536 6600 AUXBUF 1261 003537 0000 BASBLK, 0 1262 003540 5551 JMP I [SYSERR 1263 003541 1337 TAD BASBLK 1264 003542 3353 DCA BASB2 1265 003543 1764 TAD I (AUXBUF+2 1266 003544 7650 SNA CLA 1267 003545 5725 JMP I BASLUK 1268 003546 5763 JMP I (OLDBAS 1269 1270 003547 0000 BASWRI, 0 1271 003550 4552 JMS I [7607 1272 003551 4200 4200 1273 003552 6600 AUXBUF 1274 003553 0000 BASB2, 0 1275 003554 5551 JMP I [SYSERR 1276 003555 5747 JMP I BASWRI 1277 003563 6152 PAGE 003564 6602 003565 0007 003566 6502 003567 3521 003570 2051 003571 0376 003572 7577 003573 6726 003574 7726 003575 3306 003576 3252 003577 7607 1278 003600 0000 TTCODE, 0 1279 003601 1052 TAD NO 1280 003602 7640 SZA CLA 1281 003603 5570 JMP I [SYNTAX 1282 003604 4541 JMS I [ONUM 1283 003605 7450 SNA 1284 003606 5570 JMP I [SYNTAX 1285 003607 3055 DCA NUCODE 1286 003610 1055 TAD NUCODE 1287 003611 0114 AND [7700 1288 003612 7640 SZA CLA 1289 003613 5542 JMP I [NUMBIG 1290 003614 4547 JMS I [TTST1 1291 003615 1377 TAD (7200 1292 003616 3054 DCA RR 1293 003617 4260 JMS GETIOT 1294 003620 5513 JMP I [OLDERR 1295 003621 7041 CIA 1296 003622 3022 DCA T2 1297 003623 4260 TTLP, JMS GETIOT 1298 003624 5513 JMP I [OLDERR 1299 003625 7041 CIA 1300 003626 3024 DCA T3 1301 003627 1024 TAD T3 1302 003630 7041 CIA 1303 003631 1022 TAD T2 1304 003632 7450 SNA 1305 003633 5223 JMP TTLP 1306 003634 7700 SMA CLA 1307 003635 5240 JMP .+3 1308 003636 1024 TAD T3 1309 003637 3022 DCA T2 /T2 CONTAINS NEG OF SMALLER IOT 1310 003640 1377 TAD (7200 1311 003641 3054 DCA RR 1312 003642 4260 TTLP2, JMS GETIOT 1313 003643 5600 JMP I TTCODE 1314 003644 1022 TAD T2 1315 003645 7640 SZA CLA 1316 003646 7201 CLA IAC 1317 003647 1055 TAD NUCODE 1318 003650 7106 CLL RTL 1319 003651 7004 RAL 1320 003652 3024 DCA T3 1321 003653 1454 TAD I RR 1322 003654 0376 AND (7007 1323 003655 1024 TAD T3 1324 003656 3454 DCA I RR 1325 003657 5242 JMP TTLP2 1326 003660 0000 GETIOT, 0 1327 003661 2054 ISZ RR 1328 003662 1054 TAD RR 1329 003663 1375 TAD (-7600 1330 003664 7650 SNA CLA 1331 003665 5660 JMP I GETIOT 1332 003666 1454 TAD I RR 1333 003667 0136 AND [7000 1334 003670 1173 TAD [-6000 1335 003671 7640 SZA CLA 1336 003672 5261 JMP GETIOT+1 1337 003673 1454 TAD I RR 1338 003674 7012 RTR 1339 003675 7010 RAR 1340 003676 0166 AND [77 1341 003677 1374 TAD (-20 1342 003700 7110 CLL RAR 1343 003701 7450 SNA 1344 003702 5261 JMP GETIOT+1 1345 003703 7004 RAL 1346 003704 1373 TAD (20 1347 003705 2260 ISZ GETIOT 1348 003706 5660 JMP I GETIOT 1349 003707 4563 NOTIMPL,JMS I [PRINT 1350 003710 4540 TEXT /% OPERATION NOT YET IMPLEMENTED/ 003711 1720 003712 0522 003713 0124 003714 1117 003715 1640 003716 1617 003717 2440 003720 3105 003721 2440 003722 1115 003723 2014 003724 0515 003725 0516 003726 2405 003727 0400 1351 003730 5571 JMP I [GOAWAY 1352 003731 4574 SET, JMS I [SPACE 1353 003732 3050 DCA VNO /V3C 1354 003733 4512 JMS I [GETDEV 1355 003734 4564 JMS I [GETC 1356 003735 4572 JMS I [BRANCH 1357 003736 7506 -":;COLN 003737 4000 1358 003740 7540 -" ;COLN 003741 4000 1359 003742 7523 -"-;HYPH 003743 4077 1360 003744 0000 0 1361 003745 5570 JMP I [SYNTAX /NO : OR BLANK AFTER NAME 1362 1363 003746 4563 BADHIT, JMS I [PRINT 1364 003747 7740 TEXT /? BAD HEIGHT SPECIFIED/ 003750 0201 003751 0440 003752 1005 003753 1107 003754 1024 003755 4023 003756 2005 003757 0311 003760 0611 003761 0504 003762 0000 1365 003763 5571 JMP I [GOAWAY 1366 1367 003764 0000 TTALT, 0 1368 003765 4547 JMS I [TTST1 1369 003766 5511 JMP I [NOTIMPL 1370 003767 5764 JMP I TTALT 1371 003773 0020 PAGE 003774 7760 003775 0200 003776 7007 003777 7200 1372 004000 7240 COLN, STA 1373 004001 4574 JMS I [SPACE /IGNORE OPTIONAL SPACES 1374 004002 4564 JMS I [GETC 1375 004003 7450 SNA 1376 004004 5570 JMP I [SYNTAX 1377 004005 1377 TAD (-"- 1378 004006 7650 SNA CLA 1379 004007 5277 JMP HYPH 1380 004010 4550 JMS I [BACKC 1381 004011 7240 STA 1382 004012 1034 TAD DEVNUM 1383 004013 7650 SNA CLA 1384 004014 5274 JMP SYSDV 1385 004015 3335 COLN2, DCA NAM1 1386 004016 3336 DCA NAM2 1387 004017 1376 TAD (MAIN-1 /LOOK FOR DEVICE TYPE IN MAIN TABLE 1388 004020 3010 MNLUP, DCA XR1 1389 004021 1410 TAD I XR1 1390 004022 7540 SMA SZA 1391 004023 5350 JMP NOTYP /NOT FOUND 1392 004024 1027 TAD DEVTYP 1393 004025 7650 SNA CLA 1394 004026 5232 JMP FNDTYP 1395 004027 1010 TAD XR1 1396 004030 1375 TAD (3 /POINT TO NEXT ENTRY 1397 004031 5220 JMP MNLUP 1398 004032 1410 FNDTYP, TAD I XR1 /GET GENERIC NAME 1399 004033 3335 DCA NAM1 1400 004034 1410 TAD I XR1 1401 004035 3336 DCA NAM2 1402 004036 3360 DCA AUXFLG 1403 004037 1410 TAD I XR1 /GET PTR TO DEVICE TABLE 1404 004040 3043 INTO, DCA PTR 1405 004041 3052 DCA NO 1406 004042 1023 TAD LINPTR 1407 004043 3051 DCA SAVPTR /SAVE SCAN POINTER 1408 004044 4523 JMS I [GETTWO 1409 004045 1374 TAD (-1617 1410 004046 7650 SNA CLA /ARE NEXT TWO CHARS 'NO'? 1411 004047 4341 JMS SAWNO /YES 1412 004050 1051 TAD SAVPTR /NO 1413 004051 3023 DCA LINPTR /RESTORE PTR 1414 004052 1443 SCNLUP, TAD I PTR 1415 004053 7450 SNA /GET NEXT KEYWORD POINTER 1416 004054 5311 JMP NOKEY 1417 004055 2043 ISZ PTR /POINT TO PTR TO ROUTINE 1418 004056 4544 JMS I [KEYSRCH 1419 004057 5354 JMP NOF /NOT FOUND 1420 004060 1443 TAD I PTR /FOUND 1421 004061 3043 DCA PTR /GET PTR TO ROUTINE 1422 004062 7240 STA 1423 004063 1034 TAD DEVNUM 1424 004064 7640 SZA CLA 1425 004065 4773 JMS I (HREAD /READ HANDLER 1426 004066 4443 JMS I PTR /CALL ROUTINE 1427 004067 7240 STA 1428 004070 1034 TAD DEVNUM 1429 004071 7640 SZA CLA 1430 004072 4772 JMS I (HWRITE /REWRITE HANDLER 1431 004073 5571 JMP I [GOAWAY 1432 1433 004074 2360 SYSDV, ISZ AUXFLG 1434 004075 1371 TAD (SYSAUX 1435 004076 5240 JMP INTO /V3D ALLOW SET SYS: 1436 004077 4540 HYPH, JMS I [ALPHA 1437 004100 5510 JMP I [BADV 1438 004101 3050 DCA VNO 1439 004102 1050 TAD VNO 1440 004103 7450 SNA 1441 004104 5510 JMP I [BADV 1442 004105 0107 AND [17 1443 004106 3050 DCA VNO 1444 004107 4574 JMS I [SPACE /IGNORE SPACE 1445 004110 5215 JMP COLN2 1446 004111 1360 NOKEY, TAD AUXFLG 1447 004112 7650 SNA CLA 1448 004113 5361 JMP NOO 1449 004114 4563 JMS I [PRINT 1450 004115 7740 TEXT \? UNKNOWN ATTRIBUTE FOR DEVICE \ 004116 2516 004117 1316 004120 1727 004121 1640 004122 0124 004123 2422 004124 1102 004125 2524 004126 0540 004127 0617 004130 2240 004131 0405 004132 2611 004133 0305 004134 4040 004135 0000 1451 *.-1 1452 004135 0000 NAM1, 0 1453 004136 0000 NAM2, 0 1454 004137 0000 0 1455 004140 5571 JMP I [GOAWAY 1456 1457 004141 0000 SAWNO, 0 1458 004142 2052 ISZ NO 1459 004143 7240 STA 1460 004144 4574 JMS I [SPACE 1461 004145 1023 TAD LINPTR 1462 004146 3051 DCA SAVPTR 1463 004147 5741 JMP I SAWNO 1464 1465 004150 7200 NOTYP, CLA 1466 004151 2360 ISZ AUXFLG 1467 004152 1370 TAD (AUX /SEARCH AUXILIARY TABLE 1468 004153 5240 JMP INTO 1469 004154 2043 NOF, ISZ PTR 1470 004155 1051 TAD SAVPTR 1471 004156 3023 DCA LINPTR 1472 004157 5252 JMP SCNLUP 1473 1474 004160 0000 AUXFLG, 0 1475 1476 004161 2360 NOO, ISZ AUXFLG 1477 004162 1370 TAD (AUX 1478 004163 3043 DCA PTR 1479 004164 5252 JMP SCNLUP 1480 004170 4446 PAGE 004171 4706 004172 4302 004173 4200 004174 6161 004175 0003 004176 4342 004177 7523 1481 004200 0000 HREAD, 0 1482 004201 1046 TAD DBLK 1483 004202 7450 SNA 1484 004203 5240 JMP RESERR 1485 004204 3210 DCA BLOCK 1486 004205 4552 JMS I [7607 1487 004206 0200 200 /READ 2 PAGES 1488 004207 7200 L7200, 7200 /INTO 7200-7577 1489 004210 0000 BLOCK, 0 /FROM THIS BLOCK ON SYSTEM DEVICE 1490 004211 5551 JMP I [SYSERR 1491 004212 1045 TAD DHI 1492 004213 0165 AND [177 /GET RELATIVE ENTRY PT 1493 004214 1207 TAD L7200 1494 004215 3030 DCA ENTRY 1495 004216 1050 TAD VNO 1496 004217 7640 SZA CLA /V3C 1497 004220 5600 JMP I HREAD /VNO ALREADY SET BY - COMMAND 1498 004221 1030 TAD ENTRY 1499 004222 3047 VLOOP, DCA VNOPTR 1500 004223 1447 TAD I VNOPTR 1501 004224 7100 CLL 1502 004225 1106 TAD [-33 1503 004226 7630 SZL CLA 1504 004227 5235 JMP BACKV 1505 004230 1447 TAD I VNOPTR 1506 004231 7450 SNA 1507 004232 5261 JMP OLDERR 1508 004233 3050 DCA VNO 1509 004234 5600 JMP I HREAD 1510 004235 7240 BACKV, STA 1511 004236 1047 TAD VNOPTR 1512 004237 5222 JMP VLOOP 1513 1514 004240 4563 RESERR, JMS I [PRINT 1515 004241 7740 TEXT /? CAN'T - DEVICE IS RESIDENT/ 004242 0301 004243 1647 004244 2440 004245 5540 004246 0405 004247 2611 004250 0305 004251 4011 004252 2340 004253 2205 004254 2311 004255 0405 004256 1624 004257 0000 1516 004260 5571 JMP I [GOAWAY 1517 004261 7200 OLDERR, CLA 1518 004262 4563 JMS I [PRINT 1519 004263 7740 TEXT /? CAN'T - OBSOLETE HANDLER/ 004264 0301 004265 1647 004266 2440 004267 5540 004270 1702 004271 2317 004272 1405 004273 2405 004274 4010 004275 0116 004276 0414 004277 0522 004300 0000 1520 004301 5571 JMP I [GOAWAY 1521 1522 004302 0000 HWRITE, 0 1523 004303 1210 TAD BLOCK 1524 004304 3310 DCA BLKTWO 1525 004305 4552 JMS I [7607 1526 004306 4200 4200 1527 004307 7200 7200 1528 004310 0000 BLKTWO, 0 1529 004311 5551 JMP I [SYSERR 1530 004312 5702 JMP I HWRITE 1531 004313 7200 NEWERR, CLA 1532 004314 4563 JMS I [PRINT 1533 004315 7740 TEXT /? CAN'T - UNKNOWN VERSION OF THIS HANDLER/ 004316 0301 004317 1647 004320 2440 004321 5540 004322 2516 004323 1316 004324 1727 004325 1640 004326 2605 004327 2223 004330 1117 004331 1640 004332 1706 004333 4024 004334 1011 004335 2340 004336 1001 004337 1604 004340 1405 004341 2200 1534 004342 5571 JMP I [GOAWAY 1535 004343 0000 MAIN, -0; DEVICE TTY; TTYTBL 004344 2424 004345 3100 004346 5517 1536 004347 7777 -1; DEVICE PTR; PTRTBL 004350 2024 004351 2200 004352 5505 1537 004353 7776 -2; DEVICE PTP; PTPTBL 004354 2024 004355 2000 004356 5512 1538 004357 7775 -3; DEVICE CDR; CDRTBL 004360 0304 004361 2200 004362 6556 1539 004363 7774 -4; DEVICE LPT; LPTTBL 004364 1420 004365 2400 004366 4414 1540 004367 7760 -20; DEVICE MTA; MTATBL 004370 1524 004371 0100 004372 4433 1541 004373 0001 1 1542 004374 0000 ZBLOCK 20 004375 0000 004376 0000 004377 0000 004400 0000 004401 0000 004402 0000 004403 0000 004404 0000 004405 0000 004406 0000 004407 0000 004410 0000 004411 0000 004412 0000 004413 0000 1543 /TABLE ENDS WITH A POSITIVE NON-ZERO NUMBER 1544 004414 4471 LPTTBL, WIDTH;LPWDTH 004415 5000 1545 004416 4477 LC;LPLC 004417 5210 1546 004420 4502 LV8E;LPLV 004421 5200 1547 004422 4743 LA8A; LP8A 004423 2073 1548 004424 4750 LA78; LP78 004425 2067 1549 004426 0000 ZBLOCK 4 004427 0000 004430 0000 004431 0000 1550 004432 0000 0 1551 1552 004433 4602 MTATBL, PARITY;MTAPAR 004434 6200 1553 004435 4611 DENSITY;MTADEN 004436 6252 1554 004437 4553 FILES;MTAFIL 004440 6261 1555 004441 0000 ZBLOCK 4 004442 0000 004443 0000 004444 0000 1556 004445 0000 0 1557 004446 4542 AUX, LOC;GENLOC 004447 6102 1558 004450 4553 FILES;GENFIL 004451 5131 1559 004452 4561 READO;GENREA 004453 5115 1560 004454 4572 VERS;GENVER 004455 5076 1561 004456 4725 DVCO;GENDVC /V3D 004457 6516 1562 004460 5344 BLK;GENBLK /V3D 004461 1712 1563 004462 0000 ZBLOCK 6 004463 0000 004464 0000 004465 0000 004466 0000 004467 0000 1564 004470 0000 0 1565 004471 0327 WIDTH, "W;"I;"D;"T;"H;0 004472 0311 004473 0304 004474 0324 004475 0310 004476 0000 1566 004477 0314 LC, "L;"C;0 004500 0303 004501 0000 1567 004502 0314 LV8E, "L;"V;4000+"8;4000+"E;0 004503 0326 004504 4270 004505 4305 004506 0000 1568 004507 0303 CODE, "C;"O;"D;"E;0 004510 0317 004511 0304 004512 0305 004513 0000 1569 004514 0301 ALT, "A;"L;"T;4000+"M;4000+"O;4000+"D;4000+"E;0 004515 0314 004516 0324 004517 4315 004520 4317 004521 4304 004522 4305 004523 0000 1570 004524 0305 ECHO, "E;"C;"H;"O;0 004525 0303 004526 0310 004527 0317 004530 0000 1571 004531 0320 PAYGE, "P;"A;"G;"E;0 004532 0301 004533 0307 004534 0305 004535 0000 1572 004536 0324 TAB, "T;"A;"B;0 004537 0301 004540 0302 004541 0000 1573 004542 0314 LOC, "L;"O;"C;4000+"A;4000+"T;4000+"I;4000+"O;4000+"N;0 004543 0317 004544 0303 004545 4301 004546 4324 004547 4311 004550 4317 004551 4316 004552 0000 1574 004553 0306 FILES, "F;"I;"L;"E;4000+"S;0 004554 0311 004555 0314 004556 0305 004557 4323 004560 0000 1575 004561 0322 READO, "R;"E;"A;"D;4000+"O;4000+"N;4000+"L;4000+"Y;0 004562 0305 004563 0301 004564 0304 004565 4317 004566 4316 004567 4314 004570 4331 004571 0000 1576 004572 0326 VERS, "V;"E;"R;4000+"S;4000+"I;4000+"O;4000+"N;0 004573 0305 004574 0322 004575 4323 004576 4311 004577 4317 004600 4316 004601 0000 1577 004602 0320 PARITY, "P;"A;"R;4000+"I;4000+"T;4000+"Y;0 004603 0301 004604 0322 004605 4311 004606 4324 004607 4331 004610 0000 1578 004611 0304 DENSITY,"D;"E;"N;4000+"S;4000+"I;4000+"T;4000+"Y;0 004612 0305 004613 0316 004614 4323 004615 4311 004616 4324 004617 4331 004620 0000 1579 004621 0306 FILL, "F;"I;"L;"L;0 004622 0311 004623 0314 004624 0314 004625 0000 1580 004626 0306 FLAGG, "F;"L;"A;"G;0 004627 0314 004630 0301 004631 0307 004632 0000 1581 004633 0303 CTRL, "C;"T;"R;"L;0 004634 0324 004635 0322 004636 0314 004637 0000 1582 004640 0305 EVEN, "E;4000+"V;4000+"E;4000+"N;0 004641 4326 004642 4305 004643 4316 004644 0000 1583 004645 0317 ODD, "O;4000+"D;4000+"D;0 004646 4304 004647 4304 004650 0000 1584 004651 0304 DELAY, "D;"E;"L;"A;"Y;0 004652 0305 004653 0314 004654 0301 004655 0331 004656 0000 1585 004657 0307 GAG, "G;"A;"G;0 004660 0301 004661 0307 004662 0000 1586 004663 0320 PAUS, "P;"A;"U;"S;"E;0 004664 0301 004665 0325 004666 0323 004667 0305 004670 0000 1587 004671 0310 HGHT, "H;"E;"I;"G;"H;"T;0 004672 0305 004673 0311 004674 0307 004675 0310 004676 0324 004677 0000 1588 004700 0323 SCOPP, "S;"C;"O;"P;"E;0 004701 0303 004702 0317 004703 0320 004704 0305 004705 0000 1589 004706 4755 SYSAUX, INIT; SYSINI 004707 0644 1590 004710 4762 OS8; SYSOS8 004711 0600 1591 004712 4766 OS78; SYS78 004713 0607 1592 004714 0000 ZBLOCK 10 004715 0000 004716 0000 004717 0000 004720 0000 004721 0000 004722 0000 004723 0000 1593 004724 0000 0 1594 004725 0304 DVCO, "D;"V;"C;4000+"O;4000+"D;4000+"E;0 004726 0326 004727 0303 004730 4317 004731 4304 004732 4305 004733 0000 1595 004734 0303 COL, "C;"O;"L;4000+"U;4000+"M;4000+"N;0 004735 0317 004736 0314 004737 4325 004740 4315 004741 4316 004742 0000 1596 004743 0314 LA8A, "L;"A;"8;"A;0 004744 0301 004745 0270 004746 0301 004747 0000 1597 004750 0314 LA78, "L;"A;"7;"8;0 004751 0301 004752 0267 004753 0270 004754 0000 1598 004755 0311 INIT, "I;"N;"I;"T;0 004756 0316 004757 0311 004760 0324 004761 0000 1599 004762 0317 OS8, "O;"S;"8;0 004763 0323 004764 0270 004765 0000 1600 004766 0317 OS78, "O;"S;"7;"8;0 004767 0323 004770 0267 004771 0270 004772 0000 1601 PAGE 1602 005000 0000 LPWDTH, 0 1603 005001 4777 JMS I (GETWID 1604 005002 4207 JMS LPTST1 1605 005003 1031 TAD NUM 1606 005004 7040 CMA 1607 005005 3776 DCA I (7200 1608 005006 5600 JMP I LPWDTH 1609 1610 005007 0000 LPTST1, 0 1611 005010 1775 TAD I (7201 1612 005011 7710 SPA CLA 1613 005012 5232 JMP L645 1614 005013 1050 TAD VNO 1615 005014 4572 JMS I [BRANCH 1616 005015 7777 -1;OLDERR 005016 4261 1617 005017 7776 -2;LPTOK 005020 5031 1618 005021 7775 -3;LPTOK 005022 5031 1619 005023 0000 ZBLOCK 4 005024 0000 005025 0000 005026 0000 1620 005027 0000 0 1621 005030 5521 JMP I [NEWERR 1622 005031 5607 LPTOK, JMP I LPTST1 1623 1624 005032 4563 L645, JMS I [PRINT 1625 005033 7740 TEXT /? CAN'T AFFECT ANNALEX LPT/ 005034 0301 005035 1647 005036 2440 005037 0106 005040 0605 005041 0324 005042 4001 005043 1616 005044 0114 005045 0530 005046 4014 005047 2024 005050 0000 1626 005051 5571 JMP I [GOAWAY 1627 005052 0000 ASRTST, 0 1628 005053 1045 TAD DHI 1629 005054 7710 SPA CLA 1630 005055 5652 JMP I ASRTST 1631 005056 4563 JMS I [PRINT 1632 005057 7740 TEXT /? CAN'T - NOT KL8E HANDLER/ 005060 0301 005061 1647 005062 2440 005063 5540 005064 1617 005065 2440 005066 1314 005067 7005 005070 4010 005071 0116 005072 0414 005073 0522 005074 0000 1633 005075 5571 JMP I [GOAWAY 1634 005076 0000 GENVER, 0 1635 005077 1052 TAD NO 1636 005100 7640 SZA CLA 1637 005101 5570 JMP I [SYNTAX 1638 005102 4540 JMS I [ALPHA 1639 005103 5344 JMP BADV 1640 005104 3031 DCA NUM 1641 005105 1031 TAD NUM 1642 005106 0374 AND (40 1643 005107 7640 SZA CLA 1644 005110 5344 JMP BADV 1645 005111 1031 TAD NUM 1646 005112 0373 AND (37 1647 005113 3447 DCA I VNOPTR 1648 005114 5676 JMP I GENVER 1649 1650 005115 0000 GENREA, 0 1651 005116 6211 CDF 10 1652 005117 1436 TAD I DCWPTR 1653 005120 7106 CLL RTL 1654 005121 7104 CLL RAL 1655 005122 1052 TAD NO 1656 005123 7010 RAR 1657 005124 7030 CML RAR 1658 005125 7010 RAR 1659 005126 3436 DCA I DCWPTR 1660 005127 6201 CDF 0 1661 005130 5715 JMP I GENREA 1662 1663 005131 0000 GENFIL, 0 1664 005132 6211 CDF 10 1665 005133 1436 TAD I DCWPTR 1666 005134 7104 CLL RAL 1667 005135 7104 CLL RAL /ZERO LINK 1668 005136 1052 TAD NO 1669 005137 7010 RAR 1670 005140 7030 CML RAR 1671 005141 3436 DCA I DCWPTR 1672 005142 6201 CDF 0 1673 005143 5731 JMP I GENFIL 1674 005144 7200 BADV, CLA 1675 005145 4563 JMS I [PRINT 1676 005146 7740 TEXT /? BAD VERSION LETTER/ 005147 0201 005150 0440 005151 2605 005152 2223 005153 1117 005154 1640 005155 1405 005156 2424 005157 0522 005160 0000 1677 005161 5571 JMP I [GOAWAY 1678 1679 005162 0000 CRLF, 0 1680 005163 1105 TAD [215 1681 005164 4772 JMS I (TYPE 1682 005165 1104 TAD [212 1683 005166 4772 JMS I (TYPE 1684 005167 5762 JMP I CRLF 1685 005172 3106 PAGE 005173 0037 005174 0040 005175 7201 005176 7200 005177 5706 1686 005200 0000 LPLV, 0 1687 005201 4777 JMS I (LPTST1 1688 005202 1052 TAD NO 1689 005203 7106 CLL RTL 1690 005204 7006 RTL 1691 005205 1376 TAD (4 1692 005206 3775 DCA I (7201 1693 005207 5600 JMP I LPLV 1694 1695 005210 0000 LPLC, 0 1696 005211 4777 JMS I (LPTST1 1697 005212 1052 TAD NO 1698 005213 7106 CLL RTL 1699 005214 7006 RTL 1700 005215 7004 RAL 1701 005216 7041 CIA 1702 005217 3774 DCA I (7202 1703 005220 5610 JMP I LPLC 1704 1705 005221 0000 TTECHO, 0 1706 005222 4547 JMS I [TTST1 1707 005223 1052 TAD NO 1708 005224 7640 SZA CLA 1709 005225 1373 TAD (SKP CLA-SZA 1710 005226 1372 TAD (SZA 1711 005227 3771 DCA I (7200+120 1712 005230 5621 JMP I TTECHO 1713 005231 0000 TTPAGE, 0 1714 005232 4770 JMS I (OLDTST 1715 005233 4546 JMS I [SRCH /V3D NEW ROUTINE 1716 005234 0215 215;100;7450 005235 0100 005236 7450 1717 005237 5545 JMP I [REASEM 1718 005240 1367 TAD (3 /POINT TO 'SZA CLA' 1719 005241 3020 DCA TEMP 1720 005242 1052 TAD NO 1721 005243 7650 SNA CLA 1722 005244 1366 TAD (SZA CLA-CLA /YES 1723 005245 1365 TAD (CLA /NO 1724 005246 3420 DCA I TEMP 1725 005247 5631 JMP I TTPAGE 1726 005250 0000 TTTAB, 0 1727 005251 4547 JMS I [TTST1 1728 005252 4564 JMS I [GETC 1729 005253 7450 SNA 1730 005254 5264 JMP TTEO 1731 005255 1364 TAD (-"/ 1732 005256 7650 SNA CLA 1733 005257 4564 JMS I [GETC 1734 005260 1363 TAD (-"N 1735 005261 7640 SZA CLA 1736 005262 5570 JMP I [SYNTAX 1737 005263 5271 JMP NOTEC 1738 005264 1052 TTEO, TAD NO 1739 005265 7650 SNA CLA 1740 005266 1362 TAD (5000 1741 005267 1272 TAD L200 1742 005270 4761 JMS I (TECO 1743 005271 4546 NOTEC, JMS I [SRCH 1744 005272 0200 L200, 200;100;7 005273 0100 005274 0007 1745 005275 5545 JMP I [REASEM 1746 005276 3020 DCA TEMP 1747 005277 7344 STA CLL RAL /-2 1748 005300 1020 TAD TEMP 1749 005301 3022 DCA T2 1750 005302 1020 TAD TEMP 1751 005303 1367 TAD (3 1752 005304 3024 DCA T3 1753 005305 1052 TAD NO 1754 005306 7650 SNA CLA 1755 005307 5322 JMP SETAB 1756 005310 1020 TAD TEMP 1757 005311 1360 TAD (-4 1758 005312 3033 DCA T4 1759 005313 1033 TAD T4 1760 005314 0357 AND (77 1761 005315 1356 TAD (1200 /TAD TTY240 1762 005316 3422 DCA I T2 1763 005317 1355 TAD (SZA CLA 1764 005320 3424 DCA I T3 1765 005321 5650 JMP I TTTAB 1766 005322 1020 SETAB, TAD TEMP 1767 005323 1354 TAD (-12 1768 005324 3033 DCA T4 1769 005325 1433 TAD I T4 1770 005326 3422 DCA I T2 1771 005327 1353 TAD (SKP CLA 1772 005330 3424 DCA I T3 1773 005331 5650 JMP I TTTAB 1774 1775 005332 4563 BADWID, JMS I [PRINT 1776 005333 7740 TEXT /? ILLEGAL WIDTH/ 005334 1114 005335 1405 005336 0701 005337 1440 005340 2711 005341 0424 005342 1000 1777 005343 5571 JMP I [GOAWAY 1778 1779 005344 0302 BLK, "B;"L;"O;"C;"K;0 005345 0314 005346 0317 005347 0303 005350 0313 005351 0000 1780 005353 7610 PAGE 005354 7766 005355 7640 005356 1200 005357 0077 005360 7774 005361 6454 005362 5000 005363 7462 005364 7521 005365 7200 005366 0440 005367 0003 005370 2600 005371 7320 005372 7440 005373 0150 005374 7202 005375 7201 005376 0004 005377 5007 1781 005400 0000 TTFILL, 0 1782 005401 4547 JMS I [TTST1 1783 005402 4546 JMS I [SRCH 1784 005403 0200 200;100;1377 005404 0100 005405 1377 1785 005406 5545 JMP I [REASEM 1786 005407 1377 TAD (-1 1787 005410 3020 DCA TEMP 1788 005411 1052 TAD NO 1789 005412 7104 CLL RAL 1790 005413 1376 TAD (2 1791 005414 1020 TAD TEMP 1792 005415 3022 DCA T2 1793 005416 1422 TAD I T2 1794 005417 3420 DCA I TEMP 1795 005420 5600 JMP I TTFILL 1796 1797 005421 4563 REASEM, JMS I [PRINT 1798 005422 7740 TEXT /? CAN'T - MUST REASSEMBLE KL8E SOURCE/ 005423 0301 005424 1647 005425 2440 005426 5540 005427 1525 005430 2324 005431 4022 005432 0501 005433 2323 005434 0515 005435 0214 005436 0540 005437 1314 005440 7005 005441 4023 005442 1725 005443 2203 005444 0500 1799 005445 5571 JMP I [GOAWAY 1800 1801 005446 0000 TTDELAY,0 1802 005447 4547 JMS I [TTST1 1803 005450 5511 JMP I [NOTIMPL 1804 005451 5646 JMP I TTDELAY 1805 /ENTER WITH PTR TO POSSIBLE KEYWORD IN AC 1806 1807 005452 0000 KEYSRCH,0 1808 005453 3277 DCA KPTR 1809 005454 1677 KL, TAD I KPTR 1810 005455 2277 ISZ KPTR 1811 005456 7450 SNA 1812 005457 5300 JMP GOTKEY 1813 005460 7041 CIA 1814 005461 3020 DCA TEMP 1815 005462 4540 JMS I [ALPHA /IS IT ALPHANUMERIC? 1816 005463 5271 JMP EOK /NO 1817 005464 1020 TAD TEMP /COMPARE 1818 005465 7104 CLL RAL /LOW ORDER 11 BITS 1819 005466 7650 SNA CLA 1820 005467 5254 JMP KL /MATCHED, KEEP LOOKING 1821 005470 5652 JMP I KEYSRCH /DIDN'T MATCH 1822 005471 4550 EOK, JMS I [BACKC 1823 005472 1020 TAD TEMP 1824 005473 7041 CIA /INPUT STREAM RAN OUT OR HIT SPACE 1825 005474 7710 SPA CLA 1826 005475 5300 JMP GOTKEY /SPACE OR EOL MATCH FLAGGED CHARACTER 1827 005476 5652 JMP I KEYSRCH 1828 1829 005477 0000 KPTR, 0 1830 1831 005500 4573 GOTKEY, JMS I [SCAN 1832 005501 7240 STA /SKIP EXTRA STUFF 1833 005502 4574 JMS I [SPACE 1834 005503 2252 ISZ KEYSRCH /TAKE GOOD RETURN 2 1835 005504 5652 JMP I KEYSRCH 1836 1837 005505 0000 PTRTBL, ZBLOCK 4 005506 0000 005507 0000 005510 0000 1838 005511 0000 0 1839 1840 005512 0000 PTPTBL, ZBLOCK 4 005513 0000 005514 0000 005515 0000 1841 005516 0000 0 1842 005517 4471 TTYTBL, WIDTH;TTWIDTH 005520 5647 1843 005521 4507 CODE;TTCODE 005522 3600 1844 005523 4514 ALT;TTALT 005524 3764 1845 005525 4524 ECHO;TTECHO 005526 5221 1846 005527 4477 LC;TTLC 005530 5617 1847 005531 4531 PAYGE;TTPAGE 005532 5231 1848 005533 4536 TAB;TTTAB 005534 5250 1849 005535 4621 FILL;TTFILL 005536 5400 1850 005537 4626 FLAGG;TTFLAG 005540 5600 1851 005541 4633 CTRL;TTCTRL 005542 5643 1852 005543 4657 GAG;TTGAG 005544 1401 1853 005545 4651 DELAY;TTDELAY 005546 5446 1854 005547 4663 PAUS;TTPAUS /V3D 005550 2625 1855 005551 4671 HGHT;TTHGHT /V3D 005552 3207 1856 005553 4700 SCOPP;TTSCOP /V3D 005554 3400 1857 005555 4734 COL;TTCOL /V3D 005556 3000 1858 005557 3200 ESC;TTESC /V3D 005560 1641 1859 005561 3357 AROW;TTAROW /V3D 005562 1660 1860 005563 0000 ZBLOCK 10 005564 0000 005565 0000 005566 0000 005567 0000 005570 0000 005571 0000 005572 0000 1861 005573 0000 0 1862 005576 0002 PAGE 005577 7777 1863 005600 0000 TTFLAG, 0 1864 005601 4327 JMS TTST1 1865 005602 4546 JMS I [SRCH 1866 005603 0200 200;200;247 005604 0200 005605 0247 1867 005606 5545 JMP I [REASEM 1868 005607 1377 TAD (-2 1869 005610 3020 DCA TEMP 1870 005611 1052 TAD NO 1871 005612 7650 SNA CLA 1872 005613 1376 TAD (SZA CLA-CLA 1873 005614 1375 TAD (CLA 1874 005615 3420 DCA I TEMP 1875 005616 5600 JMP I TTFLAG 1876 1877 005617 0000 TTLC, 0 1878 005620 4327 JMS TTST1 1879 005621 4546 JMS I [SRCH 1880 005622 0200 200;200;377 005623 0200 005624 0377 1881 005625 5545 JMP I [REASEM 1882 005626 1374 TAD (5 1883 005627 3020 DCA TEMP 1884 005630 1420 TAD I TEMP 1885 005631 7100 CLL 1886 005632 1167 TAD [200 1887 005633 7620 SNL CLA 1888 005634 5545 JMP I [REASEM 1889 005635 1052 TAD NO 1890 005636 7650 SNA CLA 1891 005637 1131 TAD [40 /SNA CLA 1892 005640 1373 TAD (7610 /SKP CLA 1893 005641 3420 DCA I TEMP 1894 005642 5617 JMP I TTLC 1895 1896 005643 0000 TTCTRL, 0 1897 005644 4327 JMS TTST1 1898 005645 5511 JMP I [NOTIMPL 1899 005646 5643 JMP I TTCTRL 1900 005647 0000 TTWIDTH,0 1901 005650 4306 JMS GETWID 1902 005651 4327 JMS TTST1 1903 005652 1031 TAD NUM 1904 005653 0103 AND [7 1905 005654 7640 SZA CLA 1906 005655 5502 JMP I [BADWID 1907 005656 1031 TAD NUM 1908 005657 1155 TAD [-200 1909 005660 7650 SNA CLA 1910 005661 5502 JMP I [BADWID 1911 005662 4546 JMS I [SRCH 1912 005663 0200 200;200;7600 005664 0200 005665 7600 1913 005666 5545 JMP I [REASEM 1914 005667 7001 IAC 1915 005670 3020 DCA TEMP 1916 005671 1420 TAD I TEMP 1917 005672 0165 AND [177 1918 005673 1372 TAD (177+7200 1919 005674 3022 DCA T2 1920 005675 1020 TAD TEMP 1921 005676 7001 IAC 1922 005677 3024 DCA T3 1923 005700 1031 TAD NUM 1924 005701 7041 CIA 1925 005702 3424 DCA I T3 1926 005703 1424 TAD I T3 1927 005704 3422 DCA I T2 1928 005705 5647 JMP I TTWIDTH 1929 005706 0000 GETWID, 0 1930 005707 1052 TAD NO 1931 005710 7640 SZA CLA 1932 005711 5570 JMP I [SYNTAX 1933 005712 4354 JMS OPTEQ 1934 005713 4520 JMS I [NUMBER 1935 005714 7450 SNA 1936 005715 5771 JMP I (BADWID 1937 005716 3031 DCA NUM 1938 005717 1053 TAD FLG 1939 005720 7640 SZA CLA 1940 005721 5570 JMP I [SYNTAX /NO DIGITS 1941 005722 1031 TAD NUM 1942 005723 0143 AND [7400 1943 005724 7640 SZA CLA 1944 005725 5542 JMP I [NUMBIG 1945 005726 5706 JMP I GETWID 1946 1947 005727 0000 TTST1, 0 1948 005730 4770 JMS I (ASRTST 1949 005731 1050 TAD VNO 1950 005732 4572 JMS I [BRANCH 1951 005733 7777 -1;OLDERR 005734 4261 1952 005735 7776 -2;OLDERR 005736 4261 1953 005737 7775 -3;TTOK 005740 5753 1954 005741 7774 -4;TTOK /V3C 005742 5753 1955 005743 7773 -5;TTOK /V3D 005744 5753 1956 005745 0000 ZBLOCK 4 005746 0000 005747 0000 005750 0000 1957 005751 0000 0 1958 005752 5521 JMP I [NEWERR 1959 005753 5727 TTOK, JMP I TTST1 1960 005754 0000 OPTEQ, 0 1961 005755 4564 JMS I [GETC 1962 005756 1367 TAD (-"= 1963 005757 7640 SZA CLA 1964 005760 5754 JMP I OPTEQ 1965 005761 7240 STA /V3D 1966 005762 4574 JMS I [SPACE 1967 005763 5754 JMP I OPTEQ 1968 005767 7503 PAGE 005770 5052 005771 5332 005772 7377 005773 7610 005774 0005 005775 7200 005776 0440 005777 7776 1969 006000 0000 OPRIN, 0 1970 006001 3225 DCA N3 1971 006002 1377 TAD (-4 1972 006003 3224 DCA OKNT 1973 006004 1225 OPLP, TAD N3 1974 006005 4215 JMS DGP 1975 006006 1225 TAD N3 1976 006007 7006 RTL 1977 006010 7004 RAL 1978 006011 3225 DCA N3 1979 006012 2224 ISZ OKNT 1980 006013 5204 JMP OPLP 1981 006014 5600 JMP I OPRIN 1982 1983 006015 0000 DGP, 0 1984 006016 7006 RTL 1985 006017 7006 RTL 1986 006020 0103 AND [7 1987 006021 1101 TAD [60 1988 006022 4577 JMS I [TYPE 1989 006023 5615 JMP I DGP 1990 1991 006024 0000 OKNT, 0 1992 006025 0000 N3, 0 1993 006026 0000 GTEM, 0 1994 006027 0000 SRCH, 0 1995 006030 1627 TAD I SRCH 1996 006031 2227 ISZ SRCH 1997 006032 1376 TAD (7200-1 1998 006033 3010 DCA XR1 1999 006034 1627 TAD I SRCH 2000 006035 2227 ISZ SRCH 2001 006036 7041 CIA 2002 006037 3041 DCA CNT 2003 006040 1627 TAD I SRCH 2004 006041 7041 CIA 2005 006042 3020 DCA TEMP 2006 006043 2227 ISZ SRCH 2007 006044 1410 SRLUP, TAD I XR1 2008 006045 1020 TAD TEMP 2009 006046 7650 SNA CLA 2010 006047 5253 JMP SRFND 2011 006050 2041 ISZ CNT 2012 006051 5244 JMP SRLUP 2013 006052 5627 JMP I SRCH 2014 006053 2227 SRFND, ISZ SRCH 2015 006054 1010 TAD XR1 2016 006055 5627 JMP I SRCH 2017 006056 0000 GENCMN, 0 2018 006057 1052 TAD NO 2019 006060 7640 SZA CLA 2020 006061 5570 JMP I [SYNTAX 2021 006062 4541 JMS I [ONUM 2022 006063 3057 DCA NUM2 2023 006064 1053 TAD FLG 2024 006065 7640 SZA CLA 2025 006066 5570 JMP I [SYNTAX 2026 006067 4564 JMS I [GETC 2027 006070 3020 DCA TEMP 2028 006071 1020 TAD TEMP 2029 006072 7450 SNA 2030 006073 5656 JMP I GENCMN 2031 006074 1375 TAD (-"= 2032 006075 7440 SZA 2033 006076 1374 TAD ("=-", 2034 006077 7640 SZA CLA 2035 006100 5570 JMP I [SYNTAX 2036 006101 5656 JMP I GENCMN 2037 006102 0000 GENLOC, 0 2038 006103 4256 JMS GENCMN 2039 006104 1045 TAD DHI 2040 006105 7710 SPA CLA 2041 006106 1155 TAD [-200 2042 006107 1155 TAD [-200 2043 006110 7100 CLL 2044 006111 1057 TAD NUM2 2045 006112 7630 SZL CLA 2046 006113 5542 JMP I [NUMBIG 2047 006114 1057 TAD NUM2 2048 006115 1373 TAD (7200 /BASE OF HANDLER 2049 006116 3057 DCA NUM2 2050 006117 1020 TAD TEMP 2051 006120 7650 SNA CLA 2052 006121 4335 JMS ODT 2053 006122 4541 GETNEW, JMS I [ONUM 2054 006123 3031 DCA NUM 2055 006124 1053 TAD FLG 2056 006125 7640 SZA CLA 2057 006126 5702 JMP I GENLOC 2058 006127 4564 JMS I [GETC 2059 006130 7640 SZA CLA 2060 006131 5570 JMP I [SYNTAX 2061 006132 1031 TAD NUM 2062 006133 3457 DCA I NUM2 2063 006134 5702 JMP I GENLOC 2064 006135 0000 ODT, 0 2065 006136 1457 TAD I NUM2 2066 006137 4200 JMS OPRIN 2067 006140 1372 TAD ("/ 2068 006141 4577 JMS I [TYPE 2069 006142 1576 TAD I [READ 2070 006143 3226 DCA GTEM /SAVE CHAIN STATUS 2071 006144 4576 JMS I [READ 2072 006145 1175 TAD [LINBUF 2073 006146 3023 DCA LINPTR 2074 006147 1226 TAD GTEM 2075 006150 3576 DCA I [READ 2076 006151 5735 JMP I ODT 2077 2078 006152 4563 OLDBAS, JMS I [PRINT 2079 006153 7740 TEXT /? OLD BASIC/ 006154 1714 006155 0440 006156 0201 006157 2311 006160 0300 2080 006161 5571 JMP I [GOAWAY 2081 006172 0257 PAGE 006173 7200 006174 0021 006175 7503 006176 7177 006177 7774 2082 006200 0000 MTAPAR, 0 2083 006201 1052 TAD NO 2084 006202 7640 SZA CLA 2085 006203 5570 JMP I [SYNTAX 2086 006204 4224 JMS MTST1 2087 006205 1023 TAD LINPTR 2088 006206 3051 DCA SAVPTR 2089 006207 1377 TAD (EVEN 2090 006210 4544 JMS I [KEYSRCH 2091 006211 7410 SKP 2092 006212 5221 JMP SETE 2093 006213 1051 TAD SAVPTR 2094 006214 3023 DCA LINPTR 2095 006215 1376 TAD (ODD 2096 006216 4544 JMS I [KEYSRCH 2097 006217 5570 JMP I [SYNTAX 2098 006220 1375 TAD (400 2099 006221 1374 SETE, TAD (2 2100 006222 3773 DCA I (7200 2101 006223 5600 JMP I MTAPAR 2102 2103 006224 0000 MTST1, 0 2104 006225 1050 TAD VNO 2105 006226 4572 JMS I [BRANCH 2106 006227 7777 -1;OLDERR 006230 4261 2107 006231 7776 -2;OLDERR 006232 4261 2108 006233 7775 -3;OLDERR 006234 4261 2109 006235 7774 -4;MTOK 006236 6251 2110 006237 7773 -5;MTOK 006240 6251 2111 006241 7772 -6;MTOK 006242 6251 2112 006243 0000 ZBLOCK 4 006244 0000 006245 0000 006246 0000 2113 006247 0000 0 2114 006250 5521 JMP I [NEWERR 2115 006251 5624 MTOK, JMP I MTST1 2116 2117 006252 0000 MTADEN, 0 2118 006253 4224 JMS MTST1 2119 006254 1052 TAD NO 2120 006255 7640 SZA CLA 2121 006256 5570 JMP I [SYNTAX 2122 006257 5511 JMP I [NOTIMP 2123 006260 5652 JMP I MTADEN 2124 006261 0000 MTAFIL, 0 2125 006262 4224 JMS MTST1 2126 006263 1052 TAD NO 2127 006264 7041 CIA /V3D 2128 006265 7001 IAC /V3D 2129 006266 3772 DCA I (7201 2130 006267 5661 JMP I MTAFIL 2131 2132 006270 4563 BADCOD, JMS I [PRINT 2133 006271 7740 TEXT /? UNKNOWN CARD CODE/ 006272 2516 006273 1316 006274 1727 006275 1640 006276 0301 006277 2204 006300 4003 006301 1704 006302 0500 2134 006303 5571 JMP I [GOAWAY 2135 2136 /SUPPOSED TO WORK ON ALL VERSIONS 2137 2138 006304 0000 CDCODE, 0 2139 006305 1052 TAD NO 2140 006306 7640 SZA CLA 2141 006307 5570 JMP I [SYNTAX 2142 006310 4771 JMS I (OPTEQ 2143 006311 4520 JMS I [NUMBER 2144 006312 1370 TAD (-32 /026 2145 006313 7450 SNA 2146 006314 5324 JMP C026 2147 006315 1367 TAD (32-35 /029 2148 006316 7640 SZA CLA 2149 006317 5270 JMP BADCOD 2150 006320 4330 JMS CHANGE 2151 006321 6400 LIST1;LIST2 006322 6416 2152 006323 5704 JMP I CDCODE 2153 006324 4330 C026, JMS CHANGE 2154 006325 6400 LIST1;LIST3 006326 6433 2155 006327 5704 JMP I CDCODE 2156 006330 0000 CHANGE, 0 2157 006331 1730 TAD I CHANGE 2158 006332 3351 DCA P1 2159 006333 2330 ISZ CHANGE 2160 006334 1730 TAD I CHANGE 2161 006335 3352 DCA P2 2162 006336 2330 ISZ CHANGE 2163 006337 1751 CHLUP, TAD I P1 2164 006340 7450 SNA 2165 006341 5730 JMP I CHANGE 2166 006342 1373 TAD (7200 /BASE OF HANDLER 2167 006343 3353 DCA P3 2168 006344 1752 TAD I P2 2169 006345 3753 DCA I P3 2170 006346 2351 ISZ P1 2171 006347 2352 ISZ P2 2172 006350 5337 JMP CHLUP 2173 2174 006351 0000 P1, 0 2175 006352 0000 P2, 0 2176 006353 0000 P3, 0 2177 006354 0000 GET, 0 2178 006355 6031 KSF 2179 006356 5355 JMP .-1 2180 006357 6036 KRB 2181 006360 0165 AND [177 2182 006361 1167 TAD [200 /FORCE TO 8-BIT 2183 006362 5754 JMP I GET 2184 006367 7775 PAGE 006370 7746 006371 5754 006372 7201 006373 7200 006374 0002 006375 0400 006376 4645 006377 4640 2185 /FIXED FOR V3D: 2186 006400 0104 LIST1, 104;105;106 006401 0105 006402 0106 2187 006403 0114 114;115;116 006404 0115 006405 0116 2188 006406 0124 124;125;126;127 006407 0125 006410 0126 006411 0127 2189 006412 0134 134;135;136 006413 0135 006414 0136 2190 006415 0000 0 2191 2192 006416 3203 LIST2, 3203;4007;3502 006417 4007 006420 3502 2193 006421 7514 7514;0577;3637 006422 0577 006423 3637 2194 006424 0104 0104;1211;3374;0641 006425 1211 006426 3374 006427 0641 2195 006430 7316 7316;3410;1376 006431 3410 006432 1376 2196 2197 006433 7735 LIST3, 7735;4076;0774 006434 4076 006435 0774 2198 006436 3314 3314;1002;0305 006437 1002 006440 0305 2199 006441 3204 3204;1273;3606;1341 006442 1273 006443 3606 006444 1341 2200 006445 3716 3716;1175;3401 006446 1175 006447 3401 2201 006450 2405 TECNAM, FILENAME TECO.SV 006451 0317 006452 0000 006453 2326 2202 2203 006454 0000 TECO, 0 2204 006455 3301 DCA SA 2205 006456 1377 TAD (TECNAM 2206 006457 4302 JMS LOOKUP 2207 006460 5654 JMP I TECO /NOT THERE 2208 006461 3265 DCA BLKN 2209 006462 4776 JMS I (7607 2210 006463 0100 100 /READ 1 PAGE FROM TECO 2211 006464 7000 7000 /BUFFER 2212 006465 0000 BLKN, 0 2213 006466 5551 JMP I [SYSERR 2214 006467 1265 TAD BLKN 2215 006470 3276 DCA BLKN2 2216 006471 1301 TAD SA 2217 006472 3775 DCA I (7002 /REL LOC 2 IS S.A. 2218 006473 4776 JMS I (7607 2219 006474 4100 4100 2220 006475 7000 7000 2221 006476 0000 BLKN2, 0 2222 006477 5551 JMP I [SYSERR 2223 006500 5654 JMP I TECO 2224 2225 006501 0000 SA, 0 2226 006502 0000 LOOKUP, 0 2227 006503 3310 DCA ARG1 /PTR TO FILENAME IN AC 2228 006504 7201 CLA IAC /LOOKUP ON SYS 2229 006505 6212 CIF 10 2230 006506 4437 JMS I USR 2231 006507 0002 2 2232 006510 0000 ARG1, 0 /STARTING BLOCK 2233 006511 0000 0 2234 006512 5702 JMP I LOOKUP /NOT FOUND 2235 006513 1310 TAD ARG1 2236 006514 2302 ISZ LOOKUP 2237 006515 5702 JMP I LOOKUP /RETURN 2 WITH BLOCK # IN AC 2238 006516 0000 GENDVC, 0 2239 006517 1052 TAD NO 2240 006520 7640 SZA CLA 2241 006521 5570 JMP I [SYNTAX 2242 006522 4541 JMS I [ONUM 2243 006523 7450 SNA 2244 006524 5570 JMP I [SYNTAX 2245 006525 3055 DCA NUCODE 2246 006526 1055 TAD NUCODE 2247 006527 0114 AND [7700 2248 006530 7640 SZA CLA 2249 006531 5774 JMP I (NUMBIG 2250 006532 1055 TAD NUCODE 2251 006533 1373 TAD (-30 2252 006534 7710 SPA CLA 2253 006535 5542 JMP I [NUMBIG 2254 006536 1055 TAD NUCODE 2255 006537 7106 CLL RTL 2256 006540 7004 RAL 2257 006541 3055 DCA NUCODE 2258 006542 1372 TAD (7200 2259 006543 3054 DCA RR 2260 006544 4771 DVLUP, JMS I (GETIOT 2261 006545 5716 JMP I GENDVC 2262 006546 1373 TAD (-30 2263 006547 7710 SPA CLA 2264 006550 5344 JMP DVLUP 2265 006551 1454 TAD I RR 2266 006552 0370 AND (7007 2267 006553 1055 TAD NUCODE 2268 006554 3454 DCA I RR 2269 006555 5344 JMP DVLUP 2270 006556 4507 CDRTBL, CODE;CDCODE 006557 6304 2271 006560 0000 ZBLOCK 4 006561 0000 006562 0000 006563 0000 2272 006564 0000 0 2273 006570 7007 PAGE 006571 3660 006572 7200 006573 7750 006574 0512 006575 7002 006576 7607 006577 6450 2274 2275 /7000-7177 BUFFER FOR TECO CCB 2276 /7200-7577 BUFFER FOR HANDLER 2277 000101 0060 FIELD 0 000102 5332 000103 0007 000104 0212 000105 0215 000106 7745 000107 0017 000110 5144 000111 3707 000112 2437 000113 4261 000114 7700 000115 6502 000116 7770 000117 6000 000120 2400 000121 4313 000122 0525 000123 0241 000124 0317 000125 2205 000126 0243 000127 0244 000130 0010 000131 0040 000132 0334 000133 0777 000134 6354 000135 0070 000136 7000 000137 7540 000140 0276 000141 2735 000142 0512 000143 7400 000144 5452 000145 5421 000146 6027 000147 5727 000150 0271 000151 0547 000152 7607 000153 3456 000154 7771 000155 7600 000156 2552 000157 0336 000160 0240 000161 5162 000162 7605 000163 0421 000164 0262 000165 0177 000166 0077 000167 0200 000170 0400 000171 0412 000172 2031 000173 2000 000174 2010 000175 1000 000176 2200 000177 3106 2278 *200 2279 $ ALPHA 0276 ALT 4514 ARG1 6510 ARG2 3032 ARG3 3050 AROW 3357 ASRTST 5052 AUX 4446 AUXBUF 6600 AUXFLG 4160 BACKC 0271 BACKV 4235 BADCOD 6270 BADCOL 3053 BADHIT 3746 BADKBM 2051 BADPAU 2713 BADV 5144 BADWID 5332 BASB2 3553 BASBLK 3537 BASLUK 3525 BASNAM 3521 BASWRI 3547 BIT 0232 BLK 5344 BLKN 6465 BLKN2 6476 BLKTWO 4310 BLOCK 4210 BLOK 1735 BLOK2 1763 BOL 2345 BOL2 2340 BR2 2033 BRANCH 2031 BS 0010 C026 6324 CCLBLK 0067 CCLNAM 3124 CCLNF 3130 CCLTBL 3342 CDCODE 6304 CDRTBL 6556 CDTBL 3306 CHANGE 6330 CHLUP 6337 CHN 0206 CNT 0041 CODE 4507 COL 4734 COLN 4000 COLN2 4015 CR 2352 CRLF 5162 CTOFLG 0042 CTRL 4633 CTRLC 0461 CTRLO 0467 CTRLU 2251 DBLK 0046 DBST 6570 DBTD 6574 DCW 0035 DCWPTR 0036 DEFDO 0710 DEFINI 0706 DELAY 4651 DELAYY 2552 DENSIT 4611 DEVNUM 0034 DEVTYP 0027 DGP 6015 DHI 0045 DHIT 0044 DIGIT 0317 DVCO 4725 DVLUP 6544 DW1 2501 DW2 2502 DW3 2503 ECHO 4524 ENTRY 0030 EOK 5471 EON 2430 ESC 3200 ESCAPE 2347 ESCBIT 0040 EVEN 4640 FILES 4553 FILL 4621 FIXCCL 3144 FIXLOC 3520 FIXLUP 3500 FIXPTR 3517 FIXUP 3476 FLAG 0025 FLAGG 4626 FLG 0053 FNDTYP 4032 FOUND 2044 GAG 4657 GENBLK 1712 GENCMN 6056 GENDVC 6516 GENFIL 5131 GENLOC 6102 GENREA 5115 GENVER 5076 GET 6354 GETC 0262 GETDEV 2437 GETIOT 3660 GETNEW 6122 unreferenced GETSIX 0252 GETTWO 0241 GETWID 5706 GETYP 2515 GOAWAY 0412 GOTAL 0305 GOTKEY 5500 GOTSP 2014 GT 2205 GT2 2310 GTEM 6026 HELP 0327 HGHT 4671 HLTPTR 3475 HREAD 4200 HWRITE 4302 HYPH 4077 INCORE 2512 INIMSG 0760 INIT 4755 INQ 2456 INTO 4040 KBMTBL 3252 KEYSRC 5452 KL 5454 KPTR 5477 KSPA 1673 L200 5272 L645 5032 L7200 4207 LA78 4750 LA8A 4743 LC 4477 LETTER 0307 LF 2355 LFLP 2363 LINBUF 1000 LINPTR 0023 LIST1 6400 LIST2 6416 LIST3 6433 LLS 6666 LOC 4542 LOOK 2206 LOOKUP 6502 LP78 2067 LP8A 2073 LPKOD 2156 LPLC 5210 LPLV 5200 LPTOK 5031 LPTST1 5007 LPTTBL 4414 LPWDTH 5000 LSF 6661 LV 0433 LV8E 4502 MACREL 0000 MAIN 4343 MNLUP 4020 MOVL 0746 MTADEN 6252 MTAFIL 6261 MTAPAR 6200 MTATBL 4433 MTOK 6251 MTST1 6224 N3 6025 NAM1 4135 NAM2 4136 NEWERR 4313 NM1 2405 NO 0052 NOAROW 1706 NOF 4154 NOKEY 4111 NONEX 0525 NOO 4161 NOPA 2704 NOPE 2005 NOTALP 0257 NOTEC 5271 NOTFND 2047 NOTIMP 3707 NOTYP 4150 NUCODE 0055 NUM 0031 NUM2 0057 NUMBER 2400 NUMBIG 0512 ODD 4645 ODT 6135 OEON 2763 OKNT 6024 OLDBAS 6152 OLDCCL 3067 OLDERR 4261 OLDTST 2600 ONM1 2741 ONUM 2735 OPLP 6004 OPRIN 6000 OPTEQ 5754 OS78 4766 OS8 4762 OUTER 2563 P1 6351 P2 6352 P3 6353 PARITY 4602 PAUS 4663 PAUXBU 1734 PAYGE 4531 PRIN 0436 PRINT 0421 PTPTBL 5512 PTR 0043 PTRTBL 5505 RD1 2202 RDA 2256 READ 2200 READO 4561 REASEM 5421 RESERR 4240 RR 0054 RUB2 2331 RUB3 2274 RUBOUT 2261 SA 6501 SAVKN 0704 SAVLP 0705 SAVLUP 0660 SAVPTR 0051 SAWNO 4141 SCAN 2000 SCNLUP 4052 SCOP 0056 SCOPP 4700 SCPBIT 7726 SET 3731 SET200 3456 SETAB 5322 SETE 6221 SPACE 2010 SPKNT 0026 SRCH 6027 SRFND 6053 SRLUP 6044 START 0200 SYNTAX 0400 SYS78 0607 SYSAUX 4706 SYSDV 4074 SYSERR 0547 SYSINI 0644 SYSOS8 0600 T 0021 T2 0022 T3 0024 T4 0033 TAB 4536 TECNAM 6450 TECO 6454 TEMP 0020 TEMP2 1763 TRYDIG 0303 TSTOK 2624 TTALT 3764 TTAROW 1660 TTCODE 3600 TTCOL 3000 TTCTRL 5643 TTDELA 5446 TTECHO 5221 TTEO 5264 TTESC 1641 TTFILL 5400 TTFLAG 5600 TTGAG 1401 TTGGO 1400 TTHGHT 3207 TTLC 5617 TTLP 3623 TTLP2 3642 TTOK 5753 TTPAGE 5231 TTPAUS 2625 TTSCOK 3401 unreferenced TTSCOP 3400 TTST1 5727 TTTAB 5250 TTWIDT 5647 TTYTBL 5517 TYP 0032 unreferenced TYPE 3106 TYPEM 3123 USR 0037 VERS 4572 VERSIO 0501 VLOOP 4222 VNO 0050 VNOPTR 0047 WD1 2462 WD2 2463 WD3 2464 WIDTH 4471 XR1 0010 XR2 0011 XR3 0012 YESARO 1710 ZER 2562