Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Peter McDermott. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	YUL SYSTEM FOR AGC: NEW PROGRAM SHEPATIN BY EYLES
	DEC 13, 1966

	THIS PROGRAM WAS ASSEMBLED AS A VERSION OF REVISION 37 
        OF PROGRAM SUNBURST BY LEM GROUP
Note that the date is the date of the printout, not the date of the program revision.

032323,000002:                                                                                                  ## Copyright:   Public domain.
032324,000003:                                                                                                  ## Filename:    INTEGRATION_INITIALIZATION.agc
032325,000004:                                                                                                  ## Purpose:     A section of Sunburst revision 37, or Shepatin revision 0.
032326,000005:                                                                                                  ##              It is part of an early development version of the software
032327,000006:                                                                                                  ##              for Apollo Guidance Computer (AGC) on the unmanned Lunar
032328,000007:                                                                                                  ##              Module (LM) flight Apollo 5. Sunburst 37 was the program
032329,000008:                                                                                                  ##              upon which Don Eyles's offline development program Shepatin
032330,000009:                                                                                                  ##              was based; the listing herein transcribed was actually for
032331,000010:                                                                                                  ##              the equivalent revision 0 of Shepatin.
032332,000011:                                                                                                  ##              This file is intended to be a faithful transcription, except
032333,000012:                                                                                                  ##              that the code format has been changed to conform to the
032334,000013:                                                                                                  ##              requirements of the yaYUL assembler rather than the
032335,000014:                                                                                                  ##              original YUL assembler.
032336,000015:                                                                                                  ## Reference:   pp. 713-722
032337,000016:                                                                                                  ## Assembler:   yaYUL
032338,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
032339,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
032340,000019:                                                                                                  ## Mod history: 2017-05-24 MAS  Created from Sunburst 120.
032341,000020:                                                                                                  ##              2017-06-13 HG   Transcribed
032342,000021:                                                                                                  ##              2017-06-23 RSB  Proofed comment text with
032343,000022:                                                                                                  ##                              octopus/ProoferComments.
032344,000023: 

Page 713

032346,000025:                                                                                                  #  AVETOMID PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO A COASTING PHASE.  THE ROUTINE INITIALIZES THE
032347,000026:                                                                                                  #  ORBITAL INTEGRATION PROGRAM AND RESCALES AND TRANSFORMS LEMS STATE VECTOR FROM THE STABLE MEMBER COORDINATE
032348,000027:                                                                                                  #  SYSTEM USED IN AVERAGEG TO THE REFERENCE SYSTEM USED IN ORBITAL INTEGRATION DURING COAST
032349,000028:                                                                                                  #  INPUT - LEM STATE VECTOR IN SM COORDINATE SYSTEM AND TIME
032350,000029:                                                                                                  #     RN, POSITION IN METERS SCALED AT 2(+24)
032351,000030:                                                                                                  #     VN, VELOCITY IN M/CSEC SCALED AT 2(+7)
032352,000031:                                                                                                  #     PIPTIME, TIME IN CSEC CORRESPONDING TO RN, VN
032353,000032: 
032354,000033:                                                                                                  #  OUTPUT - LEM STATE VECTOR IN REF. COORDINATE SYSTEM AND TIME
032355,000034:                                                                                                  #     RRECT AND RCV, POSITION IN KM SCALED AT 2(+14)
032356,000035:                                                                                                  #     VRECT AND VCV, VELOCITY IN 1/SQRT(KM) SCALED AT 2(-6)
032357,000036:                                                                                                  #     TET, TIME IN CSEC
032358,000037:                                                                                                  #     P-MEMORY (REFRRECT TO REFRRECT + 42)
032359,000038: 
032360,000039:                                                                                                  #  AVETOMID CALLING SEQUENCE
032361,000040:                                                                                                  #     L-2   EXTEND
032362,000041:                                                                                                  #     L-1   DCA    (2CADR OF AVETOMID)
032363,000042:                                                                                                  #     L     DXCH   Z
032364,000043:                                                                                                  #           DELETE
032365,000044: 
032366,000045:                                                                                                  #  NORMAL EXIT
032367,000046:                                                                                                  #     AT L+1 OF CALLING SEQUENCE
032368,000047: 
032369,000048: 07,2073                                           BANK     07                                    
032370,000049: 07,2073  E4,1400                                  EBANK=   AMEMORY                               
032371,000050: 07,2073           53631        AVETOMID           DXCH     AVMIDRTN                              
032372,000051: 07,2074           06103                           TC       INTPRET                               
032373,000052: 07,2075           77624                           CALL                                           #  ORBITAL INTEGRATION INITIALIZATION
032374,000053: 07,2076           16267                                    INITINT                               
032375,000054: 07,2077           77775                           VLOAD                                          
032376,000055: 07,2100           16175                                    ZEROVEC                               
032377,000056: 07,2101           02015                           STORE    TDELTAV                               #  ZERO POS DEVIATIONS
032378,000057: 
032379,000058: 07,2102           02023                           STORE    TNUV                                  #  ZERO VEL DEVIATIONS
032380,000059: 07,2103           02045                           STORE    TC                                    #  ALSO CLEARS TET AND XKEP
032381,000060: 
032382,000061: 07,2104           66370        SMTOREF            AXT,1    SSP                                   #  SET UP TIX LOOP FOR STATE VEC TRANSFORM
032383,000062: 07,2105           00014                                    12D                                   
032384,000063: 07,2106           00051                                    S1                                    
032385,000064: 07,2107           00006                                    6                                     
032386,000065: 07,2110           73773        SMTOREF1           VLOAD*   VXSC*                                 #  TRANSFORM STATE FROM SM TO REF SYSTEM
032387,000066: 07,2111           01025                                    RN         +12D,1                     
032388,000067: 07,2112           16217                                    SCLRAVMD   +12D,1                     
032389,000068: 07,2113           72505                           VXM      VSL2                                  
032390,000069: 07,2114           01275                                    REFSMMAT                              
032391,000070: 07,2115           06015                           STORE    RRECT      +12D,1                     
032392,000071: 07,2116           06045                           STORE    RCV        +12D,1                     
032393,000072: 
032394,000073: 07,2117           77500                           TIX,1    EXIT                                  
032395,000074: 07,2120           16110                                    SMTOREF1                              
032396,000075: 07,2121           00006                           EXTEND                                         

Page 714

032398,000077: 07,2122           31321                           DCA      PIPTIME                               #  SAVE PIPTIME
032399,000078: 07,2123           53447                           DXCH     TET                                   #  PIPTIME UN TET
032400,000079: 
032401,000080: 07,2124           02245                           TC       MOVETEMP                              #  TRANSFER STATE AND INIT. DATA TO P-MEM
032402,000081: 07,2125           53631                           DXCH     AVMIDRTN                              
032403,000082: 07,2126           52006                           DXCH     Z                                     
032404,000083: 07,2127           02400        PIPEBANK           OCT      02400                                 #  EBANK 05
032405,000084: 07,2130           77776        TESTLOOP           EXIT                                           #  FOR DUMP.
032406,000085: 
032407,000086: 07,2131           06103                           TC       INTPRET                               
032408,000087: 
032409,000088: 07,2132           40145                           DLOAD    BOV                                   
032410,000089: 07,2133           02167                                    TDEC                                  
032411,000090: 07,2134           16135                                    +1                                    #  CLEAR OVERFLOW INDICATOR
032412,000091: 
032413,000092: 07,2135           47025                           DSU      RTB                                   
032414,000093: 07,2136           02047                                    TET                                   
032415,000094: 07,2137           33565                                    SGNAGREE                              
032416,000095: 07,2140           56261                           SL       DDV                                   
032417,000096: 07,2141           20214                                    11D                                   
032418,000097: 07,2142           17703                                    EARTHTAB   +9D                        
032419,000098: 07,2143           02163                           STORE    DT/2                                  
032420,000099: 07,2144           51400                           BOV      ABS                                   
032421,000100: 07,2145           16156                                    USEMAXDT                              
032422,000101: 07,2146           50025                           DSU      BMN                                   
032423,000102: 07,2147           16205                                    DT/2MIN                               
032424,000103: 07,2150           16317                                    DECISION                              #  INTEGRATION FINISHED-DECIDE WHERE TO GO
032425,000104: 07,2151           45215                           DAD      DSU                                   
032426,000105: 07,2152           16205                                    DT/2MIN                               
032427,000106: 07,2153           16213                                    DT/2MAX                               
032428,000107: 07,2154           77640                           BMN                                            
032429,000108: 07,2155           17376                                    TIMESTEP                              
032430,000109: 07,2156           75345        USEMAXDT           DLOAD    SIGN                                  
032431,000110: 07,2157           16213                                    DT/2MAX                               
032432,000111: 07,2160           02163                                    DT/2                                  
032433,000112: 07,2161           36163                           STCALL   DT/2                                  
032434,000113: 07,2162           17376                                    TIMESTEP                              
032435,000114: 07,2163           00016        SCALER             DEC      14         B-14                       
032436,000115: 
032437,000116: 07,2164           00004        SCALDELT           DEC      4          B-14                       
032438,000117: 07,2165           00022        SCALEDT            DEC      18         B-14                       
032439,000118: 07,2166           00000 05360  28SECS             2DEC     2800       B-28                       
032440,000119: 
032441,000120: 07,2170           00001 24570  270SECS            2DEC     27000      B-28                       
032442,000121: 
032443,000122: 07,2172           00000 00310  2SECS              2DEC     200        B-28                       
032444,000123: 
032445,000124: 07,2174           00000 00000  ZEROVEC            2DEC     0          B-28                       
032446,000125: 
032447,000126: 07,2176           00000 00000                     2DEC     0          B-28                       
032448,000127: 
032449,000128: 07,2200           00000 00000                     2DEC     0          B-28                       
032450,000129: 

Page 715

032452,000131:                                                                                                  #  THE ORDER OF THE SIX FOLLOWING CONSTANTS CANNOT BE CHANGED
032453,000132: 
032454,000133: 07,2202           20304 23351  SCLRAVMD           2DEC     .512                                  #  METERS TO KM  1/2(1024/1000)
032455,000134: 
032456,000135: 07,2204           00000 17565  DT/2MIN            2DEC     .00003                                
032457,000136: 
032458,000137: 07,2206           37200 00000  SCLRMDAV           2DEC     1000       B-10                       #  KM TO METERS
032459,000138: 
032460,000139: 07,2210           24605 15301  SCLVAVMD           2DEC     .64876819                             #  METERS/CSEC TO 1/SQR(KM)
032461,000140: 
032462,000141: 07,2212           12317 00451  DT/2MAX            2DEC     .65027077  B-1                        #  270 SEC MAX TIME STEP
032463,000142: 
032464,000143: 07,2214           30523 00147  SCLVMDAV           2DEC     .7706913                              #  1/SQR(KM) TO METERS/CSEC
032465,000144: 

Page 716

032467,000146:                                                                                                  #  STATEINT IS CALLED UP UNDER A JOB EVERY 539 SECONDS DURING A COASTING   PHASE BY THE MISSION SCHEDULING
032468,000147:                                                                                                  #  MAINTENANCE ROUTINE TO MAINTAIN THE LEMS STATE VECTOR WITHIN TWO INTEGRATION STEPS (540 SECONDS) OF THE CURRENT
032469,000148: 
032470,000149:                                                                                                  #  TIME (TIME2).  THE ROUTINE COMPARES TIME2 WITH TET (THAT TIME CORRESPONDING TO THE STATE VECTOR IN STORAGE).
032471,000150:                                                                                                  #  IF TET LAGS BY 270 SECONDS OR MORE, THE ORBITAL INTEGRATION PROGRAM IS  CALLED UP AND THE STATE IS UPDATED TO
032472,000151:                                                                                                  #  TIME2.  IF TET DOES NOT LAG, STATEINT IS TERMINATED BY ENDOFJOB.
032473,000152: 
032474,000153:                                                                                                  #  INPUT-STATEINT ASSUMES THAT THE COASTING IN PROGRESS WAS INITIALIZED BY
032475,000154:                                                                                                  #     THE AVETOMID ROUTINE.
032476,000155: 
032477,000156: 07,2216           00006        STATEINT           EXTEND                                         
032478,000157: 07,2217           30025                           DCA      TIME2                                 #  GET CURRENT TIME IN TDEC
032479,000158: 07,2220           53567                           DXCH     TDEC                                  
032480,000159: 07,2221           06027                           TC       FLAG2UP                               #  SET ORBITAL INTEGRATION FLAG
032481,000160: 07,2222           00100                           OCT      100                                   
032482,000161: 07,2223           02256                           TC       MOVEPERM                              #  BRING STATE FROM PMEMORY
032483,000162: 07,2224           06103                           TC       INTPRET                               
032484,000163: 
032485,000164: 07,2225           45345                           DLOAD    DSU                                   #  FORM TDEC-TET
032486,000165: 07,2226           02167                                    TDEC                                  
032487,000166: 07,2227           02047                                    TET                                   
032488,000167: 07,2230           45240                           BMN      DSU                                   #  IS STATE LAGGING
032489,000168: 07,2231           16243                                    NOINT                                 #  NO, TET GREATER THAN TDEC
032490,000169: 07,2232           16171                                    270SECS                               
032491,000170: 07,2233           66240                           BMN      SSP                                   
032492,000171: 07,2234           16243                                    NOINT                                 #  NO, TET GREATER THAN TDEC-270 SECS.
032493,000172: 
032494,000173: 07,2235           02201                                    MEASMODE                              #  BRING TO CURRENT TIME-SET MEASMODE (-1)
032495,000174: 07,2236           77776                           DEC      -1         B-14                       
032496,000175: 07,2237           77624                           CALL                                           
032497,000176: 07,2240           16267                                    INITINT                               #  INITIALIZE BRANCH REGS
032498,000177: 07,2241           77650                           GOTO                                           
032499,000178: 07,2242           16130                                    TESTLOOP                              #  START INTEGRATION FROM TET TO TDEC
032500,000179: 07,2243           77776        NOINT              EXIT                                           #  TEMPORARY STATEINT EXIT
032501,000180: 07,2244           12474                           TCF      INTOUT                                #  NO INTEGRATION, TERMINATE THIS JOB
032502,000181: 

Page 717

032504,000183:                                                                                                  #  MOVETEMP TRANSFERS RRECT TO RRECT +42 FROM A-MEMORY TO P-MEMORY
032505,000184: 
032506,000185:                                                                                                  #  CALLING SEQUENCE
032507,000186:                                                                                                  #     L   TC   MOVETEMP
032508,000187: 
032509,000188:                                                                                                  #  NORMAL EXIT AT L+1
032510,000189: 07,2245           32333        MOVETEMP           CAF      FORTYTWO                              
032511,000190: 07,2246           55605                           TS       DIFEQCNT                              #  INITIALIZE INDEX
032512,000191: 
032513,000192: 07,2247           51605                           INDEX    DIFEQCNT                              
032514,000193: 07,2250           31400                           CA       RRECT                                 #  PICK UP RRECT TO RRECT +42 FROM A-MEMORY
032515,000194: 07,2251           51605                           INDEX    DIFEQCNT                              
032516,000195: 07,2252           55222                           TS       REFRRECT                              #  STORE IN REFRRECT TO REFRRECT +42 IN P-M
032517,000196: 07,2253           11605                           CCS      DIFEQCNT                              #  IS TRANSFER COMPLETE
032518,000197: 07,2254           12246                           TCF      MOVETEMP   +1                         #  NO-LOOP AGAIN
032519,000198: 07,2255           00002                           TC       Q                                     #  TRANSFER COMPLETE-RETURN
032520,000199: 
032521,000200:                                                                                                  #  MOVEPERM TRANSFERS REFRRECT TO REFRRECT +42 FROM PMEMORY TO A-MEMORY
032522,000201: 
032523,000202: 07,2256           32333        MOVEPERM           CAF      FORTYTWO                              
032524,000203: 07,2257           55605                           TS       DIFEQCNT                              
032525,000204: 07,2260           51605                           INDEX    DIFEQCNT                              
032526,000205: 07,2261           31222                           CA       REFRRECT                              
032527,000206: 07,2262           51605                           INDEX    DIFEQCNT                              
032528,000207: 07,2263           55400                           TS       RRECT                                 
032529,000208: 07,2264           11605                           CCS      DIFEQCNT                              
032530,000209: 07,2265           12257                           TCF      MOVEPERM   +1                         
032531,000210: 07,2266           00002                           TC       Q                                     
032532,000211: 
032533,000212: 07,2267           66331        INITINT            SSP      SSP                                   
032534,000213: 07,2270           02230                                    PBODY                                 #  EARTHTAB INTO PBOAY
032535,000214: 07,2271           17671                                    EARTHTAB                              
032536,000215: 
032537,000216: 07,2272           02205                                    STEPEXIT                              #  TESTLOOP INTO STEPEXIT
032538,000217: 07,2273           16130                                    TESTLOOP                              
032539,000218: 07,2274           43014                           CLEAR    CLEAR                                 
032540,000219: 07,2275           00262                                    MIDFLAG                               #  ZERO ON 206
032541,000220: 07,2276           00263                                    MOONFLAG                              #  ZERO ON 206
032542,000221: 07,2277           43414                           CLEAR    RVQ                                   
032543,000222: 07,2300           00260                                    WMATFLAG                              #  W-MATRIX NOT USED ON 206
032544,000223: 

Page 718

032546,000225:                                                                                                  #  MIDTOAVE PERFORMS THE STATE VECTOR TRANSITION FROM A COASTING PHASE
032547,000226:                                                                                                  #  USING THE ORBITAL INTEGRATION PROGRAMS TO A TRUSTING PHASE WHICH USES
032548,000227:                                                                                                  #  AVERAGEG INTEGRATION.  THE ROUTINE RESCALES AND TRANSFORMS THE STATE
032549,000228:                                                                                                  #  VECTOR AT TIGN-30, TIGN-2 AND TIGN FROM REFERENCE COORDINATES TO
032550,000229:                                                                                                  #  STABLE MEMBER COORDINATES AS DIRECTED BY THE DECISION ROUTINE
032551,000230: 
032552,000231:                                                                                                  #  INPUT-MIDTOAVE ASSUMES THAT THE COASTING INTEGRATION WAS INITIALIZED
032553,000232:                                                                                                  #     BY THE AVETOMID ROUTINE,  STATE IN REF. COORD. IN PMEMORY.
032554,000233: 
032555,000234:                                                                                                  #     RRECT, RCV-POSITION IN KM SCALED AT 2(+14)
032556,000235:                                                                                                  #     VRECT, VCV- VELOCITY IN 1/SQRT(KM) SCALED AT 2(-6)
032557,000236:                                                                                                  #     TET, TIME IN CSECS.
032558,000237: 
032559,000238:                                                                                                  #  OUTPUT-STATE IN STABLE MEMBER COORDINATES
032560,000239: 
032561,000240:                                                                                                  #  AT TIGN-30
032562,000241:                                                                                                  #     RAVEGON, POSITION IN METERS SCALED IN 2(+24)
032563,000242:                                                                                                  #     VAVEGON, VELOCITY IN METERS/CSEC SCALED AT 2(+7)
032564,000243: 
032565,000244:                                                                                                  #  AT TIGN-2
032566,000245:                                                                                                  #     RIG-2SEC, POSITION IN METERS SCALED AT 2(+24)
032567,000246: 
032568,000247:                                                                                                  #  AT TIGN
032569,000248: 
032570,000249:                                                                                                  #     RIGNTION, POSITION IN METERS SCALED AT 2(+24)
032571,000250:                                                                                                  #     VIGNTION, VELOCITY IN METERS/CSEC SCALED AT 2(+7)
032572,000251: 
032573,000252:                                                                                                  #  CALLING SEQUENCE
032574,000253:                                                                                                  #     (COMPUTE TDEC=TIME OF IGNITION-30 SECS.)
032575,000254:                                                                                                  #     L-2   EXTEND
032576,000255:                                                                                                  #     L-1   DCA    (2CADR OF MIDTOAVE)
032577,000256:                                                                                                  #     L     DXCH   Z
032578,000257: 
032579,000258:                                                                                                  #  NORMAL EXIT
032580,000259:                                                                                                  #     L+1 OF CALLING SEQUENCE
032581,000260: 
032582,000261: 07,2301           53631        RVUPDATE           DXCH     AVMIDRTN                              
032583,000262: 07,2302           37755                           CAF      BIT1                                  #  SET MEASMODE TO +1 TO INTEGRATE STATE
032584,000263: 
032585,000264: 07,2303           12306                           TCF      MIDTOAVE   +2                         #  TO TDEC AND STORED IN RIGNTION ONLY
032586,000265: 
032587,000266: 07,2304           53631        MIDTOAVE           DXCH     AVMIDRTN                              
032588,000267: 07,2305           37762                           CA       NEG0                                  
032589,000268: 07,2306           55600                           TS       MEASMODE                              #  SET MEASMODE (-0) TO INTEGRATE TO IG-30
032590,000269: 07,2307           06027                           TC       FLAG2UP                               #  SET ORBITAL INTEGRATION FLAG
032591,000270: 07,2310           00100                           OCT      100                                   
032592,000271: 07,2311           02256                           TC       MOVEPERM                              #  BRING STATE FROM PMEMORY
032593,000272: 07,2312           06103                           TC       INTPRET                               
032594,000273: 07,2313           77624                           CALL                                           #  INITIALIZE ORBITAL INTEGRATION REGS
032595,000274: 07,2314           16267                                    INITINT                               
032596,000275: 07,2315           77650                           GOTO                                           
032597,000276: 07,2316           16130                                    TESTLOOP                              #  GO TO ORBITAL INTEGRATION
032598,000277: 

Page 719

032600,000279:                                                                                                  #  THE DECISION ROUTINE DETERMINES THE ACTION TO BE TAKEN AFTER ORBITAL
032601,000280:                                                                                                  #  INTEGRATION HAS UPDATED THE STATE VECTOR TO THE TIME INDICATED
032602,000281:                                                                                                  #  BY TDEC.  THE ACTION TAKEN IS BASED ON THE CONTENTS OF MEASMODE,
032603,000282: 
032604,000283:                                                                                                  #  C(MEASMODE)=(-0), STATE INTEGRATED (REF. COORD.) TO TIGN-30, SET
032605,000284:                                                                                                  #              MEASMODE=(+0), SET TDEC=TIGN-2SECS.
032606,000285:                                                                                                  #  C(MEASMODE)=(+0), POSITION VECTOR INTEGRATED TO TIGN-2, SET MEASMODE=,+1
032607,000286:                                                                                                  #              SET TDEC=TIGN
032608,000287:                                                                                                  #  C(MEASMODE)=(+1), STATE INTEGRATED TO TIGN, TRANSFORM STATE FROM REF TO
032609,000288:                                                                                                  #              SM COORD. SYSTEM AND RETURN TO MISSION PROGRAM
032610,000289:                                                                                                  #  C(MEASMODE)=(-1), STATE INTEGRATED TO TDEC DURING COAST PHASE, TERMINATE
032611,000290:                                                                                                  #              STATEINT JOB INITIATED BY MISSION SCHEDULING PACKAGE
032612,000291: 
032613,000292: 07,2317           77776        DECISION           EXIT                                           
032614,000293: 07,2320           11600                           CCS      MEASMODE                              
032615,000294: 07,2321           12324                           TCF      +3                                    #  STATE IN REF  COOR AT IGN
032616,000295: 07,2322           12324                           TCF      +2                                    #  STATE IN REF COORD AT IGN-2
032617,000296: 07,2323           12427                           TCF      COASTINT                              #  COAST INTEGRATION STEP COMPLETE
032618,000297: 07,2324           06103                           TC       INTPRET                               
032619,000298: 07,2325           77624                           CALL                                           
032620,000299: 
032621,000300: 07,2326           17426                                    RECTIFY                               #  RECTIFY AT IGN-30,IGN-2,IGN
032622,000301: 
032623,000302: 07,2327           77776                           EXIT                                           
032624,000303: 07,2330           11600                           CCS      MEASMODE                              
032625,000304: 07,2331           12403                           TCF      REFTOSM                               #  STATE AT TIGN-FINISH UP MIDTOAVE
032626,000305: 07,2332           12364                           TCF      IGN-2SEC                              #  POS AT TIGN-2, DO TIGN NEXT
032627,000306: 07,2333           00051        FORTYTWO           DEC      41         B-14                       
032628,000307: 07,2334           12335                           TCF      AVEGON                                #  STATE AT TIGN-30, DO TIGN-2 NEXT
032629,000308: 
032630,000309: 07,2335           06103        AVEGON             TC       INTPRET                               
032631,000310: 07,2336           66370                           AXT,1    SSP                                   #  SET LOOP
032632,000311: 07,2337           00014                                    12D                                   
032633,000312: 07,2340           00051                                    S1                                    
032634,000313: 07,2341           00006                                    6                                     
032635,000314: 07,2342           73773        SPECPLS1           VLOAD*   VXSC*                                 
032636,000315: 07,2343           02015                                    RRECT      +12D,1                     
032637,000316: 07,2344           16223                                    SCLRMDAV   +12D,1                     #    REF TO SM SCALE FACTOR
032638,000317: 07,2345           76521                           MXV      VSL1                                  
032639,000318: 07,2346           01275                                    REFSMMAT                              
032640,000319: 07,2347           06131                           STORE    RAVEGON    +12D,1                     
032641,000320: 07,2350           71300                           TIX,1    DLOAD                                 
032642,000321: 07,2351           16342                                    SPECPLS1                              
032643,000322: 07,2352           02167                                    TDEC                                  #  TDEC NOW=TIGN-30
032644,000323: 
032645,000324: 07,2353           01321                           STORE    PIPTIME                               #  SAVE TIGN-30 IN PIPTIME FOR AVERAGEG
032646,000325: 07,2354           02111                           STORE    TAVEGON                               #  TIME TIG-30 FOR DWNLINK IN NORMLIZE
032647,000326: 07,2355           77615                           DAD                                            
032648,000327: 07,2356           16167                                    28SECS                                #  TDEC + 28SECS
032649,000328: 07,2357           02167                           STORE    TDEC                                  #  TDEC SET TIGN-2
032650,000329: 07,2360           52131                           SSP      GOTO                                  
032651,000330: 07,2361           02201                                    MEASMODE                              #  SET MEASMODE=(+0)
032652,000331: 

Page 720

032654,000333: 07,2362           00000                                    0                                     
032655,000334: 07,2363           16130                                    TESTLOOP                              #  GO INTEGRATE STATE TO IGN-2
032656,000335: 
032657,000336: 07,2364           06103        IGN-2SEC           TC       INTPRET                               
032658,000337: 07,2365           74375                           VLOAD    VXSC                                  #  TRANSFORM POS AT IGN-2 FROM REF TO SM
032659,000338: 07,2366           02001                                    RRECT                                 
032660,000339: 07,2367           16207                                    SCLRMDAV                              
032661,000340: 07,2370           76521                           MXV      VSL1                                  
032662,000341: 07,2371           01275                                    REFSMMAT                              
032663,000342: 07,2372           16131                           STODL    RIG-2SEC                              #  POS IN SM COORD. AT IGN-2
032664,000343: 07,2373           02167                                    TDEC                                  
032665,000344: 07,2374           77615                           DAD                                            
032666,000345: 07,2375           16173                                    2SECS                                 
032667,000346: 07,2376           02167                           STORE    TDEC                                  #  TDEC SET TIGN
032668,000347: 07,2377           52131                           SSP      GOTO                                  
032669,000348: 07,2400           02201                                    MEASMODE                              #  SET MEASMODE=(+1)
032670,000349: 07,2401           00001                                    1                                     
032671,000350: 07,2402           16130                                    TESTLOOP                              #  GO INTEGRATE STATE TO TIGN
032672,000351: 

Page 721

032674,000353: 
032675,000354: 07,2403           06045        REFTOSM            TC       FLAG2DWN                              #  REMOVE ORBITAL INTEGRATION GLAG
032676,000355: 07,2404           00100                           OCT      100                                   
032677,000356: 07,2405           06103                           TC       INTPRET                               
032678,000357: 07,2406           66370                           AXT,1    SSP                                   #  SET UP TIX LOOP
032679,000358: 07,2407           00014                                    12D                                   #  12 IN X1
032680,000359: 07,2410           00051                                    S1                                    #  6 IN S1
032681,000360: 07,2411           00006                                    6                                     
032682,000361: 07,2412           73773        REFTOSM1           VLOAD*   VXSC*                                 #  TRANSFORM STATE AT TIGN FROM REF TO SM
032683,000362: 
032684,000363: 07,2413           02015                                    RRECT      +12D,1                     
032685,000364: 07,2414           16223                                    SCLRMDAV   +12D,1                     #  REF TO SM SCALE FACTOR
032686,000365: 07,2415           76521                           MXV      VSL1                                  
032687,000366: 07,2416           01275                                    REFSMMAT                              
032688,000367: 07,2417           06015                           STORE    RIGNTION   +12D,1                     #    STATE AT TIGN IN SM COORDINATES
032689,000368: 07,2420           77500                           TIX,1    EXIT                                  
032690,000369: 07,2421           16412                                    REFTOSM1                              
032691,000370: 07,2422           00006                           EXTEND                                         #  PLAY SAFE WITH BASIC********************
032692,000371: 07,2423           31447                           DCA      TET                                   #  ****************************************
032693,000372: 07,2424           53670                           DXCH     TIGN                                  #  STATE TIME FOR DWNLINK IN VPATCHER
032694,000373: 07,2425           53631                           DXCH     AVMIDRTN                              
032695,000374: 07,2426           52006                           DXCH     Z                                     
032696,000375:                                                                                                  #  THE COASTINT ROUTINE TERMINATES THE ORBITAL INTEGRATION JOB SET BY
032697,000376:                                                                                                  #  MISSION SCHEDULING ROUTINE EVERY 539 SECONDS DURING COASTING PHASES.
032698,000377:                                                                                                  #  THE ROUTINE TRANSFERS THE STATE VECTOR AND ALL OTHER ORBITAL INTEGRATION
032699,000378:                                                                                                  #  QUANTITIES TO P-MEMORY.  IT FORMS A TOTAL STATE VECTOR AND TRANSFORMS IT
032700,000379:                                                                                                  #  TO STABLE MEMBER COORDINATES AND STORES IT WITH TIME IN RN, VN AND
032701,000380:                                                                                                  #  STATIME FOR DOWNLINK.  THE ROUTINE THEN REMOVES THE INTEGRATION FLAG
032702,000381:                                                                                                  #  TO ALLOW GROUND UPDATE OF THE STATE VECTOR AND DOES ENDOFJOB.
032703,000382: 
032704,000383: 07,2427           02245        COASTINT           TC       MOVETEMP                              
032705,000384: 07,2430           06103                           TC       INTPRET                               
032706,000385: 07,2431           40575                           VLOAD    VSR8                                  #  FORM TOTAL STATE VECTOR
032707,000386: 
032708,000387: 07,2432           01237                                    DELTAV                                
032709,000388: 07,2433           53342                           VSR2     VAD                                   
032710,000389: 07,2434           01253                                    REFRCV                                
032711,000390: 07,2435           26001                           STOVL    RRECT                                 
032712,000391: 07,2436           01245                                    NUV                                   
032713,000392: 07,2437           53202                           VSR8     VAD                                   
032714,000393: 07,2440           01261                                    REFVCV                                
032715,000394: 07,2441           02007                           STORE    VRECT                                 #  TOTAL VEL. VECTOR
032716,000395: 
032717,000396: 07,2442           66370                           AXT,1    SSP                                   #  SET TIX LOOP TO TRANSFORM STATE TO SM
032718,000397: 07,2443           00014                                    12D                                   
032719,000398: 07,2444           00051                                    S1                                    
032720,000399: 07,2445           00006                                    6                                     
032721,000400: 07,2446           73773        TRANTOSM           VLOAD*   VXSC*                                 #  TRANSFORM STATE AND RE-STORE IN RRECT
032722,000401: 07,2447           02015                                    RRECT      +12D,1                     
032723,000402: 07,2450           16223                                    SCLRMDAV   +12D,1                     
032724,000403: 07,2451           76521                           MXV      VSL1                                  
032725,000404: 07,2452           01275                                    REFSMMAT                              
032726,000405: 07,2453           06015                           STORE    RRECT      +12D,1                     #  STATE IN SM SYSTEM
032727,000406: 

Page 722

032729,000408: 07,2454           77700                           TIX,1                                          
032730,000409: 07,2455           16446                                    TRANTOSM                              
032731,000410: 07,2456           77776                           EXIT                                           
032732,000411: 
032733,000412: 07,2457           00004                           INHINT                                         #  INHIBIT INTERUPT TO STORE STATE IN RN
032734,000413: 07,2460           37756                           CAF      ELEVEN                                #  INITIALIZE INDEX TO DEC 11
032735,000414: 07,2461           54070        STATORN            TS       RUPTREG1                              
032736,000415: 07,2462           50070                           INDEX    RUPTREG1                              
032737,000416: 07,2463           31400                           CA       RRECT                                 #  PICK RRECT + NEXT 11 REGS
032738,000417: 07,2464           50070                           INDEX    RUPTREG1                              
032739,000418: 07,2465           55010                           TS       RN                                    #  JAM IN RN TO RN+11 FOR DOWNLINK
032740,000419: 07,2466           10070                           CCS      RUPTREG1                              
032741,000420: 07,2467           12461                           TCF      STATORN                               
032742,000421: 07,2470           00006                           EXTEND                                         
032743,000422: 
032744,000423: 07,2471           31271                           DCA      TE                                    #  GET STATE TIME
032745,000424: 07,2472           53341                           DXCH     STATIME                               
032746,000425: 07,2473           00003                           RELINT                                         #  STATE AND TIME IN DOWNLINK REGS
032747,000426: 
032748,000427: 07,2474           06045        INTOUT             TC       FLAG2DWN                              #  REMOVE ORBITAL INTEGRATION FLAG
032749,000428: 07,2475           00100                           OCT      100                                   
032750,000429: 
032751,000430: 07,2476           05605                           TC       ENDOFJOB                              

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