GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional images
are 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 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
054181,000002: ## Copyright: Public domain.
054182,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
054183,000004: ## Purpose: Part of the source code for Colossus build 237.
054184,000005: ## This is for the Command Module's (CM) Apollo Guidance
054185,000006: ## Computer (AGC), for Apollo 8.
054186,000007: ## Assembler: yaYUL
054187,000008: ## Contact: Jim Lawton <jim DOT lawton AT gmail DOT com>
054188,000009: ## Website: www.ibiblio.org/apollo/index.html
054189,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
054190,000011: ## Mod history: 2011-04-17 JL Adapted from corresponding Colossus 249 file.
054191,000012: ## 2017-01-01 RSB Proofed comment text using octopus/ProoferComments,
054192,000013: ## and fixed errors found.
054193,000014: ## 2017-01-14 RSB Fixed comment-text errors located by diff'ing
054194,000015: ## against Colossus 249.
054195,000016: ## 2017-08-19 MAS Fixed comment errors found transcribing Zerlina 56.
054196,000017:
|
|
Page 1275 |
054198,000019: # 1.0 INTRODUCTION
054199,000020: # ----------------
054200,000021:
054201,000022: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
054202,000023: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
054203,000024: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
054204,000025: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
054205,000026: # SIDE THE LUNAR SPHERE OF INFLUENCE.
054206,000027:
054207,000028: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
054208,000029: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
054209,000030: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
054210,000031: # CALL TC INTSTALL.
054211,000032:
054212,000033: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
054213,000034: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
054214,000035: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
054215,000036: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
054216,000037: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
054217,000038:
054218,000039: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
054219,000040: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
054220,000041: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
054221,000042: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
054222,000043:
054223,000044: # 2.0 GENERAL DESCRIPTION
054224,000045: # -----------------------
054225,000046:
054226,000047: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS---
054227,000048: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
054228,000049: # 2) INTEGRATES THE W-MATRIX
054229,000050: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
054230,000051:
054231,000052: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
054232,000053: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
054233,000054: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
054234,000055: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
054235,000056: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
054236,000057: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
054237,000058: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
054238,000059: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
054239,000060: # AND/OR STATE VECTOR.
054240,000061:
054241,000062: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
054242,000063: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
054243,000064: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
054244,000065:
054245,000066: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
054246,000067: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
054247,000068: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
|
|
Page 1276 |
054249,000070: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
054250,000071:
054251,000072: # 2.1 RESTARTS
054252,000073:
054253,000074: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
054254,000075: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
054255,000076: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
054256,000077: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
054257,000078: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
054258,000079: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
054259,000080: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
054260,000081:
054261,000082: # 2.2 SCALING
054262,000083:
054263,000084: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
054264,000085: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTORDEPENDS ON THE ORIGIN OF THE COORDINATE
054265,000086: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
054266,000087: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
054267,000088: # DIFFERENT SCALING.
054268,000089: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
054269,000090:
054270,000091: # 3.0 INPUT/OUTPUT
054271,000092: # ----------------
054272,000093:
054273,000094: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
054274,000095: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
054275,000096: # FOR INTEGRVS, THE RCV,VCV, TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
054276,000097:
054277,000098: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
054278,000099:
054279,000100: # EARTH MOON
054280,000101: # 29 27
054281,000102: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
054282,000103:
054283,000104: # 7 5
054284,000105: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
054285,000106:
054286,000107: # 28 28
054287,000108: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
054288,000109: # CUSTOMARILY 0, BUT NOTE LUNAR
054289,000110: # ORBIT DEPENDENCE ON REAL TIME.
054290,000111:
054291,000112: # 22 18
054292,000113: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
054293,000114: # 0 IF TCCSM(LEM) = 0
054294,000115:
054295,000116: # 3 -1
054296,000117: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
054297,000118: # 0 IF TCCSM(LEM) = 0
|
|
Page 1277 |
054299,000120: # 29 27
054300,000121: # RCVCSM(LEM) - CONIC POSITION METERS 2 2
054301,000122: # EQUALS RRECTCSM(LEM) IF
054302,000123: # TCCSM(LEM) = 0
054303,000124:
054304,000125: # 7 5
054305,000126: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
054306,000127: # EQUALS VRECTCSM(LEM) IF
054307,000128: # TCCSM(LEM) = 0
054308,000129:
054309,000130: # 28 28
054310,000131: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
054311,000132: # CUSTOMARILY 0
054312,000133:
054313,000134: # 1/2 17 16
054314,000135: # XKEPCSM(LEM) - ROOT OF KEPLERS EQUATION M 2 2
054315,000136: # 0 IF TCCSM(LEM) = 0
054316,000137:
054317,000138: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
054318,000139: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
054319,000140: # LMOONFLG C = CSM, L = LM 0 0
054320,000141: # LMIDFLG 0,1 0,1
054321,000142:
054322,000143: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
054323,000144:
054324,000145: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
054325,000146: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
054326,000147: # ROUTINE MUST BE PRESET.
054327,000148:
054328,000149: # OUTPUT
054329,000150: # AFTER EVERY CALL TO INTEGRATION
054330,000151: # EARTH MOON
054331,000152: # 29 29
054332,000153: # 0D RATT POSITION METERS 2 2
054333,000154: # 7 7
054334,000155: # 6D VATT VELOCITY M/CSEC 2 2
054335,000156: # 28 28
054336,000157: # 12D TAT TIME 2 2
054337,000158: # 29 27
054338,000159: # 14D RATT1 POSITION METERS 2 2
054339,000160: # 7 5
054340,000161: # 20D VATT1 VELOCITY M/CSEC 2 2
054341,000162: # 3 2 36 30
054342,000163: # 26D MU(P) MU M /CS 2 2
054343,000164:
054344,000165: # X1 MUTABLE ENTRY -2 -10D
054345,000166:
054346,000167: # X2 COORDINT
054347,000168: # X2 COORDINATE SYSTEM ORIGEN 0 2
054348,000169: # (THIS, NOT MOONFLAG, SHOULD BE
|
|
Page 1278 |
054350,000171: # USED TO DETERMINE ORIGIN.)
054351,000172:
054352,000173: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
054353,000174: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
054354,000175: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
054355,000176: # CALLING PROGRAM.
054356,000177:
054357,000178: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
054358,000179: # -------------------------------------
054359,000180:
054360,000181: # A) PRECISION ORBITAL INTEGRATION. CSMPREC,LEMPREC ENTRANCES
054361,000182: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
054362,000183: # L CALL
054363,000184: # L+1 CSMPREC (OR LEMPREC)
054364,000185: # L+2 RETURN
054365,000186: # INPUT 28
054366,000187: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
054367,000188: # OUTPUT
054368,000189: # THE DATA LISTED IN SECTION 3.0 PLUS
054369,000190: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
054370,000191: # BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
054371,000192: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
054372,000193: # L-X STORE TIME IN PUSH LIST (TDEC1)
054373,000194: # L CALL
054374,000195: # L+1 CSMCONIC (OR LEMCONIC)
054375,000196: # INPUT/OUTPUT
054376,000197: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
054377,000198: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
054378,000199: # CALL
054379,000200: # INTSTALL
054380,000201: # VLOAD
054381,000202: # POSITION VECTOR
054382,000203: # STOVL RCV
054383,000204: # VELOCITY VECTOR
054384,000205: # STODL VCV
054385,000206: # TIME STATE VECTOR VALID
054386,000207: # STODL TET
054387,000208: # FINAL RADIUS
054388,000209: # STORE RFINAL
054389,000210: # SET(CLEAR) SET(CLEAR)
054390,000211: # INTYPFLAG
054391,000212: # MOONFLAG
054392,000213: # SET(CLEAR) DLOAD
054393,000214: # DESIRED TIME
054394,000215: # STCALL TDEC1
054395,000216: # INTEGRVS
054396,000217: # INPUT
054397,000218: # RCV POSITION VECTOR METERS
054398,000219: # VCV VELOCITY VECTOR M/CSEC
054399,000220: # TET TIME OF STATE VECTOR(MAY = 0) CSEC B-28
|
|
Page 1279 |
054401,000222: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
054402,000223: # (MAY BE INCREMENT IF TET=0)
054403,000224: # OUTPUT
054404,000225: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
054405,000226: # DEPENDING ON INTYPFLG.
054406,000227: # D) INTEGRATE STATE VECTOR.INTGRV ENTRANCE
054407,000228: # L-X STORE TIME IN PUSH LIST (TDEC1)(MAY BE DONE AFTER CALL TO INTSTALL)
054408,000229: # L-8 CALL
054409,000230: # L-7
054410,000231: # L-6 SET(CLEAR) SET(CLEAR)
054411,000232: # L-5 VINTFLAG 1=CSM, 0=LM
054412,000233: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
054413,000234: # L-3 SET(CLEAR) SET(CLEAR)
054414,000235: # L-2 DIMOFLAG 1=W-MATRIX, 0=NO W-MATRIX
054415,000236: # L-1 D6OR9FLG 1=9X9, 0=6X6
054416,000237: # L SET DLOAD
054417,000238: # L+1 STATEFLG DESIRE PERMANENT UPDATE
054418,000239: # L+2 FINAL RAD. OF STATE VECTOR
054419,000240: # L+3 STCALL RFINAL
054420,000241: # L+4 INTEGRV
054421,000242: # L CALL NORMAL USE-- WILL UPDATE STATE
054422,000243: # L+1 INTEGRV VECTOR IF DIMOFLAG=1.(STATEFLG IS
054423,000244: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
054424,000245: # IT IS USED.)
054425,000246: # INPUT
054426,000247: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
054427,000248: # OUTPUT
054428,000249: # SAME AS FOR PRECISION OR CONIC INTEGRATION
054429,000250: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
054430,000251: # THE PERMANENT STATE VECTOR REPRESENTATION.
054431,000252:
054432,000253: 11,2310 BANK 11
054433,000254: 13,2000 SETLOC INTINIT
054434,000255: 13,2000 BANK
054435,000256: 13,2561 E3,1554 EBANK= RRECTCSM
054436,000257: 13,2561 COUNT 13/INTIN
054437,000258:
054438,000259: 13,2561 05301 STATEINT TC PHASCHNG
054439,000260: 13,2562 00052 OCT 00052
054440,000261: 13,2563 34754 CAF PRIO5
054441,000262: 13,2564 05042 TC FINDVAC
054442,000263: 13,2565 E3,1554 EBANK= RRECTCSM
054443,000264: 13,2565 02570 26063 2CADR STATINT1
054444,000265: 13,2567 05213 TC TASKOVER
054445,000266: 13,2570 06006 STATINT1 TC INTPRET
054446,000267: 13,2571 47014 BON RTB
054447,000268: 13,2572 04712 QUITFLAG
054448,000269: 13,2573 26630 NOINT # NO STATEINT IF V96
054449,000270: 13,2574 45505 LOADTIME
|
|
Page 1280 |
054451,000272: 13,2575 00041 STORE TDEC1
054452,000273: 13,2576 77624 CALL
054453,000274: 13,2577 27371 INTSTALL
054454,000275: 13,2600 45014 SET CALL
054455,000276: 13,2601 01076 NODOFLAG
054456,000277: 13,2602 26621 SETIFLGS
054457,000278: 13,2603 77650 GOTO
054458,000279: 13,2604 26000 STATEUP
054459,000280: 13,2605 00003 25140 600SECS 2DEC 60000 B-28
054460,000281: 13,2607 77414 ENDINT CLEAR EXIT
054461,000282: 13,2610 01672 STATEFLG
054462,000283: 13,2611 05301 TC PHASCHNG
054463,000284: 13,2612 20032 OCT 20032
054464,000285: 13,2613 00006 EXTEND
054465,000286: 13,2614 32606 DCA 600SECS
054466,000287: 13,2615 05231 TC LONGCALL
054467,000288: 13,2616 E3,1554 EBANK= RRECTHIS
054468,000289: 13,2616 02561 26063 2CADR STATEINT
054469,000290: 13,2620 05112 TC ENDOFJOB
054470,000291: 13,2621 43014 SETIFLGS SET CLEAR
054471,000292: 13,2622 01472 STATEFLG
054472,000293: 13,2623 01673 INTYPFLG
054473,000294: 13,2624 43014 CLEAR CLEAR
054474,000295: 13,2625 01676 DIM0FLAG
054475,000296: 13,2626 01675 D6OR9FLG
054476,000297: 13,2627 77616 RVQ
054477,000298: 13,2630 77776 NOINT EXIT
054478,000299: 13,2631 05301 TC PHASCHNG
054479,000300: 13,2632 00002 OCT 2
054480,000301:
054481,000302: 13,2633 05447 TC DOWNFLAG
054482,000303: 13,2634 00221 ADRES QUITFLAG
054483,000304:
054484,000305: 13,2635 05112 TC ENDOFJOB
054485,000306:
054486,000307: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
054487,000308:
054488,000309: # CALLING SEQUENCE
054489,000310: # L CALL
054490,000311: # L+1 ATOPCSM
054491,000312:
054492,000313: # NORMAL EXIT AT L+2
054493,000314:
054494,000315: 13,2636 47020 ATOPCSM STQ RTB
054495,000316: 13,2637 00051 S2
054496,000317: 13,2640 26651 MOVEACSM
054497,000318: 13,2641 45014 SET CALL
054498,000319: 13,2642 04063 CMOONFLG
|
|
Page 1281 |
054500,000321: 13,2643 20237 SVDWN1
054501,000322: 13,2644 43014 BON CLRGO
054502,000323: 13,2645 00303 MOONFLAG
054503,000324: 13,2646 00051 S2
054504,000325: 13,2647 04223 CMOONFLG
054505,000326: 13,2650 00051 S2
054506,000327: 13,2651 03015 MOVEACSM TC SETBANK
054507,000328: 13,2652 55500 TS DIFEQCNT # INITIALIZE INDEX
054508,000329: 13,2653 51500 INDEX DIFEQCNT
054509,000330: 13,2654 31502 CA RRECT
054510,000331: 13,2655 51500 INDEX DIFEQCNT
054511,000332: 13,2656 55554 TS RRECTCSM
054512,000333: 13,2657 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
054513,000334: 13,2660 12652 TCF MOVEACSM +1 # NO-LOOP
054514,000335: 13,2661 06030 TC DANZIG # COMPLETE- RETURN
054515,000336:
054516,000337:
054517,000338: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
054518,000339:
054519,000340: # CALLING SEQUENCE
054520,000341: # L CALL
054521,000342: # PTOACSM
054522,000343:
054523,000344: # NORMAL EXIT AT L+2
054524,000345: 13,2662 43034 PTOACSM RTB BON
054525,000346: 13,2663 26700 MOVEPCSM
054526,000347: 13,2664 04303 CMOONFLG
054527,000348: 13,2665 26673 SETMOON
054528,000349: 13,2666 66214 CLRMOON CLEAR SSP
054529,000350: 13,2667 00263 MOONFLAG
054530,000351: 13,2670 02151 PBODY
054531,000352: 13,2671 00000 0
054532,000353: 13,2672 77616 RVQ
054533,000354: 13,2673 66214 SETMOON SET SSP
054534,000355: 13,2674 00063 MOONFLAG
054535,000356: 13,2675 02151 PBODY
054536,000357: 13,2676 00002 2
054537,000358: 13,2677 77616 RVQ
054538,000359: 13,2700 03015 MOVEPCSM TC SETBANK
054539,000360: 13,2701 55500 TS DIFEQCNT
054540,000361: 13,2702 51500 INDEX DIFEQCNT
054541,000362: 13,2703 31554 CA RRECTCSM
054542,000363: 13,2704 51500 INDEX DIFEQCNT
054543,000364: 13,2705 55502 TS RRECT
054544,000365: 13,2706 11500 CCS DIFEQCNT
054545,000366: 13,2707 12701 TCF MOVEPCSM +1
054546,000367: 13,2710 06030 TC DANZIG
054547,000368:
054548,000369:
054549,000370: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
|
|
Page 1282 |
054551,000372: 13,2711 47020 ATOPLEM STQ RTB
054552,000373: 13,2712 00051 S2
054553,000374: 13,2713 26724 MOVEALEM
054554,000375: 13,2714 45014 SET CALL
054555,000376: 13,2715 04064 LMOONFLG
054556,000377: 13,2716 20263 SVDWN2
054557,000378: 13,2717 43014 BON CLRGO
054558,000379: 13,2720 00303 MOONFLAG
054559,000380: 13,2721 00051 S2
054560,000381: 13,2722 04224 LMOONFLG
054561,000382: 13,2723 00051 S2
054562,000383: 13,2724 03015 MOVEALEM TC SETBANK
054563,000384: 13,2725 55500 TS DIFEQCNT
054564,000385: 13,2726 51500 INDEX DIFEQCNT
054565,000386: 13,2727 31502 CA RRECT
054566,000387: 13,2730 51500 INDEX DIFEQCNT
054567,000388: 13,2731 55626 TS RRECTLEM
054568,000389: 13,2732 11500 CCS DIFEQCNT
054569,000390: 13,2733 12725 TCF MOVEALEM +1
054570,000391: 13,2734 06030 TC DANZIG
054571,000392:
054572,000393:
054573,000394: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
054574,000395:
054575,000396: 13,2735 47014 PTOALEM BON RTB
054576,000397: 13,2736 04307 SURFFLAG
054577,000398: 13,2737 26756 USEPIOS
054578,000399: 13,2740 26745 MOVEPLEM
054579,000400: 13,2741 52014 BON GOTO
054580,000401: 13,2742 04304 LMOONFLG
054581,000402: 13,2743 26673 SETMOON
054582,000403: 13,2744 26666 CLRMOON
054583,000404: 13,2745 03015 MOVEPLEM TC SETBANK
054584,000405: 13,2746 55500 TS DIFEQCNT
054585,000406: 13,2747 51500 INDEX DIFEQCNT
054586,000407: 13,2750 31626 CA RRECTLEM
054587,000408: 13,2751 51500 INDEX DIFEQCNT
054588,000409: 13,2752 55502 TS RRECT
054589,000410: 13,2753 11500 CCS DIFEQCNT
054590,000411: 13,2754 12746 TCF MOVEPLEM +1
054591,000412: 13,2755 06030 TC DANZIG
054592,000413:
054593,000414:
054594,000415: 13,2756 77201 USEPIOS SETPD VLOAD
054595,000416: 13,2757 00001 0
054596,000417: 13,2760 02026 RLS
054597,000418: 13,2761 41525 PDDL PUSH
054598,000419: 13,2762 00041 TDEC1
054599,000420: 13,2763 15517 STODL TET
054600,000421: 13,2764 27753 5/8
|
|
Page 1283 |
054602,000423: 13,2765 77624 CALL
054603,000424: 13,2766 55341 RP-TO-R
054604,000425: 13,2767 25535 STOVL RCV
054605,000426: 13,2770 11445 ZUNIT
054606,000427: 13,2771 14001 STODL 0D
054607,000428: 13,2772 01517 TET
054608,000429: 13,2773 14007 STODL 6D
054609,000430: 13,2774 27753 5/8
054610,000431: 13,2775 45014 SET CALL # NEEDED FOR SETTING X1 ON EXIT
054611,000432: 13,2776 00063 MOONFLAG
054612,000433: 13,2777 55341 RP-TO-R
054613,000434: 13,3000 74235 VXV VXSC
054614,000435: 13,3001 01535 RCV
054615,000436: 13,3002 27014 OMEGMOON
054616,000437: 13,3003 25543 STOVL VCV
054617,000438: 13,3004 11453 ZEROVEC
054618,000439: 13,3005 01521 STORE TDELTAV
054619,000440: 13,3006 67174 AXT,2 SXA,2
054620,000441: 13,3007 00002 2
054621,000442: 13,3010 02150 PBODY
054622,000443: 13,3011 35527 STCALL TNUV
054623,000444: 13,3012 27136 A-PCHK
054624,000445: 13,3013 07112 06620 OMEGMOON 2DEC* 2.66169947 E-8 B+23*
054625,000446: 13,3015 33021 SETBANK CAF INTBANK
054626,000447: 13,3016 54006 TS BBANK
054627,000448: 13,3017 33436 CAF FORTYONE
054628,000449: 13,3020 00002 TC Q
054629,000450: 13,3021 E3,1554 EBANK= RRECTCSM
054630,000451: 13,3021 26063 INTBANK BBCON INTEGRV
054631,000452:
054632,000453:
054633,000454: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
054634,000455: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
054635,000456:
054636,000457: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
054637,000458: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
054638,000459: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
054639,000460: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
054640,000461: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
054641,000462: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
054642,000463:
054643,000464: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
054644,000465: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
054645,000466: # CSMPREC CSMCONIC LEMPREC LEMCONIC
054646,000467: # VINTFLAG SET SET CLEAR CLEAR
054647,000468: # INTYPFLG CLEAR SET CLEAR SET
054648,000469: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
054649,000470:
|
|
Page 1284 |
054651,000472: # CALLING SEQUENCE
054652,000473: # L-X STORE TDEC1
054653,000474: # L CALL (STCALL TDEC1)
054654,000475: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
054655,000476:
054656,000477: # NORMAL EXIT TO L+2
054657,000478:
054658,000479:
054659,000480: # SUBROUTINES CALLED
054660,000481: # INTEGRV1
054661,000482: # PRECOUT FOR CSMPREC AND LEMPREC
054662,000483: # CONICOUT FOR CSMCONIC AND LEMCONIC
054663,000484:
054664,000485:
054665,000486: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
054666,000487: # INPUT
054667,000488: # TDEC1 TIME TO INTEGRATE TO . CSECS B-28
054668,000489: 13,3022 45020 CSMPREC STQ CALL
054669,000490: 13,3023 00046 X1
054670,000491: 13,3024 27371 INTSTALL
054671,000492: 13,3025 43130 SXA,1 SET
054672,000493: 13,3026 02214 IRETURN
054673,000494: 13,3027 01474 VINTFLAG
054674,000495:
054675,000496: 13,3030 43014 IFLAGP SET CLEAR
054676,000497: 13,3031 01467 PRECIFLG
054677,000498: 13,3032 01676 DIM0FLAG
054678,000499: 13,3033 77614 CLRGO
054679,000500: 13,3034 01633 INTYPFLG
054680,000501: 13,3035 27115 INTEGRV1
054681,000502: 13,3036 45020 LEMPREC STQ CALL
054682,000503: 13,3037 00046 X1
054683,000504: 13,3040 27371 INTSTALL
054684,000505: 13,3041 43130 SXA,1 CLRGO
054685,000506: 13,3042 02214 IRETURN
054686,000507: 13,3043 01634 VINTFLAG
054687,000508: 13,3044 27030 IFLAGP
054688,000509:
054689,000510: 13,3045 45020 CSMCONIC STQ CALL
054690,000511: 13,3046 00046 X1
054691,000512: 13,3047 27371 INTSTALL
054692,000513: 13,3050 43130 SXA,1 SET
054693,000514: 13,3051 02214 IRETURN
054694,000515: 13,3052 01474 VINTFLAG
054695,000516: 13,3053 43014 IFLAGC CLEAR SETGO
054696,000517: 13,3054 01676 DIM0FLAG
054697,000518: 13,3055 01433 INTYPFLG
054698,000519: 13,3056 27115 INTEGRV1
054699,000520: 13,3057 45020 LEMCONIC STQ CALL
054700,000521: 13,3060 00046 X1
|
|
Page 1285 |
054702,000523: 13,3061 27371 INTSTALL
054703,000524: 13,3062 43130 SXA,1 CLRGO
054704,000525: 13,3063 02214 IRETURN
054705,000526: 13,3064 01634 VINTFLAG
054706,000527: 13,3065 27053 IFLAGC
054707,000528:
054708,000529: 13,3066 66214 INTEGRVS SET SSP
054709,000530: 13,3067 01467 PRECIFLG
054710,000531: 13,3070 02151 PBODY
054711,000532: 13,3071 00000 0
054712,000533: 13,3072 66214 BOF SSP
054713,000534: 13,3073 00343 MOONFLAG
054714,000535: 13,3074 27077 +3
054715,000536: 13,3075 02151 PBODY
054716,000537: 13,3076 00002 2
054717,000538: 13,3077 77220 STQ VLOAD
054718,000539: 13,3100 02214 IRETURN
054719,000540: 13,3101 11453 ZEROVEC
054720,000541: 13,3102 01521 STORE TDELTAV
054721,000542: 13,3103 35527 STCALL TNUV
054722,000543: 13,3104 23344 RECTIFY
054723,000544: 13,3105 43014 CLEAR SET
054724,000545: 13,3106 01676 DIM0FLAG
054725,000546: 13,3107 04062 NEWIFLG
054726,000547: 13,3110 77614 SETGO
054727,000548: 13,3111 04020 RPQFLAG
054728,000549: 13,3112 27127 ALOADED
054729,000550: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER ,
054730,000551: # NORMALLY THE NAVIGATION PROGRAM ,TO SET THE INTEG. FLAGS. THE ROUTINE
054731,000552: # IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
054732,000553: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
054733,000554: # PROGRAM FOR PRECISION OR CONIC
054734,000555:
054735,000556: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
054736,000557: # SETTING ANY FLAGS.
054737,000558: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
054738,000559: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
054739,000560: # INTYPFLG
054740,000561: # DIM0FLAG
054741,000562: # D6OR9FLG
054742,000563: # CALLING SEQUENCE
054743,000564: # L-X CALL
054744,000565: # L-Y INTSTALL
054745,000566: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
054746,000567: # AND DIM0FLAG IS CLEAR.
054747,000568: # L CALL
054748,000569: # L+1 INTEGRV
054749,000570: # INITIALIZATION
054750,000571: # FLAGS AS ABOVE
054751,000572: # STORE TIME TO INTEGRATE TO IN TDEC1
|
|
Page 1286 |
054753,000574: # OUTPUT
054754,000575: # RATT AS
054755,000576: # VATT DEFINED
054756,000577: # TAT BEFORE
054757,000578:
054758,000579:
054759,000580: 13,3113 77620 INTEGRV STQ
054760,000581: 13,3114 02214 IRETURN
054761,000582: 13,3115 43014 INTEGRV1 SET SET
054762,000583: 13,3116 04060 RPQFLAG
054763,000584: 13,3117 04062 NEWIFLG
054764,000585: 13,3120 77731 INTEGRV2 SSP
054765,000586: 13,3121 00053 QPRET
054766,000587: 13,3122 27127 ALOADED
054767,000588: 13,3123 52014 BON GOTO
054768,000589: 13,3124 01714 VINTFLAG
054769,000590: 13,3125 26662 PTOACSM
054770,000591: 13,3126 26735 PTOALEM
054771,000592: 13,3127 77745 ALOADED DLOAD
054772,000593: 13,3130 00041 TDEC1
054773,000594: 13,3131 01101 STORE TDEC
054774,000595: 13,3132 52014 BOFF GOTO
054775,000596: 13,3133 01753 INTYPFLG
054776,000597: 13,3134 27234 TESTLOOP
054777,000598: 13,3135 27220 RVCON
054778,000599: 13,3136 77414 A-PCHK BOFCLR EXIT
054779,000600: 13,3137 01652 STATEFLG
054780,000601: 13,3140 27157 RECTOUT
054781,000602: 13,3141 05301 TC PHASCHNG
054782,000603: 13,3142 04022 OCT 04022
054783,000604: 13,3143 05435 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
054784,000605: 13,3144 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
054785,000606: 13,3145 06006 TC INTPRET
054786,000607: 13,3146 77731 SSP
054787,000608: 13,3147 00053 QPRET
054788,000609: 13,3150 27155 PHEXIT
054789,000610: 13,3151 52014 BON GOTO
054790,000611: 13,3152 01714 VINTFLAG
054791,000612: 13,3153 26636 ATOPCSM
054792,000613: 13,3154 26711 ATOPLEM
054793,000614: 13,3155 77624 PHEXIT CALL
054794,000615: 13,3156 56712 GRP2PC
054795,000616: 13,3157 45001 RECTOUT SETPD CALL
054796,000617: 13,3160 00001 0
054797,000618: 13,3161 23344 RECTIFY
054798,000619: 13,3162 53775 VLOAD VSL*
054799,000620: 13,3163 01503 RRECT
054800,000621: 13,3164 57576 0,2
054801,000622: 13,3165 53715 PDVL VSL* # RATT TO PD0
054802,000623: 13,3166 01511 VRECT
|
|
Page 1287 |
054804,000625: 13,3167 57576 0,2
054805,000626: 13,3170 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
054806,000627: 13,3171 01517 TET
054807,000628: 13,3172 01503 RRECT
054808,000629: 13,3173 64715 PDVL PDDL*
054809,000630: 13,3174 01511 VRECT
054810,000631: 13,3175 50044 MUEARTH,2
054811,000632: 13,3176 76006 PUSH AXT,1
054812,000633: 13,3177 77765 DEC -10 B-14
054813,000634: 13,3200 76014 BON AXT,1
054814,000635: 13,3201 00303 MOONFLAG
054815,000636: 13,3202 27204 +2
054816,000637: 13,3203 77775 DEC -2 B-14
054817,000638: 13,3204 40001 INTEXIT SETPD BOV
054818,000639: 13,3205 00001 0
054819,000640: 13,3206 27207 +1
054820,000641: 13,3207 43014 CLEAR CLEAR
054821,000642: 13,3210 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
054822,000643: 13,3211 01667 PRECIFLG
054823,000644: 13,3212 77535 SLOAD EXIT
054824,000645: 13,3213 02215 IRETURN
054825,000646: 13,3214 30154 CA MPAC
054826,000647: 13,3215 50120 INDEX FIXLOC
054827,000648: 13,3216 54052 TS QPRET
054828,000649: 13,3217 03406 TC INTWAKE
054829,000650: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
054830,000651: # VELOCITY FOR THE INTERVAL (TET-TDEC)
054831,000652:
054832,000653: 13,3220 45345 RVCON DLOAD DSU
054833,000654: 13,3221 01101 TDEC
054834,000655: 13,3222 01517 TET
054835,000656: 13,3223 36312 STCALL TAU.
054836,000657: 13,3224 23344 RECTIFY
054837,000658: 13,3225 77624 CALL
054838,000659: 13,3226 22310 KEPPREP
054839,000660: 13,3227 43345 DLOAD DAD
054840,000661: 13,3230 01551 TC
054841,000662: 13,3231 01517 TET
054842,000663: 13,3232 35517 STCALL TET
054843,000664: 13,3233 27157 RECTOUT
054844,000665:
|
|
Page 1288 |
054846,000667: # TESTLOOP
054847,000668:
054848,000669: 13,3234 43014 TESTLOOP BOF CLRGO
054849,000670: 13,3235 04752 QUITFLAG
054850,000671: 13,3236 27241 +3
054851,000672: 13,3237 01632 STATEFLG
054852,000673: 13,3240 27204 INTEXIT # STOP INTEGRATION
054853,000674: 13,3241 73001 +3 SETPD LXA,2
054854,000675: 13,3242 00013 10D
054855,000676: 13,3243 02150 PBODY
054856,000677: 13,3244 51575 VLOAD ABVAL
054857,000678: 13,3245 01535 RCV
054858,000679: 13,3246 43006 PUSH CLEAR # RC TO 10D
054859,000680: 13,3247 00262 MIDFLAG
054860,000681: 13,3250 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
054861,000682: 13,3251 67241 RME,2
054862,000683: 13,3252 27255 +3
054863,000684: 13,3253 77614 SET
054864,000685: 13,3254 00062 MIDFLAG
054865,000686: 13,3255 41345 NORFINAL DLOAD DMP
054866,000687: 13,3256 00013 10D
054867,000688: 13,3257 00043 34D
054868,000689: 13,3260 55762 SR1R DDV*
054869,000690: 13,3261 50044 MUEARTH,2
054870,000691: 13,3262 41366 SQRT DMP
054871,000692: 13,3263 23675 .3D
054872,000693: 13,3264 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
054873,000694: 13,3265 54345 DLOAD SL
054874,000695: 13,3266 00155 MPAC
054875,000696: 13,3267 20220 15D # OF 128 CSECS.
054876,000697: 13,3270 40006 PUSH BOV
054877,000698: 13,3271 27316 MAXDT
054878,000699: 13,3272 50021 BDSU BMN
054879,000700: 13,3273 27370 DT/2MAX
054880,000701: 13,3274 27316 MAXDT
054881,000702: 13,3275 45345 DT/2COMP DLOAD DSU
054882,000703: 13,3276 01101 TDEC
054883,000704: 13,3277 01517 TET
054884,000705: 13,3300 54234 RTB SL
054885,000706: 13,3301 45541 SGNAGREE
054886,000707: 13,3302 20211 8D
054887,000708: 13,3303 02314 STORE DT/2 # B-19
054888,000709: 13,3304 51400 BOV ABS
054889,000710: 13,3305 27322 GETMAXDT
054890,000711: 13,3306 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
054891,000712: 13,3307 00015 12D
054892,000713: 13,3310 27326 P00HCHK
054893,000714: 13,3311 75345 USEMAXDT DLOAD SIGN
054894,000715: 13,3312 00015 12D
054895,000716: 13,3313 02314 DT/2
|
|
Page 1289 |
054897,000718: 13,3314 36314 STCALL DT/2
054898,000719: 13,3315 27326 P00HCHK
054899,000720: 13,3316 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
054900,000721: 13,3317 27370 DT/2MAX
054901,000722: 13,3320 77650 GOTO
054902,000723: 13,3321 27275 DT/2COMP
054903,000724: 13,3322 77634 GETMAXDT RTB
054904,000725: 13,3323 45707 SIGNMPAC
054905,000726: 13,3324 36314 STCALL DT/2
054906,000727: 13,3325 27311 USEMAXDT
054907,000728: 13,3326 51545 P00HCHK DLOAD ABS
054908,000729: 13,3327 02314 DT/2
054909,000730: 13,3330 50025 DSU BMN
054910,000731: 13,3331 27366 DT/2MIN
054911,000732: 13,3332 27136 A-PCHK
054912,000733: 13,3333 46135 SLOAD BHIZ
054913,000734: 13,3334 01012 MODREG
054914,000735: 13,3335 27340 +3
054915,000736: 13,3336 77650 GOTO
054916,000737: 13,3337 23155 TIMESTEP
054917,000738: 13,3340 77614 BON # WAS THIS CALL VIA CSM(LEM)PREC
054918,000739: 13,3341 01707 PRECIFLG
054919,000740: 13,3342 23155 TIMESTEP # YES
054920,000741: 13,3343 45345 DLOAD DSU
054921,000742: 13,3344 02314 DT/2
054922,000743: 13,3345 00015 12D
054923,000744: 13,3346 43040 BMN BOFCLR
054924,000745: 13,3347 27136 A-PCHK
054925,000746: 13,3350 04242 NEWIFLG
054926,000747: 13,3351 23155 TIMESTEP
054927,000748: 13,3352 45345 DLOAD DSU
054928,000749: 13,3353 01101 TDEC
054929,000750: 13,3354 01517 TET
054930,000751: 13,3355 77640 BMN # NO BACKWARD INTEGRATION
054931,000752: 13,3356 27204 INTEXIT
054932,000753: 13,3357 40525 PDDL SR4
054933,000754: 13,3360 02314 DT/2 # IS 4(DT) LS(TDEC - TET)
054934,000755: 13,3361 44322 SR2R BDSU # NO
054935,000756: 13,3362 52040 BMN GOTO
054936,000757: 13,3363 27204 INTEXIT
054937,000758: 13,3364 23155 TIMESTEP
054938,000759: 13,3365 00000 01400 DT/2MIN 2DEC 3 B-20
054939,000760: 13,3367 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
054940,000761: 13,3371 77776 INTSTALL EXIT
054941,000762: 13,3372 34714 CAF ZERO
054942,000763: 13,3373 54001 ALLSTALL TS L
054943,000764: 13,3374 30106 CA RASFLAG
054944,000765: 13,3375 50001 INDEX L
|
|
Page 1290 |
054946,000767: 13,3376 73467 MASK INTBITAB # IS THIS STALL AREA FREE
054947,000768: 13,3377 00006 EXTEND
054948,000769: 13,3400 13445 BZF OKTOGRAB # YES
054949,000770: 13,3401 50001 INDEX L
054950,000771: 13,3402 33464 CAF WAKESTAL
054951,000772: 13,3403 05070 TC JOBSLEEP
054952,000773: 13,3404 77776 INTWAKE0 EXIT
054953,000774: 13,3405 13426 TCF INTWAKE1
054954,000775:
054955,000776: 13,3406 40106 INTWAKE CS RASFLAG # IS THIS INTSTALLED ROUTINE TO BE
054956,000777: 13,3407 74704 MASK REINTBIT # RESTARTED
054957,000778: 13,3410 10000 CCS A
054958,000779: 13,3411 03426 TC INTWAKE1 # NO
054959,000780:
054960,000781: 13,3412 50120 INDEX FIXLOC
054961,000782: 13,3413 30052 CA QPRET
054962,000783: 13,3414 55055 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
054963,000784:
054964,000785: 13,3415 05301 TC PHASCHNG
054965,000786: 13,3416 04022 OCT 04022
054966,000787:
054967,000788: 13,3417 31055 CA TBASE2
054968,000789: 13,3420 50120 INDEX FIXLOC
054969,000790: 13,3421 54052 TS QPRET
054970,000791:
054971,000792: 13,3422 34704 CAF REINTBIT
054972,000793: 13,3423 70106 MASK RASFLAG
054973,000794: 13,3424 00006 EXTEND
054974,000795: 13,3425 13450 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
054975,000796:
054976,000797: 13,3426 34714 INTWAKE1 CAF ZERO
054977,000798: 13,3427 54154 WAKE TS STALTEM # INDEX OF ANY STALL USER
054978,000799: 13,3430 50154 WAKE1 INDEX STALTEM
054979,000800: 13,3431 33464 CAF WAKESTAL
054980,000801: 13,3432 00004 INHINT
054981,000802: 13,3433 05074 TC JOBWAKE
054982,000803: 13,3434 10064 CCS LOCCTR
054983,000804: 13,3435 13430 TCF WAKE1 # MAY BE MORE TO WAKE UP
054984,000805: 13,3436 00051 FORTYONE DEC 41 B-14
054985,000806: 13,3437 50154 INDEX STALTEM
054986,000807: 13,3440 43467 CS INTBITAB
054987,000808: 13,3441 70106 MASK RASFLAG
054988,000809: 13,3442 54106 TS RASFLAG # RELEASE STALL AREA
054989,000810: 13,3443 00003 RELINT
054990,000811: 13,3444 13450 TCF GOBAC
054991,000812: 13,3445 50001 OKTOGRAB INDEX L # NO, WAIT UNTIL AVAILABLE
054992,000813: 13,3446 34675 CAF INTFLBIT
054993,000814: 13,3447 26106 ADS RASFLAG
054994,000815: 13,3450 06006 GOBAC TC INTPRET
054995,000816: 13,3451 77616 RVQ
|
|
Page 1291 |
054997,000818: 13,3452 77776 ERASTAL1 EXIT
054998,000819: 13,3453 34712 CAF ONE
054999,000820: 13,3454 13373 TCF ALLSTALL
055000,000821: 13,3455 77776 ERASTAL2 EXIT
055001,000822: 13,3456 34711 CAF TWO
055002,000823: 13,3457 13373 TCF ALLSTALL
055003,000824: 13,3460 34712 ERASWAK1 CAF ONE
055004,000825: 13,3461 13427 TCF WAKE
055005,000826: 13,3462 34711 ERASWAK2 CAF TWO
055006,000827: 13,3463 13427 TCF WAKE
055007,000828: 13,3464 27372 WAKESTAL CADR INTSTALL +1
055008,000829: 13,3465 27453 CADR ERASTAL1 +1
055009,000830: 13,3466 27456 CADR ERASTAL2 +1
055010,000831: 13,3467 0154 STALTEM EQUALS MPAC
055011,000832: 13,3467 20100 INTBITAB OCT 20100
055012,000833: 13,3470 10040 OCT 10040
055013,000834: 13,3471 04020 OCT 04020
055014,000835:
|
|
Page 1292 |
055016,000837: # AVETOMID
055017,000838:
055018,000839: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
055019,000840: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
055020,000841: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
055021,000842:
055022,000843: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
055023,000844: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
055024,000845:
055025,000846: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
055026,000847:
055027,000848: # FINALLY TRKMKCNT IS ZEROED
055028,000849:
055029,000850:
055030,000851: 13,2000 SETLOC INTINIT
055031,000852: 13,2000 BANK
055032,000853:
055033,000854: 13,3472 COUNT* $$/INTIN
055034,000855: 13,3472 43020 AVETOMID STQ BON
055035,000856: 13,3473 02317 EGRESS
055036,000857: 13,3474 02716 RENDWFLG
055037,000858: 13,3475 27545 INT/W # W-MATRIX VALID ,GO INTEGRATE IT
055038,000859: 13,3476 77614 BON
055039,000860: 13,3477 01711 ORBWFLAG
055040,000861: 13,3500 27545 INT/W # W-MATRIX VALID ,GO INTEGRATE IT
055041,000862:
055042,000863: 13,3501 45145 OTHERS DLOAD CALL # GET SET FOR OTHER VEHICLE INTEGRATION
055043,000864: 13,3502 01205 PIPTIME # DESIRED TIME
055044,000865: 13,3503 27371 INTSTALL
055045,000866: 13,3504 45014 SET CALL
055046,000867: 13,3505 01474 VINTFLAG # CM
055047,000868: 13,3506 26621 SETIFLGS # SETS UP NONE W-MAT. PERMANENT INTEG.
055048,000869: 13,3507 43014 BOF CLEAR
055049,000870: 13,3510 02747 COMPUTER
055050,000871: 13,3511 27513 +2 # COMPUTER IS LM ,INTEG CM
055051,000872: 13,3512 01674 VINTFLAG # COMPUTER IS CM ,INTEG LM
055052,000873: 13,3513 34041 STCALL TDEC1
055053,000874: 13,3514 27113 INTEGRV
055054,000875:
055055,000876: 13,3515 45174 AXT,2 CALL # NOW MOVE PROPERLY SCALE RN,UN AS WELL AS
055056,000877: 13,3516 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
055057,000878: 13,3517 27371 INTSTALL
055058,000879: 13,3520 77014 BON AXT,2
055059,000880: 13,3521 04303 MOONTHIS
055060,000881: 13,3522 27524 +2
055061,000882: 13,3523 00000 0
055062,000883: 13,3524 53775 VLOAD VSR*
055063,000884: 13,3525 01171 RN
055064,000885: 13,3526 57176 0,2
055065,000886: 13,3527 01503 STORE RRECT
|
|
Page 1293 |
055067,000888: 13,3530 15535 STODL RCV
055068,000889: 13,3531 01205 PIPTIME
055069,000890: 13,3532 25517 STOVL TET
055070,000891: 13,3533 01177 VN
055071,000892: 13,3534 45057 VSR* CALL
055072,000893: 13,3535 57176 0,2
055073,000894: 13,3536 23360 MINIRECT # FINISH SETTING UP STATE VECTOR
055074,000895: 13,3537 66234 RTB SSP
055075,000896: 13,3540 26651 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
055076,000897: 13,3541 01127 TRKMKCNT
055077,000898: 13,3542 00000 0
055078,000899: 13,3543 77650 GOTO
055079,000900: 13,3544 75743 FAZAB5
055080,000901:
055081,000902: 13,3545 45145 INT/W DLOAD CALL
055082,000903: 13,3546 01205 PIPTIME # INTEGRATE W THRU BURN
055083,000904: 13,3547 27371 INTSTALL
055084,000905: 13,3550 43014 SET SET
055085,000906: 13,3551 01476 DIM0FLAG # DO W-MATRIX
055086,000907: 13,3552 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
055087,000908: 13,3553 43014 SET CLEAR
055088,000909: 13,3554 01475 D6OR9FLG # 9X9 FOR LM
055089,000910: 13,3555 01674 VINTFLAG # LM
055090,000911: 13,3556 43014 BOF SET
055091,000912: 13,3557 02747 COMPUTER
055092,000913: 13,3560 27564 +4 # LM TO DO
055093,000914: 13,3561 01474 VINTFLAG
055094,000915: 13,3562 77614 CLEAR
055095,000916: 13,3563 01675 D6OR9FLG # 6X6 FOR CM
055096,000917: 13,3564 34041 STCALL TDEC1
055097,000918: 13,3565 27113 INTEGRV
055098,000919: 13,3566 77650 GOTO
055099,000920: 13,3567 27501 OTHERS # NOW GO DO THE OTHER VEHICLE
055100,000921:
|
|
Page 1294 |
055102,000923: # MIDTOAV1
055103,000924:
055104,000925: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
055105,000926: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
055106,000927: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
055107,000928: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
055108,000929: # IS DONE TO THE CURRENT TIME.
055109,000930: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
055110,000931:
055111,000932: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
055112,000933: # TO THE RETURN ADDRESS
055113,000934:
055114,000935: # IN EITHER CASE , BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
055115,000936: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
055116,000937: # TION TIME AND MPAC IS SET TO THE DELTA TIME---
055117,000938: # TAT MINUS CURRENT TIME.
055118,000939:
055119,000940:
055120,000941: # MIDTOAV2
055121,000942:
055122,000943: # THIS ROUTINE INTEGRATES THIS VEHICLES STATE VECTOR TO THE CURRENT TIME.
055123,000944: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
055124,000945: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
055125,000946:
055126,000947: 13,3570 1127 EBANK= IRETURN1
055127,000948: 13,3570 43020 MIDTOAV2 STQ CLRGO # INTEGRATE TO PRESENT TIME PLUS TIMEDELT
055128,000949: 13,3571 01127 IRETURN1
055129,000950: 13,3572 04634 MID1FLAG
055130,000951: 13,3573 27607 ENTMID2
055131,000952:
055132,000953: 13,3574 43020 MIDTOAV1 STQ SET # INTEGRATE TO TDEC1
055133,000954: 13,3575 01127 IRETURN1
055134,000955: 13,3576 04474 MID1FLAG
055135,000956: 13,3577 43234 RTB DAD # INITIAL CHECK, IS TDEC1 IN THE FUTURE
055136,000957: 13,3600 45505 LOADTIME
055137,000958: 13,3601 27711 TIMEDELT
055138,000959: 13,3602 51021 BDSU BPL
055139,000960: 13,3603 00041 TDEC1
055140,000961: 13,3604 27613 ENTMID1 # Y5S
055141,000962: 13,3605 77624 CALL
055142,000963: 13,3606 27677 NOTIME # NO, SET ALARM, SWITCH TO MIDTOAV2
055143,000964:
055144,000965: 13,3607 43234 ENTMID2 RTB DAD
055145,000966: 13,3610 45505 LOADTIME
055146,000967: 13,3611 27711 TIMEDELT
055147,000968: 13,3612 00041 STORE TDEC1
055148,000969:
055149,000970: 13,3613 77624 ENTMID1 CALL
055150,000971: 13,3614 27371 INTSTALL
055151,000972: 13,3615 45014 CLEAR CALL
|
|
Page 1295 |
055153,000974: 13,3616 01676 DIM0FLAG # NO W-MATRIX
055154,000975: 13,3617 26034 THISVINT
055155,000976: 13,3620 43014 CLEAR SET
055156,000977: 13,3621 01673 INTYPFLG
055157,000978: 13,3622 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
055158,000979: 13,3623 77624 CALL
055159,000980: 13,3624 27113 INTEGRV # GO INTEGRATE
055160,000981: 13,3625 77214 CLEAR VLOAD
055161,000982: 13,3626 04675 MIDAVFLG
055162,000983: 13,3627 00001 RATT
055163,000984: 13,3630 25232 STOVL RN1
055164,000985: 13,3631 00007 VATT
055165,000986: 13,3632 15240 STODL VN1
055166,000987: 13,3633 00015 TAT
055167,000988: 13,3634 01246 STORE PIPTIME1
055168,000989: 13,3635 66134 SXA,2 SXA,1
055169,000990: 13,3636 03746 RTX2
055170,000991: 13,3637 03745 RTX1
055171,000992: 13,3640 77776 EXIT
055172,000993:
055173,000994: 13,3641 00004 INHINT
055174,000995: 13,3642 00006 EXTEND
055175,000996: 13,3643 40025 DCS TIME2
055176,000997: 13,3644 20155 DAS MPAC
055177,000998: 13,3645 07226 TC TPAGREE
055178,000999:
055179,001000: 13,3646 31127 CA IRETURN1
055180,001001: 13,3647 04577 TC BANKJUMP
055181,001002: 13,3650 47014 CKMID2 BOF RTB
055182,001003: 13,3651 04754 MID1FLAG
055183,001004: 13,3652 27667 MID2
055184,001005: 13,3653 45505 LOADTIME
055185,001006: 13,3654 44215 DAD BDSU
055186,001007: 13,3655 27711 TIMEDELT
055187,001008: 13,3656 01101 TDEC
055188,001009: 13,3657 45044 BPL CALL
055189,001010: 13,3660 27234 TESTLOOP # YES
055190,001011: 13,3661 27677 NOTIME
055191,001012:
055192,001013: 13,3662 43234 TIMEINC RTB DAD
055193,001014: 13,3663 45505 LOADTIME
055194,001015: 13,3664 27711 TIMEDELT
055195,001016: 13,3665 35101 STCALL TDEC
055196,001017: 13,3666 27234 TESTLOOP
055197,001018:
055198,001019: 13,3667 45345 MID2 DLOAD DSU
055199,001020: 13,3670 01101 TDEC
055200,001021: 13,3671 01517 TET
055201,001022: 13,3672 45246 ABS DSU
055202,001023: 13,3673 27707 3CSECS
|
|
Page 1296 |
055204,001025: 13,3674 52040 BMN GOTO
055205,001026: 13,3675 27136 A-PCHK
055206,001027: 13,3676 27662 TIMEINC
055207,001028:
055208,001029: 13,3677 77414 NOTIME CLEAR EXIT # TOO LATE
055209,001030: 13,3700 04674 MID1FLAG
055210,001031: 13,3701 25127 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
055211,001032: 13,3702 05537 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
055212,001033: 13,3703 01703 OCT 1703 # TIG WILL BE SLIPPED...
055213,001034: 13,3704 06006 TC INTPRET
055214,001035: 13,3705 77616 RVQ
055215,001036:
055216,001037: 13,3706 00000 00003 3CSECS 2DEC 3 B-28
055217,001038: 13,3710 00000 01750 TIMEDELT 2DEC 1000 B-28
055218,001039: 27,2633 BANK 27
055219,001040: 27,2000 SETLOC UPDATE2
055220,001041: 27,2000 BANK
055221,001042: 27,2633 0330 EBANK= INTWAKUQ
055222,001043:
055223,001044:
055224,001045: 27,2633 COUNT* $$/INTIN
055225,001046:
055226,001047: 27,2633 0330 INTWAKUQ = INTWAK1Q # TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
055227,001048:
055228,001049: 27,2633 00003 INTWAKEU RELINT
055229,001050: 27,2634 00006 EXTEND
055230,001051: 27,2635 22330 QXCH INTWAKUQ # SAVE Q FOR RETURN
055231,001052:
055232,001053: 27,2636 06006 TC INTPRET
055233,001054:
055234,001055: 27,2637 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
055235,001056: 27,2640 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
055236,001057: 27,2641 56700 INTWAKUP
055237,001058:
055238,001059: 27,2642 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
055239,001060: 27,2643 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
055240,001061: 27,2644 25535 STOVL RCV
055241,001062: 27,2645 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
055242,001063: 27,2646 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
055243,001064: 27,2647 23361 RECTIFY +13D # TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
055244,001065: 27,2650 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
055245,001066: 27,2651 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
055246,001067: 27,2652 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
055247,001068: 27,2653 16711 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
055248,001069: 27,2654 56661 INTWAKEM # SPHERE OF INFLUENCE.........
055249,001070: 27,2655 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
055250,001071: 27,2656 00000 DEC 0 B-14
055251,001072: 27,2657 00223 MOONFLAG
|
|
Page 1297 |
055253,001074: 27,2660 56664 INTWAKEC
055254,001075: 27,2661 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
055255,001076: 27,2662 00002 DEC 2 B-14
055256,001077: 27,2663 00063 MOONFLAG
055257,001078: 27,2664 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
055258,001079: # MOONFLAG SET(OR CLEARED).
055259,001080: 27,2665 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
055260,001081: 27,2666 56674 INTWAKLM # STATE VECTOR UPDATE......
055261,001082: 27,2667 77624 CALL # UPDATE CSM STATE VECTOR
055262,001083: 27,2670 26636 ATOPCSM
055263,001084:
055264,001085: 27,2671 52014 CLEAR GOTO
055265,001086: 27,2672 01671 ORBWFLAG
055266,001087: 27,2673 56676 INTWAKEX
055267,001088:
055268,001089: 27,2674 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
055269,001090: 27,2675 26711 ATOPLEM
055270,001091:
055271,001092: 27,2676 77614 INTWAKEX CLEAR
055272,001093: 27,2677 02676 RENDWFLG
055273,001094:
055274,001095: 27,2700 45131 INTWAKUP SSP CALL # REMOVE :UPDATE STATE VECTOR INDICATOR:
055275,001096: 27,2701 01502 UPSVFLAG
055276,001097: 27,2702 00000 0
055277,001098: 27,2703 27404 INTWAKE0 # RELEASE :GRAB: OF ORBIT INTEG
055278,001099: 27,2704 77776 EXIT
055279,001100:
055280,001101: 27,2705 05301 TC PHASCHNG
055281,001102: 27,2706 04026 OCT 04026
055282,001103: 27,2707 00330 TC INTWAKUQ
055283,001104:
055284,001105: 27,2710 00002 UPMNSVCD OCT 2
055285,001106: 27,2711 00000 OCT 0
055286,001107:
055287,001108:
055288,001109: 27,2712 77420 GRP2PC STQ EXIT
055289,001110: 27,2713 03536 GRP2SVQ
055290,001111: 27,2714 05301 TC PHASCHNG
055291,001112: 27,2715 04022 OCT 04022
055292,001113: 27,2716 06006 TC INTPRET
055293,001114: 27,2717 77650 GOTO
055294,001115: 27,2720 03536 GRP2SVQ
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc