Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

056951,000002:                                                                                                  ## Copyright:   Public domain.
056952,000003:                                                                                                  ## Filename:    INTEGRATION_INITIALIZATION.agc
056953,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus 2A, AKA Comanche 055.
056954,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
056955,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 11.
056956,000007:                                                                                                  ## Assembler:   yaYUL
056957,000008:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
056958,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo.
056959,000010:                                                                                                  ## Pages:       1309-1333
056960,000011:                                                                                                  ## Mod history: 2009-05-15 RSB  Adapted from the Colossus249/ file of the
056961,000012:                                                                                                  ##                              same name, using Comanche055 page images.
056962,000013:                                                                                                  ##              2009-05-20 RSB  Corrections:  fixed an interpreter instruction,
056963,000014:                                                                                                  ##                              fixed a SETLOC.
056964,000015:                                                                                                  ##              2009-05-23 RSB  In SETCOAST, corrected MOONTHIS to AMOONFLG.
056965,000016:                                                                                                  ##              2010-08-29 JL   Fixed indentation.
056966,000017:                                                                                                  ##              2016-12-22 RSB  Proofed comment text using octopus/ProoferComments
056967,000018:                                                                                                  ##                              and corrected the errors found.
056968,000019:                                                                                                  ##              2017-01-14 RSB  Fixed comment-text errors located by diff'ing 
056969,000020:                                                                                                  ##                              against Colossus 249.
056970,000021:                                                                                                  ##              2017-02-05 RSB  Back-ported a pair of comment corrections 
056971,000022:                                                                                                  ##                              identified while proofing Artemis 072.
056972,000023:                                                                                                  ##              2017-08-19 MAS  Fixed comment errors found transcribing Zerlina 56.
056973,000024:                                                                                                  ##
056974,000025:                                                                                                  ## This source code has been transcribed or otherwise adapted from digitized
056975,000026:                                                                                                  ## images of a hardcopy from the MIT Museum.  The digitization was performed
056976,000027:                                                                                                  ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum.  Many
056977,000028:                                                                                                  ## thanks to both.  The images (with suitable reduction in storage size and
056978,000029:                                                                                                  ## consequent reduction in image quality as well) are available online at
056979,000030:                                                                                                  ## www.ibiblio.org/apollo.  If for some reason you find that the images are
056980,000031:                                                                                                  ## illegible, contact me at info@sandroid.org about getting access to the 
056981,000032:                                                                                                  ## (much) higher-quality images which Paul actually created.
056982,000033:                                                                                                  ##
056983,000034:                                                                                                  ## Notations on the hardcopy document read, in part:
056984,000035:                                                                                                  ##
056985,000036:                                                                                                  ##      Assemble revision 055 of AGC program Comanche by NASA
056986,000037:                                                                                                  ##      2021113-051.  10:28 APR. 1, 1969  
056987,000038:                                                                                                  ##
056988,000039:                                                                                                  ##      This AGC program shall also be referred to as
056989,000040:                                                                                                  ##                      Colossus 2A
056990,000041: 

Page 1309

056992,000043:                                                                                                  #  1.0 INTRODUCTION
056993,000044:                                                                                                  #  ----------------
056994,000045: 
056995,000046:                                                                                                  #  FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
056996,000047:                                                                                                  #  PROGRAM.  THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
056997,000048:                                                                                                  #  OUTPUT WILL STILL BE VIA THE PUSHLIST.  THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
056998,000049:                                                                                                  #  TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
056999,000050:                                                                                                  #  SIDE THE LUNAR SPHERE OF INFLUENCE.
057000,000051: 
057001,000052:                                                                                                  #  IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
057002,000053:                                                                                                  #  WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
057003,000054:                                                                                                  #  INTEGRATION.  THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
057004,000055:                                                                                                  #  CALL TC INTSTALL.
057005,000056: 
057006,000057:                                                                                                  #  WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
057007,000058:                                                                                                  #  INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
057008,000059:                                                                                                  #  BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
057009,000060:                                                                                                  #  THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED.  THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
057010,000061:                                                                                                  #  THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
057011,000062: 
057012,000063:                                                                                                  #  USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
057013,000064:                                                                                                  #  IN LUNAR ORBIT IS TIME DEPENDENT.  THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
057014,000065:                                                                                                  #  TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME.  FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
057015,000066:                                                                                                  #  AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
057016,000067: 
057017,000068:                                                                                                  #  2.0 GENERAL DESCRIPTION
057018,000069:                                                                                                  #  -----------------------
057019,000070: 
057020,000071:                                                                                                  #  THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS ---
057021,000072:                                                                                                  #        1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
057022,000073:                                                                                                  #        2) INTEGRATES THE W-MATRIX
057023,000074:                                                                                                  #        3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
057024,000075: 
057025,000076:                                                                                                  #  THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM.  FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
057026,000077:                                                                                                  #  ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
057027,000078:                                                                                                  #  THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST.  ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
057028,000079:                                                                                                  #  PROVIDE A STATE VECTOR TO BE INTEGRATED.  THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
057029,000080:                                                                                                  #  CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
057030,000081:                                                                                                  #  THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION.  THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
057031,000082:                                                                                                  #  NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
057032,000083:                                                                                                  #  VECTOR.  ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
057033,000084:                                                                                                  #  AND/OR STATE VECTOR.
057034,000085: 
057035,000086:                                                                                                  #  THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS.  TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
057036,000087:                                                                                                  #  USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM.  THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
057037,000088:                                                                                                  #  IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
057038,000089: 
057039,000090:                                                                                                  #  THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
057040,000091:                                                                                                  #  THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
057041,000092:                                                                                                  #  SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
057042,000093: 

Page 1310

057044,000095:                                                                                                  #  APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
057045,000096: 
057046,000097:                                                                                                  #  2.1 RESTARTS
057047,000098: 
057048,000099:                                                                                                  #  PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
057049,000100:                                                                                                  #  INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.)  THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
057050,000101:                                                                                                  #  (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS.  IF A RESTART OCCURS DURING AN
057051,000102:                                                                                                  #  INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM.  CALLING
057052,000103:                                                                                                  #  PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
057053,000104:                                                                                                  #  THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
057054,000105:                                                                                                  #  THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
057055,000106: 
057056,000107:                                                                                                  #  2.2 SCALING
057057,000108: 
057058,000109:                                                                                                  #  THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
057059,000110:                                                                                                  #  APPENDIX B OF THE USERS GUIDE.  THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
057060,000111:                                                                                                  #  SYSTEM AT THE DESIRED INTEGRATION TIME.  THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
057061,000112:                                                                                                  #  MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY.  THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
057062,000113:                                                                                                  #  DIFFERENT SCALING.
057063,000114:                                                                                                  #  HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
057064,000115: 
057065,000116:                                                                                                  #  3.0 INPUT/OUTPUT
057066,000117:                                                                                                  #  ----------------
057067,000118: 
057068,000119:                                                                                                  #  PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
057069,000120:                                                                                                  #  PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
057070,000121:                                                                                                  #  FOR INTEGRVS, THE RCV,VCV,TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
057071,000122: 
057072,000123:                                                                                                  #  FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
057073,000124:                                                                                                  #                                                                                EARTH   MOON
057074,000125:                                                                                                  #                                                                                 29      27
057075,000126:                                                                                                  #        RRECTCSM(LEM)   -       RECTIFIED POSITION VECTOR       METERS          2       2
057076,000127: 
057077,000128:                                                                                                  #                                                                                 7       5
057078,000129:                                                                                                  #        VRECTCSM(LEM)   -       RECTIFIED VELOCITY VECTOR       M/CSEC          2       2
057079,000130: 
057080,000131:                                                                                                  #                                                                                 28      28
057081,000132:                                                                                                  #        TETCSM(LEM)     -       TIME STATE VECTOR IS VALID      CSEC            2       2
057082,000133:                                                                                                  #                                CUSTOMARILY 0, BUT NOTE LUNAR
057083,000134:                                                                                                  #                                ORBIT DEPENDENCE ON REAL TIME.
057084,000135: 
057085,000136:                                                                                                  #                                                                                 22      18
057086,000137:                                                                                                  #        DELTAVCSM(LEM)  -       POSITION DEVIATION              METERS          2       2
057087,000138:                                                                                                  #                                0 IF TCCSM(LEM) = 0
057088,000139: 
057089,000140:                                                                                                  #                                                                                 3       -1
057090,000141:                                                                                                  #        NUVCSM(LEM)     -       VELOCITY DEVIATION              M/CSEC          2       2
057091,000142:                                                                                                  #                                0 IF TCCSM(LEM) = 0

Page 1311

057093,000144:                                                                                                  #                                                                                 29      27
057094,000145:                                                                                                  #        RCVCSM(LEM)     -       CONIC POSITION                  METERS          2       2
057095,000146:                                                                                                  #                                EQUALS RRECTCSM(LEM) IF
057096,000147:                                                                                                  #                                TCCSM(LEM) = 0
057097,000148: 
057098,000149:                                                                                                  #                                                                                 7       5
057099,000150:                                                                                                  #        VCVCSM(LEM)     -       CONIC VELOCITY                  M/CSEC          2       2
057100,000151:                                                                                                  #                                EQUALS VRECTCSM(LEM) IF
057101,000152:                                                                                                  #                                TCCSM(LEM) = 0
057102,000153: 
057103,000154:                                                                                                  #                                                                                 28      28
057104,000155:                                                                                                  #        TCCSM(LEM)      -       TIME SINCE RECTIFICATION        CSECS           2       2
057105,000156:                                                                                                  #                                CUSTOMARILY 0
057106,000157: 
057107,000158:                                                                                                  #                                                                 1/2             17      16
057108,000159:                                                                                                  #        XKEPCSM(LEM)    -       ROOT OF KEPLERS EQUATION        M               2       2
057109,000160:                                                                                                  #                                0 IF TCCSM(LEM) = 0
057110,000161: 
057111,000162:                                                                                                  #        CMOONFLG        -       PERMANENT FLAGS CORRESPONDING                   0       0
057112,000163:                                                                                                  #        CMIDFLAG                TO MOONFLAG AND MIDFLAG                         0,1     0,1
057113,000164:                                                                                                  #        LMOONFLG                C = CSM, L = LM                                 0       0
057114,000165:                                                                                                  #        LMIDFLG                                                                 0,1     0,1
057115,000166: 
057116,000167:                                                                                                  #        SURFFLAG        -       LUNAR SURFACE FLAG                              0,1     0,1
057117,000168: 
057118,000169:                                                                                                  #  IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
057119,000170:                                                                                                  #  SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
057120,000171:                                                                                                  #  ROUTINE MUST BE PRESET.
057121,000172: 
057122,000173:                                                                                                  #  OUTPUT
057123,000174:                                                                                                  #        AFTER EVERY CALL TO INTEGRATION
057124,000175:                                                                                                  #                                                                        EARTH   MOON
057125,000176:                                                                                                  #                                                                         29      29
057126,000177:                                                                                                  #        0D      RATT    POSITION                        METERS          2       2
057127,000178: 
057128,000179:                                                                                                  #                                                                         7       7
057129,000180:                                                                                                  #        6D      VATT    VELOCITY                        M/CSEC          2       2
057130,000181: 
057131,000182:                                                                                                  #                                                                         28      28
057132,000183:                                                                                                  #        12D     TAT     TIME                                            2       2
057133,000184: 
057134,000185:                                                                                                  #                                                                         29      27
057135,000186:                                                                                                  #        14D     RATT1   POSITION                        METERS          2       2
057136,000187: 
057137,000188:                                                                                                  #                                                                         7       5
057138,000189:                                                                                                  #        20D     VATT1   VELOCITY                        M/CSEC          2       2
057139,000190: 
057140,000191:                                                                                                  #                                                         3   2           36      30
057141,000192:                                                                                                  #        26D     MU(P)   MU                              M /CS           2       2
057142,000193: 
057143,000194:                                                                                                  #        X1              MUTABLE ENTRY                                   -2      -10D
057144,000195: 
057145,000196:                                                                                                  #        X2              COORDINT
057146,000197:                                                                                                  #        X2              COORDINATE SYSTEM ORIGEN                        0       2
057147,000198:                                                                                                  #                        (THIS, NOT MOONFLAG, SHOULD BE

Page 1312

057149,000200:                                                                                                  #                        USED TO DETERMINE ORIGIN.)
057150,000201: 
057151,000202:                                                                                                  #  IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
057152,000203:                                                                                                  #  STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED.  THE PUSH
057153,000204:                                                                                                  #  COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
057154,000205:                                                                                                  #  CALLING PROGRAM.
057155,000206: 
057156,000207:                                                                                                  #  4.0 CALLING SEQUENCES AND SAMPLE CODE
057157,000208:                                                                                                  #  -------------------------------------
057158,000209: 
057159,000210:                                                                                                  #        A) PRECISION ORBITAL INTEGRATION.  CSMPREC, LEMPREC ENTRANCES
057160,000211:                                                                                                  #                L-X     STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
057161,000212:                                                                                                  #                L       CALL
057162,000213:                                                                                                  #                L+1             CSMPREC (OR LEMPREC)
057163,000214:                                                                                                  #                L+2     RETURN
057164,000215:                                                                                                  #           INPUT                                                           28
057165,000216:                                                                                                  #                TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
057166,000217:                                                                                                  #           OUTPUT
057167,000218:                                                                                                  #                THE DATA LISTED IN SECTION 3.0 PLUS
057168,000219:                                                                                                  #                RQVV    POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
057169,000220:                                                                                                  #                BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
057170,000221:                                                                                                  #        B) CONIC INTEGRATION.  CSMCONIC, LEMCONIC ENTRANCES
057171,000222:                                                                                                  #                L-X     STORE TIME IN PUSH LIST (TDEC1)
057172,000223:                                                                                                  #                L       CALL
057173,000224:                                                                                                  #                L+1             CSMCONIC (OR LEMCONIC)
057174,000225:                                                                                                  #           INPUT/OUTPUT
057175,000226:                                                                                                  #                SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
057176,000227:                                                                                                  #        C) INTEGRATE GIVEN STATE VECTOR.  INTEGRVS ENTRANCE
057177,000228:                                                                                                  #                CALL
057178,000229:                                                                                                  #                                INTSTALL
057179,000230:                                                                                                  #                VLOAD
057180,000231:                                                                                                  #                                POSITION VECTOR
057181,000232:                                                                                                  #                STOVL           RCV
057182,000233:                                                                                                  #                                VELOCITY VECTOR
057183,000234:                                                                                                  #                STODL           VCV
057184,000235:                                                                                                  #                                TIME STATE VECTOR VALID
057185,000236:                                                                                                  #                STODL           TET
057186,000237:                                                                                                  #                                FINAL RADIUS
057187,000238:                                                                                                  #                STORE           RFINAL
057188,000239:                                                                                                  #                SET(CLEAR)      SET(CLEAR)
057189,000240:                                                                                                  #                                INTYPFLAG
057190,000241:                                                                                                  #                                MOONFLAG
057191,000242:                                                                                                  #                SET(CLEAR)      DLOAD
057192,000243:                                                                                                  #                                DESIRED TIME
057193,000244:                                                                                                  #                STCALL          TDEC1
057194,000245:                                                                                                  #                                INTEGRVS
057195,000246:                                                                                                  #          INPUT
057196,000247:                                                                                                  #                RCV     POSITION VECTOR                 METERS
057197,000248:                                                                                                  #                VCV     VELOCITY VECTOR                 M/CSEC
057198,000249:                                                                                                  #                TET     TIME OF STATE VECTOR (MAY = 0)  CSEC B-28

Page 1313

057200,000251:                                                                                                  #                TDEC1   TIME TO INTEGRATE TO            CSEC B-28 (PD 32D)
057201,000252:                                                                                                  #                        (MAY BE INCREMENT IF TET=0)
057202,000253:                                                                                                  #          OUTPUT
057203,000254:                                                                                                  #                SAME AS FOR PRECISION OR CONIC INTEGRATION,
057204,000255:                                                                                                  #                DEPENDING ON INTYPFLG.
057205,000256:                                                                                                  #        D) INTEGRATE STATE VECTOR.  INTGRV ENTRANCE
057206,000257:                                                                                                  #                L-X     STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
057207,000258:                                                                                                  #                L-8     CALL
057208,000259:                                                                                                  #                L-7
057209,000260:                                                                                                  #                L-6     SET(CLEAR)      SET(CLEAR)
057210,000261:                                                                                                  #                L-5                     VINTFLAG        1=CSM, 0=LM
057211,000262:                                                                                                  #                L-4                     INTYPFLAG       1=CONIC, 0=PRECISION
057212,000263:                                                                                                  #                L-3     SET(CLEAR)      SET(CLEAR)
057213,000264:                                                                                                  #                L-2                     DIMOFLAG        1=W-MATRIX, 0=NO W-MATRIX
057214,000265:                                                                                                  #                L-1                     D6OR9FLG        1=9X9, 0=6X6
057215,000266:                                                                                                  #                L       SET             DLOAD
057216,000267:                                                                                                  #                L+1                     STATEFLG        DESIRE PERMANENT UPDATE
057217,000268:                                                                                                  #                L+2                     FINAL RAD.      OF STATE VECTOR
057218,000269:                                                                                                  #                L+3     STCALL          RFINAL
057219,000270:                                                                                                  #                L+4                     INTEGRV
057220,000271:                                                                                                  #                L       CALL                            NORMAL USE -- WILL UPDATE STATE
057221,000272:                                                                                                  #                L+1                     INTEGRV         VECTOR IF DIMOFLAG=1. (STATEFLG IS
057222,000273:                                                                                                  #                L+2     RETURN                          ALWAYS RESET IN INTEGRATION AFTER
057223,000274:                                                                                                  #                                                        IT IS USED.)
057224,000275:                                                                                                  #          INPUT
057225,000276:                                                                                                  #                TDEC1 (PD 32D) TIME TO INTEGRATE TO     CSEC B-28
057226,000277:                                                                                                  #          OUTPUT
057227,000278:                                                                                                  #                SAME AS FOR PRECISION OR CONIC INTEGRATION
057228,000279:                                                                                                  #          THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
057229,000280:                                                                                                  #          THE PERMANENT STATE VECTOR REPRESENTATION.
057230,000281: 
057231,000282: 11,2363                                           BANK     11                                    
057232,000283: 13,2000                                           SETLOC   INTINIT                               
057233,000284: 13,2000                                           BANK                                           
057234,000285: 13,2627  E3,1554                                  EBANK=   RRECTCSM                              
057235,000286: 13,2627                                           COUNT    13/INTIN                              
057236,000287: 
057237,000288: 13,2627           05412        STATEINT           TC       PHASCHNG                              
057238,000289: 13,2630           00052                           OCT      00052                                 
057239,000290: 13,2631           35061                           CAF      PRIO5                                 
057240,000291: 13,2632           05147                           TC       FINDVAC                               
057241,000292: 13,2633  E3,1554                                  EBANK=   RRECTCSM                              
057242,000293: 13,2633           02636 26063                     2CADR    STATINT1                              
057243,000294: 
057244,000295: 13,2635           05324                           TC       TASKOVER                              
057245,000296: 13,2636           06006        STATINT1           TC       INTPRET                               
057246,000297: 13,2637           47014                           BON      RTB                                   
057247,000298: 13,2640           04712                                    QUITFLAG                              
057248,000299: 13,2641           26677                                    NOINT                                 #  NO STATEINT IF V96
057249,000300: 13,2642           45510                                    LOADTIME                              

Page 1314

057251,000302: 13,2643           00041                           STORE    TDEC1                                 
057252,000303: 13,2644           45014                           CLEAR    CALL                                  
057253,000304: 13,2645           04274                                    V96ONFLG                              
057254,000305: 13,2646           27442                                    INTSTALL                              
057255,000306: 13,2647           45014                           SET      CALL                                  
057256,000307: 13,2650           01076                                    NODOFLAG                              
057257,000308: 13,2651           26670                                    SETIFLGS                              
057258,000309: 13,2652           77650                           GOTO                                           
057259,000310: 13,2653           26000                                    STATEUP                               
057260,000311: 13,2654           00003 25140  600SECS            2DEC     60000      B-28                       
057261,000312: 
057262,000313: 13,2656           77414        ENDINT             CLEAR    EXIT                                  
057263,000314: 13,2657           01672                                    STATEFLG                              
057264,000315: 13,2660           05412                           TC       PHASCHNG                              
057265,000316: 13,2661           20032                           OCT      20032                                 
057266,000317: 13,2662           00006                           EXTEND                                         
057267,000318: 13,2663           32655                           DCA      600SECS                               
057268,000319: 13,2664           05342                           TC       LONGCALL                              
057269,000320: 13,2665  E3,1554                                  EBANK=   RRECTHIS                              
057270,000321: 13,2665           02627 26063                     2CADR    STATEINT                              
057271,000322: 
057272,000323: 13,2667           05217                           TC       ENDOFJOB                              
057273,000324: 13,2670           43014        SETIFLGS           SET      CLEAR                                 
057274,000325: 13,2671           01472                                    STATEFLG                              
057275,000326: 13,2672           01673                                    INTYPFLG                              
057276,000327: 13,2673           43014                           CLEAR    CLEAR                                 
057277,000328: 13,2674           01676                                    DIM0FLAG                              
057278,000329: 13,2675           01675                                    D6OR9FLG                              
057279,000330: 13,2676           77616                           RVQ                                            
057280,000331: 13,2677           77776        NOINT              EXIT                                           
057281,000332: 13,2700           05412                           TC       PHASCHNG                              
057282,000333: 13,2701           00002                           OCT      2                                     
057283,000334: 
057284,000335: 13,2702           05560                           TC       DOWNFLAG                              
057285,000336: 13,2703           00221                           ADRES    QUITFLAG                              
057286,000337: 
057287,000338: 13,2704           05217                           TC       ENDOFJOB                              
057288,000339: 
057289,000340:                                                                                                  #  ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
057290,000341: 
057291,000342:                                                                                                  #  CALLING SEQUENCE
057292,000343:                                                                                                  #        L       CALL
057293,000344:                                                                                                  #        L+1             ATOPCSM
057294,000345: 
057295,000346:                                                                                                  #  NORMAL EXIT AT L+2
057296,000347: 
057297,000348: 13,2705           47020        ATOPCSM            STQ      RTB                                   
057298,000349: 13,2706           00051                                    S2                                    
057299,000350: 13,2707           26720                                    MOVEACSM                              
057300,000351: 13,2710           45014                           SET      CALL                                  

Page 1315

057302,000353: 13,2711           04063                                    CMOONFLG                              
057303,000354: 13,2712           20237                                    SVDWN1                                
057304,000355: 13,2713           43014                           BON      CLRGO                                 
057305,000356: 13,2714           00303                                    MOONFLAG                              
057306,000357: 13,2715           00051                                    S2                                    
057307,000358: 13,2716           04223                                    CMOONFLG                              
057308,000359: 13,2717           00051                                    S2                                    
057309,000360: 13,2720           03064        MOVEACSM           TC       SETBANK                               
057310,000361: 13,2721           55500                           TS       DIFEQCNT                              #  INITIALIZE INDEX
057311,000362: 13,2722           51500                           INDEX    DIFEQCNT                              
057312,000363: 13,2723           31502                           CA       RRECT                                 
057313,000364: 13,2724           51500                           INDEX    DIFEQCNT                              
057314,000365: 13,2725           55554                           TS       RRECTCSM                              
057315,000366: 13,2726           11500                           CCS      DIFEQCNT                              #  IS TRANSFER COMPLETE
057316,000367: 13,2727           12721                           TCF      MOVEACSM   +1                         #  NO-LOOP
057317,000368: 13,2730           06030                           TC       DANZIG                                #  COMPLETE - RETURN
057318,000369: 
057319,000370:                                                                                                  #  PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
057320,000371: 
057321,000372:                                                                                                  #  CALLING SEQUENCE
057322,000373:                                                                                                  #        L       CALL
057323,000374:                                                                                                  #                        PTOACSM
057324,000375: 
057325,000376:                                                                                                  #  NORMAL EXIT AT L+2
057326,000377: 
057327,000378: 13,2731           43034        PTOACSM            RTB      BON                                   
057328,000379: 13,2732           26747                                    MOVEPCSM                              
057329,000380: 13,2733           04303                                    CMOONFLG                              
057330,000381: 13,2734           26742                                    SETMOON                               
057331,000382: 13,2735           66214        CLRMOON            CLEAR    SSP                                   
057332,000383: 13,2736           00263                                    MOONFLAG                              
057333,000384: 13,2737           02151                                    PBODY                                 
057334,000385: 13,2740           00000                                    0                                     
057335,000386: 13,2741           77616                           RVQ                                            
057336,000387: 13,2742           66214        SETMOON            SET      SSP                                   
057337,000388: 13,2743           00063                                    MOONFLAG                              
057338,000389: 13,2744           02151                                    PBODY                                 
057339,000390: 13,2745           00002                                    2                                     
057340,000391: 13,2746           77616                           RVQ                                            
057341,000392: 13,2747           03064        MOVEPCSM           TC       SETBANK                               
057342,000393: 13,2750           55500                           TS       DIFEQCNT                              
057343,000394: 13,2751           51500                           INDEX    DIFEQCNT                              
057344,000395: 13,2752           31554                           CA       RRECTCSM                              
057345,000396: 13,2753           51500                           INDEX    DIFEQCNT                              
057346,000397: 13,2754           55502                           TS       RRECT                                 
057347,000398: 13,2755           11500                           CCS      DIFEQCNT                              
057348,000399: 13,2756           12750                           TCF      MOVEPCSM   +1                         
057349,000400: 13,2757           06030                           TC       DANZIG                                
057350,000401: 

Page 1316

057352,000403:                                                                                                  #  ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
057353,000404: 13,2760           47020        ATOPLEM            STQ      RTB                                   
057354,000405: 13,2761           00051                                    S2                                    
057355,000406: 13,2762           26773                                    MOVEALEM                              
057356,000407: 13,2763           45014                           SET      CALL                                  
057357,000408: 13,2764           04064                                    LMOONFLG                              
057358,000409: 13,2765           20263                                    SVDWN2                                
057359,000410: 13,2766           43014                           BON      CLRGO                                 
057360,000411: 13,2767           00303                                    MOONFLAG                              
057361,000412: 13,2770           00051                                    S2                                    
057362,000413: 13,2771           04224                                    LMOONFLG                              
057363,000414: 13,2772           00051                                    S2                                    
057364,000415: 13,2773           03064        MOVEALEM           TC       SETBANK                               
057365,000416: 13,2774           55500                           TS       DIFEQCNT                              
057366,000417: 13,2775           51500                           INDEX    DIFEQCNT                              
057367,000418: 13,2776           31502                           CA       RRECT                                 
057368,000419: 13,2777           51500                           INDEX    DIFEQCNT                              
057369,000420: 13,3000           55626                           TS       RRECTLEM                              
057370,000421: 13,3001           11500                           CCS      DIFEQCNT                              
057371,000422: 13,3002           12774                           TCF      MOVEALEM   +1                         
057372,000423: 13,3003           06030                           TC       DANZIG                                
057373,000424: 
057374,000425:                                                                                                  #  PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
057375,000426: 
057376,000427: 13,3004           47014        PTOALEM            BON      RTB                                   
057377,000428: 13,3005           04307                                    SURFFLAG                              
057378,000429: 13,3006           27025                                    USEPIOS                               
057379,000430: 13,3007           27014                                    MOVEPLEM                              
057380,000431: 13,3010           52014                           BON      GOTO                                  
057381,000432: 13,3011           04304                                    LMOONFLG                              
057382,000433: 13,3012           26742                                    SETMOON                               
057383,000434: 13,3013           26735                                    CLRMOON                               
057384,000435: 13,3014           03064        MOVEPLEM           TC       SETBANK                               
057385,000436: 13,3015           55500                           TS       DIFEQCNT                              
057386,000437: 13,3016           51500                           INDEX    DIFEQCNT                              
057387,000438: 13,3017           31626                           CA       RRECTLEM                              
057388,000439: 13,3020           51500                           INDEX    DIFEQCNT                              
057389,000440: 13,3021           55502                           TS       RRECT                                 
057390,000441: 13,3022           11500                           CCS      DIFEQCNT                              
057391,000442: 13,3023           13015                           TCF      MOVEPLEM   +1                         
057392,000443: 13,3024           06030                           TC       DANZIG                                
057393,000444: 
057394,000445: 13,3025           77201        USEPIOS            SETPD    VLOAD                                 
057395,000446: 13,3026           00001                                    0                                     
057396,000447: 13,3027           02026                                    RLS                                   
057397,000448: 13,3030           41525                           PDDL     PUSH                                  
057398,000449: 13,3031           00041                                    TDEC1                                 

Page 1317

057400,000451: 13,3032           15517                           STODL    TET                                   
057401,000452: 13,3033           27755                                    5/8                                   
057402,000453: 13,3034           77624                           CALL                                           
057403,000454: 13,3035           55344                                    RP-TO-R                               
057404,000455: 13,3036           25535                           STOVL    RCV                                   
057405,000456: 13,3037           11560                                    ZUNIT                                 
057406,000457: 13,3040           14001                           STODL    0D                                    
057407,000458: 13,3041           01517                                    TET                                   
057408,000459: 13,3042           14007                           STODL    6D                                    
057409,000460: 13,3043           27755                                    5/8                                   
057410,000461: 13,3044           45014                           SET      CALL                                  #  NEEDED FOR SETTING X1 ON EXIT
057411,000462: 13,3045           00063                                    MOONFLAG                              
057412,000463: 13,3046           55344                                    RP-TO-R                               
057413,000464: 13,3047           74235                           VXV      VXSC                                  
057414,000465: 13,3050           01535                                    RCV                                   
057415,000466: 13,3051           27063                                    OMEGMOON                              
057416,000467: 13,3052           25543                           STOVL    VCV                                   
057417,000468: 13,3053           11566                                    ZEROVEC                               
057418,000469: 13,3054           01521                           STORE    TDELTAV                               
057419,000470: 13,3055           67174                           AXT,2    SXA,2                                 
057420,000471: 13,3056           00002                                    2                                     
057421,000472: 13,3057           02150                                    PBODY                                 
057422,000473: 13,3060           35527                           STCALL   TNUV                                  
057423,000474: 13,3061           27176                                    A-PCHK                                
057424,000475: 13,3062           07112 06620  OMEGMOON           2DEC*    2.66169947 E-8        B+23*           
057425,000476: 
057426,000477: 13,3064           33070        SETBANK            CAF      INTBANK                               
057427,000478: 13,3065           54006                           TS       BBANK                                 
057428,000479: 13,3066           33507                           CAF      FORTYONE                              
057429,000480: 13,3067           00002                           TC       Q                                     
057430,000481: 13,3070  E3,1554                                  EBANK=   RRECTCSM                              
057431,000482: 13,3070           26063        INTBANK            BBCON    INTEGRV                               
057432,000483: 
057433,000484:                                                                                                  #  SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION.  THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
057434,000485:                                                                                                  #  APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
057435,000486: 
057436,000487:                                                                                                  #  CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
057437,000488:                                                                                                  #  ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED.  NO W-MATRIX INT. IS DONE.
057438,000489:                                                                                                  #  THE PERMANENT STATE VECTOR IS NOT UPDATED.
057439,000490:                                                                                                  #  CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
057440,000491:                                                                                                  #  NO DISTURBING ACCELERATIONS ARE INCLUDED.  IN THE PROGRAM FLOW THE GIVEN
057441,000492:                                                                                                  #  STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
057442,000493: 
057443,000494:                                                                                                  #  THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
057444,000495:                                                                                                  #  SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
057445,000496:                                                                                                  #                        CSMPREC         CSMCONIC        LEMPREC         LEMCONIC
057446,000497:                                                                                                  #        VINTFLAG        SET             SET             CLEAR           CLEAR
057447,000498:                                                                                                  #        INTYPFLG        CLEAR           SET             CLEAR           SET
057448,000499:                                                                                                  #        DIM0FLAG        CLEAR           CLEAR           CLEAR           CLEAR

Page 1318

057450,000501: 
057451,000502:                                                                                                  #  CALLING SEQUENCE
057452,000503:                                                                                                  #        L-X     STORE   TDEC1
057453,000504:                                                                                                  #        L       CALL                    (STCALL TDEC1)
057454,000505:                                                                                                  #        L+1             CSMPREC         (CSMCONIC, LEMPREC, LEMCONIC)
057455,000506: 
057456,000507:                                                                                                  #  NORMAL EXIT TO L+2
057457,000508: 
057458,000509:                                                                                                  #  SUBROUTINES CALLED
057459,000510:                                                                                                  #        INTEGRV1
057460,000511:                                                                                                  #        PRECOUT FOR CSMPREC AND LEMPREC
057461,000512:                                                                                                  #        CONICOUT FOR CSMCONIC AND LEMCONIC
057462,000513: 
057463,000514:                                                                                                  #  OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
057464,000515: 
057465,000516:                                                                                                  #  INPUT
057466,000517:                                                                                                  #        TDEC1           TIME TO INTEGRATE TO.  CSECS B-28
057467,000518: 
057468,000519: 13,3071           45020        CSMPREC            STQ      CALL                                  
057469,000520: 13,3072           00046                                    X1                                    
057470,000521: 13,3073           27442                                    INTSTALL                              
057471,000522: 13,3074           43130                           SXA,1    SET                                   
057472,000523: 13,3075           02214                                    IRETURN                               
057473,000524: 13,3076           01474                                    VINTFLAG                              
057474,000525: 
057475,000526: 13,3077           43014        IFLAGP             SET      CLEAR                                 
057476,000527: 13,3100           01467                                    PRECIFLG                              
057477,000528: 13,3101           01676                                    DIM0FLAG                              
057478,000529: 13,3102           77614                           CLRGO                                          
057479,000530: 13,3103           01633                                    INTYPFLG                              
057480,000531: 13,3104           27164                                    INTEGRV1                              
057481,000532: 13,3105           45020        LEMPREC            STQ      CALL                                  
057482,000533: 13,3106           00046                                    X1                                    
057483,000534: 13,3107           27442                                    INTSTALL                              
057484,000535: 13,3110           43130                           SXA,1    CLRGO                                 
057485,000536: 13,3111           02214                                    IRETURN                               
057486,000537: 13,3112           01634                                    VINTFLAG                              
057487,000538: 13,3113           27077                                    IFLAGP                                
057488,000539: 
057489,000540: 13,3114           45020        CSMCONIC           STQ      CALL                                  
057490,000541: 13,3115           00046                                    X1                                    
057491,000542: 13,3116           27442                                    INTSTALL                              
057492,000543: 13,3117           43130                           SXA,1    SET                                   
057493,000544: 13,3120           02214                                    IRETURN                               
057494,000545: 13,3121           01474                                    VINTFLAG                              
057495,000546: 13,3122           43014        IFLAGC             CLEAR    SETGO                                 
057496,000547: 13,3123           01676                                    DIM0FLAG                              
057497,000548: 13,3124           01433                                    INTYPFLG                              
057498,000549: 13,3125           27164                                    INTEGRV1                              
057499,000550: 13,3126           45020        LEMCONIC           STQ      CALL                                  
057500,000551: 13,3127           00046                                    X1                                    

Page 1319

057502,000553: 13,3130           27442                                    INTSTALL                              
057503,000554: 13,3131           43130                           SXA,1    CLRGO                                 
057504,000555: 13,3132           02214                                    IRETURN                               
057505,000556: 13,3133           01634                                    VINTFLAG                              
057506,000557: 13,3134           27122                                    IFLAGC                                
057507,000558: 
057508,000559: 13,3135           66214        INTEGRVS           SET      SSP                                   
057509,000560: 13,3136           01467                                    PRECIFLG                              
057510,000561: 13,3137           02151                                    PBODY                                 
057511,000562: 13,3140           00000                                    0                                     
057512,000563: 13,3141           66214                           BOF      SSP                                   
057513,000564: 13,3142           00343                                    MOONFLAG                              
057514,000565: 13,3143           27146                                    +3                                    
057515,000566: 13,3144           02151                                    PBODY                                 
057516,000567: 13,3145           00002                                    2                                     
057517,000568: 13,3146           77220                           STQ      VLOAD                                 
057518,000569: 13,3147           02214                                    IRETURN                               
057519,000570: 13,3150           11566                                    ZEROVEC                               
057520,000571: 13,3151           01521                           STORE    TDELTAV                               
057521,000572: 13,3152           35527                           STCALL   TNUV                                  
057522,000573: 13,3153           23421                                    RECTIFY                               
057523,000574: 13,3154           43014                           CLEAR    SET                                   
057524,000575: 13,3155           01676                                    DIM0FLAG                              
057525,000576: 13,3156           04062                                    NEWIFLG                               
057526,000577: 13,3157           77614                           SETGO                                          
057527,000578: 13,3160           04020                                    RPQFLAG                               
057528,000579: 13,3161           22363                                    ALOADED                               
057529,000580: 
057530,000581:                                                                                                  #  INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
057531,000582:                                                                                                  #  NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS.  THE ROUTINE
057532,000583:                                                                                                  #  IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
057533,000584:                                                                                                  #  THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
057534,000585:                                                                                                  #  PROGRAM FOR PRECISION OR CONIC
057535,000586: 
057536,000587:                                                                                                  #  THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
057537,000588:                                                                                                  #  SETTING ANY FLAGS.
057538,000589: 
057539,000590:                                                                                                  #  THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
057540,000591:                                                                                                  #        VINTFLAG        (IGNORED WHEN ENTERED FROM INTEGRVS)
057541,000592:                                                                                                  #        INTYPFLG
057542,000593:                                                                                                  #        DIM0FLAG
057543,000594:                                                                                                  #        D6OR9FLG
057544,000595: 
057545,000596:                                                                                                  #  CALLING SEQUENCE
057546,000597:                                                                                                  #        L-X     CALL
057547,000598:                                                                                                  #        L-Y             INTSTALL
057548,000599:                                                                                                  #        L-1     SET OR CLEAR ALL FOUR FLAGS.  ALSO CAN SET STATEFLG IF DESIRED
057549,000600:                                                                                                  #                AND DIM0FLAG IS CLEAR.
057550,000601:                                                                                                  #        L       CALL
057551,000602:                                                                                                  #        L+1             INTEGRV
057552,000603: 
057553,000604:                                                                                                  #  INITIALIZATION
057554,000605:                                                                                                  #        FLAGS AS ABOVE
057555,000606:                                                                                                  #        STORE TIME TO INTEGRATE TO IN TDEC1
057556,000607: 

Page 1320

057558,000609:                                                                                                  #  OUTPUT
057559,000610:                                                                                                  #        RATT    AS
057560,000611:                                                                                                  #        VATT          DEFINED
057561,000612:                                                                                                  #        TAT                     BEFORE
057562,000613: 
057563,000614: 13,3162           77620        INTEGRV            STQ                                            
057564,000615: 13,3163           02214                                    IRETURN                               
057565,000616: 13,3164           43014        INTEGRV1           SET      SET                                   
057566,000617: 13,3165           04060                                    RPQFLAG                               
057567,000618: 13,3166           04062                                    NEWIFLG                               
057568,000619: 13,3167           77731        INTEGRV2           SSP                                            
057569,000620: 13,3170           00053                                    QPRET                                 
057570,000621: 13,3171           22363                                    ALOADED                               
057571,000622: 13,3172           52014                           BON      GOTO                                  
057572,000623: 13,3173           01714                                    VINTFLAG                              
057573,000624: 13,3174           26731                                    PTOACSM                               
057574,000625: 13,3175           27004                                    PTOALEM                               
057575,000626: 11,2000                                           SETLOC   INTINIT1                              
057576,000627: 11,2000                                           BANK                                           
057577,000628: 11,2363           77745        ALOADED            DLOAD                                          
057578,000629: 11,2364           00041                                    TDEC1                                 
057579,000630: 11,2365           01101                           STORE    TDEC                                  
057580,000631: 11,2366           52014                           BOFF     GOTO                                  
057581,000632: 11,2367           01753                                    INTYPFLG                              
057582,000633: 11,2370           27305                                    TESTLOOP                              
057583,000634: 11,2371           27271                                    RVCON                                 
057584,000635: 13,2000                                           SETLOC   INTINIT                               
057585,000636: 13,2000                                           BANK                                           
057586,000637: 13,3176           45014        A-PCHK             BOF      CALL                                  
057587,000638: 13,3177           00342                                    MIDFLAG                               
057588,000639: 13,3200           27205                                    ANDOUT                                #  DONT MAKE ORIGIN CHANGE CHECK
057589,000640: 13,3201           23320                                    CHKSWTCH                              
057590,000641: 13,3202           45044                           BPL      CALL                                  
057591,000642: 13,3203           27205                                    ANDOUT                                #  NO ORIGIN CHANGE
057592,000643: 13,3204           23361                                    ORIGCHNG                              #  MAKE THE SWITCH
057593,000644: 13,3205           77414        ANDOUT             BOFCLR   EXIT                                  
057594,000645: 13,3206           01652                                    STATEFLG                              
057595,000646: 13,3207           27226                                    RECTOUT                               
057596,000647: 13,3210           05412                           TC       PHASCHNG                              
057597,000648: 13,3211           04022                           OCT      04022                                 
057598,000649: 13,3212           05546                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
057599,000650: 13,3213           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
057600,000651: 13,3214           06006                           TC       INTPRET                               
057601,000652: 13,3215           77731                           SSP                                            
057602,000653: 13,3216           00053                                    QPRET                                 
057603,000654: 13,3217           27224                                    PHEXIT                                
057604,000655: 13,3220           52014                           BON      GOTO                                  
057605,000656: 13,3221           01714                                    VINTFLAG                              
057606,000657: 13,3222           26705                                    ATOPCSM                               

Page 1321

057608,000659: 13,3223           26760                                    ATOPLEM                               
057609,000660: 13,3224           77624        PHEXIT             CALL                                           
057610,000661: 13,3225           56750                                    GRP2PC                                
057611,000662: 13,3226           45001        RECTOUT            SETPD    CALL                                  
057612,000663: 13,3227           00001                                    0                                     
057613,000664: 13,3230           23421                                    RECTIFY                               
057614,000665: 13,3231           53775                           VLOAD    VSL*                                  
057615,000666: 13,3232           01503                                    RRECT                                 
057616,000667: 13,3233           57576                                    0,2                                   
057617,000668: 13,3234           53715                           PDVL     VSL*                                  #  RATT TO PD0
057618,000669: 13,3235           01511                                    VRECT                                 
057619,000670: 13,3236           57576                                    0,2                                   
057620,000671: 13,3237           63325                           PDDL     PDVL                                  #  VATT TO PD6   TAT TO PD12
057621,000672: 13,3240           01517                                    TET                                   
057622,000673: 13,3241           01503                                    RRECT                                 
057623,000674: 13,3242           64715                           PDVL     PDDL*                                 
057624,000675: 13,3243           01511                                    VRECT                                 
057625,000676: 13,3244           50042                                    MUEARTH,2                             
057626,000677: 13,3245           76006                           PUSH     AXT,1                                 
057627,000678: 13,3246           77765                           DEC      -10        B-14                       
057628,000679: 13,3247           76014                           BON      AXT,1                                 
057629,000680: 13,3250           00303                                    MOONFLAG                              
057630,000681: 13,3251           27253                                    +2                                    
057631,000682: 13,3252           77775                           DEC      -2         B-14                       
057632,000683: 13,3253           40001        INTEXIT            SETPD    BOV                                   
057633,000684: 13,3254           00001                                    0                                     
057634,000685: 13,3255           27256                                    +1                                    
057635,000686: 13,3256           77614                           CLEAR                                          
057636,000687: 13,3257           04675                                    MIDAVFLG                              
057637,000688: 13,3260           43014                           CLEAR    CLEAR                                 
057638,000689: 13,3261           04676                                    AVEMIDSW                              #  ALLOW UPDATE OF DOWNLINK STATE VECTOR
057639,000690: 13,3262           01667                                    PRECIFLG                              
057640,000691: 13,3263           77535                           SLOAD    EXIT                                  
057641,000692: 13,3264           02215                                    IRETURN                               
057642,000693: 13,3265           30154                           CA       MPAC                                  
057643,000694: 13,3266           50120                           INDEX    FIXLOC                                
057644,000695: 13,3267           54052                           TS       QPRET                                 
057645,000696: 13,3270           03457                           TC       INTWAKE                               
057646,000697: 
057647,000698:                                                                                                  #  RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
057648,000699:                                                                                                  #  VELOCITY FOR THE INTERVAL (TET-TDEC)
057649,000700: 
057650,000701: 13,3271           45345        RVCON              DLOAD    DSU                                   
057651,000702: 13,3272           01101                                    TDEC                                  
057652,000703: 13,3273           01517                                    TET                                   
057653,000704: 13,3274           36312                           STCALL   TAU.                                  
057654,000705: 13,3275           23421                                    RECTIFY                               
057655,000706: 13,3276           77624                           CALL                                           
057656,000707: 13,3277           22372                                    KEPPREP                               
057657,000708: 13,3300           43345                           DLOAD    DAD                                   
057658,000709: 13,3301           01551                                    TC                                    

Page 1322

057660,000711: 13,3302           01517                                    TET                                   
057661,000712: 13,3303           35517                           STCALL   TET                                   
057662,000713: 13,3304           27226                                    RECTOUT                               
057663,000714: 

Page 1323

057665,000716:                                                                                                  #  TESTLOOP
057666,000717: 
057667,000718: 13,3305           43014        TESTLOOP           BOF      CLRGO                                 
057668,000719: 13,3306           04752                                    QUITFLAG                              
057669,000720: 13,3307           27312                                    +3                                    
057670,000721: 13,3310           01632                                    STATEFLG                              
057671,000722: 13,3311           27253                                    INTEXIT                               #  STOP INTEGRATION
057672,000723: 13,3312           73001                 +3        SETPD    LXA,2                                 
057673,000724: 13,3313           00013                                    10D                                   
057674,000725: 13,3314           02150                                    PBODY                                 
057675,000726: 13,3315           51575                           VLOAD    ABVAL                                 
057676,000727: 13,3316           01535                                    RCV                                   
057677,000728: 13,3317           43006                           PUSH     CLEAR                                 #  RC TO 10D
057678,000729: 13,3320           00262                                    MIDFLAG                               
057679,000730: 13,3321           50023                           DSU*     BMN                                   #  MIDFLAG=0 IF R G.T. RMP
057680,000731: 13,3322           67212                                    RME,2                                 
057681,000732: 13,3323           27326                                    +3                                    
057682,000733: 13,3324           77614                           SET                                            
057683,000734: 13,3325           00062                                    MIDFLAG                               
057684,000735: 13,3326           41345        NORFINAL           DLOAD    DMP                                   
057685,000736: 13,3327           00013                                    10D                                   
057686,000737: 13,3330           00043                                    34D                                   
057687,000738: 13,3331           55762                           SR1R     DDV*                                  
057688,000739: 13,3332           50042                                    MUEARTH,2                             
057689,000740: 13,3333           41366                           SQRT     DMP                                   
057690,000741: 13,3334           23752                                    .3D                                   
057691,000742: 13,3335           40442                           SR3      SR4                                   #  DT IS TRUNCATED TO A MULTIPLE
057692,000743: 13,3336           54345                           DLOAD    SL                                    
057693,000744: 13,3337           00155                                    MPAC                                  
057694,000745: 13,3340           20220                                    15D                                   #        OF 128 CSECS.
057695,000746: 13,3341           40006                           PUSH     BOV                                   
057696,000747: 13,3342           27367                                    MAXDT                                 
057697,000748: 13,3343           50021                           BDSU     BMN                                   
057698,000749: 13,3344           27441                                    DT/2MAX                               
057699,000750: 13,3345           27367                                    MAXDT                                 
057700,000751: 13,3346           45345        DT/2COMP           DLOAD    DSU                                   
057701,000752: 13,3347           01101                                    TDEC                                  
057702,000753: 13,3350           01517                                    TET                                   
057703,000754: 13,3351           54234                           RTB      SL                                    
057704,000755: 13,3352           45544                                    SGNAGREE                              
057705,000756: 13,3353           20211                                    8D                                    
057706,000757: 13,3354           02314                           STORE    DT/2                                  #  B-19
057707,000758: 13,3355           51400                           BOV      ABS                                   
057708,000759: 13,3356           27373                                    GETMAXDT                              
057709,000760: 13,3357           50025                           DSU      BMN                                   #  IS TIME TO INTEG. TO GR THAN MAXTIME
057710,000761: 13,3360           00015                                    12D                                   
057711,000762: 13,3361           27377                                    P00HCHK                               
057712,000763: 13,3362           75345        USEMAXDT           DLOAD    SIGN                                  
057713,000764: 13,3363           00015                                    12D                                   
057714,000765: 13,3364           02314                                    DT/2                                  

Page 1324

057716,000767: 13,3365           36314                           STCALL   DT/2                                  
057717,000768: 13,3366           27377                                    P00HCHK                               
057718,000769: 13,3367           65345        MAXDT              DLOAD    PDDL                                  #  EXCHANGE DT/2MAX WITH COMPUTED MAX.
057719,000770: 13,3370           27441                                    DT/2MAX                               
057720,000771: 13,3371           77650                           GOTO                                           
057721,000772: 13,3372           27346                                    DT/2COMP                              
057722,000773: 13,3373           77634        GETMAXDT           RTB                                            
057723,000774: 13,3374           45712                                    SIGNMPAC                              
057724,000775: 13,3375           36314                           STCALL   DT/2                                  
057725,000776: 13,3376           27362                                    USEMAXDT                              
057726,000777: 13,3377           51545        P00HCHK            DLOAD    ABS                                   
057727,000778: 13,3400           02314                                    DT/2                                  
057728,000779: 13,3401           50025                           DSU      BMN                                   
057729,000780: 13,3402           27437                                    DT/2MIN                               
057730,000781: 13,3403           27176                                    A-PCHK                                
057731,000782: 13,3404           46135                           SLOAD    BHIZ                                  
057732,000783: 13,3405           01012                                    MODREG                                
057733,000784: 13,3406           27411                                    +3                                    
057734,000785: 13,3407           77650                           GOTO                                           
057735,000786: 13,3410           23240                                    TIMESTEP                              
057736,000787: 13,3411           77614                           BON                                            #  WAS THIS CALL VIA CSM(LEM)PREC
057737,000788: 13,3412           01707                                    PRECIFLG                              
057738,000789: 13,3413           23240                                    TIMESTEP                              #  YES
057739,000790: 13,3414           45345                           DLOAD    DSU                                   
057740,000791: 13,3415           02314                                    DT/2                                  
057741,000792: 13,3416           00015                                    12D                                   
057742,000793: 13,3417           43040                           BMN      BOFCLR                                
057743,000794: 13,3420           27176                                    A-PCHK                                
057744,000795: 13,3421           04242                                    NEWIFLG                               
057745,000796: 13,3422           23240                                    TIMESTEP                              
057746,000797: 13,3423           45345                           DLOAD    DSU                                   
057747,000798: 13,3424           01101                                    TDEC                                  
057748,000799: 13,3425           01517                                    TET                                   
057749,000800: 13,3426           77640                           BMN                                            #  NO BACKWARD INTEGRATION
057750,000801: 13,3427           27253                                    INTEXIT                               
057751,000802: 13,3430           40525                           PDDL     SR4                                   
057752,000803: 13,3431           02314                                    DT/2                                  #  IS 4(DT) LS (TDEC - TET)
057753,000804: 13,3432           44322                           SR2R     BDSU                                  #  NO
057754,000805: 13,3433           52040                           BMN      GOTO                                  
057755,000806: 13,3434           27253                                    INTEXIT                               
057756,000807: 13,3435           23240                                    TIMESTEP                              
057757,000808: 13,3436           00000 01400  DT/2MIN            2DEC     3          B-20                       
057758,000809: 
057759,000810: 13,3440           14152 00000  DT/2MAX            2DEC     4000       E2         B-20            
057760,000811: 
057761,000812: 13,3442           77776        INTSTALL           EXIT                                           
057762,000813: 13,3443           35021                           CAF      ZERO                                  
057763,000814: 13,3444           54001        ALLSTALL           TS       L                                     
057764,000815: 13,3445           30106                           CA       RASFLAG                               
057765,000816: 13,3446           50001                           INDEX    L                                     

Page 1325

057767,000818: 13,3447           73540                           MASK     INTBITAB                              #  IS THIS STALL AREA FREE
057768,000819: 13,3450           00006                           EXTEND                                         
057769,000820: 13,3451           13516                           BZF      OKTOGRAB                              #  YES
057770,000821: 13,3452           50001                           INDEX    L                                     
057771,000822: 13,3453           33535                           CAF      WAKESTAL                              
057772,000823: 13,3454           05175                           TC       JOBSLEEP                              
057773,000824: 13,3455           77776        INTWAKE0           EXIT                                           
057774,000825: 13,3456           13477                           TCF      INTWAKE1                              
057775,000826: 
057776,000827: 13,3457           40106        INTWAKE            CS       RASFLAG                               #  IS THIS INTSTALLED ROUTINE TO BE
057777,000828: 13,3460           75011                           MASK     REINTBIT                              #        RESTARTED
057778,000829: 13,3461           10000                           CCS      A                                     
057779,000830: 13,3462           03477                           TC       INTWAKE1                              #  NO
057780,000831: 
057781,000832: 13,3463           50120                           INDEX    FIXLOC                                
057782,000833: 13,3464           30052                           CA       QPRET                                 
057783,000834: 13,3465           55055                           TS       TBASE2                                #  YES, DONT RESTART WITH SOMEONE ELSES Q
057784,000835: 
057785,000836: 13,3466           05412                           TC       PHASCHNG                              
057786,000837: 13,3467           04022                           OCT      04022                                 
057787,000838: 
057788,000839: 13,3470           31055                           CA       TBASE2                                
057789,000840: 13,3471           50120                           INDEX    FIXLOC                                
057790,000841: 13,3472           54052                           TS       QPRET                                 
057791,000842: 
057792,000843: 13,3473           35011                           CAF      REINTBIT                              
057793,000844: 13,3474           70106                           MASK     RASFLAG                               
057794,000845: 13,3475           00006                           EXTEND                                         
057795,000846: 13,3476           13521                           BZF      GOBAC                                 #  DONT INTWAKE IF WE CAME HERE VIA RESTART
057796,000847: 
057797,000848: 13,3477           35021        INTWAKE1           CAF      ZERO                                  
057798,000849: 13,3500           54154        WAKE               TS       STALTEM                               #  INDEX OF ANY STALL USER
057799,000850: 13,3501           50154        WAKE1              INDEX    STALTEM                               
057800,000851: 13,3502           33535                           CAF      WAKESTAL                              
057801,000852: 13,3503           00004                           INHINT                                         
057802,000853: 13,3504           05201                           TC       JOBWAKE                               
057803,000854: 13,3505           10064                           CCS      LOCCTR                                
057804,000855: 13,3506           13501                           TCF      WAKE1                                 #  MAY BE MORE TO WAKE UP
057805,000856: 13,3507           00051        FORTYONE           DEC      41         B-14                       
057806,000857: 13,3510           50154                           INDEX    STALTEM                               
057807,000858: 13,3511           43540                           CS       INTBITAB                              
057808,000859: 13,3512           70106                           MASK     RASFLAG                               
057809,000860: 13,3513           54106                           TS       RASFLAG                               #  RELEASE STALL AREA
057810,000861: 13,3514           00003                           RELINT                                         
057811,000862: 13,3515           13521                           TCF      GOBAC                                 
057812,000863: 13,3516           50001        OKTOGRAB           INDEX    L                                     #  NO, WAIT UNTIL AVAILABLE
057813,000864: 13,3517           35002                           CAF      INTFLBIT                              
057814,000865: 13,3520           26106                           ADS      RASFLAG                               
057815,000866: 13,3521           06006        GOBAC              TC       INTPRET                               
057816,000867: 13,3522           77616                           RVQ                                            

Page 1326

057818,000869: 13,3523           77776        ERASTAL1           EXIT                                           
057819,000870: 13,3524           35017                           CAF      ONE                                   
057820,000871: 13,3525           13444                           TCF      ALLSTALL                              
057821,000872: 13,3526           77776        ERASTAL2           EXIT                                           
057822,000873: 13,3527           35016                           CAF      TWO                                   
057823,000874: 13,3530           13444                           TCF      ALLSTALL                              
057824,000875: 13,3531           35017        ERASWAK1           CAF      ONE                                   
057825,000876: 13,3532           13500                           TCF      WAKE                                  
057826,000877: 13,3533           35016        ERASWAK2           CAF      TWO                                   
057827,000878: 13,3534           13500                           TCF      WAKE                                  
057828,000879: 13,3535           27443        WAKESTAL           CADR     INTSTALL   +1                         
057829,000880: 13,3536           27524                           CADR     ERASTAL1   +1                         
057830,000881: 13,3537           27527                           CADR     ERASTAL2   +1                         
057831,000882: 13,3540     0154               STALTEM            EQUALS   MPAC                                  
057832,000883: 13,3540           20100        INTBITAB           OCT      20100                                 
057833,000884: 13,3541           10040                           OCT      10040                                 
057834,000885: 13,3542           04020                           OCT      04020                                 
057835,000886: 

Page 1327

057837,000888:                                                                                                  #  AVETOMID
057838,000889: 
057839,000890:                                                                                                  #  THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
057840,000891:                                                                                                  #  PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
057841,000892:                                                                                                  #  VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
057842,000893: 
057843,000894:                                                                                                  #  BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
057844,000895:                                                                                                  #  SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
057845,000896: 
057846,000897:                                                                                                  #  IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
057847,000898: 
057848,000899:                                                                                                  #  FINALLY TRKMKCNT IS ZEROED
057849,000900: 
057850,000901: 35,2000                                           SETLOC   INTINIT2                              
057851,000902: 35,2000                                           BANK                                           
057852,000903: 
057853,000904: 35,3675                                           COUNT*   $$/INTIN                              
057854,000905: 35,3675           43020        AVETOMID           STQ      BON                                   
057855,000906: 35,3676           02317                                    EGRESS                                
057856,000907: 35,3677           02716                                    RENDWFLG                              
057857,000908: 35,3700           73753                                    INT/W                                 #  W-MATRIX VALID, GO INTEGRATE IT
057858,000909: 35,3701           77614                           BON                                            
057859,000910: 35,3702           01711                                    ORBWFLAG                              
057860,000911: 35,3703           73753                                    INT/W                                 #  W-MATRIX VALID, GO INTEGRATE IT
057861,000912: 
057862,000913: 35,3704           45174        SETCOAST           AXT,2    CALL                                  #  NOW MOVE PROPERLY SCALED RN,VN AND
057863,000914: 35,3705           00002                                    2                                     #  PIPTIME TO INTEGRATION ERASABLES.
057864,000915: 35,3706           27442                                    INTSTALL                              
057865,000916: 35,3707           77014                           BON      AXT,2                                 
057866,000917: 35,3710           00315                                    AMOONFLG                              
057867,000918: 35,3711           73713                                    +2                                    
057868,000919: 35,3712           00000                                    0                                     
057869,000920: 35,3713           53775                           VLOAD    VSR*                                  
057870,000921: 35,3714           01171                                    RN                                    
057871,000922: 35,3715           57176                                    0,2                                   
057872,000923: 35,3716           01503                           STORE    RRECT                                 
057873,000924: 35,3717           15535                           STODL    RCV                                   
057874,000925: 35,3720           01205                                    PIPTIME                               
057875,000926: 35,3721           25517                           STOVL    TET                                   
057876,000927: 35,3722           01177                                    VN                                    
057877,000928: 35,3723           45057                           VSR*     CALL                                  
057878,000929: 35,3724           57176                                    0,2                                   
057879,000930: 35,3725           23435                                    MINIRECT                              #  FINISH SETTING UP STATE VECTOR
057880,000931: 35,3726           66234                           RTB      SSP                                   
057881,000932: 35,3727           26720                                    MOVATHIS                              #  PUT TEMP STATE VECTOR INTO PERMANENT
057882,000933: 35,3730           01127                                    TRKMKCNT                              
057883,000934: 35,3731           00000                                    0                                     
057884,000935: 35,3732           43014                           SET      BON                                   
057885,000936: 35,3733           04063                                    CMOONFLG                              

Page 1328

057887,000938: 35,3734           00315                                    AMOONFLG                              
057888,000939: 35,3735           73740                                    +3                                    
057889,000940: 35,3736           77614                           CLEAR                                          
057890,000941: 35,3737           04263                                    CMOONFLG                              
057891,000942: 
057892,000943: 35,3740           71214                           BON      DLOAD                                 #  NOW DO LM
057893,000944: 35,3741           04307                                    SURFFLAG                              
057894,000945: 35,3742           75751                                    FAZAB5                                #  NO COASTING LM
057895,000946: 35,3743           01205                                    PIPTIME                               
057896,000947: 35,3744           34041                           STCALL   TDEC1                                 
057897,000948: 35,3745           26670                                    SETIFLGS                              
057898,000949: 35,3746           45014                           CLEAR    CALL                                  
057899,000950: 35,3747           01674                                    VINTFLAG                              
057900,000951: 35,3750           27162                                    INTEGRV                               
057901,000952: 35,3751           77650                           GOTO                                           
057902,000953: 35,3752           02317                                    EGRESS                                
057903,000954: 35,3753           45145        INT/W              DLOAD    CALL                                  
057904,000955: 35,3754           01205                                    PIPTIME                               #  INTEGRATE W THRU BURN
057905,000956: 35,3755           27442                                    INTSTALL                              
057906,000957: 35,3756           43014                           SET      SET                                   
057907,000958: 35,3757           01476                                    DIM0FLAG                              #  DO W-MATRIX
057908,000959: 35,3760           04476                                    AVEMIDSW                              #  SO WONT CLOBBER RN,VN,PIPTIME
057909,000960: 35,3761           43014                           CLEAR    SET                                   
057910,000961: 35,3762           01675                                    D6OR9FLG                              
057911,000962: 35,3763           01474                                    VINTFLAG                              
057912,000963: 35,3764           34041                           STCALL   TDEC1                                 
057913,000964: 35,3765           27162                                    INTEGRV                               
057914,000965: 35,3766           77650                           GOTO                                           
057915,000966: 35,3767           73704                                    SETCOAST                              
057916,000967: 

Page 1329

057918,000969:                                                                                                  #  MIDTOAV1
057919,000970: 
057920,000971:                                                                                                  #  THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
057921,000972:                                                                                                  #  IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
057922,000973:                                                                                                  #  TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
057923,000974:                                                                                                  #  IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
057924,000975:                                                                                                  #  IS DONE AS IT IS FOR MIDTOAV2.
057925,000976:                                                                                                  #  RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
057926,000977: 
057927,000978:                                                                                                  #  IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
057928,000979:                                                                                                  #  TO THE RETURN ADDRESS
057929,000980: 
057930,000981:                                                                                                  #  IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
057931,000982:                                                                                                  #  FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
057932,000983:                                                                                                  #  TION TIME AND MPAC IS SET TO THE DELTA TIME---
057933,000984:                                                                                                  #                                    TAT MINUS CURRENT TIME.
057934,000985: 
057935,000986:                                                                                                  #  MIDTOAV2
057936,000987: 
057937,000988:                                                                                                  #  THIS ROUTINE INTEGRATES THE CSM STATE VECTOR TO CURRENT TIME PLUS
057938,000989:                                                                                                  #  INCREMENTS OF TIMEDELT SUCH THAT THE DIFFERENCE BETWEEN CURRENT TIME
057939,000990:                                                                                                  #  AND THE STATE VECTOR TIME AT THE END OF THE LAST STEP IS AT LEAST 5.6
057940,000991:                                                                                                  #  SECS.
057941,000992:                                                                                                  #  NO INPUTS ARE REQUIRED OF THE CALLER.  RETURN IS IN BASIC TO THE RETURN
057942,000993:                                                                                                  #  ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
057943,000994: 
057944,000995: 13,2000                                           SETLOC   INTINIT                               
057945,000996: 13,2000                                           BANK                                           
057946,000997: 13,3543     1127                                  EBANK=   IRETURN1                              
057947,000998: 13,3543           45020        MIDTOAV2           STQ      CALL                                  
057948,000999: 13,3544           01127                                    IRETURN1                              
057949,001000: 13,3545           27442                                    INTSTALL                              
057950,001001: 13,3546           43145                           DLOAD    CLEAR                                 
057951,001002: 13,3547           27711                                    TIMEDELT                              
057952,001003: 13,3550           04674                                    MID1FLAG                              
057953,001004: 13,3551           37732                           STCALL   T-TO-ADD                              
057954,001005: 13,3552           27567                                    ENTMID2                               
057955,001006: 
057956,001007: 13,3553           45020        MIDTOAV1           STQ      CALL                                  
057957,001008: 13,3554           01127                                    IRETURN1                              
057958,001009: 13,3555           27442                                    INTSTALL                              
057959,001010: 13,3556           47014                           SET      RTB                                   
057960,001011: 13,3557           04474                                    MID1FLAG                              
057961,001012: 13,3560           45510                                    LOADTIME                              
057962,001013: 13,3561           44215                           DAD      BDSU                                  #  INITIAL CHECK, IS TDEC1 IN THE FUTURE.
057963,001014: 13,3562           27711                                    TIMEDELT                              
057964,001015: 13,3563           00041                                    TDEC1                                 
057965,001016: 13,3564           45044                           BPL      CALL                                  
057966,001017: 13,3565           27573                                    ENTMID1                               

Page 1330

057968,001019: 13,3566           27674                                    NOTIME                                #  NO SET ALARM.SWITCH TO MIDTOAV2
057969,001020: 
057970,001021: 13,3567           43234        ENTMID2            RTB      DAD                                   
057971,001022: 13,3570           45510                                    LOADTIME                              
057972,001023: 13,3571           03732                                    T-TO-ADD                              
057973,001024: 13,3572           00041                           STORE    TDEC1                                 
057974,001025: 
057975,001026: 13,3573           45014        ENTMID1            CLEAR    CALL                                  
057976,001027: 13,3574           01676                                    DIM0FLAG                              #  NO W-MATRIX
057977,001028: 13,3575           26034                                    THISVINT                              
057978,001029: 13,3576           43014                           CLEAR    SET                                   
057979,001030: 13,3577           01673                                    INTYPFLG                              
057980,001031: 13,3600           04475                                    MIDAVFLG                              #  LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
057981,001032: 13,3601           77624                           CALL                                           
057982,001033: 13,3602           27162                                    INTEGRV                               #  GO INTEGRATE
057983,001034: 13,3603           66134                           SXA,2    SXA,1                                 
057984,001035: 13,3604           03746                                    RTX2                                  
057985,001036: 13,3605           03745                                    RTX1                                  
057986,001037: 13,3606           67214                           CLEAR    SLOAD                                 
057987,001038: 13,3607           00275                                    AMOONFLG                              
057988,001039: 13,3610           03747                                    RTX2                                  
057989,001040: 13,3611           43054                           BZE      SET                                   
057990,001041: 13,3612           27614                                    +2                                    
057991,001042: 13,3613           00075                                    AMOONFLG                              
057992,001043: 13,3614           77775                           VLOAD                                          
057993,001044: 13,3615           00001                                    RATT                                  
057994,001045: 13,3616           25232                           STOVL    RN1                                   
057995,001046: 13,3617           00007                                    VATT                                  
057996,001047: 13,3620           15240                           STODL    VN1                                   
057997,001048: 13,3621           00015                                    TAT                                   
057998,001049: 13,3622           01246                           STORE    PIPTIME1                              
057999,001050: 13,3623           77776                           EXIT                                           
058000,001051: 
058001,001052: 13,3624           00004                           INHINT                                         
058002,001053: 13,3625           00006                           EXTEND                                         
058003,001054: 13,3626           40025                           DCS      TIME2                                 
058004,001055: 13,3627           20155                           DAS      MPAC                                  
058005,001056: 13,3630           07226                           TC       TPAGREE                               
058006,001057: 
058007,001058: 13,3631           31127                           CA       IRETURN1                              
058008,001059: 13,3632           04704                           TC       BANKJUMP                              
058009,001060: 13,3633           47014        CKMID2             BOF      RTB                                   
058010,001061: 13,3634           04754                                    MID1FLAG                              
058011,001062: 13,3635           27652                                    MID2                                  
058012,001063: 13,3636           45510                                    LOADTIME                              
058013,001064: 13,3637           44215                           DAD      BDSU                                  
058014,001065: 13,3640           27711                                    TIMEDELT                              
058015,001066: 13,3641           01101                                    TDEC                                  
058016,001067: 13,3642           45044                           BPL      CALL                                  
058017,001068: 13,3643           27305                                    TESTLOOP                              #  YES

Page 1331

058019,001070: 13,3644           27674                                    NOTIME                                
058020,001071: 
058021,001072: 13,3645           43234        TIMEINC            RTB      DAD                                   
058022,001073: 13,3646           45510                                    LOADTIME                              
058023,001074: 13,3647           03732                                    T-TO-ADD                              
058024,001075: 13,3650           35101                           STCALL   TDEC                                  
058025,001076: 13,3651           27305                                    TESTLOOP                              
058026,001077: 
058027,001078: 13,3652           45345        MID2               DLOAD    DSU                                   
058028,001079: 13,3653           01101                                    TDEC                                  
058029,001080: 13,3654           01517                                    TET                                   
058030,001081: 13,3655           45246                           ABS      DSU                                   
058031,001082: 13,3656           27707                                    3CSECS                                
058032,001083: 13,3657           77644                           BPL                                            
058033,001084: 13,3660           27645                                    TIMEINC                               
058034,001085: 
058035,001086: 13,3661           44234                           RTB      BDSU                                  #  SEE IF 5.6 SECS. AVAILABLE TO CALLER.
058036,001087: 13,3662           45510                                    LOADTIME                              
058037,001088: 13,3663           01517                                    TET                                   
058038,001089: 13,3664           51025                           DSU      BPL                                   
058039,001090: 13,3665           27713                                    5.6SECS                               
058040,001091: 13,3666           27176                                    A-PCHK                                #  YES,GET OUT.
058041,001092: 
058042,001093: 13,3667           43345                           DLOAD    DAD                                   #  NO,ADD TIMEDELT TO T-TO-ADD AND TRY
058043,001094: 13,3670           03732                                    T-TO-ADD                              #  AGAIN.
058044,001095: 13,3671           27711                                    TIMEDELT                              
058045,001096: 13,3672           37732                           STCALL   T-TO-ADD                              
058046,001097: 13,3673           27645                                    TIMEINC                               
058047,001098: 13,3674           77414        NOTIME             CLEAR    EXIT                                  #  TOO LATE
058048,001099: 13,3675           04674                                    MID1FLAG                              
058049,001100: 13,3676           25127                           INCR     IRETURN1                              #  SET ERROR EXIT (CALLOC +2)
058050,001101: 13,3677           05650                           TC       ALARM                                 #  INSUFFICIENT TIME FOR INTEGRATION --
058051,001102: 13,3700           01703                           OCT      1703                                  #        TIG WILL BE SLIPPED...
058052,001103: 13,3701           06006                           TC       INTPRET                               
058053,001104: 13,3702           77745                           DLOAD                                          
058054,001105: 13,3703           27711                                    TIMEDELT                              
058055,001106: 13,3704           03732                           STORE    T-TO-ADD                              
058056,001107: 13,3705           77616                           RVQ                                            
058057,001108: 
058058,001109: 13,3706           00000 00003  3CSECS             2DEC     3          B-28                       
058059,001110: 
058060,001111: 13,3710           00000 02342  TIMEDELT           2DEC     1250       B-28                       
058061,001112: 
058062,001113: 13,3712           00000 01060  5.6SECS            2DEC     560        B-28                       
058063,001114: 
058064,001115: 27,2671                                           BANK     27                                    
058065,001116: 27,2000                                           SETLOC   UPDATE2                               
058066,001117: 27,2000                                           BANK                                           
058067,001118: 27,2671     0330                                  EBANK=   INTWAKUQ                              
058068,001119: 

Page 1332

058070,001121: 27,2671                                           COUNT*   $$/INTIN                              
058071,001122: 
058072,001123: 27,2671     0330               INTWAKUQ           =        INTWAK1Q                              #  TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
058073,001124: 
058074,001125: 27,2671           00003        INTWAKEU           RELINT                                         
058075,001126: 27,2672           00006                           EXTEND                                         
058076,001127: 27,2673           22330                           QXCH     INTWAKUQ                              #  SAVE Q FOR RETURN
058077,001128: 
058078,001129: 27,2674           06006                           TC       INTPRET                               
058079,001130: 
058080,001131: 27,2675           53135                           SLOAD    BZE                                   #  IS THIS A CSM/LEM STATE VECTOR UPDATE
058081,001132: 27,2676           01502                                    UPSVFLAG                              #  REQUEST.  IF NOT GO TO INTWAKUP.
058082,001133: 27,2677           56736                                    INTWAKUP                              
058083,001134: 
058084,001135: 27,2700           77775                           VLOAD                                          #  MOVE RRECT(6) AND VRECT(6) INTO
058085,001136: 27,2701           01503                                    RRECT                                 #        RCV(6) AND VCV(6) RESPECTIVELY.
058086,001137: 27,2702           25535                           STOVL    RCV                                   
058087,001138: 27,2703           01511                                    VRECT                                 #  NOW GO TO 'RECTIFY +13D' TO
058088,001139: 27,2704           77624                           CALL                                           #  STORE VRECT INTO VCV AND ZERO OUT
058089,001140: 27,2705           23436                                    RECTIFY    +13D                       #  TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
058090,001141: 27,2706           51535                           SLOAD    ABS                                   #  COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
058091,001142: 27,2707           01502                                    UPSVFLAG                              #  TO 'UPDATE MOON STATE VECTOR CODE'
058092,001143: 27,2710           53025                           DSU      BZE                                   #  TO DETERMINE WHETHER THE STATE VECTOR TO
058093,001144: 27,2711           16747                                    UPMNSVCD                              #  BE UPDATED IS IN THE EARTH OR LUNAR
058094,001145: 27,2712           56717                                    INTWAKEM                              #  SPHERE OF INFLUENCE.........
058095,001146: 27,2713           43174                           AXT,2    CLRGO                                 #  EARTH SPHERE OF INFLUENCE.
058096,001147: 27,2714           00000                           DEC      0          B-14                       
058097,001148: 27,2715           00223                                    MOONFLAG                              
058098,001149: 27,2716           56722                                    INTWAKEC                              
058099,001150: 27,2717           43174        INTWAKEM           AXT,2    SET                                   #  LUNAR SPHERE OF INFLUENCE.
058100,001151: 27,2720           00002                           DEC      2          B-14                       
058101,001152: 27,2721           00063                                    MOONFLAG                              
058102,001153: 27,2722           50135        INTWAKEC           SLOAD    BMN                                   #  COMMON CODING AFTER X2 INITIALIZED AND
058103,001154:                                                                                                  #  MOONFLAG SET (OR CLEARED).
058104,001155: 27,2723           01502                                    UPSVFLAG                              #  IS THIS A REQUEST FOR A LEM OR CSM
058105,001156: 27,2724           56732                                    INTWAKLM                              #        STATE VECTOR UPDATE......
058106,001157: 27,2725           77624                           CALL                                           #  UPDATE CSM STATE VECTOR
058107,001158: 27,2726           26705                                    ATOPCSM                               
058108,001159: 
058109,001160: 27,2727           52014                           CLEAR    GOTO                                  
058110,001161: 27,2730           01671                                    ORBWFLAG                              
058111,001162: 27,2731           56734                                    INTWAKEX                              
058112,001163: 
058113,001164: 27,2732           77624        INTWAKLM           CALL                                           #  UPDATE LM STATE VECTOR
058114,001165: 27,2733           26760                                    ATOPLEM                               
058115,001166: 
058116,001167: 27,2734           77614        INTWAKEX           CLEAR                                          
058117,001168: 27,2735           02676                                    RENDWFLG                              
058118,001169: 
058119,001170: 27,2736           45131        INTWAKUP           SSP      CALL                                  #  REMOVE :UPDATE STATE VECTOR INDICATOR:

Page 1333

058121,001172: 27,2737           01502                                    UPSVFLAG                              
058122,001173: 27,2740           00000                                    0                                     
058123,001174: 27,2741           27455                                    INTWAKE0                              #  RELEASE :GRAB: OF ORBIT INTEG
058124,001175: 27,2742           77776                           EXIT                                           
058125,001176: 
058126,001177: 27,2743           05412                           TC       PHASCHNG                              
058127,001178: 27,2744           04026                           OCT      04026                                 
058128,001179: 27,2745           00330                           TC       INTWAKUQ                              
058129,001180: 
058130,001181: 27,2746           00002        UPMNSVCD           OCT      2                                     
058131,001182: 27,2747           00000                           OCT      0                                     
058132,001183: 
058133,001184: 27,2750           77420        GRP2PC             STQ      EXIT                                  
058134,001185: 27,2751           03536                                    GRP2SVQ                               
058135,001186: 27,2752           05412                           TC       PHASCHNG                              
058136,001187: 27,2753           04022                           OCT      04022                                 
058137,001188: 27,2754           06006                           TC       INTPRET                               
058138,001189: 27,2755           77650                           GOTO                                           
058139,001190: 27,2756           03536                                    GRP2SVQ                               
058140,001191: 
058141,001192: 
058142,001193: 

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