Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

056085,000002:                                                                                                  ## Copyright:   Public domain.
056086,000003:                                                                                                  ## Filename:    INTEGRATION_INITIALIZATION.agc
056087,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
056088,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM) 
056089,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for 
056090,000007:                                                                                                  ##              Apollo 15-17.
056091,000008:                                                                                                  ## Assembler:   yaYUL
056092,000009:                                                                                                  ## Contact:     Sergio Navarro <sergionavarrog@gmail.com>
056093,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
056094,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
056095,000012:                                                                                                  ## Mod history: 2009-09-03 SN   Adapted from corresponding Comanche 055 file.
056096,000013:                                                                                                  ##              2009-09-04 JL   Fixed page comment.
056097,000014:                                                                                                  ##              2009-09-05 JL   Fixed typos.
056098,000015:                                                                                                  ##              2009-09-07 JL   Fixed typos.
056099,000016:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
056100,000017:                                                                                                  ##              2017-02-05 RSB  Proofed comment text by diff'ing vs Comanche 55
056101,000018:                                                                                                  ##                              and corrected errors found.
056102,000019:                                                                                                  ##              2017-08-19 MAS  Fixed comment errors found transcribing Zerlina 56.
056103,000020:                                                                                                  ##              2021-05-30 ABS  SP3SPT1 -> 2P3SPT1
056104,000021: 

Page 1309

056106,000023:                                                                                                  #  1.0 INTRODUCTION
056107,000024:                                                                                                  #  ----------------
056108,000025: 
056109,000026:                                                                                                  #  FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
056110,000027:                                                                                                  #  PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
056111,000028:                                                                                                  #  OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
056112,000029:                                                                                                  #  TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
056113,000030:                                                                                                  #  SIDE THE LUNAR SPHERE OF INFLUENCE.
056114,000031: 
056115,000032:                                                                                                  #  IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
056116,000033:                                                                                                  #  WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
056117,000034:                                                                                                  #  INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
056118,000035:                                                                                                  #  CALL TC INTSTALL.
056119,000036: 
056120,000037:                                                                                                  #  WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
056121,000038:                                                                                                  #  INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
056122,000039:                                                                                                  #  BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
056123,000040:                                                                                                  #  THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
056124,000041:                                                                                                  #  THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
056125,000042: 
056126,000043:                                                                                                  #  USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
056127,000044:                                                                                                  #  IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
056128,000045:                                                                                                  #  TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
056129,000046:                                                                                                  #  AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
056130,000047: 
056131,000048:                                                                                                  #  2.0 GENERAL DESCRIPTION
056132,000049:                                                                                                  #  -----------------------
056133,000050: 
056134,000051:                                                                                                  #  THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS---
056135,000052:                                                                                                  #        1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
056136,000053:                                                                                                  #        2) INTEGRATES THE W-MATRIX
056137,000054:                                                                                                  #        3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
056138,000055: 
056139,000056:                                                                                                  #  THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
056140,000057:                                                                                                  #  ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
056141,000058:                                                                                                  #  THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
056142,000059:                                                                                                  #  PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
056143,000060:                                                                                                  #  CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
056144,000061:                                                                                                  #  THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
056145,000062:                                                                                                  #  NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
056146,000063:                                                                                                  #  VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
056147,000064:                                                                                                  #  AND/OR STATE VECTOR.
056148,000065: 
056149,000066:                                                                                                  #  THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
056150,000067:                                                                                                  #  USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
056151,000068:                                                                                                  #  IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
056152,000069: 
056153,000070:                                                                                                  #  THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
056154,000071:                                                                                                  #  THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
056155,000072:                                                                                                  #  SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
056156,000073: 

Page 1310

056158,000075:                                                                                                  #  APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
056159,000076: 
056160,000077:                                                                                                  #  2.1 RESTARTS
056161,000078: 
056162,000079:                                                                                                  #  PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
056163,000080:                                                                                                  #  INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
056164,000081:                                                                                                  #  (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
056165,000082:                                                                                                  #  INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
056166,000083:                                                                                                  #  PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
056167,000084:                                                                                                  #  THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
056168,000085:                                                                                                  #  THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
056169,000086: 
056170,000087:                                                                                                  #  2.2 SCALING
056171,000088: 
056172,000089:                                                                                                  #  THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
056173,000090:                                                                                                  #  APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
056174,000091:                                                                                                  #  SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
056175,000092:                                                                                                  #  MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
056176,000093:                                                                                                  #  DIFFERENT SCALING.
056177,000094:                                                                                                  #  HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
056178,000095: 
056179,000096:                                                                                                  #  3.0 INPUT/OUTPUT
056180,000097:                                                                                                  #  ----------------
056181,000098: 
056182,000099:                                                                                                  #  PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
056183,000100:                                                                                                  #  PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
056184,000101:                                                                                                  #  FOR INTEGRVS, THE RCV,VCV, TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
056185,000102: 
056186,000103:                                                                                                  #  FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
056187,000104:                                                                                                  #                                                                EARTH   MOON
056188,000105:                                                                                                  #                                                                 29      27
056189,000106:                                                                                                  #        RRECTCSM(LEM)   - RECTIFIED POSITION VECTOR     METERS  2       2
056190,000107: 
056191,000108:                                                                                                  #                                                                 7       5
056192,000109:                                                                                                  #        VRECTCSM(LEM)   - RECTIFIED VELOCITY VECTOR     M/CSEC  2       2
056193,000110: 
056194,000111:                                                                                                  #                                                                 28      28
056195,000112:                                                                                                  #        TETCSM(LEM)     - TIME STATE VECTOR IS VALID    CSEC    2       2
056196,000113:                                                                                                  #                          CUSTOMARILY 0, BUT NOTE LUNAR
056197,000114:                                                                                                  #                          ORBIT DEPENDENCE ON REAL TIME.
056198,000115: 
056199,000116:                                                                                                  #                                                                 22      18
056200,000117:                                                                                                  #        DELTAVCSM(LEM)  - POSITION DEVIATION            METERS  2       2
056201,000118:                                                                                                  #                          0 IF TCCSM(LEM) = 0
056202,000119: 
056203,000120:                                                                                                  #                                                                 3       -1
056204,000121:                                                                                                  #        NUVCSM(LEM)     - VELOCITY DEVIATION            M/CSEC  2       2
056205,000122:                                                                                                  #                          0 IF TCCSM(LEM) = 0

Page 1311

056207,000124:                                                                                                  #                                                                 29      27
056208,000125:                                                                                                  #        RCVCSM(LEM)     - CONIC POSITION                METERS  2       2
056209,000126:                                                                                                  #                          EQUALS RRECTCSM(LEM) IF
056210,000127:                                                                                                  #                          TCCSM(LEM) = 0
056211,000128: 
056212,000129:                                                                                                  #                                                                 7       5
056213,000130:                                                                                                  #        VCVCSM(LEM)     - CONIC VELOCITY                M/CSEC  2       2
056214,000131:                                                                                                  #                          EQUALS VRECTCSM(LEM) IF
056215,000132:                                                                                                  #                          TCCSM(LEM) = 0
056216,000133: 
056217,000134:                                                                                                  #                                                                 28      28
056218,000135:                                                                                                  #        TCCSM(LEM)      - TIME SINCE RECTIFICATION      CSECS   2       2
056219,000136:                                                                                                  #                          CUSTOMARILY 0
056220,000137: 
056221,000138:                                                                                                  #                                                         1/2     17      16
056222,000139:                                                                                                  #        XKEPCSM(LEM)    - ROOT OF KEPLERS EQUATION      M       2       2
056223,000140:                                                                                                  #                          0 IF TCCSM(LEM) = 0
056224,000141: 
056225,000142:                                                                                                  #        CMOONFLG        - PERMANENT FLAGS CORRESPONDING         0       0
056226,000143:                                                                                                  #        CMIDFLAG          TO MOONFLAG AND MIDFLAG               0,1     0,1
056227,000144:                                                                                                  #        LMOONFLG          C = CSM, L = LM                       0       0
056228,000145:                                                                                                  #        LMIDFLG                                                 0,1     0,1
056229,000146: 
056230,000147:                                                                                                  #        SURFFLAG        - LUNAR SURFACE FLAG                    0,1     0,1
056231,000148: 
056232,000149:                                                                                                  #  IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
056233,000150:                                                                                                  #  SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
056234,000151:                                                                                                  #  ROUTINE MUST BE PRESET.
056235,000152: 
056236,000153:                                                                                                  #  OUTPUT
056237,000154:                                                                                                  #        AFTER EVERY CALL TO INTEGRATION
056238,000155:                                                                                                  #                                                                EARTH   MOON
056239,000156:                                                                                                  #                                                                 29      29
056240,000157:                                                                                                  #        0D      RATT    POSITION                        METERS  2       2
056241,000158:                                                                                                  #                                                                 7       7
056242,000159:                                                                                                  #        6D      VATT    VELOCITY                        M/CSEC  2       2
056243,000160:                                                                                                  #                                                                 28      28
056244,000161:                                                                                                  #        12D     TAT     TIME                                    2       2
056245,000162:                                                                                                  #                                                                 29      27
056246,000163:                                                                                                  #        14D     RATT1   POSITION                        METERS  2       2
056247,000164:                                                                                                  #                                                                 7       5
056248,000165:                                                                                                  #        20D     VATT1   VELOCITY                        M/CSEC  2       2
056249,000166:                                                                                                  #                                                         3   2   36      30
056250,000167:                                                                                                  #        26D     MU(P)   MU                              M /CS   2       2
056251,000168: 
056252,000169:                                                                                                  #        X1              MUTABLE ENTRY                           -2      -10D
056253,000170: 
056254,000171:                                                                                                  #        X2              COORDINT
056255,000172:                                                                                                  #        X2              COORDINATE SYSTEM ORIGEN                0       2
056256,000173:                                                                                                  #                        (THIS, NOT MOONFLAG, SHOULD BE

Page 1312

056258,000175:                                                                                                  #                        USED TO DETERMINE ORIGIN.)
056259,000176: 
056260,000177:                                                                                                  #  IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
056261,000178:                                                                                                  #  STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
056262,000179:                                                                                                  #  COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
056263,000180:                                                                                                  #  CALLING PROGRAM.
056264,000181: 
056265,000182:                                                                                                  #  4.0 CALLING SEQUENCES AND SAMPLE CODE
056266,000183:                                                                                                  #  -------------------------------------
056267,000184: 
056268,000185:                                                                                                  #        A) PRECISION ORBITAL INTEGRATION. CSMPREC,LEMPREC ENTRANCES
056269,000186:                                                                                                  #                L-X     STORE TIME TO 95T5791T5 T  95 PUS L9ST (T4531)
056270,000187:                                                                                                  #                L       CALL
056271,000188:                                                                                                  #                L+1             CSMPREC (OR LEMPREC)
056272,000189:                                                                                                  #                L+2     RETURN
056273,000190:                                                                                                  #           INPUT                                                           28
056274,000191:                                                                                                  #                TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
056275,000192:                                                                                                  #           OUTPUT
056276,000193:                                                                                                  #                THE DATA LISTED IN SECTION 3.0 PLUS
056277,000194:                                                                                                  #                RQVV    POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
056278,000195:                                                                                                  #                BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
056279,000196:                                                                                                  #        B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
056280,000197:                                                                                                  #                L-X     STORE TIME IN PUSH LIST (TDEC1)
056281,000198:                                                                                                  #                L       CALL
056282,000199:                                                                                                  #                L+1             CSMCONIC (OR LEMCONIC)
056283,000200:                                                                                                  #           INPUT/OUTPUT
056284,000201:                                                                                                  #                SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
056285,000202:                                                                                                  #        C) INTEGRATE GIVEN STATE VECTOR.  INTEGRVS ENTRANCE
056286,000203:                                                                                                  #                        CALL
056287,000204:                                                                                                  #                                INTSTALL
056288,000205:                                                                                                  #                        VLOAD
056289,000206:                                                                                                  #                                POSITION VECTOR
056290,000207:                                                                                                  #                        STOVL   RCV
056291,000208:                                                                                                  #                                VELOCITY VECTOR
056292,000209:                                                                                                  #                        STODL   VCV
056293,000210:                                                                                                  #                                TIME STATE VECTOR VALID
056294,000211:                                                                                                  #                        STODL   TET
056295,000212:                                                                                                  #                                FINAL RADIUS
056296,000213:                                                                                                  #                        STORE   RFINAL
056297,000214:                                                                                                  #                        SET(CLEAR)      SET(CLEAR)
056298,000215:                                                                                                  #                                        INTYPFLAG
056299,000216:                                                                                                  #                                        MOONFLAG
056300,000217:                                                                                                  #                        SET(CLEAR)      DLOAD
056301,000218:                                                                                                  #                                        DESIRED TIME
056302,000219:                                                                                                  #                        STCALL          TDEC1
056303,000220:                                                                                                  #                                        INTEGRVS
056304,000221:                                                                                                  #           INPUT
056305,000222:                                                                                                  #                RCV     POSITION VECTOR                 METERS
056306,000223:                                                                                                  #                VCV     VELOCITY VECTOR                 M/CSEC
056307,000224:                                                                                                  #                TET     TIME OF STATE VECTOR (MAY = 0)  CSEC B-28

Page 1313

056309,000226:                                                                                                  #                TDEC1   TIME TO INTEGRATE TO            CSEC B-28 (PD 32D)
056310,000227:                                                                                                  #                        (MAY BE INCREMENT IF TET=0)
056311,000228:                                                                                                  #           OUTPUT
056312,000229:                                                                                                  #                SAME AS FOR PRECISION OR CONIC INTEGRATION,
056313,000230:                                                                                                  #                DEPENDING ON INTYPFLG.
056314,000231:                                                                                                  #        D) INTEGRATE STATE VECTOR.  INTGRV ENTRANCE
056315,000232:                                                                                                  #                L-X     STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
056316,000233:                                                                                                  #                L-8     CALL
056317,000234:                                                                                                  #                L-7
056318,000235:                                                                                                  #                L-6     SET(CLEAR)      SET(CLEAR)
056319,000236:                                                                                                  #                L-5                     VINTFLAG        1=CSM, 0=LM
056320,000237:                                                                                                  #                L-4                     INTYPFLAG       1=CONIC, 0=PRECISION
056321,000238:                                                                                                  #                L-3     SET(CLEAR)      SET(CLEAR)
056322,000239:                                                                                                  #                L-2                     DIMOFLAG        1=W-MATRIX, 0=NO W-MATRIX
056323,000240:                                                                                                  #                L-1                     D6OR9FLG        1=9X9, 0=6X6
056324,000241:                                                                                                  #                L       SET             DLOAD
056325,000242:                                                                                                  #                L+1                     STATEFLG        DESIRE PERMANENT UPDATE
056326,000243:                                                                                                  #                L+2                     FINAL RAD. OF STATE VECTOR
056327,000244:                                                                                                  #                L+3     STCALL          RFINAL
056328,000245:                                                                                                  #                L+4                     INTEGRV
056329,000246:                                                                                                  #                L       CALL                            NORMAL USE-- WILL UPDATE STATE
056330,000247:                                                                                                  #                L+1                     INTEGRV         VECTOR IF DIMOFLAG=1. (STATEFLG IS
056331,000248:                                                                                                  #                L+2     RETURN                          ALWAYS RESET IN INTEGRATION AFTER
056332,000249:                                                                                                  #                                                        IT IS USED.)
056333,000250:                                                                                                  #          INPUT
056334,000251:                                                                                                  #                TDEC1 (PD 32D) TIME TO INTEGRATE TO     CSEC B-28
056335,000252:                                                                                                  #          OUTPUT
056336,000253:                                                                                                  #                SAME AS FOR PRECISION OR CONIC INTEGRATION
056337,000254:                                                                                                  #          THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
056338,000255:                                                                                                  #          THE PERMANENT STATE VECTOR REPRESENTATION.
056339,000256: 
056340,000257: 13,2000                                           SETLOC   INTINIT                               
056341,000258: 13,2000                                           BANK                                           
056342,000259: 13,2702  E3,1554                                  EBANK=   RRECTCSM                              
056343,000260: 13,2702                                           COUNT*   $$/INTIN                              
056344,000261: 13,2702           05402        STATEINT           TC       PHASCHNG                              
056345,000262: 13,2703           00052                           OCT      00052                                 
056346,000263: 13,2704  01,2036               2P5SPT4            =        2.5SPOT                               
056347,000264: 13,2704           35047                           CAF      PRIO5                                 
056348,000265: 13,2705           05135                           TC       FINDVAC                               
056349,000266: 13,2706  E3,1554                                  EBANK=   RRECTCSM                              
056350,000267: 13,2706           02711 26063                     2CADR    STATINT1                              
056351,000268: 
056352,000269: 13,2710           05314                           TC       TASKOVER                              
056353,000270: 13,2711           06006        STATINT1           TC       INTPRET                               
056354,000271: 13,2712           47014                           BON      RTB                                   
056355,000272: 13,2713           04712                                    QUITFLAG                              
056356,000273: 13,2714           26753                                    NOINT                                 #  NO STATEINT IF V96
056357,000274: 13,2715           51751                                    LOADTIME                              
056358,000275: 13,2716           00041                           STORE    TDEC1                                 

Page 1314

056360,000277: 13,2717           45014                           CLEAR    CALL                                  
056361,000278: 13,2720           04274                                    V96ONFLG                              
056362,000279: 13,2721           27516                                    INTSTALL                              
056363,000280: 13,2722           45014                           SET      CALL                                  
056364,000281: 13,2723           01076                                    NODOFLAG                              
056365,000282: 13,2724           26744                                    SETIFLGS                              
056366,000283: 13,2725           52014                           SET      GOTO                                  #  INHIBIT BACKWARDS INTEGRATION
056367,000284: 13,2726           01466                                    POOFLAG                               
056368,000285: 13,2727           26000                                    STATEUP                               
056369,000286: 13,2730           00003 25140  600SECS            2DEC     60000      B-28                       
056370,000287: 
056371,000288: 13,2732           77414        ENDINT             CLEAR    EXIT                                  
056372,000289: 13,2733           01672                                    STATEFLG                              
056373,000290: 13,2734           05402                           TC       PHASCHNG                              
056374,000291: 13,2735           20032                           OCT      20032                                 
056375,000292: 13,2736  01,2033               2P3SPT1            =        2.3SPOT                               
056376,000293: 13,2736           00006                           EXTEND                                         
056377,000294: 13,2737           32731                           DCA      600SECS                               
056378,000295: 13,2740           05332                           TC       LONGCALL                              
056379,000296: 13,2741  E3,1554                                  EBANK=   RRECTHIS                              
056380,000297: 13,2741           02702 26063                     2CADR    STATEINT                              
056381,000298: 
056382,000299: 13,2743           05205                           TC       ENDOFJOB                              
056383,000300: 13,2744           43014        SETIFLGS           SET      CLEAR                                 
056384,000301: 13,2745           01472                                    STATEFLG                              
056385,000302: 13,2746           01673                                    INTYPFLG                              
056386,000303: 13,2747           43014                           CLEAR    CLEAR                                 
056387,000304: 13,2750           01676                                    DIM0FLAG                              
056388,000305: 13,2751           01675                                    D6OR9FLG                              
056389,000306: 13,2752           77616                           RVQ                                            
056390,000307: 13,2753           77776        NOINT              EXIT                                           
056391,000308: 13,2754           05402                           TC       PHASCHNG                              
056392,000309: 13,2755           00002                           OCT      2                                     
056393,000310: 
056394,000311: 13,2756           05561                           TC       DOWNFLAG                              
056395,000312: 13,2757           00221                           ADRES    QUITFLAG                              
056396,000313: 
056397,000314: 13,2760           05205                           TC       ENDOFJOB                              
056398,000315: 
056399,000316:                                                                                                  #  ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
056400,000317: 
056401,000318:                                                                                                  #  CALLING SEQUENCE
056402,000319:                                                                                                  #        L       CALL
056403,000320:                                                                                                  #        L+1             ATOPCSM
056404,000321: 
056405,000322:                                                                                                  #  NORMAL EXIT AT L+2
056406,000323: 
056407,000324: 13,2761           47020        ATOPCSM            STQ      RTB                                   
056408,000325: 13,2762           00051                                    S2                                    
056409,000326: 13,2763           26774                                    MOVEACSM                              

Page 1315

056411,000328: 13,2764           45014                           SET      CALL                                  
056412,000329: 13,2765           04063                                    CMOONFLG                              
056413,000330: 13,2766           20240                                    SVDWN1                                
056414,000331: 13,2767           43014                           BON      CLRGO                                 
056415,000332: 13,2770           00303                                    MOONFLAG                              
056416,000333: 13,2771           00051                                    S2                                    
056417,000334: 13,2772           04223                                    CMOONFLG                              
056418,000335: 13,2773           00051                                    S2                                    
056419,000336: 13,2774           03140        MOVEACSM           TC       SETBANK                               
056420,000337: 13,2775           55500                 +1        TS       DIFEQCNT                              #  INITIALIZE INDEX
056421,000338: 13,2776           51500                           INDEX    DIFEQCNT                              
056422,000339: 13,2777           31502                           CA       RRECT                                 
056423,000340: 13,3000           51500                           INDEX    DIFEQCNT                              
056424,000341: 13,3001           55554                           TS       RRECTCSM                              
056425,000342: 13,3002           11500                           CCS      DIFEQCNT                              #  IS TRANSFER COMPLETE
056426,000343: 13,3003           12775                           TCF      MOVEACSM   +1                         #  NO-LOOP
056427,000344: 13,3004           06030                           TC       DANZIG                                #  COMPLETE- RETURN
056428,000345: 
056429,000346: 
056430,000347:                                                                                                  #  PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
056431,000348: 
056432,000349:                                                                                                  #  CALLING SEQUENCE
056433,000350:                                                                                                  #        L       CALL
056434,000351:                                                                                                  #                        PTOACSM
056435,000352: 
056436,000353:                                                                                                  #  NORMAL EXIT AT L+2
056437,000354: 
056438,000355: 13,3005           43034        PTOACSM            RTB      BON                                   
056439,000356: 13,3006           27023                                    MOVEPCSM                              
056440,000357: 13,3007           04303                                    CMOONFLG                              
056441,000358: 13,3010           27016                                    SETMOON                               
056442,000359: 13,3011           66214        CLRMOON            CLEAR    SSP                                   
056443,000360: 13,3012           00263                                    MOONFLAG                              
056444,000361: 13,3013           02151                                    PBODY                                 
056445,000362: 13,3014           00000                                    0                                     
056446,000363: 13,3015           77616                           RVQ                                            
056447,000364: 13,3016           66214        SETMOON            SET      SSP                                   
056448,000365: 13,3017           00063                                    MOONFLAG                              
056449,000366: 13,3020           02151                                    PBODY                                 
056450,000367: 13,3021           00002                                    2                                     
056451,000368: 13,3022           77616                           RVQ                                            
056452,000369: 13,3023           03140        MOVEPCSM           TC       SETBANK                               
056453,000370: 13,3024           55500                 +1        TS       DIFEQCNT                              
056454,000371: 13,3025           51500                           INDEX    DIFEQCNT                              
056455,000372: 13,3026           31554                           CA       RRECTCSM                              
056456,000373: 13,3027           51500                           INDEX    DIFEQCNT                              
056457,000374: 13,3030           55502                           TS       RRECT                                 
056458,000375: 13,3031           11500                           CCS      DIFEQCNT                              
056459,000376: 13,3032           13024                           TCF      MOVEPCSM   +1                         
056460,000377: 13,3033           06030                           TC       DANZIG                                
056461,000378: 

Page 1316

056463,000380:                                                                                                  #  ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
056464,000381: 13,3034           47020        ATOPLEM            STQ      RTB                                   
056465,000382: 13,3035           00051                                    S2                                    
056466,000383: 13,3036           27047                                    MOVEALEM                              
056467,000384: 13,3037           45014                           SET      CALL                                  
056468,000385: 13,3040           04064                                    LMOONFLG                              
056469,000386: 13,3041           20264                                    SVDWN2                                
056470,000387: 13,3042           43014                           BON      CLRGO                                 
056471,000388: 13,3043           00303                                    MOONFLAG                              
056472,000389: 13,3044           00051                                    S2                                    
056473,000390: 13,3045           04224                                    LMOONFLG                              
056474,000391: 13,3046           00051                                    S2                                    
056475,000392: 13,3047           03140        MOVEALEM           TC       SETBANK                               
056476,000393: 13,3050           55500                 +1        TS       DIFEQCNT                              
056477,000394: 13,3051           51500                           INDEX    DIFEQCNT                              
056478,000395: 13,3052           31502                           CA       RRECT                                 
056479,000396: 13,3053           51500                           INDEX    DIFEQCNT                              
056480,000397: 13,3054           55626                           TS       RRECTLEM                              
056481,000398: 13,3055           11500                           CCS      DIFEQCNT                              
056482,000399: 13,3056           13050                           TCF      MOVEALEM   +1                         
056483,000400: 13,3057           06030                           TC       DANZIG                                
056484,000401: 
056485,000402: 
056486,000403:                                                                                                  #  PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
056487,000404: 
056488,000405: 13,3060           47014        PTOALEM            BON      RTB                                   
056489,000406: 13,3061           04307                                    SURFFLAG                              
056490,000407: 13,3062           27101                                    USEPIOS                               
056491,000408: 13,3063           27070                                    MOVEPLEM                              
056492,000409: 13,3064           52014                           BON      GOTO                                  
056493,000410: 13,3065           04304                                    LMOONFLG                              
056494,000411: 13,3066           27016                                    SETMOON                               
056495,000412: 13,3067           27011                                    CLRMOON                               
056496,000413: 13,3070           03140        MOVEPLEM           TC       SETBANK                               
056497,000414: 13,3071           55500                 +1        TS       DIFEQCNT                              
056498,000415: 13,3072           51500                           INDEX    DIFEQCNT                              
056499,000416: 13,3073           31626                           CA       RRECTLEM                              
056500,000417: 13,3074           51500                           INDEX    DIFEQCNT                              
056501,000418: 13,3075           55502                           TS       RRECT                                 
056502,000419: 13,3076           11500                           CCS      DIFEQCNT                              
056503,000420: 13,3077           13071                           TCF      MOVEPLEM   +1                         
056504,000421: 13,3100           06030                           TC       DANZIG                                
056505,000422: 
056506,000423: 
056507,000424: 13,3101           77201        USEPIOS            SETPD    VLOAD                                 
056508,000425: 13,3102           00001                                    0                                     
056509,000426: 13,3103           02026                                    RLS                                   
056510,000427: 13,3104           41525                           PDDL     PUSH                                  
056511,000428: 13,3105           00041                                    TDEC1                                 

Page 1317

056513,000430: 13,3106           15517                           STODL    TET                                   
056514,000431: 13,3107           27756                                    5/8                                   
056515,000432: 13,3110           77624                           CALL                                           
056516,000433: 13,3111           55345                                    RP-TO-R                               
056517,000434: 13,3112           25535                           STOVL    RCV                                   
056518,000435: 13,3113           11754                                    ZUNIT                                 
056519,000436: 13,3114           14001                           STODL    0D                                    
056520,000437: 13,3115           01517                                    TET                                   
056521,000438: 13,3116           14007                           STODL    6D                                    
056522,000439: 13,3117           27756                                    5/8                                   
056523,000440: 13,3120           45014                           SET      CALL                                  #  NEEDED FOR SETTING X1 ON EXIT
056524,000441: 13,3121           00063                                    MOONFLAG                              
056525,000442: 13,3122           55345                                    RP-TO-R                               
056526,000443: 13,3123           74235                           VXV      VXSC                                  
056527,000444: 13,3124           01535                                    RCV                                   
056528,000445: 13,3125           27137                                    OMEGMOON                              
056529,000446: 13,3126           25543                           STOVL    VCV                                   
056530,000447: 13,3127           11762                                    ZEROVEC                               
056531,000448: 13,3130           01521                           STORE    TDELTAV                               
056532,000449: 13,3131           67174                           AXT,2    SXA,2                                 
056533,000450: 13,3132           00002                                    2                                     
056534,000451: 13,3133           02150                                    PBODY                                 
056535,000452: 13,3134           35527                           STCALL   TNUV                                  
056536,000453: 13,3135           27252                                    A-PCHK                                
056537,000454: 13,3136           07112 06620  OMEGMOON           2DEC*    2.66169947 E-8        B+23*           
056538,000455: 13,3140           33144        SETBANK            CAF      INTBANK                               
056539,000456: 13,3141           54006                           TS       BBANK                                 
056540,000457: 13,3142           33553                           CAF      FORTYONE                              
056541,000458: 13,3143           00002                           TC       Q                                     
056542,000459: 13,3144  E3,1554                                  EBANK=   RRECTCSM                              
056543,000460: 13,3144           26063        INTBANK            BBCON    INTEGRV                               
056544,000461: 
056545,000462: 
056546,000463:                                                                                                  #  SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
056547,000464:                                                                                                  #  APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
056548,000465: 
056549,000466:                                                                                                  #  CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
056550,000467:                                                                                                  #  ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
056551,000468:                                                                                                  #  THE PERMANENT STATE VECTOR IS NOT UPDATED.
056552,000469:                                                                                                  #  CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
056553,000470:                                                                                                  #  NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
056554,000471:                                                                                                  #  STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
056555,000472: 
056556,000473:                                                                                                  #  THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
056557,000474:                                                                                                  #  SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
056558,000475:                                                                                                  #               CSMPREC  CSMCONIC   LEMPREC  LEMCONIC
056559,000476:                                                                                                  #  VINTFLAG      SET       SET       CLEAR    CLEAR
056560,000477:                                                                                                  #  INTYPFLG      CLEAR     SET       CLEAR    SET
056561,000478:                                                                                                  #  DIM0FLAG      CLEAR     CLEAR     CLEAR    CLEAR

Page 1318

056563,000480: 
056564,000481:                                                                                                  #  CALLING SEQUENCE
056565,000482:                                                                                                  #        L-X     STORE   TDEC1
056566,000483:                                                                                                  #        L       CALL                    (STCALL TDEC1)
056567,000484:                                                                                                  #        L+1             CSMPREC         (CSMCONIC, LEMPREC, LEMCONIC)
056568,000485: 
056569,000486:                                                                                                  #   NORMAL EXIT TO L+2
056570,000487: 
056571,000488:                                                                                                  #  SUBROUTINES CALLED
056572,000489:                                                                                                  #    INTEGRV1
056573,000490:                                                                                                  #    PRECOUT FOR CSMPREC AND LEMPREC
056574,000491:                                                                                                  #    CONICOUT FOR CSMCONIC AND LEMCONIC
056575,000492: 
056576,000493: 
056577,000494:                                                                                                  #  OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
056578,000495:                                                                                                  #  INPUT
056579,000496:                                                                                                  #   TDEC1        TIME TO INTEGRATE TO . CSECS B-28
056580,000497: 
056581,000498: 13,3145           45020        CSMPREC            STQ      CALL                                  
056582,000499: 13,3146           00046                                    X1                                    
056583,000500: 13,3147           27516                                    INTSTALL                              
056584,000501: 13,3150           43130                           SXA,1    SET                                   
056585,000502: 13,3151           02213                                    IRETURN                               
056586,000503: 13,3152           01474                                    VINTFLAG                              
056587,000504: 
056588,000505: 13,3153           43014        IFLAGP             SET      CLEAR                                 
056589,000506: 13,3154           01467                                    PRECIFLG                              
056590,000507: 13,3155           01676                                    DIM0FLAG                              
056591,000508: 13,3156           77614                           CLRGO                                          
056592,000509: 13,3157           01633                                    INTYPFLG                              
056593,000510: 13,3160           27240                                    INTEGRV1                              
056594,000511: 13,3161           45020        LEMPREC            STQ      CALL                                  
056595,000512: 13,3162           00046                                    X1                                    
056596,000513: 13,3163           27516                                    INTSTALL                              
056597,000514: 13,3164           43130                           SXA,1    CLRGO                                 
056598,000515: 13,3165           02213                                    IRETURN                               
056599,000516: 13,3166           01634                                    VINTFLAG                              
056600,000517: 13,3167           27153                                    IFLAGP                                
056601,000518: 
056602,000519: 13,3170           45020        CSMCONIC           STQ      CALL                                  
056603,000520: 13,3171           00046                                    X1                                    
056604,000521: 13,3172           27516                                    INTSTALL                              
056605,000522: 13,3173           43130                           SXA,1    SET                                   
056606,000523: 13,3174           02213                                    IRETURN                               
056607,000524: 13,3175           01474                                    VINTFLAG                              
056608,000525: 13,3176           43014        IFLAGC             CLEAR    SETGO                                 
056609,000526: 13,3177           01676                                    DIM0FLAG                              
056610,000527: 13,3200           01433                                    INTYPFLG                              
056611,000528: 13,3201           27240                                    INTEGRV1                              
056612,000529: 13,3202           45020        LEMCONIC           STQ      CALL                                  
056613,000530: 13,3203           00046                                    X1                                    

Page 1319

056615,000532: 13,3204           27516                                    INTSTALL                              
056616,000533: 13,3205           43130                           SXA,1    CLRGO                                 
056617,000534: 13,3206           02213                                    IRETURN                               
056618,000535: 13,3207           01634                                    VINTFLAG                              
056619,000536: 13,3210           27176                                    IFLAGC                                
056620,000537: 
056621,000538: 13,3211           66214        INTEGRVS           SET      SSP                                   
056622,000539: 13,3212           01467                                    PRECIFLG                              
056623,000540: 13,3213           02151                                    PBODY                                 
056624,000541: 13,3214           00000                                    0                                     
056625,000542: 13,3215           66214                           BOF      SSP                                   
056626,000543: 13,3216           00343                                    MOONFLAG                              
056627,000544: 13,3217           27222                                    +3                                    
056628,000545: 13,3220           02151                                    PBODY                                 
056629,000546: 13,3221           00002                                    2                                     
056630,000547: 13,3222           77220                           STQ      VLOAD                                 
056631,000548: 13,3223           02213                                    IRETURN                               
056632,000549: 13,3224           11762                                    ZEROVEC                               
056633,000550: 13,3225           01521                           STORE    TDELTAV                               
056634,000551: 13,3226           35527                           STCALL   TNUV                                  
056635,000552: 13,3227           23420                                    RECTIFY                               
056636,000553: 13,3230           43014                           CLEAR    SET                                   
056637,000554: 13,3231           01676                                    DIM0FLAG                              
056638,000555: 13,3232           04062                                    NEWIFLG                               
056639,000556: 13,3233           77614                           SETGO                                          
056640,000557: 13,3234           04020                                    RPQFLAG                               
056641,000558: 13,3235           22320                                    ALOADED                               
056642,000559: 
056643,000560:                                                                                                  #  INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
056644,000561:                                                                                                  #  NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS. THE ROUTINE
056645,000562:                                                                                                  #  IS ENTERED AT INTEGRV1 BY CSMPREC ET.AL. AND AT ALOADED BY INTEGRVS.
056646,000563:                                                                                                  #  THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
056647,000564:                                                                                                  #  PROGRAM FOR PRECISION OR CONIC
056648,000565: 
056649,000566:                                                                                                  #  THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
056650,000567:                                                                                                  #  SETTING ANY FLAGS.
056651,000568:                                                                                                  #  THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
056652,000569:                                                                                                  #        VINTFLAG    (IGNORED WHEN ENTERED FROM INTEGRVS)
056653,000570:                                                                                                  #        INTYPFLG
056654,000571:                                                                                                  #        DIM0FLAG
056655,000572:                                                                                                  #        D6OR9FLG
056656,000573: 
056657,000574:                                                                                                  #  CALLING SEQUENCE
056658,000575:                                                                                                  #        L-X     CALL
056659,000576:                                                                                                  #        L-Y             INTSTALL
056660,000577:                                                                                                  #        L-1     SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
056661,000578:                                                                                                  #                AND DIM0FLAG IS CLEAR.
056662,000579:                                                                                                  #        L       CALL
056663,000580:                                                                                                  #        L+1             INTEGRV
056664,000581: 
056665,000582:                                                                                                  #  INITIALIZATION
056666,000583:                                                                                                  #        FLAGS AS ABOVE
056667,000584:                                                                                                  #        STORE TIME TO INTEGRATE TO IN TDEC1
056668,000585: 

Page 1320

056670,000587:                                                                                                  #  OUTPUT
056671,000588:                                                                                                  #        RATT    AS
056672,000589:                                                                                                  #        VATT       DEFINED
056673,000590:                                                                                                  #        TAT                BEFORE
056674,000591: 
056675,000592: 
056676,000593: 13,3236           77620        INTEGRV            STQ                                            
056677,000594: 13,3237           02213                                    IRETURN                               
056678,000595: 13,3240           43014        INTEGRV1           SET      SET                                   
056679,000596: 13,3241           04060                                    RPQFLAG                               
056680,000597: 13,3242           04062                                    NEWIFLG                               
056681,000598: 13,3243           77731        INTEGRV2           SSP                                            
056682,000599: 13,3244           00053                                    QPRET                                 
056683,000600: 13,3245           22320                                    ALOADED                               
056684,000601: 13,3246           52014                           BON      GOTO                                  
056685,000602: 13,3247           01714                                    VINTFLAG                              
056686,000603: 13,3250           27005                                    PTOACSM                               
056687,000604: 13,3251           27060                                    PTOALEM                               
056688,000605: 11,2000                                           SETLOC   INTINIT1                              
056689,000606: 11,2000                                           BANK                                           
056690,000607: 11,2320                                           COUNT*   $$/INTIN                              
056691,000608: 11,2320           77745        ALOADED            DLOAD                                          
056692,000609: 11,2321           00041                                    TDEC1                                 
056693,000610: 11,2322           00745                           STORE    TDEC                                  
056694,000611: 11,2323           52014                           BOFF     GOTO                                  
056695,000612: 11,2324           01753                                    INTYPFLG                              
056696,000613: 11,2325           27364                                    TESTLOOP                              
056697,000614: 11,2326           27350                                    RVCON                                 
056698,000615: 13,2000                                           SETLOC   INTINIT                               
056699,000616: 13,2000                                           BANK                                           
056700,000617: 13,3252                                           COUNT*   $$/INTIN                              
056701,000618: 13,3252           45014        A-PCHK             BOF      CALL                                  
056702,000619: 13,3253           00342                                    MIDFLAG                               
056703,000620: 13,3254           27263                                    ANDOUT                                #  DONT MAKE ORIGIN CHANGE CHECK
056704,000621: 13,3255           23317                                    CHKSWTCH                              
056705,000622: 13,3256           45044                           BPL      CALL                                  
056706,000623: 13,3257           27263                                    ANDOUT                                #  NO ORIGIN CHANGE
056707,000624: 13,3260           23360                                    ORIGCHNG                              #  MAKE THE SWITCH
056708,000625: 13,3261           77754                           LXA,2                                          #  SET X2 FOR MOON OR EARTH SCALING
056709,000626: 13,3262           02150                                    PBODY                                 
056710,000627: 13,3263           77414        ANDOUT             BOFCLR   EXIT                                  
056711,000628: 13,3264           01652                                    STATEFLG                              
056712,000629: 13,3265           27304                                    RECTOUT                               
056713,000630: 13,3266           05402                           TC       PHASCHNG                              
056714,000631: 13,3267           04022                           OCT      04022                                 
056715,000632: 13,3270           05547                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
056716,000633: 13,3271           00230                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
056717,000634: 13,3272           06006                           TC       INTPRET                               
056718,000635: 13,3273           77731                           SSP                                            
056719,000636: 13,3274           00053                                    QPRET                                 

Page 1321

056721,000638: 13,3275           27302                                    PHEXIT                                
056722,000639: 13,3276           52014                           BON      GOTO                                  
056723,000640: 13,3277           01714                                    VINTFLAG                              
056724,000641: 13,3300           26761                                    ATOPCSM                               
056725,000642: 13,3301           27034                                    ATOPLEM                               
056726,000643: 13,3302           77624        PHEXIT             CALL                                           
056727,000644: 13,3303           22327                                    GRP2PC                                
056728,000645: 13,3304           45001        RECTOUT            SETPD    CALL                                  
056729,000646: 13,3305           00001                                    0                                     
056730,000647: 13,3306           23420                                    RECTIFY                               
056731,000648: 13,3307           53775                           VLOAD    VSL*                                  
056732,000649: 13,3310           01503                                    RRECT                                 
056733,000650: 13,3311           57576                                    0,2                                   
056734,000651: 13,3312           53715                           PDVL     VSL*                                  #  RATT TO PD0
056735,000652: 13,3313           01511                                    VRECT                                 
056736,000653: 13,3314           57576                                    0,2                                   
056737,000654: 13,3315           63325                           PDDL     PDVL                                  #  VATT TO PD6   TAT TO PD12
056738,000655: 13,3316           01517                                    TET                                   
056739,000656: 13,3317           01503                                    RRECT                                 
056740,000657: 13,3320           64715                           PDVL     PDDL*                                 
056741,000658: 13,3321           01511                                    VRECT                                 
056742,000659: 13,3322           50037                                    MUEARTH,2                             
056743,000660: 13,3323           76006                           PUSH     AXT,1                                 
056744,000661: 13,3324           77765                           DEC      -10        B-14                       
056745,000662: 13,3325           76014                           BON      AXT,1                                 
056746,000663: 13,3326           00303                                    MOONFLAG                              
056747,000664: 13,3327           27331                                    +2                                    
056748,000665: 13,3330           77775                           DEC      -2         B-14                       
056749,000666: 13,3331           40001        INTEXIT            SETPD    BOV                                   
056750,000667: 13,3332           00001                                    0                                     
056751,000668: 13,3333           27334                                    +1                                    
056752,000669: 13,3334           43014                           CLEAR    CLEAR                                 
056753,000670: 13,3335           04675                                    MIDAVFLG                              
056754,000671: 13,3336           01672                                    STATEFLG                              
056755,000672: 13,3337           43014                           CLEAR    CLEAR                                 
056756,000673: 13,3340           04676                                    AVEMIDSW                              #  ALLOW UPDATE OF DOWNLINK STATE VECTOR
056757,000674: 13,3341           01667                                    PRECIFLG                              
056758,000675: 13,3342           77535                           SLOAD    EXIT                                  
056759,000676: 13,3343           02214                                    IRETURN                               
056760,000677: 13,3344           30154                           CA       MPAC                                  
056761,000678: 13,3345           50120                           INDEX    FIXLOC                                
056762,000679: 13,3346           54052                           TS       QPRET                                 
056763,000680: 13,3347           03527                           TC       INTWAKE                               
056764,000681: 
056765,000682:                                                                                                  #  RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
056766,000683:                                                                                                  #  VELOCITY FOR THE INTERVAL (TET-TDEC)
056767,000684: 
056768,000685: 13,3350           45345        RVCON              DLOAD    DSU                                   
056769,000686: 13,3351           00745                                    TDEC                                  
056770,000687: 13,3352           01517                                    TET                                   
056771,000688: 13,3353           36303                           STCALL   TAU.                                  

Page 1322

056773,000690: 13,3354           23420                                    RECTIFY                               
056774,000691: 13,3355           77624                           CALL                                           
056775,000692: 13,3356           22336                                    KEPPREP                               
056776,000693: 13,3357           43345                           DLOAD    DAD                                   
056777,000694: 13,3360           01551                                    TC                                    
056778,000695: 13,3361           01517                                    TET                                   
056779,000696: 13,3362           35517                           STCALL   TET                                   
056780,000697: 13,3363           27304                                    RECTOUT                               
056781,000698: 

Page 1323

056783,000700: 13,3364           43014        TESTLOOP           BOF      CLRGO                                 
056784,000701: 13,3365           04752                                    QUITFLAG                              
056785,000702: 13,3366           27371                                    +3                                    
056786,000703: 13,3367           01632                                    STATEFLG                              
056787,000704: 13,3370           27331                                    INTEXIT                               #  STOP INTEGRATION
056788,000705: 13,3371           73001                 +3        SETPD    LXA,2                                 
056789,000706: 13,3372           00013                                    10D                                   
056790,000707: 13,3373           02150                                    PBODY                                 
056791,000708: 13,3374           51575                           VLOAD    ABVAL                                 
056792,000709: 13,3375           01535                                    RCV                                   
056793,000710: 13,3376           43006                           PUSH     CLEAR                                 #  RC TO 10D
056794,000711: 13,3377           00262                                    MIDFLAG                               
056795,000712: 13,3400           50023                           DSU*     BMN                                   #  MIDFLAG=0 IF R G.T. RMP
056796,000713: 13,3401           66600                                    RME,2                                 
056797,000714: 13,3402           27405                                    +3                                    
056798,000715: 13,3403           77614                           SET                                            
056799,000716: 13,3404           00062                                    MIDFLAG                               
056800,000717: 13,3405           41345        NORFINAL           DLOAD    DMP                                   
056801,000718: 13,3406           00013                                    10D                                   
056802,000719: 13,3407           00043                                    34D                                   
056803,000720: 13,3410           55762                           SR1R     DDV*                                  
056804,000721: 13,3411           50037                                    MUEARTH,2                             
056805,000722: 13,3412           41366                           SQRT     DMP                                   
056806,000723: 13,3413           23751                                    .3D                                   
056807,000724: 13,3414           40442                           SR3      SR4                                   #  DT IS TRUNCATED TO A MULTIPLE
056808,000725: 13,3415           54345                           DLOAD    SL                                    
056809,000726: 13,3416           00155                                    MPAC                                  
056810,000727: 13,3417           20220                                    15D                                   #        OF 128 CSECS.
056811,000728: 13,3420           40006                           PUSH     BOV                                   
056812,000729: 13,3421           27446                                    MAXDT                                 
056813,000730: 13,3422           50021                           BDSU     BMN                                   
056814,000731: 13,3423           27515                                    DT/2MAX                               
056815,000732: 13,3424           27446                                    MAXDT                                 
056816,000733: 13,3425           45345        DT/2COMP           DLOAD    DSU                                   
056817,000734: 13,3426           00745                                    TDEC                                  
056818,000735: 13,3427           01517                                    TET                                   
056819,000736: 13,3430           54234                           RTB      SL                                    
056820,000737: 13,3431           45636                                    SGNAGREE                              
056821,000738: 13,3432           20211                                    8D                                    
056822,000739: 13,3433           02305                           STORE    DT/2                                  #  B-19
056823,000740: 13,3434           51400                           BOV      ABS                                   
056824,000741: 13,3435           27452                                    GETMAXDT                              
056825,000742: 13,3436           50025                           DSU      BMN                                   #  IS TIME TO INTEG. TO GR THAN MAXTIME
056826,000743: 13,3437           00015                                    12D                                   
056827,000744: 13,3440           27456                                    P00HCHK                               
056828,000745: 13,3441           75345        USEMAXDT           DLOAD    SIGN                                  
056829,000746: 13,3442           00015                                    12D                                   
056830,000747: 13,3443           02305                                    DT/2                                  

Page 1324

056832,000749: 13,3444           36305                           STCALL   DT/2                                  
056833,000750: 13,3445           27456                                    P00HCHK                               
056834,000751: 13,3446           65345        MAXDT              DLOAD    PDDL                                  #  EXCHANGE DT/2MAX WITH COMPUTED MAX.
056835,000752: 13,3447           27515                                    DT/2MAX                               
056836,000753: 13,3450           77650                           GOTO                                           
056837,000754: 13,3451           27425                                    DT/2COMP                              
056838,000755: 13,3452           77634        GETMAXDT           RTB                                            
056839,000756: 13,3453           45761                                    SIGNMPAC                              
056840,000757: 13,3454           36305                           STCALL   DT/2                                  
056841,000758: 13,3455           27441                                    USEMAXDT                              
056842,000759: 13,3456           51545        P00HCHK            DLOAD    ABS                                   
056843,000760: 13,3457           02305                                    DT/2                                  
056844,000761: 13,3460           50025                           DSU      BMN                                   
056845,000762: 13,3461           27513                                    DT/2MIN                               
056846,000763: 13,3462           27252                                    A-PCHK                                
056847,000764: 13,3463           43014                           BOFF     BON                                   
056848,000765: 13,3464           01746                                    POOFLAG                               #  IS BACKWARDS INTEGRATION INHIBITED
056849,000766: 13,3465           23237                                    TIMESTEP                              #  NO
056850,000767: 13,3466           01707                                    PRECIFLG                              #  WAS THIS CALL VIA CSM(LEM)PREC
056851,000768: 13,3467           23237                                    TIMESTEP                              #  YES
056852,000769: 13,3470           45345                           DLOAD    DSU                                   
056853,000770: 13,3471           02305                                    DT/2                                  
056854,000771: 13,3472           00015                                    12D                                   
056855,000772: 13,3473           43040                           BMN      BOFCLR                                
056856,000773: 13,3474           27252                                    A-PCHK                                
056857,000774: 13,3475           04242                                    NEWIFLG                               
056858,000775: 13,3476           23237                                    TIMESTEP                              
056859,000776: 13,3477           45345                           DLOAD    DSU                                   
056860,000777: 13,3500           00745                                    TDEC                                  
056861,000778: 13,3501           01517                                    TET                                   
056862,000779: 13,3502           77640                           BMN                                            #  NO BACKWARD INTEGRATION
056863,000780: 13,3503           27331                                    INTEXIT                               
056864,000781: 13,3504           40525                           PDDL     SR4                                   
056865,000782: 13,3505           02305                                    DT/2                                  #  IS 4(DT) LS (TDEC - TET)
056866,000783: 13,3506           44322                           SR2R     BDSU                                  #  NO
056867,000784: 13,3507           52040                           BMN      GOTO                                  
056868,000785: 13,3510           27331                                    INTEXIT                               
056869,000786: 13,3511           23237                                    TIMESTEP                              
056870,000787: 13,3512           00000 01400  DT/2MIN            2DEC     3          B-20                       
056871,000788: 13,3514           14152 00000  DT/2MAX            2DEC     4000       E2         B-20            
056872,000789: 13,3516           77776        INTSTALL           EXIT                                           
056873,000790: 13,3517           30106                 +1        CA       FLGWRD10                              
056874,000791: 13,3520           74346                           MASK     PRIO30                                
056875,000792: 13,3521           00006                           EXTEND                                         
056876,000793: 13,3522           13561                           BZF      OKTOGRAB                              #  YES
056877,000794: 13,3523           33565                           CAF      WAKESTAL                              
056878,000795: 13,3524           05163                           TC       JOBSLEEP                              
056879,000796: 13,3525           77776        INTWAKE0           EXIT                                           

Page 1325

056881,000798: 13,3526           13547                           TCF      INTWAKE1                              
056882,000799: 
056883,000800: 13,3527           40106        INTWAKE            CS       FLGWRD10                              #  IS THIS INTSTALLED ROUTINE TO BE
056884,000801: 13,3530           74754                           MASK     REINTBIT                              #       RESTARTED
056885,000802: 13,3531           10000                           CCS      A                                     
056886,000803: 13,3532           03547                           TC       INTWAKE1                              #  NO
056887,000804: 
056888,000805: 13,3533           50120                           INDEX    FIXLOC                                
056889,000806: 13,3534           30052                           CA       QPRET                                 
056890,000807: 13,3535           55261                           TS       TBASE2                                #  YES, DONT RESTART WITH SOMEONE ELSES Q
056891,000808: 
056892,000809: 13,3536           05402                           TC       PHASCHNG                              
056893,000810: 13,3537           04022                           OCT      04022                                 
056894,000811: 
056895,000812: 13,3540           31261                           CA       TBASE2                                
056896,000813: 13,3541           50120                           INDEX    FIXLOC                                
056897,000814: 13,3542           54052                           TS       QPRET                                 
056898,000815: 
056899,000816: 13,3543           34754                           CAF      REINTBIT                              
056900,000817: 13,3544           70106                           MASK     FLGWRD10                              
056901,000818: 13,3545           00006                           EXTEND                                         
056902,000819: 13,3546           13563                           BZF      GOBAC                                 #  DONT INTWAKE IF WE CAME HERE VIA RESTART
056903,000820: 
056904,000821: 13,3547           33565        INTWAKE1           CAF      WAKESTAL                              
056905,000822: 13,3550           05167                           TC       JOBWAKE                               
056906,000823: 13,3551           10064                           CCS      LOCCTR                                
056907,000824: 13,3552           13547                           TCF      INTWAKE1                              
056908,000825: 13,3553           00051        FORTYONE           DEC      41         B-14                       
056909,000826: 13,3554           44346                           CS       PRIO30                                
056910,000827: 13,3555           70106                           MASK     FLGWRD10                              
056911,000828: 13,3556           54106                           TS       FLGWRD10                              #  RELEASE STALL AREA
056912,000829: 13,3557           00003                           RELINT                                         
056913,000830: 13,3560           13563                           TCF      GOBAC                                 
056914,000831: 13,3561           34753        OKTOGRAB           CAF      INTFLBIT                              
056915,000832: 13,3562           26106                           ADS      FLGWRD10                              
056916,000833: 13,3563           06006        GOBAC              TC       INTPRET                               
056917,000834: 13,3564           77616                           RVQ                                            
056918,000835: 13,3565           27517        WAKESTAL           CADR     INTSTALL   +1                         

Page 1326

056920,000837:                                                                                                  #  AVETOMID
056921,000838: 
056922,000839:                                                                                                  #  THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
056923,000840:                                                                                                  #  PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
056924,000841:                                                                                                  #  VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
056925,000842: 
056926,000843:                                                                                                  #  BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
056927,000844:                                                                                                  #  SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
056928,000845: 
056929,000846:                                                                                                  #  IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
056930,000847: 
056931,000848:                                                                                                  #  FINALLY TRKMKCNT IS ZEROED
056932,000849: 
056933,000850: 35,2000                                           SETLOC   INTINIT2                              
056934,000851: 35,2000                                           BANK                                           
056935,000852: 
056936,000853: 35,3677                                           COUNT*   $$/INTIN                              
056937,000854: 35,3677           43020        AVETOMID           STQ      BON                                   
056938,000855: 35,3700           02310                                    EGRESS                                
056939,000856: 35,3701           02716                                    RENDWFLG                              
056940,000857: 35,3702           73753                                    INT/W                                 #  W-MATRIX VALID, GO INTEGRATE IT
056941,000858: 35,3703           77614                           BON                                            
056942,000859: 35,3704           01711                                    ORBWFLAG                              
056943,000860: 35,3705           73753                                    INT/W                                 #  W-MATRIX VALID, GO INTEGRATE IT
056944,000861: 
056945,000862: 35,3706           45174        SETCOAST           AXT,2    CALL                                  #  NOW MOVE PROPERLY SCALED RN,VN AND
056946,000863: 35,3707           00002                                    2                                     #  PIPTIME TO INTEGRATION ERASABLES.
056947,000864: 35,3710           27516                                    INTSTALL                              
056948,000865: 35,3711           77014                           BON      AXT,2                                 
056949,000866: 35,3712           00315                                    AMOONFLG                              
056950,000867: 35,3713           73715                                    +2                                    
056951,000868: 35,3714           00000                                    0                                     
056952,000869: 35,3715           53775                           VLOAD    VSR*                                  
056953,000870: 35,3716           01030                                    RN                                    
056954,000871: 35,3717           57176                                    0,2                                   
056955,000872: 35,3720           01503                           STORE    RRECT                                 
056956,000873: 35,3721           15535                           STODL    RCV                                   
056957,000874: 35,3722           01044                                    PIPTIME                               
056958,000875: 35,3723           25517                           STOVL    TET                                   
056959,000876: 35,3724           01036                                    VN                                    
056960,000877: 35,3725           45057                           VSR*     CALL                                  
056961,000878: 35,3726           57176                                    0,2                                   
056962,000879: 35,3727           23434                                    MINIRECT                              #  FINISH SETTING UP STATE VECTOR
056963,000880: 35,3730           77634                           RTB                                            
056964,000881: 35,3731           26774                                    MOVATHIS                              #  PUT TEMP STATE VECTOR INTO PERMANENT
056965,000882: 35,3732           43014                           SET      BON                                   
056966,000883: 35,3733           04063                                    CMOONFLG                              
056967,000884: 35,3734           00315                                    AMOONFLG                              
056968,000885: 35,3735           73740                                    +3                                    

Page 1327

056970,000887: 35,3736           77614                           CLEAR                                          
056971,000888: 35,3737           04263                                    CMOONFLG                              
056972,000889: 
056973,000890: 35,3740           71214                           BON      DLOAD                                 #  NOW DO LM
056974,000891: 35,3741           04307                                    SURFFLAG                              
056975,000892: 35,3742           75735                                    FAZAB5                                #  NO COASTING LM
056976,000893: 35,3743           01044                                    PIPTIME                               
056977,000894: 35,3744           34041                           STCALL   TDEC1                                 
056978,000895: 35,3745           26744                                    SETIFLGS                              
056979,000896: 35,3746           45014                           CLEAR    CALL                                  
056980,000897: 35,3747           01674                                    VINTFLAG                              
056981,000898: 35,3750           27236                                    INTEGRV                               
056982,000899: 35,3751           77650                           GOTO                                           
056983,000900: 35,3752           02310                                    EGRESS                                
056984,000901: 35,3753           45145        INT/W              DLOAD    CALL                                  
056985,000902: 35,3754           01044                                    PIPTIME                               #  INTEGRATE W THRU BURN
056986,000903: 35,3755           27516                                    INTSTALL                              
056987,000904: 35,3756           43014                           SET      SET                                   
056988,000905: 35,3757           01476                                    DIM0FLAG                              #  DO W-MATRIX
056989,000906: 35,3760           04476                                    AVEMIDSW                              #  SO WONT CLOBBER RN,VN,PIPTIME
056990,000907: 35,3761           43014                           CLEAR    SET                                   
056991,000908: 35,3762           01675                                    D6OR9FLG                              
056992,000909: 35,3763           01474                                    VINTFLAG                              
056993,000910: 35,3764           34041                           STCALL   TDEC1                                 
056994,000911: 35,3765           27236                                    INTEGRV                               
056995,000912: 35,3766           77650                           GOTO                                           
056996,000913: 35,3767           73706                                    SETCOAST                              
056997,000914: 

Page 1328

056999,000916:                                                                                                  #  MIDTOAV1
057000,000917: 
057001,000918:                                                                                                  #  THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
057002,000919:                                                                                                  #  IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
057003,000920:                                                                                                  #  TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
057004,000921:                                                                                                  #  IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
057005,000922:                                                                                                  #  IS DONE AS IT IS FOR MIDTOAV2.
057006,000923:                                                                                                  #  RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
057007,000924: 
057008,000925:                                                                                                  #  IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
057009,000926:                                                                                                  #  TO THE RETURN ADDRESS
057010,000927: 
057011,000928:                                                                                                  #  IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
057012,000929:                                                                                                  #  FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
057013,000930:                                                                                                  #  TION TIME AND MPAC IS SET TO THE DELTA TIME---
057014,000931:                                                                                                  #                                        TAT MINUS CURRENT TIME.
057015,000932: 
057016,000933: 
057017,000934:                                                                                                  #  MIDTOAV2
057018,000935: 
057019,000936:                                                                                                  #  THIS ROUTINE INTEGRATES THE CSM STATE VECTOR TO CURRENT TIME PLUS
057020,000937:                                                                                                  #  INCREMENTS OF TIMEDELT SUCH THAT THE DIFFERENCE BETWEEN CURRENT TIME
057021,000938:                                                                                                  #  AND THE STATE VECTOR TIME AT THE END OF THE LAST STEP IS AT LEAST 5.6
057022,000939:                                                                                                  #  SECS.
057023,000940:                                                                                                  #  NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
057024,000941:                                                                                                  #  ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
057025,000942: 
057026,000943: 13,2000                                           SETLOC   INTINIT                               
057027,000944: 13,2000                                           BANK                                           
057028,000945: 13,3566                                           COUNT*   $$/R41                                
057029,000946: 13,3566     0773                                  EBANK=   IRETURN1                              
057030,000947: 13,3566           45020        MIDTOAV2           STQ      CALL                                  
057031,000948: 13,3567           00773                                    IRETURN1                              
057032,000949: 13,3570           27516                                    INTSTALL                              
057033,000950: 13,3571           43145                           DLOAD    CLEAR                                 
057034,000951: 13,3572           13771                                    TIMEDELT                              
057035,000952: 13,3573           04674                                    MID1FLAG                              
057036,000953: 13,3574           37466                           STCALL   T-TO-ADD                              
057037,000954: 13,3575           27612                                    ENTMID2                               
057038,000955: 
057039,000956: 13,3576           45020        MIDTOAV1           STQ      CALL                                  
057040,000957: 13,3577           00773                                    IRETURN1                              
057041,000958: 13,3600           27516                                    INTSTALL                              
057042,000959: 13,3601           47014                           SET      RTB                                   
057043,000960: 13,3602           04474                                    MID1FLAG                              
057044,000961: 13,3603           51751                                    LOADTIME                              
057045,000962: 13,3604           44215                           DAD      BDSU                                  #  INITIAL CHECK, IS TDEC1 IN THE FUTURE.
057046,000963: 13,3605           13771                                    TIMEDELT                              
057047,000964: 13,3606           00041                                    TDEC1                                 
057048,000965: 13,3607           45044                           BPL      CALL                                  

Page 1329

057050,000967: 13,3610           27616                                    ENTMID1                               
057051,000968: 13,3611           13756                                    NOTIME                                #  NO SET ALARM.SWITCH TO MIDTOAV2
057052,000969: 
057053,000970: 13,3612           43234        ENTMID2            RTB      DAD                                   
057054,000971: 13,3613           51751                                    LOADTIME                              
057055,000972: 13,3614           03466                                    T-TO-ADD                              
057056,000973: 13,3615           00041                           STORE    TDEC1                                 
057057,000974: 
057058,000975: 13,3616           45014        ENTMID1            CLEAR    CALL                                  
057059,000976: 13,3617           01676                                    DIM0FLAG                              #  NO W-MATRIX
057060,000977: 13,3620           26034                                    THISVINT                              
057061,000978: 13,3621           43014                           CLEAR    SET                                   
057062,000979: 13,3622           01673                                    INTYPFLG                              
057063,000980: 13,3623           04475                                    MIDAVFLG                              #  LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
057064,000981: 13,3624           77624                           CALL                                           
057065,000982: 13,3625           27236                                    INTEGRV                               #  GO INTEGRATE
057066,000983: 13,3626           66134                           SXA,2    SXA,1                                 
057067,000984: 13,3627           03746                                    RTX2                                  
057068,000985: 13,3630           03745                                    RTX1                                  
057069,000986: 13,3631           67214                           CLEAR    SLOAD                                 
057070,000987: 13,3632           00275                                    AMOONFLG                              
057071,000988: 13,3633           03747                                    RTX2                                  
057072,000989: 13,3634           43054                           BZE      SET                                   
057073,000990: 13,3635           27637                                    +2                                    
057074,000991: 13,3636           00075                                    AMOONFLG                              
057075,000992: 13,3637           77775                           VLOAD                                          
057076,000993: 13,3640           00001                                    RATT                                  
057077,000994: 13,3641           25071                           STOVL    RN1                                   
057078,000995: 13,3642           00007                                    VATT                                  
057079,000996: 13,3643           15077                           STODL    VN1                                   
057080,000997: 13,3644           00015                                    TAT                                   
057081,000998: 13,3645           01105                           STORE    PIPTIME1                              
057082,000999: 13,3646           77776                           EXIT                                           
057083,001000: 
057084,001001: 13,3647           00004                           INHINT                                         
057085,001002: 13,3650           00006                           EXTEND                                         
057086,001003: 13,3651           40025                           DCS      TIME2                                 
057087,001004: 13,3652           20155                           DAS      MPAC                                  
057088,001005: 13,3653           07226                           TC       TPAGREE                               
057089,001006: 
057090,001007: 13,3654           30773                           CA       IRETURN1                              
057091,001008: 13,3655           04660                           TC       BANKJUMP                              
057092,001009: 13,3656           47014        CKMID2             BOF      RTB                                   
057093,001010: 13,3657           04754                                    MID1FLAG                              
057094,001011: 13,3660           27675                                    MID2                                  
057095,001012: 13,3661           51751                                    LOADTIME                              
057096,001013: 13,3662           44215                           DAD      BDSU                                  
057097,001014: 13,3663           13771                                    TIMEDELT                              
057098,001015: 13,3664           00745                                    TDEC                                  
057099,001016: 13,3665           45044                           BPL      CALL                                  

Page 1330

057101,001018: 13,3666           27364                                    TESTLOOP                              #  YES
057102,001019: 13,3667           13756                                    NOTIME                                
057103,001020: 
057104,001021: 13,3670           43234        TIMEINC            RTB      DAD                                   
057105,001022: 13,3671           51751                                    LOADTIME                              
057106,001023: 13,3672           03466                                    T-TO-ADD                              
057107,001024: 13,3673           34745                           STCALL   TDEC                                  
057108,001025: 13,3674           27364                                    TESTLOOP                              
057109,001026: 
057110,001027: 13,3675           45345        MID2               DLOAD    DSU                                   
057111,001028: 13,3676           00745                                    TDEC                                  
057112,001029: 13,3677           01517                                    TET                                   
057113,001030: 13,3700           45246                           ABS      DSU                                   
057114,001031: 13,3701           13755                                    3CSECS                                
057115,001032: 13,3702           77644                           BPL                                            
057116,001033: 13,3703           27670                                    TIMEINC                               
057117,001034: 
057118,001035: 13,3704           44234                           RTB      BDSU                                  #  SEE IF 5.6 SECS. AVAILABLE TO CALLER.
057119,001036: 13,3705           51751                                    LOADTIME                              
057120,001037: 13,3706           01517                                    TET                                   
057121,001038: 13,3707           51025                           DSU      BPL                                   
057122,001039: 13,3710           13773                                    5.6SECS                               
057123,001040: 13,3711           27252                                    A-PCHK                                #  YES,GET OUT.
057124,001041: 
057125,001042: 13,3712           43345                           DLOAD    DAD                                   #  NO, ADD TIMEDELT TO T-TO-ADD AND TRY
057126,001043: 13,3713           03466                                    T-TO-ADD                              #  AGAIN.
057127,001044: 13,3714           13771                                    TIMEDELT                              
057128,001045: 13,3715           37466                           STCALL   T-TO-ADD                              
057129,001046: 13,3716           27670                                    TIMEINC                               
057130,001047: 
057131,001048: 
057132,001049: 05,2000                                           SETLOC   INTINIT3                              
057133,001050: 05,2000                                           BANK                                           
057134,001051: 
057135,001052: 05,3754                                           COUNT*   $$/R41                                
057136,001053: 05,3754           00000 00003  3CSECS             2DEC     3          B-28                       
057137,001054: 
057138,001055: 05,3756           77414        NOTIME             CLEAR    EXIT                                  #  TOO LATE
057139,001056: 05,3757           04674                                    MID1FLAG                              
057140,001057: 05,3760           24773                           INCR     IRETURN1                              #  SET ERROR EXIT (CALLOC +2)
057141,001058: 05,3761           05671                           TC       ALARM                                 #  INSUFFICIENT TIME FOR INTEGRATION --
057142,001059: 05,3762           01703                           OCT      1703                                  #     TIG WILL BE SLIPPED...
057143,001060: 05,3763           06006                           TC       INTPRET                               
057144,001061: 05,3764           77745                           DLOAD                                          
057145,001062: 05,3765           13771                                    TIMEDELT                              
057146,001063: 05,3766           03466                           STORE    T-TO-ADD                              
057147,001064: 05,3767           77616                           RVQ                                            
057148,001065: 
057149,001066: 05,3770           00000 02342  TIMEDELT           2DEC     1250       B-28                       

Page 1331

057151,001068: 05,3772           00000 01060  5.6SECS            2DEC     560        B-28                       
057152,001069: 27,2000                                           SETLOC   UPDATE2                               
057153,001070: 27,2000                                           BANK                                           
057154,001071: 27,3072                                           COUNT*   $$/INTIN                              
057155,001072: 
057156,001073: 27,3072  E3,1706                                  EBANK=   TEPHEM                                
057157,001074: 27,3072           06006        INTWAKEU           TC       INTPRET                               
057158,001075: 
057159,001076: 27,3073           53135                           SLOAD    BZE                                   #  IS THIS A CSM/LEM STATE VECTOR UPDATE
057160,001077: 27,3074           01502                                    UPSVFLAG                              #  REQUEST. IF NOT GO TO INTWAKUP.
057161,001078: 27,3075           57141                                    INTWAKUP                              
057162,001079: 
057163,001080: 27,3076           77775                           VLOAD                                          #  MOVE RRECT(6) AND VRECT(6) INTO
057164,001081: 27,3077           01503                                    RRECT                                 #       RCV(6)   AND VCV(6)   RESPECTIVELY.
057165,001082: 27,3100           25535                           STOVL    RCV                                   
057166,001083: 27,3101           01511                                    VRECT                                 #  NOW GO TO 'RECTIFY +13D' TO
057167,001084: 27,3102           77624                           CALL                                           #  STORE VRECT INTO VCV AND ZERO OUT
057168,001085: 27,3103           23435                                    TINIRECT                              #  TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
057169,001086: 27,3104           51535                           SLOAD    ABS                                   #  COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
057170,001087: 27,3105           01502                                    UPSVFLAG                              #  TO 'UPDATE MOON STATE VECTOR CODE'
057171,001088: 27,3106           53025                           DSU      BZE                                   #  TO DETERMINE WHETHER THE STATE VECTOR TO
057172,001089: 27,3107           17150                                    UPMNSVCD                              #  BE UPDATED IS IN THE EARTH OR LUNAR
057173,001090: 27,3110           57115                                    INTWAKEM                              #  SPHERE OF INFLUENCE.........
057174,001091: 27,3111           43174                           AXT,2    CLRGO                                 #  EARTH SPHERE OF INFLUENCE.
057175,001092: 27,3112           00000                           DEC      0          B-14                       
057176,001093: 27,3113           00223                                    MOONFLAG                              
057177,001094: 27,3114           57120                                    INTWAKEC                              
057178,001095: 27,3115           43174        INTWAKEM           AXT,2    SET                                   #  LUNAR SPHERE OF INFLUENCE.
057179,001096: 27,3116           00002                           DEC      2          B-14                       
057180,001097: 27,3117           00063                                    MOONFLAG                              
057181,001098: 27,3120           50135        INTWAKEC           SLOAD    BMN                                   #  COMMON CODING AFTER X2 INITIALIZED AND
057182,001099:                                                                                                  #  MOONFLAG SET (OR CLEARED).
057183,001100: 27,3121           01502                                    UPSVFLAG                              #  IS THIS A REQUEST FOR A LEM OR CSM
057184,001101: 27,3122           57130                                    INTWAKLM                              #   STATE VECTOR UPDATE......
057185,001102: 27,3123           77624                           CALL                                           #  UPDATE CSM STATE VECTOR
057186,001103: 27,3124           26761                                    ATOPCSM                               
057187,001104: 
057188,001105: 27,3125           52014                           CLEAR    GOTO                                  
057189,001106: 27,3126           01671                                    ORBWFLAG                              
057190,001107: 27,3127           57132                                    INTWAKEX                              
057191,001108: 
057192,001109: 27,3130           77624        INTWAKLM           CALL                                           #  UPDATE LM STATE VECTOR
057193,001110: 27,3131           27034                                    ATOPLEM                               
057194,001111: 
057195,001112: 27,3132           77414        INTWAKEX           CLEAR    EXIT                                  
057196,001113: 27,3133           02676                                    RENDWFLG                              
057197,001114: 
057198,001115: 27,3134           34772                           CAF      ZERO                                  
057199,001116: 27,3135           00006                           EXTEND                                         

Page 1332

057201,001118: 
057202,001119: 27,3136           01077                           WRITE    CHAN77                                #  ZERO CHANNEL 77
057203,001120: 27,3137           55501                           TS       UPSVFLAG                              
057204,001121: 
057205,001122: 27,3140           06006                           TC       INTPRET                               
057206,001123: 27,3141           77624        INTWAKUP           CALL                                           
057207,001124: 27,3142           27525                                    INTWAKE0                              #  RELEASE :GRAB: OF ORBIT INTEG
057208,001125: 27,3143           77776                           EXIT                                           
057209,001126: 
057210,001127: 27,3144           05402                           TC       PHASCHNG                              
057211,001128: 27,3145           04026                           OCT      04026                                 
057212,001129: 27,3146           03706                           TC       UPOUT      +1                         
057213,001130: 
057214,001131: 27,3147           00002        UPMNSVCD           OCT      2                                     
057215,001132: 27,3150           00000                           OCT      0                                     
057216,001133: 
057217,001134: 11,2000                                           SETLOC   ORBITAL                               
057218,001135: 11,2000                                           BANK                                           
057219,001136: 
057220,001137: 11,2327                                           COUNT*   $$/ORBIT                              
057221,001138: 11,2327           77420        GRP2PC             STQ      EXIT                                  
057222,001139: 11,2330           03536                                    GRP2SVQ                               
057223,001140: 11,2331           05402                           TC       PHASCHNG                              
057224,001141: 11,2332           04022                           OCT      04022                                 
057225,001142: 11,2333           06006                           TC       INTPRET                               
057226,001143: 11,2334           77650                           GOTO                                           
057227,001144: 11,2335           03536                                    GRP2SVQ                               

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