Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

054172,000002:                                                                                                  ## Copyright:   Public domain.
054173,000003:                                                                                                  ## Filename:    INTEGRATION_INITIALIZATION.agc
054174,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
054175,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
054176,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
054177,000007:                                                                                                  ## Assembler:   yaYUL
054178,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
054179,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
054180,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
054181,000011:                                                                                                  ## Mod history: 2011-04-17 JL   Adapted from corresponding Colossus 249 file.
054182,000012:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
054183,000013:                                                                                                  ##                              and fixed errors found.
054184,000014:                                                                                                  ##              2017-01-14 RSB  Fixed comment-text errors located by diff'ing 
054185,000015:                                                                                                  ##                              against Colossus 249.
054186,000016:                                                                                                  ##              2017-08-19 MAS  Fixed comment errors found transcribing Zerlina 56.
054187,000017: 

Page 1275

054189,000019:                                                                                                  #  1.0 INTRODUCTION
054190,000020:                                                                                                  #  ----------------
054191,000021: 
054192,000022:                                                                                                  #  FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
054193,000023:                                                                                                  #  PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
054194,000024:                                                                                                  #  OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
054195,000025:                                                                                                  #  TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
054196,000026:                                                                                                  #  SIDE THE LUNAR SPHERE OF INFLUENCE.
054197,000027: 
054198,000028:                                                                                                  #  IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
054199,000029:                                                                                                  #  WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
054200,000030:                                                                                                  #  INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
054201,000031:                                                                                                  #  CALL TC INTSTALL.
054202,000032: 
054203,000033:                                                                                                  #  WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
054204,000034:                                                                                                  #  INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
054205,000035:                                                                                                  #  BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE  SYSTEM.
054206,000036:                                                                                                  #  THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
054207,000037:                                                                                                  #  THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
054208,000038: 
054209,000039:                                                                                                  #  USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
054210,000040:                                                                                                  #  IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
054211,000041:                                                                                                  #  TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
054212,000042:                                                                                                  #  AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
054213,000043: 
054214,000044:                                                                                                  #  2.0 GENERAL DESCRIPTION
054215,000045:                                                                                                  #  -----------------------
054216,000046: 
054217,000047:                                                                                                  #  THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS---
054218,000048:                                                                                                  #     1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
054219,000049:                                                                                                  #     2) INTEGRATES THE W-MATRIX
054220,000050:                                                                                                  #     3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
054221,000051: 
054222,000052:                                                                                                  #  THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
054223,000053:                                                                                                  #  ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
054224,000054:                                                                                                  #  THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
054225,000055:                                                                                                  #  PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
054226,000056:                                                                                                  #  CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
054227,000057:                                                                                                  #  THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
054228,000058:                                                                                                  #  NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
054229,000059:                                                                                                  #  VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
054230,000060:                                                                                                  #  AND/OR STATE VECTOR.
054231,000061: 
054232,000062:                                                                                                  #  THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
054233,000063:                                                                                                  #  USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
054234,000064:                                                                                                  #  IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
054235,000065: 
054236,000066:                                                                                                  #  THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
054237,000067:                                                                                                  #  THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
054238,000068:                                                                                                  #  SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)

Page 1276

054240,000070:                                                                                                  #  APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
054241,000071: 
054242,000072:                                                                                                  #  2.1 RESTARTS
054243,000073: 
054244,000074:                                                                                                  #  PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
054245,000075:                                                                                                  #  INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
054246,000076:                                                                                                  #  (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
054247,000077:                                                                                                  #  INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
054248,000078:                                                                                                  #  PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
054249,000079:                                                                                                  #  THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
054250,000080:                                                                                                  #  THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
054251,000081: 
054252,000082:                                                                                                  #  2.2 SCALING
054253,000083: 
054254,000084:                                                                                                  #  THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
054255,000085:                                                                                                  #  APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTORDEPENDS ON THE ORIGIN OF THE COORDINATE
054256,000086:                                                                                                  #   SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
054257,000087:                                                                                                  #  MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
054258,000088:                                                                                                  #  DIFFERENT SCALING.
054259,000089:                                                                                                  #  HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
054260,000090: 
054261,000091:                                                                                                  #  3.0 INPUT/OUTPUT
054262,000092:                                                                                                  #  ----------------
054263,000093: 
054264,000094:                                                                                                  #  PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
054265,000095:                                                                                                  #  PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
054266,000096:                                                                                                  #  FOR INTEGRVS, THE RCV,VCV, TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
054267,000097: 
054268,000098:                                                                                                  #  FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
054269,000099: 
054270,000100:                                                                                                  #                                                             EARTH  MOON
054271,000101:                                                                                                  #                                                              29     27
054272,000102:                                                                                                  #     RRECTCSM(LEM)  - RECTIFIED POSITION VECTOR      METERS  2      2
054273,000103: 
054274,000104:                                                                                                  #                                                              7      5
054275,000105:                                                                                                  #     VRECTCSM(LEM)  - RECTIFIED VELOCITY VECTOR      M/CSEC  2    2
054276,000106: 
054277,000107:                                                                                                  #                                                              28     28
054278,000108:                                                                                                  #     TETCSM(LEM)    - TIME STATE VECTOR IS VALID     CSEC    2      2
054279,000109:                                                                                                  #                      CUSTOMARILY 0, BUT NOTE LUNAR
054280,000110:                                                                                                  #                      ORBIT DEPENDENCE ON REAL TIME.
054281,000111: 
054282,000112:                                                                                                  #                                                              22     18
054283,000113:                                                                                                  #     DELTAVCSM(LEM) - POSITION DEVIATION             METERS  2      2
054284,000114:                                                                                                  #                      0 IF TCCSM(LEM) = 0
054285,000115: 
054286,000116:                                                                                                  #                                                              3      -1
054287,000117:                                                                                                  #     NUVCSM(LEM)    - VELOCITY DEVIATION             M/CSEC  2      2
054288,000118:                                                                                                  #                      0 IF TCCSM(LEM) = 0

Page 1277

054290,000120:                                                                                                  #                                                              29     27
054291,000121:                                                                                                  #     RCVCSM(LEM)    - CONIC POSITION                 METERS  2      2
054292,000122:                                                                                                  #                      EQUALS RRECTCSM(LEM) IF
054293,000123:                                                                                                  #                      TCCSM(LEM) = 0
054294,000124: 
054295,000125:                                                                                                  #                                                              7      5
054296,000126:                                                                                                  #     VCVCSM(LEM)    - CONIC VELOCITY                 M/CSEC  2      2
054297,000127:                                                                                                  #                      EQUALS VRECTCSM(LEM) IF
054298,000128:                                                                                                  #                      TCCSM(LEM) = 0
054299,000129: 
054300,000130:                                                                                                  #                                                              28     28
054301,000131:                                                                                                  #     TCCSM(LEM)     - TIME SINCE RECTIFICATION       CSECS   2      2
054302,000132:                                                                                                  #                      CUSTOMARILY 0
054303,000133: 
054304,000134:                                                                                                  #                                                      1/2     17     16
054305,000135:                                                                                                  #     XKEPCSM(LEM)   - ROOT OF KEPLERS EQUATION       M       2      2
054306,000136:                                                                                                  #                      0 IF TCCSM(LEM) = 0
054307,000137: 
054308,000138:                                                                                                  #     CMOONFLG       - PERMANENT FLAGS CORRESPONDING          0      0
054309,000139:                                                                                                  #     CMIDFLAG         TO MOONFLAG AND MIDFLAG                0,1    0,1
054310,000140:                                                                                                  #     LMOONFLG         C = CSM, L = LM                        0      0
054311,000141:                                                                                                  #     LMIDFLG                                                 0,1    0,1
054312,000142: 
054313,000143:                                                                                                  #     SURFFLAG       - LUNAR SURFACE FLAG                     0,1    0,1
054314,000144: 
054315,000145:                                                                                                  #  IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
054316,000146:                                                                                                  #  SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
054317,000147:                                                                                                  #  ROUTINE MUST BE PRESET.
054318,000148: 
054319,000149:                                                                                                  #  OUTPUT
054320,000150:                                                                                                  #  AFTER EVERY CALL TO INTEGRATION
054321,000151:                                                                                                  #                                                             EARTH  MOON
054322,000152:                                                                                                  #                                                              29     29
054323,000153:                                                                                                  #      0D   RATT   POSITION                           METERS  2      2
054324,000154:                                                                                                  #                                                              7      7
054325,000155:                                                                                                  #      6D   VATT   VELOCITY                           M/CSEC  2      2
054326,000156:                                                                                                  #                                                              28     28
054327,000157:                                                                                                  #     12D   TAT    TIME                                       2      2
054328,000158:                                                                                                  #                                                              29     27
054329,000159:                                                                                                  #     14D   RATT1  POSITION                           METERS  2      2
054330,000160:                                                                                                  #                                                              7      5
054331,000161:                                                                                                  #     20D   VATT1  VELOCITY                           M/CSEC  2      2
054332,000162:                                                                                                  #                                                      3   2   36     30
054333,000163:                                                                                                  #     26D   MU(P)  MU                                 M /CS   2      2
054334,000164: 
054335,000165:                                                                                                  #     X1           MUTABLE ENTRY                              -2     -10D
054336,000166: 
054337,000167:                                                                                                  #     X2           COORDINT
054338,000168:                                                                                                  #     X2           COORDINATE SYSTEM ORIGEN                   0      2
054339,000169:                                                                                                  #                  (THIS, NOT MOONFLAG, SHOULD BE

Page 1278

054341,000171:                                                                                                  #                  USED TO DETERMINE ORIGIN.)
054342,000172: 
054343,000173:                                                                                                  #  IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
054344,000174:                                                                                                  #  STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
054345,000175:                                                                                                  #  COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
054346,000176:                                                                                                  #  CALLING PROGRAM.
054347,000177: 
054348,000178:                                                                                                  #  4.0 CALLING SEQUENCES AND SAMPLE CODE
054349,000179:                                                                                                  #  -------------------------------------
054350,000180: 
054351,000181:                                                                                                  #      A) PRECISION ORBITAL INTEGRATION. CSMPREC,LEMPREC ENTRANCES
054352,000182:                                                                                                  #            L-X    STORE TIME TO 95T5791T5 T  95 PUS  L9ST (T4531)
054353,000183:                                                                                                  #            L      CALL
054354,000184:                                                                                                  #            L+1           CSMPREC (OR LEMPREC)
054355,000185:                                                                                                  #            L+2    RETURN
054356,000186:                                                                                                  #         INPUT                                                         28
054357,000187:                                                                                                  #            TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
054358,000188:                                                                                                  #         OUTPUT
054359,000189:                                                                                                  #            THE DATA LISTED IN SECTION 3.0 PLUS
054360,000190:                                                                                                  #            RQVV   POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
054361,000191:                                                                                                  #            BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
054362,000192:                                                                                                  #      B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
054363,000193:                                                                                                  #            L-X    STORE TIME IN PUSH LIST (TDEC1)
054364,000194:                                                                                                  #            L      CALL
054365,000195:                                                                                                  #            L+1           CSMCONIC (OR LEMCONIC)
054366,000196:                                                                                                  #         INPUT/OUTPUT
054367,000197:                                                                                                  #            SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
054368,000198:                                                                                                  #      C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
054369,000199:                                                                                                  #                   CALL
054370,000200:                                                                                                  #                          INTSTALL
054371,000201:                                                                                                  #                   VLOAD
054372,000202:                                                                                                  #                          POSITION VECTOR
054373,000203:                                                                                                  #                   STOVL  RCV
054374,000204:                                                                                                  #                          VELOCITY VECTOR
054375,000205:                                                                                                  #                   STODL  VCV
054376,000206:                                                                                                  #                          TIME STATE VECTOR VALID
054377,000207:                                                                                                  #                   STODL  TET
054378,000208:                                                                                                  #                          FINAL RADIUS
054379,000209:                                                                                                  #                   STORE  RFINAL
054380,000210:                                                                                                  #                   SET(CLEAR)  SET(CLEAR)
054381,000211:                                                                                                  #                               INTYPFLAG
054382,000212:                                                                                                  #                               MOONFLAG
054383,000213:                                                                                                  #                   SET(CLEAR)  DLOAD
054384,000214:                                                                                                  #                               DESIRED TIME
054385,000215:                                                                                                  #                   STCALL      TDEC1
054386,000216:                                                                                                  #                               INTEGRVS
054387,000217:                                                                                                  #         INPUT
054388,000218:                                                                                                  #            RCV    POSITION VECTOR                  METERS
054389,000219:                                                                                                  #            VCV    VELOCITY VECTOR                  M/CSEC
054390,000220:                                                                                                  #            TET    TIME OF STATE VECTOR(MAY = 0)    CSEC B-28

Page 1279

054392,000222:                                                                                                  #            TDEC1  TIME TO INTEGRATE TO             CSEC B-28 (PD 32D)
054393,000223:                                                                                                  #                   (MAY BE INCREMENT IF TET=0)
054394,000224:                                                                                                  #         OUTPUT
054395,000225:                                                                                                  #            SAME AS FOR PRECISION OR CONIC INTEGRATION,
054396,000226:                                                                                                  #            DEPENDING ON INTYPFLG.
054397,000227:                                                                                                  #      D) INTEGRATE STATE VECTOR.INTGRV ENTRANCE
054398,000228:                                                                                                  #            L-X    STORE TIME IN PUSH LIST (TDEC1)(MAY BE DONE AFTER CALL TO INTSTALL)
054399,000229:                                                                                                  #            L-8    CALL
054400,000230:                                                                                                  #            L-7
054401,000231:                                                                                                  #            L-6    SET(CLEAR) SET(CLEAR)
054402,000232:                                                                                                  #            L-5               VINTFLAG   1=CSM, 0=LM
054403,000233:                                                                                                  #            L-4               INTYPFLAG  1=CONIC, 0=PRECISION
054404,000234:                                                                                                  #            L-3    SET(CLEAR) SET(CLEAR)
054405,000235:                                                                                                  #            L-2               DIMOFLAG   1=W-MATRIX, 0=NO W-MATRIX
054406,000236:                                                                                                  #            L-1               D6OR9FLG   1=9X9, 0=6X6
054407,000237:                                                                                                  #            L      SET        DLOAD
054408,000238:                                                                                                  #            L+1               STATEFLG   DESIRE PERMANENT UPDATE
054409,000239:                                                                                                  #            L+2               FINAL RAD. OF STATE VECTOR
054410,000240:                                                                                                  #            L+3    STCALL     RFINAL
054411,000241:                                                                                                  #            L+4               INTEGRV
054412,000242:                                                                                                  #            L      CALL                  NORMAL USE-- WILL UPDATE STATE
054413,000243:                                                                                                  #            L+1               INTEGRV    VECTOR IF DIMOFLAG=1.(STATEFLG IS
054414,000244:                                                                                                  #            L+2    RETURN                ALWAYS RESET IN INTEGRATION AFTER
054415,000245:                                                                                                  #                                         IT IS USED.)
054416,000246:                                                                                                  #         INPUT
054417,000247:                                                                                                  #            TDEC1 (PD 32D) TIME TO INTEGRATE TO    CSEC B-28
054418,000248:                                                                                                  #         OUTPUT
054419,000249:                                                                                                  #            SAME AS FOR PRECISION OR CONIC INTEGRATION
054420,000250:                                                                                                  #         THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
054421,000251:                                                                                                  #         THE PERMANENT STATE VECTOR REPRESENTATION.
054422,000252: 
054423,000253: 11,2310                                           BANK     11                                    
054424,000254: 13,2000                                           SETLOC   INTINIT                               
054425,000255: 13,2000                                           BANK                                           
054426,000256: 13,2561  E3,1554                                  EBANK=   RRECTCSM                              
054427,000257: 13,2561                                           COUNT    13/INTIN                              
054428,000258: 
054429,000259: 13,2561           05301        STATEINT           TC       PHASCHNG                              
054430,000260: 13,2562           00052                           OCT      00052                                 
054431,000261: 13,2563           34754                           CAF      PRIO5                                 
054432,000262: 13,2564           05042                           TC       FINDVAC                               
054433,000263: 13,2565  E3,1554                                  EBANK=   RRECTCSM                              
054434,000264: 13,2565           02570 26063                     2CADR    STATINT1                              
054435,000265: 13,2567           05213                           TC       TASKOVER                              
054436,000266: 13,2570           06006        STATINT1           TC       INTPRET                               
054437,000267: 13,2571           47014                           BON      RTB                                   
054438,000268: 13,2572           04712                                    QUITFLAG                              
054439,000269: 13,2573           26630                                    NOINT                                 #  NO STATEINT IF V96
054440,000270: 13,2574           45505                                    LOADTIME                              

Page 1280

054442,000272: 13,2575           00041                           STORE    TDEC1                                 
054443,000273: 13,2576           77624                           CALL                                           
054444,000274: 13,2577           27371                                    INTSTALL                              
054445,000275: 13,2600           45014                           SET      CALL                                  
054446,000276: 13,2601           01076                                    NODOFLAG                              
054447,000277: 13,2602           26621                                    SETIFLGS                              
054448,000278: 13,2603           77650                           GOTO                                           
054449,000279: 13,2604           26000                                    STATEUP                               
054450,000280: 13,2605           00003 25140  600SECS            2DEC     60000      B-28                       
054451,000281: 13,2607           77414        ENDINT             CLEAR    EXIT                                  
054452,000282: 13,2610           01672                                    STATEFLG                              
054453,000283: 13,2611           05301                           TC       PHASCHNG                              
054454,000284: 13,2612           20032                           OCT      20032                                 
054455,000285: 13,2613           00006                           EXTEND                                         
054456,000286: 13,2614           32606                           DCA      600SECS                               
054457,000287: 13,2615           05231                           TC       LONGCALL                              
054458,000288: 13,2616  E3,1554                                  EBANK=   RRECTHIS                              
054459,000289: 13,2616           02561 26063                     2CADR    STATEINT                              
054460,000290: 13,2620           05112                           TC       ENDOFJOB                              
054461,000291: 13,2621           43014        SETIFLGS           SET      CLEAR                                 
054462,000292: 13,2622           01472                                    STATEFLG                              
054463,000293: 13,2623           01673                                    INTYPFLG                              
054464,000294: 13,2624           43014                           CLEAR    CLEAR                                 
054465,000295: 13,2625           01676                                    DIM0FLAG                              
054466,000296: 13,2626           01675                                    D6OR9FLG                              
054467,000297: 13,2627           77616                           RVQ                                            
054468,000298: 13,2630           77776        NOINT              EXIT                                           
054469,000299: 13,2631           05301                           TC       PHASCHNG                              
054470,000300: 13,2632           00002                           OCT      2                                     
054471,000301: 
054472,000302: 13,2633           05447                           TC       DOWNFLAG                              
054473,000303: 13,2634           00221                           ADRES    QUITFLAG                              
054474,000304: 
054475,000305: 13,2635           05112                           TC       ENDOFJOB                              
054476,000306: 
054477,000307:                                                                                                  #  ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
054478,000308: 
054479,000309:                                                                                                  #  CALLING SEQUENCE
054480,000310:                                                                                                  #     L   CALL
054481,000311:                                                                                                  #     L+1       ATOPCSM
054482,000312: 
054483,000313:                                                                                                  #  NORMAL EXIT AT L+2
054484,000314: 
054485,000315: 13,2636           47020        ATOPCSM            STQ      RTB                                   
054486,000316: 13,2637           00051                                    S2                                    
054487,000317: 13,2640           26651                                    MOVEACSM                              
054488,000318: 13,2641           45014                           SET      CALL                                  
054489,000319: 13,2642           04063                                    CMOONFLG                              

Page 1281

054491,000321: 13,2643           20237                                    SVDWN1                                
054492,000322: 13,2644           43014                           BON      CLRGO                                 
054493,000323: 13,2645           00303                                    MOONFLAG                              
054494,000324: 13,2646           00051                                    S2                                    
054495,000325: 13,2647           04223                                    CMOONFLG                              
054496,000326: 13,2650           00051                                    S2                                    
054497,000327: 13,2651           03015        MOVEACSM           TC       SETBANK                               
054498,000328: 13,2652           55500                           TS       DIFEQCNT                              #  INITIALIZE INDEX
054499,000329: 13,2653           51500                           INDEX    DIFEQCNT                              
054500,000330: 13,2654           31502                           CA       RRECT                                 
054501,000331: 13,2655           51500                           INDEX    DIFEQCNT                              
054502,000332: 13,2656           55554                           TS       RRECTCSM                              
054503,000333: 13,2657           11500                           CCS      DIFEQCNT                              #  IS TRANSFER COMPLETE
054504,000334: 13,2660           12652                           TCF      MOVEACSM   +1                         #  NO-LOOP
054505,000335: 13,2661           06030                           TC       DANZIG                                #  COMPLETE- RETURN
054506,000336: 
054507,000337: 
054508,000338:                                                                                                  #  PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
054509,000339: 
054510,000340:                                                                                                  #  CALLING SEQUENCE
054511,000341:                                                                                                  #     L   CALL
054512,000342:                                                                                                  #              PTOACSM
054513,000343: 
054514,000344:                                                                                                  #  NORMAL EXIT AT L+2
054515,000345: 13,2662           43034        PTOACSM            RTB      BON                                   
054516,000346: 13,2663           26700                                    MOVEPCSM                              
054517,000347: 13,2664           04303                                    CMOONFLG                              
054518,000348: 13,2665           26673                                    SETMOON                               
054519,000349: 13,2666           66214        CLRMOON            CLEAR    SSP                                   
054520,000350: 13,2667           00263                                    MOONFLAG                              
054521,000351: 13,2670           02151                                    PBODY                                 
054522,000352: 13,2671           00000                                    0                                     
054523,000353: 13,2672           77616                           RVQ                                            
054524,000354: 13,2673           66214        SETMOON            SET      SSP                                   
054525,000355: 13,2674           00063                                    MOONFLAG                              
054526,000356: 13,2675           02151                                    PBODY                                 
054527,000357: 13,2676           00002                                    2                                     
054528,000358: 13,2677           77616                           RVQ                                            
054529,000359: 13,2700           03015        MOVEPCSM           TC       SETBANK                               
054530,000360: 13,2701           55500                           TS       DIFEQCNT                              
054531,000361: 13,2702           51500                           INDEX    DIFEQCNT                              
054532,000362: 13,2703           31554                           CA       RRECTCSM                              
054533,000363: 13,2704           51500                           INDEX    DIFEQCNT                              
054534,000364: 13,2705           55502                           TS       RRECT                                 
054535,000365: 13,2706           11500                           CCS      DIFEQCNT                              
054536,000366: 13,2707           12701                           TCF      MOVEPCSM   +1                         
054537,000367: 13,2710           06030                           TC       DANZIG                                
054538,000368: 
054539,000369: 
054540,000370:                                                                                                  #  ATOPLEM  TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41

Page 1282

054542,000372: 13,2711           47020        ATOPLEM            STQ      RTB                                   
054543,000373: 13,2712           00051                                    S2                                    
054544,000374: 13,2713           26724                                    MOVEALEM                              
054545,000375: 13,2714           45014                           SET      CALL                                  
054546,000376: 13,2715           04064                                    LMOONFLG                              
054547,000377: 13,2716           20263                                    SVDWN2                                
054548,000378: 13,2717           43014                           BON      CLRGO                                 
054549,000379: 13,2720           00303                                    MOONFLAG                              
054550,000380: 13,2721           00051                                    S2                                    
054551,000381: 13,2722           04224                                    LMOONFLG                              
054552,000382: 13,2723           00051                                    S2                                    
054553,000383: 13,2724           03015        MOVEALEM           TC       SETBANK                               
054554,000384: 13,2725           55500                           TS       DIFEQCNT                              
054555,000385: 13,2726           51500                           INDEX    DIFEQCNT                              
054556,000386: 13,2727           31502                           CA       RRECT                                 
054557,000387: 13,2730           51500                           INDEX    DIFEQCNT                              
054558,000388: 13,2731           55626                           TS       RRECTLEM                              
054559,000389: 13,2732           11500                           CCS      DIFEQCNT                              
054560,000390: 13,2733           12725                           TCF      MOVEALEM   +1                         
054561,000391: 13,2734           06030                           TC       DANZIG                                
054562,000392: 
054563,000393: 
054564,000394:                                                                                                  #  PTOALEM  TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
054565,000395: 
054566,000396: 13,2735           47014        PTOALEM            BON      RTB                                   
054567,000397: 13,2736           04307                                    SURFFLAG                              
054568,000398: 13,2737           26756                                    USEPIOS                               
054569,000399: 13,2740           26745                                    MOVEPLEM                              
054570,000400: 13,2741           52014                           BON      GOTO                                  
054571,000401: 13,2742           04304                                    LMOONFLG                              
054572,000402: 13,2743           26673                                    SETMOON                               
054573,000403: 13,2744           26666                                    CLRMOON                               
054574,000404: 13,2745           03015        MOVEPLEM           TC       SETBANK                               
054575,000405: 13,2746           55500                           TS       DIFEQCNT                              
054576,000406: 13,2747           51500                           INDEX    DIFEQCNT                              
054577,000407: 13,2750           31626                           CA       RRECTLEM                              
054578,000408: 13,2751           51500                           INDEX    DIFEQCNT                              
054579,000409: 13,2752           55502                           TS       RRECT                                 
054580,000410: 13,2753           11500                           CCS      DIFEQCNT                              
054581,000411: 13,2754           12746                           TCF      MOVEPLEM   +1                         
054582,000412: 13,2755           06030                           TC       DANZIG                                
054583,000413: 
054584,000414: 
054585,000415: 13,2756           77201        USEPIOS            SETPD    VLOAD                                 
054586,000416: 13,2757           00001                                    0                                     
054587,000417: 13,2760           02026                                    RLS                                   
054588,000418: 13,2761           41525                           PDDL     PUSH                                  
054589,000419: 13,2762           00041                                    TDEC1                                 
054590,000420: 13,2763           15517                           STODL    TET                                   
054591,000421: 13,2764           27753                                    5/8                                   

Page 1283

054593,000423: 13,2765           77624                           CALL                                           
054594,000424: 13,2766           55341                                    RP-TO-R                               
054595,000425: 13,2767           25535                           STOVL    RCV                                   
054596,000426: 13,2770           11445                                    ZUNIT                                 
054597,000427: 13,2771           14001                           STODL    0D                                    
054598,000428: 13,2772           01517                                    TET                                   
054599,000429: 13,2773           14007                           STODL    6D                                    
054600,000430: 13,2774           27753                                    5/8                                   
054601,000431: 13,2775           45014                           SET      CALL                                  #  NEEDED FOR SETTING X1 ON EXIT
054602,000432: 13,2776           00063                                    MOONFLAG                              
054603,000433: 13,2777           55341                                    RP-TO-R                               
054604,000434: 13,3000           74235                           VXV      VXSC                                  
054605,000435: 13,3001           01535                                    RCV                                   
054606,000436: 13,3002           27014                                    OMEGMOON                              
054607,000437: 13,3003           25543                           STOVL    VCV                                   
054608,000438: 13,3004           11453                                    ZEROVEC                               
054609,000439: 13,3005           01521                           STORE    TDELTAV                               
054610,000440: 13,3006           67174                           AXT,2    SXA,2                                 
054611,000441: 13,3007           00002                                    2                                     
054612,000442: 13,3010           02150                                    PBODY                                 
054613,000443: 13,3011           35527                           STCALL   TNUV                                  
054614,000444: 13,3012           27136                                    A-PCHK                                
054615,000445: 13,3013           07112 06620  OMEGMOON           2DEC*    2.66169947 E-8        B+23*           
054616,000446: 13,3015           33021        SETBANK            CAF      INTBANK                               
054617,000447: 13,3016           54006                           TS       BBANK                                 
054618,000448: 13,3017           33436                           CAF      FORTYONE                              
054619,000449: 13,3020           00002                           TC       Q                                     
054620,000450: 13,3021  E3,1554                                  EBANK=   RRECTCSM                              
054621,000451: 13,3021           26063        INTBANK            BBCON    INTEGRV                               
054622,000452: 
054623,000453: 
054624,000454:                                                                                                  #  SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
054625,000455:                                                                                                  #  APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
054626,000456: 
054627,000457:                                                                                                  #  CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
054628,000458:                                                                                                  #  ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
054629,000459:                                                                                                  #  THE PERMANENT STATE VECTOR IS NOT UPDATED.
054630,000460:                                                                                                  #  CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
054631,000461:                                                                                                  #  NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
054632,000462:                                                                                                  #  STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
054633,000463: 
054634,000464:                                                                                                  #  THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
054635,000465:                                                                                                  #  SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
054636,000466:                                                                                                  #              CSMPREC  CSMCONIC   LEMPREC  LEMCONIC
054637,000467:                                                                                                  #  VINTFLAG     SET       SET       CLEAR    CLEAR
054638,000468:                                                                                                  #  INTYPFLG     CLEAR     SET       CLEAR    SET
054639,000469:                                                                                                  #  DIM0FLAG     CLEAR     CLEAR     CLEAR    CLEAR
054640,000470: 

Page 1284

054642,000472:                                                                                                  #  CALLING SEQUENCE
054643,000473:                                                                                                  #     L-X  STORE TDEC1
054644,000474:                                                                                                  #     L    CALL       (STCALL TDEC1)
054645,000475:                                                                                                  #     L+1         CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
054646,000476: 
054647,000477:                                                                                                  #   NORMAL EXIT TO L+2
054648,000478: 
054649,000479: 
054650,000480:                                                                                                  #  SUBROUTINES CALLED
054651,000481:                                                                                                  #    INTEGRV1
054652,000482:                                                                                                  #    PRECOUT FOR CSMPREC AND LEMPREC
054653,000483:                                                                                                  #    CONICOUT  FOR CSMCONIC AND LEMCONIC
054654,000484: 
054655,000485: 
054656,000486:                                                                                                  #  OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
054657,000487:                                                                                                  #  INPUT
054658,000488:                                                                                                  #   TDEC1   TIME TO INTEGRATE TO . CSECS B-28
054659,000489: 13,3022           45020        CSMPREC            STQ      CALL                                  
054660,000490: 13,3023           00046                                    X1                                    
054661,000491: 13,3024           27371                                    INTSTALL                              
054662,000492: 13,3025           43130                           SXA,1    SET                                   
054663,000493: 13,3026           02214                                    IRETURN                               
054664,000494: 13,3027           01474                                    VINTFLAG                              
054665,000495: 
054666,000496: 13,3030           43014        IFLAGP             SET      CLEAR                                 
054667,000497: 13,3031           01467                                    PRECIFLG                              
054668,000498: 13,3032           01676                                    DIM0FLAG                              
054669,000499: 13,3033           77614                           CLRGO                                          
054670,000500: 13,3034           01633                                    INTYPFLG                              
054671,000501: 13,3035           27115                                    INTEGRV1                              
054672,000502: 13,3036           45020        LEMPREC            STQ      CALL                                  
054673,000503: 13,3037           00046                                    X1                                    
054674,000504: 13,3040           27371                                    INTSTALL                              
054675,000505: 13,3041           43130                           SXA,1    CLRGO                                 
054676,000506: 13,3042           02214                                    IRETURN                               
054677,000507: 13,3043           01634                                    VINTFLAG                              
054678,000508: 13,3044           27030                                    IFLAGP                                
054679,000509: 
054680,000510: 13,3045           45020        CSMCONIC           STQ      CALL                                  
054681,000511: 13,3046           00046                                    X1                                    
054682,000512: 13,3047           27371                                    INTSTALL                              
054683,000513: 13,3050           43130                           SXA,1    SET                                   
054684,000514: 13,3051           02214                                    IRETURN                               
054685,000515: 13,3052           01474                                    VINTFLAG                              
054686,000516: 13,3053           43014        IFLAGC             CLEAR    SETGO                                 
054687,000517: 13,3054           01676                                    DIM0FLAG                              
054688,000518: 13,3055           01433                                    INTYPFLG                              
054689,000519: 13,3056           27115                                    INTEGRV1                              
054690,000520: 13,3057           45020        LEMCONIC           STQ      CALL                                  
054691,000521: 13,3060           00046                                    X1                                    

Page 1285

054693,000523: 13,3061           27371                                    INTSTALL                              
054694,000524: 13,3062           43130                           SXA,1    CLRGO                                 
054695,000525: 13,3063           02214                                    IRETURN                               
054696,000526: 13,3064           01634                                    VINTFLAG                              
054697,000527: 13,3065           27053                                    IFLAGC                                
054698,000528: 
054699,000529: 13,3066           66214        INTEGRVS           SET      SSP                                   
054700,000530: 13,3067           01467                                    PRECIFLG                              
054701,000531: 13,3070           02151                                    PBODY                                 
054702,000532: 13,3071           00000                                    0                                     
054703,000533: 13,3072           66214                           BOF      SSP                                   
054704,000534: 13,3073           00343                                    MOONFLAG                              
054705,000535: 13,3074           27077                                    +3                                    
054706,000536: 13,3075           02151                                    PBODY                                 
054707,000537: 13,3076           00002                                    2                                     
054708,000538: 13,3077           77220                           STQ      VLOAD                                 
054709,000539: 13,3100           02214                                    IRETURN                               
054710,000540: 13,3101           11453                                    ZEROVEC                               
054711,000541: 13,3102           01521                           STORE    TDELTAV                               
054712,000542: 13,3103           35527                           STCALL   TNUV                                  
054713,000543: 13,3104           23344                                    RECTIFY                               
054714,000544: 13,3105           43014                           CLEAR    SET                                   
054715,000545: 13,3106           01676                                    DIM0FLAG                              
054716,000546: 13,3107           04062                                    NEWIFLG                               
054717,000547: 13,3110           77614                           SETGO                                          
054718,000548: 13,3111           04020                                    RPQFLAG                               
054719,000549: 13,3112           27127                                    ALOADED                               
054720,000550:                                                                                                  #  INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER ,
054721,000551:                                                                                                  #  NORMALLY THE NAVIGATION PROGRAM ,TO SET THE INTEG. FLAGS. THE ROUTINE
054722,000552:                                                                                                  #  IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
054723,000553:                                                                                                  #  THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
054724,000554:                                                                                                  #  PROGRAM FOR PRECISION OR CONIC
054725,000555: 
054726,000556:                                                                                                  #  THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
054727,000557:                                                                                                  #  SETTING ANY FLAGS.
054728,000558:                                                                                                  #  THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
054729,000559:                                                                                                  #    VINTFLAG    (IGNORED WHEN ENTERED FROM INTEGRVS)
054730,000560:                                                                                                  #    INTYPFLG
054731,000561:                                                                                                  #    DIM0FLAG
054732,000562:                                                                                                  #    D6OR9FLG
054733,000563:                                                                                                  #  CALLING SEQUENCE
054734,000564:                                                                                                  #    L-X    CALL
054735,000565:                                                                                                  #    L-Y          INTSTALL
054736,000566:                                                                                                  #    L-1    SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
054737,000567:                                                                                                  #           AND DIM0FLAG IS CLEAR.
054738,000568:                                                                                                  #    L      CALL
054739,000569:                                                                                                  #    L+1          INTEGRV
054740,000570:                                                                                                  #  INITIALIZATION
054741,000571:                                                                                                  #    FLAGS AS ABOVE
054742,000572:                                                                                                  #    STORE TIME TO INTEGRATE TO IN TDEC1

Page 1286

054744,000574:                                                                                                  #  OUTPUT
054745,000575:                                                                                                  #    RATT   AS
054746,000576:                                                                                                  #    VATT      DEFINED
054747,000577:                                                                                                  #    TAT               BEFORE
054748,000578: 
054749,000579: 
054750,000580: 13,3113           77620        INTEGRV            STQ                                            
054751,000581: 13,3114           02214                                    IRETURN                               
054752,000582: 13,3115           43014        INTEGRV1           SET      SET                                   
054753,000583: 13,3116           04060                                    RPQFLAG                               
054754,000584: 13,3117           04062                                    NEWIFLG                               
054755,000585: 13,3120           77731        INTEGRV2           SSP                                            
054756,000586: 13,3121           00053                                    QPRET                                 
054757,000587: 13,3122           27127                                    ALOADED                               
054758,000588: 13,3123           52014                           BON      GOTO                                  
054759,000589: 13,3124           01714                                    VINTFLAG                              
054760,000590: 13,3125           26662                                    PTOACSM                               
054761,000591: 13,3126           26735                                    PTOALEM                               
054762,000592: 13,3127           77745        ALOADED            DLOAD                                          
054763,000593: 13,3130           00041                                    TDEC1                                 
054764,000594: 13,3131           01101                           STORE    TDEC                                  
054765,000595: 13,3132           52014                           BOFF     GOTO                                  
054766,000596: 13,3133           01753                                    INTYPFLG                              
054767,000597: 13,3134           27234                                    TESTLOOP                              
054768,000598: 13,3135           27220                                    RVCON                                 
054769,000599: 13,3136           77414        A-PCHK             BOFCLR   EXIT                                  
054770,000600: 13,3137           01652                                    STATEFLG                              
054771,000601: 13,3140           27157                                    RECTOUT                               
054772,000602: 13,3141           05301                           TC       PHASCHNG                              
054773,000603: 13,3142           04022                           OCT      04022                                 
054774,000604: 13,3143           05435                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
054775,000605: 13,3144           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
054776,000606: 13,3145           06006                           TC       INTPRET                               
054777,000607: 13,3146           77731                           SSP                                            
054778,000608: 13,3147           00053                                    QPRET                                 
054779,000609: 13,3150           27155                                    PHEXIT                                
054780,000610: 13,3151           52014                           BON      GOTO                                  
054781,000611: 13,3152           01714                                    VINTFLAG                              
054782,000612: 13,3153           26636                                    ATOPCSM                               
054783,000613: 13,3154           26711                                    ATOPLEM                               
054784,000614: 13,3155           77624        PHEXIT             CALL                                           
054785,000615: 13,3156           56712                                    GRP2PC                                
054786,000616: 13,3157           45001        RECTOUT            SETPD    CALL                                  
054787,000617: 13,3160           00001                                    0                                     
054788,000618: 13,3161           23344                                    RECTIFY                               
054789,000619: 13,3162           53775                           VLOAD    VSL*                                  
054790,000620: 13,3163           01503                                    RRECT                                 
054791,000621: 13,3164           57576                                    0,2                                   
054792,000622: 13,3165           53715                           PDVL     VSL*                                  #  RATT TO PD0
054793,000623: 13,3166           01511                                    VRECT                                 

Page 1287

054795,000625: 13,3167           57576                                    0,2                                   
054796,000626: 13,3170           63325                           PDDL     PDVL                                  #  VATT TO PD6    TAT TO PD12
054797,000627: 13,3171           01517                                    TET                                   
054798,000628: 13,3172           01503                                    RRECT                                 
054799,000629: 13,3173           64715                           PDVL     PDDL*                                 
054800,000630: 13,3174           01511                                    VRECT                                 
054801,000631: 13,3175           50044                                    MUEARTH,2                             
054802,000632: 13,3176           76006                           PUSH     AXT,1                                 
054803,000633: 13,3177           77765                           DEC      -10        B-14                       
054804,000634: 13,3200           76014                           BON      AXT,1                                 
054805,000635: 13,3201           00303                                    MOONFLAG                              
054806,000636: 13,3202           27204                                    +2                                    
054807,000637: 13,3203           77775                           DEC      -2         B-14                       
054808,000638: 13,3204           40001        INTEXIT            SETPD    BOV                                   
054809,000639: 13,3205           00001                                    0                                     
054810,000640: 13,3206           27207                                    +1                                    
054811,000641: 13,3207           43014                           CLEAR    CLEAR                                 
054812,000642: 13,3210           04676                                    AVEMIDSW                              #  ALLOW UPDATE OF DOWNLINK STATE VECTOR
054813,000643: 13,3211           01667                                    PRECIFLG                              
054814,000644: 13,3212           77535                           SLOAD    EXIT                                  
054815,000645: 13,3213           02215                                    IRETURN                               
054816,000646: 13,3214           30154                           CA       MPAC                                  
054817,000647: 13,3215           50120                           INDEX    FIXLOC                                
054818,000648: 13,3216           54052                           TS       QPRET                                 
054819,000649: 13,3217           03406                           TC       INTWAKE                               
054820,000650:                                                                                                  #  RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
054821,000651:                                                                                                  #  VELOCITY FOR THE INTERVAL (TET-TDEC)
054822,000652: 
054823,000653: 13,3220           45345        RVCON              DLOAD    DSU                                   
054824,000654: 13,3221           01101                                    TDEC                                  
054825,000655: 13,3222           01517                                    TET                                   
054826,000656: 13,3223           36312                           STCALL   TAU.                                  
054827,000657: 13,3224           23344                                    RECTIFY                               
054828,000658: 13,3225           77624                           CALL                                           
054829,000659: 13,3226           22310                                    KEPPREP                               
054830,000660: 13,3227           43345                           DLOAD    DAD                                   
054831,000661: 13,3230           01551                                    TC                                    
054832,000662: 13,3231           01517                                    TET                                   
054833,000663: 13,3232           35517                           STCALL   TET                                   
054834,000664: 13,3233           27157                                    RECTOUT                               
054835,000665: 

Page 1288

054837,000667:                                                                                                  #           TESTLOOP
054838,000668: 
054839,000669: 13,3234           43014        TESTLOOP           BOF      CLRGO                                 
054840,000670: 13,3235           04752                                    QUITFLAG                              
054841,000671: 13,3236           27241                                    +3                                    
054842,000672: 13,3237           01632                                    STATEFLG                              
054843,000673: 13,3240           27204                                    INTEXIT                               #  STOP INTEGRATION
054844,000674: 13,3241           73001                 +3        SETPD    LXA,2                                 
054845,000675: 13,3242           00013                                    10D                                   
054846,000676: 13,3243           02150                                    PBODY                                 
054847,000677: 13,3244           51575                           VLOAD    ABVAL                                 
054848,000678: 13,3245           01535                                    RCV                                   
054849,000679: 13,3246           43006                           PUSH     CLEAR                                 #  RC TO 10D
054850,000680: 13,3247           00262                                    MIDFLAG                               
054851,000681: 13,3250           50023                           DSU*     BMN                                   #  MIDFLAG=0 IF R G.T. RMP
054852,000682: 13,3251           67241                                    RME,2                                 
054853,000683: 13,3252           27255                                    +3                                    
054854,000684: 13,3253           77614                           SET                                            
054855,000685: 13,3254           00062                                    MIDFLAG                               
054856,000686: 13,3255           41345        NORFINAL           DLOAD    DMP                                   
054857,000687: 13,3256           00013                                    10D                                   
054858,000688: 13,3257           00043                                    34D                                   
054859,000689: 13,3260           55762                           SR1R     DDV*                                  
054860,000690: 13,3261           50044                                    MUEARTH,2                             
054861,000691: 13,3262           41366                           SQRT     DMP                                   
054862,000692: 13,3263           23675                                    .3D                                   
054863,000693: 13,3264           40442                           SR3      SR4                                   #  DT   IS TRUNCATED TO A MULTIPLE
054864,000694: 13,3265           54345                           DLOAD    SL                                    
054865,000695: 13,3266           00155                                    MPAC                                  
054866,000696: 13,3267           20220                                    15D                                   #        OF 128 CSECS.
054867,000697: 13,3270           40006                           PUSH     BOV                                   
054868,000698: 13,3271           27316                                    MAXDT                                 
054869,000699: 13,3272           50021                           BDSU     BMN                                   
054870,000700: 13,3273           27370                                    DT/2MAX                               
054871,000701: 13,3274           27316                                    MAXDT                                 
054872,000702: 13,3275           45345        DT/2COMP           DLOAD    DSU                                   
054873,000703: 13,3276           01101                                    TDEC                                  
054874,000704: 13,3277           01517                                    TET                                   
054875,000705: 13,3300           54234                           RTB      SL                                    
054876,000706: 13,3301           45541                                    SGNAGREE                              
054877,000707: 13,3302           20211                                    8D                                    
054878,000708: 13,3303           02314                           STORE    DT/2                                  #  B-19
054879,000709: 13,3304           51400                           BOV      ABS                                   
054880,000710: 13,3305           27322                                    GETMAXDT                              
054881,000711: 13,3306           50025                           DSU      BMN                                   #  IS TIME TO INTEG. TO GR THAN MAXTIME
054882,000712: 13,3307           00015                                    12D                                   
054883,000713: 13,3310           27326                                    P00HCHK                               
054884,000714: 13,3311           75345        USEMAXDT           DLOAD    SIGN                                  
054885,000715: 13,3312           00015                                    12D                                   
054886,000716: 13,3313           02314                                    DT/2                                  

Page 1289

054888,000718: 13,3314           36314                           STCALL   DT/2                                  
054889,000719: 13,3315           27326                                    P00HCHK                               
054890,000720: 13,3316           65345        MAXDT              DLOAD    PDDL                                  #  EXCHANGE DT/2MAX WITH COMPUTED MAX.
054891,000721: 13,3317           27370                                    DT/2MAX                               
054892,000722: 13,3320           77650                           GOTO                                           
054893,000723: 13,3321           27275                                    DT/2COMP                              
054894,000724: 13,3322           77634        GETMAXDT           RTB                                            
054895,000725: 13,3323           45707                                    SIGNMPAC                              
054896,000726: 13,3324           36314                           STCALL   DT/2                                  
054897,000727: 13,3325           27311                                    USEMAXDT                              
054898,000728: 13,3326           51545        P00HCHK            DLOAD    ABS                                   
054899,000729: 13,3327           02314                                    DT/2                                  
054900,000730: 13,3330           50025                           DSU      BMN                                   
054901,000731: 13,3331           27366                                    DT/2MIN                               
054902,000732: 13,3332           27136                                    A-PCHK                                
054903,000733: 13,3333           46135                           SLOAD    BHIZ                                  
054904,000734: 13,3334           01012                                    MODREG                                
054905,000735: 13,3335           27340                                    +3                                    
054906,000736: 13,3336           77650                           GOTO                                           
054907,000737: 13,3337           23155                                    TIMESTEP                              
054908,000738: 13,3340           77614                           BON                                            #  WAS THIS CALL VIA CSM(LEM)PREC
054909,000739: 13,3341           01707                                    PRECIFLG                              
054910,000740: 13,3342           23155                                    TIMESTEP                              #  YES
054911,000741: 13,3343           45345                           DLOAD    DSU                                   
054912,000742: 13,3344           02314                                    DT/2                                  
054913,000743: 13,3345           00015                                    12D                                   
054914,000744: 13,3346           43040                           BMN      BOFCLR                                
054915,000745: 13,3347           27136                                    A-PCHK                                
054916,000746: 13,3350           04242                                    NEWIFLG                               
054917,000747: 13,3351           23155                                    TIMESTEP                              
054918,000748: 13,3352           45345                           DLOAD    DSU                                   
054919,000749: 13,3353           01101                                    TDEC                                  
054920,000750: 13,3354           01517                                    TET                                   
054921,000751: 13,3355           77640                           BMN                                            #  NO BACKWARD INTEGRATION
054922,000752: 13,3356           27204                                    INTEXIT                               
054923,000753: 13,3357           40525                           PDDL     SR4                                   
054924,000754: 13,3360           02314                                    DT/2                                  #  IS 4(DT) LS(TDEC - TET)
054925,000755: 13,3361           44322                           SR2R     BDSU                                  #  NO
054926,000756: 13,3362           52040                           BMN      GOTO                                  
054927,000757: 13,3363           27204                                    INTEXIT                               
054928,000758: 13,3364           23155                                    TIMESTEP                              
054929,000759: 13,3365           00000 01400  DT/2MIN            2DEC     3          B-20                       
054930,000760: 13,3367           14152 00000  DT/2MAX            2DEC     4000       E2         B-20            
054931,000761: 13,3371           77776        INTSTALL           EXIT                                           
054932,000762: 13,3372           34714                           CAF      ZERO                                  
054933,000763: 13,3373           54001        ALLSTALL           TS       L                                     
054934,000764: 13,3374           30106                           CA       RASFLAG                               
054935,000765: 13,3375           50001                           INDEX    L                                     

Page 1290

054937,000767: 13,3376           73467                           MASK     INTBITAB                              #  IS THIS STALL AREA FREE
054938,000768: 13,3377           00006                           EXTEND                                         
054939,000769: 13,3400           13445                           BZF      OKTOGRAB                              #  YES
054940,000770: 13,3401           50001                           INDEX    L                                     
054941,000771: 13,3402           33464                           CAF      WAKESTAL                              
054942,000772: 13,3403           05070                           TC       JOBSLEEP                              
054943,000773: 13,3404           77776        INTWAKE0           EXIT                                           
054944,000774: 13,3405           13426                           TCF      INTWAKE1                              
054945,000775: 
054946,000776: 13,3406           40106        INTWAKE            CS       RASFLAG                               #  IS THIS INTSTALLED ROUTINE TO BE
054947,000777: 13,3407           74704                           MASK     REINTBIT                              #       RESTARTED
054948,000778: 13,3410           10000                           CCS      A                                     
054949,000779: 13,3411           03426                           TC       INTWAKE1                              #  NO
054950,000780: 
054951,000781: 13,3412           50120                           INDEX    FIXLOC                                
054952,000782: 13,3413           30052                           CA       QPRET                                 
054953,000783: 13,3414           55055                           TS       TBASE2                                #  YES, DONT RESTART WITH SOMEONE ELSES Q
054954,000784: 
054955,000785: 13,3415           05301                           TC       PHASCHNG                              
054956,000786: 13,3416           04022                           OCT      04022                                 
054957,000787: 
054958,000788: 13,3417           31055                           CA       TBASE2                                
054959,000789: 13,3420           50120                           INDEX    FIXLOC                                
054960,000790: 13,3421           54052                           TS       QPRET                                 
054961,000791: 
054962,000792: 13,3422           34704                           CAF      REINTBIT                              
054963,000793: 13,3423           70106                           MASK     RASFLAG                               
054964,000794: 13,3424           00006                           EXTEND                                         
054965,000795: 13,3425           13450                           BZF      GOBAC                                 #  DONT INTWAKE IF WE CAME HERE VIA RESTART
054966,000796: 
054967,000797: 13,3426           34714        INTWAKE1           CAF      ZERO                                  
054968,000798: 13,3427           54154        WAKE               TS       STALTEM                               #  INDEX OF ANY STALL USER
054969,000799: 13,3430           50154        WAKE1              INDEX    STALTEM                               
054970,000800: 13,3431           33464                           CAF      WAKESTAL                              
054971,000801: 13,3432           00004                           INHINT                                         
054972,000802: 13,3433           05074                           TC       JOBWAKE                               
054973,000803: 13,3434           10064                           CCS      LOCCTR                                
054974,000804: 13,3435           13430                           TCF      WAKE1                                 #  MAY BE MORE TO WAKE UP
054975,000805: 13,3436           00051        FORTYONE           DEC      41         B-14                       
054976,000806: 13,3437           50154                           INDEX    STALTEM                               
054977,000807: 13,3440           43467                           CS       INTBITAB                              
054978,000808: 13,3441           70106                           MASK     RASFLAG                               
054979,000809: 13,3442           54106                           TS       RASFLAG                               #  RELEASE STALL AREA
054980,000810: 13,3443           00003                           RELINT                                         
054981,000811: 13,3444           13450                           TCF      GOBAC                                 
054982,000812: 13,3445           50001        OKTOGRAB           INDEX    L                                     #  NO, WAIT UNTIL AVAILABLE
054983,000813: 13,3446           34675                           CAF      INTFLBIT                              
054984,000814: 13,3447           26106                           ADS      RASFLAG                               
054985,000815: 13,3450           06006        GOBAC              TC       INTPRET                               
054986,000816: 13,3451           77616                           RVQ                                            

Page 1291

054988,000818: 13,3452           77776        ERASTAL1           EXIT                                           
054989,000819: 13,3453           34712                           CAF      ONE                                   
054990,000820: 13,3454           13373                           TCF      ALLSTALL                              
054991,000821: 13,3455           77776        ERASTAL2           EXIT                                           
054992,000822: 13,3456           34711                           CAF      TWO                                   
054993,000823: 13,3457           13373                           TCF      ALLSTALL                              
054994,000824: 13,3460           34712        ERASWAK1           CAF      ONE                                   
054995,000825: 13,3461           13427                           TCF      WAKE                                  
054996,000826: 13,3462           34711        ERASWAK2           CAF      TWO                                   
054997,000827: 13,3463           13427                           TCF      WAKE                                  
054998,000828: 13,3464           27372        WAKESTAL           CADR     INTSTALL   +1                         
054999,000829: 13,3465           27453                           CADR     ERASTAL1   +1                         
055000,000830: 13,3466           27456                           CADR     ERASTAL2   +1                         
055001,000831: 13,3467     0154               STALTEM            EQUALS   MPAC                                  
055002,000832: 13,3467           20100        INTBITAB           OCT      20100                                 
055003,000833: 13,3470           10040                           OCT      10040                                 
055004,000834: 13,3471           04020                           OCT      04020                                 
055005,000835: 

Page 1292

055007,000837:                                                                                                  #  AVETOMID
055008,000838: 
055009,000839:                                                                                                  #  THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
055010,000840:                                                                                                  #  PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
055011,000841:                                                                                                  #  VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
055012,000842: 
055013,000843:                                                                                                  #  BEFORE THIS IS DONE THE W-MATRIX, IF ITS  VALID (ORWFLAG OR RENDWFLG IS
055014,000844:                                                                                                  #  SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
055015,000845: 
055016,000846:                                                                                                  #  IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
055017,000847: 
055018,000848:                                                                                                  #  FINALLY TRKMKCNT IS ZEROED
055019,000849: 
055020,000850: 
055021,000851: 13,2000                                           SETLOC   INTINIT                               
055022,000852: 13,2000                                           BANK                                           
055023,000853: 
055024,000854: 13,3472                                           COUNT*   $$/INTIN                              
055025,000855: 13,3472           43020        AVETOMID           STQ      BON                                   
055026,000856: 13,3473           02317                                    EGRESS                                
055027,000857: 13,3474           02716                                    RENDWFLG                              
055028,000858: 13,3475           27545                                    INT/W                                 #  W-MATRIX VALID ,GO INTEGRATE IT
055029,000859: 13,3476           77614                           BON                                            
055030,000860: 13,3477           01711                                    ORBWFLAG                              
055031,000861: 13,3500           27545                                    INT/W                                 #  W-MATRIX VALID ,GO INTEGRATE IT
055032,000862: 
055033,000863: 13,3501           45145        OTHERS             DLOAD    CALL                                  #  GET SET FOR OTHER VEHICLE INTEGRATION
055034,000864: 13,3502           01205                                    PIPTIME                               #  DESIRED TIME
055035,000865: 13,3503           27371                                    INTSTALL                              
055036,000866: 13,3504           45014                           SET      CALL                                  
055037,000867: 13,3505           01474                                    VINTFLAG                              #  CM
055038,000868: 13,3506           26621                                    SETIFLGS                              #  SETS UP NONE W-MAT. PERMANENT INTEG.
055039,000869: 13,3507           43014                           BOF      CLEAR                                 
055040,000870: 13,3510           02747                                    COMPUTER                              
055041,000871: 13,3511           27513                                    +2                                    #  COMPUTER IS LM ,INTEG CM
055042,000872: 13,3512           01674                                    VINTFLAG                              #  COMPUTER IS CM ,INTEG LM
055043,000873: 13,3513           34041                           STCALL   TDEC1                                 
055044,000874: 13,3514           27113                                    INTEGRV                               
055045,000875: 
055046,000876: 13,3515           45174                           AXT,2    CALL                                  #  NOW MOVE PROPERLY SCALE RN,UN AS WELL AS
055047,000877: 13,3516           00002                                    2                                     #  PIPTIME TO INTEGRATION ERASABLES.
055048,000878: 13,3517           27371                                    INTSTALL                              
055049,000879: 13,3520           77014                           BON      AXT,2                                 
055050,000880: 13,3521           04303                                    MOONTHIS                              
055051,000881: 13,3522           27524                                    +2                                    
055052,000882: 13,3523           00000                                    0                                     
055053,000883: 13,3524           53775                           VLOAD    VSR*                                  
055054,000884: 13,3525           01171                                    RN                                    
055055,000885: 13,3526           57176                                    0,2                                   
055056,000886: 13,3527           01503                           STORE    RRECT                                 

Page 1293

055058,000888: 13,3530           15535                           STODL    RCV                                   
055059,000889: 13,3531           01205                                    PIPTIME                               
055060,000890: 13,3532           25517                           STOVL    TET                                   
055061,000891: 13,3533           01177                                    VN                                    
055062,000892: 13,3534           45057                           VSR*     CALL                                  
055063,000893: 13,3535           57176                                    0,2                                   
055064,000894: 13,3536           23360                                    MINIRECT                              #  FINISH SETTING UP STATE VECTOR
055065,000895: 13,3537           66234                           RTB      SSP                                   
055066,000896: 13,3540           26651                                    MOVATHIS                              #  PUT TEMP STATE VECTOR INTO PERMANENT
055067,000897: 13,3541           01127                                    TRKMKCNT                              
055068,000898: 13,3542           00000                                    0                                     
055069,000899: 13,3543           77650                           GOTO                                           
055070,000900: 13,3544           75743                                    FAZAB5                                
055071,000901: 
055072,000902: 13,3545           45145        INT/W              DLOAD    CALL                                  
055073,000903: 13,3546           01205                                    PIPTIME                               #  INTEGRATE W THRU BURN
055074,000904: 13,3547           27371                                    INTSTALL                              
055075,000905: 13,3550           43014                           SET      SET                                   
055076,000906: 13,3551           01476                                    DIM0FLAG                              #  DO W-MATRIX
055077,000907: 13,3552           04476                                    AVEMIDSW                              #  SO WONT CLOBBER RN,VN,PIPTIME
055078,000908: 13,3553           43014                           SET      CLEAR                                 
055079,000909: 13,3554           01475                                    D6OR9FLG                              #  9X9 FOR LM
055080,000910: 13,3555           01674                                    VINTFLAG                              #  LM
055081,000911: 13,3556           43014                           BOF      SET                                   
055082,000912: 13,3557           02747                                    COMPUTER                              
055083,000913: 13,3560           27564                                    +4                                    #  LM TO DO
055084,000914: 13,3561           01474                                    VINTFLAG                              
055085,000915: 13,3562           77614                           CLEAR                                          
055086,000916: 13,3563           01675                                    D6OR9FLG                              #  6X6 FOR CM
055087,000917: 13,3564           34041                           STCALL   TDEC1                                 
055088,000918: 13,3565           27113                                    INTEGRV                               
055089,000919: 13,3566           77650                           GOTO                                           
055090,000920: 13,3567           27501                                    OTHERS                                #  NOW GO DO THE OTHER VEHICLE
055091,000921: 

Page 1294

055093,000923:                                                                                                  #  MIDTOAV1
055094,000924: 
055095,000925:                                                                                                  #  THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
055096,000926:                                                                                                  #  IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
055097,000927:                                                                                                  #  TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
055098,000928:                                                                                                  #  IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
055099,000929:                                                                                                  #  IS DONE TO THE CURRENT TIME.
055100,000930:                                                                                                  #  RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
055101,000931: 
055102,000932:                                                                                                  #  IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
055103,000933:                                                                                                  #  TO THE RETURN ADDRESS
055104,000934: 
055105,000935:                                                                                                  #  IN EITHER CASE , BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
055106,000936:                                                                                                  #  FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
055107,000937:                                                                                                  #  TION TIME AND MPAC IS SET TO THE DELTA TIME---
055108,000938:                                                                                                  #                                    TAT MINUS CURRENT TIME.
055109,000939: 
055110,000940: 
055111,000941:                                                                                                  #  MIDTOAV2
055112,000942: 
055113,000943:                                                                                                  #  THIS ROUTINE INTEGRATES THIS VEHICLES STATE VECTOR TO THE CURRENT TIME.
055114,000944:                                                                                                  #  NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
055115,000945:                                                                                                  #  ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
055116,000946: 
055117,000947: 13,3570     1127                                  EBANK=   IRETURN1                              
055118,000948: 13,3570           43020        MIDTOAV2           STQ      CLRGO                                 #  INTEGRATE TO PRESENT TIME PLUS TIMEDELT
055119,000949: 13,3571           01127                                    IRETURN1                              
055120,000950: 13,3572           04634                                    MID1FLAG                              
055121,000951: 13,3573           27607                                    ENTMID2                               
055122,000952: 
055123,000953: 13,3574           43020        MIDTOAV1           STQ      SET                                   #   INTEGRATE TO TDEC1
055124,000954: 13,3575           01127                                    IRETURN1                              
055125,000955: 13,3576           04474                                    MID1FLAG                              
055126,000956: 13,3577           43234                           RTB      DAD                                   #  INITIAL CHECK, IS TDEC1 IN THE FUTURE
055127,000957: 13,3600           45505                                    LOADTIME                              
055128,000958: 13,3601           27711                                    TIMEDELT                              
055129,000959: 13,3602           51021                           BDSU     BPL                                   
055130,000960: 13,3603           00041                                    TDEC1                                 
055131,000961: 13,3604           27613                                    ENTMID1                               #   Y5S
055132,000962: 13,3605           77624                           CALL                                           
055133,000963: 13,3606           27677                                    NOTIME                                #  NO, SET ALARM, SWITCH TO MIDTOAV2
055134,000964: 
055135,000965: 13,3607           43234        ENTMID2            RTB      DAD                                   
055136,000966: 13,3610           45505                                    LOADTIME                              
055137,000967: 13,3611           27711                                    TIMEDELT                              
055138,000968: 13,3612           00041                           STORE    TDEC1                                 
055139,000969: 
055140,000970: 13,3613           77624        ENTMID1            CALL                                           
055141,000971: 13,3614           27371                                    INTSTALL                              
055142,000972: 13,3615           45014                           CLEAR    CALL                                  

Page 1295

055144,000974: 13,3616           01676                                    DIM0FLAG                              #  NO W-MATRIX
055145,000975: 13,3617           26034                                    THISVINT                              
055146,000976: 13,3620           43014                           CLEAR    SET                                   
055147,000977: 13,3621           01673                                    INTYPFLG                              
055148,000978: 13,3622           04475                                    MIDAVFLG                              #  LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
055149,000979: 13,3623           77624                           CALL                                           
055150,000980: 13,3624           27113                                    INTEGRV                               #   GO INTEGRATE
055151,000981: 13,3625           77214                           CLEAR    VLOAD                                 
055152,000982: 13,3626           04675                                    MIDAVFLG                              
055153,000983: 13,3627           00001                                    RATT                                  
055154,000984: 13,3630           25232                           STOVL    RN1                                   
055155,000985: 13,3631           00007                                    VATT                                  
055156,000986: 13,3632           15240                           STODL    VN1                                   
055157,000987: 13,3633           00015                                    TAT                                   
055158,000988: 13,3634           01246                           STORE    PIPTIME1                              
055159,000989: 13,3635           66134                           SXA,2    SXA,1                                 
055160,000990: 13,3636           03746                                    RTX2                                  
055161,000991: 13,3637           03745                                    RTX1                                  
055162,000992: 13,3640           77776                           EXIT                                           
055163,000993: 
055164,000994: 13,3641           00004                           INHINT                                         
055165,000995: 13,3642           00006                           EXTEND                                         
055166,000996: 13,3643           40025                           DCS      TIME2                                 
055167,000997: 13,3644           20155                           DAS      MPAC                                  
055168,000998: 13,3645           07226                           TC       TPAGREE                               
055169,000999: 
055170,001000: 13,3646           31127                           CA       IRETURN1                              
055171,001001: 13,3647           04577                           TC       BANKJUMP                              
055172,001002: 13,3650           47014        CKMID2             BOF      RTB                                   
055173,001003: 13,3651           04754                                    MID1FLAG                              
055174,001004: 13,3652           27667                                    MID2                                  
055175,001005: 13,3653           45505                                    LOADTIME                              
055176,001006: 13,3654           44215                           DAD      BDSU                                  
055177,001007: 13,3655           27711                                    TIMEDELT                              
055178,001008: 13,3656           01101                                    TDEC                                  
055179,001009: 13,3657           45044                           BPL      CALL                                  
055180,001010: 13,3660           27234                                    TESTLOOP                              #   YES
055181,001011: 13,3661           27677                                    NOTIME                                
055182,001012: 
055183,001013: 13,3662           43234        TIMEINC            RTB      DAD                                   
055184,001014: 13,3663           45505                                    LOADTIME                              
055185,001015: 13,3664           27711                                    TIMEDELT                              
055186,001016: 13,3665           35101                           STCALL   TDEC                                  
055187,001017: 13,3666           27234                                    TESTLOOP                              
055188,001018: 
055189,001019: 13,3667           45345        MID2               DLOAD    DSU                                   
055190,001020: 13,3670           01101                                    TDEC                                  
055191,001021: 13,3671           01517                                    TET                                   
055192,001022: 13,3672           45246                           ABS      DSU                                   
055193,001023: 13,3673           27707                                    3CSECS                                

Page 1296

055195,001025: 13,3674           52040                           BMN      GOTO                                  
055196,001026: 13,3675           27136                                    A-PCHK                                
055197,001027: 13,3676           27662                                    TIMEINC                               
055198,001028: 
055199,001029: 13,3677           77414        NOTIME             CLEAR    EXIT                                  #  TOO LATE
055200,001030: 13,3700           04674                                    MID1FLAG                              
055201,001031: 13,3701           25127                           INCR     IRETURN1                              #  SET ERROR EXIT  (CALLOC +2)
055202,001032: 13,3702           05537                           TC       ALARM                                 #  INSUFFICIENT TIME FOR INTEGRATION --
055203,001033: 13,3703           01703                           OCT      1703                                  #     TIG WILL BE SLIPPED...
055204,001034: 13,3704           06006                           TC       INTPRET                               
055205,001035: 13,3705           77616                           RVQ                                            
055206,001036: 
055207,001037: 13,3706           00000 00003  3CSECS             2DEC     3          B-28                       
055208,001038: 13,3710           00000 01750  TIMEDELT           2DEC     1000       B-28                       
055209,001039: 27,2633                                           BANK     27                                    
055210,001040: 27,2000                                           SETLOC   UPDATE2                               
055211,001041: 27,2000                                           BANK                                           
055212,001042: 27,2633     0330                                  EBANK=   INTWAKUQ                              
055213,001043: 
055214,001044: 
055215,001045: 27,2633                                           COUNT*   $$/INTIN                              
055216,001046: 
055217,001047: 27,2633     0330               INTWAKUQ           =        INTWAK1Q                              #  TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
055218,001048: 
055219,001049: 27,2633           00003        INTWAKEU           RELINT                                         
055220,001050: 27,2634           00006                           EXTEND                                         
055221,001051: 27,2635           22330                           QXCH     INTWAKUQ                              #  SAVE Q FOR RETURN
055222,001052: 
055223,001053: 27,2636           06006                           TC       INTPRET                               
055224,001054: 
055225,001055: 27,2637           53135                           SLOAD    BZE                                   #  IS THIS A CSM/LEM STATE VECTOR UPDATE
055226,001056: 27,2640           01502                                    UPSVFLAG                              #  REQUEST. IF NOT GO TO INTWAKUP.
055227,001057: 27,2641           56700                                    INTWAKUP                              
055228,001058: 
055229,001059: 27,2642           77775                           VLOAD                                          #  MOVE RRECT(6) AND VRECT(6) INTO
055230,001060: 27,2643           01503                                    RRECT                                 #       RCV(6)   AND VCV(6)   RESPECTIVELY.
055231,001061: 27,2644           25535                           STOVL    RCV                                   
055232,001062: 27,2645           01511                                    VRECT                                 #  NOW GO TO 'RECTIFY +13D' TO
055233,001063: 27,2646           77624                           CALL                                           #  STORE VRECT INTO VCV  AND ZERO OUT
055234,001064: 27,2647           23361                                    RECTIFY    +13D                       #  TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
055235,001065: 27,2650           51535                           SLOAD    ABS                                   #  COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
055236,001066: 27,2651           01502                                    UPSVFLAG                              #  TO 'UPDATE MOON STATE VECTOR CODE'
055237,001067: 27,2652           53025                           DSU      BZE                                   #  TO DETERMINE WHETHER THE STATE VECTOR TO
055238,001068: 27,2653           16711                                    UPMNSVCD                              #  BE UPDATED IS IN THE EARTH OR LUNAR
055239,001069: 27,2654           56661                                    INTWAKEM                              #  SPHERE OF INFLUENCE.........
055240,001070: 27,2655           43174                           AXT,2    CLRGO                                 #  EARTH SPHERE OF INFLUENCE.
055241,001071: 27,2656           00000                           DEC      0          B-14                       
055242,001072: 27,2657           00223                                    MOONFLAG                              

Page 1297

055244,001074: 27,2660           56664                                    INTWAKEC                              
055245,001075: 27,2661           43174        INTWAKEM           AXT,2    SET                                   #  LUNAR SPHERE OF INFLUENCE.
055246,001076: 27,2662           00002                           DEC      2          B-14                       
055247,001077: 27,2663           00063                                    MOONFLAG                              
055248,001078: 27,2664           50135        INTWAKEC           SLOAD    BMN                                   #  COMMON CODING AFTER X2 INITIALIZED AND
055249,001079:                                                                                                  #  MOONFLAG SET(OR CLEARED).
055250,001080: 27,2665           01502                                    UPSVFLAG                              #  IS THIS A REQUEST FOR A LEM OR CSM
055251,001081: 27,2666           56674                                    INTWAKLM                              #   STATE VECTOR UPDATE......
055252,001082: 27,2667           77624                           CALL                                           #  UPDATE CSM STATE VECTOR
055253,001083: 27,2670           26636                                    ATOPCSM                               
055254,001084: 
055255,001085: 27,2671           52014                           CLEAR    GOTO                                  
055256,001086: 27,2672           01671                                    ORBWFLAG                              
055257,001087: 27,2673           56676                                    INTWAKEX                              
055258,001088: 
055259,001089: 27,2674           77624        INTWAKLM           CALL                                           #  UPDATE  LM STATE VECTOR
055260,001090: 27,2675           26711                                    ATOPLEM                               
055261,001091: 
055262,001092: 27,2676           77614        INTWAKEX           CLEAR                                          
055263,001093: 27,2677           02676                                    RENDWFLG                              
055264,001094: 
055265,001095: 27,2700           45131        INTWAKUP           SSP      CALL                                  #  REMOVE :UPDATE STATE VECTOR INDICATOR:
055266,001096: 27,2701           01502                                    UPSVFLAG                              
055267,001097: 27,2702           00000                                    0                                     
055268,001098: 27,2703           27404                                    INTWAKE0                              #  RELEASE :GRAB: OF ORBIT INTEG
055269,001099: 27,2704           77776                           EXIT                                           
055270,001100: 
055271,001101: 27,2705           05301                           TC       PHASCHNG                              
055272,001102: 27,2706           04026                           OCT      04026                                 
055273,001103: 27,2707           00330                           TC       INTWAKUQ                              
055274,001104: 
055275,001105: 27,2710           00002        UPMNSVCD           OCT      2                                     
055276,001106: 27,2711           00000                           OCT      0                                     
055277,001107: 
055278,001108: 
055279,001109: 27,2712           77420        GRP2PC             STQ      EXIT                                  
055280,001110: 27,2713           03536                                    GRP2SVQ                               
055281,001111: 27,2714           05301                           TC       PHASCHNG                              
055282,001112: 27,2715           04022                           OCT      04022                                 
055283,001113: 27,2716           06006                           TC       INTPRET                               
055284,001114: 27,2717           77650                           GOTO                                           
055285,001115: 27,2720           03536                                    GRP2SVQ                               

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