Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

063963,000002:                                                                                                  ## Copyright:   Public domain.
063964,000003:                                                                                                  ## Filename:    UPDATE_PROGRAM.agc
063965,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
063966,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
063967,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
063968,000007:                                                                                                  ##              Apollo 15-17.
063969,000008:                                                                                                  ## Assembler:   yaYUL
063970,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
063971,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
063972,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
063973,000012:                                                                                                  ## Mod history: 2009-08-18 JL   Adapted from corresponding Comanche 055 file.
063974,000013:                                                                                                  ##              2009-09-05 JL   Fixed typos.
063975,000014:                                                                                                  ##              2010-02-16 JL   Added SBANK= directive on page 1493. 
063976,000015:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
063977,000016:                                                                                                  ##              2010-07-18 JL   Fixed indentation.
063978,000017:                                                                                                  ##              2011-05-07 JL   Flagged SBANK= workarounds for future removal.
063979,000018:                                                                                                  ##              2011-05-17 JL   Removed all SBANK= workarounds.
063980,000019:                                                                                                  ##              2017-01-28 RSB  Comment-text fixes identified for Luminary 69.
063981,000020:                                                                                                  ##              2017-02-09 RSB  Proofed comment text by diff'ing vs Comanche 55
063982,000021:                                                                                                  ##                              and/or octopus/ProoferComments as most-appropriate.
063983,000022: 

Page 1490

063985,000024: 
063986,000025:                                                                                                  #  PROGRAM NAME:         P27
063987,000026:                                                                                                  #  WRITTEN BY:           KILROY/ DE WOLF
063988,000027: 
063989,000028:                                                                                                  #  MOD NO:               6
063990,000029:                                                                                                  #  MOD BY:               KILROY
063991,000030:                                                                                                  #  DATE:                 01DEC67
063992,000031: 
063993,000032:                                                                                                  #  LOG SECTION:          UPDATE PROGRAM.
063994,000033: 
063995,000034:                                                                                                  #  FUNCT. DESCR:         P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA
063996,000035:                                                                                                  #                            INSERTIONS REQUESTED BY THE GROUND VIA UPLINK.
063997,000036:                                                                                                  #                            THE P27 PROGRAM WILL ACCEPT UPDATES
063998,000037:                                                                                                  #                            ONLY DURING P00 FOR THE LM, AND ONLY DURING P00,
063999,000038:                                                                                                  #                        P02, AND FRESH START FOR THE CSM
064000,000039: 
064001,000040:                                                                                                  #  CALLING SEQ:          PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 70, 71, 72 AND 73.
064002,000041: 
064003,000042:                                                                                                  #  SUBROUTINES:          TESTXACT, NEWMODEX, NEWMODEX +3, GOXDSPF, BANKCALL, FINDVAC, INTPRET, INTSTALL, TPAGREE,
064004,000043:                                                                                                  #                        INTWAKEU, ENDEXT, POSTJUMP, FALTON, NEWPHASE, PHASCHNG
064005,000044: 
064006,000045:                                                                                                  #  NORMAL EXIT:          TC ENDEXT
064007,000046: 
064008,000047:                                                                                                  #  ALARM/ABORT:          TC FALTON FOLLOWED BY TC ENDEXT
064009,000048: 
064010,000049:                                                                                                  #  RESTARTS:             P27 IS RESTART PROTECTED IN TWO WAYS...
064011,000050:                                                                                                  #                        1. PRIOR TO VERIFLAG INVERSION (WHICH IS CAUSED BY THE GROUND/ASTRONAUT'S VERIFICATION OF UPDATE
064012,000051:                                                                                                  #                           DATA BY SENDING A V33E WHEN V21N02 IS FLASHING)---
064013,000052:                                                                                                  #                           NO PROTECTION EXCEPT PRE-P27 MODE IS RESTORED, COAST + ALIGN DOWNLIST IS SELECTED AND UPLINK
064014,000053:                                                                                                  #                           ACTIVITY LIGHT IS TURNED OFF. (JUST AS IF A V34E WAS SENT DURING P27 DATA LOADS).
064015,000054:                                                                                                  #                           V70,V71,V72 OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER.
064016,000055:                                                                                                  #                        2. AFTER VERIFLAG INVERSION (WHEN UPDATE OF THE SPECIFIED ERASABLES IS BEING PERFORMED)---
064017,000056:                                                                                                  #                           PROTECTED AGAINST RESTARTS.
064018,000057: 
064019,000058:                                                                                                  #  DEBRIS:               UPBUFF  (20D)   TEMP STORAGE FOR ADDRESSES AND CONTENTS.
064020,000059:                                                                                                  #                        UPVERB  (1)     VERB NUMBER MINUS 70D (E.G. FOR V72, UPVERB = 72D - 70D = 2)
064021,000060:                                                                                                  #                        UPOLDMOD(1)     FOR MAJOR MODE INTERRUPTED BY P27.
064022,000061:                                                                                                  #                        COMPNUMB(1)     TOTAL NUMBER OF COMPONENTS TO BE TRANSMITTED.
064023,000062:                                                                                                  #                        UPCOUNT (1)     ACTUAL NUMBER OF COMPONENTS RECEIVED.
064024,000063:                                                                                                  #                        UPTEMP  (1)     SCRATCH, BUT USUALLY CONTAINS COMPONENT NUMBER TO BE CHANGED DURING VERIFY CYCLE
064025,000064: 
064026,000065:                                                                                                  #  INPUT:
064027,000066: 
064028,000067:                                                                                                  #        ENTRY:                  DESCRIPTION
064029,000068: 
064030,000069:                                                                                                  #        V70EXXXXXEXXXXXE        (LIFTOFF TIME INCREMENT) DOUBLE PRECISION OCTAL TIME INCREMENT, XXXXX XXXXX,
064031,000070:                                                                                                  #                                IS ADDED TO TEPHEM, SUBTRACTED FROM AGC CLOCK(TIME2,TIME1), SUBTRACTED FROM CSM STATE
064032,000071:                                                                                                  #                                VECTOR TIME(TETCSM) AND SUBTRACTED FROM LEM STATE VECTOR TIME (TETLEM).
064033,000072:                                                                                                  #                                THE DP OCTAL TIME INCREMENT IS SCALED AT 2(28).

Page 1491

064035,000074: 
064036,000075:                                                                                                  #        V71EIIEAAAAE            (CONTIGUOUS BLOCK UPDATE) II-2 OCTAL COMPONENTS, XXXXX,
064037,000076:                                                                                                  #        XXXXXE                  ARE LOADED INTO ERASABLE STARTING AT ECADR, AAAA.
064038,000077:                                                                                                  #        XXXXXE                  IT IS .GE. 3 .AND. .LE. 20D.,
064039,000078:                                                                                                  #                                AND (AAAA + II - 3) DOES NOT PRODUCE AN ADDRESS IN THE
064040,000079:                                                                                                  #        9 NEXT BANK
064041,000080:                                                                                                  #          .                     SCALING IS SAME AS INTERNAL REGISTERS.
064042,000081: 
064043,000082:                                                                                                  #        V72EIIE                 (SCATTER UPDATE) (II-1)/2 OCTAL COMPONENTS, XXXXX, ARE
064044,000083:                                                                                                  #        AAAAEXXXXXE             LOADED INTO ERASABLE LOCATIONS, AAAA.
064045,000084:                                                                                                  #        AAAAEXXXXXE             II IS .GE. 3 .AND. .LE. 19D, AND MUST BE ODD.
064046,000085:                                                                                                  #          .                     SCALING IS SAME AS INTERNAL REGISTERS.
064047,000086: 
064048,000087:                                                                                                  #        V73EXXXXXEXXXXXE        (OCTAL CLOCK INCREMENT) DOUBLE PRECISION OCTAL TIME
064049,000088:                                                                                                  #                                INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN
064050,000089:                                                                                                  #                                CENTISECONDS SCALED AT (2)28.
064051,000090:                                                                                                  #                                THIS LOAD IS THE OCTAL EQUIVALENT OF V55.
064052,000091: 
064053,000092:                                                                                                  #  OUTPUT:               IN ADDITION TO THE ABOVE REGISTER LOADS, ALL UPDATES
064054,000093:                                                                                                  #                        COMPLEMENT BIT3 OF FLAGWORD7.
064055,000094: 
064056,000095:                                                                                                  #  ADDITIONAL NOTES:     VERB 71, JUST DEFINED ABOVE WILL BE USED TO PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES --
064057,000096:                                                                                                  #                        1. CSM/LM STATE VECTOR UPDATE
064058,000097:                                                                                                  #                        2. REFSMMAT UPDATE
064059,000098: 
064060,000099: 
064061,000100:                                                                                                  #        THE FOLLOWING COMMENTS DELINEATE EACH SPECIAL UPDATE----
064062,000101: 
064063,000102:                                                                                                  #  1. CSM/LM STATE VECTOR UPDATE (ALL DATA ENTRIES IN OCTAL)
064064,000103: 
064065,000104:                                                                                                  #  ENTRIES:      DATA DEFINITION:                                SCALE FACTORS:
064066,000105:                                                                                                  #  V71E          CONTIGUOUS BLOCK UPDATE VERB
064067,000106:                                                                                                  #     21E        NUMBER OF COMPONENTS FOR STATE VECTOR UPDATE
064068,000107:                                                                                                  #   AAAAE        ECADR OF 'UPSVFLAG'
064069,000108:                                                                                                  #  XXXXXE        STATE VECTOR IDENTIFIER: 00001 FOR CSM, 77776 FOR LEM - EARTH SPHERE OF INFLUENCE SCALING
064070,000109:                                                                                                  #                                         00002 FOR CSM, 77775 FOR LEM - LUNAR SPHERE OF INFLUENCE SCALING
064071,000110:                                                                                                  #  XXXXXEXXXXXE  X POSITION
064072,000111:                                                                                                  #  XXXXXEXXXXXE  Y POSITION
064073,000112:                                                                                                  #  XXXXXEXXXXXE  Z POSITION
064074,000113:                                                                                                  #  XXXXXEXXXXXE  X VELOCITY
064075,000114:                                                                                                  #  XXXXXEXXXXXE  Y VELOCITY
064076,000115:                                                                                                  #  XXXXXEXXXXXE  Z VELOCITY
064077,000116:                                                                                                  #  XXXXXEXXXXXE  TIME FROM AGC CLOCK ZERO
064078,000117:                                                                                                  #  V33E          VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
064079,000118: 
064080,000119: 
064081,000120:                                                                                                  #  2. REFSMMAT (ALL DATA ENTRIES IN OCTAL)
064082,000121:                                                                                                  #  ENTRIES:      DATA DEFINITIONS:                               SCALE FACTORS:

Page 1492

064084,000123:                                                                                                  #  V71E          CONTIGUOUS BLOCK UPDATE VERB
064085,000124:                                                                                                  #     24E        NUMBER OF COMPONENTS FOR REFSMMAT UPDATE
064086,000125:                                                                                                  #   AAAAE        ECADR OF 'REFSMMAT'
064087,000126:                                                                                                  #  XXXXXEXXXXXE  ROW 1 COLUMN 1                                  2(-1)
064088,000127:                                                                                                  #  XXXXXEXXXXXE  ROW 1 COLUMN 2                                  2(-1)
064089,000128:                                                                                                  #  XXXXXEXXXXXE  ROW 1 COLUMN 3                                  2(-1)
064090,000129:                                                                                                  #  XXXXXEXXXXXE  ROW 2 COLUMN 1                                  2(-1)
064091,000130:                                                                                                  #  XXXXXEXXXXXE  ROW 2 COLUMN 2                                  2(-1)
064092,000131:                                                                                                  #  XXXXXEXXXXXE  ROW 2 COLUMN 3                                  2(-1)
064093,000132:                                                                                                  #  XXXXXEXXXXXE  ROW 3 COLUMN 1                                  2(-1)
064094,000133:                                                                                                  #  XXXXXEXXXXXE  ROW 3 COLUMN 2                                  2(-1)
064095,000134:                                                                                                  #  XXXXXEXXXXXE  ROW 3 COLUMN 3                                  2(-1)
064096,000135:                                                                                                  #  V33E          VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED.
064097,000136: 
064098,000137: 43,2000                                           SETLOC   EXTVERBS                              
064099,000138: 43,2000                                           BANK                                           
064100,000139: 
064101,000140: 43,3656  E3,1706                                  EBANK=   TEPHEM                                
064102,000141: 
064103,000142: 43,3656                                           COUNT*   $$/P27                                
064104,000143: 43,3656           34772        V70UPDAT           CAF      UP70                                  #  COMES HERE ON V70E
064105,000144: 43,3657           13665                           TCF      V73UPDAT   +1                         
064106,000145: 
064107,000146: 43,3660           34770        V71UPDAT           CAF      UP71                                  #  COMES HERE ON V71E
064108,000147: 43,3661           13665                           TCF      V73UPDAT   +1                         
064109,000148: 
064110,000149: 43,3662           34767        V72UPDAT           CAF      UP72                                  #  COMES HERE ON V72E
064111,000150: 43,3663           13665                           TCF      V73UPDAT   +1                         
064112,000151: 
064113,000152: 43,3664           36214        V73UPDAT           CAF      UP73                                  #  COMES HERE ON V73E
064114,000153: 
064115,000154: 43,3665           54331                 +1        TS       UPVERBSV                              #  SAVE UPVERB UNTIL IT'S OK TO ENTER P27
064116,000155: 
064117,000156: 43,3666           02076                           TC       TESTXACT                              #  GRAB DISPLAY IF AVAILABLE, OTHERWISE
064118,000157:                                                                                                  #  TURN *OPERATOR ERROR* ON AND TERMINATE JOB
064119,000158: 
064120,000159: 43,3667           31214                           CA       MODREG                                #  CHECK IF UPDATE ALLOWED
064121,000160: 43,3670           00006                           EXTEND                                         #  FIRST CHECK FOR MODREG = +0, -0
064122,000161: 43,3671           13707                           BZF      UPDATEOK                              #  FRESH START OR P00
064123,000162: 43,3672           40104                           CS       FLAGWRD8                              
064124,000163: 43,3673           74760                           MASK     UTBIT                                 
064125,000164: 43,3674           10000                           CCS      A                                     
064126,000165: 43,3675           13702                           TCF      +5                                    
064127,000166: 
064128,000167: 43,3676           41214                           CS       MODREG                                
064129,000168: 43,3677           64124                           AD       OCT24                                 

Page 1493

064131,000170: 43,3700           00006                           EXTEND                                         
064132,000171: 43,3701           13707                           BZF      UPDATEOK                              
064133,000172: 
064134,000173: 43,3702           44767                           CS       TWO                                   
064135,000174: 43,3703           71214                           MASK     MODREG                                
064136,000175: 43,3704           00006                           EXTEND                                         
064137,000176: 43,3705           13707                           BZF      +2                                    #  P02
064138,000177: 43,3706           13717                           TCF      UPERROR                               
064139,000178: 43,3707           31214        UPDATEOK           CAE      MODREG                                #  UPDATE ALLOWED.
064140,000179: 43,3710           54301                           TS       UPOLDMOD                              #  SAVE CURRENT MAJOR MODE
064141,000180: 
064142,000181: 43,3711           30331                           CAE      UPVERBSV                              #  SET UPVERB TO INDICATE TO P27
064143,000182: 43,3712           54302                           TS       UPVERB                                #  WHICH EXTENDED VERB CALLED IT.
064144,000183: 
064145,000184: 43,3713           34770                           CAF      ONE                                   
064146,000185: 43,3714           54303                           TS       UPCOUNT                               #  INITIALIZE UPCOUNT TO 1
064147,000186: 
064148,000187: 43,3715           04655                           TC       POSTJUMP                              #  LEAVE EXTENDED VERB BANK AND
064149,000188: 43,3716           65626                           CADR     UPPART2                               #  GO TO UPDATE PROGRAM (P27) BANK.
064150,000189: 
064151,000190: 43,3717           04362        UPERROR            TC       FALTON                                #  TURN ON OP. ERROR
064152,000191: 43,3720           04415                           TC       UPACTOFF                              #  TURN OFF UPLINK ACT LITE
064153,000192: 43,3721           15524                           TCF      ENDEXT                                #  (RESTART GROUP NOT ESTABLISHED YET)
064154,000193: 
064155,000194: 43,3722     4772               UP70               EQUALS   ZERO                                  
064156,000195: 43,3722     4770               UP71               EQUALS   ONE                                   
064157,000196: 43,3722     4767               UP72               EQUALS   TWO                                   
064158,000197: 43,3722     6214               UP73               EQUALS   THREE                                 
064159,000198: 
064160,000199: 42,2000                                           SETLOC   UPDATE3                               
064161,000200: 42,2000                                           BANK                                           
064162,000201: 
064163,000202: 42,3626                                           COUNT*   $$/P27                                
064164,000203: 
064165,000204: 42,3626                        UPPART2            EQUALS                                         #  UPDATE PROGRAM - PART 2
064166,000205: 
064167,000206: 42,3626           05402                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO RESTORE OLD MODE
064168,000207: 42,3627           07026                           OCT      07026                                 #  AND DOWNLIST AND EXIT IF RESTART OCCURS.
064169,000208: 42,3630           30000                           OCT      30000                                 #  PRIORITY SAME AS CHRPRIO
064170,000209: 42,3631     0304                                  EBANK=   UPBUFF                                
064171,000210: 42,3631           03706 56100                     2CADR    UPOUT      +1                         
064172,000211: 
064173,000212: 42,3633           34770                           CAF      ONE                                   
064174,000213: 42,3634           54332                           TS       DNLSTCOD                              #  DOWNLIST
064175,000214: 
064176,000215: 42,3635           05344                           TC       NEWMODEX                              #  SET MAJOR MODE = 27
064177,000216: 42,3636           00033                           DEC      27         B-14                       

Page 1494

064179,000218: 
064180,000219: 42,3637           50302                           INDEX    UPVERB                                #  BRANCH DEPENDING ON WHETHER THE UPDATE
064181,000220: 42,3640           13641                           TCF      +1                                    #  VERB REQUIRES A FIXED OR VARIABLE NUMBER
064182,000221: 42,3641           13644                           TCF      +3                                    #  V70 FIXED.               (OF COMPONENTS.
064183,000222: 42,3642           13647                           TCF      OHWELL1                               #  V71 VARIABLE - GO GET NO. OF COMPONENTS
064184,000223: 42,3643           13647                           TCF      OHWELL1                               #  V72 VARIABLE - GO GET NO. OF COMPONENTS
064185,000224: 42,3644           34767                           CA       TWO                                   #  V73 (AND V70) FIXED
064186,000225: 42,3645           54300                           TS       COMPNUMB                              #  SET NUMBER OF COMPONENTS TO 2.
064187,000226: 42,3646           13672                           TCF      OHWELL2                               #  GO GET THE TWO UPDATE COMPONENTS
064188,000227: 
064189,000228: 42,3647           33744        OHWELL1            CAF      ADUPBUFF                              #  * REQUEST USER TO SEND NUMBER  *
064190,000229: 42,3650           54156                           TS       MPAC       +2                         #  * OF COMPONENTS PARAMETER(II). *
064191,000230: 42,3651           33746                 +2        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
064192,000231: 42,3652           04636                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01
064193,000232: 42,3653           20576                           CADR     GOXDSPF                               #  TO REQUEST II.
064194,000233: 42,3654           13733                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN
064195,000234: 42,3655           13651                           TCF      OHWELL1    +2                         
064196,000235: 42,3656           03735                           TC       CK4V32                                #  DATA OR V32 RETURN
064197,000236: 42,3657           44767                           CS       BIT2                                  
064198,000237: 42,3660           60304                           AD       UPBUFF                                #  IS II (NUMBER OF COMPONENTS PARAMETER)
064199,000238: 42,3661           00006                           EXTEND                                         #  .GE. 3 AND .LE. 20D.
064200,000239: 42,3662           63651                           BZMF     OHWELL1    +2                         
064201,000240: 42,3663           40304                           CS       UPBUFF                                
064202,000241: 42,3664           64353                           AD       UP21                                  
064203,000242: 42,3665           00006                           EXTEND                                         
064204,000243: 42,3666           63651                           BZMF     OHWELL1    +2                         
064205,000244: 42,3667           30304                           CAE      UPBUFF                                
064206,000245: 42,3670           54300                           TS       COMPNUMB                              #  SAVE II IN COMPNUMB
064207,000246: 
064208,000247:                                                                                                  #  UPBUFF LOADING SEQUENCE
064209,000248: 
064210,000249: 42,3671           24303                 -1        INCR     UPCOUNT                               #  INCREMENT COUNT OF COMPONENTS RECEIVED
064211,000250: 42,3672           33745        OHWELL2            CAF      ADUPBFM1                              #  CALCULATE LOCATION (ECADR) IN UPBUFF
064212,000251: 42,3673           60303                           AD       UPCOUNT                               #  WHERE NEXT COMPONENT SHOULD BE STORED.
064213,000252: 42,3674           54156                 +2        TS       MPAC       +2                         #  PLACE ECADR INTO R3.
064214,000253: 42,3675           33746                 +3        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
064215,000254: 42,3676           04636                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01
064216,000255: 42,3677           20576                           CADR     GOXDSPF                               #  TO REQUEST DATA.
064217,000256: 42,3700           13733                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN.
064218,000257: 42,3701           13675                           TCF      OHWELL2    +3                         #  V33 PROCEED RETURN
064219,000258: 42,3702           03735                           TC       CK4V32                                #  DATA OR V32 RETURN
064220,000259: 42,3703           40303                           CS       UPCOUNT                               #  HAVE WE FINISHED RECEIVING ALL
064221,000260: 42,3704           60300                           AD       COMPNUMB                              #  THE DATA WE EXPECTED.
064222,000261: 42,3705           00006                           EXTEND                                         
064223,000262: 42,3706           63710                           BZMF     UPVERIFY                              #  YES - GO TO VERIFICATION SEQUENCE
064224,000263: 42,3707           13671                           TCF      OHWELL2    -1                         #  NO - REQUEST ADDITIONAL DATA.
064225,000264: 
064226,000265:                                                                                                  #  VERIFY SEQUENCE

Page 1495

064228,000267: 42,3710           33743        UPVERIFY           CAF      ADUPTEMP                              #  PLACE ECADR WHERE COMPONENT NO. INDEX
064229,000268: 42,3711           54156                           TS       MPAC       +2                         #  IS TO BE STORED INTO R3.
064230,000269: 42,3712           33747                           CAF      UPVRFYNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
064231,000270: 42,3713           04636                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N02 TO REQUEST
064232,000271: 42,3714           20576                           CADR     GOXDSPF                               #  DATA CORRECTION OR VERIFICATION.
064233,000272: 42,3715           13733                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE(P27) RETURN
064234,000273: 42,3716           13750                           TCF      UPSTORE                               #  V33 DATA SENT IS GOOD. GO STORE IT.
064235,000274: 42,3717           03735                           TC       CK4V32                                #  COMPONENT NO. INDEX OR V32 RETURN
064236,000275: 42,3720           30330                           CA       UPTEMP                                #  DOES THE COMPONENT NO. INDEX JUST SENT
064237,000276: 42,3721           00006                           EXTEND                                         #  SPECIFY A LEGAL COMPONENT NUMBER?
064238,000277: 42,3722           63710                           BZMF     UPVERIFY                              #  NO, IT IS NOT POSITIVE NONZERO
064239,000278: 42,3723           40330                           CS       UPTEMP                                
064240,000279: 42,3724           60300                           AD       COMPNUMB                              
064241,000280: 42,3725           64770                           AD       BIT1                                  
064242,000281: 42,3726           00006                           EXTEND                                         
064243,000282: 42,3727           63710                           BZMF     UPVERIFY                              #  NO
064244,000283: 42,3730           33745                           CAF      ADUPBFM1                              #  YES - BASED ON THE COMPONENT NO. INDEX
064245,000284: 42,3731           60330                           AD       UPTEMP                                #  CALCULATE THE ECADR OF LOCATION IN
064246,000285: 42,3732           13674                           TCF      OHWELL2    +2                         #  UPBUFF WHICH USER WANTS TO CHANGE.
064247,000286: 
064248,000287: 42,3733           04655        UPOUT4             TC       POSTJUMP                              #  COMES HERE ON V34 TO TERMINATE UPDATE
064249,000288: 42,3734           57706                           CADR     UPOUT      +1                         
064250,000289: 
064251,000290:                                                                                                  #  CHECK FOR VERB 32 SEQUENCE
064252,000291: 
064253,000292: 42,3735           40154        CK4V32             CS       MPAC                                  #  ON DATA RETURN FROM 'GOXDSPF'
064254,000293: 42,3736           74763                           MASK     BIT6                                  #  ON DATA RETURN FROM "GOXDSP"& THE CON-
064255,000294: 42,3737           10000                           CCS      A                                     #  TENTS OF MPAC = VERB.  SO TEST FOR V32.
064256,000295: 42,3740           00002                           TC       Q                                     #  IT'S NOT A V32, IT'S DATA.  PROCEED.
064257,000296: 42,3741           50002                           INDEX    Q                                     
064258,000297: 42,3742           77771                           TC       0          -6                         #  V32 ENCOUNTERED - GO BACK AND GET DATA
064259,000298: 
064260,000299: 42,3743           00330        ADUPTEMP           ADRES    UPTEMP                                #  ADDRESS OF TEMP STORAGE FOR CORRECTIONS
064261,000300: 42,3744           00304        ADUPBUFF           ADRES    UPBUFF                                #  ADDRESS OF UPDATE DATA STORAGE BUFFER
064262,000301: 42,3745           00303        ADUPBFM1           ADRES    UPBUFF     -1                         #  SAME AS ADUPBUFF BUT LESS ONE
064263,000302: 42,3746           05201        UPLOADNV           VN       2101                                  #  VERB 21 NOUN 01
064264,000303: 42,3747           05202        UPVRFYNV           VN       2102                                  #  VERB 21 NOUN 02
064265,000304: 42,3750     4353               UP21               =        MD1                                   #  DEC 21 = MAX NO OF COMPONENTS +1
064266,000305: 42,3750     4773               UPDTPHAS           EQUALS   FIVE                                  
064267,000306: 
064268,000307:                                                                                                  #  PRE-STORE AND FAN TO APPROPRIATE BRANCH SEQUENCE
064269,000308: 
064270,000309: 42,3750                        UPSTORE            EQUALS                                         #  GROUND HAS VERIFIED UPDATE. STORE DATA.
064271,000310: 
064272,000311: 42,3750           00004                           INHINT                                         
064273,000312: 
064274,000313: 42,3751           30103                           CAE      FLAGWRD7                              #  INVERT VERIFLAG(BIT3 OF FLAGWRD7) TO
064275,000314: 42,3752           56001                           XCH      L                                     #  INDICATE TO THE GROUND(VIA DOWNLINK)
064276,000315: 42,3753           34766                           CAF      VERIFBIT                              #  THAT THE V33 (WHICH THE GROUND SENT TO
064277,000316: 42,3754           00006                           EXTEND                                         #  VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY

Page 1496

064279,000318: 42,3755           06001                           RXOR     LCHAN                                 #  RECEIVED BY THE UPDATE PROGRAM
064280,000319: 42,3756           54103                           TS       FLAGWRD7                              
064281,000320: 
064282,000321: 42,3757           05402                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO REDO THE UPDATE
064283,000322: 42,3760           04026                           OCT      04026                                 #  DATA STORE IF A RESTART OCCURS.
064284,000323: 42,3761           00004                           INHINT                                         #  (BECAUSE PHASCHNG DID A RELINT)
064285,000324: 
064286,000325: 42,3762           44767                           CS       TWO                                   #  GO TO UPFNDVAC IF INSTALL IS REQUIRED,
064287,000326: 42,3763           60302                           AD       UPVERB                                #  THAT IS, IF IT'S A V70 - V72.
064288,000327: 42,3764           00006                           EXTEND                                         #  GO TO UPEND73 IF IT'S A V73.
064289,000328: 42,3765           63770                           BZMF     UPFNDVAC                              
064290,000329: 
064291,000330: 42,3766           04655                           TC       POSTJUMP                              
064292,000331: 42,3767           57757                           CADR     UPEND73                               
064293,000332: 
064294,000333: 42,3770           34346        UPFNDVAC           CAF      CHRPRIO                               #  (USE EXTENDED VERB PRIORITY)
064295,000334: 42,3771           05135                           TC       FINDVAC                               #  GET VAC AREA FOR 'CALL INTSTALL'
064296,000335: 42,3772  E3,1706                                  EBANK=   TEPHEM                                
064297,000336: 42,3772           03545 56103                     2CADR    UPJOB                                 #  (NOTE: THIS WILL ALSO SET EBANK FOR
064298,000337: 
064299,000338: 42,3774           05205                           TC       ENDOFJOB                              #  'TEPHEM' UPDATE BY V70)
064300,000339: 
064301,000340: 27,2000                                           SETLOC   UPDATE2                               
064302,000341: 27,2000                                           BANK                                           
064303,000342: 
064304,000343: 27,3545                                           COUNT*   $$/P27                                
064305,000344: 27,3545           06006        UPJOB              TC       INTPRET                               #  THIS COULD BE A STATE VECTOR UPDATE--SO
064306,000345: 27,3546           77624                           CALL                                           #  WAIT(PUT JOB TO SLEEP) IF ORBIT INT(OI)
064307,000346: 27,3547           27516                                    INTSTALL                              #  IS IN PROGRESS--OR--GRAB OI AND RETURN
064308,000347:                                                                                                  #  TO UPWAKE IF OI IS NOT IN PROGRESS.
064309,000348: 
064310,000349: 27,3550           77776        UPWAKE             EXIT                                           
064311,000350: 
064312,000351: 27,3551           05402                           TC       PHASCHNG                              #  RESTART PROTECT(GROUP 6)
064313,000352: 27,3552           04026                           OCT      04026                                 
064314,000353: 
064315,000354: 27,3553           05547                           TC       UPFLAG                                #  SET INTEGRATION RESTART BIT
064316,000355: 27,3554           00230                           ADRES    REINTFLG                              
064317,000356: 27,3555           00004                           INHINT                                         
064318,000357: 27,3556                        UPPART3            EQUALS                                         
064319,000358: 
064320,000359: 27,3556           50302                           INDEX    UPVERB                                #  BRANCH TO THE APPROPRIATE UPDATE VERB
064321,000360: 27,3557           13560                           TCF      +1                                    #  ROUTINE TO ACTUALLY PERFORM THE UPDATE
064322,000361: 27,3560           13722                           TCF      UPEND70                               #  V70
064323,000362: 27,3561           13626                           TCF      UPEND71                               #  V71
064324,000363: 27,3562           13660                           TCF      UPEND72                               #  V72
064325,000364: 
064326,000365:                                                                                                  #  ROUTINE TO INCREMENT CLOCK (TIME2,TIME1) WITH CONTENTS OF DP WORD AT UPBUFF.

Page 1497

064328,000367: 27,3563           00006        TIMEDIDL           EXTEND                                         
064329,000368: 27,3564           22330                           QXCH     UPTEMP                                #  SAVE Q FOR RETURN
064330,000369: 27,3565           34772                           CAF      ZERO                                  #  ZERO AND SAVE TIME2,TIME1
064331,000370: 27,3566           22007                           ZL                                             
064332,000371: 27,3567           52025                           DXCH     TIME2                                 
064333,000372: 27,3570           52327                           DXCH     UPBUFF     +18D                       #  STORE IN CASE OF OVERFLOW
064334,000373: 
064335,000374: 27,3571           34773                           CAF      UPDTPHAS                              #  DO
064336,000375: 27,3572           54001                           TS       L                                     #  A
064337,000376: 27,3573           40000                           COM                                            #  QUICK
064338,000377: 27,3574           53170                           DXCH     -PHASE6                               #  PHASCHNG
064339,000378: 
064340,000379: 27,3575  01,2330               6P5SPT1            =        6.5SPOT                               
064341,000380: 27,3575           00004        TIMEDIDR           INHINT                                         
064342,000381: 27,3576           34772                           CAF      ZERO                                  
064343,000382: 27,3577           22007                           ZL                                             #  PICK UP INCREMENTER(AND ZERO
064344,000383: 27,3600           54156                           TS       MPAC       +2                         #  IT IN CASE OF RESTARTS) AND
064345,000384: 27,3601           52315                           DXCH     UPBUFF     +8D                        #  STORE IT
064346,000385: 27,3602           52155                           DXCH     MPAC                                  #  INTO MPAC FOR TPAGREE.
064347,000386: 
064348,000387: 27,3603           00006                           EXTEND                                         
064349,000388: 27,3604           30327                           DCA      UPBUFF     +18D                       
064350,000389: 27,3605           20155                           DAS      MPAC                                  #  FORM SUM IN MPAC
064351,000390: 27,3606           00006                           EXTEND                                         
064352,000391: 27,3607           13616                           BZF      DELTATOK                              #  TEST FOR OVERFLOW
064353,000392: 27,3610           34772                           CAF      ZERO                                  
064354,000393: 27,3611           52327                           DXCH     UPBUFF     +18D                       #  OVERFLOW, RESTORE OLD VALUE OF CLOCK
064355,000394: 27,3612           20025                           DAS      TIME2                                 #  AND TURN ON OPERATOR ERROR
064356,000395: 
064357,000396: 27,3613           05402                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
064358,000397: 27,3614           04026                           OCT      04026                                 
064359,000398: 
064360,000399: 27,3615           00330                           TC       UPTEMP                                #  GO TO ERROR EXIT
064361,000400: 
064362,000401: 27,3616           07226        DELTATOK           TC       TPAGREE                               #  FORCE SIGN AGREEMENT
064363,000402: 27,3617           52155                           DXCH     MPAC                                  
064364,000403: 27,3620           20025                           DAS      TIME2                                 #  INCREMENT TIME2,TIME1
064365,000404: 
064366,000405: 27,3621           05402                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
064367,000406: 27,3622           04026                           OCT      04026                                 
064368,000407: 
064369,000408: 27,3623           00004                           INHINT                                         
064370,000409: 27,3624           50330                           INDEX    UPTEMP                                #  (CODED THIS WAY FOR RESTART PROTECTION)
064371,000410: 27,3625           00001                           TC       1                                     #  NORMAL RETURN
064372,000411: 
064373,000412:                                                                                                  #  VERB 71 BRANCH
064374,000413: 
064375,000414: 27,3626           30305        UPEND71            CAE      UPBUFF     +1                         #  SET EBANK
064376,000415: 27,3627           54003                           TS       EBANK                                 #     AND
064377,000416: 27,3630           74350                           MASK     LOW8                                  #  CALCULATE

Page 1498

064379,000418: 27,3631           54330                           TS       UPTEMP                                #  S-REG VALUE OF RECEIVING AREA
064380,000419: 
064381,000420: 27,3632           67700                           AD       NEG3                                  #  IN THE PROCESS OF
064382,000421: 27,3633           60300                           AD       COMPNUMB                              #  PERFORMING
064383,000422: 27,3634           00006                           EXTEND                                         #  THIS UPDATE
064384,000423: 27,3635           13643                           BZF      STORLP71                              #  WILL WE
064385,000424: 27,3636           74760                           MASK     BIT9                                  #  OVERFLOW
064386,000425: 27,3637           10000                           CCS      A                                     #  INTO THE NEXT EBANK....
064387,000426: 27,3640           13656                           TCF      UPERROUT                              #  YES
064388,000427: 
064389,000428: 27,3641           37700                           CA       NEG3                                  #  NO - CALCULATE NUMBER OF
064390,000429: 27,3642           60300                           AD       COMPNUMB                              #  WORDS TO BE STORED MINUS ONE
064391,000430: 27,3643           54154        STORLP71           TS       MPAC                                  #  SAVE NO. OF WORDS REMAINING MINUS ONE
064392,000431: 27,3644           50000                           INDEX    A                                     #  TAKE NEXT UPDATE WORD FROM
064393,000432: 27,3645           30306                           CA       UPBUFF     +2                         #  UPBUFF AND
064394,000433: 27,3646           54001                           TS       L                                     #  SAVE IT IN L
064395,000434: 27,3647           30154                           CA       MPAC                                  #  CALCULATE NEXT
064396,000435: 27,3650           60330                           AD       UPTEMP                                #  RECEIVING ADDRESS
064397,000436: 27,3651           50000                           INDEX    A                                     
064398,000437: 27,3652  E3,1400                                  EBANK=   1400                                  
064399,000438: 27,3652           23400                           LXCH     1400                                  #  UPDATE THE REGISTER BY CONTENTS OF L
064400,000439: 27,3653  E3,1706                                  EBANK=   TEPHEM                                
064401,000440: 27,3653           10154                           CCS      MPAC                                  #  ARE THERE ANY WORDS LEFT TO BE STORED
064402,000441: 27,3654           13643                           TCF      STORLP71                              #  YES
064403,000442: 27,3655           13705                           TCF      UPOUT                                 #  NO - THEN EXIT UPDATE PROGRAM
064404,000443: 27,3656           04362        UPERROUT           TC       FALTON                                #  TURN ON OP ERROR, CCS CANT GET HERE
064405,000444: 27,3657           13705                           TCF      UPOUT                                 #  NO - EXIT UPDATE (HERE WHEN COMPNUMB = 3)
064406,000445: 
064407,000446:                                                                                                  #  VERB 72 BRANCH
064408,000447: 
064409,000448: 27,3660           34770        UPEND72            CAF      BIT1                                  #  HAVE AN ODD NO. OF COMPONENTS
064410,000449: 27,3661           70300                           MASK     COMPNUMB                              #  BEEN SENT FOR A V72 UPDATE...
064411,000450: 27,3662           10000                           CCS      A                                     
064412,000451: 27,3663           13665                           TCF      +2                                    #  YES
064413,000452: 27,3664           13656                           TCF      UPERROUT                              #  ERROR - SHOULD BE ODD NO. OF COMPONENTS
064414,000453: 27,3665           44767                           CS       BIT2                                  
064415,000454: 27,3666           60300                           AD       COMPNUMB                              
064416,000455: 27,3667           54154        LDLOOP72           TS       MPAC                                  #  NOW PERFORM THE UPDATE
064417,000456: 27,3670           50000                           INDEX    A                                     
064418,000457: 27,3671           30305                           CAE      UPBUFF     +1                         #  PICK UP NEXT UPDATE WORD
064419,000458: 27,3672           22000                           LXCH     A                                     
064420,000459: 27,3673           10154                           CCS      MPAC                                  #  SET POINTER TO ECADR (MUST BE CCS)
064421,000460: 27,3674           54154                           TS       MPAC                                  
064422,000461: 27,3675           50000                           INDEX    A                                     
064423,000462: 27,3676           30305                           CAE      UPBUFF     +1                         #  PICK UP NEXT ECADR OF REG TO BE UPDATED
064424,000463: 27,3677           54003                           TS       EBANK                                 #  SET EBANK
064425,000464: 27,3700           74350                           MASK     LOW8                                  #  ISOLATE RELATIVE ADDRESS
064426,000465: 27,3701           50000                           INDEX    A                                     
064427,000466: 27,3702  E3,1400                                  EBANK=   1400                                  

Page 1499

064429,000468: 27,3702           23400                           LXCH     1400                                  #  UPDATE THE REGISTER BY CONTENTS OF L
064430,000469: 27,3703  E3,1706                                  EBANK=   TEPHEM                                
064431,000470: 27,3703           10154                           CCS      MPAC                                  #  ARE WE THROUGH THE V72 UPDATE...
064432,000471: 27,3704           13667                           TCF      LDLOOP72                              #  NO
064433,000472: 
064434,000473:                                                                                                  #  NORMAL FINISH OF P27
064435,000474: 
064436,000475: 27,3705                        UPOUT              EQUALS                                         
064437,000476: 27,3705           03072                           TC       INTWAKEU                              #  RELEASE  GRAB  OF ORBITAL INTEGRATION
064438,000477: 27,3706           30301                 +1        CAE      UPOLDMOD                              #  RESTORE PRIOR P27 MODE
064439,000478: 27,3707           05347                           TC       NEWMODEA                              
064440,000479: 27,3710           44770                           CS       BIT1                                  
064441,000480: 27,3711           61214                           AD       MODREG                                
064442,000481: 27,3712           10000                           CCS      A                                     
064443,000482: 27,3713           10000                           CCS      A                                     
064444,000483: 27,3714           34767                           CAF      TWO                                   
064445,000484: 27,3715           54332                           TS       DNLSTCOD                              
064446,000485: 27,3716           04415                           TC       UPACTOFF                              #  TURN OFF 'UPLINK ACTIVITY' LIGHT
064447,000486: 27,3717           04636                           TC       BANKCALL                              #  KILL GROUP 6
064448,000487: 27,3720           12556                           CADR     UPKLEAN                               
064449,000488: 
064450,000489: 27,3721           05524                           TC       ENDEXT                                #  EXTENDED VERB EXIT
064451,000490: 
064452,000491:                                                                                                  #  VERB 70 BRANCH
064453,000492: 
064454,000493: 27,3722           00006        UPEND70            EXTEND                                         #  V70 DOES THE FOLLOWING WITH DP DELTA
064455,000494: 27,3723           40305                           DCS      UPBUFF                                #  TIME IN UPBUFF
064456,000495: 27,3724           52315                           DXCH     UPBUFF     +8D                        
064457,000496: 27,3725           03563                           TC       TIMEDIDL                              #  DECREMENT AGC CLOCK
064458,000497: 
064459,000498: 27,3726           03656                           TC       UPERROUT                              #  ERROR WHILE DECREMENTING CLOCK -- EXIT
064460,000499: 
064461,000500: 27,3727  E3,1706                                  EBANK=   TEPHEM                                
064462,000501: 27,3727           00006                           EXTEND                                         
064463,000502: 27,3730           40305                           DCS      UPBUFF                                #  COPY DECREMENTERS FOR
064464,000503: 27,3731           52317                           DXCH     UPBUFF     +10D                       #  RESTART PROTECTION
064465,000504: 27,3732           00006                           EXTEND                                         
064466,000505: 27,3733           40305                           DCS      UPBUFF                                
064467,000506: 27,3734           52321                           DXCH     UPBUFF     +12D                       
064468,000507: 
064469,000508: 27,3735           05402                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
064470,000509: 27,3736           04026                           OCT      04026                                 
064471,000510: 
064472,000511: 27,3737           34772                           CAF      ZERO                                  
064473,000512: 27,3740           22007                           ZL                                             
064474,000513: 27,3741           52317                           DXCH     UPBUFF     +10D                       #  DECREMENT CSM STATE VECTOR TIME
064475,000514: 27,3742           21571                           DAS      TETCSM                                
064476,000515: 

Page 1500

064478,000517: 27,3743           34772                           CAF      ZERO                                  
064479,000518: 27,3744           22007                           ZL                                             
064480,000519: 27,3745           52321                           DXCH     UPBUFF     +12D                       #  DECREMENT LEM STATE VECTOR TIME
064481,000520: 27,3746           21643                           DAS      TETLEM                                
064482,000521: 
064483,000522: 27,3747           34772                           CAF      ZERO                                  
064484,000523: 27,3750           22007                           ZL                                             
064485,000524: 27,3751           52305                           DXCH     UPBUFF                                
064486,000525: 27,3752           21710                           DAS      TEPHEM     +1                         #  INCREMENT TP TEPHEM
064487,000526: 27,3753           27706                           ADS      TEPHEM                                
064488,000527: 
064489,000528: 27,3754           05402                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
064490,000529: 27,3755           04026                           OCT      04026                                 
064491,000530: 
064492,000531: 27,3756     0304                                  EBANK=   UPBUFF                                
064493,000532: 
064494,000533: 27,3756           03705                           TC       UPOUT                                 #  GO TO STANDARD UPDATE PROGRAM EXIT
064495,000534: 
064496,000535:                                                                                                  #  VERB 73 BRANCH
064497,000536: 
064498,000537: 27,3757           00006        UPEND73            EXTEND                                         
064499,000538: 27,3760           30305                           DCA      UPBUFF                                
064500,000539: 27,3761           52315                           DXCH     UPBUFF     +8D                        
064501,000540: 27,3762           03563                           TC       TIMEDIDL                              
064502,000541: 27,3763           04362                           TC       FALTON                                
064503,000542: 27,3764           03706                           TC       UPOUT      +1                         
064504,000543: 
064505,000544:                                                                                                  #  ERROR SEQUENCE
064506,000545: 
064507,000546: 27,3765  30,2000                                  SBANK=   LOWSUPER                              

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