PAGE 1 NCC,52,FTR 10:05 PM 11/5/1971 /NETWORK CONTROL CENTER PROGRAM IMPS=32. IMPMSK=37 LINES=32. BUFINL=62. NMODEM=5 /NO OF LINES IN BTR NHOST=4 /NO OF HOSTS IN BTR NHTP=8. /NO OF FLAVORS OF HOST THRU PUT IM BTR N15MIN=8. /NUMBER WORDS PER 15 MIN IN TABLES HTBSIZ=IMPS^TNHOST^TNHTP IMPHTP=NHOST^TNHTP LTBSIZ=2^TLINES /LOGGER MESSAGES 00-17 CORRESPOND TO BITS ON IN ANOMALY WORD /LOGGER MESSAGES 20-37 CORRESPOND TO BITS OFF IN ANOMALY WORD /LOGGER MESSAGES 40-47 VERS=40 EXCERP=41 EXCERM=42 HSTERR=43 FREEM=44 SANDFM=45 REASM=46 CONFIG=47 /LOGGER MESSAGES 50-57 ARE IMP-LINE STATUS CHANGE /ALSO LOW 3 BITS ARE CHARACTER IN CHARS TABLE /ALSO LOW 4 BITS ARE STATES IN 15 MIN TABLE /CODES OF 50 AND UP ARE FLAGGED ON LOG UNKNOW=50 /STATE UNKNOWN LINDNP=51 /DOWN PLUS LINDNM=52 /DOWN MINUS DNMESS=53 /DOWN BOTH WAYS UPMESS=54 /UP LOOPP=55 /LOOPED PLUS LOOPM=56 /LOOPED MINUS LOOPB=57 /LOOPED BOTH /LOGGER MESSAGES 60-65 LIMBO=60 OVFERR=61 /NCC LOG FULL NCTIMS=62 /NCC TIMEOUT SUSPENDED NCTIMR=63 /NCC TIMEOUT RESUMED HTSTON=64 /HOST TEST ON HTSTOF=65 /HOST TEST OFF /CODES FOR INTERPRETING BTR LINE DATA BTRNIF=0 /NO INFO BTRUP=1 /LINE UP BTRDNN=2 /LINE DOWN,NO ERRORS BTRDNE=3 /LINE DOWN,WITH ERRORS BTRLP=4 /LINE LOOPED MANOML=177717 /MASK FOR ANOMALIES THAT ARE ONCE-ONI- TOOLNG=3 /NO OF MIN IMP HAS TO REPORT BEFORE DEATH PAGE 2 NCC,52,FTR 10:05 PM 11/5/1971 60/ 00060 000661 AUTO 63/ 00063 010000 TINT 64/ 00064 006614 HIPR 100/ 00100 006614 HIPR 102/ 00102 002000 TOR 103/ 00103 003000 BTRP SCLEAR=1 /NCC SWITCH TO CLEAP BUZZ+FLASH SLTEST=2 /NCC SWITCH TO TEST LAMPS SLINEM=4 /NCC SWITCH TO DISPLAY MINUS LINE STATUS SLINEP=10 /NCC SWITCH TO DISPLAY PLUS LINE STATUS SBUZZ=20 /NCC SWITCH TO BUZZ ON IMP CHANGE ONLY SFREZT=20000 /NCC SWITCH TO SUSPEND TIMEOUT SFRZP=40000 /NCC SWITCH TO INHIBIT SUMMARY PRINTIN SFRZP1=100000 /NCC SWITCH TO INHIBIT LOG PRINTING 105/ 00105 MIN: BSS 1 /MIN PAST HOUR 00106 HOUR: BSS 1 /HOURS PAST MIDNITE 00107 DAY: BSS 1 /DAY OF THE MONTH 00110 MONTH: BSS 1 /MONTH OF THE YEAR 00111 YEAR: BSS 1 /YEAR (2 DIGITS) 00112 NITP: BSS 1 /NO OF IMPS TO BELIEVE - NEGATIVE 00113 NLTP: BSS 1 /NO OF LINES TO BELIEVE - NEGATIVE 00114 NOMVER: BSS 1 /NOMINAL IMP VERSION IN NET 00115 000000 TYPE: 0 /0 = FF TTY, 1 = NONFF TTY (SUMMARY) 00116 000000 TYPE1: 0 /0 = FF TTY, 1 = NONFF TTY (LOG) 00117 000000 ERRCLP: 0 /CLIP FOR PRINTING ERRORS 00120 000002 ERRCL2: 2 /CLIP FOR DOWN-WITH-ERROR 00121 000032 FREEL: 26. /LO FREE 00122 000044 FREEH: 36. /HI FREE 00123 000000 SANDFL: 0 /LO S+F 00124 000012 SANDFH: 10. /HI S+F 00125 000000 REASL: 0 /LO REAS 00126 000012 REASH: 10. /HI REAS PAGE 3 NCC,52,FTR 10:05 PM 11/5/1971 /ZERO AREA BEGIN 00127 ITAB: BSS 2 /IMP STATE FOR LIGHTS 00131 PLSP: BSS 2 /+LINE STATE FOR LIGHTS 00133 PLSN: BSS 2 /-LINE STATE FOR LIGHTS 00135 TOFI: BSS 2 /FLASHER FOR IMPS 00137 TOFL: BSS 2 /FLASHER POR LINES 00141 BTRBEG: BSS 1 /PNTR TO FIRST BTR FOR BTRP 00142 HIBFP: BSS 1 /PNTR TO HOST IN BUF 00143 BTREND: BSS 1 /LATEST TASK FOR BTRP 00144 FREE: BSS 1 /NEXT FREE BUFFER FOR HOST IN 00145 IMPVER: BSS IMPS /VERSION NUMBERS 00205 IMPANM: BSS IMPS /ANOMALIES 00245 IMPTIM: BSS IMPS /TIMEOUT TABLE 00305 IMPHTS: BSS IMPS /NO OF HOST UNDER TEST (1,2,3,4) 00345 LINPLS: BSS LINES /LAST REPORT QN PLUS END OF LINE 00405 LINMIN: BSS LINES /LAST REPORT ON MIN END OF LINE 00445 PAGEL: BSS 1 /PAGE FOR LOGGER 00446 PAGES: BSS 1 /PAGE FOR SUMMARY /ZERO AREA END 00447 100010 MASK1: 100010 /ALLOW HOST IN 00450 100013 MASK2: 100013 /ALLOW HOST IN,CLOCK,TASK 00451 010213 LDIN: TTIN /TTY INPUT 00452 010200 LDOT: TTOUT /TTY OUTPUT 00453 010236 LDOT1: TTOUT1 /TTY1 OUTPUT (NOTE NO INPUT ON TTY1) 00454 010047 LTTBG: TTBEG /TTY INIT 00455 010147 LTTBG1: TTBEG1 /TTY1 INIT 00456 000000 PFREZ: 0 /NO MIN UNTIL NCC SUMMARY RESUMED 00457 000000 PFREZ1: 0 /NO MIN UNTIL NCC LOG RESUMED 00460 177702 PGK: -62. /LINE COUNT FOR SUMMARY TTY 00461 177702 PGK1: -62. /LINE COUNT FOR LOG TTY 00462 000000 PFLG: 0 /FLAG TO CALL FORM - SUMMARY 00463 000000 PFLG1: 0 /FLAG TO CALL FORM1 - LOG 00464 000000 TTBSY: 0 /TTY HARDWARE BUSY FOR SUMMARY 00465 000000 TTBSY1: 0 /TTY1 HARDWARE BUSY FOR LOG 00466 177702 PLENG: -62. 00467 177774 PHEAD: -4 PAGE 4 NCC,52,FTR 10:05 PM 11/5/1971 NCALLS=5 /FLAGS TO CALL SUMMARY PRINT 00470 000000 RQUICK: 0 /KEEP IN ORDER 00471 000000 RSTATS: 0 00472 000000 RTHRUH: 0 00473 000000 RTHRUD: 0 00474 000000 RTHRUP: 0 00475 000000 RFAKE: 0 /NECC AFTER LAST COMMAND /SUMMARY PRINT LOCATIONS 00476 005000 LQUICK: QUICKP /KEEP IN ORDER 00477 006000 LSTATS: STATUS 00500 006021 LTHRUH: THRUH 00501 006031 LTHRUD: THRUD 00502 006040 LTHRUP: THRUP /NO OF COPIES OF SUMMARY 00503 000001 RUNQ: 1 00504 000001 RUNS: 1 00505 000001 RUNH: 1 00506 000001 RUND: 1 00507 000001 RUNP: 1 00510 004000 LLOGGR: LOGGER PAGE 5 NCC,52,FTR 10:05 PM 11/5/1971 /THESE ROUTINES ARE USED TO /READ AND WRITE 4 BIT BYTES INTO /A WORD. TO USE X=ADDRESS OF THE /TABLE AND THE AC= THE NUMBER OF /THE BYTE YOU WANT. /ILD DEPOSITS THE LOW 4 BITS OF LGM2 00511 000000 ILR: 0 00512 010527 STA ILD1 00513 040576 ARS 2 00514 014000 ADD 0 00515 010000 STA 0 00516 004527 LDA ILD1 00517 006733 ANA (3) 00520 041576 ALS 2 00521 016734 SUB (ARR 0 00522 140407 TCA 00523 010527 STA ILD1 00524 014735 ADD (1000) /CHANGE ARR TO ALR 00525 010546 STA ILD2 00526 044000 LDA 0 X 00527 000000 ILD1: 0 00530 102511 JMP ILR I 00531 000000 ILD: 0 /DEPOSIT 00532 020511 JST ILR 00533 010527 STA ILD1 /TEMP 00534 012603 ERA LGM2 00535 006736 ANA (7) 00536 101040 SNZ 00537 102531 JMP ILD I /NO CHANGE,NO DEPOSIT 00540 004527 LDA ILD1 00541 006737 ANA (177760) 00542 010527 STA ILD1 00543 004603 LDA LGM2 00544 006740 ANA (17) 00545 012527 ERA ILD1 00546 000000 ILD2: 0 00547 050000 STA 0 X 00550 020553 JST FLG 00551 024531 IRS ILD 00552 102531 JMP ILD I PAGE 6 NCC,52,FTR 10:05 PM 11/5/1971 00553 000000 FLG: 0 /PUT A MESSAGE ON THE LOGGER 00554 004605 LDA LOGINP /INPUT POINTER 00555 022741 CAS (LGBUFE+3) 00556 002572 JMP FLG1 00557 002572 JMP FLG1 00560 004602 LDA LGM1 00561 110605 STA LOGINP I 00562 024605 IRS LOGINP 00563 004603 LDA LGM2 00564 110605 FLG3: STA LOGINP I 00565 024605 IRS LOGINP 00566 004604 LDA LGM3 00567 110605 STA LOGINP I 00570 024605 IRS LOGINP 00571 102553 JMP FLG I /RETURN 00572 004742 FLG1: LDA (LGBUFB) 00573 010606 STA LOGOTP /SETUP OUTPUT POINTER 00574 010605 STA LOGINP 00575 004602 LDA LGM1 00576 110605 STA LOGINP I 00577 024605 IRS LOGINP 00600 004743 LDA (OVFERR) /MESSAGE ABOUT FLUSHED LIST 00601 002564 JMP FLG3 00602 000000 LGM1: 0 00603 000000 LGM2: 0 00604 000000 LGM3: 0 00605 023020 LOGINP: LGBUFB /LOG FILL POINTER 00606 023020 LOGOTP: LGBUFB /LOG OUT POINTER PAGE 7 NCC,52,FTR 10:05 PM 11/5/1971 /TTY PRINT ROUTINES /SOFTWARE PAGING (60LINES/PAGE) /SOFTWARE SUSPEND PRINT SWITCH 00607 000000 PRNT: 0 00610 101040 SNZ 00611 102607 JMP PRNT I /NULL CHAR 00612 010633 STA PRNTT 00613 004456 LDA PFREZ 00614 101040 SNZ 00615 002621 JMP .+4 00616 004744 LDA (BACK) 00617 110745 STA (TINT) I 00620 102746 JMP (TTSLPA) I 00621 004633 LDA PRNTT 00622 022747 CAS (212) 00623 100000 SKP 00624 002627 JMP PAGEF 00625 120452 PRNTA: JST LDOT I /PRINT 00626 102607 JMP PRNT I 00627 024460 PAGEF: IRS PGK 00630 002625 JMP PRNTA 00631 024462 IRS PFLG 00632 002625 JMP PRNTA 00633 000000 PRNTT: 0 00634 000000 PRNT1: 0 00635 101040 SNZ 00636 102634 JMP PRNT1 I 00637 010660 STA PRNTT1 00640 004457 LDA PFREZ1 00641 101040 SNZ 00642 002646 JMP .+4 00643 004744 LDA (BACK) 00644 110745 STA (TINT) I 00645 102750 JMP (TTSLA1) I 00646 004660 LDA PRNTT1 00647 022747 CAS (212) 00650 100000 SKP 00651 002654 JMP PAGEF1 00652 120453 PRNTA1: JST LDOT1 I 00653 102634 JMP PRNT1 I 00654 024461 PAGEF1: IRS PGK1 00655 002652 JMP PRNTA1 00656 024463 IRS PFLG1 00657 002652 JMP PRNTA1 00660 000000 PRNTT1: 0 PAGE 8 NCC,52,FTR 10:05 PM 11/5/1971 00661 000000 AUTO: 0 /COME HERE FOR AUTO RESTART 00662 004751 LDA (FINIT) 00663 010661 STA AUTO 00664 072752 LDX (JMP AUTO I 00665 000000 HLT 00666 001001 INIT: INH 00667 140040 CRA /COME HERE FOR FRESH START 00670 072753 LDX (ITAB-PAGES-1) 00671 050447 STA PAGES+1 X 00672 024000 IRS 0 00673 002671 JMP .-2 00674 072754 LDX (0 0 DHTP-LGBUFE) 00675 110755 STA (LGBUFE 0 X) I 00676 024000 IRS 0 00677 002675 JMP .-2 00700 004742 LDA (LGBUFB) 00701 010605 STA LOGINP 00702 010606 STA LOGOTP 00703 001001 FINIT: INH /COME HERE FOR RESTART 00704 120756 JST (BUFINT) I 00705 004450 LDA MASK2 00706 170120 SMK 120 00707 004757 LDA (-1) 00710 170020 SMK 20 00711 030171 M1UNXP 00712 030470 H1UNXP 00713 030570 H1ENAB 00714 030040 CLKON 00715 120760 JST (HSTINT) I /INIT HOST IN 00716 120454 JST LTTBG I /INIT TTY 00717 001001 INH 00720 120455 JST LTTBG1 I /INIT TTY1 PAGE 9 NCC,52,FTR 10:05 PM 11/5/1971 00721 001001 BACK: INH 00722 004464 LDA TTBSY 00723 101040 SNZ 00724 120761 JST (TTGO) I 00725 001001 INH 00726 004465 LDA TTBSY1 00727 101040 SNZ 00730 120762 JST (TTGO1) I 00731 000401 ENB 00732 002721 JMP BACK PAGE 10 NCC,52,FTR 10:05 PM 11/5/1971 00733 000003 FIN 00734 040700 00735 001000 00736 000007 00737 177760 00740 000017 00741 027775 00742 023020 00743 000061 00744 000721 00745 010000 00746 010072 00747 000212 00750 010167 00751 000703 00752 102661 00753 177460 00754 161006 00755 067772 00756 006652 00757 177777 00760 006632 00761 010040 00762 010140 PAGE 11 NCC,52,FTR 10:05 PM 11/5/1971 1000/ 01000 002666 JMP INIT /FRESH START 01001 002703 JMP FINIT /RESTART 01002 001001 INH /DDT-SA 01003 140040 CRA 01004 170120 SMK 120 01005 120454 JST LTTBG I 01006 003006 JMPDOT: JMP . /DDT /MAIN LISTEN LOOP 01007 140040 DCLRZ: CRA 01010 010456 STA PFREZ 01011 021072 DCLR: JST CRLFDT /RESTART ENTRY 01012 021220 JST CPB 01013 021263 JST CLS 01014 021220 CLSE: JST CPB 01015 120451 LSE: JST LDIN I /GET A CHAR 01016 007735 ANA (177) 01017 101040 SNZ 01020 003011 JMP DCLR 01021 010000 STA 0 01022 023735 CAS (177) 01023 100000 SKP 01024 003044 JMP RUB /RUBOUT 01025 023736 CAS (15) 01026 100000 SKP 01027 003443 JMP CR /CARRIAGE RETURN 01030 023737 CAS (12) 01031 100000 SKP 01032 003431 JMP LF /LINE FEED 01033 017740 SUB (140) /CHECK IF CHAR IS WITHIN LIMITS: 40<=C: 01034 101400 SMI 01035 003015 JMP LSE 01036 015741 ADD (100) 01037 100400 SPL 01040 003015 JMP LSE 01041 026000 IMA 0 01042 103043 JMP CTBL I /DISPATCH 01043 141635 CTBL: DAC DTAB I X 01044 005742 RUB: LDA (243) 01045 120452 JST LDOT I 01046 021115 JST TAB 01047 003014 JMP CLSE PAGE 12 NCC,52,FTR 10:05 PM 11/5/1971 /VARIABLES 01050 000000 PAR4: PZE /PARAMETERS STORAGE BLOCK 01051 000000 PAR3: PZE 01052 000000 PAR2: PZE 01053 000000 PAR1: PZE 01054 000000 PRS: PZE /PARAMETER SUPPLIED - 1=> YES (R TO L 01055 000000 SYL: PZE /LAST SYLLABLE TYPED IN 01056 000000 OP: PZE /OPERATOR ON CURRENT SYMBOL [<0 => SUB 01057 000000 SP: PZE 01060 000000 LAST: PZE /LAST WORD TYPED (CURRENT VALUE OF DISPATCH 01370 003337 JMP DIG2 PAGE 18 NCC,52,FTR 10:05 PM 11/5/1971 01371 021200 COM: JST CSL /, DISPATCH 01372 073745 LDX (-3) 01373 045054 COM1: LDA PAR1+1 X 01374 051053 STA PAR1 X 01375 024000 IRS 0 01376 003373 JMP COM1 01377 140040 CRA 01400 011053 STA PAR1 01401 005054 LDA PRS 01402 041477 LGL 1 01403 011054 STA PRS 01404 003015 JMP LSE 01405 021200 SLH: JST CSL // DISPATCH 01406 021135 JST GP1 01407 005060 LDA LAST 01410 021244 SLH2: JST OPN 01411 003014 JMP CLSE 01412 021200 BS: JST CSL /BACKSLASH DISPATCH 01413 021135 JST GP1 01414 003420 JMP BS1 01415 007773 BS3: ANA (777) 01416 015063 ADD PAGE 01417 003410 JMP SLH2 01420 005060 BS1: LDA LAST 01421 041472 LGL 6 01422 100400 SPL 01423 003427 JMP BS2 01424 005060 LDA LAST 01425 007773 ANA (777) 01426 003410 JMP SLH2 01427 005060 BS2: LDA LAST 01430 003415 JMP BS3 01431 021263 LF: JST CLS /LINEFEED DISPATCH 01432 005743 LDA (215) 01433 120452 JST LDOT I 01434 021101 JST CRLFD1 01435 003014 JMP CLSE 01436 021263 UA: JST CLS /^ DISPATCH 01437 005061 LDA PT 01440 017747 SUB (1) 01441 011061 STA PT 01442 003445 JMP CR1 01443 021263 CR: JST CLS /CARRIAGE RETURN DISPATCH 01444 025061 IRS PT 01445 021072 CR1: JST CRLFDT 01446 005061 LDA PT 01447 011060 STA LAST 01450 007763 ANA (37000) 01451 011063 STA PAGE 01452 005061 LDA PT 01453 021231 JST PAC 01454 003014 JMP CLSE PAGE 19 NCC,52,FTR 10:05 PM 11/5/1971 01455 021161 Z: JST SLIM /Z DISPATCH 01456 021147 JST GP3 /GET CONSTANT CORE IS TO BE CLEARED TO 01457 005066 LDA VAL 01460 011066 STA VAL 01461 101002 SS4 /SS4 MUST BE UP TO ALLOW CLEAR 01462 003044 JMP RUB /ABORT 01463 073070 Z1: LDX CNT 01464 111067 STA PTRDDT I 01465 025070 IRS CNT 01466 003463 JMP Z1 01467 003011 JMP DCLR 01470 005472 W: LDA DSKP /W DISPATCH 01471 003500 JMP SCH1 /WRITE OUT A BLOCK OF CORE 01472 100000 DSKP: SKP 01473 005475 EQ: LDA CSZE /E DISPATCH 01474 003500 JMP SCH1 /DO AN EQUALS SEARCH 01475 100040 CSZE: SZE 01476 101040 CSNZ: SNZ 01477 005476 NEQ: LDA CSNZ /N DISPATCH 01500 011514 SCH1: STA SXEC /SET UP TEST 01501 021161 JST SLIM 01502 021147 JST GP3 01503 100000 SKP 01504 011066 STA VAL 01505 021154 JST GP4 01506 100000 SKP 01507 011071 STA SMSK 01510 073070 SCH3: LDX CNT 01511 105067 LDA PTRDDT I 01512 013066 ERA VAL /COMPARE 01513 007071 ANA SMSK /MASK OFF BITS TO RE IGNORED 01514 000000 SXEC: 0 0 /TEST - SET UP BY CALLS 01515 003522 JMP SCH2 /FAILURE 01516 021072 JST CRLFDT /SUCCESS - TYPE OUT THE REGISTER 01517 005067 LDA PTRDDT 01520 015070 ADD CNT 01521 021231 JST PAC 01522 025070 SCH2: IRS CNT 01523 003510 JMP SCH3 01524 003011 JMP DCLR PAGE 20 NCC,52,FTR 10:05 PM 11/5/1971 01525 021200 S: JST CSL /S DISPATCH 01526 021135 JST GP1 01527 003044 JMP RUB 01530 011057 STA SP 01531 101002 SS4 /CANNOT START UNLESS SS4 IS UP 01532 003044 JMP RUB /ABORT 01533 103057 JMP SP I 01534 101002 QDSP: SS4 01535 003044 JMP RUB /CAN'T GO INTO QUIET MODE WITH SS4 D[ A 01536 005542 LDA QPTR /QUIET MODE CONTROL 01537 026452 IMA LDOT 01540 011542 STA QPTR 01541 003011 JMP DCLR 01542 001543 QPTR: DAC QNUL 01543 001543 QNUL: DAC . /NULL SUBROUTINE 01544 103543 JMP .-1 I 01545 101002 EXCLAM: SS4 01546 003044 JMP RUB 01547 005774 LDA (30.) 01550 026456 IMA PFREZ 01551 101040 SNZ 01552 003011 JMP DCLR 01553 003007 JMP DCLRZ 01554 101002 DOLLAR: SS4 01555 003044 JMP RUB 01556 004457 LDA PFREZ1 01557 100040 SZE 01560 005774 LDA (30.) 01561 013774 ERA (30.) 01562 010457 STA PFREZ1 01563 003011 JMP DCLR PAGE 21 NCC,52,FTR 10:05 PM 11/5/1971 01564 005774 NCCALL: LDA (30.) 01565 010456 STA PFREZ 01566 120451 JST LDIN I 01567 141240 ICR 01570 011624 STA NCCCHR 01571 073764 LDX (-NCALLS) 01572 033626 CALLOP: STX CALLX 01573 105775 LDA (0 0 CNAME+NCALLS XI) I 01574 141044 CAR 01575 013624 ERA NCCCHR 01576 101040 SNZ 01577 003602 JMP CALLED 01600 024000 IRS 0 01601 003572 JMP CALLOP 01602 105776 CALLED: LDA (0 0 CNAME+NCALLS X) I 01603 011625 STA DTEXTP 01604 105625 DDTTXT: LDA DTEXTP I 01605 141050 CAL 01606 101040 SNZ 01607 003620 JMP DDTTX 01610 120452 JST LDOT I 01611 025625 IRS DTEXTP 01612 105625 LDA DTEXTP I 01613 141140 ICL 01614 101040 SNZ 01615 003620 JMP DDTTX 01616 120452 JST LDOT I 01617 003604 JMP DDTTXT 01620 004000 DDTTX: LDA 0 01621 100040 SZE 01622 003015 JMP LSE 01623 003007 JMP DCLRZ 01624 000000 NCCCHR: 0 01625 000000 DTEXTP: 0 01626 000000 CALLX: 0 01627 073626 SEMI: LDX CALLX 01630 064475 IRS RQUICK+NCALLS X 01631 003564 JMP NCCALL 01632 073626 COLON: LDX CALLX 01633 064475 IRS RQUICK+NCALLS X 01634 003007 JMP DCLRZ PAGE 22 NCC,52,FTR 10:05 PM 11/5/1971 01635 001355 DTAB: PLUS / 01636 001545 EXCLAM /! 01637 001015 LSE /" 01640 001015 LSE /# 01641 001554 DOLLAR /$ 01642 001015 LSE /% 01643 001015 LSE /& 01644 001015 LSE /' 01645 001015 LSE /( 01646 001015 LSE /) 01647 001365 STAR /* 01650 001355 PLUS /+ 01651 001371 COM /, 01652 001357 DDTMIN /- 01653 001363 PTOP /. 01654 001405 SLH // 01655 001332 DIG /0 01656 001332 DIG /1 01657 001332 DIG /2 01660 001332 DIG /3 01661 001332 DIG /4 01662 001332 DIG /5 01663 001332 DIG /6 01664 001332 DIG /7 01665 001332 DIG /8 01666 001332 DIG /9 01667 001632 COLON /: 01670 001627 SEMI /; 01671 001015 LSE /< 01672 001015 LSE /= 01673 001015 LSE /> 01674 001564 NCCALL /? PAGE 23 NCC,52,FTR 10:05 PM 11/5/1971 01675 001015 LSE /@ 01676 001015 LSE /A 01677 001015 LSE /B 01700 001015 LSE /C 01701 001352 DECIN /D 01702 001473 EQ /E 01703 001015 LSE /F 01704 001015 LSE /G 01705 001015 LSE /H 01706 001015 LSE /I 01707 001015 LSE /J 01710 001015 LSE /K 01711 001015 LSE /L 01712 001015 LSE /M 01713 001477 NEQ /N 01714 001015 LSE /O 01715 001015 LSE /P 01716 001534 QDSP /Q 01717 001015 LSE /R 01720 001525 S /S 01721 001015 LSE /T 01722 001015 LSE /U 01723 001015 LSE /V 01724 001470 W /W 01725 001015 LSE /X 01726 001015 LSE /Y 01727 001455 Z /Z 01730 001015 LSE /[ 01731 001412 BS / 01732 001015 LSE /] 01733 001436 UA /^ 01734 001367 BARR / PAGE 24 NCC,52,FTR 10:05 PM 11/5/1971 01735 000177 FIN 01736 000015 01737 000012 01740 000140 01741 000100 01742 000243 01743 000215 01744 000212 01745 177775 01746 000240 01747 000001 01750 000000 01751 177777 01752 000002 01753 177776 01754 000004 01755 000010 01756 040001 01757 101000 01760 177774 01761 037777 01762 000257 01763 037000 01764 177773 01765 000130 01766 000260 01767 000026 01770 000060 01771 000020 01772 003343 01773 000777 01774 000036 01775 147527 01776 047527 PAGE 25 NCC,52,FTR 10:05 PM 11/5/1971 /TIMEOUT ROUTINE 2000/ 02000 000000 TOR: 0 02001 033677 STX TOX 02002 011700 STA TOA 02003 000201 IAB 02004 011701 STA TOB 02005 004447 LDA MASK1 02006 170120 SMK 120 02007 140040 CRA 02010 170020 SMK 20 02011 000401 ENB 02012 030026 OCP 26 /PUNCH WDT 02013 025705 IRS TOTICK /INCR TICK COUNTER 02014 003471 JMP TO25MS 02015 005713 LDA (-4450) 02016 011705 STA TOTICK 02017 024105 IRS MIN 02020 004105 LDA MIN 02021 023714 CAS (60.) 02022 003036 JMP TOHOUR 02023 003036 JMP TOHOUR 02024 023715 CAS (45.) 02025 003154 JMP TOMIN 02026 003120 JMP TO15M 02027 023716 CAS (30.) 02030 003154 JMP TOMIN 02031 003120 JMP TO15M 02032 023717 CAS (15.) 02033 003154 JMP TOMIN 02034 003120 JMP TO15M 02035 003154 JMP TOMIN PAGE 26 NCC,52,FTR 10:05 PM 11/5/1971 02036 140040 TOHOUR: CRA 02037 010105 STA MIN 02040 005720 LDA (-4431) 02041 011705 STA TOTICK 02042 024106 IRS HOUR 02043 004505 LDA RUNH 02044 014472 ADD RTHRUH 02045 010472 STA RTHRUH 02046 004106 LDA HOUR 02047 007721 ANA (7) 02050 100040 SZE 02051 003060 JMP TOHR1 02052 004504 LDA RUNS 02053 014471 ADD RSTATS 02054 010471 STA RSTATS 02055 004506 LDA RUND 02056 014473 ADD RTHRUD 02057 010473 STA RTHRUD 02060 004106 TOHR1: LDA HOUR 02061 013722 ERA (24.) 02062 100040 SZE 02063 003070 JMP TOHR2 02064 004507 LDA RUNP 02065 014474 ADD RTHRUP 02066 010474 STA RTHRUP 02067 024463 IRS PFLG1 02070 005723 TOHR2: LDA (-HTBSIZ) 02071 011117 STA ADDTPC 02072 073724 LDX (DHTP) 02073 140040 COPYHT: CRA 02074 127725 IMA (0 0 HTP1-DHTP X) I 02075 111726 STA (0 0 HTP2-DHTP X) I 02076 100040 SZE 02077 121727 JST (ADDER) I 02100 024000 IRS 0 02101 025117 IRS ADDTPC 02102 003073 JMP COPYHT 02103 005730 LDA (-LTBSIZ) 02104 011117 STA ADDTPC 02105 073731 LDX (DLTP) 02106 140040 COPYLT: CRA 02107 127732 IMA (0 0 LTP1-DLTP X) I 02110 111733 STA (0 0 LTP2-DLTP X) I 02111 100040 SZE 02112 121727 JST (ADDER) I 02113 024000 IRS 0 02114 025117 IRS ADDTPC 02115 003106 JMP COPYLT 02116 003120 JMP TO15M 02117 000000 ADDTPC: 0 PAGE 27 NCC,52,FTR 10:05 PM 11/5/1971 02120 005734 TO15M: LDA (IMPST) 02121 021125 JST ROLTAB 02122 005735 LDA (LINST) 02123 021125 JST ROLTAB 02124 003154 JMP TOMIN 02125 000000 ROLTAB: 0 /ROLL TABLE BY 15 MIN 02126 011151 STA TABROL /TABLE TO ROLL 02127 005736 LDA (-N15MIN) 02130 011152 STA CNT8 /NO OF WORDS IN 15 MIN BLOCK 02131 005737 ROLTB1: LDA (-96.) 02132 011153 STA CNT96 /NO OF 15 MIN SEGMENTS IN A DAY 02133 073151 LDX TABROL 02134 044000 LDA 0 X 02135 007740 ANA (73567) /REMOVE CHANGE BITS 02136 066000 IMA 0 X /KEEP FOR NEXT TIME 02137 026000 ROLTB2: IMA 0 02140 015741 ADD (N15MIN) 02141 026000 IMA 0 02142 066000 IMA 0 X /PLACE IN NEXT SLOT 02143 025153 IRS CNT96 02144 003137 JMP ROLTB2 /ROLL THE WHOLE DAY 02145 025151 IRS TABROL 02146 025152 IRS CNT8 /ROLL EACH WORD OF 15 MIN BLOCK 02147 003131 JMP ROLTB1 02150 103125 JMP ROLTAB I 02151 000000 TABROL: 0 02152 177770 CNT8: -8. 02153 177640 CNT96: -96. PAGE 28 NCC,52,FTR 10:05 PM 11/5/1971 02154 004106 TOMIN: LDA HOUR 02155 023722 CAS (24.) 02156 140040 CRA 02157 140040 CRA 02160 041576 ALS 2 02161 010000 STA 0 02162 041575 ALS 3 02163 010602 STA LGM1 02164 041577 ALS 1 02165 014000 ADD 0 02166 014602 ADD LGM1 02167 014105 ADD MIN 02170 010602 STA LGM1 02171 004456 LDA PFREZ 02172 100040 SZE 02173 017742 SUB (1) 02174 010456 STA PFREZ 02175 004457 LDA PFREZ1 02176 100040 SZE 02177 017742 SUB (1) 02200 010457 STA PFREZ1 02201 005230 LDA TFREEZ 02202 100040 SZE 02203 017742 SUB (1) 02204 011230 STA TFREEZ 02205 100040 SZE 02206 003304 JMP TOLINE 02207 005743 TOIMP: LDA (-IMPS) 02210 011227 STA CNTER 02211 140040 CRA 02212 011226 STA IMPNO 02213 003222 JMP NXTIMP 02214 073226 IMPSTS: LDX IMPNO 02215 064245 IRS IMPTIM X 02216 044245 LDA IMPTIM X 02217 023744 CAS (TOOLNG) 02220 003273 JMP IMPDED 02221 003231 JMP IMPDIE 02222 025226 NXTIMP: IRS IMPNO 02223 025227 IRS CNTER 02224 003214 JMP IMPSTS 02225 003304 JMP TOLINE 02226 000000 IMPNO: 0 02227 000000 CNTER: 0 02230 000000 TFREEZ: 0 PAGE 29 NCC,52,FTR 10:05 PM 11/5/1971 02231 073745 IMPDIE: LDX (ITAB) 02232 005226 LDA IMPNO 02233 021427 JST SET0 /IMP DOWN IN LIGHTS 02234 073746 LDX (TOFI) 02235 005226 LDA IMPNO 02236 021446 JST SET1 /IMP ON IN FLASHER 02237 005226 LDA IMPNO 02240 041577 ALS 1 02241 141340 ICA 02242 013747 ERA (DNMESS) 02243 010603 STA LGM2 02244 073734 LDX (IMPST) 02245 005226 LDA IMPNO 02246 020531 JST ILD /IMP DOWN IN 15 MIM TABLE+LOG 02247 003273 JMP IMPDED 02250 005750 LDA (-NMODEM) 02251 011302 STA IMPD1 02252 005742 LDA (1) 02253 011303 STA LINENO 02254 005303 IMPDLN: LDA LINENO /FOR EACH MODEM,SAY NO INFO 02255 041473 LGL 5 02256 015226 ADD IMPNO 02257 121751 JST (BTRLN) I /WE SEEK 02260 003270 JMP IMPDLL /WE FIND NOT 02261 003264 JMP .+3 02262 015752 ADD (LINMIN) 02263 100000 SKP 02264 015753 ADD (LINPLS) 02265 010000 STA 0 02266 005754 LDA (BTRNIF) 02267 050000 STA 0 X /MARK IN LINPLS OR LINMIN MISSING IN[] 02270 025303 IMPDLL: IRS LINENO 02271 025302 IRS IMPD1 02272 003254 JMP IMPDLN 02273 073226 IMPDED: LDX IMPNO 02274 005744 LDA (TOOLNG) 02275 050245 STA IMPTIM X /TOOLNG MEANS DEAD 02276 140040 CRA 02277 050145 STA IMPVER X 02300 050205 STA IMPANM X 02301 003222 JMP NXTIMP 02302 000000 IMPD1: 0 02303 000000 LINENO: 0 PAGE 30 NCC,52,FTR 10:05 PM 11/5/1971 02304 005743 TOLINE: LDA (-LINES) 02305 011227 STA CNTER 02306 140040 CRA 02307 011303 STA LINENO 02310 003356 JMP NXTLIN 02311 073303 LINSTS: LDX LINENO 02312 044345 LDA LINPLS X 02313 015755 ADD (TRANST) 02314 011362 STA NUSTAT 02315 073303 LDX LINENO 02316 044405 LDA LINMIN X 02317 115362 ADD NUSTAT I 02320 011362 STA NUSTAT 02321 105362 LDA NUSTAT I 02322 011362 STA NUSTAT /DOUBLE INDEX TO GET NEW LINE STATE 02323 005303 LDA LINENO 02324 041677 ALR 1 02325 141206 AOA 02326 141340 ICA 02327 013362 ERA NUSTAT 02330 010603 STA LGM2 02331 005362 LDA NUSTAT 02332 013756 ERA (LIMBO) 02333 100040 SZE 02334 003337 JMP LINSTC 02335 020553 JST FLG 02336 003356 JMP NXTLIN 02337 073735 LINSTC: LDX (LINST) 02340 005303 LDA LINENO 02341 020531 JST ILD /LINE CHANGE IN 15 MIN TABLE+LOG 02342 003356 JMP NXTLIN 02343 005362 LDA NUSTAT /LINE CHANGE IN LIGHTS 02344 023757 CAS (UPMESS) 02345 100000 SKP 02346 003363 JMP LIN11 02347 023760 CAS (LINDNP) 02350 100000 SKP 02351 003372 JMP LIN10 02352 023761 CAS (LINDNM) 02353 100000 SKP 02354 003401 JMP LIN01 02355 003410 JMP LIN00 02356 025303 NXTLIN: IRS LINENO 02357 025227 IRS CNTER 02360 003311 JMP LINSTS 02361 003471 JMP TO25MS 02362 000000 NUSTAT: 0 PAGE 31 NCC,52,FTR 10:05 PM 11/5/1971 02363 073762 LIN11: LDX (PLSP) 02364 021417 JST ONLINE 02365 073763 LDX (PLSN) 02366 021417 JST ONLINE 02367 073764 LDX (TOFL) 02370 021423 JST OFLINE 02371 003356 JMP NXTLIN 02372 073762 LIN10: LDX (PLSP) 02373 021423 JST OFLINE 02374 073763 LDX (PLSN) 02375 021417 JST ONLINE 02376 073764 LDX (TOFL) 02377 021417 JST ONLINE 02400 003356 JMP NXTLIN 02401 073762 LIN01: LDX (PLSP) 02402 021417 JST ONLINE 02403 073763 LDX (PLSN) 02404 021423 JST OFLINE 02405 073764 LDX (TOFL) 02406 021417 JST ONLINE 02407 003356 JMP NXTLIN 02410 073762 LIN00: LDX (PLSP) 02411 021423 JST OFLINE 02412 073763 LDX (PLSN) 02413 021423 JST OFLINE 02414 073764 LDX (TOFL) 02415 021417 JST ONLINE 02416 003356 JMP NXTLIN 02417 000000 ONLINE: 0 02420 005303 LDA LINENO 02421 021446 JST SET1 02422 103417 JMP ONLINE I 02423 000000 OFLINE: 0 02424 005303 LDA LINENO 02425 021427 JST SET0 02426 103423 JMP OFLINE I PAGE 32 NCC,52,FTR 10:05 PM 11/5/1971 /X=ADDRESS OF WORD, AC=BIT POSITION /WONT WORK FOR AC<1, AC>32 02427 000000 SET0: 0 02430 023765 CAS (16.) 02431 021465 JST SET16 02432 101000 NOP 02433 017766 SUB (41701) 02434 140407 TCA 02435 011441 STA SET0T1 02436 017767 SUB (1000) 02437 011443 STA SET0T2 02440 044000 LDA 0 X 02441 000000 SET0T1: 0 02442 140100 SSP 02443 000000 SET0T2: 0 02444 050000 STA 0 X 02445 103427 JMP SET0 I 02446 000000 SET1: 0 02447 023765 CAS (16.) 02450 021465 JST SET16 02451 101000 NOP 02452 017766 SUB (41701) 02453 140407 TCA 02454 011460 STA SET1T1 02455 017767 SUB (1000) 02456 011462 STA SET1T2 02457 044000 LDA 0 X 02460 000000 SET1T1: 0 02461 140500 SSM 02462 000000 SET1T2: 0 02463 050000 STA 0 X 02464 103446 JMP SET1 I 02465 000000 SET16: 0 02466 017765 SUB (16.) 02467 024000 IRS 0 02470 103465 JMP SET16 I PAGE 33 NCC,52,FTR 10:05 PM 11/5/1971 02471 025704 TO25MS: IRS TOFK 02472 003500 JMP .+6 02473 005702 LDA TOFW 02474 140401 CMA 02475 011702 STA TOFW 02476 005770 LDA (-10.) 02477 011704 STA TOFK 02500 140040 CRA 02501 100020 SR1 02502 004503 LDA RUNQ 02503 014470 ADD RQUICK 02504 010470 STA RQUICK 02505 100010 SR2 02506 003664 JMP TOEND 02507 131030 NCCSWS 02510 003507 JMP .-1 02511 011707 STA TONCC 02512 007771 ANA (SFRZP) 02513 027710 IMA TFRZP 02514 013710 ERA TFRZP 02515 101040 SNZ 02516 003524 JMP TOSWS1 02517 005710 LDA TFRZP 02520 100040 SZE 02521 005716 LDA (30.) 02522 013716 ERA (30.) 02523 010456 STA PFREZ 02524 005707 TOSWS1: LDA TONCC 02525 007772 ANA (SFRZP1) 02526 027711 IMA TFRZP1 02527 013711 ERA TFRZP1 02530 101040 SNZ 02531 003537 JMP TOSWS2 02532 005711 LDA TFRZP1 02533 100040 SZE 02534 005716 LDA (30.) 02535 013716 ERA (30.) 02536 010457 STA PFREZ1 02537 005707 TOSWS2: LDA TONCC 02540 007734 ANA (SFREZT) 02541 027712 IMA TFRZT 02542 013712 ERA TFRZT 02543 101040 SNZ 02544 003557 JMP TOFLSH 02545 005712 LDA TFRZT 02546 100040 SZE 02547 005716 LDA (30.) 02550 013716 ERA (30.) 02551 011230 STA TFREEZ 02552 100040 SZE 02553 005742 LDA (NCTIMS^XNCTIMR) 02554 013773 ERA (NCTIMR) 02555 010603 STA LGM2 02556 020553 JST FLG PAGE 34 NCC,52,FTR 10:05 PM 11/5/1971 02557 005707 TOFLSH: LDA TONCC 02560 007742 ANA (SCLEAR) 02561 100040 SZE 02562 003570 JMP TOBUZZ 02563 140040 CRA /CLEAR FLASHER 02564 010135 STA TOFI 02565 010136 STA TOFI+1 02566 010137 STA TOFL 02567 010140 STA TOFL+1 02570 004135 TOBUZZ: LDA TOFI /IF FLASHER CLEAR,TURN OFF BUZZER 02571 014136 ADD TOFI+1 02572 100040 SZE 02573 003606 JMP TOBUZ2 02574 005707 LDA TONCC 02575 007765 ANA (SBUZZ) 02576 101040 SNZ 02577 003604 JMP TOBUZ1 02600 004137 LDA TOFL 02601 014140 ADD TOFL+1 02602 100040 SZE 02603 003606 JMP TOBUZ2 02604 030031 TOBUZ1: NCCBZF 02605 100000 SKP 02606 030030 TOBUZ2: NCCBZN /IF FLASHER ON,TURN ON BUZZER 02607 005707 LDA TONCC 02610 007774 ANA (SLTEST) 02611 101040 SNZ 02612 003654 JMP TOLIT6 02613 005707 LDA TONCC 02614 007775 ANA (SLINEM) 02615 101040 SNZ 02616 003644 JMP TOLIT5 02617 005707 LDA TONCC 02620 007741 ANA (SLINEP) 02621 101040 SNZ 02622 003634 JMP TOLIT4 02623 003624 JMP TOLIT3 PAGE 35 NCC,52,FTR 10:05 PM 11/5/1971 02624 004135 TOLIT3: LDA TOFI /IMP STATUS 02625 007702 ANA TOFW 02626 012127 ERA ITAB 02627 011703 STA TOLITW 02630 004136 LDA TOFI+1 02631 007702 ANA TOFW 02632 012130 ERA ITAB+1 02633 003656 JMP TOLITS 02634 004137 TOLIT4: LDA TOFL /PLUS LINE STATUS 02635 007702 ANA TOFW 02636 012131 ERA PLSP 02637 011703 STA TOLITW 02640 004140 LDA TOFL+1 02641 007702 ANA TOFW 02642 012132 ERA PLSP+1 02643 003656 JMP TOLITS 02644 004137 TOLIT5: LDA TOFL /MINUS LINE STATUS 02645 007702 ANA TOFW 02646 012133 ERA PLSN 02647 011703 STA TOLITW 02650 004140 LDA TOFL+1 02651 007702 ANA TOFW 02652 012134 ERA PLSN+1 02653 003656 JMP TOLITS 02654 005776 TOLIT6: LDA (-1) /LAMP TEST 02655 011703 STA TOLITW 02656 170131 TOLITS: NCCLT2 02657 003656 JMP .-1 02660 005703 LDA TOLITW 02661 170130 NCCLT1 02662 003661 JMP .-1 02663 003664 JMP TOEND PAGE 36 NCC,52,FTR 10:05 PM 11/5/1971 02664 001001 TOEND: INH 02665 005776 LDA (-1) 02666 170020 SMK 20 02667 004450 LDA MASK2 02670 170120 SMK 120 02671 005701 LDA TOB 02672 000201 IAB 02673 005700 LDA TOA 02674 073677 LDX TOX 02675 000401 ENB 02676 103000 JMP TOR I 02677 000000 TOX: 0 02700 000000 TOA: 0 02701 000000 TOB: 0 02702 000000 TOFW: 0 02703 000000 TOLITW: 0 02704 177766 TOFK: -10. 02705 173330 TOTICK: -4450 02706 177761 TO15K: -15. 02707 000000 TONCC: 0 02710 000000 TFRZP: 0 02711 000000 TFRZP1: 0 02712 000000 TFRZT: 0 PAGE 37 NCC,52,FTR 10:05 PM 11/5/1971 02713 173330 FIN 02714 000074 02715 000055 02716 000036 02717 000017 02720 173347 02721 000007 02722 000030 02723 176000 02724 011000 02725 042000 02726 044000 02727 005203 02730 177700 02731 017000 02732 040100 02733 040200 02734 020000 02735 021410 02736 177770 02737 177640 02740 073567 02741 000010 02742 000001 02743 177740 02744 000003 02745 000127 02746 000135 02747 000053 02750 177773 02751 003633 02752 000405 02753 000345 02754 000000 02755 004467 02756 000060 02757 000054 02760 000051 02761 000052 02762 000131 02763 000133 02764 000137 02765 000020 02766 041701 02767 001000 02770 177766 02771 040000 02772 100000 02773 000063 02774 000002 02775 000004 02776 177777 PAGE 38 NCC,52,FTR 10:05 PM 11/5/1971 3000/ BHEAD=1 BCODE=3 BANOM=4 BFREE=5 BSANDF=6 BREAS=7 BVERS=8. BHLNUM=9. BHLSNT=10. BHLRCV=11. BRTSNT=12. BMOD1=13. BCHKSM=55. BPAD1=56. BDATA=BCODE-BPAD1 /ROUTINE TO PROCESS A BINARY TROUBLE REPORT 03000 000000 BTRP: 0 03001 033631 STX BTRX 03002 011626 STA BTRA 03003 000201 IAB 03004 011627 STA BTRB 03005 004447 LDA MASK1 03006 170120 SMK 120 03007 140040 CRA 03010 170020 SMK 20 03011 004141 BTRLOP: LDA BTRBEG 03012 101040 SNZ 03013 003613 JMP BTRPMT 03014 011056 STA WPTR 03015 010000 STA 0 03016 044000 LDA 0 X 03017 010141 STA BTRBEG 03020 100040 SZE 03021 003024 JMP BTRCHK 03022 005675 LDA (BTRBEG) 03023 010143 STA BTREND PAGE 39 NCC,52,FTR 10:05 PM 11/5/1971 03024 000401 BTRCHK: ENB 03025 044001 LDA BHEAD X 03026 013676 ERA (40300) 03027 007677 ANA (0 0 177777^XIMPMSK) 03030 100040 SZE 03031 003572 JMP BTRPEX /WRONG TYPE OF MESSAGE 03032 044001 LDA BHEAD X 03033 007700 ANA (IMPMSK) 03034 011057 STA IMPNUM 03035 041577 ALS 1 03036 141340 ICA 03037 011314 STA LGM2H 03040 044003 LDA BCODE X 03041 013701 ERA (101) 03042 100040 SZE 03043 003572 JMP BTRPEX 03044 005702 LDA (BDATA) 03045 011061 STA BCHKC 03046 140040 CRA 03047 054003 ADD BCODE X 03050 024000 IRS 0 03051 025061 IRS BCHKC 03052 003047 JMP .-3 03053 100040 SZE 03054 003572 JMP BTRPEX 03055 003062 JMP BTR 03056 000000 WPTR: 0 03057 000000 IMPNUM: 0 03060 000000 LINNUM: 0 03061 000000 BCHKC: 0 PAGE 40 NCC,52,FTR 10:05 PM 11/5/1971 03062 073057 BTR: LDX IMPNUM 03063 140040 CRA 03064 050245 STA IMPTIM X 03065 005314 LDA LGM2H 03066 013703 ERA (UPMESS) 03067 010603 STA LGM2 03070 073704 LDX (IMPST) 03071 005057 LDA IMPNUM 03072 020531 JST ILD /IMP UP IN 15 MIN TABLE+LOG 03073 003102 JMP BTRV 03074 073705 LDX (ITAB) 03075 005057 LDA IMPNUM 03076 121706 JST (SET1) I /IMP UP IN LIGHTS 03077 073707 LDX (TOFI) 03100 005057 LDA IMPNUM 03101 121710 JST (SET0) I /IMP OFF IN FLASHER 03102 073056 BTRV: LDX WPTR 03103 044010 LDA BVERS X /CHECK VERSION NO 03104 073057 LDX IMPNUM 03105 066145 IMA IMPVER X 03106 062145 CAS IMPVER X /= LAST VER? 03107 003115 JMP BTRV1 03110 100000 SKP 03111 003115 JMP BTRV1 03112 022114 CAS NOMVER /= NOMINAL VER? 03113 003115 JMP BTRV1 03114 003124 JMP BTRHL 03115 005314 BTRV1: LDA LGM2H 03116 013711 ERA (VERS) 03117 010603 STA LGM2 03120 044145 LDA IMPVER X 03121 010604 STA LGM3 03122 020553 JST FLG 03123 003124 JMP BTRHL PAGE 41 NCC,52,FTR 10:05 PM 11/5/1971 03124 073056 BTRHL: LDX WPTR /CHECK HOST TEST 03125 044011 LDA BHLNUM X 03126 100400 SPL 03127 005712 LDA (-1) 03130 141206 AOA 03131 011173 STA HTEST 03132 073057 LDX IMPNUM 03133 066305 IMA IMPHTS X 03134 062305 CAS IMPHTS X 03135 100000 SKP 03136 003170 JMP BTRHL3 03137 101040 SNZ 03140 003146 JMP BTRHL1 03141 010604 STA LGM3 /HOST TEST OFF 03142 005314 LDA LGM2H 03143 013713 ERA (HTSTOF) 03144 010603 STA LGM2 03145 020553 JST FLG 03146 005173 BTRHL1: LDA HTEST 03147 101040 SNZ 03150 003174 JMP BTRCNT 03151 010604 STA LGM3 /HOST TEST ON 03152 005314 LDA LGM2H 03153 013714 ERA (HTSTON) 03154 010603 STA LGM2 03155 020553 JST FLG 03156 073056 BTRHL2: LDX WPTR 03157 044012 LDA BHLSNT X 03160 141240 ICR 03161 052013 ERA BHLRCV X 03162 010604 STA LGM3 /HOST TEST COUNTS 03163 005314 LDA LGM2H 03164 013715 ERA (HSTERR) 03165 010603 STA LGM2 03166 020553 JST FLG 03167 003174 JMP BTRCNT 03170 101040 BTRHL3: SNZ 03171 003174 JMP BTRCNT 03172 003156 JMP BTRHL2 03173 000000 HTEST: 0 PAGE 42 NCC,52,FTR 10:05 PM 11/5/1971 03174 073056 BTRCNT: LDX WPTR 03175 005314 LDA LGM2H /CHECK FREE LIST 03176 013716 ERA (FREEM) 03177 010603 STA LGM2 03200 044005 LDA BFREE X 03201 017250 SUB OFFCNT 03202 010604 STA LGM3 03203 016121 SUB FREEL 03204 100400 SPL 03205 003212 JMP BTRCN1 03206 004122 LDA FREEH 03207 056005 SUB BFREE X 03210 015250 ADD OFFCNT 03211 100400 SPL 03212 020553 BTRCN1: JST FLG 03213 005314 LDA LGM2H /CHECK S+P ROOM 03214 013717 ERA (SANDFM) 03215 010603 STA LGM2 03216 044006 LDA BSANDF X 03217 017250 SUB OFFCNT 03220 010604 STA LGM3 03221 016123 SUB SANDFL 03222 100400 SPL 03223 003230 JMP BTRCN2 03224 004124 LDA SANDFH 03225 056006 SUB BSANDF X 03226 015250 ADD OFFCNT 03227 100400 SPL 03230 020553 BTRCN2: JST FLG 03231 005314 LDA LGM2H /CHECK REAS ROOM 03232 013720 ERA (REASM) 03233 010603 STA LGM2 03234 044007 LDA BREAS X 03235 017250 SUB OFFCNT 03236 010604 STA LGM3 03237 016125 SUB REASL 03240 100400 SPL 03241 003246 JMP BTRCN3 03242 004126 LDA REASH 03243 056007 SUB BREAS X 03244 015250 ADD OFFCNT 03245 100400 SPL 03246 020553 BTRCN3: JST FLG 03247 003251 JMP BTRAS 03250 001000 OFFCNT: 1000 PAGE 43 NCC,52,FTR 10:05 PM 11/5/1971 03251 073056 BTRAS: LDX WPTR /CHECK ANOMALIES 03252 044004 LDA BANOM X 03253 011666 STA BTRT1 /TEMP 03254 073057 LDX IMPNUM 03255 052205 ERA IMPANM X /XOR WITH OLD=CHANGES 03256 101040 SNZ 03257 003315 JMP BTRMOD /NO CHANGES OCCURED 03260 011667 STA BTRT2 /TEMP 03261 046205 ANA IMPANM X /=BITS LOST 03262 007721 ANA (MANOML) 03263 011670 STA BTRPS1 03264 005667 LDA BTRT2 03265 007666 ANA BTRT1 /=BITS GAINED 03266 000201 IAB /TEST BITS NOW 03267 005314 LDA LGM2H 03270 010603 STA LGM2 03271 021301 JST ANOMS 03272 005670 LDA BTRPS1 03273 000201 IAB 03274 021301 JST ANOMS 03275 005666 LDA BTRT1 /UPDATE TABLE NOW 03276 007721 ANA (MANOML) /REMOVE RELOAD,CKSUM BITS 03277 050205 STA IMPANM X 03300 003315 JMP BTRMOD 03301 000000 ANOMS: 0 03302 005722 LDA (-16.) 03303 011313 STA ANOML 03304 041077 ANOMLP: LLL 1 03305 100100 SLZ 03306 020553 JST FLG 03307 024603 IRS LGM2 03310 025313 IRS ANOML 03311 003304 JMP ANOMLP 03312 103301 JMP ANOMS I 03313 000000 ANOML: 0 03314 000000 LGM2H: 0 PAGE 44 NCC,52,FTR 10:05 PM 11/5/1971 03315 005723 BTRMOD: LDA (-NMODEM) 03316 011674 STA BTRMC /MODEM COUNTER 03317 005724 LDA (1) 03320 011671 STA BTRMDK /MODEM NUMBER COUNTER 03321 073056 LDX WPTR 03322 044014 LDA BRTSNT X 03323 011673 STA RTSSNT 03324 005056 LDA WPTR 03325 015725 ADD (BMOD1) 03326 011630 STA BTRWRD 03327 005671 BTRMLP: LDA BTRMDK 03330 041473 LGL 5 03331 015057 ADD IMPNUM 03332 021633 JST BTRLN /FIND LINE NUMBER 03333 003364 JMP NOEND 03334 003350 JMP HIEND 03335 015726 LOEND: ADD (LINMIN) 03336 011664 STA LINSLT 03337 005727 LDA (EXCERM) 03340 011663 STA LINERR 03341 005060 LDA LINNUM 03342 041577 ALS 1 03343 015730 ADD (LTP1) 03344 011662 STA LINADD 03345 105731 LDA (0 0 MODLNS+LINES X) I 03346 141050 CAL 03347 003403 JMP BTHEND 03350 015732 HIEND: ADD (LINPLS) 03351 011664 STA LINSLT 03352 005733 LDA (EXCERP) 03353 011663 STA LINERR 03354 005060 LDA LINNUM 03355 041577 ALS 1 03356 141206 AOA 03357 015730 ADD (LTP1) 03360 011662 STA LINADD 03361 105731 LDA (0 0 MODLNS+LINES X) I 03362 141140 ICL 03363 003403 JMP BTHEND 03364 105630 NOEND: LDA BTRWRD I 03365 100400 SPL 03366 003546 JMP BTRMNX 03367 041677 ALR 1 03370 100400 SPL 03371 003546 JMP BTRMNX 03372 005314 BTRCFG: LDA LGM2H 03373 013734 ERA (CONFIG) 03374 010603 STA LGM2 03375 105630 LDA BTRWRD I 03376 007735 ANA (17400) 03377 013671 ERA BTRMDK 03400 010604 STA LGM3 03401 020553 JST FLG /CONFIGURATION CHANGE IN LOGGER 03402 003546 JMP BTRMNX PAGE 45 NCC,52,FTR 10:05 PM 11/5/1971 03403 011665 BTHEND: STA LINIMP 03404 105630 LDA BTRWRD I 03405 141050 CAL 03406 011672 STA BTRLE 03407 105630 LDA BTRWRD I 03410 100400 SPL 03411 003425 JMP MODDN 03412 041677 ALR 1 03413 100400 SPL 03414 003435 JMP MODLP 03415 040677 ARR 1 03416 141140 ICL 03417 013665 ERA LINIMP 03420 007700 ANA (IMPMSK) 03421 100040 SZE 03422 003372 JMP BTRCFG 03423 005724 LDA (BTRUP) 03424 003437 JMP BTRLTP 03425 141050 MODDN: CAL 03426 022120 CAS ERRCL2 03427 003433 JMP .+4 03430 101000 NOP 03431 005736 LDA (BTRDNN) 03432 003437 JMP BTRLTP 03433 005737 LDA (BTRDNE) 03434 003437 JMP BTRLTP 03435 005740 MODLP: LDA (BTRLP) 03436 003437 JMP BTRLTP 03437 111664 BTRLTP: STA LINSLT I 03440 073630 LDX BTRWRD 03441 044001 LDA 1 X 03442 073662 LDX LINADD 03443 100040 SZE 03444 121741 JST (ADDER) I 03445 073742 LDX (LINST) 03446 005672 LDA BTRLE 03447 022117 CAS ERRCLP 03450 003453 JMP .+3 03451 003473 JMP LERR0 03452 003473 JMP LERR0 03453 023673 CAS RTSSNT 03454 003515 JMP LERR1 03455 003515 JMP LERR1 03456 005060 BTRERR: LDA LINNUM 03457 041577 ALS 1 03460 141206 AOA 03461 141340 ICA 03462 013663 ERA LINERR 03463 010603 STA LGM2 03464 005673 LDA RTSSNT 03465 141240 ICR 03466 013672 ERA BTRLE 03467 140100 SSP 03470 010604 STA LGM3 03471 020553 JST FLG /LINE ERRORS IN LOGGER 03472 003546 JMP BTRMNX PAGE 46 NCC,52,FTR 10:05 PM 11/5/1971 03473 023673 LERR0: CAS RTSSNT 03474 003546 JMP BTRMNX 03475 003546 JMP BTRMNX 03476 005060 LDA LINNUM 03477 020511 JST ILR 03500 007743 ANA (7) 03501 015504 ADD LERR0J 03502 011503 STA .+1 03503 000000 0 03504 003505 LERR0J: JMP .+1 03505 003456 JMP BTRERR /UNK 03506 003546 JMP BTRMNX /DOWN + 03507 003546 JMP BTRMNX /DOWN - 03510 003546 JMP BTRMNX /DOWN 03511 003546 JMP BTRMNX /UP 03512 003534 JMP BTRER1 /LOOP + 03513 003541 JMP BTRER2 /LOOP - 03514 003546 JMP BTRMNX /LOOP B 03515 005060 LERR1: LDA LINNUM 03516 020511 JST ILR 03517 007743 ANA (7) 03520 015523 ADD LERR1J 03521 011522 STA .+1 03522 000000 0 03523 003524 LERR1J: JMP .+1 03524 003546 JMP BTRMNX /UNK 03525 003546 JMP BTRMNX /DOWN + 03526 003546 JMP BTRMNX /DOWN - 03527 003546 JMP BTRMNX /DOWN 03530 003456 JMP BTRERR /UP 03531 003541 JMP BTRER2 /LOOP + 03532 003534 JMP BTRER1 /LOOP - 03533 003456 JMP BTRERR /LOOP B 03534 005663 BTRER1: LDA LINERR 03535 013727 ERA (EXCERM) 03536 101040 SNZ 03537 003456 JMP BTRERR 03540 003546 JMP BTRMNX 03541 005663 BTRER2: LDA LINERR 03542 013733 ERA (EXCERP) 03543 101040 SNZ 03544 003456 JMP BTRERR 03545 003546 JMP BTRMNX 03546 025671 BTRMNX: IRS BTRMDK 03547 025630 IRS BTRWRD 03550 025630 IRS BTRWRD 03551 025674 IRS BTRMC 03552 003327 JMP BTRMLP 03553 003554 JMP BTRHTP PAGE 47 NCC,52,FTR 10:05 PM 11/5/1971 03554 005057 BTRHTP: LDA IMPNUM 03555 041573 ALS 5 0^AIMPHTP /MUL BY IMPHTP 03556 015744 ADD (HTP1) /TABLE ADDRESS 03557 010000 STA 0 /SLOT ADDRESS 03560 005745 LDA (-IMPHTP) /NHOST BY NHTP 03561 011632 STA BTRHK 03562 105630 BTRH1: LDA BTRWRD I /GET H.T.P. 03563 100040 SZE 03564 121741 JST (ADDER) I 03565 024000 IRS 0 03566 025630 IRS BTRWRD 03567 025632 IRS BTRHK 03570 003562 JMP BTRH1 03571 003572 JMP BTRPEX 03572 005746 BTRPEX: LDA (-BUFINL) 03573 011632 STA BTRHK 03574 140040 CRA 03575 073056 LDX WPTR 03576 024000 IRS 0 03577 050000 STA 0 X 03600 025632 IRS BTRHK 03601 003576 JMP .-3 03602 005056 LDA WPTR /GET BUFFER WE USED 03603 001001 INH 03604 026144 IMA FREE 03605 110144 STA FREE I /FREE IT 03606 004142 LDA HIBFP 03607 101040 SNZ /IS IT FIRST TO COME FREE? 03611 121747 JST (HSTINT) I /YES, HOST IS WAITING FOR IT 03611 000401 ENB 03612 003011 JMP BTRLOP /SEE IF ANY MORE 03613 001001 BTRPMT: INH /NO MORE BTRS 03614 004450 LDA MASK2 03615 170120 SMK 120 03616 005712 LDA (-1) 03617 170020 SMK 20 03620 005627 LDA BTRB 03621 000201 IAB 03622 005626 LDA BTRA 03623 073631 LDX BTRX 03624 000401 ENB 03625 103000 JMP BTRP I 03626 000000 BTRA: 0 03627 000000 BTRB: 0 03630 000000 BTRWRD: 0 03631 000000 BTRX: 0 03632 000000 BTRHK: 0 PAGE 48 NCC,52,FTR 10:05 PM 11/5/1971 /THIS ROUTINES FINDS THE LINE SPECIFIED /BY THE IMP NUMBERS AT ONE ENDS /NO SKIP = NOT FOUND /1 SKIP = PLUS END /2 SKIP = MINUS END 03633 000000 BTRLN: 0 /GET LINE NUMBER 03634 011661 STA BTRLC 03635 073745 LDX (-LINES) 03636 105731 BTRL3: LDA (0 0 MODLNS+LINES X) I 03637 141140 ICL 03640 017661 SUB BTRLC 03641 101040 SNZ 03642 003653 JMP BTRL1 03643 105731 LDA (0 0 MODLNS+LINES X) I 03644 141050 CAL 03645 017661 SUB BTRLC 03646 101040 SNZ 03647 003654 JMP BTRL2 03650 024000 IRS 0 03651 003636 JMP BTRL3 03652 103633 JMP BTRLN I /NOT FOUND 03653 025633 BTRL1: IRS BTRLN 03654 025633 BTRL2: IRS BTRLN 03655 004000 LDA 0 03656 015733 ADD (LINES+1) 03657 011060 STA LINNUM 03660 103633 JMP BTRLN I 03661 000000 BTRLC: 0 03662 000000 LINADD: 0 03663 000000 LINERR: 0 03664 000000 LINSLT: 0 03665 000000 LINIMP: 0 03666 000000 BTRT1: 0 03667 000000 BTRT2: 0 03670 000000 BTRPS1: 0 03671 000000 BTRMDK: 0 03672 000000 BTRLE: 0 03673 000000 RTSSNT: 0 03674 000000 BTRMC: 0 PAGE 49 NCC,52,FTR 10:05 PM 11/5/1971 03675 000141 FIN 03676 040300 03677 177740 03700 000037 03701 000101 03702 177713 03703 000054 03704 020000 03705 000127 03706 002446 03707 000135 03710 002427 03711 000040 03712 177777 03713 000065 03714 000064 03715 000043 03716 000044 03717 000045 03720 000046 03721 177717 03722 177760 03723 177773 03724 000001 03725 000015 03726 000405 03727 000042 03730 017100 03731 047040 03732 000345 03733 000041 03734 000047 03735 017400 03736 000002 03737 000003 03740 000004 03741 005203 03742 021410 03743 000007 03744 013000 03745 177740 03746 177702 03747 006632 PAGE 50 NCC,52,FTR 10:05 PM 11/5/1971 4000/ 04000 072606 LOGGER: LDX LOGOTP 04001 044001 LDA 1 X 04002 141340 ICA 04003 007613 ANA (1) 04004 011367 STA LPTYPE 04005 044001 LDA 1 X 04006 141050 CAL 04007 011370 STA LPCODE 04010 044001 LDA 1 X 04011 141140 ICL 04012 040477 LGR 1 04013 011371 STA LPNUM 04014 004463 LDA PFLG1 04015 101040 SNZ 04016 003060 JMP LOGGIT 04017 021412 JST FORM1 04020 004106 LDA HOUR 04021 021263 JST TYPEZ2 04022 004105 LDA MIN 04023 021263 JST TYPEZ2 04024 005614 LDA (2) 04025 021454 JST SPACE1 04026 072110 LDX MONTH 04027 105615 LDA (0 0 HMONTH-1 X) I 04030 021141 JST LMESS 04031 005616 LDA (240) 04032 020634 JST PRNT1 04033 004107 LDA DAY 04034 021255 JST TYPEN2 04035 005614 LDA (2) 04036 021454 JST SPACE1 04037 005617 LDA (19.) 04040 021255 JST TYPEN2 04041 004111 LDA YEAR 04042 021255 JST TYPEN2 04043 005620 LDA (PARPA) 04044 021141 JST LMESS 04045 005621 LDA (PLOG) 04046 021141 JST LMESS 04047 005622 LDA (10) 04050 021454 JST SPACE1 04051 005623 LDA (PPAGE) 04052 021141 JST LMESS 04053 024445 IRS PAGEL 04054 004445 LDA PAGEL 04055 021225 JST TYPEN4 04056 005624 LDA (CRLF2) 04057 021141 JST LMESS PAGE 51 NCC,52,FTR 10:05 PM 11/5/1971 04060 005370 LOGGIT: LDA LPCODE 04061 017625 SUB (UNKNOW) 04062 100400 SPL 04063 003066 JMP .+3 04064 005626 LDA (CRLF) 04065 021141 JST LMESS 04066 072606 LDX LOGOTP 04067 044000 LDA 0 X 04070 027140 IMA LPLTIM 04071 013140 ERA LPLTIM /SEE IF TIME CHANGED, AND UPDATE 04072 101040 SNZ 04073 003100 JMP LP1 04074 005140 LDA LPLTIM 04075 021233 JST TYPEZ4 04076 073627 LDX (-1) 04077 100000 SKP 04100 073630 LP1: LDX (-5) 04101 005616 LDA (240) 04102 020634 JST PRNT1 04103 024000 IRS 0 04104 003101 JMP .-3 04105 005371 LDA LPNUM 04106 101040 SNZ 04107 003121 JMP LP2 04110 073367 LDX LPTYPE 04111 045372 LDA LDHDRT X 04112 021141 JST LMESS 04113 005371 LDA LPNUM 04114 021255 JST TYPEN2 04115 005631 LDA (272) 04116 020634 JST PRNT1 04117 005616 LDA (240) 04120 020634 JST PRNT1 04121 073370 LP2: LDX LPCODE 04122 045525 LDA CODTXT X 04123 021141 JST LMESS 04124 005370 LDA LPCODE 04125 017625 SUB (UNKNOW) 04126 101400 SMI 04127 003132 JMP .+3 04130 005626 LDA (CRLF) 04131 100000 SKP 04132 005632 LDA (LFLAG) 04133 021141 JST LMESS 04134 005633 LDA (3) 04135 014606 ADD LOGOTP 04136 010606 STA LOGOTP 04137 103634 JMP (TTWAK1) I /RETURN 04140 000000 LPLTIM: 0 /TIME OF MESSAGE PAGE 52 NCC,52,FTR 10:05 PM 11/5/1971 04141 000000 LMESS: 0 /LOG PRINTER ROUTINE 04142 011366 STA CHNDX 04143 140040 CRA 04144 011365 STA CHNDF 04145 021347 TXTLP2: JST CHND /UNPACK A CHAR 04146 101040 SNZ 04147 103141 JMP LMESS I /0 TERMINATES THE STRING 04150 023635 CAS (204) 04151 020634 JST PRNT1 04152 003145 JMP TXTLP2 04153 072606 LDX LOGOTP 04154 023636 CAS (202) 04155 003210 JMP TYPEOC 04156 003162 JMP TXTPR2 04157 044002 LDA 2 X 04160 141140 ICL /PRNT LEFT HALF 04161 003166 JMP TXTPR3 04162 044002 TXTPR2: LDA 2 X 04163 100400 SPL /PRNT RIGHT HALF 04164 003171 JMP TXTPRM 04165 141050 CAL 04166 101040 TXTPR3: SNZ 04167 003203 JMP TXTPR0 04170 003176 JMP TXTPRN 04171 005637 TXTPRM: LDA (255) 04172 020634 JST PRNT1 04173 044002 LDA 2 X 04174 140407 TCA 04175 141050 CAL 04176 023640 TXTPRN: CAS (99.) 04177 005640 LDA (99.) 04200 101000 NOP 04201 021255 JST TYPEN2 04202 003145 JMP TXTLP2 04203 005616 TXTPR0: LDA (240) 04204 020634 JST PRNT1 04205 005641 LDA (260) 04206 020634 JST PRNT1 04207 003145 JMP TXTLP2 04210 044002 TYPEOC: LDA 2 X 04211 000201 IAB 04212 140040 CRA 04213 011322 STA LDZER1 04214 041077 LLL 1 04215 021305 JST TYPEN1 04216 073630 LDX (-5) 04217 140040 TYPOC1: CRA 04220 041075 LLL 3 04221 021305 JST TYPEN1 04222 024000 IRS 0 04223 003217 JMP TYPOC1 04224 003145 JMP TXTLP2 PAGE 53 NCC,52,FTR 10:05 PM 11/5/1971 04225 000000 TYPEN4: 0 04226 011322 STA LDZER1 04227 140040 CRA 04230 027322 IMA LDZER1 04231 021241 JST TYP4 04232 103225 JMP TYPEN4 I 04233 000000 TYPEZ4: 0 04234 011322 STA LDZER1 04235 005613 LDA (1) 04236 027322 IMA LDZER1 04237 021241 JST TYP4 04240 103233 JMP TYPEZ4 I 04241 000000 TYP4: 0 04242 011344 STA TYPT 04243 005642 LDA (-100.) 04244 021323 JST DIVAC 04245 017642 SUB (-100.) 04246 011254 STA TYP4T 04247 005346 LDA DIVQ 04250 021271 JST TYP2 04251 005254 LDA TYP4T 04252 021271 JST TYP2 04253 103241 JMP TYP4 I 04254 000000 TYP4T: 0 04255 000000 TYPEN2: 0 04256 011322 STA LDZER1 04257 140040 CRA 04260 027322 IMA LDZER1 04261 021271 JST TYP2 04262 103255 JMP TYPEN2 I 04263 000000 TYPEZ2: 0 04264 011322 STA LDZER1 04265 005613 LDA (1) 04266 027322 IMA LDZER1 04267 021271 JST TYP2 04270 103263 JMP TYPEZ2 I 04271 000000 TYP2: 0 04272 011344 STA TYPT 04273 005643 LDA (-10.) 04274 021323 JST DIVAC 04275 017643 SUB (-10.) 04276 011304 STA TYP2T 04277 005346 LDA DIVQ 04300 021305 JST TYPEN1 04301 005304 LDA TYP2T 04302 021305 JST TYPEN1 04303 103271 JMP TYP2 I 04304 000000 TYP2T: 0 PAGE 54 NCC,52,FTR 10:05 PM 11/5/1971 04305 000000 TYPEN1: 0 04306 101040 SNZ 04307 003314 JMP TYPEZ1 04310 011322 STA LDZER1 04311 015641 ADD (260) 04312 020634 JST PRNT1 04313 103305 JMP TYPEN1 I 04314 005322 TYPEZ1: LDA LDZER1 04315 100040 SZE 04316 005644 LDA (20) 04317 015616 ADD (240) 04320 020634 JST PRNT1 04321 103305 JMP TYPEN1 I 04322 000000 LDZER1: 0 04323 000000 DIVAC: 0 04324 011345 STA DIVACT 04325 140040 CRA 04326 011346 STA DIVQ 04327 005344 LDA TYPT 04330 101400 DIVA1: SMI 04331 003336 JMP DIVA2 04332 015345 ADD DIVACT 04333 025346 IRS DIVQ 04334 003330 JMP DIVA1 04335 000000 HLT 04336 015345 DIVA2: ADD DIVACT 04337 100400 SPL 04340 103323 JMP DIVAC I 04341 025346 IRS DIVQ 04342 003336 JMP DIVA2 04343 000000 HLT 04344 000000 TYPT: 0 04345 000000 DIVACT: 0 04346 000000 DIVQ: 0 PAGE 55 NCC,52,FTR 10:05 PM 11/5/1971 04347 000000 CHND: 0 04350 005365 LDA CHNDF 04351 100040 SZE 04352 003357 JMP CHND1 04353 025365 IRS CHNDF 04354 105366 LDA CHNDX I 04355 141140 ICL 04356 103347 JMP CHND I 04357 140040 CHND1: CRA 04360 011365 STA CHNDF 04361 105366 LDA CHNDX I 04362 141050 CAL 04363 025366 IRS CHNDX 04364 103347 JMP CHND I 04365 000000 CHNDF: 0 04366 000000 CHNDX: 0 04367 000000 LPTYPE: 0 /MESSAGE TYPE (I OP L) 04370 000000 LPCODE: 0 /ERROR CODE 04371 000000 LPNUM: 0 /I OR L NUMBER 04372 004374 LDHDRT: LTXI 04373 004377 LTXL 04374 120311 LTXI: .ASCII [ IMP #[ 04375 146720 04376 120000 04377 146311 LTXL: .ASCII [LINE #[ 04400 147305 04401 120000 04402 106612 CRLF: .ASCII [ 04403 000000 #[ 04404 120252 LFLAG: .ASCII [ ***** 04405 125252 04406 125252 04407 106612 04410 106612 04411 000000 #[ PAGE 56 NCC,52,FTR 10:05 PM 11/5/1971 04412 000000 FORM1: 0 04413 004466 LDA PLENG 04414 012461 ERA PGK1 04415 101040 SNZ 04416 003435 JMP FORMB1 04417 005645 LDA (215) 04420 020634 JST PRNT1 04421 004116 LDA TYPE1 04422 101040 SNZ 04423 003442 JMP FORMA1 04424 004461 LDA PGK1 04425 014467 ADD PHEAD 04426 101400 SMI 04427 003435 JMP FORMB1 04430 011453 STA FORMX1 04431 005646 LDA (212) 04432 020634 JST PRNT1 04433 025453 IRS FORMX1 04434 003431 JMP .-3 04435 004466 FORMB1: LDA PLENG 04436 010461 STA PGK1 04437 140040 CRA 04440 010463 STA PFLG1 04441 103412 JMP FORM1 I 04442 005647 FORMA1: LDA (214) 04443 020634 JST PRNT1 04444 005650 LDA (-20) 04445 011453 STA FORMX1 04446 005651 LDA (377) 04447 020634 JST PRNT1 04450 025453 IRS FORMX1 04451 003446 JMP .-3 04452 003435 JMP FORMB1 04453 000000 FORMX1: 0 04454 000000 SPACE1: 0 04455 101040 SNZ 04456 103454 JMP SPACE1 I 04457 140407 TCA 04460 011466 STA SPACK1 04461 005616 LDA (240) 04462 020634 JST PRNT1 04463 025466 IRS SPACK1 04464 003461 JMP .-3 04465 103454 JMP SPACE1 I 04466 000000 SPACK1: 0 PAGE 57 NCC,52,FTR 10:05 PM 11/5/1971 /TRANSITION TABLE FOR LINE STATUS 04467 004474 TRANST: TRANS0 /+ IMP NO INFO 04470 004501 TRANS1 /+ IMP SAYS UP 04471 004506 TRANS2 /+ IMP SAYS DOWN,NO ERR 04472 004513 TRANS3 /+ IMP SAYS DOWN,WITH ERR 04473 004520 TRANS4 /+ IMP SAYS LOOPED /+ IMP NO INFO 04474 000050 TRANS0: UNKNOW /- IMP NO INFO 04475 000054 UPMESS /- IMP SAYS UP 04476 000050 UNKNOW /- IMP SAYS DOWN,NO ERR 04477 000050 UNKNOW /- IMP SAYS DOWN,WITH ERR 04500 000056 LOOPM /- IMP SAYS LOOPED /+ IMP SAYS UP 04501 000054 TRANS1: UPMESS /- IMP NO INFO 04502 000054 UPMESS /- IMP SAYS UP 04503 000060 LIMBO /- IMP SAYS DOWN,NO ERR 04504 000060 LIMBO /- IMP SAYS DOWN,WITH ERR 04505 000060 LIMBO /- IMP SAYS LOOPED /+ IMP SAYS DOWN,NO ERR 04506 000050 TRANS2: UNKNOW /- IMP NO INFO 04507 000060 LIMBO /- IMP SAYS UP 04510 000053 DNMESS /- IMP SAYS DOWN,NO ERR 04511 000052 LINDNM /- IMP SAYS DOWN,WITH ERR 04512 000056 LOOPM /- IMP SAYS LOOPED /+ IMP SAYS DOWM,WITH ERR 04513 000050 TRANS3: UNKNOW /- IMP NO INFO 04514 000060 LIMBO /- IMP SAYS UP 04515 000051 LINDNP /- IMP SAYS DOWN,NO ERR 04516 000053 DNMESS /- IMP SAYS DOWN,WITH ERR 04517 000056 LOOPM /- IMP SAYS LOOPED /+ IMP SAYS LOOPED 04520 000055 TRANS4: LOOPP /- IMP NO INFO 04521 000060 LIMBO /- IMP SAYS UP 04522 000055 LOOPP /- IMP SAYS DOWN,NO ERR 04523 000055 LOOPP /- IMP SAYS DOWN,WITH ERR 04524 000057 LOOPB /- IMP SAYS LOOPED PAGE 58 NCC,52,FTR 10:05 PM 11/5/1971 04525 010257 CODTXT: LT00 04526 010264 LT01 04527 010271 LT02 04530 010276 LT03 04531 010303 LT04 04532 010311 LT05 04533 010317 LT06 04534 010327 LT07 04535 010335 LT10 04536 010342 LT11 04537 010352 LT12 04540 010362 LT13 04541 010373 LT14 04542 010377 LT15 04543 010403 LT16 04544 010407 LT17 04545 010413 LT20 04546 010420 LT21 04547 010425 LT22 04550 010432 LT23 04551 010437 LT24 04552 010446 LT25 04553 010455 LT26 04554 010465 LT27 04555 010474 LT30 04556 010501 LT31 04557 010511 LT32 04560 010512 LT33 04561 010513 LT34 04562 010517 LT35 04563 010523 LT36 04564 010527 LT37 04565 010533 LT40 04566 010540 LT41 04567 010551 LT42 04570 010562 LT43 04571 010571 LT44 04572 010577 LT45 04573 010605 LT46 04574 010614 LT47 04575 010631 LT50 04576 010635 LT51 04577 010642 LT52 04600 010647 LT53 04601 010651 LT54 04602 010653 LT55 04603 010662 LT56 04604 010671 LT57 04605 010700 LT60 04606 010705 LT61 04607 010714 LT62 04610 010727 LT63 04611 010741 LT64 04612 010750 LT65 PAGE 59 NCC,52,FTR 10:05 PM 11/5/1971 04613 000001 FIN 04614 000002 04615 047317 04616 000240 04617 000023 04620 007272 04621 007302 04622 000010 04623 007312 04624 007315 04625 000050 04626 004402 04627 177777 04630 177773 04631 000272 04632 004404 04633 000003 04634 010172 04635 000204 04636 000202 04637 000255 04640 000143 04641 000260 04642 177634 04643 177766 04644 000020 04645 000215 04646 000212 04647 000214 04650 177760 04651 000377 PAGE 60 NCC,52,FTR 10:05 PM 11/5/1971 5000/ /PRINT STATUS AS OF NOW 05000 021401 QUICKP: JST FORM 05001 005577 LDA (QI) 05002 021456 JST TEXT 05003 005600 LDA (7) 05004 011576 STA STATM 05005 004112 LDA NITP 05006 111601 STA (STATC) I 05007 005602 LDA (IMPST) 05010 111603 STA (STSTAB) I 05011 021541 JST STATP 05012 005604 LDA (215) 05013 020607 JST PRNT 05014 005605 LDA (212) 05015 020607 JST PRNT 05016 004113 LDA NLTP 05017 111601 STA (STATC) I 05020 021475 JST PNUM 05021 005606 LDA (LINST) 05022 111603 STA (STSTAB) I 05023 021541 JST STATP 05024 005607 LDA (QL) 05025 021456 JST TEXT PAGE 61 NCC,52,FTR 10:05 PM 11/5/1971 05026 005610 LDA (1) 05027 011101 STA PRMN /TABLE POINTER 05030 004112 LDA NITP 05031 011100 STA PRMK 05032 073101 PRAN3: LDX PRMN /CHECK ANOMALIES 05033 044205 LDA IMPANM X 05034 007611 ANA (MANOML) 05035 101040 SNZ 05036 003070 JMP PRAN2 /NO DATA 05037 000201 IAB 05040 005612 LDA (PR1) 05041 021456 JST TEXT 05042 005101 LDA PRMN 05043 021303 JST PRINT2 05044 005610 LDA (1) 05045 011076 STA PRANSP 05046 005613 LDA (-16.) 05047 011077 STA PRMKC 05050 073614 LDX (CODTXT) 05051 041077 PRANL: LLL 1 05052 101100 SLN 05053 003065 JMP PRANXT 05054 005600 LDA (7) 05055 027076 IMA PRANSP 05056 021443 JST SPACE 05057 044000 LDA 0 X 05060 021456 JST TEXT 05061 005604 LDA (215) 05062 020607 JST PRNT 05063 005605 LDA (212) 05064 020607 JST PRNT 05065 024000 PRANXT: IRS 0 05066 025077 IRS PRMKC 05067 003051 JMP PRANL 05070 025101 PRAN2: IRS PRMN 05071 025100 IRS PRMK 05072 003032 JMP PRAN3 05073 005610 LDA (1) 05074 010470 STA RQUICK 05075 103615 JMP (TTSLP) I 05076 000000 PRANSP: 0 05077 000000 PRMKC: 0 05100 000000 PRMK: 0 05101 000000 PRMN: 0 PAGE 62 NCC,52,FTR 10:05 PM 11/5/1971 /SUBROUTINE USED BY SUMMARY ROUTINE /CALL WITH X REG = ADDRESS OF THE WORD 05102 000000 PNTNOW: 0 /DOUBLE PRECISION PRINT. (8 COL) 05103 044000 LDA 0 X 05104 101400 SMI 05105 003122 JMP PSINGL 05106 023616 CAS (-1) 05107 100000 SKP 05110 003127 JMP POFLO 05111 040567 ARS 11 05112 007617 ANA (77) 05113 140401 CMA 05114 011176 STA PNTTM1 05115 044000 LDA 0 X 05116 041572 ALS 6 05117 140100 SSP 05120 011177 STA PNTTM3 05121 003135 JMP DPDIV 05122 011177 PSINGL: STA PNTTM3 05123 140040 CRA 05124 140401 CMA 05125 011176 STA PNTTM1 05126 003135 JMP DPDIV 05127 073620 POFLO: LDX (-8.) 05130 005621 LDA (253) 05131 020607 JST PRNT 05132 024000 IRS 0 05133 003130 JMP .-3 05134 103102 JMP PNTNOW I 05135 005177 DPDIV: LDA PNTTM3 05136 021153 JST PNTTM2 05137 011201 STA PNTTM7 05140 005200 LDA PNTTM4 05141 140401 CMA 05142 011176 STA PNTTM1 05143 005177 LDA PNTTM3 05144 021153 JST PNTTM2 05145 011202 STA PNTTM8 /SAVE NEXT 4 DIGITS 05146 005202 LDA PNTTM8 05147 021254 JST PRINT4 05150 005201 LDA PNTTM7 05151 021270 JST PRIN4 05152 103102 JMP PNTNOW+I PAGE 63 NCC,52,FTR 10:05 PM 11/5/1971 05153 000000 PNTTM2: 0 /DOUBLE PRECISION DIVIDE BY RADF 05154 027177 IMA PNTTM3 05155 140040 CRA 05156 011200 STA PNTTM4 05157 027177 PNTTM6: IMA PNTTM3 05160 015400 ADD RADF 05161 101400 SMI 05162 003167 JMP PNTTM5 05163 025176 IRS PNTTM1 05164 003167 JMP PNTTM5 05165 017400 SUB RADF /RESTORE REMAINDER 05166 103153 JMP PNTTM2+I 05167 140100 PNTTM5: SSP /ADD 1 TO QUOTIENT 05170 027177 IMA PNTTM3 05171 141206 AOA 05172 100400 SPL 05173 025200 IRS PNTTM4 05174 140100 SSP 05175 003157 JMP PNTTM6 05176 000000 PNTTM1: 0 05177 000000 PNTTM3: 0 05200 000000 PNTTM4: 0 05201 000000 PNTTM7: 0 05202 000000 PNTTM8: 0 PAGE 64 NCC,52,FTR 10:05 PM 11/5/1971 05203 000000 ADDER: 0 /FUNNY PRECISION ADDER 05204 011253 STA ADDEND 05205 100400 SPL 05206 003222 JMP ABIG 05207 044000 LDA 0 X 05210 100400 SPL 05211 003232 JMP XBIG 05212 015253 ADD ADDEND 05213 050000 STA 0 X 05214 101400 SMI 05215 103203 JMP ADDER I 05216 040472 LGR 6 05217 140500 SSM 05220 050000 STA 0 X 05221 103203 JMP ADDER I 05222 023616 ABIG: CAS (-1) 05223 100000 SKP 05224 003250 JMP OFLO 05225 044000 LDA 0 X 05226 100400 SPL 05227 003242 JMP AXBIG 05230 027253 IMA ADDEND 05231 050000 STA 0 X 05232 005253 XBIG: LDA ADDEND 05233 015622 ADD (40) 05234 040572 ARS 6 05235 054000 ADDXTA: ADD 0 X 05236 101400 SMI 05237 003250 JMP OFLO 05240 050000 STA 0 X 05241 103203 JMP ADDER I 05242 023616 AXBIG: CAS (-1) 05243 100000 SKP 05244 003250 JMP OFLO 05245 005253 LDA ADDEND 05246 140100 SSP 05247 003235 JMP ADDXTA 05250 005616 OFLO: LDA (-1) 05251 050000 STA 0 X 05252 103203 JMP ADDER I 05253 000000 ADDEND: 0 PAGE 65 NCC,52,FTR 10:05 PM 11/5/1971 05254 000000 PRINT4: 0 /SUPPRESS LEADING ZEROS 05255 011347 STA LDZERO 05256 140040 CRA 05257 027347 IMA LDZERO 05260 021270 JST PRIN4 05261 103254 JMP PRINT4 I 05262 000000 PRINZ4: 0 /PRINT LEADING ZEROS 05263 011347 STA LDZERO 05264 005610 LDA (1) 05265 027347 IMA LDZERO 05266 021270 JST PRIN4 05267 103262 JMP PRINZ4 I 05270 000000 PRIN4: 0 /FOR SUMMARY 05271 011371 STA ..PT 05272 005377 LDA RADS 05273 021350 JST PSUB 05274 017377 SUB RADS 05275 011375 STA PTR4 05276 005373 LDA PQ 05277 021317 JST PRIN2 05300 005375 LDA PTR4 05301 021317 JST PRIN2 05302 103270 JMP PRIN4 I 05303 000000 PRINT2: 0 /SUPPRESS LEADING ZEROS 05304 011347 STA LDZERO 05305 140040 CRA 05306 027347 IMA LDZERO 05307 021317 JST PRIN2 05310 103303 JMP PRINT2 I 05311 000000 PRINZ2: 0 /PRINT LEADING ZEROS 05312 011347 STA LDZERO 05313 005610 LDA (1) 05314 027347 IMA LDZERO 05315 021317 JST PRIN2 05316 103311 JMP PRINZ2 I 05317 000000 PRIN2: 0 /FOR SUMMARY 05320 011371 STA ..PT 05321 005376 LDA RAD 05322 021350 JST PSUB 05323 017376 SUB RAD 05324 011374 STA PTR2 05325 005373 LDA PQ 05326 021332 JST PRINT1 05327 005374 LDA PTR2 05330 021332 JST PRINT1 05331 103317 JMP PRIN2 I PAGE 66 NCC,52,FTR 10:05 PM 11/5/1971 05332 000000 PRINT1: 0 /FOR SUMMARY 05333 101040 SNZ 05334 003341 JMP PRINTZ 05335 011347 STA LDZERO 05336 015623 ADD (260) 05337 020607 JST PRNT 05340 103332 JMP PRINT1 I 05341 005347 PRINTZ: LDA LDZERO 05342 100040 SZE 05343 005624 LDA (20) 05344 015625 ADD (240) 05345 020607 JST PRNT 05346 103332 JMP PRINT1 I 05347 000000 LDZERO: 0 05350 000000 PSUB: 0 /DIVIDE BY AC 05351 011372 STA PT8 05352 140040 CRA 05353 011373 STA PQ 05354 005371 LDA ..PT 05355 101400 PSUB2.: SMI 05356 003363 JMP PSUB2 05357 015372 ADD PT8 05360 025373 IRS PQ 05361 003355 JMP PSUB2. 05362 000000 HLT 05363 015372 PSUB2: ADD PT8 05364 100400 SPL 05365 103350 JMP PSUB+I 05366 025373 IRS PQ 05367 003363 JMP PSUB2 05370 000000 HLT 05371 000000 ..PT: 0 05372 000000 PT8: 0 05373 000000 PQ: 0 05374 000000 PTR2: 0 05375 000000 PTR4: 0 05376 177766 RAD: -10. 05377 177634 RADS: -100. 05400 154360 RADF: -10000. PAGE 67 NCC,52,FTR 10:05 PM 11/5/1971 05401 000000 FORM: 0 /TO FORM A PAGEF 05402 004466 LDA PLENG 05403 012460 ERA PGK 05404 101040 SNZ 05405 003424 JMP FORMB 05406 005604 LDA (215) 05407 020607 JST PRNT 05410 004115 LDA TYPE 05411 101040 SNZ 05412 003431 JMP FORMA 05413 004460 LDA PGK 05414 014467 ADD PHEAD 05415 101400 SMI 05416 003424 JMP FORMB 05417 011442 STA FORMX 05420 005605 LDA (212) 05421 020607 JST PRNT 05422 025442 IRS FORMX 05423 003420 JMP .-3 05424 004466 FORMB: LDA PLENG 05425 010460 STA PGK 05426 140040 CRA 05427 010462 STA PFLG 05430 103401 JMP FORM I 05431 005626 FORMA: LDA (214) 05432 020607 JST PRNT 05433 005613 LDA (-20) 05434 011442 STA FORMX 05435 005627 LDA (377) 05436 020607 JST PRNT 05437 025442 IRS FORMX 05440 003435 JMP .-3 05441 003424 JMP FORMB 05442 000000 FORMX: 0 05443 000000 SPACE: 0 05444 101040 SNZ 05445 103443 JMP SPACE I 05446 140407 TCA 05447 011455 STA SPACK 05450 005625 LDA (240) 05451 020607 JST PRNT 05452 025455 IRS SPACK 05453 003450 JMP .-3 05454 103443 JMP SPACE I 05455 000000 SPACK: 0 PAGE 68 NCC,52,FTR 10:05 PM 11/5/1971 05456 000000 TEXT: 0 05457 011474 STA TEXTP 05460 105474 LDA TEXTP I 05461 141140 ICL 05462 101040 SNZ 05463 103456 JMP TEXT I 05464 020607 JST PRNT 05465 105474 LDA TEXTP I 05466 141050 CAL 05467 101040 SNZ 05470 103456 JMP TEXT I 05471 020607 JST PRNT 05472 025474 IRS TEXTP 05473 003460 JMP TEXT+2 05474 000000 TEXTP: 0 PAGE 69 NCC,52,FTR 10:05 PM 11/5/1971 05475 000000 PNUM: 0 05476 105601 LDA (STATC) I 05477 011536 STA PNK 05500 140040 CRA 05501 011540 STA PNNF 05502 005630 PN1: LDA (-10.) 05503 011535 STA PNAK 05504 073631 LDX (0) 05505 005540 LDA PNNF 05506 101040 SNZ 05507 073610 LDX (1) 05510 101040 SNZ 05511 025535 IRS PNAK 05512 004000 LDA 0 05513 015623 ADD (260) 05514 011537 STA PNN 05515 005537 PN2: LDA PNN 05516 020607 JST PRNT 05517 005625 LDA (240) 05520 020607 JST PRNT 05521 025537 IRS PNN 05522 025536 IRS PNK 05523 003531 JMP PN3 05524 005604 LDA (215) 05525 020607 JST PRNT 05526 005605 LDA (212) 05527 020607 JST PRNT 05530 103475 JMP PNUM I 05531 025535 PN3: IRS PNAK 05532 003515 JMP PN2 05533 025540 IRS PNNF 05534 003502 JMP PN1 05535 000000 PNAK: 0 05536 000000 PNK: 0 05537 000000 PNN: 0 05540 000000 PNNF: 0 PAGE 70 NCC,52,FTR 10:05 PM 11/5/1971 05541 000000 STATP: 0 05542 105601 LDA (STATC) I 05543 011536 STA PNK 05544 005610 LDA (1) 05545 011540 STA PNNF 05546 005540 STP1: LDA PNNF 05547 173603 LDX (STSTAB) I 05550 040576 ARS 2 05551 014000 ADD 0 05552 010000 STA 0 05553 005540 LDA PNNF 05554 007632 ANA (3) 05555 041576 ALS 2 05556 017633 SUB (ARR 0 05557 140407 TCA 05560 011562 STA .+2 05561 044000 LDA 0 X 05562 000000 0 05563 007576 ANA STATM 05564 015634 ADD (CHARS) 05565 010000 STA 0 05566 044000 LDA 0 X 05567 020607 JST PRNT 05570 005625 LDA (240) 05571 020607 JST PRNT 05572 025540 IRS PNNF 05573 025536 IRS PNK 05574 003546 JMP STP1 05575 103541 JMP STATP I 05576 000000 STATM: 0 PAGE 71 NCC,52,FTR 10:05 PM 11/5/1971 05577 007110 FIN 05600 000007 05601 006502 05602 020000 05603 006546 05604 000215 05605 000212 05606 021410 05607 007114 05610 000001 05611 177717 05612 007262 05613 177760 05614 004525 05615 010064 05616 177777 05617 000077 05620 177770 05621 000253 05622 000040 05623 000260 05624 000020 05625 000240 05626 000214 05627 000377 05630 177766 05631 000000 05632 000003 05633 040700 05634 006566 PAGE 72 NCC,52,FTR 10:05 PM 11/5/1971 6000/ /SUMMARY ROUTINES 06000 140040 STATUS: CRA 06001 011313 STA HTPHR1 06002 004112 LDA NITP 06003 011502 STA STATC 06004 005672 LDA (PHH1) 06005 011503 STA STCHED 06006 005673 LDA (IMPST) 06007 011504 STA STTAB 06010 021437 JST SUMSTC 06011 004113 LDA NLTP 06012 011502 STA STATC 06013 005674 LDA (PHH2) 06014 011503 STA STCHED 06015 005675 LDA (LINST) 06016 011504 STA STTAB 06017 021437 JST SUMSTC 06020 103676 JMP (TTSLP) I 06021 004106 THRUH: LDA HOUR 06022 017677 SUB (1) 06023 011313 STA HTPHR1 06024 005700 LDA (HTP2) 06025 021061 JST SUMHP 06026 005701 LDA (LTP2) 06027 021117 JST SUMLP 06030 103676 JMP (TTSLP) I 06031 140040 THRUD: CRA 06032 011313 STA HTPHR1 06033 005702 LDA (DHTP) 06034 021061 JST SUMHP 06035 005703 LDA (DLTP) 06036 021117 JST SUMLP 06037 103676 JMP (TTSLP) I 06040 140040 THRUP: CRA 06041 011313 STA HTPHR1 06042 005704 LDA (4) 06043 011250 STA SMHTU 06044 005705 LDA (-6) 06045 011251 STA SMHTF 06046 005702 LDA (DHTP) 06047 021061 JST SUMHP 06050 005677 LDA (1) 06051 011250 STA SMHTU 06052 005706 LDA (-NHTP) 06053 011251 STA SMHTF 06054 004106 LDA HOUR 06055 023707 CAS (24.) 06056 003356 JMP NEWDAY 06057 003356 JMP NEWDAY 06060 103676 JMP (TTSLP) I PAGE 73 NCC,52,FTR 10:05 PM 11/5/1971 06061 000000 SUMHP: 0 /PRINT HOST SUMMARIES 06062 011613 STA SUMLOC 06063 121710 JST (HEDHP) I 06064 140040 CRA 06065 011612 STA SUMIMP 06066 005711 LDA (-IMPS) 06067 011606 STA SUMK1 06070 005712 LDA (SITE00) 06071 011611 STA SUMK6 06072 003103 JMP SUMH2 06073 005711 SUMH1: LDA (-IMPHTP) 06074 011607 STA SUMK2 06075 105116 LDA SUMLCT I /CHECK IMP FOR DATA 06076 100040 SZE 06077 003175 JMP SUMHTI 06100 025116 IRS SUMLCT 06101 025607 IRS SUMK2 06102 003075 JMP .-5 06103 005613 SUMH2: LDA SUMLOC /SET UP 06104 015713 ADD (IMPHTP) /POINTERS FOR BLOCKS OF 32 06105 011613 STA SUMLOC /WORDS 06106 011116 STA SUMLCT 06107 005611 LDA SUMK6 06110 015714 ADD (3) 06111 011611 STA SUMK6 06112 025612 IRS SUMIMP 06113 025606 IRS SUMK1 06114 003073 JMP SUMH1 /CHECK NEXT IMP 06115 103061 JMP SUMHP I 06116 000000 SUMLCT: 0 PAGE 74 NCC,52,FTR 10:05 PM 11/5/1971 06117 000000 SUMLP: 0 06120 011613 STA SUMLOC 06121 121715 JST (HEDLP) I 06122 140040 CRA 06123 011174 STA SUMLIN 06124 005711 LDA (-LINES) 06125 011606 STA SUMK1 06126 003166 JMP SUML2 06127 005174 SUML1: LDA SUMLIN 06130 021322 JST IMPNAM 06131 003166 JMP SUML2 06132 005716 LDA (PR2) 06133 121717 JST (TEXT) I 06134 005174 LDA SUMLIN 06135 121720 JST (PRINT2) I 06136 005721 LDA (272) 06137 020607 JST PRNT 06140 005722 LDA (240) 06141 020607 JST PRNT 06142 005352 LDA LOIMP 06143 121717 JST (TEXT) I 06144 005723 LDA (PHTOFR) 06145 121717 JST (TEXT) I 06146 005353 LDA HIIMP 06147 121717 JST (TEXT) I 06150 073613 LDX SUMLOC 06151 121724 JST (PNTNOW) I 06152 005725 LDA (5) 06153 121726 JST (SPACE) I 06154 005353 LDA HIIMP 06155 121717 JST (TEXT) I 06156 005723 LDA (PHTOFR) 06157 121717 JST (TEXT) I 06160 005352 LDA LOIMP 06161 121717 JST (TEXT) I 06162 005613 LDA SUMLOC 06163 141206 AOA 06164 010000 STA 0 06165 121724 JST (PNTNOW) I 06166 025613 SUML2: IRS SUMLOC 06167 025613 IRS SUMLOC 06170 025174 IRS SUMLIN 06171 025606 IRS SUMK1 06172 003127 JMP SUML1 06173 103117 JMP SUMLP I 06174 000000 SUMLIN: 0 PAGE 75 NCC,52,FTR 10:05 PM 11/5/1971 06175 005251 SUMHTI: LDA SMHTF 06176 015727 ADD (NHTP) 06177 101040 SNZ 06200 015727 ADD (NHTP) 06201 015730 ADD (2) 06202 014460 ADD PGK 06203 101400 SMI 06204 121710 JST (HEDHP) I 06205 005731 LDA (PH8) /SITE 06206 121717 JST (TEXT) I 06207 005612 LDA SUMIMP 06210 121720 JST (PRINT2) I 06211 005730 LDA (2) 06212 121726 JST (SPACE) I 06213 005611 LDA SUMK6 06214 121717 JST (TEXT) I 06215 021314 JST HCRLF 06216 005251 LDA SMHTF 06217 011311 STA HTPFLV 06220 015727 ADD (NHTP) 06221 015613 ADD SUMLOC 06222 011116 STA SUMLCT 06223 005116 SMHTIL: LDA SUMLCT 06224 011310 STA HTPTR 06225 005732 LDA (-NHOST) 06226 011610 STA SUMK3 06227 105310 SMHTI0: LDA HTPTR I 06230 100040 SZE 06231 003252 JMP GOTHTI 06232 005727 LDA (NHTP) 06233 015310 ADD HTPTR 06234 011310 STA HTPTR 06235 025610 IRS SUMK3 06236 003227 JMP SMHTI0 06237 005116 SMHTIF: LDA SUMLCT 06240 015250 ADD SMHTU 06241 011116 STA SUMLCT 06242 005311 LDA HTPFLV 06243 015250 ADD SMHTU 06244 011311 STA HTPFLV 06245 100400 SPL 06246 003223 JMP SMHTIL 06247 003103 JMP SUMH2 06250 000001 SMHTU: 1 /VALUE MUST BE LOADED 06251 177770 SMHTF: -NHTP /VALUE MUST RE LOADED PAGE 76 NCC,52,FTR 10:05 PM 11/5/1971 06252 005116 GOTHTI: LDA SUMLCT 06253 011310 STA HTPTR 06254 005732 LDA (-NHOST) 06255 011610 STA SUMK3 06256 140040 CRA 06257 011312 STA HTPTAB 06260 005733 LDA (HTPTYP) 06261 015311 ADD HTPFLV 06262 010000 STA 0 06263 044010 LDA NHTP X 06264 121717 JST (TEXT) I 06265 105310 GOTHTL: LDA HTPTR I 06266 101040 SNZ 06267 003276 JMP NGOTHT 06270 005714 LDA (3) 06271 027312 IMA HTPTAB 06272 121726 JST (SPACE) I 06273 073310 LDX HTPTR 06274 121724 JST (PNTNOW) I 06275 003301 JMP GOTHTN 06276 005734 NGOTHT: LDA (11.) 06277 015312 ADD HTPTAB 06300 011312 STA HTPTAB 06301 005727 GOTHTN: LDA (NHTP) 06302 015310 ADD HTPTR 06303 011310 STA HTPTR 06304 025610 IRS SUMK3 06305 003265 JMP GOTHTL 06306 021314 JST HCRLF 06307 003237 JMP SMHTIF 06310 000000 HTPTR: 0 06311 000000 HTPFLV: 0 06312 000000 HTPTAB: 0 06313 000000 HTPHR1: 0 06314 000000 HCRLF: 0 06315 005735 LDA (215) 06316 020607 JST PRNT 06317 005736 LDA (212) 06320 020607 JST PRNT 06321 103314 JMP HCRLF I PAGE 77 NCC,52,FTR 10:05 PM 11/5/1971 06322 000000 IMPNAM: 0 06323 017677 SUB (1) 06324 015737 ADD (MODLNS) 06325 011354 STA IMPNT1 06326 105354 LDA IMPNT1 I 06327 101040 SNZ 06330 103322 JMP IMPNAM I 06331 141140 ICL 06332 007740 ANA (37) 06333 011355 STA IMPNT2 06334 041577 ALS 1 06335 015355 ADD IMPNT2 06336 015712 ADD (SITE00) 06337 011352 STA LOIMP 06340 105354 LDA IMPNT1 I 06341 141050 CAL 06342 007740 ANA (37) 06343 011355 STA IMPNT2 06344 041577 ALS 1 06345 015355 ADD IMPNT2 06346 015712 ADD (SITE00) 06347 011353 STA HIIMP 06350 025322 IRS IMPNAM 06351 103322 JMP IMPNAM I 06352 000000 LOIMP: 0 06353 000000 HIIMP: 0 06354 000000 IMPNT1: 0 06355 000000 IMPNT2: 0 PAGE 78 NCC,52,FTR 10:05 PM 11/5/1971 06356 140040 NEWDAY: CRA 06357 073741 LDX (-HTBSIZ) 06360 111742 STA (0 0 DHTP+HTBSIZ X) I 06361 024000 IRS 0 06362 003360 JMP .-2 06363 073743 LDX (-LTBSIZ) 06364 111744 STA (0 0 DLTP+LTBSIZ X) I 06365 024000 IRS 0 06366 003364 JMP .-2 06367 010445 STA PAGEL 06370 010446 STA PAGES 06371 010106 STA HOUR 06372 024107 IRS DAY 06373 072110 LDX MONTH 06374 004107 LDA DAY 06375 063422 CAS CALEND-1 X 06376 003401 JMP .+3 /CHANGE MONTH 06377 101000 NOP 06400 003422 JMP NUDAYX 06401 024110 IRS MONTH 06402 005677 LDA (1) 06403 010107 STA DAY 06404 004110 LDA MONTH 06405 023745 CAS (12.) 06406 003411 JMP .+3 /CHANGE YEAR 06407 101000 NOP 06410 003422 JMP NUDAYX 06411 005677 LDA (1) 06412 010110 STA MONTH 06413 024111 IRS YEAR 06414 004111 LDA YEAR 06415 073746 LDX (28.) 06416 007714 ANA (3) 06417 101040 SNZ 06420 073747 LDX (29.) 06421 033424 STX CALEND+1 06422 103676 NUDAYX: JMP (TTSLP) I 06423 000037 CALEND: 31. /JAN 06424 000034 28. /FEB 06425 000037 31. /MARCH 06426 000036 30. /APRIL 06427 000037 31. /MAY 06430 000036 30. /JUNE 06431 000037 31. /JULY 06432 000037 31. /AUG 06433 000036 30. /SEPT 06434 000037 31. /OCT 06435 000036 30. /NOV 06436 000037 31. /DEC PAGE 79 NCC,52,FTR 10:05 PM 11/5/1971 06437 000000 SUMSTC: 0 /PRINT CHANGES IN STATUS 06440 121750 JST (HEDSTC) I 06441 004106 LDA HOUR 06442 041576 ALS 2 /4 15 MINS PER HOUR 06443 011546 STA STSTAB 06444 004105 LDA MIN 06445 023751 CAS (45.) 06446 101000 NOP 06447 025546 IRS STSTAB 06450 023752 CAS (30.) 06451 101000 NOP 06452 025546 IRS STSTAB 06453 023753 CAS (15.) 06454 101000 NOP 06455 025546 IRS STSTAB 06456 005546 LDA STSTAB 06457 041575 ALS 3 /MUL BY N15MIN 06460 015504 ADD STTAB 06461 011546 STA STSTAB 06462 140040 CRA 06463 011476 STA SUMSTT 06464 011477 STA SSTMIN 06465 025500 IRS IPF 06466 021505 SUMMR2: JST CHECK /SEE IF CHANGED 06467 140040 CRA 06470 027500 IMA IPF 06471 100040 SZE 06472 021547 JST PSTCHG /PRINT 06473 021525 JST SUMTAD 06474 003466 JMP SUMMR2 06475 103437 JMP SUMSTC I 06476 000000 SUMSTT: 0 06477 000000 SSTMIN: 0 06500 000000 IPF: 0 06501 000000 CHECKC: 0 06502 000000 STATC: 0 06503 000000 STCHED: 0 06504 000000 STTAB: 0 06505 000000 CHECK: 0 /SEE IF STATUS CHANGED 06506 005706 LDA (-N15MIN) 06507 011501 STA CHECKC 06510 073546 LDX STSTAB 06511 044000 CHK1: LDA 0 X 06512 007754 ANA (104210) /PRINT IF CHANGE BITS SET 06513 100040 SZE 06514 025500 IRS IPF 06515 044000 LDA 0 X 06516 052010 ERA N15MIN X /PRINT IF CHANGE FROM LAST 06517 100040 SZE 06520 025500 IRS IPF 06521 024000 IRS 0 06522 025501 IRS CHECKC 06523 003511 JMP CHK1 06524 103505 JMP CHECK I PAGE 80 NCC,52,FTR 10:05 PM 11/5/1971 /ROUTINE ADDS 15 MIN TO THE TIME /R1 OK /R2 PRESENT=END TIME 06525 000000 SUMTAD: 0 06526 005477 LDA SSTMIN 06527 015753 ADD (15.) 06530 023755 CAS (60.) 06531 101000 NOP 06532 003543 JMP SUMT3 06533 011477 SUMT4: STA SSTMIN 06534 005546 LDA STSTAB 06535 017727 SUB (N15MIN) 06536 011546 STA STSTAB 06537 013504 ERA STTAB 06540 101040 SNZ 06541 025525 IRS SUMTAD /2ND RET = DONE 06542 103525 JMP SUMTAD I 06543 025476 SUMT3: IRS SUMSTT 06544 140040 CRA 06545 003533 JMP SUMT4 PAGE 81 NCC,52,FTR 10:05 PM 11/5/1971 06546 000000 STSTAB: 0 06547 000000 PSTCHG: 0 06550 004462 LDA PFLG 06551 100040 SZE 06552 121750 JST (HEDSTC) I 06553 021314 JST HCRLF 06554 005476 LDA SUMSTT 06555 121756 JST (PRINZ2) I 06556 005477 LDA SSTMIN 06557 121756 JST (PRINZ2) I 06560 005730 LDA (2) 06561 121726 JST (SPACE) I 06562 005753 LDA (17) 06563 111757 STA (STATM) I 06564 121760 JST (STATP) I 06565 103547 JMP PSTCHG I 06566 000277 CHARS: 277 /? 06567 000253 253 /+ 06570 000255 255 /- 06571 000252 252 /* 06572 000256 256 /. 06573 000276 276 /> 06574 000274 274 /< 06575 000332 332 /Z 06576 000330 330 /X 06577 000330 330 06600 000330 330 06601 000330 330 06602 000330 330 06603 000330 330 06604 000330 330 06605 000330 330 06606 000000 SUMK1: 0 06607 000000 SUMK2: 0 06610 000000 SUMK3: 0 06611 000000 SUMK6: 0 06612 000000 SUMIMP: 0 06613 000000 SUMLOC: 0 PAGE 82 NCC,52,FTR 10:05 PM 11/5/1971 06614 000000 HIPR: 0 /HOST INTERRUPT PROCESSOR 06615 011631 STA HIPRA 06616 140040 CRA 06617 026142 IMA HIBFP /GIVE LAST BUFFER TO BTRP 06620 110143 STA BTREND I 06621 010143 STA BTREND 06622 030041 OCP 41 06623 004144 LDA FREE /GET BUFFER FOR NEXT IN 06624 100040 SZE /NONE,MUST WAIT FOR BTRP 06625 021632 JST HSTINT / RESTART HOST IN 06626 005631 LDA HIPRA 06627 000401 ENB 06630 103614 JMP HIPR I /RETURN 06631 000000 HIPRA: 0 06632 000000 HSTINT: 0 06633 104144 LDA FREE I 06634 026144 IMA FREE 06635 010142 STA HIBFP /GET BUFFER FOR HOST IN 06636 141206 AOA 06637 140500 SSM 06640 010050 STA H1INBP 06641 010020 STA M1INBP 06642 015761 ADD (BUFINLL) 06643 010051 STA H1INBP+1 06644 010021 STA M1INBP+1 06645 140040 CRA 06646 110142 STA HIBFP I 06647 030170 H1IN 06650 030471 M1IN 06651 103632 JMP HSTINT I 06652 000000 BUFINT: 0 06653 005762 LDA (BTRBEG) 06654 010143 STA BTREND 06655 005763 LDA (BUF1) 06656 010144 STA FREE 06657 005764 LDA (BUF2) 06660 111763 STA (BUF1) I 06661 005765 LDA (BUF3) 06662 111764 STA (BUF2) I 06663 005766 LDA (BUF4) 06664 111765 STA (BUF3) I 06665 005767 LDA (BUF5) 06666 111766 STA (BUF4) I 06667 140040 CRA 06670 111767 STA (BUF5) I 06671 103652 JMP BUFINT I PAGE 83 NCC,52,FTR 10:05 PM 11/5/1971 06672 007055 FIN 06673 020000 06674 007065 06675 021410 06676 010064 06677 000001 06700 015000 06701 017200 06702 011000 06703 017000 06704 000004 06705 177772 06706 177770 06707 000030 06710 007561 06711 177740 06712 007122 06713 000040 06714 000003 06715 007602 06716 007266 06717 005456 06720 005303 06721 000272 06722 000240 06723 007105 06724 005102 06725 000005 06726 005443 06727 000010 06730 000002 06731 007101 06732 177774 06733 007412 06734 000013 06735 000215 06736 000212 06737 007000 06740 000037 06741 176000 06742 053000 06743 177700 06744 057100 06745 000014 06746 000034 06747 000035 06750 007612 06751 000055 06752 000036 06753 000017 06754 104210 06755 000074 06756 005311 06757 005576 06760 005541 06761 000076 06762 000141 06763 017300 06764 017400 06765 017500 06766 017600 06767 017700 PAGE 84 NCC,52,FTR 10:05 PM 11/5/1971 7000/ DEFINE MOD A,B,C,D 0 0 A^T20000+B^T400+C^T40+D TERMINATE MOD 07000 022507 MODLNS: MOD 1,5,2,7 /LINE 01 07001 023136 MOD 1,6,2,30. /LINE 02 07002 043114 MOD 2,6,2,12. /LINE 03 07003 042110 MOD 2,4,2,8. /LINE 04 07004 063450 MOD 3,7,1,8. /LINE 05 07005 060447 MOD 3,1,1,7 /LINE 06 07006 040443 MOD 2,1,1,3 /LINE 07 07007 041103 MOD 2,2,2,3 /LINE 08 07010 020442 MOD 1,1,1,2 /LINE 09 07011 061044 MOD 3,2,1,4 /LINE 10 07012 101120 MOD 4,2,2,16. /LINE 11 07013 103513 MOD 4,7,2,11. /LINE 12 07014 062451 MOD 3,5,1,9. /LINE 13 07015 063052 MOD 3,6,1,10. /LINE 14 07016 062054 MOD 3,4,1,12. /LINE 15 07017 045055 MOD 2,10.,1,13. /LINE-16 07020 046456 MOD 2,13.,1,14. /LINE-17 07021 047061 MOD 2,14.,1,17. /LINE 18 07022 044457 MOD 2,9.,1,15. /LINE 19 07023 025460 MOD 1,11.,1,16. /LINE-20 07024 047521 MOD 2,15.,2,17. /LINE 21 07025 000000 0 /LINE 22 07026 000000 0 /LINE 23 07027 000000 0 /LINE 24 07030 000000 0 /LINE 25 07031 000000 0 /LINE 26 07032 000000 0 /LINE 27 07033 000000 0 /LINE 28 07034 000000 0 /LINE 29 07035 042476 MOD 2,5,1,30. /LINE 30 07036 000000 0 /LINE 31 07037 000000 0 /LINE 32 PAGE 85 NCC,52,FTR 10:05 PM 11/5/1971 07040 120240 PHTP1: .ASCII [ THROUGHPUT#[ 07041 152310 07042 151317 07043 152707 07044 144320 07045 152724 07046 000000 07047 144317 PHTP2: .ASCII [HOST #[ 07050 151724 07051 120000 07052 146311 PHTP3: .ASCII [LINE#[ 07053 147305 07054 000000 07055 144715 PHH1: .ASCII [IMP STATUS 07056 150240 07057 151724 07060 140724 07061 152723 07062 106612 07063 106612 07064 000000 #[ 07065 146311 PHH2: .ASCII [LINE STATUS 07066 147305 07067 120323 07070 152301 07071 152325 07072 151615 07073 105215 07074 105000 #[ 07075 152311 PHH3: .ASCII [TIME #[ 07076 146705 07077 120240 07100 000000 07101 106612 PH8: .ASCII [ 07102 151711 07103 152305 07104 120000 SITE #[ 07105 120324 PHTOFR: .ASCII [ TO #[ 07106 147640 07107 000000 07110 106612 QI: .ASCII [ 07111 144715 07112 150215 IMP 07113 105000 #[ 07114 106612 QL: .ASCII [ 07115 146311 07116 147305 07117 106612 LINE 07120 106612 07121 000000 #[ PAGE 86 NCC,52,FTR 10:05 PM 11/5/1971 07122 144715 SITE00: .ASCII [IMP00#[ 07123 150260 07124 130000 07125 152703 SITE01: .ASCII [UCLA #[ 07126 146301 07127 120000 07130 151722 SITE02: .ASCII [SRI #[ 07131 144640 07132 120000 07133 152703 SITE03: .ASCII [UCSB #[ 07134 151702 07135 120000 07136 152724 SITE04: .ASCII [UTAH #[ 07137 140710 07140 120000 07141 141302 SITE05: .ASCII [BBN #[ 07142 147240 07143 120000 07144 146711 SITE06: .ASCII [MIT #[ 07145 152240 07146 120000 07147 151301 SITE07: .ASCII [RAND #[ 07150 147304 07151 120000 07152 151704 SITE08: .ASCII [SDC #[ 07153 141640 07154 120000 07155 144301 SITE09: .ASCII [HARV #[ 07156 151326 07157 120000 07160 146311 SITE10: .ASCII [LINC #[ 07161 147303 07162 120000 07163 151724 SITE11: .ASCII [STAN #[ 07164 140716 07165 120000 07166 144714 SITE12: .ASCII [ILL #[ 07167 146240 07170 120000 07171 141701 SITE13: .ASCII [CASE #[ 07172 151705 07173 120000 07174 141701 SITE14: .ASCII [CARN #[ 07175 151316 07176 120000 07177 150301 SITE15: .ASCII [PAOLI#[ 07200 147714 07201 144400 PAGE 87 NCC,52,FTR 10:05 PM 11/5/1971 07202 140715 SITE16: .ASCII [AMES #[ 07203 142723 07204 120000 07205 146711 SITE17: .ASCII [MITRE#[ 07206 152322 07207 142400 07210 151301 SITE18: .ASCII [RADC #[ 07211 142303 07212 120000 07213 147302 SITE19: .ASCII [NBS #[ 07214 151640 07215 120000 07216 142724 SITE20: .ASCII [ETAC #[ 07217 140703 07220 120000 07221 152311 SITE21: .ASCII [TINK #[ 07222 147313 07223 120000 07224 146703 SITE22: .ASCII [MC CL#[ 07225 120303 07226 146000 07227 152723 SITE23: .ASCII [USC #[ 07230 141640 07231 120000 07232 143727 SITE24: .ASCII [GWC #[ 07233 141640 07234 120000 07235 147303 SITE25: .ASCII [NCAR #[ 07236 140722 07237 120000 07240 144715 SITE26: .ASCII [IMP26#[ 07241 150262 07242 133000 07243 144715 SITE27: .ASCII [IMP27#[ 07244 150262 07245 133400 07246 144715 SITE28: .ASCII [IMP28#[ 07247 150262 07250 134000 07251 144715 SITE29: .ASCII [IMP29#[ 07252 150262 07253 134400 07254 141302 SITE30: .ASCII [BBN T#[ 07255 147240 07256 152000 07257 144715 SITE31: .ASCII [IMP31#[ 07260 150263 07261 130400 PAGE 88 NCC,52,FTR 10:05 PM 11/5/1971 07262 106612 PR1: .ASCII [ 07263 144715 07264 150240 07265 000000 IMP #[ 07266 106612 PR2: .ASCII [ 07267 146311 07270 147305 07271 120000 LINE #[ 07272 120240 PARPA: .ASCII [ ARPA NETWORK#[ 07273 120301 07274 151320 07275 140640 07276 147305 07277 152327 07300 147722 07301 145400 07302 120314 PLOG: .ASCII [ LOG#[ 07303 147707 07304 000000 07305 120323 PSUM: .ASCII [ SUMMARY #[ 07306 152715 07307 146701 07310 151331 07311 120000 07312 150301 PPAGE: .ASCII [PAGE#[ 07313 143705 07314 000000 07315 106612 CRLF2: .ASCII [ 07316 106612 07317 000000 #[ 07320 007334 HMONTH: M1 07321 007340 M2 07322 007345 M3 07323 007350 M4 07324 007353 M5 07325 007355 M6 07326 007360 M7 07327 007363 M8 07330 007367 M9 07331 007374 M10 07332 007400 M11 07333 007405 M12 PAGE 89 NCC,52,FTR 10:05 PM 11/5/1971 07334 145301 M1: .ASCII [JANUARY#[ 07335 147325 07336 140722 07337 154400 07340 143305 M2: .ASCII [FEBRUARY#[ 07341 141322 07342 152701 07343 151331 07344 000000 07345 146701 M3: .ASCII [MARCH#[ 07346 151303 07347 144000 07350 140720 M4: .ASCII [APRIL#[ 07351 151311 07352 146000 07353 146701 M5: .ASCII [MAY#[ 07354 154400 07355 145325 M6: .ASCII [JUNE#[ 07356 147305 07357 000000 07360 145325 M7: .ASCII [JULY#[ 07361 146331 07362 000000 07363 140725 M8: .ASCII [AUGUST#[ 07364 143725 07365 151724 07366 000000 07367 151705 M9: .ASCII [SEPTEMBER#[ 07370 150324 07371 142715 07372 141305 07373 151000 07374 147703 M10: .ASCII [OCTOBER#[ 07375 152317 07376 141305 07377 151000 07400 147317 M11: .ASCII [NOVEMBER#[ 07401 153305 07402 146702 07403 142722 07404 000000 07405 142305 M12: .ASCII [DECEMBER#[ 07406 141705 07407 146702 07410 142722 07411 000000 PAGE 90 NCC,52,FTR 10:05 PM 11/5/1971 07412 007422 HTPTYP: HTP000 07413 007432 HTP001 07414 007442 HTP010 07415 007452 HTP011 07416 007462 HTP100 07417 007472 HTP101 07420 007502 HTP110 07421 007512 HTP111 07422 146723 HTP000: .ASCII [MSSGS FOR NET #[ 07423 151707 07424 151640 07425 143317 07426 151240 07427 147305 07430 152240 07431 000000 07432 146723 HTP001: .ASCII [MSSGS FRM NET #[ 07433 151707 07434 151640 07435 143322 07436 146640 07437 147305 07440 152240 07441 000000 07442 150303 HTP010: .ASCII [PCKTS FOR NET #[ 07443 145724 07444 151640 07445 143317 07446 151240 07447 147305 07450 152240 07451 000000 07452 150303 HTP011: .ASCII [PCKTS FRM NET #[ 07453 145724 07454 151640 07455 143322 07456 146640 07457 147305 07460 152240 07461 000000 PAGE 91 NCC,52,FTR 10:05 PM 11/5/1971 07462 146723 HTP100: .ASCII [MSSGS FOR SITE#[ 07463 151707 07464 151640 07465 143317 07466 151240 07467 151711 07470 152305 07471 000000 07472 146723 HTP101: .ASCII [MSSGS FRM SITE#[ 07473 151707 07474 151640 07475 143322 07476 146640 07477 151711 07500 152305 07501 000000 07502 150303 HTP110: .ASCII [PCKTS FOR SITE#[ 07503 145724 07504 151640 07505 143317 07506 151240 07507 151711 07510 152305 07511 000000 07512 150303 HTP111: .ASCII [PCKTS FRM SITE#[ 07513 145724 07514 151640 07515 143322 07516 146640 07517 151711 07520 152305 07521 000000 PAGE 92 NCC,52,FTR 10:05 PM 11/5/1971 07522 007530 CNAME: CALL0 07523 007534 CALL1 07524 007540 CALL2 07525 007544 CALL3 07526 007550 CALL4 07527 007554 NOCALL 07530 150725 CALL0: .ASCII [QUICKP#[ 07531 144703 07532 145720 07533 000000 07534 151724 CALL1: .ASCII [STATUS#[ 07535 140724 07536 152723 07537 000000 07540 144317 CALL2: .ASCII [HOURSUM#[ 07541 152722 07542 151725 07543 146400 07544 142301 CALL3: .ASCII [DAYSUM#[ 07545 154723 07546 152715 07547 000000 07550 150303 CALL4: .ASCII [PCKSUM#[ 07551 145723 07552 152715 07553 000000 07554 120240 NOCALL: .ASCII [ ABORTED#[ 07555 140702 07556 147722 07557 152305 07560 142000 PAGE 93 NCC,52,FTR 10:05 PM 11/5/1971 07561 000000 HEDHP: 0 07562 021622 JST HEDSUM 07563 005671 LDA (PHTP1) 07564 121672 JST (TEXT) I 07565 073673 LDX (-NHOST) 07566 005674 HEDHST: LDA (5) 07567 121675 JST (SPACE) I 07570 005676 LDA (PHTP2) 07571 121672 JST (TEXT) I 07572 004000 LDA 0 07573 015677 ADD (NHOST) 07574 141206 AOA 07575 121700 JST (PRINT1) I 07576 024000 IRS 0 07577 003566 JMP HEDHST 07600 121701 JST (HCRLF) I 07601 103561 JMP HEDHP I 07602 000000 HEDLP: 0 07603 021622 JST HEDSUM 07604 005702 LDA (PHTP3) 07605 121672 JST (TEXT) I 07606 005671 LDA (PHTP1) 07607 121672 JST (TEXT) I 07610 121701 JST (HCRLF) I 07611 103602 JMP HEDLP I 07612 000000 HEDSTC: 0 07613 021622 JST HEDSUM 07614 105703 LDA (STCHED) I 07615 121672 JST (TEXT) I 07616 005704 LDA (PHH3) 07617 121672 JST (TEXT) I 07620 121705 JST (PNUM) I 07621 103612 JMP HEDSTC I PAGE 94 NCC,52,FTR 10:05 PM 11/5/1971 07622 000000 HEDSUM: 0 07623 121706 JST (FORM) I 07624 072110 LDX MONTH 07625 045317 LDA HMONTH-1 X 07626 121672 JST (TEXT) I 07627 005707 LDA (240) 07630 020607 JST PRNT 07631 004107 LDA DAY 07632 121710 JST (PRINT2) I 07633 005711 LDA (2) 07634 121675 JST (SPACE) I 07635 005712 LDA (19.) 07636 121710 JST (PRINT2) I 07637 004111 LDA YEAR 07640 121710 JST (PRINT2) I 07641 005713 LDA (PARPA) 07642 121672 JST (TEXT) I 07643 005714 LDA (PSUM) 07644 121672 JST (TEXT) I 07645 105715 LDA (HTPHR1) I 07646 121716 JST (PRINZ2) I 07647 140040 CRA 07650 121716 JST (PRINZ2) I 07651 005717 LDA (255) 07652 020607 JST PRNT 07653 004106 LDA HOUR 07654 121716 JST (PRINZ2) I 07655 140040 CRA 07656 121716 JST (PRINZ2) I 07657 005720 LDA (3) 07660 121675 JST (SPACE) I 07661 005721 LDA (PPAGE) 07662 121672 JST (TEXT) I 07663 024446 IRS PAGES 07664 004446 LDA PAGES 07665 121722 JST (PRINT4) I 07666 005723 LDA (CRLF2) 07667 121672 JST (TEXT) I 07670 103622 JMP HEDSUM I PAGE 95 NCC,52,FTR 10:05 PM 11/5/1971 07671 007040 FIN 07672 005456 07673 177774 07674 000005 07675 005443 07676 007047 07677 000004 07700 005332 07701 006314 07702 007052 07703 006503 07704 007075 07705 005475 07706 005401 07707 000240 07710 005303 07711 000002 07712 000023 07713 007272 07714 007305 07715 006313 07716 005311 07717 000255 07720 000003 07721 007312 07722 005254 07723 007315 PAGE 96 NCC,52,FTR 10:05 PM 11/5/1971 10000/ TTNB=104 /SOME OCP'S AND SKS'S REQUIRE DEFINITION TTSO=104 TTOT=4 TTSI=4 TTINA=1004 TTSR=4 TTNB1=110 TTSO1=110 TTOT1=10 TTSI1=10 TTINA1=1010 TTSR1=10 ISTTY=404 ISTTY1=410 10000 000000 TINT: 0 /TTY INTERRUPT, COMMON TO TTY AND TT-- 10001 070404 SKS ISTTY 10002 003007 JMP TTINT 10003 070410 SKS ISTTY1 10004 003107 JMP TTINT1 10005 000401 TTRET: ENB 10006 103000 JMP TINT I PAGE 97 NCC,52,FTR 10:05 PM 11/5/1971 10007 011032 TTINT: STA TTYA 10010 033033 STX TTYX 10011 000201 IAB 10012 011034 STA TTYB 10013 005037 LDA TTYDB 10014 000201 IAB 10015 073036 LDX TTYDX 10016 005035 LDA TTYDA 10017 103020 JMP TTDBK I 10020 000000 TTDBK: 0 10021 011035 STA TTYDA 10022 033036 STX TTYDX 10023 000201 IAB 10024 011037 STA TTYDB 10025 005034 LDA TTYB 10026 000201 IAB 10027 005032 LDA TTYA 10030 073033 LDX TTYX 10031 003005 JMP TTRET 10032 TTYA: BSS 1 10033 TTYX: BSS 1 10034 TTYB: BSS 1 10035 TTYDA: BSS 1 10036 TTYDX: BSS 1 10037 TTYDB: BSS 1 PAGE 98 NCC,52,FTR 10:05 PM 11/5/1971 10040 000000 TTGO: 0 10041 004456 LDA PFREZ 10042 100040 SZE 10043 103040 JMP TTGO I 10044 005040 LDA TTGO 10045 011000 STA TINT 10046 003075 JMP TTWAK 10047 000000 TTBEG: 0 10050 005760 LDA (-1) 10051 170020 SMK 20 10052 005761 LDA (JMPDOT) 10053 011000 STA TINT 10054 140040 CRA 10055 010456 STA PFREZ 10056 010464 STA TTBSY 10057 121762 JST (FORM) I 10060 024462 IRS PFLG 10061 005047 LDA TTBEG 10062 011000 STA TINT 10063 003072 JMP TTSLPA 10064 121762 TTSLP: JST (FORM) I 10065 073106 LDX TTWAKX 10066 044475 LDA RQUICK+NCALLS X 10067 100040 SZE 10070 017763 SUB (1) 10071 050475 STA RQUICK+NCALLS X 10072 140040 TTSLPA: CRA 10073 010464 STA TTBSY 10074 103764 JMP (LSE) I 10075 073765 TTWAK: LDX (-NCALLS) 10076 032464 STX TTBSY 10077 033106 TTWAKL: STX TTWAKX 10100 044475 LDA RQUICK+NCALLS X 10101 100040 SZE 10102 142503 JMP LQUICK+NCALLS XI 10103 024000 IRS 0 10104 003077 JMP TTWAKL 10105 003072 JMP TTSLPA 10106 000000 TTWAKX: 0 PAGE 99 NCC,52,FTR 10:05 PM 11/5/1971 10107 011132 TTINT1: STA TTYA1 10110 033133 STX TTYX1 10111 000201 IAB 10112 011134 STA TTYB1 10113 005137 LDA TTYDB1 10114 000201 IAB 10115 073136 LDX TTYDX1 10116 005135 LDA TTYDA1 10117 103120 JMP TTDBK1 I 10120 000000 TTDBK1: 0 10121 011135 STA TTYDA1 10122 033136 STX TTYDX1 10123 000201 IAB 10124 011137 STA TTYDB1 10125 005134 LDA TTYB1 10126 000201 IAB 10127 005132 LDA TTYA1 10130 073133 LDX TTYX1 10131 003005 JMP TTRET 10132 TTYA1: BSS 1 10133 TTYX1: BSS 1 10134 TTYB1: BSS 1 10135 TTYDA1: BSS 1 10136 TTYDX1: BSS 1 10137 TTYDB1: BSS 1 PAGE 100 NCC,52,FTR 10:05 PM 11/5/1971 10140 000000 TTGO1: 0 10141 004457 LDA PFREZ1 10142 100040 SZE 10143 103140 JMP TTGO1 I 10144 005140 LDA TTGO1 10145 011000 STA TINT 10146 003172 JMP TTWAK1 10147 000000 TTBEG1: 0 10150 005761 LDA (JMPDOT) 10151 011000 STA TINT 10152 140040 CRA 10153 010457 STA PFREZ1 10154 004466 LDA PLENG 10155 141206 AOA 10156 010461 STA PGK1 10157 121766 JST (FORM1) I 10160 024463 IRS PFLG1 10161 005147 LDA TTBEG1 10162 011000 STA TINT 10163 003167 JMP TTSLA1 10164 005767 TTSLP1: LDA (LGBUFB) 10165 010605 STA LOGINP 10166 010606 STA LOGOTP 10167 140040 TTSLA1: CRA 10170 010465 STA TTBSY1 10171 021120 JST TTDBK1 10172 004606 TTWAK1: LDA LOGOTP 10173 012605 ERA LOGINP 10174 101040 SNZ 10175 003164 JMP TTSLP1 10176 010465 STA TTBSY1 10177 102510 JMP LLOGGR I PAGE 101 NCC,52,FTR 10:05 PM 11/5/1971 10200 000000 TTOUT: 0 /TTY OUTPUT 10201 070104 SKS TTNB 10202 003211 JMP TTOTI /INTERRUPTING: 10203 030104 OCP TTSO 10204 170004 OTA TTOT 10205 003204 JMP .-1 10206 021020 JST TTDBK 10207 030004 OCP TTSI 10210 103200 JMP TTOUT I 10211 021213 TTOTI: JST TTIN /SUCK UP OFFENDING CHAR 10212 103200 JMP TTOUT I 10213 000000 TTIN: 0 /TTY INPUT 10214 140040 CRA 10215 010464 STA TTBSY 10216 021020 JST TTDBK 10217 131004 INA TTINA 10220 003217 JMP .-1 10221 010464 STA TTBSY 10222 007770 ANA (177) 10223 013771 ERA (200) 10224 023772 CAS (214) 10225 100000 SKP 10226 003231 JMP TTINF 10227 030004 TTINL: OCP TTSI 10230 103213 JMP TTIN I 10231 004466 TTINF: LDA PLENG 10232 010460 STA PGK 10233 140040 CRA 10234 024462 IRS PFLG 10235 003227 JMP TTINL 10236 000000 TTOUT1: 0 /TTY1 OUTPUT 10237 070110 SKS TTNB1 10240 003247 JMP TTOTI1 10241 030110 OCP TTSO1 10242 170010 OTA TTOT1 10243 003242 JMP .-1 10244 021120 JST TTDBK1 10245 030010 OCP TTSI1 10246 103236 JMP TTOUT1 I 10247 021251 TTOTI1: JST TTIN1 10250 103236 JMP TTOUT1 I 10251 000000 TTIN1: 0 10252 021120 JST TTDBK1 10253 131010 INA TTINA1 10254 003253 JMP .-1 10255 030010 OCP TTSI1 10256 103251 JMP TTIN1 I PAGE 102 NCC,52,FTR 10:05 PM 11/5/1971 10257 144317 LT00: .ASCII [HOST 1 UP#[ 10260 151724 10261 120261 10262 120325 10263 150000 10264 144317 LT01: .ASCII [HOST 2 UP#[ 10265 151724 10266 120262 10267 120325 10270 150000 10271 144317 LT02: .ASCII [HOST 3 UP#[ 10272 151724 10273 120263 10274 120325 10275 150000 10276 144317 LT03: .ASCII [HOST 4 UP#[ 10277 151724 10300 120264 10301 120325 10302 150000 10303 140722 LT04: .ASCII [ARV STAT ON#[ 10304 153240 10305 151724 10306 140724 10307 120317 10310 147000 10311 146705 LT05: .ASCII [MESS GEN ON#[ 10312 151723 10313 120307 10314 142716 10315 120317 10316 147000 10317 130660 LT06: .ASCII [10 SEC STAT ON#[ 10320 120323 10321 142703 10322 120323 10323 152301 10324 152240 10325 147716 10326 000000 10327 151716 LT07: .ASCII [SNAPSHOT ON#[ 10330 140720 10331 151710 10332 147724 10333 120317 10334 147000 PAGE 103 NCC,52,FTR 10:05 PM 11/5/1971 10335 152322 LT10: .ASCII [TRACE ON#[ 10336 140703 10337 142640 10340 147716 10341 000000 10342 146705 LT11: .ASCII [MEM PROTECT OFF#[ 10343 146640 10344 150322 10345 147724 10346 142703 10347 152240 10350 147706 10351 143000 10352 141710 LT12: .ASCII [CHECKSUM ERROR#[ 10353 142703 10354 145723 10355 152715 10356 120305 10357 151322 10360 147722 10361 000000 10362 151305 LT13: .ASCII [RELOADED FROM NET#[ 10363 146317 10364 140704 10365 142704 10366 120306 10367 151317 10370 146640 10371 147305 10372 152000 10373 151723 LT14: .ASCII [SS1 ON#[ 10374 130640 10375 147716 10376 000000 10377 151723 LT15: .ASCII [SS2 ON#[ 10400 131240 10401 147716 10402 000000 10403 151723 LT16: .ASCII [SS3 ON#[ 10404 131640 10405 147716 10406 000000 10407 151723 LT17: .ASCII [SS4 ON#[ 10410 132240 10411 147716 10412 000000 PAGE 104 NCC,52,FTR 10:05 PM 11/5/1971 10413 144317 LT20: .ASCII [HOST 1 DN#[ 10414 151724 10415 120261 10416 120304 10417 147000 10420 144317 LT21: .ASCII [HOST 2 DN#[ 10421 151724 10422 120262 10423 120304 10424 147000 10425 144317 LT22: .ASCII [HOST 3 DN#[ 10426 151724 10427 120263 10430 120304 10431 147000 10432 144317 LT23: .ASCII [HOST 4 DN#[ 10433 151724 10434 120264 10435 120304 10436 147000 10437 140722 LT24: .ASCII [ARV STAT OFF#[ 10440 153240 10441 151724 10442 140724 10443 120317 10444 143306 10445 000000 10446 146705 LT25: .ASCII [MESS GEN OFF#[ 10447 151723 10450 120307 10451 142716 10452 120317 10453 143306 10454 000000 10455 130660 LT26: .ASCII [10 SEC STAT OFF#[ 10456 120323 10457 142703 10460 120323 10461 152301 10462 152240 10463 147706 10464 143000 10465 151716 LT27: .ASCII [SNAPSHOT OFF#[ 10466 140720 10467 151710 10470 147724 10471 120317 10472 143306 10473 000000 PAGE 105 NCC,52,FTR 10:05 PM 11/5/1971 10474 152322 LT30: .ASCII [TRACE OFF#[ 10475 140703 10476 142640 10477 147706 10500 143000 10501 146705 LT31: .ASCII [MEM PROTECT ON#[ 10502 146640 10503 150322 10504 147724 10505 142703 10506 152240 10507 147716 10510 000000 10511 000000 LT32: 0 /CHECKSUM IS ONCE 0NLY 10512 000000 LT33: 0 /RELOAD IS ONCE ONLY 10513 151723 LT34: .ASCII [SS1 OFF#[ 10514 130640 10515 147706 10516 143000 10517 151723 LT35: .ASCII [SS2 OFF#[ 10520 131240 10521 147706 10522 143000 10523 151723 LT36: .ASCII [SS3 OFF#[ 10524 131640 10525 147706 10526 143000 10527 151723 LT37: .ASCII [SS4 OFF#[ 10530 132240 10531 147706 10532 143000 PAGE 106 NCC,52,FTR 10:05 PM 11/5/1971 10533 153305 LT40: .ASCII [VERSION^C#[ 10534 151323 10535 144717 10536 147203 10537 000000 10540 142722 LT41: .ASCII [ERRORS PLUS ^B/^A#[ 10541 151317 10542 151323 10543 120320 10544 146325 10545 151640 10546 120202 10547 127601 10550 000000 10551 142722 LT42: .ASCII [ERRORS MINUS ^B/^A#[ 10552 151317 10553 151323 10554 120315 10555 144716 10556 152723 10557 120202 10560 127601 10561 000000 10562 144317 LT43: .ASCII [HOST TEST ^B/^A#[ 10563 151724 10564 120324 10565 142723 10566 152240 10567 101257 10570 100400 PAGE 107 NCC,52,FTR 10:05 PM 11/5/1971 10571 143322 LT44: .ASCII [FREE LIST ^B#[ 10572 142705 10573 120314 10574 144723 10575 152240 10576 101000 10577 151706 LT45: .ASCII [SF COUNT ^B#[ 10600 120303 10601 147725 10602 147324 10603 120202 10604 000000 10605 151305 LT46: .ASCII [REAS COUNT ^B#[ 10606 140723 10607 120303 10610 147725 10611 147324 10612 120202 10613 000000 10614 146717 LT47: .ASCII [MODEM^B CONNECTED TO IMP ^A#[ 10615 142305 10616 146602 10617 120303 10620 147716 10621 147305 10622 141724 10623 142704 10624 120324 10625 147640 10626 144715 10627 150240 10630 100400 PAGE 108 NCC,52,FTR 10:05 PM 11/5/1971 10631 152716 LT50: .ASCII [UNKNOWN#[ 10632 145716 10633 147727 10634 147000 10635 142316 LT51: .ASCII [DN PLUS #[ 10636 120320 10637 146325 10640 151640 10641 000000 10642 142316 LT52: .ASCII [DN MINUS#[ 10643 120315 10644 144716 10645 152723 10646 000000 10647 142316 LT53: .ASCII [DN#[ 10650 000000 10651 152720 LT54: .ASCII [UP#[ 10652 000000 10653 146317 LT55: .ASCII [LOOPED PLUS #[ 10654 147720 10655 142704 10656 120320 10657 146325 10660 151640 10661 000000 10662 146317 LT56: .ASCII [LOOPED MINUS#[ 10663 147720 10664 142704 10665 120315 10666 144716 10667 152723 10670 000000 10671 146317 LT57: .ASCII [LOOPED BOTH #[ 10672 147720 10673 142704 10674 120302 10675 147724 10676 144240 10677 000000 10700 144716 LT60: .ASCII [IN LIMBO#[ 10701 120314 10702 144715 10703 141317 10704 000000 PAGE 109 NCC,52,FTR 10:05 PM 11/5/1971 10705 147303 LT61: .ASCII [NCC LOG FULL#[ 10706 141640 10707 146317 10710 143640 10711 143325 10712 146314 10713 000000 10714 147303 LT62: .ASCII [NCC TIMEOUT SUSPENDED#[ 10715 141640 10716 152311 10717 146705 10720 147725 10721 152240 10722 151725 10723 151720 10724 142716 10725 142305 10726 142000 10727 147303 LT63: .ASCII [NCC TIMEOUT RESUMED#[ 10730 141640 10731 152311 10732 146705 10733 147725 10734 152240 10735 151305 10736 151725 10737 146705 10740 142000 10741 144317 LT64: .ASCII [HOST^B TEST ON#[ 10742 151724 10743 101240 10744 152305 10745 151724 10746 120317 10747 147000 10750 144317 LT65: .ASCII [HOST^B TEST OFF#[ 10751 151724 10752 101240 10753 152305 10754 151724 10755 120317 10756 143306 10757 000000 PAGE 110 NCC,52,FTR 10:05 PM 11/5/1971 10760 177777 FIN 10761 001006 10762 005401 10763 000001 10764 001015 10765 177773 10766 004412 10767 023020 10770 000177 10771 000200 10772 000214 PAGE 111 NCC,52,FTR 10:05 PM 11/5/1971 11000/ /ZERO AREA BEGIN /DHTP MUST PRECEDE HTP2 - SEE COPYHT 11000 DHTP: BSS HTBSIZ 13000 HTP1: BSS HTBSIZ 15000 HTP2: BSS HTBSIZ /DLTP MUST PRECEDE LTP2 - SEE COPYLT 17000 DLTP: BSS LTBSIZ 17100 LTP1: BSS LTBSIZ 17200 LTP2: BSS LTBSIZ 17300 BUF1: BSS BUFINL+2 17400 BUF2: BSS BUFINL+2 17500 BUF3: BSS BUFINL+2 17600 BUF4: BSS BUFINL+2 17700 BUF5: BSS BUFINL+2 20000 IMPST: BSS 97.^TN15MIN 21410 LINST: BSS 97.^TN15MIN 23020 000000 LGBUFB: 0 /START OF LOGGER Q LGBUFB+0+0+[0+0+[0+0+[0+0+27774-LGBUFB]^Q3]^T3]/ 27772 000000 LGBUFE: 0 /ZERO AREA END START