Source Code

These source-code files derive from a printout of Luminary 116 (the Apollo 12 Lunar Module guidance computer program), from the personal library of original AGC developer Don Eyles, digitally photographed at archive.org, financially sponsored by Ron Burkey, and transcribed to source code by a team of volunteers. This colorized, syntax-highlighted form was created by assembling that transcribed source code. Note that the full page images are available on the Virtual AGC project page at archive.org, while reduced-size images are presented at the VirtualAGC project website. Report or fix any transcription errors at the Virtual AGC project code repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 116 OF AGC PROGRAM LUMINARY BY NASA 2021112-071
	19:09 AUG. 11,1969
Note that the date is the date of the printout, not the date of the program revision.

058421,000002:                                                                                                  ## Copyright:   Public domain.
058422,000003:                                                                                                  ## Filename:    UPDATE_PROGRAM.agc
058423,000004:                                                                                                  ## Purpose:     A section of Luminary revision 116.
058424,000005:                                                                                                  ##              It is part of the source code for the Lunar Module's (LM)
058425,000006:                                                                                                  ##              Apollo Guidance Computer (AGC) for Apollo 12.
058426,000007:                                                                                                  ##              This file is intended to be a faithful transcription, except
058427,000008:                                                                                                  ##              that the code format has been changed to conform to the
058428,000009:                                                                                                  ##              requirements of the yaYUL assembler rather than the
058429,000010:                                                                                                  ##              original YUL assembler.
058430,000011:                                                                                                  ## Reference:   pp. 1376-1386
058431,000012:                                                                                                  ## Assembler:   yaYUL
058432,000013:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
058433,000014:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
058434,000015:                                                                                                  ## Mod history: 2017-01-22 MAS  Created from Luminary 99.
058435,000016:                                                                                                  ##              2017-01-28 RSB  Comment-text fixes identified for Luminary 69.
058436,000017:                                                                                                  ##              2017-02-09 RSB  Comment-text fixes identified for Artemis 72.
058437,000018:                                                                                                  ##              2017-02-10 RRB  Updated for Luminary 116.
058438,000019:                                                                                                  ##              2017-03-14 RSB  Proofed comment text via 3-way diff vs
058439,000020:                                                                                                  ##                              Luminary 99 and 131.
058440,000021:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
058441,000022:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
058442,000023:                                                                                                  ##              2017-03-19 HG   Remove statement CAE MODREG
058443,000024: 

Page 1376

058445,000026:                                                                                                  #  PROGRAM NAME:         P27
058446,000027:                                                                                                  #  WRITTEN BY:           KILROY/ DE WOLF
058447,000028: 
058448,000029:                                                                                                  #  MOD NO:               6
058449,000030:                                                                                                  #  MOD BY:               KILROY
058450,000031:                                                                                                  #  DATE:                 01DEC67
058451,000032: 
058452,000033:                                                                                                  #  LOG SECTION:          UPDATE PROGRAM.
058453,000034: 
058454,000035:                                                                                                  #  FUNCT. DESCR:         P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA
058455,000036:                                                                                                  #                            INSERTIONS REQUESTED BY THE GROUND VIA UPLINK.
058456,000037:                                                                                                  #                            THE P27 PROGRAM WILL ACCEPT UPDATES
058457,000038:                                                                                                  #                            ONLY DURING P00 FOR THE LM, AND ONLY DURING P00,
058458,000039:                                                                                                  #                        P02, AND FRESH START FOR THE CSM
058459,000040: 
058460,000041:                                                                                                  #  CALLING SEQ:          PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 70, 71, 72 AND 73.
058461,000042: 
058462,000043:                                                                                                  #  SUBROUTINES:          TESTXACT, NEWMODEX, NEWMODEX +3, GOXDSPF, BANKCALL, FINDVAC, INTPRET, INTSTALL, TPAGREE,
058463,000044:                                                                                                  #                        INTWAKEU, ENDEXT, POSTJUMP, FALTON, NEWPHASE, PHASCHNG
058464,000045: 
058465,000046:                                                                                                  #  NORMAL EXIT:          TC ENDEXT
058466,000047: 
058467,000048:                                                                                                  #  ALARM/ABORT:          TC FALTON FOLLOWED BY TC ENDEXT
058468,000049: 
058469,000050:                                                                                                  #  RESTARTS:             P27 IS RESTART PROTECTED IN TWO WAYS ...
058470,000051:                                                                                                  #                        1. PRIOR TO VERIFLAG INVERSION (WHICH IS CAUSED BY THE GROUND/ASTRONAUT'S VERIFICATION OF UPDATE
058471,000052:                                                                                                  #                           DATA BY SENDING A V33E WHEN V21N02 IS FLASHING)---
058472,000053:                                                                                                  #                           NO PROTECTION EXCEPT PRE-P27 MODE IS RESTORED, COAST + ALIGN DOWNLIST IS SELECTED AND UPLINK
058473,000054:                                                                                                  #                           ACTIVITY LIGHT IS TURNED OFF.(JUST AS IF A V34E WAS SENT DURING P27 DATA LOADS).
058474,000055:                                                                                                  #                           V70,V71,V72 OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER.
058475,000056:                                                                                                  #                        2. AFTER VERIFLAG INVERSION (WHEN UPDATE OF THE SPECIFIED ERASABLES IS BEING PERFORMED)---
058476,000057:                                                                                                  #                           PROTECTED AGAINST RESTARTS.
058477,000058: 
058478,000059:                                                                                                  #  DEBRIS:               UPBUFF  (20D)   TEMP STORAGE FOR ADDRESSES AND CONTENTS.
058479,000060:                                                                                                  #                        UPVERB  (1)     VERB NUMBER MINUS 70D (E.G. FOR V72, UPVERB = 72D - 70D = 2)
058480,000061:                                                                                                  #                        UPOLDMOD(1)     FOR MAJOR MODE INTERRUPTED BY P27.
058481,000062:                                                                                                  #                        COMPNUMB(1)     TOTAL NUMBER OF COMPONENTS TO BE TRANSMITTED.
058482,000063:                                                                                                  #                        UPCOUNT (1)     ACTUAL NUMBER OF COMPONENTS RECEIVED.
058483,000064:                                                                                                  #                        UPTEMP  (1)     SCRATCH, BUT USUALLY CONTAINS COMPONENT NUMBER TO BE CHANGED DURING VERIFY CYCLE
058484,000065: 
058485,000066:                                                                                                  #  INPUT:
058486,000067: 
058487,000068:                                                                                                  #        ENTRY:                  DESCRIPTION
058488,000069:                                                                                                  #        V70EXXXXXEXXXXXE        (LIFTOFF TIME INCREMENT) DOUBLE PRECISION OCTAL TIME INCREMENT, XXXXX XXXXX,
058489,000070:                                                                                                  #                                IS ADDED TO TEPHEM, SUBTRACTED FROM AGC CLOCK(TIME2,TIME1), SUBTRACTED FROM CSM STATE
058490,000071:                                                                                                  #                                VECTOR TIME(TETCSM) AND SUBTRACTED FROM LEM STATE VECTOR TIME(TETLEM).
058491,000072:                                                                                                  #                                THE DP OCTAL TIME INCREMENT IS SCALED AT 2(28).

Page 1377

058493,000074:                                                                                                  #        V71EIIEAAAAE            (CONTIGUOUS BLOCK UPDATE) II-2 OCTAL COMPONENTS, XXXXX,
058494,000075:                                                                                                  #        XXXXXE                  ARE LOADED INTO ERASABLE STARTING AT ECADR, AAAA.
058495,000076:                                                                                                  #        XXXXXE                  IT IS .GE. 3 .AND. .LE. 20D.,
058496,000077:                                                                                                  #                                AND (AAAA + II -3) DOES NOT PRODUCE AN ADDRESS IN THE
058497,000078:                                                                                                  #        9 NEXT BANK
058498,000079:                                                                                                  #          .                     SCALING IS SAME AS INTERNAL REGISTERS.
058499,000080: 
058500,000081:                                                                                                  #        V72EIIE                 (SCATTER UPDATE) (II-1)/2 OCTAL COMPONENTS, XXXXX, ARE
058501,000082:                                                                                                  #        AAAAEXXXXXE             LOADED INTO ERASABLE LOCATIONS, AAAA.
058502,000083:                                                                                                  #        AAAAEXXXXXE             II IS .GE. 3 .AND. .LE. 19D, AND MUST BE ODD.
058503,000084:                                                                                                  #          .                     SCALING IS SAME AS INTERNAL REGISTERS.
058504,000085: 
058505,000086:                                                                                                  #        V73EXXXXXEXXXXXE        (OCTAL CLOCK INCREMENT) DOUBLE PRECISION OCTAL TIME
058506,000087:                                                                                                  #                                INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN
058507,000088:                                                                                                  #                                CENTISECONDS SCALED AT (2)28.
058508,000089:                                                                                                  #                                THIS LOAD IS THE OCTAL EQUIVALENT OF V55.
058509,000090: 
058510,000091:                                                                                                  #  OUTPUT:               IN ADDITION TO THE ABOVE REGISTER LOADS, ALL UPDATES
058511,000092:                                                                                                  #                        COMPLEMENT BIT3 OF FLAGWORD7.
058512,000093: 
058513,000094:                                                                                                  #  ADDITIONAL NOTES:     VERB 71, JUST DEFINED ABOVE WILL BE USED TO PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES --
058514,000095:                                                                                                  #                        1.  CSM/LM STATE VECTOR UPDATE
058515,000096:                                                                                                  #                        2.  REFSMMAT UPDATE
058516,000097: 
058517,000098:                                                                                                  #        THE FOLLOWING COMMENTS DELINEATE EACH SPECIAL UPDATE ----
058518,000099: 
058519,000100:                                                                                                  #        1.  CSM/LM STATE VECTOR UPDATE (ALL DATA ENTRIES IN OCTAL)
058520,000101:                                                                                                  #                ENTRIES:        DATA DEFINITION:                                SCALE FACTORS:
058521,000102:                                                                                                  #                V71E            CONTIGUOUS BLOCK UPDATE VERB
058522,000103:                                                                                                  #                   21E          NUMBER OF COMPONENTS FOR STATE VECTOR UPDATE
058523,000104:                                                                                                  #                 AAAAE          ECADR OF 'UPSVFLAG'
058524,000105:                                                                                                  #                XXXXXE          STATE VECTOR IDENTIFIER: 00001 FOR CSM, 77776 FOR LEM - EARTH SPHERE OF INFLUENCE SCALING
058525,000106:                                                                                                  #                                                         00002 FOR CSM, 77775 FOR LEM - LUNAR SPHERE OF INFLUENCE SCALING
058526,000107:                                                                                                  #                XXXXXEXXXXXE    X POSITION
058527,000108:                                                                                                  #                XXXXXEXXXXXE    Y POSITION
058528,000109:                                                                                                  #                XXXXXEXXXXXE    Z POSITION
058529,000110:                                                                                                  #                XXXXXEXXXXXE    X VELOCITY
058530,000111:                                                                                                  #                XXXXXEXXXXXE    Y VELOCITY
058531,000112:                                                                                                  #                XXXXXEXXXXXE    Z VELOCITY
058532,000113:                                                                                                  #                XXXXXEXXXXXE    TIME FROM AGC CLOCK ZERO
058533,000114:                                                                                                  #                V33E            VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
058534,000115: 
058535,000116:                                                                                                  #        2.  REFSMMAT (ALL DATA ENTRIES IN OCTAL)
058536,000117:                                                                                                  #                ENTRIES:        DATA DEFINITIONS:                               SCALE FACTORS:

Page 1378

058538,000119:                                                                                                  #                V71E            CONTIGUOUS BLOCK UPDATE VERB
058539,000120:                                                                                                  #                   24E          NUMBER OF COMPONENTS FOR REFSMMAT UPDATE
058540,000121:                                                                                                  #                 AAAAE          ECADR OF 'REFSMMAT'
058541,000122:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 1                                  2(-1)
058542,000123:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 2                                  2(-1)
058543,000124:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 3                                  2(-1)
058544,000125:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 1                                  2(-1)
058545,000126:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 2                                  2(-1)
058546,000127:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 3                                  2(-1)
058547,000128:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 1                                  2(-1)
058548,000129:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 2                                  2(-1)
058549,000130:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 3                                  2(-1)
058550,000131:                                                                                                  #                V33E            VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED.
058551,000132: 
058552,000133: 
058553,000134: 
058554,000135: 07,3764                                           BANK     07                                    
058555,000136: 43,2000                                           SETLOC   EXTVERBS                              
058556,000137: 43,2000                                           BANK                                           
058557,000138: 
058558,000139: 43,3745  E3,1706                                  EBANK=   TEPHEM                                
058559,000140: 
058560,000141: 43,3745                                           COUNT*   $$/P27                                
058561,000142: 43,3745           34755        V70UPDAT           CAF      UP70                                  #  COMES HERE ON V70E
058562,000143: 43,3746           13754                           TCF      V73UPDAT   +1                         
058563,000144: 
058564,000145: 43,3747           34753        V71UPDAT           CAF      UP71                                  #  COMES HERE ON V71E
058565,000146: 43,3750           13754                           TCF      V73UPDAT   +1                         
058566,000147: 
058567,000148: 43,3751           34752        V72UPDAT           CAF      UP72                                  #  COMES HERE ON V72E
058568,000149: 43,3752           13754                           TCF      V73UPDAT   +1                         
058569,000150: 
058570,000151: 43,3753           36250        V73UPDAT           CAF      UP73                                  #  COMES HERE ON V73E
058571,000152: 
058572,000153: 43,3754           55165                 +1        TS       UPVERBSV                              #  SAVE UPVERB UNTIL IT'S OK TO ENTER P27
058573,000154: 
058574,000155: 43,3755           02076                           TC       TESTXACT                              #  GRAB DISPLAY IF AVAILABLE, OTHERWISE
058575,000156:                                                                                                  #  TURN*OPERATOR ERROR* ON AND TERMINATEJOB
058576,000157: 
058577,000158: 43,3756           31010                           CA       MODREG                                #  CHECK IF UPDATE ALLOWED
058578,000159: 43,3757           00006                           EXTEND                                         #  FIRST CHECK FOR MODREG = +0, -0
058579,000160: 43,3760           13763                           BZF      +3                                    #  (+0 = P00, -0 = FRESHSTART)
058580,000161: 43,3761           04635        UPERROR            TC       POSTJUMP                              #  TURN ON 'OPERATOR ERROR' LIGHT
058581,000162: 43,3762           11743                           CADR     UPERROUT   +2                         #  GO TO COMMON UPDATE PROGRAM EXIT
058582,000163: 
058583,000164: 43,3763  43,3761               CKMDMORE           =        UPERROR                               
058584,000165: 43,3763           55170                           TS       UPOLDMOD                              #  SAVE CURRENT MAJOR MODE

Page 1379

058586,000167: 43,3764           31165                           CAE      UPVERBSV                              #  SET UPVERB TO INDICATE TO P27
058587,000168: 
058588,000169: 43,3765           55171                           TS       UPVERB                                #  WHICH EXTENDED VERB CALLED IT.
058589,000170: 
058590,000171: 43,3766           34753                           CAF      ONE                                   
058591,000172: 43,3767           55172                           TS       UPCOUNT                               #  INITIALIZE UPCOUNT TO 1
058592,000173: 
058593,000174: 43,3770           04635                           TC       POSTJUMP                              #  LEAVE EXTENDED VERB BANK AND
058594,000175: 43,3771           11362                           CADR     UPPART2                               #  GO TO UPDATE PROGRAM (P27) BANK.
058595,000176: 
058596,000177: 43,3772     4755               UP70               EQUALS   ZERO                                  
058597,000178: 43,3772     4753               UP71               EQUALS   ONE                                   
058598,000179: 43,3772     4752               UP72               EQUALS   TWO                                   
058599,000180: 43,3772     6250               UP73               EQUALS   THREE                                 
058600,000181: 
058601,000182: 04,3362                                           BANK     04                                    
058602,000183: 04,2000                                           SETLOC   UPDATE2                               
058603,000184: 04,2000                                           BANK                                           
058604,000185: 
058605,000186: 04,3362                                           COUNT*   $$/P27                                
058606,000187: 
058607,000188: 04,3362                        UPPART2            EQUALS                                         #  UPDATE PROGRAM - PART 2
058608,000189: 
058609,000190: 04,3362           05353                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO RESTORE OLD MODE
058610,000191: 04,3363           07026                           OCT      07026                                 #  AND DOWNLIST AND EXIT IF RESTART OCCURS.
058611,000192: 04,3364           30000                           OCT      30000                                 #  PRIORITY SAME AS CHRPRIO

[WORKAROUND] RSB 2009 - kept for Luminary 116 RRB 2017.

058613,000194: 04,3365  40,2000                                  SBANK=   PINSUPER                              
058614,000195: 04,3365     1173                                  EBANK=   UPBUFF                                
058615,000196: 04,3365           03673 10102                     2CADR    UPOUT      +1                         
058616,000197: 
058617,000198: 04,3367           34753                           CAF      ONE                                   
058618,000199: 04,3370           54333                           TS       DNLSTCOD                              #  DOWNLIST
058619,000200: 
058620,000201: 04,3371           05311                           TC       NEWMODEX                              #  SET MAJOR MODE = 27
058621,000202: 04,3372           00033                           DEC      27         B-14                       
058622,000203: 
058623,000204: 04,3373           51171                           INDEX    UPVERB                                #  BRANCH DEPENDING ON WHETHER THE UPDATE
058624,000205: 04,3374           13375                           TCF      +1                                    #  VERB REQUIRES A FIXED OR VARIABLE NUMBER
058625,000206: 04,3375           13400                           TCF      +3                                    #  V70 FIXED.               (OF COMPONENTS.
058626,000207: 04,3376           13403                           TCF      OHWELL1                               #  V71 VARIABLE - GO GET NO. OF COMPONENTS
058627,000208: 04,3377           13403                           TCF      OHWELL1                               #  V72 VARIABLE - GO GET NO. OF COMPONENTS
058628,000209: 04,3400           34752                           CA       TWO                                   #  V73 (AND V70) FIXED
058629,000210: 04,3401           55167                           TS       COMPNUMB                              #  SET NUMBER OF COMPONENTS TO 2.
058630,000211: 04,3402           13426                           TCF      OHWELL2                               #  GO GET THE TWO UPDATE COMPONENTS
058631,000212: 
058632,000213: 04,3403           33476        OHWELL1            CAF      ADUPBUFF                              #  * REQUEST USER TO SEND NUMBER *
058633,000214: 04,3404           54156                           TS       MPAC       +2                         #  * OF COMPONENTS PARAMETER(II).*
058634,000215: 04,3405           33477                 +2        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
058635,000216: 04,3406           04616                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01
058636,000217: 04,3407           20334                           CADR     GOXDSPF                               #  TO REQUEST II.
058637,000218: 

Page 1380

058639,000220: 04,3410           13673                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN
058640,000221: 04,3411           13405                           TCF      OHWELL1    +2                         
058641,000222: 04,3412           03467                           TC       CK4V32                                #  DATA OR V32 RETURN
058642,000223: 04,3413           44752                           CS       BIT2                                  
058643,000224: 04,3414           61173                           AD       UPBUFF                                #  IS II (NUMBER OF COMPONENTS PARAMETER)
058644,000225: 04,3415           00006                           EXTEND                                         #  .GE. 3 AND .LE. 20D.
058645,000226: 04,3416           63405                           BZMF     OHWELL1    +2                         
058646,000227: 04,3417           41173                           CS       UPBUFF                                
058647,000228: 04,3420           64362                           AD       UP21                                  
058648,000229: 04,3421           00006                           EXTEND                                         
058649,000230: 04,3422           63405                           BZMF     OHWELL1    +2                         
058650,000231: 04,3423           31173                           CAE      UPBUFF                                
058651,000232: 04,3424           55167                           TS       COMPNUMB                              #  SAVE II IN COMPNUMB
058652,000233: 
058653,000234:                                                                                                  #  UPBUFF LOADING SEQUENCE
058654,000235: 
058655,000236: 04,3425           25172                           INCR     UPCOUNT                               #  INCREMENT COUNT OF COMPONENTS RECEIVED.
058656,000237: 04,3426           33643        OHWELL2            CAF      ADUPBFM1                              #  CALCULATE LOCATION (ECADR) IN UPBUFF
058657,000238: 04,3427           61172                           AD       UPCOUNT                               #  WHERE NEXT COMPONENT SHOULD BE STORED.
058658,000239: 04,3430           54156                 +2        TS       MPAC       +2                         #  PLACE ECADR INTO R3.
058659,000240: 04,3431           33477                 +3        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
058660,000241: 04,3432           04616                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01
058661,000242: 04,3433           20334                           CADR     GOXDSPF                               #  TO REQUEST DATA.
058662,000243: 04,3434           13673                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN.
058663,000244: 04,3435           13431                           TCF      OHWELL2    +3                         #  V33 PROCEED RETURN
058664,000245: 04,3436           03467                           TC       CK4V32                                #  DATA OR V32 RETURN
058665,000246: 04,3437           41172                           CS       UPCOUNT                               #  HAVE WE FINISHED RECEIVING ALL
058666,000247: 04,3440           61167                           AD       COMPNUMB                              #  THE DATA WE EXPECTED.
058667,000248: 04,3441           00006                           EXTEND                                         
058668,000249: 04,3442           63444                           BZMF     UPVERIFY                              #  YES - GO TO VERIFICATION SEQUENCE
058669,000250: 04,3443           13425                           TCF      OHWELL2    -1                         #  NO - REQUEST ADDITIONAL DATA.
058670,000251: 
058671,000252:                                                                                                  #  VERIFY SEQUENCE
058672,000253: 
058673,000254: 04,3444           33475        UPVERIFY           CAF      ADUPTEMP                              #  PLACE ECADR WHERE COMPONENT NO. INDEX
058674,000255: 04,3445           54156                           TS       MPAC       +2                         #  IS TO BE STORED INTO R3.
058675,000256: 04,3446           33500                           CAF      UPVRFYNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
058676,000257: 04,3447           04616                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N02 TO REQUEST
058677,000258: 04,3450           20334                           CADR     GOXDSPF                               #  DATA CORRECTION OR VERIFICATION.
058678,000259: 04,3451           13673                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN
058679,000260: 04,3452           13501                           TCF      UPSTORE                               #  V33 DATA SENT IS GOOD.  GO STORE IT.
058680,000261: 04,3453           03467                           TC       CK4V32                                #  COMPONENT NO. INDEX OR V32 RETURN
058681,000262: 04,3454           31166                           CA       UPTEMP                                #  DOES THE COMPONENT NO. INDEX JUST SENT
058682,000263: 04,3455           00006                           EXTEND                                         #  SPECIFY A LEGAL COMPONENT NUMBER?
058683,000264: 04,3456           63444                           BZMF     UPVERIFY                              #  NO, IT IS NOT POSITIVE NONZERO
058684,000265: 04,3457           41166                           CS       UPTEMP                                
058685,000266: 04,3460           61167                           AD       COMPNUMB                              
058686,000267: 04,3461           64753                           AD       BIT1                                  

Page 1381

058688,000269: 04,3462           00006                           EXTEND                                         
058689,000270: 04,3463           63444                           BZMF     UPVERIFY                              #  NO
058690,000271: 04,3464           33643                           CAF      ADUPBFM1                              #  YES- BASED ON THE COMPONENT NO. INDEX
058691,000272: 04,3465           61166                           AD       UPTEMP                                #  CALCULATE THE ECADR OF LOCATION IN
058692,000273: 04,3466           13430                           TCF      OHWELL2    +2                         #  UPBUFF WHICH USER WANTS TO CHANGE.
058693,000274: 
058694,000275: 04,3467  04,3673               UPOUT4             EQUALS   UPOUT      +1                         #  COMES HERE ON V34 TO TERMINATE UPDATE
058695,000276: 
058696,000277:                                                                                                  #  CHECK FOR VERB 32 SEQUENCE
058697,000278: 
058698,000279: 04,3467           40154        CK4V32             CS       MPAC                                  #  ON DATA RETURN FROM 'GOXDSPF'
058699,000280: 04,3470           74746                           MASK     BIT6                                  #  ON DATA RETURN FROM "GOXDSP" & THE CON-
058700,000281: 04,3471           10000                           CCS      A                                     #  TENTS OF MPAC = VERB.  SO TEST FOR V32.
058701,000282: 04,3472           00002                           TC       Q                                     #  IT'S NOT A V32, IT'S DATA.  PROCEED.
058702,000283: 04,3473           50002                           INDEX    Q                                     
058703,000284: 04,3474           77771                           TC       0          -6                         #  V32 ENCOUNTERED - GO BACK AND GET DATA
058704,000285: 
058705,000286: 04,3475           01166        ADUPTEMP           ADRES    UPTEMP                                #  ADDRESS OF TEMP STORAGE FOR CORRECTIONS
058706,000287: 04,3476           01173        ADUPBUFF           ADRES    UPBUFF                                #  ADDRESS OF UPDATE DATA STORAGE BUFFER
058707,000288: 04,3477           05201        UPLOADNV           VN       2101                                  #  VERB 21 NOUN 01
058708,000289: 04,3500           05202        UPVRFYNV           VN       2102                                  #  VERB 21 NOUN 02
058709,000290: 04,3501     4362               UP21               =        MD1                                   #  DEC 21 = MAX NO OF COMPONENTS +1
058710,000291: 04,3501     4756               UPDTPHAS           EQUALS   FIVE                                  
058711,000292: 
058712,000293:                                                                                                  #  PRE-STORE AND FAN TO APPROPRIATE BRANCH SEQUENCE
058713,000294: 
058714,000295: 04,3501                        UPSTORE            EQUALS                                         #  GROUND HAS VERIFIED UPDATE.  STORE DATA.
058715,000296: 
058716,000297: 04,3501           00004                           INHINT                                         
058717,000298: 
058718,000299: 04,3502           30103                           CAE      FLAGWRD7                              #  INVERT VERIFLAG (BIT 3 OF FLAGWRD7) TO
058719,000300: 04,3503           56001                           XCH      L                                     #  INDICATE TO THE GROUND (VIA DOWNLINK)
058720,000301: 04,3504           34751                           CAF      VERIFBIT                              #  THAT THE V33 (WHICH THE GROUND SENT TO
058721,000302: 04,3505           00006                           EXTEND                                         #  VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
058722,000303: 04,3506           06001                           RXOR     LCHAN                                 #  RECEIVED BY THE UPDATE PROGRAM
058723,000304: 04,3507           54103                           TS       FLAGWRD7                              
058724,000305: 
058725,000306: 04,3510           05353                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO REDO THE UPDATE
058726,000307: 04,3511           04026                           OCT      04026                                 #  DATA STORE IF A RESTART OCCURS.
058727,000308: 04,3512           00004                           INHINT                                         #  (BECAUSE PHASCHNG DID A RELINT)
058728,000309: 
058729,000310: 04,3513           44752                           CS       TWO                                   #  GO TO UPFNDVAC IF INSTALL IS REQUIRED,
058730,000311: 04,3514           61171                           AD       UPVERB                                #  THAT IS, IF IT'S A V70 - V72.
058731,000312: 04,3515           00006                           EXTEND                                         #  GO TO UPEND73 IF IT'S A V73.
058732,000313: 04,3516           63525                           BZMF     UPFNDVAC                              
058733,000314: 
058734,000315:                                                                                                  #  VERB 73 BRANCH
058735,000316: 
058736,000317: 04,3517           00006        UPEND73            EXTEND                                         #  V73 - PERFORM DP OCTAL AGC CLOCK INCREMENT

Page 1382

058738,000319: 04,3520           31174                           DCA      UPBUFF                                
058739,000320: 04,3521           53204                           DXCH     UPBUFF     +8D                        
058740,000321: 04,3522           03550                           TC       TIMEDIDL                              
058741,000322: 04,3523           04364                           TC       FALTON                                #  ERROR- TURN ON *OPERATOR ERROR* LIGHT
058742,000323: 04,3524           03673                           TC       UPOUT      +1                         #  GO TO COMMON UPDATE PROGRAM EXIT
058743,000324: 
058744,000325: 04,3525           34355        UPFNDVAC           CAF      CHRPRIO                               #  (USE EXTENDED VERB PRIORITY)
058745,000326: 04,3526           05105                           TC       FINDVAC                               #  GET VAC AREA FOR 'CALL INTSTALL'
058746,000327: 04,3527  E3,1706                                  EBANK=   TEPHEM                                
058747,000328: 04,3527           03532 10103                     2CADR    UPJOB                                 #  (NOTE: THIS WILL ALSO SET EBANK FOR
058748,000329: 04,3531           05155                           TC       ENDOFJOB                              #  'TEPHEM' UPDATE BY V70)
058749,000330: 
058750,000331: 04,3532           06042        UPJOB              TC       INTPRET                               #  THIS COULD BE A STATE VECTOR UPDATE--SO
058751,000332: 04,3533           77624                           CALL                                           #  WAIT(PUT JOB TO SLEEP) IF ORBIT INT(OI)
058752,000333: 04,3534           27412                                    INTSTALL                              #  IS IN PROGRESS--OR--GRAB OI AND RETURN
058753,000334:                                                                                                  #  TO UPWAKE IF OI IS NOT IN PROGRESS.
058754,000335: 
058755,000336: 04,3535           77776        UPWAKE             EXIT                                           
058756,000337: 
058757,000338: 04,3536           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
058758,000339: 04,3537           04026                           OCT      04026                                 
058759,000340: 
058760,000341: 04,3540           05504                           TC       UPFLAG                                #  SET INTEGRATION RESTART BIT
058761,000342: 04,3541           00236                           ADRES    REINTFLG                              
058762,000343: 04,3542           00004                           INHINT                                         
058763,000344: 04,3543                        UPPART3            EQUALS                                         
058764,000345: 
058765,000346: 04,3543           51171                           INDEX    UPVERB                                #  BRANCH TO THE APPROPRIATE UPDATE VERB
058766,000347: 04,3544           13545                           TCF      +1                                    #  ROUTINE TO ACTUALLY PERFORM THE UPDATE
058767,000348: 04,3545           13704                           TCF      UPEND70                               #  V70
058768,000349: 04,3546           13613                           TCF      UPEND71                               #  V71
058769,000350: 04,3547           13645                           TCF      UPEND72                               #  V72
058770,000351: 
058771,000352:                                                                                                  #  ROUTINE TO INCREMENT CLOCK (TIME2,TIME1) WITH CONTENTS OF DP WORD AT UPBUFF.
058772,000353: 
058773,000354: 04,3550           00006        TIMEDIDL           EXTEND                                         
058774,000355: 04,3551           23166                           QXCH     UPTEMP                                #  SAVE Q FOR RETURN
058775,000356: 04,3552           34755                           CAF      ZERO                                  #  ZERO AND SAVE TIME2,TIME1
058776,000357: 04,3553           22007                           ZL                                             
058777,000358: 04,3554           52025                           DXCH     TIME2                                 
058778,000359: 04,3555           53216                           DXCH     UPBUFF     +18D                       #  STORE IN CASE OF OVERFLOW
058779,000360: 
058780,000361: 04,3556           34756                           CAF      UPDTPHAS                              #  DO
058781,000362: 04,3557           54001                           TS       L                                     #  A
058782,000363: 04,3560           40000                           COM                                            #  QUICK
058783,000364: 04,3561           52764                           DXCH     -PHASE6                               #  PHASCHNG
058784,000365: 
058785,000366: 04,3562           00004        TIMEDIDR           INHINT                                         

Page 1383

058787,000368: 04,3563           34755                           CAF      ZERO                                  
058788,000369: 04,3564           22007                           ZL                                             #  PICK UP INCREMENTER(AND ZERO
058789,000370: 04,3565           54156                           TS       MPAC       +2                         #  IT IN CASE OF RESTARTS) AND
058790,000371: 04,3566           53204                           DXCH     UPBUFF     +8D                        #  STORE IT
058791,000372: 04,3567           52155                           DXCH     MPAC                                  #  INTO MPAC FOR TPAGREE.
058792,000373: 
058793,000374: 04,3570           00006                           EXTEND                                         
058794,000375: 04,3571           31216                           DCA      UPBUFF     +18D                       
058795,000376: 04,3572           20155                           DAS      MPAC                                  #  FORM SUM IN MPAC
058796,000377: 04,3573           00006                           EXTEND                                         
058797,000378: 04,3574           13603                           BZF      DELTAOK                               #  TEST FOR OVERFLOW
058798,000379: 04,3575           34755                           CAF      ZERO                                  
058799,000380: 04,3576           53216                           DXCH     UPBUFF     +18D                       #  OVERFLOW, RESTORE OLD VALUE OF CLOCK
058800,000381: 04,3577           20025                           DAS      TIME2                                 #  AND TURN ON OPERATOR ERROR
058801,000382: 
058802,000383: 04,3600           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
058803,000384: 04,3601           04026                           OCT      04026                                 
058804,000385: 
058805,000386: 04,3602           01166                           TC       UPTEMP                                #  GO TO ERROR EXIT
058806,000387: 
058807,000388: 04,3603           07262        DELTAOK            TC       TPAGREE                               #  FORCE SIGN AGREEMENT
058808,000389: 04,3604           52155                           DXCH     MPAC                                  
058809,000390: 04,3605           20025                           DAS      TIME2                                 #  INCREMENT TIME2,TIME1
058810,000391: 
058811,000392: 04,3606           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
058812,000393: 04,3607           04026                           OCT      04026                                 
058813,000394: 
058814,000395: 04,3610           00004                           INHINT                                         
058815,000396: 04,3611           51166                           INDEX    UPTEMP                                #  (CODED THIS WAY FOR RESTART PROTECTION)
058816,000397: 04,3612           00001                           TC       1                                     #  NORMAL RETURN
058817,000398: 
058818,000399:                                                                                                  #  VERB 71 BRANCH
058819,000400: 
058820,000401: 04,3613           31174        UPEND71            CAE      UPBUFF     +1                         #  SET EBANK
058821,000402: 04,3614           54003                           TS       EBANK                                 #    AND
058822,000403: 04,3615           74357                           MASK     LOW8                                  #  CALCULATE
058823,000404: 04,3616           55166                           TS       UPTEMP                                #  S-REG VALUE OF RECEIVING AREA
058824,000405: 
058825,000406: 04,3617           67750                           AD       NEG3                                  #  IN THE PROCESS OF
058826,000407: 04,3620           61167                           AD       COMPNUMB                              #  PERFORMING
058827,000408: 04,3621           00006                           EXTEND                                         #  THIS UPDATE
058828,000409: 04,3622           13630                           BZF      STORLP71                              #  WILL WE
058829,000410: 04,3623           74743                           MASK     BIT9                                  #  OVERFLOW
058830,000411: 04,3624           10000                           CCS      A                                     #  INTO THE NEXT EBANK....
058831,000412: 04,3625           13741                           TCF      UPERROUT                              #  YES
058832,000413: 
058833,000414: 04,3626           37750                           CA       NEG3                                  #  NO - CALCULATE NUMBER OF
058834,000415: 04,3627           61167                           AD       COMPNUMB                              #  WORDS TO BE STORED MINUS ONE
058835,000416: 04,3630           54154        STORLP71           TS       MPAC                                  #  SAVE NO. OF WORDS REMAINING MINUS ONE
058836,000417: 04,3631           50000                           INDEX    A                                     #  TAKE NEXT UPDATE WORD FROM
058837,000418: 04,3632           31175                           CA       UPBUFF     +2                         #  UPBUFF AND

Page 1384

058839,000420: 04,3633           54001                           TS       L                                     #  SAVE IT IN L
058840,000421: 04,3634           30154                           CA       MPAC                                  #  CALCULATE NEXT
058841,000422: 04,3635           61166                           AD       UPTEMP                                #  RECEIVING ADDRESS
058842,000423: 04,3636           50000                           INDEX    A                                     
058843,000424: 04,3637  E3,1400                                  EBANK=   1400                                  
058844,000425: 04,3637           23400                           LXCH     1400                                  #  UPDATE THE REGISTER BY CONTENTS OF L
058845,000426: 04,3640  E3,1706                                  EBANK=   TEPHEM                                
058846,000427: 04,3640           10154                           CCS      MPAC                                  #  ARE THERE ANY WORDS LEFT TO BE STORED
058847,000428: 04,3641           13630                           TCF      STORLP71                              #  YES
058848,000429: 04,3642           13672                           TCF      UPOUT                                 #  NO- THEN EXIT UPDATE PROGRAM
058849,000430: 04,3643           01172        ADUPBFM1           ADRES    UPBUFF     -1                         #  SAME AS ADUPBUFF BUT LESS 1 (DON'T MOVE)
058850,000431: 04,3644           13672                           TCF      UPOUT                                 #  NO- EXIT UPDATE (HERE WHEN COMPNUMB = 3)
058851,000432: 
058852,000433:                                                                                                  #  VERB 72 BRANCH
058853,000434: 
058854,000435: 04,3645           34753        UPEND72            CAF      BIT1                                  #  HAVE AN ODD NO. OF COMPONENTS
058855,000436: 04,3646           71167                           MASK     COMPNUMB                              #  BEEN SENT FOR A V72 UPDATE ...
058856,000437: 04,3647           10000                           CCS      A                                     
058857,000438: 04,3650           13652                           TCF      +2                                    #  YES
058858,000439: 04,3651           13741                           TCF      UPERROUT                              #  ERROR- SHOULD BE ODD NO. OF COMPONENTS
058859,000440: 04,3652           44752                           CS       BIT2                                  
058860,000441: 04,3653           61167                           AD       COMPNUMB                              
058861,000442: 04,3654           54154        LDLOOP72           TS       MPAC                                  #  NOW PERFORM THE UPDATE
058862,000443: 04,3655           50000                           INDEX    A                                     
058863,000444: 04,3656           31174                           CAE      UPBUFF     +1                         #  PICK UP NEXT UPDATE WORD
058864,000445: 04,3657           22000                           LXCH     A                                     
058865,000446: 04,3660           10154                           CCS      MPAC                                  #  SET POINTER TO ECADR (MUST BE CCS)
058866,000447: 04,3661           54154                           TS       MPAC                                  
058867,000448: 04,3662           50000                           INDEX    A                                     
058868,000449: 04,3663           31174                           CAE      UPBUFF     +1                         #  PICK UP NEXT ECADR OF REG TO BE UPDATED
058869,000450: 04,3664           54003                           TS       EBANK                                 #  SET EBANK
058870,000451: 04,3665           74357                           MASK     LOW8                                  #  ISOLATE RELATIVE ADDRESS
058871,000452: 04,3666           50000                           INDEX    A                                     
058872,000453: 04,3667  E3,1400                                  EBANK=   1400                                  
058873,000454: 04,3667           23400                           LXCH     1400                                  #  UPDATE THE REGISTER BY CONTENTS OF L
058874,000455: 04,3670  E3,1706                                  EBANK=   TEPHEM                                
058875,000456: 04,3670           10154                           CCS      MPAC                                  #  ARE WE THROUGH THE V72 UPDATE...
058876,000457: 04,3671           13654                           TCF      LDLOOP72                              #  NO
058877,000458: 
058878,000459:                                                                                                  #  NORMAL FINISH OF P27
058879,000460: 
058880,000461: 04,3672                        UPOUT              EQUALS                                         
058881,000462: 04,3672           03147                           TC       INTWAKEU                              #  RELEASE GRAB OF ORBITAL INTEGRATION
058882,000463: 04,3673           31170                 +1        CAE      UPOLDMOD                              #  RESTORE PRIOR P27 MODE
058883,000464: 04,3674           05314                           TC       NEWMODEX   +3                         
058884,000465: 04,3675           34755                           CAF      ZERO                                  
058885,000466: 04,3676           54333                           TS       DNLSTCOD                              
058886,000467: 04,3677           03746                           TC       UPACTOFF                              #  TURN OFF 'UPLINK ACTIVITY' LIGHT

Page 1385

058888,000469: 04,3700           00006                           EXTEND                                         #  KILL GROUP 6.
058889,000470: 04,3701           34755                           DCA      NEG0                                  
058890,000471: 04,3702           52764                           DXCH     -PHASE6                               
058891,000472: 
058892,000473: 04,3703           05472                           TC       ENDEXT                                #  EXTENDED VERB EXIT
058893,000474: 
058894,000475:                                                                                                  #  VERB 70 BRANCH
058895,000476: 
058896,000477: 04,3704           00006        UPEND70            EXTEND                                         #  V70 DOES THE FOLLOWING WITH DP DELTA
058897,000478: 04,3705           41174                           DCS      UPBUFF                                #  TIME IN UPBUFF
058898,000479: 04,3706           53204                           DXCH     UPBUFF     +8D                        
058899,000480: 04,3707           03550                           TC       TIMEDIDL                              #  DECREMENT AGC CLOCK
058900,000481: 
058901,000482: 04,3710           03741                           TC       UPERROUT                              #  ERROR WHILE DECREMENTING CLOCK -- EXIT
058902,000483: 
058903,000484: 04,3711  E3,1706                                  EBANK=   TEPHEM                                
058904,000485: 04,3711           00006                           EXTEND                                         
058905,000486: 04,3712           41174                           DCS      UPBUFF                                #  COPY DECREMENTERS FOR
058906,000487: 04,3713           53206                           DXCH     UPBUFF     +10D                       #  RESTART PROTECTION
058907,000488: 04,3714           00006                           EXTEND                                         
058908,000489: 04,3715           41174                           DCS      UPBUFF                                
058909,000490: 04,3716           53210                           DXCH     UPBUFF     +12D                       
058910,000491: 
058911,000492: 04,3717           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
058912,000493: 04,3720           04026                           OCT      04026                                 
058913,000494: 
058914,000495: 04,3721           34755                           CAF      ZERO                                  
058915,000496: 04,3722           22007                           ZL                                             
058916,000497: 04,3723           53206                           DXCH     UPBUFF     +10D                       #  DECREMENT CSM STATE VECTOR TIME
058917,000498: 04,3724           21571                           DAS      TETCSM                                
058918,000499: 
058919,000500: 04,3725           34755                           CAF      ZERO                                  
058920,000501: 04,3726           22007                           ZL                                             
058921,000502: 04,3727           53210                           DXCH     UPBUFF     +12D                       #  DECREMENT LEM STATE VECTOR TIME
058922,000503: 04,3730           21643                           DAS      TETLEM                                
058923,000504: 
058924,000505: 04,3731           34755                           CAF      ZERO                                  
058925,000506: 04,3732           22007                           ZL                                             
058926,000507: 04,3733           53174                           DXCH     UPBUFF                                
058927,000508: 04,3734           21710                           DAS      TEPHEM     +1                         #  INCREMENT TP TEPHEM
058928,000509: 04,3735           27706                           ADS      TEPHEM                                
058929,000510: 
058930,000511: 04,3736           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
058931,000512: 04,3737           04026                           OCT      04026                                 
058932,000513: 
058933,000514: 04,3740     1173                                  EBANK=   UPBUFF                                
058934,000515: 
058935,000516: 04,3740           03672                           TC       UPOUT                                 #  GO TO STANDARD UPDATE PROGRAM EXIT

Page 1386

058937,000518: 
058938,000519:                                                                                                  #  ERROR SEQUENCE
058939,000520: 
058940,000521: 04,3741           04364        UPERROUT           TC       FALTON                                #  TURN ON *OPERATOR ERROR* LIGHT
058941,000522: 04,3742           13672                           TCF      UPOUT                                 #  GO TO COMMON UPDATE PROGRAM EXIT
058942,000523: 
058943,000524: 04,3743           04364                 +2        TC       FALTON                                #  TURN ON 'OPERATOR ERROR' LIGHT
058944,000525: 04,3744           03746                           TC       UPACTOFF                              #  TURN OFF 'UPLINK ACTIVITY' LIGHT
058945,000526: 04,3745           05472                           TC       ENDEXT                                #  EXTENDED VERB EXIT
058946,000527:                                                                                                  #  (THE PURPOSE OF UPERROUT +2 EXIT IS
058947,000528:                                                                                                  #  TO PROVIDE AN ERROR EXIT WHICH DOES NOT
058948,000529:                                                                                                  #  RESET ANY RESTART GROUPS)
058949,000530: 
058950,000531:                                                                                                  #  :UPACTOFF: IS A ROUTINE TO TURN OFF UPLINK ACTIVITY LIGHT ON ALL EXITS FROM UPDATE PROGRAM (P27).
058951,000532: 
058952,000533: 04,3746           44751        UPACTOFF           CS       BIT3                                  
058953,000534: 04,3747           00006                           EXTEND                                         #  TURN OFF UPLINK ACTIVITY LIGHT
058954,000535: 04,3750           03011                           WAND     DSALMOUT                              #  (BIT 3 OF CHANNEL 11)
058955,000536: 04,3751           00002                           TC       Q                                     
058956,000537: 

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