Source Code

These source-code files were transcribed from a printout in Don Eyles's personal collection, scanned by archive.org, and financially sponsored by Linden Sims. A team of volunteers performed the transcription and proof-reading. The scanned page images are available at the Virtual AGC Project website, as well as higher-quality (but much larger) images at the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating "issues" at the Virtual AGC Project's GitHub Repository.

Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER
	9:12 OCT. 21,1970
Note that the date is the date of the printout, not the date of the program revision.

052178,000002:                                                                                                  ## Copyright:   Public domain.
052179,000003:                                                                                                  ## Filename:    INTEGRATION_INITIALIZATION.agc
052180,000004:                                                                                                  ## Purpose:     A log section of Zerlina 56, the final revision of
052181,000005:                                                                                                  ##              Don Eyles's offline development program for the variable 
052182,000006:                                                                                                  ##              guidance period servicer. It also includes a new P66 with LPD 
052183,000007:                                                                                                  ##              (Landing Point Designator) capability, based on an idea of John 
052184,000008:                                                                                                  ##              Young's. Neither of these advanced features were actually flown,
052185,000009:                                                                                                  ##              but Zerlina was also the birthplace of other big improvements to
052186,000010:                                                                                                  ##              Luminary including the terrain model and new (Luminary 1E)
052187,000011:                                                                                                  ##              analog display programs. Zerlina was branched off of Luminary 145,
052188,000012:                                                                                                  ##              and revision 56 includes all changes up to and including Luminary
052189,000013:                                                                                                  ##              183. It is therefore quite close to the Apollo 14 program,
052190,000014:                                                                                                  ##              Luminary 178, where not modified with new features.
052191,000015:                                                                                                  ## Reference:   pp. 1195-1216
052192,000016:                                                                                                  ## Assembler:   yaYUL
052193,000017:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
052194,000018:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
052195,000019:                                                                                                  ## Mod history: 2017-07-28 MAS  Created from Luminary 210.
052196,000020:                                                                                                  ##              2017-08-20 MAS  Updated for Zerlina 56.
052197,000021: 

Page 1195

052199,000023:                                                                                                  #  1.0 INTRODUCTION
052200,000024:                                                                                                  #  ----------------
052201,000025: 
052202,000026:                                                                                                  #  FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
052203,000027:                                                                                                  #  PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
052204,000028:                                                                                                  #  OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
052205,000029:                                                                                                  #  TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
052206,000030:                                                                                                  #  SIDE THE LUNAR SPHERE OF INFLUENCE.
052207,000031: 
052208,000032:                                                                                                  #  IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
052209,000033:                                                                                                  #  WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
052210,000034:                                                                                                  #  INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
052211,000035:                                                                                                  #  CALL TC INTSTALL.
052212,000036: 
052213,000037:                                                                                                  #  WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
052214,000038:                                                                                                  #  INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
052215,000039:                                                                                                  #  BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE  SYSTEM.
052216,000040:                                                                                                  #  THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
052217,000041:                                                                                                  #  THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
052218,000042: 
052219,000043:                                                                                                  #  USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
052220,000044:                                                                                                  #  IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
052221,000045:                                                                                                  #  TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
052222,000046:                                                                                                  #  AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
052223,000047: 
052224,000048:                                                                                                  #  2.0 GENERAL DESCRIPTION
052225,000049:                                                                                                  #  -----------------------
052226,000050: 
052227,000051:                                                                                                  #  THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS---
052228,000052:                                                                                                  #     1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
052229,000053:                                                                                                  #     2) INTEGRATES THE W-MATRIX
052230,000054:                                                                                                  #     3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
052231,000055: 
052232,000056:                                                                                                  #  THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
052233,000057:                                                                                                  #  ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
052234,000058:                                                                                                  #  THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
052235,000059:                                                                                                  #  PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
052236,000060:                                                                                                  #  CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
052237,000061:                                                                                                  #  THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
052238,000062:                                                                                                  #  NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
052239,000063:                                                                                                  #  VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
052240,000064:                                                                                                  #  AND/OR STATE VECTOR.
052241,000065: 
052242,000066:                                                                                                  #  THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
052243,000067:                                                                                                  #  USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
052244,000068:                                                                                                  #  IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
052245,000069: 
052246,000070:                                                                                                  #  THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
052247,000071:                                                                                                  #  THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
052248,000072:                                                                                                  #  SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
052249,000073: 

Page 1196

052251,000075:                                                                                                  #  APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
052252,000076: 
052253,000077:                                                                                                  #  2.1 RESTARTS
052254,000078: 
052255,000079:                                                                                                  #  PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
052256,000080:                                                                                                  #  INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
052257,000081:                                                                                                  #  (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
052258,000082:                                                                                                  #  INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
052259,000083:                                                                                                  #  PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
052260,000084:                                                                                                  #  THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
052261,000085:                                                                                                  #  THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
052262,000086: 
052263,000087:                                                                                                  #  2.2 SCALING
052264,000088: 
052265,000089:                                                                                                  #  THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
052266,000090:                                                                                                  #  APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTORDEPENDS ON THE ORIGIN OF THE COORDINATE
052267,000091:                                                                                                  #   SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
052268,000092:                                                                                                  #  MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
052269,000093:                                                                                                  #  DIFFERENT SCALING.
052270,000094:                                                                                                  #  HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
052271,000095: 
052272,000096:                                                                                                  #  3.0 INPUT/OUTPUT
052273,000097:                                                                                                  #  ----------------
052274,000098: 
052275,000099:                                                                                                  #  PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
052276,000100:                                                                                                  #  PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
052277,000101:                                                                                                  #  FOR INTEGRVS, THE RCV,VCV, TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
052278,000102: 
052279,000103:                                                                                                  #  FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
052280,000104:                                                                                                  #                                                             EARTH  MOON
052281,000105:                                                                                                  #                                                              29     27
052282,000106:                                                                                                  #     RRECTCSM(LEM)  - RECTIFIED POSITION VECTOR      METERS  2      2
052283,000107: 
052284,000108:                                                                                                  #                                                              7       5
052285,000109:                                                                                                  #     VRECTCSM(LEM)  - RECTIFIED VELOCITY VECTOR      M/CSEC  2    2
052286,000110: 
052287,000111:                                                                                                  #                                                              28     28
052288,000112:                                                                                                  #     TETCSM(LEM)    - TIME STATE VECTOR IS VALID     CSEC    2      2
052289,000113:                                                                                                  #                      CUSTOMARILY 0, BUT NOTE LUNAR
052290,000114:                                                                                                  #                      ORBIT DEPENDENCE ON REAL TIME.
052291,000115: 
052292,000116:                                                                                                  #                                                              22     18
052293,000117:                                                                                                  #     DELTAVCSM(LEM) - POSITION DEVIATION             METERS  2      2
052294,000118:                                                                                                  #                      0 IF TCCSM(LEM) = 0
052295,000119: 
052296,000120:                                                                                                  #                                                              3      -1
052297,000121:                                                                                                  #     NUVCSM(LEM)    - VELOCITY DEVIATION             M/CSEC  2      2
052298,000122:                                                                                                  #                      0 IF TCCSM(LEM) = 0
052299,000123: 

Page 1197

052301,000125:                                                                                                  #                                                              29     27
052302,000126:                                                                                                  #     RCVCSM(LEM)    - CONIC POSITION                 METERS  2      2
052303,000127:                                                                                                  #                      EQUALS RRECTCSM(LEM) IF
052304,000128:                                                                                                  #                      TCCSM(LEM) = 0
052305,000129: 
052306,000130:                                                                                                  #                                                              7      5
052307,000131:                                                                                                  #     VCVCSM(LEM)    - CONIC VELOCITY                 M/CSEC  2      2
052308,000132:                                                                                                  #                      EQUALS VRECTCSM(LEM) IF
052309,000133:                                                                                                  #                      TCCSM(LEM) = 0
052310,000134: 
052311,000135:                                                                                                  #                                                              28     28
052312,000136:                                                                                                  #     TCCSM(LEM)     - TIME SINCE RECTIFICATION       CSECS   2      2
052313,000137:                                                                                                  #                      CUSTOMARILY 0
052314,000138: 
052315,000139:                                                                                                  #                                                      1/2     17     16
052316,000140:                                                                                                  #     XKEPCSM(LEM)   - ROOT OF KEPLERS EQUATION       M       2      2
052317,000141:                                                                                                  #                      0 IF TCCSM(LEM) = 0
052318,000142: 
052319,000143:                                                                                                  #     CMOONFLG       - PERMANENT FLAGS CORRESPONDING          0      0
052320,000144:                                                                                                  #     CMIDFLAG         TO MOONFLAG AND MIDFLAG                0,1    0,1
052321,000145:                                                                                                  #     LMOONFLG         C = CSM, L = LM                        0      0
052322,000146:                                                                                                  #     LMIDFLG                                                 0,1    0,1
052323,000147: 
052324,000148:                                                                                                  #     SURFFLAG       - LUNAR SURFACE FLAG                     0,1    0,1
052325,000149: 
052326,000150:                                                                                                  #  IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
052327,000151:                                                                                                  #  SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
052328,000152:                                                                                                  #  ROUTINE MUST BE PRESET.
052329,000153: 
052330,000154:                                                                                                  #  OUTPUT
052331,000155:                                                                                                  #  AFTER EVERY CALL TO INTEGRATION
052332,000156:                                                                                                  #                                                             EARTH  MOON
052333,000157:                                                                                                  #                                                              29     29
052334,000158:                                                                                                  #      0D   RATT   POSITION                           METERS  2      2
052335,000159:                                                                                                  #                                                              7      7
052336,000160:                                                                                                  #      6D   VATT   VELOCITY                           M/CSEC  2      2
052337,000161:                                                                                                  #                                                              28     28
052338,000162:                                                                                                  #     12D   TAT    TIME                                       2      2
052339,000163:                                                                                                  #                                                              29     27
052340,000164:                                                                                                  #     14D   RATT1  POSITION                           METERS  2      2
052341,000165:                                                                                                  #                                                              7      5
052342,000166:                                                                                                  #     20D   VATT1  VELOCITY                           M/CSEC  2      2
052343,000167:                                                                                                  #                                                      3   2   36     30
052344,000168:                                                                                                  #     26D   MU(P)  MU                                 M /CS   2      2
052345,000169: 
052346,000170:                                                                                                  #     X1           MUTABLE ENTRY                              -2     -10D
052347,000171: 
052348,000172:                                                                                                  #     X2           COORDINT
052349,000173:                                                                                                  #     X2           COORDINATE SYSTEM ORIGEN                   0      2
052350,000174:                                                                                                  #                  (THIS, NOT MOONFLAG, SHOULD BE

Page 1198

052352,000176:                                                                                                  #                  USED TO DETERMINE ORIGIN.)
052353,000177: 
052354,000178:                                                                                                  #  IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
052355,000179:                                                                                                  #  STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
052356,000180:                                                                                                  #  COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
052357,000181:                                                                                                  #  CALLING PROGRAM.
052358,000182: 
052359,000183:                                                                                                  #  4.0 CALLING SEQUENCES AND SAMPLE CODE
052360,000184:                                                                                                  #  -------------------------------------
052361,000185: 
052362,000186:                                                                                                  #     A) PRECISION ORBITAL INTEGRATION. CSMPREC,LEMPREC ENTRANCES
052363,000187:                                                                                                  #           L-X    STORE TIME TO 95T5791T5 T  95 PUS  L9ST (T4531)
052364,000188:                                                                                                  #           L      CALL
052365,000189:                                                                                                  #           L+1           CSMPREC (OR LEMPREC)
052366,000190:                                                                                                  #           L+2    RETURN
052367,000191:                                                                                                  #        INPUT                                                         28
052368,000192:                                                                                                  #           TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
052369,000193:                                                                                                  #        OUTPUT
052370,000194:                                                                                                  #           THE DATA LISTED IN SECTION 3.0 PLUS
052371,000195:                                                                                                  #           RQVV   POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
052372,000196:                                                                                                  #           BODY... METERS B-29 ONLY IF MIDFLAG = DIM0FLAG = 1
052373,000197:                                                                                                  #     B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
052374,000198:                                                                                                  #           L-X    STORE TIME IN PUSH LIST (TDEC1)
052375,000199:                                                                                                  #           L      CALL
052376,000200:                                                                                                  #           L+1           CSMCONIC (OR LEMCONIC)
052377,000201:                                                                                                  #        INPUT/OUTPUT
052378,000202:                                                                                                  #           SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
052379,000203:                                                                                                  #     C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
052380,000204:                                                                                                  #                  CALL
052381,000205:                                                                                                  #                         INTSTALL
052382,000206:                                                                                                  #                  VLOAD
052383,000207:                                                                                                  #                         POSITION VECTOR
052384,000208:                                                                                                  #                  STOVL  RCV
052385,000209:                                                                                                  #                         VELOCITY VECTOR
052386,000210:                                                                                                  #                  STODL  VCV
052387,000211:                                                                                                  #                         TIME STATE VECTOR VALID
052388,000212:                                                                                                  #                  STODL  TET
052389,000213:                                                                                                  #                         FINAL RADIUS
052390,000214:                                                                                                  #                  STORE  RFINAL
052391,000215:                                                                                                  #                  SET(CLEAR)  SET(CLEAR)
052392,000216:                                                                                                  #                              INTYPFLAG
052393,000217:                                                                                                  #                              MOONFLAG
052394,000218:                                                                                                  #                  SET(CLEAR)  DLOAD
052395,000219:                                                                                                  #                              DESIRED TIME
052396,000220:                                                                                                  #                  STCALL      TDEC1
052397,000221:                                                                                                  #                              INTEGRVS
052398,000222:                                                                                                  #        INPUT
052399,000223:                                                                                                  #           RCV    POSITION VECTOR                  METERS
052400,000224:                                                                                                  #           VCV    VELOCITY VECTOR                  M/CSEC
052401,000225:                                                                                                  #           TET    TIME OF STATE VECTOR(MAY = 0)    CSEC B-28

Page 1199

052403,000227:                                                                                                  #           TDEC1  TIME TO INTEGRATE TO             CSEC B-28 (PD 32D)
052404,000228:                                                                                                  #                  (MAY BE INCREMENT IF TET=0)
052405,000229:                                                                                                  #        OUTPUT
052406,000230:                                                                                                  #           SAME AS FOR PRECISION OR CONIC INTEGRATION,
052407,000231:                                                                                                  #           DEPENDING ON INTYPFLG.
052408,000232:                                                                                                  #     D) INTEGRATE STATE VECTOR.INTGRV ENTRANCE
052409,000233:                                                                                                  #           L-X    STORE TIME IN PUSH LIST (TDEC1)(MAY BE DONE AFTER CALL TO INTSTALL)
052410,000234:                                                                                                  #           L-8    CALL
052411,000235:                                                                                                  #           L-7
052412,000236:                                                                                                  #           L-6    SET(CLEAR) SET(CLEAR)
052413,000237:                                                                                                  #           L-5               VINTFLAG   1=CSM, 0=LM
052414,000238:                                                                                                  #           L-4               INTYPFLAG  1=CONIC, 0=PRECISION
052415,000239:                                                                                                  #           L-3    SET(CLEAR) SET(CLEAR)
052416,000240:                                                                                                  #           L-2               DIM0FLAG   1=W-MATRIX, 0=NO W-MATRIX
052417,000241:                                                                                                  #           L-1               D6OR9FLG   1=9X9, 0=6X6
052418,000242:                                                                                                  #           L      SET        DLOAD
052419,000243:                                                                                                  #           L+1               STATEFLG   DESIRE PERMANENT UPDATE
052420,000244:                                                                                                  #           L+2               FINAL RAD. OF STATE VECTOR
052421,000245:                                                                                                  #           L+3    STCALL     RFINAL
052422,000246:                                                                                                  #           L+4               INTEGRV
052423,000247:                                                                                                  #           L      CALL                  NORMAL USE -- WILL UPDATE STATE
052424,000248:                                                                                                  #           L+1               INTEGRV    VECTOR IF DIM0FLAG=1.(STATEFLG IS
052425,000249:                                                                                                  #           L+2    RETURN                ALWAYS RESET IN INTEGRATION AFTER
052426,000250:                                                                                                  #                                        IT IS USED.)
052427,000251:                                                                                                  #        INPUT
052428,000252:                                                                                                  #           TDEC1 (PD 32D) TIME TO INTEGRATE TO    CSEC B-28
052429,000253:                                                                                                  #        OUTPUT
052430,000254:                                                                                                  #           SAME AS FOR PRECISION OR CONIC INTEGRATION
052431,000255:                                                                                                  #        THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
052432,000256:                                                                                                  #        THE PERMANENT STATE VECTOR REPRESENTATION.
052433,000257: 
052434,000258: 11,2366                                           BANK     11                                    
052435,000259: 13,2000                                           SETLOC   INTINIT                               
052436,000260: 13,2000                                           BANK                                           
052437,000261: 13,2602  E3,1554                                  EBANK=   RRECTCSM                              
052438,000262: 13,2602                                           COUNT*   $$/INTIN                              
052439,000263: 13,2602           05364        STATEINT           TC       PHASCHNG                              
052440,000264: 13,2603           00052                           OCT      00052                                 
052441,000265: 13,2604           35017                           CAF      PRIO5                                 
052442,000266: 13,2605           05105                           TC       FINDVAC                               
052443,000267: 13,2606  E3,1554                                  EBANK=   RRECTCSM                              
052444,000268: 13,2606           02611 26063                     2CADR    STATINT1                              
052445,000269: 
052446,000270: 13,2610           05272                           TC       TASKOVER                              
052447,000271: 13,2611           06051        STATINT1           TC       INTPRET                               
052448,000272: 13,2612           47014                           BON      RTB                                   
052449,000273: 13,2613           04712                                    QUITFLAG                              #  KILL INTEGRATION UNTIL NEXT POO.
052450,000274: 13,2614           26652                                    NOINT                                 
052451,000275: 13,2615           21555                                    LOADTIME                              
052452,000276: 13,2616           00041                           STORE    TDEC1                                 
052453,000277: 

Page 1200

052455,000279: 13,2617           77624                           CALL                                           
052456,000280: 13,2620           27410                                    INTSTALL                              
052457,000281: 13,2621           45014                           SET      CALL                                  
052458,000282: 13,2622           01076                                    NODOFLAG                              
052459,000283: 13,2623           26643                                    SETIFLGS                              
052460,000284: 13,2624           52014                           SET      GOTO                                  
052461,000285: 13,2625           01460                                    POOHFLAG                              
052462,000286: 13,2626           26026                                    STATEUP                               
052463,000287: 13,2627           00003 25140  600SECS            2DEC     60000      B-28                       
052464,000288: 
052465,000289: 13,2631           77414        ENDINT             CLEAR    EXIT                                  
052466,000290: 13,2632           01672                                    STATEFLG                              
052467,000291: 13,2633           05364                           TC       PHASCHNG                              
052468,000292: 13,2634           20032                           OCT      20032                                 
052469,000293: 13,2635           00006                           EXTEND                                         
052470,000294: 13,2636           32630                           DCA      600SECS                               
052471,000295: 13,2637           05310                           TC       LONGCALL                              
052472,000296: 13,2640  E3,1626                                  EBANK=   RRECTHIS                              
052473,000297: 13,2640           02602 26063                     2CADR    STATEINT                              
052474,000298: 
052475,000299: 13,2642           05155                           TC       ENDOFJOB                              
052476,000300: 13,2643           43014        SETIFLGS           SET      CLEAR                                 
052477,000301: 13,2644           01472                                    STATEFLG                              
052478,000302: 13,2645           01673                                    INTYPFLG                              
052479,000303: 13,2646           43014                           CLEAR    CLEAR                                 
052480,000304: 13,2647           01676                                    DIM0FLAG                              
052481,000305: 13,2650           01675                                    D6OR9FLG                              
052482,000306: 13,2651           77616                           RVQ                                            
052483,000307: 13,2652           77776        NOINT              EXIT                                           
052484,000308: 13,2653           05364                           TC       PHASCHNG                              
052485,000309: 13,2654           00002                           OCT      00002                                 
052486,000310: 
052487,000311: 13,2655           05527                           TC       DOWNFLAG                              
052488,000312: 13,2656           00221                           ADRES    QUITFLAG                              
052489,000313: 13,2657           05155                           TC       ENDOFJOB                              
052490,000314: 
052491,000315:                                                                                                  #  ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
052492,000316: 
052493,000317:                                                                                                  #  CALLING SEQUENCE
052494,000318:                                                                                                  #     L   CALL
052495,000319:                                                                                                  #     L+1       ATOPCSM
052496,000320: 
052497,000321:                                                                                                  #  NORMAL EXIT AT L+2
052498,000322: 
052499,000323: 13,2660           47020        ATOPCSM            STQ      RTB                                   
052500,000324: 13,2661           00051                                    S2                                    
052501,000325: 13,2662           26673                                    MOVEACSM                              
052502,000326: 13,2663           45014                           SET      CALL                                  
052503,000327: 13,2664           04063                                    CMOONFLG                              
052504,000328: 13,2665           26114                                    SVDWN1                                
052505,000329: 

Page 1201

052507,000331: 13,2666           43014                           BON      CLRGO                                 
052508,000332: 13,2667           00303                                    MOONFLAG                              
052509,000333: 13,2670           00051                                    S2                                    
052510,000334: 13,2671           04223                                    CMOONFLG                              
052511,000335: 13,2672           00051                                    S2                                    
052512,000336: 13,2673           03035        MOVEACSM           TC       SETBANK                               
052513,000337: 13,2674           55500                           TS       DIFEQCNT                              #  INITIALIZE INDEX
052514,000338: 13,2675           51500                           INDEX    DIFEQCNT                              
052515,000339: 13,2676           31502                           CA       RRECT                                 
052516,000340: 13,2677           51500                           INDEX    DIFEQCNT                              
052517,000341: 13,2700           55554                           TS       RRECTCSM                              
052518,000342: 13,2701           11500                           CCS      DIFEQCNT                              #  IS TRANSFER COMPLETE
052519,000343: 13,2702           12674                           TCF      MOVEACSM   +1                         #  NO-LOOP
052520,000344: 13,2703           06073                           TC       DANZIG                                #  COMPLETE- RETURN
052521,000345: 
052522,000346: 
052523,000347:                                                                                                  #  PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
052524,000348: 
052525,000349:                                                                                                  #  CALLING SEQUENCE
052526,000350:                                                                                                  #     L   CALL
052527,000351:                                                                                                  #              PTOACSM
052528,000352: 
052529,000353:                                                                                                  #  NORMAL EXIT AT L+2
052530,000354: 
052531,000355: 13,2704           43034        PTOACSM            RTB      BON                                   
052532,000356: 13,2705           26722                                    MOVEPCSM                              
052533,000357: 13,2706           04303                                    CMOONFLG                              
052534,000358: 13,2707           26715                                    SETMOON                               
052535,000359: 13,2710           66214        CLRMOON            CLEAR    SSP                                   
052536,000360: 13,2711           00263                                    MOONFLAG                              
052537,000361: 13,2712           02031                                    PBODY                                 
052538,000362: 13,2713           00000                                    0                                     
052539,000363: 13,2714           77616                           RVQ                                            
052540,000364: 13,2715           66214        SETMOON            SET      SSP                                   
052541,000365: 13,2716           00063                                    MOONFLAG                              
052542,000366: 13,2717           02031                                    PBODY                                 
052543,000367: 13,2720           00002                                    2                                     
052544,000368: 13,2721           77616                           RVQ                                            
052545,000369: 13,2722           03035        MOVEPCSM           TC       SETBANK                               
052546,000370: 13,2723           55500                           TS       DIFEQCNT                              
052547,000371: 13,2724           51500                           INDEX    DIFEQCNT                              
052548,000372: 13,2725           31554                           CA       RRECTCSM                              
052549,000373: 13,2726           51500                           INDEX    DIFEQCNT                              
052550,000374: 13,2727           55502                           TS       RRECT                                 
052551,000375: 13,2730           11500                           CCS      DIFEQCNT                              
052552,000376: 13,2731           12723                           TCF      MOVEPCSM   +1                         
052553,000377: 13,2732           06073                           TC       DANZIG                                
052554,000378: 
052555,000379: 
052556,000380:                                                                                                  #  ATOPLEM  TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
052557,000381: 

Page 1202

052559,000383: 13,2733           47020        ATOPLEM            STQ      RTB                                   
052560,000384: 13,2734           00051                                    S2                                    
052561,000385: 13,2735           26746                                    MOVEALEM                              
052562,000386: 13,2736           45014                           SET      CALL                                  
052563,000387: 13,2737           04064                                    LMOONFLG                              
052564,000388: 13,2740           26070                                    SVDWN2                                
052565,000389: 13,2741           43014                           BON      CLRGO                                 
052566,000390: 13,2742           00303                                    MOONFLAG                              
052567,000391: 13,2743           00051                                    S2                                    
052568,000392: 13,2744           04224                                    LMOONFLG                              
052569,000393: 13,2745           00051                                    S2                                    
052570,000394: 13,2746           03035        MOVEALEM           TC       SETBANK                               
052571,000395: 13,2747           55500                           TS       DIFEQCNT                              
052572,000396: 13,2750           51500                           INDEX    DIFEQCNT                              
052573,000397: 13,2751           31502                           CA       RRECT                                 
052574,000398: 13,2752           51500                           INDEX    DIFEQCNT                              
052575,000399: 13,2753           55626                           TS       RRECTLEM                              
052576,000400: 13,2754           11500                           CCS      DIFEQCNT                              
052577,000401: 13,2755           12747                           TCF      MOVEALEM   +1                         
052578,000402: 13,2756           06073                           TC       DANZIG                                
052579,000403: 
052580,000404: 
052581,000405:                                                                                                  #  PTOALEM  TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
052582,000406: 
052583,000407: 13,2757           47014        PTOALEM            BON      RTB                                   
052584,000408: 13,2760           04307                                    SURFFLAG                              
052585,000409: 13,2761           27000                                    USEPIOS                               
052586,000410: 13,2762           26767                                    MOVEPLEM                              
052587,000411: 13,2763           52014                           BON      GOTO                                  
052588,000412: 13,2764           04304                                    LMOONFLG                              
052589,000413: 13,2765           26715                                    SETMOON                               
052590,000414: 13,2766           26710                                    CLRMOON                               
052591,000415: 13,2767           03035        MOVEPLEM           TC       SETBANK                               
052592,000416: 13,2770           55500                           TS       DIFEQCNT                              
052593,000417: 13,2771           51500                           INDEX    DIFEQCNT                              
052594,000418: 13,2772           31626                           CA       RRECTLEM                              
052595,000419: 13,2773           51500                           INDEX    DIFEQCNT                              
052596,000420: 13,2774           55502                           TS       RRECT                                 
052597,000421: 13,2775           11500                           CCS      DIFEQCNT                              
052598,000422: 13,2776           12770                           TCF      MOVEPLEM   +1                         
052599,000423: 13,2777           06073                           TC       DANZIG                                
052600,000424: 
052601,000425: 
052602,000426: 13,3000           77201        USEPIOS            SETPD    VLOAD                                 
052603,000427: 13,3001           00001                                    0                                     
052604,000428: 13,3002           02021                                    RLS                                   
052605,000429: 13,3003           41525                           PDDL     PUSH                                  
052606,000430: 13,3004           00041                                    TDEC1                                 
052607,000431: 13,3005           15517                           STODL    TET                                   
052608,000432: 13,3006           27733                                    5/8                                   
052609,000433: 

Page 1203

052611,000435: 13,3007           77624                           CALL                                           
052612,000436: 13,3010           55720                                    RP-TO-R                               
052613,000437: 13,3011           25535                           STOVL    RCV                                   
052614,000438: 13,3012           24001                                    ZUNIT                                 
052615,000439: 13,3013           14001                           STODL    0D                                    
052616,000440: 13,3014           01517                                    TET                                   
052617,000441: 13,3015           14007                           STODL    6D                                    
052618,000442: 13,3016           27733                                    5/8                                   
052619,000443: 13,3017           45014                           SET      CALL                                  #  NEEDED FOR SETTING X1 ON EXIT
052620,000444: 13,3020           00063                                    MOONFLAG                              
052621,000445: 13,3021           55720                                    RP-TO-R                               
052622,000446: 13,3022           74235                           VXV      VXSC                                  
052623,000447: 13,3023           01535                                    RCV                                   
052624,000448: 13,3024           26001                                    OMEGMOON                              
052625,000449: 13,3025           25543                           STOVL    VCV                                   
052626,000450: 13,3026           24007                                    ZEROVEC                               
052627,000451: 13,3027           01521                           STORE    TDELTAV                               
052628,000452: 13,3030           67174                           AXT,2    SXA,2                                 
052629,000453: 13,3031           00002                                    2                                     
052630,000454: 13,3032           02030                                    PBODY                                 
052631,000455: 13,3033           35527                           STCALL   TNUV                                  
052632,000456: 13,3034           27156                                    A-PCHK                                
052633,000457: 13,3035           33041        SETBANK            CAF      INTBANK                               
052634,000458: 13,3036           54006                           TS       BBANK                                 
052635,000459: 13,3037           33446                           CAF      FORTYONE                              
052636,000460: 13,3040           00002                           TC       Q                                     
052637,000461: 13,3041  E3,1554                                  EBANK=   RRECTCSM                              
052638,000462: 13,3041           26063        INTBANK            BBCON    INTEGRV                               
052639,000463: 
052640,000464: 
052641,000465:                                                                                                  #  SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
052642,000466:                                                                                                  #  APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
052643,000467: 
052644,000468:                                                                                                  #  CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
052645,000469:                                                                                                  #  ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
052646,000470:                                                                                                  #  THE PERMANENT STATE VECTOR IS NOT UPDATED.
052647,000471:                                                                                                  #  CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
052648,000472:                                                                                                  #  NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
052649,000473:                                                                                                  #  STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
052650,000474: 
052651,000475:                                                                                                  #  THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
052652,000476:                                                                                                  #  SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
052653,000477:                                                                                                  #              CSMPREC  CSMCONIC   LEMPREC  LEMCONIC
052654,000478:                                                                                                  #  VINTFLAG     SET       SET       CLEAR    CLEAR
052655,000479:                                                                                                  #  INTYPFLG     CLEAR     SET       CLEAR    SET
052656,000480:                                                                                                  #  DIM0FLAG     CLEAR     CLEAR     CLEAR    CLEAR
052657,000481: 
052658,000482: 
052659,000483:                                                                                                  #  CALLING SEQUENCE
052660,000484:                                                                                                  #     L-X  STORE TDEC1

Page 1204

052662,000486:                                                                                                  #     L    CALL       (STCALL TDEC1)
052663,000487:                                                                                                  #     L+1         CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
052664,000488: 
052665,000489:                                                                                                  #   NORMAL EXIT TO L+2
052666,000490: 
052667,000491: 
052668,000492:                                                                                                  #  SUBROUTINES CALLED
052669,000493:                                                                                                  #    INTEGRV1
052670,000494:                                                                                                  #    PRECOUT FOR CSMPREC AND LEMPREC
052671,000495:                                                                                                  #    CONICOUT  FOR CSMCONIC AND LEMCONIC
052672,000496: 
052673,000497: 
052674,000498:                                                                                                  #  OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
052675,000499:                                                                                                  #  INPUT
052676,000500:                                                                                                  #   TDEC1   TIME TO INTEGRATE TO . CSECS B-28
052677,000501: 13,3042           45020        CSMPREC            STQ      CALL                                  
052678,000502: 13,3043           00046                                    X1                                    
052679,000503: 13,3044           27410                                    INTSTALL                              
052680,000504: 13,3045           43130                           SXA,1    SET                                   
052681,000505: 13,3046           02101                                    IRETURN                               
052682,000506: 13,3047           01474                                    VINTFLAG                              
052683,000507: 
052684,000508: 13,3050           43014        IFLAGP             SET      CLEAR                                 
052685,000509: 13,3051           01467                                    PRECIFLG                              
052686,000510: 13,3052           01676                                    DIM0FLAG                              
052687,000511: 13,3053           77614                           CLRGO                                          
052688,000512: 13,3054           01633                                    INTYPFLG                              
052689,000513: 13,3055           27135                                    INTEGRV1                              
052690,000514: 13,3056           45020        LEMPREC            STQ      CALL                                  
052691,000515: 13,3057           00046                                    X1                                    
052692,000516: 13,3060           27410                                    INTSTALL                              
052693,000517: 13,3061           43130                           SXA,1    CLRGO                                 
052694,000518: 13,3062           02101                                    IRETURN                               
052695,000519: 13,3063           01634                                    VINTFLAG                              
052696,000520: 13,3064           27050                                    IFLAGP                                
052697,000521: 
052698,000522: 13,3065           45020        CSMCONIC           STQ      CALL                                  
052699,000523: 13,3066           00046                                    X1                                    
052700,000524: 13,3067           27410                                    INTSTALL                              
052701,000525: 13,3070           43130                           SXA,1    SET                                   
052702,000526: 13,3071           02101                                    IRETURN                               
052703,000527: 13,3072           01474                                    VINTFLAG                              
052704,000528: 13,3073           43014        IFLAGC             CLEAR    SETGO                                 
052705,000529: 13,3074           01676                                    DIM0FLAG                              
052706,000530: 13,3075           01433                                    INTYPFLG                              
052707,000531: 13,3076           27135                                    INTEGRV1                              
052708,000532: 13,3077           45020        LEMCONIC           STQ      CALL                                  
052709,000533: 13,3100           00046                                    X1                                    
052710,000534: 13,3101           27410                                    INTSTALL                              
052711,000535: 13,3102           43130                           SXA,1    CLRGO                                 

Page 1205

052713,000537: 13,3103           02101                                    IRETURN                               
052714,000538: 13,3104           01634                                    VINTFLAG                              
052715,000539: 13,3105           27073                                    IFLAGC                                
052716,000540: 
052717,000541: 13,3106           66214        INTEGRVS           SET      SSP                                   
052718,000542: 13,3107           01467                                    PRECIFLG                              
052719,000543: 13,3110           02031                                    PBODY                                 
052720,000544: 13,3111           00000                                    0                                     
052721,000545: 13,3112           66214                           BOF      SSP                                   
052722,000546: 13,3113           00343                                    MOONFLAG                              
052723,000547: 13,3114           27117                                    +3                                    
052724,000548: 13,3115           02031                                    PBODY                                 
052725,000549: 13,3116           00002                                    2                                     
052726,000550: 13,3117           77220                           STQ      VLOAD                                 
052727,000551: 13,3120           02101                                    IRETURN                               
052728,000552: 13,3121           24007                                    ZEROVEC                               
052729,000553: 13,3122           01521                           STORE    TDELTAV                               
052730,000554: 13,3123           35527                           STCALL   TNUV                                  
052731,000555: 13,3124           27671                                    RECTIFY                               
052732,000556: 13,3125           43014                           CLEAR    SET                                   
052733,000557: 13,3126           01676                                    DIM0FLAG                              
052734,000558: 13,3127           04062                                    NEWIFLG                               
052735,000559: 13,3130           77614                           SETGO                                          
052736,000560: 13,3131           04020                                    RPQFLAG                               
052737,000561: 13,3132           27147                                    ALOADED                               
052738,000562:                                                                                                  #  INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER ,
052739,000563:                                                                                                  #  NORMALLY THE NAVIGATION PROGRAM ,TO SET THE INTEG. FLAGS. THE ROUTINE
052740,000564:                                                                                                  #  IS ENTERED AT INTEGRV1 BY CSMPREC ET.AL. AND AT ALOADED BY INTEGRVS.
052741,000565:                                                                                                  #  THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
052742,000566:                                                                                                  #  PROGRAM FOR PRECISION OR CONIC
052743,000567: 
052744,000568:                                                                                                  #  THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
052745,000569:                                                                                                  #  SETTING ANY FLAGS.
052746,000570:                                                                                                  #  THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
052747,000571:                                                                                                  #    VINTFLAG    (IGNORED WHEN ENTERED FROM INTEGRVS)
052748,000572:                                                                                                  #    INTYPFLG
052749,000573:                                                                                                  #    DIM0FLAG
052750,000574:                                                                                                  #    D6OR9FLG
052751,000575:                                                                                                  #  CALLING SEQUENCE
052752,000576:                                                                                                  #    L-X    CALL
052753,000577:                                                                                                  #    L-Y          INTSTALL
052754,000578:                                                                                                  #    L-1    SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
052755,000579:                                                                                                  #           AND DIM0FLAG IS CLEAR.
052756,000580:                                                                                                  #    L      CALL
052757,000581:                                                                                                  #    L+1          INTEGRV
052758,000582:                                                                                                  #  INITIALIZATION
052759,000583:                                                                                                  #    FLAGS AS ABOVE
052760,000584:                                                                                                  #    STORE TIME TO INTEGRATE TO IN TDEC1
052761,000585:                                                                                                  #  OUTPUT
052762,000586:                                                                                                  #    RATT   AS

Page 1206

052764,000588:                                                                                                  #    VATT       DEFINED
052765,000589:                                                                                                  #    TAT                BEFORE
052766,000590: 
052767,000591: 
052768,000592: 13,3133           77620        INTEGRV            STQ                                            
052769,000593: 13,3134           02101                                    IRETURN                               
052770,000594: 13,3135           43014        INTEGRV1           SET      SET                                   
052771,000595: 13,3136           04060                                    RPQFLAG                               
052772,000596: 13,3137           04062                                    NEWIFLG                               
052773,000597: 13,3140           77731        INTEGRV2           SSP                                            
052774,000598: 13,3141           00053                                    QPRET                                 
052775,000599: 13,3142           27147                                    ALOADED                               
052776,000600: 13,3143           52014                           BON      GOTO                                  
052777,000601: 13,3144           01714                                    VINTFLAG                              
052778,000602: 13,3145           26704                                    PTOACSM                               
052779,000603: 13,3146           26757                                    PTOALEM                               
052780,000604: 13,3147           77745        ALOADED            DLOAD                                          
052781,000605: 13,3150           00041                                    TDEC1                                 
052782,000606: 13,3151           01115                           STORE    TDEC                                  
052783,000607: 13,3152           52014                           BOFF     GOTO                                  
052784,000608: 13,3153           01753                                    INTYPFLG                              
052785,000609: 13,3154           27256                                    TESTLOOP                              
052786,000610: 13,3155           27242                                    RVCON                                 
052787,000611: 13,3156           77414        A-PCHK             BOF      EXIT                                  
052788,000612: 13,3157           01752                                    STATEFLG                              
052789,000613: 13,3160           27177                                    RECTOUT                               
052790,000614: 13,3161           05364                           TC       PHASCHNG                              
052791,000615: 13,3162           04022                           OCT      04022                                 
052792,000616: 13,3163           05515                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
052793,000617: 13,3164           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
052794,000618: 13,3165           06051                           TC       INTPRET                               
052795,000619: 13,3166           77731                           SSP                                            
052796,000620: 13,3167           00053                                    QPRET                                 
052797,000621: 13,3170           27175                                    PHEXIT                                
052798,000622: 13,3171           52014                           BON      GOTO                                  
052799,000623: 13,3172           01714                                    VINTFLAG                              
052800,000624: 13,3173           26660                                    ATOPCSM                               
052801,000625: 13,3174           26733                                    ATOPLEM                               
052802,000626: 13,3175           77624        PHEXIT             CALL                                           
052803,000627: 13,3176           11216                                    GRP2PC                                
052804,000628: 13,3177           45001        RECTOUT            SETPD    CALL                                  
052805,000629: 13,3200           00001                                    0                                     
052806,000630: 13,3201           27671                                    RECTIFY                               
052807,000631: 13,3202           53775                           VLOAD    VSL*                                  
052808,000632: 13,3203           01503                                    RRECT                                 
052809,000633: 13,3204           57576                                    0,2                                   
052810,000634: 13,3205           53715                           PDVL     VSL*                                  #  RATT TO PD0
052811,000635: 13,3206           01511                                    VRECT                                 
052812,000636: 13,3207           57576                                    0,2                                   
052813,000637: 13,3210           63325                           PDDL     PDVL                                  #  VATT TO PD6    TAT TO PD12

Page 1207

052815,000639: 13,3211           01517                                    TET                                   
052816,000640: 13,3212           01503                                    RRECT                                 
052817,000641: 13,3213           64715                           PDVL     PDDL*                                 
052818,000642: 13,3214           01511                                    VRECT                                 
052819,000643: 13,3215           51770                                    MUEARTH,2                             
052820,000644: 13,3216           76006                           PUSH     AXT,1                                 
052821,000645: 13,3217           77765                           DEC      -10        B-14                       
052822,000646: 13,3220           76014                           BON      AXT,1                                 
052823,000647: 13,3221           00303                                    MOONFLAG                              
052824,000648: 13,3222           27224                                    +2                                    
052825,000649: 13,3223           77775                           DEC      -2         B-14                       
052826,000650: 13,3224           40001        INTEXIT            SETPD    BOV                                   
052827,000651: 13,3225           00001                                    0                                     
052828,000652: 13,3226           27227                                    +1                                    
052829,000653: 13,3227           43014                           CLEAR    CLEAR                                 
052830,000654: 13,3230           04676                                    AVEMIDSW                              #  ALLOW UPDATE OF DOWNLINK STATE VECTOR
052831,000655: 13,3231           01667                                    PRECIFLG                              
052832,000656: 13,3232           77614                           CLEAR                                          
052833,000657: 13,3233           01672                                    STATEFLG                              
052834,000658: 13,3234           77535                           SLOAD    EXIT                                  
052835,000659: 13,3235           02102                                    IRETURN                               
052836,000660: 13,3236           30154                           CA       MPAC                                  
052837,000661: 13,3237           50120                           INDEX    FIXLOC                                
052838,000662: 13,3240           54052                           TS       QPRET                                 
052839,000663: 13,3241           03421                           TC       INTWAKE                               
052840,000664:                                                                                                  #  RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
052841,000665:                                                                                                  #  VELOCITY FOR THE INTERVAL (TET-TDEC)
052842,000666: 
052843,000667: 13,3242           45345        RVCON              DLOAD    DSU                                   
052844,000668: 13,3243           01115                                    TDEC                                  
052845,000669: 13,3244           01517                                    TET                                   
052846,000670: 13,3245           36074                           STCALL   TAU.                                  
052847,000671: 13,3246           27671                                    RECTIFY                               
052848,000672: 13,3247           77624                           CALL                                           
052849,000673: 13,3250           22366                                    KEPPREP                               
052850,000674: 13,3251           43345                           DLOAD    DAD                                   
052851,000675: 13,3252           01551                                    TC                                    
052852,000676: 13,3253           01517                                    TET                                   
052853,000677: 13,3254           35517                           STCALL   TET                                   
052854,000678: 13,3255           27177                                    RECTOUT                               
052855,000679: 

Page 1208

052857,000681:                                                                                                  #  TESTLOOP
052858,000682: 
052859,000683: 13,3256           43014        TESTLOOP           BOF      CLRGO                                 
052860,000684: 13,3257           04752                                    QUITFLAG                              
052861,000685: 13,3260           27263                                    +3                                    
052862,000686: 13,3261           01632                                    STATEFLG                              
052863,000687: 13,3262           27224                                    INTEXIT                               #  STOP INTEGRATION
052864,000688: 13,3263           73001                 +3        SETPD    LXA,2                                 
052865,000689: 13,3264           00013                                    10D                                   
052866,000690: 13,3265           02030                                    PBODY                                 
052867,000691: 13,3266           51575                           VLOAD    ABVAL                                 
052868,000692: 13,3267           01535                                    RCV                                   
052869,000693: 13,3270           43006                           PUSH     CLEAR                                 #  RC TO 10D
052870,000694: 13,3271           00262                                    MIDFLAG                               
052871,000695: 13,3272           50023                           DSU*     BMN                                   #  MIDFLAG=0 IF R G.T. RMP
052872,000696: 13,3273           53755                                    RME,2                                 
052873,000697: 13,3274           27277                                    +3                                    
052874,000698: 13,3275           77614                           SET                                            
052875,000699: 13,3276           00062                                    MIDFLAG                               
052876,000700: 13,3277           41345        NORFINAL           DLOAD    DMP                                   
052877,000701: 13,3300           00013                                    10D                                   
052878,000702: 13,3301           00043                                    34D                                   
052879,000703: 13,3302           55762                           SR1R     DDV*                                  
052880,000704: 13,3303           51770                                    MUEARTH,2                             
052881,000705: 13,3304           41366                           SQRT     DMP                                   
052882,000706: 13,3305           25762                                    .3D                                   
052883,000707: 13,3306           40442                           SR3      SR4                                   #  DT    IS TRUNCATED TO A MULTIPLE
052884,000708: 13,3307           54345                           DLOAD    SL                                    
052885,000709: 13,3310           00155                                    MPAC                                  
052886,000710: 13,3311           20220                                    15D                                   #         OF 128 CSECS.
052887,000711: 13,3312           40006                           PUSH     BOV                                   
052888,000712: 13,3313           27340                                    MAXDT                                 
052889,000713: 13,3314           50021                           BDSU     BMN                                   
052890,000714: 13,3315           27407                                    DT/2MAX                               
052891,000715: 13,3316           27340                                    MAXDT                                 
052892,000716: 13,3317           45345        DT/2COMP           DLOAD    DSU                                   
052893,000717: 13,3320           01115                                    TDEC                                  
052894,000718: 13,3321           01517                                    TET                                   
052895,000719: 13,3322           54234                           RTB      SL                                    
052896,000720: 13,3323           21574                                    SGNAGREE                              
052897,000721: 13,3324           20211                                    8D                                    
052898,000722: 13,3325           02076                           STORE    DT/2                                  #  B-19
052899,000723: 13,3326           51400                           BOV      ABS                                   
052900,000724: 13,3327           27344                                    GETMAXDT                              
052901,000725: 13,3330           50025                           DSU      BMN                                   #  IS TIME TO INTEG. TO GR THAN MAXTIME
052902,000726: 13,3331           00015                                    12D                                   
052903,000727: 13,3332           27350                                    P00HCHK                               
052904,000728: 13,3333           75345        USEMAXDT           DLOAD    SIGN                                  
052905,000729: 13,3334           00015                                    12D                                   
052906,000730: 13,3335           02076                                    DT/2                                  

Page 1209

052908,000732: 13,3336           36076                           STCALL   DT/2                                  
052909,000733: 13,3337           27350                                    P00HCHK                               
052910,000734: 13,3340           65345        MAXDT              DLOAD    PDDL                                  #  EXCHANGE DT/2MAX WITH COMPUTED MAX.
052911,000735: 13,3341           27407                                    DT/2MAX                               
052912,000736: 13,3342           77650                           GOTO                                           
052913,000737: 13,3343           27317                                    DT/2COMP                              
052914,000738: 13,3344           77634        GETMAXDT           RTB                                            
052915,000739: 13,3345           21674                                    SIGNMPAC                              
052916,000740: 13,3346           36076                           STCALL   DT/2                                  
052917,000741: 13,3347           27333                                    USEMAXDT                              
052918,000742: 13,3350           51545        P00HCHK            DLOAD    ABS                                   
052919,000743: 13,3351           02076                                    DT/2                                  
052920,000744: 13,3352           50025                           DSU      BMN                                   
052921,000745: 13,3353           27405                                    DT/2MIN                               
052922,000746: 13,3354           27156                                    A-PCHK                                
052923,000747: 13,3355           43014                           BOFF     BON                                   #  NO BACKWARDS INTEGRATION
052924,000748: 13,3356           01740                                    POOHFLAG                              #  WHEN IN POO
052925,000749: 13,3357           23272                                    TIMESTEP                              
052926,000750: 13,3360           01707                                    PRECIFLG                              
052927,000751: 13,3361           23272                                    TIMESTEP                              
052928,000752: 13,3362           45345                           DLOAD    DSU                                   
052929,000753: 13,3363           02076                                    DT/2                                  
052930,000754: 13,3364           00015                                    12D                                   
052931,000755: 13,3365           43040                           BMN      BOFCLR                                
052932,000756: 13,3366           27156                                    A-PCHK                                
052933,000757: 13,3367           04242                                    NEWIFLG                               
052934,000758: 13,3370           23272                                    TIMESTEP                              
052935,000759: 13,3371           45345                           DLOAD    DSU                                   
052936,000760: 13,3372           01115                                    TDEC                                  
052937,000761: 13,3373           01517                                    TET                                   
052938,000762: 13,3374           77640                           BMN                                            #  NO BACKWARD INTEGRATION
052939,000763: 13,3375           27224                                    INTEXIT                               
052940,000764: 13,3376           40525                           PDDL     SR4                                   
052941,000765: 13,3377           02076                                    DT/2                                  #  IS 4(DT) LS(TDEC - TET)
052942,000766: 13,3400           44322                           SR2R     BDSU                                  #  NO
052943,000767: 13,3401           52040                           BMN      GOTO                                  
052944,000768: 13,3402           27224                                    INTEXIT                               
052945,000769: 13,3403           23272                                    TIMESTEP                              
052946,000770: 13,3404           00000 01400  DT/2MIN            2DEC     3          B-20                       
052947,000771: 
052948,000772: 13,3406           14152 00000  DT/2MAX            2DEC     4000       E2         B-20            
052949,000773: 
052950,000774: 13,3410           77776        INTSTALL           EXIT                                           
052951,000775: 13,3411           30106                           CA       RASFLAG                               
052952,000776: 13,3412           73462                           MASK     INTBITAB                              #  IS THIS STALL AREA FREE
052953,000777: 13,3413           00006                           EXTEND                                         
052954,000778: 13,3414           13454                           BZF      OKTOGRAB                              #  YES
052955,000779: 13,3415           33461                           CAF      WAKESTAL                              
052956,000780: 13,3416           05133                           TC       JOBSLEEP                              
052957,000781: 13,3417           77776        INTWAKE0           EXIT                                           

Page 1210

052959,000783: 13,3420           13441                           TCF      INTWAKE1                              
052960,000784: 
052961,000785: 13,3421           40106        INTWAKE            CS       RASFLAG                               #  IS THIS INTSTALLED ROUTINE TO BE
052962,000786: 13,3422           74745                           MASK     REINTBIT                              #       RESTARTED
052963,000787: 13,3423           10000                           CCS      A                                     
052964,000788: 13,3424           03441                           TC       INTWAKE1                              #  NO
052965,000789: 
052966,000790: 13,3425           50120                           INDEX    FIXLOC                                
052967,000791: 13,3426           30052                           CA       QPRET                                 
052968,000792: 13,3427           55054                           TS       TBASE2                                #  YES, DONT RESTART WITH SOMEONE ELSES Q
052969,000793: 
052970,000794: 13,3430           05364                           TC       PHASCHNG                              
052971,000795: 13,3431           04022                           OCT      04022                                 
052972,000796: 
052973,000797: 13,3432           31054                           CA       TBASE2                                
052974,000798: 13,3433           50120                           INDEX    FIXLOC                                
052975,000799: 13,3434           54052                           TS       QPRET                                 
052976,000800: 
052977,000801: 13,3435           34745                           CAF      REINTBIT                              
052978,000802: 13,3436           70106                           MASK     RASFLAG                               
052979,000803: 13,3437           00006                           EXTEND                                         
052980,000804: 13,3440           13457                           BZF      GOBAC                                 #  DONT INTWAKE IF WE CAME HERE VIA RESTART
052981,000805: 
052982,000806: 13,3441           33461        INTWAKE1           CAF      WAKESTAL                              
052983,000807: 13,3442           00004                           INHINT                                         
052984,000808: 13,3443           05137                           TC       JOBWAKE                               
052985,000809: 13,3444           10064                           CCS      LOCCTR                                
052986,000810: 13,3445           13441                           TCF      INTWAKE1                              
052987,000811: 13,3446           00051        FORTYONE           DEC      41         B-14                       
052988,000812: 13,3447           43462                           CS       INTBITAB                              
052989,000813: 13,3450           70106                           MASK     RASFLAG                               
052990,000814: 13,3451           54106                           TS       RASFLAG                               #  RELEASE STALL AREA
052991,000815: 13,3452           00003                           RELINT                                         
052992,000816: 13,3453           13457                           TCF      GOBAC                                 
052993,000817: 13,3454           34736        OKTOGRAB           CAF      INTFLBIT                              
052994,000818: 13,3455           00004                           INHINT                                         
052995,000819: 13,3456           26106                           ADS      RASFLAG                               
052996,000820: 13,3457           06051        GOBAC              TC       INTPRET                               
052997,000821: 13,3460           77616                           RVQ                                            
052998,000822: 13,3461           27411        WAKESTAL           CADR     INTSTALL   +1                         
052999,000823: 13,3462           20100        INTBITAB           OCT      20100                                 
053000,000824: 

Page 1211

053002,000826:                                                                                                  #  AVETOMID
053003,000827: 
053004,000828:                                                                                                  #  THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
053005,000829:                                                                                                  #  PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
053006,000830:                                                                                                  #  VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
053007,000831: 
053008,000832:                                                                                                  #  BEFORE THIS IS DONE THE W-MATRIX, IF ITS  VALID (ORWFLAG OR RENDWFLG IS
053009,000833:                                                                                                  #  SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
053010,000834: 
053011,000835:                                                                                                  #  IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
053012,000836: 
053013,000837:                                                                                                  #  FINALLY TRKMKCNT IS ZEROED
053014,000838: 
053015,000839: 
053016,000840: 13,2000                                           SETLOC   INTINIT                               
053017,000841: 13,2000                                           BANK                                           
053018,000842: 
053019,000843: 13,3463                                           COUNT*   $$/INTIN                              
053020,000844: 13,3463           43020        AVETOMID           STQ      BON                                   
053021,000845: 13,3464           02767                                    EGRESS                                
053022,000846: 13,3465           02716                                    RENDWFLG                              
053023,000847: 13,3466           27532                                    INT/W                                 #  W-MATRIX VALID ,GO INTEGRATE IT
053024,000848: 13,3467           77614                           BON                                            
053025,000849: 13,3470           01711                                    ORBWFLAG                              
053026,000850: 13,3471           27532                                    INT/W                                 #  W-MATRIX VALID ,GO INTEGRATE IT
053027,000851: 
053028,000852: 13,3472           45145        OTHERS             DLOAD    CALL                                  #  GET SET FOR OTHER VEHICLE INTEGRATION
053029,000853: 13,3473           01234                                    PIPTIME                               #  DESIRED TIME
053030,000854: 13,3474           27410                                    INTSTALL                              
053031,000855: 13,3475           45014                           SET      CALL                                  
053032,000856: 13,3476           01474                                    VINTFLAG                              #  CM
053033,000857: 13,3477           26643                                    SETIFLGS                              #  SETS UP NONE W-MAT. PERMANENT INTEG.
053034,000858: 13,3500           34041                           STCALL   TDEC1                                 
053035,000859: 13,3501           27133                                    INTEGRV                               
053036,000860: 
053037,000861: 13,3502           45174                           AXT,2    CALL                                  #  NOW MOVE PROPERLY SCALE RN,UN AS WELL AS
053038,000862: 13,3503           00002                                    2                                     #  PIPTIME TO INTEGRATION ERASABLES.
053039,000863: 13,3504           27410                                    INTSTALL                              
053040,000864: 13,3505           77014                           BON      AXT,2                                 
053041,000865: 13,3506           04304                                    MOONTHIS                              
053042,000866: 13,3507           27511                                    +2                                    
053043,000867: 13,3510           00000                                    0                                     
053044,000868: 13,3511           53775                           VLOAD    VSR*                                  
053045,000869: 13,3512           01220                                    RN                                    
053046,000870: 13,3513           57176                                    0,2                                   
053047,000871: 13,3514           01503                           STORE    RRECT                                 
053048,000872: 13,3515           15535                           STODL    RCV                                   
053049,000873: 13,3516           01234                                    PIPTIME                               
053050,000874: 13,3517           25517                           STOVL    TET                                   
053051,000875: 13,3520           01226                                    VN                                    

Page 1212

053053,000877: 13,3521           45057                           VSR*     CALL                                  
053054,000878: 13,3522           57176                                    0,2                                   
053055,000879: 13,3523           27705                                    MINIRECT                              #  FINISH SETTING UP STATE VECTOR
053056,000880: 13,3524           66234                           RTB      SSP                                   
053057,000881: 13,3525           26746                                    MOVATHIS                              #  PUT TEMP STATE VECTOR INTO PERMANENT
053058,000882: 13,3526           03463                                    TRKMKCNT                              
053059,000883: 13,3527           00000                                    0                                     
053060,000884: 13,3530           77650                           GOTO                                           
053061,000885: 13,3531           47224                                    FAZAB5                                
053062,000886: 
053063,000887: 13,3532           45145        INT/W              DLOAD    CALL                                  
053064,000888: 13,3533           01234                                    PIPTIME                               #  INTEGRATE W THRU BURN
053065,000889: 13,3534           27410                                    INTSTALL                              
053066,000890: 13,3535           43014                           SET      SET                                   
053067,000891: 13,3536           01476                                    DIM0FLAG                              #  DO W-MATRIX
053068,000892: 13,3537           04476                                    AVEMIDSW                              #  SO WONT CLOBBER RN,VN,PIPTIME
053069,000893: 13,3540           43014                           SET      CLEAR                                 
053070,000894: 13,3541           01475                                    D6OR9FLG                              #  9X9 FOR LM
053071,000895: 13,3542           01674                                    VINTFLAG                              #  LM
053072,000896: 13,3543           34041                           STCALL   TDEC1                                 
053073,000897: 13,3544           27133                                    INTEGRV                               
053074,000898: 13,3545           77650                           GOTO                                           
053075,000899: 13,3546           27472                                    OTHERS                                #  NOW GO DO THE OTHER VEHICLE
053076,000900: 

Page 1213

053078,000902:                                                                                                  #  MIDTOAV1
053079,000903: 
053080,000904:                                                                                                  #  THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
053081,000905:                                                                                                  #  IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
053082,000906:                                                                                                  #  TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
053083,000907:                                                                                                  #  IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
053084,000908:                                                                                                  #  IS DONE TO THE CURRENT TIME.
053085,000909:                                                                                                  #  RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
053086,000910: 
053087,000911:                                                                                                  #  IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
053088,000912:                                                                                                  #  TO THE RETURN ADDRESS
053089,000913: 
053090,000914:                                                                                                  #  IN EITHER CASE , BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
053091,000915:                                                                                                  #  FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
053092,000916:                                                                                                  #  TION TIME AND MPAC IS SET TO THE DELTA TIME---
053093,000917:                                                                                                  #                                    TAT MINUS CURRENT TIME.
053094,000918: 
053095,000919: 
053096,000920:                                                                                                  #  MIDTOAV2
053097,000921: 
053098,000922:                                                                                                  #  THIS ROUTINE INTEGRATES THIS VEHICLES STATE VECTOR TO THE CURRENT TIME.
053099,000923:                                                                                                  #  NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
053100,000924:                                                                                                  #  ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
053101,000925: 
053102,000926: 13,3547  E7,1744                                  EBANK=   IRETURN1                              
053103,000927: 13,3547           43020        MIDTOAV2           STQ      CLRGO                                 #  INTEGRATE TO PRESENT TIME PLUS TIMEDELT
053104,000928: 13,3550           03744                                    IRETURN1                              
053105,000929: 13,3551           04634                                    MID1FLAG                              
053106,000930: 13,3552           27566                                    ENTMID2                               
053107,000931: 
053108,000932: 13,3553           43020        MIDTOAV1           STQ      SET                                   #   INTEGRATE TO TDEC1
053109,000933: 13,3554           03744                                    IRETURN1                              
053110,000934: 13,3555           04474                                    MID1FLAG                              
053111,000935: 13,3556           43234                           RTB      DAD                                   #  INITIAL CHECK, IS TDEC1 IN THE FUTURE
053112,000936: 13,3557           21555                                    LOADTIME                              
053113,000937: 13,3560           27670                                    TIMEDELT                              
053114,000938: 13,3561           51021                           BDSU     BPL                                   
053115,000939: 13,3562           00041                                    TDEC1                                 
053116,000940: 13,3563           27572                                    ENTMID1                               #   Y5S
053117,000941: 13,3564           77624                           CALL                                           
053118,000942: 13,3565           27656                                    NOTIME                                #  NO, SET ALARM, SWITCH TO MIDTOAV2
053119,000943: 
053120,000944: 13,3566           43234        ENTMID2            RTB      DAD                                   
053121,000945: 13,3567           21555                                    LOADTIME                              
053122,000946: 13,3570           27670                                    TIMEDELT                              
053123,000947: 13,3571           00041                           STORE    TDEC1                                 
053124,000948: 
053125,000949: 13,3572           77624        ENTMID1            CALL                                           
053126,000950: 13,3573           27410                                    INTSTALL                              
053127,000951: 13,3574           45014                           CLEAR    CALL                                  

Page 1214

053129,000953: 13,3575           01676                                    DIM0FLAG                              #  NO W-MATRIX
053130,000954: 13,3576           26066                                    THISVINT                              
053131,000955: 13,3577           43014                           CLEAR    SET                                   
053132,000956: 13,3600           01673                                    INTYPFLG                              
053133,000957: 13,3601           04475                                    MIDAVFLG                              #  LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
053134,000958: 13,3602           77624                           CALL                                           
053135,000959: 13,3603           27133                                    INTEGRV                               #   GO INTEGRATE
053136,000960: 13,3604           77214                           CLEAR    VLOAD                                 
053137,000961: 13,3605           04675                                    MIDAVFLG                              
053138,000962: 13,3606           00001                                    RATT                                  
053139,000963: 13,3607           27543                           STOVL    RN1                                   
053140,000964: 13,3610           00007                                    VATT                                  
053141,000965: 13,3611           17551                           STODL    VN1                                   
053142,000966: 13,3612           00015                                    TAT                                   
053143,000967: 13,3613           03557                           STORE    PIPTIME1                              
053144,000968: 13,3614           66134                           SXA,2    SXA,1                                 
053145,000969: 13,3615           02777                                    RTX2                                  
053146,000970: 13,3616           02776                                    RTX1                                  
053147,000971: 13,3617           77776                           EXIT                                           
053148,000972: 
053149,000973: 13,3620           00004                           INHINT                                         
053150,000974: 13,3621           00006                           EXTEND                                         
053151,000975: 13,3622           40025                           DCS      TIME2                                 
053152,000976: 13,3623           20155                           DAS      MPAC                                  
053153,000977: 13,3624           07271                           TC       TPAGREE                               
053154,000978: 
053155,000979: 13,3625           31744                           CA       IRETURN1                              
053156,000980: 13,3626           04640                           TC       BANKJUMP                              
053157,000981: 13,3627           47014        CKMID2             BOF      RTB                                   
053158,000982: 13,3630           04754                                    MID1FLAG                              
053159,000983: 13,3631           27646                                    MID2                                  
053160,000984: 13,3632           21555                                    LOADTIME                              
053161,000985: 13,3633           44215                           DAD      BDSU                                  
053162,000986: 13,3634           27670                                    TIMEDELT                              
053163,000987: 13,3635           01115                                    TDEC                                  
053164,000988: 13,3636           45044                           BPL      CALL                                  
053165,000989: 13,3637           27256                                    TESTLOOP                              #  YES
053166,000990: 13,3640           27656                                    NOTIME                                
053167,000991: 
053168,000992: 13,3641           43234        TIMEINC            RTB      DAD                                   
053169,000993: 13,3642           21555                                    LOADTIME                              
053170,000994: 13,3643           27670                                    TIMEDELT                              
053171,000995: 13,3644           35115                           STCALL   TDEC                                  
053172,000996: 13,3645           27256                                    TESTLOOP                              
053173,000997: 
053174,000998: 13,3646           45345        MID2               DLOAD    DSU                                   
053175,000999: 13,3647           01115                                    TDEC                                  
053176,001000: 13,3650           01517                                    TET                                   
053177,001001: 13,3651           45246                           ABS      DSU                                   
053178,001002: 13,3652           27666                                    3CSECS                                

Page 1215

053180,001004: 13,3653           52040                           BMN      GOTO                                  
053181,001005: 13,3654           27156                                    A-PCHK                                
053182,001006: 13,3655           27641                                    TIMEINC                               
053183,001007: 
053184,001008: 13,3656           77414        NOTIME             CLEAR    EXIT                                  #  TOO LATE
053185,001009: 13,3657           04674                                    MID1FLAG                              
053186,001010: 13,3660           25744                           INCR     IRETURN1                              #  SET ERROR EXIT  (CALLOC +2)
053187,001011: 13,3661           05600                           TC       ALARM                                 #  INSUFFICIENT TIME FOR INTEGRATION --
053188,001012: 13,3662           01703                           OCT      1703                                  #     TIG WILL BE SLIPPED...
053189,001013: 13,3663           06051                           TC       INTPRET                               
053190,001014: 13,3664           77616                           RVQ                                            
053191,001015: 
053192,001016: 13,3665           00000 00003  3CSECS             2DEC     3          B-28                       
053193,001017: 
053194,001018: 13,3667           00000 03720  TIMEDELT           2DEC     2000       B-28                       
053195,001019: 
053196,001020: 27,3342                                           BANK     27                                    
053197,001021: 04,2000                                           SETLOC   UPDATE2                               
053198,001022: 04,2000                                           BANK                                           
053199,001023: 04,3137  E3,1706                                  EBANK=   TEPHEM                                
053200,001024: 04,3137                                           COUNT*   $$/INTIN                              
053201,001025: 
053202,001026: 04,3137           06051        INTWAKEU           TC       INTPRET                               
053203,001027: 
053204,001028: 04,3140           53135                           SLOAD    BZE                                   #  IS THIS A CSM/LEM STATE VECTOR UPDATE
053205,001029: 04,3141           01502                                    UPSVFLAG                              #  REQUEST. IF NOT GO TO INTWAKUP.
053206,001030: 04,3142           11206                                    INTWAKUP                              
053207,001031: 
053208,001032: 04,3143           77775                           VLOAD                                          #  MOVE RRECT(6) AND VRECT(6) INTO
053209,001033: 04,3144           01503                                    RRECT                                 #       RCV(6)   AND VCV(6)   RESPECTIVELY.
053210,001034: 04,3145           25535                           STOVL    RCV                                   
053211,001035: 04,3146           01511                                    VRECT                                 #  NOW GO TO 'RECTIFY +13D' TO
053212,001036: 04,3147           77624                           CALL                                           #  STORE VRECT INTO VCV  AND ZERO OUT
053213,001037: 04,3150           27706                                    RECTIFY    +13D                       #  TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
053214,001038: 04,3151           51535                           SLOAD    ABS                                   #  COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
053215,001039: 04,3152           01502                                    UPSVFLAG                              #  TO 'UPDATE MOON STATE VECTOR CODE'
053216,001040: 04,3153           53025                           DSU      BZE                                   #  TO DETERMINE WHETHER THE STATE VECTOR TO
053217,001041: 04,3154           11215                                    UPMNSVCD                              #  BE UPDATED IS IN THE EARTH OR LUNAR
053218,001042: 04,3155           11162                                    INTWAKEM                              #  SPHERE OF INFLUENCE.........
053219,001043: 04,3156           43174                           AXT,2    CLRGO                                 #  EARTH SPHERE OF INFLUENCE.
053220,001044: 04,3157           00000                           DEC      0          B-14                       
053221,001045: 04,3160           00223                                    MOONFLAG                              
053222,001046: 04,3161           11165                                    INTWAKEC                              
053223,001047: 04,3162           43174        INTWAKEM           AXT,2    SET                                   #  LUNAR SPHERE OF INFLUENCE.
053224,001048: 04,3163           00002                           DEC      2          B-14                       
053225,001049: 04,3164           00063                                    MOONFLAG                              
053226,001050: 04,3165           50135        INTWAKEC           SLOAD    BMN                                   #  COMMON CODING AFTER X2 INITIALIZED AND
053227,001051:                                                                                                  #  MOONFLAG SET(OR CLEARED).
053228,001052: 04,3166           01502                                    UPSVFLAG                              #  IS THIS A REQUEST FOR A LEM OR CSM
053229,001053: 04,3167           11175                                    INTWAKLM                              #   STATE VECTOR UPDATE......

Page 1216

053231,001055: 04,3170           77624                           CALL                                           #  UPDATE CSM STATE VECTOR
053232,001056: 04,3171           26660                                    ATOPCSM                               
053233,001057: 
053234,001058: 04,3172           52014                           CLEAR    GOTO                                  
053235,001059: 04,3173           01671                                    ORBWFLAG                              
053236,001060: 04,3174           11177                                    INTWAKEX                              
053237,001061: 
053238,001062: 04,3175           77624        INTWAKLM           CALL                                           #  UPDATE LM STATE VECTOR
053239,001063: 04,3176           26733                                    ATOPLEM                               
053240,001064: 
053241,001065: 04,3177           77414        INTWAKEX           CLEAR    EXIT                                  
053242,001066: 04,3200           02676                                    RENDWFLG                              
053243,001067: 
053244,001068: 04,3201           34755                           CAF      ZERO                                  
053245,001069: 04,3202           00006                           EXTEND                                         
053246,001070: 04,3203           01077                           WRITE    CHAN77                                #  ZERO CHANNEL 77
053247,001071: 04,3204  E3,1501                                  EBANK=   UPSVFLAG                              
053248,001072: 04,3204           55501                           TS       UPSVFLAG                              
053249,001073: 
053250,001074: 04,3205           06051                           TC       INTPRET                               
053251,001075: 04,3206           77624        INTWAKUP           CALL                                           
053252,001076: 04,3207           27417                                    INTWAKE0                              #  RELEASE :GRAB: OF ORBIT INTEG
053253,001077: 04,3210           77776                           EXIT                                           
053254,001078: 
053255,001079: 04,3211           05364                           TC       PHASCHNG                              
053256,001080: 04,3212           04026                           OCT      04026                                 
053257,001081: 04,3213           03716                           TC       UPOUT      +1                         
053258,001082: 
053259,001083: 04,3214           00002        UPMNSVCD           OCT      2                                     
053260,001084: 04,3215           00000                           OCT      0                                     
053261,001085: 
053262,001086: 
053263,001087: 04,3216           77420        GRP2PC             STQ      EXIT                                  
053264,001088: 04,3217           02711                                    GRP2SVQ                               
053265,001089: 04,3220           05364                           TC       PHASCHNG                              
053266,001090: 04,3221           04022                           OCT      04022                                 
053267,001091: 04,3222           06051                           TC       INTPRET                               
053268,001092: 04,3223           77650                           GOTO                                           
053269,001093: 04,3224           02711                                    GRP2SVQ                               

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