Source Code
|
These source-code files are part of a reconstructed copy of Luminary 97, the
second release of the Apollo 11 Lunar Module (LM) Apollo Guidance Computer
(AGC) software. It was created to fix two incorrect ephemeris constants in
Luminary 96, as described by anomaly report LNY-59.
The reconstruction began with source code of Luminary 99 revision 1 previously
transcribed from a digitized copy of that program. The code was then updated
by undoing changes described in original Luminary memos 83 and 85, using asterisks
indicating changed lines in the listing as a guide. The reconstruction was
verified by matching memory-bank checksums to those listed in drawing 2021152D.
Note that page numbers in the reconstructed code match those on the Luminary 099
revision 001 printout, although the added code would likely have changed page
numbers for a real Luminary 97 listing.
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.
|
050583,000002: ## Copyright: Public domain.
050584,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
050585,000004: ## Purpose: A section of Luminary revision 97.
050586,000005: ## It is part of the reconstructed source code for the
050587,000006: ## second release of the flight software for the Lunar
050588,000007: ## Module's (LM) Apollo Guidance Computer (AGC) for Apollo 11.
050589,000008: ## It was created to fix two incorrect ephemeris constants in
050590,000009: ## Luminary 96, as described by anomaly report LNY-59.
050591,000010: ## The code has been recreated from a copy of Luminary 99
050592,000011: ## revision 001, using asterisks indicating changed lines in
050593,000012: ## the listing and Luminary Memos #83 and #85, which list
050594,000013: ## changes between Luminary 97 and 98, and 98 and 99. The
050595,000014: ## code has been adapted such that the resulting bugger words
050596,000015: ## exactly match those specified for Luminary 97 in NASA drawing
050597,000016: ## 2021152D, which gives relatively high confidence that the
050598,000017: ## reconstruction is correct.
050599,000018: ## Reference: pp. 1205-1226
050600,000019: ## Assembler: yaYUL
050601,000020: ## Contact: Ron Burkey <info@sandroid.org>.
050602,000021: ## Website: www.ibiblio.org/apollo/index.html
050603,000022: ## Mod history: 2019-07-28 MAS Created from Luminary 99.
050604,000023:
|
|
Page 1205
|
050606,000025: # 1.0 INTRODUCTION
050607,000026: # ----------------
050608,000027:
050609,000028: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
050610,000029: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
050611,000030: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
050612,000031: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
050613,000032: # SIDE THE LUNAR SPHERE OF INFLUENCE.
050614,000033:
050615,000034: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
050616,000035: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
050617,000036: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
050618,000037: # CALL TC INTSTALL.
050619,000038:
050620,000039: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
050621,000040: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
050622,000041: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
050623,000042: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
050624,000043: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
050625,000044:
050626,000045: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
050627,000046: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
050628,000047: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
050629,000048: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
050630,000049:
050631,000050: # 2.0 GENERAL DESCRIPTION
050632,000051: # -----------------------
050633,000052:
050634,000053: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS ---
050635,000054: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
050636,000055: # 2) INTEGRATES THE W-MATRIX
050637,000056: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
050638,000057:
050639,000058: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
050640,000059: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
050641,000060: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
050642,000061: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
050643,000062: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
050644,000063: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
050645,000064: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
050646,000065: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
050647,000066: # AND/OR STATE VECTOR.
050648,000067:
050649,000068: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
050650,000069: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
050651,000070: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
050652,000071:
050653,000072: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
050654,000073: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
050655,000074: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
050656,000075:
|
|
Page 1206
|
050658,000077: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
050659,000078:
050660,000079: # 2.1 RESTARTS
050661,000080:
050662,000081: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
050663,000082: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
050664,000083: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
050665,000084: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
050666,000085: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
050667,000086: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
050668,000087: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
050669,000088:
050670,000089: # 2.2 SCALING
050671,000090:
050672,000091: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
050673,000092: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
050674,000093: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
050675,000094: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
050676,000095: # DIFFERENT SCALING.
050677,000096: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
050678,000097:
050679,000098: # 3.0 INPUT/OUTPUT
050680,000099: # ----------------
050681,000100:
050682,000101: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
050683,000102: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
050684,000103: # FOR INTEGRVS, THE RCV,VCV,TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
050685,000104:
050686,000105: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
050687,000106: # EARTH MOON
050688,000107: # 29 27
050689,000108: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
050690,000109:
050691,000110: # 7 5
050692,000111: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
050693,000112:
050694,000113: # 28 28
050695,000114: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
050696,000115: # CUSTOMARILY 0, BUT NOTE LUNAR
050697,000116: # ORBIT DEPENDENCE ON REAL TIME.
050698,000117:
050699,000118: # 22 18
050700,000119: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
050701,000120: # 0 IF TCCSM(LEM) = 0
050702,000121:
050703,000122: # 3 -1
050704,000123: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
050705,000124: # 0 IF TCCSM(LEM) = 0
|
|
Page 1207
|
050707,000126: # 29 27
050708,000127: # RCVCSM(LEM) - CONIC POSITION METERS 2 2
050709,000128: # EQUALS RRECTCSM(LEM) IF
050710,000129: # TCCSM(LEM) = 0
050711,000130:
050712,000131: # 7 5
050713,000132: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
050714,000133: # EQUALS VRECTCSM(LEM) IF
050715,000134: # TCCSM(LEM) = 0
050716,000135:
050717,000136: # 28 28
050718,000137: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
050719,000138: # CUSTOMARILY 0
050720,000139:
050721,000140: # 1/2 17 16
050722,000141: # XKEPCSM(LEM) - ROOT OF KEPLERS EQUATION M 2 2
050723,000142: # 0 IF TCCSM(LEM) = 0
050724,000143:
050725,000144: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
050726,000145: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
050727,000146: # LMOONFLG C = CSM, L = LM 0 0
050728,000147: # LMIDFLG 0,1 0,1
050729,000148:
050730,000149: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
050731,000150:
050732,000151: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
050733,000152: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
050734,000153: # ROUTINE MUST BE PRESET.
050735,000154:
050736,000155: # OUTPUT
050737,000156: # AFTER EVERY CALL TO INTEGRATION
050738,000157: # EARTH MOON
050739,000158: # 29 29
050740,000159: # 0D RATT POSITION METERS 2 2
050741,000160:
050742,000161: # 7 7
050743,000162: # 6D VATT VELOCITY M/CSEC 2 2
050744,000163:
050745,000164: # 28 28
050746,000165: # 12D TAT TIME 2 2
050747,000166:
050748,000167: # 29 27
050749,000168: # 14D RATT1 POSITION METERS 2 2
050750,000169:
050751,000170: # 7 5
050752,000171: # 20D VATT1 VELOCITY M/CSEC 2 2
050753,000172:
050754,000173: # 3 2 36 30
050755,000174: # 26D MU(P) MU M /CS 2 2
050756,000175:
050757,000176: # X1 MUTABLE ENTRY -2 -10D
050758,000177:
050759,000178: # X2 COORDINT
050760,000179: # X2 COORDINATE SYSTEM ORIGEN 0 2
050761,000180: # (THIS, NOT MOONFLAG, SHOULD BE
|
|
Page 1208
|
050763,000182: # USED TO DETERMINE ORIGIN.)
050764,000183:
050765,000184: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
050766,000185: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
050767,000186: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
050768,000187: # CALLING PROGRAM.
050769,000188:
050770,000189: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
050771,000190: # -------------------------------------
050772,000191:
050773,000192: # A) PRECISION ORBITAL INTEGRATION. CSMPREC, LEMPREC ENTRANCES
050774,000193: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
050775,000194: # L CALL
050776,000195: # L+1 CSMPREC (OR LEMPREC)
050777,000196: # L+2 RETURN
050778,000197: # INPUT 28
050779,000198: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
050780,000199: # OUTPUT
050781,000200: # THE DATA LISTED IN SECTION 3.0 PLUS
050782,000201: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
050783,000202: # BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
050784,000203: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
050785,000204: # L-X STORE TIME IN PUSH LIST (TDEC1)
050786,000205: # L CALL
050787,000206: # L+1 CSMCONIC (OR LEMCONIC)
050788,000207: # INPUT/OUTPUT
050789,000208: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
050790,000209: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
050791,000210: # CALL
050792,000211: # INTSTALL
050793,000212: # VLOAD
050794,000213: # POSITION VECTOR
050795,000214: # STOVL RCV
050796,000215: # VELOCITY VECTOR
050797,000216: # STODL VCV
050798,000217: # TIME STATE VECTOR VALID
050799,000218: # STODL TET
050800,000219: # FINAL RADIUS
050801,000220: # STORE RFINAL
050802,000221: # SET(CLEAR) SET(CLEAR)
050803,000222: # INTYPFLAG
050804,000223: # MOONFLAG
050805,000224: # SET(CLEAR) DLOAD
050806,000225: # DESIRED TIME
050807,000226: # STCALL TDEC1
050808,000227: # INTEGRVS
050809,000228: # INPUT
050810,000229: # RCV POSITION VECTOR METERS
050811,000230: # VCV VELOCITY VECTOR M/CSEC
050812,000231: # TET TIME OF STATE VECTOR (MAY = 0) CSEC B-28
|
|
Page 1209
|
050814,000233: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
050815,000234: # (MAY BE INCREMENT IF TET=0)
050816,000235: # OUTPUT
050817,000236: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
050818,000237: # DEPENDING ON INTYPFLG.
050819,000238: # D) INTEGRATE STATE VECTOR. INTGRV ENTRANCE
050820,000239: # L-X STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
050821,000240: # L-8 CALL
050822,000241: # L-7
050823,000242: # L-6 SET(CLEAR) SET(CLEAR)
050824,000243: # L-5 VINTFLAG 1=CSM, 0=LM
050825,000244: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
050826,000245: # L-3 SET(CLEAR) SET(CLEAR)
050827,000246: # L-2 DIMOFLAG 1=W-MATRIX, 0=NO W-MATRIX
050828,000247: # L-1 D6OR9FLG 1=9X9, 0=6X6
050829,000248: # L SET DLOAD
050830,000249: # L+1 STATEFLG DESIRE PERMANENT UPDATE
050831,000250: # L+2 FINAL RAD. OF STATE VECTOR
050832,000251: # L+3 STCALL RFINAL
050833,000252: # L+4 INTEGRV
050834,000253: # L CALL NORMAL USE -- WILL UPDATE STATE
050835,000254: # L+1 INTEGRV VECTOR IF DIMOFLAG=1. (STATEFLG IS
050836,000255: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
050837,000256: # IT IS USED.)
050838,000257: # INPUT
050839,000258: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
050840,000259: # OUTPUT
050841,000260: # SAME AS FOR PRECISION OR CONIC INTEGRATION
050842,000261: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
050843,000262: # THE PERMANENT STATE VECTOR REPRESENTATION.
050844,000263:
050845,000264: 11,2376 BANK 11
050846,000265: 13,2000 SETLOC INTINIT
050847,000266: 13,2000 BANK
050848,000267: 13,2604 E3,1554 EBANK= RRECTCSM
050849,000268: 13,2604 COUNT* $$/INTIN
050850,000269: 13,2604 05353 STATEINT TC PHASCHNG
050851,000270: 13,2605 00052 OCT 00052
050852,000271: 13,2606 35017 CAF PRIO5
050853,000272: 13,2607 05105 TC FINDVAC
050854,000273: 13,2610 E3,1554 EBANK= RRECTCSM
050855,000274: 13,2610 02613 26063 2CADR STATINT1
050856,000275:
050857,000276: 13,2612 05261 TC TASKOVER
050858,000277: 13,2613 06037 STATINT1 TC INTPRET
050859,000278: 13,2614 47014 BON RTB
050860,000279: 13,2615 04712 QUITFLAG # KILL INTEGRATION UNTIL NEXT POO.
050861,000280: 13,2616 26653 NOINT
050862,000281: 13,2617 21573 LOADTIME
050863,000282: 13,2620 00041 STORE TDEC1
|
|
Page 1210
|
050865,000284: 13,2621 77624 CALL
050866,000285: 13,2622 27414 INTSTALL
050867,000286: 13,2623 45014 SET CALL
050868,000287: 13,2624 01076 NODOFLAG
050869,000288: 13,2625 26644 SETIFLGS
050870,000289: 13,2626 77650 GOTO
050871,000290: 13,2627 26026 STATEUP
050872,000291: 13,2630 00003 25140 600SECS 2DEC 60000 B-28
050873,000292:
050874,000293: 13,2632 77414 ENDINT CLEAR EXIT
050875,000294: 13,2633 01672 STATEFLG
050876,000295: 13,2634 05353 TC PHASCHNG
050877,000296: 13,2635 20032 OCT 20032
050878,000297: 13,2636 00006 EXTEND
050879,000298: 13,2637 32631 DCA 600SECS
050880,000299: 13,2640 05277 TC LONGCALL
050881,000300: 13,2641 E3,1626 EBANK= RRECTHIS
050882,000301: 13,2641 02604 26063 2CADR STATEINT
050883,000302:
050884,000303: 13,2643 05155 TC ENDOFJOB
050885,000304: 13,2644 43014 SETIFLGS SET CLEAR
050886,000305: 13,2645 01472 STATEFLG
050887,000306: 13,2646 01673 INTYPFLG
050888,000307: 13,2647 43014 CLEAR CLEAR
050889,000308: 13,2650 01676 DIM0FLAG
050890,000309: 13,2651 01675 D6OR9FLG
050891,000310: 13,2652 77616 RVQ
050892,000311: 13,2653 77776 NOINT EXIT
050893,000312: 13,2654 05353 TC PHASCHNG
050894,000313: 13,2655 00002 OCT 00002
050895,000314:
050896,000315: 13,2656 05516 TC DOWNFLAG
050897,000316: 13,2657 00221 ADRES QUITFLAG
050898,000317: 13,2660 05155 TC ENDOFJOB
050899,000318:
050900,000319: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
050901,000320:
050902,000321: # CALLING SEQUENCE
050903,000322: # L CALL
050904,000323: # L+1 ATOPCSM
050905,000324:
050906,000325: # NORMAL EXIT AT L+2
050907,000326:
050908,000327: 13,2661 47020 ATOPCSM STQ RTB
050909,000328: 13,2662 00051 S2
050910,000329: 13,2663 26674 MOVEACSM
050911,000330: 13,2664 45014 SET CALL
050912,000331: 13,2665 04063 CMOONFLG
050913,000332: 13,2666 26114 SVDWN1
050914,000333: 13,2667 43014 BON CLRGO
|
|
Page 1211
|
050916,000335: 13,2670 00303 MOONFLAG
050917,000336: 13,2671 00051 S2
050918,000337: 13,2672 04223 CMOONFLG
050919,000338: 13,2673 00051 S2
050920,000339: 13,2674 03036 MOVEACSM TC SETBANK
050921,000340: 13,2675 55500 TS DIFEQCNT # INITIALIZE INDEX
050922,000341: 13,2676 51500 INDEX DIFEQCNT
050923,000342: 13,2677 31502 CA RRECT
050924,000343: 13,2700 51500 INDEX DIFEQCNT
050925,000344: 13,2701 55554 TS RRECTCSM
050926,000345: 13,2702 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
050927,000346: 13,2703 12675 TCF MOVEACSM +1 # NO-LOOP
050928,000347: 13,2704 06061 TC DANZIG # COMPLETE - RETURN
050929,000348:
050930,000349: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
050931,000350:
050932,000351: # CALLING SEQUENCE
050933,000352: # L CALL
050934,000353: # PTOACSM
050935,000354:
050936,000355: # NORMAL EXIT AT L+2
050937,000356:
050938,000357: 13,2705 43034 PTOACSM RTB BON
050939,000358: 13,2706 26723 MOVEPCSM
050940,000359: 13,2707 04303 CMOONFLG
050941,000360: 13,2710 26716 SETMOON
050942,000361: 13,2711 66214 CLRMOON CLEAR SSP
050943,000362: 13,2712 00263 MOONFLAG
050944,000363: 13,2713 02031 PBODY
050945,000364: 13,2714 00000 0
050946,000365: 13,2715 77616 RVQ
050947,000366: 13,2716 66214 SETMOON SET SSP
050948,000367: 13,2717 00063 MOONFLAG
050949,000368: 13,2720 02031 PBODY
050950,000369: 13,2721 00002 2
050951,000370: 13,2722 77616 RVQ
050952,000371: 13,2723 03036 MOVEPCSM TC SETBANK
050953,000372: 13,2724 55500 TS DIFEQCNT
050954,000373: 13,2725 51500 INDEX DIFEQCNT
050955,000374: 13,2726 31554 CA RRECTCSM
050956,000375: 13,2727 51500 INDEX DIFEQCNT
050957,000376: 13,2730 55502 TS RRECT
050958,000377: 13,2731 11500 CCS DIFEQCNT
050959,000378: 13,2732 12724 TCF MOVEPCSM +1
050960,000379: 13,2733 06061 TC DANZIG
050961,000380:
050962,000381: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
050963,000382: 13,2734 47020 ATOPLEM STQ RTB
|
|
Page 1212
|
050965,000384: 13,2735 00051 S2
050966,000385: 13,2736 26747 MOVEALEM
050967,000386: 13,2737 45014 SET CALL
050968,000387: 13,2740 04064 LMOONFLG
050969,000388: 13,2741 26070 SVDWN2
050970,000389: 13,2742 43014 BON CLRGO
050971,000390: 13,2743 00303 MOONFLAG
050972,000391: 13,2744 00051 S2
050973,000392: 13,2745 04224 LMOONFLG
050974,000393: 13,2746 00051 S2
050975,000394: 13,2747 03036 MOVEALEM TC SETBANK
050976,000395: 13,2750 55500 TS DIFEQCNT
050977,000396: 13,2751 51500 INDEX DIFEQCNT
050978,000397: 13,2752 31502 CA RRECT
050979,000398: 13,2753 51500 INDEX DIFEQCNT
050980,000399: 13,2754 55626 TS RRECTLEM
050981,000400: 13,2755 11500 CCS DIFEQCNT
050982,000401: 13,2756 12750 TCF MOVEALEM +1
050983,000402: 13,2757 06061 TC DANZIG
050984,000403:
050985,000404: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
050986,000405:
050987,000406: 13,2760 47014 PTOALEM BON RTB
050988,000407: 13,2761 04307 SURFFLAG
050989,000408: 13,2762 27001 USEPIOS
050990,000409: 13,2763 26770 MOVEPLEM
050991,000410: 13,2764 52014 BON GOTO
050992,000411: 13,2765 04304 LMOONFLG
050993,000412: 13,2766 26716 SETMOON
050994,000413: 13,2767 26711 CLRMOON
050995,000414: 13,2770 03036 MOVEPLEM TC SETBANK
050996,000415: 13,2771 55500 TS DIFEQCNT
050997,000416: 13,2772 51500 INDEX DIFEQCNT
050998,000417: 13,2773 31626 CA RRECTLEM
050999,000418: 13,2774 51500 INDEX DIFEQCNT
051000,000419: 13,2775 55502 TS RRECT
051001,000420: 13,2776 11500 CCS DIFEQCNT
051002,000421: 13,2777 12771 TCF MOVEPLEM +1
051003,000422: 13,3000 06061 TC DANZIG
051004,000423:
051005,000424: 13,3001 77201 USEPIOS SETPD VLOAD
051006,000425: 13,3002 00001 0
051007,000426: 13,3003 02023 RLS
051008,000427: 13,3004 41525 PDDL PUSH
051009,000428: 13,3005 00041 TDEC1
051010,000429: 13,3006 15517 STODL TET
051011,000430: 13,3007 27712 5/8
051012,000431: 13,3010 77624 CALL
|
|
Page 1213
|
051014,000433: 13,3011 55716 RP-TO-R
051015,000434: 13,3012 25535 STOVL RCV
051016,000435: 13,3013 24001 ZUNIT
051017,000436: 13,3014 14001 STODL 0D
051018,000437: 13,3015 01517 TET
051019,000438: 13,3016 14007 STODL 6D
051020,000439: 13,3017 27712 5/8
051021,000440: 13,3020 45014 SET CALL # NEEDED FOR SETTING X1 ON EXIT
051022,000441: 13,3021 00063 MOONFLAG
051023,000442: 13,3022 55716 RP-TO-R
051024,000443: 13,3023 74235 VXV VXSC
051025,000444: 13,3024 01535 RCV
051026,000445: 13,3025 26001 OMEGMOON
051027,000446: 13,3026 25543 STOVL VCV
051028,000447: 13,3027 24007 ZEROVEC
051029,000448: 13,3030 01521 STORE TDELTAV
051030,000449: 13,3031 67174 AXT,2 SXA,2
051031,000450: 13,3032 00002 2
051032,000451: 13,3033 02030 PBODY
051033,000452: 13,3034 35527 STCALL TNUV
051034,000453: 13,3035 27157 A-PCHK
051035,000454: 13,3036 33042 SETBANK CAF INTBANK
051036,000455: 13,3037 54006 TS BBANK
051037,000456: 13,3040 33452 CAF FORTYONE
051038,000457: 13,3041 00002 TC Q
051039,000458: 13,3042 E3,1554 EBANK= RRECTCSM
051040,000459: 13,3042 26063 INTBANK BBCON INTEGRV
051041,000460:
051042,000461: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
051043,000462: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
051044,000463:
051045,000464: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
051046,000465: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
051047,000466: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
051048,000467:
051049,000468: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
051050,000469: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
051051,000470: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
051052,000471:
051053,000472: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
051054,000473: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
051055,000474: # CSMPREC CSMCONIC LEMPREC LEMCONIC
051056,000475: # VINTFLAG SET SET CLEAR CLEAR
051057,000476: # INTYPFLG CLEAR SET CLEAR SET
051058,000477: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
051059,000478:
051060,000479: # CALLING SEQUENCE
051061,000480: # L-X STORE TDEC1
051062,000481: # L CALL (STCALL TDEC1)
|
|
Page 1214
|
051064,000483: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
051065,000484:
051066,000485: # NORMAL EXIT TO L+2
051067,000486:
051068,000487: # SUBROUTINES CALLED
051069,000488: # INTEGRV1
051070,000489: # PRECOUT FOR CSMPREC AND LEMPREC
051071,000490: # CONICOUT FOR CSMCONIC AND LEMCONIC
051072,000491:
051073,000492: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
051074,000493:
051075,000494: # INPUT
051076,000495: # TDEC1 TIME TO INTEGRATE TO. CSECS B-28
051077,000496:
051078,000497: 13,3043 45020 CSMPREC STQ CALL
051079,000498: 13,3044 00046 X1
051080,000499: 13,3045 27414 INTSTALL
051081,000500: 13,3046 43130 SXA,1 SET
051082,000501: 13,3047 02102 IRETURN
051083,000502: 13,3050 01474 VINTFLAG
051084,000503:
051085,000504: 13,3051 43014 IFLAGP SET CLEAR
051086,000505: 13,3052 01467 PRECIFLG
051087,000506: 13,3053 01676 DIM0FLAG
051088,000507: 13,3054 77614 CLRGO
051089,000508: 13,3055 01633 INTYPFLG
051090,000509: 13,3056 27136 INTEGRV1
051091,000510: 13,3057 45020 LEMPREC STQ CALL
051092,000511: 13,3060 00046 X1
051093,000512: 13,3061 27414 INTSTALL
051094,000513: 13,3062 43130 SXA,1 CLRGO
051095,000514: 13,3063 02102 IRETURN
051096,000515: 13,3064 01634 VINTFLAG
051097,000516: 13,3065 27051 IFLAGP
051098,000517:
051099,000518: 13,3066 45020 CSMCONIC STQ CALL
051100,000519: 13,3067 00046 X1
051101,000520: 13,3070 27414 INTSTALL
051102,000521: 13,3071 43130 SXA,1 SET
051103,000522: 13,3072 02102 IRETURN
051104,000523: 13,3073 01474 VINTFLAG
051105,000524: 13,3074 43014 IFLAGC CLEAR SETGO
051106,000525: 13,3075 01676 DIM0FLAG
051107,000526: 13,3076 01433 INTYPFLG
051108,000527: 13,3077 27136 INTEGRV1
051109,000528: 13,3100 45020 LEMCONIC STQ CALL
051110,000529: 13,3101 00046 X1
051111,000530: 13,3102 27414 INTSTALL
051112,000531: 13,3103 43130 SXA,1 CLRGO
051113,000532: 13,3104 02102 IRETURN
|
|
Page 1215
|
051115,000534: 13,3105 01634 VINTFLAG
051116,000535: 13,3106 27074 IFLAGC
051117,000536:
051118,000537: 13,3107 66214 INTEGRVS SET SSP
051119,000538: 13,3110 01467 PRECIFLG
051120,000539: 13,3111 02031 PBODY
051121,000540: 13,3112 00000 0
051122,000541: 13,3113 66214 BOF SSP
051123,000542: 13,3114 00343 MOONFLAG
051124,000543: 13,3115 27120 +3
051125,000544: 13,3116 02031 PBODY
051126,000545: 13,3117 00002 2
051127,000546: 13,3120 77220 STQ VLOAD
051128,000547: 13,3121 02102 IRETURN
051129,000548: 13,3122 24007 ZEROVEC
051130,000549: 13,3123 01521 STORE TDELTAV
051131,000550: 13,3124 35527 STCALL TNUV
051132,000551: 13,3125 23441 RECTIFY
051133,000552: 13,3126 43014 CLEAR SET
051134,000553: 13,3127 01676 DIM0FLAG
051135,000554: 13,3130 04062 NEWIFLG
051136,000555: 13,3131 77614 SETGO
051137,000556: 13,3132 04020 RPQFLAG
051138,000557: 13,3133 27150 ALOADED
051139,000558:
051140,000559: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
051141,000560: # NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS. THE ROUTINE
051142,000561: # IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
051143,000562: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
051144,000563: # PROGRAM FOR PRECISION OR CONIC
051145,000564:
051146,000565: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
051147,000566: # SETTING ANY FLAGS.
051148,000567:
051149,000568: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
051150,000569: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
051151,000570: # INTYPFLG
051152,000571: # DIM0FLAG
051153,000572: # D6OR9FLG
051154,000573:
051155,000574: # CALLING SEQUENCE
051156,000575: # L-X CALL
051157,000576: # L-Y INTSTALL
051158,000577: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
051159,000578: # AND DIM0FLAG IS CLEAR.
051160,000579: # L CALL
051161,000580: # L+1 INTEGRV
051162,000581:
051163,000582: # INITIALIZATION
051164,000583: # FLAGS AS ABOVE
051165,000584: # STORE TIME TO INTEGRATE TO IN TDEC1
051166,000585:
051167,000586: # OUTPUT
051168,000587: # RATT AS
051169,000588: # VATT DEFINED
|
|
Page 1216
|
051171,000590: # TAT BEFORE
051172,000591:
051173,000592: 13,3134 77620 INTEGRV STQ
051174,000593: 13,3135 02102 IRETURN
051175,000594: 13,3136 43014 INTEGRV1 SET SET
051176,000595: 13,3137 04060 RPQFLAG
051177,000596: 13,3140 04062 NEWIFLG
051178,000597: 13,3141 77731 INTEGRV2 SSP
051179,000598: 13,3142 00053 QPRET
051180,000599: 13,3143 27150 ALOADED
051181,000600: 13,3144 52014 BON GOTO
051182,000601: 13,3145 01714 VINTFLAG
051183,000602: 13,3146 26705 PTOACSM
051184,000603: 13,3147 26760 PTOALEM
051185,000604: 13,3150 77745 ALOADED DLOAD
051186,000605: 13,3151 00041 TDEC1
051187,000606: 13,3152 01116 STORE TDEC
051188,000607: 13,3153 52014 BOFF GOTO
051189,000608: 13,3154 01753 INTYPFLG
051190,000609: 13,3155 27257 TESTLOOP
051191,000610: 13,3156 27243 RVCON
051192,000611: 13,3157 77414 A-PCHK BOF EXIT
051193,000612: 13,3160 01752 STATEFLG
051194,000613: 13,3161 27200 RECTOUT
051195,000614: 13,3162 05353 TC PHASCHNG
051196,000615: 13,3163 04022 OCT 04022
051197,000616: 13,3164 05504 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
051198,000617: 13,3165 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
051199,000618: 13,3166 06037 TC INTPRET
051200,000619: 13,3167 77731 SSP
051201,000620: 13,3170 00053 QPRET
051202,000621: 13,3171 27176 PHEXIT
051203,000622: 13,3172 52014 BON GOTO
051204,000623: 13,3173 01714 VINTFLAG
051205,000624: 13,3174 26661 ATOPCSM
051206,000625: 13,3175 26734 ATOPLEM
051207,000626: 13,3176 77624 PHEXIT CALL
051208,000627: 13,3177 11244 GRP2PC
051209,000628: 13,3200 45001 RECTOUT SETPD CALL
051210,000629: 13,3201 00001 0
051211,000630: 13,3202 23441 RECTIFY
051212,000631: 13,3203 53775 VLOAD VSL*
051213,000632: 13,3204 01503 RRECT
051214,000633: 13,3205 57576 0,2
051215,000634: 13,3206 53715 PDVL VSL* # RATT TO PD0
051216,000635: 13,3207 01511 VRECT
051217,000636: 13,3210 57576 0,2
051218,000637: 13,3211 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
051219,000638: 13,3212 01517 TET
|
|
Page 1217
|
051221,000640: 13,3213 01503 RRECT
051222,000641: 13,3214 64715 PDVL PDDL*
051223,000642: 13,3215 01511 VRECT
051224,000643: 13,3216 51770 MUEARTH,2
051225,000644: 13,3217 76006 PUSH AXT,1
051226,000645: 13,3220 77765 DEC -10 B-14
051227,000646: 13,3221 76014 BON AXT,1
051228,000647: 13,3222 00303 MOONFLAG
051229,000648: 13,3223 27225 +2
051230,000649: 13,3224 77775 DEC -2 B-14
051231,000650: 13,3225 40001 INTEXIT SETPD BOV
051232,000651: 13,3226 00001 0
051233,000652: 13,3227 27230 +1
051234,000653: 13,3230 43014 CLEAR CLEAR
051235,000654: 13,3231 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
051236,000655: 13,3232 01667 PRECIFLG
051237,000656: 13,3233 77614 CLEAR
051238,000657: 13,3234 01672 STATEFLG
051239,000658: 13,3235 77535 SLOAD EXIT
051240,000659: 13,3236 02103 IRETURN
051241,000660: 13,3237 30154 CA MPAC
051242,000661: 13,3240 50120 INDEX FIXLOC
051243,000662: 13,3241 54052 TS QPRET
051244,000663: 13,3242 03425 TC INTWAKE
051245,000664:
051246,000665: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
051247,000666: # VELOCITY FOR THE INTERVAL (TET-TDEC)
051248,000667:
051249,000668: 13,3243 45345 RVCON DLOAD DSU
051250,000669: 13,3244 01116 TDEC
051251,000670: 13,3245 01517 TET
051252,000671: 13,3246 36074 STCALL TAU.
051253,000672: 13,3247 23441 RECTIFY
051254,000673: 13,3250 77624 CALL
051255,000674: 13,3251 22376 KEPPREP
051256,000675: 13,3252 43345 DLOAD DAD
051257,000676: 13,3253 01551 TC
051258,000677: 13,3254 01517 TET
051259,000678: 13,3255 35517 STCALL TET
051260,000679: 13,3256 27200 RECTOUT
051261,000680:
|
|
Page 1218
|
051263,000682: # TESTLOOP
051264,000683:
051265,000684: 13,3257 43014 TESTLOOP BOF CLRGO
051266,000685: 13,3260 04752 QUITFLAG
051267,000686: 13,3261 27264 +3
051268,000687: 13,3262 01632 STATEFLG
051269,000688: 13,3263 27225 INTEXIT # STOP INTEGRATION
051270,000689: 13,3264 73001 +3 SETPD LXA,2
051271,000690: 13,3265 00013 10D
051272,000691: 13,3266 02030 PBODY
051273,000692: 13,3267 51575 VLOAD ABVAL
051274,000693: 13,3270 01535 RCV
051275,000694: 13,3271 43006 PUSH CLEAR # RC TO 10D
051276,000695: 13,3272 00262 MIDFLAG
051277,000696: 13,3273 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
051278,000697: 13,3274 53755 RME,2
051279,000698: 13,3275 27300 +3
051280,000699: 13,3276 77614 SET
051281,000700: 13,3277 00062 MIDFLAG
051282,000701: 13,3300 41345 NORFINAL DLOAD DMP
051283,000702: 13,3301 00013 10D
051284,000703: 13,3302 00043 34D
051285,000704: 13,3303 55762 SR1R DDV*
051286,000705: 13,3304 51770 MUEARTH,2
051287,000706: 13,3305 41366 SQRT DMP
051288,000707: 13,3306 25752 .3D
051289,000708: 13,3307 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
051290,000709: 13,3310 54345 DLOAD SL
051291,000710: 13,3311 00155 MPAC
051292,000711: 13,3312 20220 15D # OF 128 CSECS.
051293,000712: 13,3313 40006 PUSH BOV
051294,000713: 13,3314 27341 MAXDT
051295,000714: 13,3315 50021 BDSU BMN
051296,000715: 13,3316 27413 DT/2MAX
051297,000716: 13,3317 27341 MAXDT
051298,000717: 13,3320 45345 DT/2COMP DLOAD DSU
051299,000718: 13,3321 01116 TDEC
051300,000719: 13,3322 01517 TET
051301,000720: 13,3323 54234 RTB SL
051302,000721: 13,3324 21612 SGNAGREE
051303,000722: 13,3325 20211 8D
051304,000723: 13,3326 02076 STORE DT/2 # B-19
051305,000724: 13,3327 51400 BOV ABS
051306,000725: 13,3330 27345 GETMAXDT
051307,000726: 13,3331 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
051308,000727: 13,3332 00015 12D
051309,000728: 13,3333 27351 P00HCHK
051310,000729: 13,3334 75345 USEMAXDT DLOAD SIGN
051311,000730: 13,3335 00015 12D
051312,000731: 13,3336 02076 DT/2
|
|
Page 1219
|
051314,000733: 13,3337 36076 STCALL DT/2
051315,000734: 13,3340 27351 P00HCHK
051316,000735: 13,3341 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
051317,000736: 13,3342 27413 DT/2MAX
051318,000737: 13,3343 77650 GOTO
051319,000738: 13,3344 27320 DT/2COMP
051320,000739: 13,3345 77634 GETMAXDT RTB
051321,000740: 13,3346 21712 SIGNMPAC
051322,000741: 13,3347 36076 STCALL DT/2
051323,000742: 13,3350 27334 USEMAXDT
051324,000743: 13,3351 51545 P00HCHK DLOAD ABS
051325,000744: 13,3352 02076 DT/2
051326,000745: 13,3353 50025 DSU BMN
051327,000746: 13,3354 27411 DT/2MIN
051328,000747: 13,3355 27157 A-PCHK
051329,000748: 13,3356 46135 SLOAD BHIZ
051330,000749: 13,3357 01012 MODREG
051331,000750: 13,3360 27363 +3
051332,000751: 13,3361 77650 GOTO
051333,000752: 13,3362 23252 TIMESTEP
051334,000753: 13,3363 77614 BON # WAS THIS CALL VIA CSM(LEM)PREC
051335,000754: 13,3364 01707 PRECIFLG
051336,000755: 13,3365 23252 TIMESTEP # YES
051337,000756: 13,3366 45345 DLOAD DSU
051338,000757: 13,3367 02076 DT/2
051339,000758: 13,3370 00015 12D
051340,000759: 13,3371 43040 BMN BOFCLR
051341,000760: 13,3372 27157 A-PCHK
051342,000761: 13,3373 04242 NEWIFLG
051343,000762: 13,3374 23252 TIMESTEP
051344,000763: 13,3375 45345 DLOAD DSU
051345,000764: 13,3376 01116 TDEC
051346,000765: 13,3377 01517 TET
051347,000766: 13,3400 77640 BMN # NO BACKWARD INTEGRATION
051348,000767: 13,3401 27225 INTEXIT
051349,000768: 13,3402 40525 PDDL SR4
051350,000769: 13,3403 02076 DT/2 # IS 4(DT) LS (TDEC - TET)
051351,000770: 13,3404 44322 SR2R BDSU # NO
051352,000771: 13,3405 52040 BMN GOTO
051353,000772: 13,3406 27225 INTEXIT
051354,000773: 13,3407 23252 TIMESTEP
051355,000774: 13,3410 00000 01400 DT/2MIN 2DEC 3 B-20
051356,000775:
051357,000776: 13,3412 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
051358,000777:
051359,000778: 13,3414 77776 INTSTALL EXIT
051360,000779: 13,3415 30106 CA RASFLAG
051361,000780: 13,3416 73466 MASK INTBITAB # IS THIS STALL AREA FREE
051362,000781: 13,3417 00006 EXTEND
051363,000782: 13,3420 13460 BZF OKTOGRAB # YES
|
|
Page 1220
|
051365,000784: 13,3421 33465 CAF WAKESTAL
051366,000785: 13,3422 05133 TC JOBSLEEP
051367,000786: 13,3423 77776 INTWAKE0 EXIT
051368,000787: 13,3424 13445 TCF INTWAKE1
051369,000788:
051370,000789: 13,3425 40106 INTWAKE CS RASFLAG # IS THIS INTSTALLED ROUTINE TO BE
051371,000790: 13,3426 74745 MASK REINTBIT # RESTARTED
051372,000791: 13,3427 10000 CCS A
051373,000792: 13,3430 03445 TC INTWAKE1 # NO
051374,000793:
051375,000794: 13,3431 50120 INDEX FIXLOC
051376,000795: 13,3432 30052 CA QPRET
051377,000796: 13,3433 55055 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
051378,000797:
051379,000798: 13,3434 05353 TC PHASCHNG
051380,000799: 13,3435 04022 OCT 04022
051381,000800:
051382,000801: 13,3436 31055 CA TBASE2
051383,000802: 13,3437 50120 INDEX FIXLOC
051384,000803: 13,3440 54052 TS QPRET
051385,000804:
051386,000805: 13,3441 34745 CAF REINTBIT
051387,000806: 13,3442 70106 MASK RASFLAG
051388,000807: 13,3443 00006 EXTEND
051389,000808: 13,3444 13463 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
051390,000809:
051391,000810: 13,3445 33465 INTWAKE1 CAF WAKESTAL
051392,000811: 13,3446 00004 INHINT
051393,000812: 13,3447 05137 TC JOBWAKE
051394,000813: 13,3450 10064 CCS LOCCTR
051395,000814: 13,3451 13445 TCF INTWAKE1
051396,000815: 13,3452 00051 FORTYONE DEC 41 B-14
051397,000816: 13,3453 43466 CS INTBITAB
051398,000817: 13,3454 70106 MASK RASFLAG
051399,000818: 13,3455 54106 TS RASFLAG # RELEASE STALL AREA
051400,000819: 13,3456 00003 RELINT
051401,000820: 13,3457 13463 TCF GOBAC
051402,000821: 13,3460 34736 OKTOGRAB CAF INTFLBIT
051403,000822: 13,3461 00004 INHINT
051404,000823: 13,3462 26106 ADS RASFLAG
051405,000824: 13,3463 06037 GOBAC TC INTPRET
051406,000825: 13,3464 77616 RVQ
051407,000826: 13,3465 27415 WAKESTAL CADR INTSTALL +1
051408,000827: 13,3466 20100 INTBITAB OCT 20100
051409,000828:
|
|
Page 1221
|
051411,000830: # AVETOMID
051412,000831:
051413,000832: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
051414,000833: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
051415,000834: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
051416,000835:
051417,000836: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (OR WFLAG OR RENDWFLG IS
051418,000837: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
051419,000838:
051420,000839: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
051421,000840:
051422,000841: # FINALLY TRKMKCNT IS ZEROED
051423,000842:
051424,000843: 13,2000 SETLOC INTINIT
051425,000844: 13,2000 BANK
051426,000845:
051427,000846: 13,3467 COUNT* $$/INTIN
051428,000847: 13,3467 43020 AVETOMID STQ BON
051429,000848: 13,3470 02772 EGRESS
051430,000849: 13,3471 02716 RENDWFLG
051431,000850: 13,3472 27536 INT/W # W-MATRIX VALID, GO INTEGRATE IT
051432,000851: 13,3473 77614 BON
051433,000852: 13,3474 01711 ORBWFLAG
051434,000853: 13,3475 27536 INT/W # W-MATRIX VALID, GO INTEGRATE IT
051435,000854:
051436,000855: 13,3476 45145 OTHERS DLOAD CALL # GET SET FOR OTHER VEHICLE INTEGRATION
051437,000856: 13,3477 01235 PIPTIME # DESIRED TIME
051438,000857: 13,3500 27414 INTSTALL
051439,000858: 13,3501 45014 SET CALL
051440,000859: 13,3502 01474 VINTFLAG # CM
051441,000860: 13,3503 26644 SETIFLGS # SETS UP NONE W-MAT. PERMANENT INTEG.
051442,000861: 13,3504 34041 STCALL TDEC1
051443,000862: 13,3505 27134 INTEGRV
051444,000863:
051445,000864: 13,3506 45174 AXT,2 CALL # NOW MOVE PROPERLY SCALE RN,UN AS WELL AS
051446,000865: 13,3507 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
051447,000866: 13,3510 27414 INTSTALL
051448,000867: 13,3511 77014 BON AXT,2
051449,000868: 13,3512 04304 MOONTHIS
051450,000869: 13,3513 27515 +2
051451,000870: 13,3514 00000 0
051452,000871: 13,3515 53775 VLOAD VSR*
051453,000872: 13,3516 01221 RN
051454,000873: 13,3517 57176 0,2
051455,000874: 13,3520 01503 STORE RRECT
051456,000875: 13,3521 15535 STODL RCV
051457,000876: 13,3522 01235 PIPTIME
051458,000877: 13,3523 25517 STOVL TET
051459,000878: 13,3524 01227 VN
|
|
Page 1222
|
051461,000880: 13,3525 45057 VSR* CALL
051462,000881: 13,3526 57176 0,2
051463,000882: 13,3527 23455 MINIRECT # FINISH SETTING UP STATE VECTOR
051464,000883: 13,3530 66234 RTB SSP
051465,000884: 13,3531 26747 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
051466,000885: 13,3532 03463 TRKMKCNT
051467,000886: 13,3533 00000 0
051468,000887: 13,3534 77650 GOTO
051469,000888: 13,3535 47226 FAZAB5
051470,000889:
051471,000890: 13,3536 45145 INT/W DLOAD CALL
051472,000891: 13,3537 01235 PIPTIME # INTEGRATE W THRU BURN
051473,000892: 13,3540 27414 INTSTALL
051474,000893: 13,3541 43014 SET SET
051475,000894: 13,3542 01476 DIM0FLAG # DO W-MATRIX
051476,000895: 13,3543 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
051477,000896: 13,3544 43014 SET CLEAR
051478,000897: 13,3545 01475 D6OR9FLG # 9X9 FOR LM
051479,000898: 13,3546 01674 VINTFLAG # LM
051480,000899: 13,3547 34041 STCALL TDEC1
051481,000900: 13,3550 27134 INTEGRV
051482,000901: 13,3551 77650 GOTO
051483,000902: 13,3552 27476 OTHERS # NOW GO DO THE OTHER VEHICLE
051484,000903:
|
|
Page 1223
|
051486,000905: # MIDTOAV1
051487,000906:
051488,000907: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
051489,000908: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
051490,000909: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
051491,000910: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
051492,000911: # IS DONE TO THE CURRENT TIME.
051493,000912: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
051494,000913:
051495,000914: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
051496,000915: # TO THE RETURN ADDRESS
051497,000916:
051498,000917: # IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
051499,000918: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
051500,000919: # TION TIME AND MPAC IS SET TO THE DELTA TIME ---
051501,000920: # TAT MINUS CURRENT TIME.
051502,000921:
051503,000922: # MIDTOAV2
051504,000923:
051505,000924: # THIS ROUTINE INTEGRATES THIS VEHICLES STATE VECTOR TO THE CURRENT TIME.
051506,000925: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
051507,000926: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
051508,000927:
051509,000928: 13,3553 E7,1744 EBANK= IRETURN1
051510,000929: 13,3553 43020 MIDTOAV2 STQ CLRGO # INTEGRATE TO PRESENT TIME PLUS TIMEDELT
051511,000930: 13,3554 03744 IRETURN1
051512,000931: 13,3555 04634 MID1FLAG
051513,000932: 13,3556 27572 ENTMID2
051514,000933:
051515,000934: 13,3557 43020 MIDTOAV1 STQ SET # INTEGRATE TO TDEC1
051516,000935: 13,3560 03744 IRETURN1
051517,000936: 13,3561 04474 MID1FLAG
051518,000937: 13,3562 43234 RTB DAD # INITIAL CHECK, IS TDEC1 IN THE FUTURE
051519,000938: 13,3563 21573 LOADTIME
051520,000939: 13,3564 27674 TIMEDELT
051521,000940: 13,3565 51021 BDSU BPL
051522,000941: 13,3566 00041 TDEC1
051523,000942: 13,3567 27576 ENTMID1 # Y5S
051524,000943: 13,3570 77624 CALL
051525,000944: 13,3571 27662 NOTIME # NO, SET ALARM, SWITCH TO MIDTOAV2
051526,000945:
051527,000946: 13,3572 43234 ENTMID2 RTB DAD
051528,000947: 13,3573 21573 LOADTIME
051529,000948: 13,3574 27674 TIMEDELT
051530,000949: 13,3575 00041 STORE TDEC1
051531,000950:
051532,000951: 13,3576 77624 ENTMID1 CALL
051533,000952: 13,3577 27414 INTSTALL
051534,000953: 13,3600 45014 CLEAR CALL
|
|
Page 1224
|
051536,000955: 13,3601 01676 DIM0FLAG # NO W-MATRIX
051537,000956: 13,3602 26066 THISVINT
051538,000957: 13,3603 43014 CLEAR SET
051539,000958: 13,3604 01673 INTYPFLG
051540,000959: 13,3605 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
051541,000960: 13,3606 77624 CALL
051542,000961: 13,3607 27134 INTEGRV # GO INTEGRATE
051543,000962: 13,3610 77214 CLEAR VLOAD
051544,000963: 13,3611 04675 MIDAVFLG
051545,000964: 13,3612 00001 RATT
051546,000965: 13,3613 27545 STOVL RN1
051547,000966: 13,3614 00007 VATT
051548,000967: 13,3615 17553 STODL VN1
051549,000968: 13,3616 00015 TAT
051550,000969: 13,3617 03561 STORE PIPTIME1
051551,000970: 13,3620 66134 SXA,2 SXA,1
051552,000971: 13,3621 02777 RTX2
051553,000972: 13,3622 02776 RTX1
051554,000973: 13,3623 77776 EXIT
051555,000974:
051556,000975: 13,3624 00004 INHINT
051557,000976: 13,3625 00006 EXTEND
051558,000977: 13,3626 40025 DCS TIME2
051559,000978: 13,3627 20155 DAS MPAC
051560,000979: 13,3630 07257 TC TPAGREE
051561,000980:
051562,000981: 13,3631 31744 CA IRETURN1
051563,000982: 13,3632 04640 TC BANKJUMP
051564,000983: 13,3633 47014 CKMID2 BOF RTB
051565,000984: 13,3634 04754 MID1FLAG
051566,000985: 13,3635 27652 MID2
051567,000986: 13,3636 21573 LOADTIME
051568,000987: 13,3637 44215 DAD BDSU
051569,000988: 13,3640 27674 TIMEDELT
051570,000989: 13,3641 01116 TDEC
051571,000990: 13,3642 45044 BPL CALL
051572,000991: 13,3643 27257 TESTLOOP # YES
051573,000992: 13,3644 27662 NOTIME
051574,000993:
051575,000994: 13,3645 43234 TIMEINC RTB DAD
051576,000995: 13,3646 21573 LOADTIME
051577,000996: 13,3647 27674 TIMEDELT
051578,000997: 13,3650 35116 STCALL TDEC
051579,000998: 13,3651 27257 TESTLOOP
051580,000999:
051581,001000: 13,3652 45345 MID2 DLOAD DSU
051582,001001: 13,3653 01116 TDEC
051583,001002: 13,3654 01517 TET
051584,001003: 13,3655 45246 ABS DSU
051585,001004: 13,3656 27672 3CSECS
051586,001005:
|
|
Page 1225
|
051588,001007: 13,3657 52040 BMN GOTO
051589,001008: 13,3660 27157 A-PCHK
051590,001009: 13,3661 27645 TIMEINC
051591,001010:
051592,001011: 13,3662 77414 NOTIME CLEAR EXIT # TOO LATE
051593,001012: 13,3663 04674 MID1FLAG
051594,001013: 13,3664 25744 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
051595,001014: 13,3665 05567 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
051596,001015: 13,3666 01703 OCT 1703 # TIG WILL BE SLIPPED...
051597,001016: 13,3667 06037 TC INTPRET
051598,001017: 13,3670 77616 RVQ
051599,001018:
051600,001019: 13,3671 00000 00003 3CSECS 2DEC 3 B-28
051601,001020:
051602,001021: 13,3673 00000 03720 TIMEDELT 2DEC 2000 B-28
051603,001022:
051604,001023: 27,3360 BANK 27
051605,001024: 04,2000 SETLOC UPDATE2
051606,001025: 04,2000 BANK
051607,001026: 04,3165 1167 EBANK= INTWAKUQ
051608,001027:
051609,001028: 04,3165 COUNT* $$/INTIN
051610,001029:
051611,001030: 04,3165 1167 INTWAKUQ = INTWAK1Q # TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
051612,001031:
051613,001032: 04,3165 00003 INTWAKEU RELINT
051614,001033: 04,3166 00006 EXTEND
051615,001034: 04,3167 23167 QXCH INTWAKUQ # SAVE Q FOR RETURN
051616,001035:
051617,001036: 04,3170 06037 TC INTPRET
051618,001037:
051619,001038: 04,3171 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
051620,001039: 04,3172 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
051621,001040: 04,3173 11232 INTWAKUP
051622,001041:
051623,001042: 04,3174 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
051624,001043: 04,3175 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
051625,001044: 04,3176 25535 STOVL RCV
051626,001045: 04,3177 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
051627,001046: 04,3200 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
051628,001047: 04,3201 23456 RECTIFY +13D # TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
051629,001048: 04,3202 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
051630,001049: 04,3203 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
051631,001050: 04,3204 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
051632,001051: 04,3205 11243 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
051633,001052: 04,3206 11213 INTWAKEM # SPHERE OF INFLUENCE.........
051634,001053: 04,3207 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
051635,001054: 04,3210 00000 DEC 0 B-14
051636,001055: 04,3211 00223 MOONFLAG
|
|
Page 1226
|
051638,001057: 04,3212 11216 INTWAKEC
051639,001058: 04,3213 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
051640,001059: 04,3214 00002 DEC 2 B-14
051641,001060: 04,3215 00063 MOONFLAG
051642,001061: 04,3216 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
051643,001062: # MOONFLAG SET (OR CLEARED).
051644,001063: 04,3217 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
051645,001064: 04,3220 11226 INTWAKLM # STATE VECTOR UPDATE......
051646,001065: 04,3221 77624 CALL # UPDATE CSM STATE VECTOR
051647,001066: 04,3222 26661 ATOPCSM
051648,001067:
051649,001068: 04,3223 52014 CLEAR GOTO
051650,001069: 04,3224 01671 ORBWFLAG
051651,001070: 04,3225 11230 INTWAKEX
051652,001071:
051653,001072: 04,3226 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
051654,001073: 04,3227 26734 ATOPLEM
051655,001074:
051656,001075: 04,3230 77614 INTWAKEX CLEAR
051657,001076: 04,3231 02676 RENDWFLG
051658,001077:
051659,001078: 04,3232 45131 INTWAKUP SSP CALL # REMOVE :UPDATE STATE VECTOR INDICATOR:
051660,001079: 04,3233 01502 UPSVFLAG
051661,001080: 04,3234 00000 0
051662,001081: 04,3235 27423 INTWAKE0 # RELEASE :GRAB: OF ORBIT INTEG
051663,001082: 04,3236 77776 EXIT
051664,001083:
051665,001084: 04,3237 05353 TC PHASCHNG
051666,001085: 04,3240 04026 OCT 04026
051667,001086: 04,3241 01167 TC INTWAKUQ
051668,001087:
051669,001088: 04,3242 00002 UPMNSVCD OCT 2
051670,001089: 04,3243 00000 OCT 0
051671,001090:
051672,001091: 04,3244 77420 GRP2PC STQ EXIT
051673,001092: 04,3245 02711 GRP2SVQ
051674,001093: 04,3246 05353 TC PHASCHNG
051675,001094: 04,3247 04022 OCT 04022
051676,001095: 04,3250 06037 TC INTPRET
051677,001096: 04,3251 77650 GOTO
051678,001097: 04,3252 02711 GRP2SVQ
051679,001098:
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc