Source Code

These source-code files are part of a reconstructed copy of Comanche 67, the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

Since only binary dumps (rather than listings) of Comanche 67 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

054217,000002:                                                                                                  ## Copyright:   Public domain.
054218,000003:                                                                                                  ## Filename:    INTEGRATION_INITIALIZATION.agc
054219,000004:                                                                                                  ## Purpose:     A section of Comanche revision 067.
054220,000005:                                                                                                  ##              It is part of the reconstructed source code for the flight
054221,000006:                                                                                                  ##              software for the Command Module's (CM) Apollo Guidance Computer
054222,000007:                                                                                                  ##              (AGC) for Apollo 12. No original listings of this program are
054223,000008:                                                                                                  ##              available; instead, this file was created via dissassembly of
054224,000009:                                                                                                  ##              dumps of Comanche 067 core rope modules and comparison with
054225,000010:                                                                                                  ##              other AGC programs.
054226,000011:                                                                                                  ## Assembler:   yaYUL
054227,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
054228,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
054229,000014:                                                                                                  ## Mod history: 2023-08-16 MAS  Created from Comanche 055.
054230,000015: 
054231,000016:                                                                                                  #  1.0 INTRODUCTION
054232,000017:                                                                                                  #  ----------------
054233,000018: 
054234,000019:                                                                                                  #  FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
054235,000020:                                                                                                  #  PROGRAM.  THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
054236,000021:                                                                                                  #  OUTPUT WILL STILL BE VIA THE PUSHLIST.  THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
054237,000022:                                                                                                  #  TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
054238,000023:                                                                                                  #  SIDE THE LUNAR SPHERE OF INFLUENCE.
054239,000024: 
054240,000025:                                                                                                  #  IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
054241,000026:                                                                                                  #  WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
054242,000027:                                                                                                  #  INTEGRATION.  THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
054243,000028:                                                                                                  #  CALL TC INTSTALL.
054244,000029: 
054245,000030:                                                                                                  #  WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
054246,000031:                                                                                                  #  INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
054247,000032:                                                                                                  #  BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
054248,000033:                                                                                                  #  THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED.  THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
054249,000034:                                                                                                  #  THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
054250,000035: 
054251,000036:                                                                                                  #  USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
054252,000037:                                                                                                  #  IN LUNAR ORBIT IS TIME DEPENDENT.  THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
054253,000038:                                                                                                  #  TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME.  FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
054254,000039:                                                                                                  #  AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
054255,000040: 
054256,000041:                                                                                                  #  2.0 GENERAL DESCRIPTION
054257,000042:                                                                                                  #  -----------------------
054258,000043: 
054259,000044:                                                                                                  #  THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS ---
054260,000045:                                                                                                  #        1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
054261,000046:                                                                                                  #        2) INTEGRATES THE W-MATRIX
054262,000047:                                                                                                  #        3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
054263,000048: 
054264,000049:                                                                                                  #  THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM.  FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
054265,000050:                                                                                                  #  ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
054266,000051:                                                                                                  #  THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST.  ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
054267,000052:                                                                                                  #  PROVIDE A STATE VECTOR TO BE INTEGRATED.  THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
054268,000053:                                                                                                  #  CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
054269,000054:                                                                                                  #  THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION.  THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
054270,000055:                                                                                                  #  NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
054271,000056:                                                                                                  #  VECTOR.  ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
054272,000057:                                                                                                  #  AND/OR STATE VECTOR.
054273,000058: 
054274,000059:                                                                                                  #  THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS.  TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
054275,000060:                                                                                                  #  USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM.  THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
054276,000061:                                                                                                  #  IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
054277,000062: 
054278,000063:                                                                                                  #  THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
054279,000064:                                                                                                  #  THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
054280,000065:                                                                                                  #  SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
054281,000066: 
054282,000067:                                                                                                  #  APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
054283,000068: 
054284,000069:                                                                                                  #  2.1 RESTARTS
054285,000070: 
054286,000071:                                                                                                  #  PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
054287,000072:                                                                                                  #  INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.)  THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
054288,000073:                                                                                                  #  (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS.  IF A RESTART OCCURS DURING AN
054289,000074:                                                                                                  #  INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM.  CALLING
054290,000075:                                                                                                  #  PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
054291,000076:                                                                                                  #  THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
054292,000077:                                                                                                  #  THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
054293,000078: 
054294,000079:                                                                                                  #  2.2 SCALING
054295,000080: 
054296,000081:                                                                                                  #  THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
054297,000082:                                                                                                  #  APPENDIX B OF THE USERS GUIDE.  THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
054298,000083:                                                                                                  #  SYSTEM AT THE DESIRED INTEGRATION TIME.  THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
054299,000084:                                                                                                  #  MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY.  THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
054300,000085:                                                                                                  #  DIFFERENT SCALING.
054301,000086:                                                                                                  #  HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
054302,000087: 
054303,000088:                                                                                                  #  3.0 INPUT/OUTPUT
054304,000089:                                                                                                  #  ----------------
054305,000090: 
054306,000091:                                                                                                  #  PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
054307,000092:                                                                                                  #  PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
054308,000093:                                                                                                  #  FOR INTEGRVS, THE RCV,VCV,TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
054309,000094: 
054310,000095:                                                                                                  #  FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
054311,000096:                                                                                                  #                                                                                EARTH   MOON
054312,000097:                                                                                                  #                                                                                 29      27
054313,000098:                                                                                                  #        RRECTCSM(LEM)   -       RECTIFIED POSITION VECTOR       METERS          2       2
054314,000099: 
054315,000100:                                                                                                  #                                                                                 7       5
054316,000101:                                                                                                  #        VRECTCSM(LEM)   -       RECTIFIED VELOCITY VECTOR       M/CSEC          2       2
054317,000102: 
054318,000103:                                                                                                  #                                                                                 28      28
054319,000104:                                                                                                  #        TETCSM(LEM)     -       TIME STATE VECTOR IS VALID      CSEC            2       2
054320,000105:                                                                                                  #                                CUSTOMARILY 0, BUT NOTE LUNAR
054321,000106:                                                                                                  #                                ORBIT DEPENDENCE ON REAL TIME.
054322,000107: 
054323,000108:                                                                                                  #                                                                                 22      18
054324,000109:                                                                                                  #        DELTAVCSM(LEM)  -       POSITION DEVIATION              METERS          2       2
054325,000110:                                                                                                  #                                0 IF TCCSM(LEM) = 0
054326,000111: 
054327,000112:                                                                                                  #                                                                                 3       -1
054328,000113:                                                                                                  #        NUVCSM(LEM)     -       VELOCITY DEVIATION              M/CSEC          2       2
054329,000114:                                                                                                  #                                0 IF TCCSM(LEM) = 0
054330,000115:                                                                                                  #                                                                                 29      27
054331,000116:                                                                                                  #        RCVCSM(LEM)     -       CONIC POSITION                  METERS          2       2
054332,000117:                                                                                                  #                                EQUALS RRECTCSM(LEM) IF
054333,000118:                                                                                                  #                                TCCSM(LEM) = 0
054334,000119: 
054335,000120:                                                                                                  #                                                                                 7       5
054336,000121:                                                                                                  #        VCVCSM(LEM)     -       CONIC VELOCITY                  M/CSEC          2       2
054337,000122:                                                                                                  #                                EQUALS VRECTCSM(LEM) IF
054338,000123:                                                                                                  #                                TCCSM(LEM) = 0
054339,000124: 
054340,000125:                                                                                                  #                                                                                 28      28
054341,000126:                                                                                                  #        TCCSM(LEM)      -       TIME SINCE RECTIFICATION        CSECS           2       2
054342,000127:                                                                                                  #                                CUSTOMARILY 0
054343,000128: 
054344,000129:                                                                                                  #                                                                 1/2             17      16
054345,000130:                                                                                                  #        XKEPCSM(LEM)    -       ROOT OF KEPLERS EQUATION        M               2       2
054346,000131:                                                                                                  #                                0 IF TCCSM(LEM) = 0
054347,000132: 
054348,000133:                                                                                                  #        CMOONFLG        -       PERMANENT FLAGS CORRESPONDING                   0       0
054349,000134:                                                                                                  #        CMIDFLAG                TO MOONFLAG AND MIDFLAG                         0,1     0,1
054350,000135:                                                                                                  #        LMOONFLG                C = CSM, L = LM                                 0       0
054351,000136:                                                                                                  #        LMIDFLG                                                                 0,1     0,1
054352,000137: 
054353,000138:                                                                                                  #        SURFFLAG        -       LUNAR SURFACE FLAG                              0,1     0,1
054354,000139: 
054355,000140:                                                                                                  #  IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
054356,000141:                                                                                                  #  SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
054357,000142:                                                                                                  #  ROUTINE MUST BE PRESET.
054358,000143: 
054359,000144:                                                                                                  #  OUTPUT
054360,000145:                                                                                                  #        AFTER EVERY CALL TO INTEGRATION
054361,000146:                                                                                                  #                                                                        EARTH   MOON
054362,000147:                                                                                                  #                                                                         29      29
054363,000148:                                                                                                  #        0D      RATT    POSITION                        METERS          2       2
054364,000149: 
054365,000150:                                                                                                  #                                                                         7       7
054366,000151:                                                                                                  #        6D      VATT    VELOCITY                        M/CSEC          2       2
054367,000152: 
054368,000153:                                                                                                  #                                                                         28      28
054369,000154:                                                                                                  #        12D     TAT     TIME                                            2       2
054370,000155: 
054371,000156:                                                                                                  #                                                                         29      27
054372,000157:                                                                                                  #        14D     RATT1   POSITION                        METERS          2       2
054373,000158: 
054374,000159:                                                                                                  #                                                                         7       5
054375,000160:                                                                                                  #        20D     VATT1   VELOCITY                        M/CSEC          2       2
054376,000161: 
054377,000162:                                                                                                  #                                                         3   2           36      30
054378,000163:                                                                                                  #        26D     MU(P)   MU                              M /CS           2       2
054379,000164: 
054380,000165:                                                                                                  #        X1              MUTABLE ENTRY                                   -2      -10D
054381,000166: 
054382,000167:                                                                                                  #        X2              COORDINT
054383,000168:                                                                                                  #        X2              COORDINATE SYSTEM ORIGEN                        0       2
054384,000169:                                                                                                  #                        (THIS, NOT MOONFLAG, SHOULD BE
054385,000170:                                                                                                  #                        USED TO DETERMINE ORIGIN.)
054386,000171: 
054387,000172:                                                                                                  #  IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
054388,000173:                                                                                                  #  STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED.  THE PUSH
054389,000174:                                                                                                  #  COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
054390,000175:                                                                                                  #  CALLING PROGRAM.
054391,000176: 
054392,000177:                                                                                                  #  4.0 CALLING SEQUENCES AND SAMPLE CODE
054393,000178:                                                                                                  #  -------------------------------------
054394,000179: 
054395,000180:                                                                                                  #        A) PRECISION ORBITAL INTEGRATION.  CSMPREC, LEMPREC ENTRANCES
054396,000181:                                                                                                  #                L-X     STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
054397,000182:                                                                                                  #                L       CALL
054398,000183:                                                                                                  #                L+1             CSMPREC (OR LEMPREC)
054399,000184:                                                                                                  #                L+2     RETURN
054400,000185:                                                                                                  #           INPUT                                                           28
054401,000186:                                                                                                  #                TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
054402,000187:                                                                                                  #           OUTPUT
054403,000188:                                                                                                  #                THE DATA LISTED IN SECTION 3.0 PLUS
054404,000189:                                                                                                  #                RQVV    POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
054405,000190:                                                                                                  #                BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
054406,000191:                                                                                                  #        B) CONIC INTEGRATION.  CSMCONIC, LEMCONIC ENTRANCES
054407,000192:                                                                                                  #                L-X     STORE TIME IN PUSH LIST (TDEC1)
054408,000193:                                                                                                  #                L       CALL
054409,000194:                                                                                                  #                L+1             CSMCONIC (OR LEMCONIC)
054410,000195:                                                                                                  #           INPUT/OUTPUT
054411,000196:                                                                                                  #                SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
054412,000197:                                                                                                  #        C) INTEGRATE GIVEN STATE VECTOR.  INTEGRVS ENTRANCE
054413,000198:                                                                                                  #                CALL
054414,000199:                                                                                                  #                                INTSTALL
054415,000200:                                                                                                  #                VLOAD
054416,000201:                                                                                                  #                                POSITION VECTOR
054417,000202:                                                                                                  #                STOVL           RCV
054418,000203:                                                                                                  #                                VELOCITY VECTOR
054419,000204:                                                                                                  #                STODL           VCV
054420,000205:                                                                                                  #                                TIME STATE VECTOR VALID
054421,000206:                                                                                                  #                STODL           TET
054422,000207:                                                                                                  #                                FINAL RADIUS
054423,000208:                                                                                                  #                STORE           RFINAL
054424,000209:                                                                                                  #                SET(CLEAR)      SET(CLEAR)
054425,000210:                                                                                                  #                                INTYPFLAG
054426,000211:                                                                                                  #                                MOONFLAG
054427,000212:                                                                                                  #                SET(CLEAR)      DLOAD
054428,000213:                                                                                                  #                                DESIRED TIME
054429,000214:                                                                                                  #                STCALL          TDEC1
054430,000215:                                                                                                  #                                INTEGRVS
054431,000216:                                                                                                  #          INPUT
054432,000217:                                                                                                  #                RCV     POSITION VECTOR                 METERS
054433,000218:                                                                                                  #                VCV     VELOCITY VECTOR                 M/CSEC
054434,000219:                                                                                                  #                TET     TIME OF STATE VECTOR (MAY = 0)  CSEC B-28
054435,000220:                                                                                                  #                TDEC1   TIME TO INTEGRATE TO            CSEC B-28 (PD 32D)
054436,000221:                                                                                                  #                        (MAY BE INCREMENT IF TET=0)
054437,000222:                                                                                                  #          OUTPUT
054438,000223:                                                                                                  #                SAME AS FOR PRECISION OR CONIC INTEGRATION,
054439,000224:                                                                                                  #                DEPENDING ON INTYPFLG.
054440,000225:                                                                                                  #        D) INTEGRATE STATE VECTOR.  INTGRV ENTRANCE
054441,000226:                                                                                                  #                L-X     STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
054442,000227:                                                                                                  #                L-8     CALL
054443,000228:                                                                                                  #                L-7
054444,000229:                                                                                                  #                L-6     SET(CLEAR)      SET(CLEAR)
054445,000230:                                                                                                  #                L-5                     VINTFLAG        1=CSM, 0=LM
054446,000231:                                                                                                  #                L-4                     INTYPFLAG       1=CONIC, 0=PRECISION
054447,000232:                                                                                                  #                L-3     SET(CLEAR)      SET(CLEAR)
054448,000233:                                                                                                  #                L-2                     DIMOFLAG        1=W-MATRIX, 0=NO W-MATRIX
054449,000234:                                                                                                  #                L-1                     D6OR9FLG        1=9X9, 0=6X6
054450,000235:                                                                                                  #                L       SET             DLOAD
054451,000236:                                                                                                  #                L+1                     STATEFLG        DESIRE PERMANENT UPDATE
054452,000237:                                                                                                  #                L+2                     FINAL RAD.      OF STATE VECTOR
054453,000238:                                                                                                  #                L+3     STCALL          RFINAL
054454,000239:                                                                                                  #                L+4                     INTEGRV
054455,000240:                                                                                                  #                L       CALL                            NORMAL USE -- WILL UPDATE STATE
054456,000241:                                                                                                  #                L+1                     INTEGRV         VECTOR IF DIMOFLAG=1. (STATEFLG IS
054457,000242:                                                                                                  #                L+2     RETURN                          ALWAYS RESET IN INTEGRATION AFTER
054458,000243:                                                                                                  #                                                        IT IS USED.)
054459,000244:                                                                                                  #          INPUT
054460,000245:                                                                                                  #                TDEC1 (PD 32D) TIME TO INTEGRATE TO     CSEC B-28
054461,000246:                                                                                                  #          OUTPUT
054462,000247:                                                                                                  #                SAME AS FOR PRECISION OR CONIC INTEGRATION
054463,000248:                                                                                                  #          THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
054464,000249:                                                                                                  #          THE PERMANENT STATE VECTOR REPRESENTATION.
054465,000250: 
054466,000251: 11,2312                                           BANK     11                                    
054467,000252: 13,2000                                           SETLOC   INTINIT                               
054468,000253: 13,2000                                           BANK                                           
054469,000254: 13,2637  E3,1554                                  EBANK=   RRECTCSM                              
054470,000255: 13,2637                                           COUNT    13/INTIN                              
054471,000256: 
054472,000257: 13,2637           05426        STATEINT           TC       PHASCHNG                              
054473,000258: 13,2640           00052                           OCT      00052                                 
054474,000259: 13,2641           35075                           CAF      PRIO5                                 
054475,000260: 13,2642           05163                           TC       FINDVAC                               
054476,000261: 13,2643  E3,1554                                  EBANK=   RRECTCSM                              
054477,000262: 13,2643           02646 26063                     2CADR    STATINT1                              
054478,000263: 
054479,000264: 13,2645           05340                           TC       TASKOVER                              
054480,000265: 13,2646           06006        STATINT1           TC       INTPRET                               
054481,000266: 13,2647           47014                           BON      RTB                                   
054482,000267: 13,2650           04712                                    QUITFLAG                              
054483,000268: 13,2651           26707                                    NOINT                                 #  NO STATEINT IF V96
054484,000269: 13,2652           45510                                    LOADTIME                              
054485,000270: 13,2653           00041                           STORE    TDEC1                                 
054486,000271: 13,2654           45014                           CLEAR    CALL                                  
054487,000272: 13,2655           04274                                    V96ONFLG                              
054488,000273: 13,2656           27452                                    INTSTALL                              
054489,000274: 13,2657           45014                           SET      CALL                                  
054490,000275: 13,2660           01076                                    NODOFLAG                              
054491,000276: 13,2661           26700                                    SETIFLGS                              
054492,000277: 13,2662           77650                           GOTO                                           
054493,000278: 13,2663           26000                                    STATEUP                               
054494,000279: 13,2664           00003 25140  600SECS            2DEC     60000      B-28                       
054495,000280: 
054496,000281: 13,2666           77414        ENDINT             CLEAR    EXIT                                  
054497,000282: 13,2667           01672                                    STATEFLG                              
054498,000283: 13,2670           05426                           TC       PHASCHNG                              
054499,000284: 13,2671           20032                           OCT      20032                                 
054500,000285: 13,2672           00006                           EXTEND                                         
054501,000286: 13,2673           32665                           DCA      600SECS                               
054502,000287: 13,2674           05356                           TC       LONGCALL                              
054503,000288: 13,2675  E3,1554                                  EBANK=   RRECTHIS                              
054504,000289: 13,2675           02637 26063                     2CADR    STATEINT                              
054505,000290: 
054506,000291: 13,2677           05233                           TC       ENDOFJOB                              
054507,000292: 13,2700           43014        SETIFLGS           SET      CLEAR                                 
054508,000293: 13,2701           01472                                    STATEFLG                              
054509,000294: 13,2702           01673                                    INTYPFLG                              
054510,000295: 13,2703           43014                           CLEAR    CLEAR                                 
054511,000296: 13,2704           01676                                    DIM0FLAG                              
054512,000297: 13,2705           01675                                    D6OR9FLG                              
054513,000298: 13,2706           77616                           RVQ                                            
054514,000299: 13,2707           77776        NOINT              EXIT                                           
054515,000300: 13,2710           05426                           TC       PHASCHNG                              
054516,000301: 13,2711           00002                           OCT      2                                     
054517,000302: 
054518,000303: 13,2712           05574                           TC       DOWNFLAG                              
054519,000304: 13,2713           00221                           ADRES    QUITFLAG                              
054520,000305: 
054521,000306: 13,2714           05233                           TC       ENDOFJOB                              
054522,000307: 
054523,000308:                                                                                                  #  ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
054524,000309: 
054525,000310:                                                                                                  #  CALLING SEQUENCE
054526,000311:                                                                                                  #        L       CALL
054527,000312:                                                                                                  #        L+1             ATOPCSM
054528,000313: 
054529,000314:                                                                                                  #  NORMAL EXIT AT L+2
054530,000315: 
054531,000316: 13,2715           47020        ATOPCSM            STQ      RTB                                   
054532,000317: 13,2716           00051                                    S2                                    
054533,000318: 13,2717           26730                                    MOVEACSM                              
054534,000319: 13,2720           45014                           SET      CALL                                  
054535,000320: 13,2721           04063                                    CMOONFLG                              
054536,000321: 13,2722           20237                                    SVDWN1                                
054537,000322: 13,2723           43014                           BON      CLRGO                                 
054538,000323: 13,2724           00303                                    MOONFLAG                              
054539,000324: 13,2725           00051                                    S2                                    
054540,000325: 13,2726           04223                                    CMOONFLG                              
054541,000326: 13,2727           00051                                    S2                                    
054542,000327: 13,2730           03074        MOVEACSM           TC       SETBANK                               
054543,000328: 13,2731           55500                           TS       DIFEQCNT                              #  INITIALIZE INDEX
054544,000329: 13,2732           51500                           INDEX    DIFEQCNT                              
054545,000330: 13,2733           31502                           CA       RRECT                                 
054546,000331: 13,2734           51500                           INDEX    DIFEQCNT                              
054547,000332: 13,2735           55554                           TS       RRECTCSM                              
054548,000333: 13,2736           11500                           CCS      DIFEQCNT                              #  IS TRANSFER COMPLETE
054549,000334: 13,2737           12731                           TCF      MOVEACSM   +1                         #  NO-LOOP
054550,000335: 13,2740           06030                           TC       DANZIG                                #  COMPLETE - RETURN
054551,000336: 
054552,000337:                                                                                                  #  PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
054553,000338: 
054554,000339:                                                                                                  #  CALLING SEQUENCE
054555,000340:                                                                                                  #        L       CALL
054556,000341:                                                                                                  #                        PTOACSM
054557,000342: 
054558,000343:                                                                                                  #  NORMAL EXIT AT L+2
054559,000344: 
054560,000345: 13,2741           43034        PTOACSM            RTB      BON                                   
054561,000346: 13,2742           26757                                    MOVEPCSM                              
054562,000347: 13,2743           04303                                    CMOONFLG                              
054563,000348: 13,2744           26752                                    SETMOON                               
054564,000349: 13,2745           66214        CLRMOON            CLEAR    SSP                                   
054565,000350: 13,2746           00263                                    MOONFLAG                              
054566,000351: 13,2747           02151                                    PBODY                                 
054567,000352: 13,2750           00000                                    0                                     
054568,000353: 13,2751           77616                           RVQ                                            
054569,000354: 13,2752           66214        SETMOON            SET      SSP                                   
054570,000355: 13,2753           00063                                    MOONFLAG                              
054571,000356: 13,2754           02151                                    PBODY                                 
054572,000357: 13,2755           00002                                    2                                     
054573,000358: 13,2756           77616                           RVQ                                            
054574,000359: 13,2757           03074        MOVEPCSM           TC       SETBANK                               
054575,000360: 13,2760           55500                           TS       DIFEQCNT                              
054576,000361: 13,2761           51500                           INDEX    DIFEQCNT                              
054577,000362: 13,2762           31554                           CA       RRECTCSM                              
054578,000363: 13,2763           51500                           INDEX    DIFEQCNT                              
054579,000364: 13,2764           55502                           TS       RRECT                                 
054580,000365: 13,2765           11500                           CCS      DIFEQCNT                              
054581,000366: 13,2766           12760                           TCF      MOVEPCSM   +1                         
054582,000367: 13,2767           06030                           TC       DANZIG                                
054583,000368: 
054584,000369:                                                                                                  #  ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
054585,000370: 13,2770           47020        ATOPLEM            STQ      RTB                                   
054586,000371: 13,2771           00051                                    S2                                    
054587,000372: 13,2772           27003                                    MOVEALEM                              
054588,000373: 13,2773           45014                           SET      CALL                                  
054589,000374: 13,2774           04064                                    LMOONFLG                              
054590,000375: 13,2775           20263                                    SVDWN2                                
054591,000376: 13,2776           43014                           BON      CLRGO                                 
054592,000377: 13,2777           00303                                    MOONFLAG                              
054593,000378: 13,3000           00051                                    S2                                    
054594,000379: 13,3001           04224                                    LMOONFLG                              
054595,000380: 13,3002           00051                                    S2                                    
054596,000381: 13,3003           03074        MOVEALEM           TC       SETBANK                               
054597,000382: 13,3004           55500                           TS       DIFEQCNT                              
054598,000383: 13,3005           51500                           INDEX    DIFEQCNT                              
054599,000384: 13,3006           31502                           CA       RRECT                                 
054600,000385: 13,3007           51500                           INDEX    DIFEQCNT                              
054601,000386: 13,3010           55626                           TS       RRECTLEM                              
054602,000387: 13,3011           11500                           CCS      DIFEQCNT                              
054603,000388: 13,3012           13004                           TCF      MOVEALEM   +1                         
054604,000389: 13,3013           06030                           TC       DANZIG                                
054605,000390: 
054606,000391:                                                                                                  #  PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
054607,000392: 
054608,000393: 13,3014           47014        PTOALEM            BON      RTB                                   
054609,000394: 13,3015           04307                                    SURFFLAG                              
054610,000395: 13,3016           27035                                    USEPIOS                               
054611,000396: 13,3017           27024                                    MOVEPLEM                              
054612,000397: 13,3020           52014                           BON      GOTO                                  
054613,000398: 13,3021           04304                                    LMOONFLG                              
054614,000399: 13,3022           26752                                    SETMOON                               
054615,000400: 13,3023           26745                                    CLRMOON                               
054616,000401: 13,3024           03074        MOVEPLEM           TC       SETBANK                               
054617,000402: 13,3025           55500                           TS       DIFEQCNT                              
054618,000403: 13,3026           51500                           INDEX    DIFEQCNT                              
054619,000404: 13,3027           31626                           CA       RRECTLEM                              
054620,000405: 13,3030           51500                           INDEX    DIFEQCNT                              
054621,000406: 13,3031           55502                           TS       RRECT                                 
054622,000407: 13,3032           11500                           CCS      DIFEQCNT                              
054623,000408: 13,3033           13025                           TCF      MOVEPLEM   +1                         
054624,000409: 13,3034           06030                           TC       DANZIG                                
054625,000410: 
054626,000411: 13,3035           77201        USEPIOS            SETPD    VLOAD                                 
054627,000412: 13,3036           00001                                    0                                     
054628,000413: 13,3037           02026                                    RLS                                   
054629,000414: 13,3040           41525                           PDDL     PUSH                                  
054630,000415: 13,3041           00041                                    TDEC1                                 
054631,000416: 13,3042           15517                           STODL    TET                                   
054632,000417: 13,3043           27763                                    5/8                                   
054633,000418: 13,3044           77624                           CALL                                           
054634,000419: 13,3045           55343                                    RP-TO-R                               
054635,000420: 13,3046           25535                           STOVL    RCV                                   
054636,000421: 13,3047           11560                                    ZUNIT                                 
054637,000422: 13,3050           14001                           STODL    0D                                    
054638,000423: 13,3051           01517                                    TET                                   
054639,000424: 13,3052           14007                           STODL    6D                                    
054640,000425: 13,3053           27763                                    5/8                                   
054641,000426: 13,3054           45014                           SET      CALL                                  #  NEEDED FOR SETTING X1 ON EXIT
054642,000427: 13,3055           00063                                    MOONFLAG                              
054643,000428: 13,3056           55343                                    RP-TO-R                               
054644,000429: 13,3057           74235                           VXV      VXSC                                  
054645,000430: 13,3060           01535                                    RCV                                   
054646,000431: 13,3061           27073                                    OMEGMOON                              
054647,000432: 13,3062           25543                           STOVL    VCV                                   
054648,000433: 13,3063           11566                                    ZEROVEC                               
054649,000434: 13,3064           01521                           STORE    TDELTAV                               
054650,000435: 13,3065           67174                           AXT,2    SXA,2                                 
054651,000436: 13,3066           00002                                    2                                     
054652,000437: 13,3067           02150                                    PBODY                                 
054653,000438: 13,3070           35527                           STCALL   TNUV                                  
054654,000439: 13,3071           27206                                    A-PCHK                                
054655,000440: 13,3072           07112 06620  OMEGMOON           2DEC*    2.66169947 E-8        B+23*           
054656,000441: 
054657,000442: 13,3074           33100        SETBANK            CAF      INTBANK                               
054658,000443: 13,3075           54006                           TS       BBANK                                 
054659,000444: 13,3076           33517                           CAF      FORTYONE                              
054660,000445: 13,3077           00002                           TC       Q                                     
054661,000446: 13,3100  E3,1554                                  EBANK=   RRECTCSM                              
054662,000447: 13,3100           26063        INTBANK            BBCON    INTEGRV                               
054663,000448: 
054664,000449:                                                                                                  #  SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION.  THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
054665,000450:                                                                                                  #  APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
054666,000451: 
054667,000452:                                                                                                  #  CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
054668,000453:                                                                                                  #  ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED.  NO W-MATRIX INT. IS DONE.
054669,000454:                                                                                                  #  THE PERMANENT STATE VECTOR IS NOT UPDATED.
054670,000455:                                                                                                  #  CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
054671,000456:                                                                                                  #  NO DISTURBING ACCELERATIONS ARE INCLUDED.  IN THE PROGRAM FLOW THE GIVEN
054672,000457:                                                                                                  #  STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
054673,000458: 
054674,000459:                                                                                                  #  THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
054675,000460:                                                                                                  #  SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
054676,000461:                                                                                                  #                        CSMPREC         CSMCONIC        LEMPREC         LEMCONIC
054677,000462:                                                                                                  #        VINTFLAG        SET             SET             CLEAR           CLEAR
054678,000463:                                                                                                  #        INTYPFLG        CLEAR           SET             CLEAR           SET
054679,000464:                                                                                                  #        DIM0FLAG        CLEAR           CLEAR           CLEAR           CLEAR
054680,000465: 
054681,000466:                                                                                                  #  CALLING SEQUENCE
054682,000467:                                                                                                  #        L-X     STORE   TDEC1
054683,000468:                                                                                                  #        L       CALL                    (STCALL TDEC1)
054684,000469:                                                                                                  #        L+1             CSMPREC         (CSMCONIC, LEMPREC, LEMCONIC)
054685,000470: 
054686,000471:                                                                                                  #  NORMAL EXIT TO L+2
054687,000472: 
054688,000473:                                                                                                  #  SUBROUTINES CALLED
054689,000474:                                                                                                  #        INTEGRV1
054690,000475:                                                                                                  #        PRECOUT FOR CSMPREC AND LEMPREC
054691,000476:                                                                                                  #        CONICOUT FOR CSMCONIC AND LEMCONIC
054692,000477: 
054693,000478:                                                                                                  #  OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
054694,000479: 
054695,000480:                                                                                                  #  INPUT
054696,000481:                                                                                                  #        TDEC1           TIME TO INTEGRATE TO.  CSECS B-28
054697,000482: 
054698,000483: 13,3101           45020        CSMPREC            STQ      CALL                                  
054699,000484: 13,3102           00046                                    X1                                    
054700,000485: 13,3103           27452                                    INTSTALL                              
054701,000486: 13,3104           43130                           SXA,1    SET                                   
054702,000487: 13,3105           02214                                    IRETURN                               
054703,000488: 13,3106           01474                                    VINTFLAG                              
054704,000489: 
054705,000490: 13,3107           43014        IFLAGP             SET      CLEAR                                 
054706,000491: 13,3110           01467                                    PRECIFLG                              
054707,000492: 13,3111           01676                                    DIM0FLAG                              
054708,000493: 13,3112           77614                           CLRGO                                          
054709,000494: 13,3113           01633                                    INTYPFLG                              
054710,000495: 13,3114           27174                                    INTEGRV1                              
054711,000496: 13,3115           45020        LEMPREC            STQ      CALL                                  
054712,000497: 13,3116           00046                                    X1                                    
054713,000498: 13,3117           27452                                    INTSTALL                              
054714,000499: 13,3120           43130                           SXA,1    CLRGO                                 
054715,000500: 13,3121           02214                                    IRETURN                               
054716,000501: 13,3122           01634                                    VINTFLAG                              
054717,000502: 13,3123           27107                                    IFLAGP                                
054718,000503: 
054719,000504: 13,3124           45020        CSMCONIC           STQ      CALL                                  
054720,000505: 13,3125           00046                                    X1                                    
054721,000506: 13,3126           27452                                    INTSTALL                              
054722,000507: 13,3127           43130                           SXA,1    SET                                   
054723,000508: 13,3130           02214                                    IRETURN                               
054724,000509: 13,3131           01474                                    VINTFLAG                              
054725,000510: 13,3132           43014        IFLAGC             CLEAR    SETGO                                 
054726,000511: 13,3133           01676                                    DIM0FLAG                              
054727,000512: 13,3134           01433                                    INTYPFLG                              
054728,000513: 13,3135           27174                                    INTEGRV1                              
054729,000514: 13,3136           45020        LEMCONIC           STQ      CALL                                  
054730,000515: 13,3137           00046                                    X1                                    
054731,000516: 13,3140           27452                                    INTSTALL                              
054732,000517: 13,3141           43130                           SXA,1    CLRGO                                 
054733,000518: 13,3142           02214                                    IRETURN                               
054734,000519: 13,3143           01634                                    VINTFLAG                              
054735,000520: 13,3144           27132                                    IFLAGC                                
054736,000521: 
054737,000522: 13,3145           66214        INTEGRVS           SET      SSP                                   
054738,000523: 13,3146           01467                                    PRECIFLG                              
054739,000524: 13,3147           02151                                    PBODY                                 
054740,000525: 13,3150           00000                                    0                                     
054741,000526: 13,3151           66214                           BOF      SSP                                   
054742,000527: 13,3152           00343                                    MOONFLAG                              
054743,000528: 13,3153           27156                                    +3                                    
054744,000529: 13,3154           02151                                    PBODY                                 
054745,000530: 13,3155           00002                                    2                                     
054746,000531: 13,3156           77220                           STQ      VLOAD                                 
054747,000532: 13,3157           02214                                    IRETURN                               
054748,000533: 13,3160           11566                                    ZEROVEC                               
054749,000534: 13,3161           01521                           STORE    TDELTAV                               
054750,000535: 13,3162           35527                           STCALL   TNUV                                  
054751,000536: 13,3163           23403                                    RECTIFY                               
054752,000537: 13,3164           43014                           CLEAR    SET                                   
054753,000538: 13,3165           01676                                    DIM0FLAG                              
054754,000539: 13,3166           04062                                    NEWIFLG                               
054755,000540: 13,3167           77614                           SETGO                                          
054756,000541: 13,3170           04020                                    RPQFLAG                               
054757,000542: 13,3171           22312                                    ALOADED                               
054758,000543: 
054759,000544:                                                                                                  #  INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
054760,000545:                                                                                                  #  NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS.  THE ROUTINE
054761,000546:                                                                                                  #  IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
054762,000547:                                                                                                  #  THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
054763,000548:                                                                                                  #  PROGRAM FOR PRECISION OR CONIC
054764,000549: 
054765,000550:                                                                                                  #  THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
054766,000551:                                                                                                  #  SETTING ANY FLAGS.
054767,000552: 
054768,000553:                                                                                                  #  THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
054769,000554:                                                                                                  #        VINTFLAG        (IGNORED WHEN ENTERED FROM INTEGRVS)
054770,000555:                                                                                                  #        INTYPFLG
054771,000556:                                                                                                  #        DIM0FLAG
054772,000557:                                                                                                  #        D6OR9FLG
054773,000558: 
054774,000559:                                                                                                  #  CALLING SEQUENCE
054775,000560:                                                                                                  #        L-X     CALL
054776,000561:                                                                                                  #        L-Y             INTSTALL
054777,000562:                                                                                                  #        L-1     SET OR CLEAR ALL FOUR FLAGS.  ALSO CAN SET STATEFLG IF DESIRED
054778,000563:                                                                                                  #                AND DIM0FLAG IS CLEAR.
054779,000564:                                                                                                  #        L       CALL
054780,000565:                                                                                                  #        L+1             INTEGRV
054781,000566: 
054782,000567:                                                                                                  #  INITIALIZATION
054783,000568:                                                                                                  #        FLAGS AS ABOVE
054784,000569:                                                                                                  #        STORE TIME TO INTEGRATE TO IN TDEC1
054785,000570: 
054786,000571:                                                                                                  #  OUTPUT
054787,000572:                                                                                                  #        RATT    AS
054788,000573:                                                                                                  #        VATT          DEFINED
054789,000574:                                                                                                  #        TAT                     BEFORE
054790,000575: 
054791,000576: 13,3172           77620        INTEGRV            STQ                                            
054792,000577: 13,3173           02214                                    IRETURN                               
054793,000578: 13,3174           43014        INTEGRV1           SET      SET                                   
054794,000579: 13,3175           04060                                    RPQFLAG                               
054795,000580: 13,3176           04062                                    NEWIFLG                               
054796,000581: 13,3177           77731        INTEGRV2           SSP                                            
054797,000582: 13,3200           00053                                    QPRET                                 
054798,000583: 13,3201           22312                                    ALOADED                               
054799,000584: 13,3202           52014                           BON      GOTO                                  
054800,000585: 13,3203           01714                                    VINTFLAG                              
054801,000586: 13,3204           26741                                    PTOACSM                               
054802,000587: 13,3205           27014                                    PTOALEM                               
054803,000588: 11,2000                                           SETLOC   INTINIT1                              
054804,000589: 11,2000                                           BANK                                           
054805,000590: 11,2312           77745        ALOADED            DLOAD                                          
054806,000591: 11,2313           00041                                    TDEC1                                 
054807,000592: 11,2314           01101                           STORE    TDEC                                  
054808,000593: 11,2315           52014                           BOFF     GOTO                                  
054809,000594: 11,2316           01753                                    INTYPFLG                              
054810,000595: 11,2317           27315                                    TESTLOOP                              
054811,000596: 11,2320           27301                                    RVCON                                 
054812,000597: 13,2000                                           SETLOC   INTINIT                               
054813,000598: 13,2000                                           BANK                                           
054814,000599: 13,3206           45014        A-PCHK             BOF      CALL                                  
054815,000600: 13,3207           00342                                    MIDFLAG                               
054816,000601: 13,3210           27215                                    ANDOUT                                #  DONT MAKE ORIGIN CHANGE CHECK
054817,000602: 13,3211           23302                                    CHKSWTCH                              
054818,000603: 13,3212           45044                           BPL      CALL                                  
054819,000604: 13,3213           27215                                    ANDOUT                                #  NO ORIGIN CHANGE
054820,000605: 13,3214           23343                                    ORIGCHNG                              #  MAKE THE SWITCH
054821,000606: 13,3215           77414        ANDOUT             BOFCLR   EXIT                                  
054822,000607: 13,3216           01652                                    STATEFLG                              
054823,000608: 13,3217           27236                                    RECTOUT                               
054824,000609: 13,3220           05426                           TC       PHASCHNG                              
054825,000610: 13,3221           04022                           OCT      04022                                 
054826,000611: 13,3222           05562                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
054827,000612: 13,3223           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
054828,000613: 13,3224           06006                           TC       INTPRET                               
054829,000614: 13,3225           77731                           SSP                                            
054830,000615: 13,3226           00053                                    QPRET                                 
054831,000616: 13,3227           27234                                    PHEXIT                                
054832,000617: 13,3230           52014                           BON      GOTO                                  
054833,000618: 13,3231           01714                                    VINTFLAG                              
054834,000619: 13,3232           26715                                    ATOPCSM                               
054835,000620: 13,3233           26770                                    ATOPLEM                               
054836,000621: 13,3234           77624        PHEXIT             CALL                                           
054837,000622: 13,3235           56751                                    GRP2PC                                
054838,000623: 13,3236           45001        RECTOUT            SETPD    CALL                                  
054839,000624: 13,3237           00001                                    0                                     
054840,000625: 13,3240           23403                                    RECTIFY                               
054841,000626: 13,3241           53775                           VLOAD    VSL*                                  
054842,000627: 13,3242           01503                                    RRECT                                 
054843,000628: 13,3243           57576                                    0,2                                   
054844,000629: 13,3244           53715                           PDVL     VSL*                                  #  RATT TO PD0
054845,000630: 13,3245           01511                                    VRECT                                 
054846,000631: 13,3246           57576                                    0,2                                   
054847,000632: 13,3247           63325                           PDDL     PDVL                                  #  VATT TO PD6   TAT TO PD12
054848,000633: 13,3250           01517                                    TET                                   
054849,000634: 13,3251           01503                                    RRECT                                 
054850,000635: 13,3252           64715                           PDVL     PDDL*                                 
054851,000636: 13,3253           01511                                    VRECT                                 
054852,000637: 13,3254           50032                                    MUEARTH,2                             
054853,000638: 13,3255           76006                           PUSH     AXT,1                                 
054854,000639: 13,3256           77765                           DEC      -10        B-14                       
054855,000640: 13,3257           76014                           BON      AXT,1                                 
054856,000641: 13,3260           00303                                    MOONFLAG                              
054857,000642: 13,3261           27263                                    +2                                    
054858,000643: 13,3262           77775                           DEC      -2         B-14                       
054859,000644: 13,3263           40001        INTEXIT            SETPD    BOV                                   
054860,000645: 13,3264           00001                                    0                                     
054861,000646: 13,3265           27266                                    +1                                    
054862,000647: 13,3266           77614                           CLEAR                                          
054863,000648: 13,3267           04675                                    MIDAVFLG                              
054864,000649: 13,3270           43014                           CLEAR    CLEAR                                 
054865,000650: 13,3271           04676                                    AVEMIDSW                              #  ALLOW UPDATE OF DOWNLINK STATE VECTOR
054866,000651: 13,3272           01667                                    PRECIFLG                              
054867,000652: 13,3273           77535                           SLOAD    EXIT                                  
054868,000653: 13,3274           02215                                    IRETURN                               
054869,000654: 13,3275           30154                           CA       MPAC                                  
054870,000655: 13,3276           50120                           INDEX    FIXLOC                                
054871,000656: 13,3277           54052                           TS       QPRET                                 
054872,000657: 13,3300           03467                           TC       INTWAKE                               
054873,000658: 
054874,000659:                                                                                                  #  RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
054875,000660:                                                                                                  #  VELOCITY FOR THE INTERVAL (TET-TDEC)
054876,000661: 
054877,000662: 13,3301           45345        RVCON              DLOAD    DSU                                   
054878,000663: 13,3302           01101                                    TDEC                                  
054879,000664: 13,3303           01517                                    TET                                   
054880,000665: 13,3304           36312                           STCALL   TAU.                                  
054881,000666: 13,3305           23403                                    RECTIFY                               
054882,000667: 13,3306           77624                           CALL                                           
054883,000668: 13,3307           22321                                    KEPPREP                               
054884,000669: 13,3310           43345                           DLOAD    DAD                                   
054885,000670: 13,3311           01551                                    TC                                    
054886,000671: 13,3312           01517                                    TET                                   
054887,000672: 13,3313           35517                           STCALL   TET                                   
054888,000673: 13,3314           27236                                    RECTOUT                               
054889,000674: 
054890,000675:                                                                                                  #  TESTLOOP
054891,000676: 
054892,000677: 13,3315           43014        TESTLOOP           BOF      CLRGO                                 
054893,000678: 13,3316           04752                                    QUITFLAG                              
054894,000679: 13,3317           27322                                    +3                                    
054895,000680: 13,3320           01632                                    STATEFLG                              
054896,000681: 13,3321           27263                                    INTEXIT                               #  STOP INTEGRATION
054897,000682: 13,3322           73001                 +3        SETPD    LXA,2                                 
054898,000683: 13,3323           00013                                    10D                                   
054899,000684: 13,3324           02150                                    PBODY                                 
054900,000685: 13,3325           51575                           VLOAD    ABVAL                                 
054901,000686: 13,3326           01535                                    RCV                                   
054902,000687: 13,3327           43006                           PUSH     CLEAR                                 #  RC TO 10D
054903,000688: 13,3330           00262                                    MIDFLAG                               
054904,000689: 13,3331           50023                           DSU*     BMN                                   #  MIDFLAG=0 IF R G.T. RMP
054905,000690: 13,3332           67212                                    RME,2                                 
054906,000691: 13,3333           27336                                    +3                                    
054907,000692: 13,3334           77614                           SET                                            
054908,000693: 13,3335           00062                                    MIDFLAG                               
054909,000694: 13,3336           41345        NORFINAL           DLOAD    DMP                                   
054910,000695: 13,3337           00013                                    10D                                   
054911,000696: 13,3340           00043                                    34D                                   
054912,000697: 13,3341           55762                           SR1R     DDV*                                  
054913,000698: 13,3342           50032                                    MUEARTH,2                             
054914,000699: 13,3343           41366                           SQRT     DMP                                   
054915,000700: 13,3344           23734                                    .3D                                   
054916,000701: 13,3345           40442                           SR3      SR4                                   #  DT IS TRUNCATED TO A MULTIPLE
054917,000702: 13,3346           54345                           DLOAD    SL                                    
054918,000703: 13,3347           00155                                    MPAC                                  
054919,000704: 13,3350           20220                                    15D                                   #        OF 128 CSECS.
054920,000705: 13,3351           40006                           PUSH     BOV                                   
054921,000706: 13,3352           27377                                    MAXDT                                 
054922,000707: 13,3353           50021                           BDSU     BMN                                   
054923,000708: 13,3354           27451                                    DT/2MAX                               
054924,000709: 13,3355           27377                                    MAXDT                                 
054925,000710: 13,3356           45345        DT/2COMP           DLOAD    DSU                                   
054926,000711: 13,3357           01101                                    TDEC                                  
054927,000712: 13,3360           01517                                    TET                                   
054928,000713: 13,3361           54234                           RTB      SL                                    
054929,000714: 13,3362           45544                                    SGNAGREE                              
054930,000715: 13,3363           20211                                    8D                                    
054931,000716: 13,3364           02314                           STORE    DT/2                                  #  B-19
054932,000717: 13,3365           51400                           BOV      ABS                                   
054933,000718: 13,3366           27403                                    GETMAXDT                              
054934,000719: 13,3367           50025                           DSU      BMN                                   #  IS TIME TO INTEG. TO GR THAN MAXTIME
054935,000720: 13,3370           00015                                    12D                                   
054936,000721: 13,3371           27407                                    P00HCHK                               
054937,000722: 13,3372           75345        USEMAXDT           DLOAD    SIGN                                  
054938,000723: 13,3373           00015                                    12D                                   
054939,000724: 13,3374           02314                                    DT/2                                  
054940,000725: 13,3375           36314                           STCALL   DT/2                                  
054941,000726: 13,3376           27407                                    P00HCHK                               
054942,000727: 13,3377           65345        MAXDT              DLOAD    PDDL                                  #  EXCHANGE DT/2MAX WITH COMPUTED MAX.
054943,000728: 13,3400           27451                                    DT/2MAX                               
054944,000729: 13,3401           77650                           GOTO                                           
054945,000730: 13,3402           27356                                    DT/2COMP                              
054946,000731: 13,3403           77634        GETMAXDT           RTB                                            
054947,000732: 13,3404           45712                                    SIGNMPAC                              
054948,000733: 13,3405           36314                           STCALL   DT/2                                  
054949,000734: 13,3406           27372                                    USEMAXDT                              
054950,000735: 13,3407           51545        P00HCHK            DLOAD    ABS                                   
054951,000736: 13,3410           02314                                    DT/2                                  
054952,000737: 13,3411           50025                           DSU      BMN                                   
054953,000738: 13,3412           27447                                    DT/2MIN                               
054954,000739: 13,3413           27206                                    A-PCHK                                
054955,000740: 13,3414           46135                           SLOAD    BHIZ                                  
054956,000741: 13,3415           01012                                    MODREG                                
054957,000742: 13,3416           27421                                    +3                                    
054958,000743: 13,3417           77650                           GOTO                                           
054959,000744: 13,3420           23222                                    TIMESTEP                              
054960,000745: 13,3421           77614                           BON                                            #  WAS THIS CALL VIA CSM(LEM)PREC
054961,000746: 13,3422           01707                                    PRECIFLG                              
054962,000747: 13,3423           23222                                    TIMESTEP                              #  YES
054963,000748: 13,3424           45345                           DLOAD    DSU                                   
054964,000749: 13,3425           02314                                    DT/2                                  
054965,000750: 13,3426           00015                                    12D                                   
054966,000751: 13,3427           43040                           BMN      BOFCLR                                
054967,000752: 13,3430           27206                                    A-PCHK                                
054968,000753: 13,3431           04242                                    NEWIFLG                               
054969,000754: 13,3432           23222                                    TIMESTEP                              
054970,000755: 13,3433           45345                           DLOAD    DSU                                   
054971,000756: 13,3434           01101                                    TDEC                                  
054972,000757: 13,3435           01517                                    TET                                   
054973,000758: 13,3436           77640                           BMN                                            #  NO BACKWARD INTEGRATION
054974,000759: 13,3437           27263                                    INTEXIT                               
054975,000760: 13,3440           40525                           PDDL     SR4                                   
054976,000761: 13,3441           02314                                    DT/2                                  #  IS 4(DT) LS (TDEC - TET)
054977,000762: 13,3442           44322                           SR2R     BDSU                                  #  NO
054978,000763: 13,3443           52040                           BMN      GOTO                                  
054979,000764: 13,3444           27263                                    INTEXIT                               
054980,000765: 13,3445           23222                                    TIMESTEP                              
054981,000766: 13,3446           00000 01400  DT/2MIN            2DEC     3          B-20                       
054982,000767: 
054983,000768: 13,3450           14152 00000  DT/2MAX            2DEC     4000       E2         B-20            
054984,000769: 
054985,000770: 13,3452           77776        INTSTALL           EXIT                                           
054986,000771: 13,3453           35035                           CAF      ZERO                                  
054987,000772: 13,3454           54001        ALLSTALL           TS       L                                     
054988,000773: 13,3455           30106                           CA       RASFLAG                               
054989,000774: 13,3456           50001                           INDEX    L                                     
054990,000775: 13,3457           73550                           MASK     INTBITAB                              #  IS THIS STALL AREA FREE
054991,000776: 13,3460           00006                           EXTEND                                         
054992,000777: 13,3461           13526                           BZF      OKTOGRAB                              #  YES
054993,000778: 13,3462           50001                           INDEX    L                                     
054994,000779: 13,3463           33545                           CAF      WAKESTAL                              
054995,000780: 13,3464           05211                           TC       JOBSLEEP                              
054996,000781: 13,3465           77776        INTWAKE0           EXIT                                           
054997,000782: 13,3466           13507                           TCF      INTWAKE1                              
054998,000783: 
054999,000784: 13,3467           40106        INTWAKE            CS       RASFLAG                               #  IS THIS INTSTALLED ROUTINE TO BE
055000,000785: 13,3470           75025                           MASK     REINTBIT                              #        RESTARTED
055001,000786: 13,3471           10000                           CCS      A                                     
055002,000787: 13,3472           03507                           TC       INTWAKE1                              #  NO
055003,000788: 
055004,000789: 13,3473           50120                           INDEX    FIXLOC                                
055005,000790: 13,3474           30052                           CA       QPRET                                 
055006,000791: 13,3475           55055                           TS       TBASE2                                #  YES, DONT RESTART WITH SOMEONE ELSES Q
055007,000792: 
055008,000793: 13,3476           05426                           TC       PHASCHNG                              
055009,000794: 13,3477           04022                           OCT      04022                                 
055010,000795: 
055011,000796: 13,3500           31055                           CA       TBASE2                                
055012,000797: 13,3501           50120                           INDEX    FIXLOC                                
055013,000798: 13,3502           54052                           TS       QPRET                                 
055014,000799: 
055015,000800: 13,3503           35025                           CAF      REINTBIT                              
055016,000801: 13,3504           70106                           MASK     RASFLAG                               
055017,000802: 13,3505           00006                           EXTEND                                         
055018,000803: 13,3506           13531                           BZF      GOBAC                                 #  DONT INTWAKE IF WE CAME HERE VIA RESTART
055019,000804: 
055020,000805: 13,3507           35035        INTWAKE1           CAF      ZERO                                  
055021,000806: 13,3510           54154        WAKE               TS       STALTEM                               #  INDEX OF ANY STALL USER
055022,000807: 13,3511           50154        WAKE1              INDEX    STALTEM                               
055023,000808: 13,3512           33545                           CAF      WAKESTAL                              
055024,000809: 13,3513           00004                           INHINT                                         
055025,000810: 13,3514           05215                           TC       JOBWAKE                               
055026,000811: 13,3515           10064                           CCS      LOCCTR                                
055027,000812: 13,3516           13511                           TCF      WAKE1                                 #  MAY BE MORE TO WAKE UP
055028,000813: 13,3517           00051        FORTYONE           DEC      41         B-14                       
055029,000814: 13,3520           50154                           INDEX    STALTEM                               
055030,000815: 13,3521           43550                           CS       INTBITAB                              
055031,000816: 13,3522           70106                           MASK     RASFLAG                               
055032,000817: 13,3523           54106                           TS       RASFLAG                               #  RELEASE STALL AREA
055033,000818: 13,3524           00003                           RELINT                                         
055034,000819: 13,3525           13531                           TCF      GOBAC                                 
055035,000820: 13,3526           50001        OKTOGRAB           INDEX    L                                     #  NO, WAIT UNTIL AVAILABLE
055036,000821: 13,3527           35016                           CAF      INTFLBIT                              
055037,000822: 13,3530           26106                           ADS      RASFLAG                               
055038,000823: 13,3531           06006        GOBAC              TC       INTPRET                               
055039,000824: 13,3532           77616                           RVQ                                            
055040,000825: 13,3533           77776        ERASTAL1           EXIT                                           
055041,000826: 13,3534           35033                           CAF      ONE                                   
055042,000827: 13,3535           13454                           TCF      ALLSTALL                              
055043,000828: 13,3536           77776        ERASTAL2           EXIT                                           
055044,000829: 13,3537           35032                           CAF      TWO                                   
055045,000830: 13,3540           13454                           TCF      ALLSTALL                              
055046,000831: 13,3541           35033        ERASWAK1           CAF      ONE                                   
055047,000832: 13,3542           13510                           TCF      WAKE                                  
055048,000833: 13,3543           35032        ERASWAK2           CAF      TWO                                   
055049,000834: 13,3544           13510                           TCF      WAKE                                  
055050,000835: 13,3545           27453        WAKESTAL           CADR     INTSTALL   +1                         
055051,000836: 13,3546           27534                           CADR     ERASTAL1   +1                         
055052,000837: 13,3547           27537                           CADR     ERASTAL2   +1                         
055053,000838: 13,3550     0154               STALTEM            EQUALS   MPAC                                  
055054,000839: 13,3550           20100        INTBITAB           OCT      20100                                 
055055,000840: 13,3551           10040                           OCT      10040                                 
055056,000841: 13,3552           04020                           OCT      04020                                 
055057,000842: 
055058,000843:                                                                                                  #  AVETOMID
055059,000844: 
055060,000845:                                                                                                  #  THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
055061,000846:                                                                                                  #  PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
055062,000847:                                                                                                  #  VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
055063,000848: 
055064,000849:                                                                                                  #  BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
055065,000850:                                                                                                  #  SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
055066,000851: 
055067,000852:                                                                                                  #  IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
055068,000853: 
055069,000854:                                                                                                  #  FINALLY TRKMKCNT IS ZEROED
055070,000855: 
055071,000856: 35,2000                                           SETLOC   INTINIT2                              
055072,000857: 35,2000                                           BANK                                           
055073,000858: 
055074,000859: 35,3675                                           COUNT*   $$/INTIN                              
055075,000860: 35,3675           43020        AVETOMID           STQ      BON                                   
055076,000861: 35,3676           02317                                    EGRESS                                
055077,000862: 35,3677           02716                                    RENDWFLG                              
055078,000863: 35,3700           73753                                    INT/W                                 #  W-MATRIX VALID, GO INTEGRATE IT
055079,000864: 35,3701           77614                           BON                                            
055080,000865: 35,3702           01711                                    ORBWFLAG                              
055081,000866: 35,3703           73753                                    INT/W                                 #  W-MATRIX VALID, GO INTEGRATE IT
055082,000867: 
055083,000868: 35,3704           45174        SETCOAST           AXT,2    CALL                                  #  NOW MOVE PROPERLY SCALED RN,VN AND
055084,000869: 35,3705           00002                                    2                                     #  PIPTIME TO INTEGRATION ERASABLES.
055085,000870: 35,3706           27452                                    INTSTALL                              
055086,000871: 35,3707           77014                           BON      AXT,2                                 
055087,000872: 35,3710           00315                                    AMOONFLG                              
055088,000873: 35,3711           73713                                    +2                                    
055089,000874: 35,3712           00000                                    0                                     
055090,000875: 35,3713           53775                           VLOAD    VSR*                                  
055091,000876: 35,3714           01171                                    RN                                    
055092,000877: 35,3715           57176                                    0,2                                   
055093,000878: 35,3716           01503                           STORE    RRECT                                 
055094,000879: 35,3717           15535                           STODL    RCV                                   
055095,000880: 35,3720           01205                                    PIPTIME                               
055096,000881: 35,3721           25517                           STOVL    TET                                   
055097,000882: 35,3722           01177                                    VN                                    
055098,000883: 35,3723           45057                           VSR*     CALL                                  
055099,000884: 35,3724           57176                                    0,2                                   
055100,000885: 35,3725           23417                                    MINIRECT                              #  FINISH SETTING UP STATE VECTOR
055101,000886: 35,3726           66234                           RTB      SSP                                   
055102,000887: 35,3727           26730                                    MOVATHIS                              #  PUT TEMP STATE VECTOR INTO PERMANENT
055103,000888: 35,3730           01127                                    TRKMKCNT                              
055104,000889: 35,3731           00000                                    0                                     
055105,000890: 35,3732           43014                           SET      BON                                   
055106,000891: 35,3733           04063                                    CMOONFLG                              
055107,000892: 35,3734           00315                                    AMOONFLG                              
055108,000893: 35,3735           73740                                    +3                                    
055109,000894: 35,3736           77614                           CLEAR                                          
055110,000895: 35,3737           04263                                    CMOONFLG                              
055111,000896: 
055112,000897: 35,3740           71214                           BON      DLOAD                                 #  NOW DO LM
055113,000898: 35,3741           04307                                    SURFFLAG                              
055114,000899: 35,3742           75751                                    FAZAB5                                #  NO COASTING LM
055115,000900: 35,3743           01205                                    PIPTIME                               
055116,000901: 35,3744           34041                           STCALL   TDEC1                                 
055117,000902: 35,3745           26700                                    SETIFLGS                              
055118,000903: 35,3746           45014                           CLEAR    CALL                                  
055119,000904: 35,3747           01674                                    VINTFLAG                              
055120,000905: 35,3750           27172                                    INTEGRV                               
055121,000906: 35,3751           77650                           GOTO                                           
055122,000907: 35,3752           02317                                    EGRESS                                
055123,000908: 35,3753           45145        INT/W              DLOAD    CALL                                  
055124,000909: 35,3754           01205                                    PIPTIME                               #  INTEGRATE W THRU BURN
055125,000910: 35,3755           27452                                    INTSTALL                              
055126,000911: 35,3756           43014                           SET      SET                                   
055127,000912: 35,3757           01476                                    DIM0FLAG                              #  DO W-MATRIX
055128,000913: 35,3760           04476                                    AVEMIDSW                              #  SO WONT CLOBBER RN,VN,PIPTIME
055129,000914: 35,3761           43014                           CLEAR    SET                                   
055130,000915: 35,3762           01675                                    D6OR9FLG                              
055131,000916: 35,3763           01474                                    VINTFLAG                              
055132,000917: 35,3764           34041                           STCALL   TDEC1                                 
055133,000918: 35,3765           27172                                    INTEGRV                               
055134,000919: 35,3766           77650                           GOTO                                           
055135,000920: 35,3767           73704                                    SETCOAST                              
055136,000921: 
055137,000922:                                                                                                  #  MIDTOAV1
055138,000923: 
055139,000924:                                                                                                  #  THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
055140,000925:                                                                                                  #  IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
055141,000926:                                                                                                  #  TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
055142,000927:                                                                                                  #  IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
055143,000928:                                                                                                  #  IS DONE AS IT IS FOR MIDTOAV2.
055144,000929:                                                                                                  #  RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
055145,000930: 
055146,000931:                                                                                                  #  IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
055147,000932:                                                                                                  #  TO THE RETURN ADDRESS
055148,000933: 
055149,000934:                                                                                                  #  IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
055150,000935:                                                                                                  #  FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
055151,000936:                                                                                                  #  TION TIME AND MPAC IS SET TO THE DELTA TIME---
055152,000937:                                                                                                  #                                    TAT MINUS CURRENT TIME.
055153,000938: 
055154,000939:                                                                                                  #  MIDTOAV2
055155,000940: 
055156,000941:                                                                                                  #  THIS ROUTINE INTEGRATES THE CSM STATE VECTOR TO CURRENT TIME PLUS
055157,000942:                                                                                                  #  INCREMENTS OF TIMEDELT SUCH THAT THE DIFFERENCE BETWEEN CURRENT TIME
055158,000943:                                                                                                  #  AND THE STATE VECTOR TIME AT THE END OF THE LAST STEP IS AT LEAST 5.6
055159,000944:                                                                                                  #  SECS.
055160,000945:                                                                                                  #  NO INPUTS ARE REQUIRED OF THE CALLER.  RETURN IS IN BASIC TO THE RETURN
055161,000946:                                                                                                  #  ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
055162,000947: 
055163,000948: 13,2000                                           SETLOC   INTINIT                               
055164,000949: 13,2000                                           BANK                                           
055165,000950: 13,3553     1127                                  EBANK=   IRETURN1                              
055166,000951: 13,3553           45020        MIDTOAV2           STQ      CALL                                  
055167,000952: 13,3554           01127                                    IRETURN1                              
055168,000953: 13,3555           27452                                    INTSTALL                              
055169,000954: 13,3556           43145                           DLOAD    CLEAR                                 
055170,000955: 13,3557           27721                                    TIMEDELT                              
055171,000956: 13,3560           04674                                    MID1FLAG                              
055172,000957: 13,3561           37732                           STCALL   T-TO-ADD                              
055173,000958: 13,3562           27577                                    ENTMID2                               
055174,000959: 
055175,000960: 13,3563           45020        MIDTOAV1           STQ      CALL                                  
055176,000961: 13,3564           01127                                    IRETURN1                              
055177,000962: 13,3565           27452                                    INTSTALL                              
055178,000963: 13,3566           47014                           SET      RTB                                   
055179,000964: 13,3567           04474                                    MID1FLAG                              
055180,000965: 13,3570           45510                                    LOADTIME                              
055181,000966: 13,3571           44215                           DAD      BDSU                                  #  INITIAL CHECK, IS TDEC1 IN THE FUTURE.
055182,000967: 13,3572           27721                                    TIMEDELT                              
055183,000968: 13,3573           00041                                    TDEC1                                 
055184,000969: 13,3574           45044                           BPL      CALL                                  
055185,000970: 13,3575           27603                                    ENTMID1                               
055186,000971: 13,3576           27704                                    NOTIME                                #  NO SET ALARM.SWITCH TO MIDTOAV2
055187,000972: 
055188,000973: 13,3577           43234        ENTMID2            RTB      DAD                                   
055189,000974: 13,3600           45510                                    LOADTIME                              
055190,000975: 13,3601           03732                                    T-TO-ADD                              
055191,000976: 13,3602           00041                           STORE    TDEC1                                 
055192,000977: 
055193,000978: 13,3603           45014        ENTMID1            CLEAR    CALL                                  
055194,000979: 13,3604           01676                                    DIM0FLAG                              #  NO W-MATRIX
055195,000980: 13,3605           26034                                    THISVINT                              
055196,000981: 13,3606           43014                           CLEAR    SET                                   
055197,000982: 13,3607           01673                                    INTYPFLG                              
055198,000983: 13,3610           04475                                    MIDAVFLG                              #  LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
055199,000984: 13,3611           77624                           CALL                                           
055200,000985: 13,3612           27172                                    INTEGRV                               #  GO INTEGRATE
055201,000986: 13,3613           66134                           SXA,2    SXA,1                                 
055202,000987: 13,3614           03746                                    RTX2                                  
055203,000988: 13,3615           03745                                    RTX1                                  
055204,000989: 13,3616           67214                           CLEAR    SLOAD                                 
055205,000990: 13,3617           00275                                    AMOONFLG                              
055206,000991: 13,3620           03747                                    RTX2                                  
055207,000992: 13,3621           43054                           BZE      SET                                   
055208,000993: 13,3622           27624                                    +2                                    
055209,000994: 13,3623           00075                                    AMOONFLG                              
055210,000995: 13,3624           77775                           VLOAD                                          
055211,000996: 13,3625           00001                                    RATT                                  
055212,000997: 13,3626           25232                           STOVL    RN1                                   
055213,000998: 13,3627           00007                                    VATT                                  
055214,000999: 13,3630           15240                           STODL    VN1                                   
055215,001000: 13,3631           00015                                    TAT                                   
055216,001001: 13,3632           01246                           STORE    PIPTIME1                              
055217,001002: 13,3633           77776                           EXIT                                           
055218,001003: 
055219,001004: 13,3634           00004                           INHINT                                         
055220,001005: 13,3635           00006                           EXTEND                                         
055221,001006: 13,3636           40025                           DCS      TIME2                                 
055222,001007: 13,3637           20155                           DAS      MPAC                                  
055223,001008: 13,3640           07226                           TC       TPAGREE                               
055224,001009: 
055225,001010: 13,3641           31127                           CA       IRETURN1                              
055226,001011: 13,3642           04720                           TC       BANKJUMP                              
055227,001012: 13,3643           47014        CKMID2             BOF      RTB                                   
055228,001013: 13,3644           04754                                    MID1FLAG                              
055229,001014: 13,3645           27662                                    MID2                                  
055230,001015: 13,3646           45510                                    LOADTIME                              
055231,001016: 13,3647           44215                           DAD      BDSU                                  
055232,001017: 13,3650           27721                                    TIMEDELT                              
055233,001018: 13,3651           01101                                    TDEC                                  
055234,001019: 13,3652           45044                           BPL      CALL                                  
055235,001020: 13,3653           27315                                    TESTLOOP                              #  YES
055236,001021: 13,3654           27704                                    NOTIME                                
055237,001022: 
055238,001023: 13,3655           43234        TIMEINC            RTB      DAD                                   
055239,001024: 13,3656           45510                                    LOADTIME                              
055240,001025: 13,3657           03732                                    T-TO-ADD                              
055241,001026: 13,3660           35101                           STCALL   TDEC                                  
055242,001027: 13,3661           27315                                    TESTLOOP                              
055243,001028: 
055244,001029: 13,3662           45345        MID2               DLOAD    DSU                                   
055245,001030: 13,3663           01101                                    TDEC                                  
055246,001031: 13,3664           01517                                    TET                                   
055247,001032: 13,3665           45246                           ABS      DSU                                   
055248,001033: 13,3666           27717                                    3CSECS                                
055249,001034: 13,3667           77644                           BPL                                            
055250,001035: 13,3670           27655                                    TIMEINC                               
055251,001036: 
055252,001037: 13,3671           44234                           RTB      BDSU                                  #  SEE IF 5.6 SECS. AVAILABLE TO CALLER.
055253,001038: 13,3672           45510                                    LOADTIME                              
055254,001039: 13,3673           01517                                    TET                                   
055255,001040: 13,3674           51025                           DSU      BPL                                   
055256,001041: 13,3675           27723                                    5.6SECS                               
055257,001042: 13,3676           27206                                    A-PCHK                                #  YES,GET OUT.
055258,001043: 
055259,001044: 13,3677           43345                           DLOAD    DAD                                   #  NO,ADD TIMEDELT TO T-TO-ADD AND TRY
055260,001045: 13,3700           03732                                    T-TO-ADD                              #  AGAIN.
055261,001046: 13,3701           27721                                    TIMEDELT                              
055262,001047: 13,3702           37732                           STCALL   T-TO-ADD                              
055263,001048: 13,3703           27655                                    TIMEINC                               
055264,001049: 13,3704           77414        NOTIME             CLEAR    EXIT                                  #  TOO LATE
055265,001050: 13,3705           04674                                    MID1FLAG                              
055266,001051: 13,3706           25127                           INCR     IRETURN1                              #  SET ERROR EXIT (CALLOC +2)
055267,001052: 13,3707           05664                           TC       ALARM                                 #  INSUFFICIENT TIME FOR INTEGRATION --
055268,001053: 13,3710           01703                           OCT      1703                                  #        TIG WILL BE SLIPPED...
055269,001054: 13,3711           06006                           TC       INTPRET                               
055270,001055: 13,3712           77745                           DLOAD                                          
055271,001056: 13,3713           27721                                    TIMEDELT                              
055272,001057: 13,3714           03732                           STORE    T-TO-ADD                              
055273,001058: 13,3715           77616                           RVQ                                            
055274,001059: 
055275,001060: 13,3716           00000 00003  3CSECS             2DEC     3          B-28                       
055276,001061: 
055277,001062: 13,3720           00000 02342  TIMEDELT           2DEC     1250       B-28                       
055278,001063: 
055279,001064: 13,3722           00000 01060  5.6SECS            2DEC     560        B-28                       
055280,001065: 
055281,001066: 27,2672                                           BANK     27                                    
055282,001067: 27,2000                                           SETLOC   UPDATE2                               
055283,001068: 27,2000                                           BANK                                           
055284,001069: 27,2672     0330                                  EBANK=   INTWAKUQ                              
055285,001070: 
055286,001071: 27,2672                                           COUNT*   $$/INTIN                              
055287,001072: 
055288,001073: 27,2672     0330               INTWAKUQ           =        INTWAK1Q                              #  TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
055289,001074: 
055290,001075: 27,2672           00003        INTWAKEU           RELINT                                         
055291,001076: 27,2673           00006                           EXTEND                                         
055292,001077: 27,2674           22330                           QXCH     INTWAKUQ                              #  SAVE Q FOR RETURN
055293,001078: 
055294,001079: 27,2675           06006                           TC       INTPRET                               
055295,001080: 
055296,001081: 27,2676           53135                           SLOAD    BZE                                   #  IS THIS A CSM/LEM STATE VECTOR UPDATE
055297,001082: 27,2677           01502                                    UPSVFLAG                              #  REQUEST.  IF NOT GO TO INTWAKUP.
055298,001083: 27,2700           56737                                    INTWAKUP                              
055299,001084: 
055300,001085: 27,2701           77775                           VLOAD                                          #  MOVE RRECT(6) AND VRECT(6) INTO
055301,001086: 27,2702           01503                                    RRECT                                 #        RCV(6) AND VCV(6) RESPECTIVELY.
055302,001087: 27,2703           25535                           STOVL    RCV                                   
055303,001088: 27,2704           01511                                    VRECT                                 #  NOW GO TO 'RECTIFY +13D' TO
055304,001089: 27,2705           77624                           CALL                                           #  STORE VRECT INTO VCV AND ZERO OUT
055305,001090: 27,2706           23420                                    RECTIFY    +13D                       #  TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
055306,001091: 27,2707           51535                           SLOAD    ABS                                   #  COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
055307,001092: 27,2710           01502                                    UPSVFLAG                              #  TO 'UPDATE MOON STATE VECTOR CODE'
055308,001093: 27,2711           53025                           DSU      BZE                                   #  TO DETERMINE WHETHER THE STATE VECTOR TO
055309,001094: 27,2712           16750                                    UPMNSVCD                              #  BE UPDATED IS IN THE EARTH OR LUNAR
055310,001095: 27,2713           56720                                    INTWAKEM                              #  SPHERE OF INFLUENCE.........
055311,001096: 27,2714           43174                           AXT,2    CLRGO                                 #  EARTH SPHERE OF INFLUENCE.
055312,001097: 27,2715           00000                           DEC      0          B-14                       
055313,001098: 27,2716           00223                                    MOONFLAG                              
055314,001099: 27,2717           56723                                    INTWAKEC                              
055315,001100: 27,2720           43174        INTWAKEM           AXT,2    SET                                   #  LUNAR SPHERE OF INFLUENCE.
055316,001101: 27,2721           00002                           DEC      2          B-14                       
055317,001102: 27,2722           00063                                    MOONFLAG                              
055318,001103: 27,2723           50135        INTWAKEC           SLOAD    BMN                                   #  COMMON CODING AFTER X2 INITIALIZED AND
055319,001104:                                                                                                  #  MOONFLAG SET (OR CLEARED).
055320,001105: 27,2724           01502                                    UPSVFLAG                              #  IS THIS A REQUEST FOR A LEM OR CSM
055321,001106: 27,2725           56733                                    INTWAKLM                              #        STATE VECTOR UPDATE......
055322,001107: 27,2726           77624                           CALL                                           #  UPDATE CSM STATE VECTOR
055323,001108: 27,2727           26715                                    ATOPCSM                               
055324,001109: 
055325,001110: 27,2730           52014                           CLEAR    GOTO                                  
055326,001111: 27,2731           01671                                    ORBWFLAG                              
055327,001112: 27,2732           56735                                    INTWAKEX                              
055328,001113: 
055329,001114: 27,2733           77624        INTWAKLM           CALL                                           #  UPDATE LM STATE VECTOR
055330,001115: 27,2734           26770                                    ATOPLEM                               
055331,001116: 
055332,001117: 27,2735           77614        INTWAKEX           CLEAR                                          
055333,001118: 27,2736           02676                                    RENDWFLG                              
055334,001119: 
055335,001120: 27,2737           45131        INTWAKUP           SSP      CALL                                  #  REMOVE :UPDATE STATE VECTOR INDICATOR:
055336,001121: 27,2740           01502                                    UPSVFLAG                              
055337,001122: 27,2741           00000                                    0                                     
055338,001123: 27,2742           27465                                    INTWAKE0                              #  RELEASE :GRAB: OF ORBIT INTEG
055339,001124: 27,2743           77776                           EXIT                                           
055340,001125: 
055341,001126: 27,2744           05426                           TC       PHASCHNG                              
055342,001127: 27,2745           04026                           OCT      04026                                 
055343,001128: 27,2746           00330                           TC       INTWAKUQ                              
055344,001129: 
055345,001130: 27,2747           00002        UPMNSVCD           OCT      2                                     
055346,001131: 27,2750           00000                           OCT      0                                     
055347,001132: 
055348,001133: 27,2751           77420        GRP2PC             STQ      EXIT                                  
055349,001134: 27,2752           03536                                    GRP2SVQ                               
055350,001135: 27,2753           05426                           TC       PHASCHNG                              
055351,001136: 27,2754           04022                           OCT      04022                                 
055352,001137: 27,2755           06006                           TC       INTPRET                               
055353,001138: 27,2756           77650                           GOTO                                           
055354,001139: 27,2757           03536                                    GRP2SVQ                               
055355,001140: 
055356,001141: 
055357,001142: 

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