Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality 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:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

064065,000002:                                                                                                  ## Copyright:   Public domain.
064066,000003:                                                                                                  ## Filename:    UPDATE_PROGRAM.agc
064067,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
064068,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
064069,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
064070,000007:                                                                                                  ## Assembler:   yaYUL
064071,000008:                                                                                                  ## Reference:   Starts at p. 1465
064072,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
064073,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
064074,000011:                                                                                                  ## Mod history: 08/30/04 RSB.   Adapted from corresponding Luminary131 file.
064075,000012:                                                                                                  ##              05/14/05 RSB    Corrected website reference above.
064076,000013:                                                                                                  ##              2010-10-24 JL   Indentation fixes.
064077,000014:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
064078,000015:                                                                                                  ##                              original harcopy, as opposed to the PDF page
064079,000016:                                                                                                  ##                              numbers in 1701.pdf.
064080,000017:                                                                                                  ##              2017-01-20 RSB  Cross-diff'd comment text (not whitespace)
064081,000018:                                                                                                  ##                              vs the already-proofed corresponding Colossus
064082,000019:                                                                                                  ##                              237 and Comanche 55 source-code files
064083,000020:                                                                                                  ##                              and corrected errors found.
064084,000021:                                                                                                  ##              2017-02-09 RSB  Comment-text fixes identified for Artemis 72.
064085,000022:                                                                                                  ##
064086,000023:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
064087,000024:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
064088,000025:                                                                                                  ## document read, in part:
064089,000026:                                                                                                  ##
064090,000027:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
064091,000028:                                                                                                  ##      2021111-041.  October 28, 1968.  
064092,000029:                                                                                                  ##
064093,000030:                                                                                                  ##      This AGC program shall also be referred to as
064094,000031:                                                                                                  ##                              Colossus 1A
064095,000032:                                                                                                  ##
064096,000033:                                                                                                  ##      Prepared by
064097,000034:                                                                                                  ##                      Massachusetts Institute of Technology
064098,000035:                                                                                                  ##                      75 Cambridge Parkway
064099,000036:                                                                                                  ##                      Cambridge, Massachusetts
064100,000037:                                                                                                  ##      under NASA contract NAS 9-4065.
064101,000038:                                                                                                  ##
064102,000039:                                                                                                  ## Refer directly to the online document mentioned above for further information.
064103,000040:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
064104,000041:                                                                                                  ##
064105,000042:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
064106,000043:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
064107,000044:                                                                                                  ## source file, and then is proofed to incorporate any changes.
064108,000045: 

Page 1465

064110,000047:                                                                                                  #  PROGRAM NAME:         P27
064111,000048:                                                                                                  #  WRITTEN BY:           KILROY/ DE WOLF
064112,000049: 
064113,000050:                                                                                                  #  MOD NO:               6
064114,000051:                                                                                                  #  MOD BY:               KILROY
064115,000052:                                                                                                  #  DATE:                 01DEC67
064116,000053: 
064117,000054:                                                                                                  #  LOG SECTION:          UPDATE PROGRAM.
064118,000055: 
064119,000056:                                                                                                  #  FUNCT. DESCR:         P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA
064120,000057:                                                                                                  #                        INSERTIONS REQUESTED BY THE GROUND VIA UPLINK.
064121,000058:                                                                                                  #                        THE P27 PROGRAM WILL ACCEPT UPDATES
064122,000059:                                                                                                  #                        ONLY DURING P00 FOR THE LM, AND ONLY DURING P00,
064123,000060:                                                                                                  #                        P02, AND FRESH START FOR THE CSM
064124,000061: 
064125,000062:                                                                                                  #  CALLING SEQ:          PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 70, 71, 72 AND 73.
064126,000063: 
064127,000064:                                                                                                  #  SUBROUTINES:          TESTXACT, NEWMODEX, NEWMODEX +3, GOXDSPF, BANKCALL, FINDVAC, INTPRET, INTSTALL, TPAGREE,
064128,000065:                                                                                                  #                        INTWAKEU, ENDEXT, POSTJUMP, FALTON, NEWPHASE, PHASCHNG
064129,000066: 
064130,000067:                                                                                                  #  NORMAL EXIT:          TC ENDEXT
064131,000068: 
064132,000069:                                                                                                  #  ALARM/ABORT:          TC FALTON FOLLOWED BY TC ENDEXT
064133,000070: 
064134,000071:                                                                                                  #  RESTARTS:             P27 IS RESTART PROTECTED IN TWO WAYS ...
064135,000072:                                                                                                  #                        1.      PRIOR TO VERIFLAG INVERSION (WHICH IS CAUSED BY THE GROUND/ASTRONAUT'S VERIFICATION OF UPDATE
064136,000073:                                                                                                  #                                DATA BY SENDING A V33E WHEN V21N02 IS FLASHING)---
064137,000074:                                                                                                  #                                NO PROTECTION EXCEPT PRE-P27 MODE IS RESTORED, COAST + ALIGN DOWNLIST IS SELECTED AND UPLINK
064138,000075:                                                                                                  #                                ACTIVITY LIGHT IS TURNED OFF.  (JUST AS IF A V34E WAS SENT DURING P27 DATA LOADS).
064139,000076:                                                                                                  #                                V70,V71,V72 OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER.
064140,000077:                                                                                                  #                        2.      AFTER VERIFLAG INVERSION (WHEN UPDATE OF THE SPECIFIED ERASABLES IS BEING PERFORMED)---
064141,000078:                                                                                                  #                                PROTECTED AGAINST RESTARTS.
064142,000079: 
064143,000080:                                                                                                  #  DEBRIS:               UPBUFF  (20D)   TEMP STORAGE FOR ADDRESSES AND CONTENTS.
064144,000081:                                                                                                  #                        UPVERB  (1)     VERB NUMBER MINUS 70D (E.G. FOR V72, UPVERB = 72D - 70D = 2)
064145,000082:                                                                                                  #                        UPOLDMOD(1)     FOR MAJOR MODE INTERRUPTED BY P27.
064146,000083:                                                                                                  #                        COMPNUMB(1)     TOTAL NUMBER OF COMPONENTS TO BE TRANSMITTED.
064147,000084:                                                                                                  #                        UPCOUNT (1)     ACTUAL NUMBER OF COMPONENTS RECEIVED.
064148,000085:                                                                                                  #                        UPTEMP  (1)     SCRATCH, BUT USUALLY CONTAINS COMPONENT NUMBER TO BE CHANGED DURING VERIFY CYCLE
064149,000086: 
064150,000087:                                                                                                  #  INPUT:
064151,000088: 
064152,000089:                                                                                                  #        ENTRY:                  DESCRIPTION
064153,000090:                                                                                                  #        V70EXXXXXEXXXXXE        (LIFTOFF TIME INCREMENT) DOUBLE PRECISION OCTAL TIME INCREMENT, XXXXX XXXXX,
064154,000091:                                                                                                  #                                IS ADDED TO TEPHEM, SUBTRACTED FROM AGC CLOCK(TIME2,TIME1), SUBTRACTED FROM CSM STATE
064155,000092:                                                                                                  #                                VECTOR TIME(TETCSM) AND SUBTRACTED FROM LEM STATE VECTOR TIME(TETLEM).
064156,000093:                                                                                                  #                                THE DP OCTAL TIME INCREMENT IS SCALED AT 2(28).

Page 1466

064158,000095:                                                                                                  #        V71EIIEAAAAE            (CONTIGUOUS BLOCK UPDATE) II-2 OCTAL COMPONENTS, XXXXX,
064159,000096:                                                                                                  #        XXXXXE                  ARE LOADED INTO ERASABLE STARTING AT ECADR, AAAA.
064160,000097:                                                                                                  #        XXXXXE                  IT IS .GE. 3 .AND. .LE. 20D.,
064161,000098:                                                                                                  #                                AND (AAAA + II -3) DOES NOT PRODUCE AN ADDRESS IN THE
064162,000099:                                                                                                  #       9 NEXT BANK
064163,000100:                                                                                                  #         .                      SCALING IS SAME AS INTERNAL REGISTERS.
064164,000101:                                                                                                  #        V72EIIE                 (SCATTER UPDATE) (II-1)/2 OCTAL COMPONENTS, XXXXX, ARE
064165,000102:                                                                                                  #        AAAAEXXXXXE             LOADED INTO ERASABLE LOCATIONS, AAAA.
064166,000103:                                                                                                  #        AAAAEXXXXXE             II IS .GE. 3 .AND. .LE. 19D, AND MUST BE ODD.
064167,000104:                                                                                                  #         .                      SCALING IS SAME AS INTERNAL REGISTERS.
064168,000105: 
064169,000106:                                                                                                  #        V73EXXXXXEXXXXXE        (OCTAL CLOCK INCREMENT) DOUBLE PRECISION OCTAL TIME
064170,000107:                                                                                                  #                                INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN
064171,000108:                                                                                                  #                                CENTISECONDS SCALED AT (2)28.
064172,000109:                                                                                                  #                                THIS LOAD IS THE OCTAL EQUIVALENT OF V55.
064173,000110: 
064174,000111:                                                                                                  #  OUTPUT:               IN ADDITION TO THE ABOVE REGISTER LOADS, ALL UPDATES
064175,000112:                                                                                                  #                        COMPLEMENT BIT3 OF FLAGWORD7.
064176,000113: 
064177,000114:                                                                                                  #  ADDITIONAL NOTES:     VERB 71, JUST DEFINED ABOVE WILL BE USED TO PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES --
064178,000115:                                                                                                  #                        1.  CSM/LM STATE VECTOR UPDATE
064179,000116:                                                                                                  #                        2.  REFSMMAT UPDATE
064180,000117: 
064181,000118:                                                                                                  #        THE FOLLOWING COMMENTS DELINEATE EACH SPECIAL UPDATE----
064182,000119: 
064183,000120:                                                                                                  #        1.  CSM/LM STATE VECTOR UPDATE (ALL DATA ENTRIES IN OCTAL)
064184,000121:                                                                                                  #                ENTRIES:        DATA DEFINITION:                                SCALE FACTORS:
064185,000122:                                                                                                  #                V71E            CONTIGUOUS BLOCK UPDATE VERB
064186,000123:                                                                                                  #                   21E          NUMBER OF COMPONENTS FOR STATE VECTOR UPDATE
064187,000124:                                                                                                  #                 AAAAE          ECADR OF 'UPSVFLAG'
064188,000125:                                                                                                  #                XXXXXE          STATE VECTOR IDENTIFIER: 00001 FOR CSM, 77776 FOR LEM - EARTH SPHERE OF INFLUENCE SCALING
064189,000126:                                                                                                  #                                                         00002 FOR CSM, 77775 FOR LEM - LUNAR SPHERE OF INFLUENCE SCALING
064190,000127:                                                                                                  #                XXXXXEXXXXXE    X POSITION
064191,000128:                                                                                                  #                XXXXXEXXXXXE    Y POSITION
064192,000129:                                                                                                  #                XXXXXEXXXXXE    Z POSITION
064193,000130:                                                                                                  #                XXXXXEXXXXXE    X VELOCITY
064194,000131:                                                                                                  #                XXXXXEXXXXXE    Y VELOCITY
064195,000132:                                                                                                  #                XXXXXEXXXXXE    Z VELOCITY
064196,000133:                                                                                                  #                XXXXXEXXXXXE    TIME FROM AGC CLOCK ZERO
064197,000134:                                                                                                  #                V33E            VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
064198,000135: 
064199,000136:                                                                                                  #        2.  REFSMMAT (ALL DATA ENTRIES IN OCTAL)
064200,000137:                                                                                                  #                ENTRIES:        DATA DEFINITIONS:                               SCALE FACTORS:

Page 1467

064202,000139:                                                                                                  #                V71E            CONTIGUOUS BLOCK UPDATE VERB
064203,000140:                                                                                                  #                   24E          NUMBER OF COMPONENTS FOR REFSMMAT UPDATE
064204,000141:                                                                                                  #                 AAAAE          ECADR OF 'REFSMMAT'
064205,000142:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 1                                  2(-1)
064206,000143:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 2                                  2(-1)
064207,000144:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 3                                  2(-1)
064208,000145:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 1                                  2(-1)
064209,000146:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 2                                  2(-1)
064210,000147:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 3                                  2(-1)
064211,000148:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 1                                  2(-1)
064212,000149:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 2                                  2(-1)
064213,000150:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 3                                  2(-1)
064214,000151:                                                                                                  #                V33E            VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED.
064215,000152: 
064216,000153: 07,3717                                           BANK     07                                    
064217,000154: 43,2000                                           SETLOC   EXTVERBS                              
064218,000155: 43,2000                                           BANK                                           
064219,000156: 
064220,000157: 43,3722  E3,1706                                  EBANK=   TEPHEM                                
064221,000158: 
064222,000159: 43,3722                                           COUNT*   $$/P27                                
064223,000160: 43,3722           34714        V70UPDAT           CAF      UP70                                  #  COMES HERE ON V70E
064224,000161: 43,3723           13731                           TCF      V73UPDAT   +1                         
064225,000162: 
064226,000163: 43,3724           34712        V71UPDAT           CAF      UP71                                  #  COMES HERE ON V71E
064227,000164: 43,3725           13731                           TCF      V73UPDAT   +1                         
064228,000165: 
064229,000166: 43,3726           34711        V72UPDAT           CAF      UP72                                  #  COMES HERE ON V72E
064230,000167: 43,3727           13731                           TCF      V73UPDAT   +1                         
064231,000168: 
064232,000169: 43,3730           36214        V73UPDAT           CAF      UP73                                  #  COMES HERE ON V73E
064233,000170: 
064234,000171: 43,3731           54331                 +1        TS       UPVERBSV                              #  SAVE UPVERB UNTIL IT'S OK TO ENTER P27
064235,000172: 
064236,000173: 43,3732           02076                           TC       TESTXACT                              #  GRAB DISPLAY IF AVAILABLE, OTHERWISE
064237,000174:                                                                                                  #  TURN *OPERATOR ERROR* ON AND TERMINATE JOB
064238,000175: 
064239,000176: 43,3733           31011                           CA       MODREG                                #  CHECK IF UPDATE ALLOWED
064240,000177: 43,3734           00006                           EXTEND                                         #  FIRST CHECK FOR MODREG = +0, -0
064241,000178: 43,3735           13737                           BZF      +2                                    #  (+0 = P00, -0 = FRESHSTART)
064242,000179: 43,3736           03747                           TC       CKMDMORE                              #  NOW CHECK FOR PROGRAM WHICH CAN BE
064243,000180:                                                                                                  #  INTERRUPTED BY P27.
064244,000181: 
064245,000182: 43,3737           31011                           CAE      MODREG                                #  UPDATE ALLOWED.
064246,000183: 43,3740           54301                           TS       UPOLDMOD                              #  SAVE CURRENT MAJOR MODE

Page 1468

064248,000185: 43,3741           30331                           CAE      UPVERBSV                              #  SET UPVERB TO INDICATE TO P27
064249,000186: 43,3742           54302                           TS       UPVERB                                #  WHICH EXTENDED VERB CALLED IT.
064250,000187: 
064251,000188: 43,3743           34712                           CAF      ONE                                   
064252,000189: 43,3744           54303                           TS       UPCOUNT                               #  INITIALIZE UPCOUNT TO 1
064253,000190: 
064254,000191: 43,3745           04574                           TC       POSTJUMP                              #  LEAVE EXTENDED VERB BANK AND
064255,000192: 43,3746           57364                           CADR     UPPART2                               #  GO TO UPDATE PROGRAM (P27) BANK.
064256,000193: 
064257,000194: 43,3747           40101        CKMDMORE           CS       FLAGWRD5                              
064258,000195: 43,3750           74703                           MASK     BIT8                                  #  CHECK IF COMPUTER IS LGC
064259,000196: 43,3751           10000                           CCS      A                                     #  IS COMPUTER LGC OR AGC
064260,000197: 43,3752           13760        UPERLEM            TCF      UPERROR                               #  ERROR- IT'S THE LEM + MODE IS NOT POO.
064261,000198: 43,3753           44711                           CS       TWO                                   
064262,000199: 43,3754           71011                           MASK     MODREG                                
064263,000200: 43,3755           10000                           CCS      A                                     
064264,000201: 43,3756           13760        UPERCMC            TCF      UPERROR                               #  ERROR- IT'S THE CMC AND MODE IS NOT
064265,000202:                                                                                                  #  P00 OR P02.
064266,000203: 43,3757           00002                           TC       Q                                     #  ALLOW UPDATE TO PROCEED
064267,000204: 
064268,000205: 43,3760           04574        UPERROR            TC       POSTJUMP                              #  TURN ON 'OPERATOR ERROR' LIGHT
064269,000206: 43,3761           57745                           CADR     UPERROUT   +2                         #  GO TO COMMON UPDATE PROGRAM EXIT
064270,000207: 
064271,000208: 43,3762     4714               UP70               EQUALS   ZERO                                  
064272,000209: 43,3762     4712               UP71               EQUALS   ONE                                   
064273,000210: 43,3762     4711               UP72               EQUALS   TWO                                   
064274,000211: 43,3762     6214               UP73               EQUALS   THREE                                 
064275,000212: 
064276,000213: 04,3650                                           BANK     04                                    
064277,000214: 27,2000                                           SETLOC   UPDATE2                               
064278,000215: 27,2000                                           BANK                                           
064279,000216: 
064280,000217: 27,3364                                           COUNT*   $$/P27                                
064281,000218: 
064282,000219: 27,3364                        UPPART2            EQUALS                                         #  UPDATE PROGRAM - PART 2
064283,000220: 
064284,000221: 27,3364           05301                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO RESTORE OLD MODE
064285,000222: 27,3365           07026                           OCT      07026                                 #  AND DOWNLIST AND EXIT IF RESTART OCCURS.
064286,000223: 27,3366           30000                           OCT      30000                                 #  PRIORITY SAME AS CHRPRIO
064287,000224: 27,3367     0304                                  EBANK=   UPBUFF                                
064288,000225: 27,3367           03675 56100                     2CADR    UPOUT      +1                         
064289,000226: 
064290,000227: 27,3371           34712                           CAF      ONE                                   
064291,000228: 27,3372           54332                           TS       DNLSTCOD                              #  DOWNLIST
064292,000229: 
064293,000230: 27,3373           05243                           TC       NEWMODEX                              #  SET MAJOR MODE = 27
064294,000231: 27,3374           00033                           DEC      27         B-14                       
064295,000232: 

Page 1469

064297,000234: 27,3375           50302                           INDEX    UPVERB                                #  BRANCH DEPENDING ON WHETHER THE UPDATE
064298,000235: 27,3376           13377                           TCF      +1                                    #  VERB REQUIRES A FIXED OR VARIABLE NUMBER
064299,000236: 27,3377           13402                           TCF      +3                                    #  V70 FIXED.               (OF COMPONENTS.
064300,000237: 27,3400           13405                           TCF      OHWELL1                               #  V71 VARIABLE - GO GET NO. OF COMPONENTS
064301,000238: 27,3401           13405                           TCF      OHWELL1                               #  V72 VARIABLE - GO GET NO. OF COMPONENTS
064302,000239: 27,3402           34711                           CA       TWO                                   #  V73 (AND V70) FIXED
064303,000240: 27,3403           54300                           TS       COMPNUMB                              #  SET NUMBER OF COMPONENTS TO 2.
064304,000241: 27,3404           13430                           TCF      OHWELL2                               #  GO GET THE TWO UPDATE COMPONENTS
064305,000242: 
064306,000243: 27,3405           33500        OHWELL1            CAF      ADUPBUFF                              #  * REQUEST USER TO SEND NUMBER *
064307,000244: 27,3406           54156                           TS       MPAC       +2                         #  * OF COMPONENTS PARAMETER(II). *
064308,000245: 27,3407           33501                 +2        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
064309,000246: 27,3410           04555                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01
064310,000247: 27,3411           20465                           CADR     GOXDSPF                               #  TO REQUEST II.
064311,000248: 27,3412           13675                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN
064312,000249: 27,3413           13407                           TCF      OHWELL1    +2                         
064313,000250: 27,3414           03471                           TC       CK4V32                                #  DATA OR V32 RETURN
064314,000251: 27,3415           44711                           CS       BIT2                                  
064315,000252: 27,3416           60304                           AD       UPBUFF                                #  IS II (NUMBER OF COMPONENTS PARAMETER)
064316,000253: 27,3417           00006                           EXTEND                                         #  .GE. 3 AND .LE. 20D.
064317,000254: 27,3420           63407                           BZMF     OHWELL1    +2                         
064318,000255: 27,3421           40304                           CS       UPBUFF                                
064319,000256: 27,3422           64376                           AD       UP21                                  
064320,000257: 27,3423           00006                           EXTEND                                         
064321,000258: 27,3424           63407                           BZMF     OHWELL1    +2                         
064322,000259: 27,3425           30304                           CAE      UPBUFF                                
064323,000260: 27,3426           54300                           TS       COMPNUMB                              #  SAVE II IN COMPNUMB
064324,000261: 
064325,000262:                                                                                                  #  UPBUFF LOADING SEQUENCE
064326,000263: 
064327,000264: 27,3427           24303                           INCR     UPCOUNT                               #  INCREMENT COUNT OF COMPONENTS RECEIVED.
064328,000265: 27,3430           33645        OHWELL2            CAF      ADUPBFM1                              #  CALCULATE LOCATION (ECADR) IN UPBUFF
064329,000266: 27,3431           60303                           AD       UPCOUNT                               #  WHERE NEXT COMPONENT SHOULD BE STORED.
064330,000267: 27,3432           54156                 +2        TS       MPAC       +2                         #  PLACE ECADR INTO R3.
064331,000268: 27,3433           33501                 +3        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
064332,000269: 27,3434           04555                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01
064333,000270: 27,3435           20465                           CADR     GOXDSPF                               #  TO REQUEST DATA.
064334,000271: 27,3436           13675                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN.
064335,000272: 27,3437           13433                           TCF      OHWELL2    +3                         #  V33 PROCEED RETURN
064336,000273: 27,3440           03471                           TC       CK4V32                                #  DATA OR V32 RETURN
064337,000274: 27,3441           40303                           CS       UPCOUNT                               #  HAVE WE FINISHED RECEIVING ALL
064338,000275: 27,3442           60300                           AD       COMPNUMB                              #  THE DATA WE EXPECTED.
064339,000276: 27,3443           00006                           EXTEND                                         
064340,000277: 27,3444           63446                           BZMF     UPVERIFY                              #  YES - GO TO VERIFICATION SEQUENCE
064341,000278: 27,3445           13427                           TCF      OHWELL2    -1                         #  NO - REQUEST ADDITIONAL DATA.
064342,000279: 
064343,000280:                                                                                                  #  VERIFY SEQUENCE

Page 1470

064345,000282: 27,3446           33477        UPVERIFY           CAF      ADUPTEMP                              #  PLACE ECADR WHERE COMPONENT NO. INDEX
064346,000283: 27,3447           54156                           TS       MPAC       +2                         #  IS TO BE STORED INTO R3.
064347,000284: 27,3450           33502                           CAF      UPVRFYNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
064348,000285: 27,3451           04555                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N02 TO REQUEST
064349,000286: 27,3452           20465                           CADR     GOXDSPF                               #  DATA CORRECTION OR VERIFICATION.
064350,000287: 27,3453           13675                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN
064351,000288: 27,3454           13503                           TCF      UPSTORE                               #  V33 DATA SENT IS GOOD.  GO STORE IT.
064352,000289: 27,3455           03471                           TC       CK4V32                                #  COMPONENT NO. INDEX OR V32 RETURN
064353,000290: 27,3456           30330                           CA       UPTEMP                                #  DOES THE COMPONENT NO. INDEX JUST SENT
064354,000291: 27,3457           00006                           EXTEND                                         #  SPECIFY A LEGAL COMPONENT NUMBER?
064355,000292: 27,3460           63446                           BZMF     UPVERIFY                              #  NO, IT IS NOT POSITIVE NONZERO
064356,000293: 27,3461           40330                           CS       UPTEMP                                
064357,000294: 27,3462           60300                           AD       COMPNUMB                              
064358,000295: 27,3463           64712                           AD       BIT1                                  
064359,000296: 27,3464           00006                           EXTEND                                         
064360,000297: 27,3465           63446                           BZMF     UPVERIFY                              #  NO
064361,000298: 27,3466           33645                           CAF      ADUPBFM1                              #  YES - BASED ON THE COMPONENT NO. INDEX
064362,000299: 27,3467           60330                           AD       UPTEMP                                #  CALCULATE THE ECADR OF LOCATION IN
064363,000300: 27,3470           13432                           TCF      OHWELL2    +2                         #  UPBUFF WHICH USER WANTS TO CHANGE.
064364,000301: 
064365,000302: 27,3471  27,3675               UPOUT4             EQUALS   UPOUT      +1                         #  COMES HERE ON V34 TO TERMINATE UPDATE
064366,000303: 
064367,000304:                                                                                                  #  CHECK FOR VERB 32 SEQUENCE
064368,000305: 
064369,000306: 27,3471           40154        CK4V32             CS       MPAC                                  #  ON DATA RETURN FROM 'GOXDSPF'
064370,000307: 27,3472           74705                           MASK     BIT6                                  #  ON DATA RETURN FROM "GOXDSP" & THE CON-
064371,000308: 27,3473           10000                           CCS      A                                     #  TENTS OF MPAC = VERB.  SO TEST FOR V32.
064372,000309: 27,3474           00002                           TC       Q                                     #  IT'S NOT A V32, IT'S DATA.  PROCEED.
064373,000310: 27,3475           50002                           INDEX    Q                                     
064374,000311: 27,3476           77771                           TC       0          -6                         #  V32 ENCOUNTERED - GO BACK AND GET DATA
064375,000312: 
064376,000313: 27,3477           00330        ADUPTEMP           ADRES    UPTEMP                                #  ADDRESS OF TEMP STORAGE FOR CORRECTIONS
064377,000314: 27,3500           00304        ADUPBUFF           ADRES    UPBUFF                                #  ADDRESS OF UPDATE DATA STORAGE BUFFER
064378,000315: 27,3501           05201        UPLOADNV           VN       2101                                  #  VERB 21 NOUN 01
064379,000316: 27,3502           05202        UPVRFYNV           VN       2102                                  #  VERB 21 NOUN 02
064380,000317: 27,3503     4376               UP21               =        MD1                                   #  DEC 21 = MAX NO OF COMPONENTS +1
064381,000318: 27,3503     4715               UPDTPHAS           EQUALS   FIVE                                  
064382,000319: 
064383,000320:                                                                                                  #  PRE-STORE AND FAN TO APPROPRIATE BRANCH SEQUENCE
064384,000321: 
064385,000322: 27,3503                        UPSTORE            EQUALS                                         #  GROUND HAS VERIFIED UPDATE.  STORE DATA.
064386,000323: 
064387,000324: 27,3503           00004                           INHINT                                         
064388,000325: 
064389,000326: 27,3504           30103                           CAE      FLAGWRD7                              #  INVERT VERIFLAG (BIT 3 OF FLAGWRD7) TO
064390,000327: 27,3505           56001                           XCH      L                                     #  INDICATE TO THE GROUND (VIA DOWNLINK)
064391,000328: 27,3506           34710                           CAF      BIT3                                  #  THAT THE V33 (WHICH THE GROUND SENT TO
064392,000329: 27,3507           00006                           EXTEND                                         #  VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
064393,000330: 27,3510           06001                           RXOR     LCHAN                                 #  RECEIVED BY THE UPDATE PROGRAM

Page 1471

064395,000332: 27,3511           54103                           TS       FLAGWRD7                              
064396,000333: 
064397,000334: 27,3512           05301                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO REDO THE UPDATE
064398,000335: 27,3513           04026                           OCT      04026                                 #  DATA STORE IF A RESTART OCCURS.
064399,000336: 27,3514           00004                           INHINT                                         #  (BECAUSE PHASCHNG DID A RELINT)
064400,000337: 
064401,000338: 27,3515           44711                           CS       TWO                                   #  GO TO UPFNDVAC IF INSTALL IS REQUIRED,
064402,000339: 27,3516           60302                           AD       UPVERB                                #  THAT IS, IF IT'S A V70 - V72.
064403,000340: 27,3517           00006                           EXTEND                                         #  GO TO UPEND73 IF IT'S A V73.
064404,000341: 27,3520           63527                           BZMF     UPFNDVAC                              
064405,000342: 
064406,000343:                                                                                                  #  VERB 73 BRANCH
064407,000344: 
064408,000345: 27,3521           00006        UPEND73            EXTEND                                         #  V73 - PERFORM DP OCTAL AGC CLOCK INCREMENT
064409,000346: 27,3522           30305                           DCA      UPBUFF                                
064410,000347: 27,3523           52315                           DXCH     UPBUFF     +8D                        
064411,000348: 27,3524           03552                           TC       TIMEDIDL                              
064412,000349: 27,3525           04400                           TC       FALTON                                #  ERROR - TURN ON *OPERATOR ERROR* LIGHT
064413,000350: 27,3526           03675                           TC       UPOUT      +1                         #  GO TO COMMON UPDATE PROGRAM EXIT
064414,000351: 
064415,000352: 27,3527           34371        UPFNDVAC           CAF      CHRPRIO                               #  (USE EXTENDED VERB PRIORITY)
064416,000353: 27,3530           05042                           TC       FINDVAC                               #  GET VAC AREA FOR 'CALL INTSTALL'
064417,000354: 27,3531  E3,1706                                  EBANK=   TEPHEM                                
064418,000355: 27,3531           03534 56103                     2CADR    UPJOB                                 #  (NOTE:  THIS WILL ALSO SET EBANK FOR
064419,000356: 27,3533           05112                           TC       ENDOFJOB                              #  'TEPHEM' UPDATE BY V70)
064420,000357: 
064421,000358: 27,3534           06006        UPJOB              TC       INTPRET                               #  THIS COULD BE A STATE VECTOR UPDATE -- SO
064422,000359: 27,3535           77624                           CALL                                           #  WAIT (PUT JOB TO SLEEP) IF ORBIT INT(OI)
064423,000360: 27,3536           27371                                    INTSTALL                              #  IS IN PROGRESS -- OR -- GRAB OI AND RETURN
064424,000361:                                                                                                  #  TO UPWAKE IF OI IS NOT IN PROGRESS.
064425,000362: 
064426,000363: 27,3537           77776        UPWAKE             EXIT                                           
064427,000364: 
064428,000365: 27,3540           05301                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
064429,000366: 27,3541           04026                           OCT      04026                                 
064430,000367: 
064431,000368: 27,3542           05435                           TC       UPFLAG                                #  SET INTEGRATION RESTART BIT
064432,000369: 27,3543           00236                           ADRES    REINTFLG                              
064433,000370: 27,3544           00004                           INHINT                                         
064434,000371: 27,3545                        UPPART3            EQUALS                                         
064435,000372: 
064436,000373: 27,3545           50302                           INDEX    UPVERB                                #  BRANCH TO THE APPROPRIATE UPDATE VERB
064437,000374: 27,3546           13547                           TCF      +1                                    #  ROUTINE TO ACTUALLY PERFORM THE UPDATE
064438,000375: 27,3547           13706                           TCF      UPEND70                               #  V70
064439,000376: 27,3550           13615                           TCF      UPEND71                               #  V71
064440,000377: 27,3551           13647                           TCF      UPEND72                               #  V72
064441,000378: 
064442,000379:                                                                                                  #  ROUTINE TO INCREMENT CLOCK (TIME2,TIME1) WITH CONTENTS OF DP WORD AT UPBUFF.

Page 1472

064444,000381: 27,3552           00006        TIMEDIDL           EXTEND                                         
064445,000382: 27,3553           22330                           QXCH     UPTEMP                                #  SAVE Q FOR RETURN
064446,000383: 27,3554           34714                           CAF      ZERO                                  #  ZERO AND SAVE TIME2,TIME1
064447,000384: 27,3555           22007                           ZL                                             
064448,000385: 27,3556           52025                           DXCH     TIME2                                 
064449,000386: 27,3557           52327                           DXCH     UPBUFF     +18D                       #  STORE IN CASE OF OVERFLOW
064450,000387: 
064451,000388: 27,3560           34715                           CAF      UPDTPHAS                              #  DO
064452,000389: 27,3561           54001                           TS       L                                     #  A
064453,000390: 27,3562           40000                           COM                                            #  QUICK
064454,000391: 27,3563           52765                           DXCH     -PHASE6                               #  PHASCHNG
064455,000392: 
064456,000393: 27,3564           00004        TIMEDIDR           INHINT                                         
064457,000394: 27,3565           34714                           CAF      ZERO                                  
064458,000395: 27,3566           22007                           ZL                                             #  PICK UP INCREMENTER (AND ZERO
064459,000396: 27,3567           54156                           TS       MPAC       +2                         #  IT IN CASE OF RESTARTS) AND
064460,000397: 27,3570           52315                           DXCH     UPBUFF     +8D                        #  STORE IT
064461,000398: 27,3571           52155                           DXCH     MPAC                                  #  INTO MPAC FOR TPAGREE.
064462,000399: 
064463,000400: 27,3572           00006                           EXTEND                                         
064464,000401: 27,3573           30327                           DCA      UPBUFF     +18D                       
064465,000402: 27,3574           20155                           DAS      MPAC                                  #  FORM SUM IN MPAC
064466,000403: 27,3575           00006                           EXTEND                                         
064467,000404: 27,3576           13605                           BZF      DELTAOK                               #  TEST FOR OVERFLOW
064468,000405: 27,3577           34714                           CAF      ZERO                                  
064469,000406: 27,3600           52327                           DXCH     UPBUFF     +18D                       #  OVERFLOW, RESTORE OLD VALUE OF CLOCK
064470,000407: 27,3601           20025                           DAS      TIME2                                 #  AND TURN ON OPERATOR ERROR
064471,000408: 
064472,000409: 27,3602           05301                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
064473,000410: 27,3603           04026                           OCT      04026                                 
064474,000411: 
064475,000412: 27,3604           00330                           TC       UPTEMP                                #  GO TO ERROR EXIT
064476,000413: 
064477,000414: 27,3605           07226        DELTAOK            TC       TPAGREE                               #  FORCE SIGN AGREEMENT
064478,000415: 27,3606           52155                           DXCH     MPAC                                  
064479,000416: 27,3607           20025                           DAS      TIME2                                 #  INCREMENT TIME2,TIME1
064480,000417: 
064481,000418: 27,3610           05301                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
064482,000419: 27,3611           04026                           OCT      04026                                 
064483,000420: 
064484,000421: 27,3612           00004                           INHINT                                         
064485,000422: 27,3613           50330                           INDEX    UPTEMP                                #  (CODED THIS WAY FOR RESTART PROTECTION)
064486,000423: 27,3614           00001                           TC       1                                     #  NORMAL RETURN
064487,000424: 
064488,000425:                                                                                                  #  VERB 71 BRANCH
064489,000426: 
064490,000427: 27,3615           30305        UPEND71            CAE      UPBUFF     +1                         #  SET EBANK
064491,000428: 27,3616           54003                           TS       EBANK                                 #        AND
064492,000429: 27,3617           74373                           MASK     LOW8                                  #  CALCULATE
064493,000430: 27,3620           54330                           TS       UPTEMP                                #  S-REG VALUE OF RECEIVING AREA

Page 1473

064495,000432: 27,3621           67714                           AD       NEG3                                  #  IN THE PROCESS OF
064496,000433: 27,3622           60300                           AD       COMPNUMB                              #  PERFORMING
064497,000434: 27,3623           00006                           EXTEND                                         #  THIS UPDATE
064498,000435: 27,3624           13632                           BZF      STORLP71                              #  WILL WE
064499,000436: 27,3625           74702                           MASK     BIT9                                  #  OVERFLOW
064500,000437: 27,3626           10000                           CCS      A                                     #  INTO THE NEXT EBANK....
064501,000438: 27,3627           13743                           TCF      UPERROUT                              #  YES
064502,000439: 
064503,000440: 27,3630           37714                           CA       NEG3                                  #  NO - CALCULATE NUMBER OF
064504,000441: 27,3631           60300                           AD       COMPNUMB                              #  WORDS TO BE STORED MINUS ONE
064505,000442: 27,3632           54154        STORLP71           TS       MPAC                                  #  SAVE NO. OF WORDS REMAINING MINUS ONE
064506,000443: 27,3633           50000                           INDEX    A                                     #  TAKE NEXT UPDATE WORD FROM
064507,000444: 27,3634           30306                           CA       UPBUFF     +2                         #  UPBUFF AND
064508,000445: 27,3635           54001                           TS       L                                     #  SAVE IT IN L
064509,000446: 27,3636           30154                           CA       MPAC                                  #  CALCULATE NEXT
064510,000447: 27,3637           60330                           AD       UPTEMP                                #  RECEIVING ADDRESS
064511,000448: 27,3640           50000                           INDEX    A                                     
064512,000449: 27,3641  E3,1400                                  EBANK=   1400                                  
064513,000450: 27,3641           23400                           LXCH     1400                                  #  UPDATE THE REGISTER BY CONTENTS OF L
064514,000451: 27,3642  E3,1706                                  EBANK=   TEPHEM                                
064515,000452: 27,3642           10154                           CCS      MPAC                                  #  ARE THERE ANY WORDS LEFT TO BE STORED
064516,000453: 27,3643           13632                           TCF      STORLP71                              #  YES
064517,000454: 27,3644           13674                           TCF      UPOUT                                 #  NO - THEN EXIT UPDATE PROGRAM
064518,000455: 27,3645           00303        ADUPBFM1           ADRES    UPBUFF     -1                         #  SAME AS ADUPBUFF BUT LESS 1 (DON'T MOVE)
064519,000456: 27,3646           13674                           TCF      UPOUT                                 #  NO - EXIT UPDATE (HERE WHEN COMPNUMB = 3)
064520,000457: 
064521,000458:                                                                                                  #  VERB 72 BRANCH
064522,000459: 
064523,000460: 27,3647           34712        UPEND72            CAF      BIT1                                  #  HAVE AN ODD NO. OF COMPONENTS
064524,000461: 27,3650           70300                           MASK     COMPNUMB                              #  BEEN SENT FOR A V72 UPDATE ...
064525,000462: 27,3651           10000                           CCS      A                                     
064526,000463: 27,3652           13654                           TCF      +2                                    #  YES
064527,000464: 27,3653           13743                           TCF      UPERROUT                              #  ERROR - SHOULD BE ODD NO. OF COMPONENTS
064528,000465: 27,3654           44711                           CS       BIT2                                  
064529,000466: 27,3655           60300                           AD       COMPNUMB                              
064530,000467: 27,3656           54154        LDLOOP72           TS       MPAC                                  #  NOW PERFORM THE UPDATE
064531,000468: 27,3657           50000                           INDEX    A                                     
064532,000469: 27,3660           30305                           CAE      UPBUFF     +1                         #  PICK UP NEXT UPDATE WORD
064533,000470: 27,3661           22000                           LXCH     A                                     
064534,000471: 27,3662           10154                           CCS      MPAC                                  #  SET POINTER TO ECADR (MUST BE CCS)
064535,000472: 27,3663           54154                           TS       MPAC                                  
064536,000473: 27,3664           50000                           INDEX    A                                     
064537,000474: 27,3665           30305                           CAE      UPBUFF     +1                         #  PICK UP NEXT ECADR OF REG TO BE UPDATED
064538,000475: 27,3666           54003                           TS       EBANK                                 #  SET EBANK
064539,000476: 27,3667           74373                           MASK     LOW8                                  #  ISOLATE RELATIVE ADDRESS
064540,000477: 27,3670           50000                           INDEX    A                                     
064541,000478: 27,3671  E3,1400                                  EBANK=   1400                                  
064542,000479: 27,3671           23400                           LXCH     1400                                  #  UPDATE THE REGISTER BY CONTENTS OF L
064543,000480: 27,3672  E3,1706                                  EBANK=   TEPHEM                                

Page 1474

064545,000482: 27,3672           10154                           CCS      MPAC                                  #  ARE WE THROUGH THE V72 UPDATE...
064546,000483: 27,3673           13656                           TCF      LDLOOP72                              #  NO
064547,000484: 
064548,000485:                                                                                                  #  NORMAL FINISH OF P27
064549,000486: 
064550,000487: 27,3674                        UPOUT              EQUALS                                         
064551,000488: 27,3674           02662                           TC       INTWAKEU                              #  RELEASE GRAB OF ORBITAL INTEGRATION
064552,000489: 27,3675           30301                 +1        CAE      UPOLDMOD                              #  RESTORE PRIOR P27 MODE
064553,000490: 27,3676           05246                           TC       NEWMODEX   +3                         
064554,000491: 27,3677           34714                           CAF      ZERO                                  
064555,000492: 27,3700           54332                           TS       DNLSTCOD                              
064556,000493: 27,3701           03750                           TC       UPACTOFF                              #  TURN OFF 'UPLINK ACTIVITY' LIGHT
064557,000494: 27,3702           00006                           EXTEND                                         #  KILL GROUP 6.
064558,000495: 27,3703           34714                           DCA      NEG0                                  
064559,000496: 27,3704           52765                           DXCH     -PHASE6                               
064560,000497: 
064561,000498: 27,3705           05423                           TC       ENDEXT                                #  EXTENDED VERB EXIT
064562,000499: 
064563,000500:                                                                                                  #  VERB 70 BRANCH
064564,000501: 
064565,000502: 27,3706           00006        UPEND70            EXTEND                                         #  V70 DOES THE FOLLOWING WITH DP DELTA
064566,000503: 27,3707           40305                           DCS      UPBUFF                                #  TIME IN UPBUFF
064567,000504: 27,3710           52315                           DXCH     UPBUFF     +8D                        
064568,000505: 27,3711           03552                           TC       TIMEDIDL                              #  DECREMENT AGC CLOCK
064569,000506: 
064570,000507: 27,3712           03743                           TC       UPERROUT                              #  ERROR WHILE DECREMENTING CLOCK -- EXIT
064571,000508: 
064572,000509: 27,3713  E3,1706                                  EBANK=   TEPHEM                                
064573,000510: 27,3713           00006                           EXTEND                                         
064574,000511: 27,3714           40305                           DCS      UPBUFF                                #  COPY DECREMENTERS FOR
064575,000512: 27,3715           52317                           DXCH     UPBUFF     +10D                       #  RESTART PROTECTION
064576,000513: 27,3716           00006                           EXTEND                                         
064577,000514: 27,3717           40305                           DCS      UPBUFF                                
064578,000515: 27,3720           52321                           DXCH     UPBUFF     +12D                       
064579,000516: 
064580,000517: 27,3721           05301                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
064581,000518: 27,3722           04026                           OCT      04026                                 
064582,000519: 
064583,000520: 27,3723           34714                           CAF      ZERO                                  
064584,000521: 27,3724           22007                           ZL                                             
064585,000522: 27,3725           52317                           DXCH     UPBUFF     +10D                       #  DECREMENT CSM STATE VECTOR TIME
064586,000523: 27,3726           21571                           DAS      TETCSM                                
064587,000524: 
064588,000525: 27,3727           34714                           CAF      ZERO                                  
064589,000526: 27,3730           22007                           ZL                                             
064590,000527: 27,3731           52321                           DXCH     UPBUFF     +12D                       #  DECREMENT LEM STATE VECTOR TIME
064591,000528: 27,3732           21643                           DAS      TETLEM                                

Page 1475

064593,000530: 27,3733           34714                           CAF      ZERO                                  
064594,000531: 27,3734           22007                           ZL                                             
064595,000532: 27,3735           52305                           DXCH     UPBUFF                                
064596,000533: 27,3736           21710                           DAS      TEPHEM     +1                         #  INCREMENT TP TEPHEM
064597,000534: 27,3737           27706                           ADS      TEPHEM                                
064598,000535: 
064599,000536: 27,3740           05301                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
064600,000537: 27,3741           04026                           OCT      04026                                 
064601,000538: 
064602,000539: 27,3742     0304                                  EBANK=   UPBUFF                                
064603,000540: 
064604,000541: 27,3742           03674                           TC       UPOUT                                 #  GO TO STANDARD UPDATE PROGRAM EXIT
064605,000542: 
064606,000543:                                                                                                  #  ERROR SEQUENCE
064607,000544: 
064608,000545: 27,3743           04400        UPERROUT           TC       FALTON                                #  TURN ON *OPERATOR ERROR* LIGHT
064609,000546: 27,3744           13674                           TCF      UPOUT                                 #  GO TO COMMON UPDATE PROGRAM EXIT
064610,000547: 
064611,000548: 27,3745           04400                 +2        TC       FALTON                                #  TURN ON 'OPERATOR ERROR' LIGHT
064612,000549: 27,3746           03750                           TC       UPACTOFF                              #  TURN OFF 'UPLINK ACTIVITY' LIGHT
064613,000550: 27,3747           05423                           TC       ENDEXT                                #  EXTENDED VERB EXIT
064614,000551:                                                                                                  #  (THE PURPOSE OF UPERROUT +2 EXIT IS
064615,000552:                                                                                                  #  TO PROVIDE AN ERROR EXIT WHICH DOES NOT
064616,000553:                                                                                                  #  RESET ANY RESTART GROUPS)
064617,000554: 
064618,000555:                                                                                                  #  :UPACTOFF: IS A ROUTINE TO TURN OFF UPLINK ACTIVITY LIGHT ON ALL EXITS FROM UPDATE PROGRAM (P27).
064619,000556: 
064620,000557: 27,3750           44710        UPACTOFF           CS       BIT3                                  
064621,000558: 27,3751           00006                           EXTEND                                         #  TURN OFF UPLINK ACTIVITY LIGHT
064622,000559: 27,3752           03011                           WAND     DSALMOUT                              #  (BIT 3 OF CHANNEL 11)
064623,000560: 27,3753           00002                           TC       Q                                     

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