Source Code
|
These source-code files were obtained by digitally photographing
an Artemis 72 program listing from a private collection and then
modifying pre-existing Comanche 55 (Apollo 11) source files to
incorporate changes. Note that the page images
presented online are of reduced quality, and that additional images
may be available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS BY NASA 2021114-011 11:40 FEB. 26, 1971 THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS COLOSSUS 3 THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED IN REPORT R-577. THIS PROGRAM WAS PREPARED UNDER OSR PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT CENTER OF THE NATIONAL AERONAUTICS AND SPACE ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF TECHNOLOGY, CAMBRIDGE, MASS. |
055849,000002: # Copyright: Public domain.
055850,000003: # Filename: INTEGRATION_INITIALIZATION.agc
055851,000004: # Purpose: Part of the source code for Artemis (i.e., Colossus 3),
055852,000005: # build 072. This is for the Command Module's (CM)
055853,000006: # Apollo Guidance Computer (AGC), we believe for
055854,000007: # Apollo 15-17.
055855,000008: # Assembler: yaYUL
055856,000009: # Contact: Sergio Navarro <sergionavarrog@gmail.com>
055857,000010: # Website: www.ibiblio.org/apollo/index.html
055858,000011: # Page scans: www.ibiblio.org/apollo/ScansForConversion/Artemis072/
055859,000012: # Mod history: 2009-09-03 SN Adapted from corresponding Comanche 055 file.
055860,000013: # 2009-09-04 JL Fixed page comment.
055861,000014: # 2009-09-05 JL Fixed typos.
055862,000015: # 2009-09-07 JL Fixed typos.
055863,000016: # 2010-02-20 RSB Un-##'d this header.
055864,000017:
|
|
Page 1309 |
055866,000019: # 1.0 INTRODUCTION
055867,000020: # ----------------
055868,000021:
055869,000022: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
055870,000023: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
055871,000024: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
055872,000025: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
055873,000026: # SIDE THE LUNAR SPHERE OF INFLUENCE.
055874,000027:
055875,000028: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
055876,000029: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
055877,000030: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
055878,000031: # CALL TC INTSTALL.
055879,000032:
055880,000033: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
055881,000034: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
055882,000035: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
055883,000036: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
055884,000037: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
055885,000038:
055886,000039: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
055887,000040: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
055888,000041: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ''INTEGRATION'' THE USER MAY STILL USE ZERO
055889,000042: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
055890,000043:
055891,000044: # 2.0 GENERAL DESCRIPTION
055892,000045: # -----------------------
055893,000046:
055894,000047: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS---
055895,000048: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
055896,000049: # 2) INTEGRATES THE W-MATRIX
055897,000050: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
055898,000051:
055899,000052: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
055900,000053: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
055901,000054: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
055902,000055: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
055903,000056: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
055904,000057: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
055905,000058: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
055906,000059: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
055907,000060: # AND/OR STATE VECTOR.
055908,000061:
055909,000062: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
055910,000063: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
055911,000064: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
055912,000065:
055913,000066: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
055914,000067: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
055915,000068: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
055916,000069:
|
|
Page 1310 |
055918,000071: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
055919,000072:
055920,000073: # 2.1 RESTARTS
055921,000074:
055922,000075: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
055923,000076: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
055924,000077: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
055925,000078: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
055926,000079: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
055927,000080: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
055928,000081: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
055929,000082:
055930,000083: # 2.2 SCALING
055931,000084:
055932,000085: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
055933,000086: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
055934,000087: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
055935,000088: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
055936,000089: # DIFFERENT SCALING.
055937,000090: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
055938,000091:
055939,000092: # 3.0 INPUT/OUTPUT
055940,000093: # ----------------
055941,000094:
055942,000095: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
055943,000096: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
055944,000097: # FOR INTEGRVS, THE RCV,VCV, TET OR THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
055945,000098:
055946,000099: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
055947,000100: # EARTH MOON
055948,000101: # 29 27
055949,000102: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
055950,000103:
055951,000104: # 7 5
055952,000105: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
055953,000106:
055954,000107: # 28 28
055955,000108: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
055956,000109: # CUSTOMARILY 0, BUT NOTE LUNAR
055957,000110: # ORBIT DEPENDENCE ON REAL TIME.
055958,000111:
055959,000112: # 22 18
055960,000113: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
055961,000114: # 0 IF TCCSM(LEM) = 0
055962,000115:
055963,000116: # 3 -1
055964,000117: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
055965,000118: # 0 IF TCCSM(LEM) = 0
|
|
Page 1311 |
055967,000120: # 29 27
055968,000121: # RCVSM(LEM) - CONIC POSITION METERS 2 2
055969,000122: # EQUALS RRECTCSM(LEM) IF
055970,000123: # TCCSM(LEM) = 0
055971,000124:
055972,000125: # 7 5
055973,000126: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
055974,000127: # EQUALS VRECTCSM(LEM) IF
055975,000128: # TCCSM(LEM) = 0
055976,000129:
055977,000130: # 28 28
055978,000131: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
055979,000132: # CUSTOMARILY 0
055980,000133:
055981,000134: # 1/2 17 16
055982,000135: # XKEPCSM(LEM) - RDOT OF KEPLERS EQUATION M 2 2
055983,000136: # 0 IF TCCSM(LEM) = 0
055984,000137:
055985,000138: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
055986,000139: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
055987,000140: # LMOONFLG C = CSM, L = LM 0 0
055988,000141: # LMIDFLG 0,1 0,1
055989,000142:
055990,000143: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
055991,000144:
055992,000145: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
055993,000146: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
055994,000147: # ROUTINE MUST BE PRESET.
055995,000148:
055996,000149: # OUTPUT
055997,000150: # AFTER EVERY CALL TO INTEGRATION
055998,000151: # EARTH MOON
055999,000152: # 29 29
056000,000153: # 0D RATT POSITION METERS 2 2
056001,000154: # 7 7
056002,000155: # 6D VATT VELOCITY M/CSEC 2 2
056003,000156: # 28 28
056004,000157: # 12D TAT TIME 2 2
056005,000158: # 29 27
056006,000159: # 14D RATT1 POSITION METERS 2 2
056007,000160: # 7 5
056008,000161: # 20D VATT1 VELOCITY M/CSEC 2 2
056009,000162: # 3 2 36 30
056010,000163: # 26D MU(P) MU M /CS 2 2
056011,000164:
056012,000165: # X1 MUTABLE ENTRY -2 -10D
056013,000166:
056014,000167: # X2 COORDINT
056015,000168: # X2 COORDINATE SYSTEM ORIGIN 0 2
056016,000169: # (THIS, NOT MOONFLAG, SHOULD BE
|
|
Page 1312 |
056018,000171: # USED TO DETERMINE ORIGIN.)
056019,000172:
056020,000173: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
056021,000174: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
056022,000175: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
056023,000176: # CALLING PROGRAM.
056024,000177:
056025,000178: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
056026,000179: # -------------------------------------
056027,000180:
056028,000181: # A) PRECISION ORBITAL INTEGRATION. CSMPREC,LEMPREC ENTRANCES
056029,000182: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
056030,000183: # L CALL
056031,000184: # L+1 CSMPREC (OR LEMPREC)
056032,000185: # L+2 RETURN
056033,000186: # INPUT 28
056034,000187: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
056035,000188: # OUTPUT
056036,000189: # THE DATA LISTED IN SECTION 3.0 PLUS
056037,000190: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
056038,000191: # BODY... METERS B-29 ONLY IF MIDFLAG = DIM0FLAG = 1
056039,000192: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
056040,000193: # L-X STORE TIME IN PUSH LIST (TDEC1)
056041,000194: # L CALL
056042,000195: # L+1 CSMCONIC (OR LEMCONIC)
056043,000196: # INPUT/OUTPUT
056044,000197: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
056045,000198: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
056046,000199: # CALL
056047,000200: # INTSTALL
056048,000201: # VLOAD
056049,000202: # POSITION VECTOR
056050,000203: # STOVL RCV
056051,000204: # VELOCITY VECTOR
056052,000205: # STODL VCV
056053,000206: # TIME STATE VECTOR VALID
056054,000207: # STODL TET
056055,000208: # FINAL RADIUS
056056,000209: # STORE RFINAL
056057,000210: # SET(CLEAR) SET(CLEAR)
056058,000211: # INTYPFLAG
056059,000212: # MOONFLAG
056060,000213: # SET(CLEAR) DLOAD
056061,000214: # DESIRED TIME
056062,000215: # STCALL TDEC1
056063,000216: # INTEGRVS
056064,000217: # INPUT
056065,000218: # RCV POSITION VECTOR METERS
056066,000219: # VCV VELOCITY VECTOR M/CSEC
056067,000220: # TET TIME OF STATE VECTOR (MAY = 0) CSEC B-28
|
|
Page 1313 |
056069,000222: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
056070,000223: # (MAY BE INCREMENT IF TET=0)
056071,000224: # OUTPUT
056072,000225: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
056073,000226: # DEPENDING ON INTYPFLG.
056074,000227: # D) INTEGRATE STATE VECTOR. INTGRV ENTRANCE
056075,000228: # L-X STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
056076,000229: # L-8 CALL
056077,000230: # L-7
056078,000231: # L-6 SET(CLEAR) SET(CLEAR)
056079,000232: # L-5 VINTFLAG 1=CSM, 0=LM
056080,000233: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
056081,000234: # L-3 SET(CLEAR) SET(CLEAR)
056082,000235: # L-2 DIM0FLAG 1=W-MATRIX, 0=NO W-MATRIX
056083,000236: # L-1 D6OR9FLG 1=9X9, 0=6X6
056084,000237: # L SET DLOAD
056085,000238: # L+1 STATEFLG DESIRE PERMANENT UPDATE
056086,000239: # L+2 FINAL RAD. OF STATE VECTOR
056087,000240: # L+3 STCALL RFINAL
056088,000241: # L+4 INTEGRV
056089,000242: # L CALL NORMAL USE-- WILL UPDATE STATE
056090,000243: # L+1 INTEGRV VECTOR IF DIM0FLAG=1. (STATEFLG IS
056091,000244: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
056092,000245: # IT IS USED.)
056093,000246: # INPUT
056094,000247: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
056095,000248: # OUTPUT
056096,000249: # SAME AS FOR PRECISION OR CONIC INTEGRATION
056097,000250: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
056098,000251: # THE PERMANENT STATE VECTOR REPRESENTATION.
056099,000252:
056100,000253: 13,2000 SETLOC INTINIT
056101,000254: 13,2000 BANK
056102,000255: 13,2702 E3,1554 EBANK= RRECTCSM
056103,000256: 13,2702 COUNT* $$/INTIN
056104,000257: 13,2702 05402 STATEINT TC PHASCHNG
056105,000258: 13,2703 00052 OCT 00052
056106,000259: 13,2704 01,2036 2P5SPT4 = 2.5SPOT
056107,000260: 13,2704 35047 CAF PRIO5
056108,000261: 13,2705 05135 TC FINDVAC
056109,000262: 13,2706 E3,1554 EBANK= RRECTCSM
056110,000263: 13,2706 02711 26063 2CADR STATINT1
056111,000264:
056112,000265: 13,2710 05314 TC TASKOVER
056113,000266: 13,2711 06006 STATINT1 TC INTPRET
056114,000267: 13,2712 47014 BON RTB
056115,000268: 13,2713 04712 QUITFLAG
056116,000269: 13,2714 26753 NOINT # NO STATEINT IF V96
056117,000270: 13,2715 51751 LOADTIME
056118,000271: 13,2716 00041 STORE TDEC1
|
|
Page 1314 |
056120,000273: 13,2717 45014 CLEAR CALL
056121,000274: 13,2720 04274 V96ONFLG
056122,000275: 13,2721 27516 INTSTALL
056123,000276: 13,2722 45014 SET CALL
056124,000277: 13,2723 01076 NODOFLAG
056125,000278: 13,2724 26744 SETIFLGS
056126,000279: 13,2725 52014 SET GOTO # INHIBIT BACKWARDS INTEGRATION
056127,000280: 13,2726 01466 POOFLAG
056128,000281: 13,2727 26000 STATEUP
056129,000282: 13,2730 00003 25140 600SECS 2DEC 60000 B-28
056130,000283:
056131,000284: 13,2732 77414 ENDINT CLEAR EXIT
056132,000285: 13,2733 01672 STATEFLG
056133,000286: 13,2734 05402 TC PHASCHNG
056134,000287: 13,2735 20032 OCT 20032
056135,000288: 13,2736 01,2033 SP3SPT1 = 2.3SPOT
056136,000289: 13,2736 00006 EXTEND
056137,000290: 13,2737 32731 DCA 600SECS
056138,000291: 13,2740 05332 TC LONGCALL
056139,000292: 13,2741 E3,1554 EBANK= RRECTHIS
056140,000293: 13,2741 02702 26063 2CADR STATEINT
056141,000294:
056142,000295: 13,2743 05205 TC ENDOFJOB
056143,000296: 13,2744 43014 SETIFLGS SET CLEAR
056144,000297: 13,2745 01472 STATEFLG
056145,000298: 13,2746 01673 INTYPFLG
056146,000299: 13,2747 43014 CLEAR CLEAR
056147,000300: 13,2750 01676 DIM0FLAG
056148,000301: 13,2751 01675 D6OR9FLG
056149,000302: 13,2752 77616 RVQ
056150,000303: 13,2753 77776 NOINT EXIT
056151,000304: 13,2754 05402 TC PHASCHNG
056152,000305: 13,2755 00002 OCT 2
056153,000306:
056154,000307: 13,2756 05561 TC DOWNFLAG
056155,000308: 13,2757 00221 ADRES QUITFLAG
056156,000309:
056157,000310: 13,2760 05205 TC ENDOFJOB
056158,000311:
056159,000312: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
056160,000313:
056161,000314: # CALLING SEQUENCE
056162,000315: # L CALL
056163,000316: # L+1 ATOPCSM
056164,000317:
056165,000318: # NORMAL EXIT AT L+2
056166,000319:
056167,000320: 13,2761 47020 ATOPCSM STQ RTB
056168,000321: 13,2762 00051 S2
056169,000322: 13,2763 26774 MOVEACSM
|
|
Page 1315 |
056171,000324: 13,2764 45014 SET CALL
056172,000325: 13,2765 04063 CMOONFLG
056173,000326: 13,2766 20240 SVDWN1
056174,000327: 13,2767 43014 BON CLRGO
056175,000328: 13,2770 00303 MOONFLAG
056176,000329: 13,2771 00051 S2
056177,000330: 13,2772 04223 CMOONFLG
056178,000331: 13,2773 00051 S2
056179,000332: 13,2774 03140 MOVEACSM TC SETBANK
056180,000333: 13,2775 55500 +1 TS DIFEQCNT # INITIALIZE INDEX
056181,000334: 13,2776 51500 INDEX DIFEQCNT
056182,000335: 13,2777 31502 CA RRECT
056183,000336: 13,3000 51500 INDEX DIFEQCNT
056184,000337: 13,3001 55554 TS RRECTCSM
056185,000338: 13,3002 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
056186,000339: 13,3003 12775 TCF MOVEACSM +1 # NO-LOOP
056187,000340: 13,3004 06030 TC DANZIG # COMPLETE- RETURN
056188,000341:
056189,000342:
056190,000343: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
056191,000344:
056192,000345: # CALLING SEQUENCE
056193,000346: # L CALL
056194,000347: # PTOACSM
056195,000348:
056196,000349: # NORMAL EXIT AT L+2
056197,000350:
056198,000351: 13,3005 43034 PTOACSM RTB BON
056199,000352: 13,3006 27023 MOVEPCSM
056200,000353: 13,3007 04303 CMOONFLG
056201,000354: 13,3010 27016 SETMOON
056202,000355: 13,3011 66214 CLRMOON CLEAR SSP
056203,000356: 13,3012 00263 MOONFLAG
056204,000357: 13,3013 02151 PBODY
056205,000358: 13,3014 00000 0
056206,000359: 13,3015 77616 RVQ
056207,000360: 13,3016 66214 SETMOON SET SSP
056208,000361: 13,3017 00063 MOONFLAG
056209,000362: 13,3020 02151 PBODY
056210,000363: 13,3021 00002 2
056211,000364: 13,3022 77616 RVQ
056212,000365: 13,3023 03140 MOVEPCSM TC SETBANK
056213,000366: 13,3024 55500 +1 TS DIFEQCNT
056214,000367: 13,3025 51500 INDEX DIFEQCNT
056215,000368: 13,3026 31554 CA RRECTCSM
056216,000369: 13,3027 51500 INDEX DIFEQCNT
056217,000370: 13,3030 55502 TS RRECT
056218,000371: 13,3031 11500 CCS DIFEQCNT
056219,000372: 13,3032 13024 TCF MOVEPCSM +1
056220,000373: 13,3033 06030 TC DANZIG
056221,000374:
|
|
Page 1316 |
056223,000376: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
056224,000377: 13,3034 47020 ATOPLEM STQ RTB
056225,000378: 13,3035 00051 S2
056226,000379: 13,3036 27047 MOVEALEM
056227,000380: 13,3037 45014 SET CALL
056228,000381: 13,3040 04064 LMOONFLG
056229,000382: 13,3041 20264 SVDWN2
056230,000383: 13,3042 43014 BON CLRGO
056231,000384: 13,3043 00303 MOONFLAG
056232,000385: 13,3044 00051 S2
056233,000386: 13,3045 04224 LMOONFLG
056234,000387: 13,3046 00051 S2
056235,000388: 13,3047 03140 MOVEALEM TC SETBANK
056236,000389: 13,3050 55500 +1 TS DIFEQCNT
056237,000390: 13,3051 51500 INDEX DIFEQCNT
056238,000391: 13,3052 31502 CA RRECT
056239,000392: 13,3053 51500 INDEX DIFEQCNT
056240,000393: 13,3054 55626 TS RRECTLEM
056241,000394: 13,3055 11500 CCS DIFEQCNT
056242,000395: 13,3056 13050 TCF MOVEALEM +1
056243,000396: 13,3057 06030 TC DANZIG
056244,000397:
056245,000398:
056246,000399: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
056247,000400:
056248,000401: 13,3060 47014 PTOALEM BON RTB
056249,000402: 13,3061 04307 SURFFLAG
056250,000403: 13,3062 27101 USEPIOS
056251,000404: 13,3063 27070 MOVEPLEM
056252,000405: 13,3064 52014 BON GOTO
056253,000406: 13,3065 04304 LMOONFLG
056254,000407: 13,3066 27016 SETMOON
056255,000408: 13,3067 27011 CLRMOON
056256,000409: 13,3070 03140 MOVEPLEM TC SETBANK
056257,000410: 13,3071 55500 +1 TS DIFEQCNT
056258,000411: 13,3072 51500 INDEX DIFEQCNT
056259,000412: 13,3073 31626 CA RRECTLEM
056260,000413: 13,3074 51500 INDEX DIFEQCNT
056261,000414: 13,3075 55502 TS RRECT
056262,000415: 13,3076 11500 CCS DIFEQCNT
056263,000416: 13,3077 13071 TCF MOVEPLEM +1
056264,000417: 13,3100 06030 TC DANZIG
056265,000418:
056266,000419:
056267,000420: 13,3101 77201 USEPIOS SETPD VLOAD
056268,000421: 13,3102 00001 0
056269,000422: 13,3103 02026 RLS
056270,000423: 13,3104 41525 PDDL PUSH
056271,000424: 13,3105 00041 TDEC1
|
|
Page 1317 |
056273,000426: 13,3106 15517 STODL TET
056274,000427: 13,3107 27756 5/8
056275,000428: 13,3110 77624 CALL
056276,000429: 13,3111 55345 RP-TO-R
056277,000430: 13,3112 25535 STOVL RCV
056278,000431: 13,3113 11754 ZUNIT
056279,000432: 13,3114 14001 STODL 0D
056280,000433: 13,3115 01517 TET
056281,000434: 13,3116 14007 STODL 6D
056282,000435: 13,3117 27756 5/8
056283,000436: 13,3120 45014 SET CALL # NEEDED FOR SETTING X1 ON EXIT
056284,000437: 13,3121 00063 MOONFLAG
056285,000438: 13,3122 55345 RP-TO-R
056286,000439: 13,3123 74235 VXV VXSC
056287,000440: 13,3124 01535 RCV
056288,000441: 13,3125 27137 OMEGMOON
056289,000442: 13,3126 25543 STOVL VCV
056290,000443: 13,3127 11762 ZEROVEC
056291,000444: 13,3130 01521 STORE TDELTAV
056292,000445: 13,3131 67174 AXT,2 SXA,2
056293,000446: 13,3132 00002 2
056294,000447: 13,3133 02150 PBODY
056295,000448: 13,3134 35527 STCALL TNUV
056296,000449: 13,3135 27252 A-PCHK
056297,000450: 13,3136 07112 06620 OMEGMOON 2DEC* 2.66169947 E-8 B+23*
056298,000451: 13,3140 33144 SETBANK CAF INTBANK
056299,000452: 13,3141 54006 TS BBANK
056300,000453: 13,3142 33553 CAF FORTYONE
056301,000454: 13,3143 00002 TC Q
056302,000455: 13,3144 E3,1554 EBANK= RRECTCSM
056303,000456: 13,3144 26063 INTBANK BBCON INTEGRV
056304,000457:
056305,000458:
056306,000459: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
056307,000460: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
056308,000461:
056309,000462: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1.
056310,000463: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
056311,000464: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
056312,000465: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
056313,000466: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
056314,000467: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLER'S EQUATION
056315,000468:
056316,000469: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
056317,000470: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
056318,000471: # CSMPREC CSMCONIC LEMPREC LEMCONIC
056319,000472: # VINTFLAG SET SET CLEAR CLEAR
056320,000473: # INTYPFLG CLEAR SET CLEAR SET
056321,000474: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
|
|
Page 1318 |
056323,000476:
056324,000477: # CALLING SEQUENCE
056325,000478: # L-X STORE TDEC1
056326,000479: # L CALL (STCALL TDEC1)
056327,000480: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
056328,000481:
056329,000482: # NORMAL EXIT TO L+2
056330,000483:
056331,000484: # SUBROUTINES CALLED
056332,000485: # INTEGRV1
056333,000486: # PRECOUT FOR CSMPREC AND LEMPREC
056334,000487: # CONICOUT FOR CSMCONIC AND LEMCONIC
056335,000488:
056336,000489:
056337,000490: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
056338,000491: # INPUT
056339,000492: # TDEC1 TIME TO INTEGRATE TO . CSECS B-28
056340,000493:
056341,000494: 13,3145 45020 CSMPREC STQ CALL
056342,000495: 13,3146 00046 X1
056343,000496: 13,3147 27516 INTSTALL
056344,000497: 13,3150 43130 SXA,1 SET
056345,000498: 13,3151 02213 IRETURN
056346,000499: 13,3152 01474 VINTFLAG
056347,000500:
056348,000501: 13,3153 43014 IFLAGP SET CLEAR
056349,000502: 13,3154 01467 PRECIFLG
056350,000503: 13,3155 01676 DIM0FLAG
056351,000504: 13,3156 77614 CLRGO
056352,000505: 13,3157 01633 INTYPFLG
056353,000506: 13,3160 27240 INTEGRV1
056354,000507: 13,3161 45020 LEMPREC STQ CALL
056355,000508: 13,3162 00046 X1
056356,000509: 13,3163 27516 INTSTALL
056357,000510: 13,3164 43130 SXA,1 CLRGO
056358,000511: 13,3165 02213 IRETURN
056359,000512: 13,3166 01634 VINTFLAG
056360,000513: 13,3167 27153 IFLAGP
056361,000514:
056362,000515: 13,3170 45020 CSMCONIC STQ CALL
056363,000516: 13,3171 00046 X1
056364,000517: 13,3172 27516 INTSTALL
056365,000518: 13,3173 43130 SXA,1 SET
056366,000519: 13,3174 02213 IRETURN
056367,000520: 13,3175 01474 VINTFLAG
056368,000521: 13,3176 43014 IFLAGC CLEAR SETGO
056369,000522: 13,3177 01676 DIM0FLAG
056370,000523: 13,3200 01433 INTYPFLG
056371,000524: 13,3201 27240 INTEGRV1
056372,000525: 13,3202 45020 LEMCONIC STQ CALL
056373,000526: 13,3203 00046 X1
|
|
Page 1319 |
056375,000528: 13,3204 27516 INTSTALL
056376,000529: 13,3205 43130 SXA,1 CLRGO
056377,000530: 13,3206 02213 IRETURN
056378,000531: 13,3207 01634 VINTFLAG
056379,000532: 13,3210 27176 IFLAGC
056380,000533:
056381,000534: 13,3211 66214 INTEGRVS SET SSP
056382,000535: 13,3212 01467 PRECIFLG
056383,000536: 13,3213 02151 PBODY
056384,000537: 13,3214 00000 0
056385,000538: 13,3215 66214 BOF SSP
056386,000539: 13,3216 00343 MOONFLAG
056387,000540: 13,3217 27222 +3
056388,000541: 13,3220 02151 PBODY
056389,000542: 13,3221 00002 2
056390,000543: 13,3222 77220 STQ VLOAD
056391,000544: 13,3223 02213 IRETURN
056392,000545: 13,3224 11762 ZEROVEC
056393,000546: 13,3225 01521 STORE TDELTAV
056394,000547: 13,3226 35527 STCALL TNUV
056395,000548: 13,3227 23420 RECTIFY
056396,000549: 13,3230 43014 CLEAR SET
056397,000550: 13,3231 01676 DIM0FLAG
056398,000551: 13,3232 04062 NEWIFLG
056399,000552: 13,3233 77614 SETGO
056400,000553: 13,3234 04020 RPQFLAG
056401,000554: 13,3235 22320 ALOADED
056402,000555:
056403,000556: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
056404,000557: # NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS. THE ROUTINE
056405,000558: # IS ENTERED AT INTEGRV1 BY CSMPREC ET.AL. AND AT ALOADED BY INTEGRVS.
056406,000559: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
056407,000560: # PROGRAM FOR PRECISION OR CONIC.
056408,000561:
056409,000562: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
056410,000563: # SETTING ANY FLAGS.
056411,000564: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
056412,000565: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
056413,000566: # INTYPFLG
056414,000567: # DIM0FLAG
056415,000568: # D6OR9FLG
056416,000569:
056417,000570: # CALLING SEQUENCE
056418,000571: # L-X CALL
056419,000572: # L-Y INTSTALL
056420,000573: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
056421,000574: # AND DIM0FLAG IS CLEAR.
056422,000575: # L CALL
056423,000576: # L+1 INTEGRV
056424,000577:
056425,000578: # INITIALIZATION
056426,000579: # FLAGS AS ABOVE
056427,000580: # STORE TIME TO INTEGRATE TO IN TDEC1
056428,000581:
|
|
Page 1320 |
056430,000583: # OUTPUT
056431,000584: # RATT AS
056432,000585: # VATT DEFINED
056433,000586: # TAT BEFORE
056434,000587:
056435,000588:
056436,000589: 13,3236 77620 INTEGRV STQ
056437,000590: 13,3237 02213 IRETURN
056438,000591: 13,3240 43014 INTEGRV1 SET SET
056439,000592: 13,3241 04060 RPQFLAG
056440,000593: 13,3242 04062 NEWIFLG
056441,000594: 13,3243 77731 INTEGRV2 SSP
056442,000595: 13,3244 00053 QPRET
056443,000596: 13,3245 22320 ALOADED
056444,000597: 13,3246 52014 BON GOTO
056445,000598: 13,3247 01714 VINTFLAG
056446,000599: 13,3250 27005 PTOACSM
056447,000600: 13,3251 27060 PTOALEM
056448,000601: 11,2000 SETLOC INTINIT1
056449,000602: 11,2000 BANK
056450,000603: 11,2320 COUNT* $$/INTIN
056451,000604: 11,2320 77745 ALOADED DLOAD
056452,000605: 11,2321 00041 TDEC1
056453,000606: 11,2322 00745 STORE TDEC
056454,000607: 11,2323 52014 BOFF GOTO
056455,000608: 11,2324 01753 INTYPFLG
056456,000609: 11,2325 27364 TESTLOOP
056457,000610: 11,2326 27350 RVCON
056458,000611: 13,2000 SETLOC INTINIT
056459,000612: 13,2000 BANK
056460,000613: 13,3252 COUNT* $$/INTIN
056461,000614: 13,3252 45014 A-PCHK BOF CALL
056462,000615: 13,3253 00342 MIDFLAG
056463,000616: 13,3254 27263 ANDOUT # DONT MAKE ORIGIN CHANGE CHECK
056464,000617: 13,3255 23317 CHKSWTCH
056465,000618: 13,3256 45044 BPL CALL
056466,000619: 13,3257 27263 ANDOUT # NO ORIGIN CHANGE
056467,000620: 13,3260 23360 ORIGCHNG # MAKE THE SWITCH
056468,000621: 13,3261 77754 LXA,2 # SET X2 FOR MOON OR EARTH SCALING
056469,000622: 13,3262 02150 PBODY
056470,000623: 13,3263 77414 ANDOUT BOFCLR EXIT
056471,000624: 13,3264 01652 STATEFLG
056472,000625: 13,3265 27304 RECTOUT
056473,000626: 13,3266 05402 TC PHASCHNG
056474,000627: 13,3267 04022 OCT 04022
056475,000628: 13,3270 05547 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
056476,000629: 13,3271 00230 ADRES REINTFLG # INTSTALL AND INTWAKE
056477,000630: 13,3272 06006 TC INTPRET
056478,000631: 13,3273 77731 SSP
056479,000632: 13,3274 00053 QPRET
|
|
Page 1321 |
056481,000634: 13,3275 27302 PHEXIT
056482,000635: 13,3276 52014 BON GOTO
056483,000636: 13,3277 01714 VINTFLAG
056484,000637: 13,3300 26761 ATOPCSM
056485,000638: 13,3301 27034 ATOPLEM
056486,000639: 13,3302 77624 PHEXIT CALL
056487,000640: 13,3303 22327 GRP2PC
056488,000641: 13,3304 45001 RECTOUT SETPD CALL
056489,000642: 13,3305 00001 0
056490,000643: 13,3306 23420 RECTIFY
056491,000644: 13,3307 53775 VLOAD VSL*
056492,000645: 13,3310 01503 RRECT
056493,000646: 13,3311 57576 0,2
056494,000647: 13,3312 53715 PDVL VSL* # RATT TO PD0
056495,000648: 13,3313 01511 VRECT
056496,000649: 13,3314 57576 0,2
056497,000650: 13,3315 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
056498,000651: 13,3316 01517 TET
056499,000652: 13,3317 01503 RRECT
056500,000653: 13,3320 64715 PDVL PDDL*
056501,000654: 13,3321 01511 VRECT
056502,000655: 13,3322 50037 MUEARTH,2
056503,000656: 13,3323 76006 PUSH AXT,1
056504,000657: 13,3324 77765 DEC -10 B-14
056505,000658: 13,3325 76014 BON AXT,1
056506,000659: 13,3326 00303 MOONFLAG
056507,000660: 13,3327 27331 +2
056508,000661: 13,3330 77775 DEC -2 B-14
056509,000662: 13,3331 40001 INTEXIT SETPD BOV
056510,000663: 13,3332 00001 0
056511,000664: 13,3333 27334 +1
056512,000665: 13,3334 43014 CLEAR CLEAR
056513,000666: 13,3335 04675 MIDAVFLG
056514,000667: 13,3336 01672 STATEFLG
056515,000668: 13,3337 43014 CLEAR CLEAR
056516,000669: 13,3340 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
056517,000670: 13,3341 01667 PRECIFLG
056518,000671: 13,3342 77535 SLOAD EXIT
056519,000672: 13,3343 02214 IRETURN
056520,000673: 13,3344 30154 CA MPAC
056521,000674: 13,3345 50120 INDEX FIXLOC
056522,000675: 13,3346 54052 TS QPRET
056523,000676: 13,3347 03527 TC INTWAKE
056524,000677:
056525,000678: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
056526,000679: # VELOCITY FOR THE INTERVAL (TET-TDEC)
056527,000680:
056528,000681: 13,3350 45345 RVCON DLOAD DSU
056529,000682: 13,3351 00745 TDEC
056530,000683: 13,3352 01517 TET
056531,000684: 13,3353 36303 STCALL TAU.
|
|
Page 1322 |
056533,000686: 13,3354 23420 RECTIFY
056534,000687: 13,3355 77624 CALL
056535,000688: 13,3356 22336 KEPPREP
056536,000689: 13,3357 43345 DLOAD DAD
056537,000690: 13,3360 01551 TC
056538,000691: 13,3361 01517 TET
056539,000692: 13,3362 35517 STCALL TET
056540,000693: 13,3363 27304 RECTOUT
056541,000694:
|
|
Page 1323 |
056543,000696: 13,3364 43014 TESTLOOP BOF CLRGO
056544,000697: 13,3365 04752 QUITFLAG
056545,000698: 13,3366 27371 +3
056546,000699: 13,3367 01632 STATEFLG
056547,000700: 13,3370 27331 INTEXIT # STOP INTEGRATION
056548,000701: 13,3371 73001 +3 SETPD LXA,2
056549,000702: 13,3372 00013 10D
056550,000703: 13,3373 02150 PBODY
056551,000704: 13,3374 51575 VLOAD ABVAL
056552,000705: 13,3375 01535 RCV
056553,000706: 13,3376 43006 PUSH CLEAR # RC TO 10D
056554,000707: 13,3377 00262 MIDFLAG
056555,000708: 13,3400 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
056556,000709: 13,3401 66600 RME,2
056557,000710: 13,3402 27405 +3
056558,000711: 13,3403 77614 SET
056559,000712: 13,3404 00062 MIDFLAG
056560,000713: 13,3405 41345 NORFINAL DLOAD DMP
056561,000714: 13,3406 00013 10D
056562,000715: 13,3407 00043 34D
056563,000716: 13,3410 55762 SR1R DDV*
056564,000717: 13,3411 50037 MUEARTH,2
056565,000718: 13,3412 41366 SQRT DMP
056566,000719: 13,3413 23751 .3D
056567,000720: 13,3414 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
056568,000721: 13,3415 54345 DLOAD SL
056569,000722: 13,3416 00155 MPAC
056570,000723: 13,3417 20220 15D # OF 128 CSECS.
056571,000724: 13,3420 40006 PUSH BOV
056572,000725: 13,3421 27446 MAXDT
056573,000726: 13,3422 50021 BDSU BMN
056574,000727: 13,3423 27515 DT/2MAX
056575,000728: 13,3424 27446 MAXDT
056576,000729: 13,3425 45345 DT/2COMP DLOAD DSU
056577,000730: 13,3426 00745 TDEC
056578,000731: 13,3427 01517 TET
056579,000732: 13,3430 54234 RTB SL
056580,000733: 13,3431 45636 SGNAGREE
056581,000734: 13,3432 20211 8D
056582,000735: 13,3433 02305 STORE DT/2 # B-19
056583,000736: 13,3434 51400 BOV ABS
056584,000737: 13,3435 27452 GETMAXDT
056585,000738: 13,3436 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
056586,000739: 13,3437 00015 12D
056587,000740: 13,3440 27456 P00HCHK
056588,000741: 13,3441 75345 USEMAXDT DLOAD SIGN
056589,000742: 13,3442 00015 12D
056590,000743: 13,3443 02305 DT/2
|
|
Page 1324 |
056592,000745: 13,3444 36305 STCALL DT/2
056593,000746: 13,3445 27456 P00HCHK
056594,000747: 13,3446 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
056595,000748: 13,3447 27515 DT/2MAX
056596,000749: 13,3450 77650 GOTO
056597,000750: 13,3451 27425 DT/2COMP
056598,000751: 13,3452 77634 GETMAXDT RTB
056599,000752: 13,3453 45761 SIGNMPAC
056600,000753: 13,3454 36305 STCALL DT/2
056601,000754: 13,3455 27441 USEMAXDT
056602,000755: 13,3456 51545 P00HCHK DLOAD ABS
056603,000756: 13,3457 02305 DT/2
056604,000757: 13,3460 50025 DSU BMN
056605,000758: 13,3461 27513 DT/2MIN
056606,000759: 13,3462 27252 A-PCHK
056607,000760: 13,3463 43014 BOFF BON
056608,000761: 13,3464 01746 POOFLAG # IS BACKWARDS INTEGRATION INHIBITED
056609,000762: 13,3465 23237 TIMESTEP # NO
056610,000763: 13,3466 01707 PRECIFLG # WAS THIS CALL VIA CSM(LEM)PREC
056611,000764: 13,3467 23237 TIMESTEP # YES
056612,000765: 13,3470 45345 DLOAD DSU
056613,000766: 13,3471 02305 DT/2
056614,000767: 13,3472 00015 12D
056615,000768: 13,3473 43040 BMN BOFCLR
056616,000769: 13,3474 27252 A-PCHK
056617,000770: 13,3475 04242 NEWIFLG
056618,000771: 13,3476 23237 TIMESTEP
056619,000772: 13,3477 45345 DLOAD DSU
056620,000773: 13,3500 00745 TDEC
056621,000774: 13,3501 01517 TET
056622,000775: 13,3502 77640 BMN # NO BACKWARD INTEGRATION
056623,000776: 13,3503 27331 INTEXIT
056624,000777: 13,3504 40525 PDDL SR4
056625,000778: 13,3505 02305 DT/2 # IS 4(DT) LS (TDEC - TET)
056626,000779: 13,3506 44322 SR2R BDSU
056627,000780: 13,3507 52040 BMN GOTO
056628,000781: 13,3510 27331 INTEXIT
056629,000782: 13,3511 23237 TIMESTEP
056630,000783: 13,3512 00000 01400 DT/2MIN 2DEC 3 B-20
056631,000784: 13,3514 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
056632,000785: 13,3516 77776 INTSTALL EXIT
056633,000786: 13,3517 30106 +1 CA FLGWRD10
056634,000787: 13,3520 74346 MASK PRIO30
056635,000788: 13,3521 00006 EXTEND
056636,000789: 13,3522 13561 BZF OKTOGRAB # YES
056637,000790: 13,3523 33565 CAF WAKESTAL
056638,000791: 13,3524 05163 TC JOBSLEEP
056639,000792: 13,3525 77776 INTWAKE0 EXIT
|
|
Page 1325 |
056641,000794: 13,3526 13547 TCF INTWAKE1
056642,000795:
056643,000796: 13,3527 40106 INTWAKE CS FLGWRD10 # IS THIS INTSTALLED ROUTINE TO BE
056644,000797: 13,3530 74754 MASK REINTBIT # RESTARTED
056645,000798: 13,3531 10000 CCS A
056646,000799: 13,3532 03547 TC INTWAKE1 # NO
056647,000800:
056648,000801: 13,3533 50120 INDEX FIXLOC
056649,000802: 13,3534 30052 CA QPRET
056650,000803: 13,3535 55261 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
056651,000804:
056652,000805: 13,3536 05402 TC PHASCHNG
056653,000806: 13,3537 04022 OCT 04022
056654,000807:
056655,000808: 13,3540 31261 CA TBASE2
056656,000809: 13,3541 50120 INDEX FIXLOC
056657,000810: 13,3542 54052 TS QPRET
056658,000811:
056659,000812: 13,3543 34754 CAF REINTBIT
056660,000813: 13,3544 70106 MASK FLGWRD10
056661,000814: 13,3545 00006 EXTEND
056662,000815: 13,3546 13563 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
056663,000816:
056664,000817: 13,3547 33565 INTWAKE1 CAF WAKESTAL
056665,000818: 13,3550 05167 TC JOBWAKE
056666,000819: 13,3551 10064 CCS LOCCTR
056667,000820: 13,3552 13547 TCF INTWAKE1
056668,000821: 13,3553 00051 FORTYONE DEC 41 B-14
056669,000822: 13,3554 44346 CS PRIO30
056670,000823: 13,3555 70106 MASK FLGWRD10
056671,000824: 13,3556 54106 TS FLGWRD10 # RELEASE STALL AREA
056672,000825: 13,3557 00003 RELINT
056673,000826: 13,3560 13563 TCF GOBAC
056674,000827: 13,3561 34753 OKTOGRAB CAF INTFLBIT
056675,000828: 13,3562 26106 ADS FLGWRD10
056676,000829: 13,3563 06006 GOBAC TC INTPRET
056677,000830: 13,3564 77616 RVQ
056678,000831: 13,3565 27517 WAKESTAL CADR INTSTALL +1
|
|
Page 1326 |
056680,000833: # AVETOMID
056681,000834:
056682,000835: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
056683,000836: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
056684,000837: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
056685,000838:
056686,000839: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (OR WFLAG OR RENDWFLT IS
056687,000840: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
056688,000841:
056689,000842: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
056690,000843:
056691,000844: # FINALLY TRKMKCNT IS ZEROED.
056692,000845:
056693,000846: 35,2000 SETLOC INTINIT2
056694,000847: 35,2000 BANK
056695,000848:
056696,000849: 35,3677 COUNT* $$/INTIN
056697,000850: 35,3677 43020 AVETOMID STQ BON
056698,000851: 35,3700 02310 EGRESS
056699,000852: 35,3701 02716 RENDWFLG
056700,000853: 35,3702 73753 INT/W # W-MATRIX VALID, GO INTEGRATE IT
056701,000854: 35,3703 77614 BON
056702,000855: 35,3704 01711 ORBWFLAG
056703,000856: 35,3705 73753 INT/W # W-MATRIX VALID, GO INTEGRATE IT
056704,000857:
056705,000858: 35,3706 45174 SETCOAST AXT,2 CALL # NOW MOVE PROPERLY SCALED RN,VN AND
056706,000859: 35,3707 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
056707,000860: 35,3710 27516 INTSTALL
056708,000861: 35,3711 77014 BON AXT,2
056709,000862: 35,3712 00315 AMOONFLG
056710,000863: 35,3713 73715 +2
056711,000864: 35,3714 00000 0
056712,000865: 35,3715 53775 VLOAD VSR*
056713,000866: 35,3716 01030 RN
056714,000867: 35,3717 57176 0,2
056715,000868: 35,3720 01503 STORE RRECT
056716,000869: 35,3721 15535 STODL RCV
056717,000870: 35,3722 01044 PIPTIME
056718,000871: 35,3723 25517 STOVL TET
056719,000872: 35,3724 01036 VN
056720,000873: 35,3725 45057 VSR* CALL
056721,000874: 35,3726 57176 0,2
056722,000875: 35,3727 23434 MINIRECT # FINISH SETTING UP STATE VECTOR
056723,000876: 35,3730 77634 RTB
056724,000877: 35,3731 26774 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
056725,000878: 35,3732 43014 SET BON
056726,000879: 35,3733 04063 CMOONFLG
056727,000880: 35,3734 00315 AMOONFLG
056728,000881: 35,3735 73740 +3
|
|
Page 1327 |
056730,000883: 35,3736 77614 CLEAR
056731,000884: 35,3737 04263 CMOONFLG
056732,000885:
056733,000886: 35,3740 71214 BON DLOAD # NOW DO LM
056734,000887: 35,3741 04307 SURFFLAG
056735,000888: 35,3742 75735 FAZAB5 # NO COASTING LM
056736,000889: 35,3743 01044 PIPTIME
056737,000890: 35,3744 34041 STCALL TDEC1
056738,000891: 35,3745 26744 SETIFLGS
056739,000892: 35,3746 45014 CLEAR CALL
056740,000893: 35,3747 01674 VINTFLAG
056741,000894: 35,3750 27236 INTEGRV
056742,000895: 35,3751 77650 GOTO
056743,000896: 35,3752 02310 EGRESS
056744,000897: 35,3753 45145 INT/W DLOAD CALL
056745,000898: 35,3754 01044 PIPTIME # INTEGRATE W THRU BURN
056746,000899: 35,3755 27516 INTSTALL
056747,000900: 35,3756 43014 SET SET
056748,000901: 35,3757 01476 DIM0FLAG # DO W-MATRIX
056749,000902: 35,3760 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
056750,000903: 35,3761 43014 CLEAR SET
056751,000904: 35,3762 01675 D6OR9FLG
056752,000905: 35,3763 01474 VINTFLAG
056753,000906: 35,3764 34041 STCALL TDEC1
056754,000907: 35,3765 27236 INTEGRV
056755,000908: 35,3766 77650 GOTO
056756,000909: 35,3767 73706 SETCOAST
056757,000910:
|
|
Page 1328 |
056759,000912: # MIDTOAV1
056760,000913:
056761,000914: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
056762,000915: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
056763,000916: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATION TIME FOR ONE TIME STEP)
056764,000917: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
056765,000918: # IS DONE AS IT IS FOR MIDTOAV2.
056766,000919: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
056767,000920:
056768,000921: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
056769,000922: # TO THE RETURN ADDRESS.
056770,000923:
056771,000924: # IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
056772,000925: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
056773,000926: # TION TIME AND MPAC IS SET TO THE DELTA TIME---
056774,000927: # TAT MINUS CURRENT TIME.
056775,000928:
056776,000929:
056777,000930: # MIDTOAV2
056778,000931:
056779,000932: # THIS ROUTINE INTEGRATES THE CSM STATE VECTOR TO THE CURRENT TIME PLUS
056780,000933: # INCREMENTS OF TIMEDELT SUCH THAT THE DIFFERENCE BETWEEN CURRENT TIME
056781,000934: # AND THE STATE VECTOR TIME AT THE END OF THE LAST STEP IS AT LEAST 5.6
056782,000935: # SECS.
056783,000936: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
056784,000937: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
056785,000938:
056786,000939: 13,2000 SETLOC INTINIT
056787,000940: 13,2000 BANK
056788,000941: 13,3566 COUNT* $$/R41
056789,000942: 13,3566 0773 EBANK= IRETURN1
056790,000943: 13,3566 45020 MIDTOAV2 STQ CALL
056791,000944: 13,3567 00773 IRETURN1
056792,000945: 13,3570 27516 INTSTALL
056793,000946: 13,3571 43145 DLOAD CLEAR
056794,000947: 13,3572 13771 TIMEDELT
056795,000948: 13,3573 04674 MID1FLAG
056796,000949: 13,3574 37466 STCALL T-TO-ADD
056797,000950: 13,3575 27612 ENTMID2
056798,000951:
056799,000952: 13,3576 45020 MIDTOAV1 STQ CALL
056800,000953: 13,3577 00773 IRETURN1
056801,000954: 13,3600 27516 INTSTALL
056802,000955: 13,3601 47014 SET RTB
056803,000956: 13,3602 04474 MID1FLAG
056804,000957: 13,3603 51751 LOADTIME
056805,000958: 13,3604 44215 DAD BDSU # INITIAL CHECK, IS TDEC1 IN THE FUTURE.
056806,000959: 13,3605 13771 TIMEDELT
056807,000960: 13,3606 00041 TDEC1
056808,000961: 13,3607 45044 BPL CALL
|
|
Page 1329 |
056810,000963: 13,3610 27616 ENTMID1
056811,000964: 13,3611 13756 NOTIME # NO, SET ALARM, SWITCH TO MIDTOAV2
056812,000965:
056813,000966: 13,3612 43234 ENTMID2 RTB DAD
056814,000967: 13,3613 51751 LOADTIME
056815,000968: 13,3614 03466 T-TO-ADD
056816,000969: 13,3615 00041 STORE TDEC1
056817,000970:
056818,000971: 13,3616 45014 ENTMID1 CLEAR CALL
056819,000972: 13,3617 01676 DIM0FLAG # NO W-MATRIX
056820,000973: 13,3620 26034 THISVINT
056821,000974: 13,3621 43014 CLEAR SET
056822,000975: 13,3622 01673 INTYPFLG
056823,000976: 13,3623 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
056824,000977: 13,3624 77624 CALL
056825,000978: 13,3625 27236 INTEGRV # GO INTEGRATE
056826,000979: 13,3626 66134 SXA,2 SXA,1
056827,000980: 13,3627 03746 RTX2
056828,000981: 13,3630 03745 RTX1
056829,000982: 13,3631 67214 CLEAR SLOAD
056830,000983: 13,3632 00275 AMOONFLG
056831,000984: 13,3633 03747 RTX2
056832,000985: 13,3634 43054 BZE SET
056833,000986: 13,3635 27637 +2
056834,000987: 13,3636 00075 AMOONFLG
056835,000988: 13,3637 77775 VLOAD
056836,000989: 13,3640 00001 RATT
056837,000990: 13,3641 25071 STOVL RN1
056838,000991: 13,3642 00007 VATT
056839,000992: 13,3643 15077 STODL VN1
056840,000993: 13,3644 00015 TAT
056841,000994: 13,3645 01105 STORE PIPTIME1
056842,000995: 13,3646 77776 EXIT
056843,000996:
056844,000997: 13,3647 00004 INHINT
056845,000998: 13,3650 00006 EXTEND
056846,000999: 13,3651 40025 DCS TIME2
056847,001000: 13,3652 20155 DAS MPAC
056848,001001: 13,3653 07226 TC TPAGREE
056849,001002:
056850,001003: 13,3654 30773 CA IRETURN1
056851,001004: 13,3655 04660 TC BANKJUMP
056852,001005: 13,3656 47014 CKMID2 BOF RTB
056853,001006: 13,3657 04754 MID1FLAG
056854,001007: 13,3660 27675 MID2
056855,001008: 13,3661 51751 LOADTIME
056856,001009: 13,3662 44215 DAD BDSU
056857,001010: 13,3663 13771 TIMEDELT
056858,001011: 13,3664 00745 TDEC
056859,001012: 13,3665 45044 BPL CALL
|
|
Page 1330 |
056861,001014: 13,3666 27364 TESTLOOP # YES
056862,001015: 13,3667 13756 NOTIME
056863,001016:
056864,001017: 13,3670 43234 TIMEINC RTB DAD
056865,001018: 13,3671 51751 LOADTIME
056866,001019: 13,3672 03466 T-TO-ADD
056867,001020: 13,3673 34745 STCALL TDEC
056868,001021: 13,3674 27364 TESTLOOP
056869,001022:
056870,001023: 13,3675 45345 MID2 DLOAD DSU
056871,001024: 13,3676 00745 TDEC
056872,001025: 13,3677 01517 TET
056873,001026: 13,3700 45246 ABS DSU
056874,001027: 13,3701 13755 3CSECS
056875,001028: 13,3702 77644 BPL
056876,001029: 13,3703 27670 TIMEINC
056877,001030:
056878,001031: 13,3704 44234 RTB BDSU # SEE IF 5.6 SECS. AVAILABLE TO CALLER.
056879,001032: 13,3705 51751 LOADTIME
056880,001033: 13,3706 01517 TET
056881,001034: 13,3707 51025 DSU BPL
056882,001035: 13,3710 13773 5.6SECS
056883,001036: 13,3711 27252 A-PCHK # YES, GET OUT.
056884,001037:
056885,001038: 13,3712 43345 DLOAD DAD # NO, ADD TIMEDELT TO T-TO-ADD AND TRY
056886,001039: 13,3713 03466 T-TO-ADD # AGAIN.
056887,001040: 13,3714 13771 TIMEDELT
056888,001041: 13,3715 37466 STCALL T-TO-ADD
056889,001042: 13,3716 27670 TIMEINC
056890,001043:
056891,001044:
056892,001045: 05,2000 SETLOC INTINIT3
056893,001046: 05,2000 BANK
056894,001047:
056895,001048: 05,3754 COUNT* $$/R41
056896,001049: 05,3754 00000 00003 3CSECS 2DEC 3 B-28
056897,001050:
056898,001051: 05,3756 77414 NOTIME CLEAR EXIT # TOO LATE
056899,001052: 05,3757 04674 MID1FLAG
056900,001053: 05,3760 24773 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
056901,001054: 05,3761 05671 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
056902,001055: 05,3762 01703 OCT 1703 # TIG WILL BE SLIPPED...
056903,001056: 05,3763 06006 TC INTPRET
056904,001057: 05,3764 77745 DLOAD
056905,001058: 05,3765 13771 TIMEDELT
056906,001059: 05,3766 03466 STORE T-TO-ADD
056907,001060: 05,3767 77616 RVQ
056908,001061:
056909,001062: 05,3770 00000 02342 TIMEDELT 2DEC 1250 B-28
|
|
Page 1331 |
056911,001064: 05,3772 00000 01060 5.6SECS 2DEC 560 B-28
056912,001065: 27,2000 SETLOC UPDATE2
056913,001066: 27,2000 BANK
056914,001067: 27,3072 COUNT* $$/INTIN
056915,001068:
056916,001069: 27,3072 E3,1706 EBANK= TEPHEM
056917,001070: 27,3072 06006 INTWAKEU TC INTPRET
056918,001071:
056919,001072: 27,3073 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
056920,001073: 27,3074 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
056921,001074: 27,3075 57141 INTWAKUP
056922,001075:
056923,001076: 27,3076 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
056924,001077: 27,3077 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
056925,001078: 27,3100 25535 STOVL RCV
056926,001079: 27,3101 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
056927,001080: 27,3102 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
056928,001081: 27,3103 23435 TINIRECT # TDELTAV(6),TNUV(6),TC(2), AND XKEP(2)
056929,001082: 27,3104 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
056930,001083: 27,3105 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
056931,001084: 27,3106 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
056932,001085: 27,3107 17150 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
056933,001086: 27,3110 57115 INTWAKEM # SPHERE OF INFLUENCE.........
056934,001087: 27,3111 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
056935,001088: 27,3112 00000 DEC 0 B-14
056936,001089: 27,3113 00223 MOONFLAG
056937,001090: 27,3114 57120 INTWAKEC
056938,001091: 27,3115 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
056939,001092: 27,3116 00002 DEC 2 B-14
056940,001093: 27,3117 00063 MOONFLAG
056941,001094: 27,3120 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
056942,001095: # MOONFLAG SET (OR CLEARED).
056943,001096: 27,3121 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
056944,001097: 27,3122 57130 INTWAKLM # STATE VECTOR UPDATE......
056945,001098: 27,3123 77624 CALL # UPDATE CSM STATE VECTOR
056946,001099: 27,3124 26761 ATOPCSM
056947,001100:
056948,001101: 27,3125 52014 CLEAR GOTO
056949,001102: 27,3126 01671 ORBWFLAG
056950,001103: 27,3127 57132 INTWAKEX
056951,001104:
056952,001105: 27,3130 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
056953,001106: 27,3131 27034 ATOPLEM
056954,001107:
056955,001108: 27,3132 77414 INTWAKEX CLEAR EXIT
056956,001109: 27,3133 02676 RENDWFLG
056957,001110:
056958,001111: 27,3134 34772 CAF ZERO
056959,001112: 27,3135 00006 EXTEND
|
|
Page 1332 |
056961,001114:
056962,001115: 27,3136 01077 WRITE CHAN77 # ZERO CHANNEL 77
056963,001116: 27,3137 55501 TS UPSVFLAG
056964,001117:
056965,001118: 27,3140 06006 TC INTPRET
056966,001119: 27,3141 77624 INTWAKUP CALL
056967,001120: 27,3142 27525 INTWAKE0 # RELEASE 'GRAB' OF ORBIT INTEG
056968,001121: 27,3143 77776 EXIT
056969,001122:
056970,001123: 27,3144 05402 TC PHASCHNG
056971,001124: 27,3145 04026 OCT 04026
056972,001125: 27,3146 03706 TC UPOUT +1
056973,001126:
056974,001127: 27,3147 00002 UPMNSVCD OCT 2
056975,001128: 27,3150 00000 OCT 0
056976,001129:
056977,001130: 11,2000 SETLOC ORBITAL
056978,001131: 11,2000 BANK
056979,001132:
056980,001133: 11,2327 COUNT* $$/ORBIT
056981,001134: 11,2327 77420 GRP2PC STQ EXIT
056982,001135: 11,2330 03536 GRP2SVQ
056983,001136: 11,2331 05402 TC PHASCHNG
056984,001137: 11,2332 04022 OCT 04022
056985,001138: 11,2333 06006 TC INTPRET
056986,001139: 11,2334 77650 GOTO
056987,001140: 11,2335 03536 GRP2SVQ
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc