- B1 — Revision 292
- B2 — Revision 302
- B3 — Revision 302
- B4 — Revision 302
- B5 — Revision 292
- B6 — Revision 306
Source Code
|
|
These source code files are an attempted reconstruction of Sundance revision 306, the Apollo 9
LM (Lunar Module) AGC (Apollo Guidance Computer) flight software, created from binary dumps of
original core rope program modules, as follows:
|
046816,000002: ## Copyright: Public domain.
046817,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
046818,000004: ## Purpose: A section of an attempt to reconstruct Sundance revision 306
046819,000005: ## as closely as possible with available information. Sundance
046820,000006: ## 306 is the source code for the Lunar Module's (LM) Apollo
046821,000007: ## Guidance Computer (AGC) for Apollo 9. This program was created
046822,000008: ## using the mixed-revision SundanceXXX as a starting point, and
046823,000009: ## pulling back features from Luminary 69 believed to have been
046824,000010: ## added based on memos, checklists, observed address changes,
046825,000011: ## or the Sundance GSOPs.
046826,000012: ## Assembler: yaYUL
046827,000013: ## Contact: Ron Burkey <info@sandroid.org>.
046828,000014: ## Website: www.ibiblio.org/apollo/index.html
046829,000015: ## Mod history: 2020-07-24 MAS Created from SundanceXXX.
046830,000016:
046831,000017:
046832,000018:
046833,000019: # 1.0 INTRODUCTION
046834,000020: # ----------------
046835,000021:
046836,000022: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
046837,000023: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
046838,000024: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
046839,000025: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
046840,000026: # SIDE THE LUNAR SPHERE OF INFLUENCE.
046841,000027:
046842,000028: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
046843,000029: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
046844,000030: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
046845,000031: # CALL TC INTSTALL.
046846,000032:
046847,000033: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
046848,000034: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
046849,000035: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
046850,000036: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
046851,000037: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
046852,000038:
046853,000039: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
046854,000040: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
046855,000041: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
046856,000042: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
046857,000043:
046858,000044: # 2.0 GENERAL DESCRIPTION
046859,000045: # -----------------------
046860,000046:
046861,000047: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS---
046862,000048: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
046863,000049: # 2) INTEGRATES THE W-MATRIX
046864,000050: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
046865,000051:
046866,000052: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
046867,000053: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
046868,000054: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
046869,000055: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
046870,000056: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
046871,000057: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
046872,000058: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
046873,000059: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
046874,000060: # AND/OR STATE VECTOR.
046875,000061:
046876,000062: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
046877,000063: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
046878,000064: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
046879,000065:
046880,000066: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
046881,000067: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
046882,000068: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
046883,000069:
046884,000070: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
046885,000071:
046886,000072: # 2.1 RESTARTS
046887,000073:
046888,000074: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
046889,000075: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
046890,000076: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
046891,000077: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
046892,000078: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
046893,000079: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
046894,000080: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
046895,000081:
046896,000082: # 2.2 SCALING
046897,000083:
046898,000084: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
046899,000085: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTORDEPENDS ON THE ORIGIN OF THE COORDINATE
046900,000086: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
046901,000087: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
046902,000088: # DIFFERENT SCALING.
046903,000089: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
046904,000090:
046905,000091: # 3.0 INPUT/OUTPUT
046906,000092: # ----------------
046907,000093:
046908,000094: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
046909,000095: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
046910,000096: # FOR INTEGRVS, THE RCV,VCV, TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
046911,000097:
046912,000098: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
046913,000099: # EARTH MOON
046914,000100: # 29 27
046915,000101: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
046916,000102:
046917,000103: # 7 5
046918,000104: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
046919,000105:
046920,000106: # 28 28
046921,000107: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
046922,000108: # CUSTOMARILY 0, BUT NOTE LUNAR
046923,000109: # ORBIT DEPENDENCE ON REAL TIME.
046924,000110:
046925,000111: # 22 18
046926,000112: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
046927,000113: # 0 IF TCCSM(LEM) = 0
046928,000114:
046929,000115: # 3 -1
046930,000116: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
046931,000117: # 0 IF TCCSM(LEM) = 0
046932,000118: # 29 27
046933,000119: # RCVCSM(LEM) - CONIC POSITION METERS 2 2
046934,000120: # EQUALS RRECTCSM(LEM) IF
046935,000121: # TCCSM(LEM) = 0
046936,000122:
046937,000123: # 7 5
046938,000124: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
046939,000125: # EQUALS VRECTCSM(LEM) IF
046940,000126: # TCCSM(LEM) = 0
046941,000127:
046942,000128: # 28 28
046943,000129: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
046944,000130: # CUSTOMARILY 0
046945,000131:
046946,000132: # 1/2 17 16
046947,000133: # XKEPCSM(LEM) - ROOT OF KEPLERS EQUATION M 2 2
046948,000134: # 0 IF TCCSM(LEM) = 0
046949,000135:
046950,000136: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
046951,000137: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
046952,000138: # LMOONFLG C = CSM, L = LM 0 0
046953,000139: # LMIDFLG 0,1 0,1
046954,000140:
046955,000141: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
046956,000142:
046957,000143: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
046958,000144: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
046959,000145: # ROUTINE MUST BE PRESET.
046960,000146:
046961,000147: # OUTPUT
046962,000148: # AFTER EVERY CALL TO INTEGRATION
046963,000149: # EARTH MOON
046964,000150: # 29 29
046965,000151: # 0D RATT POSITION METERS 2 2
046966,000152: # 7 7
046967,000153: # 6D VATT VELOCITY M/CSEC 2 2
046968,000154: # 28 28
046969,000155: # 12D TAT TIME 2 2
046970,000156: # 29 27
046971,000157: # 14D RATT1 POSITION METERS 2 2
046972,000158: # 7 5
046973,000159: # 20D VATT1 VELOCITY M/CSEC 2 2
046974,000160: # 3 2 36 30
046975,000161: # 26D MU(P) MU M /CS 2 2
046976,000162:
046977,000163: # X1 MUTABLE ENTRY -2 -10D
046978,000164:
046979,000165: # X2 COORDINT
046980,000166: # X2 COORDINATE SYSTEM ORIGEN 0 2
046981,000167: # (THIS, NOT MOONFLAG, SHOULD BE
046982,000168: # USED TO DETERMINE ORIGIN.)
046983,000169:
046984,000170: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
046985,000171: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
046986,000172: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
046987,000173: # CALLING PROGRAM.
046988,000174:
046989,000175: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
046990,000176: # -------------------------------------
046991,000177:
046992,000178: # A) PRECISION ORBITAL INTEGRATION. CSMPREC,LEMPREC ENTRANCES
046993,000179: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
046994,000180: # L CALL
046995,000181: # L+1 CSMPREC (OR LEMPREC)
046996,000182: # L+2 RETURN
046997,000183: # INPUT 28
046998,000184: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
046999,000185: # OUTPUT
047000,000186: # THE DATA LISTED IN SECTION 3.0 PLUS
047001,000187: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
047002,000188: # BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
047003,000189: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
047004,000190: # L-X STORE TIME IN PUSH LIST (TDEC1)
047005,000191: # L CALL
047006,000192: # L+1 CSMCONIC (OR LEMCONIC)
047007,000193: # INPUT/OUTPUT
047008,000194: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
047009,000195: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
047010,000196: # CALL
047011,000197: # INTSTALL
047012,000198: # VLOAD
047013,000199: # POSITION VECTOR
047014,000200: # STOVL RCV
047015,000201: # VELOCITY VECTOR
047016,000202: # STODL VCV
047017,000203: # TIME STATE VECTOR VALID
047018,000204: # STODL TET
047019,000205: # FINAL RADIUS
047020,000206: # STORE RFINAL
047021,000207: # SET(CLEAR) SET(CLEAR)
047022,000208: # INTYPFLAG
047023,000209: # MOONFLAG
047024,000210: # SET(CLEAR) DLOAD
047025,000211: # DESIRED TIME
047026,000212: # STCALL TDEC1
047027,000213: # INTEGRVS
047028,000214: # INPUT
047029,000215: # RCV POSITION VECTOR METERS
047030,000216: # VCV VELOCITY VECTOR M/CSEC
047031,000217: # TET TIME OF STATE VECTOR(MAY = 0) CSEC B-28
047032,000218: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
047033,000219: # (MAY BE INCREMENT IF TET=0)
047034,000220: # OUTPUT
047035,000221: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
047036,000222: # DEPENDING ON INTYPFLG.
047037,000223: # D) INTEGRATE STATE VECTOR.INTGRV ENTRANCE
047038,000224: # L-X STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
047039,000225: # L-8 CALL
047040,000226: # L-7
047041,000227: # L-6 SET(CLEAR) SET(CLEAR)
047042,000228: # L-5 VINTFLAG 1=CSM, 0=LM
047043,000229: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
047044,000230: # L-3 SET(CLEAR) SET(CLEAR)
047045,000231: # L-2 DIMOFLAG 1=W-MATRIX, 0=NO W-MATRIX
047046,000232: # L-1 D6OR9FLG 1=9X9, 0=6X6
047047,000233: # L SET DLOAD
047048,000234: # L+1 STATEFLG DESIRE PERMANENT UPDATE
047049,000235: # L+2 FINAL RAD. OF STATE VECTOR
047050,000236: # L+3 STCALL RFINAL
047051,000237: # L+4 INTEGRV
047052,000238: # L CALL NORMAL USE-- WILL UPDATE STATE
047053,000239: # L+1 INTEGRV VECTOR IF DIMOFLAG=1.(STATEFLG IS
047054,000240: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
047055,000241: # IT IS USED.)
047056,000242: # INPUT
047057,000243: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
047058,000244: # OUTPUT
047059,000245: # SAME AS FOR PRECISION OR CONIC INTEGRATION
047060,000246: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
047061,000247: # THE PERMANENT STATE VECTOR REPRESENTATION.
047062,000248:
047063,000249: 11,2312 BANK 11
047064,000250: 13,2000 SETLOC INTINIT
047065,000251: 13,2000 BANK
047066,000252: 13,2562 E3,1554 EBANK= RRECTCSM
047067,000253: 13,2562 COUNT* $$/INTIN
047068,000254: 13,2562 05423 STATEINT TC PHASCHNG
047069,000255: 13,2563 00052 OCT 00052
047070,000256: 13,2564 35067 CAF PRIO5
047071,000257: 13,2565 05155 TC FINDVAC
047072,000258: 13,2566 E3,1554 EBANK= RRECTCSM
047073,000259: 13,2566 02571 26063 2CADR STATINT1
047074,000260:
047075,000261: 13,2570 05331 TC TASKOVER
047076,000262: 13,2571 06014 STATINT1 TC INTPRET
047077,000263: 13,2572 47014 BONCLR RTB
047078,000264: 13,2573 04612 QUITFLAG # KILL INTEGRATION UNTIL NEXT POO.
047079,000265: 13,2574 26610 ENDINT
047080,000266: 13,2575 21454 LOADTIME
047081,000267: 13,2576 00041 STORE TDEC1
047082,000268: 13,2577 77624 CALL
047083,000269: 13,2600 27362 INTSTALL
047084,000270: 13,2601 45014 SET CALL
047085,000271: 13,2602 01076 NODOFLAG
047086,000272: 13,2603 26622 SETIFLGS
047087,000273: 13,2604 77650 GOTO
047088,000274: 13,2605 26000 STATEUP
047089,000275: 13,2606 00003 25140 600SECS 2DEC 60000 B-28
047090,000276:
047091,000277: 13,2610 77414 ENDINT CLEAR EXIT
047092,000278: 13,2611 01672 STATEFLG
047093,000279: 13,2612 05423 TC PHASCHNG
047094,000280: 13,2613 20032 OCT 20032
047095,000281: 13,2614 00006 EXTEND
047096,000282: 13,2615 32607 DCA 600SECS
047097,000283: 13,2616 05347 TC LONGCALL
047098,000284: 13,2617 E3,1626 EBANK= RRECTHIS
047099,000285: 13,2617 02562 26063 2CADR STATEINT
047100,000286:
047101,000287: 13,2621 05225 TC ENDOFJOB
047102,000288: 13,2622 43014 SETIFLGS SET CLEAR
047103,000289: 13,2623 01472 STATEFLG
047104,000290: 13,2624 01673 INTYPFLG
047105,000291: 13,2625 43014 CLEAR CLEAR
047106,000292: 13,2626 01676 DIM0FLAG
047107,000293: 13,2627 01675 D6OR9FLG
047108,000294: 13,2630 77616 RVQ
047109,000295:
047110,000296: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
047111,000297:
047112,000298: # CALLING SEQUENCE
047113,000299: # L CALL
047114,000300: # L+1 ATOPCSM
047115,000301:
047116,000302: # NORMAL EXIT AT L+2
047117,000303:
047118,000304: 13,2631 47020 ATOPCSM STQ RTB
047119,000305: 13,2632 00051 S2
047120,000306: 13,2633 26644 MOVEACSM
047121,000307: 13,2634 45014 SET CALL
047122,000308: 13,2635 04063 CMOONFLG
047123,000309: 13,2636 26066 SVDWN1
047124,000310: 13,2637 43014 BON CLRGO
047125,000311: 13,2640 00303 MOONFLAG
047126,000312: 13,2641 00051 S2
047127,000313: 13,2642 04223 CMOONFLG
047128,000314: 13,2643 00051 S2
047129,000315: 13,2644 03007 MOVEACSM TC SETBANK
047130,000316: 13,2645 55500 TS DIFEQCNT # INITIALIZE INDEX
047131,000317: 13,2646 51500 INDEX DIFEQCNT
047132,000318: 13,2647 31502 CA RRECT
047133,000319: 13,2650 51500 INDEX DIFEQCNT
047134,000320: 13,2651 55554 TS RRECTCSM
047135,000321: 13,2652 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
047136,000322: 13,2653 12645 TCF MOVEACSM +1 # NO-LOOP
047137,000323: 13,2654 06035 TC DANZIG # COMPLETE - RETURN
047138,000324:
047139,000325:
047140,000326: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
047141,000327:
047142,000328: # CALLING SEQUENCE
047143,000329: # L CALL
047144,000330: # PTOACSM
047145,000331:
047146,000332: # NORMAL EXIT AT L+2
047147,000333: 13,2655 43034 PTOACSM RTB BON
047148,000334: 13,2656 26673 MOVEPCSM
047149,000335: 13,2657 04303 CMOONFLG
047150,000336: 13,2660 26666 SETMOON
047151,000337: 13,2661 66214 CLRMOON CLEAR SSP
047152,000338: 13,2662 00263 MOONFLAG
047153,000339: 13,2663 02033 PBODY
047154,000340: 13,2664 00000 0
047155,000341: 13,2665 77616 RVQ
047156,000342: 13,2666 66214 SETMOON SET SSP
047157,000343: 13,2667 00063 MOONFLAG
047158,000344: 13,2670 02033 PBODY
047159,000345: 13,2671 00002 2
047160,000346: 13,2672 77616 RVQ
047161,000347: 13,2673 03007 MOVEPCSM TC SETBANK
047162,000348: 13,2674 55500 TS DIFEQCNT
047163,000349: 13,2675 51500 INDEX DIFEQCNT
047164,000350: 13,2676 31554 CA RRECTCSM
047165,000351: 13,2677 51500 INDEX DIFEQCNT
047166,000352: 13,2700 55502 TS RRECT
047167,000353: 13,2701 11500 CCS DIFEQCNT
047168,000354: 13,2702 12674 TCF MOVEPCSM +1
047169,000355: 13,2703 06035 TC DANZIG
047170,000356:
047171,000357:
047172,000358: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
047173,000359:
047174,000360: 13,2704 47020 ATOPLEM STQ RTB
047175,000361: 13,2705 00051 S2
047176,000362: 13,2706 26717 MOVEALEM
047177,000363: 13,2707 45014 SET CALL
047178,000364: 13,2710 04064 LMOONFLG
047179,000365: 13,2711 26042 SVDWN2
047180,000366: 13,2712 43014 BON CLRGO
047181,000367: 13,2713 00303 MOONFLAG
047182,000368: 13,2714 00051 S2
047183,000369: 13,2715 04224 LMOONFLG
047184,000370: 13,2716 00051 S2
047185,000371: 13,2717 03007 MOVEALEM TC SETBANK
047186,000372: 13,2720 55500 TS DIFEQCNT
047187,000373: 13,2721 51500 INDEX DIFEQCNT
047188,000374: 13,2722 31502 CA RRECT
047189,000375: 13,2723 51500 INDEX DIFEQCNT
047190,000376: 13,2724 55626 TS RRECTLEM
047191,000377: 13,2725 11500 CCS DIFEQCNT
047192,000378: 13,2726 12720 TCF MOVEALEM +1
047193,000379: 13,2727 06035 TC DANZIG
047194,000380:
047195,000381:
047196,000382: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
047197,000383:
047198,000384: 13,2730 47014 PTOALEM BON RTB
047199,000385: 13,2731 04307 SURFFLAG
047200,000386: 13,2732 26751 USEPIOS
047201,000387: 13,2733 26740 MOVEPLEM
047202,000388: 13,2734 52014 BON GOTO
047203,000389: 13,2735 04304 LMOONFLG
047204,000390: 13,2736 26666 SETMOON
047205,000391: 13,2737 26661 CLRMOON
047206,000392: 13,2740 03007 MOVEPLEM TC SETBANK
047207,000393: 13,2741 55500 TS DIFEQCNT
047208,000394: 13,2742 51500 INDEX DIFEQCNT
047209,000395: 13,2743 31626 CA RRECTLEM
047210,000396: 13,2744 51500 INDEX DIFEQCNT
047211,000397: 13,2745 55502 TS RRECT
047212,000398: 13,2746 11500 CCS DIFEQCNT
047213,000399: 13,2747 12741 TCF MOVEPLEM +1
047214,000400: 13,2750 06035 TC DANZIG
047215,000401:
047216,000402:
047217,000403: 13,2751 77201 USEPIOS SETPD VLOAD
047218,000404: 13,2752 00001 0
047219,000405: 13,2753 02025 RLS
047220,000406: 13,2754 41525 PDDL PUSH
047221,000407: 13,2755 00041 TDEC1
047222,000408: 13,2756 15517 STODL TET
047223,000409: 13,2757 23757 5/8
047224,000410: 13,2760 77624 CALL
047225,000411: 13,2761 51222 RP-TO-R
047226,000412: 13,2762 25535 STOVL RCV
047227,000413: 13,2763 22270 ZUNIT
047228,000414: 13,2764 14001 STODL 0D
047229,000415: 13,2765 01517 TET
047230,000416: 13,2766 14007 STODL 6D
047231,000417: 13,2767 23757 5/8
047232,000418: 13,2770 77624 CALL
047233,000419: 13,2771 51222 RP-TO-R
047234,000420: 13,2772 74235 VXV VXSC
047235,000421: 13,2773 01535 RCV
047236,000422: 13,2774 27006 OMEGMOON
047237,000423: 13,2775 25543 STOVL VCV
047238,000424: 13,2776 22276 ZEROVEC
047239,000425: 13,2777 01521 STORE TDELTAV
047240,000426: 13,3000 67174 AXT,2 SXA,2
047241,000427: 13,3001 00002 2
047242,000428: 13,3002 02032 PBODY
047243,000429: 13,3003 35527 STCALL TNUV
047244,000430: 13,3004 27130 A-PCHK
047245,000431:
047246,000432: 13,3005 07112 06620 OMEGMOON 2DEC* 2.66169947 E-8 B+23*
047247,000433:
047248,000434: 13,3007 33013 SETBANK CAF INTBANK
047249,000435: 13,3010 54006 TS BBANK
047250,000436: 13,3011 33432 CAF FORTYONE
047251,000437: 13,3012 00002 TC Q
047252,000438: 13,3013 E3,1554 EBANK= RRECTCSM
047253,000439: 13,3013 26063 INTBANK BBCON INTEGRV
047254,000440:
047255,000441:
047256,000442: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
047257,000443: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
047258,000444:
047259,000445: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
047260,000446: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
047261,000447: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
047262,000448: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
047263,000449: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
047264,000450: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
047265,000451:
047266,000452: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
047267,000453: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
047268,000454: # CSMPREC CSMCONIC LEMPREC LEMCONIC
047269,000455: # VINTFLAG SET SET CLEAR CLEAR
047270,000456: # INTYPFLG CLEAR SET CLEAR SET
047271,000457: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
047272,000458:
047273,000459:
047274,000460: # CALLING SEQUENCE
047275,000461: # L-X STORE TDEC1
047276,000462: # L CALL (STCALL TDEC1)
047277,000463: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
047278,000464:
047279,000465: # NORMAL EXIT TO L+2
047280,000466:
047281,000467:
047282,000468: # SUBROUTINES CALLED
047283,000469: # INTEGRV1
047284,000470: # PRECOUT FOR CSMPREC AND LEMPREC
047285,000471: # CONICOUT FOR CSMCONIC AND LEMCONIC
047286,000472:
047287,000473:
047288,000474: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
047289,000475: # INPUT
047290,000476: # TDEC1 TIME TO INTEGRATE TO . CSECS B-28
047291,000477: 13,3014 45020 CSMPREC STQ CALL
047292,000478: 13,3015 00046 X1
047293,000479: 13,3016 27362 INTSTALL
047294,000480: 13,3017 43130 SXA,1 SET
047295,000481: 13,3020 02104 IRETURN
047296,000482: 13,3021 01474 VINTFLAG
047297,000483:
047298,000484: 13,3022 43014 IFLAGP SET CLEAR
047299,000485: 13,3023 01467 PRECIFLG
047300,000486: 13,3024 01676 DIM0FLAG
047301,000487: 13,3025 77614 CLRGO
047302,000488: 13,3026 01633 INTYPFLG
047303,000489: 13,3027 27107 INTEGRV1
047304,000490: 13,3030 45020 LEMPREC STQ CALL
047305,000491: 13,3031 00046 X1
047306,000492: 13,3032 27362 INTSTALL
047307,000493: 13,3033 43130 SXA,1 CLRGO
047308,000494: 13,3034 02104 IRETURN
047309,000495: 13,3035 01634 VINTFLAG
047310,000496: 13,3036 27022 IFLAGP
047311,000497:
047312,000498: 13,3037 45020 CSMCONIC STQ CALL
047313,000499: 13,3040 00046 X1
047314,000500: 13,3041 27362 INTSTALL
047315,000501: 13,3042 43130 SXA,1 SET
047316,000502: 13,3043 02104 IRETURN
047317,000503: 13,3044 01474 VINTFLAG
047318,000504: 13,3045 43014 IFLAGC CLEAR SETGO
047319,000505: 13,3046 01676 DIM0FLAG
047320,000506: 13,3047 01433 INTYPFLG
047321,000507: 13,3050 27107 INTEGRV1
047322,000508: 13,3051 45020 LEMCONIC STQ CALL
047323,000509: 13,3052 00046 X1
047324,000510: 13,3053 27362 INTSTALL
047325,000511: 13,3054 43130 SXA,1 CLRGO
047326,000512: 13,3055 02104 IRETURN
047327,000513: 13,3056 01634 VINTFLAG
047328,000514: 13,3057 27045 IFLAGC
047329,000515:
047330,000516: 13,3060 66214 INTEGRVS SET SSP
047331,000517: 13,3061 01467 PRECIFLG
047332,000518: 13,3062 02033 PBODY
047333,000519: 13,3063 00000 0
047334,000520: 13,3064 66214 BOF SSP
047335,000521: 13,3065 00343 MOONFLAG
047336,000522: 13,3066 27071 +3
047337,000523: 13,3067 02033 PBODY
047338,000524: 13,3070 00002 2
047339,000525: 13,3071 77220 STQ VLOAD
047340,000526: 13,3072 02104 IRETURN
047341,000527: 13,3073 22276 ZEROVEC
047342,000528: 13,3074 01521 STORE TDELTAV
047343,000529: 13,3075 35527 STCALL TNUV
047344,000530: 13,3076 23340 RECTIFY
047345,000531: 13,3077 43014 CLEAR SET
047346,000532: 13,3100 01676 DIM0FLAG
047347,000533: 13,3101 04062 NEWIFLG
047348,000534: 13,3102 77614 SETGO
047349,000535: 13,3103 04020 RPQFLAG
047350,000536: 13,3104 27121 ALOADED
047351,000537: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER ,
047352,000538: # NORMALLY THE NAVIGATION PROGRAM ,TO SET THE INTEG. FLAGS. THE ROUTINE
047353,000539: # IS ENTERED AT INTEGRV1 BY CSMPREC ET.AL. AND AT ALOADED BY INTEGRVS.
047354,000540: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
047355,000541: # PROGRAM FOR PRECISION OR CONIC
047356,000542:
047357,000543: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
047358,000544: # SETTING ANY FLAGS.
047359,000545: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
047360,000546: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
047361,000547: # INTYPFLG
047362,000548: # DIM0FLAG
047363,000549: # D6OR9FLG
047364,000550: # CALLING SEQUENCE
047365,000551: # L-X CALL
047366,000552: # L-Y INTSTALL
047367,000553: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
047368,000554: # AND DIM0FLAG IS CLEAR.
047369,000555: # L CALL
047370,000556: # L+1 INTEGRV
047371,000557: # INITIALIZATION
047372,000558: # FLAGS AS ABOVE
047373,000559: # STORE TIME TO INTEGRATE TO IN TDEC1
047374,000560: # OUTPUT
047375,000561: # RATT AS
047376,000562: # VATT DEFINED
047377,000563: # TAT BEFORE
047378,000564:
047379,000565:
047380,000566: 13,3105 77620 INTEGRV STQ
047381,000567: 13,3106 02104 IRETURN
047382,000568: 13,3107 43014 INTEGRV1 SET SET
047383,000569: 13,3110 04060 RPQFLAG
047384,000570: 13,3111 04062 NEWIFLG
047385,000571: 13,3112 77731 INTEGRV2 SSP
047386,000572: 13,3113 00053 QPRET
047387,000573: 13,3114 27121 ALOADED
047388,000574: 13,3115 52014 BON GOTO
047389,000575: 13,3116 01714 VINTFLAG
047390,000576: 13,3117 26655 PTOACSM
047391,000577: 13,3120 26730 PTOALEM
047392,000578: 13,3121 77745 ALOADED DLOAD
047393,000579: 13,3122 00041 TDEC1
047394,000580: 13,3123 01121 STORE TDEC
047395,000581: 13,3124 52014 BOFF GOTO
047396,000582: 13,3125 01753 INTYPFLG
047397,000583: 13,3126 27227 TESTLOOP
047398,000584: 13,3127 27213 RVCON
047399,000585: 13,3130 77414 A-PCHK BOFCLR EXIT
047400,000586: 13,3131 01652 STATEFLG
047401,000587: 13,3132 27152 RECTOUT
047402,000588: 13,3133 05423 TC PHASCHNG
047403,000589: 13,3134 04022 OCT 04022
047404,000590: 13,3135 40774 CS RASFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
047405,000591: 13,3136 75020 MASK REINTBIT # INTSTALL AND INTWAKE
047406,000592: 13,3137 26774 ADS RASFLAG
047407,000593: 13,3140 06014 TC INTPRET
047408,000594: 13,3141 77731 SSP
047409,000595: 13,3142 00053 QPRET
047410,000596: 13,3143 27150 PHEXIT
047411,000597: 13,3144 52014 BON GOTO
047412,000598: 13,3145 01714 VINTFLAG
047413,000599: 13,3146 26631 ATOPCSM
047414,000600: 13,3147 26704 ATOPLEM
047415,000601: 13,3150 77624 PHEXIT CALL
047416,000602: 13,3151 11057 GRP2PC
047417,000603: 13,3152 45001 RECTOUT SETPD CALL
047418,000604: 13,3153 00001 0
047419,000605: 13,3154 23340 RECTIFY
047420,000606: 13,3155 53775 VLOAD VSL*
047421,000607: 13,3156 01503 RRECT
047422,000608: 13,3157 57576 0,2
047423,000609: 13,3160 53715 PDVL VSL* # RATT TO PD0
047424,000610: 13,3161 01511 VRECT
047425,000611: 13,3162 57576 0,2
047426,000612: 13,3163 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
047427,000613: 13,3164 01517 TET
047428,000614: 13,3165 01503 RRECT
047429,000615: 13,3166 64715 PDVL PDDL*
047430,000616: 13,3167 01511 VRECT
047431,000617: 13,3170 54040 MUEARTH,2
047432,000618: 13,3171 76006 PUSH AXT,1
047433,000619: 13,3172 77765 DEC -10 B-14
047434,000620: 13,3173 76014 BON AXT,1
047435,000621: 13,3174 00303 MOONFLAG
047436,000622: 13,3175 27177 +2
047437,000623: 13,3176 77775 DEC -2 B-14
047438,000624: 13,3177 40001 INTEXIT SETPD BOV
047439,000625: 13,3200 00001 0
047440,000626: 13,3201 27202 +1
047441,000627: 13,3202 43014 CLEAR CLEAR
047442,000628: 13,3203 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
047443,000629: 13,3204 01667 PRECIFLG
047444,000630: 13,3205 77535 SLOAD EXIT
047445,000631: 13,3206 02105 IRETURN
047446,000632: 13,3207 30154 CA MPAC
047447,000633: 13,3210 50120 INDEX FIXLOC
047448,000634: 13,3211 54052 TS QPRET
047449,000635: 13,3212 03400 TC INTWAKE
047450,000636: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
047451,000637: # VELOCITY FOR THE INTERVAL (TET-TDEC)
047452,000638:
047453,000639: 13,3213 45345 RVCON DLOAD DSU
047454,000640: 13,3214 01121 TDEC
047455,000641: 13,3215 01517 TET
047456,000642: 13,3216 36076 STCALL TAU.
047457,000643: 13,3217 23340 RECTIFY
047458,000644: 13,3220 77624 CALL
047459,000645: 13,3221 22312 KEPPREP
047460,000646: 13,3222 43345 DLOAD DAD
047461,000647: 13,3223 01551 TC
047462,000648: 13,3224 01517 TET
047463,000649: 13,3225 35517 STCALL TET
047464,000650: 13,3226 27152 RECTOUT
047465,000651:
047466,000652: # TESTLOOP
047467,000653:
047468,000654: 13,3227 43014 TESTLOOP BOF CLRGO
047469,000655: 13,3230 04752 QUITFLAG
047470,000656: 13,3231 27234 +3
047471,000657: 13,3232 01632 STATEFLG
047472,000658: 13,3233 27177 INTEXIT # STOP INTEGRATION
047473,000659: 13,3234 73001 +3 SETPD LXA,2
047474,000660: 13,3235 00013 10D
047475,000661: 13,3236 02032 PBODY
047476,000662: 13,3237 51575 VLOAD ABVAL
047477,000663: 13,3240 01535 RCV
047478,000664: 13,3241 43006 PUSH CLEAR # RC TO 10D
047479,000665: 13,3242 00262 MIDFLAG
047480,000666: 13,3243 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
047481,000667: 13,3244 55466 RME,2
047482,000668: 13,3245 27250 +3
047483,000669: 13,3246 77614 SET
047484,000670: 13,3247 00062 MIDFLAG
047485,000671: 13,3250 41345 NORFINAL DLOAD DMP
047486,000672: 13,3251 00013 10D
047487,000673: 13,3252 00043 34D
047488,000674: 13,3253 55762 SR1R DDV*
047489,000675: 13,3254 54040 MUEARTH,2
047490,000676: 13,3255 41366 SQRT DMP
047491,000677: 13,3256 23672 .3D
047492,000678: 13,3257 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
047493,000679: 13,3260 54345 DLOAD SL
047494,000680: 13,3261 00155 MPAC
047495,000681: 13,3262 20220 15D # OF 128 CSECS.
047496,000682: 13,3263 40006 PUSH BOV
047497,000683: 13,3264 27311 MAXDT
047498,000684: 13,3265 50021 BDSU BMN
047499,000685: 13,3266 27361 DT/2MAX
047500,000686: 13,3267 27311 MAXDT
047501,000687: 13,3270 45345 DT/2COMP DLOAD DSU
047502,000688: 13,3271 01121 TDEC
047503,000689: 13,3272 01517 TET
047504,000690: 13,3273 54234 RTB SL
047505,000691: 13,3274 21510 SGNAGREE
047506,000692: 13,3275 20211 8D
047507,000693: 13,3276 02100 STORE DT/2 # B-19
047508,000694: 13,3277 51400 BOV ABS
047509,000695: 13,3300 27315 GETMAXDT
047510,000696: 13,3301 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
047511,000697: 13,3302 00015 12D
047512,000698: 13,3303 27321 P00HCHK
047513,000699: 13,3304 75345 USEMAXDT DLOAD SIGN
047514,000700: 13,3305 00015 12D
047515,000701: 13,3306 02100 DT/2
047516,000702: 13,3307 36100 STCALL DT/2
047517,000703: 13,3310 27321 P00HCHK
047518,000704: 13,3311 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
047519,000705: 13,3312 27361 DT/2MAX
047520,000706: 13,3313 77650 GOTO
047521,000707: 13,3314 27270 DT/2COMP
047522,000708: 13,3315 77634 GETMAXDT RTB
047523,000709: 13,3316 21656 SIGNMPAC
047524,000710: 13,3317 36100 STCALL DT/2
047525,000711: 13,3320 27304 USEMAXDT
047526,000712: 13,3321 51545 P00HCHK DLOAD ABS
047527,000713: 13,3322 02100 DT/2
047528,000714: 13,3323 50025 DSU BMN
047529,000715: 13,3324 27357 DT/2MIN
047530,000716: 13,3325 27130 A-PCHK
047531,000717: 13,3326 46135 SLOAD BHIZ
047532,000718: 13,3327 01013 MODREG
047533,000719: 13,3330 27333 +3
047534,000720: 13,3331 77650 GOTO
047535,000721: 13,3332 23153 TIMESTEP
047536,000722: 13,3333 77614 BON # WAS THIS CALL VIA CSM(LEM)PREC
047537,000723: 13,3334 01707 PRECIFLG
047538,000724: 13,3335 23153 TIMESTEP # YES
047539,000725: 13,3336 45345 DLOAD DSU
047540,000726: 13,3337 02100 DT/2
047541,000727: 13,3340 00015 12D
047542,000728: 13,3341 43040 BMN BOFCLR
047543,000729: 13,3342 27130 A-PCHK
047544,000730: 13,3343 04242 NEWIFLG
047545,000731: 13,3344 23153 TIMESTEP
047546,000732: 13,3345 45345 DLOAD DSU
047547,000733: 13,3346 01121 TDEC
047548,000734: 13,3347 01517 TET
047549,000735: 13,3350 40525 PDDL SR4
047550,000736: 13,3351 02100 DT/2 # IS 4(DT) LS (TDEC - TET)
047551,000737: 13,3352 44322 SR2R BDSU # NO
047552,000738: 13,3353 52040 BMN GOTO
047553,000739: 13,3354 27177 INTEXIT
047554,000740: 13,3355 23153 TIMESTEP
047555,000741: 13,3356 00000 01400 DT/2MIN 2DEC 3 B-20
047556,000742:
047557,000743: 13,3360 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
047558,000744:
047559,000745: 13,3362 77776 INTSTALL EXIT
047560,000746: 13,3363 05566 TC UPFLAG
047561,000747: 13,3364 00114 ADRES INTFLG2
047562,000748: 13,3365 35030 CAF ZERO
047563,000749: 13,3366 54001 ALLSTALL TS L
047564,000750: 13,3367 30774 CA RASFLAG
047565,000751: 13,3370 50001 INDEX L
047566,000752: 13,3371 73463 MASK INTBITAB # IS THIS STALL AREA FREE
047567,000753: 13,3372 00006 EXTEND
047568,000754: 13,3373 13441 BZF OKTOGRAB # YES
047569,000755: 13,3374 50001 INDEX L
047570,000756: 13,3375 33460 CAF WAKESTAL
047571,000757: 13,3376 05203 TC JOBSLEEP
047572,000758: 13,3377 77776 INTWAKE0 EXIT
047573,000759:
047574,000760: 13,3400 40774 INTWAKE CS RASFLAG # IS THIS INTSTALLED ROUTINE TO BE
047575,000761: 13,3401 75020 MASK REINTBIT # RESTARTED
047576,000762: 13,3402 10000 CCS A
047577,000763: 13,3403 03420 TC INTWAKE1 # NO
047578,000764:
047579,000765: 13,3404 50120 INDEX FIXLOC
047580,000766: 13,3405 30052 CA QPRET
047581,000767: 13,3406 55056 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
047582,000768:
047583,000769: 13,3407 05423 TC PHASCHNG
047584,000770: 13,3410 04022 OCT 04022
047585,000771:
047586,000772: 13,3411 31056 CA TBASE2
047587,000773: 13,3412 50120 INDEX FIXLOC
047588,000774: 13,3413 54052 TS QPRET
047589,000775:
047590,000776: 13,3414 35020 CAF REINTBIT
047591,000777: 13,3415 70774 MASK RASFLAG
047592,000778: 13,3416 00006 EXTEND
047593,000779: 13,3417 13444 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
047594,000780:
047595,000781: 13,3420 05600 INTWAKE1 TC DOWNFLAG
047596,000782: 13,3421 00114 ADRES INTFLG2
047597,000783: 13,3422 35030 CAF ZERO
047598,000784: 13,3423 54154 WAKE TS STALTEM # INDEX OF ANY STALL USER
047599,000785: 13,3424 50154 WAKE1 INDEX STALTEM
047600,000786: 13,3425 33460 CAF WAKESTAL
047601,000787: 13,3426 00004 INHINT
047602,000788: 13,3427 05207 TC JOBWAKE
047603,000789: 13,3430 10064 CCS LOCCTR
047604,000790: 13,3431 13424 TCF WAKE1 # MAY BE MORE TO WAKE UP
047605,000791: 13,3432 00051 FORTYONE DEC 41 B-14
047606,000792: 13,3433 50154 INDEX STALTEM
047607,000793: 13,3434 43463 CS INTBITAB
047608,000794: 13,3435 70774 MASK RASFLAG
047609,000795: 13,3436 54774 TS RASFLAG # RELEASE STALL AREA
047610,000796: 13,3437 00003 RELINT
047611,000797: 13,3440 13444 TCF GOBAC
047612,000798: 13,3441 50001 OKTOGRAB INDEX L # NO, WAIT UNTIL AVAILABLE
047613,000799: 13,3442 35011 CAF INTFLBIT
047614,000800: 13,3443 26774 ADS RASFLAG
047615,000801: 13,3444 06014 GOBAC TC INTPRET
047616,000802: 13,3445 77616 RVQ
047617,000803: 13,3446 77776 ERASTAL1 EXIT
047618,000804: 13,3447 35026 CAF ONE
047619,000805: 13,3450 13366 TCF ALLSTALL
047620,000806: 13,3451 77776 ERASTAL2 EXIT
047621,000807: 13,3452 35025 CAF TWO
047622,000808: 13,3453 13366 TCF ALLSTALL
047623,000809: 13,3454 35026 ERASWAK1 CAF ONE
047624,000810: 13,3455 13423 TCF WAKE
047625,000811: 13,3456 35025 ERASWAK2 CAF TWO
047626,000812: 13,3457 13423 TCF WAKE
047627,000813: 13,3460 27363 WAKESTAL CADR INTSTALL +1
047628,000814: 13,3461 27447 CADR ERASTAL1 +1
047629,000815: 13,3462 27452 CADR ERASTAL2 +1
047630,000816: 13,3463 0154 STALTEM EQUALS MPAC
047631,000817: 13,3463 20100 INTBITAB OCT 20100
047632,000818: 13,3464 10040 OCT 10040
047633,000819: 13,3465 04020 OCT 04020
047634,000820:
047635,000821: # AVETOMID
047636,000822:
047637,000823: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
047638,000824: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
047639,000825: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
047640,000826:
047641,000827: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
047642,000828: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
047643,000829:
047644,000830: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
047645,000831:
047646,000832: # FINALLY TRKMKCNT IS ZEROED
047647,000833:
047648,000834: 13,2000 SETLOC INTINIT
047649,000835: 13,2000 BANK
047650,000836:
047651,000837: 13,3466 COUNT* $$/INTIN
047652,000838: 13,3466 43020 AVETOMID STQ BON
047653,000839: 13,3467 02772 EGRESS
047654,000840: 13,3470 02716 RENDWFLG
047655,000841: 13,3471 27541 INT/W # W-MATRIX VALID ,GO INTEGRATE IT
047656,000842: 13,3472 77614 BON
047657,000843: 13,3473 01711 ORBWFLAG
047658,000844: 13,3474 27541 INT/W # W-MATRIX VALID ,GO INTEGRATE IT
047659,000845:
047660,000846: 13,3475 45145 OTHERS DLOAD CALL # GET SET FOR OTHER VEHICLE INTEGRATION
047661,000847: 13,3476 01234 PIPTIME # DESIRED TIME
047662,000848: 13,3477 27362 INTSTALL
047663,000849: 13,3500 45014 SET CALL
047664,000850: 13,3501 01474 VINTFLAG # CM
047665,000851: 13,3502 26622 SETIFLGS # SETS UP NONE W-MAT. PERMANENT INTEG.
047666,000852: 13,3503 43014 BOF CLEAR
047667,000853: 13,3504 02747 COMPUTER
047668,000854: 13,3505 27507 +2 # COMPUTER IS LM ,INTEG CM
047669,000855: 13,3506 01674 VINTFLAG # COMPUTER IS CM ,INTEG LM
047670,000856: 13,3507 34041 STCALL TDEC1
047671,000857: 13,3510 27105 INTEGRV
047672,000858:
047673,000859: 13,3511 45174 AXT,2 CALL # NOW MOVE PROPERLY SCALE RN,UN AS WELL AS
047674,000860: 13,3512 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
047675,000861: 13,3513 27362 INTSTALL
047676,000862: 13,3514 77014 BON AXT,2
047677,000863: 13,3515 04304 MOONTHIS
047678,000864: 13,3516 27520 +2
047679,000865: 13,3517 00000 0
047680,000866: 13,3520 53775 VLOAD VSR*
047681,000867: 13,3521 01220 RN
047682,000868: 13,3522 57176 0,2
047683,000869: 13,3523 01503 STORE RRECT
047684,000870: 13,3524 15535 STODL RCV
047685,000871: 13,3525 01234 PIPTIME
047686,000872: 13,3526 25517 STOVL TET
047687,000873: 13,3527 01226 VN
047688,000874: 13,3530 45057 VSR* CALL
047689,000875: 13,3531 57176 0,2
047690,000876: 13,3532 23354 MINIRECT # FINISH SETTING UP STATE VECTOR
047691,000877: 13,3533 66234 RTB SSP
047692,000878: 13,3534 26717 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
047693,000879: 13,3535 03450 TRKMKCNT
047694,000880: 13,3536 00000 0
047695,000881: 13,3537 77650 GOTO
047696,000882: 13,3540 46740 FAZAB5
047697,000883:
047698,000884: 13,3541 45145 INT/W DLOAD CALL
047699,000885: 13,3542 01234 PIPTIME # INTEGRATE W THRU BURN
047700,000886: 13,3543 27362 INTSTALL
047701,000887: 13,3544 43014 SET SET
047702,000888: 13,3545 01476 DIM0FLAG # DO W-MATRIX
047703,000889: 13,3546 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
047704,000890: 13,3547 43014 SET CLEAR
047705,000891: 13,3550 01475 D6OR9FLG # 9X9 FOR LM
047706,000892: 13,3551 01674 VINTFLAG # LM
047707,000893: 13,3552 43014 BOF SET
047708,000894: 13,3553 02747 COMPUTER
047709,000895: 13,3554 27560 +4 # LM TO DO
047710,000896: 13,3555 01474 VINTFLAG
047711,000897: 13,3556 77614 CLEAR
047712,000898: 13,3557 01675 D6OR9FLG # 6X6 FOR CM
047713,000899: 13,3560 34041 STCALL TDEC1
047714,000900: 13,3561 27105 INTEGRV
047715,000901: 13,3562 77650 GOTO
047716,000902: 13,3563 27475 OTHERS # NOW GO DO THE OTHER VEHICLE
047717,000903:
047718,000904: # MIDTOAV1
047719,000905:
047720,000906: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
047721,000907: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
047722,000908: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
047723,000909: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
047724,000910: # IS DONE TO THE CURRENT TIME.
047725,000911: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
047726,000912:
047727,000913: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
047728,000914: # TO THE RETURN ADDRESS
047729,000915:
047730,000916: # IN EITHER CASE , BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
047731,000917: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
047732,000918: # TION TIME AND MPAC IS SET TO THE DELTA TIME---
047733,000919: # TAT MINUS CURRENT TIME.
047734,000920:
047735,000921:
047736,000922: # MIDTOAV2
047737,000923:
047738,000924: # THIS ROUTINE INTEGRATES THIS VEHICLES STATE VECTOR TO THE CURRENT TIME.
047739,000925: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
047740,000926: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
047741,000927:
047742,000928: 13,3564 E7,1730 EBANK= IRETURN1
047743,000929: 13,3564 43020 MIDTOAV2 STQ CLRGO # INTEGRATE TO PRESENT TIME PLUS TIMEDELT
047744,000930: 13,3565 03730 IRETURN1
047745,000931: 13,3566 04634 MID1FLAG
047746,000932: 13,3567 27603 ENTMID2
047747,000933:
047748,000934: 13,3570 43020 MIDTOAV1 STQ SET # INTEGRATE TO TDEC1
047749,000935: 13,3571 03730 IRETURN1
047750,000936: 13,3572 04474 MID1FLAG
047751,000937: 13,3573 43234 RTB DAD # INITIAL CHECK, IS TDEC1 IN THE FUTURE
047752,000938: 13,3574 21454 LOADTIME
047753,000939: 13,3575 27702 TIMEDELT
047754,000940: 13,3576 51021 BDSU BPL
047755,000941: 13,3577 00041 TDEC1
047756,000942: 13,3600 27607 ENTMID1 # Y5S
047757,000943: 13,3601 77624 CALL
047758,000944: 13,3602 27670 NOTIME # NO, SET ALARM, SWITCH TO MIDTOAV2
047759,000945:
047760,000946: 13,3603 43234 ENTMID2 RTB DAD
047761,000947: 13,3604 21454 LOADTIME
047762,000948: 13,3605 27702 TIMEDELT
047763,000949: 13,3606 00041 STORE TDEC1
047764,000950:
047765,000951: 13,3607 77624 ENTMID1 CALL
047766,000952: 13,3610 27362 INTSTALL
047767,000953: 13,3611 45014 CLEAR CALL
047768,000954: 13,3612 01676 DIM0FLAG # NO W-MATRIX
047769,000955: 13,3613 26040 THISVINT
047770,000956: 13,3614 43014 CLEAR SET
047771,000957: 13,3615 01673 INTYPFLG
047772,000958: 13,3616 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
047773,000959: 13,3617 77624 CALL
047774,000960: 13,3620 27105 INTEGRV # GO INTEGRATE
047775,000961: 13,3621 77214 CLEAR VLOAD
047776,000962: 13,3622 04675 MIDAVFLG
047777,000963: 13,3623 00001 RATT
047778,000964: 13,3624 27532 STOVL RN1
047779,000965: 13,3625 00007 VATT
047780,000966: 13,3626 17540 STODL VN1
047781,000967: 13,3627 00015 TAT
047782,000968: 13,3630 03546 STORE PIPTIME1
047783,000969: 13,3631 77776 EXIT
047784,000970:
047785,000971: 13,3632 00004 INHINT
047786,000972: 13,3633 00006 EXTEND
047787,000973: 13,3634 40025 DCS TIME2
047788,000974: 13,3635 20155 DAS MPAC
047789,000975: 13,3636 07231 TC TPAGREE
047790,000976:
047791,000977: 13,3637 31730 CA IRETURN1
047792,000978: 13,3640 04677 TC BANKJUMP
047793,000979: 13,3641 47014 CKMID2 BOF RTB
047794,000980: 13,3642 04754 MID1FLAG
047795,000981: 13,3643 27660 MID2
047796,000982: 13,3644 21454 LOADTIME
047797,000983: 13,3645 44215 DAD BDSU
047798,000984: 13,3646 27702 TIMEDELT
047799,000985: 13,3647 01121 TDEC
047800,000986: 13,3650 45044 BPL CALL
047801,000987: 13,3651 27227 TESTLOOP # YES
047802,000988: 13,3652 27670 NOTIME
047803,000989:
047804,000990: 13,3653 43234 TIMEINC RTB DAD
047805,000991: 13,3654 21454 LOADTIME
047806,000992: 13,3655 27702 TIMEDELT
047807,000993: 13,3656 35121 STCALL TDEC
047808,000994: 13,3657 27227 TESTLOOP
047809,000995:
047810,000996: 13,3660 45345 MID2 DLOAD DSU
047811,000997: 13,3661 01121 TDEC
047812,000998: 13,3662 01517 TET
047813,000999: 13,3663 45246 ABS DSU
047814,001000: 13,3664 27700 3CSECS
047815,001001:
047816,001002: 13,3665 52040 BMN GOTO
047817,001003: 13,3666 27130 A-PCHK
047818,001004: 13,3667 27653 TIMEINC
047819,001005:
047820,001006: 13,3670 77414 NOTIME CLEAR EXIT # TOO LATE
047821,001007: 13,3671 04674 MID1FLAG
047822,001008: 13,3672 25730 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
047823,001009: 13,3673 05651 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
047824,001010: 13,3674 01703 OCT 1703 # TIG WILL BE SLIPPED...
047825,001011: 13,3675 06014 TC INTPRET
047826,001012: 13,3676 77616 RVQ
047827,001013:
047828,001014: 13,3677 00000 00003 3CSECS 2DEC 3 B-28
047829,001015:
047830,001016: 13,3701 00000 01750 TIMEDELT 2DEC 1000 B-28
047831,001017:
047832,001018:
047833,001019: 27,3313 BANK 27
047834,001020: 04,2000 SETLOC UPDATE2
047835,001021: 04,2000 BANK
047836,001022: 04,3000 0301 EBANK= INTWAKUQ
047837,001023:
047838,001024: 04,3000 COUNT* $$/INTIN
047839,001025:
047840,001026: 04,3000 0301 INTWAKUQ = INTWAK1Q # TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
047841,001027:
047842,001028: 04,3000 00003 INTWAKEU RELINT
047843,001029: 04,3001 00006 EXTEND
047844,001030: 04,3002 22301 QXCH INTWAKUQ # SAVE Q FOR RETURN
047845,001031:
047846,001032: 04,3003 06014 TC INTPRET
047847,001033:
047848,001034: 04,3004 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
047849,001035: 04,3005 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
047850,001036: 04,3006 11045 INTWAKUP
047851,001037:
047852,001038: 04,3007 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
047853,001039: 04,3010 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
047854,001040: 04,3011 25535 STOVL RCV
047855,001041: 04,3012 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
047856,001042: 04,3013 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
047857,001043: 04,3014 23355 RECTIFY +13D # TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
047858,001044: 04,3015 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
047859,001045: 04,3016 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
047860,001046: 04,3017 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
047861,001047: 04,3020 11056 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
047862,001048: 04,3021 11026 INTWAKEM # SPHERE OF INFLUENCE.........
047863,001049: 04,3022 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
047864,001050: 04,3023 00000 DEC 0 B-14
047865,001051: 04,3024 00223 MOONFLAG
047866,001052: 04,3025 11031 INTWAKEC
047867,001053: 04,3026 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
047868,001054: 04,3027 00002 DEC 2 B-14
047869,001055: 04,3030 00063 MOONFLAG
047870,001056: 04,3031 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
047871,001057: # MOONFLAG SET (OR CLEARED).
047872,001058: 04,3032 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
047873,001059: 04,3033 11041 INTWAKLM # STATE VECTOR UPDATE......
047874,001060: 04,3034 77624 CALL # UPDATE CSM STATE VECTOR
047875,001061: 04,3035 26631 ATOPCSM
047876,001062:
047877,001063: 04,3036 52014 CLEAR GOTO
047878,001064: 04,3037 01671 ORBWFLAG
047879,001065: 04,3040 11043 INTWAKEX
047880,001066:
047881,001067: 04,3041 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
047882,001068: 04,3042 26704 ATOPLEM
047883,001069:
047884,001070: 04,3043 77614 INTWAKEX CLEAR
047885,001071: 04,3044 02676 RENDWFLG
047886,001072:
047887,001073: 04,3045 45131 INTWAKUP SSP CALL # REMOVE :UPDATE STATE VECTOR INDICATOR:
047888,001074: 04,3046 01502 UPSVFLAG
047889,001075: 04,3047 00000 0
047890,001076: 04,3050 27377 INTWAKE0 # RELEASE :GRAB: OF ORBIT INTEG
047891,001077: 04,3051 77776 EXIT
047892,001078:
047893,001079: 04,3052 05423 TC PHASCHNG
047894,001080: 04,3053 04026 OCT 04026
047895,001081: 04,3054 00301 TC INTWAKUQ
047896,001082:
047897,001083: 04,3055 00002 UPMNSVCD OCT 2
047898,001084: 04,3056 00000 OCT 0
047899,001085:
047900,001086:
047901,001087: 04,3057 77420 GRP2PC STQ EXIT
047902,001088: 04,3060 02711 GRP2SVQ
047903,001089: 04,3061 05423 TC PHASCHNG
047904,001090: 04,3062 04022 OCT 04022
047905,001091: 04,3063 06014 TC INTPRET
047906,001092: 04,3064 77650 GOTO
047907,001093: 04,3065 02711 GRP2SVQ
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc