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