Source Code
|
These source-code files are part of a reconstructed copy of Luminary 69/2,
the flown, final release of the Apollo 10 Lunar Module (LM) Apollo Guidance Computer (AGC) software.
The reconstruction is based on the source code of Luminary 69 — i.e., the
initial, unflown version, "revision 0" — of which
a contemporary listing was available. The code was then updated by incorporating the
differences between Luminary 69 and Luminary 69/2, known from other contemporary
documentation. The only such difference is the implementation in
Luminary 69/2 of the "R-2 Lunar Potential Model", the source code for which was taken
from program Luminary 99/1 (Apollo 11 LM), of which a contemporary listing was also available.
Finally, the now-reconstructed Luminary 69/2 was then validated by assembling it to
executable form and verifying that its memory banks had the correct checksums,
known from still other contemporary documentation.
Note that page numbers in the reconstructed code match those in the original Luminary 69
program listing, or in the ORBITAL INTEGRATION log section, in Luminary 99/1. Page numbers
would certainly differ somewhat in a contemporary Luminary 69/2 listing.
Moreover, annotations that were not present in the contemporary source code have been added
to the reconstructed code to justify each change in Luminary 69/2 relative to
Luminary 69. Here's a guide to the Apollo documentation referenced in those annotations:
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
051585,000002: ## Copyright: Public domain.
051586,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
051587,000004: ## Purpose: A section of LUM69 revision 2.
051588,000005: ## It is part of the reconstructed source code for the flown
051589,000006: ## version of the flight software for the Lunar Module's (LM)
051590,000007: ## Apollo Guidance Computer (AGC) for Apollo 10. The code has
051591,000008: ## been recreated from a copy of Luminary revsion 069, using
051592,000009: ## changes present in Luminary 099 which were described in
051593,000010: ## Luminary memos 75 and 78. The code has been adapted such
051594,000011: ## that the resulting bugger words exactly match those specified
051595,000012: ## for LUM69 revision 2 in NASA drawing 2021152B, which gives
051596,000013: ## relatively high confidence that the reconstruction is correct.
051597,000014: ## Reference: pp. 1200-1222
051598,000015: ## Assembler: yaYUL
051599,000016: ## Contact: Ron Burkey <info@sandroid.org>.
051600,000017: ## Website: www.ibiblio.org/apollo/index.html
051601,000018: ## Mod history: 2019-07-27 MAS Created from Luminary 69.
051602,000019: ## 2019-07-27 MAS Updated TIMEDELT to match LUM69 rev 2.
051603,000020: ## 2020-12-14 RSB Tweaked the annotation relevant to the
051604,000021: ## change mentioned above to conform to the
051605,000022: ## style and extent of similar justifying
051606,000023: ## annotations previously added to
051607,000024: ## Comanche 44 and 51.
051608,000025:
|
|
Page 1200
|
051610,000027: # 1.0 INTRODUCTION
051611,000028: # ----------------
051612,000029:
051613,000030: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
051614,000031: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
051615,000032: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
051616,000033: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
051617,000034: # SIDE THE LUNAR SPHERE OF INFLUENCE.
051618,000035:
051619,000036: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
051620,000037: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
051621,000038: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
051622,000039: # CALL TC INTSTALL.
051623,000040:
051624,000041: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
051625,000042: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
051626,000043: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
051627,000044: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
051628,000045: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
051629,000046:
051630,000047: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
051631,000048: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
051632,000049: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
051633,000050: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
051634,000051:
051635,000052: # 2.0 GENERAL DESCRIPTION
051636,000053: # -----------------------
051637,000054:
051638,000055: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS---
051639,000056: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
051640,000057: # 2) INTEGRATES THE W-MATRIX
051641,000058: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
051642,000059:
051643,000060: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
051644,000061: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
051645,000062: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
051646,000063: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
051647,000064: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
051648,000065: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
051649,000066: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
051650,000067: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
051651,000068: # AND/OR STATE VECTOR.
051652,000069:
051653,000070: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
051654,000071: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
051655,000072: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
051656,000073:
051657,000074: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
051658,000075: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
051659,000076: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
051660,000077:
|
|
Page 1201
|
051662,000079: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
051663,000080:
051664,000081: # 2.1 RESTARTS
051665,000082:
051666,000083: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
051667,000084: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
051668,000085: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
051669,000086: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
051670,000087: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
051671,000088: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
051672,000089: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
051673,000090:
051674,000091: # 2.2 SCALING
051675,000092:
051676,000093: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
051677,000094: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTORDEPENDS ON THE ORIGIN OF THE COORDINATE
051678,000095: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
051679,000096: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
051680,000097: # DIFFERENT SCALING.
051681,000098: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
051682,000099:
051683,000100: # 3.0 INPUT/OUTPUT
051684,000101: # ----------------
051685,000102:
051686,000103: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
051687,000104: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
051688,000105: # FOR INTEGRVS, THE RCV,VCV, TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
051689,000106:
051690,000107: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
051691,000108: # EARTH MOON
051692,000109: # 29 27
051693,000110: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
051694,000111:
051695,000112: # 7 5
051696,000113: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
051697,000114:
051698,000115: # 28 28
051699,000116: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
051700,000117: # CUSTOMARILY 0, BUT NOTE LUNAR
051701,000118: # ORBIT DEPENDENCE ON REAL TIME.
051702,000119:
051703,000120: # 22 18
051704,000121: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
051705,000122: # 0 IF TCCSM(LEM) = 0
051706,000123:
051707,000124: # 3 -1
051708,000125: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
051709,000126: # 0 IF TCCSM(LEM) = 0
|
|
Page 1202
|
051711,000128: # 29 27
051712,000129: # RCVCSM(LEM) - CONIC POSITION METERS 2 2
051713,000130: # EQUALS RRECTCSM(LEM) IF
051714,000131: # TCCSM(LEM) = 0
051715,000132:
051716,000133: # 7 5
051717,000134: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
051718,000135: # EQUALS VRECTCSM(LEM) IF
051719,000136: # TCCSM(LEM) = 0
051720,000137:
051721,000138: # 28 28
051722,000139: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
051723,000140: # CUSTOMARILY 0
051724,000141:
051725,000142: # 1/2 17 16
051726,000143: # XKEPCSM(LEM) - ROOT OF KEPLERS EQUATION M 2 2
051727,000144: # 0 IF TCCSM(LEM) = 0
051728,000145:
051729,000146: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
051730,000147: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
051731,000148: # LMOONFLG C = CSM, L = LM 0 0
051732,000149: # LMIDFLG 0,1 0,1
051733,000150:
051734,000151: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
051735,000152:
051736,000153: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
051737,000154: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
051738,000155: # ROUTINE MUST BE PRESET.
051739,000156:
051740,000157: # OUTPUT
051741,000158: # AFTER EVERY CALL TO INTEGRATION
051742,000159: # EARTH MOON
051743,000160: # 29 29
051744,000161: # 0D RATT POSITION METERS 2 2
051745,000162: # 7 7
051746,000163: # 6D VATT VELOCITY M/CSEC 2 2
051747,000164: # 28 28
051748,000165: # 12D TAT TIME 2 2
051749,000166: # 29 27
051750,000167: # 14D RATT1 POSITION METERS 2 2
051751,000168: # 7 5
051752,000169: # 20D VATT1 VELOCITY M/CSEC 2 2
051753,000170: # 3 2 36 30
051754,000171: # 26D MU(P) MU M /CS 2 2
051755,000172:
051756,000173: # X1 MUTABLE ENTRY -2 -10D
051757,000174:
051758,000175: # X2 COORDINT
051759,000176: # X2 COORDINATE SYSTEM ORIGEN 0 2
051760,000177: # (THIS, NOT MOONFLAG, SHOULD BE
|
|
Page 1203
|
051762,000179: # USED TO DETERMINE ORIGIN.)
051763,000180:
051764,000181: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
051765,000182: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
051766,000183: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
051767,000184: # CALLING PROGRAM.
051768,000185:
051769,000186: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
051770,000187: # -------------------------------------
051771,000188:
051772,000189: # A) PRECISION ORBITAL INTEGRATION. CSMPREC,LEMPREC ENTRANCES
051773,000190: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
051774,000191: # L CALL
051775,000192: # L+1 CSMPREC (OR LEMPREC)
051776,000193: # L+2 RETURN
051777,000194: # INPUT 28
051778,000195: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
051779,000196: # OUTPUT
051780,000197: # THE DATA LISTED IN SECTION 3.0 PLUS
051781,000198: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
051782,000199: # BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
051783,000200: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
051784,000201: # L-X STORE TIME IN PUSH LIST (TDEC1)
051785,000202: # L CALL
051786,000203: # L+1 CSMCONIC (OR LEMCONIC)
051787,000204: # INPUT/OUTPUT
051788,000205: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
051789,000206: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
051790,000207: # CALL
051791,000208: # INTSTALL
051792,000209: # VLOAD
051793,000210: # POSITION VECTOR
051794,000211: # STOVL RCV
051795,000212: # VELOCITY VECTOR
051796,000213: # STODL VCV
051797,000214: # TIME STATE VECTOR VALID
051798,000215: # STODL TET
051799,000216: # FINAL RADIUS
051800,000217: # STORE RFINAL
051801,000218: # SET(CLEAR) SET(CLEAR)
051802,000219: # INTYPFLAG
051803,000220: # MOONFLAG
051804,000221: # SET(CLEAR) DLOAD
051805,000222: # DESIRED TIME
051806,000223: # STCALL TDEC1
051807,000224: # INTEGRVS
051808,000225: # INPUT
051809,000226: # RCV POSITION VECTOR METERS
051810,000227: # VCV VELOCITY VECTOR M/CSEC
051811,000228: # TET TIME OF STATE VECTOR(MAY = 0) CSEC B-28
|
|
Page 1204
|
051813,000230: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
051814,000231: # (MAY BE INCREMENT IF TET=0)
051815,000232: # OUTPUT
051816,000233: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
051817,000234: # DEPENDING ON INTYPFLG.
051818,000235: # D) INTEGRATE STATE VECTOR.INTGRV ENTRANCE
051819,000236: # L-X STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
051820,000237: # L-8 CALL
051821,000238: # L-7
051822,000239: # L-6 SET(CLEAR) SET(CLEAR)
051823,000240: # L-5 VINTFLAG 1=CSM, 0=LM
051824,000241: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
051825,000242: # L-3 SET(CLEAR) SET(CLEAR)
051826,000243: # L-2 DIMOFLAG 1=W-MATRIX, 0=NO W-MATRIX
051827,000244: # L-1 D6OR9FLG 1=9X9, 0=6X6
051828,000245: # L SET DLOAD
051829,000246: # L+1 STATEFLG DESIRE PERMANENT UPDATE
051830,000247: # L+2 FINAL RAD. OF STATE VECTOR
051831,000248: # L+3 STCALL RFINAL
051832,000249: # L+4 INTEGRV
051833,000250: # L CALL NORMAL USE-- WILL UPDATE STATE
051834,000251: # L+1 INTEGRV VECTOR IF DIMOFLAG=1.(STATEFLG IS
051835,000252: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
051836,000253: # IT IS USED.)
051837,000254: # INPUT
051838,000255: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
051839,000256: # OUTPUT
051840,000257: # SAME AS FOR PRECISION OR CONIC INTEGRATION
051841,000258: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
051842,000259: # THE PERMANENT STATE VECTOR REPRESENTATION.
051843,000260:
051844,000261: 11,2311 BANK 11
051845,000262: 13,2000 SETLOC INTINIT
051846,000263: 13,2000 BANK
051847,000264: 13,2604 E3,1554 EBANK= RRECTCSM
051848,000265: 13,2604 COUNT* $$/INTIN
051849,000266: 13,2604 05353 STATEINT TC PHASCHNG
051850,000267: 13,2605 00052 OCT 00052
051851,000268: 13,2606 35017 CAF PRIO5
051852,000269: 13,2607 05105 TC FINDVAC
051853,000270: 13,2610 E3,1554 EBANK= RRECTCSM
051854,000271: 13,2610 02613 26063 2CADR STATINT1
051855,000272:
051856,000273: 13,2612 05261 TC TASKOVER
051857,000274: 13,2613 06036 STATINT1 TC INTPRET
051858,000275: 13,2614 47014 BON RTB
051859,000276: 13,2615 04712 QUITFLAG # KILL INTEGRATION UNTIL NEXT POO.
051860,000277: 13,2616 26653 NOINT
051861,000278: 13,2617 21462 LOADTIME
051862,000279: 13,2620 00041 STORE TDEC1
|
|
Page 1205
|
051864,000281: 13,2621 77624 CALL
051865,000282: 13,2622 27412 INTSTALL
051866,000283: 13,2623 45014 SET CALL
051867,000284: 13,2624 01076 NODOFLAG
051868,000285: 13,2625 26644 SETIFLGS
051869,000286: 13,2626 77650 GOTO
051870,000287: 13,2627 26026 STATEUP
051871,000288: 13,2630 00003 25140 600SECS 2DEC 60000 B-28
051872,000289:
051873,000290: 13,2632 77414 ENDINT CLEAR EXIT
051874,000291: 13,2633 01672 STATEFLG
051875,000292: 13,2634 05353 TC PHASCHNG
051876,000293: 13,2635 20032 OCT 20032
051877,000294: 13,2636 00006 EXTEND
051878,000295: 13,2637 32631 DCA 600SECS
051879,000296: 13,2640 05277 TC LONGCALL
051880,000297: 13,2641 E3,1626 EBANK= RRECTHIS
051881,000298: 13,2641 02604 26063 2CADR STATEINT
051882,000299:
051883,000300: 13,2643 05155 TC ENDOFJOB
051884,000301: 13,2644 43014 SETIFLGS SET CLEAR
051885,000302: 13,2645 01472 STATEFLG
051886,000303: 13,2646 01673 INTYPFLG
051887,000304: 13,2647 43014 CLEAR CLEAR
051888,000305: 13,2650 01676 DIM0FLAG
051889,000306: 13,2651 01675 D6OR9FLG
051890,000307: 13,2652 77616 RVQ
051891,000308: 13,2653 77776 NOINT EXIT
051892,000309: 13,2654 05353 TC PHASCHNG
051893,000310: 13,2655 00002 OCT 00002
051894,000311:
051895,000312: 13,2656 05516 TC DOWNFLAG
051896,000313: 13,2657 00221 ADRES QUITFLAG
051897,000314: 13,2660 05155 TC ENDOFJOB
051898,000315:
051899,000316: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
051900,000317:
051901,000318: # CALLING SEQUENCE
051902,000319: # L CALL
051903,000320: # L+1 ATOPCSM
051904,000321:
051905,000322: # NORMAL EXIT AT L+2
051906,000323:
051907,000324: 13,2661 47020 ATOPCSM STQ RTB
051908,000325: 13,2662 00051 S2
051909,000326: 13,2663 26674 MOVEACSM
051910,000327: 13,2664 45014 SET CALL
051911,000328: 13,2665 04063 CMOONFLG
051912,000329: 13,2666 26114 SVDWN1
051913,000330: 13,2667 43014 BON CLRGO
|
|
Page 1206
|
051915,000332: 13,2670 00303 MOONFLAG
051916,000333: 13,2671 00051 S2
051917,000334: 13,2672 04223 CMOONFLG
051918,000335: 13,2673 00051 S2
051919,000336: 13,2674 03036 MOVEACSM TC SETBANK
051920,000337: 13,2675 55500 TS DIFEQCNT # INITIALIZE INDEX
051921,000338: 13,2676 51500 INDEX DIFEQCNT
051922,000339: 13,2677 31502 CA RRECT
051923,000340: 13,2700 51500 INDEX DIFEQCNT
051924,000341: 13,2701 55554 TS RRECTCSM
051925,000342: 13,2702 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
051926,000343: 13,2703 12675 TCF MOVEACSM +1 # NO-LOOP
051927,000344: 13,2704 06060 TC DANZIG # COMPLETE - RETURN
051928,000345:
051929,000346:
051930,000347: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
051931,000348:
051932,000349: # CALLING SEQUENCE
051933,000350: # L CALL
051934,000351: # PTOACSM
051935,000352:
051936,000353: # NORMAL EXIT AT L+2
051937,000354: 13,2705 43034 PTOACSM RTB BON
051938,000355: 13,2706 26723 MOVEPCSM
051939,000356: 13,2707 04303 CMOONFLG
051940,000357: 13,2710 26716 SETMOON
051941,000358: 13,2711 66214 CLRMOON CLEAR SSP
051942,000359: 13,2712 00263 MOONFLAG
051943,000360: 13,2713 02031 PBODY
051944,000361: 13,2714 00000 0
051945,000362: 13,2715 77616 RVQ
051946,000363: 13,2716 66214 SETMOON SET SSP
051947,000364: 13,2717 00063 MOONFLAG
051948,000365: 13,2720 02031 PBODY
051949,000366: 13,2721 00002 2
051950,000367: 13,2722 77616 RVQ
051951,000368: 13,2723 03036 MOVEPCSM TC SETBANK
051952,000369: 13,2724 55500 TS DIFEQCNT
051953,000370: 13,2725 51500 INDEX DIFEQCNT
051954,000371: 13,2726 31554 CA RRECTCSM
051955,000372: 13,2727 51500 INDEX DIFEQCNT
051956,000373: 13,2730 55502 TS RRECT
051957,000374: 13,2731 11500 CCS DIFEQCNT
051958,000375: 13,2732 12724 TCF MOVEPCSM +1
051959,000376: 13,2733 06060 TC DANZIG
051960,000377:
051961,000378:
051962,000379: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
051963,000380:
051964,000381: 13,2734 47020 ATOPLEM STQ RTB
|
|
Page 1207
|
051966,000383: 13,2735 00051 S2
051967,000384: 13,2736 26747 MOVEALEM
051968,000385: 13,2737 45014 SET CALL
051969,000386: 13,2740 04064 LMOONFLG
051970,000387: 13,2741 26070 SVDWN2
051971,000388: 13,2742 43014 BON CLRGO
051972,000389: 13,2743 00303 MOONFLAG
051973,000390: 13,2744 00051 S2
051974,000391: 13,2745 04224 LMOONFLG
051975,000392: 13,2746 00051 S2
051976,000393: 13,2747 03036 MOVEALEM TC SETBANK
051977,000394: 13,2750 55500 TS DIFEQCNT
051978,000395: 13,2751 51500 INDEX DIFEQCNT
051979,000396: 13,2752 31502 CA RRECT
051980,000397: 13,2753 51500 INDEX DIFEQCNT
051981,000398: 13,2754 55626 TS RRECTLEM
051982,000399: 13,2755 11500 CCS DIFEQCNT
051983,000400: 13,2756 12750 TCF MOVEALEM +1
051984,000401: 13,2757 06060 TC DANZIG
051985,000402:
051986,000403:
051987,000404: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
051988,000405:
051989,000406: 13,2760 47014 PTOALEM BON RTB
051990,000407: 13,2761 04307 SURFFLAG
051991,000408: 13,2762 27001 USEPIOS
051992,000409: 13,2763 26770 MOVEPLEM
051993,000410: 13,2764 52014 BON GOTO
051994,000411: 13,2765 04304 LMOONFLG
051995,000412: 13,2766 26716 SETMOON
051996,000413: 13,2767 26711 CLRMOON
051997,000414: 13,2770 03036 MOVEPLEM TC SETBANK
051998,000415: 13,2771 55500 TS DIFEQCNT
051999,000416: 13,2772 51500 INDEX DIFEQCNT
052000,000417: 13,2773 31626 CA RRECTLEM
052001,000418: 13,2774 51500 INDEX DIFEQCNT
052002,000419: 13,2775 55502 TS RRECT
052003,000420: 13,2776 11500 CCS DIFEQCNT
052004,000421: 13,2777 12771 TCF MOVEPLEM +1
052005,000422: 13,3000 06060 TC DANZIG
052006,000423:
052007,000424:
052008,000425: 13,3001 77201 USEPIOS SETPD VLOAD
052009,000426: 13,3002 00001 0
052010,000427: 13,3003 02023 RLS
052011,000428: 13,3004 41525 PDDL PUSH
052012,000429: 13,3005 00041 TDEC1
052013,000430: 13,3006 15517 STODL TET
052014,000431: 13,3007 27736 5/8
052015,000432: 13,3010 77624 CALL
|
|
Page 1208
|
052017,000434: 13,3011 51504 RP-TO-R
052018,000435: 13,3012 25535 STOVL RCV
052019,000436: 13,3013 22267 ZUNIT
052020,000437: 13,3014 14001 STODL 0D
052021,000438: 13,3015 01517 TET
052022,000439: 13,3016 14007 STODL 6D
052023,000440: 13,3017 27736 5/8
052024,000441: 13,3020 45014 SET CALL # NEEDED FOR SETTING X1 ON EXIT
052025,000442: 13,3021 00063 MOONFLAG
052026,000443: 13,3022 51504 RP-TO-R
052027,000444: 13,3023 74235 VXV VXSC
052028,000445: 13,3024 01535 RCV
052029,000446: 13,3025 26001 OMEGMOON
052030,000447: 13,3026 25543 STOVL VCV
052031,000448: 13,3027 22275 ZEROVEC
052032,000449: 13,3030 01521 STORE TDELTAV
052033,000450: 13,3031 67174 AXT,2 SXA,2
052034,000451: 13,3032 00002 2
052035,000452: 13,3033 02030 PBODY
052036,000453: 13,3034 35527 STCALL TNUV
052037,000454: 13,3035 27157 A-PCHK
052038,000455: 13,3036 33042 SETBANK CAF INTBANK
052039,000456: 13,3037 54006 TS BBANK
052040,000457: 13,3040 33457 CAF FORTYONE
052041,000458: 13,3041 00002 TC Q
052042,000459: 13,3042 E3,1554 EBANK= RRECTCSM
052043,000460: 13,3042 26063 INTBANK BBCON INTEGRV
052044,000461:
052045,000462:
052046,000463: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
052047,000464: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
052048,000465:
052049,000466: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
052050,000467: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
052051,000468: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
052052,000469: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
052053,000470: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
052054,000471: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
052055,000472:
052056,000473: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
052057,000474: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
052058,000475: # CSMPREC CSMCONIC LEMPREC LEMCONIC
052059,000476: # VINTFLAG SET SET CLEAR CLEAR
052060,000477: # INTYPFLG CLEAR SET CLEAR SET
052061,000478: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
052062,000479:
052063,000480:
052064,000481: # CALLING SEQUENCE
052065,000482: # L-X STORE TDEC1
052066,000483: # L CALL (STCALL TDEC1)
|
|
Page 1209
|
052068,000485: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
052069,000486:
052070,000487: # NORMAL EXIT TO L+2
052071,000488:
052072,000489:
052073,000490: # SUBROUTINES CALLED
052074,000491: # INTEGRV1
052075,000492: # PRECOUT FOR CSMPREC AND LEMPREC
052076,000493: # CONICOUT FOR CSMCONIC AND LEMCONIC
052077,000494:
052078,000495:
052079,000496: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
052080,000497: # INPUT
052081,000498: # TDEC1 TIME TO INTEGRATE TO . CSECS B-28
052082,000499: 13,3043 45020 CSMPREC STQ CALL
052083,000500: 13,3044 00046 X1
052084,000501: 13,3045 27412 INTSTALL
052085,000502: 13,3046 43130 SXA,1 SET
052086,000503: 13,3047 02102 IRETURN
052087,000504: 13,3050 01474 VINTFLAG
052088,000505:
052089,000506: 13,3051 43014 IFLAGP SET CLEAR
052090,000507: 13,3052 01467 PRECIFLG
052091,000508: 13,3053 01676 DIM0FLAG
052092,000509: 13,3054 77614 CLRGO
052093,000510: 13,3055 01633 INTYPFLG
052094,000511: 13,3056 27136 INTEGRV1
052095,000512: 13,3057 45020 LEMPREC STQ CALL
052096,000513: 13,3060 00046 X1
052097,000514: 13,3061 27412 INTSTALL
052098,000515: 13,3062 43130 SXA,1 CLRGO
052099,000516: 13,3063 02102 IRETURN
052100,000517: 13,3064 01634 VINTFLAG
052101,000518: 13,3065 27051 IFLAGP
052102,000519:
052103,000520: 13,3066 45020 CSMCONIC STQ CALL
052104,000521: 13,3067 00046 X1
052105,000522: 13,3070 27412 INTSTALL
052106,000523: 13,3071 43130 SXA,1 SET
052107,000524: 13,3072 02102 IRETURN
052108,000525: 13,3073 01474 VINTFLAG
052109,000526: 13,3074 43014 IFLAGC CLEAR SETGO
052110,000527: 13,3075 01676 DIM0FLAG
052111,000528: 13,3076 01433 INTYPFLG
052112,000529: 13,3077 27136 INTEGRV1
052113,000530: 13,3100 45020 LEMCONIC STQ CALL
052114,000531: 13,3101 00046 X1
052115,000532: 13,3102 27412 INTSTALL
052116,000533: 13,3103 43130 SXA,1 CLRGO
052117,000534: 13,3104 02102 IRETURN
|
|
Page 1210
|
052119,000536: 13,3105 01634 VINTFLAG
052120,000537: 13,3106 27074 IFLAGC
052121,000538:
052122,000539: 13,3107 66214 INTEGRVS SET SSP
052123,000540: 13,3110 01467 PRECIFLG
052124,000541: 13,3111 02031 PBODY
052125,000542: 13,3112 00000 0
052126,000543: 13,3113 66214 BOF SSP
052127,000544: 13,3114 00343 MOONFLAG
052128,000545: 13,3115 27120 +3
052129,000546: 13,3116 02031 PBODY
052130,000547: 13,3117 00002 2
052131,000548: 13,3120 77220 STQ VLOAD
052132,000549: 13,3121 02102 IRETURN
052133,000550: 13,3122 22275 ZEROVEC
052134,000551: 13,3123 01521 STORE TDELTAV
052135,000552: 13,3124 35527 STCALL TNUV
052136,000553: 13,3125 23345 RECTIFY
052137,000554: 13,3126 43014 CLEAR SET
052138,000555: 13,3127 01676 DIM0FLAG
052139,000556: 13,3130 04062 NEWIFLG
052140,000557: 13,3131 77614 SETGO
052141,000558: 13,3132 04020 RPQFLAG
052142,000559: 13,3133 27150 ALOADED
052143,000560: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER ,
052144,000561: # NORMALLY THE NAVIGATION PROGRAM ,TO SET THE INTEG. FLAGS. THE ROUTINE
052145,000562: # IS ENTERED AT INTEGRV1 BY CSMPREC ET.AL. AND AT ALOADED BY INTEGRVS.
052146,000563: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
052147,000564: # PROGRAM FOR PRECISION OR CONIC
052148,000565:
052149,000566: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
052150,000567: # SETTING ANY FLAGS.
052151,000568: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
052152,000569: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
052153,000570: # INTYPFLG
052154,000571: # DIM0FLAG
052155,000572: # D6OR9FLG
052156,000573: # CALLING SEQUENCE
052157,000574: # L-X CALL
052158,000575: # L-Y INTSTALL
052159,000576: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
052160,000577: # AND DIM0FLAG IS CLEAR.
052161,000578: # L CALL
052162,000579: # L+1 INTEGRV
052163,000580: # INITIALIZATION
052164,000581: # FLAGS AS ABOVE
052165,000582: # STORE TIME TO INTEGRATE TO IN TDEC1
052166,000583: # OUTPUT
052167,000584: # RATT AS
052168,000585: # VATT DEFINED
|
|
Page 1211
|
052170,000587: # TAT BEFORE
052171,000588:
052172,000589:
052173,000590: 13,3134 77620 INTEGRV STQ
052174,000591: 13,3135 02102 IRETURN
052175,000592: 13,3136 43014 INTEGRV1 SET SET
052176,000593: 13,3137 04060 RPQFLAG
052177,000594: 13,3140 04062 NEWIFLG
052178,000595: 13,3141 77731 INTEGRV2 SSP
052179,000596: 13,3142 00053 QPRET
052180,000597: 13,3143 27150 ALOADED
052181,000598: 13,3144 52014 BON GOTO
052182,000599: 13,3145 01714 VINTFLAG
052183,000600: 13,3146 26705 PTOACSM
052184,000601: 13,3147 26760 PTOALEM
052185,000602: 13,3150 77745 ALOADED DLOAD
052186,000603: 13,3151 00041 TDEC1
052187,000604: 13,3152 01116 STORE TDEC
052188,000605: 13,3153 52014 BOFF GOTO
052189,000606: 13,3154 01753 INTYPFLG
052190,000607: 13,3155 27255 TESTLOOP
052191,000608: 13,3156 27241 RVCON
052192,000609: 13,3157 77414 A-PCHK BOFCLR EXIT
052193,000610: 13,3160 01652 STATEFLG
052194,000611: 13,3161 27200 RECTOUT
052195,000612: 13,3162 05353 TC PHASCHNG
052196,000613: 13,3163 04022 OCT 04022
052197,000614: 13,3164 05504 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
052198,000615: 13,3165 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
052199,000616: 13,3166 06036 TC INTPRET
052200,000617: 13,3167 77731 SSP
052201,000618: 13,3170 00053 QPRET
052202,000619: 13,3171 27176 PHEXIT
052203,000620: 13,3172 52014 BON GOTO
052204,000621: 13,3173 01714 VINTFLAG
052205,000622: 13,3174 26661 ATOPCSM
052206,000623: 13,3175 26734 ATOPLEM
052207,000624: 13,3176 77624 PHEXIT CALL
052208,000625: 13,3177 11165 GRP2PC
052209,000626: 13,3200 45001 RECTOUT SETPD CALL
052210,000627: 13,3201 00001 0
052211,000628: 13,3202 23345 RECTIFY
052212,000629: 13,3203 53775 VLOAD VSL*
052213,000630: 13,3204 01503 RRECT
052214,000631: 13,3205 57576 0,2
052215,000632: 13,3206 53715 PDVL VSL* # RATT TO PD0
052216,000633: 13,3207 01511 VRECT
052217,000634: 13,3210 57576 0,2
052218,000635: 13,3211 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
052219,000636: 13,3212 01517 TET
|
|
Page 1212
|
052221,000638: 13,3213 01503 RRECT
052222,000639: 13,3214 64715 PDVL PDDL*
052223,000640: 13,3215 01511 VRECT
052224,000641: 13,3216 51770 MUEARTH,2
052225,000642: 13,3217 76006 PUSH AXT,1
052226,000643: 13,3220 77765 DEC -10 B-14
052227,000644: 13,3221 76014 BON AXT,1
052228,000645: 13,3222 00303 MOONFLAG
052229,000646: 13,3223 27225 +2
052230,000647: 13,3224 77775 DEC -2 B-14
052231,000648: 13,3225 40001 INTEXIT SETPD BOV
052232,000649: 13,3226 00001 0
052233,000650: 13,3227 27230 +1
052234,000651: 13,3230 43014 CLEAR CLEAR
052235,000652: 13,3231 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
052236,000653: 13,3232 01667 PRECIFLG
052237,000654: 13,3233 77535 SLOAD EXIT
052238,000655: 13,3234 02103 IRETURN
052239,000656: 13,3235 30154 CA MPAC
052240,000657: 13,3236 50120 INDEX FIXLOC
052241,000658: 13,3237 54052 TS QPRET
052242,000659: 13,3240 03427 TC INTWAKE
052243,000660: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
052244,000661: # VELOCITY FOR THE INTERVAL (TET-TDEC)
052245,000662:
052246,000663: 13,3241 45345 RVCON DLOAD DSU
052247,000664: 13,3242 01116 TDEC
052248,000665: 13,3243 01517 TET
052249,000666: 13,3244 36074 STCALL TAU.
052250,000667: 13,3245 23345 RECTIFY
052251,000668: 13,3246 77624 CALL
052252,000669: 13,3247 22311 KEPPREP
052253,000670: 13,3250 43345 DLOAD DAD
052254,000671: 13,3251 01551 TC
052255,000672: 13,3252 01517 TET
052256,000673: 13,3253 35517 STCALL TET
052257,000674: 13,3254 27200 RECTOUT
052258,000675:
|
|
Page 1213
|
052260,000677: # TESTLOOP
052261,000678:
052262,000679: 13,3255 43014 TESTLOOP BOF CLRGO
052263,000680: 13,3256 04752 QUITFLAG
052264,000681: 13,3257 27262 +3
052265,000682: 13,3260 01632 STATEFLG
052266,000683: 13,3261 27225 INTEXIT # STOP INTEGRATION
052267,000684: 13,3262 73001 +3 SETPD LXA,2
052268,000685: 13,3263 00013 10D
052269,000686: 13,3264 02030 PBODY
052270,000687: 13,3265 51575 VLOAD ABVAL
052271,000688: 13,3266 01535 RCV
052272,000689: 13,3267 43006 PUSH CLEAR # RC TO 10D
052273,000690: 13,3270 00262 MIDFLAG
052274,000691: 13,3271 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
052275,000692: 13,3272 55467 RME,2
052276,000693: 13,3273 27276 +3
052277,000694: 13,3274 77614 SET
052278,000695: 13,3275 00062 MIDFLAG
052279,000696: 13,3276 41345 NORFINAL DLOAD DMP
052280,000697: 13,3277 00013 10D
052281,000698: 13,3300 00043 34D
052282,000699: 13,3301 55762 SR1R DDV*
052283,000700: 13,3302 51770 MUEARTH,2
052284,000701: 13,3303 41366 SQRT DMP
052285,000702: 13,3304 23676 .3D
052286,000703: 13,3305 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
052287,000704: 13,3306 54345 DLOAD SL
052288,000705: 13,3307 00155 MPAC
052289,000706: 13,3310 20220 15D # OF 128 CSECS.
052290,000707: 13,3311 40006 PUSH BOV
052291,000708: 13,3312 27337 MAXDT
052292,000709: 13,3313 50021 BDSU BMN
052293,000710: 13,3314 27411 DT/2MAX
052294,000711: 13,3315 27337 MAXDT
052295,000712: 13,3316 45345 DT/2COMP DLOAD DSU
052296,000713: 13,3317 01116 TDEC
052297,000714: 13,3320 01517 TET
052298,000715: 13,3321 54234 RTB SL
052299,000716: 13,3322 21516 SGNAGREE
052300,000717: 13,3323 20211 8D
052301,000718: 13,3324 02076 STORE DT/2 # B-19
052302,000719: 13,3325 51400 BOV ABS
052303,000720: 13,3326 27343 GETMAXDT
052304,000721: 13,3327 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
052305,000722: 13,3330 00015 12D
052306,000723: 13,3331 27347 P00HCHK
052307,000724: 13,3332 75345 USEMAXDT DLOAD SIGN
052308,000725: 13,3333 00015 12D
052309,000726: 13,3334 02076 DT/2
|
|
Page 1214
|
052311,000728: 13,3335 36076 STCALL DT/2
052312,000729: 13,3336 27347 P00HCHK
052313,000730: 13,3337 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
052314,000731: 13,3340 27411 DT/2MAX
052315,000732: 13,3341 77650 GOTO
052316,000733: 13,3342 27316 DT/2COMP
052317,000734: 13,3343 77634 GETMAXDT RTB
052318,000735: 13,3344 21664 SIGNMPAC
052319,000736: 13,3345 36076 STCALL DT/2
052320,000737: 13,3346 27332 USEMAXDT
052321,000738: 13,3347 51545 P00HCHK DLOAD ABS
052322,000739: 13,3350 02076 DT/2
052323,000740: 13,3351 50025 DSU BMN
052324,000741: 13,3352 27407 DT/2MIN
052325,000742: 13,3353 27157 A-PCHK
052326,000743: 13,3354 46135 SLOAD BHIZ
052327,000744: 13,3355 01012 MODREG
052328,000745: 13,3356 27361 +3
052329,000746: 13,3357 77650 GOTO
052330,000747: 13,3360 23156 TIMESTEP
052331,000748: 13,3361 77614 BON # WAS THIS CALL VIA CSM(LEM)PREC
052332,000749: 13,3362 01707 PRECIFLG
052333,000750: 13,3363 23156 TIMESTEP # YES
052334,000751: 13,3364 45345 DLOAD DSU
052335,000752: 13,3365 02076 DT/2
052336,000753: 13,3366 00015 12D
052337,000754: 13,3367 43040 BMN BOFCLR
052338,000755: 13,3370 27157 A-PCHK
052339,000756: 13,3371 04242 NEWIFLG
052340,000757: 13,3372 23156 TIMESTEP
052341,000758: 13,3373 45345 DLOAD DSU
052342,000759: 13,3374 01116 TDEC
052343,000760: 13,3375 01517 TET
052344,000761: 13,3376 77640 BMN # NO BACKWARD INTEGRATION
052345,000762: 13,3377 27225 INTEXIT
052346,000763: 13,3400 40525 PDDL SR4
052347,000764: 13,3401 02076 DT/2 # IS 4(DT) LS (TDEC - TET)
052348,000765: 13,3402 44322 SR2R BDSU # NO
052349,000766: 13,3403 52040 BMN GOTO
052350,000767: 13,3404 27225 INTEXIT
052351,000768: 13,3405 23156 TIMESTEP
052352,000769: 13,3406 00000 01400 DT/2MIN 2DEC 3 B-20
052353,000770:
052354,000771: 13,3410 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
052355,000772:
052356,000773: 13,3412 77776 INTSTALL EXIT
052357,000774: 13,3413 34755 CAF ZERO
052358,000775: 13,3414 54001 ALLSTALL TS L
052359,000776: 13,3415 30106 CA RASFLAG
052360,000777: 13,3416 50001 INDEX L
|
|
Page 1215
|
052362,000779: 13,3417 73510 MASK INTBITAB # IS THIS STALL AREA FREE
052363,000780: 13,3420 00006 EXTEND
052364,000781: 13,3421 13466 BZF OKTOGRAB # YES
052365,000782: 13,3422 50001 INDEX L
052366,000783: 13,3423 33505 CAF WAKESTAL
052367,000784: 13,3424 05133 TC JOBSLEEP
052368,000785: 13,3425 77776 INTWAKE0 EXIT
052369,000786: 13,3426 13447 TCF INTWAKE1
052370,000787:
052371,000788: 13,3427 40106 INTWAKE CS RASFLAG # IS THIS INTSTALLED ROUTINE TO BE
052372,000789: 13,3430 74745 MASK REINTBIT # RESTARTED
052373,000790: 13,3431 10000 CCS A
052374,000791: 13,3432 03447 TC INTWAKE1 # NO
052375,000792:
052376,000793: 13,3433 50120 INDEX FIXLOC
052377,000794: 13,3434 30052 CA QPRET
052378,000795: 13,3435 55055 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
052379,000796:
052380,000797: 13,3436 05353 TC PHASCHNG
052381,000798: 13,3437 04022 OCT 04022
052382,000799:
052383,000800: 13,3440 31055 CA TBASE2
052384,000801: 13,3441 50120 INDEX FIXLOC
052385,000802: 13,3442 54052 TS QPRET
052386,000803:
052387,000804: 13,3443 34745 CAF REINTBIT
052388,000805: 13,3444 70106 MASK RASFLAG
052389,000806: 13,3445 00006 EXTEND
052390,000807: 13,3446 13471 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
052391,000808:
052392,000809: 13,3447 34755 INTWAKE1 CAF ZERO
052393,000810: 13,3450 54154 WAKE TS STALTEM # INDEX OF ANY STALL USER
052394,000811: 13,3451 50154 WAKE1 INDEX STALTEM
052395,000812: 13,3452 33505 CAF WAKESTAL
052396,000813: 13,3453 00004 INHINT
052397,000814: 13,3454 05137 TC JOBWAKE
052398,000815: 13,3455 10064 CCS LOCCTR
052399,000816: 13,3456 13451 TCF WAKE1 # MAY BE MORE TO WAKE UP
052400,000817: 13,3457 00051 FORTYONE DEC 41 B-14
052401,000818: 13,3460 50154 INDEX STALTEM
052402,000819: 13,3461 43510 CS INTBITAB
052403,000820: 13,3462 70106 MASK RASFLAG
052404,000821: 13,3463 54106 TS RASFLAG # RELEASE STALL AREA
052405,000822: 13,3464 00003 RELINT
052406,000823: 13,3465 13471 TCF GOBAC
052407,000824: 13,3466 50001 OKTOGRAB INDEX L # NO, WAIT UNTIL AVAILABLE
052408,000825: 13,3467 34736 CAF INTFLBIT
052409,000826: 13,3470 26106 ADS RASFLAG
052410,000827: 13,3471 06036 GOBAC TC INTPRET
052411,000828: 13,3472 77616 RVQ
|
|
Page 1216
|
052413,000830: 13,3473 77776 ERASTAL1 EXIT
052414,000831: 13,3474 34753 CAF ONE
052415,000832: 13,3475 13414 TCF ALLSTALL
052416,000833: 13,3476 77776 ERASTAL2 EXIT
052417,000834: 13,3477 34752 CAF TWO
052418,000835: 13,3500 13414 TCF ALLSTALL
052419,000836: 13,3501 34753 ERASWAK1 CAF ONE
052420,000837: 13,3502 13450 TCF WAKE
052421,000838: 13,3503 34752 ERASWAK2 CAF TWO
052422,000839: 13,3504 13450 TCF WAKE
052423,000840: 13,3505 27413 WAKESTAL CADR INTSTALL +1
052424,000841: 13,3506 27474 CADR ERASTAL1 +1
052425,000842: 13,3507 27477 CADR ERASTAL2 +1
052426,000843: 13,3510 0154 STALTEM EQUALS MPAC
052427,000844: 13,3510 20100 INTBITAB OCT 20100
052428,000845: 13,3511 10040 OCT 10040
052429,000846: 13,3512 04020 OCT 04020
052430,000847:
|
|
Page 1217
|
052432,000849: # AVETOMID
052433,000850:
052434,000851: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
052435,000852: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
052436,000853: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
052437,000854:
052438,000855: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
052439,000856: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
052440,000857:
052441,000858: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
052442,000859:
052443,000860: # FINALLY TRKMKCNT IS ZEROED
052444,000861:
052445,000862: 13,2000 SETLOC INTINIT
052446,000863: 13,2000 BANK
052447,000864:
052448,000865: 13,3513 COUNT* $$/INTIN
052449,000866: 13,3513 43020 AVETOMID STQ BON
052450,000867: 13,3514 02772 EGRESS
052451,000868: 13,3515 02716 RENDWFLG
052452,000869: 13,3516 27562 INT/W # W-MATRIX VALID ,GO INTEGRATE IT
052453,000870: 13,3517 77614 BON
052454,000871: 13,3520 01711 ORBWFLAG
052455,000872: 13,3521 27562 INT/W # W-MATRIX VALID ,GO INTEGRATE IT
052456,000873:
052457,000874: 13,3522 45145 OTHERS DLOAD CALL # GET SET FOR OTHER VEHICLE INTEGRATION
052458,000875: 13,3523 01235 PIPTIME # DESIRED TIME
052459,000876: 13,3524 27412 INTSTALL
052460,000877: 13,3525 45014 SET CALL
052461,000878: 13,3526 01474 VINTFLAG # CM
052462,000879: 13,3527 26644 SETIFLGS # SETS UP NONE W-MAT. PERMANENT INTEG.
052463,000880: 13,3530 34041 STCALL TDEC1
052464,000881: 13,3531 27134 INTEGRV
052465,000882:
052466,000883: 13,3532 45174 AXT,2 CALL # NOW MOVE PROPERLY SCALE RN,UN AS WELL AS
052467,000884: 13,3533 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
052468,000885: 13,3534 27412 INTSTALL
052469,000886: 13,3535 77014 BON AXT,2
052470,000887: 13,3536 04304 MOONTHIS
052471,000888: 13,3537 27541 +2
052472,000889: 13,3540 00000 0
052473,000890: 13,3541 53775 VLOAD VSR*
052474,000891: 13,3542 01221 RN
052475,000892: 13,3543 57176 0,2
052476,000893: 13,3544 01503 STORE RRECT
052477,000894: 13,3545 15535 STODL RCV
052478,000895: 13,3546 01235 PIPTIME
052479,000896: 13,3547 25517 STOVL TET
052480,000897: 13,3550 01227 VN
|
|
Page 1218
|
052482,000899: 13,3551 45057 VSR* CALL
052483,000900: 13,3552 57176 0,2
052484,000901: 13,3553 23361 MINIRECT # FINISH SETTING UP STATE VECTOR
052485,000902: 13,3554 66234 RTB SSP
052486,000903: 13,3555 26747 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
052487,000904: 13,3556 03461 TRKMKCNT
052488,000905: 13,3557 00000 0
052489,000906: 13,3560 77650 GOTO
052490,000907: 13,3561 47130 FAZAB5
052491,000908:
052492,000909: 13,3562 45145 INT/W DLOAD CALL
052493,000910: 13,3563 01235 PIPTIME # INTEGRATE W THRU BURN
052494,000911: 13,3564 27412 INTSTALL
052495,000912: 13,3565 43014 SET SET
052496,000913: 13,3566 01476 DIM0FLAG # DO W-MATRIX
052497,000914: 13,3567 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
052498,000915: 13,3570 43014 SET CLEAR
052499,000916: 13,3571 01475 D6OR9FLG # 9X9 FOR LM
052500,000917: 13,3572 01674 VINTFLAG # LM
052501,000918: 13,3573 34041 STCALL TDEC1
052502,000919: 13,3574 27134 INTEGRV
052503,000920: 13,3575 77650 GOTO
052504,000921: 13,3576 27522 OTHERS # NOW GO DO THE OTHER VEHICLE
052505,000922:
|
|
Page 1219
|
052507,000924: # MIDTOAV1
052508,000925:
052509,000926: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
052510,000927: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
052511,000928: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
052512,000929: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
052513,000930: # IS DONE TO THE CURRENT TIME.
052514,000931: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
052515,000932:
052516,000933: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
052517,000934: # TO THE RETURN ADDRESS
052518,000935:
052519,000936: # IN EITHER CASE , BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
052520,000937: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
052521,000938: # TION TIME AND MPAC IS SET TO THE DELTA TIME---
052522,000939: # TAT MINUS CURRENT TIME.
052523,000940:
052524,000941:
052525,000942: # MIDTOAV2
052526,000943:
052527,000944: # THIS ROUTINE INTEGRATES THIS VEHICLES STATE VECTOR TO THE CURRENT TIME.
052528,000945: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
052529,000946: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
052530,000947:
052531,000948: 13,3577 E7,1743 EBANK= IRETURN1
052532,000949: 13,3577 43020 MIDTOAV2 STQ CLRGO # INTEGRATE TO PRESENT TIME PLUS TIMEDELT
052533,000950: 13,3600 03743 IRETURN1
052534,000951: 13,3601 04634 MID1FLAG
052535,000952: 13,3602 27616 ENTMID2
052536,000953:
052537,000954: 13,3603 43020 MIDTOAV1 STQ SET # INTEGRATE TO TDEC1
052538,000955: 13,3604 03743 IRETURN1
052539,000956: 13,3605 04474 MID1FLAG
052540,000957: 13,3606 43234 RTB DAD # INITIAL CHECK, IS TDEC1 IN THE FUTURE
052541,000958: 13,3607 21462 LOADTIME
052542,000959: 13,3610 27720 TIMEDELT
052543,000960: 13,3611 51021 BDSU BPL
052544,000961: 13,3612 00041 TDEC1
052545,000962: 13,3613 27622 ENTMID1 # Y5S
052546,000963: 13,3614 77624 CALL
052547,000964: 13,3615 27706 NOTIME # NO, SET ALARM, SWITCH TO MIDTOAV2
052548,000965:
052549,000966: 13,3616 43234 ENTMID2 RTB DAD
052550,000967: 13,3617 21462 LOADTIME
052551,000968: 13,3620 27720 TIMEDELT
052552,000969: 13,3621 00041 STORE TDEC1
052553,000970:
052554,000971: 13,3622 77624 ENTMID1 CALL
052555,000972: 13,3623 27412 INTSTALL
052556,000973: 13,3624 45014 CLEAR CALL
|
|
Page 1220
|
052558,000975: 13,3625 01676 DIM0FLAG # NO W-MATRIX
052559,000976: 13,3626 26066 THISVINT
052560,000977: 13,3627 43014 CLEAR SET
052561,000978: 13,3630 01673 INTYPFLG
052562,000979: 13,3631 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
052563,000980: 13,3632 77624 CALL
052564,000981: 13,3633 27134 INTEGRV # GO INTEGRATE
052565,000982: 13,3634 77214 CLEAR VLOAD
052566,000983: 13,3635 04675 MIDAVFLG
052567,000984: 13,3636 00001 RATT
052568,000985: 13,3637 27543 STOVL RN1
052569,000986: 13,3640 00007 VATT
052570,000987: 13,3641 17551 STODL VN1
052571,000988: 13,3642 00015 TAT
052572,000989: 13,3643 03557 STORE PIPTIME1
052573,000990: 13,3644 66134 SXA,2 SXA,1
052574,000991: 13,3645 03376 RTX2
052575,000992: 13,3646 03375 RTX1
052576,000993: 13,3647 77776 EXIT
052577,000994:
052578,000995: 13,3650 00004 INHINT
052579,000996: 13,3651 00006 EXTEND
052580,000997: 13,3652 40025 DCS TIME2
052581,000998: 13,3653 20155 DAS MPAC
052582,000999: 13,3654 07256 TC TPAGREE
052583,001000:
052584,001001: 13,3655 31743 CA IRETURN1
052585,001002: 13,3656 04640 TC BANKJUMP
052586,001003: 13,3657 47014 CKMID2 BOF RTB
052587,001004: 13,3660 04754 MID1FLAG
052588,001005: 13,3661 27676 MID2
052589,001006: 13,3662 21462 LOADTIME
052590,001007: 13,3663 44215 DAD BDSU
052591,001008: 13,3664 27720 TIMEDELT
052592,001009: 13,3665 01116 TDEC
052593,001010: 13,3666 45044 BPL CALL
052594,001011: 13,3667 27255 TESTLOOP # YES
052595,001012: 13,3670 27706 NOTIME
052596,001013:
052597,001014: 13,3671 43234 TIMEINC RTB DAD
052598,001015: 13,3672 21462 LOADTIME
052599,001016: 13,3673 27720 TIMEDELT
052600,001017: 13,3674 35116 STCALL TDEC
052601,001018: 13,3675 27255 TESTLOOP
052602,001019:
052603,001020: 13,3676 45345 MID2 DLOAD DSU
052604,001021: 13,3677 01116 TDEC
052605,001022: 13,3700 01517 TET
052606,001023: 13,3701 45246 ABS DSU
052607,001024: 13,3702 27716 3CSECS
052608,001025:
|
|
Page 1221
|
052610,001027: 13,3703 52040 BMN GOTO
052611,001028: 13,3704 27157 A-PCHK
052612,001029: 13,3705 27671 TIMEINC
052613,001030:
052614,001031: 13,3706 77414 NOTIME CLEAR EXIT # TOO LATE
052615,001032: 13,3707 04674 MID1FLAG
052616,001033: 13,3710 25743 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
052617,001034: 13,3711 05567 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
052618,001035: 13,3712 01703 OCT 1703 # TIG WILL BE SLIPPED...
052619,001036: 13,3713 06036 TC INTPRET
052620,001037: 13,3714 77616 RVQ
052621,001038:
052622,001039: 13,3715 00000 00003 3CSECS 2DEC 3 B-28
052623,001040:
|
|
Reconstruction: The constant defined immediately following this annotation
read TIMEDELT 2DEC 1000 Luminary 69. But has been changed in Luminary 69/2 due
to incorporation of the R-2 Lunar Potential Model — see
LUMINARY Memo #75.
The constant definition has been taken without change from Luminary 99/1, which
also incorporates the R-2 model. The change to TIMEDELT is described
LUMINARY Memo #78",
which indicates that
the implementation of the R-2 model was dictated by Program Change Notice
(PCN) 761.1, of which we don't have a copy of the full text, but whose title
is "R-2 Lunar Potential Model". The memo goes on to state that
"As a further result of this PCN the value of TIMEDELT in R41 was changed from
15 seconds to 20 seconds ...". Presumably, the "15 seconds" mentioned in the
memo is the value used in Luminary 94, and is therefore not a contradiction of
the use of 10 seconds instead in Luminary 69.
A point which at first may confuse is that PCN 761.1 was incorporated in
Luminary 95. So why does the change appear in Luminary 69/2? But the
confusion is only momentary after a little thought: Luminary 95 derives from Luminary 69,
and Luminary 69/2 derives from Luminary 69 as well. So what? Luminary 69/2
does not derive from Luminary 95, or vice-versa. We don't know which of them
came first, and in the present context don't care.
|
052646,001063: 13,3717 00000 03720 TIMEDELT 2DEC 2000 B-28
052647,001064:
052648,001065: 27,3332 BANK 27
052649,001066: 04,2000 SETLOC UPDATE2
052650,001067: 04,2000 BANK
052651,001068: 04,3106 1167 EBANK= INTWAKUQ
052652,001069:
052653,001070: 04,3106 COUNT* $$/INTIN
052654,001071:
052655,001072: 04,3106 1167 INTWAKUQ = INTWAK1Q # TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
052656,001073:
052657,001074: 04,3106 00003 INTWAKEU RELINT
052658,001075: 04,3107 00006 EXTEND
052659,001076: 04,3110 23167 QXCH INTWAKUQ # SAVE Q FOR RETURN
052660,001077:
052661,001078: 04,3111 06036 TC INTPRET
052662,001079:
052663,001080: 04,3112 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
052664,001081: 04,3113 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
052665,001082: 04,3114 11153 INTWAKUP
052666,001083:
052667,001084: 04,3115 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
052668,001085: 04,3116 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
052669,001086: 04,3117 25535 STOVL RCV
052670,001087: 04,3120 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
052671,001088: 04,3121 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
052672,001089: 04,3122 23362 RECTIFY +13D # TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
052673,001090: 04,3123 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
052674,001091: 04,3124 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
052675,001092: 04,3125 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
052676,001093: 04,3126 11164 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
052677,001094: 04,3127 11134 INTWAKEM # SPHERE OF INFLUENCE.........
052678,001095: 04,3130 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
052679,001096: 04,3131 00000 DEC 0 B-14
052680,001097: 04,3132 00223 MOONFLAG
|
|
Page 1222
|
052682,001099: 04,3133 11137 INTWAKEC
052683,001100: 04,3134 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
052684,001101: 04,3135 00002 DEC 2 B-14
052685,001102: 04,3136 00063 MOONFLAG
052686,001103: 04,3137 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
052687,001104: # MOONFLAG SET (OR CLEARED).
052688,001105: 04,3140 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
052689,001106: 04,3141 11147 INTWAKLM # STATE VECTOR UPDATE......
052690,001107: 04,3142 77624 CALL # UPDATE CSM STATE VECTOR
052691,001108: 04,3143 26661 ATOPCSM
052692,001109:
052693,001110: 04,3144 52014 CLEAR GOTO
052694,001111: 04,3145 01671 ORBWFLAG
052695,001112: 04,3146 11151 INTWAKEX
052696,001113:
052697,001114: 04,3147 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
052698,001115: 04,3150 26734 ATOPLEM
052699,001116:
052700,001117: 04,3151 77614 INTWAKEX CLEAR
052701,001118: 04,3152 02676 RENDWFLG
052702,001119:
052703,001120: 04,3153 45131 INTWAKUP SSP CALL # REMOVE :UPDATE STATE VECTOR INDICATOR:
052704,001121: 04,3154 01502 UPSVFLAG
052705,001122: 04,3155 00000 0
052706,001123: 04,3156 27425 INTWAKE0 # RELEASE :GRAB: OF ORBIT INTEG
052707,001124: 04,3157 77776 EXIT
052708,001125:
052709,001126: 04,3160 05353 TC PHASCHNG
052710,001127: 04,3161 04026 OCT 04026
052711,001128: 04,3162 01167 TC INTWAKUQ
052712,001129:
052713,001130: 04,3163 00002 UPMNSVCD OCT 2
052714,001131: 04,3164 00000 OCT 0
052715,001132:
052716,001133:
052717,001134: 04,3165 77420 GRP2PC STQ EXIT
052718,001135: 04,3166 02711 GRP2SVQ
052719,001136: 04,3167 05353 TC PHASCHNG
052720,001137: 04,3170 04022 OCT 04022
052721,001138: 04,3171 06036 TC INTPRET
052722,001139: 04,3172 77650 GOTO
052723,001140: 04,3173 02711 GRP2SVQ
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc