1 /FOCAL-8 QUAD (PDP-8/E) 2 /DEC-8E-LQUDA-A-LA 3 4 /OCTOBER 1971 SM 5 6 /COPYRIGHT 1971 DIGITAL EQUIPMENT CORPORATION 7 / MAYNARD, MASSACHUSETTS 01754 8 9 /THIS IS A VERSION OF QUAD (4 USER FOCAL-8) 10 /WHICH MAKES USE OF THE PDP-8/E TELETYPE 11 /IOT KCF TO PREVENT INPUT BUFFER OVERFLOW 12 13 /ASSEMBLY INSTRUCTIONS: 14 /.R PAL8 OR .R PAL10 15 /*QUAD8E,QUAD8E_QUAD8E,FOCAL8,FLOAT 16 17 /ASSEMBLY WITH PAL8 MAY YIELD UO ERRORS ON PASS 1 18 /THESE MAY BE IGNORED 19 20 21 22 USER=0 23 DVCE=1 24 T=0 25 26 27 28 RMF=6244 29 30 31 CDF1=6211 32 CIF1=6212 33 34 35 36 MTON=6117 37 MINT=6115 38 MTLS=6126 39 40 /MNEMONIC, OCTAL, 41 42 NL4000=7330 43 NL2000=7332 44 NL3777=7350 45 NL5777=7352 46 NL7776=7344 47 NL7775=7346 48 NL1=7301 49 NL2=7326 50 CDF=6201 51 CIF=6202 52 KSF1=6401 53 TSF1=6411 54 KSF2=6421 55 TSF2=6431 56 KSF3=6441 57 TSF3=6451 58 KSF4=6461 59 TSF4=6471 60 /PAGE ZERO 61 62 FIELD 0 63 64 *1 65 000001 5402 JMP I .+1 66 000002 0201 INTRPM 67 000003 0123 RESTART, POWRUP 68 000004 7000 NOP /DDTJR 69 *10 70 000010 0000 XR10, 0 71 000011 0000 XR11, 0 72 000012 0000 XR12, 0 73 000013 0000 XR13, 0 74 75 *20 76 ACTIONQ=JMS I . 77 000020 0643 XACTION 78 ONDECK=JMS I . 79 000021 0600 XDECK 80 OFFDECK=JMS I . 81 000022 0633 UNDECK 82 000023 0000 CNTRM, 0 /GENERAL PURPOSE REGISTERS 83 000024 0000 TEMPM, 0 84 000025 0000 CHARM, 0 85 000026 0000 TEMPT, 0 86 000027 0000 TEMPX, 0 87 000030 0000 PNTR, 0 88 000031 0000 CNTRT, 0 89 000032 0000 SAC, 0 90 000033 0000 SLK, 0 91 000034 0000 HOLD, 0 92 000035 0001 ACTIVE, 01 93 000036 0000 DECK, 0 /ON DECK USER NUMBER,0=NONE 94 000037 0000 USERNO, 0 95 000040 0001 NEWU, 01 96 000041 7770 MDECK, PCM-IOTX-1 97 000042 0351 CODET, CTABS-1 /CHARACTER TABLES 98 000043 7000 IFZERO USER 99 IFNZRO USER 100 000044 0000 C2, 0 101 000045 0000 MC3, 0 102 000046 0077 P77M, 77 103 000047 1000 P1000, 1000 104 000050 7000 P7000, 7000 105 000051 6777 P6777, 6777 106 000052 7757 P7757, 7757 107 000053 0007 EP7, 7 108 000054 0010 P10, 10 109 000055 0017 P17M, 17 110 000056 7767 M11M, -11 111 000057 0020 P20, 20 112 000060 7760 M20M, -20 113 000061 7740 M40M, -40 114 000062 0177 C177M, 177 115 000063 7776 M2M, -2 116 000064 7772 M6M, -6 117 000065 0037 P37, 37 118 000066 0014 P14, 14 119 000067 7563 MCRM, -215 120 000070 7600 M200, -200 121 000071 0200 C200M, 200 122 000072 0336 UPAR, 336 123 000073 7707 MZERO, 10-M100 /! 124 000074 1206 DTABLE, USERTS-1 125 000075 0537 BDUMP, XTDUMP 126 000076 0022 ALISTP, LISTL-1 127 128 IFZERO USER 132 IFNZRO USER 136 000100 3117 TEXTPM, IOBUF-1 /START OF USER TEXT 137 000101 6301 TEXTC, IOBUF-BEND /(IOBUF-3577)-FOR DEBUGGING** 138 000102 1147 CONTN, CONTIN 139 000103 7755 MLISTP, -LISTL 140 000104 1163 DLISTP, LISTP-1 141 000105 0014 PTLS, 14 142 000106 0010 PTCF, 10 143 144 145 /USER DATA BLOCK "ON DECK" 146 147 000107 0000 PCM, 0 148 000110 0000 OBUFO, 0 /OUTPUT 149 000111 0000 OBUFI, 0 150 000112 0000 OBUF0, 0 151 000113 0000 IBUFO, 0 /INPUT 152 000114 0000 IBUFI, 0 153 000115 0000 DECKP, 0 /STATUS BITS 154 000116 0000 IOTX, 0 /(6XX2) 155 156 157 158 159 160 000117 0070 P70, 70 161 000120 6201 PCDF, CDF 162 000121 6202 PCIF, CIF 163 000122 0276 PINIT 164 000123 4522 POWRUP, JMS I .-1 165 000124 1115 TAD DECKP 166 000125 0117 AND P70 167 000126 1121 TAD PCIF 168 000127 3136 DCA .+7 169 000130 1115 TAD DECKP 170 000131 7106 RTL CLL 171 000132 7004 RAL 172 000133 0117 AND P70 173 000134 1120 TAD PCDF 174 000135 3137 DCA .+2 175 000136 7402 HLT /INST FIELD 176 000137 7402 HLT 177 000140 1033 TAD SLK 178 000141 7110 RAR CLL 179 000142 1032 TAD SAC 180 000143 6001 ION 181 000144 5507 JMP I PCM 182 183 184 ///// 185 000145 0000 HOLDO, 0 /USED BY BMOVE WITH INTS ON. 186 000146 0000 HOLDI, 0 187 188 000147 0000 EP, 0 /USED TO SELECT USER BIT PATTERN 189 000150 0764 EBASE, DCB-1 /DCO2 TABLE BASE 190 191 192 193 /INTERRUPT ROUTINE 194 195 *177 196 000177 3001 INITL /(XRSTART 197 000200 5577 JMP I .-1 /STARTING ADDRESS 198 000201 3032 INTRPM, DCA SAC /SAVE AC AND LINK 199 000202 7004 RAL 200 000203 3033 DCA SLK 201 000204 6102 6102 /SPL /SKIP IF POWER FAIL 202 000205 5216 JMP OTHER 203 000206 6234 RIB 204 000207 3115 DCA DECKP 205 000210 1000 TAD 0 206 000211 3107 DCA PCM 207 000212 1215 TAD .+3 /PREPARE POWER RESTART 208 000213 3000 DCA 0 209 000214 7402 HLT /HALT FOR POWER FAIL FLAG 210 000215 5403 JMP I RESTART /RESTART 211 000216 7001 OTHER, IAC 212 000217 3037 DCA USERNO /INITIALIZE NO.TO ONE 213 IFNZRO DVCE > 250 IFZERO DVCE 285 000253 7610 CLA SKP /SMP 286 000254 5266 JMP PARITY 287 000255 6622 6622 /DFSE OR DFSC 288 000256 5270 JMP RESTORE 289 000257 7402 HLT /PROCESS DISK FLAGS 290 000260 5205 JMP INTRPM+4 291 292 000261 1606 TELSW1, BASES+6 293 000262 1616 TELSW2, BASES+16 294 000263 1626 TELSW3, BASES+26 295 000264 1636 TELSW4, BASES+36 296 000265 1646 TELSW5, BASES+46 297 000266 6244 PARITY, RMF 298 000267 7402 HLT 299 000270 6244 RESTORE,RMF 300 000271 1033 TAD SLK 301 000272 7110 RAR CLL 302 000273 1032 TAD SAC 303 000274 6001 ION 304 000275 5400 JMP I 0 305 //// 306 000276 0000 PINIT, 0 307 000277 3661 DCA I TELSW1 308 000300 3662 DCA I TELSW2 309 000301 3663 DCA I TELSW3 310 000302 3664 DCA I TELSW4 311 000303 3665 DCA I TELSW5 312 000304 1043 TAD AUSERS 313 000305 6117 MTON 314 000306 7001 IAC 315 000307 6115 MINT 316 000310 7200 CLA 317 000311 5676 JMP I PINIT 318 ///// 319 000312 4276 XRSTART, JMS PINIT 320 000313 5714 JMP I .+1 321 000314 1072 EXCHE-1 322 ///// 323 000315 0411 KEY, XKEY 324 000316 0707 TTY, XTTY 325 326 /CONTROL CODES TYPED 327 328 000317 1154 XINT-4 /RESTART ADDRESS 329 000320 1317 CNTRLC, TAD .-1 330 000321 4475 JMS I BDUMP 331 000322 7326 NL2 332 000323 0115 AND DECKP 333 000324 3115 DCA DECKP /RESET ALL OTHER FLAGS 334 000325 1072 CNTRLX, TAD UPAR /AND PRINT UPARROW 335 000326 4420 ACTIONQ /TEST AND PRINT 336 000327 5336 JMP SETW 337 000330 1025 TAD CHARM /CHANGE CONTROL CODE TO A PRINTABLE ONE. 338 000331 1341 TAD P100 339 000332 4420 ACTIONQ /OUTPUT PRINTED CODE 340 000333 5336 JMP SETW /TOO FULL?! 341 000334 5735 JMP I .+1 342 000335 0452 KEYX 343 ///// 344 000336 1107 SETW, TAD PCM 345 000337 4475 JMS I BDUMP 346 000340 5325 JMP CNTRLX 347 000341 0100 P100, 100 348 000342 1052 SILENT, TAD P7757 349 000343 0115 AND DECKP 350 000344 1057 TAD P20 351 000345 5324 JMP CNTRLX-1 352 353 000346 1052 TTYPE, TAD P7757 354 000347 0115 AND DECKP 355 000350 5324 JMP CNTRLX-1 356 /// 357 358 /CONTROL TABLE 359 360 000351 0452 IGNORE /L.T. 361 CTABS=. 362 000352 0460 ECHO /^A-HOME 363 000353 0325 CNTRLX /^B 364 000354 0320 CNTRLC /C-END OF MESSAGE 365 000355 0325 CNTRLX /D 366 000356 0325 CNTRLX /E 367 000357 0325 CNTRLX /F 368 000360 0460 ECHO /G - BELL 369 000361 0325 CNTRLX /H 370 000362 0325 CNTRLX /I 371 000363 0470 NOECHO /J - LF. 372 000364 0325 CNTRLX /K 373 000365 0470 NOECHO /L -FF. 374 000366 0455 GOCR /M -C.R. 375 000367 0325 CNTRLX /N - 376 000370 0325 CNTRLX /0 377 000371 0325 CNTRLX /P 378 000372 0325 CNTRLX /Q 379 000373 0342 SILENT /R-TAPE 380 000374 0325 CNTRLX /S- (7000) - FOR DEBUGGING 381 000375 0346 TTYPE /T-NOT TAPE 382 000376 0325 CNTRLX /U 383 000377 0325 CNTRLX /V 384 000400 0325 CNTRLX /W -E.O.MEDIA 385 000401 0460 ECHO /X-ERASE 386 000402 0325 CNTRLX /Y 387 000403 0325 CNTRLX /Z 388 000404 0452 IGNORE /[ 389 000405 0452 IGNORE /\ 390 000406 0452 IGNORE /] 391 000407 0460 ECHO /UPAR - 392 000410 0455 GOCR /LEPTAR=GORO 393 394 /KEYBOARD PROCESSOR 395 396 000411 0000 XKEY, 0 397 000412 4421 ONDECK /PUT THIS USER ON DECK 398 000413 7344 CLA CLL CMA RAL /AC=7776 399 000414 1116 TAD IOTX 400 000415 3224 DCA .+7 401 000416 7326 CLA CLL CML RTL /AC=2 402 000417 1116 TAD IOTX /KRS 403 000420 3223 DCA .+3 404 000421 1116 TAD IOTX /KCC 405 000422 3253 DCA KEYX+1 406 000423 7402 HLT 407 000424 7402 HLT /EXECUTE THIS USER'S READIN CODE 408 000425 0062 AND C177M /IGNORE PARITY 409 000426 7450 SNA 410 000427 5253 JMP KEYX+1 /IGNORE BLANKS 411 000430 1071 TAD C200M 412 000431 3025 DCA CHARM /SAVE CHARACTER 413 000432 1025 TAD CHARM 414 000433 1251 TAD MRO 415 000434 7650 SNA CLA 416 000435 5274 JMP SING 417 000436 1025 TAD CHARM /TEST CODE 418 000437 0334 AND P140 419 000440 7640 SZA CLA 420 000441 5260 JMP ECHO /REGULAR CHARACTERS 421 000442 1025 TAD CHARM /BRANCH ON CONTROL CHARACTER CODES. 422 000443 0065 AND P37 423 000444 1042 TAD CODET /ADD BASE ADDRESS OF CHARMACTER TABLE 424 000445 3024 DCA TEMPM 425 000446 1424 TAD I TEMPM /GET CONTENTS OF TABLE, 426 000447 3024 DCA TEMPM 427 000450 5424 JMP I TEMPM /AND BRANCH, 428 ///// 429 000451 7401 MRO, -377 430 IGNORE=. 431 000452 4422 KEYX, OFFDECK 432 000453 7402 HLT /KCC EQUIVALENT 433 000454 5611 JMP I XKEY 434 435 /ACKNOWLEDGE INPUT FROM "XKEY" 436 437 000455 7352 GOCR, NL5777 /CLEAR INPUT WAIT 438 000456 0115 AND DECKP 439 000457 3115 DCA DECKP 440 000460 1057 ECHO, TAD P20 441 000461 0115 AND DECKP /THIS USER IN SILENT STATE? 442 000462 7640 SZA CLA 443 000463 5270 JMP NOECHO /YES, EXIT 444 000464 1514 TAD I IBUFI /WILL THIS CHARM BE ACCEPTED? 445 000465 7650 SNA CLA 446 000466 4420 ACTIONQ /YES 447 000467 7000 NOP /NO, OR LOW SPEED OUTPUT HAS FULL BUFFER 448 000470 7001 NOECHO, IAC /SINGLE CHARACTER MODE? 449 000471 0115 AND DECKP 450 000472 7650 SNA CLA 451 000473 5277 JMP EOUT 452 000474 7352 SING, NL5777 /YES, CLEAR INPUT WAIT FLAG 453 000475 0115 AND DECKP /AND CONTROL CODES 454 000476 3115 DCA DECKP 455 456 /SAVE INPUT 457 458 000477 1114 EOUT, TAD IBUFI /IS INPUT BUFFER NEARLY FULL? 459 000500 7041 CIA 460 000501 1113 TAD IBUFO 461 000502 7550 SPA SNA 462 000503 1057 TAD P20 /FORM CORRECTED LENGTH 463 000504 1335 TAD MX 464 000505 7700 SMA CLA 465 000506 5312 JMP .+4 /NO, 466 000507 7352 NL5777 /YES, CLEAR INPUT WAIT 467 000510 0115 AND DECKP 468 000511 3115 DCA DECKP 469 000512 1514 TAD I IBUFI /TOTALLY FULL? 470 000513 7640 SZA CLA 471 000514 5326 JMP KELP 472 000515 1025 TAD CHARM /NO, SAVE AND COUNT 473 000516 3514 DCA I IBUFI 474 000517 1114 TAD IBUFI 475 000520 7001 IAC 476 000521 0055 AND P17M 477 000522 1057 TAD P20 478 000523 1112 TAD OBUF0 479 000524 3114 DCA IBUFI 480 000525 5252 JMP KEYX 481 ///// 482 000526 1044 KELP, TAD C2 483 000527 7104 CLL RAL 484 000530 7040 CMA 485 000531 0043 AND AUSERS 486 000532 3043 DCA AUSERS 487 000533 5252 JMP KEYX 488 489 ///// 490 000534 0140 P140, 140 491 000535 7770 MX, -10 /TUNE THE BUFFER FULL TEST HERE 492 000536 0107 BELLX, 207-100 493 494 IFZERO DVCE 496 IFZERO USER <7000> > 497 498 499 500 /CALLED BY BUFFER OVERFLOW 501 /AND CONTROL-C 502 000537 0000 XTDUMP, 0 503 000540 3107 DCA PCM 504 000541 1061 TAD M40M /SETUP INIT COUNT 505 000542 3023 DCA CNTRM 506 000543 7040 CMA 507 000544 1112 TAD OBUF0 508 000545 3011 DCA XR11 /INIT I/O BUFFERS, 509 000546 3411 DCA I XR11 510 000547 2023 ISZ CNTRM 511 000550 5346 JMP .-2 512 000551 1112 TAD OBUF0 /INIT TTY POINTERS. 513 000552 3110 DCA OBUFO 514 000553 1112 TAD OBUF0 515 000554 3111 DCA OBUFI 516 000555 1112 TAD OBUF0 517 000556 1057 TAD P20 518 000557 3114 DCA IBUFI 519 000560 1114 TAD IBUFI 520 000561 3113 DCA IBUFO 521 000562 1037 TAD USERNO 522 000563 7041 CIA 523 000564 1035 TAD ACTIVE 524 000565 7640 SZA CLA 525 000566 5737 JMP I XTDUMP 526 000567 6234 RIB 527 000570 1056 TAD M11M 528 000571 7640 SZA CLA 529 000572 5737 JMP I XTDUMP 530 000573 1107 TAD PCM 531 000574 3000 DCA 0 532 000575 3032 DCA SAC 533 000576 5737 JMP I XTDUMP 534 ///// 535 536 *600 537 538 /PLACE A USER DATA BLOCK IN AVAILABLE STATUS - "ONDECK" 539 / 540 / 541 /USERNO IS SET. 542 543 000600 0000 XDECK, 0 544 000601 1036 TAD DECK /ALREADY ON? 545 000602 7041 CIA 546 000603 1037 TAD USERNO 547 000604 7650 SNA CLA 548 000605 5600 JMP I XDECK /YES, RETURN 549 000606 4220 JMS XCOM 550 000607 1410 TAD I XR10 /MOVE DATA BLOCK IN. 551 000610 3411 DCA I XR11 552 000611 2023 ISZ CNTRM 553 000612 5207 JMP .-3 554 000613 1037 TAD USERNO /SAVE NEW USER NUMBER 555 000614 3036 DCA DECK 556 000615 5600 JMP I XDECK 557 ///// 558 000616 0106 BASEB, PCM-1 559 000617 1567 BASEX, BASES-BETA-1 /DATA TO FORM ADDRESS OF USER DATA AREA. 560 ///// 561 000620 0000 XCOM, 0 /COMPUTE DATA BLOCK ADDRESSES. 562 000621 1037 TAD USERNO / COMPUTE BASE ADDRESS 563 000622 7106 CLL RTL 564 000623 7004 RAL 565 000624 1217 TAD BASEX /COMPUTE DATA BASE 566 000625 3010 DCA XR10 /SAVE HOME ADDRESS 567 000626 1041 TAD MDECK /SETUP SWAP 568 000627 3023 DCA CNTRM 569 000630 1216 TAD BASEB /SETUP DECK ADDRESS 570 000631 3011 DCA XR11 571 000632 5620 JMP I XCOM /RETURN WITH XR'S SET. 572 ///// 573 000633 0000 UNDECK, 0 574 000634 4220 JMS XCOM 575 000635 1411 TAD I XR11 576 000636 3410 DCA I XR10 577 000637 2023 ISZ CNTRM 578 000640 5235 JMP .-3 579 000641 3036 DCA DECK 580 000642 5633 JMP I UNDECK 581 ////// 582 /THIS ROUTINE OUTPUTS A CHARMACTER TO THE BUFFER. - "ACTIONQ" 583 /IT MUST BE USED WITH INTERRUPT OFF, BUT 584 /IT MAY BE USED BY EITHER MAIN OR POLLING ROUTINES. 585 586 /CALLING SEQUENCE: DATA IS IN "CHAR" 587 / ACTIONQ 588 / 1 /BUFFERS FILLED BY THIS ITEM 589 / 2 /BUFFER OK 590 591 000643 0000 XACTION, 0 592 000644 7450 SNA 593 000645 1025 TAD CHARM 594 000646 3307 DCA XTTY 595 000647 1111 TAD OBUFI 596 000650 7001 IAC 597 000651 0055 AND P17M 598 000652 1112 TAD OBUF0 599 000653 3024 DCA TEMPM 600 000654 1511 TAD I OBUFI /ANY MORE ROOM? 601 000655 1424 TAD I TEMPM 602 000656 7650 SNA CLA 603 000657 2243 ISZ XACTION /AT LEAST ONE WILL BE LEFT 604 000660 1511 TAD I OBUFI 605 000661 7640 SZA CLA 606 000662 5643 JMP I XACTION /NO MORE LEFT 607 000663 7326 NL2 608 000664 0115 AND DECKP /IN PROGRESS? 609 000665 7640 SZA CLA 610 000666 5301 JMP ACTING /YES 611 000667 1116 TAD IOTX 612 000670 1105 TAD PTLS /(TLS=6X16) 613 000671 3273 DCA .+2 614 000672 1307 TAD XTTY /NO, 615 000673 7402 HLT /TYPE THE CHARMACTER. 616 000674 7346 NL7775 617 000675 0115 AND DECKP 618 000676 1306 TAD P2M 619 000677 3115 DCA DECKP /SET IN-PROGRESS FLAG, 620 000700 5643 JMP I XACTION /RETURN 621 ///// 622 000701 1307 ACTING, TAD XTTY /YES, SEND DATA 623 000702 3511 DCA I OBUFI 624 000703 1024 TAD TEMPM /SET POINTERS 625 000704 3111 DCA OBUFI 626 000705 5643 JMP I XACTION 627 000706 0002 P2M, 2 628 629 /PROCESS TTY FLAGS 630 631 000707 0000 XTTY, 0 /TELETYPE OUTPUT INTERRUPT 632 000710 4421 ONDECK /PUT THIS ONE ON DECK 633 000711 7346 NL7775 634 000712 0115 AND DECKP 635 000713 3115 DCA DECKP /TURN OFF THE IN-PROGRESS FLAG. 636 000714 1116 TAD IOTX /LOAD TLS CODE 637 000715 1105 TAD PTLS /(TLS=6X16) 638 000716 3322 DCA XTTX 639 000717 1510 TAD I OBUFO /ANY MORE OUTPUT? 640 000720 7450 SNA 641 000721 5337 JMP TEXIT /DONE 642 000722 7402 XTTX, HLT /TYPE NEXT. 643 000723 7346 NL7775 644 000724 0115 AND DECKP 645 000725 1306 TAD P2M 646 000726 3115 DCA DECKP /CLEAR AC AND TURN ON THE FLAG. 647 000727 3510 DCA I OBUFO /ZERO OUT THE DATA AREA 648 000730 1110 TAD OBUFO /MOVE THE OUTPUT POINTER 649 000731 7001 IAC 650 000732 0055 AND P17M 651 000733 1112 TAD OBUF0 652 000734 3110 DCA OBUFO 653 000735 4422 XXTTY, OFFDECK 654 000736 5707 JMP I XTTY 655 ///// 656 000737 1116 TEXIT, TAD IOTX 657 000740 1106 TAD PTCF /(TCF=6X12) 658 000741 3342 DCA .+1 /CLEAR FLAG 659 000742 7402 HLT 660 000743 1115 TAD DECKP /CLEAR OUTPUT WAIT BIT 661 000744 0051 AND P6777 662 000745 3115 DCA DECKP 663 000746 5335 JMP XXTTY 664 ///// 665 000747 7240 EXRED3, CLA CMA 666 000750 1035 TAD ACTIVE 667 000751 7450 SNA 668 000752 5764 JMP I EXRED4 /CONSOLE USER 669 000753 1150 TAD EBASE 670 000754 3147 DCA EP 671 000755 1547 TAD I EP 672 000756 7040 CMA 673 000757 0043 AND AUSERS 674 000760 1547 TAD I EP 675 000761 6117 MTON 676 000762 3043 DCA AUSERS /RESTORE THIS ONE 677 000763 5764 JMP I EXRED4 678 000764 1055 EXRED4, EXRED 679 680 000765 4000 DCB,4000 681 000766 2000 2000 682 000767 1000 1000 683 000770 0400 0400 684 685 686 /INITIALIZE TTY'S 687 000771 6032 6032 /KCC 688 000772 6402 6402 689 000773 6422 6422 690 000774 6442 6442 691 000775 5776 JMP I .+1 692 000776 0312 XRSTAR 693 694 *1000 695 696 697 /THESE ARE CALLED VIA THE USER CALLS TO EXEC. 698 699 001000 3025 EXPRNT, DCA CHARM 700 001001 1035 TAD ACTIVE /SETUP CURRENT USER 701 001002 3037 DCA USERNO /INTERRUPT IS OFF HERE. 702 001003 4421 ONDECK 703 IFZERO DVCE < CMA 704 TAD ACTIVE 705 SNA 706 JMP .+6 707 TAD EBASE 708 DCA EP 709 TAD I EP 710 MTON 711 CLA > 712 001004 4420 ACTIONQ 713 001005 5261 JMP EXPRN /GO INTO OUTPUT WAIT 714 001006 4422 OFFDECK 715 IFZERO DVCE < TAD AUSERS 716 MTON 717 CLA > 718 001007 6213 EXGO, CIF1 CDF1 719 001010 6001 ION /INTERRUPT ON, AND RETURN 720 001011 5612 JMP I .+1 721 001012 2623 RESUME 722 001013 2600 XPRNTI, EXPRIN 723 ///// 724 001014 0747 EXRED2, EXRED3 725 001015 1035 EXRD, TAD ACTIVE 726 001016 3037 DCA USERNO 727 001017 4421 ONDECK 728 001020 1513 TAD I IBUFO 729 001021 7450 SNA 730 IFZERO DVCE < JMP I EXRED2 /STOP INTS> 731 001022 5255 IFNZRO DVCE < JMP EXRED /INPUT WAIT> 732 001023 3034 DCA HOLD /SAVE DATA 733 001024 3513 DCA I IBUFO 734 001025 1113 TAD IBUFO /MOVE POINTER 735 001026 7001 IAC 736 001027 0055 AND P17M 737 001030 1057 TAD P20 738 001031 1112 TAD OBUF0 739 001032 3113 DCA IBUFO 740 001033 4422 OFFDECK 741 001034 6211 CDF1 742 001035 2613 ISZ I XPRNTI 743 001036 1034 TAD HOLD 744 001037 5207 JMP EXGO 745 ///// 746 001040 1035 EXCHCK, TAD ACTIVE 747 001041 3037 DCA USERNO 748 001042 2254 ISZ CHKCNT 749 001043 5207 JMP EXGO 750 001044 1253 TAD CHKCON 751 001045 3254 DCA CHKCNT 752 001046 4421 ONDECK 753 001047 7344 NL7776 /CLEAR SINGLE CHARACTER MODE 754 001050 0115 AND DECKP 755 001051 3115 DCA DECKP 756 001052 5265 JMP XPR2 757 758 001053 7774 CHKCON, -4 /TUNE HERE!! 759 001054 7774 CHKCNT, -4 760 761 762 /SET WAIT FLAGS 763 764 001055 7352 EXRED, NL5777 765 001056 0115 AND DECKP /SET INPUT WAIT 766 001057 1047 TAD P1000 /2000 SET 767 001060 5263 JMP XPR 768 ///// 769 001061 1051 EXPRN, TAD P6777 /SET OUTPUT WAIT 770 001062 0115 AND DECKP 771 001063 1047 XPR, TAD P1000 772 001064 3115 DCA DECKP 773 001065 6211 XPR2, CDF1 /NO REPEAT FOR CHECKPOINT 774 001066 1613 TAD I XPRNTI 775 001067 6201 CDF 776 001070 3107 DCA PCM /SAVE ACTIVE PROGRAM COUNTER 777 001071 4422 OFFDECK 778 779 /JOB QUEUE 780 781 001072 6001 ION /ENABLE THE INTERRUPTS ! 782 001073 1345 EXCHE, TAD NEXTU /EVERY PUSHJ=NEW USER ? 783 001074 1054 TAD P10 /LOOK AT NEXT USER'S "DECKP" 784 001075 3345 DCA NEXTU /UPDATE USER SCAN 785 001076 2040 ISZ NEWU 786 001077 1040 TAD NEWU 787 001100 1077 TAD NOUSRS 788 001101 7750 SPA SNA CLA 789 001102 5307 JMP .+5 790 001103 7001 IAC 791 001104 3040 DCA NEWU 792 001105 1346 TAD NEXT0 793 001106 3345 DCA NEXTU 794 001107 1745 TAD I NEXTU 795 001110 0050 AND P7000 796 001111 7640 SZA CLA 797 001112 5272 JMP EXCHE-1 /IDLE LOOP 798 799 /RUN NEXT USER 800 801 001113 6002 IOF 802 001114 1040 TAD NEWU /FIND TEXT BUFFER 803 001115 1074 TAD DTABLE 804 001116 3026 DCA TEMPT 805 001117 1426 TAD I TEMPT 806 001120 7450 SNA 807 001121 5347 JMP CONTIN 808 001122 3030 DCA PNTR 809 001123 6211 CDF1 /CHECK FOR TRACE 810 001124 1762 TAD I TRC1 811 001125 1763 TAD I TRC2 812 001126 6201 CDF 813 001127 7640 SZA CLA 814 001130 5743 JMP I EXSWP 815 /GO TO ANOTHER USER ONLY IF ACTIVE IS IN INPUT WAIT WITH TRACE ON. 816 001131 1035 TAD ACTIVE 817 001132 7106 RTL CLL 818 001133 7004 RAL 819 001134 1344 TAD ACTVP 820 001135 3027 DCA TEMPX 821 001136 7332 NL2000 822 001137 0427 AND I TEMPX 823 001140 7650 SNA CLA 824 001141 5272 JMP EXCHE-1 825 001142 5743 JMP I EXSWP 826 001143 1213 EXSWP, EXGON 827 001144 1576 ACTVP, BASES-2 828 001145 1606 NEXTU, BASES+6 829 001146 1606 NEXT0, BASES+6 830 ///// 831 001147 1345 CONTIN, TAD NEXTU 832 001150 1064 TAD M6M 833 001151 3030 DCA PNTR 834 001152 1430 TAD I PNTR 835 001153 3030 DCA PNTR 836 001154 1040 TAD NEWU /FIND TEXT BUFFER ADDRESS 837 001155 7421 7421 /SHOW THE USER NUMBER IN THE MQ 838 001156 7200 CLA 839 001157 6213 CDF1 CIF1 /RESUME THE ACTIVE PROGRAM. 840 001160 6001 ION 841 001161 5430 JMP I PNTR 842 ///// 843 001162 0026 TRC1, DEBGSW 844 001163 0100 TRC2, DMPSW 845 ///// 846 847 /NON-REENTRANT ADDRESSES IN FOCAL 848 849 LISTP=. 850 001164 2465 OUT 851 001165 5400 TGO 852 001166 5534 SCOUNT 853 001167 5535 FCOUNT 854 001170 2425 XPRNT 855 001171 5536 OUTA 856 001172 6000 FLOUTP 857 001173 2442 PRNT 858 001174 6154 OUTDG 859 001175 2155 CHIN /INPUT 860 001176 0756 INPUT 861 001177 6200 FLINTP 862 001200 5600 DECONV 863 001201 5627 DECON 864 001202 2605 EXREAD 865 001203 2600 EXPRIN 866 001204 5533 DECP 867 001205 5712 REMAIN 868 001206 5714 DNUMBR 869 /TABLE CONTAINS ADDRESS OF USER TESTS. 870 LISTL=.-LISTP 871 872 873 //ALPHA=LISTL+M100-10+BEND-IOBUF 874 ALPHA=LISTL+101-10+BEND-3120 875 876 877 001207 0000 USERTS, 0000 /#1 878 001210 1640 TEXTA /#2 879 001211 3453 TEXTA+ALPHA /#3 880 001212 5266 TEXTA+ALPHA+ALPHA /#4 881 IFNZRO USER / #5 882 883 884 /ACTIVE USER # CONTAINS ZERO 885 886 887 888 889 890 /EXCHANGE DATA AREAS 891 /(NEW) PNTR 892 /(ACTIVE (TEMPT) 0 893 894 001213 1035 EXGON, TAD ACTIVE 895 001214 1074 TAD DTABLE /(USERTS-1) 896 001215 3024 DCA TEMPM 897 001216 1030 TAD PNTR /ACTIVE USER GOES INTO NEW USERS AREA 898 001217 3424 DCA I TEMPM 899 001220 3426 DCA I TEMPT 900 901 001221 6001 ION /(IOF) - FOR DEBUGGING 902 001222 1104 TAD DLISTP /SETUP MISCELLANY TABLE 903 001223 3012 DCA XR12 /FIRST N ITEMS = #1 904 905 001224 1103 TAD MLISTP /DECIMAL 906 001225 3031 DCA CNTRT 907 001226 1040 TAD NEWU 908 001227 3035 DCA ACTIVE 909 910 001230 1412 MOVE15, TAD I XR12 /TRANSFER 911 001231 4255 JMS BMOVE 912 001232 5230 JMP MOVE15 913 914 001233 1073 TAD MZERO /PAGE ZERO IN PART= #2 915 001234 3031 DCA CNTRT /COULD BE AS SMALL AS 120 WORDS 916 917 001235 7040 CMA 918 001236 3027 DCA TEMPX 919 001237 1053 TAD EP7 /START AT TEN 920 001240 5242 JMP .+2 921 001241 1026 MOVE20, TAD TEMPT 922 001242 7001 IAC 923 001243 4255 JMS BMOVE 924 001244 5241 JMP MOVE20 925 001245 2027 ISZ TEMPX 926 001246 5253 JMP .+5 927 001247 1101 TAD TEXTC /REMAINDER (3100-4600) = #3 928 001250 3031 DCA CNTRT 929 001251 1100 TAD TEXTPM /(3100) 930 001252 5242 JMP MOVE20+1 931 001253 6002 IOF 932 001254 5502 JMP I CONTN 933 ///// 934 935 /MOVE A BLOCK OF DATA 936 937 938 001255 0000 BMOVE, 0 939 001256 3026 DCA TEMPT 940 001257 1430 TAD I PNTR /PICKUP NEW DATA 941 001260 3146 DCA HOLDI /INPUT 942 001261 6211 CDF1 943 001262 1426 TAD I TEMPT 944 001263 3145 DCA HOLDO /OUTPUT 945 001264 1146 TAD HOLDI 946 001265 3426 DCA I TEMPT 947 001266 6201 CDF 948 001267 1145 TAD HOLDO 949 001270 3430 DCA I PNTR 950 001271 2030 ISZ PNTR 951 001272 2031 ISZ CNTRT 952 001273 5655 JMP I BMOVE 953 001274 2255 ISZ BMOVE 954 001275 5655 JMP I BMOVE 955 956 957 / STORAGE BEGINS AT 1340 AND GOES TO 7777 958 959 BUFRS=1340 /40 PER USER 960 961 962 BASES=BUFRS+240 /(240) 963 964 /BASE DATA LISTS FOR EACH USER. 965 966 BETA=10 967 968 *BASES 969 001600 0200 200 /USER #1 (CONSOLE CTY) 970 001601 1340 BUFRS 971 001602 1340 BUFRS 972 001603 1340 BUFRS 973 001604 1360 BUFRS+20 974 001605 1360 BUFRS+20 975 001606 0000 0 976 001607 6032 6032 977 978 001610 0200 200 /USER #2 979 001611 1400 BUFRS+40 980 001612 1400 BUFRS+40 981 001613 1400 BUFRS+40 982 001614 1420 BUFRS+60 983 001615 1420 BUFRS+60 984 001616 0000 0 985 001617 6402 IFNZRO DVCE <6402> 986 IFZERO DVCE <6112> 987 988 001620 0200 200 /USER #3 989 001621 1440 BUFRS+100 990 001622 1440 BUFRS+100 991 001623 1440 BUFRS+100 992 001624 1460 BUFRS+120 993 001625 1460 BUFRS+120 994 001626 0000 0 995 001627 6422 IFNZRO DVCE <6422> 996 IFZERO DVCE <6112> 997 998 *BASES+BETA+BETA+BETA 999 001630 0200 200 /USER #4 1000 001631 1500 BUFRS+140 1001 001632 1500 BUFRS+140 1002 001633 1500 BUFRS+140 1003 001634 1520 BUFRS+160 1004 001635 1520 BUFRS+160 1005 001636 0000 0 1006 001637 6442 IFNZRO DVCE <6442> 1007 IFZERO DVCE <6112> 1008 IFNZRO USER < 1009 1010 200 /USER #5 1011 BUFRS+200 1012 BUFRS+200 1013 BUFRS+200 1014 BUFRS+220 1015 BUFRS+220 1016 0 1017 IFNZRO DVCE <6462> 1018 IFZERO DVCE <6112> 1019 > 1020 1021 TEXTA=. 1022 1023 //DUMLN2=TEXTA+LISTL+M100-10+FRST-IOBUF 1024 DUMLN2=TEXTA+LISTL+101-10+3206-3120 1025 1026 *DUMLN2 /#2 1027 002042 0000 0 1028 002043 0000 0000 1029 002044 0340 TEXT "C FOCAL-8 " 002045 0617 002046 0301 002047 1455 002050 7040 002051 4040 002052 0000 1030 *.-1 1031 002052 7715 7715 1032 1033 1034 *3000 1035 1036 /INITIALIZE ROUTINE 1037 1038 003000 0771 DCB+4 1039 003001 1200 INITL, TAD .-1 1040 003002 3177 DCA 177 1041 003003 1074 TAD DTABLE 1042 003004 7001 IAC /START WITH #2 1043 003005 3010 DCA XR10 1044 003006 7001 IAC /MAKE COPIES OF PAGE ZERO 1045 003007 1077 TAD NOUSRS 1046 003010 3027 DCA TEMPX 1047 003011 1073 INITL4, TAD MZERO 1048 003012 3031 DCA CNTRT 1049 003013 1053 TAD EP7 1050 003014 3011 DCA XR11 1051 003015 1076 TAD ALISTP /MOVE PAST BASE DATA 1052 003016 1410 TAD I XR10 1053 003017 3012 DCA XR12 1054 1055 003020 6211 CDF1 /COPY PAGE ZERO DATA 1056 003021 1411 TAD I XR11 /BEGIN WITH LOC#1 1057 003022 6201 CDF 1058 003023 3412 DCA I XR12 1059 003024 2031 ISZ CNTRT 1060 003025 5220 JMP .-5 1061 003026 2027 ISZ TEMPX 1062 003027 5211 JMP INITL4 1063 003030 7001 IAC /SET #1 TO ACTIVE STATUS 1064 003031 3035 DCA ACTIVE 1065 003032 7001 IAC 1066 003033 3040 DCA NEWU 1067 003034 1246 TAD M240M 1068 003035 3031 DCA CNTRT 1069 003036 1245 TAD BUFRSP 1070 003037 3010 DCA XR10 1071 003040 3410 DCA I XR10 1072 003041 2031 ISZ CNTRT 1073 003042 5240 JMP .-2 1074 003043 5644 JMP I .+1 1075 003044 0771 DCB+4 1076 003045 1337 BUFRSP, BUFRS-1 1077 003046 7540 M240M, -240 1078 1079 1080 *DUMLN2+ALPHA /#3 1081 003655 0000 0 1082 003656 0000 0000 1083 003657 0340 TEXT "C FOCAL-8 " 003660 0617 003661 0301 003662 1455 003663 7040 003664 4040 003665 0000 1084 *.-1 1085 003665 7715 7715 1086 1087 *DUMLN2+ALPHA+ALPHA /#4 1088 005470 0000 0 1089 005471 0000 0000 1090 005472 0340 TEXT "C FOCAL-8 " 005473 0617 005474 0301 005475 1455 005476 7040 005477 4040 005500 0000 1091 *.-1 1092 005500 7715 7715 1093 1094 005501 7101 TEXTA+ALPHA+ALPHA+ALPHA /LAST OF 4! 1095 1096 IFNZRO USER < 1097 1098 *DUMLN2+ALPHA+ALPHA+ALPHA /#5 1099 0 1100 0000 1101 TEXT "C FOCAL-8 " 1102 *.-1 1103 7715 1104 1105 TEXTA+ALPHA+ALPHA+ALPHA+ALPHA /LAST OF 5! 1106 > 1107 1108 1109 ////////////////////////////////////////////// 1110 1111 FIELD 1 /USER'S FIELD 1112 1113 /MODIFY AND ASK=SINGLE CHARACTER INPUT MODE 1114 *BOTTOM 1115 010035 4617 BEND 1116 1117 *COMGO+6 /ASK 1118 011171 2662 EXASK 1119 1120 *.+4 /MODIFY 1121 011176 2657 EXMOD 1122 1123 *PC1+4 1124 010620 5575 JMP I START-2 /PATCH IN PROC 1125 1126 *START-2 1127 010175 2615 EXCHEC 1128 010176 1155 XINT-3 1129 1130 *OUTDEV 1131 010063 2600 EXPRIN /XI33 1132 010064 2605 EXREAD /XOUTL 1133 1134 *COMGO+10 /LIB 1135 011173 2725 ERROR5 1136 *COMGO+16 /* 1137 011201 0177 177 1138 1139 *CHIN+3 1140 012160 1066 TAD CHAR 1141 012161 1116 TAD MCR 1142 012162 4764 JMS I .+2 1143 012163 5755 JMP I CHIN 1144 012164 2630 ECCR 1145 1146 *2600 1147 1148 1149 /NEW I/O INSTRUCTIONS 1150 1151 012600 0000 EXPRIN, 0 1152 012601 6002 IOF 1153 012602 6203 CDF CIF 1154 012603 5604 JMP I .+1 1155 012604 1000 EXPRNT 1156 //// 1157 012605 0000 EXREAD, 0 1158 012606 7240 CLA CMA /INPUT MAY BE RE-CALLED 1159 012607 1205 TAD .-2 1160 012610 3200 DCA EXPRIN 1161 012611 6002 IOF 1162 012612 6203 CDF CIF 1163 012613 5614 JMP I .+1 1164 012614 1015 EXRD 1165 //// 1166 012615 1224 EXCHEC, TAD T2U /EVERY INSTRUCTION=CHECK POINT 1167 012616 3200 DCA EXPRIN 1168 012617 6002 IOF 1169 012620 6203 CDF CIF 1170 012621 5622 JMP I .+1 1171 012622 1040 EXCHCK 1172 //// 1173 012623 5600 RESUME, JMP I EXPRIN 1174 1175 012624 2625 T2U, .+1 1176 012625 1066 TAD CHAR /RESTART AFTER CHECKPOINT 1177 012626 5627 JMP I .+1 1178 012627 0621 PC1+5 1179 //// 1180 012630 0000 ECCR, 0 1181 012631 7640 SZA CLA 1182 012632 5630 JMP I ECCR 1183 012633 1076 TAD CLF 1184 012634 4200 JMS EXPRIN 1185 012635 5630 JMP I ECCR 1186 /SET TO SINGLE CHARACTER FOR MODIFY 1187 1188 012636 0000 SINGLE, 0 1189 012637 6002 IOF /PROTECT AGAINST CONTROL-C AT THIS MOMENT 1190 012640 6201 CDF 1191 012641 1656 TAD I XA 1192 012642 7106 RTL CLL 1193 012643 7004 RAL 1194 012644 1255 TAD XB /FIND DECKP OF ACTIVE USER 1195 012645 3071 DCA T2 1196 012646 7344 NL7776 1197 012647 0471 AND I T2 /SET SINGLE CHARACTER MODE 1198 012650 7001 IAC 1199 012651 3471 DCA I T2 1200 012652 6211 CDF1 1201 012653 6001 ION 1202 012654 5636 JMP I SINGLE 1203 1204 012655 1576 XB, BASES-2 1205 012656 0035 XA, ACTIVE 1206 1207 012657 4236 EXMOD, JMS SINGLE 1208 012660 5661 JMP I .+1 1209 012661 1256 MODIFY 1210 1211 012662 4236 EXASK, JMS SINGLE 1212 012663 5664 JMP I .+1 1213 012664 1202 ASK 1214 //// 1215 012665 4453 FX, JMS I INTEGER 1216 012666 7041 CIA 1217 012667 3236 DCA SINGLE /NO. OF BITS 1218 012670 4540 PUSHJ 1219 012671 1612 EVAL-1 1220 012672 4453 JMS I INTEGER 1221 012673 7410 SKP 1222 012674 1046 FX2, TAD LORD 1223 012675 7110 CLL RAR 1224 012676 3046 DCA LORD 1225 012677 1045 TAD HORD 1226 012700 7004 RAL 1227 012701 3045 DCA HORD 1228 012702 2236 ISZ SINGLE 1229 012703 5274 JMP FX2 1230 012704 1005 TAD P13 1231 012705 3044 DCA EXP 1232 012706 3046 DCA LORD 1233 012707 3047 DCA OVER2 1234 012710 5536 JMP I EFUN3I 1235 *FNTABF+5 /REPLACE FADC() 1236 010401 2665 FX 1237 1238 *FNTABL+5 1239 012172 0330 330 1240 1241 1242 1243 *ERR2+4 1244 012732 5361 JMP RECOVX 1245 1246 *RECOVR+2 1247 012742 5361 JMP RECOVX 1248 1249 *RECOVX+1 1250 012762 7000 NOP 1251 1252 *SADR 1253 016150 3117 IOBUF-1 1254 1255 1256 NOPUNC 1257 FIELD 0 A 0045 ABSOL 6751 ABSOL2 6153 ABSOL3 7375 ABSOLV 5571 AC1H 0041 AC1L 0042 ACMINS 6603 ACTING 0701 ACTION 4420 ACTIVE 0035 ACTVP 1144 ADD 0061 ADDR 0040 ADONE 6673 AF 4677 ALF1 4760 ALF2 4763 ALFZ 4755 ALGN 6570 ALIGN 6623 ALIST 1372 ALISTP 0076 ALPHA 1613 AMOUNT 6722 ARCALG 4732 ARCRTN 5024 ARGNXT 1723 ARTN 5000 ASHFT 6665 ASK 1202 ATEI 4465 ATES 4513 ATLIST 1570 ATSW 0056 AUSERS 0043 AXIN 0010 AXOUT 0017 B 0046 BACK 5503 BASEB 0616 BASES 1600 BASEX 0617 BDUMP 0075 BEGIN 4371 BELLX 0536 unreferenced BEND 4617 BET1 4771 BET2 4774 BETA 0010 BETZ 4766 BF 4702 BFX 4557 BFXX 4556 BMOVE 1255 BOTTOM 0035 BUFBEG 3217 BUFFER 7470 BUFR 0060 BUFRS 1340 BUFRSP 3045 BUFST 5531 C 0047 C100 0006 C140 2554 C144 6140 C177M 0062 C2 0044 C200 0123 C200M 0071 C260 0113 C3 5346 C5 5342 C7 5336 C9 5332 CCR 0077 CDF 6201 CDF1 6211 CEX1 6504 CEXP 6503 CF 4705 CFRS 0133 CFRSX 0137 CHAR 0066 CHARM 0025 CHIN 2155 CHKCNT 1054 CHKCON 1053 CHRT 6133 CIF 6202 CIF1 6212 CLCU 7427 CLF 0076 CNTR 0057 CNTRLC 0320 CNTRLX 0325 CNTRM 0023 CNTRT 0031 CODET 0042 COL 1255 COMBOT 0226 COMBUF 0132 COMEIN 3140 COMEOU 3206 COMGO 1163 COMLST 0774 COMMEN 0614 CON1 5037 CONTIN 1147 CONTN 0102 CSTAR 0225 CTABS 0352 D 0041 DATUM 7102 DATUMA 7252 DCB 0765 DCONP 6303 DCONT 0471 DCOUNT 6143 DDTJR 0004 DEBGSW 0026 DECK 0036 DECKP 0115 DECON 5627 DECONV 5600 DECP 5533 DECR 5521 DELETE 4565 DF 4710 DGRP 0425 DGRP1 0441 unreferenced DIG 5543 DIGIT 5713 DIGITS 0006 DIV1 5754 DIV2 6757 DIVIDE 7150 DLISTP 0104 DMDONE 7063 DMPSW 0100 DMULT 7004 DMULT4 7036 DNORM 7335 DNUMBR 5714 DO 0420 DOK 2111 DONE 2127 DOONE 0463 DOUBLE 0127 DPCVPT 6302 DPN 6305 DPT 6145 DSAVE 5640 DTABLE 0074 DTST 5647 DUBDIV 7261 DUBLAD 5733 DUMLN2 2042 DV3 7267 DVCE 0001 E 0042 EBASE 0150 ECALL 1601 ECCR 2630 ECHO 0460 ECHOLS 1624 EFOP 0056 EFUN 1743 EFUN2 1754 EFUN3 2017 EFUN3I 0136 ELPAR 1763 END 0134 ENDFI 6243 ENDLN 4556 ENDT 0135 ENUM 1732 EOUT 0477 EP 0147 EP7 0053 EPAR 1710 EPAR2 1765 ER5 4555 ERASE 2204 ERG 2225 ERL 2222 ERR2 2726 ERROR2 4566 ERROR3 4566 ERROR4 4566 ERROR5 2725 ERT 2214 ERV 2217 ERVX 2237 ESCA 2532 ETERM 1647 ETERM1 1627 ETERM2 1655 ETERMN 1644 EVAL 1613 EX1 0040 EXASK 2662 EXCHCK 1040 EXCHE 1073 EXCHEC 2615 EXGO 1007 EXGON 1213 EXIT 2646 EXIT1 5034 EXIT2 5302 EXIT3 7363 EXITJ 2661 EXMOD 2657 EXP 0044 EXPRIN 2600 EXPRN 1061 EXPRNT 1000 EXRD 1015 EXREAD 2605 EXRED 1055 EXRED2 1014 unreferenced EXRED3 0747 EXRED4 0764 EXSWP 1143 EXTR 2313 F 0043 FADD 1000 FCONT 1101 FCOS 5200 FCOUNT 5535 FDIV 3000 FEND3 2267 FEXP 4620 FEXT 0000 FGET 0000 FGO2 6011 FGO3 6027 FGO4 6034 FGO5 6070 FIGO1 6221 FIGO4 6261 FINCR 1065 FINDLN 4555 FINDN 2246 FINFIN 1137 FINKP 1133 FINPUT 0131 FINT 4407 FISW 0052 FIX 6724 FIXM 6753 FLAC 0044 FLAD 6506 FLAG1 5162 FLAG2 4725 FLARG 2030 FLARGP 0125 FLDV 7107 FLEX 6525 FLGT 6467 FLIMIT 1075 FLINTP 6200 FLIST1 0577 FLIST2 0574 FLMY 6563 FLOG 5040 FLOP 1674 FLOUT 5556 FLOUTP 6000 FLPT 6465 FLSU 6505 FLTONE 2405 FLTXR 0014 FLTXR2 0015 FLTZER 2407 FM12 6142 FMUL 4000 FNEG 5163 FNOR 7000 FNPT 4554 FNTABF 0374 FNTABL 2165 FOR 1041 FOUTPU 0130 FPAC1 7474 FPNT 6400 FPOW 5000 unreferenced FPRNT 5465 FPUT 6000 FRST 3206 FRSTX 3215 FSIN 5205 FSUB 2000 FX 2665 FX2 2674 FXIT 0000 G8L 4466 GECALL 1460 GEND 2334 GERR 0340 GET1 2330 GET3 2345 GETARG 1403 GETC 4545 GETLN 4554 GETSGN 1045 GETVAR 1407 GEXIT 0352 GFND1 1505 GINC 0070 GLIST 1377 GO 5021 GOCR 0455 GONE 0232 GOTO 0603 GRPTST 0744 GS1 1437 GS2 1461 GS3 1441 GS4 1454 GSERCH 1426 GTEM 0021 GZERR 0362 HINBUF 0037 HOLD 0034 HOLDI 0146 HOLDO 0145 HORD 0045 HREAD 6321 HREAD2 6324 HSGO 6364 HSPSW 6375 HSPX 6361 HSWITC 6343 HTST 6376 I33 2414 IBAR 0212 IBUFI 0114 IBUFO 0113 IECALL 1037 IF 1013 IF1 1035 IF3 1025 IGNOR 0217 IGNORE 0452 ILIST 0771 IN 5513 INBUF 0034 INDEV 0064 INDRCT 6463 INFIX 2401 INITL 3001 INITL4 3011 INLIST 0570 INORM 6307 INPUT 0756 INPUTX 0271 INSUB 0036 INTEGE 0053 INTRPM 0201 INTRPT 2603 IOBUF 3120 IOTX 0116 IPART 1040 IRETN 0227 ITABLE 6573 ITER1 7470 JUMP 6462 K4 5525 KCF 6030 KELP 0526 KEY 0315 KEYX 0452 KINT 2625 KSF1 6401 KSF2 6421 KSF3 6441 KSF4 6461 unreferenced L1 5126 L2 5131 L3 5134 L4 5137 L8A 4550 unreferenced L8AX 4553 L8AY 4552 L8B 4551 unreferenced LASTLN 0025 LASTOP 0055 LASTV 0031 LCON 0371 LG2E 4713 LIBRAR 7503 LINENO 0067 LIST3 0077 LIST6 0072 LIST7 0074 LISTGO 1370 LISTL 0023 LISTP 1164 LOG2 5157 LOG5 5142 LOG6 5145 LOG7 5150 LOG8 5153 LOOKUP 4571 LOOP01 6431 LORD 0046 LP7 7556 LPRTST 2035 M100 0101 M10PT 6147 M11 0121 M11M 0056 M12 2413 M137 2357 M140 2556 M144 6137 M2 0111 M20 0105 M200 0070 unreferenced M20M 0060 unreferenced M240 0114 M240M 3046 M260 1526 M271 1527 M2M 0063 unreferenced M4 6141 M40 2356 M40M 0061 M5 0120 M6M 0064 M77 0103 MBREAK 2602 MC3 0045 unreferenced MCOM 1136 unreferenced MCR 0116 MCRM 0067 unreferenced MD 5526 MDECK 0041 MEQ 1135 MF 0602 MFLT 0117 MIF 7260 MINE 5662 MINSKI 0051 MINT 6115 MINUS2 7153 MINUSA 0112 MINUSE 6301 MINUSZ 5663 MLISTP 0103 MOD 5215 MODIFY 1256 MOVE15 1230 MOVE20 1241 MP1 7254 MP2 7256 MP3 7255 MP4 7200 MP5 7253 MP6 7210 MPER 0115 MPLUS 5664 MRO 0451 MSPACE 5665 MTLS 6126 unreferenced MTON 6117 MULDIV 7101 MULT 6566 MULT10 5667 MULT2 5715 MULTY 4752 MX 0535 MZERO 0073 NAGSW 0065 NEGP 4724 NEWU 0040 NEXT0 1146 NEXTU 1145 NL1 7301 unreferenced NL2 7326 NL2000 7332 NL3777 7350 unreferenced NL4000 7330 unreferenced NL5777 7352 NL7775 7346 NL7776 7344 NOECHO 0470 NORF 6513 NORM 6567 NORMF 7147 NOUSRS 0077 NOX 6675 NOX1 6711 NOX2 6704 O1 4370 O2 4561 O4 4412 unreferenced O5 4563 O6 4564 OBUF0 0112 OBUFI 0111 OBUFO 0110 OFFDEC 4422 OM12 5530 ONDECK 4421 ONE 4716 OOUT 4544 OP 3115 OPMINS 6565 OPNEXT 1622 OPTABL 1731 OPTR0 2663 OPTRI 2665 OPTRO 2664 OPUT 5532 OTHER 0216 OUT 2465 OUTA 5536 OUTCR 2476 OUTDEV 0063 OUTDG 6154 OUTL 1354 OUTX 2475 OVER1 0043 OVER2 0047 P10 0054 P100 0341 P1000 0047 P13 0005 P14 0066 unreferenced P140 0534 P17 0107 P177 0106 P17M 0055 P2 4566 P20 0057 P2000 0373 P27 6750 P277 0110 P2M 0706 P3 2034 P337 0075 P37 0065 P377 2553 P40 2552 P4000 0124 P43 6310 P6777 0051 P7 4565 P70 0117 P7000 0050 P7600 0104 P77 0122 P7700 0101 P7740 0372 P7757 0052 P77M 0046 unreferenced PA1 2524 PACBUF 2502 PACKC 4546 PACKST 0027 PACX 2530 PALG 5261 PARITY 0266 PARTES 2047 PC 0022 PC1 0614 PCDF 0120 PCHECK 5245 PCHK 0510 PCIF 0121 PCK1 2535 PCM 0107 PD2 0534 PD3 0554 PDLXR 0013 PDP 4562 PDP5 4570 PDP5X 4463 PDP8I 4567 PEQ 6135 PER 0102 PI 5312 PI2 5036 PINIT 0276 PIOT 5316 PLCE 5536 PNTR 0030 POPA 1413 POPF 4544 POPJ 5541 POWRUP 0123 PPTEN 6144 PRINTC 4551 PRINTD 7550 PRNT 2442 PRNT2 3114 PRNT8 7527 PRNTI 6132 PRNTLN 4553 PROC 0611 PROCES 0610 PSIN 0165 PT1 0030 PTCF 0106 PTCH 0126 PTEN 6275 PTEST 1457 PTLS 0105 PUSHA 4542 PUSHF 4543 PUSHJ 4540 R6 5441 RANO 1530 RAR1 6571 RAR2 6572 RDIV 0152 READC 4552 RECOVR 2740 RECOVX 2761 REMAIN 5712 REPT 6146 RESOL 6752 RESOL3 7376 RESOL5 6304 RESOLV 7173 RESTAR 0003 RESTOR 0270 RESTR 6377 RESUME 2623 RET 5452 RETRN 1563 RETURN 5536 REVIT 7146 RFC 6014 RMF 6244 RND2 5527 ROOTGO 7461 ROT 2557 ROUND 6151 RTL6 4557 RUB1 3004 RUB2 3042 RUB3 3030 RUB4 3037 RUB5 3041 RUBIT 2555 SAC 0032 SADR 6150 SAVAC 2600 SAVE 3751 SAVLK 2601 SBAR 1302 SCHAR 1273 SCONT 1270 SCOUNT 5534 SET 1041 SETW 0336 SEX 1340 SEXC 0740 SFOUND 1306 SGOT 1312 SIGN 7124 SIGNF 0050 SILENT 0342 SIN 2662 SING 0474 SINGLE 2636 SLK 0033 SMIN 6136 SMP 6101 SMSP 6134 SORTB 1314 SORTC 4550 SORTCN 0054 SORTJ 4547 SPECIA 6777 SPLAT 3051 SPNOR 4560 SQCON1 7467 SQEND 7465 SRETN 0261 SRNLST 1363 START 0177 STARTL 5064 STARTV 0060 SUBS 1517 T 0000 T1 0032 T12 4426 T2 0071 T2U 2624 T3 0033 TABLE 6464 TAG1 6723 TASK 1204 TASK4 1252 TCRLF 1250 TCRLF2 1245 TDUMP 3052 TELSW 0016 TELSW1 0261 TELSW2 0262 TELSW3 0263 TELSW4 0264 TELSW5 0265 TEM 5156 TEMP 4726 TEMPM 0024 TEMPT 0026 TEMPX 0027 TEN 6271 TENPT 6152 TERMS 1770 TEST2 6736 TEST4 7366 TESTA 0322 TESTC 4564 TESTN 4561 TEXIT 0737 TEXTA 1640 TEXTC 0101 TEXTP 0017 TEXTPM 0100 TGO 5400 THIR 7257 THISLN 0023 THISOP 0024 TINTR 1240 TLIST 1400 TLIST2 1404 TLIST3 2377 TQUOT 1231 TRAD 6573 TRC1 1162 TRC2 1163 TSF1 6411 TSF2 6431 TSF3 6451 TSF4 6471 unreferenced TSTGRP 4563 TSTLPR 4562 TTY 0316 TTYPE 0346 TWO 4721 TWOPI 5306 TYPE 1203 TYPE2 1225 UNDECK 0633 UPAR 0072 USER 0000 USERNO 0037 USERTS 1207 UTE 2276 UTQ 2305 UTRA 2274 UTX 2316 VAL 0032 WALL 0664 WORDS 0003 WRITE 0635 WTEST2 0653 WTESTG 0667 WX 0673 X 5322 X1 5035 X2 4675 XA 2656 XABS 2014 XACTIO 0643 XADC 1343 XB 2655 XCOM 0620 XCT 0020 XCTIN 0062 XDECK 0600 XDELET 2062 XDYS 1142 unreferenced XENDLN 2360 XF 4560 XFIND 2242 XGETLN 0302 XI33 2666 XIN 6306 XINPUT 5666 XINT 1160 XKEY 0411 XOUTL 2676 XPOPJ 1565 XPR 1063 XPR2 1065 XPRNT 2425 XPRNTI 1013 XPUSHA 0477 XPUSHJ 0521 XR10 0010 XR11 0011 XR12 0012 XR13 0013 unreferenced XRAN 1553 XRAR2 7365 XRSTAR 0312 XRT 0011 XRT2 0012 XRTL6 0413 XSGN 2010 XSORTC 0721 XSPNOR 1517 XSQ2 4676 XSQR 5326 XSQRT 7400 XT3 0717 XTDUMP 0537 XTESTC 0700 XTESTN 1533 XTTX 0722 XTTY 0707 XXTTY 0735 XYZ 2451 ZERO 6520