Source Code

These source-code files were transcribed from scans made from Don Eyles's personal copy of BURST120 (SUNBURST 120). They were scanned at archive.org's Boston facility, and the scanning was sponsored by Mike Stewart. The code was transcribed from these scans by a team of volunteers who are referenced in the program comments. Comments from the original source code are in ALL-CAPS, whereas comments added later in transcription are in Mixed-Case. In some cases, where similar code blocks exist in previously-transcribed AGC programs (primarily Luminary 99, from Apollo 11) those code blocks were used as a starting point and then corrected to agree with the BURST120 scans. The full scans are available at the Virtual AGC project's collection at archive.org, while more-convenient reduced-size (but reduced-quality) images are available at the main Virtual AGC website. Report any errors noted by creating an issue report at the Virtual AGC project's GitHub repository. Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: REVISION 0 OF PROGRAM BURST120 
	BY NASA 2021106-031 DEC 7, 1967

	THIS LISTING IS A COPY OF A VERSION OF THE PROGRAM INTENDED 
	FOR USE IN THE ON-BOARD PRIMARY GUIDANCE COMPUTER IN THE 
	UNMANNED FLIGHT OF APOLLO LUNAR MODULE 1 --- THE AS206 MISSION.
Note that the date is the date of the printout, not the date of the program revision.

032932,000002:                                                                                                  ## Copyright:    Public domain.
032933,000003:                                                                                                  ## Filename:     INTEGRATION_INITIALIZATION.agc
032934,000004:                                                                                                  ## Purpose:      A module for revision 0 of BURST120 (Sunburst). It 
032935,000005:                                                                                                  ##               is part of the source code for the Lunar Module's
032936,000006:                                                                                                  ##               (LM) Apollo Guidance Computer (AGC) for Apollo 5.
032937,000007:                                                                                                  ## Assembler:    yaYUL
032938,000008:                                                                                                  ## Contact:      Ron Burkey <info@sandroid.org>.
032939,000009:                                                                                                  ## Website:      www.ibiblio.org/apollo/index.html
032940,000010:                                                                                                  ## Mod history:  2016-09-30 RSB  Created draft version.
032941,000011:                                                                                                  ##               2016-10-29 MAS  Transcribed.
032942,000012:                                                                                                  ##               2016-10-31 RSB  Typos.
032943,000013:                                                                                                  ##               2016-12-06 RSB  Comments proofed using octopus/ProoferComments,
032944,000014:                                                                                                  ##                               changes made.
032945,000015: 

Page 766

032947,000017:                                                                                                  #  AVETOMID PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO A COASTING PHASE.  THE ROUTINE INITIALIZES THE
032948,000018:                                                                                                  #  ORBITAL INTEGRATION PROGRAM AND RESCALES AND TRANSFORMS LEMS STATE VECTOR FROM THE STABLE MEMBER COORDINATE
032949,000019:                                                                                                  #  SYSTEM USED IN AVERAGEG TO THE REFERENCE SYSTEM USED IN ORBITAL INTEGRATION DURING COAST
032950,000020:                                                                                                  #  INPUT - LEM STATE VECTOR IN SM COORDINATE SYSTEM AND TIME
032951,000021:                                                                                                  #     RN, POSITION IN METERS SCALED AT 2(+24)
032952,000022:                                                                                                  #     VN, VELOCITY IN M/CSEC SCALED AT 2(+7)
032953,000023:                                                                                                  #     PIPTIME, TIME IN CSEC CORRESPONDING TO RN, VN
032954,000024: 
032955,000025:                                                                                                  #  OUTPUT - LEM STATE VECTOR IN REF. COORDINATE SYSTEM AND TIME
032956,000026:                                                                                                  #     RRECT AND RCV, POSITION IN KM SCALED AT 2(+14)
032957,000027:                                                                                                  #     VRECT AND VCV, VELOCITY IN 1/SQRT(KM) SCALED AT 2(-6)
032958,000028:                                                                                                  #     TET, TIME IN CSEC
032959,000029:                                                                                                  #     P-MEMORY (REFRRECT TO REFRRECT + 42)
032960,000030: 
032961,000031:                                                                                                  #  AVETOMID CALLING SEQUENCE
032962,000032:                                                                                                  #     L-2   EXTEND
032963,000033:                                                                                                  #     L-1   DCA    (2CADR OF AVETOMID)
032964,000034:                                                                                                  #     L     DXCH   Z
032965,000035:                                                                                                  #           DELETE
032966,000036: 
032967,000037:                                                                                                  #  NORMAL EXIT
032968,000038:                                                                                                  #     AT L+1 OF CALLING SEQUENCE
032969,000039: 
032970,000040: 07,2116                                           BANK     07                                    
032971,000041: 07,2116  E4,1400                                  EBANK=   AMEMORY                               
032972,000042: 07,2116           53631        AVETOMID           DXCH     AVMIDRTN                              
032973,000043: 07,2117           06112                           TC       INTPRET                               
032974,000044: 07,2120           77624                           CALL                                           #  ORBITAL INTEGRATION INITIALIZATION
032975,000045: 07,2121           16324                                    INITINT                               
032976,000046: 07,2122           77775                           VLOAD                                          
032977,000047: 07,2123           16226                                    ZEROVEC                               
032978,000048: 07,2124           02015                           STORE    TDELTAV                               #  ZERO POS DEVIATIONS
032979,000049: 07,2125           02023                           STORE    TNUV                                  #  ZERO VEL DEVIATIONS
032980,000050: 07,2126           02045                           STORE    TC                                    #  ALSO CLEARS TET AND XKEP
032981,000051: 
032982,000052: 07,2127           66370        SMTOREF            AXT,1    SSP                                   #  SET UP TIX LOOP FOR STATE VEC TRANSFORM
032983,000053: 07,2130           00014                                    12D                                   
032984,000054: 07,2131           00051                                    S1                                    
032985,000055: 07,2132           00006                                    6                                     
032986,000056: 07,2133           73773        SMTOREF1           VLOAD*   VXSC*                                 #  TRANSFORM STATE FROM SM TO REF SYSTEM
032987,000057: 07,2134           01025                                    RN         +12D,1                     
032988,000058: 07,2135           16250                                    SCLRAVMD   +12D,1                     
032989,000059: 07,2136           72505                           VXM      VSL2                                  
032990,000060: 07,2137           01263                                    REFSMMAT                              
032991,000061: 07,2140           06015                           STORE    RRECT      +12D,1                     
032992,000062: 07,2141           06045                           STORE    RCV        +12D,1                     
032993,000063: 
032994,000064: 07,2142           77500                           TIX,1    EXIT                                  
032995,000065: 07,2143           16133                                    SMTOREF1                              
032996,000066: 07,2144           00006                           EXTEND                                         

Page 767

032998,000068: 07,2145           31307                           DCA      PIPTIME                               #  SAVE PIPTIME
032999,000069: 07,2146           53447                           DXCH     TET                                   #  PIPTIME UN TET
033000,000070: 
033001,000071: 07,2147           02276                           TC       MOVETEMP                              #  TRANSFER STATE AND INIT. DATA TO P-MEM
033002,000072: 07,2150           53631                           DXCH     AVMIDRTN                              
033003,000073: 07,2151           52006                           DXCH     Z                                     
033004,000074: 07,2152           02400        PIPEBANK           OCT      02400                                 #  EBANK 05
033005,000075: 07,2153           77776        TESTLOOP           EXIT                                           #  FOR DUMP.
033006,000076: 
033007,000077: 07,2154           06112                           TC       INTPRET                               
033008,000078: 
033009,000079: 07,2155           40145                           DLOAD    BOV                                   
033010,000080: 07,2156           02167                                    TDEC                                  
033011,000081: 07,2157           16160                                    +1                                    #  CLEAR OVERFLOW INDICATOR
033012,000082: 07,2160           47025                           DSU      RTB                                   
033013,000083: 07,2161           02047                                    TET                                   
033014,000084: 07,2162           33520                                    SGNAGREE                              
033015,000085: 07,2163           56261                           SL       DDV                                   
033016,000086: 07,2164           20214                                    11D                                   
033017,000087: 07,2165           17755                                    EARTHTAB   +9D                        
033018,000088: 07,2166           02163                           STORE    DT/2                                  
033019,000089: 07,2167           51400                           BOV      ABS                                   
033020,000090: 07,2170           16206                                    GETMAXDT                              
033021,000091: 07,2171           50025                           DSU      BMN                                   
033022,000092: 07,2172           16236                                    DT/2MIN                               
033023,000093: 07,2173           16354                                    DECISION                              #  INTEGRATION FINISHED-DECIDE WHERE TO GO
033024,000094: 07,2174           45215                           DAD      DSU                                   
033025,000095: 07,2175           16236                                    DT/2MIN                               
033026,000096: 07,2176           16244                                    DT/2MAX                               
033027,000097: 07,2177           77640                           BMN                                            
033028,000098: 07,2200           17450                                    TIMESTEP                              
033029,000099: 07,2201           75345        USEMAXDT           DLOAD    SIGN                                  
033030,000100: 07,2202           16244                                    DT/2MAX                               
033031,000101: 07,2203           02163                                    DT/2                                  
033032,000102: 07,2204           36163                           STCALL   DT/2                                  
033033,000103: 07,2205           17450                                    TIMESTEP                              
033034,000104: 07,2206           77634        GETMAXDT           RTB                                            
033035,000105: 07,2207           73501                                    SIGNMPAC                              
033036,000106: 07,2210           36163                           STCALL   DT/2                                  
033037,000107: 07,2211           16201                                    USEMAXDT                              
033038,000108: 
033039,000109: 
033040,000110: 
033041,000111: 07,2212           00016        SCALER             DEC      14         B-14                       
033042,000112: 07,2213           00004        SCALDELT           DEC      4          B-14                       
033043,000113: 07,2214           00022        SCALEDT            DEC      18         B-14                       
033044,000114: 07,2215           00000 05360  28SECS             2DEC     2800       B-28                       
033045,000115: 
033046,000116: 07,2217           00001 24570  270SECS            2DEC     27000      B-28                       
033047,000117: 

Page 768

033049,000119: 07,2221           00000 00310  2SECS              2DEC     200        B-28                       
033050,000120: 
033051,000121: 07,2223           00000 05670  30SECS             2DEC     3000       B-28                       #  USED ONLY FOR LOGIC IN IGN+28 * 206 ONLY
033052,000122: 
033053,000123: 07,2225           00000 00000  ZEROVEC            2DEC     0          B-28                       
033054,000124: 
033055,000125: 07,2227           00000 00000                     2DEC     0          B-28                       
033056,000126: 
033057,000127: 07,2231           00000 00000                     2DEC     0          B-28                       
033058,000128: 
033059,000129:                                                                                                  #  THE ORDER OF THE SIX FOLLOWING CONSTANTS CANNOT BE CHANGED
033060,000130: 
033061,000131: 07,2233           20304 23351  SCLRAVMD           2DEC     .512                                  #  METERS TO KM 1/2(1024/1000)
033062,000132: 
033063,000133: 07,2235           00000 17565  DT/2MIN            2DEC     .00003                                
033064,000134: 
033065,000135: 07,2237           37200 00000  SCLRMDAV           2DEC     1000       B-10                       #  KM TO METERS
033066,000136: 
033067,000137: 07,2241           24605 15301  SCLVAVMD           2DEC     .64876819                             #  METERS/CSEC TO 1/SQR(KM)
033068,000138: 
033069,000139: 07,2243           12317 00451  DT/2MAX            2DEC     .65027077  B-1                        #  270 SEC MAX TIME STEP
033070,000140: 
033071,000141: 07,2245           30523 00147  SCLVMDAV           2DEC     .7706913                              #  1/SQR(KM) TO METERS/CSEC
033072,000142: 

Page 769

033074,000144:                                                                                                  #  STATEINT IS CALLED UP UNDER A JOB EVERY 539 SECONDS DURING A COASTING   PHASE BY THE MISSION SCHEDULING
033075,000145:                                                                                                  #  MAINTENANCE ROUTINE TO MAINTAIN THE LEMS STATE VECTOR WITHIN TWO INTEGRATION STEPS (540 SECONDS) OF THE CURRENT
033076,000146:                                                                                                  #  TIME (TIME2).  THE ROUTINE COMPARES TIME2 WITH TET (THAT TIME CORRESPONDING TO THE STATE VECTOR IN STORAGE).
033077,000147:                                                                                                  #  IF TET LAGS BY 270 SECONDS OR MORE, THE ORBITAL INTEGRATION PROGRAM IS  CALLED UP AND THE STATE IS UPDATED TO
033078,000148:                                                                                                  #  TIME2.  IF TET DOES NOT LAG, STATEINT IS TERMINATED BY ENDOFJOB.
033079,000149: 
033080,000150:                                                                                                  #  INPUT-STATEINT ASSUMES THAT THE COASTING IN PROGRESS WAS INITIALIZED BY
033081,000151:                                                                                                  #     THE AVETOMID ROUTINE.
033082,000152: 
033083,000153: 07,2247           00006        STATEINT           EXTEND                                         
033084,000154: 07,2250           30025                           DCA      TIME2                                 #  GET CURRENT TIME IN TDEC
033085,000155: 07,2251           53567                           DXCH     TDEC                                  
033086,000156: 07,2252           06060                           TC       FLAG2UP                               #  SET ORBITAL INTEGRATION FLAG
033087,000157: 07,2253           00100                           OCT      100                                   
033088,000158: 07,2254           02311                           TC       MOVEPERM                              #  BRING STATE FROM PMEMORY
033089,000159: 07,2255           06112                           TC       INTPRET                               
033090,000160: 
033091,000161: 07,2256           45345                           DLOAD    DSU                                   #  FORM TDEC-TET
033092,000162: 07,2257           02167                                    TDEC                                  
033093,000163: 07,2260           02047                                    TET                                   
033094,000164: 07,2261           45240                           BMN      DSU                                   #  IS STATE LAGGING
033095,000165: 07,2262           16274                                    NOINT                                 #  NO, TET GREATER THAN TDEC
033096,000166: 07,2263           16220                                    270SECS                               
033097,000167: 07,2264           66240                           BMN      SSP                                   
033098,000168: 07,2265           16274                                    NOINT                                 #  NO, TET GREATER THAN TDEC-270 SECS.
033099,000169: 07,2266           02201                                    MEASMODE                              #  BRING TO CURRENT TIME-SET MEASMODE (-1)
033100,000170: 07,2267           77776                           DEC      -1         B-14                       
033101,000171: 07,2270           77624                           CALL                                           
033102,000172: 07,2271           16324                                    INITINT                               #  INITIALIZE BRANCH REGS
033103,000173: 07,2272           77650                           GOTO                                           
033104,000174: 07,2273           16153                                    TESTLOOP                              #  START INTEGRATION FROM TET TO TDEC
033105,000175: 07,2274           77776        NOINT              EXIT                                           #  TEMPORARY STATEINT EXIT
033106,000176: 07,2275           12544                           TCF      INTOUT                                #  NO INTEGRATION, TERMINATE THIS JOB
033107,000177: 

Page 770

033109,000179:                                                                                                  #  MOVETEMP TRANSFERS RRECT TO RRECT +42 FROM A-MEMORY TO P-MEMORY
033110,000180: 
033111,000181:                                                                                                  #  CALLING SEQUENCE
033112,000182:                                                                                                  #     L   TC   MOVETEMP
033113,000183: 
033114,000184:                                                                                                  #  NORMAL EXIT AT L+1
033115,000185: 
033116,000186: 07,2276           00006        MOVETEMP           EXTEND                                         
033117,000187: 07,2277           23627                           QXCH     PBODY                                 #  TEMP. HERE-PBODY INITIALIZED BEFORE INT
033118,000188: 07,2300           32370                           CAF      FORTYTWO                              
033119,000189: 07,2301           55605        MTEMPLUP           TS       DIFEQCNT                              #  INITIALIZE INDEX
033120,000190: 07,2302           51605                           INDEX    DIFEQCNT                              
033121,000191: 07,2303           31400                           CA       RRECT                                 #  PICK UP RRECT TO RRECT +42 FROM A-MEMORY
033122,000192: 07,2304           51605                           INDEX    DIFEQCNT                              
033123,000193: 07,2305           55210                           TS       REFRRECT                              #  STORE IN REFRRECT TO REFRRECT +42 IN P-M
033124,000194: 07,2306           11605                           CCS      DIFEQCNT                              #  IS TRANSFER COMPLETE
033125,000195: 07,2307           12301                           TCF      MTEMPLUP                              #  NO --- LOOP AGAIN.
033126,000196: 07,2310           01627                           TC       PBODY                                 
033127,000197: 
033128,000198:                                                                                                  #  MOVEPERM TRANSFERS REFRRECT TO REFRRECT +42 FROM PMEMORY TO A-MEMORY
033129,000199: 
033130,000200: 07,2311           00006        MOVEPERM           EXTEND                                         
033131,000201: 07,2312           23627                           QXCH     PBODY                                 #  TEMP. HERE-PBODY INIT. BEFORE INTEGRATIO
033132,000202: 07,2313           32370                           CAF      FORTYTWO                              
033133,000203: 07,2314           55605        MPERMLUP           TS       DIFEQCNT                              
033134,000204: 07,2315           51605                           INDEX    DIFEQCNT                              
033135,000205: 07,2316           31210                           CA       REFRRECT                              
033136,000206: 07,2317           51605                           INDEX    DIFEQCNT                              
033137,000207: 07,2320           55400                           TS       RRECT                                 
033138,000208: 07,2321           11605                           CCS      DIFEQCNT                              
033139,000209: 07,2322           12314                           TCF      MPERMLUP                              
033140,000210: 07,2323           01627                           TC       PBODY                                 
033141,000211: 
033142,000212: 07,2324           66331        INITINT            SSP      SSP                                   
033143,000213: 07,2325           02230                                    PBODY                                 #  EARTHTAB INTO PBOAY
033144,000214: 07,2326           17743                                    EARTHTAB                              
033145,000215: 07,2327           02205                                    STEPEXIT                              #  TESTLOOP INTO STEPEXIT
033146,000216: 07,2330           16153                                    TESTLOOP                              
033147,000217: 07,2331           43014                           CLEAR    CLEAR                                 
033148,000218: 07,2332           00262                                    MIDFLAG                               #  ZERO ON 206
033149,000219: 07,2333           00263                                    MOONFLAG                              #  ZERO ON 206
033150,000220: 07,2334           43414                           CLEAR    RVQ                                   
033151,000221: 07,2335           00260                                    WMATFLAG                              #  W-MATRIX NOT USED ON 206
033152,000222: 

Page 771

033154,000224:                                                                                                  #  MIDTOAVE PERFORMS THE STATE VECTOR TRANSITION FROM A COASTING PHASE
033155,000225:                                                                                                  #  USING THE ORBITAL INTEGRATION PROGRAMS TO A TRUSTING PHASE WHICH USES
033156,000226:                                                                                                  #  AVERAGEG INTEGRATION.  THE ROUTINE RESCALES AND TRANSFORMS THE STATE
033157,000227:                                                                                                  #  VECTOR AT TIGN-30, TIGN-2 AND TIGN FROM REFERENCE COORDINATES TO
033158,000228:                                                                                                  #  STABLE MEMBER COORDINATES AS DIRECTED BY THE DECISION ROUTINE
033159,000229: 
033160,000230:                                                                                                  #  INPUT-MIDTOAVE ASSUMES THAT THE COASTING INTEGRATION WAS INITIALIZED
033161,000231:                                                                                                  #     BY THE AVETOMID ROUTINE,  STATE IN REF. COORD. IN PMEMORY.
033162,000232: 
033163,000233:                                                                                                  #     RRECT, RCV-POSITION IN KM SCALED AT 2(+14)
033164,000234:                                                                                                  #     VRECT, VCV- VELOCITY IN 1/SQRT(KM) SCALED AT 2(-6)
033165,000235:                                                                                                  #     TET, TIME IN CSECS.
033166,000236: 
033167,000237:                                                                                                  #  OUTPUT-STATE IN STABLE MEMBER COORDINATES
033168,000238:                                                                                                  #  AT TIGN-30
033169,000239:                                                                                                  #     RAVEGON, POSITION IN METERS SCALED IN 2(+24)
033170,000240:                                                                                                  #     VAVEGON, VELOCITY IN METERS/CSEC SCALED AT 2(+7)
033171,000241: 
033172,000242:                                                                                                  #  AT TIGN-2
033173,000243:                                                                                                  #     RIG-2SEC, POSITION IN METERS SCALED AT 2(+24)
033174,000244: 
033175,000245:                                                                                                  #  AT TIGN
033176,000246: 
033177,000247:                                                                                                  #     RIGNTION, POSITION IN METERS SCALED AT 2(+24)
033178,000248:                                                                                                  #     VIGNTION, VELOCITY IN METERS/CSEC SCALED AT 2(+7)
033179,000249: 
033180,000250:                                                                                                  #  CALLING SEQUENCE
033181,000251:                                                                                                  #     (COMPUTE TDEC=TIME OF IGNITION-30 SECS.)
033182,000252:                                                                                                  #     L-2   EXTEND
033183,000253:                                                                                                  #     L-1   DCA    (2CADR OF MIDTOAVE)
033184,000254:                                                                                                  #     L     DXCH   Z
033185,000255: 
033186,000256:                                                                                                  #  NORMAL EXIT
033187,000257:                                                                                                  #     L+1 OF CALLING SEQUENCE
033188,000258: 
033189,000259: 07,2336           53631        RVUPDATE           DXCH     AVMIDRTN                              
033190,000260: 07,2337           37763                           CAF      BIT1                                  #  SET MEASMODE TO +1 TO INTEGRATE STATE
033191,000261: 07,2340           12343                           TCF      MIDTOAVE   +2                         #  TO TDEC AND STORED IN RIGNTION ONLY
033192,000262: 
033193,000263: 07,2341           53631        MIDTOAVE           DXCH     AVMIDRTN                              
033194,000264: 07,2342           37770                           CA       NEG0                                  
033195,000265: 07,2343           55600                           TS       MEASMODE                              #  SET MEASMODE (-0) TO INTEGRATE TO IG-30
033196,000266: 07,2344           06060                           TC       FLAG2UP                               #  SET ORBITAL INTEGRATION FLAG
033197,000267: 07,2345           00100                           OCT      100                                   
033198,000268: 07,2346           02311                           TC       MOVEPERM                              #  BRING STATE FROM PMEMORY
033199,000269: 07,2347           06112                           TC       INTPRET                               
033200,000270: 07,2350           77624                           CALL                                           #  INITIALIZE ORBITAL INTEGRATION REGS
033201,000271: 07,2351           16324                                    INITINT                               
033202,000272: 07,2352           77650                           GOTO                                           
033203,000273: 07,2353           16153                                    TESTLOOP                              #  GO TO ORBITAL INTEGRATION
033204,000274: 

Page 772

033206,000276:                                                                                                  #  THE DECISION ROUTINE DETERMINES THE ACTION TO BE TAKEN AFTER ORBITAL
033207,000277:                                                                                                  #  INTEGRATION HAS UPDATED THE STATE VECTOR TO THE TIME INDICATED
033208,000278:                                                                                                  #  BY TDEC.  THE ACTION TAKEN IS BASED ON THE CONTENTS OF MEASMODE,
033209,000279: 
033210,000280:                                                                                                  #  C(MEASMODE)=(-0), STATE INTEGRATED (REF. COORD.) TO TIGN-30, SET
033211,000281:                                                                                                  #              MEASMODE=(+0), SET TDEC=TIGN-2SECS.
033212,000282:                                                                                                  #  C(MEASMODE)=(+0), POSITION VECTOR INTEGRATED TO TIGN-2, SET MEASMODE=,+1
033213,000283:                                                                                                  #              SET TDEC=TIGN
033214,000284:                                                                                                  #  C(MEASMODE)=(+1), STATE INTEGRATED TO TIGN, TRANSFORM STATE FROM REF TO
033215,000285:                                                                                                  #              SM COORD. SYSTEM AND RETURN TO MISSION PROGRAM
033216,000286:                                                                                                  #  C(MEASMODE)=(-1), STATE INTEGRATED TO TDEC DURING COAST PHASE, TERMINATE
033217,000287:                                                                                                  #              STATEINT JOB INITIATED BY MISSION SCHEDULING PACKAGE
033218,000288: 
033219,000289: 07,2354           77776        DECISION           EXIT                                           
033220,000290: 07,2355           11600                           CCS      MEASMODE                              
033221,000291: 07,2356           12361                           TCF      +3                                    #  STATE IN REF  COOR AT IGN
033222,000292: 07,2357           12361                           TCF      +2                                    #  STATE IN REF COORD AT IGN-2
033223,000293: 07,2360           12471                           TCF      COASTINT                              #  COAST INTEGRATION STEP COMPLETE
033224,000294: 07,2361           06112                           TC       INTPRET                               
033225,000295: 07,2362           77624                           CALL                                           
033226,000296: 07,2363           17500                                    RECTIFY                               #  RECTIFY AT IGN-30,IGN-2,IGN
033227,000297: 
033228,000298: 07,2364           77776                           EXIT                                           
033229,000299: 07,2365           11600                           CCS      MEASMODE                              
033230,000300: 07,2366           12445                           TCF      REFTOSM                               #  STATE AT TIGN-FINISH UP MIDTOAVE
033231,000301: 07,2367           12421                           TCF      IGN-2SEC                              #  POS AT TIGN-2, DO TIGN NEXT
033232,000302: 07,2370           00051        FORTYTWO           DEC      41         B-14                       
033233,000303: 07,2371           12372                           TCF      AVEGON                                #  STATE AT TIGN-30, DO TIGN-2 NEXT
033234,000304: 
033235,000305: 07,2372           06112        AVEGON             TC       INTPRET                               
033236,000306: 07,2373           66370                           AXT,1    SSP                                   #  SET LOOP
033237,000307: 07,2374           00014                                    12D                                   
033238,000308: 07,2375           00051                                    S1                                    
033239,000309: 07,2376           00006                                    6                                     
033240,000310: 07,2377           73773        SPECPLS1           VLOAD*   VXSC*                                 
033241,000311: 07,2400           02015                                    RRECT      +12D,1                     
033242,000312: 07,2401           16254                                    SCLRMDAV   +12D,1                     #    REF TO SM SCALE FACTOR
033243,000313: 07,2402           76521                           MXV      VSL1                                  
033244,000314: 07,2403           01263                                    REFSMMAT                              
033245,000315: 07,2404           06131                           STORE    RAVEGON    +12D,1                     
033246,000316: 07,2405           71300                           TIX,1    DLOAD                                 
033247,000317: 07,2406           16377                                    SPECPLS1                              
033248,000318: 07,2407           02167                                    TDEC                                  #  TDEC NOW=TIGN-30
033249,000319: 07,2410           01307                           STORE    PIPTIME                               #  SAVE TIGN-30 IN PIPTIME FOR AVERAGEG
033250,000320: 07,2411           02111                           STORE    TAVEGON                               #  TIME TIG-30 FOR DWNLINK IN NORMLIZE
033251,000321: 07,2412           77615                           DAD                                            
033252,000322: 07,2413           16216                                    28SECS                                #  TDEC + 28SECS
033253,000323: 07,2414           02167                           STORE    TDEC                                  #  TDEC SET TIGN-2
033254,000324: 07,2415           52131                           SSP      GOTO                                  
033255,000325: 07,2416           02201                                    MEASMODE                              #  SET MEASMODE=(+0)

Page 773

033257,000327: 07,2417           00000                                    0                                     
033258,000328: 07,2420           16153                                    TESTLOOP                              #  GO INTEGRATE STATE TO IGN-2
033259,000329: 
033260,000330: 07,2421           06112        IGN-2SEC           TC       INTPRET                               
033261,000331: 07,2422           74375                           VLOAD    VXSC                                  #  TRANSFORM POS AT IGN-2 FROM REF TO SM
033262,000332: 07,2423           02001                                    RRECT                                 
033263,000333: 07,2424           16240                                    SCLRMDAV                              
033264,000334: 07,2425           76521                           MXV      VSL1                                  
033265,000335: 07,2426           01263                                    REFSMMAT                              
033266,000336: 07,2427           16131                           STODL    RIG-2SEC                              #  POS IN SM COORD. AT IGN-2
033267,000337: 07,2430           02167                                    TDEC                                  
033268,000338: 07,2431           43214                           BONCLR   DAD                                   
033269,000339: 07,2432           02212                                    INTEGRSW                              #  IF SET, FINAL TESTLOOP GIVES IGN+28 STAT
033270,000340: 07,2433           16442                                    IGN+28                                #  INSTEAD OF IGN STATE - FOR MP 4 ONLY.
033271,000341: 07,2434           16222                                    2SECS                                 
033272,000342: 07,2435           02167        TDECSTOR           STORE    TDEC                                  
033273,000343: 07,2436           52131                           SSP      GOTO                                  
033274,000344: 07,2437           02201                                    MEASMODE                              #  SET MEASMODE=(+1)
033275,000345: 07,2440           00001                                    1                                     
033276,000346: 07,2441           16153                                    TESTLOOP                              #  GO INTEGRATE STATE TO IGN OR IGN+28
033277,000347: 
033278,000348: 07,2442           52015        IGN+28             DAD      GOTO                                  
033279,000349: 07,2443           16224                                    30SECS                                #  FOR MP4.  REMOVE AFTER FLIGHT 206.
033280,000350: 07,2444           16435                                    TDECSTOR                              
033281,000351: 
033282,000352: 07,2445           06076        REFTOSM            TC       FLAG2DWN                              #  REMOVE ORBITAL INTEGRATION GLAG
033283,000353: 07,2446           00100                           OCT      100                                   
033284,000354: 07,2447           06112                           TC       INTPRET                               
033285,000355: 07,2450           66370                           AXT,1    SSP                                   #  SET UP TIX LOOP
033286,000356: 07,2451           00014                                    12D                                   #  12 IN X1
033287,000357: 07,2452           00051                                    S1                                    #  6 IN S1
033288,000358: 07,2453           00006                                    6                                     
033289,000359: 07,2454           73773        REFTOSM1           VLOAD*   VXSC*                                 #  TRANSFORM STATE AT TIGN FROM REF TO SM
033290,000360: 07,2455           02015                                    RRECT      +12D,1                     
033291,000361: 07,2456           16254                                    SCLRMDAV   +12D,1                     #  REF TO SM SCALE FACTOR
033292,000362: 07,2457           76521                           MXV      VSL1                                  
033293,000363: 07,2460           01263                                    REFSMMAT                              
033294,000364: 07,2461           06015                           STORE    RIGNTION   +12D,1                     #    STATE AT TIGN IN SM COORDINATES
033295,000365: 07,2462           77500                           TIX,1    EXIT                                  
033296,000366: 07,2463           16454                                    REFTOSM1                              
033297,000367: 07,2464           00006                           EXTEND                                         #  PLAY SAFE WITH BASIC********************
033298,000368: 07,2465           31447                           DCA      TET                                   #  ****************************************
033299,000369: 07,2466           53777                           DXCH     TIGNTION                              #  STATE TIME FOR DOWNLINK IN VPATCHER
033300,000370: 07,2467           53631                           DXCH     AVMIDRTN                              
033301,000371: 07,2470           52006                           DXCH     Z                                     
033302,000372:                                                                                                  #  THE COASTINT ROUTINE TERMINATES THE ORBITAL INTEGRATION JOB SET BY
033303,000373:                                                                                                  #  MISSION SCHEDULING ROUTINE EVERY 539 SECONDS DURING COASTING PHASES.
033304,000374:                                                                                                  #  THE ROUTINE TRANSFERS THE STATE VECTOR AND ALL OTHER ORBITAL INTEGRATION
033305,000375:                                                                                                  #  QUANTITIES TO P-MEMORY.  IT FORMS A TOTAL STATE VECTOR AND TRANSFORMS IT
033306,000376:                                                                                                  #  TO STABLE MEMBER COORDINATES AND STORES IT WITH TIME IN RN, VN AND

Page 774

033308,000378:                                                                                                  #  STATIME FOR DOWNLINK.  THE ROUTINE THEN REMOVES THE INTEGRATION FLAG
033309,000379:                                                                                                  #  TO ALLOW GROUND UPDATE OF THE STATE VECTOR AND DOES ENDOFJOB.
033310,000380: 
033311,000381: 07,2471           04161        COASTINT           TC       PHASCHNG                              
033312,000382: 07,2472           05021                           OCT      05021                                 
033313,000383: 07,2473           05000                           OCT      05000                                 
033314,000384: 
033315,000385: 07,2474           02276                           TC       MOVETEMP                              
033316,000386: 
033317,000387: 07,2475           04161        UPDATINT           TC       PHASCHNG                              
033318,000388: 07,2476           05021                           OCT      05021                                 
033319,000389: 07,2477           05000                           OCT      05000                                 
033320,000390: 
033321,000391: 07,2500           06112                           TC       INTPRET                               
033322,000392: 07,2501           40575                           VLOAD    VSR8                                  #  FORM TOTAL STATE VECTOR
033323,000393: 07,2502           01225                                    DELTAV                                
033324,000394: 07,2503           53342                           VSR2     VAD                                   
033325,000395: 07,2504           01241                                    REFRCV                                
033326,000396: 07,2505           26001                           STOVL    RRECT                                 
033327,000397: 07,2506           01233                                    NUV                                   
033328,000398: 07,2507           53202                           VSR8     VAD                                   
033329,000399: 07,2510           01247                                    REFVCV                                
033330,000400: 07,2511           02007                           STORE    VRECT                                 #  TOTAL VEL. VECTOR
033331,000401: 
033332,000402: 07,2512           66370                           AXT,1    SSP                                   #  SET TIX LOOP TO TRANSFORM STATE TO SM
033333,000403: 07,2513           00014                                    12D                                   
033334,000404: 07,2514           00051                                    S1                                    
033335,000405: 07,2515           00006                                    6                                     
033336,000406: 07,2516           73773        TRANTOSM           VLOAD*   VXSC*                                 #  TRANSFORM STATE AND RE-STORE IN RRECT
033337,000407: 07,2517           02015                                    RRECT      +12D,1                     
033338,000408: 07,2520           16254                                    SCLRMDAV   +12D,1                     
033339,000409: 07,2521           76521                           MXV      VSL1                                  
033340,000410: 07,2522           01263                                    REFSMMAT                              
033341,000411: 07,2523           06015                           STORE    RRECT      +12D,1                     #  STATE IN SM SYSTEM
033342,000412: 07,2524           77700                           TIX,1                                          
033343,000413: 07,2525           16516                                    TRANTOSM                              
033344,000414: 07,2526           77776                           EXIT                                           
033345,000415: 
033346,000416: 07,2527           00004                           INHINT                                         #  INHIBIT INTERUPT TO STORE STATE IN RN
033347,000417: 07,2530           37764                           CAF      ELEVEN                                #  INITIALIZE INDEX TO DEC 11
033348,000418: 07,2531           54070        STATORN            TS       RUPTREG1                              
033349,000419: 07,2532           50070                           INDEX    RUPTREG1                              
033350,000420: 07,2533           31400                           CA       RRECT                                 #  PICK RRECT + NEXT 11 REGS
033351,000421: 07,2534           50070                           INDEX    RUPTREG1                              
033352,000422: 07,2535           55010                           TS       RN                                    #  JAM IN RN TO RN+11 FOR DOWNLINK
033353,000423: 07,2536           10070                           CCS      RUPTREG1                              
033354,000424: 07,2537           12531                           TCF      STATORN                               
033355,000425: 07,2540           00006                           EXTEND                                         
033356,000426: 07,2541           31257                           DCA      TE                                    #  GET STATE TIME
033357,000427: 07,2542           53327                           DXCH     STATIME                               
033358,000428: 

Page 775

033360,000430: 07,2543           00003                           RELINT                                         #  STATE AND TIME IN DOWNLINK REGS
033361,000431: 
033362,000432: 07,2544           06076        INTOUT             TC       FLAG2DWN                              #  REMOVE ORBITAL INTEGRATION FLAG
033363,000433: 07,2545           00100                           OCT      100                                   
033364,000434: 
033365,000435: 07,2546           04161                           TC       PHASCHNG                              
033366,000436: 07,2547           00001                           OCT      00001                                 
033367,000437: 
033368,000438: 07,2550           05567                           TC       ENDOFJOB                              

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