Source Code
![]() |
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Luminary 131 (Apollo 13)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 001 OF AGC PROGRAM LMY99 BY NASA 2021112-061 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
051402,000002: ## Copyright: Public domain.
051403,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
051404,000004: ## Purpose: Part of the source code for Luminary 1A build 099.
051405,000005: ## It is part of the source code for the Lunar Module's (LM)
051406,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
051407,000007: ## Assembler: yaYUL
051408,000008: ## Contact: Ron Burkey <info@sandroid.org>.
051409,000009: ## Website: www.ibiblio.org/apollo.
051410,000010: ## Pages: 1205-1226
051411,000011: ## Mod history: 2009-05-26 RSB Adapted from the corresponding
051412,000012: ## Luminary131 file, using page
051413,000013: ## images from Luminary 1A.
051414,000014: ## 2011-01-06 JL Fixed pseudo-label indentation.
051415,000015: ## 2016-12-17 RSB Proofed text comments with octopus/ProoferComments
051416,000016: ## and corrected the errors found.
051417,000017: ## 2017-01-22 MAS Fixed some lingering comment errors.
051418,000018: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
051419,000019: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
051420,000020: ## side-by-side diff of Luminary 69/99/116/131/210.
051421,000021: ## 2017-08-19 MAS Fixed comment errors found transcribing Zerlina 56.
051422,000022:
051423,000023: ## This source code has been transcribed or otherwise adapted from
051424,000024: ## digitized images of a hardcopy from the MIT Museum. The digitization
051425,000025: ## was performed by Paul Fjeld, and arranged for by Deborah Douglas of
051426,000026: ## the Museum. Many thanks to both. The images (with suitable reduction
051427,000027: ## in storage size and consequent reduction in image quality as well) are
051428,000028: ## available online at www.ibiblio.org/apollo. If for some reason you
051429,000029: ## find that the images are illegible, contact me at info@sandroid.org
051430,000030: ## about getting access to the (much) higher-quality images which Paul
051431,000031: ## actually created.
051432,000032: ##
051433,000033: ## Notations on the hardcopy document read, in part:
051434,000034: ##
051435,000035: ## Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
051436,000036: ## 16:27 JULY 14, 1969
051437,000037:
![]() |
Page 1205 |
051439,000039: # 1.0 INTRODUCTION
051440,000040: # ----------------
051441,000041:
051442,000042: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
051443,000043: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
051444,000044: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
051445,000045: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
051446,000046: # SIDE THE LUNAR SPHERE OF INFLUENCE.
051447,000047:
051448,000048: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
051449,000049: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
051450,000050: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
051451,000051: # CALL TC INTSTALL.
051452,000052:
051453,000053: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
051454,000054: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
051455,000055: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
051456,000056: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
051457,000057: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
051458,000058:
051459,000059: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
051460,000060: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
051461,000061: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
051462,000062: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
051463,000063:
051464,000064: # 2.0 GENERAL DESCRIPTION
051465,000065: # -----------------------
051466,000066:
051467,000067: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS ---
051468,000068: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
051469,000069: # 2) INTEGRATES THE W-MATRIX
051470,000070: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
051471,000071:
051472,000072: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
051473,000073: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
051474,000074: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
051475,000075: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
051476,000076: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
051477,000077: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
051478,000078: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
051479,000079: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
051480,000080: # AND/OR STATE VECTOR.
051481,000081:
051482,000082: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
051483,000083: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
051484,000084: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
051485,000085:
051486,000086: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
051487,000087: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
051488,000088: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
051489,000089:
![]() |
Page 1206 |
051491,000091: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
051492,000092:
051493,000093: # 2.1 RESTARTS
051494,000094:
051495,000095: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
051496,000096: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
051497,000097: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
051498,000098: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
051499,000099: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
051500,000100: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
051501,000101: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
051502,000102:
051503,000103: # 2.2 SCALING
051504,000104:
051505,000105: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
051506,000106: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
051507,000107: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
051508,000108: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
051509,000109: # DIFFERENT SCALING.
051510,000110: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
051511,000111:
051512,000112: # 3.0 INPUT/OUTPUT
051513,000113: # ----------------
051514,000114:
051515,000115: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
051516,000116: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
051517,000117: # FOR INTEGRVS, THE RCV,VCV,TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
051518,000118:
051519,000119: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
051520,000120: # EARTH MOON
051521,000121: # 29 27
051522,000122: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
051523,000123:
051524,000124: # 7 5
051525,000125: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
051526,000126:
051527,000127: # 28 28
051528,000128: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
051529,000129: # CUSTOMARILY 0, BUT NOTE LUNAR
051530,000130: # ORBIT DEPENDENCE ON REAL TIME.
051531,000131:
051532,000132: # 22 18
051533,000133: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
051534,000134: # 0 IF TCCSM(LEM) = 0
051535,000135:
051536,000136: # 3 -1
051537,000137: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
051538,000138: # 0 IF TCCSM(LEM) = 0
![]() |
Page 1207 |
051540,000140: # 29 27
051541,000141: # RCVCSM(LEM) - CONIC POSITION METERS 2 2
051542,000142: # EQUALS RRECTCSM(LEM) IF
051543,000143: # TCCSM(LEM) = 0
051544,000144:
051545,000145: # 7 5
051546,000146: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
051547,000147: # EQUALS VRECTCSM(LEM) IF
051548,000148: # TCCSM(LEM) = 0
051549,000149:
051550,000150: # 28 28
051551,000151: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
051552,000152: # CUSTOMARILY 0
051553,000153:
051554,000154: # 1/2 17 16
051555,000155: # XKEPCSM(LEM) - ROOT OF KEPLERS EQUATION M 2 2
051556,000156: # 0 IF TCCSM(LEM) = 0
051557,000157:
051558,000158: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
051559,000159: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
051560,000160: # LMOONFLG C = CSM, L = LM 0 0
051561,000161: # LMIDFLG 0,1 0,1
051562,000162:
051563,000163: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
051564,000164:
051565,000165: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
051566,000166: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
051567,000167: # ROUTINE MUST BE PRESET.
051568,000168:
051569,000169: # OUTPUT
051570,000170: # AFTER EVERY CALL TO INTEGRATION
051571,000171: # EARTH MOON
051572,000172: # 29 29
051573,000173: # 0D RATT POSITION METERS 2 2
051574,000174:
051575,000175: # 7 7
051576,000176: # 6D VATT VELOCITY M/CSEC 2 2
051577,000177:
051578,000178: # 28 28
051579,000179: # 12D TAT TIME 2 2
051580,000180:
051581,000181: # 29 27
051582,000182: # 14D RATT1 POSITION METERS 2 2
051583,000183:
051584,000184: # 7 5
051585,000185: # 20D VATT1 VELOCITY M/CSEC 2 2
051586,000186:
051587,000187: # 3 2 36 30
051588,000188: # 26D MU(P) MU M /CS 2 2
051589,000189:
051590,000190: # X1 MUTABLE ENTRY -2 -10D
051591,000191:
051592,000192: # X2 COORDINT
051593,000193: # X2 COORDINATE SYSTEM ORIGEN 0 2
051594,000194: # (THIS, NOT MOONFLAG, SHOULD BE
![]() |
Page 1208 |
051596,000196: # USED TO DETERMINE ORIGIN.)
051597,000197:
051598,000198: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
051599,000199: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
051600,000200: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
051601,000201: # CALLING PROGRAM.
051602,000202:
051603,000203: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
051604,000204: # -------------------------------------
051605,000205:
051606,000206: # A) PRECISION ORBITAL INTEGRATION. CSMPREC, LEMPREC ENTRANCES
051607,000207: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
051608,000208: # L CALL
051609,000209: # L+1 CSMPREC (OR LEMPREC)
051610,000210: # L+2 RETURN
051611,000211: # INPUT 28
051612,000212: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
051613,000213: # OUTPUT
051614,000214: # THE DATA LISTED IN SECTION 3.0 PLUS
051615,000215: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
051616,000216: # BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
051617,000217: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
051618,000218: # L-X STORE TIME IN PUSH LIST (TDEC1)
051619,000219: # L CALL
051620,000220: # L+1 CSMCONIC (OR LEMCONIC)
051621,000221: # INPUT/OUTPUT
051622,000222: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
051623,000223: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
051624,000224: # CALL
051625,000225: # INTSTALL
051626,000226: # VLOAD
051627,000227: # POSITION VECTOR
051628,000228: # STOVL RCV
051629,000229: # VELOCITY VECTOR
051630,000230: # STODL VCV
051631,000231: # TIME STATE VECTOR VALID
051632,000232: # STODL TET
051633,000233: # FINAL RADIUS
051634,000234: # STORE RFINAL
051635,000235: # SET(CLEAR) SET(CLEAR)
051636,000236: # INTYPFLAG
051637,000237: # MOONFLAG
051638,000238: # SET(CLEAR) DLOAD
051639,000239: # DESIRED TIME
051640,000240: # STCALL TDEC1
051641,000241: # INTEGRVS
051642,000242: # INPUT
051643,000243: # RCV POSITION VECTOR METERS
051644,000244: # VCV VELOCITY VECTOR M/CSEC
051645,000245: # TET TIME OF STATE VECTOR (MAY = 0) CSEC B-28
![]() |
Page 1209 |
051647,000247: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
051648,000248: # (MAY BE INCREMENT IF TET=0)
051649,000249: # OUTPUT
051650,000250: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
051651,000251: # DEPENDING ON INTYPFLG.
051652,000252: # D) INTEGRATE STATE VECTOR. INTGRV ENTRANCE
051653,000253: # L-X STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
051654,000254: # L-8 CALL
051655,000255: # L-7
051656,000256: # L-6 SET(CLEAR) SET(CLEAR)
051657,000257: # L-5 VINTFLAG 1=CSM, 0=LM
051658,000258: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
051659,000259: # L-3 SET(CLEAR) SET(CLEAR)
051660,000260: # L-2 DIMOFLAG 1=W-MATRIX, 0=NO W-MATRIX
051661,000261: # L-1 D6OR9FLG 1=9X9, 0=6X6
051662,000262: # L SET DLOAD
051663,000263: # L+1 STATEFLG DESIRE PERMANENT UPDATE
051664,000264: # L+2 FINAL RAD. OF STATE VECTOR
051665,000265: # L+3 STCALL RFINAL
051666,000266: # L+4 INTEGRV
051667,000267: # L CALL NORMAL USE -- WILL UPDATE STATE
051668,000268: # L+1 INTEGRV VECTOR IF DIMOFLAG=1. (STATEFLG IS
051669,000269: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
051670,000270: # IT IS USED.)
051671,000271: # INPUT
051672,000272: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
051673,000273: # OUTPUT
051674,000274: # SAME AS FOR PRECISION OR CONIC INTEGRATION
051675,000275: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
051676,000276: # THE PERMANENT STATE VECTOR REPRESENTATION.
051677,000277:
051678,000278: 11,2376 BANK 11
051679,000279: 13,2000 SETLOC INTINIT
051680,000280: 13,2000 BANK
051681,000281: 13,2604 E3,1554 EBANK= RRECTCSM
051682,000282: 13,2604 COUNT* $$/INTIN
051683,000283: 13,2604 05353 STATEINT TC PHASCHNG
051684,000284: 13,2605 00052 OCT 00052
051685,000285: 13,2606 35017 CAF PRIO5
051686,000286: 13,2607 05105 TC FINDVAC
051687,000287: 13,2610 E3,1554 EBANK= RRECTCSM
051688,000288: 13,2610 02613 26063 2CADR STATINT1
051689,000289:
051690,000290: 13,2612 05261 TC TASKOVER
051691,000291: 13,2613 06037 STATINT1 TC INTPRET
051692,000292: 13,2614 47014 BON RTB
051693,000293: 13,2615 04712 QUITFLAG # KILL INTEGRATION UNTIL NEXT POO.
051694,000294: 13,2616 26653 NOINT
051695,000295: 13,2617 21573 LOADTIME
051696,000296: 13,2620 00041 STORE TDEC1
![]() |
Page 1210 |
051698,000298: 13,2621 77624 CALL
051699,000299: 13,2622 27414 INTSTALL
051700,000300: 13,2623 45014 SET CALL
051701,000301: 13,2624 01076 NODOFLAG
051702,000302: 13,2625 26644 SETIFLGS
051703,000303: 13,2626 77650 GOTO
051704,000304: 13,2627 26026 STATEUP
051705,000305: 13,2630 00003 25140 600SECS 2DEC 60000 B-28
051706,000306:
051707,000307: 13,2632 77414 ENDINT CLEAR EXIT
051708,000308: 13,2633 01672 STATEFLG
051709,000309: 13,2634 05353 TC PHASCHNG
051710,000310: 13,2635 20032 OCT 20032
051711,000311: 13,2636 00006 EXTEND
051712,000312: 13,2637 32631 DCA 600SECS
051713,000313: 13,2640 05277 TC LONGCALL
051714,000314: 13,2641 E3,1626 EBANK= RRECTHIS
051715,000315: 13,2641 02604 26063 2CADR STATEINT
051716,000316:
051717,000317: 13,2643 05155 TC ENDOFJOB
051718,000318: 13,2644 43014 SETIFLGS SET CLEAR
051719,000319: 13,2645 01472 STATEFLG
051720,000320: 13,2646 01673 INTYPFLG
051721,000321: 13,2647 43014 CLEAR CLEAR
051722,000322: 13,2650 01676 DIM0FLAG
051723,000323: 13,2651 01675 D6OR9FLG
051724,000324: 13,2652 77616 RVQ
051725,000325: 13,2653 77776 NOINT EXIT
051726,000326: 13,2654 05353 TC PHASCHNG
051727,000327: 13,2655 00002 OCT 00002
051728,000328:
051729,000329: 13,2656 05516 TC DOWNFLAG
051730,000330: 13,2657 00221 ADRES QUITFLAG
051731,000331: 13,2660 05155 TC ENDOFJOB
051732,000332:
051733,000333: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
051734,000334:
051735,000335: # CALLING SEQUENCE
051736,000336: # L CALL
051737,000337: # L+1 ATOPCSM
051738,000338:
051739,000339: # NORMAL EXIT AT L+2
051740,000340:
051741,000341: 13,2661 47020 ATOPCSM STQ RTB
051742,000342: 13,2662 00051 S2
051743,000343: 13,2663 26674 MOVEACSM
051744,000344: 13,2664 45014 SET CALL
051745,000345: 13,2665 04063 CMOONFLG
051746,000346: 13,2666 26114 SVDWN1
051747,000347: 13,2667 43014 BON CLRGO
![]() |
Page 1211 |
051749,000349: 13,2670 00303 MOONFLAG
051750,000350: 13,2671 00051 S2
051751,000351: 13,2672 04223 CMOONFLG
051752,000352: 13,2673 00051 S2
051753,000353: 13,2674 03036 MOVEACSM TC SETBANK
051754,000354: 13,2675 55500 TS DIFEQCNT # INITIALIZE INDEX
051755,000355: 13,2676 51500 INDEX DIFEQCNT
051756,000356: 13,2677 31502 CA RRECT
051757,000357: 13,2700 51500 INDEX DIFEQCNT
051758,000358: 13,2701 55554 TS RRECTCSM
051759,000359: 13,2702 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
051760,000360: 13,2703 12675 TCF MOVEACSM +1 # NO-LOOP
051761,000361: 13,2704 06061 TC DANZIG # COMPLETE - RETURN
051762,000362:
051763,000363: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
051764,000364:
051765,000365: # CALLING SEQUENCE
051766,000366: # L CALL
051767,000367: # PTOACSM
051768,000368:
051769,000369: # NORMAL EXIT AT L+2
051770,000370:
051771,000371: 13,2705 43034 PTOACSM RTB BON
051772,000372: 13,2706 26723 MOVEPCSM
051773,000373: 13,2707 04303 CMOONFLG
051774,000374: 13,2710 26716 SETMOON
051775,000375: 13,2711 66214 CLRMOON CLEAR SSP
051776,000376: 13,2712 00263 MOONFLAG
051777,000377: 13,2713 02031 PBODY
051778,000378: 13,2714 00000 0
051779,000379: 13,2715 77616 RVQ
051780,000380: 13,2716 66214 SETMOON SET SSP
051781,000381: 13,2717 00063 MOONFLAG
051782,000382: 13,2720 02031 PBODY
051783,000383: 13,2721 00002 2
051784,000384: 13,2722 77616 RVQ
051785,000385: 13,2723 03036 MOVEPCSM TC SETBANK
051786,000386: 13,2724 55500 TS DIFEQCNT
051787,000387: 13,2725 51500 INDEX DIFEQCNT
051788,000388: 13,2726 31554 CA RRECTCSM
051789,000389: 13,2727 51500 INDEX DIFEQCNT
051790,000390: 13,2730 55502 TS RRECT
051791,000391: 13,2731 11500 CCS DIFEQCNT
051792,000392: 13,2732 12724 TCF MOVEPCSM +1
051793,000393: 13,2733 06061 TC DANZIG
051794,000394:
051795,000395: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
051796,000396: 13,2734 47020 ATOPLEM STQ RTB
![]() |
Page 1212 |
051798,000398: 13,2735 00051 S2
051799,000399: 13,2736 26747 MOVEALEM
051800,000400: 13,2737 45014 SET CALL
051801,000401: 13,2740 04064 LMOONFLG
051802,000402: 13,2741 26070 SVDWN2
051803,000403: 13,2742 43014 BON CLRGO
051804,000404: 13,2743 00303 MOONFLAG
051805,000405: 13,2744 00051 S2
051806,000406: 13,2745 04224 LMOONFLG
051807,000407: 13,2746 00051 S2
051808,000408: 13,2747 03036 MOVEALEM TC SETBANK
051809,000409: 13,2750 55500 TS DIFEQCNT
051810,000410: 13,2751 51500 INDEX DIFEQCNT
051811,000411: 13,2752 31502 CA RRECT
051812,000412: 13,2753 51500 INDEX DIFEQCNT
051813,000413: 13,2754 55626 TS RRECTLEM
051814,000414: 13,2755 11500 CCS DIFEQCNT
051815,000415: 13,2756 12750 TCF MOVEALEM +1
051816,000416: 13,2757 06061 TC DANZIG
051817,000417:
051818,000418: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
051819,000419:
051820,000420: 13,2760 47014 PTOALEM BON RTB
051821,000421: 13,2761 04307 SURFFLAG
051822,000422: 13,2762 27001 USEPIOS
051823,000423: 13,2763 26770 MOVEPLEM
051824,000424: 13,2764 52014 BON GOTO
051825,000425: 13,2765 04304 LMOONFLG
051826,000426: 13,2766 26716 SETMOON
051827,000427: 13,2767 26711 CLRMOON
051828,000428: 13,2770 03036 MOVEPLEM TC SETBANK
051829,000429: 13,2771 55500 TS DIFEQCNT
051830,000430: 13,2772 51500 INDEX DIFEQCNT
051831,000431: 13,2773 31626 CA RRECTLEM
051832,000432: 13,2774 51500 INDEX DIFEQCNT
051833,000433: 13,2775 55502 TS RRECT
051834,000434: 13,2776 11500 CCS DIFEQCNT
051835,000435: 13,2777 12771 TCF MOVEPLEM +1
051836,000436: 13,3000 06061 TC DANZIG
051837,000437:
051838,000438: 13,3001 77201 USEPIOS SETPD VLOAD
051839,000439: 13,3002 00001 0
051840,000440: 13,3003 02023 RLS
051841,000441: 13,3004 41525 PDDL PUSH
051842,000442: 13,3005 00041 TDEC1
051843,000443: 13,3006 15517 STODL TET
051844,000444: 13,3007 27712 5/8
051845,000445: 13,3010 77624 CALL
![]() |
Page 1213 |
051847,000447: 13,3011 55716 RP-TO-R
051848,000448: 13,3012 25535 STOVL RCV
051849,000449: 13,3013 24001 ZUNIT
051850,000450: 13,3014 14001 STODL 0D
051851,000451: 13,3015 01517 TET
051852,000452: 13,3016 14007 STODL 6D
051853,000453: 13,3017 27712 5/8
051854,000454: 13,3020 45014 SET CALL # NEEDED FOR SETTING X1 ON EXIT
051855,000455: 13,3021 00063 MOONFLAG
051856,000456: 13,3022 55716 RP-TO-R
051857,000457: 13,3023 74235 VXV VXSC
051858,000458: 13,3024 01535 RCV
051859,000459: 13,3025 26001 OMEGMOON
051860,000460: 13,3026 25543 STOVL VCV
051861,000461: 13,3027 24007 ZEROVEC
051862,000462: 13,3030 01521 STORE TDELTAV
051863,000463: 13,3031 67174 AXT,2 SXA,2
051864,000464: 13,3032 00002 2
051865,000465: 13,3033 02030 PBODY
051866,000466: 13,3034 35527 STCALL TNUV
051867,000467: 13,3035 27157 A-PCHK
051868,000468: 13,3036 33042 SETBANK CAF INTBANK
051869,000469: 13,3037 54006 TS BBANK
051870,000470: 13,3040 33452 CAF FORTYONE
051871,000471: 13,3041 00002 TC Q
051872,000472: 13,3042 E3,1554 EBANK= RRECTCSM
051873,000473: 13,3042 26063 INTBANK BBCON INTEGRV
051874,000474:
051875,000475: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
051876,000476: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
051877,000477:
051878,000478: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
051879,000479: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
051880,000480: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
051881,000481:
051882,000482: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
051883,000483: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
051884,000484: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
051885,000485:
051886,000486: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
051887,000487: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
051888,000488: # CSMPREC CSMCONIC LEMPREC LEMCONIC
051889,000489: # VINTFLAG SET SET CLEAR CLEAR
051890,000490: # INTYPFLG CLEAR SET CLEAR SET
051891,000491: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
051892,000492:
051893,000493: # CALLING SEQUENCE
051894,000494: # L-X STORE TDEC1
051895,000495: # L CALL (STCALL TDEC1)
![]() |
Page 1214 |
051897,000497: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
051898,000498:
051899,000499: # NORMAL EXIT TO L+2
051900,000500:
051901,000501: # SUBROUTINES CALLED
051902,000502: # INTEGRV1
051903,000503: # PRECOUT FOR CSMPREC AND LEMPREC
051904,000504: # CONICOUT FOR CSMCONIC AND LEMCONIC
051905,000505:
051906,000506: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
051907,000507:
051908,000508: # INPUT
051909,000509: # TDEC1 TIME TO INTEGRATE TO. CSECS B-28
051910,000510:
051911,000511: 13,3043 45020 CSMPREC STQ CALL
051912,000512: 13,3044 00046 X1
051913,000513: 13,3045 27414 INTSTALL
051914,000514: 13,3046 43130 SXA,1 SET
051915,000515: 13,3047 02102 IRETURN
051916,000516: 13,3050 01474 VINTFLAG
051917,000517:
051918,000518: 13,3051 43014 IFLAGP SET CLEAR
051919,000519: 13,3052 01467 PRECIFLG
051920,000520: 13,3053 01676 DIM0FLAG
051921,000521: 13,3054 77614 CLRGO
051922,000522: 13,3055 01633 INTYPFLG
051923,000523: 13,3056 27136 INTEGRV1
051924,000524: 13,3057 45020 LEMPREC STQ CALL
051925,000525: 13,3060 00046 X1
051926,000526: 13,3061 27414 INTSTALL
051927,000527: 13,3062 43130 SXA,1 CLRGO
051928,000528: 13,3063 02102 IRETURN
051929,000529: 13,3064 01634 VINTFLAG
051930,000530: 13,3065 27051 IFLAGP
051931,000531:
051932,000532: 13,3066 45020 CSMCONIC STQ CALL
051933,000533: 13,3067 00046 X1
051934,000534: 13,3070 27414 INTSTALL
051935,000535: 13,3071 43130 SXA,1 SET
051936,000536: 13,3072 02102 IRETURN
051937,000537: 13,3073 01474 VINTFLAG
051938,000538: 13,3074 43014 IFLAGC CLEAR SETGO
051939,000539: 13,3075 01676 DIM0FLAG
051940,000540: 13,3076 01433 INTYPFLG
051941,000541: 13,3077 27136 INTEGRV1
051942,000542: 13,3100 45020 LEMCONIC STQ CALL
051943,000543: 13,3101 00046 X1
051944,000544: 13,3102 27414 INTSTALL
051945,000545: 13,3103 43130 SXA,1 CLRGO
051946,000546: 13,3104 02102 IRETURN
![]() |
Page 1215 |
051948,000548: 13,3105 01634 VINTFLAG
051949,000549: 13,3106 27074 IFLAGC
051950,000550:
051951,000551: 13,3107 66214 INTEGRVS SET SSP
051952,000552: 13,3110 01467 PRECIFLG
051953,000553: 13,3111 02031 PBODY
051954,000554: 13,3112 00000 0
051955,000555: 13,3113 66214 BOF SSP
051956,000556: 13,3114 00343 MOONFLAG
051957,000557: 13,3115 27120 +3
051958,000558: 13,3116 02031 PBODY
051959,000559: 13,3117 00002 2
051960,000560: 13,3120 77220 STQ VLOAD
051961,000561: 13,3121 02102 IRETURN
051962,000562: 13,3122 24007 ZEROVEC
051963,000563: 13,3123 01521 STORE TDELTAV
051964,000564: 13,3124 35527 STCALL TNUV
051965,000565: 13,3125 23441 RECTIFY
051966,000566: 13,3126 43014 CLEAR SET
051967,000567: 13,3127 01676 DIM0FLAG
051968,000568: 13,3130 04062 NEWIFLG
051969,000569: 13,3131 77614 SETGO
051970,000570: 13,3132 04020 RPQFLAG
051971,000571: 13,3133 27150 ALOADED
051972,000572:
051973,000573: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
051974,000574: # NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS. THE ROUTINE
051975,000575: # IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
051976,000576: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
051977,000577: # PROGRAM FOR PRECISION OR CONIC
051978,000578:
051979,000579: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
051980,000580: # SETTING ANY FLAGS.
051981,000581:
051982,000582: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
051983,000583: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
051984,000584: # INTYPFLG
051985,000585: # DIM0FLAG
051986,000586: # D6OR9FLG
051987,000587:
051988,000588: # CALLING SEQUENCE
051989,000589: # L-X CALL
051990,000590: # L-Y INTSTALL
051991,000591: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
051992,000592: # AND DIM0FLAG IS CLEAR.
051993,000593: # L CALL
051994,000594: # L+1 INTEGRV
051995,000595:
051996,000596: # INITIALIZATION
051997,000597: # FLAGS AS ABOVE
051998,000598: # STORE TIME TO INTEGRATE TO IN TDEC1
051999,000599:
052000,000600: # OUTPUT
052001,000601: # RATT AS
052002,000602: # VATT DEFINED
![]() |
Page 1216 |
052004,000604: # TAT BEFORE
052005,000605:
052006,000606: 13,3134 77620 INTEGRV STQ
052007,000607: 13,3135 02102 IRETURN
052008,000608: 13,3136 43014 INTEGRV1 SET SET
052009,000609: 13,3137 04060 RPQFLAG
052010,000610: 13,3140 04062 NEWIFLG
052011,000611: 13,3141 77731 INTEGRV2 SSP
052012,000612: 13,3142 00053 QPRET
052013,000613: 13,3143 27150 ALOADED
052014,000614: 13,3144 52014 BON GOTO
052015,000615: 13,3145 01714 VINTFLAG
052016,000616: 13,3146 26705 PTOACSM
052017,000617: 13,3147 26760 PTOALEM
052018,000618: 13,3150 77745 ALOADED DLOAD
052019,000619: 13,3151 00041 TDEC1
052020,000620: 13,3152 01116 STORE TDEC
052021,000621: 13,3153 52014 BOFF GOTO
052022,000622: 13,3154 01753 INTYPFLG
052023,000623: 13,3155 27257 TESTLOOP
052024,000624: 13,3156 27243 RVCON
052025,000625: 13,3157 77414 A-PCHK BOF EXIT
052026,000626: 13,3160 01752 STATEFLG
052027,000627: 13,3161 27200 RECTOUT
052028,000628: 13,3162 05353 TC PHASCHNG
052029,000629: 13,3163 04022 OCT 04022
052030,000630: 13,3164 05504 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
052031,000631: 13,3165 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
052032,000632: 13,3166 06037 TC INTPRET
052033,000633: 13,3167 77731 SSP
052034,000634: 13,3170 00053 QPRET
052035,000635: 13,3171 27176 PHEXIT
052036,000636: 13,3172 52014 BON GOTO
052037,000637: 13,3173 01714 VINTFLAG
052038,000638: 13,3174 26661 ATOPCSM
052039,000639: 13,3175 26734 ATOPLEM
052040,000640: 13,3176 77624 PHEXIT CALL
052041,000641: 13,3177 11244 GRP2PC
052042,000642: 13,3200 45001 RECTOUT SETPD CALL
052043,000643: 13,3201 00001 0
052044,000644: 13,3202 23441 RECTIFY
052045,000645: 13,3203 53775 VLOAD VSL*
052046,000646: 13,3204 01503 RRECT
052047,000647: 13,3205 57576 0,2
052048,000648: 13,3206 53715 PDVL VSL* # RATT TO PD0
052049,000649: 13,3207 01511 VRECT
052050,000650: 13,3210 57576 0,2
052051,000651: 13,3211 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
052052,000652: 13,3212 01517 TET
![]() |
Page 1217 |
052054,000654: 13,3213 01503 RRECT
052055,000655: 13,3214 64715 PDVL PDDL*
052056,000656: 13,3215 01511 VRECT
052057,000657: 13,3216 51770 MUEARTH,2
052058,000658: 13,3217 76006 PUSH AXT,1
052059,000659: 13,3220 77765 DEC -10 B-14
052060,000660: 13,3221 76014 BON AXT,1
052061,000661: 13,3222 00303 MOONFLAG
052062,000662: 13,3223 27225 +2
052063,000663: 13,3224 77775 DEC -2 B-14
052064,000664: 13,3225 40001 INTEXIT SETPD BOV
052065,000665: 13,3226 00001 0
052066,000666: 13,3227 27230 +1
052067,000667: 13,3230 43014 CLEAR CLEAR
052068,000668: 13,3231 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
052069,000669: 13,3232 01667 PRECIFLG
052070,000670: 13,3233 77614 CLEAR
052071,000671: 13,3234 01672 STATEFLG
052072,000672: 13,3235 77535 SLOAD EXIT
052073,000673: 13,3236 02103 IRETURN
052074,000674: 13,3237 30154 CA MPAC
052075,000675: 13,3240 50120 INDEX FIXLOC
052076,000676: 13,3241 54052 TS QPRET
052077,000677: 13,3242 03425 TC INTWAKE
052078,000678:
052079,000679: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
052080,000680: # VELOCITY FOR THE INTERVAL (TET-TDEC)
052081,000681:
052082,000682: 13,3243 45345 RVCON DLOAD DSU
052083,000683: 13,3244 01116 TDEC
052084,000684: 13,3245 01517 TET
052085,000685: 13,3246 36074 STCALL TAU.
052086,000686: 13,3247 23441 RECTIFY
052087,000687: 13,3250 77624 CALL
052088,000688: 13,3251 22376 KEPPREP
052089,000689: 13,3252 43345 DLOAD DAD
052090,000690: 13,3253 01551 TC
052091,000691: 13,3254 01517 TET
052092,000692: 13,3255 35517 STCALL TET
052093,000693: 13,3256 27200 RECTOUT
052094,000694:
![]() |
Page 1218 |
052096,000696: # TESTLOOP
052097,000697:
052098,000698: 13,3257 43014 TESTLOOP BOF CLRGO
052099,000699: 13,3260 04752 QUITFLAG
052100,000700: 13,3261 27264 +3
052101,000701: 13,3262 01632 STATEFLG
052102,000702: 13,3263 27225 INTEXIT # STOP INTEGRATION
052103,000703: 13,3264 73001 +3 SETPD LXA,2
052104,000704: 13,3265 00013 10D
052105,000705: 13,3266 02030 PBODY
052106,000706: 13,3267 51575 VLOAD ABVAL
052107,000707: 13,3270 01535 RCV
052108,000708: 13,3271 43006 PUSH CLEAR # RC TO 10D
052109,000709: 13,3272 00262 MIDFLAG
052110,000710: 13,3273 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
052111,000711: 13,3274 53755 RME,2
052112,000712: 13,3275 27300 +3
052113,000713: 13,3276 77614 SET
052114,000714: 13,3277 00062 MIDFLAG
052115,000715: 13,3300 41345 NORFINAL DLOAD DMP
052116,000716: 13,3301 00013 10D
052117,000717: 13,3302 00043 34D
052118,000718: 13,3303 55762 SR1R DDV*
052119,000719: 13,3304 51770 MUEARTH,2
052120,000720: 13,3305 41366 SQRT DMP
052121,000721: 13,3306 25752 .3D
052122,000722: 13,3307 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
052123,000723: 13,3310 54345 DLOAD SL
052124,000724: 13,3311 00155 MPAC
052125,000725: 13,3312 20220 15D # OF 128 CSECS.
052126,000726: 13,3313 40006 PUSH BOV
052127,000727: 13,3314 27341 MAXDT
052128,000728: 13,3315 50021 BDSU BMN
052129,000729: 13,3316 27413 DT/2MAX
052130,000730: 13,3317 27341 MAXDT
052131,000731: 13,3320 45345 DT/2COMP DLOAD DSU
052132,000732: 13,3321 01116 TDEC
052133,000733: 13,3322 01517 TET
052134,000734: 13,3323 54234 RTB SL
052135,000735: 13,3324 21612 SGNAGREE
052136,000736: 13,3325 20211 8D
052137,000737: 13,3326 02076 STORE DT/2 # B-19
052138,000738: 13,3327 51400 BOV ABS
052139,000739: 13,3330 27345 GETMAXDT
052140,000740: 13,3331 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
052141,000741: 13,3332 00015 12D
052142,000742: 13,3333 27351 P00HCHK
052143,000743: 13,3334 75345 USEMAXDT DLOAD SIGN
052144,000744: 13,3335 00015 12D
052145,000745: 13,3336 02076 DT/2
![]() |
Page 1219 |
052147,000747: 13,3337 36076 STCALL DT/2
052148,000748: 13,3340 27351 P00HCHK
052149,000749: 13,3341 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
052150,000750: 13,3342 27413 DT/2MAX
052151,000751: 13,3343 77650 GOTO
052152,000752: 13,3344 27320 DT/2COMP
052153,000753: 13,3345 77634 GETMAXDT RTB
052154,000754: 13,3346 21712 SIGNMPAC
052155,000755: 13,3347 36076 STCALL DT/2
052156,000756: 13,3350 27334 USEMAXDT
052157,000757: 13,3351 51545 P00HCHK DLOAD ABS
052158,000758: 13,3352 02076 DT/2
052159,000759: 13,3353 50025 DSU BMN
052160,000760: 13,3354 27411 DT/2MIN
052161,000761: 13,3355 27157 A-PCHK
052162,000762: 13,3356 46135 SLOAD BHIZ
052163,000763: 13,3357 01012 MODREG
052164,000764: 13,3360 27363 +3
052165,000765: 13,3361 77650 GOTO
052166,000766: 13,3362 23252 TIMESTEP
052167,000767: 13,3363 77614 BON # WAS THIS CALL VIA CSM(LEM)PREC
052168,000768: 13,3364 01707 PRECIFLG
052169,000769: 13,3365 23252 TIMESTEP # YES
052170,000770: 13,3366 45345 DLOAD DSU
052171,000771: 13,3367 02076 DT/2
052172,000772: 13,3370 00015 12D
052173,000773: 13,3371 43040 BMN BOFCLR
052174,000774: 13,3372 27157 A-PCHK
052175,000775: 13,3373 04242 NEWIFLG
052176,000776: 13,3374 23252 TIMESTEP
052177,000777: 13,3375 45345 DLOAD DSU
052178,000778: 13,3376 01116 TDEC
052179,000779: 13,3377 01517 TET
052180,000780: 13,3400 77640 BMN # NO BACKWARD INTEGRATION
052181,000781: 13,3401 27225 INTEXIT
052182,000782: 13,3402 40525 PDDL SR4
052183,000783: 13,3403 02076 DT/2 # IS 4(DT) LS (TDEC - TET)
052184,000784: 13,3404 44322 SR2R BDSU # NO
052185,000785: 13,3405 52040 BMN GOTO
052186,000786: 13,3406 27225 INTEXIT
052187,000787: 13,3407 23252 TIMESTEP
052188,000788: 13,3410 00000 01400 DT/2MIN 2DEC 3 B-20
052189,000789:
052190,000790: 13,3412 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
052191,000791:
052192,000792: 13,3414 77776 INTSTALL EXIT
052193,000793: 13,3415 30106 CA RASFLAG
052194,000794: 13,3416 73466 MASK INTBITAB # IS THIS STALL AREA FREE
052195,000795: 13,3417 00006 EXTEND
052196,000796: 13,3420 13460 BZF OKTOGRAB # YES
![]() |
Page 1220 |
052198,000798: 13,3421 33465 CAF WAKESTAL
052199,000799: 13,3422 05133 TC JOBSLEEP
052200,000800: 13,3423 77776 INTWAKE0 EXIT
052201,000801: 13,3424 13445 TCF INTWAKE1
052202,000802:
052203,000803: 13,3425 40106 INTWAKE CS RASFLAG # IS THIS INTSTALLED ROUTINE TO BE
052204,000804: 13,3426 74745 MASK REINTBIT # RESTARTED
052205,000805: 13,3427 10000 CCS A
052206,000806: 13,3430 03445 TC INTWAKE1 # NO
052207,000807:
052208,000808: 13,3431 50120 INDEX FIXLOC
052209,000809: 13,3432 30052 CA QPRET
052210,000810: 13,3433 55055 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
052211,000811:
052212,000812: 13,3434 05353 TC PHASCHNG
052213,000813: 13,3435 04022 OCT 04022
052214,000814:
052215,000815: 13,3436 31055 CA TBASE2
052216,000816: 13,3437 50120 INDEX FIXLOC
052217,000817: 13,3440 54052 TS QPRET
052218,000818:
052219,000819: 13,3441 34745 CAF REINTBIT
052220,000820: 13,3442 70106 MASK RASFLAG
052221,000821: 13,3443 00006 EXTEND
052222,000822: 13,3444 13463 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
052223,000823:
052224,000824: 13,3445 33465 INTWAKE1 CAF WAKESTAL
052225,000825: 13,3446 00004 INHINT
052226,000826: 13,3447 05137 TC JOBWAKE
052227,000827: 13,3450 10064 CCS LOCCTR
052228,000828: 13,3451 13445 TCF INTWAKE1
052229,000829: 13,3452 00051 FORTYONE DEC 41 B-14
052230,000830: 13,3453 43466 CS INTBITAB
052231,000831: 13,3454 70106 MASK RASFLAG
052232,000832: 13,3455 54106 TS RASFLAG # RELEASE STALL AREA
052233,000833: 13,3456 00003 RELINT
052234,000834: 13,3457 13463 TCF GOBAC
052235,000835: 13,3460 34736 OKTOGRAB CAF INTFLBIT
052236,000836: 13,3461 00004 INHINT
052237,000837: 13,3462 26106 ADS RASFLAG
052238,000838: 13,3463 06037 GOBAC TC INTPRET
052239,000839: 13,3464 77616 RVQ
052240,000840: 13,3465 27415 WAKESTAL CADR INTSTALL +1
052241,000841: 13,3466 20100 INTBITAB OCT 20100
052242,000842:
![]() |
Page 1221 |
052244,000844: # AVETOMID
052245,000845:
052246,000846: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
052247,000847: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
052248,000848: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
052249,000849:
052250,000850: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (OR WFLAG OR RENDWFLG IS
052251,000851: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
052252,000852:
052253,000853: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
052254,000854:
052255,000855: # FINALLY TRKMKCNT IS ZEROED
052256,000856:
052257,000857: 13,2000 SETLOC INTINIT
052258,000858: 13,2000 BANK
052259,000859:
052260,000860: 13,3467 COUNT* $$/INTIN
052261,000861: 13,3467 43020 AVETOMID STQ BON
052262,000862: 13,3470 02772 EGRESS
052263,000863: 13,3471 02716 RENDWFLG
052264,000864: 13,3472 27536 INT/W # W-MATRIX VALID, GO INTEGRATE IT
052265,000865: 13,3473 77614 BON
052266,000866: 13,3474 01711 ORBWFLAG
052267,000867: 13,3475 27536 INT/W # W-MATRIX VALID, GO INTEGRATE IT
052268,000868:
052269,000869: 13,3476 45145 OTHERS DLOAD CALL # GET SET FOR OTHER VEHICLE INTEGRATION
052270,000870: 13,3477 01235 PIPTIME # DESIRED TIME
052271,000871: 13,3500 27414 INTSTALL
052272,000872: 13,3501 45014 SET CALL
052273,000873: 13,3502 01474 VINTFLAG # CM
052274,000874: 13,3503 26644 SETIFLGS # SETS UP NONE W-MAT. PERMANENT INTEG.
052275,000875: 13,3504 34041 STCALL TDEC1
052276,000876: 13,3505 27134 INTEGRV
052277,000877:
052278,000878: 13,3506 45174 AXT,2 CALL # NOW MOVE PROPERLY SCALE RN,UN AS WELL AS
052279,000879: 13,3507 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
052280,000880: 13,3510 27414 INTSTALL
052281,000881: 13,3511 77014 BON AXT,2
052282,000882: 13,3512 04304 MOONTHIS
052283,000883: 13,3513 27515 +2
052284,000884: 13,3514 00000 0
052285,000885: 13,3515 53775 VLOAD VSR*
052286,000886: 13,3516 01221 RN
052287,000887: 13,3517 57176 0,2
052288,000888: 13,3520 01503 STORE RRECT
052289,000889: 13,3521 15535 STODL RCV
052290,000890: 13,3522 01235 PIPTIME
052291,000891: 13,3523 25517 STOVL TET
052292,000892: 13,3524 01227 VN
![]() |
Page 1222 |
052294,000894: 13,3525 45057 VSR* CALL
052295,000895: 13,3526 57176 0,2
052296,000896: 13,3527 23455 MINIRECT # FINISH SETTING UP STATE VECTOR
052297,000897: 13,3530 66234 RTB SSP
052298,000898: 13,3531 26747 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
052299,000899: 13,3532 03463 TRKMKCNT
052300,000900: 13,3533 00000 0
052301,000901: 13,3534 77650 GOTO
052302,000902: 13,3535 47226 FAZAB5
052303,000903:
052304,000904: 13,3536 45145 INT/W DLOAD CALL
052305,000905: 13,3537 01235 PIPTIME # INTEGRATE W THRU BURN
052306,000906: 13,3540 27414 INTSTALL
052307,000907: 13,3541 43014 SET SET
052308,000908: 13,3542 01476 DIM0FLAG # DO W-MATRIX
052309,000909: 13,3543 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
052310,000910: 13,3544 43014 SET CLEAR
052311,000911: 13,3545 01475 D6OR9FLG # 9X9 FOR LM
052312,000912: 13,3546 01674 VINTFLAG # LM
052313,000913: 13,3547 34041 STCALL TDEC1
052314,000914: 13,3550 27134 INTEGRV
052315,000915: 13,3551 77650 GOTO
052316,000916: 13,3552 27476 OTHERS # NOW GO DO THE OTHER VEHICLE
052317,000917:
![]() |
Page 1223 |
052319,000919: # MIDTOAV1
052320,000920:
052321,000921: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
052322,000922: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
052323,000923: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
052324,000924: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
052325,000925: # IS DONE TO THE CURRENT TIME.
052326,000926: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
052327,000927:
052328,000928: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
052329,000929: # TO THE RETURN ADDRESS
052330,000930:
052331,000931: # IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
052332,000932: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
052333,000933: # TION TIME AND MPAC IS SET TO THE DELTA TIME ---
052334,000934: # TAT MINUS CURRENT TIME.
052335,000935:
052336,000936: # MIDTOAV2
052337,000937:
052338,000938: # THIS ROUTINE INTEGRATES THIS VEHICLES STATE VECTOR TO THE CURRENT TIME.
052339,000939: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
052340,000940: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
052341,000941:
052342,000942: 13,3553 E7,1744 EBANK= IRETURN1
052343,000943: 13,3553 43020 MIDTOAV2 STQ CLRGO # INTEGRATE TO PRESENT TIME PLUS TIMEDELT
052344,000944: 13,3554 03744 IRETURN1
052345,000945: 13,3555 04634 MID1FLAG
052346,000946: 13,3556 27572 ENTMID2
052347,000947:
052348,000948: 13,3557 43020 MIDTOAV1 STQ SET # INTEGRATE TO TDEC1
052349,000949: 13,3560 03744 IRETURN1
052350,000950: 13,3561 04474 MID1FLAG
052351,000951: 13,3562 43234 RTB DAD # INITIAL CHECK, IS TDEC1 IN THE FUTURE
052352,000952: 13,3563 21573 LOADTIME
052353,000953: 13,3564 27674 TIMEDELT
052354,000954: 13,3565 51021 BDSU BPL
052355,000955: 13,3566 00041 TDEC1
052356,000956: 13,3567 27576 ENTMID1 # Y5S
052357,000957: 13,3570 77624 CALL
052358,000958: 13,3571 27662 NOTIME # NO, SET ALARM, SWITCH TO MIDTOAV2
052359,000959:
052360,000960: 13,3572 43234 ENTMID2 RTB DAD
052361,000961: 13,3573 21573 LOADTIME
052362,000962: 13,3574 27674 TIMEDELT
052363,000963: 13,3575 00041 STORE TDEC1
052364,000964:
052365,000965: 13,3576 77624 ENTMID1 CALL
052366,000966: 13,3577 27414 INTSTALL
052367,000967: 13,3600 45014 CLEAR CALL
![]() |
Page 1224 |
052369,000969: 13,3601 01676 DIM0FLAG # NO W-MATRIX
052370,000970: 13,3602 26066 THISVINT
052371,000971: 13,3603 43014 CLEAR SET
052372,000972: 13,3604 01673 INTYPFLG
052373,000973: 13,3605 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
052374,000974: 13,3606 77624 CALL
052375,000975: 13,3607 27134 INTEGRV # GO INTEGRATE
052376,000976: 13,3610 77214 CLEAR VLOAD
052377,000977: 13,3611 04675 MIDAVFLG
052378,000978: 13,3612 00001 RATT
052379,000979: 13,3613 27545 STOVL RN1
052380,000980: 13,3614 00007 VATT
052381,000981: 13,3615 17553 STODL VN1
052382,000982: 13,3616 00015 TAT
052383,000983: 13,3617 03561 STORE PIPTIME1
052384,000984: 13,3620 66134 SXA,2 SXA,1
052385,000985: 13,3621 02777 RTX2
052386,000986: 13,3622 02776 RTX1
052387,000987: 13,3623 77776 EXIT
052388,000988:
052389,000989: 13,3624 00004 INHINT
052390,000990: 13,3625 00006 EXTEND
052391,000991: 13,3626 40025 DCS TIME2
052392,000992: 13,3627 20155 DAS MPAC
052393,000993: 13,3630 07257 TC TPAGREE
052394,000994:
052395,000995: 13,3631 31744 CA IRETURN1
052396,000996: 13,3632 04640 TC BANKJUMP
052397,000997: 13,3633 47014 CKMID2 BOF RTB
052398,000998: 13,3634 04754 MID1FLAG
052399,000999: 13,3635 27652 MID2
052400,001000: 13,3636 21573 LOADTIME
052401,001001: 13,3637 44215 DAD BDSU
052402,001002: 13,3640 27674 TIMEDELT
052403,001003: 13,3641 01116 TDEC
052404,001004: 13,3642 45044 BPL CALL
052405,001005: 13,3643 27257 TESTLOOP # YES
052406,001006: 13,3644 27662 NOTIME
052407,001007:
052408,001008: 13,3645 43234 TIMEINC RTB DAD
052409,001009: 13,3646 21573 LOADTIME
052410,001010: 13,3647 27674 TIMEDELT
052411,001011: 13,3650 35116 STCALL TDEC
052412,001012: 13,3651 27257 TESTLOOP
052413,001013:
052414,001014: 13,3652 45345 MID2 DLOAD DSU
052415,001015: 13,3653 01116 TDEC
052416,001016: 13,3654 01517 TET
052417,001017: 13,3655 45246 ABS DSU
052418,001018: 13,3656 27672 3CSECS
052419,001019:
![]() |
Page 1225 |
052421,001021: 13,3657 52040 BMN GOTO
052422,001022: 13,3660 27157 A-PCHK
052423,001023: 13,3661 27645 TIMEINC
052424,001024:
052425,001025: 13,3662 77414 NOTIME CLEAR EXIT # TOO LATE
052426,001026: 13,3663 04674 MID1FLAG
052427,001027: 13,3664 25744 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
052428,001028: 13,3665 05567 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
052429,001029: 13,3666 01703 OCT 1703 # TIG WILL BE SLIPPED...
052430,001030: 13,3667 06037 TC INTPRET
052431,001031: 13,3670 77616 RVQ
052432,001032:
052433,001033: 13,3671 00000 00003 3CSECS 2DEC 3 B-28
052434,001034:
052435,001035: 13,3673 00000 03720 TIMEDELT 2DEC 2000 B-28
052436,001036:
052437,001037: 27,3360 BANK 27
052438,001038: 04,2000 SETLOC UPDATE2
052439,001039: 04,2000 BANK
052440,001040: 04,3165 1167 EBANK= INTWAKUQ
052441,001041:
052442,001042: 04,3165 COUNT* $$/INTIN
052443,001043:
052444,001044: 04,3165 1167 INTWAKUQ = INTWAK1Q # TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
052445,001045:
052446,001046: 04,3165 00003 INTWAKEU RELINT
052447,001047: 04,3166 00006 EXTEND
052448,001048: 04,3167 23167 QXCH INTWAKUQ # SAVE Q FOR RETURN
052449,001049:
052450,001050: 04,3170 06037 TC INTPRET
052451,001051:
052452,001052: 04,3171 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
052453,001053: 04,3172 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
052454,001054: 04,3173 11232 INTWAKUP
052455,001055:
052456,001056: 04,3174 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
052457,001057: 04,3175 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
052458,001058: 04,3176 25535 STOVL RCV
052459,001059: 04,3177 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
052460,001060: 04,3200 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
052461,001061: 04,3201 23456 RECTIFY +13D # TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
052462,001062: 04,3202 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
052463,001063: 04,3203 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
052464,001064: 04,3204 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
052465,001065: 04,3205 11243 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
052466,001066: 04,3206 11213 INTWAKEM # SPHERE OF INFLUENCE.........
052467,001067: 04,3207 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
052468,001068: 04,3210 00000 DEC 0 B-14
052469,001069: 04,3211 00223 MOONFLAG
![]() |
Page 1226 |
052471,001071: 04,3212 11216 INTWAKEC
052472,001072: 04,3213 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
052473,001073: 04,3214 00002 DEC 2 B-14
052474,001074: 04,3215 00063 MOONFLAG
052475,001075: 04,3216 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
052476,001076: # MOONFLAG SET (OR CLEARED).
052477,001077: 04,3217 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
052478,001078: 04,3220 11226 INTWAKLM # STATE VECTOR UPDATE......
052479,001079: 04,3221 77624 CALL # UPDATE CSM STATE VECTOR
052480,001080: 04,3222 26661 ATOPCSM
052481,001081:
052482,001082: 04,3223 52014 CLEAR GOTO
052483,001083: 04,3224 01671 ORBWFLAG
052484,001084: 04,3225 11230 INTWAKEX
052485,001085:
052486,001086: 04,3226 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
052487,001087: 04,3227 26734 ATOPLEM
052488,001088:
052489,001089: 04,3230 77614 INTWAKEX CLEAR
052490,001090: 04,3231 02676 RENDWFLG
052491,001091:
052492,001092: 04,3232 45131 INTWAKUP SSP CALL # REMOVE :UPDATE STATE VECTOR INDICATOR:
052493,001093: 04,3233 01502 UPSVFLAG
052494,001094: 04,3234 00000 0
052495,001095: 04,3235 27423 INTWAKE0 # RELEASE :GRAB: OF ORBIT INTEG
052496,001096: 04,3236 77776 EXIT
052497,001097:
052498,001098: 04,3237 05353 TC PHASCHNG
052499,001099: 04,3240 04026 OCT 04026
052500,001100: 04,3241 01167 TC INTWAKUQ
052501,001101:
052502,001102: 04,3242 00002 UPMNSVCD OCT 2
052503,001103: 04,3243 00000 OCT 0
052504,001104:
052505,001105: 04,3244 77420 GRP2PC STQ EXIT
052506,001106: 04,3245 02711 GRP2SVQ
052507,001107: 04,3246 05353 TC PHASCHNG
052508,001108: 04,3247 04022 OCT 04022
052509,001109: 04,3250 06037 TC INTPRET
052510,001110: 04,3251 77650 GOTO
052511,001111: 04,3252 02711 GRP2SVQ
052512,001112:
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc