Source Code

This source code is very close to the Apollo Guidance Computer software for the Apollo 13 Lunar module. This revision of the Luminary 131 program is from December of 1969, whereas there was a later revision in January of 1970, and still another revision in February, which is the code that flew on the mission. As far as this transcription is concerned, it was originally from a copy made in 1991 of a printout from the collection of AGC developer Don Eyles for collector David Craig. It was subsequently scanned by Gary Neff, reprocessed for online presentation at the now-discontinued History of Recent Science and Technology (HRST) website of MIT's Dibner Institute (the full-quality scans being discarded in the process), and finally transcribed by Ron Burkey for the Virtual AGC Project. Although a high-quality replacement scan for a completely illegible page was later provided by Gary Neff, the reduced legibility of the reprocessed HRST posting nevertheless caused many errors to be introduced into the transcription. Accordingly, a second scan of the same physical printout was made in 2017 for the Virtual AGC Project's collection at the Internet Archive, and used to correct the transcription errors. All of the scanned materials mentioned, as well as other Luminary 131 related material, are available online. Don Eyles apprently made additional hand-written notes in printout between 1991 and 2017, so the two scans are not identical in that respect. The page-headings in the printout read, in part:
	GAP:  ASSEMBLE REVISION 131 OF AGC PROGRAM LUMINARY BY NASA 2021112-091
	17:53 DEC. 19, 1969
Note that the date is the date the printout was made, not the date on which the program revision was released, although these happen to be very close together.

058065,000002:                                                                                                  ## Copyright:   Public domain.
058066,000003:                                                                                                  ## Filename:    UPDATE_PROGRAM.agc
058067,000004:                                                                                                  ## Purpose:     A section of Luminary 1C, revision 131.
058068,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
058069,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 13.
058070,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
058071,000008:                                                                                                  ##              that the code format has been changed to conform to the
058072,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
058073,000010:                                                                                                  ##              original YUL assembler.
058074,000011:                                                                                                  ## Reference:   pp. 1378-1388
058075,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
058076,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
058077,000014:                                                                                                  ## Mod history: 06/07/03 RSB.   Began transcribing.
058078,000015:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
058079,000016:                                                                                                  ##              2010-10-25 JL   Indentation fixes.
058080,000017:                                                                                                  ##              2011-05-07 JL   Flagged SBANK= workaround for future removal.
058081,000018:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
058082,000019:                                                                                                  ##                              original hardcopy, as opposed to the PDF page
058083,000020:                                                                                                  ##                              numbers in 1701.pdf.
058084,000021:                                                                                                  ##              2017-01-28 RSB  Comment-text fixes identified for Luminary 69.
058085,000022:                                                                                                  ##              2017-02-09 RSB  Comment-text fixes identified for Artemis 72.
058086,000023:                                                                                                  ##              2017-02-28 RSB  Proofed comment text using octopus/ProoferComments.
058087,000024:                                                                                                  ##              2017-03-13 RSB  Comment-text fixes noted in proofing Luminary 116.
058088,000025:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
058089,000026:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
058090,000027: 

Page 1378

058092,000029:                                                                                                  #  PROGRAM NAME:         P27
058093,000030:                                                                                                  #  WRITTEN BY:           KILROY/ DE WOLF
058094,000031: 
058095,000032:                                                                                                  #  MOD NO:               6
058096,000033:                                                                                                  #  MOD BY:               KILROY
058097,000034:                                                                                                  #  DATE:                 01DEC67
058098,000035: 
058099,000036:                                                                                                  #  LOG SECTION:          UPDATE PROGRAM.
058100,000037: 
058101,000038:                                                                                                  #  FUNCT. DESCR:         P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA
058102,000039:                                                                                                  #                            INSERTIONS REQUESTED BY THE GROUND VIA UPLINK.
058103,000040:                                                                                                  #                            THE P27 PROGRAM WILL ACCEPT UPDATES
058104,000041:                                                                                                  #                            ONLY DURING P00 FOR THE LM, AND ONLY DURING P00,
058105,000042:                                                                                                  #                        P02, AND FRESH START FOR THE CSM
058106,000043: 
058107,000044:                                                                                                  #  CALLING SEQ:          PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 70, 71, 72 AND 73.
058108,000045: 
058109,000046:                                                                                                  #  SUBROUTINES:          TESTXACT, NEWMODEX, NEWMODEX +3, GOXDSPF, BANKCALL, FINDVAC, INTPRET, INTSTALL, TPAGREE,
058110,000047:                                                                                                  #                        INTWAKEU, ENDEXT, POSTJUMP, FALTON, NEWPHASE, PHASCHNG
058111,000048: 
058112,000049:                                                                                                  #  NORMAL EXIT:          TC ENDEXT
058113,000050: 
058114,000051:                                                                                                  #  ALARM/ABORT:          TC FALTON FOLLOWED BY TC ENDEXT
058115,000052: 
058116,000053:                                                                                                  #  RESTARTS:             P27 IS RESTART PROTECTED IN TWO WAYS ...
058117,000054:                                                                                                  #                        1.      PRIOR TO VERIFLAG INVERSION (WHICH IS CAUSED BY THE GROUND/ASTRONAUT'S VERIFICATION OF UPDATE
058118,000055:                                                                                                  #                                DATA BY SENDING A V33E WHEN V21N02 IS FLASHING)---
058119,000056:                                                                                                  #                                NO PROTECTION EXCEPT PRE-P27 MODE IS RESTORED, COAST + ALIGN DOWNLIST IS SELECTED AND UPLINK
058120,000057:                                                                                                  #                                ACTIVITY LIGHT IS TURNED OFF.  (JUST AS IF A V34E WAS SENT DURING P27 DATA LOADS).
058121,000058:                                                                                                  #                                V70,V71,V72 OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER.
058122,000059:                                                                                                  #                        2.      AFTER VERIFLAG INVERSION (WHEN UPDATE OF THE SPECIFIED ERASABLES IS BEING PERFORMED)---
058123,000060:                                                                                                  #                                PROTECTED AGAINST RESTARTS.
058124,000061: 
058125,000062:                                                                                                  #  DEBRIS:               UPBUFF  (20D)   TEMP STORAGE FOR ADDRESSES AND CONTENTS.
058126,000063:                                                                                                  #                        UPVERB  (1)     VERB NUMBER MINUS 70D (E.G. FOR V72, UPVERB = 72D - 70D = 2)
058127,000064:                                                                                                  #                        UPOLDMOD(1)     FOR MAJOR MODE INTERRUPTED BY P27.
058128,000065:                                                                                                  #                        COMPNUMB(1)     TOTAL NUMBER OF COMPONENTS TO BE TRANSMITTED.
058129,000066:                                                                                                  #                        UPCOUNT (1)     ACTUAL NUMBER OF COMPONENTS RECEIVED.
058130,000067:                                                                                                  #                        UPTEMP  (1)     SCRATCH, BUT USUALLY CONTAINS COMPONENT NUMBER TO BE CHANGED DURING VERIFY CYCLE
058131,000068: 
058132,000069:                                                                                                  #  INPUT:
058133,000070: 
058134,000071:                                                                                                  #        ENTRY:                  DESCRIPTION
058135,000072:                                                                                                  #        V70EXXXXXEXXXXXE        (LIFTOFF TIME INCREMENT) DOUBLE PRECISION OCTAL TIME INCREMENT, XXXXX XXXXX,
058136,000073:                                                                                                  #                                IS ADDED TO TEPHEM, SUBTRACTED FROM AGC CLOCK(TIME2,TIME1), SUBTRACTED FROM CSM STATE
058137,000074:                                                                                                  #                                VECTOR TIME(TETCSM) AND SUBTRACTED FROM LEM STATE VECTOR TIME(TETLEM).
058138,000075:                                                                                                  #                                THE DP OCTAL TIME INCREMENT IS SCALED AT 2(28).

Page 1379

058140,000077:                                                                                                  #        V71EIIEAAAAE            (CONTIGUOUS BLOCK UPDATE) II-2 OCTAL COMPONENTS, XXXXX,
058141,000078:                                                                                                  #        XXXXXE                  ARE LOADED INTO ERASABLE STARTING AT ECADR, AAAA.
058142,000079:                                                                                                  #        XXXXXE                  IT IS .GE. 3 .AND. .LE. 20D.,
058143,000080:                                                                                                  #                                AND (AAAA + II -3) DOES NOT PRODUCE AN ADDRESS IN THE
058144,000081:                                                                                                  #        9 NEXT BANK
058145,000082:                                                                                                  #          .                     SCALING IS SAME AS INTERNAL REGISTERS.
058146,000083: 
058147,000084:                                                                                                  #        V72EIIE                 (SCATTER UPDATE) (II-1)/2 OCTAL COMPONENTS, XXXXX, ARE
058148,000085:                                                                                                  #        AAAAEXXXXXE             LOADED INTO ERASABLE LOCATIONS, AAAA.
058149,000086:                                                                                                  #        AAAAEXXXXXE             II IS .GE. 3 .AND. .LE. 19D, AND MUST BE ODD.
058150,000087:                                                                                                  #         .                      SCALING IS SAME AS INTERNAL REGISTERS.
058151,000088: 
058152,000089:                                                                                                  #        V73EXXXXXEXXXXXE        (OCTAL CLOCK INCREMENT) DOUBLE PRECISION OCTAL TIME
058153,000090:                                                                                                  #                                INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN
058154,000091:                                                                                                  #                                CENTISECONDS SCALED AT (2)28.
058155,000092:                                                                                                  #                                THIS LOAD IS THE OCTAL EQUIVALENT OF V55.
058156,000093: 
058157,000094:                                                                                                  #  OUTPUT:               IN ADDITION TO THE ABOVE REGISTER LOADS, ALL UPDATES
058158,000095:                                                                                                  #                        COMPLEMENT BIT3 OF FLAGWORD7.
058159,000096: 
058160,000097:                                                                                                  #  ADDITIONAL NOTES:     VERB 71, JUST DEFINED ABOVE WILL BE USED TO PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES --
058161,000098:                                                                                                  #                        1.  CSM/LM STATE VECTOR UPDATE
058162,000099:                                                                                                  #                        2.  REFSMMAT UPDATE
058163,000100: 
058164,000101:                                                                                                  #        THE FOLLOWING COMMENTS DELINEATE EACH SPECIAL UPDATE----
058165,000102: 
058166,000103:                                                                                                  #        1.  CSM/LM STATE VECTOR UPDATE (ALL DATA ENTRIES IN OCTAL)
058167,000104:                                                                                                  #                ENTRIES:        DATA DEFINITION:                                SCALE FACTORS:
058168,000105:                                                                                                  #                V71E            CONTIGUOUS BLOCK UPDATE VERB
058169,000106:                                                                                                  #                   21E          NUMBER OF COMPONENTS FOR STATE VECTOR UPDATE
058170,000107:                                                                                                  #                 AAAAE          ECADR OF 'UPSVFLAG'
058171,000108:                                                                                                  #                XXXXXE          STATE VECTOR IDENTIFIER: 00001 FOR CSM, 77776 FOR LEM - EARTH SPHERE OF INFLUENCE SCALING
058172,000109:                                                                                                  #                                                         00002 FOR CSM, 77775 FOR LEM - LUNAR SPHERE OF INFLUENCE SCALING
058173,000110:                                                                                                  #                XXXXXEXXXXXE    X POSITION
058174,000111:                                                                                                  #                XXXXXEXXXXXE    Y POSITION
058175,000112:                                                                                                  #                XXXXXEXXXXXE    Z POSITION
058176,000113:                                                                                                  #                XXXXXEXXXXXE    X VELOCITY
058177,000114:                                                                                                  #                XXXXXEXXXXXE    Y VELOCITY
058178,000115:                                                                                                  #                XXXXXEXXXXXE    Z VELOCITY
058179,000116:                                                                                                  #                XXXXXEXXXXXE    TIME FROM AGC CLOCK ZERO
058180,000117:                                                                                                  #                V33E            VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
058181,000118: 
058182,000119:                                                                                                  #        2.  REFSMMAT (ALL DATA ENTRIES IN OCTAL)
058183,000120:                                                                                                  #                ENTRIES:        DATA DEFINITIONS:                               SCALE FACTORS:

