Source Code

This is a reconstruction of the AGC program Luminary 99 Rev 0. It was the third release of the Lunar Module flight software targeted for use in Apollo 11, after Luminary 96 and 97. A bug (which had been around since at least Apollo 10, Luminary 69) was discovered in Rev 0 shortly before the Apollo 11 flight, resulting in a last minute revision into Rev 1, which is what actually flew rather than the Rev 0 presented here. A hardcopy of Rev 0 is known to exist — it belonged to AGC developer Allan Klumpp for many years — but unfortunately the Virtual AGC Project has not had access to that hardcopy. Thus the code you see here had been reconstructed (we believe accurately) rather than transcribed. The first step of the reconstruction of the Rev 0 source code was the transcription of the Rev 1 source code from a hardcopy in the MIT Museum collection. The process of reverting the active portion of the source code (i.e., other than program comments) from Rev 1 to Rev 0 was very minor, consisting only of moving the position of the STARTSB1 label in FRESH START AND RESTART. Allan had previously given us the checksums of the memory banks of Rev 0, and we have verified the program presented here has checksums identical to all banks of Allan's listing of Rev 0. The notations on Allan's Rev 0 program listing read, in part:

	GAP:  ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-051

A single program comment is known to differ between Rev 0 and Rev 1, but these are harder to reconstruct and verify than changes to the active portion of the code. Thus it is possible that there are additional differences between the program comments in Rev 0 and Rev 1 that are unknown to us, and therefore are not reflected in the code presented here.

060591,000002:                                                                                                  ## Copyright:   Public domain.
060592,000003:                                                                                                  ## Filename:    UPDATE_PROGRAM.agc
060593,000004:                                                                                                  ## Purpose:     Part of the reconstructed source code for LMY99 Rev 0,
060594,000005:                                                                                                  ##              otherwise known as Luminary Rev 99, the third release
060595,000006:                                                                                                  ##              of the Apollo Guidance Computer (AGC) software for Apollo 11.
060596,000007:                                                                                                  ##              It differs from LMY99 Rev 1 (the flown version) only in the
060597,000008:                                                                                                  ##              placement of a single label. The corrections shown here have
060598,000009:                                                                                                  ##              been verified to have the same bank checksums as AGC developer
060599,000010:                                                                                                  ##              Allan Klumpp's copy of Luminary Rev 99, and so are believed
060600,000011:                                                                                                  ##              to be accurate. This file is intended to be a faithful 
060601,000012:                                                                                                  ##              recreation, except that the code format has been changed to 
060602,000013:                                                                                                  ##              conform to the requirements of the yaYUL assembler rather than 
060603,000014:                                                                                                  ##              the original YUL assembler.
060604,000015:                                                                                                  ##
060605,000016:                                                                                                  ## Assembler:   yaYUL
060606,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
060607,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo.
060608,000019:                                                                                                  ## Pages:       1386-1396
060609,000020:                                                                                                  ## Mod history: 2009-05-10 SN   (Sergio Navarro).  Started adapting
060610,000021:                                                                                                  ##                              from the Luminary131/ file of the same
060611,000022:                                                                                                  ##                              name, using Luminary099 page images.
060612,000023:                                                                                                  ##              2009-06-07 RSB  Added an SBANK= to account for incompatibilities
060613,000024:                                                                                                  ##                              between YUL and yaYUL.
060614,000025:                                                                                                  ##              2011-01-06 JL   Fixed pseudo-label indentation.
060615,000026:                                                                                                  ##              2011-05-07 JL   Flag SBANK= workaround.
060616,000027:                                                                                                  ##              2016-12-18 RSB  Proofed text comments with octopus/ProoferComments
060617,000028:                                                                                                  ##                              and corrected the errors found.
060618,000029:                                                                                                  ##              2017-01-28 RSB  Comment-text fixes identified for Luminary 69.
060619,000030:                                                                                                  ##              2017-02-09 RSB  Comment-text fixes identified for Artemis 72.
060620,000031:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
060621,000032:                                                                                                  ##              2017-03-16 RSB  Comment-text fixes identified in 5-way
060622,000033:                                                                                                  ##                              side-by-side diff of Luminary 69/99/116/131/210.
060623,000034:                                                                                                  ##              2017-06-17 MAS  Globally removed all SBANK= workarounds.
060624,000035:                                                                                                  ##              2017-08-01 MAS  Created from LMY99 Rev 1.
060625,000036:                                                                                                  ##              2021-05-30 ABS  DELTAOK -> DELTATOK
060626,000037: 
060627,000038:                                                                                                  ## This source code has been transcribed or otherwise adapted from
060628,000039:                                                                                                  ## digitized images of a hardcopy from the MIT Museum.  The digitization
060629,000040:                                                                                                  ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
060630,000041:                                                                                                  ## the Museum.  Many thanks to both.  The images (with suitable reduction
060631,000042:                                                                                                  ## in storage size and consequent reduction in image quality as well) are
060632,000043:                                                                                                  ## available online at www.ibiblio.org/apollo.  If for some reason you
060633,000044:                                                                                                  ## find that the images are illegible, contact me at info@sandroid.org
060634,000045:                                                                                                  ## about getting access to the (much) higher-quality images which Paul
060635,000046:                                                                                                  ## actually created.
060636,000047:                                                                                                  ##
060637,000048:                                                                                                  ## The code has been modified to match LMY99 Revision 0, otherwise
060638,000049:                                                                                                  ## known as Luminary Revision 99, the Apollo 11 software release preceeding
060639,000050:                                                                                                  ## the listing from which it was transcribed. It has been verified to
060640,000051:                                                                                                  ## contain the same bank checksums as AGC developer Allan Klumpp's listing
060641,000052:                                                                                                  ## of Luminary Revision 99 (for which we do not have scans).
060642,000053:                                                                                                  ##
060643,000054:                                                                                                  ## Notations on Allan Klumpp's listing read, in part:
060644,000055:                                                                                                  ##
060645,000056:                                                                                                  ##      ASSEMBLE REVISION 099 OF AGC PROGRAM LUMINARY BY NASA 2021112-51
060646,000057: 

Page 1386

060648,000059:                                                                                                  #  PROGRAM NAME:         P27
060649,000060:                                                                                                  #  WRITTEN BY:           KILROY/ DE WOLF
060650,000061: 
060651,000062:                                                                                                  #  MOD NO:               6
060652,000063:                                                                                                  #  MOD BY:               KILROY
060653,000064:                                                                                                  #  DATE:                 01DEC67
060654,000065: 
060655,000066:                                                                                                  #  LOG SECTION:          UPDATE PROGRAM.
060656,000067: 
060657,000068:                                                                                                  #  FUNCT. DESCR:         P27 (THE UPDATE PROGRAM) PROCESSES COMMANDS AND DATA
060658,000069:                                                                                                  #                        INSERTIONS REQUESTED BY THE GROUND VIA UPLINK.
060659,000070:                                                                                                  #                        THE P27 PROGRAM WILL ACCEPT UPDATES
060660,000071:                                                                                                  #                        ONLY DURING P00 FOR THE LM, AND ONLY DURING P00,
060661,000072:                                                                                                  #                        P02, AND FRESH START FOR THE CSM
060662,000073: 
060663,000074:                                                                                                  #  CALLING SEQ:          PROGRAM IS INITIATED BY UPLINK ENTRY OF VERBS 70, 71, 72 AND 73.
060664,000075: 
060665,000076:                                                                                                  #  SUBROUTINES:          TESTXACT, NEWMODEX, NEWMODEX +3, GOXDSPF, BANKCALL, FINDVAC, INTPRET, INTSTALL, TPAGREE,
060666,000077:                                                                                                  #                        INTWAKEU, ENDEXT, POSTJUMP, FALTON, NEWPHASE, PHASCHNG
060667,000078: 
060668,000079:                                                                                                  #  NORMAL EXIT:          TC ENDEXT
060669,000080: 
060670,000081:                                                                                                  #  ALARM/ABORT:          TC FALTON FOLLOWED BY TC ENDEXT
060671,000082: 
060672,000083:                                                                                                  #  RESTARTS:             P27 IS RESTART PROTECTED IN TWO WAYS ...
060673,000084:                                                                                                  #                        1.      PRIOR TO VERIFLAG INVERSION (WHICH IS CAUSED BY THE GROUND/ASTRONAUT'S VERIFICATION OF UPDATE
060674,000085:                                                                                                  #                                DATA BY SENDING A V33E WHEN V21N02 IS FLASHING)---
060675,000086:                                                                                                  #                                NO PROTECTION EXCEPT PRE-P27 MODE IS RESTORED, COAST + ALIGN DOWNLIST IS SELECTED AND UPLINK
060676,000087:                                                                                                  #                                ACTIVITY LIGHT IS TURNED OFF.  (JUST AS IF A V34E WAS SENT DURING P27 DATA LOADS).
060677,000088:                                                                                                  #                                V70,V71,V72 OR V73 WILL HAVE TO BE COMPLETELY RESENT BY USER.
060678,000089:                                                                                                  #                        2.      AFTER VERIFLAG INVERSION (WHEN UPDATE OF THE SPECIFIED ERASABLES IS BEING PERFORMED)---
060679,000090:                                                                                                  #                                PROTECTED AGAINST RESTARTS.
060680,000091: 
060681,000092:                                                                                                  #  DEBRIS:               UPBUFF  (20D)   TEMP STORAGE FOR ADDRESSES AND CONTENTS.
060682,000093:                                                                                                  #                        UPVERB  (1)     VERB NUMBER MINUS 70D (E.G. FOR V72, UPVERB = 72D - 70D = 2)
060683,000094:                                                                                                  #                        UPOLDMOD(1)     FOR MAJOR MODE INTERRUPTED BY P27.
060684,000095:                                                                                                  #                        COMPNUMB(1)     TOTAL NUMBER OF COMPONENTS TO BE TRANSMITTED.
060685,000096:                                                                                                  #                        UPCOUNT (1)     ACTUAL NUMBER OF COMPONENTS RECEIVED.
060686,000097:                                                                                                  #                        UPTEMP  (1)     SCRATCH, BUT USUALLY CONTAINS COMPONENT NUMBER TO BE CHANGED DURING VERIFY CYCLE
060687,000098: 
060688,000099:                                                                                                  #  INPUT:
060689,000100: 
060690,000101:                                                                                                  #        ENTRY:                  DESCRIPTION
060691,000102:                                                                                                  #        V70EXXXXXEXXXXXE        (LIFTOFF TIME INCREMENT) DOUBLE PRECISION OCTAL TIME INCREMENT, XXXXX XXXXX,
060692,000103:                                                                                                  #                                IS ADDED TO TEPHEM, SUBTRACTED FROM AGC CLOCK(TIME2,TIME1), SUBTRACTED FROM CSM STATE
060693,000104:                                                                                                  #                                VECTOR TIME(TETCSM) AND SUBTRACTED FROM LEM STATE VECTOR TIME(TETLEM).
060694,000105:                                                                                                  #                                THE DP OCTAL TIME INCREMENT IS SCALED AT 2(28).

Page 1387

060696,000107:                                                                                                  #        V71EIIEAAAAE            (CONTIGUOUS BLOCK UPDATE) II-2 OCTAL COMPONENTS, XXXXX,
060697,000108:                                                                                                  #        XXXXXE                  ARE LOADED INTO ERASABLE STARTING AT ECADR, AAAA.
060698,000109:                                                                                                  #        XXXXXE                  IT IS .GE. 3 .AND. .LE. 20D.,
060699,000110:                                                                                                  #                                AND (AAAA + II -3) DOES NOT PRODUCE AN ADDRESS IN THE
060700,000111:                                                                                                  #        9 NEXT BANK
060701,000112:                                                                                                  #          .                     SCALING IS SAME AS INTERNAL REGISTERS.
060702,000113:                                                                                                  #        V72EIIE                 (SCATTER UPDATE) (II-1)/2 OCTAL COMPONENTS, XXXXX, ARE
060703,000114:                                                                                                  #        AAAAEXXXXXE             LOADED INTO ERASABLE LOCATIONS, AAAA.
060704,000115:                                                                                                  #        AAAAEXXXXXE             II IS .GE. 3 .AND. .LE. 19D, AND MUST BE ODD.
060705,000116:                                                                                                  #          .                     SCALING IS SAME AS INTERNAL REGISTERS.
060706,000117: 
060707,000118:                                                                                                  #        V73EXXXXXEXXXXXE        (OCTAL CLOCK INCREMENT) DOUBLE PRECISION OCTAL TIME
060708,000119:                                                                                                  #                                INCREMENT XXXXX XXXXX, IS ADDED TO THE AGC CLOCK, IN
060709,000120:                                                                                                  #                                CENTISECONDS SCALED AT (2)28.
060710,000121:                                                                                                  #                                THIS LOAD IS THE OCTAL EQUIVALENT OF V55.
060711,000122: 
060712,000123:                                                                                                  #  OUTPUT:               IN ADDITION TO THE ABOVE REGISTER LOADS, ALL UPDATES
060713,000124:                                                                                                  #                        COMPLEMENT BIT3 OF FLAGWORD7.
060714,000125: 
060715,000126:                                                                                                  #  ADDITIONAL NOTES:     VERB 71, JUST DEFINED ABOVE WILL BE USED TO PERFORM BUT NOT LIMITED TO THE FOLLOWING UPDATES --
060716,000127:                                                                                                  #                        1.  CSM/LM STATE VECTOR UPDATE
060717,000128:                                                                                                  #                        2.  REFSMMAT UPDATE
060718,000129: 
060719,000130:                                                                                                  #        THE FOLLOWING COMMENTS DELINEATE EACH SPECIAL UPDATE ----
060720,000131: 
060721,000132:                                                                                                  #        1.  CSM/LM STATE VECTOR UPDATE (ALL DATA ENTRIES IN OCTAL)
060722,000133:                                                                                                  #                ENTRIES:        DATA DEFINITION:                                SCALE FACTORS:
060723,000134:                                                                                                  #                V71E            CONTIGUOUS BLOCK UPDATE VERB
060724,000135:                                                                                                  #                   21E          NUMBER OF COMPONENTS FOR STATE VECTOR UPDATE
060725,000136:                                                                                                  #                 AAAAE          ECADR OF 'UPSVFLAG'
060726,000137:                                                                                                  #                XXXXXE          STATE VECTOR IDENTIFIER: 00001 FOR CSM, 77776 FOR LEM - EARTH SPHERE OF INFLUENCE SCALING
060727,000138:                                                                                                  #                                                         00002 FOR CSM, 77775 FOR LEM - LUNAR SPHERE OF INFLUENCE SCALING
060728,000139:                                                                                                  #                XXXXXEXXXXXE    X POSITION
060729,000140:                                                                                                  #                XXXXXEXXXXXE    Y POSITION
060730,000141:                                                                                                  #                XXXXXEXXXXXE    Z POSITION
060731,000142:                                                                                                  #                XXXXXEXXXXXE    X VELOCITY
060732,000143:                                                                                                  #                XXXXXEXXXXXE    Y VELOCITY
060733,000144:                                                                                                  #                XXXXXEXXXXXE    Z VELOCITY
060734,000145:                                                                                                  #                XXXXXEXXXXXE    TIME FROM AGC CLOCK ZERO
060735,000146:                                                                                                  #                V33E            VERB 33 TO SIGNAL THAT THE STATE VECTOR IS READY TO BE STORED.
060736,000147: 
060737,000148:                                                                                                  #        2.  REFSMMAT (ALL DATA ENTRIES IN OCTAL)
060738,000149:                                                                                                  #                ENTRIES:        DATA DEFINITIONS:                               SCALE FACTORS:

Page 1388

060740,000151:                                                                                                  #                V71E            CONTIGUOUS BLOCK UPDATE VERB
060741,000152:                                                                                                  #                   24E          NUMBER OF COMPONENTS FOR REFSMMAT UPDATE
060742,000153:                                                                                                  #                 AAAAE          ECADR OF 'REFSMMAT'
060743,000154:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 1                                  2(-1)
060744,000155:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 2                                  2(-1)
060745,000156:                                                                                                  #                XXXXXEXXXXXE    ROW 1 COLUMN 3                                  2(-1)
060746,000157:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 1                                  2(-1)
060747,000158:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 2                                  2(-1)
060748,000159:                                                                                                  #                XXXXXEXXXXXE    ROW 2 COLUMN 3                                  2(-1)
060749,000160:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 1                                  2(-1)
060750,000161:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 2                                  2(-1)
060751,000162:                                                                                                  #                XXXXXEXXXXXE    ROW 3 COLUMN 3                                  2(-1)
060752,000163:                                                                                                  #                V33E            VERB 33 TO SIGNAL THAT REFSMMAT IS READY TO BE STORED.
060753,000164: 
060754,000165: 
060755,000166: 
060756,000167: 07,3773                                           BANK     07                                    
060757,000168: 43,2000                                           SETLOC   EXTVERBS                              
060758,000169: 43,2000                                           BANK                                           
060759,000170: 
060760,000171: 43,3724  E3,1706                                  EBANK=   TEPHEM                                
060761,000172: 
060762,000173: 43,3724                                           COUNT*   $$/P27                                
060763,000174: 43,3724           34755        V70UPDAT           CAF      UP70                                  #  COMES HERE ON V70E
060764,000175: 43,3725           13733                           TCF      V73UPDAT   +1                         
060765,000176: 
060766,000177: 43,3726           34753        V71UPDAT           CAF      UP71                                  #  COMES HERE ON V71E
060767,000178: 43,3727           13733                           TCF      V73UPDAT   +1                         
060768,000179: 
060769,000180: 43,3730           34752        V72UPDAT           CAF      UP72                                  #  COMES HERE ON V72E
060770,000181: 43,3731           13733                           TCF      V73UPDAT   +1                         
060771,000182: 
060772,000183: 43,3732           36245        V73UPDAT           CAF      UP73                                  #  COMES HERE ON V73E
060773,000184: 
060774,000185: 43,3733           55166                 +1        TS       UPVERBSV                              #  SAVE UPVERB UNTIL IT'S OK TO ENTER P27
060775,000186: 
060776,000187: 43,3734           02076                           TC       TESTXACT                              #  GRAB DISPLAY IF AVAILABLE, OTHERWISE
060777,000188:                                                                                                  #  TURN*OPERATOR ERROR* ON AND TERMINATEJOB
060778,000189: 
060779,000190: 43,3735           31011                           CA       MODREG                                #  CHECK IF UPDATE ALLOWED
060780,000191: 43,3736           00006                           EXTEND                                         #  FIRST CHECK FOR MODREG = +0, -0
060781,000192: 43,3737           13742                           BZF      +3                                    #  (+0 = P00, -0 = FRESHSTART)
060782,000193: 43,3740           04635        UPERROR            TC       POSTJUMP                              #  TURN ON 'OPERATOR ERROR' LIGHT
060783,000194: 43,3741           11762                           CADR     UPERROUT   +2                         #  GO TO COMMON UPDATE PROGRAM EXIT
060784,000195: 
060785,000196: 43,3742           31011                           CAE      MODREG                                #  UPDATE ALLOWED.
060786,000197: 43,3743  43,3740               CKMDMORE           =        UPERROR                               
060787,000198: 43,3743           55171                           TS       UPOLDMOD                              #  SAVE CURRENT MAJOR MODE

Page 1389

060789,000200: 43,3744           31166                           CAE      UPVERBSV                              #  SET UPVERB TO INDICATE TO P27
060790,000201: 
060791,000202: 43,3745           55172                           TS       UPVERB                                #  WHICH EXTENDED VERB CALLED IT.
060792,000203: 
060793,000204: 43,3746           34753                           CAF      ONE                                   
060794,000205: 43,3747           55173                           TS       UPCOUNT                               #  INITIALIZE UPCOUNT TO 1
060795,000206: 
060796,000207: 43,3750           04635                           TC       POSTJUMP                              #  LEAVE EXTENDED VERB BANK AND
060797,000208: 43,3751           11401                           CADR     UPPART2                               #  GO TO UPDATE PROGRAM (P27) BANK.
060798,000209: 
060799,000210: 43,3752     4755               UP70               EQUALS   ZERO                                  
060800,000211: 43,3752     4753               UP71               EQUALS   ONE                                   
060801,000212: 43,3752     4752               UP72               EQUALS   TWO                                   
060802,000213: 43,3752     6245               UP73               EQUALS   THREE                                 
060803,000214: 
060804,000215: 04,3401                                           BANK     04                                    
060805,000216: 04,2000                                           SETLOC   UPDATE2                               
060806,000217: 04,2000                                           BANK                                           
060807,000218: 
060808,000219: 04,3401                                           COUNT*   $$/P27                                
060809,000220: 
060810,000221: 04,3401                        UPPART2            EQUALS                                         #  UPDATE PROGRAM - PART 2
060811,000222: 
060812,000223: 04,3401           05353                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO RESTORE OLD MODE
060813,000224: 04,3402           07026                           OCT      07026                                 #  AND DOWNLIST AND EXIT IF RESTART OCCURS.
060814,000225: 04,3403           30000                           OCT      30000                                 #  PRIORITY SAME AS CHRPRIO
060815,000226: 04,3404     1174                                  EBANK=   UPBUFF                                
060816,000227: 04,3404           03712 10102                     2CADR    UPOUT      +1                         
060817,000228: 
060818,000229: 04,3406           34753                           CAF      ONE                                   
060819,000230: 04,3407           54332                           TS       DNLSTCOD                              #  DOWNLIST
060820,000231: 
060821,000232: 04,3410           05311                           TC       NEWMODEX                              #  SET MAJOR MODE = 27
060822,000233: 04,3411           00033                           DEC      27         B-14                       
060823,000234: 
060824,000235: 04,3412           51172                           INDEX    UPVERB                                #  BRANCH DEPENDING ON WHETHER THE UPDATE
060825,000236: 04,3413           13414                           TCF      +1                                    #  VERB REQUIRES A FIXED OR VARIABLE NUMBER
060826,000237: 04,3414           13417                           TCF      +3                                    #  V70 FIXED.               (OF COMPONENTS.
060827,000238: 04,3415           13422                           TCF      OHWELL1                               #  V71 VARIABLE - GO GET NO. OF COMPONENTS
060828,000239: 04,3416           13422                           TCF      OHWELL1                               #  V72 VARIABLE - GO GET NO. OF COMPONENTS
060829,000240: 04,3417           34752                           CA       TWO                                   #  V73 (AND V70) FIXED
060830,000241: 04,3420           55170                           TS       COMPNUMB                              #  SET NUMBER OF COMPONENTS TO 2.
060831,000242: 04,3421           13445                           TCF      OHWELL2                               #  GO GET THE TWO UPDATE COMPONENTS
060832,000243: 
060833,000244: 04,3422           33515        OHWELL1            CAF      ADUPBUFF                              #  * REQUEST USER TO SEND NUMBER *
060834,000245: 04,3423           54156                           TS       MPAC       +2                         #  * OF COMPONENTS PARAMETER(II).*
060835,000246: 04,3424           33516                 +2        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
060836,000247: 04,3425           04616                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01

Page 1390

060838,000249: 04,3426           20334                           CADR     GOXDSPF                               #  TO REQUEST II.
060839,000250: 
060840,000251: 04,3427           13712                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN
060841,000252: 04,3430           13424                           TCF      OHWELL1    +2                         
060842,000253: 04,3431           03506                           TC       CK4V32                                #  DATA OR V32 RETURN
060843,000254: 04,3432           44752                           CS       BIT2                                  
060844,000255: 04,3433           61174                           AD       UPBUFF                                #  IS II (NUMBER OF COMPONENTS PARAMETER)
060845,000256: 04,3434           00006                           EXTEND                                         #  .GE. 3 AND .LE. 20D.
060846,000257: 04,3435           63424                           BZMF     OHWELL1    +2                         
060847,000258: 04,3436           41174                           CS       UPBUFF                                
060848,000259: 04,3437           64362                           AD       UP21                                  
060849,000260: 04,3440           00006                           EXTEND                                         
060850,000261: 04,3441           63424                           BZMF     OHWELL1    +2                         
060851,000262: 04,3442           31174                           CAE      UPBUFF                                
060852,000263: 04,3443           55170                           TS       COMPNUMB                              #  SAVE II IN COMPNUMB
060853,000264: 
060854,000265:                                                                                                  #  UPBUFF LOADING SEQUENCE
060855,000266: 
060856,000267: 04,3444           25173                           INCR     UPCOUNT                               #  INCREMENT COUNT OF COMPONENTS RECEIVED.
060857,000268: 04,3445           33662        OHWELL2            CAF      ADUPBFM1                              #  CALCULATE LOCATION (ECADR) IN UPBUFF
060858,000269: 04,3446           61173                           AD       UPCOUNT                               #  WHERE NEXT COMPONENT SHOULD BE STORED.
060859,000270: 04,3447           54156                 +2        TS       MPAC       +2                         #  PLACE ECADR INTO R3.
060860,000271: 04,3450           33516                 +3        CAF      UPLOADNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
060861,000272: 04,3451           04616                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N01
060862,000273: 04,3452           20334                           CADR     GOXDSPF                               #  TO REQUEST DATA.
060863,000274: 04,3453           13712                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN.
060864,000275: 04,3454           13450                           TCF      OHWELL2    +3                         #  V33 PROCEED RETURN
060865,000276: 04,3455           03506                           TC       CK4V32                                #  DATA OR V32 RETURN
060866,000277: 04,3456           41173                           CS       UPCOUNT                               #  HAVE WE FINISHED RECEIVING ALL
060867,000278: 04,3457           61170                           AD       COMPNUMB                              #  THE DATA WE EXPECTED.
060868,000279: 04,3460           00006                           EXTEND                                         
060869,000280: 04,3461           63463                           BZMF     UPVERIFY                              #  YES - GO TO VERIFICATION SEQUENCE
060870,000281: 04,3462           13444                           TCF      OHWELL2    -1                         #  NO - REQUEST ADDITIONAL DATA.
060871,000282: 
060872,000283:                                                                                                  #  VERIFY SEQUENCE
060873,000284: 
060874,000285: 04,3463           33514        UPVERIFY           CAF      ADUPTEMP                              #  PLACE ECADR WHERE COMPONENT NO. INDEX
060875,000286: 04,3464           54156                           TS       MPAC       +2                         #  IS TO BE STORED INTO R3.
060876,000287: 04,3465           33517                           CAF      UPVRFYNV                              #  (CK4V32 RETURNS HERE IF V32 ENCOUNTERED)
060877,000288: 04,3466           04616                           TC       BANKCALL                              #  DISPLAY A FLASHING V21N02 TO REQUEST
060878,000289: 04,3467           20334                           CADR     GOXDSPF                               #  DATA CORRECTION OR VERIFICATION.
060879,000290: 04,3470           13712                           TCF      UPOUT4                                #  V34 TERMINATE UPDATE (P27) RETURN
060880,000291: 04,3471           13520                           TCF      UPSTORE                               #  V33 DATA SENT IS GOOD.  GO STORE IT.
060881,000292: 04,3472           03506                           TC       CK4V32                                #  COMPONENT NO. INDEX OR V32 RETURN
060882,000293: 04,3473           31167                           CA       UPTEMP                                #  DOES THE COMPONENT NO. INDEX JUST SENT
060883,000294: 04,3474           00006                           EXTEND                                         #  SPECIFY A LEGAL COMPONENT NUMBER?
060884,000295: 04,3475           63463                           BZMF     UPVERIFY                              #  NO, IT IS NOT POSITIVE NONZERO
060885,000296: 04,3476           41167                           CS       UPTEMP                                
060886,000297: 04,3477           61170                           AD       COMPNUMB                              

Page 1391

060888,000299: 04,3500           64753                           AD       BIT1                                  
060889,000300: 04,3501           00006                           EXTEND                                         
060890,000301: 04,3502           63463                           BZMF     UPVERIFY                              #  NO
060891,000302: 04,3503           33662                           CAF      ADUPBFM1                              #  YES - BASED ON THE COMPONENT NO. INDEX
060892,000303: 04,3504           61167                           AD       UPTEMP                                #  CALCULATE THE ECADR OF LOCATION IN
060893,000304: 04,3505           13447                           TCF      OHWELL2    +2                         #  UPBUFF WHICH USER WANTS TO CHANGE.
060894,000305: 
060895,000306: 04,3506  04,3712               UPOUT4             EQUALS   UPOUT      +1                         #  COMES HERE ON V34 TO TERMINATE UPDATE
060896,000307: 
060897,000308:                                                                                                  #  CHECK FOR VERB 32 SEQUENCE
060898,000309: 
060899,000310: 04,3506           40154        CK4V32             CS       MPAC                                  #  ON DATA RETURN FROM 'GOXDSPF'
060900,000311: 04,3507           74746                           MASK     BIT6                                  #  ON DATA RETURN FROM "GOXDSP" & THE CON-
060901,000312: 04,3510           10000                           CCS      A                                     #  TENTS OF MPAC = VERB.  SO TEST FOR V32.
060902,000313: 04,3511           00002                           TC       Q                                     #  IT'S NOT A V32, IT'S DATA.  PROCEED.
060903,000314: 04,3512           50002                           INDEX    Q                                     
060904,000315: 04,3513           77771                           TC       0          -6                         #  V32 ENCOUNTERED - GO BACK AND GET DATA
060905,000316: 
060906,000317: 04,3514           01167        ADUPTEMP           ADRES    UPTEMP                                #  ADDRESS OF TEMP STORAGE FOR CORRECTIONS
060907,000318: 04,3515           01174        ADUPBUFF           ADRES    UPBUFF                                #  ADDRESS OF UPDATE DATA STORAGE BUFFER
060908,000319: 04,3516           05201        UPLOADNV           VN       2101                                  #  VERB 21 NOUN 01
060909,000320: 04,3517           05202        UPVRFYNV           VN       2102                                  #  VERB 21 NOUN 02
060910,000321: 04,3520     4362               UP21               =        MD1                                   #  DEC 21 = MAX NO OF COMPONENTS +1
060911,000322: 04,3520     4756               UPDTPHAS           EQUALS   FIVE                                  
060912,000323: 
060913,000324:                                                                                                  #  PRE-STORE AND FAN TO APPROPRIATE BRANCH SEQUENCE
060914,000325: 
060915,000326: 04,3520                        UPSTORE            EQUALS                                         #  GROUND HAS VERIFIED UPDATE.  STORE DATA.
060916,000327: 
060917,000328: 04,3520           00004                           INHINT                                         
060918,000329: 
060919,000330: 04,3521           30103                           CAE      FLAGWRD7                              #  INVERT VERIFLAG (BIT 3 OF FLAGWRD7) TO
060920,000331: 04,3522           56001                           XCH      L                                     #  INDICATE TO THE GROUND (VIA DOWNLINK)
060921,000332: 04,3523           34751                           CAF      VERIFBIT                              #  THAT THE V33 (WHICH THE GROUND SENT TO
060922,000333: 04,3524           00006                           EXTEND                                         #  VERIFY THE UPDATE) HAS BEEN SUCCESSFULLY
060923,000334: 04,3525           06001                           RXOR     LCHAN                                 #  RECEIVED BY THE UPDATE PROGRAM
060924,000335: 04,3526           54103                           TS       FLAGWRD7                              
060925,000336: 
060926,000337: 04,3527           05353                           TC       PHASCHNG                              #  SET RESTART GROUP 6 TO REDO THE UPDATE
060927,000338: 04,3530           04026                           OCT      04026                                 #  DATA STORE IF A RESTART OCCURS.
060928,000339: 04,3531           00004                           INHINT                                         #  (BECAUSE PHASCHNG DID A RELINT)
060929,000340: 
060930,000341: 04,3532           44752                           CS       TWO                                   #  GO TO UPFNDVAC IF INSTALL IS REQUIRED,
060931,000342: 04,3533           61172                           AD       UPVERB                                #  THAT IS, IF IT'S A V70 - V72.
060932,000343: 04,3534           00006                           EXTEND                                         #  GO TO UPEND73 IF IT'S A V73.
060933,000344: 04,3535           63544                           BZMF     UPFNDVAC                              
060934,000345: 
060935,000346:                                                                                                  #  VERB 73 BRANCH

Page 1392

060937,000348: 04,3536           00006        UPEND73            EXTEND                                         #  V73 - PERFORM DP OCTAL AGC CLOCK INCREMENT
060938,000349: 
060939,000350: 04,3537           31175                           DCA      UPBUFF                                
060940,000351: 04,3540           53205                           DXCH     UPBUFF     +8D                        
060941,000352: 04,3541           03567                           TC       TIMEDIDL                              
060942,000353: 04,3542           04364                           TC       FALTON                                #  ERROR - TURN ON *OPERATOR ERROR* LIGHT
060943,000354: 04,3543           03712                           TC       UPOUT      +1                         #  GO TO COMMON UPDATE PROGRAM EXIT
060944,000355: 
060945,000356: 04,3544           34355        UPFNDVAC           CAF      CHRPRIO                               #  (USE EXTENDED VERB PRIORITY)
060946,000357: 04,3545           05105                           TC       FINDVAC                               #  GET VAC AREA FOR 'CALL INTSTALL'
060947,000358: 04,3546  E3,1706                                  EBANK=   TEPHEM                                
060948,000359: 04,3546           03551 10103                     2CADR    UPJOB                                 #  (NOTE:  THIS WILL ALSO SET EBANK FOR
060949,000360: 04,3550           05155                           TC       ENDOFJOB                              #  'TEPHEM' UPDATE BY V70)
060950,000361: 
060951,000362: 04,3551           06037        UPJOB              TC       INTPRET                               #  THIS COULD BE A STATE VECTOR UPDATE -- SO
060952,000363: 04,3552           77624                           CALL                                           #  WAIT (PUT JOB TO SLEEP) IF ORBIT INT(OI)
060953,000364: 04,3553           27414                                    INTSTALL                              #  IS IN PROGRESS -- OR -- GRAB OI AND RETURN
060954,000365:                                                                                                  #  TO UPWAKE IF OI IS NOT IN PROGRESS.
060955,000366: 
060956,000367: 04,3554           77776        UPWAKE             EXIT                                           
060957,000368: 
060958,000369: 04,3555           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
060959,000370: 04,3556           04026                           OCT      04026                                 
060960,000371: 
060961,000372: 04,3557           05504                           TC       UPFLAG                                #  SET INTEGRATION RESTART BIT
060962,000373: 04,3560           00236                           ADRES    REINTFLG                              
060963,000374: 04,3561           00004                           INHINT                                         
060964,000375: 04,3562                        UPPART3            EQUALS                                         
060965,000376: 
060966,000377: 04,3562           51172                           INDEX    UPVERB                                #  BRANCH TO THE APPROPRIATE UPDATE VERB
060967,000378: 04,3563           13564                           TCF      +1                                    #  ROUTINE TO ACTUALLY PERFORM THE UPDATE
060968,000379: 04,3564           13723                           TCF      UPEND70                               #  V70
060969,000380: 04,3565           13632                           TCF      UPEND71                               #  V71
060970,000381: 04,3566           13664                           TCF      UPEND72                               #  V72
060971,000382: 
060972,000383:                                                                                                  #  ROUTINE TO INCREMENT CLOCK (TIME2,TIME1) WITH CONTENTS OF DP WORD AT UPBUFF.
060973,000384: 
060974,000385: 04,3567           00006        TIMEDIDL           EXTEND                                         
060975,000386: 04,3570           23167                           QXCH     UPTEMP                                #  SAVE Q FOR RETURN
060976,000387: 04,3571           34755                           CAF      ZERO                                  #  ZERO AND SAVE TIME2,TIME1
060977,000388: 04,3572           22007                           ZL                                             
060978,000389: 04,3573           52025                           DXCH     TIME2                                 
060979,000390: 04,3574           53217                           DXCH     UPBUFF     +18D                       #  STORE IN CASE OF OVERFLOW
060980,000391: 
060981,000392: 04,3575           34756                           CAF      UPDTPHAS                              #  DO
060982,000393: 04,3576           54001                           TS       L                                     #  A
060983,000394: 04,3577           40000                           COM                                            #  QUICK
060984,000395: 04,3600           52765                           DXCH     -PHASE6                               #  PHASCHNG

Page 1393

060986,000397: 04,3601           00004        TIMEDIDR           INHINT                                         
060987,000398: 
060988,000399: 04,3602           34755                           CAF      ZERO                                  
060989,000400: 04,3603           22007                           ZL                                             #  PICK UP INCREMENTER(AND ZERO
060990,000401: 04,3604           54156                           TS       MPAC       +2                         #  IT IN CASE OF RESTARTS) AND
060991,000402: 04,3605           53205                           DXCH     UPBUFF     +8D                        #  STORE IT
060992,000403: 04,3606           52155                           DXCH     MPAC                                  #  INTO MPAC FOR TPAGREE.
060993,000404: 
060994,000405: 04,3607           00006                           EXTEND                                         
060995,000406: 04,3610           31217                           DCA      UPBUFF     +18D                       
060996,000407: 04,3611           20155                           DAS      MPAC                                  #  FORM SUM IN MPAC
060997,000408: 04,3612           00006                           EXTEND                                         
060998,000409: 04,3613           13622                           BZF      DELTATOK                              #  TEST FOR OVERFLOW
060999,000410: 04,3614           34755                           CAF      ZERO                                  
061000,000411: 04,3615           53217                           DXCH     UPBUFF     +18D                       #  OVERFLOW, RESTORE OLD VALUE OF CLOCK
061001,000412: 04,3616           20025                           DAS      TIME2                                 #  AND TURN ON OPERATOR ERROR
061002,000413: 
061003,000414: 04,3617           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
061004,000415: 04,3620           04026                           OCT      04026                                 
061005,000416: 
061006,000417: 04,3621           01167                           TC       UPTEMP                                #  GO TO ERROR EXIT
061007,000418: 
061008,000419: 04,3622           07257        DELTATOK           TC       TPAGREE                               #  FORCE SIGN AGREEMENT
061009,000420: 04,3623           52155                           DXCH     MPAC                                  
061010,000421: 04,3624           20025                           DAS      TIME2                                 #  INCREMENT TIME2,TIME1
061011,000422: 
061012,000423: 04,3625           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
061013,000424: 04,3626           04026                           OCT      04026                                 
061014,000425: 
061015,000426: 04,3627           00004                           INHINT                                         
061016,000427: 04,3630           51167                           INDEX    UPTEMP                                #  (CODED THIS WAY FOR RESTART PROTECTION)
061017,000428: 04,3631           00001                           TC       1                                     #  NORMAL RETURN
061018,000429: 
061019,000430:                                                                                                  #  VERB 71 BRANCH
061020,000431: 
061021,000432: 04,3632           31175        UPEND71            CAE      UPBUFF     +1                         #  SET EBANK
061022,000433: 04,3633           54003                           TS       EBANK                                 #        AND
061023,000434: 04,3634           74357                           MASK     LOW8                                  #  CALCULATE
061024,000435: 04,3635           55167                           TS       UPTEMP                                #  S-REG VALUE OF RECEIVING AREA
061025,000436: 
061026,000437: 04,3636           67745                           AD       NEG3                                  #  IN THE PROCESS OF
061027,000438: 04,3637           61170                           AD       COMPNUMB                              #  PERFORMING
061028,000439: 04,3640           00006                           EXTEND                                         #  THIS UPDATE
061029,000440: 04,3641           13647                           BZF      STORLP71                              #  WILL WE
061030,000441: 04,3642           74743                           MASK     BIT9                                  #  OVERFLOW
061031,000442: 04,3643           10000                           CCS      A                                     #  INTO THE NEXT EBANK....
061032,000443: 04,3644           13760                           TCF      UPERROUT                              #  YES
061033,000444: 
061034,000445: 04,3645           37745                           CA       NEG3                                  #  NO - CALCULATE NUMBER OF
061035,000446: 04,3646           61170                           AD       COMPNUMB                              #  WORDS TO BE STORED MINUS ONE
061036,000447: 04,3647           54154        STORLP71           TS       MPAC                                  #  SAVE NO. OF WORDS REMAINING MINUS ONE

Page 1394

061038,000449: 04,3650           50000                           INDEX    A                                     #  TAKE NEXT UPDATE WORD FROM
061039,000450: 04,3651           31176                           CA       UPBUFF     +2                         #  UPBUFF AND
061040,000451: 
061041,000452: 04,3652           54001                           TS       L                                     #  SAVE IT IN L
061042,000453: 04,3653           30154                           CA       MPAC                                  #  CALCULATE NEXT
061043,000454: 04,3654           61167                           AD       UPTEMP                                #  RECEIVING ADDRESS
061044,000455: 04,3655           50000                           INDEX    A                                     
061045,000456: 04,3656  E3,1400                                  EBANK=   1400                                  
061046,000457: 04,3656           23400                           LXCH     1400                                  #  UPDATE THE REGISTER BY CONTENTS OF L
061047,000458: 04,3657  E3,1706                                  EBANK=   TEPHEM                                
061048,000459: 04,3657           10154                           CCS      MPAC                                  #  ARE THERE ANY WORDS LEFT TO BE STORED
061049,000460: 04,3660           13647                           TCF      STORLP71                              #  YES
061050,000461: 04,3661           13711                           TCF      UPOUT                                 #  NO - THEN EXIT UPDATE PROGRAM
061051,000462: 04,3662           01173        ADUPBFM1           ADRES    UPBUFF     -1                         #  SAME AS ADUPBUFF BUT LESS 1 (DON'T MOVE)
061052,000463: 04,3663           13711                           TCF      UPOUT                                 #  NO - EXIT UPDATE (HERE WHEN COMPNUMB = 3)
061053,000464: 
061054,000465:                                                                                                  #  VERB 72 BRANCH
061055,000466: 
061056,000467: 04,3664           34753        UPEND72            CAF      BIT1                                  #  HAVE AN ODD NO. OF COMPONENTS
061057,000468: 04,3665           71170                           MASK     COMPNUMB                              #  BEEN SENT FOR A V72 UPDATE ...
061058,000469: 04,3666           10000                           CCS      A                                     
061059,000470: 04,3667           13671                           TCF      +2                                    #  YES
061060,000471: 04,3670           13760                           TCF      UPERROUT                              #  ERROR - SHOULD BE ODD NO. OF COMPONENTS
061061,000472: 04,3671           44752                           CS       BIT2                                  
061062,000473: 04,3672           61170                           AD       COMPNUMB                              
061063,000474: 04,3673           54154        LDLOOP72           TS       MPAC                                  #  NOW PERFORM THE UPDATE
061064,000475: 04,3674           50000                           INDEX    A                                     
061065,000476: 04,3675           31175                           CAE      UPBUFF     +1                         #  PICK UP NEXT UPDATE WORD
061066,000477: 04,3676           22000                           LXCH     A                                     
061067,000478: 04,3677           10154                           CCS      MPAC                                  #  SET POINTER TO ECADR (MUST BE CCS)
061068,000479: 04,3700           54154                           TS       MPAC                                  
061069,000480: 04,3701           50000                           INDEX    A                                     
061070,000481: 04,3702           31175                           CAE      UPBUFF     +1                         #  PICK UP NEXT ECADR OF REG TO BE UPDATED
061071,000482: 04,3703           54003                           TS       EBANK                                 #  SET EBANK
061072,000483: 04,3704           74357                           MASK     LOW8                                  #  ISOLATE RELATIVE ADDRESS
061073,000484: 04,3705           50000                           INDEX    A                                     
061074,000485: 04,3706  E3,1400                                  EBANK=   1400                                  
061075,000486: 04,3706           23400                           LXCH     1400                                  #  UPDATE THE REGISTER BY CONTENTS OF L
061076,000487: 04,3707  E3,1706                                  EBANK=   TEPHEM                                
061077,000488: 04,3707           10154                           CCS      MPAC                                  #  ARE WE THROUGH THE V72 UPDATE...
061078,000489: 04,3710           13673                           TCF      LDLOOP72                              #  NO
061079,000490: 
061080,000491:                                                                                                  #  NORMAL FINISH OF P27
061081,000492: 
061082,000493: 04,3711                        UPOUT              EQUALS                                         
061083,000494: 04,3711           03165                           TC       INTWAKEU                              #  RELEASE GRAB OF ORBITAL INTEGRATION
061084,000495: 04,3712           31171                 +1        CAE      UPOLDMOD                              #  RESTORE PRIOR P27 MODE
061085,000496: 04,3713           05314                           TC       NEWMODEX   +3                         
061086,000497: 04,3714           34755                           CAF      ZERO                                  

Page 1395

061088,000499: 04,3715           54332                           TS       DNLSTCOD                              
061089,000500: 04,3716           03765                           TC       UPACTOFF                              #  TURN OFF 'UPLINK ACTIVITY' LIGHT
061090,000501: 
061091,000502: 04,3717           00006                           EXTEND                                         #  KILL GROUP 6.
061092,000503: 04,3720           34755                           DCA      NEG0                                  
061093,000504: 04,3721           52765                           DXCH     -PHASE6                               
061094,000505: 
061095,000506: 04,3722           05472                           TC       ENDEXT                                #  EXTENDED VERB EXIT
061096,000507: 
061097,000508:                                                                                                  #  VERB 70 BRANCH
061098,000509: 
061099,000510: 04,3723           00006        UPEND70            EXTEND                                         #  V70 DOES THE FOLLOWING WITH DP DELTA
061100,000511: 04,3724           41175                           DCS      UPBUFF                                #  TIME IN UPBUFF
061101,000512: 04,3725           53205                           DXCH     UPBUFF     +8D                        
061102,000513: 04,3726           03567                           TC       TIMEDIDL                              #  DECREMENT AGC CLOCK
061103,000514: 
061104,000515: 04,3727           03760                           TC       UPERROUT                              #  ERROR WHILE DECREMENTING CLOCK -- EXIT
061105,000516: 
061106,000517: 04,3730  E3,1706                                  EBANK=   TEPHEM                                
061107,000518: 04,3730           00006                           EXTEND                                         
061108,000519: 04,3731           41175                           DCS      UPBUFF                                #  COPY DECREMENTERS FOR
061109,000520: 04,3732           53207                           DXCH     UPBUFF     +10D                       #  RESTART PROTECTION
061110,000521: 04,3733           00006                           EXTEND                                         
061111,000522: 04,3734           41175                           DCS      UPBUFF                                
061112,000523: 04,3735           53211                           DXCH     UPBUFF     +12D                       
061113,000524: 
061114,000525: 04,3736           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
061115,000526: 04,3737           04026                           OCT      04026                                 
061116,000527: 
061117,000528: 04,3740           34755                           CAF      ZERO                                  
061118,000529: 04,3741           22007                           ZL                                             
061119,000530: 04,3742           53207                           DXCH     UPBUFF     +10D                       #  DECREMENT CSM STATE VECTOR TIME
061120,000531: 04,3743           21571                           DAS      TETCSM                                
061121,000532: 
061122,000533: 04,3744           34755                           CAF      ZERO                                  
061123,000534: 04,3745           22007                           ZL                                             
061124,000535: 04,3746           53211                           DXCH     UPBUFF     +12D                       #  DECREMENT LEM STATE VECTOR TIME
061125,000536: 04,3747           21643                           DAS      TETLEM                                
061126,000537: 
061127,000538: 04,3750           34755                           CAF      ZERO                                  
061128,000539: 04,3751           22007                           ZL                                             
061129,000540: 04,3752           53175                           DXCH     UPBUFF                                
061130,000541: 04,3753           21710                           DAS      TEPHEM     +1                         #  INCREMENT TP TEPHEM
061131,000542: 04,3754           27706                           ADS      TEPHEM                                
061132,000543: 
061133,000544: 04,3755           05353                           TC       PHASCHNG                              #  RESTART PROTECT (GROUP 6)
061134,000545: 04,3756           04026                           OCT      04026                                 
061135,000546: 
061136,000547: 04,3757     1174                                  EBANK=   UPBUFF                                

Page 1396

061138,000549: 04,3757           03711                           TC       UPOUT                                 #  GO TO STANDARD UPDATE PROGRAM EXIT
061139,000550: 
061140,000551: 
061141,000552:                                                                                                  #  ERROR SEQUENCE
061142,000553: 
061143,000554: 04,3760           04364        UPERROUT           TC       FALTON                                #  TURN ON *OPERATOR ERROR* LIGHT
061144,000555: 04,3761           13711                           TCF      UPOUT                                 #  GO TO COMMON UPDATE PROGRAM EXIT
061145,000556: 
061146,000557: 04,3762           04364                 +2        TC       FALTON                                #  TURN ON 'OPERATOR ERROR' LIGHT
061147,000558: 04,3763           03765                           TC       UPACTOFF                              #  TURN OFF 'UPLINK ACTIVITY' LIGHT
061148,000559: 04,3764           05472                           TC       ENDEXT                                #  EXTENDED VERB EXIT
061149,000560:                                                                                                  #  (THE PURPOSE OF UPERROUT +2 EXIT IS
061150,000561:                                                                                                  #  TO PROVIDE AN ERROR EXIT WHICH DOES NOT
061151,000562:                                                                                                  #  RESET ANY RESTART GROUPS)
061152,000563: 
061153,000564:                                                                                                  #  :UPACTOFF: IS A ROUTINE TO TURN OFF UPLINK ACTIVITY LIGHT ON ALL EXITS FROM UPDATE PROGRAM (P27).
061154,000565: 
061155,000566: 04,3765           44751        UPACTOFF           CS       BIT3                                  
061156,000567: 04,3766           00006                           EXTEND                                         #  TURN OFF UPLINK ACTIVITY LIGHT
061157,000568: 04,3767           03011                           WAND     DSALMOUT                              #  (BIT 3 OF CHANNEL 11)
061158,000569: 04,3770           00002                           TC       Q                                     
061159,000570: 

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