1 /FOCAL-8 QUAD (FAMILY OF 8 WITH DC02) 2 /DEC-08-LQDCA-A-LA 3 4 /COPYRIGHT 1969,1971 DIGITAL EQUIPMENT CORPORATION 5 / MAYNARD, MASSACHUSETTS 01754 6 7 /ASSEMBLY INSTRUCTIONS: 8 /.R PAL8 9 /*QUAD8I,QUAD8I_QUAD8I,FOCAL8,FLOAT 10 11 /ASSEMBLY MAY YIELD UO ERRORS ON PASS 1 12 /THESE MAY BE IGNORED 13 14 /FOR USE WITH PT08, CHANGE DVCE=0 TO DVCE=1 15 16 17 18 /.SAVE F4UB!0-1677,2000,3000,3500-3600,5200-5500 19 /.SAVE F4UA!0-13377,14600-17577; 20 21 /FOR QUAD: USER=0 22 /FOR PENT: USER=1 23 /FOR PTO8: DVCE=1 24 /FOR DCO2: DVCE=0 25 26 USER=0 27 DVCE=1 28 29 30 31 MQA=7501 32 RMF=6244 33 34 35 CDF1=6211 36 CIF1=6212 37 38 39 40 MTON=6117 41 MINT=6115 42 MTLS=6126 43 44 /MNEMONIC, OCTAL, 45 46 NL4000=7330 47 NL2000=7332 48 NL3777=7350 49 NL5777=7352 50 NL7776=7344 51 NL7775=7346 52 NL1=7301 53 NL2=7326 54 CDF=6201 55 CIF=6202 56 KSF1=6401 57 TSF1=6411 58 KSF2=6421 59 TSF2=6431 60 KSF3=6441 61 TSF3=6451 62 KSF4=6461 63 TSF4=6471 64 /PAGE ZERO 65 66 FIELD 0 67 68 *1 69 000001 5402 JMP I .+1 70 000002 0201 INTRPM 71 000003 0123 RESTART, POWRUP 72 000004 7000 NOP /DDTJR 73 *10 74 000010 0000 XR10, 0 75 000011 0000 XR11, 0 76 000012 0000 XR12, 0 77 000013 0000 XR13, 0 78 79 *20 80 T=0 81 ACTIONQ=JMS I . 82 000020 0643 XACTION 83 ONDECK=JMS I . 84 000021 0600 XDECK 85 OFFDECK=JMS I . 86 000022 0633 UNDECK 87 000023 0000 CNTRM, 0 /GENERAL PURPOSE REGISTERS 88 000024 0000 TEMPM, 0 89 000025 0000 CHARM, 0 90 000026 0000 TEMPT, 0 91 000027 0000 TEMPX, 0 92 000030 0000 PNTR, 0 93 000031 0000 CNTRT, 0 94 000032 0000 SAC, 0 95 000033 0000 SLK, 0 96 000034 0000 HOLD, 0 97 000035 0001 ACTIVE, 01 98 000036 0000 DECK, 0 /ON DECK USER NUMBER,0=NONE 99 000037 0000 USERNO, 0 100 000040 0001 NEWU, 01 101 000041 7770 MDECK, PCM-IOTX-1 102 000042 0351 CODET, CTABS-1 /CHARACTER TABLES 103 000043 7000 IFZERO USER 104 IFNZRO USER 105 000044 0000 C2, 0 106 000045 0000 MC3, 0 107 000046 0077 P77M, 77 108 000047 1000 P1000, 1000 109 000050 7000 P7000, 7000 110 000051 6777 P6777, 6777 111 000052 7757 P7757, 7757 112 000053 0007 EP7, 7 113 000054 0010 P10, 10 114 000055 0017 P17M, 17 115 000056 7767 M11M, -11 116 000057 0020 P20, 20 117 000060 7760 M20M, -20 118 000061 7740 M40M, -40 119 000062 0004 P4, 4 /(=KRB) 120 000063 7776 M2M, -2 121 000064 7772 M6M, -6 122 000065 0037 P37, 37 123 000066 0014 P14, 14 124 000067 7563 MCRM, -215 125 000070 7600 M200, -200 126 000071 0200 C200M, 200 127 000072 0336 UPAR, 336 128 000073 7707 MZERO, 10-M100 /! 129 000074 1206 DTABLE, USERTS-1 130 000075 0532 BDUMP, XTDUMP 131 000076 0022 ALISTP, LISTL-1 132 133 IFZERO USER 137 IFNZRO USER 141 000100 3117 TEXTPM, IOBUF-1 /START OF USER TEXT 142 000101 6301 TEXTC, IOBUF-BEND /(IOBUF-3577)-FOR DEBUGGING** 143 000102 1147 CONTN, CONTIN 144 000103 7755 MLISTP, -LISTL 145 000104 1163 DLISTP, LISTP-1 146 000105 0014 PTLS, 14 147 000106 0010 PTCF, 10 148 149 150 /USER DATA BLOCK "ON DECK" 151 152 000107 0000 PCM, 0 153 000110 0000 OBUFO, 0 /OUTPUT 154 000111 0000 OBUFI, 0 155 000112 0000 OBUF0, 0 156 000113 0000 IBUFO, 0 /INPUT 157 000114 0000 IBUFI, 0 158 000115 0000 DECKP, 0 /STATUS BITS 159 000116 0000 IOTX, 0 /(6XX2) 160 161 162 163 164 165 000117 0070 P70, 70 166 000120 6201 PCDF, CDF 167 000121 6202 PCIF, CIF 168 000122 0276 PINIT 169 000123 4522 POWRUP, JMS I .-1 170 000124 1115 TAD DECKP 171 000125 0117 AND P70 172 000126 1121 TAD PCIF 173 000127 3136 DCA .+7 174 000130 1115 TAD DECKP 175 000131 7106 RTL CLL 176 000132 7004 RAL 177 000133 0117 AND P70 178 000134 1120 TAD PCDF 179 000135 3137 DCA .+2 180 000136 7402 HLT /INST FIELD 181 000137 7402 HLT 182 000140 1033 TAD SLK 183 000141 7110 RAR CLL 184 000142 1032 TAD SAC 185 000143 6001 ION 186 000144 5507 JMP I PCM 187 188 189 ///// 190 000145 0000 HOLDO, 0 /USED BY BMOVE WITH INTS ON. 191 000146 0000 HOLDI, 0 192 193 000147 0000 EP, 0 /USED TO SELECT USER BIT PATTERN 194 000150 0764 EBASE, DCB-1 /DCO2 TABLE BASE 195 196 /INTERRUPT ROUTINE 197 198 *177 199 000177 3001 INITL /(XRSTART 200 000200 5577 JMP I .-1 /STARTING ADDRESS 201 000201 3032 INTRPM, DCA SAC /SAVE AC AND LINK 202 000202 7004 RAL 203 000203 3033 DCA SLK 204 000204 6102 6102 /SPL /SKIP IF POWER FAIL 205 000205 5216 JMP OTHER 206 000206 6234 RIB 207 000207 3115 DCA DECKP 208 000210 1000 TAD 0 209 000211 3107 DCA PCM 210 000212 1215 TAD .+3 /PREPARE POWER RESTART 211 000213 3000 DCA 0 212 000214 7402 HLT /HALT FOR POWER FAIL FLAG 213 000215 5403 JMP I RESTART /RESTART 214 000216 7001 OTHER, IAC 215 000217 3037 DCA USERNO /INITIALIZE NO.TO ONE 216 IFNZRO DVCE > 253 IFZERO DVCE 288 000253 7610 CLA SKP /SMP 289 000254 5266 JMP PARITY 290 000255 6622 6622 /DFSE OR DFSC 291 000256 5270 JMP RESTORE 292 000257 7402 HLT /PROCESS DISK FLAGS 293 000260 5205 JMP INTRPM+4 294 295 000261 1606 TELSW1, BASES+6 296 000262 1616 TELSW2, BASES+16 297 000263 1626 TELSW3, BASES+26 298 000264 1636 TELSW4, BASES+36 299 000265 1646 TELSW5, BASES+46 300 000266 6244 PARITY, RMF 301 000267 7402 HLT 302 000270 6244 RESTORE,RMF 303 000271 1033 TAD SLK 304 000272 7110 RAR CLL 305 000273 1032 TAD SAC 306 000274 6001 ION 307 000275 5400 JMP I 0 308 //// 309 000276 0000 PINIT, 0 310 000277 3661 DCA I TELSW1 311 000300 3662 DCA I TELSW2 312 000301 3663 DCA I TELSW3 313 000302 3664 DCA I TELSW4 314 000303 3665 DCA I TELSW5 315 000304 1043 TAD AUSERS 316 000305 6117 MTON 317 000306 7001 IAC 318 000307 6115 MINT 319 000310 7200 CLA 320 000311 5676 JMP I PINIT 321 ///// 322 000312 4276 XRSTART, JMS PINIT 323 000313 5714 JMP I .+1 324 000314 1072 EXCHE-1 325 ///// 326 000315 0411 KEY, XKEY 327 000316 0707 TTY, XTTY 328 329 /CONTROL CODES TYPED 330 331 000317 2740 RECOVR /RESTART ADDRESS 332 000320 1317 CNTRLC, TAD .-1 333 000321 4475 JMS I BDUMP 334 000322 7326 NL2 335 000323 0115 AND DECKP 336 000324 3115 DCA DECKP /RESET ALL OTHER FLAGS 337 000325 1072 CNTRLX, TAD UPAR /AND PRINT UPARROW 338 000326 4420 ACTIONQ /TEST AND PRINT 339 000327 5336 JMP SETW 340 000330 1025 TAD CHARM /CHANGE CONTROL CODE TO A PRINTABLE ONE. 341 000331 1341 TAD P100 342 000332 4420 ACTIONQ /OUTPUT PRINTED CODE 343 000333 5336 JMP SETW /TOO FULL?! 344 000334 5735 JMP I .+1 345 000335 0446 KEYX 346 ///// 347 000336 1107 SETW, TAD PCM 348 000337 4475 JMS I BDUMP 349 000340 5325 JMP CNTRLX 350 000341 0100 P100, 100 351 000342 1052 SILENT, TAD P7757 352 000343 0115 AND DECKP 353 000344 1057 TAD P20 354 000345 5324 JMP CNTRLX-1 355 356 000346 1052 TTYPE, TAD P7757 357 000347 0115 AND DECKP 358 000350 5324 JMP CNTRLX-1 359 /// 360 361 /CONTROL TABLE 362 363 000351 0446 IGNORE /L.T. 364 CTABS=. 365 000352 0453 ECHO /^A-HOME 366 000353 0325 CNTRLX /^B 367 000354 0320 CNTRLC /C-END OF MESSAGE 368 000355 0325 CNTRLX /D 369 000356 0325 CNTRLX /E 370 000357 0325 CNTRLX /F 371 000360 0453 ECHO /G - BELL 372 000361 0325 CNTRLX /H 373 000362 0325 CNTRLX /I 374 000363 0463 NOECHO /J - LF. 375 000364 0325 CNTRLX /K 376 000365 0463 NOECHO /L -FF. 377 000366 0450 GOCR /M -C.R. 378 000367 0325 CNTRLX /N - 379 000370 0325 CNTRLX /0 380 000371 0325 CNTRLX /P 381 000372 0325 CNTRLX /Q 382 000373 0342 SILENT /R-TAPE 383 000374 0325 CNTRLX /S- (7000) - FOR DEBUGGING 384 000375 0346 TTYPE /T-NOT TAPE 385 000376 0325 CNTRLX /U 386 000377 0325 CNTRLX /V 387 000400 0325 CNTRLX /W -E.O.MEDIA 388 000401 0453 ECHO /X-ERASE 389 000402 0325 CNTRLX /Y 390 000403 0325 CNTRLX /Z 391 000404 0446 IGNORE /[ 392 000405 0446 IGNORE /\ 393 000406 0446 IGNORE /] 394 000407 0453 ECHO /UPAR - 395 000410 0450 GOCR /LEPTAR=GORO 396 397 /KEYBOARD PROCESSOR 398 399 000411 0000 XKEY, 0 400 000412 4421 ONDECK /PUT THIS USER ON DECK 401 000413 1116 TAD IOTX 402 000414 1062 TAD P4 403 000415 3216 DCA .+1 404 000416 7402 HLT /EXECUTE THIS USER'S READIN CODE 405 000417 0244 AND MP177 /IGNORE PARITY 406 000420 7450 SNA 407 000421 5611 JMP I XKEY /IGNORE BLANKS 408 000422 1245 TAD MC200 409 000423 3025 DCA CHARM /SAVE CHARACTER 410 000424 1025 TAD CHARM 411 000425 1243 TAD MRO 412 000426 7650 SNA CLA 413 000427 5267 JMP SING 414 000430 1025 TAD CHARM /TEST CODE 415 000431 0327 AND P140 416 000432 7640 SZA CLA 417 000433 5253 JMP ECHO /REGULAR CHARACTERS 418 000434 1025 TAD CHARM /BRANCH ON CONTROL CHARACTER CODES. 419 000435 0065 AND P37 420 000436 1042 TAD CODET /ADD BASE ADDRESS OF CHARMACTER TABLE 421 000437 3024 DCA TEMPM 422 000440 1424 TAD I TEMPM /GET CONTENTS OF TABLE, 423 000441 3024 DCA TEMPM 424 000442 5424 JMP I TEMPM /AND BRANCH, 425 ///// 426 000443 7401 MRO, -377 427 000444 0177 MP177, 177 428 000445 0200 MC200, 200 429 IGNORE=. 430 000446 4422 KEYX, OFFDECK 431 000447 5611 JMP I XKEY 432 433 /ACKNOWLEDGE INPUT FROM "XKEY" 434 435 000450 7352 GOCR, NL5777 /CLEAR INPUT WAIT 436 000451 0115 AND DECKP 437 000452 3115 DCA DECKP 438 000453 1057 ECHO, TAD P20 439 000454 0115 AND DECKP /THIS USER IN SILENT STATE? 440 000455 7640 SZA CLA 441 000456 5263 JMP NOECHO /YES, EXIT 442 000457 1514 TAD I IBUFI /WILL THIS CHARM BE ACCEPTED? 443 000460 7650 SNA CLA 444 000461 4420 ACTIONQ /YES 445 000462 7000 NOP /NO, OR LOW SPEED OUTPUT HAS FULL BUFFER 446 000463 7001 NOECHO, IAC /SINGLE CHARACTER MODE? 447 000464 0115 AND DECKP 448 000465 7650 SNA CLA 449 000466 5272 JMP EOUT 450 000467 7352 SING, NL5777 /YES, CLEAR INPUT WAIT FLAG 451 000470 0115 AND DECKP /AND CONTROL CODES 452 000471 3115 DCA DECKP 453 454 /SAVE INPUT 455 456 000472 1114 EOUT, TAD IBUFI /IS INPUT BUFFER NEARLY FULL? 457 000473 7041 CIA 458 000474 1113 TAD IBUFO 459 000475 7550 SPA SNA 460 000476 1057 TAD P20 /FORM CORRECTED LENGTH 461 000477 1330 TAD MX 462 000500 7700 SMA CLA 463 000501 5305 JMP .+4 /NO, 464 000502 7352 NL5777 /YES, CLEAR INPUT WAIT 465 000503 0115 AND DECKP 466 000504 3115 DCA DECKP 467 000505 1514 TAD I IBUFI /TOTALLY FULL? 468 000506 7640 SZA CLA 469 000507 5321 JMP KELP 470 000510 1025 TAD CHARM /NO, SAVE AND COUNT 471 000511 3514 DCA I IBUFI 472 000512 1114 TAD IBUFI 473 000513 7001 IAC 474 000514 0055 AND P17M 475 000515 1057 TAD P20 476 000516 1112 TAD OBUF0 477 000517 3114 DCA IBUFI 478 000520 5246 JMP KEYX 479 ///// 480 000521 1044 KELP, TAD C2 481 000522 7104 CLL RAL 482 000523 7040 CMA 483 000524 0043 AND AUSERS 484 000525 3043 DCA AUSERS 485 000526 5246 JMP KEYX 486 487 ///// 488 000527 0140 P140, 140 489 000530 7770 MX, -10 /TUNE THE BUFFER FULL TEST HERE 490 000531 0107 BELLX, 207-100 491 492 IFZERO DVCE 494 IFZERO USER <7000> > 495 496 497 498 /CALLED BY BUFFER OVERFLOW 499 /AND CONTROL-C 500 000532 0000 XTDUMP, 0 501 000533 3107 DCA PCM 502 000534 1061 TAD M40M /SETUP INIT COUNT 503 000535 3023 DCA CNTRM 504 000536 7040 CMA 505 000537 1112 TAD OBUF0 506 000540 3011 DCA XR11 /INIT I/O BUFFERS, 507 000541 3411 DCA I XR11 508 000542 2023 ISZ CNTRM 509 000543 5341 JMP .-2 510 000544 1112 TAD OBUF0 /INIT TTY POINTERS. 511 000545 3110 DCA OBUFO 512 000546 1112 TAD OBUF0 513 000547 3111 DCA OBUFI 514 000550 1112 TAD OBUF0 515 000551 1057 TAD P20 516 000552 3114 DCA IBUFI 517 000553 1114 TAD IBUFI 518 000554 3113 DCA IBUFO 519 000555 1037 TAD USERNO 520 000556 7041 CIA 521 000557 1035 TAD ACTIVE 522 000560 7640 SZA CLA 523 000561 5732 JMP I XTDUMP 524 000562 6234 RIB 525 000563 1056 TAD M11M 526 000564 7640 SZA CLA 527 000565 5732 JMP I XTDUMP 528 000566 1107 TAD PCM 529 000567 3000 DCA 0 530 000570 3032 DCA SAC 531 000571 5732 JMP I XTDUMP 532 ///// 533 534 *600 535 536 /PLACE A USER DATA BLOCK IN AVAILABLE STATUS - "ONDECK" 537 / 538 / 539 /USERNO IS SET. 540 541 000600 0000 XDECK, 0 542 000601 1036 TAD DECK /ALREADY ON? 543 000602 7041 CIA 544 000603 1037 TAD USERNO 545 000604 7650 SNA CLA 546 000605 5600 JMP I XDECK /YES, RETURN 547 000606 4220 JMS XCOM 548 000607 1410 TAD I XR10 /MOVE DATA BLOCK IN. 549 000610 3411 DCA I XR11 550 000611 2023 ISZ CNTRM 551 000612 5207 JMP .-3 552 000613 1037 TAD USERNO /SAVE NEW USER NUMBER 553 000614 3036 DCA DECK 554 000615 5600 JMP I XDECK 555 ///// 556 000616 0106 BASEB, PCM-1 557 000617 1567 BASEX, BASES-BETA-1 /DATA TO FORM ADDRESS OF USER DATA AREA. 558 ///// 559 000620 0000 XCOM, 0 /COMPUTE DATA BLOCK ADDRESSES. 560 000621 1037 TAD USERNO / COMPUTE BASE ADDRESS 561 000622 7106 CLL RTL 562 000623 7004 RAL 563 000624 1217 TAD BASEX /COMPUTE DATA BASE 564 000625 3010 DCA XR10 /SAVE HOME ADDRESS 565 000626 1041 TAD MDECK /SETUP SWAP 566 000627 3023 DCA CNTRM 567 000630 1216 TAD BASEB /SETUP DECK ADDRESS 568 000631 3011 DCA XR11 569 000632 5620 JMP I XCOM /RETURN WITH XR'S SET. 570 ///// 571 000633 0000 UNDECK, 0 572 000634 4220 JMS XCOM 573 000635 1411 TAD I XR11 574 000636 3410 DCA I XR10 575 000637 2023 ISZ CNTRM 576 000640 5235 JMP .-3 577 000641 3036 DCA DECK 578 000642 5633 JMP I UNDECK 579 ////// 580 /THIS ROUTINE OUTPUTS A CHARMACTER TO THE BUFFER. - "ACTIONQ" 581 /IT MUST BE USED WITH INTERRUPT OFF, BUT 582 /IT MAY BE USED BY EITHER MAIN OR POLLING ROUTINES. 583 584 /CALLING SEQUENCE: DATA IS IN "CHAR" 585 / ACTIONQ 586 / 1 /BUFFERS FILLED BY THIS ITEM 587 / 2 /BUFFER OK 588 589 000643 0000 XACTION, 0 590 000644 7450 SNA 591 000645 1025 TAD CHARM 592 000646 3307 DCA XTTY 593 000647 1111 TAD OBUFI 594 000650 7001 IAC 595 000651 0055 AND P17M 596 000652 1112 TAD OBUF0 597 000653 3024 DCA TEMPM 598 000654 1511 TAD I OBUFI /ANY MORE ROOM? 599 000655 1424 TAD I TEMPM 600 000656 7650 SNA CLA 601 000657 2243 ISZ XACTION /AT LEAST ONE WILL BE LEFT 602 000660 1511 TAD I OBUFI 603 000661 7640 SZA CLA 604 000662 5643 JMP I XACTION /NO MORE LEFT 605 000663 7326 NL2 606 000664 0115 AND DECKP /IN PROGRESS? 607 000665 7640 SZA CLA 608 000666 5301 JMP ACTING /YES 609 000667 1116 TAD IOTX 610 000670 1105 TAD PTLS /(TLS=6X16) 611 000671 3273 DCA .+2 612 000672 1307 TAD XTTY /NO, 613 000673 7402 HLT /TYPE THE CHARMACTER. 614 000674 7346 NL7775 615 000675 0115 AND DECKP 616 000676 1306 TAD P2M 617 000677 3115 DCA DECKP /SET IN-PROGRESS FLAG, 618 000700 5643 JMP I XACTION /RETURN 619 ///// 620 000701 1307 ACTING, TAD XTTY /YES, SEND DATA 621 000702 3511 DCA I OBUFI 622 000703 1024 TAD TEMPM /SET POINTERS 623 000704 3111 DCA OBUFI 624 000705 5643 JMP I XACTION 625 000706 0002 P2M, 2 626 627 /PROCESS TTY FLAGS 628 629 000707 0000 XTTY, 0 /TELETYPE OUTPUT INTERRUPT 630 000710 4421 ONDECK /PUT THIS ONE ON DECK 631 000711 7346 NL7775 632 000712 0115 AND DECKP 633 000713 3115 DCA DECKP /TURN OFF THE IN-PROGRESS FLAG. 634 000714 1116 TAD IOTX /LOAD TLS CODE 635 000715 1105 TAD PTLS /(TLS=6X16) 636 000716 3322 DCA XTTX 637 000717 1510 TAD I OBUFO /ANY MORE OUTPUT? 638 000720 7450 SNA 639 000721 5337 JMP TEXIT /DONE 640 000722 7402 XTTX, HLT /TYPE NEXT. 641 000723 7346 NL7775 642 000724 0115 AND DECKP 643 000725 1306 TAD P2M 644 000726 3115 DCA DECKP /CLEAR AC AND TURN ON THE FLAG. 645 000727 3510 DCA I OBUFO /ZERO OUT THE DATA AREA 646 000730 1110 TAD OBUFO /MOVE THE OUTPUT POINTER 647 000731 7001 IAC 648 000732 0055 AND P17M 649 000733 1112 TAD OBUF0 650 000734 3110 DCA OBUFO 651 000735 4422 XXTTY, OFFDECK 652 000736 5707 JMP I XTTY 653 ///// 654 000737 1116 TEXIT, TAD IOTX 655 000740 1106 TAD PTCF /(TCF=6X12) 656 000741 3342 DCA .+1 /CLEAR FLAG 657 000742 7402 HLT 658 000743 1115 TAD DECKP /CLEAR OUTPUT WAIT BIT 659 000744 0051 AND P6777 660 000745 3115 DCA DECKP 661 000746 5335 JMP XXTTY 662 ///// 663 000747 7240 EXRED3, CLA CMA 664 000750 1035 TAD ACTIVE 665 000751 7450 SNA 666 000752 5764 JMP I EXRED4 /CONSOLE USER 667 000753 1150 TAD EBASE 668 000754 3147 DCA EP 669 000755 1547 TAD I EP 670 000756 7040 CMA 671 000757 0043 AND AUSERS 672 000760 1547 TAD I EP 673 000761 6117 MTON 674 000762 3043 DCA AUSERS /RESTORE THIS ONE 675 000763 5764 JMP I EXRED4 676 000764 1055 EXRED4, EXRED 677 000765 4000 DCB,4000 678 000766 2000 2000 679 000767 1000 1000 680 000770 0400 0400 681 682 *1000 683 684 685 /THESE ARE CALLED VIA THE USER CALLS TO EXEC. 686 687 001000 3025 EXPRNT, DCA CHARM 688 001001 1035 TAD ACTIVE /SETUP CURRENT USER 689 001002 3037 DCA USERNO /INTERRUPT IS OFF HERE. 690 001003 4421 ONDECK 691 IFZERO DVCE < CMA 692 TAD ACTIVE 693 SNA 694 JMP .+6 695 TAD EBASE 696 DCA EP 697 TAD I EP 698 MTON 699 CLA > 700 001004 4420 ACTIONQ 701 001005 5261 JMP EXPRN /GO INTO OUTPUT WAIT 702 001006 4422 OFFDECK 703 IFZERO DVCE < TAD AUSERS 704 MTON 705 CLA > 706 001007 6213 EXGO, CIF1 CDF1 707 001010 6001 ION /INTERRUPT ON, AND RETURN 708 001011 5612 JMP I .+1 709 001012 2623 RESUME 710 001013 2600 XPRNTI, EXPRIN 711 ///// 712 001014 0747 EXRED2, EXRED3 713 001015 1035 EXRD, TAD ACTIVE 714 001016 3037 DCA USERNO 715 001017 4421 ONDECK 716 001020 1513 TAD I IBUFO 717 001021 7450 SNA 718 IFZERO DVCE < JMP I EXRED2 /STOP INTS> 719 001022 5255 IFNZRO DVCE < JMP EXRED /INPUT WAIT> 720 001023 3034 DCA HOLD /SAVE DATA 721 001024 3513 DCA I IBUFO 722 001025 1113 TAD IBUFO /MOVE POINTER 723 001026 7001 IAC 724 001027 0055 AND P17M 725 001030 1057 TAD P20 726 001031 1112 TAD OBUF0 727 001032 3113 DCA IBUFO 728 001033 4422 OFFDECK 729 001034 6211 CDF1 730 001035 2613 ISZ I XPRNTI 731 001036 1034 TAD HOLD 732 001037 5207 JMP EXGO 733 ///// 734 001040 1035 EXCHCK, TAD ACTIVE 735 001041 3037 DCA USERNO 736 001042 2254 ISZ CHKCNT 737 001043 5207 JMP EXGO 738 001044 1253 TAD CHKCON 739 001045 3254 DCA CHKCNT 740 001046 4421 ONDECK 741 001047 7344 NL7776 /CLEAR SINGLE CHARACTER MODE 742 001050 0115 AND DECKP 743 001051 3115 DCA DECKP 744 001052 5265 JMP XPR2 745 746 001053 7774 CHKCON, -4 /TUNE HERE!! 747 001054 7774 CHKCNT, -4 748 749 750 /SET WAIT FLAGS 751 752 001055 7352 EXRED, NL5777 753 001056 0115 AND DECKP /SET INPUT WAIT 754 001057 1047 TAD P1000 /2000 SET 755 001060 5263 JMP XPR 756 ///// 757 001061 1051 EXPRN, TAD P6777 /SET OUTPUT WAIT 758 001062 0115 AND DECKP 759 001063 1047 XPR, TAD P1000 760 001064 3115 DCA DECKP 761 001065 6211 XPR2, CDF1 /NO REPEAT FOR CHECKPOINT 762 001066 1613 TAD I XPRNTI 763 001067 6201 CDF 764 001070 3107 DCA PCM /SAVE ACTIVE PROGRAM COUNTER 765 001071 4422 OFFDECK 766 767 /JOB QUEUE 768 769 001072 6001 ION /ENABLE THE INTERRUPTS ! 770 001073 1345 EXCHE, TAD NEXTU /EVERY PUSHJ=NEW USER ? 771 001074 1054 TAD P10 /LOOK AT NEXT USER'S "DECKP" 772 001075 3345 DCA NEXTU /UPDATE USER SCAN 773 001076 2040 ISZ NEWU 774 001077 1040 TAD NEWU 775 001100 1077 TAD NOUSRS 776 001101 7750 SPA SNA CLA 777 001102 5307 JMP .+5 778 001103 7001 IAC 779 001104 3040 DCA NEWU 780 001105 1346 TAD NEXT0 781 001106 3345 DCA NEXTU 782 001107 1745 TAD I NEXTU 783 001110 0050 AND P7000 784 001111 7640 SZA CLA 785 001112 5272 JMP EXCHE-1 /IDLE LOOP 786 787 /RUN NEXT USER 788 789 001113 6002 IOF 790 001114 1040 TAD NEWU /FIND TEXT BUFFER 791 001115 1074 TAD DTABLE 792 001116 3026 DCA TEMPT 793 001117 1426 TAD I TEMPT 794 001120 7450 SNA 795 001121 5347 JMP CONTIN 796 001122 3030 DCA PNTR 797 001123 6211 CDF1 /CHECK FOR TRACE 798 001124 1762 TAD I TRC1 799 001125 1763 TAD I TRC2 800 001126 6201 CDF 801 001127 7640 SZA CLA 802 001130 5743 JMP I EXSWP 803 /GO TO ANOTHER USER ONLY IF ACTIVE IS IN INPUT WAIT WITH TRACE ON. 804 001131 1035 TAD ACTIVE 805 001132 7106 RTL CLL 806 001133 7004 RAL 807 001134 1344 TAD ACTVP 808 001135 3027 DCA TEMPX 809 001136 7332 NL2000 810 001137 0427 AND I TEMPX 811 001140 7650 SNA CLA 812 001141 5272 JMP EXCHE-1 813 001142 5743 JMP I EXSWP 814 001143 1213 EXSWP, EXGON 815 001144 1576 ACTVP, BASES-2 816 001145 1606 NEXTU, BASES+6 817 001146 1606 NEXT0, BASES+6 818 ///// 819 001147 1345 CONTIN, TAD NEXTU 820 001150 1064 TAD M6M 821 001151 3030 DCA PNTR 822 001152 1430 TAD I PNTR 823 001153 3030 DCA PNTR 824 001154 1040 TAD NEWU /FIND TEXT BUFFER ADDRESS 825 001155 7421 7421 /SHOW THE USER NUMBER IN THE MQ 826 001156 7200 CLA 827 001157 6213 CDF1 CIF1 /RESUME THE ACTIVE PROGRAM. 828 001160 6001 ION 829 001161 5430 JMP I PNTR 830 ///// 831 001162 0026 TRC1, DEBGSW 832 001163 0100 TRC2, DMPSW 833 ///// 834 835 /NON-REENTRANT ADDRESSES IN FOCAL 836 837 LISTP=. 838 001164 2465 OUT 839 001165 5400 TGO 840 001166 5534 SCOUNT 841 001167 5535 FCOUNT 842 001170 2425 XPRNT 843 001171 5536 OUTA 844 001172 6000 FLOUTP 845 001173 2442 PRNT 846 001174 6154 OUTDG 847 001175 2155 CHIN /INPUT 848 001176 0756 INPUT 849 001177 6200 FLINTP 850 001200 5600 DECONV 851 001201 5627 DECON 852 001202 2605 EXREAD 853 001203 2600 EXPRIN 854 001204 5533 DECP 855 001205 5712 REMAIN 856 001206 5714 DNUMBR 857 /TABLE CONTAINS ADDRESS OF USER TESTS. 858 LISTL=.-LISTP 859 860 861 //ALPHA=LISTL+M100-10+BEND-IOBUF 862 ALPHA=LISTL+101-10+BEND-3120 863 864 865 001207 0000 USERTS, 0000 /#1 866 001210 1640 TEXTA /#2 867 001211 3453 TEXTA+ALPHA /#3 868 001212 5266 TEXTA+ALPHA+ALPHA /#4 869 IFNZRO USER / #5 870 871 872 /ACTIVE USER # CONTAINS ZERO 873 874 875 876 877 878 /EXCHANGE DATA AREAS 879 /(NEW) PNTR 880 /(ACTIVE (TEMPT) 0 881 882 001213 1035 EXGON, TAD ACTIVE 883 001214 1074 TAD DTABLE /(USERTS-1) 884 001215 3024 DCA TEMPM 885 001216 1030 TAD PNTR /ACTIVE USER GOES INTO NEW USERS AREA 886 001217 3424 DCA I TEMPM 887 001220 3426 DCA I TEMPT 888 889 001221 6001 ION /(IOF) - FOR DEBUGGING 890 001222 1104 TAD DLISTP /SETUP MISCELLANY TABLE 891 001223 3012 DCA XR12 /FIRST N ITEMS = #1 892 893 001224 1103 TAD MLISTP /DECIMAL 894 001225 3031 DCA CNTRT 895 001226 1040 TAD NEWU 896 001227 3035 DCA ACTIVE 897 898 001230 1412 MOVE15, TAD I XR12 /TRANSFER 899 001231 4255 JMS BMOVE 900 001232 5230 JMP MOVE15 901 902 001233 1073 TAD MZERO /PAGE ZERO IN PART= #2 903 001234 3031 DCA CNTRT /COULD BE AS SMALL AS 120 WORDS 904 905 001235 7040 CMA 906 001236 3027 DCA TEMPX 907 001237 1053 TAD EP7 /START AT TEN 908 001240 5242 JMP .+2 909 001241 1026 MOVE20, TAD TEMPT 910 001242 7001 IAC 911 001243 4255 JMS BMOVE 912 001244 5241 JMP MOVE20 913 001245 2027 ISZ TEMPX 914 001246 5253 JMP .+5 915 001247 1101 TAD TEXTC /REMAINDER (3100-4600) = #3 916 001250 3031 DCA CNTRT 917 001251 1100 TAD TEXTPM /(3100) 918 001252 5242 JMP MOVE20+1 919 001253 6002 IOF 920 001254 5502 JMP I CONTN 921 ///// 922 923 /MOVE A BLOCK OF DATA 924 925 926 001255 0000 BMOVE, 0 927 001256 3026 DCA TEMPT 928 001257 1430 TAD I PNTR /PICKUP NEW DATA 929 001260 3146 DCA HOLDI /INPUT 930 001261 6211 CDF1 931 001262 1426 TAD I TEMPT 932 001263 3145 DCA HOLDO /OUTPUT 933 001264 1146 TAD HOLDI 934 001265 3426 DCA I TEMPT 935 001266 6201 CDF 936 001267 1145 TAD HOLDO 937 001270 3430 DCA I PNTR 938 001271 2030 ISZ PNTR 939 001272 2031 ISZ CNTRT 940 001273 5655 JMP I BMOVE 941 001274 2255 ISZ BMOVE 942 001275 5655 JMP I BMOVE 943 944 945 / STORAGE BEGINS AT 1340 AND GOES TO 7777 946 947 BUFRS=1340 /40 PER USER 948 949 950 BASES=BUFRS+240 /(240) 951 952 /BASE DATA LISTS FOR EACH USER. 953 954 BETA=10 955 956 *BASES 957 001600 0200 200 /USER #1 (CONSOLE CTY) 958 001601 1340 BUFRS 959 001602 1340 BUFRS 960 001603 1340 BUFRS 961 001604 1360 BUFRS+20 962 001605 1360 BUFRS+20 963 001606 0000 0 964 001607 6032 6032 965 966 001610 0200 200 /USER #2 967 001611 1400 BUFRS+40 968 001612 1400 BUFRS+40 969 001613 1400 BUFRS+40 970 001614 1420 BUFRS+60 971 001615 1420 BUFRS+60 972 001616 0000 0 973 001617 6402 IFNZRO DVCE <6402> 974 IFZERO DVCE <6112> 975 976 001620 0200 200 /USER #3 977 001621 1440 BUFRS+100 978 001622 1440 BUFRS+100 979 001623 1440 BUFRS+100 980 001624 1460 BUFRS+120 981 001625 1460 BUFRS+120 982 001626 0000 0 983 001627 6422 IFNZRO DVCE <6422> 984 IFZERO DVCE <6112> 985 986 *BASES+BETA+BETA+BETA 987 001630 0200 200 /USER #4 988 001631 1500 BUFRS+140 989 001632 1500 BUFRS+140 990 001633 1500 BUFRS+140 991 001634 1520 BUFRS+160 992 001635 1520 BUFRS+160 993 001636 0000 0 994 001637 6442 IFNZRO DVCE <6442> 995 IFZERO DVCE <6112> 996 IFNZRO USER < 997 998 200 /USER #5 999 BUFRS+200 1000 BUFRS+200 1001 BUFRS+200 1002 BUFRS+220 1003 BUFRS+220 1004 0 1005 IFNZRO DVCE <6462> 1006 IFZERO DVCE <6112> 1007 > 1008 1009 TEXTA=. 1010 1011 //DUMLN2=TEXTA+LISTL+M100-10+FRST-IOBUF 1012 DUMLN2=TEXTA+LISTL+101-10+3206-3120 1013 1014 *DUMLN2 /#2 1015 002042 0000 0 1016 002043 0000 0000 1017 002044 0355 TEXT "C-FOCAL,1969" 002045 0617 002046 0301 002047 1454 002050 6171 002051 6671 002052 0000 1018 *.-1 1019 002052 7715 7715 1020 1021 1022 *3000 1023 1024 /INITIALIZE ROUTINE 1025 1026 003000 0312 XRSTART 1027 003001 1200 INITL, TAD .-1 1028 003002 3177 DCA 177 1029 003003 1074 TAD DTABLE 1030 003004 7001 IAC /START WITH #2 1031 003005 3010 DCA XR10 1032 003006 7001 IAC /MAKE COPIES OF PAGE ZERO 1033 003007 1077 TAD NOUSRS 1034 003010 3027 DCA TEMPX 1035 003011 1073 INITL4, TAD MZERO 1036 003012 3031 DCA CNTRT 1037 003013 1053 TAD EP7 1038 003014 3011 DCA XR11 1039 003015 1076 TAD ALISTP /MOVE PAST BASE DATA 1040 003016 1410 TAD I XR10 1041 003017 3012 DCA XR12 1042 1043 003020 6211 CDF1 /COPY PAGE ZERO DATA 1044 003021 1411 TAD I XR11 /BEGIN WITH LOC#1 1045 003022 6201 CDF 1046 003023 3412 DCA I XR12 1047 003024 2031 ISZ CNTRT 1048 003025 5220 JMP .-5 1049 003026 2027 ISZ TEMPX 1050 003027 5211 JMP INITL4 1051 003030 7001 IAC /SET #1 TO ACTIVE STATUS 1052 003031 3035 DCA ACTIVE 1053 003032 7001 IAC 1054 003033 3040 DCA NEWU 1055 003034 1246 TAD M240M 1056 003035 3031 DCA CNTRT 1057 003036 1245 TAD BUFRSP 1058 003037 3010 DCA XR10 1059 003040 3410 DCA I XR10 1060 003041 2031 ISZ CNTRT 1061 003042 5240 JMP .-2 1062 003043 5644 JMP I .+1 1063 003044 0312 XRSTART 1064 003045 1337 BUFRSP, BUFRS-1 1065 003046 7540 M240M, -240 1066 1067 1068 *DUMLN2+ALPHA /#3 1069 003655 0000 0 1070 003656 0000 0000 1071 003657 0355 TEXT "C-FOCAL,1969" 003660 0617 003661 0301 003662 1454 003663 6171 003664 6671 003665 0000 1072 *.-1 1073 003665 7715 7715 1074 1075 *DUMLN2+ALPHA+ALPHA /#4 1076 005470 0000 0 1077 005471 0000 0000 1078 005472 0355 TEXT "C-FOCAL,1969" 005473 0617 005474 0301 005475 1454 005476 6171 005477 6671 005500 0000 1079 *.-1 1080 005500 7715 7715 1081 1082 005501 7101 TEXTA+ALPHA+ALPHA+ALPHA /LAST OF 4! 1083 1084 IFNZRO USER < 1085 1086 *DUMLN2+ALPHA+ALPHA+ALPHA /#5 1087 0 1088 0000 1089 TEXT "C-FOCAL,1969" 1090 *.-1 1091 7715 1092 1093 TEXTA+ALPHA+ALPHA+ALPHA+ALPHA /LAST OF 5! 1094 > 1095 1096 1097 ////////////////////////////////////////////// 1098 1099 FIELD 1 /USER'S FIELD 1100 1101 /MODIFY AND ASK=SINGLE CHARACTER INPUT MODE 1102 *BOTTOM 1103 010035 4617 BEND 1104 1105 *COMGO+6 /ASK 1106 011171 2662 EXASK 1107 1108 *.+4 /MODIFY 1109 011176 2657 EXMOD 1110 1111 *PC1+4 1112 010620 5575 JMP I START-2 /PATCH IN PROC 1113 1114 *START-2 1115 010175 2615 EXCHEC 1116 010176 2741 RECOVR+1 1117 1118 *OUTDEV 1119 010063 2600 EXPRIN /XI33 1120 010064 2605 EXREAD /XOUTL 1121 1122 *COMGO+10 /LIB 1123 011173 2725 ERROR5 1124 *COMGO+16 /* 1125 011201 0177 177 1126 1127 *CHIN+3 1128 012160 1066 TAD CHAR 1129 012161 1116 TAD MCR 1130 012162 4764 JMS I .+2 1131 012163 5755 JMP I CHIN 1132 012164 2630 ECCR 1133 1134 *2600 1135 1136 1137 /NEW I/O INSTRUCTIONS 1138 1139 012600 0000 EXPRIN, 0 1140 012601 6002 IOF 1141 012602 6203 CDF CIF 1142 012603 5604 JMP I .+1 1143 012604 1000 EXPRNT 1144 //// 1145 012605 0000 EXREAD, 0 1146 012606 7240 CLA CMA /INPUT MAY BE RE-CALLED 1147 012607 1205 TAD .-2 1148 012610 3200 DCA EXPRIN 1149 012611 6002 IOF 1150 012612 6203 CDF CIF 1151 012613 5614 JMP I .+1 1152 012614 1015 EXRD 1153 //// 1154 012615 1224 EXCHEC, TAD T2U /EVERY INSTRUCTION=CHECK POINT 1155 012616 3200 DCA EXPRIN 1156 012617 6002 IOF 1157 012620 6203 CDF CIF 1158 012621 5622 JMP I .+1 1159 012622 1040 EXCHCK 1160 //// 1161 012623 5600 RESUME, JMP I EXPRIN 1162 1163 012624 2625 T2U, .+1 1164 012625 1066 TAD CHAR /RESTART AFTER CHECKPOINT 1165 012626 5627 JMP I .+1 1166 012627 0621 PC1+5 1167 //// 1168 012630 0000 ECCR, 0 1169 012631 7640 SZA CLA 1170 012632 5630 JMP I ECCR 1171 012633 1076 TAD CLF 1172 012634 4200 JMS EXPRIN 1173 012635 5630 JMP I ECCR 1174 /SET TO SINGLE CHARACTER FOR MODIFY 1175 1176 012636 0000 SINGLE, 0 1177 012637 6002 IOF /PROTECT AGAINST CONTROL-C AT THIS MOMENT 1178 012640 6201 CDF 1179 012641 1656 TAD I XA 1180 012642 7106 RTL CLL 1181 012643 7004 RAL 1182 012644 1255 TAD XB /FIND DECKP OF ACTIVE USER 1183 012645 3071 DCA T2 1184 012646 7344 NL7776 1185 012647 0471 AND I T2 /SET SINGLE CHARACTER MODE 1186 012650 7001 IAC 1187 012651 3471 DCA I T2 1188 012652 6211 CDF1 1189 012653 6001 ION 1190 012654 5636 JMP I SINGLE 1191 1192 012655 1576 XB, BASES-2 1193 012656 0035 XA, ACTIVE 1194 1195 012657 4236 EXMOD, JMS SINGLE 1196 012660 5661 JMP I .+1 1197 012661 1256 MODIFY 1198 1199 012662 4236 EXASK, JMS SINGLE 1200 012663 5664 JMP I .+1 1201 012664 1202 ASK 1202 //// 1203 012665 4453 FX, JMS I INTEGER 1204 012666 7041 CIA 1205 012667 3236 DCA SINGLE /NO. OF BITS 1206 012670 4540 PUSHJ 1207 012671 1612 EVAL-1 1208 012672 4453 JMS I INTEGER 1209 012673 7410 SKP 1210 012674 1046 FX2, TAD LORD 1211 012675 7110 CLL RAR 1212 012676 3046 DCA LORD 1213 012677 1045 TAD HORD 1214 012700 7004 RAL 1215 012701 3045 DCA HORD 1216 012702 2236 ISZ SINGLE 1217 012703 5274 JMP FX2 1218 012704 1005 TAD P13 1219 012705 3044 DCA EXP 1220 012706 3046 DCA LORD 1221 012707 3047 DCA OVER2 1222 012710 5536 JMP I EFUN3I 1223 *FNTABF+5 /REPLACE FADC() 1224 010401 2665 FX 1225 1226 *FNTABL+5 1227 012172 0330 330 1228 1229 1230 1231 *ERR2+3 1232 012731 5341 JMP RECOVR+1 1233 1234 *RECOVR+2 1235 012742 5361 JMP RECOVX 1236 1237 *RECOVX+1 1238 012762 7000 NOP 1239 1240 *SADR 1241 016150 3117 IOBUF-1 1242 1243 1244 NOPUNC 1245 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 0531 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 C2 0044 C200 0123 C200M 0071 unreferenced 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 0453 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 0472 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 0450 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 0446 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 0521 KEY 0315 KEYX 0446 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 MC200 0445 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 MP177 0444 MP2 7256 MP3 7255 MP4 7200 MP5 7253 MP6 7210 MPER 0115 MPLUS 5664 MQA 7501 unreferenced MRO 0443 MSPACE 5665 MTLS 6126 unreferenced MTON 6117 MULDIV 7101 MULT 6566 MULT10 5667 MULT2 5715 MULTY 4752 MX 0530 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 0463 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 0527 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 P4 0062 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 0467 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 0532 XTESTC 0700 XTESTN 1533 XTTX 0722 XTTY 0707 XXTTY 0735 XYZ 2451 ZERO 6520