1 /FOCAL EQUIVALANCE DEFINITIONS 2 3 FIXMRI FGET=0000 4 FIXMRI FADD=1000 5 FIXMRI FSUB=2000 6 FIXMRI FDIV=3000 7 FIXMRI FMUL=4000 8 FIXMRI FPUT=6000 9 FIXMRI FNOR=7000 10 FENT=JMS I 7 11 FEXT=0 12 13 /PAGE ZERO CONSTANTS, POINTERS, ETC. 14 15 AXIN=10 16 XRT=11 17 PDLXR=13 18 FLTXR=14 19 FLTXR2=15 20 AXOUT=17 21 XCT=20 22 GTEM=21 23 PC=22 24 THISLN=23 25 ONFLAG=23 26 DEBGSW=26 27 PACKST=27 28 PT1=30 29 LASTV=31 30 T1=32 31 T3=33 32 FLOP=40 33 AC1H=41 34 AC1L=42 35 OVER1=43 36 FLAC=44 37 HORD=45 38 LORD=46 39 OVER2=47 40 SIGNF=50 41 FISW=52 42 SORTCN=54 43 EFOP=56 44 BUFR=60 45 ADD=61 46 XCTIN=62 47 OUTDEV=63 48 INDEV=64 49 CHAR=66 50 LINENO=67 51 T2=71 52 P337=75 53 CLF=76 54 CCR=77 55 LIST3=77 56 DMPSW=100 57 P7700=101 58 PER=102 59 M77=103 60 P7600=104 61 M20=105 62 P177=106 63 P17=107 64 C260=113 65 M240=114 66 MCR=116 67 M5=120 68 M11=121 69 P77=122 70 C200=123 71 FLARGP=125 72 DOUBLE=127 73 FOUTPUT=130 74 FINPUT=131 75 CFRS=133 76 END=134 77 ENDT=135 78 START=177 79 QUIT=177 80 81 /NEW INSTRUCTIONS 82 83 GETSGN=1045 84 NEGATE=4451 85 FIXIT=4453 86 GETC=4545 87 SORTJ=4547 88 SORTC=4550 89 PRINTC=4551 90 READC=4552 91 PRNTLN=4553 92 FINDLN=4555 93 RTL6=4557 94 TSTLPR=4562 95 TSTGRP=4563 96 TESTC=4564 97 DELETE=4565 98 ERROR2=4566 99 RETURN=5536 100 101 /MACHINE INSTRUCTIONS 102 103 CDI=6203 104 105 /FUNCTION ADDRESSES 106 107 FEXP=4620 108 ARTN=5000 109 FLOG=5040 110 XSQRT=7400 111 /OTHER CONSTANTS AND POINTERS 112 113 WORDS=4 114 LF=212 115 GOTO=603 116 PROCESS=610 117 PROC=611 118 PC1=614 119 STAR=614 120 COMMENT=614 121 IF=1013 122 IF1=1035 123 SET=1041 124 FOR=1041 125 FINCR=1065 126 FLIMIT=1075 127 FCONT=1101 128 FPROC=1106 129 GLIST=1377 130 TLIST=1400 131 GETARG=1403 132 TLIST2=1404 133 ECALL=1601 134 EVAL=1613 135 ECHOLST=1624 136 TERMS=1770 137 FLARG=2030 138 PARTEST=2047 139 INFIX=2401 140 PRNT=2442 141 MULT10=5667 142 REMAIN=5712 143 DUBLAD=5733 144 TEN=6271 145 FPNT=6400 146 TEST2=6736 147 SPECIAL=6777 148 DMULT4=7036 149 DATUM=7102 150 SIGN=7124 151 RESOLV=7173 152 MP4=7200 153 MP1=7254 154 MP2=7256 155 MIF=7260 156 DNORM=7335 157 TEST4=7366 158 BUFFER=7470 159 MONITOR=7600 160 /INITIAL DIALOG FOR U/W-FOCAL -JVZ- 161 162 000200 5763 JMP I LOOKER /SELF-SAVER 163 *202 164 000202 1632 LINE11 165 166 *213 167 000213 0517 MVR, MOVER 168 000214 0501 CHG, CHANGE 169 000215 4550 MID, MIDDLE 170 000216 0400 CKW, CKWRDS 171 000217 4613 JMS I MVR /ENTRY POINT 172 000220 0224 UPPER 173 000221 6213 CDI 10 174 000222 5624 JMP I UPPER 175 176 *224 177 000224 4540 UPPER, 4540 /AFTER 'UPDATE' 178 NOPUNCH 179 *4540 180 ENPUNCH 181 004540 3070 DCA NAGSW /SET 'GROUP' 182 004541 1135 TAD ENDT /='1.2' 183 004542 3067 DCA LINENO 184 004543 4540 PUSHJ 185 004544 0423 DO+3 186 004545 1135 TAD ENDT /ERASE THE PROGRAM 187 004546 3060 DCA BUFR 188 004547 5354 JMP .+5 /'RETURN' 189 004550 0244 MIDDLE, LOWER 190 004551 3056 DCA EFOP /SAVE NAME 191 004552 4540 PUSHJ /LOOK IT UP 192 004553 1430 GS1 193 004554 6203 CDI 194 004555 5750 JMP I MIDDLE /L=1 IF FOUND 195 004556 7777 STOP 196 197 *UPPER+20 198 000244 4566 LOWER, 4566 /'WAITUP' 199 000245 3202 DCA LINE0 200 000246 3060 DCA LIBBLK 201 000247 3017 DCA NUDATE+3 /FOR SHORTER DATE 202 000250 4363 LOOKUP 203 000251 2717 2717 /WORDS 204 000252 7610 SKP CLA 205 000253 7040 CMA 206 000254 3105 DCA GOSW /-1 FOR 3 WORDS 207 208 000255 4363 EXTEND, LOOKUP 209 000256 0530 0530 /EXTENDED 210 000257 5273 JMP OPENER 211 000260 4613 JMS I MVR 212 000261 0705 NOLOGS 213 000262 4614 JMS I CHG 214 000263 0543 NOEXPS 215 000264 4363 TRIG, LOOKUP 216 000265 2422 2422 /TRIGFNS 217 000266 5273 JMP OPENER 218 000267 4613 JMS I MVR 219 000270 0712 NOTRIG 220 000271 4614 JMS I CHG 221 000272 0540 NOFNS 222 223 000273 4363 OPENER, LOOKUP 224 000274 1720 1720 /OPEN 225 000275 5301 JMP EQUAL 226 000276 3073 DCA DEVHLD 227 000277 4614 JMS I CHG 228 000300 0546 NOOHS 229 230 000301 4363 EQUAL, LOOKUP 231 000302 0521 0521 /EQUAL 232 000303 5307 JMP SPACER 233 000304 4614 JMS I CHG 234 000305 0564 TADEQL 235 000306 5314 JMP AMPER 236 237 000307 4363 SPACER, LOOKUP 238 000310 2320 2320 /SPACE 239 000311 5314 JMP AMPER 240 000312 4614 JMS I CHG 241 000313 0561 NOSPAC 242 243 000314 4363 AMPER, LOOKUP 244 000315 0115 0115 /AMPER 245 000316 5321 JMP COLON 246 000317 4614 JMS I CHG 247 000320 0567 ANDSGN 248 249 000321 4363 COLON, LOOKUP 250 000322 0317 0317 /COLON 251 000323 5326 JMP PDP8E 252 000324 4614 JMS I CHG 253 000325 0576 ECHOIT 254 255 000326 4363 PDP8E, LOOKUP 256 000327 2004 2004 /PDP8E 257 000330 5342 JMP EAE 258 000331 3065 DCA CHR /CLEAR THE FLAG 259 000332 4613 JMS I MVR 260 000333 0716 BSWER 261 000334 4613 JMS I MVR 262 000335 0722 KCFER 263 000336 4614 JMS I CHG 264 000337 0601 KCCER 265 000340 4613 JMS I MVR 266 000341 0751 NUMULT 267 000342 4363 EAE, LOOKUP 268 000343 0501 0501 /EAE 269 000344 7610 SKP CLA 270 000345 7040 CMA 271 000346 3033 DCA ATEM 272 000347 1377 TAD (UPDATE /RESET POINTERS 273 000350 3052 DCA K177 274 000351 6211 CDF 10 275 000352 1776 TAD I (GLOOP-2 276 000353 7001 IAC 277 000354 3775 DCA I (END 278 000355 6201 CDF 279 000356 4613 JMS I MVR 280 000357 0743 PIE 281 000360 4614 JMS I CHG 282 000361 0654 RESTART 283 000362 5616 JMP I CKW 284 285 LOOKUP= JMS . 286 000363 6437 LOOKER, SAVE+1 287 000364 1763 TAD I LOOKER 288 000365 6213 CDI 10 289 000366 4615 JMS I MID 290 000367 7430 SZL 291 000370 2363 ISZ LOOKER /2ND EXIT=FOUND 292 000371 2363 ISZ LOOKER 293 000372 5763 JMP I LOOKER 294 295 000375 0134 PAGE 000376 1435 000377 4400 296 297 000400 1105 CKWRDS, TAD GOSW /CHECK FOR 3 WORD CHANGES 298 000401 7650 SNA CLA 299 000402 5220 JMP CKEAE 300 000403 6211 CDF 10 301 000404 2605 ISZ I .+1 /ALTER SYMBOL TABLE LIMIT 302 000405 0175 TOP 303 000406 6201 CDF 304 000407 4301 JMS CHANGE 305 000410 0621 THREEW 306 000411 1033 TAD ATEM 307 000412 7640 SZA CLA 308 000413 5220 JMP CKEAE 309 000414 4301 JMS CHANGE 310 000415 0612 THREAD 311 000416 4317 JMS MOVER 312 000417 1022 NUDIV 313 000420 2033 CKEAE, ISZ ATEM /TEST FLAG 314 000421 5560 JMP I 160 /DONE - CALL MONITOR 315 000422 4317 JMS MOVER 316 000423 0731 CLASS8 /CLASSIC-8 EAE PATCH 317 000424 7107 IAC CLL RTL 318 000425 1154 TAD 154 /-4 319 000426 7640 SZA CLA 320 000427 5560 JMP I 160 321 000430 4317 JMS MOVER /DO COMMON STUFF 322 000431 1055 PRNTX 323 000432 4317 JMS MOVER 324 000433 1067 EXPON 325 000434 4301 JMS CHANGE 326 000435 0607 PTENP3 327 000436 1065 TAD CHR /CHECK IF 8/E 328 000437 7650 SNA CLA 329 000440 5256 JMP EAE8E 330 000441 4317 JMS MOVER 331 000442 1127 PART1 332 000443 4317 JMS MOVER 333 000444 1102 PART2 334 000445 2105 ISZ GOSW /CHECK # OF WORDS 335 000446 5560 JMP I 160 /GO AWAY 336 000447 4317 JMS MOVER 337 000450 1016 PART3 338 000451 4301 JMS CHANGE 339 000452 0700 EAE3W 340 000453 5560 JMP I 160 /FINALLY! 341 342 000454 7447 SWBA 343 000455 5756 REKOVR 344 000456 1254 EAE8E, TAD .-2 345 000457 3655 DCA I .-2 346 000460 4317 JMS MOVER 347 000461 1322 NUSTUF 348 000462 4317 JMS MOVER 349 000463 1422 NYSTUF 350 000464 4317 JMS MOVER 351 000465 1556 NIEUW 352 000466 4301 JMS CHANGE 353 000467 0667 POINTRS 354 000470 2105 ISZ GOSW /THREE WORD VERSION ? 355 000471 5560 JMP I 160 /NOPE 356 000472 4317 JMS MOVER 357 000473 1254 QUICKR 358 000474 4317 JMS MOVER 359 000475 1220 SHORTR 360 000476 4301 JMS CHANGE 361 000477 0604 SMALER 362 000500 5560 JMP I 160 /GOOD-BYE! 363 /MOVING ROUTINES: ONE FOR SINGLES & ONE FOR BUNCHES 364 365 000501 0000 CHANGE, 0 366 000502 7240 CLA CMA 367 000503 1701 TAD I CHANGE 368 000504 2301 ISZ CHANGE 369 000505 3010 DCA AUTO 370 371 000506 1410 CLOOP, TAD I AUTO 372 000507 7450 SNA 373 000510 5701 JMP I CHANGE 374 000511 3317 DCA MOVER 375 000512 1410 TAD I AUTO 376 000513 6211 CDF 10 377 000514 3717 DCA I MOVER 378 000515 6201 CDF 379 000516 5306 JMP CLOOP 380 381 GO=0 382 383 384 385 000517 0000 MOVER, 0 386 000520 7240 CLA CMA 387 000521 1717 TAD I MOVER 388 000522 3010 DCA AUTO 389 000523 7040 CMA 390 000524 1410 TAD I AUTO 391 000525 3011 DCA AUTO 1 392 000526 2317 ISZ MOVER 393 394 000527 1410 MLOOP, TAD I AUTO 395 000530 7040 CMA 396 000531 7450 SNA 397 000532 5717 JMP I MOVER 398 000533 7040 CMA 399 000534 6211 CDF 10 400 000535 3411 DCA I AUTO 1 401 000536 6201 CDF 402 000537 5327 JMP MLOOP 403 404 STOP=-1 405 406 DOT=. 407 *54 408 000054 5723 5723 /DSK 409 410 *66 411 000066 0411 FILENAME DIALOG.FC 000067 0114 000070 1707 000071 0603 412 *6436 413 006436 7600 MONITOR /RETURN FROM SAVE 414 *DOT 415 000540 0175 NOFNS, TOP 416 000541 5323 PCD-WORDS-1 417 000542 0000 GO 418 000543 0175 NOEXPS, TOP 419 000544 5173 FCOS-WORDS-1 420 000545 0000 GO 421 000546 0226 NOOHS, BOTTOM /PDL POINTERS 422 000547 5633 PCHK-1 423 000550 0302 TXTEND 424 000551 5576 5576 425 000552 0373 373 426 000553 2732 ERROR5 /NO 'FLEN' 427 000554 7554 ON-1 428 000555 0634 WRITE-1 429 000556 7561 ON+4 430 000557 7000 NOP 431 000560 0000 GO 432 000561 6142 NOSPAC, OUTDG+6 433 000562 7200 CLA 434 000563 0000 GO 435 000564 6141 TADEQL, OUTDG+5 436 NOPUNCH 437 *6141 438 ENPUNCH 439 006141 1333 TAD OUTDG-1 440 006142 0000 GO 441 *TADEQL+3 442 000567 5662 ANDSGN, 5662 443 000570 7532 -"& 444 000571 6157 CHRT 445 000572 0246 "& 446 000573 6301 6301 447 000574 7532 -"& 448 000575 0000 GO 449 000576 1221 ECHOIT, 1221 450 000577 4552 JMS I ECHO 451 000600 0000 GO 452 000601 2667 KCCER, 2667 453 000602 6032 KCC 454 000603 0000 GO 455 000604 7164 SMALER, 7164 456 000605 7751 -27 457 000606 0000 GO 458 000607 6314 PTENP3, PTEN+3 459 000610 3147 3147 460 000611 0000 GO 461 000612 7036 THREAD, DMULT4 462 000613 5263 5263 /JMP DMDONE 463 000614 7072 7072 464 000615 3047 DCA OVER2 465 000616 7260 MIF 466 000617 7751 -27 467 000620 0000 GO 468 000621 0065 THREEW, GINC 469 000622 0005 5 /WORDS+2 470 000623 0124 P7 471 000624 0007 7 472 000625 1531 ZEXIT+2 473 000626 5541 POPJ 474 000627 1564 XINC 475 000630 0004 4 /WORDS+1 476 000631 5445 R6 477 000632 1124 TAD P7 478 000633 5567 MD 479 000634 7772 -6 /-DIGITS 480 000635 6167 DCOUNT 481 000636 7771 -6-1 /-DIGITS-1 482 000637 6313 PTEN+2 483 000640 3147 3147 484 000641 6402 FPNT+2 485 000642 3043 DCA OVER1 486 000643 6455 6455 487 000644 5450 JMP I JUMP 488 000645 6476 6476 489 000646 5201 5201 /'JMP FPNT+1' 490 000647 6540 6540 491 000650 3043 DCA OVER1 492 000651 6736 TEST2 493 000652 0027 27 494 000653 0000 GO 495 496 000654 0030 RESTART,PT1 497 000655 6275 RNDM 498 000656 2662 XI33+1 499 000657 2430 ISZ I PT1 500 000660 4474 PACK2 501 000661 0013 NUDATE-1 502 000662 4517 PACKIT 503 000663 7715 7715 504 000664 4524 GLOOK 505 000665 2011 2011 506 000666 0000 GO 507 508 000667 6304 POINTRS,6304 509 000670 7157 RISOLV 510 000671 6565 6565 511 000672 7142 MINUS 512 000673 6576 6576 513 000674 7165 FLDV 514 000675 6752 6752 515 000676 7157 RISOLV 516 000677 0000 GO 517 518 000700 7063 EAE3W, BE+3 519 000701 7425 MQL MUY 520 000702 7221 BD+6 521 000703 7421 MQL 522 000704 0000 GO 523 000705 0365 NOLOGS, 365 524 000706 2732 ERROR5 525 000707 2732 ERROR5 526 000710 2732 ERROR5 527 000711 7777 STOP 528 529 000712 0363 NOTRIG, 363 530 000713 2732 ERROR5 531 000714 2732 ERROR5 532 000715 7777 STOP 533 534 000716 2355 BSWER, 2355 535 000717 7002 BSW 536 000720 7000 NOP 537 000721 7777 STOP 538 539 000722 2637 KCFER, 2637 540 NOPUNCH 541 *2637 542 ENPUNCH 543 002637 1243 TAD .+4 544 002640 3057 DCA INBUF 545 002641 6030 KCF 546 002642 5247 JMP XINT 547 002643 0206 206 /^F 548 002644 7777 STOP 549 550 *KCFER+7 551 000731 7203 CLASS8, MP4+3 552 NOPUNCH 553 *7203 554 ENPUNCH 555 007203 3206 DCA .+3 556 007204 1256 TAD MP2 557 007205 7425 MQL MUY 558 007206 0000 0 559 007207 3253 DCA MP5 560 007210 7501 MQA 561 007211 3255 DCA MP3 562 007212 5227 JMP .+15 563 / ZBLOCK 14 564 007213 7777 STOP 565 566 *CLASS8+12 567 000743 0044 PIE, FLAC 568 000744 0002 2 569 000745 3110 3110 570 000746 3755 3755 571 000747 2421 2421 572 000750 7777 STOP 573 574 /8-E SYMBOLS 575 576 BSW=7002 577 KCF=6030 578 000751 7201 NUMULT, MP4+1 /FOCAL8-280 579 NOPUNCH 580 *7201 581 ENPUNCH 582 007201 7450 SNA 583 007202 5600 JMP I MP4 584 007203 7521 SWP 585 007204 3253 DCA MP5 586 007205 1257 TAD THIR 587 007206 3255 DCA MP3 588 007207 1600 TAD I MP4 589 007210 7161 STL CIA 590 007211 1252 TAD DATUMA 591 007212 3254 DCA MP1 592 007213 1654 TAD I MP1 593 007214 7521 SWP 594 595 007215 7010 CYCLE, RAR 596 007216 7521 SWP 597 007217 7420 SNL 598 007220 5223 JMP .+3 599 007221 7100 CLL 600 007222 1256 TAD MP2 601 007223 7010 RAR 602 007224 7521 SWP 603 007225 2255 ISZ MP3 604 007226 5215 JMP CYCLE 605 007227 7010 RAR 606 007230 3654 DCA I MP1 607 608 007231 1253 TAD MP5 609 007232 7521 SWP 610 007233 2254 ISZ MP1 611 007234 1654 TAD I MP1 612 007235 3654 DCA I MP1 613 007236 7420 SNL 614 007237 5600 JMP I MP4 615 007240 2254 ISZ MP1 616 007241 2654 ISZ I MP1 617 007242 5600 JMP I MP4 618 007243 5240 JMP .-3 619 / ZBLOCK 6 620 007244 7777 STOP 621 622 *NUMULT+45 623 001016 7012 PART3, DMULT+6 624 NOPUNCH 625 *7012 626 ENPUNCH 627 007012 7130 STL RAR 628 007013 5257 JMP BE-1 629 007014 7777 STOP 630 631 P7=124 632 P4000=124 633 *PART3+4 634 001022 7271 NUDIV, 7271 635 NOPUNCH 636 *7271 637 ENPUNCH 638 007271 1042 TAD AC1L 639 007272 1046 TAD LORD 640 007273 3256 DCA MP2 641 007274 7004 RAL 642 007275 1045 TAD HORD 643 007276 1041 TAD AC1H 644 007277 7420 SNL 645 007300 5304 JMP .+4 646 007301 3045 DCA HORD 647 007302 1256 TAD MP2 648 007303 3046 DCA LORD 649 007304 7200 CLA 650 007305 1254 TAD MP1 651 007306 7004 RAL 652 007307 3254 DCA MP1 653 007310 1200 TAD MP4 654 007311 7004 RAL 655 007312 3200 DCA MP4 656 007313 2255 ISZ MP3 657 007314 5267 JMP DV3 658 007315 1254 TAD MP1 659 007316 3046 DCA LORD 660 007317 1200 TAD MP4 661 007320 3045 DCA HORD 662 007321 5661 JMP I DUBDIV 663 007322 7777 STOP 664 665 *NUDIV+33 666 001055 2443 PRNTX, PRNT+1 667 NOPUNCH 668 *2443 669 ENPUNCH 670 002443 0106 AND P177 671 002444 7427 MQL DVI 672 002445 0012 12 673 002446 7521 SWP 674 002447 4701 JMS I ODG 675 002450 7521 SWP 676 002451 4701 JMS I ODG 677 002452 5642 JMP I PRNT 678 / ZBLOCK 14 679 002453 7777 STOP 680 *PRNTX+12 681 001067 6113 EXPON, FGO6+12 682 NOPUNCH 683 *6113 684 ENPUNCH 685 006113 7427 MQL DVI 686 006114 0144 144 687 006115 7521 SWP 688 006116 7440 SZA 689 006117 4334 JMS OUTDG 690 006120 7521 SWP 691 006121 4723 JMS I .+2 692 006122 5701 JMP I FGO6 693 006123 2442 PRNT 694 / ZBLOCK 7 695 006124 7777 STOP 696 697 *EXPON+13 698 001102 7201 PART2, MP4+1 699 NOPUNCH 700 *7201 701 ENPUNCH 702 007201 7421 MQL 703 007202 7004 RAL 704 007203 3047 DCA OVER2 705 007204 1045 TAD HORD 706 007205 3210 DCA .+3 707 007206 1042 TAD AC1L 708 007207 7525 SWP MUY 709 007210 0000 0 710 007211 1047 TAD OVER2 711 007212 3047 DCA OVER2 712 007213 1046 BD, TAD LORD 713 007214 3217 DCA .+3 714 007215 1041 TAD AC1H 715 007216 7525 SWP MUY 716 007217 0000 0 717 007220 1047 TAD OVER2 718 007221 7521 SWP 719 007222 3047 DCA OVER2 720 007223 5600 JMP I MP4 721 / ZBLOCK 30 722 007224 7777 STOP 723 724 *PART2+25 725 001127 7012 PART1, DMULT+6 /FOCAL8-283 726 NOPUNCH 727 *7012 728 ENPUNCH 729 007012 1047 TAD OVER2 730 007013 3216 DCA .+3 731 007014 1043 TAD OVER1 732 007015 7425 MQL MUY 733 007016 0000 0 734 007017 7421 MQL 735 007020 1046 TAD LORD 736 007021 3224 DCA .+3 737 007022 1043 TAD OVER1 738 007023 7525 SWP MUY 739 007024 0000 0 740 007025 1124 TAD P4000 741 007026 3301 DCA MULDIV 742 007027 7004 RAL 743 007030 3324 DCA SIGN 744 007031 1047 TAD OVER2 745 007032 3235 DCA .+3 746 007033 1042 TAD AC1L 747 007034 7525 SWP MUY 748 007035 0000 0 749 007036 1301 TAD MULDIV 750 007037 7421 MQL 751 007040 7430 SZL 752 007041 2324 ISZ SIGN 753 007042 1045 TAD HORD 754 007043 3246 DCA .+3 755 007044 1043 TAD OVER1 756 007045 7525 SWP MUY 757 007046 0000 0 758 007047 1324 TAD SIGN 759 007050 3324 DCA SIGN 760 007051 1047 TAD OVER2 761 007052 3255 DCA .+3 762 007053 1041 TAD AC1H 763 007054 7525 SWP MUY 764 007055 0000 0 765 007056 1324 TAD SIGN 766 007057 3324 DCA SIGN 767 007060 1046 BE, TAD LORD 768 007061 3264 DCA .+3 769 007062 1042 TAD AC1L 770 007063 7525 SWP MUY 771 007064 0000 0 772 007065 1324 TAD SIGN 773 007066 4752 JMS I 7152 774 007067 1045 TAD HORD 775 007070 3273 DCA .+3 776 007071 1041 TAD AC1H 777 007072 7525 SWP MUY 778 007073 0000 0 779 007074 3045 DCA HORD 780 007075 7521 SWP 781 007076 3046 DCA LORD 782 007077 4301 JMS MULDIV 783 007100 5604 JMP I DMULT 784 007101 7777 MULDIV, STOP 785 *PART1+71 786 001220 7014 SHORTR, 7014 787 NOPUNCH 788 *7014 789 ENPUNCH 790 007014 1046 TAD LORD 791 007015 7425 MQL MUY 792 007016 0042 AC1L 793 007017 7421 MQL 794 007020 1045 TAD HORD 795 007021 7525 SWP MUY 796 007022 0042 AC1L 797 007023 3042 DCA AC1L 798 007024 1046 TAD LORD 799 007025 7525 SWP MUY 800 007026 0041 AC1H 801 007027 7521 SWP 802 007030 7710 SPA CLA 803 007031 2042 ISZ AC1L 804 007032 7501 MQA 805 007033 1042 TAD AC1L 806 007034 7421 MQL 807 007035 1045 TAD HORD 808 007036 7525 SWP MUY 809 007037 0041 AC1H 810 007040 7565 SWP DST 811 007041 0045 HORD 812 007042 4645 JMS I .+3 813 007043 4357 JMS RISOLV 814 007044 5604 JMP I DMULT 815 007045 7335 DNORM 816 817 / ZBLOCK 35 818 819 007046 7777 STOP 820 821 /EAE SYMBOLS 822 823 MUY=7405 824 DVI=7407 825 NMI=7411 826 SHL=7413 827 MQL=7421 828 SWAB=7431 829 SCA=7441 830 DAD=7443 831 DST=7445 832 SWBA=7447 833 DPSZ=7451 834 MQA=7501 835 SWP=7521 836 DCM=7575 837 CAM=7621 838 DLD=7663 839 ACL=7701 840 *SHORTR+34 841 001254 7176 QUICKR, 7176 842 NOPUNCH 843 *7176 844 ENPUNCH 845 007176 1042 TAD AC1L 846 007177 7431 SWAB 847 007200 1041 TAD AC1H 848 007201 7445 DST 849 007202 0041 AC1H 850 007203 7663 DLD 851 007204 0046 LORD 852 007205 3046 DCA LORD 853 007206 1045 TAD HORD 854 007207 5214 JMP .+5 855 007210 7663 DLUP, DLD 856 007211 7376 QHI 857 007212 7413 SHL 858 007213 0001 1 859 007214 7445 DST 860 007215 7376 QHI 861 007216 7443 DAD 862 007217 0041 AC1H 863 007220 7420 SNL 864 007221 5224 JMP .+3 865 007222 7445 DST 866 007223 7376 QHI 867 007224 7621 CAM 868 007225 1046 TAD LORD 869 007226 7004 RAL 870 007227 3046 DCA LORD 871 007230 1045 TAD HORD 872 007231 7004 RAL 873 007232 3045 DCA HORD 874 007233 2040 ISZ EX1 875 007234 5210 JMP DLUP 876 007235 4335 JMS DNORM 877 007236 4640 JMS I .+2 878 007237 5641 JMP I .+2 879 007240 7157 RISOLV 880 007241 6401 FPNT+1 881 007242 7777 STOP /ZBLOCK 6 882 883 /USEFUL PATCHING SYMBOLS 884 885 SHIFTL=4527 886 DMULT=7004 887 MP3=7255 888 MP5=7253 889 DATUMA=7252 890 DUBDIV=7261 891 THIR=7257 892 DV3=7267 893 EX1=40 894 EXP=44 895 *QUICKR+46 896 001322 7005 NUSTUF, DMULT+1 /FOCAL8-284 897 NOPUNCH 898 *7005 899 ENPUNCH 900 007005 1040 TAD EX1 901 007006 4316 JMS SGN 902 007007 7450 SNA 903 007010 5335 JMP ZIRO 904 007011 7710 SPA CLA 905 007012 4342 JMS MINUS 906 007013 7431 SWAB 907 007014 1047 TAD OVER2 908 007015 7425 MQL MUY 909 007016 0043 OVER1 910 007017 7421 MQL 911 007020 1046 TAD LORD 912 007021 7525 SWP MUY 913 007022 0043 OVER1 914 007023 1124 TAD P4000 915 007024 3357 DCA RISOLV 916 007025 7004 RAL 917 007026 3342 DCA MINUS 918 007027 1047 TAD OVER2 919 007030 7525 SWP MUY 920 007031 0042 AC1L 921 007032 1357 TAD RISOLV 922 007033 7421 MQL 923 007034 7430 SZL 924 007035 2342 ISZ MINUS 925 007036 1045 TAD HORD 926 007037 7525 SWP MUY 927 007040 0043 OVER1 928 007041 1342 TAD MINUS 929 007042 3342 DCA MINUS 930 007043 1047 TAD OVER2 931 007044 7525 SWP MUY 932 007045 0041 AC1H 933 007046 1342 TAD MINUS 934 007047 3342 DCA MINUS 935 007050 1046 TAD LORD 936 007051 7525 SWP MUY 937 007052 0042 AC1L 938 007053 1342 TAD MINUS 939 007054 7421 MQL 940 007055 7004 RAL 941 007056 3316 DCA SGN 942 007057 1045 TAD HORD 943 007060 7525 SWP MUY 944 007061 0042 AC1L 945 007062 1316 TAD SGN 946 007063 3316 DCA SGN 947 007064 1046 TAD LORD 948 007065 7525 SWP MUY 949 007066 0041 AC1H 950 007067 1316 TAD SGN 951 007070 7521 SWP 952 007071 3047 DCA OVER2 953 007072 1045 TAD HORD 954 007073 7525 SWP MUY 955 007074 0041 AC1H 956 007075 7565 SWP DST 957 007076 0045 HORD 958 007077 4702 JMS I .+3 959 007100 4357 JMS RISOLV 960 007101 5604 JMP I DMULT 961 007102 7335 DNORM 962 / ZBLOCK 13 963 007103 7777 STOP 964 *NUSTUF+100 965 001422 7116 NYSTUF, 7116 966 NOPUNCH 967 *7116 968 ENPUNCH 969 007116 0000 SGN, 0 970 007117 7001 IAC 971 007120 1044 TAD EXP 972 007121 3044 DCA EXP 973 007122 7130 STL RAR 974 007123 0041 AND AC1H 975 007124 1045 TAD HORD 976 007125 3050 DCA SIGNF 977 007126 1045 TAD HORD 978 007127 7450 SNA 979 007130 5335 JMP ZIRO 980 007131 7710 SPA CLA 981 007132 4451 NEGATE 982 007133 1041 TAD AC1H 983 007134 5716 JMP I SGN 984 007135 3044 ZIRO, DCA FLAC 985 007136 3045 DCA HORD 986 007137 3046 DCA LORD 987 007140 5741 JMP I .+1 988 007141 6403 FPNT+3 989 007142 0000 MINUS, 0 990 007143 1043 TAD OVER1 991 007144 7431 SWAB 992 007145 1042 TAD AC1L 993 007146 7575 DCM 994 007147 7565 SWP DST 995 007150 0042 AC1L 996 007151 7447 SWBA 997 007152 7224 CLA CML RAL 998 007153 1041 TAD AC1H 999 007154 7041 CIA 1000 007155 3041 DCA AC1H 1001 007156 5742 JMP I MINUS 1002 007157 0000 RISOLV, 0 1003 007160 1050 TAD SIGNF 1004 007161 7710 SPA CLA 1005 007162 4451 NEGATE 1006 007163 5757 JMP I RISOLV 1007 1008 007164 7735 M43, -43 1009 007165 1040 FLDV, TAD EX1 1010 007166 7041 CIA 1011 007167 4316 JMS SGN 1012 007170 7450 SNA 1013 007171 4566 ERROR2 1014 007172 7700 SMA CLA 1015 007173 4342 JMS MINUS 1016 007174 1364 TAD M43 1017 007175 3040 DCA EX1 1018 007176 7431 SWAB 1019 007177 7410 SKP 1020 1021 007200 4527 DLOOP, SHIFTL 1022 007201 7100 CLL 1023 007202 1043 TAD OVER1 1024 007203 1047 TAD OVER2 1025 007204 3335 DCA DNORM 1026 007205 7004 RAL 1027 007206 1042 TAD AC1L 1028 007207 1046 TAD LORD 1029 007210 3364 DCA SCNT 1030 007211 7004 RAL 1031 007212 1041 TAD AC1H 1032 007213 1045 TAD HORD 1033 007214 7420 SNL 1034 007215 5223 JMP .+6 1035 007216 3045 DCA HORD 1036 007217 1364 TAD SCNT 1037 007220 3046 DCA LORD 1038 007221 1335 TAD DNORM 1039 007222 3047 DCA OVER2 1040 007223 7701 ACL 1041 007224 7004 RAL 1042 007225 7421 MQL 1043 007226 1377 TAD QLO 1044 007227 7004 RAL 1045 007230 3377 DCA QLO 1046 007231 1376 TAD QHI 1047 007232 7004 RAL 1048 007233 3376 DCA QHI 1049 007234 2040 ISZ EX1 1050 007235 5200 JMP DLOOP 1051 007236 1376 TAD QHI 1052 007237 3045 DCA HORD 1053 007240 1377 TAD QLO 1054 007241 7565 SWP DST 1055 007242 0046 LORD 1056 007243 4335 JMS DNORM 1057 007244 4647 JMS I .+3 1058 007245 5646 JMP I .+1 1059 007246 6401 FPNT+1 1060 007247 7157 RISOLV 1061 / ZBLOCK 56 1062 007250 7777 STOP 1063 1064 *NYSTUF+134 1065 001556 7326 NIEUW, 7326 1066 NOPUNCH 1067 *7326 1068 ENPUNCH 1069 007326 7411 GT13, NMI 1070 007327 7565 SWP DST 1071 007330 0045 HORD 1072 007331 7661 CAM SCA 1073 007332 1334 TAD P14 1074 007333 5367 JMP ALL0-2 1075 007334 0014 P14, 14 1076 007335 0000 DNORM, 0 1077 007336 7300 CLA CLL 1078 007337 1046 TAD LORD 1079 007340 7421 MQL 1080 007341 1045 TAD HORD 1081 007342 7447 SWBA 1082 007343 7411 NMI 1083 007344 7431 SWAB 1084 007345 7441 SCA 1085 007346 7451 DPSZ 1086 007347 7141 CLL CIA 1087 007350 1334 TAD P14 1088 007351 7641 CLA SCA 1089 007352 3364 DCA SCNT 1090 007353 1047 TAD OVER2 1091 007354 7571 SWP DPSZ 1092 007355 7410 SKP 1093 007356 5371 JMP ALL0 1094 007357 3045 DCA HORD 1095 007360 1046 TAD LORD 1096 007361 7420 SNL 1097 007362 5326 JMP GT13 1098 007363 7413 SHL 1099 007364 0000 SCNT, 0 1100 007365 3046 DCA LORD 1101 007366 1364 TAD SCNT 1102 007367 7041 CIA 1103 007370 1044 TAD EXP 1104 007371 3044 ALL0, DCA EXP 1105 007372 7521 SWP 1106 007373 3047 DCA OVER2 1107 007374 7447 SWBA 1108 007375 5735 JMP I DNORM 1109 007376 0000 QHI, 0 1110 007377 0000 QLO, 0 1111 007400 7777 STOP 1112 *NIEUW+54 1113 DECIMAL 1114 1115 001632 1670 LINE11, LINE12 1116 001633 0212 128+10 1117 001634 1740 TEXT ^O I TTY:;S #=FIN();I (#-206),1.6;I (#-217)1.1,1.7,1.1?M^ 001635 1140 001636 2424 001637 3172 001640 7323 001641 4043 001642 7506 001643 1116 001644 5051 001645 7311 001646 4050 001647 4355 001650 6260 001651 6651 001652 5461 001653 5666 001654 7311 001655 4050 001656 4355 001657 6261 001660 6751 001661 6156 001662 6154 001663 6156 001664 6754 001665 6156 001666 6177 001667 1500 1118 001670 1725 LINE12, LINE13 1119 001671 0224 128+20 1120 001672 1740 TEXT ^O C;T :7"* * * U/W-FOCAL INITIAL DIALOG * * *"!!;Z?M^ 001673 0373 001674 2440 001675 7267 001676 4252 001677 4052 001700 4052 001701 4025 001702 5727 001703 5506 001704 1703 001705 0114 001706 4011 001707 1611 001710 2411 001711 0114 001712 4004 001713 1101 001714 1417 001715 0740 001716 5240 001717 5240 001720 5242 001721 4141 001722 7332 001723 7715 001724 0000 1121 001725 1763 LINE13, LINE14 1122 001726 0236 128+30 1123 001727 2440 TEXT ^T "PLEASE ANSWER QUESTIONS WITH Y (=YES) OR N (=NO)"!?M^ 001730 4220 001731 1405 001732 0123 001733 0540 001734 0116 001735 2327 001736 0522 001737 4021 001740 2505 001741 2324 001742 1117 001743 1623 001744 4027 001745 1124 001746 1040 001747 3140 001750 5075 001751 3105 001752 2351 001753 4017 001754 2240 001755 1640 001756 5075 001757 1617 001760 5142 001761 4177 001762 1500 1124 001763 2026 LINE14, LINE15 1125 001764 0250 128+40 1126 001765 2440 TEXT ^T "DO YOU WISH TO RETAIN THE STANDARD FEATURES_";O (F(1))2,2.8?M^ 001766 4204 001767 1740 001770 3117 001771 2540 001772 2711 001773 2310 001774 4024 001775 1740 001776 2205 001777 2401 002000 1116 002001 4024 002002 1005 002003 4023 002004 2401 002005 1604 002006 0122 002007 0440 002010 0605 002011 0124 002012 2522 002013 0523 002014 3742 002015 7317 002016 4050 002017 0650 002020 6151 002021 5162 002022 5462 002023 5670 002024 7715 002025 0000 1127 002026 2061 LINE15, LINE16 1128 002027 0262 128+50 1129 002030 2440 TEXT ^T !:7"* * * INITIALIZATION COMPLETED * * *"!;R?M^ 002031 4172 002032 6742 002033 5240 002034 5240 002035 5240 002036 1116 002037 1124 002040 1101 002041 1411 002042 3201 002043 2411 002044 1716 002045 4003 002046 1715 002047 2014 002050 0524 002051 0504 002052 4052 002053 4052 002054 4052 002055 4241 002056 7322 002057 7715 002060 0000 1130 002061 2106 LINE16, LINE17 1131 002062 0274 128+60 1132 002063 1740 TEXT ^O I TTY:,E;O O TTY:;T " NO"!;X -1;R?M^ 002064 1140 002065 2424 002066 3172 002067 5405 002070 7317 002071 4017 002072 4024 002073 2431 002074 7273 002075 2440 002076 4240 002077 1617 002100 4241 002101 7330 002102 4055 002103 6173 002104 2277 002105 1500 1133 002106 2133 LINE17,LINE18 1134 002107 0306 128+70 1135 002110 1740 TEXT ^O I TTY:,E;O O TTY:;T " YES"!;X 0;R?M^ 002111 1140 002112 2424 002113 3172 002114 5405 002115 7317 002116 4017 002117 4024 002120 2431 002121 7273 002122 2440 002123 4240 002124 3105 002125 2342 002126 4173 002127 3040 002130 6073 002131 2277 002132 1500 1136 002133 2176 LINE18, LINE19 1137 002134 0320 128+80 1138 002135 0340 TEXT ^C INITIAL DIALOG FOR U/W-FOCAL WRITTEN 2/16/74 BY JIM VAN ZEE/?M^ 002136 1116 002137 1124 002140 1101 002141 1440 002142 0411 002143 0114 002144 1707 002145 4006 002146 1722 002147 4025 002150 5727 002151 5506 002152 1703 002153 0114 002154 4027 002155 2211 002156 2424 002157 0516 002160 4062 002161 5761 002162 6657 002163 6764 002164 4002 002165 3140 002166 1211 002167 1540 002170 2601 002171 1640 002172 3205 002173 0557 002174 7715 002175 0000 1139 002176 2241 LINE19, LINE20 1140 002177 0332 128+90 1141 002200 0405 TEXT ^DEPT. OF CHEMISTRY/UNIVERSITY OF WASHINGTON/SEATTLE, WA. 98195?M^ 002201 2024 002202 5640 002203 1706 002204 4003 002205 1005 002206 1511 002207 2324 002210 2231 002211 5725 002212 1611 002213 2605 002214 2223 002215 1124 002216 3140 002217 1706 002220 4027 002221 0123 002222 1011 002223 1607 002224 2417 002225 1657 002226 2305 002227 0124 002230 2414 002231 0554 002232 4027 002233 0156 002234 4071 002235 7061 002236 7165 002237 7715 002240 0000 1142 002241 2300 LINE20, LINE21 1143 002242 0400 256+00 1144 002243 2440 TEXT ^T "0) CHANGE TO 6-DIGIT PRECISION_";I (F(1))2.1;Z WORDS?M^ 002244 4260 002245 5140 002246 0310 002247 0116 002250 0705 002251 4024 002252 1740 002253 6655 002254 0411 002255 0711 002256 2440 002257 2022 002260 0503 002261 1123 002262 1117 002263 1637 002264 4273 002265 1140 002266 5006 002267 5061 002270 5151 002271 6256 002272 6173 002273 3240 002274 2717 002275 2204 002276 2377 002277 1500 1145 002300 2337 LINE21, LINE22 1146 002301 0412 256+10 1147 002302 2440 TEXT ^T "1) REMOVE FLOG, FEXP & FATN_";I (F(1))2.3;Z EXTENDED?M^ 002303 4261 002304 5140 002305 2205 002306 1517 002307 2605 002310 4006 002311 1417 002312 0754 002313 4006 002314 0530 002315 2040 002316 4640 002317 0601 002320 2416 002321 3742 002322 7311 002323 4050 002324 0650 002325 6151 002326 5162 002327 5663 002330 7332 002331 4005 002332 3024 002333 0516 002334 0405 002335 0477 002336 1500 1148 002337 2374 LINE22, LINE23 1149 002340 0424 256+20 1150 002341 2440 TEXT ^T "2) REMOVE FSIN AND FCOS_";I (F(1))2.3;Z TRIGFNS?M^ 002342 4262 002343 5140 002344 2205 002345 1517 002346 2605 002347 4006 002350 2311 002351 1640 002352 0116 002353 0440 002354 0603 002355 1723 002356 3742 002357 7311 002360 4050 002361 0650 002362 6151 002363 5162 002364 5663 002365 7332 002366 4024 002367 2211 002370 0706 002371 1623 002372 7715 002373 0000 1151 002374 2431 LINE23, LINE24 1152 002375 0436 256+30 1153 002376 2440 TEXT ^T "3) REMOVE THE FILE COMMANDS_";I (F(1))2.4;Z OPEN?M^ 002377 4263 002400 5140 002401 2205 002402 1517 002403 2605 002404 4024 002405 1005 002406 4006 002407 1114 002410 0540 002411 0317 002412 1515 002413 0116 002414 0423 002415 3742 002416 7311 002417 4050 002420 0650 002421 6151 002422 5162 002423 5664 002424 7332 002425 4017 002426 2005 002427 1677 002430 1500 1154 002431 2475 LINE24, LINE25 1155 002432 0450 256+40 1156 002433 2440 TEXT ^T "4) REMOVE THE LEADING SPACE FROM 'TYPE'_";I (F(1))2.6;Z SPACE?M^ 002434 4264 002435 5140 002436 2205 002437 1517 002440 2605 002441 4024 002442 1005 002443 4014 002444 0501 002445 0411 002446 1607 002447 4023 002450 2001 002451 0305 002452 4006 002453 2217 002454 1540 002455 4724 002456 3120 002457 0547 002460 3742 002461 7311 002462 4050 002463 0650 002464 6151 002465 5162 002466 5666 002467 7332 002470 4023 002471 2001 002472 0305 002473 7715 002474 0000 1157 002475 2541 LINE25, LINE26 1158 002476 0462 256+50 1159 002477 2440 TEXT ^T "5) REPLACE THE LEADING SPACE WITH AN '='_";I (F(1))2.6;Z EQUAL?M^ 002500 4265 002501 5140 002502 2205 002503 2014 002504 0103 002505 0540 002506 2410 002507 0540 002510 1405 002511 0104 002512 1116 002513 0740 002514 2320 002515 0103 002516 0540 002517 2711 002520 2410 002521 4001 002522 1640 002523 4775 002524 4737 002525 4273 002526 1140 002527 5006 002530 5061 002531 5151 002532 6256 002533 6673 002534 3240 002535 0521 002536 2501 002537 1477 002540 1500 1160 002541 2605 LINE26, LINE27 1161 002542 0474 256+60 1162 002543 2440 TEXT ^T "6) USE '&' IN PLACE OF 'E' FOR EXPONENTS_";I (F(1))2.7;Z AMPER?M^ 002544 4266 002545 5140 002546 2523 002547 0540 002550 4746 002551 4740 002552 1116 002553 4020 002554 1401 002555 0305 002556 4017 002557 0640 002560 4705 002561 4740 002562 0617 002563 2240 002564 0530 002565 2017 002566 1605 002567 1624 002570 2337 002571 4273 002572 1140 002573 5006 002574 5061 002575 5151 002576 6256 002577 6773 002600 3240 002601 0115 002602 2005 002603 2277 002604 1500 1163 002605 2645 LINE27, LINE28 1164 002606 0506 256+70 1165 002607 2440 TEXT ^T "7) ADD THE ':' PRINTOUT TO 'ASK'_";I (F(1))2.8;Z COLON?M^ 002610 4267 002611 5140 002612 0104 002613 0440 002614 2410 002615 0540 002616 4772 002617 4740 002620 2022 002621 1116 002622 2417 002623 2524 002624 4024 002625 1740 002626 4701 002627 2313 002630 4737 002631 4273 002632 1140 002633 5006 002634 5061 002635 5151 002636 6256 002637 7073 002640 3240 002641 0317 002642 1417 002643 1677 002644 1500 1166 002645 2702 LINE28, LINE29 1167 002646 0520 256+80 1168 002647 2440 TEXT ^T "8) ADD THE 8/E PATCH_";I (F(1))2.9;Z PDP8E;G 2.9?M^ 002650 4270 002651 5140 002652 0104 002653 0440 002654 2410 002655 0540 002656 7057 002657 0540 002660 2001 002661 2403 002662 1037 002663 4273 002664 1140 002665 5006 002666 5061 002667 5151 002670 6256 002671 7173 002672 3240 002673 2004 002674 2070 002675 0573 002676 0740 002677 6256 002700 7177 002701 1500 1169 002702 0000 LINE29, 0000 1170 002703 0532 256+90 1171 002704 2440 TEXT ^T "9) ADD THE EAE PATCH_";I (F(1))1.8;Z EAE?M^ 002705 4271 002706 5140 002707 0104 002710 0440 002711 2410 002712 0540 002713 0501 002714 0540 002715 2001 002716 2403 002717 1037 002720 4273 002721 1140 002722 5006 002723 5061 002724 5151 002725 6156 002726 7073 002727 3240 002730 0501 002731 0577 002732 1500 1172 NXTXT=.;OCTAL 1173 FIELD 1 1174 *60 1175 010060 2733 NXTXT 1176 NOPUNCH ABORT 3673 ABSOLV 5571 AC1H 0041 AC1L 0042 ACL 7701 ADD 0061 ALIST 1371 ALL0 7371 AMPER 0314 ANDSGN 0567 APPROX 5246 APUSHX 5752 ARG 7517 ARTN 5000 ASK 1226 ATEM 0033 ATLIST 1567 ATSW 0023 AUTO 0010 AXIN 0010 AXIND 2552 AXOUT 0017 BACK 5510 BD 7213 BE 7060 BLKCNT 3656 BLOCK 6526 BLOKLP 7016 BOTTOM 0226 BRANCH 6727 BSW 7002 BSWER 0716 BUFFER 7470 BUFR 0060 C100 0111 C11 5302 C144 6131 C15 6156 C200 0123 C260 0113 C3 5320 C5 5314 C7 5310 C9 5305 CALL 7232 CALLER 6605 CAM 7621 CCR 0077 CDI 6203 CFRS 0133 CGET 3147 CHANGE 0501 CHAR 0066 CHG 0214 CHIN 2564 CHR 0065 CHRT 6157 CKEAE 0420 CKFCFD 7056 unreferenced CKNAME 7067 CKW 0216 CKWRDS 0400 CLASS8 0731 CLF 0076 CLOOP 0506 CLOSE 3635 CLOSER 3637 CMPR 6541 COLON 0321 COMGO 1160 COMLST 0770 COMMA 6524 COMMEN 0614 COMPAR 4565 CONT 6553 COUNT 7164 CPRNT 3154 CTRLF 2667 CYCLE 7215 D 0046 DAD 7443 DATE 0217 DATER 6423 DATUM 7102 DATUMA 7252 DAXIN 0173 DCDYES 6131 DCM 7575 DCOUNT 6167 DEBGSW 0026 DECODE 6116 DECP 5553 DECR 5526 DELEET 7252 DELETE 4565 DERR 7304 DEVC 6242 DEVHLD 0073 DEVNO 0072 DGOUT 6153 DHT 6220 DIALOG 0044 DIG 5537 DIGIT 7140 DIGITS 0012 DIGPT 6165 DIMEN 6343 DIRLIS 7076 DISMIS 4567 DLD 7663 DLOAD 6244 DLOOP 7200 DLUP 7210 DMPSW 0100 DMULT 7004 DMULT4 7036 DNORM 7335 DO 0420 DOEXIT 0501 DOF 7533 unreferenced DOT 0540 DOUBLE 0127 DPC 0167 DPSZ 7451 DPT1 0171 DST 7445 DTHIS 0170 DUBDIV 7261 DUBLAD 5733 DUMMY 3246 DV3 7267 DVI 7407 DXRT 0172 EAE 0342 EAE3W 0700 EAE8E 0456 ECALL 1601 ECHCHK 6102 ECHO 0152 ECHOGO 2575 ECHOIT 0576 ECHOLS 1624 EFOP 0056 EFUN3 2017 ELIST 0765 END 0134 ENDT 0135 EOF 3136 EQUAL 0301 ERA 2220 ERASE 2213 ERG 2230 ERL 2226 ERR2 2733 ERROR1 4105 ERROR2 4566 ERROR5 2732 ERRX 6764 EVAL 1613 EX1 0040 EXCLM 3232 EXIT 0027 EXIT2 5266 EXP 0044 EXPON 1067 EXTEND 0255 unreferenced EXTENS 0071 EXTR 2312 FABS 5373 FADD 1000 FCDF 5724 FCHECK 0174 FCONT 1101 FCOS 5200 FDIS 1142 unreferenced FDIV 3000 FENT 4407 FEXP 4620 FEXT 0000 FGET 0000 FGO1 6007 FGO2 6014 FGO3 6021 FGO4 6030 unreferenced FGO5 6063 FGO6 6101 FILEGO 5560 FILERR 3757 FILIST 6370 FIN 2010 FINCR 1065 FIND 6501 FINDER 6515 FINDLN 4555 FINFIN 5353 FINPUT 0131 FIRSTC 7344 FISW 0052 FITR 5357 FIXIT 4453 FL100 0346 FLAC 0044 FLARG 2030 FLARGP 0125 FLDV 7165 FLEN 6170 FLEX 6525 FLGT 6463 FLIMIT 1075 FLNGTH 0056 FLOAT 5512 unreferenced FLOG 5040 FLOP 0040 FLOUT 5532 FLOUTP 6000 FLP5 0351 FLPT 6460 FLTONE 2406 FLTXR 0014 FLTXR2 0015 FLTZER 2410 FMUL 4000 FNEW 3224 unreferenced FNOR 7000 FNTABF 0355 FNTABL 2155 FOCTXT 6766 FOR 1041 FORMAT 1235 FOUT 5361 FOUTPU 0130 FP0 0132 FP1 5354 FPNT 6400 FPROC 1106 FPUT 6000 FRAN 6345 FSF 7506 unreferenced FSGN 5365 FSIN 5204 FSUB 2000 GDT 6775 GECALL 1565 GEND 2334 GET1 2330 GET3 2346 GETARG 1403 GETC 4545 GETD 5553 GETDEV 7164 GETHND 4572 GETLN 4554 GETLP 1413 GETMON 4570 GETN 6021 GETSGN 1045 GEXIT 1461 unreferenced GINC 0065 GLIST 1377 GLN 6751 GLOOK 4524 GLOOP 1437 GNAME 6000 GO 0000 GOBACK 6716 GOJUMP 0047 GOSUB 6700 GOSW 0105 GOTO 0603 GS1 1430 GSERCH 1424 GT13 7326 GTEM 0021 GTNAME 4571 GTONE 5227 GZERR 0340 HALF 5270 HANDLR 6300 HANDOK 6321 HEADER 0033 HND 7222 HORD 0045 IBLK 5473 ICHAR 3125 ICHAR0 5464 ICHAR1 5505 ICHAR2 5507 unreferenced ICHAR3 5515 unreferenced IECHO 2573 IF 1013 IF1 1035 IFF 7547 IFTEST 7577 ILIST 2414 IMPUT 5577 IN 5520 INB 6721 INBLK 0114 INBUF 0057 INDEV 0064 INFIX 2401 INFLG 0121 INHND 0120 INITIA 6605 INLIST 0571 INPUT 0556 INTRPT 2601 IOBUF 5660 IOWAIT 6133 IPNTR 5546 IRST 5615 ITEMP 5545 JUMP 0050 JUMPER 6735 K1002 7136 K1004 7137 K11 6166 K177 0052 K377 3644 K4 5470 K57 6067 K604 0053 K7400 0062 K7700 6047 KCCER 0601 KCF 6030 KCFER 0722 KILLIT 3650 KINT 2623 KOMGO 6564 KOMLST 6362 LASTV 0031 LBLOCK 7023 LCMND 6400 unreferenced LF 0212 LGETLN 7550 LGO 6417 LGOSUB 3120 LIB 3123 LIBBLK 0060 LIBDEV 0074 LIBFIL 0077 LIBHND 0064 LIBLEN 0076 LIBX 7071 LIMIT 1112 LINE0 0202 LINE1 0224 LINE11 1632 LINE12 1670 LINE13 1725 LINE14 1763 LINE15 2026 LINE16 2061 LINE17 2106 LINE18 2133 LINE19 2176 LINE20 2241 LINE21 2300 LINE22 2337 LINE23 2374 LINE24 2431 LINE25 2475 LINE26 2541 LINE27 2605 LINE28 2645 LINE29 2702 LINENO 0067 LIST1 6775 LIST2 6776 LIST3 0077 LIST6 0073 LIST7 0075 LISTAL 6777 LISTGO 1367 LNGTH 7234 LOAD 6621 LOADGO 6667 LOOK42 1566 LOOKER 0363 LOOKUP 4363 LOOP2 7027 LOOP3 7126 LORD 0046 LOWER 0244 LTHALF 5237 M10PT 6163 M11 0121 M12 0102 M140 2522 M144 6132 M16 1140 M2 5665 M20 0105 M240 0114 M3 2600 M4 0117 M40 0126 M43 7164 M5 0120 M77 0103 MAKVAR 1501 MAT 5757 MCOM 0072 MCR 0116 MD 5567 MEQ 1141 MFORTY 7342 MGETC 6534 MID 0215 MIDDLE 4550 MIF 7260 MINT 2657 MINUS 7142 MLOOP 0527 MODIFY 1247 MONITO 7600 MOVER 0517 MP1 7254 MP2 7256 MP3 7255 MP4 7200 MP5 7253 MPD2 5710 MPD3 5736 MPOPA 5700 MPUSHA 5651 MQA 7501 MQL 7421 MSPACE 7322 MSPNOR 7243 MULDIV 7101 MULT10 5667 MUY 7405 MVR 0213 NAGSW 0070 NAME 6010 NAMEC 6030 NAMECT 6154 NAMER 6411 NAMLOC 0066 NAMPT 7233 NEG 6350 NEGATE 4451 NEND 7155 NEWDEV 0054 NIEUW 1556 NLOOP 7114 NMBASE 6133 NMI 7411 NOCHAR 3700 NODATE 4467 NOEXPS 0543 NOFNS 0540 NOLOGS 0705 NONAME 0020 NOOHS 0546 NORM 5352 NOSPAC 0561 NOTEQ 6221 NOTRIG 0712 NPACK 7306 NPRNT 7151 NUDATE 0014 NUDIV 1022 NUMULT 0751 NUSTUF 1322 NXTXT 2733 NYSTUF 1422 O2 3734 O3 3737 OBLK 3725 OCHAR 3131 OCHAR0 5443 OCHK 7270 OCLCHK 7331 OCMND 5455 ODG 2501 OECHO 5450 OLIST 6774 OLNGTH 3760 ON 7555 ONFLAG 0023 ONLY1 6335 ONMTMP 3753 ONTEST 7563 OPEN 7200 OPENER 0273 OPENUP 4564 OPTABL 6562 OPTR0 2673 OPTR1 3751 OPTR2 3752 OPTRI 2674 OPTRO 2675 OPUT 5570 ORGO 3761 ORLIST 6375 ORST 5425 OSETUP 3763 OTHER 7213 OUT 2466 OUTA 5562 OUTBLK 0122 OUTDEV 0063 OUTDG 6134 OUTFLG 0127 OUTHND 0126 OUTPUT 5401 OVER1 0043 OVER2 0047 P13 0110 P14 7334 P17 0107 P177 0106 P1777 5271 P337 0075 P377 2516 P4 6070 P40 2542 P4000 0124 P7 0124 P7600 0104 P77 0122 P7700 0101 PA1 2526 PACBUF 2503 PACK2 4474 PACKC 4546 PACKIT 4517 PACKST 0027 PACX 2532 PART1 1127 PART2 1102 PART3 1016 PARTES 2047 PASSN 6155 PATCH 7125 PC 0022 PC0 0100 PC1 0614 PCD 5330 PCHK 5634 PCK1 2535 PD2 0530 PD3 0540 PDERR 5647 PDLXR 0013 PDP8E 0326 PDR 6601 PER 0102 unreferenced PERD 6071 PERDSW 6144 PIE 0743 PIOT 5272 PLCE 5562 POINT 0054 POINT4 6530 POINTR 0667 POPA 4537 POPF 4544 POPJ 5541 POS 6355 PRINT 7366 PRINTC 4551 PRNT 2442 PRNTLN 4553 PRNTX 1055 PROC 0611 PROCES 0610 PT1 0030 PT1D 3160 PTEN 6311 PTENP3 0607 PTTEN 6162 PUSHA 4542 PUSHF 4543 PUSHJ 4540 PUTDEV 6264 QHI 7376 QLO 7377 QUICKR 1254 QUIT 0177 QUOTE 1354 R6 5445 RDPTR 5527 READC 4552 RECOVR 2764 RECOVX 2743 REKOVR 5756 REMAIN 5712 REMPT 6164 RESOLV 7173 RESTAR 0654 RESTOR 3622 RET 5456 RETRN 0523 RETRY 6231 RETURN 5536 RISOLV 7157 RNDM 6275 ROUND 6160 RTL6 4557 RUB1 3003 RUBIT 2534 RUNNER 6604 SADR 6166 SAVAC 2727 SAVBLK 6504 SAVE 6436 SAVEPT 6470 SAVER 6413 SAVLK 2730 SCA 7441 SCNT 7364 SCONT 1271 SDUMP 3117 SET 1041 SET20 1513 SETGO 0005 SETUP 0000 SGN 7116 SHIFTL 4527 SHL 7413 SHORTR 1220 SIGN 7124 SIGNF 0050 SKIP1 6375 SLOT 6306 SMALER 0604 SORTC 4550 SORTCN 0054 SORTJ 4547 SPACE 6055 SPACER 0307 SPECIA 6777 SPLAT 1242 SRNLST 1363 STAR 0614 START 0177 STBLK 0057 STOP 7777 STVAR 3224 SUBBER 6603 SUBS 1517 SVR 6602 SWAB 7431 SWAPIN 7276 SWBA 7447 SWP 7521 T1 0032 T2 0071 T3 0033 TAB 6332 TABCNT 0166 TABLE 7153 TADEQL 0564 TASK 1207 TASK4 1232 TCRLF 1230 TDUMP 3052 TELSW 2731 TEMP 6645 TEN 6271 TENPT 6161 TERMER 2417 TERMS 1770 TEST2 6736 TEST4 7366 TEST42 6315 TESTC 4564 TESTF 7502 TESTQ 5217 TGETC 4575 TGO 5400 THIR 7257 THISD 3165 THISLN 0023 THREAD 0612 THREEW 0621 TINT 2604 unreferenced TITL 0213 TJUMP 4573 TLIST 1400 TLIST2 1404 TLIST3 2377 TOP 0175 TPA 6772 TPOPA 4543 TPOPF 4576 TPUSHA 4772 TPUSHF 4577 TRIG 0264 unreferenced TRM 6773 TSP 6217 TSPNOR 4574 TSTGRP 4563 TSTLPR 4562 TTYIN 5632 TTYOUT 5440 TTYTXT 6200 TWOPI 5276 TXTEND 0302 TYPE 1206 UPDATE 4400 UPPER 0224 USR 0007 USRIN 6144 USROUT 6154 UTE 2276 UTQ 2303 UTRA 2274 UTX 2316 VFN 5335 WAITUP 4566 WORDS 0004 WRITE 0635 XCHAR 0035 XCT 0020 XCTIN 0062 XECUTE 0757 XFER 6467 XFORM 7320 XGETLN 0303 XI33 2661 XINC 1564 XINT 2647 XLEN 5547 XNAME 0021 XOUTL 2676 XPOPA 0516 XPOPJ 0525 XPUSHA 0502 XPUSHJ 0507 XRT 0011 XRTD 6173 XSQR 5324 XSQRT 7400 XTAB 6370 YINT 5404 ZALL 3215 ZER 6337 ZER0 7143 ZERO 3200 ZERSW 0055 ZEXIT 1527 ZFOUND 1556 ZINITL 1553 ZIRO 7135 ZLIST 3220 ZLOOP 1465 ZLUP 7112 ZSERCH 1474