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