Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images are 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968

053881,000002:                                                                                                 #  Copyright:    Public domain.
053882,000003:                                                                                                 #  Filename:      INTEGRATION_INITIALIZATION.agc
053883,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
053884,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
053885,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
053886,000007:                                                                                                 #  Assembler:    yaYUL
053887,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
053888,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
053889,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
053890,000011:                                                                                                 #  Mod history:  2011-04-17 JL    Adapted from corresponding Colossus 249 file.
053891,000012: 
053892,000013:                                                                                                 # # Page 1275
053893,000014:                                                                                                 #  1.0 INTRODUCTION
053894,000015:                                                                                                 #  ----------------
053895,000016: 
053896,000017:                                                                                                 #  FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
053897,000018:                                                                                                 #  PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
053898,000019:                                                                                                 #  OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
053899,000020:                                                                                                 #  TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
053900,000021:                                                                                                 #  SIDE THE LUNAR SPHERE OF INFLUENCE.
053901,000022: 
053902,000023:                                                                                                 #  IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
053903,000024:                                                                                                 #  WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
053904,000025:                                                                                                 #  INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
053905,000026:                                                                                                 #  CALL TC INTSTALL.
053906,000027: 
053907,000028:                                                                                                 #  WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
053908,000029:                                                                                                 #  INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
053909,000030:                                                                                                 #  BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE  SYSTEM.
053910,000031:                                                                                                 #  THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
053911,000032:                                                                                                 #  THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
053912,000033: 
053913,000034:                                                                                                 #  USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
053914,000035:                                                                                                 #  IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
053915,000036:                                                                                                 #  TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
053916,000037:                                                                                                 #  AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
053917,000038: 
053918,000039:                                                                                                 #  2.0 CENTRAL DESCRIPTION
053919,000040:                                                                                                 #  -----------------------
053920,000041: 
053921,000042:                                                                                                 #  THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS---
053922,000043:                                                                                                 #     1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
053923,000044:                                                                                                 #     2) INTEGRATES THE W-MATRIX
053924,000045:                                                                                                 #     3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
053925,000046: 
053926,000047:                                                                                                 #  THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
053927,000048:                                                                                                 #  ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
053928,000049:                                                                                                 #  THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
053929,000050:                                                                                                 #  PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
053930,000051:                                                                                                 #  CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
053931,000052:                                                                                                 #  THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
053932,000053:                                                                                                 #  NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
053933,000054:                                                                                                 #  VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
053934,000055:                                                                                                 #  AND/OR STATE VECTOR.
053935,000056: 
053936,000057:                                                                                                 #  THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
053937,000058:                                                                                                 #  USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
053938,000059:                                                                                                 #  IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
053939,000060: 
053940,000061:                                                                                                 #  THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
053941,000062:                                                                                                 #  THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
053942,000063:                                                                                                 #  SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
053943,000064:                                                                                                 # # Page 1276
053944,000065:                                                                                                 #  APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
053945,000066: 
053946,000067:                                                                                                 #  2.1 RESTARTS
053947,000068: 
053948,000069:                                                                                                 #  PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
053949,000070:                                                                                                 #  INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
053950,000071:                                                                                                 #  (I.E., GROUP2) WINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
053951,000072:                                                                                                 #  INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
053952,000073:                                                                                                 #  PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
053953,000074:                                                                                                 #  THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
053954,000075:                                                                                                 #  THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
053955,000076: 
053956,000077:                                                                                                 #  2.2 SCALING
053957,000078: 
053958,000079:                                                                                                 #  THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
053959,000080:                                                                                                 #  APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTORDEPENDS ON THE ORIGIN OF THE COORDINATE
053960,000081:                                                                                                 #   SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
053961,000082:                                                                                                 #  MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
053962,000083:                                                                                                 #  DIFFERENT SCALING.
053963,000084:                                                                                                 #  HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
053964,000085: 
053965,000086:                                                                                                 #  3.0 INPUT/OUTPUT
053966,000087:                                                                                                 #  ----------------
053967,000088: 
053968,000089:                                                                                                 #  PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
053969,000090:                                                                                                 #  PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
053970,000091:                                                                                                 #  FOR INTEGRVS, THE RCV,VCV, TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
053971,000092: 
053972,000093:                                                                                                 #  FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
053973,000094: 
053974,000095:                                                                                                 #                                                             EARTH  MOON
053975,000096:                                                                                                 #                                                              29     27
053976,000097:                                                                                                 #     RRECTCSM(LEM)  - RECTIFIED POSITION VECTOR      METERS  2      2
053977,000098: 
053978,000099:                                                                                                 #                                                              7      5
053979,000100:                                                                                                 #     VRECTCSM(LEM)  - RECTIFIED VELOCITY VECTOR      M/CSEC  2    2
053980,000101: 
053981,000102:                                                                                                 #                                                              28     28
053982,000103:                                                                                                 #     TETCSM(LEM)    - TIME STATE VECTOR IS VALID     CSEC    2      2
053983,000104:                                                                                                 #                      CUSTOMARILY 0, BUT NOT LUNAR
053984,000105:                                                                                                 #                      ORBIT DEPENDENCE ON REAL TIME.
053985,000106: 
053986,000107:                                                                                                 #                                                              22     18
053987,000108:                                                                                                 #     DELTAVCSM(LEM) - POSITION DEVIATION             METERS  2      2
053988,000109:                                                                                                 #                      0 IF TCCSM(LEM) = 0
053989,000110: 
053990,000111:                                                                                                 #                                                              3      -1
053991,000112:                                                                                                 #     NUVCSM(LEM)    - VELOCITY DEVIATION             M/CSEC  2      2
053992,000113:                                                                                                 #                      0 IF TCCSM(LEM) = 0
053993,000114:                                                                                                 # # Page 1277
053994,000115:                                                                                                 #                                                              29     27
053995,000116:                                                                                                 #     RCVSM(LEM)     - CONIC POSITION                 METERS  2      2
053996,000117:                                                                                                 #                      EQUALS RRECTCSM(LEM) IF
053997,000118:                                                                                                 #                      TCCSM(LEM) = 0
053998,000119: 
053999,000120:                                                                                                 #                                                              7      5
054000,000121:                                                                                                 #     VCVCSM(LEM)    - CONIC VELOCITY                 M/CSEC  2      2
054001,000122:                                                                                                 #                      EQUALS VRECTCSM(LEM) IF
054002,000123:                                                                                                 #                      TCCSM(LEM) = 0
054003,000124: 
054004,000125:                                                                                                 #                                                              28     28
054005,000126:                                                                                                 #     TCCSM(LEM)     - TIME SINCE RECTIFICATION       CSECS   2      2
054006,000127:                                                                                                 #                      CUSTOMARILY 0
054007,000128: 
054008,000129:                                                                                                 #                                                      1/2     17     16
054009,000130:                                                                                                 #     XKEPCSM(LEM)   - ROOT OF KEPLERS EQUATION       M       2      2
054010,000131:                                                                                                 #                      0 IF TCCSM(LEM) = 0
054011,000132: 
054012,000133:                                                                                                 #     CMOONFLG       - PERMANENT FLAGS CORRESPONDING          0      0
054013,000134:                                                                                                 #     CMIDFLAG         TO MOONFLAG AND MIDFLAG                0,1    0,1
054014,000135:                                                                                                 #     LMOONFLG         C = CSM, L = LM                        0      0
054015,000136:                                                                                                 #     LMIDFLG                                                 0,1    0,1
054016,000137: 
054017,000138:                                                                                                 #     SURFFLAG       - LUNAR SURFACE FLAG                     0,1    0,1
054018,000139: 
054019,000140:                                                                                                 #  IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
054020,000141:                                                                                                 #  SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
054021,000142:                                                                                                 #  ROUTINE MUST BE PRESET.
054022,000143: 
054023,000144:                                                                                                 #  OUTPUT
054024,000145:                                                                                                 #  AFTER EVERY CALL TO INTEGRATION
054025,000146:                                                                                                 #                                                             EARTH  MOON
054026,000147:                                                                                                 #                                                              29     29
054027,000148:                                                                                                 #      0D   RATT   POSITION                           METERS  2      2
054028,000149:                                                                                                 #                                                              7      7
054029,000150:                                                                                                 #      6D   VATT   VELOCITY                           M/CSEC  2      2
054030,000151:                                                                                                 #                                                              28     28
054031,000152:                                                                                                 #     12D   TAT    TIME                                       2      2
054032,000153:                                                                                                 #                                                              29     27
054033,000154:                                                                                                 #     14D   RATT1  POSITION                           METERS  2      2
054034,000155:                                                                                                 #                                                              7      5
054035,000156:                                                                                                 #     20D   VATT1  VELOCITY                           M/CSEC  2      2
054036,000157:                                                                                                 #                                                      3   2   36     30
054037,000158:                                                                                                 #     26D   MU(P)  MU                                 M /CS   2      2
054038,000159: 
054039,000160:                                                                                                 #     X1           MUTABLE ENTRY                              -2     -10D
054040,000161: 
054041,000162:                                                                                                 #     X2           COORDINT
054042,000163:                                                                                                 #     X2           COORDINATE SYSTEM ORIGIN                   0      2
054043,000164:                                                                                                 #                  (THIS, NOT MOONFLAG, SHOULD BE
054044,000165:                                                                                                 # # Page 1278
054045,000166:                                                                                                 #                  USED TO DETERMINE ORIGIN.)
054046,000167: 
054047,000168:                                                                                                 #  IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
054048,000169:                                                                                                 #  STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
054049,000170:                                                                                                 #  COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
054050,000171:                                                                                                 #  CALLING PROGRAM.
054051,000172: 
054052,000173:                                                                                                 #  4.0 CALLING SEQUENCES AND SAMPLE CODE
054053,000174:                                                                                                 #  -------------------------------------
054054,000175: 
054055,000176:                                                                                                 #      A) PRECISION ORBITAL INTEGRATION. CSMPREC,LEMPREC ENTRANCES
054056,000177:                                                                                                 #            L-X    STORE TIME TO 95T5791T5 T  95 PUS  L9ST (T4531)
054057,000178:                                                                                                 #            L      CALL
054058,000179:                                                                                                 #            L+1           CSMPREC (OR LEMPREC)
054059,000180:                                                                                                 #            L+2    RETURN
054060,000181:                                                                                                 #         INPUT                                                         28
054061,000182:                                                                                                 #            TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
054062,000183:                                                                                                 #         OUTPUT
054063,000184:                                                                                                 #            THE DATA LISTED IN SECTION 3.0 PLUS
054064,000185:                                                                                                 #            RQVV   POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
054065,000186:                                                                                                 #            BODY... METERS B-29 ONLY IF MIDFLAG = DIM0FLAG = 1
054066,000187:                                                                                                 #      B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
054067,000188:                                                                                                 #            L-X    STORE TIME IN PUSH LIST (TDEC1)
054068,000189:                                                                                                 #            L      CALL
054069,000190:                                                                                                 #            L+1           CSMCONIC (OR LEMCONIC)
054070,000191:                                                                                                 #         INPUT/OUTPUT
054071,000192:                                                                                                 #            SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
054072,000193:                                                                                                 #      C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
054073,000194:                                                                                                 #                   CALL
054074,000195:                                                                                                 #                          INTSTALL
054075,000196:                                                                                                 #                   VLOAD
054076,000197:                                                                                                 #                          POSITION VECTOR
054077,000198:                                                                                                 #                   STOVL  RCV
054078,000199:                                                                                                 #                          VELOCITY VECTOR
054079,000200:                                                                                                 #                   STODL  VCV
054080,000201:                                                                                                 #                          TIME STATE VECTOR VALID
054081,000202:                                                                                                 #                   STODL  TET
054082,000203:                                                                                                 #                          FINAL RADIUS
054083,000204:                                                                                                 #                   STORE  RFINAL
054084,000205:                                                                                                 #                   SET(CLEAR)  SET(CLEAR)
054085,000206:                                                                                                 #                               INTYPFLAG
054086,000207:                                                                                                 #                               MOONFLAG
054087,000208:                                                                                                 #                   SET(CLEAR)  DLOAD
054088,000209:                                                                                                 #                               DESIRED TIME
054089,000210:                                                                                                 #                   STCALL      TDEC1
054090,000211:                                                                                                 #                               INTEGRVS
054091,000212:                                                                                                 #         INPUT
054092,000213:                                                                                                 #            RCV    POSITION VECTOR                  METERS
054093,000214:                                                                                                 #            VCV    VELOCITY VECTOR                  M/CSEC
054094,000215:                                                                                                 #            TET    TIME OF STATE VECTOR(MAY = 0)    CSEC B-28
054095,000216:                                                                                                 # # Page 1279
054096,000217:                                                                                                 #            TDEC1  TIME TO INTEGRATE TO             CSEC B-28 (PD 32D)
054097,000218:                                                                                                 #                   (MAY BE INCREMENT IF TET=0)
054098,000219:                                                                                                 #         OUTPUT
054099,000220:                                                                                                 #            SAME AS FOR PRECISION OR CONIC INTEGRATION,
054100,000221:                                                                                                 #            DEPENDING ON INTYPFLG.
054101,000222:                                                                                                 #      D) INTEGRATE STATE VECTOR.INTGRV ENTRANCE
054102,000223:                                                                                                 #            L-X    STORE TIME IN PUSH LIST (TDEC1)(MAY BE DONE AFTER CALL TO INTSTALL)
054103,000224:                                                                                                 #            L-8    CALL
054104,000225:                                                                                                 #            L-7
054105,000226:                                                                                                 #            L-6    SET(CLEAR) SET(CLEAR)
054106,000227:                                                                                                 #            L-5               VINTFLAG   1=CSM, 0=LM
054107,000228:                                                                                                 #            L-4               INTYPFLAG  1=CONIC, 0=PRECISION
054108,000229:                                                                                                 #            L-3    SET(CLEAR) SET(CLEAR)
054109,000230:                                                                                                 #            L-2               DIM0FLAG   1=W-MATRIX, 0=NO W-MATRIX
054110,000231:                                                                                                 #            L-1               D6OR9FLG   1=9X9, 0=6X6
054111,000232:                                                                                                 #            L      SET        DLOAD
054112,000233:                                                                                                 #            L+1               STATEFLG   DESIRE PERMANENT UPDATE
054113,000234:                                                                                                 #            L+2               FINAL RAD. OF STATE VECTOR
054114,000235:                                                                                                 #            L+3    STCALL     RFINAL
054115,000236:                                                                                                 #            L+4               INTEGRV
054116,000237:                                                                                                 #            L      CALL                  NORMAL USE-- WILL UPDATE STATE
054117,000238:                                                                                                 #            L+1               INTEGRV    VECTOR IF DIM0FLAG=1.(STATEFLG IS
054118,000239:                                                                                                 #            L+2    RETURN                ALWAYS RESET IN INTEGRATION AFTER
054119,000240:                                                                                                 #                                         IT IS USED.)
054120,000241:                                                                                                 #          INPUT
054121,000242:                                                                                                 #            TDEC1 (PD 32D) TIME TO INTEGRATE TO    CSEC B-28
054122,000243:                                                                                                 #          OUTPUT
054123,000244:                                                                                                 #            SAME AS FOR PRECISION OR CONIC INTEGRATION
054124,000245:                                                                                                 #         THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
054125,000246:                                                                                                 #         THE PERMANENT STATE VECTOR REPRESENTATION.
054126,000247: 
054127,000248: 11,2310                                          BANK     11                                    
054128,000249: 13,2000                                          SETLOC   INTINIT                               
054129,000250: 13,2000                                          BANK                                           
054130,000251: 13,2561  E3,1554                                 EBANK=   RRECTCSM                              
054131,000252: 13,2561                                          COUNT    13/INTIN                              
054132,000253: 
054133,000254: 13,2561           05301        STATEINT          TC       PHASCHNG                              
054134,000255: 13,2562           00052                          OCT      00052                                 
054135,000256: 13,2563           34754                          CAF      PRIO5                                 
054136,000257: 13,2564           05042                          TC       FINDVAC                               
054137,000258: 13,2565  E3,1554                                 EBANK=   RRECTCSM                              
054138,000259: 13,2565           02570 26063                    2CADR    STATINT1                              
054139,000260: 13,2567           05213                          TC       TASKOVER                              
054140,000261: 13,2570           06006        STATINT1          TC       INTPRET                               
054141,000262: 13,2571           47014                          BON      RTB                                   
054142,000263: 13,2572           04712                                   QUITFLAG                              
054143,000264: 13,2573           26630                                   NOINT                                 #  NO STATEINT IF V96
054144,000265: 13,2574           45505                                   LOADTIME                              
054145,000266:                                                                                                 # # Page 1280
054146,000267: 13,2575           00041                          STORE    TDEC1                                 
054147,000268: 13,2576           77624                          CALL                                           
054148,000269: 13,2577           27371                                   INTSTALL                              
054149,000270: 13,2600           45014                          SET      CALL                                  
054150,000271: 13,2601           01076                                   NODOFLAG                              
054151,000272: 13,2602           26621                                   SETIFLGS                              
054152,000273: 13,2603           77650                          GOTO                                           
054153,000274: 13,2604           26000                                   STATEUP                               
054154,000275: 13,2605           00003 25140  600SECS           2DEC     60000      B-28                       
054155,000276: 13,2607           77414        ENDINT            CLEAR    EXIT                                  
054156,000277: 13,2610           01672                                   STATEFLG                              
054157,000278: 13,2611           05301                          TC       PHASCHNG                              
054158,000279: 13,2612           20032                          OCT      20032                                 
054159,000280: 13,2613           00006                          EXTEND                                         
054160,000281: 13,2614           32606                          DCA      600SECS                               
054161,000282: 13,2615           05231                          TC       LONGCALL                              
054162,000283: 13,2616  E3,1554                                 EBANK=   RRECTHIS                              
054163,000284: 13,2616           02561 26063                    2CADR    STATEINT                              
054164,000285: 13,2620           05112                          TC       ENDOFJOB                              
054165,000286: 13,2621           43014        SETIFLGS          SET      CLEAR                                 
054166,000287: 13,2622           01472                                   STATEFLG                              
054167,000288: 13,2623           01673                                   INTYPFLG                              
054168,000289: 13,2624           43014                          CLEAR    CLEAR                                 
054169,000290: 13,2625           01676                                   DIM0FLAG                              
054170,000291: 13,2626           01675                                   D6OR9FLG                              
054171,000292: 13,2627           77616                          RVQ                                            
054172,000293: 13,2630           77776        NOINT             EXIT                                           
054173,000294: 13,2631           05301                          TC       PHASCHNG                              
054174,000295: 13,2632           00002                          OCT      2                                     
054175,000296: 
054176,000297: 13,2633           05447                          TC       DOWNFLAG                              
054177,000298: 13,2634           00221                          ADRES    QUITFLAG                              
054178,000299: 
054179,000300: 13,2635           05112                          TC       ENDOFJOB                              
054180,000301: 
054181,000302:                                                                                                 #  ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
054182,000303: 
054183,000304:                                                                                                 #  CALLING SEQUENCE
054184,000305:                                                                                                 #     L   CALL
054185,000306:                                                                                                 #     L+1       ATOPCSM
054186,000307: 
054187,000308:                                                                                                 #  NORMAL EXIT AT L+2
054188,000309: 
054189,000310: 13,2636           47020        ATOPCSM           STQ      RTB                                   
054190,000311: 13,2637           00051                                   S2                                    
054191,000312: 13,2640           26651                                   MOVEACSM                              
054192,000313: 13,2641           45014                          SET      CALL                                  
054193,000314: 13,2642           04063                                   CMOONFLG                              
054194,000315:                                                                                                 # # Page 1281
054195,000316: 13,2643           20237                                   SVDWN1                                
054196,000317: 13,2644           43014                          BON      CLRGO                                 
054197,000318: 13,2645           00303                                   MOONFLAG                              
054198,000319: 13,2646           00051                                   S2                                    
054199,000320: 13,2647           04223                                   CMOONFLG                              
054200,000321: 13,2650           00051                                   S2                                    
054201,000322: 13,2651           03015        MOVEACSM          TC       SETBANK                               
054202,000323: 13,2652           55500                          TS       DIFEQCNT                              #  INITIALIZE INDEX
054203,000324: 13,2653           51500                          INDEX    DIFEQCNT                              
054204,000325: 13,2654           31502                          CA       RRECT                                 
054205,000326: 13,2655           51500                          INDEX    DIFEQCNT                              
054206,000327: 13,2656           55554                          TS       RRECTCSM                              
054207,000328: 13,2657           11500                          CCS      DIFEQCNT                              #  IS TRANSFER COMPLETE
054208,000329: 13,2660           12652                          TCF      MOVEACSM   +1                         #  NO-LOOP
054209,000330: 13,2661           06030                          TC       DANZIG                                #  COMPLETE- RETURN
054210,000331: 
054211,000332: 
054212,000333:                                                                                                 #  PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
054213,000334: 
054214,000335:                                                                                                 #  CALLING SEQUENCE
054215,000336:                                                                                                 #     L   CALL
054216,000337:                                                                                                 #              PTOACSM
054217,000338: 
054218,000339:                                                                                                 #  NORMAL EXIT AT L+2
054219,000340: 13,2662           43034        PTOACSM           RTB      BON                                   
054220,000341: 13,2663           26700                                   MOVEPCSM                              
054221,000342: 13,2664           04303                                   CMOONFLG                              
054222,000343: 13,2665           26673                                   SETMOON                               
054223,000344: 13,2666           66214        CLRMOON           CLEAR    SSP                                   
054224,000345: 13,2667           00263                                   MOONFLAG                              
054225,000346: 13,2670           02151                                   PBODY                                 
054226,000347: 13,2671           00000                                   0                                     
054227,000348: 13,2672           77616                          RVQ                                            
054228,000349: 13,2673           66214        SETMOON           SET      SSP                                   
054229,000350: 13,2674           00063                                   MOONFLAG                              
054230,000351: 13,2675           02151                                   PBODY                                 
054231,000352: 13,2676           00002                                   2                                     
054232,000353: 13,2677           77616                          RVQ                                            
054233,000354: 13,2700           03015        MOVEPCSM          TC       SETBANK                               
054234,000355: 13,2701           55500                          TS       DIFEQCNT                              
054235,000356: 13,2702           51500                          INDEX    DIFEQCNT                              
054236,000357: 13,2703           31554                          CA       RRECTCSM                              
054237,000358: 13,2704           51500                          INDEX    DIFEQCNT                              
054238,000359: 13,2705           55502                          TS       RRECT                                 
054239,000360: 13,2706           11500                          CCS      DIFEQCNT                              
054240,000361: 13,2707           12701                          TCF      MOVEPCSM   +1                         
054241,000362: 13,2710           06030                          TC       DANZIG                                
054242,000363: 
054243,000364: 
054244,000365:                                                                                                 #  ATOPLEM  TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
054245,000366:                                                                                                 # # Page 1282
054246,000367: 13,2711           47020        ATOPLEM           STQ      RTB                                   
054247,000368: 13,2712           00051                                   S2                                    
054248,000369: 13,2713           26724                                   MOVEALEM                              
054249,000370: 13,2714           45014                          SET      CALL                                  
054250,000371: 13,2715           04064                                   LMOONFLG                              
054251,000372: 13,2716           20263                                   SVDWN2                                
054252,000373: 13,2717           43014                          BON      CLRGO                                 
054253,000374: 13,2720           00303                                   MOONFLAG                              
054254,000375: 13,2721           00051                                   S2                                    
054255,000376: 13,2722           04224                                   LMOONFLG                              
054256,000377: 13,2723           00051                                   S2                                    
054257,000378: 13,2724           03015        MOVEALEM          TC       SETBANK                               
054258,000379: 13,2725           55500                          TS       DIFEQCNT                              
054259,000380: 13,2726           51500                          INDEX    DIFEQCNT                              
054260,000381: 13,2727           31502                          CA       RRECT                                 
054261,000382: 13,2730           51500                          INDEX    DIFEQCNT                              
054262,000383: 13,2731           55626                          TS       RRECTLEM                              
054263,000384: 13,2732           11500                          CCS      DIFEQCNT                              
054264,000385: 13,2733           12725                          TCF      MOVEALEM   +1                         
054265,000386: 13,2734           06030                          TC       DANZIG                                
054266,000387: 
054267,000388: 
054268,000389:                                                                                                 #  PTOALEM  TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
054269,000390: 
054270,000391: 13,2735           47014        PTOALEM           BON      RTB                                   
054271,000392: 13,2736           04307                                   SURFFLAG                              
054272,000393: 13,2737           26756                                   USEPIOS                               
054273,000394: 13,2740           26745                                   MOVEPLEM                              
054274,000395: 13,2741           52014                          BON      GOTO                                  
054275,000396: 13,2742           04304                                   LMOONFLG                              
054276,000397: 13,2743           26673                                   SETMOON                               
054277,000398: 13,2744           26666                                   CLRMOON                               
054278,000399: 13,2745           03015        MOVEPLEM          TC       SETBANK                               
054279,000400: 13,2746           55500                          TS       DIFEQCNT                              
054280,000401: 13,2747           51500                          INDEX    DIFEQCNT                              
054281,000402: 13,2750           31626                          CA       RRECTLEM                              
054282,000403: 13,2751           51500                          INDEX    DIFEQCNT                              
054283,000404: 13,2752           55502                          TS       RRECT                                 
054284,000405: 13,2753           11500                          CCS      DIFEQCNT                              
054285,000406: 13,2754           12746                          TCF      MOVEPLEM   +1                         
054286,000407: 13,2755           06030                          TC       DANZIG                                
054287,000408: 
054288,000409: 
054289,000410: 13,2756           77201        USEPIOS           SETPD    VLOAD                                 
054290,000411: 13,2757           00001                                   0                                     
054291,000412: 13,2760           02026                                   RLS                                   
054292,000413: 13,2761           41525                          PDDL     PUSH                                  
054293,000414: 13,2762           00041                                   TDEC1                                 
054294,000415: 13,2763           15517                          STODL    TET                                   
054295,000416: 13,2764           27753                                   5/8                                   
054296,000417:                                                                                                 # # Page 1283
054297,000418: 13,2765           77624                          CALL                                           
054298,000419: 13,2766           55341                                   RP-TO-R                               
054299,000420: 13,2767           25535                          STOVL    RCV                                   
054300,000421: 13,2770           11445                                   ZUNIT                                 
054301,000422: 13,2771           14001                          STODL    0D                                    
054302,000423: 13,2772           01517                                   TET                                   
054303,000424: 13,2773           14007                          STODL    6D                                    
054304,000425: 13,2774           27753                                   5/8                                   
054305,000426: 13,2775           45014                          SET      CALL                                  #  NEEDED FOR SETTING X1 ON EXIT
054306,000427: 13,2776           00063                                   MOONFLAG                              
054307,000428: 13,2777           55341                                   RP-TO-R                               
054308,000429: 13,3000           74235                          VXV      VXSC                                  
054309,000430: 13,3001           01535                                   RCV                                   
054310,000431: 13,3002           27014                                   OMEGMOON                              
054311,000432: 13,3003           25543                          STOVL    VCV                                   
054312,000433: 13,3004           11453                                   ZEROVEC                               
054313,000434: 13,3005           01521                          STORE    TDELTAV                               
054314,000435: 13,3006           67174                          AXT,2    SXA,2                                 
054315,000436: 13,3007           00002                                   2                                     
054316,000437: 13,3010           02150                                   PBODY                                 
054317,000438: 13,3011           35527                          STCALL   TNUV                                  
054318,000439: 13,3012           27136                                   A-PCHK                                
054319,000440: 13,3013           07112 06620  OMEGMOON          2DEC*    2.66169947 E-8        B+23*           
054320,000441: 13,3015           33021        SETBANK           CAF      INTBANK                               
054321,000442: 13,3016           54006                          TS       BBANK                                 
054322,000443: 13,3017           33436                          CAF      FORTYONE                              
054323,000444: 13,3020           00002                          TC       Q                                     
054324,000445: 13,3021  E3,1554                                 EBANK=   RRECTCSM                              
054325,000446: 13,3021           26063        INTBANK           BBCON    INTEGRV                               
054326,000447: 
054327,000448: 
054328,000449:                                                                                                 #  SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
054329,000450:                                                                                                 #  APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
054330,000451: 
054331,000452:                                                                                                 #  CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
054332,000453:                                                                                                 #  ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
054333,000454:                                                                                                 #  THE PERMANENT STATE VECTOR IS NOT UPDATED.
054334,000455:                                                                                                 #  CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
054335,000456:                                                                                                 #  NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
054336,000457:                                                                                                 #  STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION.
054337,000458: 
054338,000459:                                                                                                 #  THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
054339,000460:                                                                                                 #  SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
054340,000461:                                                                                                 #              CSMPREC  CSMCONIC   LEMPREC  LEMCONIC
054341,000462:                                                                                                 #  VINTFLAG     SET       SET       CLEAR    CLEAR
054342,000463:                                                                                                 #  INTYPFLG     CLEAR     SET       CLEAR    SET
054343,000464:                                                                                                 #  DIM0FLAG     CLEAR     CLEAR     CLEAR    CLEAR
054344,000465: 
054345,000466:                                                                                                 # # Page 1284
054346,000467:                                                                                                 #  CALLING SEQUENCE
054347,000468:                                                                                                 #     L-X  STORE TDEC1
054348,000469:                                                                                                 #     L    CALL       (STCALL TDEC1)
054349,000470:                                                                                                 #     L+1         CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
054350,000471: 
054351,000472:                                                                                                 #   NORMAL EXIT TO L+2
054352,000473: 
054353,000474: 
054354,000475:                                                                                                 #  SUBROUTINES CALLED
054355,000476:                                                                                                 #    INTEGRV1
054356,000477:                                                                                                 #    PRECOUT FOR CSMPREC AND LEMPREC
054357,000478:                                                                                                 #    CONICOUT  FOR CSMCONIC AND LEMCONIC
054358,000479: 
054359,000480: 
054360,000481:                                                                                                 #  OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
054361,000482:                                                                                                 #  INPUT
054362,000483:                                                                                                 #   TDEC1   TIME TO INTEGRATE TO . CSECS B-28
054363,000484: 13,3022           45020        CSMPREC           STQ      CALL                                  
054364,000485: 13,3023           00046                                   X1                                    
054365,000486: 13,3024           27371                                   INTSTALL                              
054366,000487: 13,3025           43130                          SXA,1    SET                                   
054367,000488: 13,3026           02214                                   IRETURN                               
054368,000489: 13,3027           01474                                   VINTFLAG                              
054369,000490: 
054370,000491: 13,3030           43014        IFLAGP            SET      CLEAR                                 
054371,000492: 13,3031           01467                                   PRECIFLG                              
054372,000493: 13,3032           01676                                   DIM0FLAG                              
054373,000494: 13,3033           77614                          CLRGO                                          
054374,000495: 13,3034           01633                                   INTYPFLG                              
054375,000496: 13,3035           27115                                   INTEGRV1                              
054376,000497: 13,3036           45020        LEMPREC           STQ      CALL                                  
054377,000498: 13,3037           00046                                   X1                                    
054378,000499: 13,3040           27371                                   INTSTALL                              
054379,000500: 13,3041           43130                          SXA,1    CLRGO                                 
054380,000501: 13,3042           02214                                   IRETURN                               
054381,000502: 13,3043           01634                                   VINTFLAG                              
054382,000503: 13,3044           27030                                   IFLAGP                                
054383,000504: 
054384,000505: 13,3045           45020        CSMCONIC          STQ      CALL                                  
054385,000506: 13,3046           00046                                   X1                                    
054386,000507: 13,3047           27371                                   INTSTALL                              
054387,000508: 13,3050           43130                          SXA,1    SET                                   
054388,000509: 13,3051           02214                                   IRETURN                               
054389,000510: 13,3052           01474                                   VINTFLAG                              
054390,000511: 13,3053           43014        IFLAGC            CLEAR    SETGO                                 
054391,000512: 13,3054           01676                                   DIM0FLAG                              
054392,000513: 13,3055           01433                                   INTYPFLG                              
054393,000514: 13,3056           27115                                   INTEGRV1                              
054394,000515: 13,3057           45020        LEMCONIC          STQ      CALL                                  
054395,000516: 13,3060           00046                                   X1                                    
054396,000517:                                                                                                 # # Page 1285
054397,000518: 13,3061           27371                                   INTSTALL                              
054398,000519: 13,3062           43130                          SXA,1    CLRGO                                 
054399,000520: 13,3063           02214                                   IRETURN                               
054400,000521: 13,3064           01634                                   VINTFLAG                              
054401,000522: 13,3065           27053                                   IFLAGC                                
054402,000523: 
054403,000524: 13,3066           66214        INTEGRVS          SET      SSP                                   
054404,000525: 13,3067           01467                                   PRECIFLG                              
054405,000526: 13,3070           02151                                   PBODY                                 
054406,000527: 13,3071           00000                                   0                                     
054407,000528: 13,3072           66214                          BOF      SSP                                   
054408,000529: 13,3073           00343                                   MOONFLAG                              
054409,000530: 13,3074           27077                                   +3                                    
054410,000531: 13,3075           02151                                   PBODY                                 
054411,000532: 13,3076           00002                                   2                                     
054412,000533: 13,3077           77220                          STQ      VLOAD                                 
054413,000534: 13,3100           02214                                   IRETURN                               
054414,000535: 13,3101           11453                                   ZEROVEC                               
054415,000536: 13,3102           01521                          STORE    TDELTAV                               
054416,000537: 13,3103           35527                          STCALL   TNUV                                  
054417,000538: 13,3104           23344                                   RECTIFY                               
054418,000539: 13,3105           43014                          CLEAR    SET                                   
054419,000540: 13,3106           01676                                   DIM0FLAG                              
054420,000541: 13,3107           04062                                   NEWIFLG                               
054421,000542: 13,3110           77614                          SETGO                                          
054422,000543: 13,3111           04020                                   RPQFLAG                               
054423,000544: 13,3112           27127                                   ALOADED                               
054424,000545:                                                                                                 #  INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER ,
054425,000546:                                                                                                 #  NORMALLY THE NAVIGATION PROGRAM ,TO SET THE INTEG. FLAGS. THE ROUTINE
054426,000547:                                                                                                 #  IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
054427,000548:                                                                                                 #  THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
054428,000549:                                                                                                 #  PROGRAM FOR PRECISION OR CONIC
054429,000550: 
054430,000551:                                                                                                 #  THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
054431,000552:                                                                                                 #  SETTING ANY FLAGS.
054432,000553:                                                                                                 #  THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
054433,000554:                                                                                                 #    VINTFLAG    (IGNORED WHEN ENTERED FROM INTEGRVS)
054434,000555:                                                                                                 #    INTYPFLG
054435,000556:                                                                                                 #    DIM0FLAG
054436,000557:                                                                                                 #    D6OR9FLG
054437,000558:                                                                                                 #  CALLING SEQUENCE
054438,000559:                                                                                                 #    L-X    CALL
054439,000560:                                                                                                 #    L-Y          INTSTALL
054440,000561:                                                                                                 #    L-1    SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
054441,000562:                                                                                                 #           AND DIM0FLAG IS CLEAR.
054442,000563:                                                                                                 #    L      CALL
054443,000564:                                                                                                 #    L+1          INTEGRV
054444,000565:                                                                                                 #  INITIALIZATION
054445,000566:                                                                                                 #    FLAGS AS ABOVE
054446,000567:                                                                                                 #    STORE TIME TO INTEGRATE TO IN TDEC1
054447,000568:                                                                                                 # # Page 1286
054448,000569:                                                                                                 #  OUTPUT
054449,000570:                                                                                                 #    RATT   AS
054450,000571:                                                                                                 #    VATT      DEFINED
054451,000572:                                                                                                 #    TAT               BEFORE
054452,000573: 
054453,000574: 
054454,000575: 13,3113           77620        INTEGRV           STQ                                            
054455,000576: 13,3114           02214                                   IRETURN                               
054456,000577: 13,3115           43014        INTEGRV1          SET      SET                                   
054457,000578: 13,3116           04060                                   RPQFLAG                               
054458,000579: 13,3117           04062                                   NEWIFLG                               
054459,000580: 13,3120           77731        INTEGRV2          SSP                                            
054460,000581: 13,3121           00053                                   QPRET                                 
054461,000582: 13,3122           27127                                   ALOADED                               
054462,000583: 13,3123           52014                          BON      GOTO                                  
054463,000584: 13,3124           01714                                   VINTFLAG                              
054464,000585: 13,3125           26662                                   PTOACSM                               
054465,000586: 13,3126           26735                                   PTOALEM                               
054466,000587: 13,3127           77745        ALOADED           DLOAD                                          
054467,000588: 13,3130           00041                                   TDEC1                                 
054468,000589: 13,3131           01101                          STORE    TDEC                                  
054469,000590: 13,3132           52014                          BOFF     GOTO                                  
054470,000591: 13,3133           01753                                   INTYPFLG                              
054471,000592: 13,3134           27234                                   TESTLOOP                              
054472,000593: 13,3135           27220                                   RVCON                                 
054473,000594: 13,3136           77414        A-PCHK            BOFCLR   EXIT                                  
054474,000595: 13,3137           01652                                   STATEFLG                              
054475,000596: 13,3140           27157                                   RECTOUT                               
054476,000597: 13,3141           05301                          TC       PHASCHNG                              
054477,000598: 13,3142           04022                          OCT      04022                                 
054478,000599: 13,3143           05435                          TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
054479,000600: 13,3144           00236                          ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
054480,000601: 13,3145           06006                          TC       INTPRET                               
054481,000602: 13,3146           77731                          SSP                                            
054482,000603: 13,3147           00053                                   QPRET                                 
054483,000604: 13,3150           27155                                   PHEXIT                                
054484,000605: 13,3151           52014                          BON      GOTO                                  
054485,000606: 13,3152           01714                                   VINTFLAG                              
054486,000607: 13,3153           26636                                   ATOPCSM                               
054487,000608: 13,3154           26711                                   ATOPLEM                               
054488,000609: 13,3155           77624        PHEXIT            CALL                                           
054489,000610: 13,3156           56712                                   GRP2PC                                
054490,000611: 13,3157           45001        RECTOUT           SETPD    CALL                                  
054491,000612: 13,3160           00001                                   0                                     
054492,000613: 13,3161           23344                                   RECTIFY                               
054493,000614: 13,3162           53775                          VLOAD    VSL*                                  
054494,000615: 13,3163           01503                                   RRECT                                 
054495,000616: 13,3164           57576                                   0,2                                   
054496,000617: 13,3165           53715                          PDVL     VSL*                                  #  RATT TO PD0
054497,000618: 13,3166           01511                                   VRECT                                 
054498,000619:                                                                                                 # # Page 1287
054499,000620: 13,3167           57576                                   0,2                                   
054500,000621: 13,3170           63325                          PDDL     PDVL                                  #  VATT TO PD6    TAT TO PD12
054501,000622: 13,3171           01517                                   TET                                   
054502,000623: 13,3172           01503                                   RRECT                                 
054503,000624: 13,3173           64715                          PDVL     PDDL*                                 
054504,000625: 13,3174           01511                                   VRECT                                 
054505,000626: 13,3175           50044                                   MUEARTH,2                             
054506,000627: 13,3176           76006                          PUSH     AXT,1                                 
054507,000628: 13,3177           77765                          DEC      -10        B-14                       
054508,000629: 13,3200           76014                          BON      AXT,1                                 
054509,000630: 13,3201           00303                                   MOONFLAG                              
054510,000631: 13,3202           27204                                   +2                                    
054511,000632: 13,3203           77775                          DEC      -2         B-14                       
054512,000633: 13,3204           40001        INTEXIT           SETPD    BOV                                   
054513,000634: 13,3205           00001                                   0                                     
054514,000635: 13,3206           27207                                   +1                                    
054515,000636: 13,3207           43014                          CLEAR    CLEAR                                 
054516,000637: 13,3210           04676                                   AVEMIDSW                              #  ALLOW UPDATE OF DOWNLINK STATE VECTOR
054517,000638: 13,3211           01667                                   PRECIFLG                              
054518,000639: 13,3212           77535                          SLOAD    EXIT                                  
054519,000640: 13,3213           02215                                   IRETURN                               
054520,000641: 13,3214           30154                          CA       MPAC                                  
054521,000642: 13,3215           50120                          INDEX    FIXLOC                                
054522,000643: 13,3216           54052                          TS       QPRET                                 
054523,000644: 13,3217           03406                          TC       INTWAKE                               
054524,000645:                                                                                                 #  RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
054525,000646:                                                                                                 #  VELOCITY FOR THE INTERVAL (TET-TDEC)
054526,000647: 
054527,000648: 13,3220           45345        RVCON             DLOAD    DSU                                   
054528,000649: 13,3221           01101                                   TDEC                                  
054529,000650: 13,3222           01517                                   TET                                   
054530,000651: 13,3223           36312                          STCALL   TAU.                                  
054531,000652: 13,3224           23344                                   RECTIFY                               
054532,000653: 13,3225           77624                          CALL                                           
054533,000654: 13,3226           22310                                   KEPPREP                               
054534,000655: 13,3227           43345                          DLOAD    DAD                                   
054535,000656: 13,3230           01551                                   TC                                    
054536,000657: 13,3231           01517                                   TET                                   
054537,000658: 13,3232           35517                          STCALL   TET                                   
054538,000659: 13,3233           27157                                   RECTOUT                               
054539,000660: 
054540,000661:                                                                                                 # # Page 1288
054541,000662:                                                                                                 #           TESTLOOP
054542,000663: 
054543,000664: 13,3234           43014        TESTLOOP          BOF      CLRGO                                 
054544,000665: 13,3235           04752                                   QUITFLAG                              
054545,000666: 13,3236           27241                                   +3                                    
054546,000667: 13,3237           01632                                   STATEFLG                              
054547,000668: 13,3240           27204                                   INTEXIT                               #  STOP INTEGRATION
054548,000669: 13,3241           73001                 +3       SETPD    LXA,2                                 
054549,000670: 13,3242           00013                                   10D                                   
054550,000671: 13,3243           02150                                   PBODY                                 
054551,000672: 13,3244           51575                          VLOAD    ABVAL                                 
054552,000673: 13,3245           01535                                   RCV                                   
054553,000674: 13,3246           43006                          PUSH     CLEAR                                 #  RC TO 10D
054554,000675: 13,3247           00262                                   MIDFLAG                               
054555,000676: 13,3250           50023                          DSU*     BMN                                   #  MIDFLAG=0 IF R G.T. RMP
054556,000677: 13,3251           67241                                   RME,2                                 
054557,000678: 13,3252           27255                                   +3                                    
054558,000679: 13,3253           77614                          SET                                            
054559,000680: 13,3254           00062                                   MIDFLAG                               
054560,000681: 13,3255           41345        NORFINAL          DLOAD    DMP                                   
054561,000682: 13,3256           00013                                   10D                                   
054562,000683: 13,3257           00043                                   34D                                   
054563,000684: 13,3260           55762                          SR1R     DDV*                                  
054564,000685: 13,3261           50044                                   MUEARTH,2                             
054565,000686: 13,3262           41366                          SQRT     DMP                                   
054566,000687: 13,3263           23675                                   .3D                                   
054567,000688: 13,3264           40442                          SR3      SR4                                   #  DT   IS TRUNCATED TO A MULTIPLE
054568,000689: 13,3265           54345                          DLOAD    SL                                    
054569,000690: 13,3266           00155                                   MPAC                                  
054570,000691: 13,3267           20220                                   15D                                   #        OF 128 CSECS.
054571,000692: 13,3270           40006                          PUSH     BOV                                   
054572,000693: 13,3271           27316                                   MAXDT                                 
054573,000694: 13,3272           50021                          BDSU     BMN                                   
054574,000695: 13,3273           27370                                   DT/2MAX                               
054575,000696: 13,3274           27316                                   MAXDT                                 
054576,000697: 13,3275           45345        DT/2COMP          DLOAD    DSU                                   
054577,000698: 13,3276           01101                                   TDEC                                  
054578,000699: 13,3277           01517                                   TET                                   
054579,000700: 13,3300           54234                          RTB      SL                                    
054580,000701: 13,3301           45541                                   SGNAGREE                              
054581,000702: 13,3302           20211                                   8D                                    
054582,000703: 13,3303           02314                          STORE    DT/2                                  #  B-19
054583,000704: 13,3304           51400                          BOV      ABS                                   
054584,000705: 13,3305           27322                                   GETMAXDT                              
054585,000706: 13,3306           50025                          DSU      BMN                                   #  IS TIME TO INTEG. TO GR THAN MAXTIME
054586,000707: 13,3307           00015                                   12D                                   
054587,000708: 13,3310           27326                                   P00HCHK                               
054588,000709: 13,3311           75345        USEMAXDT          DLOAD    SIGN                                  
054589,000710: 13,3312           00015                                   12D                                   
054590,000711: 13,3313           02314                                   DT/2                                  
054591,000712:                                                                                                 # # Page 1289
054592,000713: 13,3314           36314                          STCALL   DT/2                                  
054593,000714: 13,3315           27326                                   P00HCHK                               
054594,000715: 13,3316           65345        MAXDT             DLOAD    PDDL                                  #  EXCHANGE DT/2MAX WITH COMPUTED MAX.
054595,000716: 13,3317           27370                                   DT/2MAX                               
054596,000717: 13,3320           77650                          GOTO                                           
054597,000718: 13,3321           27275                                   DT/2COMP                              
054598,000719: 13,3322           77634        GETMAXDT          RTB                                            
054599,000720: 13,3323           45707                                   SIGNMPAC                              
054600,000721: 13,3324           36314                          STCALL   DT/2                                  
054601,000722: 13,3325           27311                                   USEMAXDT                              
054602,000723: 13,3326           51545        P00HCHK           DLOAD    ABS                                   
054603,000724: 13,3327           02314                                   DT/2                                  
054604,000725: 13,3330           50025                          DSU      BMN                                   
054605,000726: 13,3331           27366                                   DT/2MIN                               
054606,000727: 13,3332           27136                                   A-PCHK                                
054607,000728: 13,3333           46135                          SLOAD    BHIZ                                  
054608,000729: 13,3334           01012                                   MODREG                                
054609,000730: 13,3335           27340                                   +3                                    
054610,000731: 13,3336           77650                          GOTO                                           
054611,000732: 13,3337           23155                                   TIMESTEP                              
054612,000733: 13,3340           77614                          BON                                            #  WAS THIS CALL VIA CSM(LEM)PREC
054613,000734: 13,3341           01707                                   PRECIFLG                              
054614,000735: 13,3342           23155                                   TIMESTEP                              #  YES
054615,000736: 13,3343           45345                          DLOAD    DSU                                   
054616,000737: 13,3344           02314                                   DT/2                                  
054617,000738: 13,3345           00015                                   12D                                   
054618,000739: 13,3346           43040                          BMN      BOFCLR                                
054619,000740: 13,3347           27136                                   A-PCHK                                
054620,000741: 13,3350           04242                                   NEWIFLG                               
054621,000742: 13,3351           23155                                   TIMESTEP                              
054622,000743: 13,3352           45345                          DLOAD    DSU                                   
054623,000744: 13,3353           01101                                   TDEC                                  
054624,000745: 13,3354           01517                                   TET                                   
054625,000746: 13,3355           77640                          BMN                                            #  NO BACKWARD INTEGRATION
054626,000747: 13,3356           27204                                   INTEXIT                               
054627,000748: 13,3357           40525                          PDDL     SR4                                   
054628,000749: 13,3360           02314                                   DT/2                                  #  IS 4(DT) LS(TDEC - TET)
054629,000750: 13,3361           44322                          SR2R     BDSU                                  #  NO
054630,000751: 13,3362           52040                          BMN      GOTO                                  
054631,000752: 13,3363           27204                                   INTEXIT                               
054632,000753: 13,3364           23155                                   TIMESTEP                              
054633,000754: 13,3365           00000 01400  DT/2MIN           2DEC     3          B-20                       
054634,000755: 13,3367           14152 00000  DT/2MAX           2DEC     4000       E2         B-20            
054635,000756: 13,3371           77776        INTSTALL          EXIT                                           
054636,000757: 13,3372           34714                          CAF      ZERO                                  
054637,000758: 13,3373           54001        ALLSTALL          TS       L                                     
054638,000759: 13,3374           30106                          CA       RASFLAG                               
054639,000760: 13,3375           50001                          INDEX    L                                     
054640,000761:                                                                                                 # # Page 1290
054641,000762: 13,3376           73467                          MASK     INTBITAB                              #  IS THIS STALL AREA FREE
054642,000763: 13,3377           00006                          EXTEND                                         
054643,000764: 13,3400           13445                          BZF      OKTOGRAB                              #  YES
054644,000765: 13,3401           50001                          INDEX    L                                     
054645,000766: 13,3402           33464                          CAF      WAKESTAL                              
054646,000767: 13,3403           05070                          TC       JOBSLEEP                              
054647,000768: 13,3404           77776        INTWAKE0          EXIT                                           
054648,000769: 13,3405           13426                          TCF      INTWAKE1                              
054649,000770: 
054650,000771: 13,3406           40106        INTWAKE           CS       RASFLAG                               #  IS THIS INTSTALLED ROUTINE TO BE
054651,000772: 13,3407           74704                          MASK     REINTBIT                              #       RESTARTED
054652,000773: 13,3410           10000                          CCS      A                                     
054653,000774: 13,3411           03426                          TC       INTWAKE1                              #  NO
054654,000775: 
054655,000776: 13,3412           50120                          INDEX    FIXLOC                                
054656,000777: 13,3413           30052                          CA       QPRET                                 
054657,000778: 13,3414           55055                          TS       TBASE2                                #  YES, DONT RESTART WITH SOMEONE ELSES Q
054658,000779: 
054659,000780: 13,3415           05301                          TC       PHASCHNG                              
054660,000781: 13,3416           04022                          OCT      04022                                 
054661,000782: 
054662,000783: 13,3417           31055                          CA       TBASE2                                
054663,000784: 13,3420           50120                          INDEX    FIXLOC                                
054664,000785: 13,3421           54052                          TS       QPRET                                 
054665,000786: 
054666,000787: 13,3422           34704                          CAF      REINTBIT                              
054667,000788: 13,3423           70106                          MASK     RASFLAG                               
054668,000789: 13,3424           00006                          EXTEND                                         
054669,000790: 13,3425           13450                          BZF      GOBAC                                 #  DONT INTWAKE IF WE CAME HERE VIA RESTART
054670,000791: 
054671,000792: 13,3426           34714        INTWAKE1          CAF      ZERO                                  
054672,000793: 13,3427           54154        WAKE              TS       STALTEM                               #  INDEX OF ANY STALL USER
054673,000794: 13,3430           50154        WAKE1             INDEX    STALTEM                               
054674,000795: 13,3431           33464                          CAF      WAKESTAL                              
054675,000796: 13,3432           00004                          INHINT                                         
054676,000797: 13,3433           05074                          TC       JOBWAKE                               
054677,000798: 13,3434           10064                          CCS      LOCCTR                                
054678,000799: 13,3435           13430                          TCF      WAKE1                                 #  MAY BE MORE TO WAKE UP
054679,000800: 13,3436           00051        FORTYONE          DEC      41         B-14                       
054680,000801: 13,3437           50154                          INDEX    STALTEM                               
054681,000802: 13,3440           43467                          CS       INTBITAB                              
054682,000803: 13,3441           70106                          MASK     RASFLAG                               
054683,000804: 13,3442           54106                          TS       RASFLAG                               #  RELEASE STALL AREA
054684,000805: 13,3443           00003                          RELINT                                         
054685,000806: 13,3444           13450                          TCF      GOBAC                                 
054686,000807: 13,3445           50001        OKTOGRAB          INDEX    L                                     #  NO, WAIT UNTIL AVAILABLE
054687,000808: 13,3446           34675                          CAF      INTFLBIT                              
054688,000809: 13,3447           26106                          ADS      RASFLAG                               
054689,000810: 13,3450           06006        GOBAC             TC       INTPRET                               
054690,000811: 13,3451           77616                          RVQ                                            
054691,000812:                                                                                                 # # Page 1291
054692,000813: 13,3452           77776        ERASTAL1          EXIT                                           
054693,000814: 13,3453           34712                          CAF      ONE                                   
054694,000815: 13,3454           13373                          TCF      ALLSTALL                              
054695,000816: 13,3455           77776        ERASTAL2          EXIT                                           
054696,000817: 13,3456           34711                          CAF      TWO                                   
054697,000818: 13,3457           13373                          TCF      ALLSTALL                              
054698,000819: 13,3460           34712        ERASWAK1          CAF      ONE                                   
054699,000820: 13,3461           13427                          TCF      WAKE                                  
054700,000821: 13,3462           34711        ERASWAK2          CAF      TWO                                   
054701,000822: 13,3463           13427                          TCF      WAKE                                  
054702,000823: 13,3464           27372        WAKESTAL          CADR     INTSTALL   +1                         
054703,000824: 13,3465           27453                          CADR     ERASTAL1   +1                         
054704,000825: 13,3466           27456                          CADR     ERASTAL2   +1                         
054705,000826: 13,3467     0154               STALTEM           EQUALS   MPAC                                  
054706,000827: 13,3467           20100        INTBITAB          OCT      20100                                 
054707,000828: 13,3470           10040                          OCT      10040                                 
054708,000829: 13,3471           04020                          OCT      04020                                 
054709,000830: 
054710,000831:                                                                                                 # # Page 1292
054711,000832:                                                                                                 #  AVETOMID
054712,000833: 
054713,000834:                                                                                                 #  THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
054714,000835:                                                                                                 #  PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
054715,000836:                                                                                                 #  VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
054716,000837: 
054717,000838:                                                                                                 #  BEFORE THIS IS DONE THE W-MATRIX, IF ITS  VALID (ORWFLAG OR RENDWFLG IS
054718,000839:                                                                                                 #  SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
054719,000840: 
054720,000841:                                                                                                 #  IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
054721,000842: 
054722,000843:                                                                                                 #  FINALLY TRKMKCNT IS ZEROED
054723,000844: 
054724,000845: 
054725,000846: 13,2000                                          SETLOC   INTINIT                               
054726,000847: 13,2000                                          BANK                                           
054727,000848: 
054728,000849: 13,3472                                          COUNT*   $$/INTIN                              
054729,000850: 13,3472           43020        AVETOMID          STQ      BON                                   
054730,000851: 13,3473           02317                                   EGRESS                                
054731,000852: 13,3474           02716                                   RENDWFLG                              
054732,000853: 13,3475           27545                                   INT/W                                 #  W-MATRIX VALID ,GO INTEGRATE IT
054733,000854: 13,3476           77614                          BON                                            
054734,000855: 13,3477           01711                                   ORBWFLAG                              
054735,000856: 13,3500           27545                                   INT/W                                 #  W-MATRIX VALID ,GO INTEGRATE IT
054736,000857: 
054737,000858: 13,3501           45145        OTHERS            DLOAD    CALL                                  #  GET SET FOR OTHER VEHICLE INTEGRATION
054738,000859: 13,3502           01205                                   PIPTIME                               #  DESIRED TIME
054739,000860: 13,3503           27371                                   INTSTALL                              
054740,000861: 13,3504           45014                          SET      CALL                                  
054741,000862: 13,3505           01474                                   VINTFLAG                              #  CM
054742,000863: 13,3506           26621                                   SETIFLGS                              #  SETS UP NONE W-MAT. PERMANENT INTEG.
054743,000864: 13,3507           43014                          BOF      CLEAR                                 
054744,000865: 13,3510           02747                                   COMPUTER                              
054745,000866: 13,3511           27513                                   +2                                    #  COMPUTER IS LM ,INTEG CM
054746,000867: 13,3512           01674                                   VINTFLAG                              #  COMPUTER IS CM ,INTEG LM
054747,000868: 13,3513           34041                          STCALL   TDEC1                                 
054748,000869: 13,3514           27113                                   INTEGRV                               
054749,000870: 
054750,000871: 13,3515           45174                          AXT,2    CALL                                  #  NOW MOVE PROPERLY SCALE RN,UN AS WELL AS
054751,000872: 13,3516           00002                                   2                                     #  PIPTIME TO INTEGRATION ERASABLES.
054752,000873: 13,3517           27371                                   INTSTALL                              
054753,000874: 13,3520           77014                          BON      AXT,2                                 
054754,000875: 13,3521           04303                                   MOONTHIS                              
054755,000876: 13,3522           27524                                   +2                                    
054756,000877: 13,3523           00000                                   0                                     
054757,000878: 13,3524           53775                          VLOAD    VSR*                                  
054758,000879: 13,3525           01171                                   RN                                    
054759,000880: 13,3526           57176                                   0,2                                   
054760,000881: 13,3527           01503                          STORE    RRECT                                 
054761,000882:                                                                                                 # # Page 1293
054762,000883: 13,3530           15535                          STODL    RCV                                   
054763,000884: 13,3531           01205                                   PIPTIME                               
054764,000885: 13,3532           25517                          STOVL    TET                                   
054765,000886: 13,3533           01177                                   VN                                    
054766,000887: 13,3534           45057                          VSR*     CALL                                  
054767,000888: 13,3535           57176                                   0,2                                   
054768,000889: 13,3536           23360                                   MINIRECT                              #  FINISH SETTING UP STATE VECTOR
054769,000890: 13,3537           66234                          RTB      SSP                                   
054770,000891: 13,3540           26651                                   MOVATHIS                              #  PUT TEMP STATE VECTOR INTO PERMANENT
054771,000892: 13,3541           01127                                   TRKMKCNT                              
054772,000893: 13,3542           00000                                   0                                     
054773,000894: 13,3543           77650                          GOTO                                           
054774,000895: 13,3544           75743                                   FAZAB5                                
054775,000896: 
054776,000897: 13,3545           45145        INT/W             DLOAD    CALL                                  
054777,000898: 13,3546           01205                                   PIPTIME                               #  INTEGRATE W THRU BURN
054778,000899: 13,3547           27371                                   INTSTALL                              
054779,000900: 13,3550           43014                          SET      SET                                   
054780,000901: 13,3551           01476                                   DIM0FLAG                              #  DO W-MATRIX
054781,000902: 13,3552           04476                                   AVEMIDSW                              #  SO WONT CLOBBER RN,VN,PIPTIME
054782,000903: 13,3553           43014                          SET      CLEAR                                 
054783,000904: 13,3554           01475                                   D6OR9FLG                              #  9X9 FOR LM
054784,000905: 13,3555           01674                                   VINTFLAG                              #  LM
054785,000906: 13,3556           43014                          BOF      SET                                   
054786,000907: 13,3557           02747                                   COMPUTER                              
054787,000908: 13,3560           27564                                   +4                                    #  LM TO DO
054788,000909: 13,3561           01474                                   VINTFLAG                              
054789,000910: 13,3562           77614                          CLEAR                                          
054790,000911: 13,3563           01675                                   D6OR9FLG                              #  6X6 FOR CM
054791,000912: 13,3564           34041                          STCALL   TDEC1                                 
054792,000913: 13,3565           27113                                   INTEGRV                               
054793,000914: 13,3566           77650                          GOTO                                           
054794,000915: 13,3567           27501                                   OTHERS                                #  NOW GO DO THE OTHER VEHICLE
054795,000916: 
054796,000917:                                                                                                 # # Page 1294
054797,000918:                                                                                                 #  MIDTOAV1
054798,000919: 
054799,000920:                                                                                                 #  THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
054800,000921:                                                                                                 #  IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
054801,000922:                                                                                                 #  TIME (SEE TIMEDELT.....BASED ON THE COMPUTATION TIME FOR ONE TIME STEP)
054802,000923:                                                                                                 #  IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
054803,000924:                                                                                                 #  IS DONE TO THE CURRENT TIME.
054804,000925:                                                                                                 #  RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
054805,000926: 
054806,000927:                                                                                                 #  IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
054807,000928:                                                                                                 #  TO THE RETURN ADDRESS.
054808,000929: 
054809,000930:                                                                                                 #  IN EITHER CASE , BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
054810,000931:                                                                                                 #  FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
054811,000932:                                                                                                 #  TION TIME AND MPAC IS SET TO THE DELTA TIME---
054812,000933:                                                                                                 #                                    TAT MINUS CURRENT TIME.
054813,000934: 
054814,000935: 
054815,000936:                                                                                                 #  MIDTOAV2
054816,000937: 
054817,000938:                                                                                                 #  THIS ROUTINE INTEGRATES THIS VEHICLES STATE VECTOR TO THE CURRENT TIME.
054818,000939:                                                                                                 #  NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
054819,000940:                                                                                                 #  ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
054820,000941: 
054821,000942: 13,3570     1127                                 EBANK=   IRETURN1                              
054822,000943: 13,3570           43020        MIDTOAV2          STQ      CLRGO                                 #  INTEGRATE TO PRESENT TIME PLUS TIMEDELT
054823,000944: 13,3571           01127                                   IRETURN1                              
054824,000945: 13,3572           04634                                   MID1FLAG                              
054825,000946: 13,3573           27607                                   ENTMID2                               
054826,000947: 
054827,000948: 13,3574           43020        MIDTOAV1          STQ      SET                                   #   INTEGRATE TO TDEC1
054828,000949: 13,3575           01127                                   IRETURN1                              
054829,000950: 13,3576           04474                                   MID1FLAG                              
054830,000951: 13,3577           43234                          RTB      DAD                                   #  INITIAL CHECK, IS TDEC1 IN THE FUTURE
054831,000952: 13,3600           45505                                   LOADTIME                              
054832,000953: 13,3601           27711                                   TIMEDELT                              
054833,000954: 13,3602           51021                          BDSU     BPL                                   
054834,000955: 13,3603           00041                                   TDEC1                                 
054835,000956: 13,3604           27613                                   ENTMID1                               #   Y5S
054836,000957: 13,3605           77624                          CALL                                           
054837,000958: 13,3606           27677                                   NOTIME                                #  NO, SET ALARM, SWITCH TO MIDTOAV2
054838,000959: 
054839,000960: 13,3607           43234        ENTMID2           RTB      DAD                                   
054840,000961: 13,3610           45505                                   LOADTIME                              
054841,000962: 13,3611           27711                                   TIMEDELT                              
054842,000963: 13,3612           00041                          STORE    TDEC1                                 
054843,000964: 
054844,000965: 13,3613           77624        ENTMID1           CALL                                           
054845,000966: 13,3614           27371                                   INTSTALL                              
054846,000967: 13,3615           45014                          CLEAR    CALL                                  
054847,000968:                                                                                                 # # Page 1295
054848,000969: 13,3616           01676                                   DIM0FLAG                              #  NO W-MATRIX
054849,000970: 13,3617           26034                                   THISVINT                              
054850,000971: 13,3620           43014                          CLEAR    SET                                   
054851,000972: 13,3621           01673                                   INTYPFLG                              
054852,000973: 13,3622           04475                                   MIDAVFLG                              #  LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
054853,000974: 13,3623           77624                          CALL                                           
054854,000975: 13,3624           27113                                   INTEGRV                               #   GO INTEGRATE
054855,000976: 13,3625           77214                          CLEAR    VLOAD                                 
054856,000977: 13,3626           04675                                   MIDAVFLG                              
054857,000978: 13,3627           00001                                   RATT                                  
054858,000979: 13,3630           25232                          STOVL    RN1                                   
054859,000980: 13,3631           00007                                   VATT                                  
054860,000981: 13,3632           15240                          STODL    VN1                                   
054861,000982: 13,3633           00015                                   TAT                                   
054862,000983: 13,3634           01246                          STORE    PIPTIME1                              
054863,000984: 13,3635           66134                          SXA,2    SXA,1                                 
054864,000985: 13,3636           03746                                   RTX2                                  
054865,000986: 13,3637           03745                                   RTX1                                  
054866,000987: 13,3640           77776                          EXIT                                           
054867,000988: 
054868,000989: 13,3641           00004                          INHINT                                         
054869,000990: 13,3642           00006                          EXTEND                                         
054870,000991: 13,3643           40025                          DCS      TIME2                                 
054871,000992: 13,3644           20155                          DAS      MPAC                                  
054872,000993: 13,3645           07226                          TC       TPAGREE                               
054873,000994: 
054874,000995: 13,3646           31127                          CA       IRETURN1                              
054875,000996: 13,3647           04577                          TC       BANKJUMP                              
054876,000997: 13,3650           47014        CKMID2            BOF      RTB                                   
054877,000998: 13,3651           04754                                   MID1FLAG                              
054878,000999: 13,3652           27667                                   MID2                                  
054879,001000: 13,3653           45505                                   LOADTIME                              
054880,001001: 13,3654           44215                          DAD      BDSU                                  
054881,001002: 13,3655           27711                                   TIMEDELT                              
054882,001003: 13,3656           01101                                   TDEC                                  
054883,001004: 13,3657           45044                          BPL      CALL                                  
054884,001005: 13,3660           27234                                   TESTLOOP                              #   YES
054885,001006: 13,3661           27677                                   NOTIME                                
054886,001007: 
054887,001008: 13,3662           43234        TIMEINC           RTB      DAD                                   
054888,001009: 13,3663           45505                                   LOADTIME                              
054889,001010: 13,3664           27711                                   TIMEDELT                              
054890,001011: 13,3665           35101                          STCALL   TDEC                                  
054891,001012: 13,3666           27234                                   TESTLOOP                              
054892,001013: 
054893,001014: 13,3667           45345        MID2              DLOAD    DSU                                   
054894,001015: 13,3670           01101                                   TDEC                                  
054895,001016: 13,3671           01517                                   TET                                   
054896,001017: 13,3672           45246                          ABS      DSU                                   
054897,001018: 13,3673           27707                                   3CSECS                                
054898,001019:                                                                                                 # # Page 1296
054899,001020: 13,3674           52040                          BMN      GOTO                                  
054900,001021: 13,3675           27136                                   A-PCHK                                
054901,001022: 13,3676           27662                                   TIMEINC                               
054902,001023: 
054903,001024: 13,3677           77414        NOTIME            CLEAR    EXIT                                  #  TOO LATE
054904,001025: 13,3700           04674                                   MID1FLAG                              
054905,001026: 13,3701           25127                          INCR     IRETURN1                              #  SET ERROR EXIT  (CALLOC +2)
054906,001027: 13,3702           05537                          TC       ALARM                                 #  INSUFFICIENT TIME FOR INTEGRATION --
054907,001028: 13,3703           01703                          OCT      1703                                  #     TIG WILL BE SLIPPED...
054908,001029: 13,3704           06006                          TC       INTPRET                               
054909,001030: 13,3705           77616                          RVQ                                            
054910,001031: 
054911,001032: 13,3706           00000 00003  3CSECS            2DEC     3          B-28                       
054912,001033: 13,3710           00000 01750  TIMEDELT          2DEC     1000       B-28                       
054913,001034: 27,2633                                          BANK     27                                    
054914,001035: 27,2000                                          SETLOC   UPDATE2                               
054915,001036: 27,2000                                          BANK                                           
054916,001037: 27,2633     0330                                 EBANK=   INTWAKUQ                              
054917,001038: 
054918,001039: 
054919,001040: 27,2633                                          COUNT*   $$/INTIN                              
054920,001041: 
054921,001042: 27,2633     0330               INTWAKUQ          =        INTWAK1Q                              #  TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
054922,001043: 
054923,001044: 27,2633           00003        INTWAKEU          RELINT                                         
054924,001045: 27,2634           00006                          EXTEND                                         
054925,001046: 27,2635           22330                          QXCH     INTWAKUQ                              #  SAVE Q FOR RETURN
054926,001047: 
054927,001048: 27,2636           06006                          TC       INTPRET                               
054928,001049: 
054929,001050: 27,2637           53135                          SLOAD    BZE                                   #  IS THIS A CSM/LEM STATE VECTOR UPDATE
054930,001051: 27,2640           01502                                   UPSVFLAG                              #  REQUEST. IF NOT GO TO INTWAKUP.
054931,001052: 27,2641           56700                                   INTWAKUP                              
054932,001053: 
054933,001054: 27,2642           77775                          VLOAD                                          #  MOVE RRECT(6) AND VRECT(6) INTO
054934,001055: 27,2643           01503                                   RRECT                                 #       RCV(6)   AND VCV(6)   RESPECTIVELY.
054935,001056: 27,2644           25535                          STOVL    RCV                                   
054936,001057: 27,2645           01511                                   VRECT                                 #  NOW GO TO 'RECTIFY +13D' TO
054937,001058: 27,2646           77624                          CALL                                           #  STORE VRECT INTO VCV  AND ZERO OUT
054938,001059: 27,2647           23361                                   RECTIFY    +13D                       #  TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
054939,001060: 27,2650           51535                          SLOAD    ABS                                   #  COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
054940,001061: 27,2651           01502                                   UPSVFLAG                              #  TO 'UPDATE MOON STATE VECTOR CODE'
054941,001062: 27,2652           53025                          DSU      BZE                                   #  TO DETERMINE WHETHER THE STATE VECTOR TO
054942,001063: 27,2653           16711                                   UPMNSVCD                              #  BE UPDATED IS IN THE EARTH OR LUNAR
054943,001064: 27,2654           56661                                   INTWAKEM                              #  SPHERE OF INFLUENCE.........
054944,001065: 27,2655           43174                          AXT,2    CLRGO                                 #  EARTH SPHERE OF INFLUENCE.
054945,001066: 27,2656           00000                          DEC      0          B-14                       
054946,001067: 27,2657           00223                                   MOONFLAG                              
054947,001068:                                                                                                 # # Page 1297
054948,001069: 27,2660           56664                                   INTWAKEC                              
054949,001070: 27,2661           43174        INTWAKEM          AXT,2    SET                                   #  LUNAR SPHERE OF INFLUENCE.
054950,001071: 27,2662           00002                          DEC      2          B-14                       
054951,001072: 27,2663           00063                                   MOONFLAG                              
054952,001073: 27,2664           50135        INTWAKEC          SLOAD    BMN                                   #  COMMON CODING AFTER X2 INITIALIZED AND
054953,001074:                                                                                                 #  MOONFLAG SET(OR CLEARED).
054954,001075: 27,2665           01502                                   UPSVFLAG                              #  IS THIS A REQUEST FOR A LEM OR CSM
054955,001076: 27,2666           56674                                   INTWAKLM                              #   STATE VECTOR UPDATE......
054956,001077: 27,2667           77624                          CALL                                           #  UPDATE CSM STATE VECTOR
054957,001078: 27,2670           26636                                   ATOPCSM                               
054958,001079: 
054959,001080: 27,2671           52014                          CLEAR    GOTO                                  
054960,001081: 27,2672           01671                                   ORBWFLAG                              
054961,001082: 27,2673           56676                                   INTWAKEX                              
054962,001083: 
054963,001084: 27,2674           77624        INTWAKLM          CALL                                           #  UPDATE  LM STATE VECTOR
054964,001085: 27,2675           26711                                   ATOPLEM                               
054965,001086: 
054966,001087: 27,2676           77614        INTWAKEX          CLEAR                                          
054967,001088: 27,2677           02676                                   RENDWFLG                              
054968,001089: 
054969,001090: 27,2700           45131        INTWAKUP          SSP      CALL                                  #  REMOVE :UPDATE STATE VECTOR INDICATOR:
054970,001091: 27,2701           01502                                   UPSVFLAG                              
054971,001092: 27,2702           00000                                   0                                     
054972,001093: 27,2703           27404                                   INTWAKE0                              #  RELEASE :GRAB: OF ORBIT INTEG.
054973,001094: 27,2704           77776                          EXIT                                           
054974,001095: 
054975,001096: 27,2705           05301                          TC       PHASCHNG                              
054976,001097: 27,2706           04026                          OCT      04026                                 
054977,001098: 27,2707           00330                          TC       INTWAKUQ                              
054978,001099: 
054979,001100: 27,2710           00002        UPMNSVCD          OCT      2                                     
054980,001101: 27,2711           00000                          OCT      0                                     
054981,001102: 
054982,001103: 
054983,001104: 27,2712           77420        GRP2PC            STQ      EXIT                                  
054984,001105: 27,2713           03536                                   GRP2SVQ                               
054985,001106: 27,2714           05301                          TC       PHASCHNG                              
054986,001107: 27,2715           04022                          OCT      04022                                 
054987,001108: 27,2716           06006                          TC       INTPRET                               
054988,001109: 27,2717           77650                          GOTO                                           
054989,001110: 27,2720           03536                                   GRP2SVQ                               

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