Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files derive from a printout of Luminary 210 (Apollo 15-17
Lunar Module guidance computer program), from the personal library of
original AGC developer Don Eyles, digitally photographed at archive.org,
financially sponsored by Jim Lawton, and transcribed to source code by a
team of volunteers. This colorized, syntax-highlighted form was created
by assembling that transcribed source code. Note that the full page images
are available on the
Virtual AGC project page at archive.org, while reduced-size images
are presented at the VirtualAGC project website. Report or fix any
transcription errors at
the Virtual AGC project code repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 210 OF AGC PROGRAM LUMINARY BY NASA 2021112-161 17:11 MAR. 19,1971Note that the date is the date of the printout, not the date of the program revision. |
051790,000002: ## Copyright: Public domain.
051791,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
051792,000004: ## Purpose: A section of Luminary revision 210.
051793,000005: ## It is part of the source code for the Lunar Module's (LM)
051794,000006: ## Apollo Guidance Computer (AGC) for Apollo 15-17.
051795,000007: ## This file is intended to be a faithful transcription, except
051796,000008: ## that the code format has been changed to conform to the
051797,000009: ## requirements of the yaYUL assembler rather than the
051798,000010: ## original YUL assembler.
051799,000011: ## Reference: pp. 1202-1224
051800,000012: ## Assembler: yaYUL
051801,000013: ## Contact: Ron Burkey <info@sandroid.org>.
051802,000014: ## Website: www.ibiblio.org/apollo/index.html
051803,000015: ## Mod history: 2016-11-17 JL Created from Luminary131 version.
051804,000016: ## 2016-12-1x HG Transcribed
051805,000017: ## 2016-12-26 RSB Comment-text proofed using ProoferComments
051806,000018: ## and corrected errors found.
051807,000019: ## 2017-03-13 RSB Comment-text fixes noted in proofing Luminary 116.
051808,000020: ## 2017-03-15 RSB Comment-text fixes identified in 5-way
051809,000021: ## side-by-side diff of Luminary 69/99/116/131/210.
051810,000022: ## 2017-08-19 MAS Fixed comment errors found transcribing Zerlina 56.
051811,000023:
|
|
Page 1202 |
051813,000025: # 1.0 INTRODUCTION
051814,000026: # ----------------
051815,000027:
051816,000028: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
051817,000029: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
051818,000030: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
051819,000031: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
051820,000032: # SIDE THE LUNAR SPHERE OF INFLUENCE.
051821,000033:
051822,000034: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
051823,000035: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
051824,000036: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
051825,000037: # CALL TC INTSTALL.
051826,000038:
051827,000039: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
051828,000040: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
051829,000041: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
051830,000042: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
051831,000043: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
051832,000044:
051833,000045: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
051834,000046: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
051835,000047: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
051836,000048: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
051837,000049:
051838,000050: # 2.0 GENERAL DESCRIPTION
051839,000051: # -----------------------
051840,000052:
051841,000053: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS---
051842,000054: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
051843,000055: # 2) INTEGRATES THE W-MATRIX
051844,000056: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
051845,000057:
051846,000058: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
051847,000059: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
051848,000060: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
051849,000061: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
051850,000062: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
051851,000063: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
051852,000064: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
051853,000065: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
051854,000066: # AND/OR STATE VECTOR.
051855,000067:
051856,000068: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
051857,000069: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
051858,000070: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
051859,000071:
051860,000072: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
051861,000073: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
051862,000074: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
051863,000075:
|
|
Page 1203 |
051865,000077: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
051866,000078:
051867,000079: # 2.1 RESTARTS
051868,000080:
051869,000081: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
051870,000082: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
051871,000083: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
051872,000084: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
051873,000085: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
051874,000086: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
051875,000087: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
051876,000088:
051877,000089: # 2.2 SCALING
051878,000090:
051879,000091: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
051880,000092: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTORDEPENDS ON THE ORIGIN OF THE COORDINATE
051881,000093: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
051882,000094: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
051883,000095: # DIFFERENT SCALING.
051884,000096: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
051885,000097:
051886,000098: # 3.0 INPUT/OUTPUT
051887,000099: # ----------------
051888,000100:
051889,000101: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
051890,000102: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
051891,000103: # FOR INTEGRVS, THE RCV,VCV, TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
051892,000104:
051893,000105: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
051894,000106: # EARTH MOON
051895,000107: # 29 27
051896,000108: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
051897,000109:
051898,000110: # 7 5
051899,000111: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
051900,000112:
051901,000113: # 28 28
051902,000114: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
051903,000115: # CUSTOMARILY 0, BUT NOTE LUNAR
051904,000116: # ORBIT DEPENDENCE ON REAL TIME.
051905,000117:
051906,000118: # 22 18
051907,000119: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
051908,000120: # 0 IF TCCSM(LEM) = 0
051909,000121:
051910,000122: # 3 -1
051911,000123: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
051912,000124: # 0 IF TCCSM(LEM) = 0
051913,000125:
|
|
Page 1204 |
051915,000127: # 29 27
051916,000128: # RCVCSM(LEM) - CONIC POSITION METERS 2 2
051917,000129: # EQUALS RRECTCSM(LEM) IF
051918,000130: # TCCSM(LEM) = 0
051919,000131:
051920,000132: # 7 5
051921,000133: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
051922,000134: # EQUALS VRECTCSM(LEM) IF
051923,000135: # TCCSM(LEM) = 0
051924,000136:
051925,000137: # 28 28
051926,000138: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
051927,000139: # CUSTOMARILY 0
051928,000140:
051929,000141: # 1/2 17 16
051930,000142: # XKEPCSM(LEM) - ROOT OF KEPLERS EQUATION M 2 2
051931,000143: # 0 IF TCCSM(LEM) = 0
051932,000144:
051933,000145: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
051934,000146: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
051935,000147: # LMOONFLG C = CSM, L = LM 0 0
051936,000148: # LMIDFLG 0,1 0,1
051937,000149:
051938,000150: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
051939,000151:
051940,000152: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
051941,000153: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
051942,000154: # ROUTINE MUST BE PRESET.
051943,000155:
051944,000156: # OUTPUT
051945,000157: # AFTER EVERY CALL TO INTEGRATION
051946,000158: # EARTH MOON
051947,000159: # 29 29
051948,000160: # 0D RATT POSITION METERS 2 2
051949,000161: # 7 7
051950,000162: # 6D VATT VELOCITY M/CSEC 2 2
051951,000163: # 28 28
051952,000164: # 12D TAT TIME 2 2
051953,000165: # 29 27
051954,000166: # 14D RATT1 POSITION METERS 2 2
051955,000167: # 7 5
051956,000168: # 20D VATT1 VELOCITY M/CSEC 2 2
051957,000169: # 3 2 36 30
051958,000170: # 26D MU(P) MU M /CS 2 2
051959,000171:
051960,000172: # X1 MUTABLE ENTRY -2 -10D
051961,000173:
051962,000174: # X2 COORDINT
051963,000175: # X2 COORDINATE SYSTEM ORIGEN 0 2
051964,000176: # (THIS, NOT MOONFLAG, SHOULD BE
051965,000177:
|
|
Page 1205 |
051967,000179: # USED TO DETERMINE ORIGIN.)
051968,000180:
051969,000181: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
051970,000182: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
051971,000183: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
051972,000184: # CALLING PROGRAM.
051973,000185:
051974,000186: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
051975,000187: # -------------------------------------
051976,000188:
051977,000189: # A) PRECISION ORBITAL INTEGRATION. CSMPREC,LEMPREC ENTRANCES
051978,000190: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
051979,000191: # L CALL
051980,000192: # L+1 CSMPREC (OR LEMPREC)
051981,000193: # L+2 RETURN
051982,000194: # INPUT 28
051983,000195: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
051984,000196: # OUTPUT
051985,000197: # THE DATA LISTED IN SECTION 3.0 PLUS
051986,000198: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
051987,000199: # BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
051988,000200: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
051989,000201: # L-X STORE TIME IN PUSH LIST (TDEC1)
051990,000202: # L CALL
051991,000203: # L+1 CSMCONIC (OR LEMCONIC)
051992,000204: # INPUT/OUTPUT
051993,000205: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
051994,000206: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
051995,000207: # CALL
051996,000208: # INTSTALL
051997,000209: # VLOAD
051998,000210: # POSITION VECTOR
051999,000211: # STOVL RCV
052000,000212: # VELOCITY VECTOR
052001,000213: # STODL VCV
052002,000214: # TIME STATE VECTOR VALID
052003,000215: # STODL TET
052004,000216: # FINAL RADIUS
052005,000217: # STORE RFINAL
052006,000218: # SET(CLEAR) SET(CLEAR)
052007,000219: # INTYPFLAG
052008,000220: # MOONFLAG
052009,000221: # SET(CLEAR) DLOAD
052010,000222: # DESIRED TIME
052011,000223: # STCALL TDEC1
052012,000224: # INTEGRVS
052013,000225: # INPUT
052014,000226: # RCV POSITION VECTOR METERS
052015,000227: # VCV VELOCITY VECTOR M/CSEC
052016,000228: # TET TIME OF STATE VECTOR(MAY = 0) CSEC B-28
052017,000229:
|
|
Page 1206 |
052019,000231: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
052020,000232: # (MAY BE INCREMENT IF TET=0)
052021,000233: # OUTPUT
052022,000234: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
052023,000235: # DEPENDING ON INTYPFLG.
052024,000236: # D) INTEGRATE STATE VECTOR.INTGRV ENTRANCE
052025,000237: # L-X STORE TIME IN PUSH LIST (TDEC1)(MAY BE DONE AFTER CALL TO INTSTALL)
052026,000238: # L-8 CALL
052027,000239: # L-7
052028,000240: # L-6 SET(CLEAR) SET(CLEAR)
052029,000241: # L-5 VINTFLAG 1=CSM, 0=LM
052030,000242: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
052031,000243: # L-3 SET(CLEAR) SET(CLEAR)
052032,000244: # L-2 DIMOFLAG 1=W-MATRIX, 0=NO W-MATRIX
052033,000245: # L-1 D6OR9FLG 1=9X9, 0=6X6
052034,000246: # L SET DLOAD
052035,000247: # L+1 STATEFLG DESIRE PERMANENT UPDATE
052036,000248: # L+2 FINAL RAD. OF STATE VECTOR
052037,000249: # L+3 STCALL RFINAL
052038,000250: # L+4 INTEGRV
052039,000251: # L CALL NORMAL USE -- WILL UPDATE STATE
052040,000252: # L+1 INTEGRV VECTOR IF DIMOFLAG=1.(STATEFLG IS
052041,000253: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
052042,000254: # IT IS USED.)
052043,000255: # INPUT
052044,000256: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
052045,000257: # OUTPUT
052046,000258: # SAME AS FOR PRECISION OR CONIC INTEGRATION
052047,000259: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
052048,000260: # THE PERMANENT STATE VECTOR REPRESENTATION.
052049,000261:
052050,000262: 11,2403 BANK 11
052051,000263: 13,2000 SETLOC INTINIT
052052,000264: 13,2000 BANK
052053,000265: 13,2641 E3,1554 EBANK= RRECTCSM
052054,000266: 13,2641 COUNT* $$/INTIN
052055,000267: 13,2641 05355 STATEINT TC PHASCHNG
052056,000268: 13,2642 00052 OCT 00052
052057,000269: 13,2643 35010 CAF PRIO5
052058,000270: 13,2644 05076 TC FINDVAC
052059,000271: 13,2645 E3,1554 EBANK= RRECTCSM
052060,000272: 13,2645 02650 26063 2CADR STATINT1
052061,000273: 13,2647 05263 TC TASKOVER
052062,000274: 13,2650 06060 STATINT1 TC INTPRET
052063,000275: 13,2651 47014 BON RTB
052064,000276: 13,2652 04712 QUITFLAG # KILL INTEGRATION UNTIL NEXT POO.
052065,000277: 13,2653 26711 NOINT
052066,000278: 13,2654 21603 LOADTIME
052067,000279: 13,2655 00041 STORE TDEC1
052068,000280:
|
|
Page 1207 |
052070,000282: 13,2656 77624 CALL
052071,000283: 13,2657 27447 INTSTALL
052072,000284: 13,2660 45014 SET CALL
052073,000285: 13,2661 01076 NODOFLAG
052074,000286: 13,2662 26702 SETIFLGS
052075,000287: 13,2663 52014 SET GOTO
052076,000288: 13,2664 01460 POOHFLAG
052077,000289: 13,2665 26026 STATEUP
052078,000290: 13,2666 00003 25140 600SECS 2DEC 60000 B-28
052079,000291:
052080,000292: 13,2670 77414 ENDINT CLEAR EXIT
052081,000293: 13,2671 01672 STATEFLG
052082,000294: 13,2672 05355 TC PHASCHNG
052083,000295: 13,2673 20032 OCT 20032
052084,000296: 13,2674 00006 EXTEND
052085,000297: 13,2675 32667 DCA 600SECS
052086,000298: 13,2676 05301 TC LONGCALL
052087,000299: 13,2677 E3,1626 EBANK= RRECTHIS
052088,000300: 13,2677 02641 26063 2CADR STATEINT
052089,000301: 13,2701 05146 TC ENDOFJOB
052090,000302: 13,2702 43014 SETIFLGS SET CLEAR
052091,000303: 13,2703 01472 STATEFLG
052092,000304: 13,2704 01673 INTYPFLG
052093,000305: 13,2705 43014 CLEAR CLEAR
052094,000306: 13,2706 01676 DIM0FLAG
052095,000307: 13,2707 01675 D6OR9FLG
052096,000308: 13,2710 77616 RVQ
052097,000309: 13,2711 77776 NOINT EXIT
052098,000310: 13,2712 05355 TC PHASCHNG
052099,000311: 13,2713 00002 OCT 00002
052100,000312:
052101,000313: 13,2714 05520 TC DOWNFLAG
052102,000314: 13,2715 00221 ADRES QUITFLAG
052103,000315: 13,2716 05146 TC ENDOFJOB
052104,000316:
052105,000317: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
052106,000318:
052107,000319: # CALLING SEQUENCE
052108,000320: # L CALL
052109,000321: # L+1 ATOPCSM
052110,000322:
052111,000323: # NORMAL EXIT AT L+2
052112,000324:
052113,000325: 13,2717 47020 ATOPCSM STQ RTB
052114,000326: 13,2720 00051 S2
052115,000327: 13,2721 26732 MOVEACSM
052116,000328: 13,2722 45014 SET CALL
052117,000329: 13,2723 04063 CMOONFLG
052118,000330: 13,2724 26114 SVDWN1
052119,000331:
|
|
Page 1208 |
052121,000333: 13,2725 43014 BON CLRGO
052122,000334: 13,2726 00303 MOONFLAG
052123,000335: 13,2727 00051 S2
052124,000336: 13,2730 04223 CMOONFLG
052125,000337: 13,2731 00051 S2
052126,000338: 13,2732 03074 MOVEACSM TC SETBANK
052127,000339: 13,2733 55500 TS DIFEQCNT # INITIALIZE INDEX
052128,000340: 13,2734 51500 INDEX DIFEQCNT
052129,000341: 13,2735 31502 CA RRECT
052130,000342: 13,2736 51500 INDEX DIFEQCNT
052131,000343: 13,2737 55554 TS RRECTCSM
052132,000344: 13,2740 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
052133,000345: 13,2741 12733 TCF MOVEACSM +1 # NO-LOOP
052134,000346: 13,2742 06102 TC DANZIG # COMPLETE- RETURN
052135,000347:
052136,000348:
052137,000349: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
052138,000350:
052139,000351: # CALLING SEQUENCE
052140,000352: # L CALL
052141,000353: # PTOACSM
052142,000354:
052143,000355: # NORMAL EXIT AT L+2
052144,000356:
052145,000357: 13,2743 43034 PTOACSM RTB BON
052146,000358: 13,2744 26761 MOVEPCSM
052147,000359: 13,2745 04303 CMOONFLG
052148,000360: 13,2746 26754 SETMOON
052149,000361: 13,2747 66214 CLRMOON CLEAR SSP
052150,000362: 13,2750 00263 MOONFLAG
052151,000363: 13,2751 02031 PBODY
052152,000364: 13,2752 00000 0
052153,000365: 13,2753 77616 RVQ
052154,000366: 13,2754 66214 SETMOON SET SSP
052155,000367: 13,2755 00063 MOONFLAG
052156,000368: 13,2756 02031 PBODY
052157,000369: 13,2757 00002 2
052158,000370: 13,2760 77616 RVQ
052159,000371: 13,2761 03074 MOVEPCSM TC SETBANK
052160,000372: 13,2762 55500 TS DIFEQCNT
052161,000373: 13,2763 51500 INDEX DIFEQCNT
052162,000374: 13,2764 31554 CA RRECTCSM
052163,000375: 13,2765 51500 INDEX DIFEQCNT
052164,000376: 13,2766 55502 TS RRECT
052165,000377: 13,2767 11500 CCS DIFEQCNT
052166,000378: 13,2770 12762 TCF MOVEPCSM +1
052167,000379: 13,2771 06102 TC DANZIG
052168,000380:
052169,000381:
052170,000382: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
052171,000383:
|
|
Page 1209 |
052173,000385: 13,2772 47020 ATOPLEM STQ RTB
052174,000386: 13,2773 00051 S2
052175,000387: 13,2774 27005 MOVEALEM
052176,000388: 13,2775 45014 SET CALL
052177,000389: 13,2776 04064 LMOONFLG
052178,000390: 13,2777 26070 SVDWN2
052179,000391: 13,3000 43014 BON CLRGO
052180,000392: 13,3001 00303 MOONFLAG
052181,000393: 13,3002 00051 S2
052182,000394: 13,3003 04224 LMOONFLG
052183,000395: 13,3004 00051 S2
052184,000396: 13,3005 03074 MOVEALEM TC SETBANK
052185,000397: 13,3006 55500 TS DIFEQCNT
052186,000398: 13,3007 51500 INDEX DIFEQCNT
052187,000399: 13,3010 31502 CA RRECT
052188,000400: 13,3011 51500 INDEX DIFEQCNT
052189,000401: 13,3012 55626 TS RRECTLEM
052190,000402: 13,3013 11500 CCS DIFEQCNT
052191,000403: 13,3014 13006 TCF MOVEALEM +1
052192,000404: 13,3015 06102 TC DANZIG
052193,000405:
052194,000406:
052195,000407: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
052196,000408:
052197,000409: 13,3016 47014 PTOALEM BON RTB
052198,000410: 13,3017 04307 SURFFLAG
052199,000411: 13,3020 27037 USEPIOS
052200,000412: 13,3021 27026 MOVEPLEM
052201,000413: 13,3022 52014 BON GOTO
052202,000414: 13,3023 04304 LMOONFLG
052203,000415: 13,3024 26754 SETMOON
052204,000416: 13,3025 26747 CLRMOON
052205,000417: 13,3026 03074 MOVEPLEM TC SETBANK
052206,000418: 13,3027 55500 TS DIFEQCNT
052207,000419: 13,3030 51500 INDEX DIFEQCNT
052208,000420: 13,3031 31626 CA RRECTLEM
052209,000421: 13,3032 51500 INDEX DIFEQCNT
052210,000422: 13,3033 55502 TS RRECT
052211,000423: 13,3034 11500 CCS DIFEQCNT
052212,000424: 13,3035 13027 TCF MOVEPLEM +1
052213,000425: 13,3036 06102 TC DANZIG
052214,000426:
052215,000427:
052216,000428: 13,3037 77201 USEPIOS SETPD VLOAD
052217,000429: 13,3040 00001 0
052218,000430: 13,3041 02021 RLS
052219,000431: 13,3042 41525 PDDL PUSH
052220,000432: 13,3043 00041 TDEC1
052221,000433: 13,3044 15517 STODL TET
052222,000434: 13,3045 27762 5/8
052223,000435:
|
|
Page 1210 |
052225,000437: 13,3046 77624 CALL
052226,000438: 13,3047 55716 RP-TO-R
052227,000439: 13,3050 25535 STOVL RCV
052228,000440: 13,3051 24001 ZUNIT
052229,000441: 13,3052 14001 STODL 0D
052230,000442: 13,3053 01517 TET
052231,000443: 13,3054 14007 STODL 6D
052232,000444: 13,3055 27762 5/8
052233,000445: 13,3056 45014 SET CALL # NEEDED FOR SETTING X1 ON EXIT
052234,000446: 13,3057 00063 MOONFLAG
052235,000447: 13,3060 55716 RP-TO-R
052236,000448: 13,3061 74235 VXV VXSC
052237,000449: 13,3062 01535 RCV
052238,000450: 13,3063 26001 OMEGMOON
052239,000451: 13,3064 25543 STOVL VCV
052240,000452: 13,3065 24007 ZEROVEC
052241,000453: 13,3066 01521 STORE TDELTAV
052242,000454: 13,3067 67174 AXT,2 SXA,2
052243,000455: 13,3070 00002 2
052244,000456: 13,3071 02030 PBODY
052245,000457: 13,3072 35527 STCALL TNUV
052246,000458: 13,3073 27215 A-PCHK
052247,000459: 13,3074 33100 SETBANK CAF INTBANK
052248,000460: 13,3075 54006 TS BBANK
052249,000461: 13,3076 33505 CAF FORTYONE
052250,000462: 13,3077 00002 TC Q
052251,000463: 13,3100 E3,1554 EBANK= RRECTCSM
052252,000464: 13,3100 26063 INTBANK BBCON INTEGRV
052253,000465:
052254,000466:
052255,000467: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
052256,000468: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
052257,000469:
052258,000470: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
052259,000471: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
052260,000472: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
052261,000473: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
052262,000474: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
052263,000475: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
052264,000476:
052265,000477: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
052266,000478: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
052267,000479: # CSMPREC CSMCONIC LEMPREC LEMCONIC
052268,000480: # VINTFLAG SET SET CLEAR CLEAR
052269,000481: # INTYPFLG CLEAR SET CLEAR SET
052270,000482: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
052271,000483:
052272,000484:
052273,000485: # CALLING SEQUENCE
052274,000486: # L-X STORE TDEC1
052275,000487:
|
|
Page 1211 |
052277,000489: # L CALL (STCALL TDEC1)
052278,000490: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
052279,000491:
052280,000492: # NORMAL EXIT TO L+2
052281,000493:
052282,000494:
052283,000495: # SUBROUTINES CALLED
052284,000496: # INTEGRV1
052285,000497: # PRECOUT FOR CSMPREC AND LEMPREC
052286,000498: # CONICOUT FOR CSMCONIC AND LEMCONIC
052287,000499:
052288,000500:
052289,000501: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
052290,000502: # INPUT
052291,000503: # TDEC1 TIME TO INTEGRATE TO . CSECS B-28
052292,000504: 13,3101 45020 CSMPREC STQ CALL
052293,000505: 13,3102 00046 X1
052294,000506: 13,3103 27447 INTSTALL
052295,000507: 13,3104 43130 SXA,1 SET
052296,000508: 13,3105 02101 IRETURN
052297,000509: 13,3106 01474 VINTFLAG
052298,000510:
052299,000511: 13,3107 43014 IFLAGP SET CLEAR
052300,000512: 13,3110 01467 PRECIFLG
052301,000513: 13,3111 01676 DIM0FLAG
052302,000514: 13,3112 77614 CLRGO
052303,000515: 13,3113 01633 INTYPFLG
052304,000516: 13,3114 27174 INTEGRV1
052305,000517: 13,3115 45020 LEMPREC STQ CALL
052306,000518: 13,3116 00046 X1
052307,000519: 13,3117 27447 INTSTALL
052308,000520: 13,3120 43130 SXA,1 CLRGO
052309,000521: 13,3121 02101 IRETURN
052310,000522: 13,3122 01634 VINTFLAG
052311,000523: 13,3123 27107 IFLAGP
052312,000524:
052313,000525: 13,3124 45020 CSMCONIC STQ CALL
052314,000526: 13,3125 00046 X1
052315,000527: 13,3126 27447 INTSTALL
052316,000528: 13,3127 43130 SXA,1 SET
052317,000529: 13,3130 02101 IRETURN
052318,000530: 13,3131 01474 VINTFLAG
052319,000531: 13,3132 43014 IFLAGC CLEAR SETGO
052320,000532: 13,3133 01676 DIM0FLAG
052321,000533: 13,3134 01433 INTYPFLG
052322,000534: 13,3135 27174 INTEGRV1
052323,000535: 13,3136 45020 LEMCONIC STQ CALL
052324,000536: 13,3137 00046 X1
052325,000537: 13,3140 27447 INTSTALL
052326,000538: 13,3141 43130 SXA,1 CLRGO
052327,000539:
|
|
Page 1212 |
052329,000541: 13,3142 02101 IRETURN
052330,000542: 13,3143 01634 VINTFLAG
052331,000543: 13,3144 27132 IFLAGC
052332,000544:
052333,000545: 13,3145 66214 INTEGRVS SET SSP
052334,000546: 13,3146 01467 PRECIFLG
052335,000547: 13,3147 02031 PBODY
052336,000548: 13,3150 00000 0
052337,000549: 13,3151 66214 BOF SSP
052338,000550: 13,3152 00343 MOONFLAG
052339,000551: 13,3153 27156 +3
052340,000552: 13,3154 02031 PBODY
052341,000553: 13,3155 00002 2
052342,000554: 13,3156 77220 STQ VLOAD
052343,000555: 13,3157 02101 IRETURN
052344,000556: 13,3160 24007 ZEROVEC
052345,000557: 13,3161 01521 STORE TDELTAV
052346,000558: 13,3162 35527 STCALL TNUV
052347,000559: 13,3163 27720 RECTIFY
052348,000560: 13,3164 43014 CLEAR SET
052349,000561: 13,3165 01676 DIM0FLAG
052350,000562: 13,3166 04062 NEWIFLG
052351,000563: 13,3167 77614 SETGO
052352,000564: 13,3170 04020 RPQFLAG
052353,000565: 13,3171 27206 ALOADED
052354,000566: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER ,
052355,000567: # NORMALLY THE NAVIGATION PROGRAM ,TO SET THE INTEG. FLAGS. THE ROUTINE
052356,000568: # IS ENTERED AT INTEGRV1 BY CSMPREC ET.AL. AND AT ALOADED BY INTEGRVS.
052357,000569: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
052358,000570: # PROGRAM FOR PRECISION OR CONIC
052359,000571:
052360,000572: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
052361,000573: # SETTING ANY FLAGS.
052362,000574: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
052363,000575: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
052364,000576: # INTYPFLG
052365,000577: # DIM0FLAG
052366,000578: # D6OR9FLG
052367,000579: # CALLING SEQUENCE
052368,000580: # L-X CALL
052369,000581: # L-Y INTSTALL
052370,000582: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
052371,000583: # AND DIM0FLAG IS CLEAR.
052372,000584: # L CALL
052373,000585: # L+1 INTEGRV
052374,000586: # INITIALIZATION
052375,000587: # FLAGS AS ABOVE
052376,000588: # STORE TIME TO INTEGRATE TO IN TDEC1
052377,000589: # OUTPUT
052378,000590: # RATT AS
052379,000591:
|
|
Page 1213 |
052381,000593: # VATT DEFINED
052382,000594: # TAT BEFORE
052383,000595:
052384,000596:
052385,000597: 13,3172 77620 INTEGRV STQ
052386,000598: 13,3173 02101 IRETURN
052387,000599: 13,3174 43014 INTEGRV1 SET SET
052388,000600: 13,3175 04060 RPQFLAG
052389,000601: 13,3176 04062 NEWIFLG
052390,000602: 13,3177 77731 INTEGRV2 SSP
052391,000603: 13,3200 00053 QPRET
052392,000604: 13,3201 27206 ALOADED
052393,000605: 13,3202 52014 BON GOTO
052394,000606: 13,3203 01714 VINTFLAG
052395,000607: 13,3204 26743 PTOACSM
052396,000608: 13,3205 27016 PTOALEM
052397,000609: 13,3206 77745 ALOADED DLOAD
052398,000610: 13,3207 00041 TDEC1
052399,000611: 13,3210 01115 STORE TDEC
052400,000612: 13,3211 52014 BOFF GOTO
052401,000613: 13,3212 01753 INTYPFLG
052402,000614: 13,3213 27315 TESTLOOP
052403,000615: 13,3214 27301 RVCON
052404,000616: 13,3215 77414 A-PCHK BOF EXIT
052405,000617: 13,3216 01752 STATEFLG
052406,000618: 13,3217 27236 RECTOUT
052407,000619: 13,3220 05355 TC PHASCHNG
052408,000620: 13,3221 04022 OCT 04022
052409,000621: 13,3222 05506 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
052410,000622: 13,3223 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
052411,000623: 13,3224 06060 TC INTPRET
052412,000624: 13,3225 77731 SSP
052413,000625: 13,3226 00053 QPRET
052414,000626: 13,3227 27234 PHEXIT
052415,000627: 13,3230 52014 BON GOTO
052416,000628: 13,3231 01714 VINTFLAG
052417,000629: 13,3232 26717 ATOPCSM
052418,000630: 13,3233 26772 ATOPLEM
052419,000631: 13,3234 77624 PHEXIT CALL
052420,000632: 13,3235 51770 GRP2PC
052421,000633: 13,3236 45001 RECTOUT SETPD CALL
052422,000634: 13,3237 00001 0
052423,000635: 13,3240 27720 RECTIFY
052424,000636: 13,3241 53775 VLOAD VSL*
052425,000637: 13,3242 01503 RRECT
052426,000638: 13,3243 57576 0,2
052427,000639: 13,3244 53715 PDVL VSL* # RATT TO PD0
052428,000640: 13,3245 01511 VRECT
052429,000641: 13,3246 57576 0,2
052430,000642: 13,3247 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
052431,000643:
|
|
Page 1214 |
052433,000645: 13,3250 01517 TET
052434,000646: 13,3251 01503 RRECT
052435,000647: 13,3252 64715 PDVL PDDL*
052436,000648: 13,3253 01511 VRECT
052437,000649: 13,3254 51770 MUEARTH,2
052438,000650: 13,3255 76006 PUSH AXT,1
052439,000651: 13,3256 77765 DEC -10 B-14
052440,000652: 13,3257 76014 BON AXT,1
052441,000653: 13,3260 00303 MOONFLAG
052442,000654: 13,3261 27263 +2
052443,000655: 13,3262 77775 DEC -2 B-14
052444,000656: 13,3263 40001 INTEXIT SETPD BOV
052445,000657: 13,3264 00001 0
052446,000658: 13,3265 27266 +1
052447,000659: 13,3266 43014 CLEAR CLEAR
052448,000660: 13,3267 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
052449,000661: 13,3270 01667 PRECIFLG
052450,000662: 13,3271 77614 CLEAR
052451,000663: 13,3272 01672 STATEFLG
052452,000664: 13,3273 77535 SLOAD EXIT
052453,000665: 13,3274 02102 IRETURN
052454,000666: 13,3275 30154 CA MPAC
052455,000667: 13,3276 50120 INDEX FIXLOC
052456,000668: 13,3277 54052 TS QPRET
052457,000669: 13,3300 03460 TC INTWAKE
052458,000670: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
052459,000671: # VELOCITY FOR THE INTERVAL (TET-TDEC)
052460,000672:
052461,000673: 13,3301 45345 RVCON DLOAD DSU
052462,000674: 13,3302 01115 TDEC
052463,000675: 13,3303 01517 TET
052464,000676: 13,3304 36074 STCALL TAU.
052465,000677: 13,3305 27720 RECTIFY
052466,000678: 13,3306 77624 CALL
052467,000679: 13,3307 22403 KEPPREP
052468,000680: 13,3310 43345 DLOAD DAD
052469,000681: 13,3311 01551 TC
052470,000682: 13,3312 01517 TET
052471,000683: 13,3313 35517 STCALL TET
052472,000684: 13,3314 27236 RECTOUT
052473,000685:
|
|
Page 1215 |
052475,000687: # TESTLOOP
052476,000688:
052477,000689: 13,3315 43014 TESTLOOP BOF CLRGO
052478,000690: 13,3316 04752 QUITFLAG
052479,000691: 13,3317 27322 +3
052480,000692: 13,3320 01632 STATEFLG
052481,000693: 13,3321 27263 INTEXIT # STOP INTEGRATION
052482,000694: 13,3322 73001 +3 SETPD LXA,2
052483,000695: 13,3323 00013 10D
052484,000696: 13,3324 02030 PBODY
052485,000697: 13,3325 51575 VLOAD ABVAL
052486,000698: 13,3326 01535 RCV
052487,000699: 13,3327 43006 PUSH CLEAR # RC TO 10D
052488,000700: 13,3330 00262 MIDFLAG
052489,000701: 13,3331 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
052490,000702: 13,3332 53755 RME,2
052491,000703: 13,3333 27336 +3
052492,000704: 13,3334 77614 SET
052493,000705: 13,3335 00062 MIDFLAG
052494,000706: 13,3336 41345 NORFINAL DLOAD DMP
052495,000707: 13,3337 00013 10D
052496,000708: 13,3340 00043 34D
052497,000709: 13,3341 55762 SR1R DDV*
052498,000710: 13,3342 51770 MUEARTH,2
052499,000711: 13,3343 41366 SQRT DMP
052500,000712: 13,3344 25762 .3D
052501,000713: 13,3345 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
052502,000714: 13,3346 54345 DLOAD SL
052503,000715: 13,3347 00155 MPAC
052504,000716: 13,3350 20220 15D # OF 128 CSECS.
052505,000717: 13,3351 40006 PUSH BOV
052506,000718: 13,3352 27377 MAXDT
052507,000719: 13,3353 50021 BDSU BMN
052508,000720: 13,3354 27446 DT/2MAX
052509,000721: 13,3355 27377 MAXDT
052510,000722: 13,3356 45345 DT/2COMP DLOAD DSU
052511,000723: 13,3357 01115 TDEC
052512,000724: 13,3360 01517 TET
052513,000725: 13,3361 54234 RTB SL
052514,000726: 13,3362 21622 SGNAGREE
052515,000727: 13,3363 20211 8D
052516,000728: 13,3364 02076 STORE DT/2 # B-19
052517,000729: 13,3365 51400 BOV ABS
052518,000730: 13,3366 27403 GETMAXDT
052519,000731: 13,3367 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
052520,000732: 13,3370 00015 12D
052521,000733: 13,3371 27407 P00HCHK
052522,000734: 13,3372 75345 USEMAXDT DLOAD SIGN
052523,000735: 13,3373 00015 12D
052524,000736: 13,3374 02076 DT/2
052525,000737:
|
|
Page 1216 |
052527,000739: 13,3375 36076 STCALL DT/2
052528,000740: 13,3376 27407 P00HCHK
052529,000741: 13,3377 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
052530,000742: 13,3400 27446 DT/2MAX
052531,000743: 13,3401 77650 GOTO
052532,000744: 13,3402 27356 DT/2COMP
052533,000745: 13,3403 77634 GETMAXDT RTB
052534,000746: 13,3404 31765 SIGNMPAC
052535,000747: 13,3405 36076 STCALL DT/2
052536,000748: 13,3406 27372 USEMAXDT
052537,000749: 13,3407 51545 P00HCHK DLOAD ABS
052538,000750: 13,3410 02076 DT/2
052539,000751: 13,3411 50025 DSU BMN
052540,000752: 13,3412 27444 DT/2MIN
052541,000753: 13,3413 27215 A-PCHK
052542,000754: 13,3414 43014 BOFF BON # NO BACKWARDS INTEGRATION
052543,000755: 13,3415 01740 POOHFLAG # WHEN IN POO
052544,000756: 13,3416 23307 TIMESTEP
052545,000757: 13,3417 01707 PRECIFLG
052546,000758: 13,3420 23307 TIMESTEP
052547,000759: 13,3421 45345 DLOAD DSU
052548,000760: 13,3422 02076 DT/2
052549,000761: 13,3423 00015 12D
052550,000762: 13,3424 43040 BMN BOFCLR
052551,000763: 13,3425 27215 A-PCHK
052552,000764: 13,3426 04242 NEWIFLG
052553,000765: 13,3427 23307 TIMESTEP
052554,000766: 13,3430 45345 DLOAD DSU
052555,000767: 13,3431 01115 TDEC
052556,000768: 13,3432 01517 TET
052557,000769: 13,3433 77640 BMN # NO BACKWARD INTEGRATION
052558,000770: 13,3434 27263 INTEXIT
052559,000771: 13,3435 40525 PDDL SR4
052560,000772: 13,3436 02076 DT/2 # IS 4(DT) LS(TDEC - TET)
052561,000773: 13,3437 44322 SR2R BDSU # NO
052562,000774: 13,3440 52040 BMN GOTO
052563,000775: 13,3441 27263 INTEXIT
052564,000776: 13,3442 23307 TIMESTEP
052565,000777: 13,3443 00000 01400 DT/2MIN 2DEC 3 B-20
052566,000778: 13,3445 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
052567,000779:
052568,000780: 13,3447 77776 INTSTALL EXIT
052569,000781: 13,3450 30106 CA RASFLAG
052570,000782: 13,3451 73521 MASK INTBITAB # IS THIS STALL AREA FREE
052571,000783: 13,3452 00006 EXTEND
052572,000784: 13,3453 13513 BZF OKTOGRAB # YES
052573,000785: 13,3454 33520 CAF WAKESTAL
052574,000786: 13,3455 05124 TC JOBSLEEP
052575,000787: 13,3456 77776 INTWAKE0 EXIT
052576,000788:
|
|
Page 1217 |
052578,000790: 13,3457 13500 TCF INTWAKE1
052579,000791:
052580,000792: 13,3460 40106 INTWAKE CS RASFLAG # IS THIS INTSTALLED ROUTINE TO BE
052581,000793: 13,3461 74736 MASK REINTBIT # RESTARTED
052582,000794: 13,3462 10000 CCS A
052583,000795: 13,3463 03500 TC INTWAKE1 # NO
052584,000796:
052585,000797: 13,3464 50120 INDEX FIXLOC
052586,000798: 13,3465 30052 CA QPRET
052587,000799: 13,3466 55054 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
052588,000800:
052589,000801: 13,3467 05355 TC PHASCHNG
052590,000802: 13,3470 04022 OCT 04022
052591,000803:
052592,000804: 13,3471 31054 CA TBASE2
052593,000805: 13,3472 50120 INDEX FIXLOC
052594,000806: 13,3473 54052 TS QPRET
052595,000807:
052596,000808: 13,3474 34736 CAF REINTBIT
052597,000809: 13,3475 70106 MASK RASFLAG
052598,000810: 13,3476 00006 EXTEND
052599,000811: 13,3477 13516 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
052600,000812:
052601,000813: 13,3500 33520 INTWAKE1 CAF WAKESTAL
052602,000814: 13,3501 00004 INHINT
052603,000815: 13,3502 05130 TC JOBWAKE
052604,000816: 13,3503 10064 CCS LOCCTR
052605,000817: 13,3504 13500 TCF INTWAKE1
052606,000818: 13,3505 00051 FORTYONE DEC 41 B-14
052607,000819: 13,3506 43521 CS INTBITAB
052608,000820: 13,3507 70106 MASK RASFLAG
052609,000821: 13,3510 54106 TS RASFLAG # RELEASE STALL AREA
052610,000822: 13,3511 00003 RELINT
052611,000823: 13,3512 13516 TCF GOBAC
052612,000824: 13,3513 34727 OKTOGRAB CAF INTFLBIT
052613,000825: 13,3514 00004 INHINT
052614,000826: 13,3515 26106 ADS RASFLAG
052615,000827: 13,3516 06060 GOBAC TC INTPRET
052616,000828: 13,3517 77616 RVQ
052617,000829: 13,3520 27450 WAKESTAL CADR INTSTALL +1
052618,000830: 13,3521 20100 INTBITAB OCT 20100
052619,000831:
|
|
Page 1218 |
052621,000833: # AVETOMID
052622,000834:
052623,000835: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
052624,000836: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
052625,000837: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
052626,000838:
052627,000839: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
052628,000840: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
052629,000841:
052630,000842: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
052631,000843:
052632,000844: # FINALLY TRKMKCNT IS ZEROED
052633,000845:
052634,000846:
052635,000847: 13,2000 SETLOC INTINIT
052636,000848: 13,2000 BANK
052637,000849:
052638,000850: 13,3522 COUNT* $$/INTIN
052639,000851: 13,3522 43020 AVETOMID STQ BON
052640,000852: 13,3523 02767 EGRESS
052641,000853: 13,3524 02716 RENDWFLG
052642,000854: 13,3525 27571 INT/W # W-MATRIX VALID ,GO INTEGRATE IT
052643,000855: 13,3526 77614 BON
052644,000856: 13,3527 01711 ORBWFLAG
052645,000857: 13,3530 27571 INT/W # W-MATRIX VALID ,GO INTEGRATE IT
052646,000858:
052647,000859: 13,3531 45145 OTHERS DLOAD CALL # GET SET FOR OTHER VEHICLE INTEGRATION
052648,000860: 13,3532 01234 PIPTIME # DESIRED TIME
052649,000861: 13,3533 27447 INTSTALL
052650,000862: 13,3534 45014 SET CALL
052651,000863: 13,3535 01474 VINTFLAG # CM
052652,000864: 13,3536 26702 SETIFLGS # SETS UP NONE W-MAT. PERMANENT INTEG.
052653,000865: 13,3537 34041 STCALL TDEC1
052654,000866: 13,3540 27172 INTEGRV
052655,000867:
052656,000868: 13,3541 45174 AXT,2 CALL # NOW MOVE PROPERLY SCALE RN,UN AS WELL AS
052657,000869: 13,3542 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
052658,000870: 13,3543 27447 INTSTALL
052659,000871: 13,3544 77014 BON AXT,2
052660,000872: 13,3545 04304 MOONTHIS
052661,000873: 13,3546 27550 +2
052662,000874: 13,3547 00000 0
052663,000875: 13,3550 53775 VLOAD VSR*
052664,000876: 13,3551 01220 RN
052665,000877: 13,3552 57176 0,2
052666,000878: 13,3553 01503 STORE RRECT
052667,000879: 13,3554 15535 STODL RCV
052668,000880: 13,3555 01234 PIPTIME
052669,000881: 13,3556 25517 STOVL TET
052670,000882: 13,3557 01226 VN
052671,000883:
|
|
Page 1219 |
052673,000885: 13,3560 45057 VSR* CALL
052674,000886: 13,3561 57176 0,2
052675,000887: 13,3562 27734 MINIRECT # FINISH SETTING UP STATE VECTOR
052676,000888: 13,3563 66234 RTB SSP
052677,000889: 13,3564 27005 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
052678,000890: 13,3565 03463 TRKMKCNT
052679,000891: 13,3566 00000 0
052680,000892: 13,3567 77650 GOTO
052681,000893: 13,3570 47211 FAZAB5
052682,000894:
052683,000895: 13,3571 45145 INT/W DLOAD CALL
052684,000896: 13,3572 01234 PIPTIME # INTEGRATE W THRU BURN
052685,000897: 13,3573 27447 INTSTALL
052686,000898: 13,3574 43014 SET SET
052687,000899: 13,3575 01476 DIM0FLAG # DO W-MATRIX
052688,000900: 13,3576 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
052689,000901: 13,3577 43014 SET CLEAR
052690,000902: 13,3600 01475 D6OR9FLG # 9X9 FOR LM
052691,000903: 13,3601 01674 VINTFLAG # LM
052692,000904: 13,3602 34041 STCALL TDEC1
052693,000905: 13,3603 27172 INTEGRV
052694,000906: 13,3604 77650 GOTO
052695,000907: 13,3605 27531 OTHERS # NOW GO DO THE OTHER VEHICLE
052696,000908:
|
|
Page 1220 |
052698,000910: # MIDTOAV1
052699,000911:
052700,000912: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
052701,000913: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
052702,000914: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
052703,000915: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
052704,000916: # IS DONE TO THE CURRENT TIME.
052705,000917: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
052706,000918:
052707,000919: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
052708,000920: # TO THE RETURN ADDRESS
052709,000921:
052710,000922: # IN EITHER CASE , BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
052711,000923: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
052712,000924: # TION TIME AND MPAC IS SET TO THE DELTA TIME---
052713,000925: # TAT MINUS CURRENT TIME.
052714,000926:
052715,000927:
052716,000928: # MIDTOAV2
052717,000929:
052718,000930: # THIS ROUTINE INTEGRATES THIS VEHICLES STATE VECTOR TO THE CURRENT TIME.
052719,000931: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
052720,000932: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
052721,000933:
052722,000934: 21,2000 SETLOC ORBITAL5
052723,000935: 21,2000 BANK
052724,000936: 21,2760 COUNT* $$/INTIN
052725,000937:
052726,000938: 21,2760 E7,1744 EBANK= IRETURN1
052727,000939: 21,2760 43020 MIDTOAV2 STQ CLRGO # INTEGRATE TO PRESENT TIME PLUS TIMEDELT
052728,000940: 21,2761 03744 IRETURN1
052729,000941: 21,2762 04634 MID1FLAG
052730,000942: 21,2763 27621 ENTMID2
052731,000943:
052732,000944: 13,2000 SETLOC INTINIT
052733,000945: 13,2000 BANK
052734,000946: 13,3606 COUNT* $$/INTIN
052735,000947:
052736,000948: 13,3606 43020 MIDTOAV1 STQ SET # INTEGRATE TO TDEC1
052737,000949: 13,3607 03744 IRETURN1
052738,000950: 13,3610 04474 MID1FLAG
052739,000951: 13,3611 43234 RTB DAD # INITIAL CHECK , IS TDEC1 IN THE FUTURE
052740,000952: 13,3612 21603 LOADTIME
052741,000953: 13,3613 11171 TIMEDELT
052742,000954: 13,3614 51021 BDSU BPL
052743,000955: 13,3615 00041 TDEC1
052744,000956: 13,3616 27625 ENTMID1 # Y5S
052745,000957: 13,3617 77624 CALL
052746,000958: 13,3620 27711 NOTIME # NO, SET ALARM, SWITCH TO MIDTOAV2
052747,000959:
|
|
Page 1221 |
052749,000961:
052750,000962: 13,3621 43234 ENTMID2 RTB DAD
052751,000963: 13,3622 21603 LOADTIME
052752,000964: 13,3623 11171 TIMEDELT
052753,000965: 13,3624 00041 STORE TDEC1
052754,000966:
052755,000967: 13,3625 77624 ENTMID1 CALL
052756,000968: 13,3626 27447 INTSTALL
052757,000969: 13,3627 45014 CLEAR CALL
052758,000970: 13,3630 01676 DIM0FLAG # NO W-MATRIX
052759,000971: 13,3631 26066 THISVINT
052760,000972: 13,3632 43014 CLEAR SET
052761,000973: 13,3633 01673 INTYPFLG
052762,000974: 13,3634 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
052763,000975: 13,3635 77624 CALL
052764,000976: 13,3636 27172 INTEGRV # GO INTEGRATE
052765,000977: 13,3637 77214 CLEAR VLOAD
052766,000978: 13,3640 04675 MIDAVFLG
052767,000979: 13,3641 00001 RATT
052768,000980: 13,3642 27545 STOVL RN1
052769,000981: 13,3643 00007 VATT
052770,000982: 13,3644 17553 STODL VN1
052771,000983: 13,3645 00015 TAT
052772,000984: 13,3646 03561 STORE PIPTIME1
052773,000985: 13,3647 66134 SXA,2 SXA,1
052774,000986: 13,3650 02777 RTX2
052775,000987: 13,3651 02776 RTX1
052776,000988: 13,3652 77776 EXIT
052777,000989:
052778,000990: 13,3653 00004 INHINT
052779,000991: 13,3654 00006 EXTEND
052780,000992: 13,3655 40025 DCS TIME2
052781,000993: 13,3656 20155 DAS MPAC
052782,000994: 13,3657 07300 TC TPAGREE
052783,000995:
052784,000996: 13,3660 31744 CA IRETURN1
052785,000997: 13,3661 04631 TC BANKJUMP
052786,000998: 13,3662 47014 CKMID2 BOF RTB
052787,000999: 13,3663 04754 MID1FLAG
052788,001000: 13,3664 27701 MID2
052789,001001: 13,3665 21603 LOADTIME
052790,001002: 13,3666 44215 DAD BDSU
052791,001003: 13,3667 11171 TIMEDELT
052792,001004: 13,3670 01115 TDEC
052793,001005: 13,3671 45044 BPL CALL
052794,001006: 13,3672 27315 TESTLOOP # YES
052795,001007: 13,3673 27711 NOTIME
052796,001008:
052797,001009: 13,3674 43234 TIMEINC RTB DAD
052798,001010: 13,3675 21603 LOADTIME
052799,001011: 13,3676 11171 TIMEDELT
052800,001012:
|
|
Page 1222 |
052802,001014: 13,3677 35115 STCALL TDEC
052803,001015: 13,3700 27315 TESTLOOP
052804,001016:
052805,001017: 13,3701 45345 MID2 DLOAD DSU
052806,001018: 13,3702 01115 TDEC
052807,001019: 13,3703 01517 TET
052808,001020: 13,3704 45246 ABS DSU
052809,001021: 13,3705 11167 3CSECS
052810,001022: 13,3706 52040 BMN GOTO
052811,001023: 13,3707 27215 A-PCHK
052812,001024: 13,3710 27674 TIMEINC
052813,001025:
052814,001026: 13,3711 77414 NOTIME CLEAR EXIT # TOO LATE
052815,001027: 13,3712 04674 MID1FLAG
052816,001028: 13,3713 25744 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
052817,001029: 13,3714 05571 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
052818,001030: 13,3715 01703 OCT 1703 # TIG WILL BE SLIPPED...
052819,001031: 13,3716 06060 TC INTPRET
052820,001032: 13,3717 77616 RVQ
052821,001033:
052822,001034: 04,2000 SETLOC UPDATE2
052823,001035: 04,2000 BANK
052824,001036: 04,3166 COUNT* $$/INTIN
052825,001037:
052826,001038: 04,3166 00000 00003 3CSECS 2DEC 3 B-28
052827,001039: 04,3170 00000 03720 TIMEDELT 2DEC 2000 B-28
052828,001040:
052829,001041: 04,3172 E3,1706 EBANK= TEPHEM
052830,001042: 04,3172 COUNT* $$/INTIN
052831,001043:
052832,001044: 04,3172 06060 INTWAKEU TC INTPRET
052833,001045:
052834,001046: 04,3173 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
052835,001047: 04,3174 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
052836,001048: 04,3175 11241 INTWAKUP
052837,001049:
052838,001050: 04,3176 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
052839,001051: 04,3177 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
052840,001052: 04,3200 25535 STOVL RCV
052841,001053: 04,3201 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
052842,001054: 04,3202 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
052843,001055: 04,3203 27735 RECTIFY +13D # TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
052844,001056: 04,3204 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
052845,001057: 04,3205 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
052846,001058: 04,3206 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
052847,001059: 04,3207 11250 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
052848,001060: 04,3210 11215 INTWAKEM # SPHERE OF INFLUENCE.........
052849,001061: 04,3211 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
052850,001062: 04,3212 00000 DEC 0 B-14
052851,001063:
|
|
Page 1223 |
052853,001065: 04,3213 00223 MOONFLAG
052854,001066: 04,3214 11220 INTWAKEC
052855,001067: 04,3215 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
052856,001068: 04,3216 00002 DEC 2 B-14
052857,001069: 04,3217 00063 MOONFLAG
052858,001070: 04,3220 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
052859,001071: # MOONFLAG SET (OR CLEARED).
052860,001072: 04,3221 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
052861,001073: 04,3222 11230 INTWAKLM # STATE VECTOR UPDATE......
052862,001074: 04,3223 77624 CALL # UPDATE CSM STATE VECTOR
052863,001075: 04,3224 26717 ATOPCSM
052864,001076:
052865,001077: 04,3225 52014 CLEAR GOTO
052866,001078: 04,3226 01671 ORBWFLAG
052867,001079: 04,3227 11232 INTWAKEX
052868,001080:
052869,001081: 04,3230 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
052870,001082: 04,3231 26772 ATOPLEM
052871,001083:
052872,001084: 04,3232 77414 INTWAKEX CLEAR EXIT
052873,001085: 04,3233 02676 RENDWFLG
052874,001086:
052875,001087: 04,3234 34746 CAF ZERO
052876,001088: 04,3235 00006 EXTEND
052877,001089: 04,3236 01077 WRITE CHAN77 # ZERO CHANNEL 77
052878,001090: 04,3237 E3,1501 EBANK= UPSVFLAG
052879,001091: 04,3237 55501 TS UPSVFLAG
052880,001092:
052881,001093: 04,3240 06060 TC INTPRET
052882,001094: 04,3241 77624 INTWAKUP CALL
052883,001095: 04,3242 27456 INTWAKE0 # RELEASE :GRAB: OF ORBIT INTEG
052884,001096: 04,3243 77776 EXIT
052885,001097:
052886,001098: 04,3244 05355 TC PHASCHNG
052887,001099: 04,3245 04026 OCT 04026
052888,001100: 04,3246 03714 TC UPOUT +1
052889,001101:
052890,001102: 04,3247 00002 UPMNSVCD OCT 2
052891,001103: 04,3250 00000 OCT 0
052892,001104:
052893,001105: 24,2000 SETLOC ORBITAL4
052894,001106: 24,2000 BANK
052895,001107: 24,3770 COUNT* $$/INTIN
052896,001108:
052897,001109: 24,3770 77420 GRP2PC STQ EXIT
052898,001110: 24,3771 02711 GRP2SVQ
052899,001111: 24,3772 05355 TC PHASCHNG
052900,001112: 24,3773 04022 OCT 04022
052901,001113: 24,3774 06060 TC INTPRET
|
|
Page 1224 |
052903,001115: 24,3775 77650 GOTO
052904,001116: 24,3776 02711 GRP2SVQ
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc