Source Code

These source-code files are part of a reconstructed copy of Comanche 72, the first release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

054652,000002:                                                                                                  ## Copyright:   Public domain.
054653,000003:                                                                                                  ## Filename:    INTEGRATION_INITIALIZATION.agc
054654,000004:                                                                                                  ## Purpose:     A section of Comanche revision 072.
054655,000005:                                                                                                  ##              It is part of the reconstructed source code for the first
054656,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
054657,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
054658,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
054659,000009:                                                                                                  ##              from a printout of Comanche 055, binary dumps of a set of
054660,000010:                                                                                                  ##              Comanche 067 rope modules, and changelogs between Comanche 067
054661,000011:                                                                                                  ##              and 072. It has been adapted such that the resulting bugger words
054662,000012:                                                                                                  ##              exactly match those specified for Comanche 072 in NASA drawing
054663,000013:                                                                                                  ##              2021153G, which gives relatively high confidence that the
054664,000014:                                                                                                  ##              reconstruction is correct.
054665,000015:                                                                                                  ## Assembler:   yaYUL
054666,000016:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
054667,000017:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
054668,000018:                                                                                                  ## Mod history: 2024-05-13 MAS  Created from Comanche 067.
054669,000019:                                                                                                  ##              2024-05-14 MAS  Implemented fix for COM-21, "Backwards
054670,000020:                                                                                                  ##                              integration can occur in P27 uplink".
054671,000021: 
054672,000022:                                                                                                  #  1.0 INTRODUCTION
054673,000023:                                                                                                  #  ----------------
054674,000024: 
054675,000025:                                                                                                  #  FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
054676,000026:                                                                                                  #  PROGRAM.  THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
054677,000027:                                                                                                  #  OUTPUT WILL STILL BE VIA THE PUSHLIST.  THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
054678,000028:                                                                                                  #  TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
054679,000029:                                                                                                  #  SIDE THE LUNAR SPHERE OF INFLUENCE.
054680,000030: 
054681,000031:                                                                                                  #  IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
054682,000032:                                                                                                  #  WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
054683,000033:                                                                                                  #  INTEGRATION.  THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
054684,000034:                                                                                                  #  CALL TC INTSTALL.
054685,000035: 
054686,000036:                                                                                                  #  WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
054687,000037:                                                                                                  #  INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
054688,000038:                                                                                                  #  BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
054689,000039:                                                                                                  #  THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED.  THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
054690,000040:                                                                                                  #  THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
054691,000041: 
054692,000042:                                                                                                  #  USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
054693,000043:                                                                                                  #  IN LUNAR ORBIT IS TIME DEPENDENT.  THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
054694,000044:                                                                                                  #  TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME.  FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
054695,000045:                                                                                                  #  AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
054696,000046: 
054697,000047:                                                                                                  #  2.0 GENERAL DESCRIPTION
054698,000048:                                                                                                  #  -----------------------
054699,000049: 
054700,000050:                                                                                                  #  THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS ---
054701,000051:                                                                                                  #        1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
054702,000052:                                                                                                  #        2) INTEGRATES THE W-MATRIX
054703,000053:                                                                                                  #        3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
054704,000054: 
054705,000055:                                                                                                  #  THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM.  FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
054706,000056:                                                                                                  #  ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
054707,000057:                                                                                                  #  THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST.  ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
054708,000058:                                                                                                  #  PROVIDE A STATE VECTOR TO BE INTEGRATED.  THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
054709,000059:                                                                                                  #  CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
054710,000060:                                                                                                  #  THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION.  THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
054711,000061:                                                                                                  #  NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
054712,000062:                                                                                                  #  VECTOR.  ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
054713,000063:                                                                                                  #  AND/OR STATE VECTOR.
054714,000064: 
054715,000065:                                                                                                  #  THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS.  TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
054716,000066:                                                                                                  #  USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM.  THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
054717,000067:                                                                                                  #  IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
054718,000068: 
054719,000069:                                                                                                  #  THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
054720,000070:                                                                                                  #  THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
054721,000071:                                                                                                  #  SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
054722,000072: 
054723,000073:                                                                                                  #  APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
054724,000074: 
054725,000075:                                                                                                  #  2.1 RESTARTS
054726,000076: 
054727,000077:                                                                                                  #  PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
054728,000078:                                                                                                  #  INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.)  THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
054729,000079:                                                                                                  #  (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS.  IF A RESTART OCCURS DURING AN
054730,000080:                                                                                                  #  INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM.  CALLING
054731,000081:                                                                                                  #  PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
054732,000082:                                                                                                  #  THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
054733,000083:                                                                                                  #  THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
054734,000084: 
054735,000085:                                                                                                  #  2.2 SCALING
054736,000086: 
054737,000087:                                                                                                  #  THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
054738,000088:                                                                                                  #  APPENDIX B OF THE USERS GUIDE.  THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
054739,000089:                                                                                                  #  SYSTEM AT THE DESIRED INTEGRATION TIME.  THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
054740,000090:                                                                                                  #  MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY.  THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
054741,000091:                                                                                                  #  DIFFERENT SCALING.
054742,000092:                                                                                                  #  HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
054743,000093: 
054744,000094:                                                                                                  #  3.0 INPUT/OUTPUT
054745,000095:                                                                                                  #  ----------------
054746,000096: 
054747,000097:                                                                                                  #  PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
054748,000098:                                                                                                  #  PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
054749,000099:                                                                                                  #  FOR INTEGRVS, THE RCV,VCV,TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
054750,000100: 
054751,000101:                                                                                                  #  FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
054752,000102:                                                                                                  #                                                                                EARTH   MOON
054753,000103:                                                                                                  #                                                                                 29      27
054754,000104:                                                                                                  #        RRECTCSM(LEM)   -       RECTIFIED POSITION VECTOR       METERS          2       2
054755,000105: 
054756,000106:                                                                                                  #                                                                                 7       5
054757,000107:                                                                                                  #        VRECTCSM(LEM)   -       RECTIFIED VELOCITY VECTOR       M/CSEC          2       2
054758,000108: 
054759,000109:                                                                                                  #                                                                                 28      28
054760,000110:                                                                                                  #        TETCSM(LEM)     -       TIME STATE VECTOR IS VALID      CSEC            2       2
054761,000111:                                                                                                  #                                CUSTOMARILY 0, BUT NOTE LUNAR
054762,000112:                                                                                                  #                                ORBIT DEPENDENCE ON REAL TIME.
054763,000113: 
054764,000114:                                                                                                  #                                                                                 22      18
054765,000115:                                                                                                  #        DELTAVCSM(LEM)  -       POSITION DEVIATION              METERS          2       2
054766,000116:                                                                                                  #                                0 IF TCCSM(LEM) = 0
054767,000117: 
054768,000118:                                                                                                  #                                                                                 3       -1
054769,000119:                                                                                                  #        NUVCSM(LEM)     -       VELOCITY DEVIATION              M/CSEC          2       2
054770,000120:                                                                                                  #                                0 IF TCCSM(LEM) = 0
054771,000121:                                                                                                  #                                                                                 29      27
054772,000122:                                                                                                  #        RCVCSM(LEM)     -       CONIC POSITION                  METERS          2       2
054773,000123:                                                                                                  #                                EQUALS RRECTCSM(LEM) IF
054774,000124:                                                                                                  #                                TCCSM(LEM) = 0
054775,000125: 
054776,000126:                                                                                                  #                                                                                 7       5
054777,000127:                                                                                                  #        VCVCSM(LEM)     -       CONIC VELOCITY                  M/CSEC          2       2
054778,000128:                                                                                                  #                                EQUALS VRECTCSM(LEM) IF
054779,000129:                                                                                                  #                                TCCSM(LEM) = 0
054780,000130: 
054781,000131:                                                                                                  #                                                                                 28      28
054782,000132:                                                                                                  #        TCCSM(LEM)      -       TIME SINCE RECTIFICATION        CSECS           2       2
054783,000133:                                                                                                  #                                CUSTOMARILY 0
054784,000134: 
054785,000135:                                                                                                  #                                                                 1/2             17      16
054786,000136:                                                                                                  #        XKEPCSM(LEM)    -       ROOT OF KEPLERS EQUATION        M               2       2
054787,000137:                                                                                                  #                                0 IF TCCSM(LEM) = 0
054788,000138: 
054789,000139:                                                                                                  #        CMOONFLG        -       PERMANENT FLAGS CORRESPONDING                   0       0
054790,000140:                                                                                                  #        CMIDFLAG                TO MOONFLAG AND MIDFLAG                         0,1     0,1
054791,000141:                                                                                                  #        LMOONFLG                C = CSM, L = LM                                 0       0
054792,000142:                                                                                                  #        LMIDFLG                                                                 0,1     0,1
054793,000143: 
054794,000144:                                                                                                  #        SURFFLAG        -       LUNAR SURFACE FLAG                              0,1     0,1
054795,000145: 
054796,000146:                                                                                                  #  IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
054797,000147:                                                                                                  #  SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
054798,000148:                                                                                                  #  ROUTINE MUST BE PRESET.
054799,000149: 
054800,000150:                                                                                                  #  OUTPUT
054801,000151:                                                                                                  #        AFTER EVERY CALL TO INTEGRATION
054802,000152:                                                                                                  #                                                                        EARTH   MOON
054803,000153:                                                                                                  #                                                                         29      29
054804,000154:                                                                                                  #        0D      RATT    POSITION                        METERS          2       2
054805,000155: 
054806,000156:                                                                                                  #                                                                         7       7
054807,000157:                                                                                                  #        6D      VATT    VELOCITY                        M/CSEC          2       2
054808,000158: 
054809,000159:                                                                                                  #                                                                         28      28
054810,000160:                                                                                                  #        12D     TAT     TIME                                            2       2
054811,000161: 
054812,000162:                                                                                                  #                                                                         29      27
054813,000163:                                                                                                  #        14D     RATT1   POSITION                        METERS          2       2
054814,000164: 
054815,000165:                                                                                                  #                                                                         7       5
054816,000166:                                                                                                  #        20D     VATT1   VELOCITY                        M/CSEC          2       2
054817,000167: 
054818,000168:                                                                                                  #                                                         3   2           36      30
054819,000169:                                                                                                  #        26D     MU(P)   MU                              M /CS           2       2
054820,000170: 
054821,000171:                                                                                                  #        X1              MUTABLE ENTRY                                   -2      -10D
054822,000172: 
054823,000173:                                                                                                  #        X2              COORDINT
054824,000174:                                                                                                  #        X2              COORDINATE SYSTEM ORIGEN                        0       2
054825,000175:                                                                                                  #                        (THIS, NOT MOONFLAG, SHOULD BE
054826,000176:                                                                                                  #                        USED TO DETERMINE ORIGIN.)
054827,000177: 
054828,000178:                                                                                                  #  IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
054829,000179:                                                                                                  #  STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED.  THE PUSH
054830,000180:                                                                                                  #  COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
054831,000181:                                                                                                  #  CALLING PROGRAM.
054832,000182: 
054833,000183:                                                                                                  #  4.0 CALLING SEQUENCES AND SAMPLE CODE
054834,000184:                                                                                                  #  -------------------------------------
054835,000185: 
054836,000186:                                                                                                  #        A) PRECISION ORBITAL INTEGRATION.  CSMPREC, LEMPREC ENTRANCES
054837,000187:                                                                                                  #                L-X     STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
054838,000188:                                                                                                  #                L       CALL
054839,000189:                                                                                                  #                L+1             CSMPREC (OR LEMPREC)
054840,000190:                                                                                                  #                L+2     RETURN
054841,000191:                                                                                                  #           INPUT                                                           28
054842,000192:                                                                                                  #                TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
054843,000193:                                                                                                  #           OUTPUT
054844,000194:                                                                                                  #                THE DATA LISTED IN SECTION 3.0 PLUS
054845,000195:                                                                                                  #                RQVV    POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
054846,000196:                                                                                                  #                BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
054847,000197:                                                                                                  #        B) CONIC INTEGRATION.  CSMCONIC, LEMCONIC ENTRANCES
054848,000198:                                                                                                  #                L-X     STORE TIME IN PUSH LIST (TDEC1)
054849,000199:                                                                                                  #                L       CALL
054850,000200:                                                                                                  #                L+1             CSMCONIC (OR LEMCONIC)
054851,000201:                                                                                                  #           INPUT/OUTPUT
054852,000202:                                                                                                  #                SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
054853,000203:                                                                                                  #        C) INTEGRATE GIVEN STATE VECTOR.  INTEGRVS ENTRANCE
054854,000204:                                                                                                  #                CALL
054855,000205:                                                                                                  #                                INTSTALL
054856,000206:                                                                                                  #                VLOAD
054857,000207:                                                                                                  #                                POSITION VECTOR
054858,000208:                                                                                                  #                STOVL           RCV
054859,000209:                                                                                                  #                                VELOCITY VECTOR
054860,000210:                                                                                                  #                STODL           VCV
054861,000211:                                                                                                  #                                TIME STATE VECTOR VALID
054862,000212:                                                                                                  #                STODL           TET
054863,000213:                                                                                                  #                                FINAL RADIUS
054864,000214:                                                                                                  #                STORE           RFINAL
054865,000215:                                                                                                  #                SET(CLEAR)      SET(CLEAR)
054866,000216:                                                                                                  #                                INTYPFLAG
054867,000217:                                                                                                  #                                MOONFLAG
054868,000218:                                                                                                  #                SET(CLEAR)      DLOAD
054869,000219:                                                                                                  #                                DESIRED TIME
054870,000220:                                                                                                  #                STCALL          TDEC1
054871,000221:                                                                                                  #                                INTEGRVS
054872,000222:                                                                                                  #          INPUT
054873,000223:                                                                                                  #                RCV     POSITION VECTOR                 METERS
054874,000224:                                                                                                  #                VCV     VELOCITY VECTOR                 M/CSEC
054875,000225:                                                                                                  #                TET     TIME OF STATE VECTOR (MAY = 0)  CSEC B-28
054876,000226:                                                                                                  #                TDEC1   TIME TO INTEGRATE TO            CSEC B-28 (PD 32D)
054877,000227:                                                                                                  #                        (MAY BE INCREMENT IF TET=0)
054878,000228:                                                                                                  #          OUTPUT
054879,000229:                                                                                                  #                SAME AS FOR PRECISION OR CONIC INTEGRATION,
054880,000230:                                                                                                  #                DEPENDING ON INTYPFLG.
054881,000231:                                                                                                  #        D) INTEGRATE STATE VECTOR.  INTGRV ENTRANCE
054882,000232:                                                                                                  #                L-X     STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
054883,000233:                                                                                                  #                L-8     CALL
054884,000234:                                                                                                  #                L-7
054885,000235:                                                                                                  #                L-6     SET(CLEAR)      SET(CLEAR)
054886,000236:                                                                                                  #                L-5                     VINTFLAG        1=CSM, 0=LM
054887,000237:                                                                                                  #                L-4                     INTYPFLAG       1=CONIC, 0=PRECISION
054888,000238:                                                                                                  #                L-3     SET(CLEAR)      SET(CLEAR)
054889,000239:                                                                                                  #                L-2                     DIMOFLAG        1=W-MATRIX, 0=NO W-MATRIX
054890,000240:                                                                                                  #                L-1                     D6OR9FLG        1=9X9, 0=6X6
054891,000241:                                                                                                  #                L       SET             DLOAD
054892,000242:                                                                                                  #                L+1                     STATEFLG        DESIRE PERMANENT UPDATE
054893,000243:                                                                                                  #                L+2                     FINAL RAD.      OF STATE VECTOR
054894,000244:                                                                                                  #                L+3     STCALL          RFINAL
054895,000245:                                                                                                  #                L+4                     INTEGRV
054896,000246:                                                                                                  #                L       CALL                            NORMAL USE -- WILL UPDATE STATE
054897,000247:                                                                                                  #                L+1                     INTEGRV         VECTOR IF DIMOFLAG=1. (STATEFLG IS
054898,000248:                                                                                                  #                L+2     RETURN                          ALWAYS RESET IN INTEGRATION AFTER
054899,000249:                                                                                                  #                                                        IT IS USED.)
054900,000250:                                                                                                  #          INPUT
054901,000251:                                                                                                  #                TDEC1 (PD 32D) TIME TO INTEGRATE TO     CSEC B-28
054902,000252:                                                                                                  #          OUTPUT
054903,000253:                                                                                                  #                SAME AS FOR PRECISION OR CONIC INTEGRATION
054904,000254:                                                                                                  #          THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
054905,000255:                                                                                                  #          THE PERMANENT STATE VECTOR REPRESENTATION.
054906,000256: 
054907,000257: 11,2312                                           BANK     11                                    
054908,000258: 13,2000                                           SETLOC   INTINIT                               
054909,000259: 13,2000                                           BANK                                           
054910,000260: 13,2635  E3,1554                                  EBANK=   RRECTCSM                              
054911,000261: 13,2635                                           COUNT    13/INTIN                              
054912,000262: 
054913,000263: 13,2635           05426        STATEINT           TC       PHASCHNG                              
054914,000264: 13,2636           00052                           OCT      00052                                 
054915,000265: 13,2637           35075                           CAF      PRIO5                                 
054916,000266: 13,2640           05163                           TC       FINDVAC                               
054917,000267: 13,2641  E3,1554                                  EBANK=   RRECTCSM                              
054918,000268: 13,2641           02644 26063                     2CADR    STATINT1                              
054919,000269: 
054920,000270: 13,2643           05340                           TC       TASKOVER                              
054921,000271: 13,2644           06006        STATINT1           TC       INTPRET                               
054922,000272: 13,2645           47014                           BON      RTB                                   
054923,000273: 13,2646           04712                                    QUITFLAG                              
054924,000274: 13,2647           26706                                    NOINT                                 #  NO STATEINT IF V96
054925,000275: 13,2650           45510                                    LOADTIME                              
054926,000276: 13,2651           00041                           STORE    TDEC1                                 
054927,000277: 13,2652           45014                           CLEAR    CALL                                  
054928,000278: 13,2653           04274                                    V96ONFLG                              
054929,000279: 13,2654           27446                                    INTSTALL                              
054930,000280: 13,2655           45014                           SET      CALL                                  
054931,000281: 13,2656           01076                                    NODOFLAG                              
054932,000282: 13,2657           26677                                    SETIFLGS                              

Reconstruction: The setting of POOFLAG here was added as part of the fix for anomaly COM-21, "Backwards integration can occur in P27 uplink".

054936,000286: 13,2660           52014                           SET      GOTO                                  #  INHIBIT BACKWARDS INTEGRATION
054937,000287: 13,2661           01466                                    POOFLAG                               
054938,000288: 13,2662           26000                                    STATEUP                               
054939,000289: 13,2663           00003 25140  600SECS            2DEC     60000      B-28                       
054940,000290: 
054941,000291: 13,2665           77414        ENDINT             CLEAR    EXIT                                  
054942,000292: 13,2666           01672                                    STATEFLG                              
054943,000293: 13,2667           05426                           TC       PHASCHNG                              
054944,000294: 13,2670           20032                           OCT      20032                                 
054945,000295: 13,2671           00006                           EXTEND                                         
054946,000296: 13,2672           32664                           DCA      600SECS                               
054947,000297: 13,2673           05356                           TC       LONGCALL                              
054948,000298: 13,2674  E3,1554                                  EBANK=   RRECTHIS                              
054949,000299: 13,2674           02635 26063                     2CADR    STATEINT                              
054950,000300: 
054951,000301: 13,2676           05233                           TC       ENDOFJOB                              
054952,000302: 13,2677           43014        SETIFLGS           SET      CLEAR                                 
054953,000303: 13,2700           01472                                    STATEFLG                              
054954,000304: 13,2701           01673                                    INTYPFLG                              
054955,000305: 13,2702           43014                           CLEAR    CLEAR                                 
054956,000306: 13,2703           01676                                    DIM0FLAG                              
054957,000307: 13,2704           01675                                    D6OR9FLG                              
054958,000308: 13,2705           77616                           RVQ                                            
054959,000309: 13,2706           77776        NOINT              EXIT                                           
054960,000310: 13,2707           05426                           TC       PHASCHNG                              
054961,000311: 13,2710           00002                           OCT      2                                     
054962,000312: 
054963,000313: 13,2711           05574                           TC       DOWNFLAG                              
054964,000314: 13,2712           00221                           ADRES    QUITFLAG                              
054965,000315: 
054966,000316: 13,2713           05233                           TC       ENDOFJOB                              
054967,000317: 
054968,000318:                                                                                                  #  ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
054969,000319: 
054970,000320:                                                                                                  #  CALLING SEQUENCE
054971,000321:                                                                                                  #        L       CALL
054972,000322:                                                                                                  #        L+1             ATOPCSM
054973,000323: 
054974,000324:                                                                                                  #  NORMAL EXIT AT L+2
054975,000325: 
054976,000326: 13,2714           47020        ATOPCSM            STQ      RTB                                   
054977,000327: 13,2715           00051                                    S2                                    
054978,000328: 13,2716           26727                                    MOVEACSM                              
054979,000329: 13,2717           45014                           SET      CALL                                  
054980,000330: 13,2720           04063                                    CMOONFLG                              
054981,000331: 13,2721           20237                                    SVDWN1                                
054982,000332: 13,2722           43014                           BON      CLRGO                                 
054983,000333: 13,2723           00303                                    MOONFLAG                              
054984,000334: 13,2724           00051                                    S2                                    
054985,000335: 13,2725           04223                                    CMOONFLG                              
054986,000336: 13,2726           00051                                    S2                                    
054987,000337: 13,2727           03073        MOVEACSM           TC       SETBANK                               
054988,000338: 13,2730           55500                           TS       DIFEQCNT                              #  INITIALIZE INDEX
054989,000339: 13,2731           51500                           INDEX    DIFEQCNT                              
054990,000340: 13,2732           31502                           CA       RRECT                                 
054991,000341: 13,2733           51500                           INDEX    DIFEQCNT                              
054992,000342: 13,2734           55554                           TS       RRECTCSM                              
054993,000343: 13,2735           11500                           CCS      DIFEQCNT                              #  IS TRANSFER COMPLETE
054994,000344: 13,2736           12730                           TCF      MOVEACSM   +1                         #  NO-LOOP
054995,000345: 13,2737           06030                           TC       DANZIG                                #  COMPLETE - RETURN
054996,000346: 
054997,000347:                                                                                                  #  PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
054998,000348: 
054999,000349:                                                                                                  #  CALLING SEQUENCE
055000,000350:                                                                                                  #        L       CALL
055001,000351:                                                                                                  #                        PTOACSM
055002,000352: 
055003,000353:                                                                                                  #  NORMAL EXIT AT L+2
055004,000354: 
055005,000355: 13,2740           43034        PTOACSM            RTB      BON                                   
055006,000356: 13,2741           26756                                    MOVEPCSM                              
055007,000357: 13,2742           04303                                    CMOONFLG                              
055008,000358: 13,2743           26751                                    SETMOON                               
055009,000359: 13,2744           66214        CLRMOON            CLEAR    SSP                                   
055010,000360: 13,2745           00263                                    MOONFLAG                              
055011,000361: 13,2746           02151                                    PBODY                                 
055012,000362: 13,2747           00000                                    0                                     
055013,000363: 13,2750           77616                           RVQ                                            
055014,000364: 13,2751           66214        SETMOON            SET      SSP                                   
055015,000365: 13,2752           00063                                    MOONFLAG                              
055016,000366: 13,2753           02151                                    PBODY                                 
055017,000367: 13,2754           00002                                    2                                     
055018,000368: 13,2755           77616                           RVQ                                            
055019,000369: 13,2756           03073        MOVEPCSM           TC       SETBANK                               
055020,000370: 13,2757           55500                           TS       DIFEQCNT                              
055021,000371: 13,2760           51500                           INDEX    DIFEQCNT                              
055022,000372: 13,2761           31554                           CA       RRECTCSM                              
055023,000373: 13,2762           51500                           INDEX    DIFEQCNT                              
055024,000374: 13,2763           55502                           TS       RRECT                                 
055025,000375: 13,2764           11500                           CCS      DIFEQCNT                              
055026,000376: 13,2765           12757                           TCF      MOVEPCSM   +1                         
055027,000377: 13,2766           06030                           TC       DANZIG                                
055028,000378: 
055029,000379:                                                                                                  #  ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
055030,000380: 13,2767           47020        ATOPLEM            STQ      RTB                                   
055031,000381: 13,2770           00051                                    S2                                    
055032,000382: 13,2771           27002                                    MOVEALEM                              
055033,000383: 13,2772           45014                           SET      CALL                                  
055034,000384: 13,2773           04064                                    LMOONFLG                              
055035,000385: 13,2774           20263                                    SVDWN2                                
055036,000386: 13,2775           43014                           BON      CLRGO                                 
055037,000387: 13,2776           00303                                    MOONFLAG                              
055038,000388: 13,2777           00051                                    S2                                    
055039,000389: 13,3000           04224                                    LMOONFLG                              
055040,000390: 13,3001           00051                                    S2                                    
055041,000391: 13,3002           03073        MOVEALEM           TC       SETBANK                               
055042,000392: 13,3003           55500                           TS       DIFEQCNT                              
055043,000393: 13,3004           51500                           INDEX    DIFEQCNT                              
055044,000394: 13,3005           31502                           CA       RRECT                                 
055045,000395: 13,3006           51500                           INDEX    DIFEQCNT                              
055046,000396: 13,3007           55626                           TS       RRECTLEM                              
055047,000397: 13,3010           11500                           CCS      DIFEQCNT                              
055048,000398: 13,3011           13003                           TCF      MOVEALEM   +1                         
055049,000399: 13,3012           06030                           TC       DANZIG                                
055050,000400: 
055051,000401:                                                                                                  #  PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
055052,000402: 
055053,000403: 13,3013           47014        PTOALEM            BON      RTB                                   
055054,000404: 13,3014           04307                                    SURFFLAG                              
055055,000405: 13,3015           27034                                    USEPIOS                               
055056,000406: 13,3016           27023                                    MOVEPLEM                              
055057,000407: 13,3017           52014                           BON      GOTO                                  
055058,000408: 13,3020           04304                                    LMOONFLG                              
055059,000409: 13,3021           26751                                    SETMOON                               
055060,000410: 13,3022           26744                                    CLRMOON                               
055061,000411: 13,3023           03073        MOVEPLEM           TC       SETBANK                               
055062,000412: 13,3024           55500                           TS       DIFEQCNT                              
055063,000413: 13,3025           51500                           INDEX    DIFEQCNT                              
055064,000414: 13,3026           31626                           CA       RRECTLEM                              
055065,000415: 13,3027           51500                           INDEX    DIFEQCNT                              
055066,000416: 13,3030           55502                           TS       RRECT                                 
055067,000417: 13,3031           11500                           CCS      DIFEQCNT                              
055068,000418: 13,3032           13024                           TCF      MOVEPLEM   +1                         
055069,000419: 13,3033           06030                           TC       DANZIG                                
055070,000420: 
055071,000421: 13,3034           77201        USEPIOS            SETPD    VLOAD                                 
055072,000422: 13,3035           00001                                    0                                     
055073,000423: 13,3036           02026                                    RLS                                   
055074,000424: 13,3037           41525                           PDDL     PUSH                                  
055075,000425: 13,3040           00041                                    TDEC1                                 
055076,000426: 13,3041           15517                           STODL    TET                                   
055077,000427: 13,3042           27757                                    5/8                                   
055078,000428: 13,3043           77624                           CALL                                           
055079,000429: 13,3044           55343                                    RP-TO-R                               
055080,000430: 13,3045           25535                           STOVL    RCV                                   
055081,000431: 13,3046           11560                                    ZUNIT                                 
055082,000432: 13,3047           14001                           STODL    0D                                    
055083,000433: 13,3050           01517                                    TET                                   
055084,000434: 13,3051           14007                           STODL    6D                                    
055085,000435: 13,3052           27757                                    5/8                                   
055086,000436: 13,3053           45014                           SET      CALL                                  #  NEEDED FOR SETTING X1 ON EXIT
055087,000437: 13,3054           00063                                    MOONFLAG                              
055088,000438: 13,3055           55343                                    RP-TO-R                               
055089,000439: 13,3056           74235                           VXV      VXSC                                  
055090,000440: 13,3057           01535                                    RCV                                   
055091,000441: 13,3060           27072                                    OMEGMOON                              
055092,000442: 13,3061           25543                           STOVL    VCV                                   
055093,000443: 13,3062           11566                                    ZEROVEC                               
055094,000444: 13,3063           01521                           STORE    TDELTAV                               
055095,000445: 13,3064           67174                           AXT,2    SXA,2                                 
055096,000446: 13,3065           00002                                    2                                     
055097,000447: 13,3066           02150                                    PBODY                                 
055098,000448: 13,3067           35527                           STCALL   TNUV                                  
055099,000449: 13,3070           27205                                    A-PCHK                                
055100,000450: 13,3071           07112 06620  OMEGMOON           2DEC*    2.66169947 E-8        B+23*           
055101,000451: 
055102,000452: 13,3073           33077        SETBANK            CAF      INTBANK                               
055103,000453: 13,3074           54006                           TS       BBANK                                 
055104,000454: 13,3075           33513                           CAF      FORTYONE                              
055105,000455: 13,3076           00002                           TC       Q                                     
055106,000456: 13,3077  E3,1554                                  EBANK=   RRECTCSM                              
055107,000457: 13,3077           26063        INTBANK            BBCON    INTEGRV                               
055108,000458: 
055109,000459:                                                                                                  #  SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION.  THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
055110,000460:                                                                                                  #  APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
055111,000461: 
055112,000462:                                                                                                  #  CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
055113,000463:                                                                                                  #  ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED.  NO W-MATRIX INT. IS DONE.
055114,000464:                                                                                                  #  THE PERMANENT STATE VECTOR IS NOT UPDATED.
055115,000465:                                                                                                  #  CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
055116,000466:                                                                                                  #  NO DISTURBING ACCELERATIONS ARE INCLUDED.  IN THE PROGRAM FLOW THE GIVEN
055117,000467:                                                                                                  #  STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
055118,000468: 
055119,000469:                                                                                                  #  THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
055120,000470:                                                                                                  #  SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
055121,000471:                                                                                                  #                        CSMPREC         CSMCONIC        LEMPREC         LEMCONIC
055122,000472:                                                                                                  #        VINTFLAG        SET             SET             CLEAR           CLEAR
055123,000473:                                                                                                  #        INTYPFLG        CLEAR           SET             CLEAR           SET
055124,000474:                                                                                                  #        DIM0FLAG        CLEAR           CLEAR           CLEAR           CLEAR
055125,000475: 
055126,000476:                                                                                                  #  CALLING SEQUENCE
055127,000477:                                                                                                  #        L-X     STORE   TDEC1
055128,000478:                                                                                                  #        L       CALL                    (STCALL TDEC1)
055129,000479:                                                                                                  #        L+1             CSMPREC         (CSMCONIC, LEMPREC, LEMCONIC)
055130,000480: 
055131,000481:                                                                                                  #  NORMAL EXIT TO L+2
055132,000482: 
055133,000483:                                                                                                  #  SUBROUTINES CALLED
055134,000484:                                                                                                  #        INTEGRV1
055135,000485:                                                                                                  #        PRECOUT FOR CSMPREC AND LEMPREC
055136,000486:                                                                                                  #        CONICOUT FOR CSMCONIC AND LEMCONIC
055137,000487: 
055138,000488:                                                                                                  #  OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
055139,000489: 
055140,000490:                                                                                                  #  INPUT
055141,000491:                                                                                                  #        TDEC1           TIME TO INTEGRATE TO.  CSECS B-28
055142,000492: 
055143,000493: 13,3100           45020        CSMPREC            STQ      CALL                                  
055144,000494: 13,3101           00046                                    X1                                    
055145,000495: 13,3102           27446                                    INTSTALL                              
055146,000496: 13,3103           43130                           SXA,1    SET                                   
055147,000497: 13,3104           02214                                    IRETURN                               
055148,000498: 13,3105           01474                                    VINTFLAG                              
055149,000499: 
055150,000500: 13,3106           43014        IFLAGP             SET      CLEAR                                 
055151,000501: 13,3107           01467                                    PRECIFLG                              
055152,000502: 13,3110           01676                                    DIM0FLAG                              
055153,000503: 13,3111           77614                           CLRGO                                          
055154,000504: 13,3112           01633                                    INTYPFLG                              
055155,000505: 13,3113           27173                                    INTEGRV1                              
055156,000506: 13,3114           45020        LEMPREC            STQ      CALL                                  
055157,000507: 13,3115           00046                                    X1                                    
055158,000508: 13,3116           27446                                    INTSTALL                              
055159,000509: 13,3117           43130                           SXA,1    CLRGO                                 
055160,000510: 13,3120           02214                                    IRETURN                               
055161,000511: 13,3121           01634                                    VINTFLAG                              
055162,000512: 13,3122           27106                                    IFLAGP                                
055163,000513: 
055164,000514: 13,3123           45020        CSMCONIC           STQ      CALL                                  
055165,000515: 13,3124           00046                                    X1                                    
055166,000516: 13,3125           27446                                    INTSTALL                              
055167,000517: 13,3126           43130                           SXA,1    SET                                   
055168,000518: 13,3127           02214                                    IRETURN                               
055169,000519: 13,3130           01474                                    VINTFLAG                              
055170,000520: 13,3131           43014        IFLAGC             CLEAR    SETGO                                 
055171,000521: 13,3132           01676                                    DIM0FLAG                              
055172,000522: 13,3133           01433                                    INTYPFLG                              
055173,000523: 13,3134           27173                                    INTEGRV1                              
055174,000524: 13,3135           45020        LEMCONIC           STQ      CALL                                  
055175,000525: 13,3136           00046                                    X1                                    
055176,000526: 13,3137           27446                                    INTSTALL                              
055177,000527: 13,3140           43130                           SXA,1    CLRGO                                 
055178,000528: 13,3141           02214                                    IRETURN                               
055179,000529: 13,3142           01634                                    VINTFLAG                              
055180,000530: 13,3143           27131                                    IFLAGC                                
055181,000531: 
055182,000532: 13,3144           66214        INTEGRVS           SET      SSP                                   
055183,000533: 13,3145           01467                                    PRECIFLG                              
055184,000534: 13,3146           02151                                    PBODY                                 
055185,000535: 13,3147           00000                                    0                                     
055186,000536: 13,3150           66214                           BOF      SSP                                   
055187,000537: 13,3151           00343                                    MOONFLAG                              
055188,000538: 13,3152           27155                                    +3                                    
055189,000539: 13,3153           02151                                    PBODY                                 
055190,000540: 13,3154           00002                                    2                                     
055191,000541: 13,3155           77220                           STQ      VLOAD                                 
055192,000542: 13,3156           02214                                    IRETURN                               
055193,000543: 13,3157           11566                                    ZEROVEC                               
055194,000544: 13,3160           01521                           STORE    TDELTAV                               
055195,000545: 13,3161           35527                           STCALL   TNUV                                  
055196,000546: 13,3162           23403                                    RECTIFY                               
055197,000547: 13,3163           43014                           CLEAR    SET                                   
055198,000548: 13,3164           01676                                    DIM0FLAG                              
055199,000549: 13,3165           04062                                    NEWIFLG                               
055200,000550: 13,3166           77614                           SETGO                                          
055201,000551: 13,3167           04020                                    RPQFLAG                               
055202,000552: 13,3170           22312                                    ALOADED                               
055203,000553: 
055204,000554:                                                                                                  #  INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
055205,000555:                                                                                                  #  NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS.  THE ROUTINE
055206,000556:                                                                                                  #  IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
055207,000557:                                                                                                  #  THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
055208,000558:                                                                                                  #  PROGRAM FOR PRECISION OR CONIC
055209,000559: 
055210,000560:                                                                                                  #  THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
055211,000561:                                                                                                  #  SETTING ANY FLAGS.
055212,000562: 
055213,000563:                                                                                                  #  THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
055214,000564:                                                                                                  #        VINTFLAG        (IGNORED WHEN ENTERED FROM INTEGRVS)
055215,000565:                                                                                                  #        INTYPFLG
055216,000566:                                                                                                  #        DIM0FLAG
055217,000567:                                                                                                  #        D6OR9FLG
055218,000568: 
055219,000569:                                                                                                  #  CALLING SEQUENCE
055220,000570:                                                                                                  #        L-X     CALL
055221,000571:                                                                                                  #        L-Y             INTSTALL
055222,000572:                                                                                                  #        L-1     SET OR CLEAR ALL FOUR FLAGS.  ALSO CAN SET STATEFLG IF DESIRED
055223,000573:                                                                                                  #                AND DIM0FLAG IS CLEAR.
055224,000574:                                                                                                  #        L       CALL
055225,000575:                                                                                                  #        L+1             INTEGRV
055226,000576: 
055227,000577:                                                                                                  #  INITIALIZATION
055228,000578:                                                                                                  #        FLAGS AS ABOVE
055229,000579:                                                                                                  #        STORE TIME TO INTEGRATE TO IN TDEC1
055230,000580: 
055231,000581:                                                                                                  #  OUTPUT
055232,000582:                                                                                                  #        RATT    AS
055233,000583:                                                                                                  #        VATT          DEFINED
055234,000584:                                                                                                  #        TAT                     BEFORE
055235,000585: 
055236,000586: 13,3171           77620        INTEGRV            STQ                                            
055237,000587: 13,3172           02214                                    IRETURN                               
055238,000588: 13,3173           43014        INTEGRV1           SET      SET                                   
055239,000589: 13,3174           04060                                    RPQFLAG                               
055240,000590: 13,3175           04062                                    NEWIFLG                               
055241,000591: 13,3176           77731        INTEGRV2           SSP                                            
055242,000592: 13,3177           00053                                    QPRET                                 
055243,000593: 13,3200           22312                                    ALOADED                               
055244,000594: 13,3201           52014                           BON      GOTO                                  
055245,000595: 13,3202           01714                                    VINTFLAG                              
055246,000596: 13,3203           26740                                    PTOACSM                               
055247,000597: 13,3204           27013                                    PTOALEM                               
055248,000598: 11,2000                                           SETLOC   INTINIT1                              
055249,000599: 11,2000                                           BANK                                           
055250,000600: 11,2312           77745        ALOADED            DLOAD                                          
055251,000601: 11,2313           00041                                    TDEC1                                 
055252,000602: 11,2314           01101                           STORE    TDEC                                  
055253,000603: 11,2315           52014                           BOFF     GOTO                                  
055254,000604: 11,2316           01753                                    INTYPFLG                              
055255,000605: 11,2317           27314                                    TESTLOOP                              
055256,000606: 11,2320           27300                                    RVCON                                 
055257,000607: 13,2000                                           SETLOC   INTINIT                               
055258,000608: 13,2000                                           BANK                                           
055259,000609: 13,3205           45014        A-PCHK             BOF      CALL                                  
055260,000610: 13,3206           00342                                    MIDFLAG                               
055261,000611: 13,3207           27214                                    ANDOUT                                #  DONT MAKE ORIGIN CHANGE CHECK
055262,000612: 13,3210           23302                                    CHKSWTCH                              
055263,000613: 13,3211           45044                           BPL      CALL                                  
055264,000614: 13,3212           27214                                    ANDOUT                                #  NO ORIGIN CHANGE
055265,000615: 13,3213           23343                                    ORIGCHNG                              #  MAKE THE SWITCH
055266,000616: 13,3214           77414        ANDOUT             BOFCLR   EXIT                                  
055267,000617: 13,3215           01652                                    STATEFLG                              
055268,000618: 13,3216           27235                                    RECTOUT                               
055269,000619: 13,3217           05426                           TC       PHASCHNG                              
055270,000620: 13,3220           04022                           OCT      04022                                 
055271,000621: 13,3221           05562                           TC       UPFLAG                                #  PHASE CHANGE HAS OCCURRED BETWEEN
055272,000622: 13,3222           00236                           ADRES    REINTFLG                              #  INTSTALL AND INTWAKE
055273,000623: 13,3223           06006                           TC       INTPRET                               
055274,000624: 13,3224           77731                           SSP                                            
055275,000625: 13,3225           00053                                    QPRET                                 
055276,000626: 13,3226           27233                                    PHEXIT                                
055277,000627: 13,3227           52014                           BON      GOTO                                  
055278,000628: 13,3230           01714                                    VINTFLAG                              
055279,000629: 13,3231           26714                                    ATOPCSM                               
055280,000630: 13,3232           26767                                    ATOPLEM                               
055281,000631: 13,3233           77624        PHEXIT             CALL                                           
055282,000632: 13,3234           56751                                    GRP2PC                                
055283,000633: 13,3235           45001        RECTOUT            SETPD    CALL                                  
055284,000634: 13,3236           00001                                    0                                     
055285,000635: 13,3237           23403                                    RECTIFY                               
055286,000636: 13,3240           53775                           VLOAD    VSL*                                  
055287,000637: 13,3241           01503                                    RRECT                                 
055288,000638: 13,3242           57576                                    0,2                                   
055289,000639: 13,3243           53715                           PDVL     VSL*                                  #  RATT TO PD0
055290,000640: 13,3244           01511                                    VRECT                                 
055291,000641: 13,3245           57576                                    0,2                                   
055292,000642: 13,3246           63325                           PDDL     PDVL                                  #  VATT TO PD6   TAT TO PD12
055293,000643: 13,3247           01517                                    TET                                   
055294,000644: 13,3250           01503                                    RRECT                                 
055295,000645: 13,3251           64715                           PDVL     PDDL*                                 
055296,000646: 13,3252           01511                                    VRECT                                 
055297,000647: 13,3253           50036                                    MUEARTH,2                             
055298,000648: 13,3254           76006                           PUSH     AXT,1                                 
055299,000649: 13,3255           77765                           DEC      -10        B-14                       
055300,000650: 13,3256           76014                           BON      AXT,1                                 
055301,000651: 13,3257           00303                                    MOONFLAG                              
055302,000652: 13,3260           27262                                    +2                                    
055303,000653: 13,3261           77775                           DEC      -2         B-14                       
055304,000654: 13,3262           40001        INTEXIT            SETPD    BOV                                   
055305,000655: 13,3263           00001                                    0                                     
055306,000656: 13,3264           27265                                    +1                                    
055307,000657: 13,3265           77614                           CLEAR                                          
055308,000658: 13,3266           04675                                    MIDAVFLG                              
055309,000659: 13,3267           43014                           CLEAR    CLEAR                                 
055310,000660: 13,3270           04676                                    AVEMIDSW                              #  ALLOW UPDATE OF DOWNLINK STATE VECTOR
055311,000661: 13,3271           01667                                    PRECIFLG                              
055312,000662: 13,3272           77535                           SLOAD    EXIT                                  
055313,000663: 13,3273           02215                                    IRETURN                               
055314,000664: 13,3274           30154                           CA       MPAC                                  
055315,000665: 13,3275           50120                           INDEX    FIXLOC                                
055316,000666: 13,3276           54052                           TS       QPRET                                 
055317,000667: 13,3277           03463                           TC       INTWAKE                               
055318,000668: 
055319,000669:                                                                                                  #  RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
055320,000670:                                                                                                  #  VELOCITY FOR THE INTERVAL (TET-TDEC)
055321,000671: 
055322,000672: 13,3300           45345        RVCON              DLOAD    DSU                                   
055323,000673: 13,3301           01101                                    TDEC                                  
055324,000674: 13,3302           01517                                    TET                                   
055325,000675: 13,3303           36312                           STCALL   TAU.                                  
055326,000676: 13,3304           23403                                    RECTIFY                               
055327,000677: 13,3305           77624                           CALL                                           
055328,000678: 13,3306           22321                                    KEPPREP                               
055329,000679: 13,3307           43345                           DLOAD    DAD                                   
055330,000680: 13,3310           01551                                    TC                                    
055331,000681: 13,3311           01517                                    TET                                   
055332,000682: 13,3312           35517                           STCALL   TET                                   
055333,000683: 13,3313           27235                                    RECTOUT                               
055334,000684: 
055335,000685:                                                                                                  #  TESTLOOP
055336,000686: 
055337,000687: 13,3314           43014        TESTLOOP           BOF      CLRGO                                 
055338,000688: 13,3315           04752                                    QUITFLAG                              
055339,000689: 13,3316           27321                                    +3                                    
055340,000690: 13,3317           01632                                    STATEFLG                              
055341,000691: 13,3320           27262                                    INTEXIT                               #  STOP INTEGRATION
055342,000692: 13,3321           73001                 +3        SETPD    LXA,2                                 
055343,000693: 13,3322           00013                                    10D                                   
055344,000694: 13,3323           02150                                    PBODY                                 
055345,000695: 13,3324           51575                           VLOAD    ABVAL                                 
055346,000696: 13,3325           01535                                    RCV                                   
055347,000697: 13,3326           43006                           PUSH     CLEAR                                 #  RC TO 10D
055348,000698: 13,3327           00262                                    MIDFLAG                               
055349,000699: 13,3330           50023                           DSU*     BMN                                   #  MIDFLAG=0 IF R G.T. RMP
055350,000700: 13,3331           67212                                    RME,2                                 
055351,000701: 13,3332           27335                                    +3                                    
055352,000702: 13,3333           77614                           SET                                            
055353,000703: 13,3334           00062                                    MIDFLAG                               
055354,000704: 13,3335           41345        NORFINAL           DLOAD    DMP                                   
055355,000705: 13,3336           00013                                    10D                                   
055356,000706: 13,3337           00043                                    34D                                   
055357,000707: 13,3340           55762                           SR1R     DDV*                                  
055358,000708: 13,3341           50036                                    MUEARTH,2                             
055359,000709: 13,3342           41366                           SQRT     DMP                                   
055360,000710: 13,3343           23734                                    .3D                                   
055361,000711: 13,3344           40442                           SR3      SR4                                   #  DT IS TRUNCATED TO A MULTIPLE
055362,000712: 13,3345           54345                           DLOAD    SL                                    
055363,000713: 13,3346           00155                                    MPAC                                  
055364,000714: 13,3347           20220                                    15D                                   #        OF 128 CSECS.
055365,000715: 13,3350           40006                           PUSH     BOV                                   
055366,000716: 13,3351           27376                                    MAXDT                                 
055367,000717: 13,3352           50021                           BDSU     BMN                                   
055368,000718: 13,3353           27445                                    DT/2MAX                               
055369,000719: 13,3354           27376                                    MAXDT                                 
055370,000720: 13,3355           45345        DT/2COMP           DLOAD    DSU                                   
055371,000721: 13,3356           01101                                    TDEC                                  
055372,000722: 13,3357           01517                                    TET                                   
055373,000723: 13,3360           54234                           RTB      SL                                    
055374,000724: 13,3361           45544                                    SGNAGREE                              
055375,000725: 13,3362           20211                                    8D                                    
055376,000726: 13,3363           02314                           STORE    DT/2                                  #  B-19
055377,000727: 13,3364           51400                           BOV      ABS                                   
055378,000728: 13,3365           27402                                    GETMAXDT                              
055379,000729: 13,3366           50025                           DSU      BMN                                   #  IS TIME TO INTEG. TO GR THAN MAXTIME
055380,000730: 13,3367           00015                                    12D                                   
055381,000731: 13,3370           27406                                    P00HCHK                               
055382,000732: 13,3371           75345        USEMAXDT           DLOAD    SIGN                                  
055383,000733: 13,3372           00015                                    12D                                   
055384,000734: 13,3373           02314                                    DT/2                                  
055385,000735: 13,3374           36314                           STCALL   DT/2                                  
055386,000736: 13,3375           27406                                    P00HCHK                               
055387,000737: 13,3376           65345        MAXDT              DLOAD    PDDL                                  #  EXCHANGE DT/2MAX WITH COMPUTED MAX.
055388,000738: 13,3377           27445                                    DT/2MAX                               
055389,000739: 13,3400           77650                           GOTO                                           
055390,000740: 13,3401           27355                                    DT/2COMP                              
055391,000741: 13,3402           77634        GETMAXDT           RTB                                            
055392,000742: 13,3403           45712                                    SIGNMPAC                              
055393,000743: 13,3404           36314                           STCALL   DT/2                                  
055394,000744: 13,3405           27371                                    USEMAXDT                              
055395,000745: 13,3406           51545        P00HCHK            DLOAD    ABS                                   
055396,000746: 13,3407           02314                                    DT/2                                  
055397,000747: 13,3410           50025                           DSU      BMN                                   
055398,000748: 13,3411           27443                                    DT/2MIN                               
055399,000749: 13,3412           27205                                    A-PCHK                                

Reconstruction: Comanche 67 and earlier examine MODREG here instead of checking POOFLAG. The change was made as part of the fix for anomaly COM-21, "Backwards integration can occur in P27 uplink".

055404,000754: 13,3413           43014                           BOFF     BON                                   
055405,000755: 13,3414           01746                                    POOFLAG                               #  IS BACKWARDS INTEGRATION INHIBITED
055406,000756: 13,3415           23222                                    TIMESTEP                              #  NO
055407,000757: 13,3416           01707                                    PRECIFLG                              #  WAS THIS CALL VIA CSM(LEM)PREC
055408,000758: 13,3417           23222                                    TIMESTEP                              #  YES
055409,000759: 13,3420           45345                           DLOAD    DSU                                   
055410,000760: 13,3421           02314                                    DT/2                                  
055411,000761: 13,3422           00015                                    12D                                   
055412,000762: 13,3423           43040                           BMN      BOFCLR                                
055413,000763: 13,3424           27205                                    A-PCHK                                
055414,000764: 13,3425           04242                                    NEWIFLG                               
055415,000765: 13,3426           23222                                    TIMESTEP                              
055416,000766: 13,3427           45345                           DLOAD    DSU                                   
055417,000767: 13,3430           01101                                    TDEC                                  
055418,000768: 13,3431           01517                                    TET                                   
055419,000769: 13,3432           77640                           BMN                                            #  NO BACKWARD INTEGRATION
055420,000770: 13,3433           27262                                    INTEXIT                               
055421,000771: 13,3434           40525                           PDDL     SR4                                   
055422,000772: 13,3435           02314                                    DT/2                                  #  IS 4(DT) LS (TDEC - TET)
055423,000773: 13,3436           44322                           SR2R     BDSU                                  #  NO
055424,000774: 13,3437           52040                           BMN      GOTO                                  
055425,000775: 13,3440           27262                                    INTEXIT                               
055426,000776: 13,3441           23222                                    TIMESTEP                              
055427,000777: 13,3442           00000 01400  DT/2MIN            2DEC     3          B-20                       
055428,000778: 
055429,000779: 13,3444           14152 00000  DT/2MAX            2DEC     4000       E2         B-20            
055430,000780: 
055431,000781: 13,3446           77776        INTSTALL           EXIT                                           
055432,000782: 13,3447           35035                           CAF      ZERO                                  
055433,000783: 13,3450           54001        ALLSTALL           TS       L                                     
055434,000784: 13,3451           30106                           CA       RASFLAG                               
055435,000785: 13,3452           50001                           INDEX    L                                     
055436,000786: 13,3453           73544                           MASK     INTBITAB                              #  IS THIS STALL AREA FREE
055437,000787: 13,3454           00006                           EXTEND                                         
055438,000788: 13,3455           13522                           BZF      OKTOGRAB                              #  YES
055439,000789: 13,3456           50001                           INDEX    L                                     
055440,000790: 13,3457           33541                           CAF      WAKESTAL                              
055441,000791: 13,3460           05211                           TC       JOBSLEEP                              
055442,000792: 13,3461           77776        INTWAKE0           EXIT                                           
055443,000793: 13,3462           13503                           TCF      INTWAKE1                              
055444,000794: 
055445,000795: 13,3463           40106        INTWAKE            CS       RASFLAG                               #  IS THIS INTSTALLED ROUTINE TO BE
055446,000796: 13,3464           75025                           MASK     REINTBIT                              #        RESTARTED
055447,000797: 13,3465           10000                           CCS      A                                     
055448,000798: 13,3466           03503                           TC       INTWAKE1                              #  NO
055449,000799: 
055450,000800: 13,3467           50120                           INDEX    FIXLOC                                
055451,000801: 13,3470           30052                           CA       QPRET                                 
055452,000802: 13,3471           55055                           TS       TBASE2                                #  YES, DONT RESTART WITH SOMEONE ELSES Q
055453,000803: 
055454,000804: 13,3472           05426                           TC       PHASCHNG                              
055455,000805: 13,3473           04022                           OCT      04022                                 
055456,000806: 
055457,000807: 13,3474           31055                           CA       TBASE2                                
055458,000808: 13,3475           50120                           INDEX    FIXLOC                                
055459,000809: 13,3476           54052                           TS       QPRET                                 
055460,000810: 
055461,000811: 13,3477           35025                           CAF      REINTBIT                              
055462,000812: 13,3500           70106                           MASK     RASFLAG                               
055463,000813: 13,3501           00006                           EXTEND                                         
055464,000814: 13,3502           13525                           BZF      GOBAC                                 #  DONT INTWAKE IF WE CAME HERE VIA RESTART
055465,000815: 
055466,000816: 13,3503           35035        INTWAKE1           CAF      ZERO                                  
055467,000817: 13,3504           54154        WAKE               TS       STALTEM                               #  INDEX OF ANY STALL USER
055468,000818: 13,3505           50154        WAKE1              INDEX    STALTEM                               
055469,000819: 13,3506           33541                           CAF      WAKESTAL                              
055470,000820: 13,3507           00004                           INHINT                                         
055471,000821: 13,3510           05215                           TC       JOBWAKE                               
055472,000822: 13,3511           10064                           CCS      LOCCTR                                
055473,000823: 13,3512           13505                           TCF      WAKE1                                 #  MAY BE MORE TO WAKE UP
055474,000824: 13,3513           00051        FORTYONE           DEC      41         B-14                       
055475,000825: 13,3514           50154                           INDEX    STALTEM                               
055476,000826: 13,3515           43544                           CS       INTBITAB                              
055477,000827: 13,3516           70106                           MASK     RASFLAG                               
055478,000828: 13,3517           54106                           TS       RASFLAG                               #  RELEASE STALL AREA
055479,000829: 13,3520           00003                           RELINT                                         
055480,000830: 13,3521           13525                           TCF      GOBAC                                 
055481,000831: 13,3522           50001        OKTOGRAB           INDEX    L                                     #  NO, WAIT UNTIL AVAILABLE
055482,000832: 13,3523           35016                           CAF      INTFLBIT                              
055483,000833: 13,3524           26106                           ADS      RASFLAG                               
055484,000834: 13,3525           06006        GOBAC              TC       INTPRET                               
055485,000835: 13,3526           77616                           RVQ                                            
055486,000836: 13,3527           77776        ERASTAL1           EXIT                                           
055487,000837: 13,3530           35033                           CAF      ONE                                   
055488,000838: 13,3531           13450                           TCF      ALLSTALL                              
055489,000839: 13,3532           77776        ERASTAL2           EXIT                                           
055490,000840: 13,3533           35032                           CAF      TWO                                   
055491,000841: 13,3534           13450                           TCF      ALLSTALL                              
055492,000842: 13,3535           35033        ERASWAK1           CAF      ONE                                   
055493,000843: 13,3536           13504                           TCF      WAKE                                  
055494,000844: 13,3537           35032        ERASWAK2           CAF      TWO                                   
055495,000845: 13,3540           13504                           TCF      WAKE                                  
055496,000846: 13,3541           27447        WAKESTAL           CADR     INTSTALL   +1                         
055497,000847: 13,3542           27530                           CADR     ERASTAL1   +1                         
055498,000848: 13,3543           27533                           CADR     ERASTAL2   +1                         
055499,000849: 13,3544     0154               STALTEM            EQUALS   MPAC                                  
055500,000850: 13,3544           20100        INTBITAB           OCT      20100                                 
055501,000851: 13,3545           10040                           OCT      10040                                 
055502,000852: 13,3546           04020                           OCT      04020                                 
055503,000853: 
055504,000854:                                                                                                  #  AVETOMID
055505,000855: 
055506,000856:                                                                                                  #  THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
055507,000857:                                                                                                  #  PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
055508,000858:                                                                                                  #  VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
055509,000859: 
055510,000860:                                                                                                  #  BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
055511,000861:                                                                                                  #  SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
055512,000862: 
055513,000863:                                                                                                  #  IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
055514,000864: 
055515,000865:                                                                                                  #  FINALLY TRKMKCNT IS ZEROED
055516,000866: 
055517,000867: 35,2000                                           SETLOC   INTINIT2                              
055518,000868: 35,2000                                           BANK                                           
055519,000869: 
055520,000870: 35,3675                                           COUNT*   $$/INTIN                              
055521,000871: 35,3675           43020        AVETOMID           STQ      BON                                   
055522,000872: 35,3676           02317                                    EGRESS                                
055523,000873: 35,3677           02716                                    RENDWFLG                              
055524,000874: 35,3700           73753                                    INT/W                                 #  W-MATRIX VALID, GO INTEGRATE IT
055525,000875: 35,3701           77614                           BON                                            
055526,000876: 35,3702           01711                                    ORBWFLAG                              
055527,000877: 35,3703           73753                                    INT/W                                 #  W-MATRIX VALID, GO INTEGRATE IT
055528,000878: 
055529,000879: 35,3704           45174        SETCOAST           AXT,2    CALL                                  #  NOW MOVE PROPERLY SCALED RN,VN AND
055530,000880: 35,3705           00002                                    2                                     #  PIPTIME TO INTEGRATION ERASABLES.
055531,000881: 35,3706           27446                                    INTSTALL                              
055532,000882: 35,3707           77014                           BON      AXT,2                                 
055533,000883: 35,3710           00315                                    AMOONFLG                              
055534,000884: 35,3711           73713                                    +2                                    
055535,000885: 35,3712           00000                                    0                                     
055536,000886: 35,3713           53775                           VLOAD    VSR*                                  
055537,000887: 35,3714           01171                                    RN                                    
055538,000888: 35,3715           57176                                    0,2                                   
055539,000889: 35,3716           01503                           STORE    RRECT                                 
055540,000890: 35,3717           15535                           STODL    RCV                                   
055541,000891: 35,3720           01205                                    PIPTIME                               
055542,000892: 35,3721           25517                           STOVL    TET                                   
055543,000893: 35,3722           01177                                    VN                                    
055544,000894: 35,3723           45057                           VSR*     CALL                                  
055545,000895: 35,3724           57176                                    0,2                                   
055546,000896: 35,3725           23417                                    MINIRECT                              #  FINISH SETTING UP STATE VECTOR
055547,000897: 35,3726           66234                           RTB      SSP                                   
055548,000898: 35,3727           26727                                    MOVATHIS                              #  PUT TEMP STATE VECTOR INTO PERMANENT
055549,000899: 35,3730           01127                                    TRKMKCNT                              
055550,000900: 35,3731           00000                                    0                                     
055551,000901: 35,3732           43014                           SET      BON                                   
055552,000902: 35,3733           04063                                    CMOONFLG                              
055553,000903: 35,3734           00315                                    AMOONFLG                              
055554,000904: 35,3735           73740                                    +3                                    
055555,000905: 35,3736           77614                           CLEAR                                          
055556,000906: 35,3737           04263                                    CMOONFLG                              
055557,000907: 
055558,000908: 35,3740           71214                           BON      DLOAD                                 #  NOW DO LM
055559,000909: 35,3741           04307                                    SURFFLAG                              
055560,000910: 35,3742           75755                                    FAZAB5                                #  NO COASTING LM
055561,000911: 35,3743           01205                                    PIPTIME                               
055562,000912: 35,3744           34041                           STCALL   TDEC1                                 
055563,000913: 35,3745           26677                                    SETIFLGS                              
055564,000914: 35,3746           45014                           CLEAR    CALL                                  
055565,000915: 35,3747           01674                                    VINTFLAG                              
055566,000916: 35,3750           27171                                    INTEGRV                               
055567,000917: 35,3751           77650                           GOTO                                           
055568,000918: 35,3752           02317                                    EGRESS                                
055569,000919: 35,3753           45145        INT/W              DLOAD    CALL                                  
055570,000920: 35,3754           01205                                    PIPTIME                               #  INTEGRATE W THRU BURN
055571,000921: 35,3755           27446                                    INTSTALL                              
055572,000922: 35,3756           43014                           SET      SET                                   
055573,000923: 35,3757           01476                                    DIM0FLAG                              #  DO W-MATRIX
055574,000924: 35,3760           04476                                    AVEMIDSW                              #  SO WONT CLOBBER RN,VN,PIPTIME
055575,000925: 35,3761           43014                           CLEAR    SET                                   
055576,000926: 35,3762           01675                                    D6OR9FLG                              
055577,000927: 35,3763           01474                                    VINTFLAG                              
055578,000928: 35,3764           34041                           STCALL   TDEC1                                 
055579,000929: 35,3765           27171                                    INTEGRV                               
055580,000930: 35,3766           77650                           GOTO                                           
055581,000931: 35,3767           73704                                    SETCOAST                              
055582,000932: 
055583,000933:                                                                                                  #  MIDTOAV1
055584,000934: 
055585,000935:                                                                                                  #  THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
055586,000936:                                                                                                  #  IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
055587,000937:                                                                                                  #  TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
055588,000938:                                                                                                  #  IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
055589,000939:                                                                                                  #  IS DONE AS IT IS FOR MIDTOAV2.
055590,000940:                                                                                                  #  RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
055591,000941: 
055592,000942:                                                                                                  #  IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
055593,000943:                                                                                                  #  TO THE RETURN ADDRESS
055594,000944: 
055595,000945:                                                                                                  #  IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
055596,000946:                                                                                                  #  FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
055597,000947:                                                                                                  #  TION TIME AND MPAC IS SET TO THE DELTA TIME---
055598,000948:                                                                                                  #                                    TAT MINUS CURRENT TIME.
055599,000949: 
055600,000950:                                                                                                  #  MIDTOAV2
055601,000951: 
055602,000952:                                                                                                  #  THIS ROUTINE INTEGRATES THE CSM STATE VECTOR TO CURRENT TIME PLUS
055603,000953:                                                                                                  #  INCREMENTS OF TIMEDELT SUCH THAT THE DIFFERENCE BETWEEN CURRENT TIME
055604,000954:                                                                                                  #  AND THE STATE VECTOR TIME AT THE END OF THE LAST STEP IS AT LEAST 5.6
055605,000955:                                                                                                  #  SECS.
055606,000956:                                                                                                  #  NO INPUTS ARE REQUIRED OF THE CALLER.  RETURN IS IN BASIC TO THE RETURN
055607,000957:                                                                                                  #  ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
055608,000958: 
055609,000959: 13,2000                                           SETLOC   INTINIT                               
055610,000960: 13,2000                                           BANK                                           
055611,000961: 13,3547     1127                                  EBANK=   IRETURN1                              
055612,000962: 13,3547           45020        MIDTOAV2           STQ      CALL                                  
055613,000963: 13,3550           01127                                    IRETURN1                              
055614,000964: 13,3551           27446                                    INTSTALL                              
055615,000965: 13,3552           43145                           DLOAD    CLEAR                                 
055616,000966: 13,3553           27715                                    TIMEDELT                              
055617,000967: 13,3554           04674                                    MID1FLAG                              
055618,000968: 13,3555           37732                           STCALL   T-TO-ADD                              
055619,000969: 13,3556           27573                                    ENTMID2                               
055620,000970: 
055621,000971: 13,3557           45020        MIDTOAV1           STQ      CALL                                  
055622,000972: 13,3560           01127                                    IRETURN1                              
055623,000973: 13,3561           27446                                    INTSTALL                              
055624,000974: 13,3562           47014                           SET      RTB                                   
055625,000975: 13,3563           04474                                    MID1FLAG                              
055626,000976: 13,3564           45510                                    LOADTIME                              
055627,000977: 13,3565           44215                           DAD      BDSU                                  #  INITIAL CHECK, IS TDEC1 IN THE FUTURE.
055628,000978: 13,3566           27715                                    TIMEDELT                              
055629,000979: 13,3567           00041                                    TDEC1                                 
055630,000980: 13,3570           45044                           BPL      CALL                                  
055631,000981: 13,3571           27577                                    ENTMID1                               
055632,000982: 13,3572           27700                                    NOTIME                                #  NO SET ALARM.SWITCH TO MIDTOAV2
055633,000983: 
055634,000984: 13,3573           43234        ENTMID2            RTB      DAD                                   
055635,000985: 13,3574           45510                                    LOADTIME                              
055636,000986: 13,3575           03732                                    T-TO-ADD                              
055637,000987: 13,3576           00041                           STORE    TDEC1                                 
055638,000988: 
055639,000989: 13,3577           45014        ENTMID1            CLEAR    CALL                                  
055640,000990: 13,3600           01676                                    DIM0FLAG                              #  NO W-MATRIX
055641,000991: 13,3601           26034                                    THISVINT                              
055642,000992: 13,3602           43014                           CLEAR    SET                                   
055643,000993: 13,3603           01673                                    INTYPFLG                              
055644,000994: 13,3604           04475                                    MIDAVFLG                              #  LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
055645,000995: 13,3605           77624                           CALL                                           
055646,000996: 13,3606           27171                                    INTEGRV                               #  GO INTEGRATE
055647,000997: 13,3607           66134                           SXA,2    SXA,1                                 
055648,000998: 13,3610           03746                                    RTX2                                  
055649,000999: 13,3611           03745                                    RTX1                                  
055650,001000: 13,3612           67214                           CLEAR    SLOAD                                 
055651,001001: 13,3613           00275                                    AMOONFLG                              
055652,001002: 13,3614           03747                                    RTX2                                  
055653,001003: 13,3615           43054                           BZE      SET                                   
055654,001004: 13,3616           27620                                    +2                                    
055655,001005: 13,3617           00075                                    AMOONFLG                              
055656,001006: 13,3620           77775                           VLOAD                                          
055657,001007: 13,3621           00001                                    RATT                                  
055658,001008: 13,3622           25232                           STOVL    RN1                                   
055659,001009: 13,3623           00007                                    VATT                                  
055660,001010: 13,3624           15240                           STODL    VN1                                   
055661,001011: 13,3625           00015                                    TAT                                   
055662,001012: 13,3626           01246                           STORE    PIPTIME1                              
055663,001013: 13,3627           77776                           EXIT                                           
055664,001014: 
055665,001015: 13,3630           00004                           INHINT                                         
055666,001016: 13,3631           00006                           EXTEND                                         
055667,001017: 13,3632           40025                           DCS      TIME2                                 
055668,001018: 13,3633           20155                           DAS      MPAC                                  
055669,001019: 13,3634           07226                           TC       TPAGREE                               
055670,001020: 
055671,001021: 13,3635           31127                           CA       IRETURN1                              
055672,001022: 13,3636           04720                           TC       BANKJUMP                              
055673,001023: 13,3637           47014        CKMID2             BOF      RTB                                   
055674,001024: 13,3640           04754                                    MID1FLAG                              
055675,001025: 13,3641           27656                                    MID2                                  
055676,001026: 13,3642           45510                                    LOADTIME                              
055677,001027: 13,3643           44215                           DAD      BDSU                                  
055678,001028: 13,3644           27715                                    TIMEDELT                              
055679,001029: 13,3645           01101                                    TDEC                                  
055680,001030: 13,3646           45044                           BPL      CALL                                  
055681,001031: 13,3647           27314                                    TESTLOOP                              #  YES
055682,001032: 13,3650           27700                                    NOTIME                                
055683,001033: 
055684,001034: 13,3651           43234        TIMEINC            RTB      DAD                                   
055685,001035: 13,3652           45510                                    LOADTIME                              
055686,001036: 13,3653           03732                                    T-TO-ADD                              
055687,001037: 13,3654           35101                           STCALL   TDEC                                  
055688,001038: 13,3655           27314                                    TESTLOOP                              
055689,001039: 
055690,001040: 13,3656           45345        MID2               DLOAD    DSU                                   
055691,001041: 13,3657           01101                                    TDEC                                  
055692,001042: 13,3660           01517                                    TET                                   
055693,001043: 13,3661           45246                           ABS      DSU                                   
055694,001044: 13,3662           27713                                    3CSECS                                
055695,001045: 13,3663           77644                           BPL                                            
055696,001046: 13,3664           27651                                    TIMEINC                               
055697,001047: 
055698,001048: 13,3665           44234                           RTB      BDSU                                  #  SEE IF 5.6 SECS. AVAILABLE TO CALLER.
055699,001049: 13,3666           45510                                    LOADTIME                              
055700,001050: 13,3667           01517                                    TET                                   
055701,001051: 13,3670           51025                           DSU      BPL                                   
055702,001052: 13,3671           27717                                    5.6SECS                               
055703,001053: 13,3672           27205                                    A-PCHK                                #  YES,GET OUT.
055704,001054: 
055705,001055: 13,3673           43345                           DLOAD    DAD                                   #  NO,ADD TIMEDELT TO T-TO-ADD AND TRY
055706,001056: 13,3674           03732                                    T-TO-ADD                              #  AGAIN.
055707,001057: 13,3675           27715                                    TIMEDELT                              
055708,001058: 13,3676           37732                           STCALL   T-TO-ADD                              
055709,001059: 13,3677           27651                                    TIMEINC                               
055710,001060: 13,3700           77414        NOTIME             CLEAR    EXIT                                  #  TOO LATE
055711,001061: 13,3701           04674                                    MID1FLAG                              
055712,001062: 13,3702           25127                           INCR     IRETURN1                              #  SET ERROR EXIT (CALLOC +2)
055713,001063: 13,3703           05664                           TC       ALARM                                 #  INSUFFICIENT TIME FOR INTEGRATION --
055714,001064: 13,3704           01703                           OCT      1703                                  #        TIG WILL BE SLIPPED...
055715,001065: 13,3705           06006                           TC       INTPRET                               
055716,001066: 13,3706           77745                           DLOAD                                          
055717,001067: 13,3707           27715                                    TIMEDELT                              
055718,001068: 13,3710           03732                           STORE    T-TO-ADD                              
055719,001069: 13,3711           77616                           RVQ                                            
055720,001070: 
055721,001071: 13,3712           00000 00003  3CSECS             2DEC     3          B-28                       
055722,001072: 
055723,001073: 13,3714           00000 02342  TIMEDELT           2DEC     1250       B-28                       
055724,001074: 
055725,001075: 13,3716           00000 01060  5.6SECS            2DEC     560        B-28                       
055726,001076: 
055727,001077: 27,2672                                           BANK     27                                    
055728,001078: 27,2000                                           SETLOC   UPDATE2                               
055729,001079: 27,2000                                           BANK                                           
055730,001080: 27,2672     0330                                  EBANK=   INTWAKUQ                              
055731,001081: 
055732,001082: 27,2672                                           COUNT*   $$/INTIN                              
055733,001083: 
055734,001084: 27,2672     0330               INTWAKUQ           =        INTWAK1Q                              #  TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
055735,001085: 
055736,001086: 27,2672           00003        INTWAKEU           RELINT                                         
055737,001087: 27,2673           00006                           EXTEND                                         
055738,001088: 27,2674           22330                           QXCH     INTWAKUQ                              #  SAVE Q FOR RETURN
055739,001089: 
055740,001090: 27,2675           06006                           TC       INTPRET                               
055741,001091: 
055742,001092: 27,2676           53135                           SLOAD    BZE                                   #  IS THIS A CSM/LEM STATE VECTOR UPDATE
055743,001093: 27,2677           01502                                    UPSVFLAG                              #  REQUEST.  IF NOT GO TO INTWAKUP.
055744,001094: 27,2700           56737                                    INTWAKUP                              
055745,001095: 
055746,001096: 27,2701           77775                           VLOAD                                          #  MOVE RRECT(6) AND VRECT(6) INTO
055747,001097: 27,2702           01503                                    RRECT                                 #        RCV(6) AND VCV(6) RESPECTIVELY.
055748,001098: 27,2703           25535                           STOVL    RCV                                   
055749,001099: 27,2704           01511                                    VRECT                                 #  NOW GO TO 'RECTIFY +13D' TO
055750,001100: 27,2705           77624                           CALL                                           #  STORE VRECT INTO VCV AND ZERO OUT
055751,001101: 27,2706           23420                                    RECTIFY    +13D                       #  TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
055752,001102: 27,2707           51535                           SLOAD    ABS                                   #  COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
055753,001103: 27,2710           01502                                    UPSVFLAG                              #  TO 'UPDATE MOON STATE VECTOR CODE'
055754,001104: 27,2711           53025                           DSU      BZE                                   #  TO DETERMINE WHETHER THE STATE VECTOR TO
055755,001105: 27,2712           16750                                    UPMNSVCD                              #  BE UPDATED IS IN THE EARTH OR LUNAR
055756,001106: 27,2713           56720                                    INTWAKEM                              #  SPHERE OF INFLUENCE.........
055757,001107: 27,2714           43174                           AXT,2    CLRGO                                 #  EARTH SPHERE OF INFLUENCE.
055758,001108: 27,2715           00000                           DEC      0          B-14                       
055759,001109: 27,2716           00223                                    MOONFLAG                              
055760,001110: 27,2717           56723                                    INTWAKEC                              
055761,001111: 27,2720           43174        INTWAKEM           AXT,2    SET                                   #  LUNAR SPHERE OF INFLUENCE.
055762,001112: 27,2721           00002                           DEC      2          B-14                       
055763,001113: 27,2722           00063                                    MOONFLAG                              
055764,001114: 27,2723           50135        INTWAKEC           SLOAD    BMN                                   #  COMMON CODING AFTER X2 INITIALIZED AND
055765,001115:                                                                                                  #  MOONFLAG SET (OR CLEARED).
055766,001116: 27,2724           01502                                    UPSVFLAG                              #  IS THIS A REQUEST FOR A LEM OR CSM
055767,001117: 27,2725           56733                                    INTWAKLM                              #        STATE VECTOR UPDATE......
055768,001118: 27,2726           77624                           CALL                                           #  UPDATE CSM STATE VECTOR
055769,001119: 27,2727           26714                                    ATOPCSM                               
055770,001120: 
055771,001121: 27,2730           52014                           CLEAR    GOTO                                  
055772,001122: 27,2731           01671                                    ORBWFLAG                              
055773,001123: 27,2732           56735                                    INTWAKEX                              
055774,001124: 
055775,001125: 27,2733           77624        INTWAKLM           CALL                                           #  UPDATE LM STATE VECTOR
055776,001126: 27,2734           26767                                    ATOPLEM                               
055777,001127: 
055778,001128: 27,2735           77614        INTWAKEX           CLEAR                                          
055779,001129: 27,2736           02676                                    RENDWFLG                              
055780,001130: 
055781,001131: 27,2737           45131        INTWAKUP           SSP      CALL                                  #  REMOVE :UPDATE STATE VECTOR INDICATOR:
055782,001132: 27,2740           01502                                    UPSVFLAG                              
055783,001133: 27,2741           00000                                    0                                     
055784,001134: 27,2742           27461                                    INTWAKE0                              #  RELEASE :GRAB: OF ORBIT INTEG
055785,001135: 27,2743           77776                           EXIT                                           
055786,001136: 
055787,001137: 27,2744           05426                           TC       PHASCHNG                              
055788,001138: 27,2745           04026                           OCT      04026                                 
055789,001139: 27,2746           00330                           TC       INTWAKUQ                              
055790,001140: 
055791,001141: 27,2747           00002        UPMNSVCD           OCT      2                                     
055792,001142: 27,2750           00000                           OCT      0                                     
055793,001143: 
055794,001144: 27,2751           77420        GRP2PC             STQ      EXIT                                  
055795,001145: 27,2752           03536                                    GRP2SVQ                               
055796,001146: 27,2753           05426                           TC       PHASCHNG                              
055797,001147: 27,2754           04022                           OCT      04022                                 
055798,001148: 27,2755           06006                           TC       INTPRET                               
055799,001149: 27,2756           77650                           GOTO                                           
055800,001150: 27,2757           03536                                    GRP2SVQ                               
055801,001151: 
055802,001152: 
055803,001153: 

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