Page 1380

058185,000122:                                                                                                  #                V71E            CONTIGUOUS BLOCK UPDATE VERB
058186,000123:                                                                                                  #                   24E          NUMBER OF COMPONENTS FOR REFSMMAT UPDATE
058187,000124:                                                                                                  #                 AAAAE          ECADR OF 'REFSMMAT'
058188,000125:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 1                                  2(-1)
058189,000126:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 2                                  2(-1)
058190,000127:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 3                                  2(-1)
058191,000128:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 1                                  2(-1)
058192,000129:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 2                                  2(-1)
058193,000130:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 3                                  2(-1)
058194,000131:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 1                                  2(-1)
058195,000132:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 2                                  2(-1)
058196,000133:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 3                                  2(-1)
058197,000134:                                                                                                  #                V33E            VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED.
058198,000135: 

[WORKAROUND] RSB 2004

058200,000137: 13,3760  40,2000                                  SBANK=   PINSUPER                              
058201,000138: 
058202,000139: 07,3763                                           BANK     07                                    
058203,000140: 43,2000                                           SETLOC   EXTVERBS                              
058204,000141: 43,2000                                           BANK                                           
058205,000142: 
058206,000143: 43,3751  E3,1706                                  EBANK=   TEPHEM                                
058207,000144: 
058208,000145: 43,3751                                           COUNT*   $$/P27                                
058209,000146: 43,3751           34755        V70UPDAT           CAF      UP70                                  #  COMES HERE ON V70E
058210,000147: 43,3752           13760                           TCF      V73UPDAT   +1                         
058211,000148: 
058212,000149: 43,3753           34753        V71UPDAT           CAF      UP71                                  #  COMES HERE ON V71E
058213,000150: 43,3754           13760                           TCF      V73UPDAT   +1                         
058214,000151: 
058215,000152: 43,3755           34752        V72UPDAT           CAF      UP72                                  #  COMES HERE ON V72E
058216,000153: 43,3756           13760                           TCF      V73UPDAT   +1                         
058217,000154: 
058218,000155: 43,3757           36250        V73UPDAT           CAF      UP73                                  #  COMES HERE ON V73E
058219,000156: 
058220,000157: 43,3760           55165                 +1        TS       UPVERBSV                              #  SAVE UPVERB UNTIL IT'S OK TO ENTER P27
058221,000158: 
058222,000159: 43,3761           02076                           TC       TESTXACT                              #  GRAB DISPLAY IF AVAILABLE, OTHERWISE
058223,000160:                                                                                                  #  TURN *OPERATOR ERROR* ON AND TERMINATEJOB
058224,000161: 
058225,000162: 43,3762           31010                           CA       MODREG                                #  CHECK IF UPDATE ALLOWED
058226,000163: 43,3763           00006                           EXTEND                                         #  FIRST CHECK FOR MODREG = +0, -0
058227,000164: 43,3764           13767                           BZF      +3                                    #  (+0 = P00, -0 = FRESHSTART)
058228,000165: 43,3765           04635        UPERROR            TC       POSTJUMP                              #  TURN ON 'OPERATOR ERROR' LIGHT
058229,000166: 43,3766           11740                           CADR     UPERROUT   +2                         #  GO TO COMMON UPDATE PROGRAM EXIT
058230,000167: 
058231,000168: 43,3767  43,3765               CKMDMORE           =        UPERROR                               
058232,000169: 43,3767           55170                 +3        TS       UPOLDMOD                              #  SET UPOLDMOD TO ZERO.
058233,000170: 43,3770           31165                           CAE      UPVERBSV                              #  SET UPVERB TO INDICATE TO P27

Page 1381

058235,000172: 43,3771           55171                           TS       UPVERB                                #  WHICH EXTENDED VERB CALLED IT.
058236,000173: 
058237,000174: 43,3772           34753                           CAF      ONE                                   
058238,000175: 43,3773           55172                           TS       UPCOUNT                               #  INITIALIZE UPCOUNT TO 1
058239,000176: 
058240,000177: 43,3774           04635                           TC       POSTJUMP                              #  LEAVE EXTENDED VERB BANK AND
058241,000178: 43,3775           11357                           CADR     UPPART2                               #  GO TO UPDATE PROGRAM (P27) BANK.
058242,000179: 
058243,000180: 43,3776     4755               UP70               EQUALS   ZERO                                  
058244,000181: 43,3776     4753               UP71               EQUALS   ONE                                   
058245,000182: 43,3776     4752               UP72               EQUALS   TWO                                   
058246,000183: 43,3776     6250               UP73               EQUALS   THREE                                 
058247,000184: 
058248,000185: 04,3357                                           BANK     04                                    
058249,000186: 04,2000                                           SETLOC   UPDATE2                               
058250,000187: 04,2000                                           BANK                                           
058251,000188: 
058252,000189: 04,3357                                           COUNT*   $$/P27                                
058253,000190: 
058254,000191: 04,3357                        UPPART2            EQUALS                                         #  UPDATE PROGRAM - PART 2
058255,000192: 
058256,000193: 04,3357           05353                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO RESTORE OLD MODE
058257,000194: 04,3360           07026                           OCT      07026                                 #  AND DOWNLIST AND EXIT IF RESTART OCCURS.
058258,000195: 04,3361           30000                           OCT      30000                                 #  PRIORITY SAME AS CHRPRIO
058259,000196: 04,3362     1173                                  EBANK=   UPBUFF                                
058260,000197: 04,3362           03670 10102                     2CADR    UPOUT      +1                         
058261,000198: 
058262,000199: 04,3364           34753                           CAF      ONE                                   
058263,000200: 04,3365           54333                           TS       DNLSTCOD                              #  DOWNLIST
058264,000201: 
058265,000202: 04,3366           05311                           TC       NEWMODEX                              #  SET MAJOR MODE = 27
058266,000203: 04,3367           00033                           DEC      27         B-14                       
058267,000204: 
058268,000205: 04,3370           51171                           INDEX    UPVERB                                #  BRANCH DEPENDING ON WHETHER THE UPDATE
058269,000206: 04,3371           13372                           TCF      +1                                    #  VERB REQUIRES A FIXED OR VARIABLE NUMBER
058270,000207: 04,3372           13375                           TCF      +3                                    #  V70 FIXED.               (OF COMPONENTS.
058271,000208: 04,3373           13400                           TCF      OHWELL1                               #  V71 VARIABLE - GO GET NO. OF COMPONENTS
058272,000209: 04,3374           13400                           TCF      OHWELL1                               #  V72 VARIABLE - GO GET NO. OF COMPONENTS
058273,000210: 04,3375           34752                           CA       TWO                                   #  V73 (AND V70) FIXED
058274,000211: 04,3376           55167                           TS       COMPNUMB                              #  SET NUMBER OF COMPONENTS TO 2.
058275,000212: 04,3377           13423                           TCF      OHWELL2                               #  GO GET THE TWO UPDATE COMPONENTS
058276,000213: 
058277,000214: 04,3400           33473        OHWELL1            CAF      ADUPBUFF                              #  * REQUEST USER TO SEND NUMBER  *
058278,000215: 04,3401           54156                           TS       MPAC       +2                         #  * OF COMPONENTS PARAMETER(II). *
058279,000216: 04,3402           33474                 +2        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
058280,000217: 04,3403           04616                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01
058281,000218: 04,3404           20334                           CADR     GOXDSPF                               #  TO REQUEST II.

Page 1382

058283,000220: 04,3405           13670                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN
058284,000221: 04,3406           13402                           TCF      OHWELL1    +2                         
058285,000222: 04,3407           03464                           TC       CK4V32                                #  DATA OR V32 RETURN
058286,000223: 04,3410           44752                           CS       BIT2                                  
058287,000224: 04,3411           61173                           AD       UPBUFF                                #  IS II (NUMBER OF COMPONENTS PARAMETER)
058288,000225: 04,3412           00006                           EXTEND                                         #  .GE. 3 AND .LE. 20D.
058289,000226: 04,3413           63402                           BZMF     OHWELL1    +2                         
058290,000227: 04,3414           41173                           CS       UPBUFF                                
058291,000228: 04,3415           64362                           AD       UP21                                  
058292,000229: 04,3416           00006                           EXTEND                                         
058293,000230: 04,3417           63402                           BZMF     OHWELL1    +2                         
058294,000231: 04,3420           31173                           CAE      UPBUFF                                
058295,000232: 04,3421           55167                           TS       COMPNUMB                              #  SAVE II IN COMPNUMB
058296,000233: 
058297,000234:                                                                                                  #  UPBUFF LOADING SEQUENCE
058298,000235: 
058299,000236: 04,3422           25172                           INCR     UPCOUNT                               #  INCREMENT COUNT OF COMPONENTS RECEIVED.
058300,000237: 04,3423           33640        OHWELL2            CAF      ADUPBFM1                              #  CALCULATE LOCATION (ECADR) IN UPBUFF
058301,000238: 04,3424           61172                           AD       UPCOUNT                               #  WHERE NEXT COMPONENT SHOULD BE STORED.
058302,000239: 04,3425           54156                 +2        TS       MPAC       +2                         #  PLACE ECADR INTO R3.
058303,000240: 04,3426           33474                 +3        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
058304,000241: 04,3427           04616                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01
058305,000242: 04,3430           20334                           CADR     GOXDSPF                               #  TO REQUEST DATA.
058306,000243: 04,3431           13670                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN.
058307,000244: 04,3432           13426                           TCF      OHWELL2    +3                         #  V33 PROCEED RETURN
058308,000245: 04,3433           03464                           TC       CK4V32                                #  DATA OR V32 RETURN
058309,000246: 04,3434           41172                           CS       UPCOUNT                               #  HAVE WE FINISHED RECEIVING ALL
058310,000247: 04,3435           61167                           AD       COMPNUMB                              #  THE DATA WE EXPECTED.
058311,000248: 04,3436           00006                           EXTEND                                         
058312,000249: 04,3437           63441                           BZMF     UPVERIFY                              #  YES - GO TO VERIFICATION SEQUENCE
058313,000250: 04,3440           13422                           TCF      OHWELL2    -1                         #  NO - REQUEST ADDITIONAL DATA.
058314,000251: 
058315,000252:                                                                                                  #  VERIFY SEQUENCE
058316,000253: 
058317,000254: 04,3441           33472        UPVERIFY           CAF      ADUPTEMP                              #  PLACE ECADR WHERE COMPONENT NO. INDEX
058318,000255: 04,3442           54156                           TS       MPAC       +2                         #  IS TO BE STORED INTO R3.
058319,000256: 04,3443           33475                           CAF      UPVRFYNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
058320,000257: 04,3444           04616                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N02 TO REQUEST
058321,000258: 04,3445           20334                           CADR     GOXDSPF                               #  DATA CORRECTION OR VERIFICATION.
058322,000259: 04,3446           13670                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN
058323,000260: 04,3447           13476                           TCF      UPSTORE                               #  V33 DATA SENT IS GOOD.  GO STORE IT.
058324,000261: 04,3450           03464                           TC       CK4V32                                #  COMPONENT NO. INDEX OR V32 RETURN
058325,000262: 04,3451           31166                           CA       UPTEMP                                #  DOES THE COMPONENT NO. INDEX JUST SENT
058326,000263: 04,3452           00006                           EXTEND                                         #  SPECIFY A LEGAL COMPONENT NUMBER?
058327,000264: 04,3453           63441                           BZMF     UPVERIFY                              #  NO, IT IS NOT POSITIVE NONZERO
058328,000265: 04,3454           41166                           CS       UPTEMP                                
058329,000266: 04,3455           61167                           AD       COMPNUMB                              
058330,000267: 04,3456           64753                           AD       BIT1                                  

Page 1383

058332,000269: 04,3457           00006                           EXTEND                                         
058333,000270: 04,3460           63441                           BZMF     UPVERIFY                              #  NO
058334,000271: 04,3461           33640                           CAF      ADUPBFM1                              #  YES - BASED ON THE COMPONENT NO. INDEX
058335,000272: 04,3462           61166                           AD       UPTEMP                                #  CALCULATE THE ECADR OF LOCATION IN
058336,000273: 04,3463           13425                           TCF      OHWELL2    +2                         #  UPBUFF WHICH USER WANTS TO CHANGE.
058337,000274: 
058338,000275: 04,3464  04,3670               UPOUT4             EQUALS   UPOUT      +1                         #  COMES HERE ON V34 TO TERMINATE UPDATE
058339,000276: 
058340,000277:                                                                                                  #  CHECK FOR VERB 32 SEQUENCE
058341,000278: 
058342,000279: 04,3464           40154        CK4V32             CS       MPAC                                  #  ON DATA RETURN FROM 'GOXDSPF'
058343,000280: 04,3465           74746                           MASK     BIT6                                  #  ON DATA RETURN FROM "GOXDSP" & THE CON-
058344,000281: 04,3466           10000                           CCS      A                                     #  TENTS OF MPAC = VERB.  SO TEST FOR V32.
058345,000282: 04,3467           00002                           TC       Q                                     #  IT'S NOT A V32, IT'S DATA.  PROCEED.
058346,000283: 04,3470           50002                           INDEX    Q                                     
058347,000284: 04,3471           77771                           TC       0          -6                         #  V32 ENCOUNTERED - GO BACK AND GET DATA
058348,000285: 
058349,000286: 04,3472           01166        ADUPTEMP           ADRES    UPTEMP                                #  ADDRESS OF TEMP STORAGE FOR CORRECTIONS
058350,000287: 04,3473           01173        ADUPBUFF           ADRES    UPBUFF                                #  ADDRESS OF UPDATE DATA STORAGE BUFFER
058351,000288: 04,3474           05201        UPLOADNV           VN       2101                                  #  VERB 21 NOUN 01
058352,000289: 04,3475           05202        UPVRFYNV           VN       2102                                  #  VERB 21 NOUN 02
058353,000290: 04,3476     4362               UP21               =        MD1                                   #  DEC 21 = MAX NO OF COMPONENTS +1
058354,000291: 04,3476     4756               UPDTPHAS           EQUALS   FIVE                                  
058355,000292: 
058356,000293:                                                                                                  #  PRE-STORE AND FAN TO APPROPRIATE BRANCH SEQUENCE
058357,000294: 
058358,000295: 04,3476                        UPSTORE            EQUALS                                         #  GROUND HAS VERIFIED UPDATE.  STORE DATA.
058359,000296: 
058360,000297: 04,3476           00004                           INHINT                                         
058361,000298: 
058362,000299: 04,3477           30103                           CAE      FLAGWRD7                              #  INVERT VERIFLAG (BIT 3 OF FLAGWRD7) TO
058363,000300: 04,3500           56001                           XCH      L                                     #  INDICATE TO THE GROUND (VIA DOWNLINK)
058364,000301: 04,3501           34751                           CAF      VERIFBIT                              #  THAT THE V33 (WHICH THE GROUND SENT TO
058365,000302: 04,3502           00006                           EXTEND                                         #  VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
058366,000303: 04,3503           06001                           RXOR     LCHAN                                 #  RECEIVED BY THE UPDATE PROGRAM
058367,000304: 04,3504           54103                           TS       FLAGWRD7                              
058368,000305: 
058369,000306: 04,3505           05353                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO REDO THE UPDATE
058370,000307: 04,3506           04026                           OCT      04026                                 #  DATA STORE IF A RESTART OCCURS.
058371,000308: 04,3507           00004                           INHINT                                         #  (BECAUSE PHASCHNG DID A RELINT)
058372,000309: 
058373,000310: 04,3510           44752                           CS       TWO                                   #  GO TO UPFNDVAC IF INSTALL IS REQUIRED,
058374,000311: 04,3511           61171                           AD       UPVERB                                #  THAT IS, IF IT'S A V70 - V72.
058375,000312: 04,3512           00006                           EXTEND                                         #  GO TO UPEND73 IF IT'S A V73.
058376,000313: 04,3513           63522                           BZMF     UPFNDVAC                              
058377,000314: 
058378,000315:                                                                                                  #  VERB 73 BRANCH
058379,000316: 
058380,000317: 04,3514           00006        UPEND73            EXTEND                                         #  V73 - PERFORM DP OCTAL AGC CLOCK INCREMENT

Page 1384

058382,000319: 04,3515           31174                           DCA      UPBUFF                                
058383,000320: 04,3516           53204                           DXCH     UPBUFF     +8D                        
058384,000321: 04,3517           03545                           TC       TIMEDIDL                              
058385,000322: 04,3520           04364                           TC       FALTON                                #  ERROR - TURN ON *OPERATOR ERROR* LIGHT
058386,000323: 04,3521           03670                           TC       UPOUT      +1                         #  GO TO COMMON UPDATE PROGRAM EXIT
058387,000324: 
058388,000325: 04,3522           34355        UPFNDVAC           CAF      CHRPRIO                               #  (USE EXTENDED VERB PRIORITY)
058389,000326: 04,3523           05105                           TC       FINDVAC                               #  GET VAC AREA FOR 'CALL INTSTALL'
058390,000327: 04,3524  E3,1706                                  EBANK=   TEPHEM                                
058391,000328: 04,3524           03527 10103                     2CADR    UPJOB                                 #  (NOTE:  THIS WILL ALSO SET EBANK FOR
058392,000329: 04,3526           05155                           TC       ENDOFJOB                              #  'TEPHEM' UPDATE BY V70)
058393,000330: 
058394,000331: 04,3527           06042        UPJOB              TC       INTPRET                               #  THIS COULD BE A STATE VECTOR UPDATE -- SO
058395,000332: 04,3530           77624                           CALL                                           #  WAIT (PUT JOB TO SLEEP) IF ORBIT INT(OI)
058396,000333: 04,3531           27410                                    INTSTALL                              #  IS IN PROGRESS -- OR -- GRAB OI AND RETURN
058397,000334:                                                                                                  #  TO UPWAKE IF OI IS NOT IN PROGRESS.
058398,000335: 
058399,000336: 04,3532           77776        UPWAKE             EXIT                                           
058400,000337: 
058401,000338: 04,3533           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
058402,000339: 04,3534           04026                           OCT      04026                                 
058403,000340: 
058404,000341: 04,3535           05504                           TC       UPFLAG                                #  SET INTEGRATION RESTART BIT
058405,000342: 04,3536           00236                           ADRES    REINTFLG                              
058406,000343: 04,3537           00004                           INHINT                                         
058407,000344: 04,3540                        UPPART3            EQUALS                                         
058408,000345: 
058409,000346: 04,3540           51171                           INDEX    UPVERB                                #  BRANCH TO THE APPROPRIATE UPDATE VERB
058410,000347: 04,3541           13542                           TCF      +1                                    #  ROUTINE TO ACTUALLY PERFORM THE UPDATE
058411,000348: 04,3542           13701                           TCF      UPEND70                               #  V70
058412,000349: 04,3543           13610                           TCF      UPEND71                               #  V71
058413,000350: 04,3544           13642                           TCF      UPEND72                               #  V72
058414,000351: 
058415,000352:                                                                                                  #  ROUTINE TO INCREMENT CLOCK (TIME2,TIME1) WITH CONTENTS OF DP WORD AT UPBUFF.
058416,000353: 
058417,000354: 04,3545           00006        TIMEDIDL           EXTEND                                         
058418,000355: 04,3546           23166                           QXCH     UPTEMP                                #  SAVE Q FOR RETURN
058419,000356: 04,3547           34755                           CAF      ZERO                                  #  ZERO AND SAVE TIME2,TIME1
058420,000357: 04,3550           22007                           ZL                                             
058421,000358: 04,3551           52025                           DXCH     TIME2                                 
058422,000359: 04,3552           53216                           DXCH     UPBUFF     +18D                       #  STORE IN CASE OF OVERFLOW
058423,000360: 
058424,000361: 04,3553           34756                           CAF      UPDTPHAS                              #  DO
058425,000362: 04,3554           54001                           TS       L                                     #  A
058426,000363: 04,3555           40000                           COM                                            #  QUICK
058427,000364: 04,3556           52764                           DXCH     -PHASE6                               #  PHASCHNG
058428,000365: 
058429,000366: 04,3557           00004        TIMEDIDR           INHINT                                         

Page 1385

058431,000368: 04,3560           34755                           CAF      ZERO                                  
058432,000369: 04,3561           22007                           ZL                                             #  PICK UP INCREMENTER(AND ZERO
058433,000370: 04,3562           54156                           TS       MPAC       +2                         #  IT IN CASE OF RESTARTS) AND
058434,000371: 04,3563           53204                           DXCH     UPBUFF     +8D                        #  STORE IT
058435,000372: 04,3564           52155                           DXCH     MPAC                                  #  INTO MPAC FOR TPAGREE.
058436,000373: 
058437,000374: 04,3565           00006                           EXTEND                                         
058438,000375: 04,3566           31216                           DCA      UPBUFF     +18D                       
058439,000376: 04,3567           20155                           DAS      MPAC                                  #  FORM SUM IN MPAC
058440,000377: 04,3570           00006                           EXTEND                                         
058441,000378: 04,3571           13600                           BZF      DELTAOK                               #  TEST FOR OVERFLOW
058442,000379: 04,3572           34755                           CAF      ZERO                                  
058443,000380: 04,3573           53216                           DXCH     UPBUFF     +18D                       #  OVERFLOW, RESTORE OLD VALUE OF CLOCK
058444,000381: 04,3574           20025                           DAS      TIME2                                 #  AND TURN ON OPERATOR ERROR
058445,000382: 
058446,000383: 04,3575           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
058447,000384: 04,3576           04026                           OCT      04026                                 
058448,000385: 
058449,000386: 04,3577           01166                           TC       UPTEMP                                #  GO TO ERROR EXIT
058450,000387: 
058451,000388: 04,3600           07262        DELTAOK            TC       TPAGREE                               #  FORCE SIGN AGREEMENT
058452,000389: 04,3601           52155                           DXCH     MPAC                                  
058453,000390: 04,3602           20025                           DAS      TIME2                                 #  INCREMENT TIME2,TIME1
058454,000391: 
058455,000392: 04,3603           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
058456,000393: 04,3604           04026                           OCT      04026                                 
058457,000394: 
058458,000395: 04,3605           00004                           INHINT                                         
058459,000396: 04,3606           51166                           INDEX    UPTEMP                                #  (CODED THIS WAY FOR RESTART PROTECTION)
058460,000397: 04,3607           00001                           TC       1                                     #  NORMAL RETURN
058461,000398: 
058462,000399:                                                                                                  #  VERB 71 BRANCH
058463,000400: 
058464,000401: 04,3610           31174        UPEND71            CAE      UPBUFF     +1                         #  SET EBANK
058465,000402: 04,3611           54003                           TS       EBANK                                 #        AND
058466,000403: 04,3612           74357                           MASK     LOW8                                  #  CALCULATE
058467,000404: 04,3613           55166                           TS       UPTEMP                                #  S-REG VALUE OF RECEIVING AREA
058468,000405: 
058469,000406: 04,3614           67750                           AD       NEG3                                  #  IN THE PROCESS OF
058470,000407: 04,3615           61167                           AD       COMPNUMB                              #  PERFORMING
058471,000408: 04,3616           00006                           EXTEND                                         #  THIS UPDATE
058472,000409: 04,3617           13625                           BZF      STORLP71                              #  WILL WE
058473,000410: 04,3620           74743                           MASK     BIT9                                  #  OVERFLOW
058474,000411: 04,3621           10000                           CCS      A                                     #  INTO THE NEXT EBANK....
058475,000412: 04,3622           13736                           TCF      UPERROUT                              #  YES
058476,000413: 
058477,000414: 04,3623           37750                           CA       NEG3                                  #  NO - CALCULATE NUMBER OF
058478,000415: 04,3624           61167                           AD       COMPNUMB                              #  WORDS TO BE STORED MINUS ONE
058479,000416: 04,3625           54154        STORLP71           TS       MPAC                                  #  SAVE NO. OF WORDS REMAINING MINUS ONE
058480,000417: 04,3626           50000                           INDEX    A                                     #  TAKE NEXT UPDATE WORD FROM
058481,000418: 04,3627           31175                           CA       UPBUFF     +2                         #  UPBUFF AND

Page 1386

058483,000420: 04,3630           54001                           TS       L                                     #  SAVE IT IN L
058484,000421: 04,3631           30154                           CA       MPAC                                  #  CALCULATE NEXT
058485,000422: 04,3632           61166                           AD       UPTEMP                                #  RECEIVING ADDRESS
058486,000423: 04,3633           50000                           INDEX    A                                     
058487,000424: 04,3634  E3,1400                                  EBANK=   1400                                  
058488,000425: 04,3634           23400                           LXCH     1400                                  #  UPDATE THE REGISTER BY CONTENTS OF L
058489,000426: 04,3635  E3,1706                                  EBANK=   TEPHEM                                
058490,000427: 04,3635           10154                           CCS      MPAC                                  #  ARE THERE ANY WORDS LEFT TO BE STORED
058491,000428: 04,3636           13625                           TCF      STORLP71                              #  YES
058492,000429: 04,3637           13667                           TCF      UPOUT                                 #  NO - THEN EXIT UPDATE PROGRAM
058493,000430: 04,3640           01172        ADUPBFM1           ADRES    UPBUFF     -1                         #  SAME AS ADUPBUFF BUT LESS 1 (DON'T MOVE)
058494,000431: 04,3641           13667                           TCF      UPOUT                                 #  NO - EXIT UPDATE (HERE WHEN COMPNUMB = 3)
058495,000432: 
058496,000433:                                                                                                  #  VERB 72 BRANCH
058497,000434: 
058498,000435: 04,3642           34753        UPEND72            CAF      BIT1                                  #  HAVE AN ODD NO. OF COMPONENTS
058499,000436: 04,3643           71167                           MASK     COMPNUMB                              #  BEEN SENT FOR A V72 UPDATE ...
058500,000437: 04,3644           10000                           CCS      A                                     
058501,000438: 04,3645           13647                           TCF      +2                                    #  YES
058502,000439: 04,3646           13736                           TCF      UPERROUT                              #  ERROR - SHOULD BE ODD NO. OF COMPONENTS
058503,000440: 04,3647           44752                           CS       BIT2                                  
058504,000441: 04,3650           61167                           AD       COMPNUMB                              
058505,000442: 04,3651           54154        LDLOOP72           TS       MPAC                                  #  NOW PERFORM THE UPDATE
058506,000443: 04,3652           50000                           INDEX    A                                     
058507,000444: 04,3653           31174                           CAE      UPBUFF     +1                         #  PICK UP NEXT UPDATE WORD
058508,000445: 04,3654           22000                           LXCH     A                                     
058509,000446: 04,3655           10154                           CCS      MPAC                                  #  SET POINTER TO ECADR (MUST BE CCS)
058510,000447: 04,3656           54154                           TS       MPAC                                  
058511,000448: 04,3657           50000                           INDEX    A                                     
058512,000449: 04,3660           31174                           CAE      UPBUFF     +1                         #  PICK UP NEXT ECADR OF REG TO BE UPDATED
058513,000450: 04,3661           54003                           TS       EBANK                                 #  SET EBANK
058514,000451: 04,3662           74357                           MASK     LOW8                                  #  ISOLATE RELATIVE ADDRESS
058515,000452: 04,3663           50000                           INDEX    A                                     
058516,000453: 04,3664  E3,1400                                  EBANK=   1400                                  
058517,000454: 04,3664           23400                           LXCH     1400                                  #  UPDATE THE REGISTER BY CONTENTS OF L
058518,000455: 04,3665  E3,1706                                  EBANK=   TEPHEM                                
058519,000456: 04,3665           10154                           CCS      MPAC                                  #  ARE WE THROUGH THE V72 UPDATE...
058520,000457: 04,3666           13651                           TCF      LDLOOP72                              #  NO
058521,000458: 
058522,000459:                                                                                                  #  NORMAL FINISH OF P27
058523,000460: 
058524,000461: 04,3667                        UPOUT              EQUALS                                         
058525,000462: 04,3667           03131                           TC       INTWAKEU                              #  RELEASE GRAB OF ORBITAL INTEGRATION
058526,000463: 04,3670           31170                 +1        CAE      UPOLDMOD                              #  RESTORE PRIOR P27 MODE
058527,000464: 04,3671           05314                           TC       NEWMODEX   +3                         
058528,000465: 04,3672           34755                           CAF      ZERO                                  
058529,000466: 04,3673           54333                           TS       DNLSTCOD                              
058530,000467: 04,3674           03743                           TC       UPACTOFF                              #  TURN OFF 'UPLINK ACTIVITY' LIGHT

Page 1387

058532,000469: 04,3675           00006                           EXTEND                                         #  KILL GROUP 6.
058533,000470: 04,3676           34755                           DCA      NEG0                                  
058534,000471: 04,3677           52764                           DXCH     -PHASE6                               
058535,000472: 
058536,000473: 04,3700           05472                           TC       ENDEXT                                #  EXTENDED VERB EXIT
058537,000474: 
058538,000475:                                                                                                  #  VERB 70 BRANCH
058539,000476: 
058540,000477: 04,3701           00006        UPEND70            EXTEND                                         #  V70 DOES THE FOLLOWING WITH DP DELTA
058541,000478: 04,3702           41174                           DCS      UPBUFF                                #  TIME IN UPBUFF
058542,000479: 04,3703           53204                           DXCH     UPBUFF     +8D                        
058543,000480: 04,3704           03545                           TC       TIMEDIDL                              #  DECREMENT AGC CLOCK
058544,000481: 
058545,000482: 04,3705           03736                           TC       UPERROUT                              #  ERROR WHILE DECREMENTING CLOCK -- EXIT
058546,000483: 
058547,000484: 04,3706  E3,1706                                  EBANK=   TEPHEM                                
058548,000485: 04,3706           00006                           EXTEND                                         
058549,000486: 04,3707           41174                           DCS      UPBUFF                                #  COPY DECREMENTERS FOR
058550,000487: 04,3710           53206                           DXCH     UPBUFF     +10D                       #  RESTART PROTECTION
058551,000488: 04,3711           00006                           EXTEND                                         
058552,000489: 04,3712           41174                           DCS      UPBUFF                                
058553,000490: 04,3713           53210                           DXCH     UPBUFF     +12D                       
058554,000491: 
058555,000492: 04,3714           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
058556,000493: 04,3715           04026                           OCT      04026                                 
058557,000494: 
058558,000495: 04,3716           34755                           CAF      ZERO                                  
058559,000496: 04,3717           22007                           ZL                                             
058560,000497: 04,3720           53206                           DXCH     UPBUFF     +10D                       #  DECREMENT CSM STATE VECTOR TIME
058561,000498: 04,3721           21571                           DAS      TETCSM                                
058562,000499: 
058563,000500: 04,3722           34755                           CAF      ZERO                                  
058564,000501: 04,3723           22007                           ZL                                             
058565,000502: 04,3724           53210                           DXCH     UPBUFF     +12D                       #  DECREMENT LEM STATE VECTOR TIME
058566,000503: 04,3725           21643                           DAS      TETLEM                                
058567,000504: 
058568,000505: 04,3726           34755                           CAF      ZERO                                  
058569,000506: 04,3727           22007                           ZL                                             
058570,000507: 04,3730           53174                           DXCH     UPBUFF                                
058571,000508: 04,3731           21710                           DAS      TEPHEM     +1                         #  INCREMENT TP TEPHEM
058572,000509: 04,3732           27706                           ADS      TEPHEM                                
058573,000510: 
058574,000511: 04,3733           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
058575,000512: 04,3734           04026                           OCT      04026                                 
058576,000513: 
058577,000514: 04,3735     1173                                  EBANK=   UPBUFF                                
058578,000515: 
058579,000516: 04,3735           03667                           TC       UPOUT                                 #  GO TO STANDARD UPDATE PROGRAM EXIT
058580,000517: 

Page 1388

058582,000519:                                                                                                  #  ERROR SEQUENCE
058583,000520: 
058584,000521: 04,3736           04364        UPERROUT           TC       FALTON                                #  TURN ON *OPERATOR ERROR* LIGHT
058585,000522: 04,3737           13667                           TCF      UPOUT                                 #  GO TO COMMON UPDATE PROGRAM EXIT
058586,000523: 
058587,000524: 04,3740           04364                 +2        TC       FALTON                                #  TURN ON 'OPERATOR ERROR' LIGHT
058588,000525: 04,3741           03743                           TC       UPACTOFF                              #  TURN OFF 'UPLINK ACTIVITY' LIGHT
058589,000526: 04,3742           05472                           TC       ENDEXT                                #  EXTENDED VERB EXIT
058590,000527:                                                                                                  #  (THE PURPOSE OF UPERROUT +2 EXIT IS
058591,000528:                                                                                                  #  TO PROVIDE AN ERROR EXIT WHICH DOES NOT
058592,000529:                                                                                                  #  RESET ANY RESTART GROUPS)
058593,000530: 
058594,000531:                                                                                                  #  :UPACTOFF: IS A ROUTINE TO TURN OFF UPLINK ACTIVITY LIGHT ON ALL EXITS FROM UPDATE PROGRAM (P27).
058595,000532: 
058596,000533: 04,3743           44751        UPACTOFF           CS       BIT3                                  
058597,000534: 04,3744           00006                           EXTEND                                         #  TURN OFF UPLINK ACTIVITY LIGHT
058598,000535: 04,3745           03011                           WAND     DSALMOUT                              #  (BIT 3 OF CHANNEL 11)
058599,000536: 04,3746           00002                           TC       Q                                     
058600,000537: 

End of include-file UPDATE_PROGRAM.agc.  Parent file is MAIN.agc