Source Code
|
These source-code files are part of a reconstructed copy of Comanche 67, the
Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.
They have been adapted from sources files for Comanche 55, and updated via
disassembly of binary dumps of original core rope memory modules, part numbers
2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.
Since only binary dumps (rather than listings) of Comanche 67 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.
|
054217,000002: ## Copyright: Public domain.
054218,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
054219,000004: ## Purpose: A section of Comanche revision 067.
054220,000005: ## It is part of the reconstructed source code for the flight
054221,000006: ## software for the Command Module's (CM) Apollo Guidance Computer
054222,000007: ## (AGC) for Apollo 12. No original listings of this program are
054223,000008: ## available; instead, this file was created via dissassembly of
054224,000009: ## dumps of Comanche 067 core rope modules and comparison with
054225,000010: ## other AGC programs.
054226,000011: ## Assembler: yaYUL
054227,000012: ## Contact: Ron Burkey <info@sandroid.org>.
054228,000013: ## Website: www.ibiblio.org/apollo/index.html
054229,000014: ## Mod history: 2023-08-16 MAS Created from Comanche 055.
054230,000015:
054231,000016: # 1.0 INTRODUCTION
054232,000017: # ----------------
054233,000018:
054234,000019: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
054235,000020: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
054236,000021: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
054237,000022: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
054238,000023: # SIDE THE LUNAR SPHERE OF INFLUENCE.
054239,000024:
054240,000025: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
054241,000026: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
054242,000027: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
054243,000028: # CALL TC INTSTALL.
054244,000029:
054245,000030: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
054246,000031: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
054247,000032: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
054248,000033: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
054249,000034: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
054250,000035:
054251,000036: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
054252,000037: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
054253,000038: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
054254,000039: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
054255,000040:
054256,000041: # 2.0 GENERAL DESCRIPTION
054257,000042: # -----------------------
054258,000043:
054259,000044: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS ---
054260,000045: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
054261,000046: # 2) INTEGRATES THE W-MATRIX
054262,000047: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
054263,000048:
054264,000049: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
054265,000050: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
054266,000051: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
054267,000052: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
054268,000053: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
054269,000054: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
054270,000055: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
054271,000056: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
054272,000057: # AND/OR STATE VECTOR.
054273,000058:
054274,000059: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
054275,000060: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
054276,000061: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
054277,000062:
054278,000063: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
054279,000064: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
054280,000065: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
054281,000066:
054282,000067: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
054283,000068:
054284,000069: # 2.1 RESTARTS
054285,000070:
054286,000071: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
054287,000072: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
054288,000073: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
054289,000074: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
054290,000075: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
054291,000076: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
054292,000077: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
054293,000078:
054294,000079: # 2.2 SCALING
054295,000080:
054296,000081: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
054297,000082: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
054298,000083: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
054299,000084: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
054300,000085: # DIFFERENT SCALING.
054301,000086: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
054302,000087:
054303,000088: # 3.0 INPUT/OUTPUT
054304,000089: # ----------------
054305,000090:
054306,000091: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
054307,000092: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
054308,000093: # FOR INTEGRVS, THE RCV,VCV,TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
054309,000094:
054310,000095: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
054311,000096: # EARTH MOON
054312,000097: # 29 27
054313,000098: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
054314,000099:
054315,000100: # 7 5
054316,000101: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
054317,000102:
054318,000103: # 28 28
054319,000104: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
054320,000105: # CUSTOMARILY 0, BUT NOTE LUNAR
054321,000106: # ORBIT DEPENDENCE ON REAL TIME.
054322,000107:
054323,000108: # 22 18
054324,000109: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
054325,000110: # 0 IF TCCSM(LEM) = 0
054326,000111:
054327,000112: # 3 -1
054328,000113: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
054329,000114: # 0 IF TCCSM(LEM) = 0
054330,000115: # 29 27
054331,000116: # RCVCSM(LEM) - CONIC POSITION METERS 2 2
054332,000117: # EQUALS RRECTCSM(LEM) IF
054333,000118: # TCCSM(LEM) = 0
054334,000119:
054335,000120: # 7 5
054336,000121: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
054337,000122: # EQUALS VRECTCSM(LEM) IF
054338,000123: # TCCSM(LEM) = 0
054339,000124:
054340,000125: # 28 28
054341,000126: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
054342,000127: # CUSTOMARILY 0
054343,000128:
054344,000129: # 1/2 17 16
054345,000130: # XKEPCSM(LEM) - ROOT OF KEPLERS EQUATION M 2 2
054346,000131: # 0 IF TCCSM(LEM) = 0
054347,000132:
054348,000133: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
054349,000134: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
054350,000135: # LMOONFLG C = CSM, L = LM 0 0
054351,000136: # LMIDFLG 0,1 0,1
054352,000137:
054353,000138: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
054354,000139:
054355,000140: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
054356,000141: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
054357,000142: # ROUTINE MUST BE PRESET.
054358,000143:
054359,000144: # OUTPUT
054360,000145: # AFTER EVERY CALL TO INTEGRATION
054361,000146: # EARTH MOON
054362,000147: # 29 29
054363,000148: # 0D RATT POSITION METERS 2 2
054364,000149:
054365,000150: # 7 7
054366,000151: # 6D VATT VELOCITY M/CSEC 2 2
054367,000152:
054368,000153: # 28 28
054369,000154: # 12D TAT TIME 2 2
054370,000155:
054371,000156: # 29 27
054372,000157: # 14D RATT1 POSITION METERS 2 2
054373,000158:
054374,000159: # 7 5
054375,000160: # 20D VATT1 VELOCITY M/CSEC 2 2
054376,000161:
054377,000162: # 3 2 36 30
054378,000163: # 26D MU(P) MU M /CS 2 2
054379,000164:
054380,000165: # X1 MUTABLE ENTRY -2 -10D
054381,000166:
054382,000167: # X2 COORDINT
054383,000168: # X2 COORDINATE SYSTEM ORIGEN 0 2
054384,000169: # (THIS, NOT MOONFLAG, SHOULD BE
054385,000170: # USED TO DETERMINE ORIGIN.)
054386,000171:
054387,000172: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
054388,000173: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
054389,000174: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
054390,000175: # CALLING PROGRAM.
054391,000176:
054392,000177: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
054393,000178: # -------------------------------------
054394,000179:
054395,000180: # A) PRECISION ORBITAL INTEGRATION. CSMPREC, LEMPREC ENTRANCES
054396,000181: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
054397,000182: # L CALL
054398,000183: # L+1 CSMPREC (OR LEMPREC)
054399,000184: # L+2 RETURN
054400,000185: # INPUT 28
054401,000186: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
054402,000187: # OUTPUT
054403,000188: # THE DATA LISTED IN SECTION 3.0 PLUS
054404,000189: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
054405,000190: # BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
054406,000191: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
054407,000192: # L-X STORE TIME IN PUSH LIST (TDEC1)
054408,000193: # L CALL
054409,000194: # L+1 CSMCONIC (OR LEMCONIC)
054410,000195: # INPUT/OUTPUT
054411,000196: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
054412,000197: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
054413,000198: # CALL
054414,000199: # INTSTALL
054415,000200: # VLOAD
054416,000201: # POSITION VECTOR
054417,000202: # STOVL RCV
054418,000203: # VELOCITY VECTOR
054419,000204: # STODL VCV
054420,000205: # TIME STATE VECTOR VALID
054421,000206: # STODL TET
054422,000207: # FINAL RADIUS
054423,000208: # STORE RFINAL
054424,000209: # SET(CLEAR) SET(CLEAR)
054425,000210: # INTYPFLAG
054426,000211: # MOONFLAG
054427,000212: # SET(CLEAR) DLOAD
054428,000213: # DESIRED TIME
054429,000214: # STCALL TDEC1
054430,000215: # INTEGRVS
054431,000216: # INPUT
054432,000217: # RCV POSITION VECTOR METERS
054433,000218: # VCV VELOCITY VECTOR M/CSEC
054434,000219: # TET TIME OF STATE VECTOR (MAY = 0) CSEC B-28
054435,000220: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
054436,000221: # (MAY BE INCREMENT IF TET=0)
054437,000222: # OUTPUT
054438,000223: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
054439,000224: # DEPENDING ON INTYPFLG.
054440,000225: # D) INTEGRATE STATE VECTOR. INTGRV ENTRANCE
054441,000226: # L-X STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
054442,000227: # L-8 CALL
054443,000228: # L-7
054444,000229: # L-6 SET(CLEAR) SET(CLEAR)
054445,000230: # L-5 VINTFLAG 1=CSM, 0=LM
054446,000231: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
054447,000232: # L-3 SET(CLEAR) SET(CLEAR)
054448,000233: # L-2 DIMOFLAG 1=W-MATRIX, 0=NO W-MATRIX
054449,000234: # L-1 D6OR9FLG 1=9X9, 0=6X6
054450,000235: # L SET DLOAD
054451,000236: # L+1 STATEFLG DESIRE PERMANENT UPDATE
054452,000237: # L+2 FINAL RAD. OF STATE VECTOR
054453,000238: # L+3 STCALL RFINAL
054454,000239: # L+4 INTEGRV
054455,000240: # L CALL NORMAL USE -- WILL UPDATE STATE
054456,000241: # L+1 INTEGRV VECTOR IF DIMOFLAG=1. (STATEFLG IS
054457,000242: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
054458,000243: # IT IS USED.)
054459,000244: # INPUT
054460,000245: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
054461,000246: # OUTPUT
054462,000247: # SAME AS FOR PRECISION OR CONIC INTEGRATION
054463,000248: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
054464,000249: # THE PERMANENT STATE VECTOR REPRESENTATION.
054465,000250:
054466,000251: 11,2312 BANK 11
054467,000252: 13,2000 SETLOC INTINIT
054468,000253: 13,2000 BANK
054469,000254: 13,2637 E3,1554 EBANK= RRECTCSM
054470,000255: 13,2637 COUNT 13/INTIN
054471,000256:
054472,000257: 13,2637 05426 STATEINT TC PHASCHNG
054473,000258: 13,2640 00052 OCT 00052
054474,000259: 13,2641 35075 CAF PRIO5
054475,000260: 13,2642 05163 TC FINDVAC
054476,000261: 13,2643 E3,1554 EBANK= RRECTCSM
054477,000262: 13,2643 02646 26063 2CADR STATINT1
054478,000263:
054479,000264: 13,2645 05340 TC TASKOVER
054480,000265: 13,2646 06006 STATINT1 TC INTPRET
054481,000266: 13,2647 47014 BON RTB
054482,000267: 13,2650 04712 QUITFLAG
054483,000268: 13,2651 26707 NOINT # NO STATEINT IF V96
054484,000269: 13,2652 45510 LOADTIME
054485,000270: 13,2653 00041 STORE TDEC1
054486,000271: 13,2654 45014 CLEAR CALL
054487,000272: 13,2655 04274 V96ONFLG
054488,000273: 13,2656 27452 INTSTALL
054489,000274: 13,2657 45014 SET CALL
054490,000275: 13,2660 01076 NODOFLAG
054491,000276: 13,2661 26700 SETIFLGS
054492,000277: 13,2662 77650 GOTO
054493,000278: 13,2663 26000 STATEUP
054494,000279: 13,2664 00003 25140 600SECS 2DEC 60000 B-28
054495,000280:
054496,000281: 13,2666 77414 ENDINT CLEAR EXIT
054497,000282: 13,2667 01672 STATEFLG
054498,000283: 13,2670 05426 TC PHASCHNG
054499,000284: 13,2671 20032 OCT 20032
054500,000285: 13,2672 00006 EXTEND
054501,000286: 13,2673 32665 DCA 600SECS
054502,000287: 13,2674 05356 TC LONGCALL
054503,000288: 13,2675 E3,1554 EBANK= RRECTHIS
054504,000289: 13,2675 02637 26063 2CADR STATEINT
054505,000290:
054506,000291: 13,2677 05233 TC ENDOFJOB
054507,000292: 13,2700 43014 SETIFLGS SET CLEAR
054508,000293: 13,2701 01472 STATEFLG
054509,000294: 13,2702 01673 INTYPFLG
054510,000295: 13,2703 43014 CLEAR CLEAR
054511,000296: 13,2704 01676 DIM0FLAG
054512,000297: 13,2705 01675 D6OR9FLG
054513,000298: 13,2706 77616 RVQ
054514,000299: 13,2707 77776 NOINT EXIT
054515,000300: 13,2710 05426 TC PHASCHNG
054516,000301: 13,2711 00002 OCT 2
054517,000302:
054518,000303: 13,2712 05574 TC DOWNFLAG
054519,000304: 13,2713 00221 ADRES QUITFLAG
054520,000305:
054521,000306: 13,2714 05233 TC ENDOFJOB
054522,000307:
054523,000308: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
054524,000309:
054525,000310: # CALLING SEQUENCE
054526,000311: # L CALL
054527,000312: # L+1 ATOPCSM
054528,000313:
054529,000314: # NORMAL EXIT AT L+2
054530,000315:
054531,000316: 13,2715 47020 ATOPCSM STQ RTB
054532,000317: 13,2716 00051 S2
054533,000318: 13,2717 26730 MOVEACSM
054534,000319: 13,2720 45014 SET CALL
054535,000320: 13,2721 04063 CMOONFLG
054536,000321: 13,2722 20237 SVDWN1
054537,000322: 13,2723 43014 BON CLRGO
054538,000323: 13,2724 00303 MOONFLAG
054539,000324: 13,2725 00051 S2
054540,000325: 13,2726 04223 CMOONFLG
054541,000326: 13,2727 00051 S2
054542,000327: 13,2730 03074 MOVEACSM TC SETBANK
054543,000328: 13,2731 55500 TS DIFEQCNT # INITIALIZE INDEX
054544,000329: 13,2732 51500 INDEX DIFEQCNT
054545,000330: 13,2733 31502 CA RRECT
054546,000331: 13,2734 51500 INDEX DIFEQCNT
054547,000332: 13,2735 55554 TS RRECTCSM
054548,000333: 13,2736 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
054549,000334: 13,2737 12731 TCF MOVEACSM +1 # NO-LOOP
054550,000335: 13,2740 06030 TC DANZIG # COMPLETE - RETURN
054551,000336:
054552,000337: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
054553,000338:
054554,000339: # CALLING SEQUENCE
054555,000340: # L CALL
054556,000341: # PTOACSM
054557,000342:
054558,000343: # NORMAL EXIT AT L+2
054559,000344:
054560,000345: 13,2741 43034 PTOACSM RTB BON
054561,000346: 13,2742 26757 MOVEPCSM
054562,000347: 13,2743 04303 CMOONFLG
054563,000348: 13,2744 26752 SETMOON
054564,000349: 13,2745 66214 CLRMOON CLEAR SSP
054565,000350: 13,2746 00263 MOONFLAG
054566,000351: 13,2747 02151 PBODY
054567,000352: 13,2750 00000 0
054568,000353: 13,2751 77616 RVQ
054569,000354: 13,2752 66214 SETMOON SET SSP
054570,000355: 13,2753 00063 MOONFLAG
054571,000356: 13,2754 02151 PBODY
054572,000357: 13,2755 00002 2
054573,000358: 13,2756 77616 RVQ
054574,000359: 13,2757 03074 MOVEPCSM TC SETBANK
054575,000360: 13,2760 55500 TS DIFEQCNT
054576,000361: 13,2761 51500 INDEX DIFEQCNT
054577,000362: 13,2762 31554 CA RRECTCSM
054578,000363: 13,2763 51500 INDEX DIFEQCNT
054579,000364: 13,2764 55502 TS RRECT
054580,000365: 13,2765 11500 CCS DIFEQCNT
054581,000366: 13,2766 12760 TCF MOVEPCSM +1
054582,000367: 13,2767 06030 TC DANZIG
054583,000368:
054584,000369: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
054585,000370: 13,2770 47020 ATOPLEM STQ RTB
054586,000371: 13,2771 00051 S2
054587,000372: 13,2772 27003 MOVEALEM
054588,000373: 13,2773 45014 SET CALL
054589,000374: 13,2774 04064 LMOONFLG
054590,000375: 13,2775 20263 SVDWN2
054591,000376: 13,2776 43014 BON CLRGO
054592,000377: 13,2777 00303 MOONFLAG
054593,000378: 13,3000 00051 S2
054594,000379: 13,3001 04224 LMOONFLG
054595,000380: 13,3002 00051 S2
054596,000381: 13,3003 03074 MOVEALEM TC SETBANK
054597,000382: 13,3004 55500 TS DIFEQCNT
054598,000383: 13,3005 51500 INDEX DIFEQCNT
054599,000384: 13,3006 31502 CA RRECT
054600,000385: 13,3007 51500 INDEX DIFEQCNT
054601,000386: 13,3010 55626 TS RRECTLEM
054602,000387: 13,3011 11500 CCS DIFEQCNT
054603,000388: 13,3012 13004 TCF MOVEALEM +1
054604,000389: 13,3013 06030 TC DANZIG
054605,000390:
054606,000391: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
054607,000392:
054608,000393: 13,3014 47014 PTOALEM BON RTB
054609,000394: 13,3015 04307 SURFFLAG
054610,000395: 13,3016 27035 USEPIOS
054611,000396: 13,3017 27024 MOVEPLEM
054612,000397: 13,3020 52014 BON GOTO
054613,000398: 13,3021 04304 LMOONFLG
054614,000399: 13,3022 26752 SETMOON
054615,000400: 13,3023 26745 CLRMOON
054616,000401: 13,3024 03074 MOVEPLEM TC SETBANK
054617,000402: 13,3025 55500 TS DIFEQCNT
054618,000403: 13,3026 51500 INDEX DIFEQCNT
054619,000404: 13,3027 31626 CA RRECTLEM
054620,000405: 13,3030 51500 INDEX DIFEQCNT
054621,000406: 13,3031 55502 TS RRECT
054622,000407: 13,3032 11500 CCS DIFEQCNT
054623,000408: 13,3033 13025 TCF MOVEPLEM +1
054624,000409: 13,3034 06030 TC DANZIG
054625,000410:
054626,000411: 13,3035 77201 USEPIOS SETPD VLOAD
054627,000412: 13,3036 00001 0
054628,000413: 13,3037 02026 RLS
054629,000414: 13,3040 41525 PDDL PUSH
054630,000415: 13,3041 00041 TDEC1
054631,000416: 13,3042 15517 STODL TET
054632,000417: 13,3043 27763 5/8
054633,000418: 13,3044 77624 CALL
054634,000419: 13,3045 55343 RP-TO-R
054635,000420: 13,3046 25535 STOVL RCV
054636,000421: 13,3047 11560 ZUNIT
054637,000422: 13,3050 14001 STODL 0D
054638,000423: 13,3051 01517 TET
054639,000424: 13,3052 14007 STODL 6D
054640,000425: 13,3053 27763 5/8
054641,000426: 13,3054 45014 SET CALL # NEEDED FOR SETTING X1 ON EXIT
054642,000427: 13,3055 00063 MOONFLAG
054643,000428: 13,3056 55343 RP-TO-R
054644,000429: 13,3057 74235 VXV VXSC
054645,000430: 13,3060 01535 RCV
054646,000431: 13,3061 27073 OMEGMOON
054647,000432: 13,3062 25543 STOVL VCV
054648,000433: 13,3063 11566 ZEROVEC
054649,000434: 13,3064 01521 STORE TDELTAV
054650,000435: 13,3065 67174 AXT,2 SXA,2
054651,000436: 13,3066 00002 2
054652,000437: 13,3067 02150 PBODY
054653,000438: 13,3070 35527 STCALL TNUV
054654,000439: 13,3071 27206 A-PCHK
054655,000440: 13,3072 07112 06620 OMEGMOON 2DEC* 2.66169947 E-8 B+23*
054656,000441:
054657,000442: 13,3074 33100 SETBANK CAF INTBANK
054658,000443: 13,3075 54006 TS BBANK
054659,000444: 13,3076 33517 CAF FORTYONE
054660,000445: 13,3077 00002 TC Q
054661,000446: 13,3100 E3,1554 EBANK= RRECTCSM
054662,000447: 13,3100 26063 INTBANK BBCON INTEGRV
054663,000448:
054664,000449: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
054665,000450: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
054666,000451:
054667,000452: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
054668,000453: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
054669,000454: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
054670,000455: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
054671,000456: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
054672,000457: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
054673,000458:
054674,000459: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
054675,000460: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
054676,000461: # CSMPREC CSMCONIC LEMPREC LEMCONIC
054677,000462: # VINTFLAG SET SET CLEAR CLEAR
054678,000463: # INTYPFLG CLEAR SET CLEAR SET
054679,000464: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
054680,000465:
054681,000466: # CALLING SEQUENCE
054682,000467: # L-X STORE TDEC1
054683,000468: # L CALL (STCALL TDEC1)
054684,000469: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
054685,000470:
054686,000471: # NORMAL EXIT TO L+2
054687,000472:
054688,000473: # SUBROUTINES CALLED
054689,000474: # INTEGRV1
054690,000475: # PRECOUT FOR CSMPREC AND LEMPREC
054691,000476: # CONICOUT FOR CSMCONIC AND LEMCONIC
054692,000477:
054693,000478: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
054694,000479:
054695,000480: # INPUT
054696,000481: # TDEC1 TIME TO INTEGRATE TO. CSECS B-28
054697,000482:
054698,000483: 13,3101 45020 CSMPREC STQ CALL
054699,000484: 13,3102 00046 X1
054700,000485: 13,3103 27452 INTSTALL
054701,000486: 13,3104 43130 SXA,1 SET
054702,000487: 13,3105 02214 IRETURN
054703,000488: 13,3106 01474 VINTFLAG
054704,000489:
054705,000490: 13,3107 43014 IFLAGP SET CLEAR
054706,000491: 13,3110 01467 PRECIFLG
054707,000492: 13,3111 01676 DIM0FLAG
054708,000493: 13,3112 77614 CLRGO
054709,000494: 13,3113 01633 INTYPFLG
054710,000495: 13,3114 27174 INTEGRV1
054711,000496: 13,3115 45020 LEMPREC STQ CALL
054712,000497: 13,3116 00046 X1
054713,000498: 13,3117 27452 INTSTALL
054714,000499: 13,3120 43130 SXA,1 CLRGO
054715,000500: 13,3121 02214 IRETURN
054716,000501: 13,3122 01634 VINTFLAG
054717,000502: 13,3123 27107 IFLAGP
054718,000503:
054719,000504: 13,3124 45020 CSMCONIC STQ CALL
054720,000505: 13,3125 00046 X1
054721,000506: 13,3126 27452 INTSTALL
054722,000507: 13,3127 43130 SXA,1 SET
054723,000508: 13,3130 02214 IRETURN
054724,000509: 13,3131 01474 VINTFLAG
054725,000510: 13,3132 43014 IFLAGC CLEAR SETGO
054726,000511: 13,3133 01676 DIM0FLAG
054727,000512: 13,3134 01433 INTYPFLG
054728,000513: 13,3135 27174 INTEGRV1
054729,000514: 13,3136 45020 LEMCONIC STQ CALL
054730,000515: 13,3137 00046 X1
054731,000516: 13,3140 27452 INTSTALL
054732,000517: 13,3141 43130 SXA,1 CLRGO
054733,000518: 13,3142 02214 IRETURN
054734,000519: 13,3143 01634 VINTFLAG
054735,000520: 13,3144 27132 IFLAGC
054736,000521:
054737,000522: 13,3145 66214 INTEGRVS SET SSP
054738,000523: 13,3146 01467 PRECIFLG
054739,000524: 13,3147 02151 PBODY
054740,000525: 13,3150 00000 0
054741,000526: 13,3151 66214 BOF SSP
054742,000527: 13,3152 00343 MOONFLAG
054743,000528: 13,3153 27156 +3
054744,000529: 13,3154 02151 PBODY
054745,000530: 13,3155 00002 2
054746,000531: 13,3156 77220 STQ VLOAD
054747,000532: 13,3157 02214 IRETURN
054748,000533: 13,3160 11566 ZEROVEC
054749,000534: 13,3161 01521 STORE TDELTAV
054750,000535: 13,3162 35527 STCALL TNUV
054751,000536: 13,3163 23403 RECTIFY
054752,000537: 13,3164 43014 CLEAR SET
054753,000538: 13,3165 01676 DIM0FLAG
054754,000539: 13,3166 04062 NEWIFLG
054755,000540: 13,3167 77614 SETGO
054756,000541: 13,3170 04020 RPQFLAG
054757,000542: 13,3171 22312 ALOADED
054758,000543:
054759,000544: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
054760,000545: # NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS. THE ROUTINE
054761,000546: # IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
054762,000547: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
054763,000548: # PROGRAM FOR PRECISION OR CONIC
054764,000549:
054765,000550: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
054766,000551: # SETTING ANY FLAGS.
054767,000552:
054768,000553: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
054769,000554: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
054770,000555: # INTYPFLG
054771,000556: # DIM0FLAG
054772,000557: # D6OR9FLG
054773,000558:
054774,000559: # CALLING SEQUENCE
054775,000560: # L-X CALL
054776,000561: # L-Y INTSTALL
054777,000562: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
054778,000563: # AND DIM0FLAG IS CLEAR.
054779,000564: # L CALL
054780,000565: # L+1 INTEGRV
054781,000566:
054782,000567: # INITIALIZATION
054783,000568: # FLAGS AS ABOVE
054784,000569: # STORE TIME TO INTEGRATE TO IN TDEC1
054785,000570:
054786,000571: # OUTPUT
054787,000572: # RATT AS
054788,000573: # VATT DEFINED
054789,000574: # TAT BEFORE
054790,000575:
054791,000576: 13,3172 77620 INTEGRV STQ
054792,000577: 13,3173 02214 IRETURN
054793,000578: 13,3174 43014 INTEGRV1 SET SET
054794,000579: 13,3175 04060 RPQFLAG
054795,000580: 13,3176 04062 NEWIFLG
054796,000581: 13,3177 77731 INTEGRV2 SSP
054797,000582: 13,3200 00053 QPRET
054798,000583: 13,3201 22312 ALOADED
054799,000584: 13,3202 52014 BON GOTO
054800,000585: 13,3203 01714 VINTFLAG
054801,000586: 13,3204 26741 PTOACSM
054802,000587: 13,3205 27014 PTOALEM
054803,000588: 11,2000 SETLOC INTINIT1
054804,000589: 11,2000 BANK
054805,000590: 11,2312 77745 ALOADED DLOAD
054806,000591: 11,2313 00041 TDEC1
054807,000592: 11,2314 01101 STORE TDEC
054808,000593: 11,2315 52014 BOFF GOTO
054809,000594: 11,2316 01753 INTYPFLG
054810,000595: 11,2317 27315 TESTLOOP
054811,000596: 11,2320 27301 RVCON
054812,000597: 13,2000 SETLOC INTINIT
054813,000598: 13,2000 BANK
054814,000599: 13,3206 45014 A-PCHK BOF CALL
054815,000600: 13,3207 00342 MIDFLAG
054816,000601: 13,3210 27215 ANDOUT # DONT MAKE ORIGIN CHANGE CHECK
054817,000602: 13,3211 23302 CHKSWTCH
054818,000603: 13,3212 45044 BPL CALL
054819,000604: 13,3213 27215 ANDOUT # NO ORIGIN CHANGE
054820,000605: 13,3214 23343 ORIGCHNG # MAKE THE SWITCH
054821,000606: 13,3215 77414 ANDOUT BOFCLR EXIT
054822,000607: 13,3216 01652 STATEFLG
054823,000608: 13,3217 27236 RECTOUT
054824,000609: 13,3220 05426 TC PHASCHNG
054825,000610: 13,3221 04022 OCT 04022
054826,000611: 13,3222 05562 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
054827,000612: 13,3223 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
054828,000613: 13,3224 06006 TC INTPRET
054829,000614: 13,3225 77731 SSP
054830,000615: 13,3226 00053 QPRET
054831,000616: 13,3227 27234 PHEXIT
054832,000617: 13,3230 52014 BON GOTO
054833,000618: 13,3231 01714 VINTFLAG
054834,000619: 13,3232 26715 ATOPCSM
054835,000620: 13,3233 26770 ATOPLEM
054836,000621: 13,3234 77624 PHEXIT CALL
054837,000622: 13,3235 56751 GRP2PC
054838,000623: 13,3236 45001 RECTOUT SETPD CALL
054839,000624: 13,3237 00001 0
054840,000625: 13,3240 23403 RECTIFY
054841,000626: 13,3241 53775 VLOAD VSL*
054842,000627: 13,3242 01503 RRECT
054843,000628: 13,3243 57576 0,2
054844,000629: 13,3244 53715 PDVL VSL* # RATT TO PD0
054845,000630: 13,3245 01511 VRECT
054846,000631: 13,3246 57576 0,2
054847,000632: 13,3247 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
054848,000633: 13,3250 01517 TET
054849,000634: 13,3251 01503 RRECT
054850,000635: 13,3252 64715 PDVL PDDL*
054851,000636: 13,3253 01511 VRECT
054852,000637: 13,3254 50032 MUEARTH,2
054853,000638: 13,3255 76006 PUSH AXT,1
054854,000639: 13,3256 77765 DEC -10 B-14
054855,000640: 13,3257 76014 BON AXT,1
054856,000641: 13,3260 00303 MOONFLAG
054857,000642: 13,3261 27263 +2
054858,000643: 13,3262 77775 DEC -2 B-14
054859,000644: 13,3263 40001 INTEXIT SETPD BOV
054860,000645: 13,3264 00001 0
054861,000646: 13,3265 27266 +1
054862,000647: 13,3266 77614 CLEAR
054863,000648: 13,3267 04675 MIDAVFLG
054864,000649: 13,3270 43014 CLEAR CLEAR
054865,000650: 13,3271 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
054866,000651: 13,3272 01667 PRECIFLG
054867,000652: 13,3273 77535 SLOAD EXIT
054868,000653: 13,3274 02215 IRETURN
054869,000654: 13,3275 30154 CA MPAC
054870,000655: 13,3276 50120 INDEX FIXLOC
054871,000656: 13,3277 54052 TS QPRET
054872,000657: 13,3300 03467 TC INTWAKE
054873,000658:
054874,000659: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
054875,000660: # VELOCITY FOR THE INTERVAL (TET-TDEC)
054876,000661:
054877,000662: 13,3301 45345 RVCON DLOAD DSU
054878,000663: 13,3302 01101 TDEC
054879,000664: 13,3303 01517 TET
054880,000665: 13,3304 36312 STCALL TAU.
054881,000666: 13,3305 23403 RECTIFY
054882,000667: 13,3306 77624 CALL
054883,000668: 13,3307 22321 KEPPREP
054884,000669: 13,3310 43345 DLOAD DAD
054885,000670: 13,3311 01551 TC
054886,000671: 13,3312 01517 TET
054887,000672: 13,3313 35517 STCALL TET
054888,000673: 13,3314 27236 RECTOUT
054889,000674:
054890,000675: # TESTLOOP
054891,000676:
054892,000677: 13,3315 43014 TESTLOOP BOF CLRGO
054893,000678: 13,3316 04752 QUITFLAG
054894,000679: 13,3317 27322 +3
054895,000680: 13,3320 01632 STATEFLG
054896,000681: 13,3321 27263 INTEXIT # STOP INTEGRATION
054897,000682: 13,3322 73001 +3 SETPD LXA,2
054898,000683: 13,3323 00013 10D
054899,000684: 13,3324 02150 PBODY
054900,000685: 13,3325 51575 VLOAD ABVAL
054901,000686: 13,3326 01535 RCV
054902,000687: 13,3327 43006 PUSH CLEAR # RC TO 10D
054903,000688: 13,3330 00262 MIDFLAG
054904,000689: 13,3331 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
054905,000690: 13,3332 67212 RME,2
054906,000691: 13,3333 27336 +3
054907,000692: 13,3334 77614 SET
054908,000693: 13,3335 00062 MIDFLAG
054909,000694: 13,3336 41345 NORFINAL DLOAD DMP
054910,000695: 13,3337 00013 10D
054911,000696: 13,3340 00043 34D
054912,000697: 13,3341 55762 SR1R DDV*
054913,000698: 13,3342 50032 MUEARTH,2
054914,000699: 13,3343 41366 SQRT DMP
054915,000700: 13,3344 23734 .3D
054916,000701: 13,3345 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
054917,000702: 13,3346 54345 DLOAD SL
054918,000703: 13,3347 00155 MPAC
054919,000704: 13,3350 20220 15D # OF 128 CSECS.
054920,000705: 13,3351 40006 PUSH BOV
054921,000706: 13,3352 27377 MAXDT
054922,000707: 13,3353 50021 BDSU BMN
054923,000708: 13,3354 27451 DT/2MAX
054924,000709: 13,3355 27377 MAXDT
054925,000710: 13,3356 45345 DT/2COMP DLOAD DSU
054926,000711: 13,3357 01101 TDEC
054927,000712: 13,3360 01517 TET
054928,000713: 13,3361 54234 RTB SL
054929,000714: 13,3362 45544 SGNAGREE
054930,000715: 13,3363 20211 8D
054931,000716: 13,3364 02314 STORE DT/2 # B-19
054932,000717: 13,3365 51400 BOV ABS
054933,000718: 13,3366 27403 GETMAXDT
054934,000719: 13,3367 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
054935,000720: 13,3370 00015 12D
054936,000721: 13,3371 27407 P00HCHK
054937,000722: 13,3372 75345 USEMAXDT DLOAD SIGN
054938,000723: 13,3373 00015 12D
054939,000724: 13,3374 02314 DT/2
054940,000725: 13,3375 36314 STCALL DT/2
054941,000726: 13,3376 27407 P00HCHK
054942,000727: 13,3377 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
054943,000728: 13,3400 27451 DT/2MAX
054944,000729: 13,3401 77650 GOTO
054945,000730: 13,3402 27356 DT/2COMP
054946,000731: 13,3403 77634 GETMAXDT RTB
054947,000732: 13,3404 45712 SIGNMPAC
054948,000733: 13,3405 36314 STCALL DT/2
054949,000734: 13,3406 27372 USEMAXDT
054950,000735: 13,3407 51545 P00HCHK DLOAD ABS
054951,000736: 13,3410 02314 DT/2
054952,000737: 13,3411 50025 DSU BMN
054953,000738: 13,3412 27447 DT/2MIN
054954,000739: 13,3413 27206 A-PCHK
054955,000740: 13,3414 46135 SLOAD BHIZ
054956,000741: 13,3415 01012 MODREG
054957,000742: 13,3416 27421 +3
054958,000743: 13,3417 77650 GOTO
054959,000744: 13,3420 23222 TIMESTEP
054960,000745: 13,3421 77614 BON # WAS THIS CALL VIA CSM(LEM)PREC
054961,000746: 13,3422 01707 PRECIFLG
054962,000747: 13,3423 23222 TIMESTEP # YES
054963,000748: 13,3424 45345 DLOAD DSU
054964,000749: 13,3425 02314 DT/2
054965,000750: 13,3426 00015 12D
054966,000751: 13,3427 43040 BMN BOFCLR
054967,000752: 13,3430 27206 A-PCHK
054968,000753: 13,3431 04242 NEWIFLG
054969,000754: 13,3432 23222 TIMESTEP
054970,000755: 13,3433 45345 DLOAD DSU
054971,000756: 13,3434 01101 TDEC
054972,000757: 13,3435 01517 TET
054973,000758: 13,3436 77640 BMN # NO BACKWARD INTEGRATION
054974,000759: 13,3437 27263 INTEXIT
054975,000760: 13,3440 40525 PDDL SR4
054976,000761: 13,3441 02314 DT/2 # IS 4(DT) LS (TDEC - TET)
054977,000762: 13,3442 44322 SR2R BDSU # NO
054978,000763: 13,3443 52040 BMN GOTO
054979,000764: 13,3444 27263 INTEXIT
054980,000765: 13,3445 23222 TIMESTEP
054981,000766: 13,3446 00000 01400 DT/2MIN 2DEC 3 B-20
054982,000767:
054983,000768: 13,3450 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
054984,000769:
054985,000770: 13,3452 77776 INTSTALL EXIT
054986,000771: 13,3453 35035 CAF ZERO
054987,000772: 13,3454 54001 ALLSTALL TS L
054988,000773: 13,3455 30106 CA RASFLAG
054989,000774: 13,3456 50001 INDEX L
054990,000775: 13,3457 73550 MASK INTBITAB # IS THIS STALL AREA FREE
054991,000776: 13,3460 00006 EXTEND
054992,000777: 13,3461 13526 BZF OKTOGRAB # YES
054993,000778: 13,3462 50001 INDEX L
054994,000779: 13,3463 33545 CAF WAKESTAL
054995,000780: 13,3464 05211 TC JOBSLEEP
054996,000781: 13,3465 77776 INTWAKE0 EXIT
054997,000782: 13,3466 13507 TCF INTWAKE1
054998,000783:
054999,000784: 13,3467 40106 INTWAKE CS RASFLAG # IS THIS INTSTALLED ROUTINE TO BE
055000,000785: 13,3470 75025 MASK REINTBIT # RESTARTED
055001,000786: 13,3471 10000 CCS A
055002,000787: 13,3472 03507 TC INTWAKE1 # NO
055003,000788:
055004,000789: 13,3473 50120 INDEX FIXLOC
055005,000790: 13,3474 30052 CA QPRET
055006,000791: 13,3475 55055 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
055007,000792:
055008,000793: 13,3476 05426 TC PHASCHNG
055009,000794: 13,3477 04022 OCT 04022
055010,000795:
055011,000796: 13,3500 31055 CA TBASE2
055012,000797: 13,3501 50120 INDEX FIXLOC
055013,000798: 13,3502 54052 TS QPRET
055014,000799:
055015,000800: 13,3503 35025 CAF REINTBIT
055016,000801: 13,3504 70106 MASK RASFLAG
055017,000802: 13,3505 00006 EXTEND
055018,000803: 13,3506 13531 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
055019,000804:
055020,000805: 13,3507 35035 INTWAKE1 CAF ZERO
055021,000806: 13,3510 54154 WAKE TS STALTEM # INDEX OF ANY STALL USER
055022,000807: 13,3511 50154 WAKE1 INDEX STALTEM
055023,000808: 13,3512 33545 CAF WAKESTAL
055024,000809: 13,3513 00004 INHINT
055025,000810: 13,3514 05215 TC JOBWAKE
055026,000811: 13,3515 10064 CCS LOCCTR
055027,000812: 13,3516 13511 TCF WAKE1 # MAY BE MORE TO WAKE UP
055028,000813: 13,3517 00051 FORTYONE DEC 41 B-14
055029,000814: 13,3520 50154 INDEX STALTEM
055030,000815: 13,3521 43550 CS INTBITAB
055031,000816: 13,3522 70106 MASK RASFLAG
055032,000817: 13,3523 54106 TS RASFLAG # RELEASE STALL AREA
055033,000818: 13,3524 00003 RELINT
055034,000819: 13,3525 13531 TCF GOBAC
055035,000820: 13,3526 50001 OKTOGRAB INDEX L # NO, WAIT UNTIL AVAILABLE
055036,000821: 13,3527 35016 CAF INTFLBIT
055037,000822: 13,3530 26106 ADS RASFLAG
055038,000823: 13,3531 06006 GOBAC TC INTPRET
055039,000824: 13,3532 77616 RVQ
055040,000825: 13,3533 77776 ERASTAL1 EXIT
055041,000826: 13,3534 35033 CAF ONE
055042,000827: 13,3535 13454 TCF ALLSTALL
055043,000828: 13,3536 77776 ERASTAL2 EXIT
055044,000829: 13,3537 35032 CAF TWO
055045,000830: 13,3540 13454 TCF ALLSTALL
055046,000831: 13,3541 35033 ERASWAK1 CAF ONE
055047,000832: 13,3542 13510 TCF WAKE
055048,000833: 13,3543 35032 ERASWAK2 CAF TWO
055049,000834: 13,3544 13510 TCF WAKE
055050,000835: 13,3545 27453 WAKESTAL CADR INTSTALL +1
055051,000836: 13,3546 27534 CADR ERASTAL1 +1
055052,000837: 13,3547 27537 CADR ERASTAL2 +1
055053,000838: 13,3550 0154 STALTEM EQUALS MPAC
055054,000839: 13,3550 20100 INTBITAB OCT 20100
055055,000840: 13,3551 10040 OCT 10040
055056,000841: 13,3552 04020 OCT 04020
055057,000842:
055058,000843: # AVETOMID
055059,000844:
055060,000845: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
055061,000846: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
055062,000847: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
055063,000848:
055064,000849: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
055065,000850: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
055066,000851:
055067,000852: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
055068,000853:
055069,000854: # FINALLY TRKMKCNT IS ZEROED
055070,000855:
055071,000856: 35,2000 SETLOC INTINIT2
055072,000857: 35,2000 BANK
055073,000858:
055074,000859: 35,3675 COUNT* $$/INTIN
055075,000860: 35,3675 43020 AVETOMID STQ BON
055076,000861: 35,3676 02317 EGRESS
055077,000862: 35,3677 02716 RENDWFLG
055078,000863: 35,3700 73753 INT/W # W-MATRIX VALID, GO INTEGRATE IT
055079,000864: 35,3701 77614 BON
055080,000865: 35,3702 01711 ORBWFLAG
055081,000866: 35,3703 73753 INT/W # W-MATRIX VALID, GO INTEGRATE IT
055082,000867:
055083,000868: 35,3704 45174 SETCOAST AXT,2 CALL # NOW MOVE PROPERLY SCALED RN,VN AND
055084,000869: 35,3705 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
055085,000870: 35,3706 27452 INTSTALL
055086,000871: 35,3707 77014 BON AXT,2
055087,000872: 35,3710 00315 AMOONFLG
055088,000873: 35,3711 73713 +2
055089,000874: 35,3712 00000 0
055090,000875: 35,3713 53775 VLOAD VSR*
055091,000876: 35,3714 01171 RN
055092,000877: 35,3715 57176 0,2
055093,000878: 35,3716 01503 STORE RRECT
055094,000879: 35,3717 15535 STODL RCV
055095,000880: 35,3720 01205 PIPTIME
055096,000881: 35,3721 25517 STOVL TET
055097,000882: 35,3722 01177 VN
055098,000883: 35,3723 45057 VSR* CALL
055099,000884: 35,3724 57176 0,2
055100,000885: 35,3725 23417 MINIRECT # FINISH SETTING UP STATE VECTOR
055101,000886: 35,3726 66234 RTB SSP
055102,000887: 35,3727 26730 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
055103,000888: 35,3730 01127 TRKMKCNT
055104,000889: 35,3731 00000 0
055105,000890: 35,3732 43014 SET BON
055106,000891: 35,3733 04063 CMOONFLG
055107,000892: 35,3734 00315 AMOONFLG
055108,000893: 35,3735 73740 +3
055109,000894: 35,3736 77614 CLEAR
055110,000895: 35,3737 04263 CMOONFLG
055111,000896:
055112,000897: 35,3740 71214 BON DLOAD # NOW DO LM
055113,000898: 35,3741 04307 SURFFLAG
055114,000899: 35,3742 75751 FAZAB5 # NO COASTING LM
055115,000900: 35,3743 01205 PIPTIME
055116,000901: 35,3744 34041 STCALL TDEC1
055117,000902: 35,3745 26700 SETIFLGS
055118,000903: 35,3746 45014 CLEAR CALL
055119,000904: 35,3747 01674 VINTFLAG
055120,000905: 35,3750 27172 INTEGRV
055121,000906: 35,3751 77650 GOTO
055122,000907: 35,3752 02317 EGRESS
055123,000908: 35,3753 45145 INT/W DLOAD CALL
055124,000909: 35,3754 01205 PIPTIME # INTEGRATE W THRU BURN
055125,000910: 35,3755 27452 INTSTALL
055126,000911: 35,3756 43014 SET SET
055127,000912: 35,3757 01476 DIM0FLAG # DO W-MATRIX
055128,000913: 35,3760 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
055129,000914: 35,3761 43014 CLEAR SET
055130,000915: 35,3762 01675 D6OR9FLG
055131,000916: 35,3763 01474 VINTFLAG
055132,000917: 35,3764 34041 STCALL TDEC1
055133,000918: 35,3765 27172 INTEGRV
055134,000919: 35,3766 77650 GOTO
055135,000920: 35,3767 73704 SETCOAST
055136,000921:
055137,000922: # MIDTOAV1
055138,000923:
055139,000924: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
055140,000925: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
055141,000926: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
055142,000927: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
055143,000928: # IS DONE AS IT IS FOR MIDTOAV2.
055144,000929: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
055145,000930:
055146,000931: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
055147,000932: # TO THE RETURN ADDRESS
055148,000933:
055149,000934: # IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
055150,000935: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
055151,000936: # TION TIME AND MPAC IS SET TO THE DELTA TIME---
055152,000937: # TAT MINUS CURRENT TIME.
055153,000938:
055154,000939: # MIDTOAV2
055155,000940:
055156,000941: # THIS ROUTINE INTEGRATES THE CSM STATE VECTOR TO CURRENT TIME PLUS
055157,000942: # INCREMENTS OF TIMEDELT SUCH THAT THE DIFFERENCE BETWEEN CURRENT TIME
055158,000943: # AND THE STATE VECTOR TIME AT THE END OF THE LAST STEP IS AT LEAST 5.6
055159,000944: # SECS.
055160,000945: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
055161,000946: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
055162,000947:
055163,000948: 13,2000 SETLOC INTINIT
055164,000949: 13,2000 BANK
055165,000950: 13,3553 1127 EBANK= IRETURN1
055166,000951: 13,3553 45020 MIDTOAV2 STQ CALL
055167,000952: 13,3554 01127 IRETURN1
055168,000953: 13,3555 27452 INTSTALL
055169,000954: 13,3556 43145 DLOAD CLEAR
055170,000955: 13,3557 27721 TIMEDELT
055171,000956: 13,3560 04674 MID1FLAG
055172,000957: 13,3561 37732 STCALL T-TO-ADD
055173,000958: 13,3562 27577 ENTMID2
055174,000959:
055175,000960: 13,3563 45020 MIDTOAV1 STQ CALL
055176,000961: 13,3564 01127 IRETURN1
055177,000962: 13,3565 27452 INTSTALL
055178,000963: 13,3566 47014 SET RTB
055179,000964: 13,3567 04474 MID1FLAG
055180,000965: 13,3570 45510 LOADTIME
055181,000966: 13,3571 44215 DAD BDSU # INITIAL CHECK, IS TDEC1 IN THE FUTURE.
055182,000967: 13,3572 27721 TIMEDELT
055183,000968: 13,3573 00041 TDEC1
055184,000969: 13,3574 45044 BPL CALL
055185,000970: 13,3575 27603 ENTMID1
055186,000971: 13,3576 27704 NOTIME # NO SET ALARM.SWITCH TO MIDTOAV2
055187,000972:
055188,000973: 13,3577 43234 ENTMID2 RTB DAD
055189,000974: 13,3600 45510 LOADTIME
055190,000975: 13,3601 03732 T-TO-ADD
055191,000976: 13,3602 00041 STORE TDEC1
055192,000977:
055193,000978: 13,3603 45014 ENTMID1 CLEAR CALL
055194,000979: 13,3604 01676 DIM0FLAG # NO W-MATRIX
055195,000980: 13,3605 26034 THISVINT
055196,000981: 13,3606 43014 CLEAR SET
055197,000982: 13,3607 01673 INTYPFLG
055198,000983: 13,3610 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
055199,000984: 13,3611 77624 CALL
055200,000985: 13,3612 27172 INTEGRV # GO INTEGRATE
055201,000986: 13,3613 66134 SXA,2 SXA,1
055202,000987: 13,3614 03746 RTX2
055203,000988: 13,3615 03745 RTX1
055204,000989: 13,3616 67214 CLEAR SLOAD
055205,000990: 13,3617 00275 AMOONFLG
055206,000991: 13,3620 03747 RTX2
055207,000992: 13,3621 43054 BZE SET
055208,000993: 13,3622 27624 +2
055209,000994: 13,3623 00075 AMOONFLG
055210,000995: 13,3624 77775 VLOAD
055211,000996: 13,3625 00001 RATT
055212,000997: 13,3626 25232 STOVL RN1
055213,000998: 13,3627 00007 VATT
055214,000999: 13,3630 15240 STODL VN1
055215,001000: 13,3631 00015 TAT
055216,001001: 13,3632 01246 STORE PIPTIME1
055217,001002: 13,3633 77776 EXIT
055218,001003:
055219,001004: 13,3634 00004 INHINT
055220,001005: 13,3635 00006 EXTEND
055221,001006: 13,3636 40025 DCS TIME2
055222,001007: 13,3637 20155 DAS MPAC
055223,001008: 13,3640 07226 TC TPAGREE
055224,001009:
055225,001010: 13,3641 31127 CA IRETURN1
055226,001011: 13,3642 04720 TC BANKJUMP
055227,001012: 13,3643 47014 CKMID2 BOF RTB
055228,001013: 13,3644 04754 MID1FLAG
055229,001014: 13,3645 27662 MID2
055230,001015: 13,3646 45510 LOADTIME
055231,001016: 13,3647 44215 DAD BDSU
055232,001017: 13,3650 27721 TIMEDELT
055233,001018: 13,3651 01101 TDEC
055234,001019: 13,3652 45044 BPL CALL
055235,001020: 13,3653 27315 TESTLOOP # YES
055236,001021: 13,3654 27704 NOTIME
055237,001022:
055238,001023: 13,3655 43234 TIMEINC RTB DAD
055239,001024: 13,3656 45510 LOADTIME
055240,001025: 13,3657 03732 T-TO-ADD
055241,001026: 13,3660 35101 STCALL TDEC
055242,001027: 13,3661 27315 TESTLOOP
055243,001028:
055244,001029: 13,3662 45345 MID2 DLOAD DSU
055245,001030: 13,3663 01101 TDEC
055246,001031: 13,3664 01517 TET
055247,001032: 13,3665 45246 ABS DSU
055248,001033: 13,3666 27717 3CSECS
055249,001034: 13,3667 77644 BPL
055250,001035: 13,3670 27655 TIMEINC
055251,001036:
055252,001037: 13,3671 44234 RTB BDSU # SEE IF 5.6 SECS. AVAILABLE TO CALLER.
055253,001038: 13,3672 45510 LOADTIME
055254,001039: 13,3673 01517 TET
055255,001040: 13,3674 51025 DSU BPL
055256,001041: 13,3675 27723 5.6SECS
055257,001042: 13,3676 27206 A-PCHK # YES,GET OUT.
055258,001043:
055259,001044: 13,3677 43345 DLOAD DAD # NO,ADD TIMEDELT TO T-TO-ADD AND TRY
055260,001045: 13,3700 03732 T-TO-ADD # AGAIN.
055261,001046: 13,3701 27721 TIMEDELT
055262,001047: 13,3702 37732 STCALL T-TO-ADD
055263,001048: 13,3703 27655 TIMEINC
055264,001049: 13,3704 77414 NOTIME CLEAR EXIT # TOO LATE
055265,001050: 13,3705 04674 MID1FLAG
055266,001051: 13,3706 25127 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
055267,001052: 13,3707 05664 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
055268,001053: 13,3710 01703 OCT 1703 # TIG WILL BE SLIPPED...
055269,001054: 13,3711 06006 TC INTPRET
055270,001055: 13,3712 77745 DLOAD
055271,001056: 13,3713 27721 TIMEDELT
055272,001057: 13,3714 03732 STORE T-TO-ADD
055273,001058: 13,3715 77616 RVQ
055274,001059:
055275,001060: 13,3716 00000 00003 3CSECS 2DEC 3 B-28
055276,001061:
055277,001062: 13,3720 00000 02342 TIMEDELT 2DEC 1250 B-28
055278,001063:
055279,001064: 13,3722 00000 01060 5.6SECS 2DEC 560 B-28
055280,001065:
055281,001066: 27,2672 BANK 27
055282,001067: 27,2000 SETLOC UPDATE2
055283,001068: 27,2000 BANK
055284,001069: 27,2672 0330 EBANK= INTWAKUQ
055285,001070:
055286,001071: 27,2672 COUNT* $$/INTIN
055287,001072:
055288,001073: 27,2672 0330 INTWAKUQ = INTWAK1Q # TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
055289,001074:
055290,001075: 27,2672 00003 INTWAKEU RELINT
055291,001076: 27,2673 00006 EXTEND
055292,001077: 27,2674 22330 QXCH INTWAKUQ # SAVE Q FOR RETURN
055293,001078:
055294,001079: 27,2675 06006 TC INTPRET
055295,001080:
055296,001081: 27,2676 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
055297,001082: 27,2677 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
055298,001083: 27,2700 56737 INTWAKUP
055299,001084:
055300,001085: 27,2701 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
055301,001086: 27,2702 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
055302,001087: 27,2703 25535 STOVL RCV
055303,001088: 27,2704 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
055304,001089: 27,2705 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
055305,001090: 27,2706 23420 RECTIFY +13D # TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
055306,001091: 27,2707 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
055307,001092: 27,2710 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
055308,001093: 27,2711 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
055309,001094: 27,2712 16750 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
055310,001095: 27,2713 56720 INTWAKEM # SPHERE OF INFLUENCE.........
055311,001096: 27,2714 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
055312,001097: 27,2715 00000 DEC 0 B-14
055313,001098: 27,2716 00223 MOONFLAG
055314,001099: 27,2717 56723 INTWAKEC
055315,001100: 27,2720 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
055316,001101: 27,2721 00002 DEC 2 B-14
055317,001102: 27,2722 00063 MOONFLAG
055318,001103: 27,2723 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
055319,001104: # MOONFLAG SET (OR CLEARED).
055320,001105: 27,2724 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
055321,001106: 27,2725 56733 INTWAKLM # STATE VECTOR UPDATE......
055322,001107: 27,2726 77624 CALL # UPDATE CSM STATE VECTOR
055323,001108: 27,2727 26715 ATOPCSM
055324,001109:
055325,001110: 27,2730 52014 CLEAR GOTO
055326,001111: 27,2731 01671 ORBWFLAG
055327,001112: 27,2732 56735 INTWAKEX
055328,001113:
055329,001114: 27,2733 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
055330,001115: 27,2734 26770 ATOPLEM
055331,001116:
055332,001117: 27,2735 77614 INTWAKEX CLEAR
055333,001118: 27,2736 02676 RENDWFLG
055334,001119:
055335,001120: 27,2737 45131 INTWAKUP SSP CALL # REMOVE :UPDATE STATE VECTOR INDICATOR:
055336,001121: 27,2740 01502 UPSVFLAG
055337,001122: 27,2741 00000 0
055338,001123: 27,2742 27465 INTWAKE0 # RELEASE :GRAB: OF ORBIT INTEG
055339,001124: 27,2743 77776 EXIT
055340,001125:
055341,001126: 27,2744 05426 TC PHASCHNG
055342,001127: 27,2745 04026 OCT 04026
055343,001128: 27,2746 00330 TC INTWAKUQ
055344,001129:
055345,001130: 27,2747 00002 UPMNSVCD OCT 2
055346,001131: 27,2750 00000 OCT 0
055347,001132:
055348,001133: 27,2751 77420 GRP2PC STQ EXIT
055349,001134: 27,2752 03536 GRP2SVQ
055350,001135: 27,2753 05426 TC PHASCHNG
055351,001136: 27,2754 04022 OCT 04022
055352,001137: 27,2755 06006 TC INTPRET
055353,001138: 27,2756 77650 GOTO
055354,001139: 27,2757 03536 GRP2SVQ
055355,001140:
055356,001141:
055357,001142:
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc