Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. 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

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

055820,000002:                                                                                                 #  Copyright:     Public domain.
055821,000003:                                                                                                 #  Filename:      INTEGRATION_INITIALIZATION.agc
055822,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
055823,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM) 
055824,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for 
055825,000007:                                                                                                 #                 Apollo 15-17.
055826,000008:                                                                                                 #  Assembler:     yaYUL
055827,000009:                                                                                                 #  Contact:       Sergio Navarro <sergionavarrog@gmail.com>
055828,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
055829,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
055830,000012:                                                                                                 #  Mod history:   2009-09-03 SN   Adapted from corresponding Comanche 055 file.
055831,000013:                                                                                                 #                 2009-09-04 JL   Fixed page comment.
055832,000014:                                                                                                 #                 2009-09-05 JL   Fixed typos.
055833,000015:                                                                                                 #                 2009-09-07 JL   Fixed typos.
055834,000016:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
055835,000017: 
055836,000018:                                                                                                 # # Page 1309
055837,000019:                                                                                                 #  1.0 INTRODUCTION
055838,000020:                                                                                                 #  ----------------
055839,000021: 
055840,000022:                                                                                                 #  FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
055841,000023:                                                                                                 #  PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
055842,000024:                                                                                                 #  OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
055843,000025:                                                                                                 #  TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
055844,000026:                                                                                                 #  SIDE THE LUNAR SPHERE OF INFLUENCE.
055845,000027: 
055846,000028:                                                                                                 #  IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
055847,000029:                                                                                                 #  WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
055848,000030:                                                                                                 #  INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
055849,000031:                                                                                                 #  CALL TC INTSTALL.
055850,000032: 
055851,000033:                                                                                                 #  WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
055852,000034:                                                                                                 #  INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
055853,000035:                                                                                                 #  BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
055854,000036:                                                                                                 #  THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
055855,000037:                                                                                                 #  THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
055856,000038: 
055857,000039:                                                                                                 #  USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
055858,000040:                                                                                                 #  IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
055859,000041:                                                                                                 #  TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ''INTEGRATION'' THE USER MAY STILL USE ZERO
055860,000042:                                                                                                 #  AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
055861,000043: 
055862,000044:                                                                                                 #  2.0 GENERAL DESCRIPTION
055863,000045:                                                                                                 #  -----------------------
055864,000046: 
055865,000047:                                                                                                 #  THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS---
055866,000048:                                                                                                 #         1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
055867,000049:                                                                                                 #         2) INTEGRATES THE W-MATRIX
055868,000050:                                                                                                 #         3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
055869,000051: 
055870,000052:                                                                                                 #  THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
055871,000053:                                                                                                 #  ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
055872,000054:                                                                                                 #  THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
055873,000055:                                                                                                 #  PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
055874,000056:                                                                                                 #  CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
055875,000057:                                                                                                 #  THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
055876,000058:                                                                                                 #  NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
055877,000059:                                                                                                 #  VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
055878,000060:                                                                                                 #  AND/OR STATE VECTOR.
055879,000061: 
055880,000062:                                                                                                 #  THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
055881,000063:                                                                                                 #  USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
055882,000064:                                                                                                 #  IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
055883,000065: 
055884,000066:                                                                                                 #  THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
055885,000067:                                                                                                 #  THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
055886,000068:                                                                                                 #  SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
055887,000069: 
055888,000070:                                                                                                 # # Page 1310
055889,000071:                                                                                                 #  APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
055890,000072: 
055891,000073:                                                                                                 #  2.1 RESTARTS
055892,000074: 
055893,000075:                                                                                                 #  PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
055894,000076:                                                                                                 #  INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
055895,000077:                                                                                                 #  (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
055896,000078:                                                                                                 #  INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
055897,000079:                                                                                                 #  PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
055898,000080:                                                                                                 #  THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
055899,000081:                                                                                                 #  THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
055900,000082: 
055901,000083:                                                                                                 #  2.2 SCALING
055902,000084: 
055903,000085:                                                                                                 #  THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
055904,000086:                                                                                                 #  APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
055905,000087:                                                                                                 #  SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
055906,000088:                                                                                                 #  MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
055907,000089:                                                                                                 #  DIFFERENT SCALING.
055908,000090:                                                                                                 #  HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
055909,000091: 
055910,000092:                                                                                                 #  3.0 INPUT/OUTPUT
055911,000093:                                                                                                 #  ----------------
055912,000094: 
055913,000095:                                                                                                 #  PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
055914,000096:                                                                                                 #  PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
055915,000097:                                                                                                 #  FOR INTEGRVS, THE RCV,VCV, TET OR THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
055916,000098: 
055917,000099:                                                                                                 #  FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
055918,000100:                                                                                                 #                                                                 EARTH   MOON
055919,000101:                                                                                                 #                                                                  29      27
055920,000102:                                                                                                 #         RRECTCSM(LEM)   - RECTIFIED POSITION VECTOR     METERS  2       2
055921,000103: 
055922,000104:                                                                                                 #                                                                  7       5
055923,000105:                                                                                                 #         VRECTCSM(LEM)   - RECTIFIED VELOCITY VECTOR     M/CSEC  2       2
055924,000106: 
055925,000107:                                                                                                 #                                                                  28      28
055926,000108:                                                                                                 #         TETCSM(LEM)     - TIME STATE VECTOR IS VALID    CSEC    2       2
055927,000109:                                                                                                 #                           CUSTOMARILY 0, BUT NOTE LUNAR
055928,000110:                                                                                                 #                           ORBIT DEPENDENCE ON REAL TIME.
055929,000111: 
055930,000112:                                                                                                 #                                                                  22      18
055931,000113:                                                                                                 #         DELTAVCSM(LEM)  - POSITION DEVIATION            METERS  2       2
055932,000114:                                                                                                 #                           0 IF TCCSM(LEM) = 0
055933,000115: 
055934,000116:                                                                                                 #                                                                  3       -1
055935,000117:                                                                                                 #         NUVCSM(LEM)     - VELOCITY DEVIATION            M/CSEC  2       2
055936,000118:                                                                                                 #                           0 IF TCCSM(LEM) = 0
055937,000119:                                                                                                 # # Page 1311
055938,000120:                                                                                                 #                                                                  29      27
055939,000121:                                                                                                 #         RCVSM(LEM)      - CONIC POSITION                METERS  2       2
055940,000122:                                                                                                 #                           EQUALS RRECTCSM(LEM) IF
055941,000123:                                                                                                 #                           TCCSM(LEM) = 0
055942,000124: 
055943,000125:                                                                                                 #                                                                  7       5
055944,000126:                                                                                                 #         VCVCSM(LEM)     - CONIC VELOCITY                M/CSEC  2       2
055945,000127:                                                                                                 #                           EQUALS VRECTCSM(LEM) IF
055946,000128:                                                                                                 #                           TCCSM(LEM) = 0
055947,000129: 
055948,000130:                                                                                                 #                                                                  28      28
055949,000131:                                                                                                 #         TCCSM(LEM)      - TIME SINCE RECTIFICATION      CSECS   2       2
055950,000132:                                                                                                 #                           CUSTOMARILY 0
055951,000133: 
055952,000134:                                                                                                 #                                                          1/2     17      16
055953,000135:                                                                                                 #         XKEPCSM(LEM)    - RDOT OF KEPLERS EQUATION      M       2       2
055954,000136:                                                                                                 #                           0 IF TCCSM(LEM) = 0
055955,000137: 
055956,000138:                                                                                                 #         CMOONFLG        - PERMANENT FLAGS CORRESPONDING         0       0
055957,000139:                                                                                                 #         CMIDFLAG          TO MOONFLAG AND MIDFLAG               0,1     0,1
055958,000140:                                                                                                 #         LMOONFLG          C = CSM, L = LM                       0       0
055959,000141:                                                                                                 #         LMIDFLG                                                 0,1     0,1
055960,000142: 
055961,000143:                                                                                                 #         SURFFLAG        - LUNAR SURFACE FLAG                    0,1     0,1
055962,000144: 
055963,000145:                                                                                                 #  IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
055964,000146:                                                                                                 #  SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
055965,000147:                                                                                                 #  ROUTINE MUST BE PRESET.
055966,000148: 
055967,000149:                                                                                                 #  OUTPUT
055968,000150:                                                                                                 #         AFTER EVERY CALL TO INTEGRATION
055969,000151:                                                                                                 #                                                                 EARTH   MOON
055970,000152:                                                                                                 #                                                                  29      29
055971,000153:                                                                                                 #         0D      RATT    POSITION                        METERS  2       2
055972,000154:                                                                                                 #                                                                  7       7
055973,000155:                                                                                                 #         6D      VATT    VELOCITY                        M/CSEC  2       2
055974,000156:                                                                                                 #                                                                  28      28
055975,000157:                                                                                                 #         12D     TAT     TIME                                    2       2
055976,000158:                                                                                                 #                                                                  29      27
055977,000159:                                                                                                 #         14D     RATT1   POSITION                        METERS  2       2
055978,000160:                                                                                                 #                                                                  7       5
055979,000161:                                                                                                 #         20D     VATT1   VELOCITY                        M/CSEC  2       2
055980,000162:                                                                                                 #                                                          3   2   36      30
055981,000163:                                                                                                 #         26D     MU(P)   MU                              M /CS   2       2
055982,000164: 
055983,000165:                                                                                                 #         X1              MUTABLE ENTRY                           -2      -10D
055984,000166: 
055985,000167:                                                                                                 #         X2              COORDINT
055986,000168:                                                                                                 #         X2              COORDINATE SYSTEM ORIGIN                0       2
055987,000169:                                                                                                 #                         (THIS, NOT MOONFLAG, SHOULD BE
055988,000170:                                                                                                 # # Page 1312
055989,000171:                                                                                                 #                         USED TO DETERMINE ORIGIN.)
055990,000172: 
055991,000173:                                                                                                 #  IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
055992,000174:                                                                                                 #  STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
055993,000175:                                                                                                 #  COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
055994,000176:                                                                                                 #  CALLING PROGRAM.
055995,000177: 
055996,000178:                                                                                                 #  4.0 CALLING SEQUENCES AND SAMPLE CODE
055997,000179:                                                                                                 #  -------------------------------------
055998,000180: 
055999,000181:                                                                                                 #         A) PRECISION ORBITAL INTEGRATION. CSMPREC,LEMPREC ENTRANCES
056000,000182:                                                                                                 #                 L-X     STORE TIME TO 95T5791T5 T  95 PUS L9ST (T4531)
056001,000183:                                                                                                 #                 L       CALL
056002,000184:                                                                                                 #                 L+1             CSMPREC (OR LEMPREC)
056003,000185:                                                                                                 #                 L+2     RETURN
056004,000186:                                                                                                 #            INPUT                                                           28
056005,000187:                                                                                                 #                 TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
056006,000188:                                                                                                 #            OUTPUT
056007,000189:                                                                                                 #                 THE DATA LISTED IN SECTION 3.0 PLUS
056008,000190:                                                                                                 #                 RQVV    POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
056009,000191:                                                                                                 #                 BODY... METERS B-29 ONLY IF MIDFLAG = DIM0FLAG = 1
056010,000192:                                                                                                 #         B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
056011,000193:                                                                                                 #                 L-X     STORE TIME IN PUSH LIST (TDEC1)
056012,000194:                                                                                                 #                 L       CALL
056013,000195:                                                                                                 #                 L+1             CSMCONIC (OR LEMCONIC)
056014,000196:                                                                                                 #            INPUT/OUTPUT
056015,000197:                                                                                                 #                 SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
056016,000198:                                                                                                 #         C) INTEGRATE GIVEN STATE VECTOR.  INTEGRVS ENTRANCE
056017,000199:                                                                                                 #                         CALL
056018,000200:                                                                                                 #                                 INTSTALL
056019,000201:                                                                                                 #                         VLOAD
056020,000202:                                                                                                 #                                 POSITION VECTOR
056021,000203:                                                                                                 #                         STOVL   RCV
056022,000204:                                                                                                 #                                 VELOCITY VECTOR
056023,000205:                                                                                                 #                         STODL   VCV
056024,000206:                                                                                                 #                                 TIME STATE VECTOR VALID
056025,000207:                                                                                                 #                         STODL   TET
056026,000208:                                                                                                 #                                 FINAL RADIUS
056027,000209:                                                                                                 #                         STORE   RFINAL
056028,000210:                                                                                                 #                         SET(CLEAR)      SET(CLEAR)
056029,000211:                                                                                                 #                                         INTYPFLAG
056030,000212:                                                                                                 #                                         MOONFLAG
056031,000213:                                                                                                 #                         SET(CLEAR)      DLOAD
056032,000214:                                                                                                 #                                         DESIRED TIME
056033,000215:                                                                                                 #                         STCALL          TDEC1
056034,000216:                                                                                                 #                                         INTEGRVS
056035,000217:                                                                                                 #            INPUT
056036,000218:                                                                                                 #                 RCV     POSITION VECTOR                 METERS
056037,000219:                                                                                                 #                 VCV     VELOCITY VECTOR                 M/CSEC
056038,000220:                                                                                                 #                 TET     TIME OF STATE VECTOR (MAY = 0)  CSEC B-28
056039,000221:                                                                                                 # # Page 1313
056040,000222:                                                                                                 #                 TDEC1   TIME TO INTEGRATE TO            CSEC B-28 (PD 32D)
056041,000223:                                                                                                 #                         (MAY BE INCREMENT IF TET=0)
056042,000224:                                                                                                 #            OUTPUT
056043,000225:                                                                                                 #                 SAME AS FOR PRECISION OR CONIC INTEGRATION,
056044,000226:                                                                                                 #                 DEPENDING ON INTYPFLG.
056045,000227:                                                                                                 #         D) INTEGRATE STATE VECTOR.  INTGRV ENTRANCE
056046,000228:                                                                                                 #                 L-X     STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
056047,000229:                                                                                                 #                 L-8     CALL
056048,000230:                                                                                                 #                 L-7
056049,000231:                                                                                                 #                 L-6     SET(CLEAR)      SET(CLEAR)
056050,000232:                                                                                                 #                 L-5                     VINTFLAG        1=CSM, 0=LM
056051,000233:                                                                                                 #                 L-4                     INTYPFLAG       1=CONIC, 0=PRECISION
056052,000234:                                                                                                 #                 L-3     SET(CLEAR)      SET(CLEAR)
056053,000235:                                                                                                 #                 L-2                     DIM0FLAG        1=W-MATRIX, 0=NO W-MATRIX
056054,000236:                                                                                                 #                 L-1                     D6OR9FLG        1=9X9, 0=6X6
056055,000237:                                                                                                 #                 L       SET             DLOAD
056056,000238:                                                                                                 #                 L+1                     STATEFLG        DESIRE PERMANENT UPDATE
056057,000239:                                                                                                 #                 L+2                     FINAL RAD. OF STATE VECTOR
056058,000240:                                                                                                 #                 L+3     STCALL          RFINAL
056059,000241:                                                                                                 #                 L+4                     INTEGRV
056060,000242:                                                                                                 #                 L       CALL                            NORMAL USE-- WILL UPDATE STATE
056061,000243:                                                                                                 #                 L+1                     INTEGRV         VECTOR IF DIM0FLAG=1. (STATEFLG IS
056062,000244:                                                                                                 #                 L+2     RETURN                          ALWAYS RESET IN INTEGRATION AFTER
056063,000245:                                                                                                 #                                                         IT IS USED.)
056064,000246:                                                                                                 #           INPUT
056065,000247:                                                                                                 #                 TDEC1 (PD 32D) TIME TO INTEGRATE TO     CSEC B-28
056066,000248:                                                                                                 #           OUTPUT
056067,000249:                                                                                                 #                 SAME AS FOR PRECISION OR CONIC INTEGRATION
056068,000250:                                                                                                 #           THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
056069,000251:                                                                                                 #           THE PERMANENT STATE VECTOR REPRESENTATION.
056070,000252: 
056071,000253: 13,2000                                          SETLOC   INTINIT                               
056072,000254: 13,2000                                          BANK                                           
056073,000255: 13,2702  E3,1554                                 EBANK=   RRECTCSM                              
056074,000256: 13,2702                                          COUNT*   $$/INTIN                              
056075,000257: 13,2702           05402        STATEINT          TC       PHASCHNG                              
056076,000258: 13,2703           00052                          OCT      00052                                 
056077,000259: 13,2704  01,2036               2P5SPT4           =        2.5SPOT                               
056078,000260: 13,2704           35047                          CAF      PRIO5                                 
056079,000261: 13,2705           05135                          TC       FINDVAC                               
056080,000262: 13,2706  E3,1554                                 EBANK=   RRECTCSM                              
056081,000263: 13,2706           02711 26063                    2CADR    STATINT1                              
056082,000264: 
056083,000265: 13,2710           05314                          TC       TASKOVER                              
056084,000266: 13,2711           06006        STATINT1          TC       INTPRET                               
056085,000267: 13,2712           47014                          BON      RTB                                   
056086,000268: 13,2713           04712                                   QUITFLAG                              
056087,000269: 13,2714           26753                                   NOINT                                 #  NO STATEINT IF V96
056088,000270: 13,2715           51751                                   LOADTIME                              
056089,000271: 13,2716           00041                          STORE    TDEC1                                 
056090,000272:                                                                                                 # # Page 1314
056091,000273: 13,2717           45014                          CLEAR    CALL                                  
056092,000274: 13,2720           04274                                   V96ONFLG                              
056093,000275: 13,2721           27516                                   INTSTALL                              
056094,000276: 13,2722           45014                          SET      CALL                                  
056095,000277: 13,2723           01076                                   NODOFLAG                              
056096,000278: 13,2724           26744                                   SETIFLGS                              
056097,000279: 13,2725           52014                          SET      GOTO                                  #  INHIBIT BACKWARDS INTEGRATION
056098,000280: 13,2726           01466                                   POOFLAG                               
056099,000281: 13,2727           26000                                   STATEUP                               
056100,000282: 13,2730           00003 25140  600SECS           2DEC     60000      B-28                       
056101,000283: 
056102,000284: 13,2732           77414        ENDINT            CLEAR    EXIT                                  
056103,000285: 13,2733           01672                                   STATEFLG                              
056104,000286: 13,2734           05402                          TC       PHASCHNG                              
056105,000287: 13,2735           20032                          OCT      20032                                 
056106,000288: 13,2736  01,2033               SP3SPT1           =        2.3SPOT                               
056107,000289: 13,2736           00006                          EXTEND                                         
056108,000290: 13,2737           32731                          DCA      600SECS                               
056109,000291: 13,2740           05332                          TC       LONGCALL                              
056110,000292: 13,2741  E3,1554                                 EBANK=   RRECTHIS                              
056111,000293: 13,2741           02702 26063                    2CADR    STATEINT                              
056112,000294: 
056113,000295: 13,2743           05205                          TC       ENDOFJOB                              
056114,000296: 13,2744           43014        SETIFLGS          SET      CLEAR                                 
056115,000297: 13,2745           01472                                   STATEFLG                              
056116,000298: 13,2746           01673                                   INTYPFLG                              
056117,000299: 13,2747           43014                          CLEAR    CLEAR                                 
056118,000300: 13,2750           01676                                   DIM0FLAG                              
056119,000301: 13,2751           01675                                   D6OR9FLG                              
056120,000302: 13,2752           77616                          RVQ                                            
056121,000303: 13,2753           77776        NOINT             EXIT                                           
056122,000304: 13,2754           05402                          TC       PHASCHNG                              
056123,000305: 13,2755           00002                          OCT      2                                     
056124,000306: 
056125,000307: 13,2756           05561                          TC       DOWNFLAG                              
056126,000308: 13,2757           00221                          ADRES    QUITFLAG                              
056127,000309: 
056128,000310: 13,2760           05205                          TC       ENDOFJOB                              
056129,000311: 
056130,000312:                                                                                                 #  ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
056131,000313: 
056132,000314:                                                                                                 #  CALLING SEQUENCE
056133,000315:                                                                                                 #         L       CALL
056134,000316:                                                                                                 #         L+1             ATOPCSM
056135,000317: 
056136,000318:                                                                                                 #  NORMAL EXIT AT L+2
056137,000319: 
056138,000320: 13,2761           47020        ATOPCSM           STQ      RTB                                   
056139,000321: 13,2762           00051                                   S2                                    
056140,000322: 13,2763           26774                                   MOVEACSM                              
056141,000323:                                                                                                 # # Page 1315
056142,000324: 13,2764           45014                          SET      CALL                                  
056143,000325: 13,2765           04063                                   CMOONFLG                              
056144,000326: 13,2766           20240                                   SVDWN1                                
056145,000327: 13,2767           43014                          BON      CLRGO                                 
056146,000328: 13,2770           00303                                   MOONFLAG                              
056147,000329: 13,2771           00051                                   S2                                    
056148,000330: 13,2772           04223                                   CMOONFLG                              
056149,000331: 13,2773           00051                                   S2                                    
056150,000332: 13,2774           03140        MOVEACSM          TC       SETBANK                               
056151,000333: 13,2775           55500                 +1       TS       DIFEQCNT                              #  INITIALIZE INDEX
056152,000334: 13,2776           51500                          INDEX    DIFEQCNT                              
056153,000335: 13,2777           31502                          CA       RRECT                                 
056154,000336: 13,3000           51500                          INDEX    DIFEQCNT                              
056155,000337: 13,3001           55554                          TS       RRECTCSM                              
056156,000338: 13,3002           11500                          CCS      DIFEQCNT                              #  IS TRANSFER COMPLETE
056157,000339: 13,3003           12775                          TCF      MOVEACSM   +1                         #  NO-LOOP
056158,000340: 13,3004           06030                          TC       DANZIG                                #  COMPLETE- RETURN
056159,000341: 
056160,000342: 
056161,000343:                                                                                                 #  PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
056162,000344: 
056163,000345:                                                                                                 #  CALLING SEQUENCE
056164,000346:                                                                                                 #         L       CALL
056165,000347:                                                                                                 #                         PTOACSM
056166,000348: 
056167,000349:                                                                                                 #  NORMAL EXIT AT L+2
056168,000350: 
056169,000351: 13,3005           43034        PTOACSM           RTB      BON                                   
056170,000352: 13,3006           27023                                   MOVEPCSM                              
056171,000353: 13,3007           04303                                   CMOONFLG                              
056172,000354: 13,3010           27016                                   SETMOON                               
056173,000355: 13,3011           66214        CLRMOON           CLEAR    SSP                                   
056174,000356: 13,3012           00263                                   MOONFLAG                              
056175,000357: 13,3013           02151                                   PBODY                                 
056176,000358: 13,3014           00000                                   0                                     
056177,000359: 13,3015           77616                          RVQ                                            
056178,000360: 13,3016           66214        SETMOON           SET      SSP                                   
056179,000361: 13,3017           00063                                   MOONFLAG                              
056180,000362: 13,3020           02151                                   PBODY                                 
056181,000363: 13,3021           00002                                   2                                     
056182,000364: 13,3022           77616                          RVQ                                            
056183,000365: 13,3023           03140        MOVEPCSM          TC       SETBANK                               
056184,000366: 13,3024           55500                 +1       TS       DIFEQCNT                              
056185,000367: 13,3025           51500                          INDEX    DIFEQCNT                              
056186,000368: 13,3026           31554                          CA       RRECTCSM                              
056187,000369: 13,3027           51500                          INDEX    DIFEQCNT                              
056188,000370: 13,3030           55502                          TS       RRECT                                 
056189,000371: 13,3031           11500                          CCS      DIFEQCNT                              
056190,000372: 13,3032           13024                          TCF      MOVEPCSM   +1                         
056191,000373: 13,3033           06030                          TC       DANZIG                                
056192,000374: 
056193,000375:                                                                                                 # # Page 1316
056194,000376:                                                                                                 #  ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
056195,000377: 13,3034           47020        ATOPLEM           STQ      RTB                                   
056196,000378: 13,3035           00051                                   S2                                    
056197,000379: 13,3036           27047                                   MOVEALEM                              
056198,000380: 13,3037           45014                          SET      CALL                                  
056199,000381: 13,3040           04064                                   LMOONFLG                              
056200,000382: 13,3041           20264                                   SVDWN2                                
056201,000383: 13,3042           43014                          BON      CLRGO                                 
056202,000384: 13,3043           00303                                   MOONFLAG                              
056203,000385: 13,3044           00051                                   S2                                    
056204,000386: 13,3045           04224                                   LMOONFLG                              
056205,000387: 13,3046           00051                                   S2                                    
056206,000388: 13,3047           03140        MOVEALEM          TC       SETBANK                               
056207,000389: 13,3050           55500                 +1       TS       DIFEQCNT                              
056208,000390: 13,3051           51500                          INDEX    DIFEQCNT                              
056209,000391: 13,3052           31502                          CA       RRECT                                 
056210,000392: 13,3053           51500                          INDEX    DIFEQCNT                              
056211,000393: 13,3054           55626                          TS       RRECTLEM                              
056212,000394: 13,3055           11500                          CCS      DIFEQCNT                              
056213,000395: 13,3056           13050                          TCF      MOVEALEM   +1                         
056214,000396: 13,3057           06030                          TC       DANZIG                                
056215,000397: 
056216,000398: 
056217,000399:                                                                                                 #  PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
056218,000400: 
056219,000401: 13,3060           47014        PTOALEM           BON      RTB                                   
056220,000402: 13,3061           04307                                   SURFFLAG                              
056221,000403: 13,3062           27101                                   USEPIOS                               
056222,000404: 13,3063           27070                                   MOVEPLEM                              
056223,000405: 13,3064           52014                          BON      GOTO                                  
056224,000406: 13,3065           04304                                   LMOONFLG                              
056225,000407: 13,3066           27016                                   SETMOON                               
056226,000408: 13,3067           27011                                   CLRMOON                               
056227,000409: 13,3070           03140        MOVEPLEM          TC       SETBANK                               
056228,000410: 13,3071           55500                 +1       TS       DIFEQCNT                              
056229,000411: 13,3072           51500                          INDEX    DIFEQCNT                              
056230,000412: 13,3073           31626                          CA       RRECTLEM                              
056231,000413: 13,3074           51500                          INDEX    DIFEQCNT                              
056232,000414: 13,3075           55502                          TS       RRECT                                 
056233,000415: 13,3076           11500                          CCS      DIFEQCNT                              
056234,000416: 13,3077           13071                          TCF      MOVEPLEM   +1                         
056235,000417: 13,3100           06030                          TC       DANZIG                                
056236,000418: 
056237,000419: 
056238,000420: 13,3101           77201        USEPIOS           SETPD    VLOAD                                 
056239,000421: 13,3102           00001                                   0                                     
056240,000422: 13,3103           02026                                   RLS                                   
056241,000423: 13,3104           41525                          PDDL     PUSH                                  
056242,000424: 13,3105           00041                                   TDEC1                                 
056243,000425:                                                                                                 # # Page 1317                     
056244,000426: 13,3106           15517                          STODL    TET                                   
056245,000427: 13,3107           27756                                   5/8                                   
056246,000428: 13,3110           77624                          CALL                                           
056247,000429: 13,3111           55345                                   RP-TO-R                               
056248,000430: 13,3112           25535                          STOVL    RCV                                   
056249,000431: 13,3113           11754                                   ZUNIT                                 
056250,000432: 13,3114           14001                          STODL    0D                                    
056251,000433: 13,3115           01517                                   TET                                   
056252,000434: 13,3116           14007                          STODL    6D                                    
056253,000435: 13,3117           27756                                   5/8                                   
056254,000436: 13,3120           45014                          SET      CALL                                  #  NEEDED FOR SETTING X1 ON EXIT
056255,000437: 13,3121           00063                                   MOONFLAG                              
056256,000438: 13,3122           55345                                   RP-TO-R                               
056257,000439: 13,3123           74235                          VXV      VXSC                                  
056258,000440: 13,3124           01535                                   RCV                                   
056259,000441: 13,3125           27137                                   OMEGMOON                              
056260,000442: 13,3126           25543                          STOVL    VCV                                   
056261,000443: 13,3127           11762                                   ZEROVEC                               
056262,000444: 13,3130           01521                          STORE    TDELTAV                               
056263,000445: 13,3131           67174                          AXT,2    SXA,2                                 
056264,000446: 13,3132           00002                                   2                                     
056265,000447: 13,3133           02150                                   PBODY                                 
056266,000448: 13,3134           35527                          STCALL   TNUV                                  
056267,000449: 13,3135           27252                                   A-PCHK                                
056268,000450: 13,3136           07112 06620  OMEGMOON          2DEC*    2.66169947 E-8        B+23*           
056269,000451: 13,3140           33144        SETBANK           CAF      INTBANK                               
056270,000452: 13,3141           54006                          TS       BBANK                                 
056271,000453: 13,3142           33553                          CAF      FORTYONE                              
056272,000454: 13,3143           00002                          TC       Q                                     
056273,000455: 13,3144  E3,1554                                 EBANK=   RRECTCSM                              
056274,000456: 13,3144           26063        INTBANK           BBCON    INTEGRV                               
056275,000457: 
056276,000458: 
056277,000459:                                                                                                 #  SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
056278,000460:                                                                                                 #  APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
056279,000461: 
056280,000462:                                                                                                 #  CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1.
056281,000463:                                                                                                 #  ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
056282,000464:                                                                                                 #  THE PERMANENT STATE VECTOR IS NOT UPDATED.
056283,000465:                                                                                                 #  CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
056284,000466:                                                                                                 #  NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
056285,000467:                                                                                                 #  STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLER'S EQUATION
056286,000468: 
056287,000469:                                                                                                 #  THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
056288,000470:                                                                                                 #  SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
056289,000471:                                                                                                 #                CSMPREC  CSMCONIC   LEMPREC  LEMCONIC
056290,000472:                                                                                                 #  VINTFLAG       SET       SET       CLEAR    CLEAR
056291,000473:                                                                                                 #  INTYPFLG       CLEAR     SET       CLEAR    SET
056292,000474:                                                                                                 #  DIM0FLAG       CLEAR     CLEAR     CLEAR    CLEAR
056293,000475:                                                                                                 # # Page 1318
056294,000476: 
056295,000477:                                                                                                 #  CALLING SEQUENCE
056296,000478:                                                                                                 #         L-X     STORE   TDEC1
056297,000479:                                                                                                 #         L       CALL                    (STCALL TDEC1)
056298,000480:                                                                                                 #         L+1             CSMPREC         (CSMCONIC, LEMPREC, LEMCONIC)
056299,000481: 
056300,000482:                                                                                                 #   NORMAL EXIT TO L+2
056301,000483: 
056302,000484:                                                                                                 #  SUBROUTINES CALLED
056303,000485:                                                                                                 #    INTEGRV1
056304,000486:                                                                                                 #    PRECOUT FOR CSMPREC AND LEMPREC
056305,000487:                                                                                                 #    CONICOUT FOR CSMCONIC AND LEMCONIC
056306,000488: 
056307,000489: 
056308,000490:                                                                                                 #  OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
056309,000491:                                                                                                 #  INPUT
056310,000492:                                                                                                 #   TDEC1 TIME TO INTEGRATE TO . CSECS B-28
056311,000493: 
056312,000494: 13,3145           45020        CSMPREC           STQ      CALL                                  
056313,000495: 13,3146           00046                                   X1                                    
056314,000496: 13,3147           27516                                   INTSTALL                              
056315,000497: 13,3150           43130                          SXA,1    SET                                   
056316,000498: 13,3151           02213                                   IRETURN                               
056317,000499: 13,3152           01474                                   VINTFLAG                              
056318,000500: 
056319,000501: 13,3153           43014        IFLAGP            SET      CLEAR                                 
056320,000502: 13,3154           01467                                   PRECIFLG                              
056321,000503: 13,3155           01676                                   DIM0FLAG                              
056322,000504: 13,3156           77614                          CLRGO                                          
056323,000505: 13,3157           01633                                   INTYPFLG                              
056324,000506: 13,3160           27240                                   INTEGRV1                              
056325,000507: 13,3161           45020        LEMPREC           STQ      CALL                                  
056326,000508: 13,3162           00046                                   X1                                    
056327,000509: 13,3163           27516                                   INTSTALL                              
056328,000510: 13,3164           43130                          SXA,1    CLRGO                                 
056329,000511: 13,3165           02213                                   IRETURN                               
056330,000512: 13,3166           01634                                   VINTFLAG                              
056331,000513: 13,3167           27153                                   IFLAGP                                
056332,000514: 
056333,000515: 13,3170           45020        CSMCONIC          STQ      CALL                                  
056334,000516: 13,3171           00046                                   X1                                    
056335,000517: 13,3172           27516                                   INTSTALL                              
056336,000518: 13,3173           43130                          SXA,1    SET                                   
056337,000519: 13,3174           02213                                   IRETURN                               
056338,000520: 13,3175           01474                                   VINTFLAG                              
056339,000521: 13,3176           43014        IFLAGC            CLEAR    SETGO                                 
056340,000522: 13,3177           01676                                   DIM0FLAG                              
056341,000523: 13,3200           01433                                   INTYPFLG                              
056342,000524: 13,3201           27240                                   INTEGRV1                              
056343,000525: 13,3202           45020        LEMCONIC          STQ      CALL                                  
056344,000526: 13,3203           00046                                   X1                                    
056345,000527:                                                                                                 # # Page 1319
056346,000528: 13,3204           27516                                   INTSTALL                              
056347,000529: 13,3205           43130                          SXA,1    CLRGO                                 
056348,000530: 13,3206           02213                                   IRETURN                               
056349,000531: 13,3207           01634                                   VINTFLAG                              
056350,000532: 13,3210           27176                                   IFLAGC                                
056351,000533: 
056352,000534: 13,3211           66214        INTEGRVS          SET      SSP                                   
056353,000535: 13,3212           01467                                   PRECIFLG                              
056354,000536: 13,3213           02151                                   PBODY                                 
056355,000537: 13,3214           00000                                   0                                     
056356,000538: 13,3215           66214                          BOF      SSP                                   
056357,000539: 13,3216           00343                                   MOONFLAG                              
056358,000540: 13,3217           27222                                   +3                                    
056359,000541: 13,3220           02151                                   PBODY                                 
056360,000542: 13,3221           00002                                   2                                     
056361,000543: 13,3222           77220                          STQ      VLOAD                                 
056362,000544: 13,3223           02213                                   IRETURN                               
056363,000545: 13,3224           11762                                   ZEROVEC                               
056364,000546: 13,3225           01521                          STORE    TDELTAV                               
056365,000547: 13,3226           35527                          STCALL   TNUV                                  
056366,000548: 13,3227           23420                                   RECTIFY                               
056367,000549: 13,3230           43014                          CLEAR    SET                                   
056368,000550: 13,3231           01676                                   DIM0FLAG                              
056369,000551: 13,3232           04062                                   NEWIFLG                               
056370,000552: 13,3233           77614                          SETGO                                          
056371,000553: 13,3234           04020                                   RPQFLAG                               
056372,000554: 13,3235           22320                                   ALOADED                               
056373,000555: 
056374,000556:                                                                                                 #  INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
056375,000557:                                                                                                 #  NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS. THE ROUTINE
056376,000558:                                                                                                 #  IS ENTERED AT INTEGRV1 BY CSMPREC ET.AL. AND AT ALOADED BY INTEGRVS.
056377,000559:                                                                                                 #  THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
056378,000560:                                                                                                 #  PROGRAM FOR PRECISION OR CONIC.
056379,000561: 
056380,000562:                                                                                                 #  THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
056381,000563:                                                                                                 #  SETTING ANY FLAGS.
056382,000564:                                                                                                 #  THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
056383,000565:                                                                                                 #         VINTFLAG    (IGNORED WHEN ENTERED FROM INTEGRVS)
056384,000566:                                                                                                 #         INTYPFLG
056385,000567:                                                                                                 #         DIM0FLAG
056386,000568:                                                                                                 #         D6OR9FLG
056387,000569: 
056388,000570:                                                                                                 #  CALLING SEQUENCE
056389,000571:                                                                                                 #         L-X     CALL
056390,000572:                                                                                                 #         L-Y             INTSTALL
056391,000573:                                                                                                 #         L-1     SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
056392,000574:                                                                                                 #                 AND DIM0FLAG IS CLEAR.
056393,000575:                                                                                                 #         L       CALL
056394,000576:                                                                                                 #         L+1             INTEGRV
056395,000577: 
056396,000578:                                                                                                 #  INITIALIZATION
056397,000579:                                                                                                 #         FLAGS AS ABOVE
056398,000580:                                                                                                 #         STORE TIME TO INTEGRATE TO IN TDEC1
056399,000581: 
056400,000582:                                                                                                 # # Page 1320
056401,000583:                                                                                                 #  OUTPUT
056402,000584:                                                                                                 #         RATT    AS
056403,000585:                                                                                                 #         VATT       DEFINED
056404,000586:                                                                                                 #         TAT                BEFORE
056405,000587: 
056406,000588: 
056407,000589: 13,3236           77620        INTEGRV           STQ                                            
056408,000590: 13,3237           02213                                   IRETURN                               
056409,000591: 13,3240           43014        INTEGRV1          SET      SET                                   
056410,000592: 13,3241           04060                                   RPQFLAG                               
056411,000593: 13,3242           04062                                   NEWIFLG                               
056412,000594: 13,3243           77731        INTEGRV2          SSP                                            
056413,000595: 13,3244           00053                                   QPRET                                 
056414,000596: 13,3245           22320                                   ALOADED                               
056415,000597: 13,3246           52014                          BON      GOTO                                  
056416,000598: 13,3247           01714                                   VINTFLAG                              
056417,000599: 13,3250           27005                                   PTOACSM                               
056418,000600: 13,3251           27060                                   PTOALEM                               
056419,000601: 11,2000                                          SETLOC   INTINIT1                              
056420,000602: 11,2000                                          BANK                                           
056421,000603: 11,2320                                          COUNT*   $$/INTIN                              
056422,000604: 11,2320           77745        ALOADED           DLOAD                                          
056423,000605: 11,2321           00041                                   TDEC1                                 
056424,000606: 11,2322           00745                          STORE    TDEC                                  
056425,000607: 11,2323           52014                          BOFF     GOTO                                  
056426,000608: 11,2324           01753                                   INTYPFLG                              
056427,000609: 11,2325           27364                                   TESTLOOP                              
056428,000610: 11,2326           27350                                   RVCON                                 
056429,000611: 13,2000                                          SETLOC   INTINIT                               
056430,000612: 13,2000                                          BANK                                           
056431,000613: 13,3252                                          COUNT*   $$/INTIN                              
056432,000614: 13,3252           45014        A-PCHK            BOF      CALL                                  
056433,000615: 13,3253           00342                                   MIDFLAG                               
056434,000616: 13,3254           27263                                   ANDOUT                                #  DONT MAKE ORIGIN CHANGE CHECK
056435,000617: 13,3255           23317                                   CHKSWTCH                              
056436,000618: 13,3256           45044                          BPL      CALL                                  
056437,000619: 13,3257           27263                                   ANDOUT                                #  NO ORIGIN CHANGE
056438,000620: 13,3260           23360                                   ORIGCHNG                              #  MAKE THE SWITCH
056439,000621: 13,3261           77754                          LXA,2                                          #  SET X2 FOR MOON OR EARTH SCALING
056440,000622: 13,3262           02150                                   PBODY                                 
056441,000623: 13,3263           77414        ANDOUT            BOFCLR   EXIT                                  
056442,000624: 13,3264           01652                                   STATEFLG                              
056443,000625: 13,3265           27304                                   RECTOUT                               
056444,000626: 13,3266           05402                          TC       PHASCHNG                              
056445,000627: 13,3267           04022                          OCT      04022                                 
056446,000628: 13,3270           05547                          TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
056447,000629: 13,3271           00230                          ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
056448,000630: 13,3272           06006                          TC       INTPRET                               
056449,000631: 13,3273           77731                          SSP                                            
056450,000632: 13,3274           00053                                   QPRET                                 
056451,000633:                                                                                                 # # Page 1321
056452,000634: 13,3275           27302                                   PHEXIT                                
056453,000635: 13,3276           52014                          BON      GOTO                                  
056454,000636: 13,3277           01714                                   VINTFLAG                              
056455,000637: 13,3300           26761                                   ATOPCSM                               
056456,000638: 13,3301           27034                                   ATOPLEM                               
056457,000639: 13,3302           77624        PHEXIT            CALL                                           
056458,000640: 13,3303           22327                                   GRP2PC                                
056459,000641: 13,3304           45001        RECTOUT           SETPD    CALL                                  
056460,000642: 13,3305           00001                                   0                                     
056461,000643: 13,3306           23420                                   RECTIFY                               
056462,000644: 13,3307           53775                          VLOAD    VSL*                                  
056463,000645: 13,3310           01503                                   RRECT                                 
056464,000646: 13,3311           57576                                   0,2                                   
056465,000647: 13,3312           53715                          PDVL     VSL*                                  #  RATT TO PD0
056466,000648: 13,3313           01511                                   VRECT                                 
056467,000649: 13,3314           57576                                   0,2                                   
056468,000650: 13,3315           63325                          PDDL     PDVL                                  #  VATT TO PD6    TAT TO PD12
056469,000651: 13,3316           01517                                   TET                                   
056470,000652: 13,3317           01503                                   RRECT                                 
056471,000653: 13,3320           64715                          PDVL     PDDL*                                 
056472,000654: 13,3321           01511                                   VRECT                                 
056473,000655: 13,3322           50037                                   MUEARTH,2                             
056474,000656: 13,3323           76006                          PUSH     AXT,1                                 
056475,000657: 13,3324           77765                          DEC      -10        B-14                       
056476,000658: 13,3325           76014                          BON      AXT,1                                 
056477,000659: 13,3326           00303                                   MOONFLAG                              
056478,000660: 13,3327           27331                                   +2                                    
056479,000661: 13,3330           77775                          DEC      -2         B-14                       
056480,000662: 13,3331           40001        INTEXIT           SETPD    BOV                                   
056481,000663: 13,3332           00001                                   0                                     
056482,000664: 13,3333           27334                                   +1                                    
056483,000665: 13,3334           43014                          CLEAR    CLEAR                                 
056484,000666: 13,3335           04675                                   MIDAVFLG                              
056485,000667: 13,3336           01672                                   STATEFLG                              
056486,000668: 13,3337           43014                          CLEAR    CLEAR                                 
056487,000669: 13,3340           04676                                   AVEMIDSW                              #  ALLOW UPDATE OF DOWNLINK STATE VECTOR
056488,000670: 13,3341           01667                                   PRECIFLG                              
056489,000671: 13,3342           77535                          SLOAD    EXIT                                  
056490,000672: 13,3343           02214                                   IRETURN                               
056491,000673: 13,3344           30154                          CA       MPAC                                  
056492,000674: 13,3345           50120                          INDEX    FIXLOC                                
056493,000675: 13,3346           54052                          TS       QPRET                                 
056494,000676: 13,3347           03527                          TC       INTWAKE                               
056495,000677: 
056496,000678:                                                                                                 #  RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
056497,000679:                                                                                                 #  VELOCITY FOR THE INTERVAL (TET-TDEC)
056498,000680: 
056499,000681: 13,3350           45345        RVCON             DLOAD    DSU                                   
056500,000682: 13,3351           00745                                   TDEC                                  
056501,000683: 13,3352           01517                                   TET                                   
056502,000684: 13,3353           36303                          STCALL   TAU.                                  
056503,000685:                                                                                                 # # Page 1322
056504,000686: 13,3354           23420                                   RECTIFY                               
056505,000687: 13,3355           77624                          CALL                                           
056506,000688: 13,3356           22336                                   KEPPREP                               
056507,000689: 13,3357           43345                          DLOAD    DAD                                   
056508,000690: 13,3360           01551                                   TC                                    
056509,000691: 13,3361           01517                                   TET                                   
056510,000692: 13,3362           35517                          STCALL   TET                                   
056511,000693: 13,3363           27304                                   RECTOUT                               
056512,000694: 
056513,000695:                                                                                                 # # Page 1323
056514,000696: 13,3364           43014        TESTLOOP          BOF      CLRGO                                 
056515,000697: 13,3365           04752                                   QUITFLAG                              
056516,000698: 13,3366           27371                                   +3                                    
056517,000699: 13,3367           01632                                   STATEFLG                              
056518,000700: 13,3370           27331                                   INTEXIT                               #  STOP INTEGRATION
056519,000701: 13,3371           73001                 +3       SETPD    LXA,2                                 
056520,000702: 13,3372           00013                                   10D                                   
056521,000703: 13,3373           02150                                   PBODY                                 
056522,000704: 13,3374           51575                          VLOAD    ABVAL                                 
056523,000705: 13,3375           01535                                   RCV                                   
056524,000706: 13,3376           43006                          PUSH     CLEAR                                 #  RC TO 10D
056525,000707: 13,3377           00262                                   MIDFLAG                               
056526,000708: 13,3400           50023                          DSU*     BMN                                   #  MIDFLAG=0 IF R G.T. RMP
056527,000709: 13,3401           66600                                   RME,2                                 
056528,000710: 13,3402           27405                                   +3                                    
056529,000711: 13,3403           77614                          SET                                            
056530,000712: 13,3404           00062                                   MIDFLAG                               
056531,000713: 13,3405           41345        NORFINAL          DLOAD    DMP                                   
056532,000714: 13,3406           00013                                   10D                                   
056533,000715: 13,3407           00043                                   34D                                   
056534,000716: 13,3410           55762                          SR1R     DDV*                                  
056535,000717: 13,3411           50037                                   MUEARTH,2                             
056536,000718: 13,3412           41366                          SQRT     DMP                                   
056537,000719: 13,3413           23751                                   .3D                                   
056538,000720: 13,3414           40442                          SR3      SR4                                   #  DT IS TRUNCATED TO A MULTIPLE
056539,000721: 13,3415           54345                          DLOAD    SL                                    
056540,000722: 13,3416           00155                                   MPAC                                  
056541,000723: 13,3417           20220                                   15D                                   #         OF 128 CSECS.
056542,000724: 13,3420           40006                          PUSH     BOV                                   
056543,000725: 13,3421           27446                                   MAXDT                                 
056544,000726: 13,3422           50021                          BDSU     BMN                                   
056545,000727: 13,3423           27515                                   DT/2MAX                               
056546,000728: 13,3424           27446                                   MAXDT                                 
056547,000729: 13,3425           45345        DT/2COMP          DLOAD    DSU                                   
056548,000730: 13,3426           00745                                   TDEC                                  
056549,000731: 13,3427           01517                                   TET                                   
056550,000732: 13,3430           54234                          RTB      SL                                    
056551,000733: 13,3431           45636                                   SGNAGREE                              
056552,000734: 13,3432           20211                                   8D                                    
056553,000735: 13,3433           02305                          STORE    DT/2                                  #  B-19
056554,000736: 13,3434           51400                          BOV      ABS                                   
056555,000737: 13,3435           27452                                   GETMAXDT                              
056556,000738: 13,3436           50025                          DSU      BMN                                   #  IS TIME TO INTEG. TO GR THAN MAXTIME
056557,000739: 13,3437           00015                                   12D                                   
056558,000740: 13,3440           27456                                   P00HCHK                               
056559,000741: 13,3441           75345        USEMAXDT          DLOAD    SIGN                                  
056560,000742: 13,3442           00015                                   12D                                   
056561,000743: 13,3443           02305                                   DT/2                                  
056562,000744:                                                                                                 # # Page 1324
056563,000745: 13,3444           36305                          STCALL   DT/2                                  
056564,000746: 13,3445           27456                                   P00HCHK                               
056565,000747: 13,3446           65345        MAXDT             DLOAD    PDDL                                  #  EXCHANGE DT/2MAX WITH COMPUTED MAX.
056566,000748: 13,3447           27515                                   DT/2MAX                               
056567,000749: 13,3450           77650                          GOTO                                           
056568,000750: 13,3451           27425                                   DT/2COMP                              
056569,000751: 13,3452           77634        GETMAXDT          RTB                                            
056570,000752: 13,3453           45761                                   SIGNMPAC                              
056571,000753: 13,3454           36305                          STCALL   DT/2                                  
056572,000754: 13,3455           27441                                   USEMAXDT                              
056573,000755: 13,3456           51545        P00HCHK           DLOAD    ABS                                   
056574,000756: 13,3457           02305                                   DT/2                                  
056575,000757: 13,3460           50025                          DSU      BMN                                   
056576,000758: 13,3461           27513                                   DT/2MIN                               
056577,000759: 13,3462           27252                                   A-PCHK                                
056578,000760: 13,3463           43014                          BOFF     BON                                   
056579,000761: 13,3464           01746                                   POOFLAG                               #  IS BACKWARDS INTEGRATION INHIBITED
056580,000762: 13,3465           23237                                   TIMESTEP                              #  NO
056581,000763: 13,3466           01707                                   PRECIFLG                              #  WAS THIS CALL VIA CSM(LEM)PREC
056582,000764: 13,3467           23237                                   TIMESTEP                              #  YES
056583,000765: 13,3470           45345                          DLOAD    DSU                                   
056584,000766: 13,3471           02305                                   DT/2                                  
056585,000767: 13,3472           00015                                   12D                                   
056586,000768: 13,3473           43040                          BMN      BOFCLR                                
056587,000769: 13,3474           27252                                   A-PCHK                                
056588,000770: 13,3475           04242                                   NEWIFLG                               
056589,000771: 13,3476           23237                                   TIMESTEP                              
056590,000772: 13,3477           45345                          DLOAD    DSU                                   
056591,000773: 13,3500           00745                                   TDEC                                  
056592,000774: 13,3501           01517                                   TET                                   
056593,000775: 13,3502           77640                          BMN                                            #  NO BACKWARD INTEGRATION
056594,000776: 13,3503           27331                                   INTEXIT                               
056595,000777: 13,3504           40525                          PDDL     SR4                                   
056596,000778: 13,3505           02305                                   DT/2                                  #  IS 4(DT) LS (TDEC - TET)
056597,000779: 13,3506           44322                          SR2R     BDSU                                  
056598,000780: 13,3507           52040                          BMN      GOTO                                  
056599,000781: 13,3510           27331                                   INTEXIT                               
056600,000782: 13,3511           23237                                   TIMESTEP                              
056601,000783: 13,3512           00000 01400  DT/2MIN           2DEC     3          B-20                       
056602,000784: 13,3514           14152 00000  DT/2MAX           2DEC     4000       E2         B-20            
056603,000785: 13,3516           77776        INTSTALL          EXIT                                           
056604,000786: 13,3517           30106                 +1       CA       FLGWRD10                              
056605,000787: 13,3520           74346                          MASK     PRIO30                                
056606,000788: 13,3521           00006                          EXTEND                                         
056607,000789: 13,3522           13561                          BZF      OKTOGRAB                              #  YES
056608,000790: 13,3523           33565                          CAF      WAKESTAL                              
056609,000791: 13,3524           05163                          TC       JOBSLEEP                              
056610,000792: 13,3525           77776        INTWAKE0          EXIT                                           
056611,000793:                                                                                                 # # Page 1325
056612,000794: 13,3526           13547                          TCF      INTWAKE1                              
056613,000795: 
056614,000796: 13,3527           40106        INTWAKE           CS       FLGWRD10                              #  IS THIS INTSTALLED ROUTINE TO BE
056615,000797: 13,3530           74754                          MASK     REINTBIT                              #       RESTARTED
056616,000798: 13,3531           10000                          CCS      A                                     
056617,000799: 13,3532           03547                          TC       INTWAKE1                              #  NO
056618,000800: 
056619,000801: 13,3533           50120                          INDEX    FIXLOC                                
056620,000802: 13,3534           30052                          CA       QPRET                                 
056621,000803: 13,3535           55261                          TS       TBASE2                                #  YES, DONT RESTART WITH SOMEONE ELSES Q
056622,000804: 
056623,000805: 13,3536           05402                          TC       PHASCHNG                              
056624,000806: 13,3537           04022                          OCT      04022                                 
056625,000807: 
056626,000808: 13,3540           31261                          CA       TBASE2                                
056627,000809: 13,3541           50120                          INDEX    FIXLOC                                
056628,000810: 13,3542           54052                          TS       QPRET                                 
056629,000811: 
056630,000812: 13,3543           34754                          CAF      REINTBIT                              
056631,000813: 13,3544           70106                          MASK     FLGWRD10                              
056632,000814: 13,3545           00006                          EXTEND                                         
056633,000815: 13,3546           13563                          BZF      GOBAC                                 #  DONT INTWAKE IF WE CAME HERE VIA RESTART
056634,000816: 
056635,000817: 13,3547           33565        INTWAKE1          CAF      WAKESTAL                              
056636,000818: 13,3550           05167                          TC       JOBWAKE                               
056637,000819: 13,3551           10064                          CCS      LOCCTR                                
056638,000820: 13,3552           13547                          TCF      INTWAKE1                              
056639,000821: 13,3553           00051        FORTYONE          DEC      41         B-14                       
056640,000822: 13,3554           44346                          CS       PRIO30                                
056641,000823: 13,3555           70106                          MASK     FLGWRD10                              
056642,000824: 13,3556           54106                          TS       FLGWRD10                              #  RELEASE STALL AREA
056643,000825: 13,3557           00003                          RELINT                                         
056644,000826: 13,3560           13563                          TCF      GOBAC                                 
056645,000827: 13,3561           34753        OKTOGRAB          CAF      INTFLBIT                              
056646,000828: 13,3562           26106                          ADS      FLGWRD10                              
056647,000829: 13,3563           06006        GOBAC             TC       INTPRET                               
056648,000830: 13,3564           77616                          RVQ                                            
056649,000831: 13,3565           27517        WAKESTAL          CADR     INTSTALL   +1                         
056650,000832:                                                                                                 # # Page 1326
056651,000833:                                                                                                 #  AVETOMID
056652,000834: 
056653,000835:                                                                                                 #  THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
056654,000836:                                                                                                 #  PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
056655,000837:                                                                                                 #  VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
056656,000838: 
056657,000839:                                                                                                 #  BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (OR WFLAG OR RENDWFLT IS
056658,000840:                                                                                                 #  SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
056659,000841: 
056660,000842:                                                                                                 #  IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
056661,000843: 
056662,000844:                                                                                                 #  FINALLY TRKMKCNT IS ZEROED.
056663,000845: 
056664,000846: 35,2000                                          SETLOC   INTINIT2                              
056665,000847: 35,2000                                          BANK                                           
056666,000848: 
056667,000849: 35,3677                                          COUNT*   $$/INTIN                              
056668,000850: 35,3677           43020        AVETOMID          STQ      BON                                   
056669,000851: 35,3700           02310                                   EGRESS                                
056670,000852: 35,3701           02716                                   RENDWFLG                              
056671,000853: 35,3702           73753                                   INT/W                                 #  W-MATRIX VALID, GO INTEGRATE IT
056672,000854: 35,3703           77614                          BON                                            
056673,000855: 35,3704           01711                                   ORBWFLAG                              
056674,000856: 35,3705           73753                                   INT/W                                 #  W-MATRIX VALID, GO INTEGRATE IT
056675,000857: 
056676,000858: 35,3706           45174        SETCOAST          AXT,2    CALL                                  #  NOW MOVE PROPERLY SCALED RN,VN AND
056677,000859: 35,3707           00002                                   2                                     #  PIPTIME TO INTEGRATION ERASABLES.
056678,000860: 35,3710           27516                                   INTSTALL                              
056679,000861: 35,3711           77014                          BON      AXT,2                                 
056680,000862: 35,3712           00315                                   AMOONFLG                              
056681,000863: 35,3713           73715                                   +2                                    
056682,000864: 35,3714           00000                                   0                                     
056683,000865: 35,3715           53775                          VLOAD    VSR*                                  
056684,000866: 35,3716           01030                                   RN                                    
056685,000867: 35,3717           57176                                   0,2                                   
056686,000868: 35,3720           01503                          STORE    RRECT                                 
056687,000869: 35,3721           15535                          STODL    RCV                                   
056688,000870: 35,3722           01044                                   PIPTIME                               
056689,000871: 35,3723           25517                          STOVL    TET                                   
056690,000872: 35,3724           01036                                   VN                                    
056691,000873: 35,3725           45057                          VSR*     CALL                                  
056692,000874: 35,3726           57176                                   0,2                                   
056693,000875: 35,3727           23434                                   MINIRECT                              #  FINISH SETTING UP STATE VECTOR
056694,000876: 35,3730           77634                          RTB                                            
056695,000877: 35,3731           26774                                   MOVATHIS                              #  PUT TEMP STATE VECTOR INTO PERMANENT
056696,000878: 35,3732           43014                          SET      BON                                   
056697,000879: 35,3733           04063                                   CMOONFLG                              
056698,000880: 35,3734           00315                                   AMOONFLG                              
056699,000881: 35,3735           73740                                   +3                                    
056700,000882:                                                                                                 # # Page 1327
056701,000883: 35,3736           77614                          CLEAR                                          
056702,000884: 35,3737           04263                                   CMOONFLG                              
056703,000885: 
056704,000886: 35,3740           71214                          BON      DLOAD                                 #  NOW DO LM
056705,000887: 35,3741           04307                                   SURFFLAG                              
056706,000888: 35,3742           75735                                   FAZAB5                                #  NO COASTING LM
056707,000889: 35,3743           01044                                   PIPTIME                               
056708,000890: 35,3744           34041                          STCALL   TDEC1                                 
056709,000891: 35,3745           26744                                   SETIFLGS                              
056710,000892: 35,3746           45014                          CLEAR    CALL                                  
056711,000893: 35,3747           01674                                   VINTFLAG                              
056712,000894: 35,3750           27236                                   INTEGRV                               
056713,000895: 35,3751           77650                          GOTO                                           
056714,000896: 35,3752           02310                                   EGRESS                                
056715,000897: 35,3753           45145        INT/W             DLOAD    CALL                                  
056716,000898: 35,3754           01044                                   PIPTIME                               #  INTEGRATE W THRU BURN
056717,000899: 35,3755           27516                                   INTSTALL                              
056718,000900: 35,3756           43014                          SET      SET                                   
056719,000901: 35,3757           01476                                   DIM0FLAG                              #  DO W-MATRIX
056720,000902: 35,3760           04476                                   AVEMIDSW                              #  SO WONT CLOBBER RN,VN,PIPTIME
056721,000903: 35,3761           43014                          CLEAR    SET                                   
056722,000904: 35,3762           01675                                   D6OR9FLG                              
056723,000905: 35,3763           01474                                   VINTFLAG                              
056724,000906: 35,3764           34041                          STCALL   TDEC1                                 
056725,000907: 35,3765           27236                                   INTEGRV                               
056726,000908: 35,3766           77650                          GOTO                                           
056727,000909: 35,3767           73706                                   SETCOAST                              
056728,000910: 
056729,000911:                                                                                                 # # Page 1328
056730,000912:                                                                                                 #  MIDTOAV1
056731,000913: 
056732,000914:                                                                                                 #  THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
056733,000915:                                                                                                 #  IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
056734,000916:                                                                                                 #  TIME (SEE TIMEDELT.....BASED ON THE COMPUTATION TIME FOR ONE TIME STEP)
056735,000917:                                                                                                 #  IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
056736,000918:                                                                                                 #  IS DONE AS IT IS FOR MIDTOAV2.
056737,000919:                                                                                                 #  RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
056738,000920: 
056739,000921:                                                                                                 #  IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
056740,000922:                                                                                                 #  TO THE RETURN ADDRESS.
056741,000923: 
056742,000924:                                                                                                 #  IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
056743,000925:                                                                                                 #  FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
056744,000926:                                                                                                 #  TION TIME AND MPAC IS SET TO THE DELTA TIME---
056745,000927:                                                                                                 #                                         TAT MINUS CURRENT TIME.
056746,000928: 
056747,000929: 
056748,000930:                                                                                                 #  MIDTOAV2
056749,000931: 
056750,000932:                                                                                                 #  THIS ROUTINE INTEGRATES THE CSM STATE VECTOR TO THE CURRENT TIME PLUS
056751,000933:                                                                                                 #  INCREMENTS OF TIMEDELT SUCH THAT THE DIFFERENCE BETWEEN CURRENT TIME
056752,000934:                                                                                                 #  AND THE STATE VECTOR TIME AT THE END OF THE LAST STEP IS AT LEAST 5.6
056753,000935:                                                                                                 #  SECS.
056754,000936:                                                                                                 #  NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
056755,000937:                                                                                                 #  ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
056756,000938: 
056757,000939: 13,2000                                          SETLOC   INTINIT                               
056758,000940: 13,2000                                          BANK                                           
056759,000941: 13,3566                                          COUNT*   $$/R41                                
056760,000942: 13,3566     0773                                 EBANK=   IRETURN1                              
056761,000943: 13,3566           45020        MIDTOAV2          STQ      CALL                                  
056762,000944: 13,3567           00773                                   IRETURN1                              
056763,000945: 13,3570           27516                                   INTSTALL                              
056764,000946: 13,3571           43145                          DLOAD    CLEAR                                 
056765,000947: 13,3572           13771                                   TIMEDELT                              
056766,000948: 13,3573           04674                                   MID1FLAG                              
056767,000949: 13,3574           37466                          STCALL   T-TO-ADD                              
056768,000950: 13,3575           27612                                   ENTMID2                               
056769,000951: 
056770,000952: 13,3576           45020        MIDTOAV1          STQ      CALL                                  
056771,000953: 13,3577           00773                                   IRETURN1                              
056772,000954: 13,3600           27516                                   INTSTALL                              
056773,000955: 13,3601           47014                          SET      RTB                                   
056774,000956: 13,3602           04474                                   MID1FLAG                              
056775,000957: 13,3603           51751                                   LOADTIME                              
056776,000958: 13,3604           44215                          DAD      BDSU                                  #  INITIAL CHECK, IS TDEC1 IN THE FUTURE.
056777,000959: 13,3605           13771                                   TIMEDELT                              
056778,000960: 13,3606           00041                                   TDEC1                                 
056779,000961: 13,3607           45044                          BPL      CALL                                  
056780,000962:                                                                                                 # # Page 1329
056781,000963: 13,3610           27616                                   ENTMID1                               
056782,000964: 13,3611           13756                                   NOTIME                                #  NO, SET ALARM, SWITCH TO MIDTOAV2
056783,000965: 
056784,000966: 13,3612           43234        ENTMID2           RTB      DAD                                   
056785,000967: 13,3613           51751                                   LOADTIME                              
056786,000968: 13,3614           03466                                   T-TO-ADD                              
056787,000969: 13,3615           00041                          STORE    TDEC1                                 
056788,000970: 
056789,000971: 13,3616           45014        ENTMID1           CLEAR    CALL                                  
056790,000972: 13,3617           01676                                   DIM0FLAG                              #  NO W-MATRIX
056791,000973: 13,3620           26034                                   THISVINT                              
056792,000974: 13,3621           43014                          CLEAR    SET                                   
056793,000975: 13,3622           01673                                   INTYPFLG                              
056794,000976: 13,3623           04475                                   MIDAVFLG                              #  LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
056795,000977: 13,3624           77624                          CALL                                           
056796,000978: 13,3625           27236                                   INTEGRV                               #  GO INTEGRATE
056797,000979: 13,3626           66134                          SXA,2    SXA,1                                 
056798,000980: 13,3627           03746                                   RTX2                                  
056799,000981: 13,3630           03745                                   RTX1                                  
056800,000982: 13,3631           67214                          CLEAR    SLOAD                                 
056801,000983: 13,3632           00275                                   AMOONFLG                              
056802,000984: 13,3633           03747                                   RTX2                                  
056803,000985: 13,3634           43054                          BZE      SET                                   
056804,000986: 13,3635           27637                                   +2                                    
056805,000987: 13,3636           00075                                   AMOONFLG                              
056806,000988: 13,3637           77775                          VLOAD                                          
056807,000989: 13,3640           00001                                   RATT                                  
056808,000990: 13,3641           25071                          STOVL    RN1                                   
056809,000991: 13,3642           00007                                   VATT                                  
056810,000992: 13,3643           15077                          STODL    VN1                                   
056811,000993: 13,3644           00015                                   TAT                                   
056812,000994: 13,3645           01105                          STORE    PIPTIME1                              
056813,000995: 13,3646           77776                          EXIT                                           
056814,000996: 
056815,000997: 13,3647           00004                          INHINT                                         
056816,000998: 13,3650           00006                          EXTEND                                         
056817,000999: 13,3651           40025                          DCS      TIME2                                 
056818,001000: 13,3652           20155                          DAS      MPAC                                  
056819,001001: 13,3653           07226                          TC       TPAGREE                               
056820,001002: 
056821,001003: 13,3654           30773                          CA       IRETURN1                              
056822,001004: 13,3655           04660                          TC       BANKJUMP                              
056823,001005: 13,3656           47014        CKMID2            BOF      RTB                                   
056824,001006: 13,3657           04754                                   MID1FLAG                              
056825,001007: 13,3660           27675                                   MID2                                  
056826,001008: 13,3661           51751                                   LOADTIME                              
056827,001009: 13,3662           44215                          DAD      BDSU                                  
056828,001010: 13,3663           13771                                   TIMEDELT                              
056829,001011: 13,3664           00745                                   TDEC                                  
056830,001012: 13,3665           45044                          BPL      CALL                                  
056831,001013:                                                                                                 # # Page 1330
056832,001014: 13,3666           27364                                   TESTLOOP                              #  YES
056833,001015: 13,3667           13756                                   NOTIME                                
056834,001016: 
056835,001017: 13,3670           43234        TIMEINC           RTB      DAD                                   
056836,001018: 13,3671           51751                                   LOADTIME                              
056837,001019: 13,3672           03466                                   T-TO-ADD                              
056838,001020: 13,3673           34745                          STCALL   TDEC                                  
056839,001021: 13,3674           27364                                   TESTLOOP                              
056840,001022: 
056841,001023: 13,3675           45345        MID2              DLOAD    DSU                                   
056842,001024: 13,3676           00745                                   TDEC                                  
056843,001025: 13,3677           01517                                   TET                                   
056844,001026: 13,3700           45246                          ABS      DSU                                   
056845,001027: 13,3701           13755                                   3CSECS                                
056846,001028: 13,3702           77644                          BPL                                            
056847,001029: 13,3703           27670                                   TIMEINC                               
056848,001030: 
056849,001031: 13,3704           44234                          RTB      BDSU                                  #  SEE IF 5.6 SECS. AVAILABLE TO CALLER.
056850,001032: 13,3705           51751                                   LOADTIME                              
056851,001033: 13,3706           01517                                   TET                                   
056852,001034: 13,3707           51025                          DSU      BPL                                   
056853,001035: 13,3710           13773                                   5.6SECS                               
056854,001036: 13,3711           27252                                   A-PCHK                                #  YES, GET OUT.
056855,001037: 
056856,001038: 13,3712           43345                          DLOAD    DAD                                   #  NO, ADD TIMEDELT TO T-TO-ADD AND TRY
056857,001039: 13,3713           03466                                   T-TO-ADD                              #  AGAIN.
056858,001040: 13,3714           13771                                   TIMEDELT                              
056859,001041: 13,3715           37466                          STCALL   T-TO-ADD                              
056860,001042: 13,3716           27670                                   TIMEINC                               
056861,001043: 
056862,001044: 
056863,001045: 05,2000                                          SETLOC   INTINIT3                              
056864,001046: 05,2000                                          BANK                                           
056865,001047: 
056866,001048: 05,3754                                          COUNT*   $$/R41                                
056867,001049: 05,3754           00000 00003  3CSECS            2DEC     3          B-28                       
056868,001050: 
056869,001051: 05,3756           77414        NOTIME            CLEAR    EXIT                                  #  TOO LATE
056870,001052: 05,3757           04674                                   MID1FLAG                              
056871,001053: 05,3760           24773                          INCR     IRETURN1                              #  SET ERROR EXIT (CALLOC +2)
056872,001054: 05,3761           05671                          TC       ALARM                                 #  INSUFFICIENT TIME FOR INTEGRATION --
056873,001055: 05,3762           01703                          OCT      1703                                  #     TIG WILL BE SLIPPED...
056874,001056: 05,3763           06006                          TC       INTPRET                               
056875,001057: 05,3764           77745                          DLOAD                                          
056876,001058: 05,3765           13771                                   TIMEDELT                              
056877,001059: 05,3766           03466                          STORE    T-TO-ADD                              
056878,001060: 05,3767           77616                          RVQ                                            
056879,001061: 
056880,001062: 05,3770           00000 02342  TIMEDELT          2DEC     1250       B-28                       
056881,001063:                                                                                                 # # Page 1331
056882,001064: 05,3772           00000 01060  5.6SECS           2DEC     560        B-28                       
056883,001065: 27,2000                                          SETLOC   UPDATE2                               
056884,001066: 27,2000                                          BANK                                           
056885,001067: 27,3072                                          COUNT*   $$/INTIN                              
056886,001068: 
056887,001069: 27,3072  E3,1706                                 EBANK=   TEPHEM                                
056888,001070: 27,3072           06006        INTWAKEU          TC       INTPRET                               
056889,001071: 
056890,001072: 27,3073           53135                          SLOAD    BZE                                   #  IS THIS A CSM/LEM STATE VECTOR UPDATE
056891,001073: 27,3074           01502                                   UPSVFLAG                              #  REQUEST. IF NOT GO TO INTWAKUP.
056892,001074: 27,3075           57141                                   INTWAKUP                              
056893,001075: 
056894,001076: 27,3076           77775                          VLOAD                                          #  MOVE RRECT(6) AND VRECT(6) INTO
056895,001077: 27,3077           01503                                   RRECT                                 #       RCV(6)   AND VCV(6)   RESPECTIVELY.
056896,001078: 27,3100           25535                          STOVL    RCV                                   
056897,001079: 27,3101           01511                                   VRECT                                 #  NOW GO TO 'RECTIFY +13D' TO
056898,001080: 27,3102           77624                          CALL                                           #  STORE VRECT INTO VCV AND ZERO OUT
056899,001081: 27,3103           23435                                   TINIRECT                              #  TDELTAV(6),TNUV(6),TC(2), AND XKEP(2)
056900,001082: 27,3104           51535                          SLOAD    ABS                                   #  COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
056901,001083: 27,3105           01502                                   UPSVFLAG                              #  TO 'UPDATE MOON STATE VECTOR CODE'
056902,001084: 27,3106           53025                          DSU      BZE                                   #  TO DETERMINE WHETHER THE STATE VECTOR TO
056903,001085: 27,3107           17150                                   UPMNSVCD                              #  BE UPDATED IS IN THE EARTH OR LUNAR
056904,001086: 27,3110           57115                                   INTWAKEM                              #  SPHERE OF INFLUENCE.........
056905,001087: 27,3111           43174                          AXT,2    CLRGO                                 #  EARTH SPHERE OF INFLUENCE.
056906,001088: 27,3112           00000                          DEC      0          B-14                       
056907,001089: 27,3113           00223                                   MOONFLAG                              
056908,001090: 27,3114           57120                                   INTWAKEC                              
056909,001091: 27,3115           43174        INTWAKEM          AXT,2    SET                                   #  LUNAR SPHERE OF INFLUENCE.
056910,001092: 27,3116           00002                          DEC      2          B-14                       
056911,001093: 27,3117           00063                                   MOONFLAG                              
056912,001094: 27,3120           50135        INTWAKEC          SLOAD    BMN                                   #  COMMON CODING AFTER X2 INITIALIZED AND
056913,001095:                                                                                                 #  MOONFLAG SET (OR CLEARED).
056914,001096: 27,3121           01502                                   UPSVFLAG                              #  IS THIS A REQUEST FOR A LEM OR CSM
056915,001097: 27,3122           57130                                   INTWAKLM                              #   STATE VECTOR UPDATE......
056916,001098: 27,3123           77624                          CALL                                           #  UPDATE CSM STATE VECTOR
056917,001099: 27,3124           26761                                   ATOPCSM                               
056918,001100: 
056919,001101: 27,3125           52014                          CLEAR    GOTO                                  
056920,001102: 27,3126           01671                                   ORBWFLAG                              
056921,001103: 27,3127           57132                                   INTWAKEX                              
056922,001104: 
056923,001105: 27,3130           77624        INTWAKLM          CALL                                           #  UPDATE LM STATE VECTOR
056924,001106: 27,3131           27034                                   ATOPLEM                               
056925,001107: 
056926,001108: 27,3132           77414        INTWAKEX          CLEAR    EXIT                                  
056927,001109: 27,3133           02676                                   RENDWFLG                              
056928,001110: 
056929,001111: 27,3134           34772                          CAF      ZERO                                  
056930,001112: 27,3135           00006                          EXTEND                                         
056931,001113:                                                                                                 # # Page 1332
056932,001114: 
056933,001115: 27,3136           01077                          WRITE    CHAN77                                #  ZERO CHANNEL 77
056934,001116: 27,3137           55501                          TS       UPSVFLAG                              
056935,001117: 
056936,001118: 27,3140           06006                          TC       INTPRET                               
056937,001119: 27,3141           77624        INTWAKUP          CALL                                           
056938,001120: 27,3142           27525                                   INTWAKE0                              #  RELEASE 'GRAB' OF ORBIT INTEG
056939,001121: 27,3143           77776                          EXIT                                           
056940,001122: 
056941,001123: 27,3144           05402                          TC       PHASCHNG                              
056942,001124: 27,3145           04026                          OCT      04026                                 
056943,001125: 27,3146           03706                          TC       UPOUT      +1                         
056944,001126: 
056945,001127: 27,3147           00002        UPMNSVCD          OCT      2                                     
056946,001128: 27,3150           00000                          OCT      0                                     
056947,001129: 
056948,001130: 11,2000                                          SETLOC   ORBITAL                               
056949,001131: 11,2000                                          BANK                                           
056950,001132: 
056951,001133: 11,2327                                          COUNT*   $$/ORBIT                              
056952,001134: 11,2327           77420        GRP2PC            STQ      EXIT                                  
056953,001135: 11,2330           03536                                   GRP2SVQ                               
056954,001136: 11,2331           05402                          TC       PHASCHNG                              
056955,001137: 11,2332           04022                          OCT      04022                                 
056956,001138: 11,2333           06006                          TC       INTPRET                               
056957,001139: 11,2334           77650                          GOTO                                           
056958,001140: 11,2335           03536                                   GRP2SVQ                               

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