Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

062069,000002:                                                                                                  ## Copyright:   Public domain.
062070,000003:                                                                                                  ## Filename:    UPDATE_PROGRAM.agc
062071,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
062072,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
062073,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
062074,000007:                                                                                                  ## Assembler:   yaYUL
062075,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
062076,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
062077,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
062078,000011:                                                                                                  ## Mod history: 2011-04-17 JL   Adapted from corresponding Colossus 249 file.
062079,000012:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
062080,000013:                                                                                                  ##                              and fixed errors found.
062081,000014:                                                                                                  ##              2017-01-20 RSB  Fixed comment-text errors noted while diff'ing
062082,000015:                                                                                                  ##                              vs Colossus 249.
062083,000016:                                                                                                  ##              2017-02-09 RSB  Comment-text fixes identified for Artemis 72.
062084,000017: 

Page 1461

062086,000019:                                                                                                  #  PROGRAM NAME:   P27
062087,000020:                                                                                                  #  WRITTEN BY:     KILROY/ DE WOLF
062088,000021: 
062089,000022:                                                                                                  #  MOD NO:         6
062090,000023:                                                                                                  #  MOD BY:         KILROY
062091,000024:                                                                                                  #  DATE:           01DEC67
062092,000025: 
062093,000026:                                                                                                  #  LOG SECTION:    UPDATE PROGRAM.
062094,000027: 
062095,000028:                                                                                                  #  FUNCT. DESCR:   P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA
062096,000029:                                                                                                  #                      INSERTIONS REQUESTED BY THE GROUND VIA UPLINK.
062097,000030:                                                                                                  #                      THE P27 PROGRAM WILL ACCEPT UPDATES
062098,000031:                                                                                                  #                      ONLY DURING P00 FOR THE LM, AND ONLY DURING P00,
062099,000032:                                                                                                  #                  P02, AND FRESH START FOR THE CSM
062100,000033: 
062101,000034:                                                                                                  #  CALLING SEQ:    PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 70, 71, 72 AND 73.
062102,000035: 
062103,000036:                                                                                                  #  SUBROUTINES:    TESTXACT, NEWMODEX, NEWMODEX +3, GOXDSPF, BANKCALL, FINDVAC, INTPRET, INTSTALL, TPAGREE,
062104,000037:                                                                                                  #                  INTWAKEU, ENDEXT, POSTJUMP, FALTON, NEWPHASE, PHASCHNG
062105,000038: 
062106,000039:                                                                                                  #  NORMAL EXIT:    TC ENDEXT
062107,000040: 
062108,000041:                                                                                                  #  ALARM/ABORT:    TC FALTON FOLLOWED BY TC ENDEXT
062109,000042: 
062110,000043:                                                                                                  #  RESTARTS:       P27 IS RESTART PROTECTED IN TWO WAYS...
062111,000044:                                                                                                  #                  1. PRIOR TO VERIFLAG INVERSION(WHICH IS CAUSED BY THE GROUND/ASTRONAUT'S VERIFICATION OF UPDATE
062112,000045:                                                                                                  #                     DATA BY SENDING A V33E WHEN V21N02 IS FLASHING)---
062113,000046:                                                                                                  #                     NO PROTECTION EXCEPT PRE-P27 MODE IS RESTORED, COAST + ALIGN DOWNLIST IS SELECTED AND UPLINK
062114,000047:                                                                                                  #                     ACTIVITY LIGHT IS TURNED OFF.(JUST AS IF A V34E WAS SENT DURING P27 DATA LOADS).
062115,000048:                                                                                                  #                     V70,V71,V72 OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER.
062116,000049:                                                                                                  #                  2. AFTER VERIFLAG INVERSION(WHEN UPDATE OF THE SPECIFIED ERASABLES IS BEING PERFORMED)---
062117,000050:                                                                                                  #                     PROTECTED AGAINST RESTARTS.
062118,000051: 
062119,000052:                                                                                                  #  DEBRIS:         UPBUFF   (20D)  TEMP STORAGE FOR ADDRESSES AND CONTENTS.
062120,000053:                                                                                                  #                  UPVERB   (1)    VERB NUMBER MINUS 70D (E.G. FOR V72, UPVERB = 72D - 70D = 2)
062121,000054:                                                                                                  #                  UPOLDMOD (1)    FOR MAJOR MODE INTERRUPTED BY P27.
062122,000055:                                                                                                  #                  COMPNUMB (1)    TOTAL NUMBER OF COMPONENTS TO BE TRANSMITTED.
062123,000056:                                                                                                  #                  UPCOUNT  (1)    ACTUAL NUMBER OF COMPONENTS RECEIVED.
062124,000057:                                                                                                  #                  UPTEMP   (1)    SCRATCH, BUT USUALLY CONTAINS COMPONENT NUMBER TO BE CHANGED DURING VERIFY CYCLE
062125,000058: 
062126,000059: 
062127,000060:                                                                                                  #  INPUT:
062128,000061: 
062129,000062:                                                                                                  #   ENTRY:           DESCRIPTION
062130,000063: 
062131,000064:                                                                                                  #   V70EXXXXXEXXXXXE (LIFTOFF TIME INCREMENT) DOUBLE PRECISION OCTAL TIME INCREMENT, XXXXX XXXXX,
062132,000065:                                                                                                  #                    IS ADDED TO TEPHEM, SUBTRACTED FROM AGC CLOCK(TIME2,TIME1), SUBTRACTED FROM CSM STATE
062133,000066:                                                                                                  #                    VECTOR TIME(TETCSM) AND SUBTRACTED FROM LEM STATE VECTOR TIME(TETLEM).
062134,000067:                                                                                                  #                    THE DP OCTAL TIME INCREMENT IS SCALED AT 2(28).

Page 1462

062136,000069:                                                                                                  #   V71EIIEAAAAE     (CONTIGUOUS BLOCK UPDATE) II-2 OCTAL COMPONENTS,XXXXX,
062137,000070:                                                                                                  #   XXXXXE           ARE LOADED INTO ERASABLE STARTING AT ECADR, AAAA.
062138,000071:                                                                                                  #  XXXXXE            IT IS .GE. 3 .AND. .LE. 20D.,
062139,000072:                                                                                                  #                    AND (AAAA + II - 3) DOES NOT PRODUCE AN ADDRESS IN THE
062140,000073:                                                                                                  #  9 NEXT BANK
062141,000074:                                                                                                  #    .               SCALING IS SAME AS INTERNAL REGISTERS.
062142,000075: 
062143,000076:                                                                                                  #   V72EIIE          (SCATTER UPDATE) (II-1)/2 OCTAL COMPONENTS,XXXXX, ARE
062144,000077:                                                                                                  #   AAAAEXXXXXE      LOADED INTO ERASABLE LOCATIONS, AAAA.
062145,000078:                                                                                                  #   AAAAEXXXXXE      II IS .GE. 3 .AND. .LE. 19D, AND MUST BE ODD.
062146,000079:                                                                                                  #    .               SCALING IS SAME AS INTERNAL REGISTERS.
062147,000080: 
062148,000081:                                                                                                  #   V73EXXXXXEXXXXXE (OCTAL CLOCK INCREMENT) DOUBLE PRECISION OCTAL TIME
062149,000082:                                                                                                  #                    INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN
062150,000083:                                                                                                  #                    CENTISECONDS SCALED AT (2)28.
062151,000084:                                                                                                  #                    THIS LOAD IS THE OCTAL EQUIVALENT OF V55.
062152,000085: 
062153,000086: 
062154,000087:                                                                                                  #  OUTPUT:         IN ADDITION TO THE ABOVE REGISTER LOADS, ALL UPDATES
062155,000088:                                                                                                  #                  COMPLEMENT BIT3 OF FLAGWORD7.
062156,000089: 
062157,000090: 
062158,000091:                                                                                                  #  ADDITIONAL NOTES: VERB 71, JUST DEFINED ABOVE WILL BE USED TO PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES--
062159,000092: 
062160,000093:                                                                                                  #                  1. CSM/LM STATE VECTOR UPDATE
062161,000094:                                                                                                  #                  2. REFSMMAT UPDATE
062162,000095: 
062163,000096: 
062164,000097:                                                                                                  #           THE FOLLOWING COMMENTS DELINEATE EACH SPECIAL UPDATE----
062165,000098: 
062166,000099:                                                                                                  #  1. CSM/LM STATE VECTOR UPDATE(ALL DATA ENTRIES IN OCTAL)
062167,000100: 
062168,000101:                                                                                                  #  ENTRIES:        DATA DEFINITION:                                        SCALE FACTORS:
062169,000102:                                                                                                  #  V71E            CONTIGUOUS BLOCK UPDATE VERB
062170,000103:                                                                                                  #     21E          NUMBER OF COMPONENTS FOR STATE VECTOR UPDATE
062171,000104:                                                                                                  #   AAAAE          ECADR OF 'UPSVFLAG'
062172,000105:                                                                                                  #  XXXXXE          STATE VECTOR IDENTIFIER: 00001 FOR CSM, 77776 FOR LEM - EARTH SPHERE OF INFLUENCE SCALING
062173,000106:                                                                                                  #                                           00002 FOR CSM, 77775 FOR LEM - LUNAR SPHERE OF INFLUENCE SCALING
062174,000107:                                                                                                  #  XXXXXEXXXXXE    X POSITION
062175,000108:                                                                                                  #  XXXXXEXXXXXE    Y POSITION
062176,000109:                                                                                                  #  XXXXXEXXXXXE    Z POSITION
062177,000110:                                                                                                  #  XXXXXEXXXXXE    X VELOCITY
062178,000111:                                                                                                  #  XXXXXEXXXXXE    Y VELOCITY
062179,000112:                                                                                                  #  XXXXXEXXXXXE    Z VELOCITY
062180,000113:                                                                                                  #  XXXXXEXXXXXE    TIME FROM AGC CLOCK ZERO
062181,000114:                                                                                                  #  V33E            VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
062182,000115: 
062183,000116: 
062184,000117:                                                                                                  #  2. REFSMMAT(ALL DATA ENTRIES IN OCTAL)
062185,000118:                                                                                                  #  ENTRIES:        DATA DEFINITIONS:                                       SCALE FACTORS:

Page 1463

062187,000120:                                                                                                  #  V71E            CONTIGUOUS BLOCK UPDATE VERB
062188,000121:                                                                                                  #     24E          NUMBER OF COMPONENTS FOR REFSMMAT UPDATE
062189,000122:                                                                                                  #   AAAAE          ECADR OF 'REFSMMAT'
062190,000123:                                                                                                  #  XXXXXEXXXXXE    ROW 1 COLUMN 1                                          2(-1)
062191,000124:                                                                                                  #  XXXXXEXXXXXE    ROW 1 COLUMN 2                                          2(-1)
062192,000125:                                                                                                  #  XXXXXEXXXXXE    ROW 1 COLUMN 3                                          2(-1)
062193,000126:                                                                                                  #  XXXXXEXXXXXE    ROW 2 COLUMN 1                                          2(-1)
062194,000127:                                                                                                  #  XXXXXEXXXXXE    ROW 2 COLUMN 2                                          2(-1)
062195,000128:                                                                                                  #  XXXXXEXXXXXE    ROW 2 COLUMN 3                                          2(-1)
062196,000129:                                                                                                  #  XXXXXEXXXXXE    ROW 3 COLUMN 1                                          2(-1)
062197,000130:                                                                                                  #  XXXXXEXXXXXE    ROW 3 COLUMN 2                                          2(-1)
062198,000131:                                                                                                  #  XXXXXEXXXXXE    ROW 3 COLUMN 3                                          2(-1)
062199,000132:                                                                                                  #  V33E            VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED.
062200,000133: 
062201,000134: 07,3717                                           BANK     07                                    
062202,000135: 43,2000                                           SETLOC   EXTVERBS                              
062203,000136: 43,2000                                           BANK                                           
062204,000137: 
062205,000138: 43,3721  E3,1706                                  EBANK=   TEPHEM                                
062206,000139: 
062207,000140: 43,3721                                           COUNT*   $$/P27                                
062208,000141: 43,3721           34714        V70UPDAT           CAF      UP70                                  #  COMES HERE ON V70E
062209,000142: 43,3722           13730                           TCF      V73UPDAT   +1                         
062210,000143: 
062211,000144: 43,3723           34712        V71UPDAT           CAF      UP71                                  #  COMES HERE ON V71E
062212,000145: 43,3724           13730                           TCF      V73UPDAT   +1                         
062213,000146: 
062214,000147: 43,3725           34711        V72UPDAT           CAF      UP72                                  #  COMES HERE ON V72E
062215,000148: 43,3726           13730                           TCF      V73UPDAT   +1                         
062216,000149: 
062217,000150: 43,3727           36214        V73UPDAT           CAF      UP73                                  #  COMES HERE ON V73E
062218,000151: 
062219,000152: 43,3730           54331                 +1        TS       UPVERBSV                              #  SAVE UPVERB UNTIL IT'S OK TO ENTER P27
062220,000153: 
062221,000154: 43,3731           02076                           TC       TESTXACT                              #  GRAB DISPLAY IF AVAILABLE, OTHERWISE
062222,000155:                                                                                                  #                                          TURN*OPERATOR ERROR* ON AND TERMINATEJOB
062223,000156: 
062224,000157: 43,3732           31011                           CA       MODREG                                #  CHECK IF UPDATE ALLOWED
062225,000158: 43,3733           00006                           EXTEND                                         #  FIRST CHECK FOR MODREG = +0, -0
062226,000159: 43,3734           13736                           BZF      +2                                    #  (+0 = P00, -0 = FRESH START)
062227,000160: 43,3735           03746                           TC       CKMDMORE                              #  NOW CHECK FOR PROGRAM WHICH CAN BE
062228,000161:                                                                                                  #                                          INTERRUPTED BY P27.
062229,000162: 
062230,000163: 43,3736           31011                           CAE      MODREG                                #  UPDATE ALLOWED.
062231,000164: 43,3737           54301                           TS       UPOLDMOD                              #  SAVE CURRENT MAJOR MODE
062232,000165: 

Page 1464

062234,000167: 43,3740           30331                           CAE      UPVERBSV                              #  SET UPVERB TO INDICATE TO P27
062235,000168: 43,3741           54302                           TS       UPVERB                                #  WHICH EXTENDED VERB CALLED IT.
062236,000169: 
062237,000170: 43,3742           34712                           CAF      ONE                                   
062238,000171: 43,3743           54303                           TS       UPCOUNT                               #  INITIALIZE UPCOUNT TO 1
062239,000172: 
062240,000173: 43,3744           04574                           TC       POSTJUMP                              #  LEAVE EXTENDED VERB BANK AND
062241,000174: 43,3745           57335                           CADR     UPPART2                               #  GO TO UPDATE PROGRAM(P27) BANK.
062242,000175: 
062243,000176: 43,3746           40101        CKMDMORE           CS       FLAGWRD5                              
062244,000177: 43,3747           74703                           MASK     BIT8                                  #  CHECK IF COMPUTER IS LGC
062245,000178: 43,3750           10000                           CCS      A                                     #  IS COMPUTER LGC OR AGC
062246,000179: 43,3751           13757        UPERLEM            TCF      UPERROR                               #  ERROR- IT'S THE LEM + MODE IS NOT POO.
062247,000180: 43,3752           44711                           CS       TWO                                   
062248,000181: 43,3753           71011                           MASK     MODREG                                
062249,000182: 43,3754           10000                           CCS      A                                     
062250,000183: 43,3755           13757        UPERCMC            TCF      UPERROR                               #  ERROR- IT'S THE CMC AND MODE IS NOT
062251,000184:                                                                                                  #                                          P00 OR P02.
062252,000185: 43,3756           00002                           TC       Q                                     #  ALLOW UPDATE TO PROCEED
062253,000186: 
062254,000187: 43,3757           04574        UPERROR            TC       POSTJUMP                              #  TURN ON 'OPERATOR ERROR' LIGHT
062255,000188: 43,3760           57716                           CADR     UPERROUT   +2                         #  GO TO COMMON UPDATE PROGRAM EXIT
062256,000189: 
062257,000190: 43,3761     4714               UP70               EQUALS   ZERO                                  
062258,000191: 43,3761     4712               UP71               EQUALS   ONE                                   
062259,000192: 43,3761     4711               UP72               EQUALS   TWO                                   
062260,000193: 43,3761     6214               UP73               EQUALS   THREE                                 
062261,000194: 
062262,000195: 
062263,000196: 04,3645                                           BANK     04                                    
062264,000197: 27,2000                                           SETLOC   UPDATE2                               
062265,000198: 27,2000                                           BANK                                           
062266,000199: 
062267,000200: 27,3335                                           COUNT*   $$/P27                                
062268,000201: 
062269,000202: 27,3335                        UPPART2            EQUALS                                         #  UPDATE PROGRAM - PART 2
062270,000203: 
062271,000204: 27,3335           05301                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO RESTORE OLD MODE
062272,000205: 27,3336           07026                           OCT      07026                                 #  AND DOWNLIST AND EXIT IF RESTART OCCURS.
062273,000206: 27,3337           30000                           OCT      30000                                 #  PRIORITY SAME AS CHRPRIO
062274,000207: 27,3340     0304                                  EBANK=   UPBUFF                                
062275,000208: 27,3340           03646 56100                     2CADR    UPOUT      +1                         
062276,000209: 
062277,000210: 27,3342           34712                           CAF      ONE                                   
062278,000211: 27,3343           54332                           TS       DNLSTCOD                              #  DOWNLIST
062279,000212: 
062280,000213: 27,3344           05243                           TC       NEWMODEX                              #  SET MAJOR MODE = 27
062281,000214: 27,3345           00033                           DEC      27         B-14                       

Page 1465

062283,000216: 27,3346           50302                           INDEX    UPVERB                                #  BRANCH DEPENDING ON WHETHER THE UPDATE
062284,000217: 27,3347           13350                           TCF      +1                                    #  VERB REQUIRES A FIXED OR VARIABLE NUMBER
062285,000218: 27,3350           13353                           TCF      +3                                    #  V70 FIXED.               (OF COMPONENTS.
062286,000219: 27,3351           13356                           TCF      OHWELL1                               #  V71 VARIABLE - GO GET NO. OF COMPONENTS
062287,000220: 27,3352           13356                           TCF      OHWELL1                               #  V72 VARIABLE - GO GET NO. OF COMPONENTS
062288,000221: 27,3353           34711                           CA       TWO                                   #  V73 (AND V70) FIXED
062289,000222: 27,3354           54300                           TS       COMPNUMB                              #  SET NUMBER OF COMPONENTS TO 2.
062290,000223: 27,3355           13401                           TCF      OHWELL2                               #  GO GET THE TWO UPDATE COMPONENTS
062291,000224: 
062292,000225: 27,3356           33451        OHWELL1            CAF      ADUPBUFF                              #  * REQUEST USER TO SEND NUMBER  *
062293,000226: 27,3357           54156                           TS       MPAC       +2                         #  * OF COMPONENTS PARAMETER(II). *
062294,000227: 27,3360           33452                 +2        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
062295,000228: 27,3361           04555                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01
062296,000229: 27,3362           20465                           CADR     GOXDSPF                               #  TO REQUEST II.
062297,000230: 27,3363           13646                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE(P27) RETURN
062298,000231: 27,3364           13360                           TCF      OHWELL1    +2                         
062299,000232: 27,3365           03442                           TC       CK4V32                                #  DATA OR V32 RETURN
062300,000233: 27,3366           44711                           CS       BIT2                                  
062301,000234: 27,3367           60304                           AD       UPBUFF                                #  IS II(NUMBER OF COMPONENTS PARAMETER)
062302,000235: 27,3370           00006                           EXTEND                                         #  .GE. 3 AND .LE. 20D.
062303,000236: 27,3371           63360                           BZMF     OHWELL1    +2                         
062304,000237: 27,3372           40304                           CS       UPBUFF                                
062305,000238: 27,3373           64376                           AD       UP21                                  
062306,000239: 27,3374           00006                           EXTEND                                         
062307,000240: 27,3375           63360                           BZMF     OHWELL1    +2                         
062308,000241: 27,3376           30304                           CAE      UPBUFF                                
062309,000242: 27,3377           54300                           TS       COMPNUMB                              #  SAVE II IN COMPNUMB
062310,000243: 
062311,000244: 
062312,000245:                                                                                                  #           UPBUFF LOADING SEQUENCE
062313,000246: 
062314,000247: 27,3400           24303                           INCR     UPCOUNT                               #  INCREMENT COUNT OF COMPONENTS RECEIVED.
062315,000248: 27,3401           33616        OHWELL2            CAF      ADUPBFM1                              #  CALCULATE LOCATION(ECADR) IN UPBUFF
062316,000249: 27,3402           60303                           AD       UPCOUNT                               #  WHERE NEXT COMPONENT SHOULD BE STORED.
062317,000250: 27,3403           54156                 +2        TS       MPAC       +2                         #  PLACE ECADR INTO R3.
062318,000251: 27,3404           33452                 +3        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
062319,000252: 27,3405           04555                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01
062320,000253: 27,3406           20465                           CADR     GOXDSPF                               #  TO REQUEST DATA.
062321,000254: 27,3407           13646                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE(P27) RETURN.
062322,000255: 27,3410           13404                           TCF      OHWELL2    +3                         #  V33 PROCEED RETURN
062323,000256: 27,3411           03442                           TC       CK4V32                                #  DATA OR V32 RETURN
062324,000257: 27,3412           40303                           CS       UPCOUNT                               #  HAVE WE FINISHED RECEIVING ALL
062325,000258: 27,3413           60300                           AD       COMPNUMB                              #  THE DATA WE EXPECTED.
062326,000259: 27,3414           00006                           EXTEND                                         
062327,000260: 27,3415           63417                           BZMF     UPVERIFY                              #  YES- GO TO VERIFICATION SEQUENCE
062328,000261: 27,3416           13400                           TCF      OHWELL2    -1                         #  NO- REQUEST ADDITIONAL DATA.
062329,000262: 
062330,000263: 
062331,000264:                                                                                                  #           VERIFY SEQUENCE
062332,000265: 

Page 1466

062334,000267: 27,3417           33450        UPVERIFY           CAF      ADUPTEMP                              #  PLACE ECADR WHERE COMPONENT NO. INDEX
062335,000268: 27,3420           54156                           TS       MPAC       +2                         #  IS TO BE STORED INTO R3.
062336,000269: 27,3421           33453                           CAF      UPVRFYNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
062337,000270: 27,3422           04555                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N02 TO REQUEST
062338,000271: 27,3423           20465                           CADR     GOXDSPF                               #  DATA CORRECTION OR VERIFICATION.
062339,000272: 27,3424           13646                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE(P27) RETURN
062340,000273: 27,3425           13454                           TCF      UPSTORE                               #  V33 DATA SENT IS GOOD. GO STORE IT.
062341,000274: 27,3426           03442                           TC       CK4V32                                #  COMPONENT NO. INDEX OR V32 RETURN
062342,000275: 27,3427           30330                           CA       UPTEMP                                #  DOES THE COMPONENT NO. INDEX JUST SENT
062343,000276: 27,3430           00006                           EXTEND                                         #  SPECIFY A LEGAL COMPONENT NUMBER?
062344,000277: 27,3431           63417                           BZMF     UPVERIFY                              #  NO, IT IS NOT POSITIVE NONZERO
062345,000278: 27,3432           40330                           CS       UPTEMP                                
062346,000279: 27,3433           60300                           AD       COMPNUMB                              
062347,000280: 27,3434           64712                           AD       BIT1                                  
062348,000281: 27,3435           00006                           EXTEND                                         
062349,000282: 27,3436           63417                           BZMF     UPVERIFY                              #  NO
062350,000283: 27,3437           33616                           CAF      ADUPBFM1                              #  YES- BASED ON THE COMPONENT NO. INDEX
062351,000284: 27,3440           60330                           AD       UPTEMP                                #  CALCULATE THE ECADR OF LOCATION IN
062352,000285: 27,3441           13403                           TCF      OHWELL2    +2                         #  UPBUFF WHICH USER WANTS TO CHANGE.
062353,000286: 
062354,000287: 27,3442  27,3646               UPOUT4             EQUALS   UPOUT      +1                         #  COMES HERE ON V34 TO TERMINATE UPDATE
062355,000288: 
062356,000289: 
062357,000290:                                                                                                  #           CHECK FOR VERB 32 SEQUENCE
062358,000291: 
062359,000292: 27,3442           40154        CK4V32             CS       MPAC                                  #  ON DATA RETURN FROM 'GOXDSPF'
062360,000293: 27,3443           74705                           MASK     BIT6                                  #  ON DATA RETURN FROM "GOXDSP"& THE CON-
062361,000294: 27,3444           10000                           CCS      A                                     #  TENTS OF MPAC = VERB.  SO TEST FOR V32.
062362,000295: 27,3445           00002                           TC       Q                                     #  IT'S NOT A V32, IT'S DATA.  PROCEED.
062363,000296: 27,3446           50002                           INDEX    Q                                     
062364,000297: 27,3447           77771                           TC       0          -6                         #  V32 ENCOUNTERED - GO BACK AND GET DATA
062365,000298: 
062366,000299: 27,3450           00330        ADUPTEMP           ADRES    UPTEMP                                #  ADDRESS OF TEMP STORAGE FOR CORRECTIONS
062367,000300: 27,3451           00304        ADUPBUFF           ADRES    UPBUFF                                #  ADDRESS OF UPDATE DATA STORAGE BUFFER
062368,000301: 27,3452           05201        UPLOADNV           VN       2101                                  #  VERB 21 NOUN 01
062369,000302: 27,3453           05202        UPVRFYNV           VN       2102                                  #  VERB 21 NOUN 02
062370,000303: 27,3454     4376               UP21               =        MD1                                   #  DEC 21 = MAX NO OF COMPONENTS +1
062371,000304: 27,3454     4715               UPDTPHAS           EQUALS   FIVE                                  
062372,000305: 
062373,000306:                                                                                                  #           PRE-STORE AND FAN TO APPROPRIATE BRANCH SEQUENCE
062374,000307: 
062375,000308: 27,3454                        UPSTORE            EQUALS                                         #  GROUND HAS VERIFIED UPDATE. STORE DATA.
062376,000309: 
062377,000310: 27,3454           00004                           INHINT                                         
062378,000311: 
062379,000312: 27,3455           30103                           CAE      FLAGWRD7                              #  INVERT VERIFLAG(BIT 3 OF FLAGWRD7) TO
062380,000313: 27,3456           56001                           XCH      L                                     #  INDICATE TO THE GROUND(VIA DOWNLINK)
062381,000314: 27,3457           34710                           CAF      BIT3                                  #  THAT THE V33(WHICH THE GROUND SENT TO
062382,000315: 27,3460           00006                           EXTEND                                         #  VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
062383,000316: 27,3461           06001                           RXOR     LCHAN                                 #  RECEIVED BY THE UPDATE PROGRAM

Page 1467

062385,000318: 27,3462           54103                           TS       FLAGWRD7                              
062386,000319: 
062387,000320: 27,3463           05301                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO REDO THE UPDATE
062388,000321: 27,3464           04026                           OCT      04026                                 #  DATA STORE IF A RESTART OCCURS.
062389,000322: 27,3465           00004                           INHINT                                         #  (BECAUSE PHASCHNG DID A RELINT)
062390,000323: 
062391,000324: 27,3466           44711                           CS       TWO                                   #  GO TO UPFNDVAC IF INSTALL IS REQUIRED,
062392,000325: 27,3467           60302                           AD       UPVERB                                #  THAT IS, IF IT'S A V70 - V72.
062393,000326: 27,3470           00006                           EXTEND                                         #  GO TO UPEND73 IF IT'S A V73.
062394,000327: 27,3471           63500                           BZMF     UPFNDVAC                              
062395,000328: 
062396,000329:                                                                                                  #           VERB 73 BRANCH
062397,000330: 
062398,000331: 27,3472           00006        UPEND73            EXTEND                                         #  V73-PERFORM DP OCTAL AGC CLOCK INCREMENT
062399,000332: 27,3473           30305                           DCA      UPBUFF                                
062400,000333: 27,3474           52315                           DXCH     UPBUFF     +8D                        
062401,000334: 27,3475           03523                           TC       TIMEDIDL                              
062402,000335: 27,3476           04400                           TC       FALTON                                #  ERROR- TURN ON *OPERATOR ERROR* LIGHT
062403,000336: 27,3477           03646                           TC       UPOUT      +1                         #  GO TO COMMON UPDATE PROGRAM EXIT
062404,000337: 
062405,000338: 27,3500           34371        UPFNDVAC           CAF      CHRPRIO                               #  (USE EXTENDED VERB PRIORITY)
062406,000339: 27,3501           05042                           TC       FINDVAC                               #  GET VAC AREA FOR 'CALL INTSTALL'
062407,000340: 27,3502  E3,1706                                  EBANK=   TEPHEM                                
062408,000341: 27,3502           03505 56103                     2CADR    UPJOB                                 #  (NOTE: THIS WILL ALSO SET EBANK FOR
062409,000342: 27,3504           05112                           TC       ENDOFJOB                              #  'TEPHEM' UPDATE BY V70)
062410,000343: 
062411,000344: 27,3505           06006        UPJOB              TC       INTPRET                               #  THIS COULD BE A STATE VECTOR UPDATE--SO
062412,000345: 27,3506           77624                           CALL                                           #  WAIT(PUT JOB TO SLEEP) IF ORBIT INT(OI)
062413,000346: 27,3507           27371                                    INTSTALL                              #  IS IN PROGRESS--OR--GRAB OI AND RETURN
062414,000347:                                                                                                  #                                          TO UPWAKE IF OI IS NOT IN PROGRESS.
062415,000348: 
062416,000349: 27,3510           77776        UPWAKE             EXIT                                           
062417,000350: 
062418,000351: 27,3511           05301                           TC       PHASCHNG                              #  RESTART PROTECT(GROUP 6)
062419,000352: 27,3512           04026                           OCT      04026                                 
062420,000353: 
062421,000354: 27,3513           05435                           TC       UPFLAG                                #  SET INTEGRATION RESTART BIT
062422,000355: 27,3514           00236                           ADRES    REINTFLG                              
062423,000356: 27,3515           00004                           INHINT                                         
062424,000357: 27,3516                        UPPART3            EQUALS                                         
062425,000358: 
062426,000359: 27,3516           50302                           INDEX    UPVERB                                #  BRANCH TO THE APPROPRIATE UPDATE VERB
062427,000360: 27,3517           13520                           TCF      +1                                    #  ROUTINE TO ACTUALLY PERFORM THE UPDATE
062428,000361: 27,3520           13657                           TCF      UPEND70                               #  V70
062429,000362: 27,3521           13566                           TCF      UPEND71                               #  V71
062430,000363: 27,3522           13620                           TCF      UPEND72                               #  V72
062431,000364: 
062432,000365: 
062433,000366:                                                                                                  #           ROUTINE TO INCREMENT CLOCK(TIME2,TIME1) WITH CONTENTS OF DP WORD AT UPBUFF.

Page 1468

062435,000368: 27,3523           00006        TIMEDIDL           EXTEND                                         
062436,000369: 27,3524           22330                           QXCH     UPTEMP                                #  SAVE Q FOR RETURN
062437,000370: 27,3525           34714                           CAF      ZERO                                  #  ZERO AND SAVE TIME2,TIME1
062438,000371: 27,3526           22007                           ZL                                             
062439,000372: 27,3527           52025                           DXCH     TIME2                                 
062440,000373: 27,3530           52327                           DXCH     UPBUFF     +18D                       #  STORE IN CASE OF OVERFLOW
062441,000374: 
062442,000375: 27,3531           34715                           CAF      UPDTPHAS                              #  DO
062443,000376: 27,3532           54001                           TS       L                                     #  A
062444,000377: 27,3533           40000                           COM                                            #  QUICK
062445,000378: 27,3534           52765                           DXCH     -PHASE6                               #  PHASCHNG
062446,000379: 
062447,000380: 27,3535           00004        TIMEDIDR           INHINT                                         
062448,000381: 
062449,000382: 27,3536           34714                           CAF      ZERO                                  
062450,000383: 27,3537           22007                           ZL                                             #  PICK UP INCREMENTER(AND ZERO
062451,000384: 27,3540           54156                           TS       MPAC       +2                         #  IT IN CASE OF RESTARTS) AND
062452,000385: 27,3541           52315                           DXCH     UPBUFF     +8D                        #  STORE IT
062453,000386: 27,3542           52155                           DXCH     MPAC                                  #  INTO MPAC FOR TPAGREE.
062454,000387: 
062455,000388: 27,3543           00006                           EXTEND                                         
062456,000389: 27,3544           30327                           DCA      UPBUFF     +18D                       
062457,000390: 27,3545           20155                           DAS      MPAC                                  #  FORM SUM IN MPAC
062458,000391: 27,3546           00006                           EXTEND                                         
062459,000392: 27,3547           13556                           BZF      DELTATOK                              #  TEST FOR OVERFLOW
062460,000393: 27,3550           34714                           CAF      ZERO                                  
062461,000394: 27,3551           52327                           DXCH     UPBUFF     +18D                       #  OVERFLOW, RESTORE OLD VALUE OF CLOCK
062462,000395: 27,3552           20025                           DAS      TIME2                                 #  AND TURN ON OPERATOR ERROR
062463,000396: 
062464,000397: 27,3553           05301                           TC       PHASCHNG                              #  RESTART PROTECT(GROUP 6)
062465,000398: 27,3554           04026                           OCT      04026                                 
062466,000399: 
062467,000400: 27,3555           00330                           TC       UPTEMP                                #  GO TO ERROR EXIT
062468,000401: 
062469,000402: 27,3556           07226        DELTATOK           TC       TPAGREE                               #  FORCE SIGN AGREEMENT
062470,000403: 27,3557           52155                           DXCH     MPAC                                  
062471,000404: 27,3560           20025                           DAS      TIME2                                 #  INCREMENT TIME2,TIME1
062472,000405: 
062473,000406: 27,3561           05301                           TC       PHASCHNG                              #  RESTART PROTECT(GROUP 6)
062474,000407: 27,3562           04026                           OCT      04026                                 
062475,000408: 
062476,000409: 27,3563           00004                           INHINT                                         
062477,000410: 27,3564           50330                           INDEX    UPTEMP                                #  (CODED THIS WAY FOR RESTART PROTECTION)
062478,000411: 27,3565           00001                           TC       1                                     #  NORMAL RETURN
062479,000412:                                                                                                  #           VERB 71 BRANCH
062480,000413: 
062481,000414: 27,3566           30305        UPEND71            CAE      UPBUFF     +1                         #  SET EBANK
062482,000415: 27,3567           54003                           TS       EBANK                                 #     AND
062483,000416: 27,3570           74373                           MASK     LOW8                                  #  CALCULATE
062484,000417: 27,3571           54330                           TS       UPTEMP                                #  S-REG VALUE OF RECEIVING AREA

Page 1469

062486,000419: 27,3572           67714                           AD       NEG3                                  #  IN THE PROCESS OF
062487,000420: 27,3573           60300                           AD       COMPNUMB                              #  PERFORMING
062488,000421: 27,3574           00006                           EXTEND                                         #  THIS UPDATE
062489,000422: 27,3575           13603                           BZF      STORLP71                              #  WILL WE
062490,000423: 27,3576           74702                           MASK     BIT9                                  #  OVERFLOW
062491,000424: 27,3577           10000                           CCS      A                                     #  INTO THE NEXT EBANK....
062492,000425: 27,3600           13714                           TCF      UPERROUT                              #  YES
062493,000426: 
062494,000427: 27,3601           37714                           CA       NEG3                                  #  NO- CALCULATE NUMBER OF
062495,000428: 27,3602           60300                           AD       COMPNUMB                              #  WORDS TO BE STORED MINUS ONE
062496,000429: 27,3603           54154        STORLP71           TS       MPAC                                  #  SAVE NO. OF WORDS REMAINING MINUS ONE
062497,000430: 27,3604           50000                           INDEX    A                                     #  TAKE NEXT UPDATE WORD FROM
062498,000431: 27,3605           30306                           CA       UPBUFF     +2                         #  UPBUFF AND
062499,000432: 27,3606           54001                           TS       L                                     #  SAVE IT IN L
062500,000433: 27,3607           30154                           CA       MPAC                                  #  CALCULATE NEXT
062501,000434: 27,3610           60330                           AD       UPTEMP                                #  RECEIVING ADDRESS
062502,000435: 27,3611           50000                           INDEX    A                                     
062503,000436: 27,3612  E3,1400                                  EBANK=   1400                                  
062504,000437: 27,3612           23400                           LXCH     1400                                  #  UPDATE THE REGISTER  BY CONTENTS OF L
062505,000438: 27,3613  E3,1706                                  EBANK=   TEPHEM                                
062506,000439: 27,3613           10154                           CCS      MPAC                                  #  ARE THERE ANY WORDS LEFT TO BE STORED
062507,000440: 27,3614           13603                           TCF      STORLP71                              #  YES
062508,000441: 27,3615           13645                           TCF      UPOUT                                 #  NO- THEN EXIT UPDATE PROGRAM
062509,000442: 27,3616           00303        ADUPBFM1           ADRES    UPBUFF     -1                         #  SAME AS ADUPBUFF BUT LESS 1 (DON'T MOVE)
062510,000443: 27,3617           13645                           TCF      UPOUT                                 #  NO- EXIT UPDATE(HERE WHEN COMPNUMB = 3)
062511,000444: 
062512,000445: 
062513,000446:                                                                                                  #           VERB 72 BRANCH
062514,000447: 
062515,000448: 27,3620           34712        UPEND72            CAF      BIT1                                  #  HAVE AN ODD NO. OF COMPONENTS
062516,000449: 27,3621           70300                           MASK     COMPNUMB                              #  BEEN SENT FOR A V72 UPDATE...
062517,000450: 27,3622           10000                           CCS      A                                     
062518,000451: 27,3623           13625                           TCF      +2                                    #  YES
062519,000452: 27,3624           13714                           TCF      UPERROUT                              #  ERROR- SHOULD BE ODD NO. OF COMPONENTS
062520,000453: 27,3625           44711                           CS       BIT2                                  
062521,000454: 27,3626           60300                           AD       COMPNUMB                              
062522,000455: 27,3627           54154        LDLOOP72           TS       MPAC                                  #  NOW PERFORM THE UPDATE
062523,000456: 27,3630           50000                           INDEX    A                                     
062524,000457: 27,3631           30305                           CAE      UPBUFF     +1                         #  PICK UP NEXT UPDATE WORD
062525,000458: 27,3632           22000                           LXCH     A                                     
062526,000459: 27,3633           10154                           CCS      MPAC                                  #  SET POINTER TO ECADR(MUST BE CCS)
062527,000460: 27,3634           54154                           TS       MPAC                                  
062528,000461: 27,3635           50000                           INDEX    A                                     
062529,000462: 27,3636           30305                           CAE      UPBUFF     +1                         #  PICK UP NEXT ECADR OF REG TO BE UPDATED
062530,000463: 27,3637           54003                           TS       EBANK                                 #  SET EBANK
062531,000464: 27,3640           74373                           MASK     LOW8                                  #  ISOLATE RELATIVE ADDRESS
062532,000465: 27,3641           50000                           INDEX    A                                     
062533,000466: 27,3642  E3,1400                                  EBANK=   1400                                  
062534,000467: 27,3642           23400                           LXCH     1400                                  #  UPDATE THE REGISTER BY CONTENTS OF L
062535,000468: 27,3643  E3,1706                                  EBANK=   TEPHEM                                

Page 1470

062537,000470: 27,3643           10154                           CCS      MPAC                                  #  ARE WE THROUGH THE V72 UPDATE...
062538,000471: 27,3644           13627                           TCF      LDLOOP72                              #  NO
062539,000472: 
062540,000473: 
062541,000474:                                                                                                  #           NORMAL FINISH OF P27
062542,000475: 
062543,000476: 27,3645                        UPOUT              EQUALS                                         
062544,000477: 27,3645           02633                           TC       INTWAKEU                              #  RELEASE  GRAB  OF ORBITAL INTEGRATION
062545,000478: 27,3646           30301                 +1        CAE      UPOLDMOD                              #  RESTORE PRIOR P27 MODE
062546,000479: 27,3647           05246                           TC       NEWMODEX   +3                         
062547,000480: 27,3650           34714                           CAF      ZERO                                  
062548,000481: 27,3651           54332                           TS       DNLSTCOD                              
062549,000482: 27,3652           03721                           TC       UPACTOFF                              #  TURN OFF 'UPLINK ACTIVITY' LIGHT
062550,000483: 
062551,000484: 27,3653           00006                           EXTEND                                         #  KILL GROUP 6.
062552,000485: 27,3654           34714                           DCA      NEG0                                  
062553,000486: 27,3655           52765                           DXCH     -PHASE6                               
062554,000487: 
062555,000488: 27,3656           05423                           TC       ENDEXT                                #  EXTENDED VERB EXIT
062556,000489: 
062557,000490: 
062558,000491:                                                                                                  #           VERB 70 BRANCH
062559,000492: 
062560,000493: 27,3657           00006        UPEND70            EXTEND                                         #  V70 DOES THE FOLLOWING WITH DP DELTA
062561,000494: 27,3660           40305                           DCS      UPBUFF                                #  TIME IN UPBUFF
062562,000495: 27,3661           52315                           DXCH     UPBUFF     +8D                        
062563,000496: 27,3662           03523                           TC       TIMEDIDL                              #  DECREMENT AGC CLOCK
062564,000497: 
062565,000498: 27,3663           03714                           TC       UPERROUT                              #  ERROR WHILE DECREMENTING CLOCK -- EXIT
062566,000499: 
062567,000500: 27,3664  E3,1706                                  EBANK=   TEPHEM                                
062568,000501: 27,3664           00006                           EXTEND                                         
062569,000502: 27,3665           40305                           DCS      UPBUFF                                #  COPY DECREMENTERS FOR
062570,000503: 27,3666           52317                           DXCH     UPBUFF     +10D                       #  RESTART PROTECTION
062571,000504: 27,3667           00006                           EXTEND                                         
062572,000505: 27,3670           40305                           DCS      UPBUFF                                
062573,000506: 27,3671           52321                           DXCH     UPBUFF     +12D                       
062574,000507: 
062575,000508: 27,3672           05301                           TC       PHASCHNG                              #  RESTART PROTECT(GROUP 6)
062576,000509: 27,3673           04026                           OCT      04026                                 
062577,000510: 
062578,000511: 27,3674           34714                           CAF      ZERO                                  
062579,000512: 27,3675           22007                           ZL                                             
062580,000513: 27,3676           52317                           DXCH     UPBUFF     +10D                       #  DECREMENT CSM STATE VECTOR TIME
062581,000514: 27,3677           21571                           DAS      TETCSM                                
062582,000515: 
062583,000516: 27,3700           34714                           CAF      ZERO                                  
062584,000517: 27,3701           22007                           ZL                                             
062585,000518: 27,3702           52321                           DXCH     UPBUFF     +12D                       #  DECREMENT LEM STATE VECTOR TIME
062586,000519: 27,3703           21643                           DAS      TETLEM                                

Page 1471

062588,000521: 27,3704           34714                           CAF      ZERO                                  
062589,000522: 27,3705           22007                           ZL                                             
062590,000523: 27,3706           52305                           DXCH     UPBUFF                                
062591,000524: 27,3707           21710                           DAS      TEPHEM     +1                         #  INCREMENT TP TEPHEM
062592,000525: 27,3710           27706                           ADS      TEPHEM                                
062593,000526: 
062594,000527: 27,3711           05301                           TC       PHASCHNG                              #  RESTART PROTECT(GROUP 6)
062595,000528: 27,3712           04026                           OCT      04026                                 
062596,000529: 
062597,000530: 27,3713     0304                                  EBANK=   UPBUFF                                
062598,000531: 
062599,000532: 27,3713           03645                           TC       UPOUT                                 #  GO TO STANDARD UPDATE PROGRAM EXIT
062600,000533: 
062601,000534: 
062602,000535:                                                                                                  #           ERROR SEQUENCE
062603,000536: 
062604,000537: 27,3714           04400        UPERROUT           TC       FALTON                                #  TURN ON *OPERATOR ERROR* LIGHT
062605,000538: 27,3715           13645                           TCF      UPOUT                                 #  GO TO COMMON UPDATE PROGRAM EXIT
062606,000539: 
062607,000540: 27,3716           04400                 +2        TC       FALTON                                #  TURN ON 'OPERATOR ERROR' LIGHT
062608,000541: 27,3717           03721                           TC       UPACTOFF                              #  TURN OFF'UPLINK ACTIVITY'LIGHT
062609,000542: 27,3720           05423                           TC       ENDEXT                                #  EXTENDED VERB EXIT
062610,000543:                                                                                                  #                                          (THE PURPOSE OF UPERROUT +2 EXIT IS
062611,000544:                                                                                                  #                                          TO PROVIDE AN ERROR EXIT WHICH DOES NOT
062612,000545:                                                                                                  #                                          RESET ANY RESTART GROUPS)
062613,000546: 
062614,000547: 
062615,000548: 
062616,000549:                                                                                                  #           :UPACTOFF: IS A ROUTINE TO TURN OFF UPLINK ACTIVITY LIGHT ON ALL EXITS FROM UPDATE PROGRAM(P27).
062617,000550: 
062618,000551: 27,3721           44710        UPACTOFF           CS       BIT3                                  
062619,000552: 27,3722           00006                           EXTEND                                         #  TURN OFF UPLINK ACTIVITY LIGHT
062620,000553: 27,3723           03011                           WAND     DSALMOUT                              #  (BIT 3 OF CHANNEL 11)
062621,000554: 27,3724           00002                           TC       Q                                     

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