Notations on the program listing read, in part:
GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were transcribed from a printout in Don Eyles's personal
collection, scanned by archive.org, and financially sponsored by Linden Sims.
A team of volunteers performed the transcription and proof-reading. The scanned
page images are available at
the Virtual AGC Project website, as well as higher-quality (but much larger)
images at
the Virtual AGC Project's collection in the Internet Archive. Report any problems by creating
"issues" at
the Virtual AGC Project's GitHub Repository. Notations on the program listing read, in part: GAP: ASSEMBLE REVISION 56 OF AGC PROGRAM ZERLINA BY ZOROASTER 9:12 OCT. 21,1970Note that the date is the date of the printout, not the date of the program revision. |
052191,000002: ## Copyright: Public domain.
052192,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
052193,000004: ## Purpose: A log section of Zerlina 56, the final revision of
052194,000005: ## Don Eyles's offline development program for the variable
052195,000006: ## guidance period servicer. It also includes a new P66 with LPD
052196,000007: ## (Landing Point Designator) capability, based on an idea of John
052197,000008: ## Young's. Neither of these advanced features were actually flown,
052198,000009: ## but Zerlina was also the birthplace of other big improvements to
052199,000010: ## Luminary including the terrain model and new (Luminary 1E)
052200,000011: ## analog display programs. Zerlina was branched off of Luminary 145,
052201,000012: ## and revision 56 includes all changes up to and including Luminary
052202,000013: ## 183. It is therefore quite close to the Apollo 14 program,
052203,000014: ## Luminary 178, where not modified with new features.
052204,000015: ## Reference: pp. 1195-1216
052205,000016: ## Assembler: yaYUL
052206,000017: ## Contact: Ron Burkey <info@sandroid.org>.
052207,000018: ## Website: www.ibiblio.org/apollo/index.html
052208,000019: ## Mod history: 2017-07-28 MAS Created from Luminary 210.
052209,000020: ## 2017-08-20 MAS Updated for Zerlina 56.
052210,000021:
|
|
Page 1195 |
052212,000023: # 1.0 INTRODUCTION
052213,000024: # ----------------
052214,000025:
052215,000026: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
052216,000027: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
052217,000028: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
052218,000029: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
052219,000030: # SIDE THE LUNAR SPHERE OF INFLUENCE.
052220,000031:
052221,000032: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
052222,000033: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
052223,000034: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
052224,000035: # CALL TC INTSTALL.
052225,000036:
052226,000037: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
052227,000038: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
052228,000039: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
052229,000040: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
052230,000041: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
052231,000042:
052232,000043: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
052233,000044: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
052234,000045: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
052235,000046: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
052236,000047:
052237,000048: # 2.0 GENERAL DESCRIPTION
052238,000049: # -----------------------
052239,000050:
052240,000051: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS---
052241,000052: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
052242,000053: # 2) INTEGRATES THE W-MATRIX
052243,000054: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
052244,000055:
052245,000056: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
052246,000057: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
052247,000058: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
052248,000059: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
052249,000060: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
052250,000061: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
052251,000062: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
052252,000063: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
052253,000064: # AND/OR STATE VECTOR.
052254,000065:
052255,000066: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
052256,000067: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
052257,000068: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
052258,000069:
052259,000070: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
052260,000071: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
052261,000072: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
052262,000073:
|
|
Page 1196 |
052264,000075: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
052265,000076:
052266,000077: # 2.1 RESTARTS
052267,000078:
052268,000079: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
052269,000080: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
052270,000081: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
052271,000082: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
052272,000083: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
052273,000084: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
052274,000085: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
052275,000086:
052276,000087: # 2.2 SCALING
052277,000088:
052278,000089: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
052279,000090: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTORDEPENDS ON THE ORIGIN OF THE COORDINATE
052280,000091: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
052281,000092: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
052282,000093: # DIFFERENT SCALING.
052283,000094: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
052284,000095:
052285,000096: # 3.0 INPUT/OUTPUT
052286,000097: # ----------------
052287,000098:
052288,000099: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
052289,000100: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
052290,000101: # FOR INTEGRVS, THE RCV,VCV, TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
052291,000102:
052292,000103: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
052293,000104: # EARTH MOON
052294,000105: # 29 27
052295,000106: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
052296,000107:
052297,000108: # 7 5
052298,000109: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
052299,000110:
052300,000111: # 28 28
052301,000112: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
052302,000113: # CUSTOMARILY 0, BUT NOTE LUNAR
052303,000114: # ORBIT DEPENDENCE ON REAL TIME.
052304,000115:
052305,000116: # 22 18
052306,000117: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
052307,000118: # 0 IF TCCSM(LEM) = 0
052308,000119:
052309,000120: # 3 -1
052310,000121: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
052311,000122: # 0 IF TCCSM(LEM) = 0
052312,000123:
|
|
Page 1197 |
052314,000125: # 29 27
052315,000126: # RCVCSM(LEM) - CONIC POSITION METERS 2 2
052316,000127: # EQUALS RRECTCSM(LEM) IF
052317,000128: # TCCSM(LEM) = 0
052318,000129:
052319,000130: # 7 5
052320,000131: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
052321,000132: # EQUALS VRECTCSM(LEM) IF
052322,000133: # TCCSM(LEM) = 0
052323,000134:
052324,000135: # 28 28
052325,000136: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
052326,000137: # CUSTOMARILY 0
052327,000138:
052328,000139: # 1/2 17 16
052329,000140: # XKEPCSM(LEM) - ROOT OF KEPLERS EQUATION M 2 2
052330,000141: # 0 IF TCCSM(LEM) = 0
052331,000142:
052332,000143: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
052333,000144: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
052334,000145: # LMOONFLG C = CSM, L = LM 0 0
052335,000146: # LMIDFLG 0,1 0,1
052336,000147:
052337,000148: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
052338,000149:
052339,000150: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
052340,000151: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
052341,000152: # ROUTINE MUST BE PRESET.
052342,000153:
052343,000154: # OUTPUT
052344,000155: # AFTER EVERY CALL TO INTEGRATION
052345,000156: # EARTH MOON
052346,000157: # 29 29
052347,000158: # 0D RATT POSITION METERS 2 2
052348,000159: # 7 7
052349,000160: # 6D VATT VELOCITY M/CSEC 2 2
052350,000161: # 28 28
052351,000162: # 12D TAT TIME 2 2
052352,000163: # 29 27
052353,000164: # 14D RATT1 POSITION METERS 2 2
052354,000165: # 7 5
052355,000166: # 20D VATT1 VELOCITY M/CSEC 2 2
052356,000167: # 3 2 36 30
052357,000168: # 26D MU(P) MU M /CS 2 2
052358,000169:
052359,000170: # X1 MUTABLE ENTRY -2 -10D
052360,000171:
052361,000172: # X2 COORDINT
052362,000173: # X2 COORDINATE SYSTEM ORIGEN 0 2
052363,000174: # (THIS, NOT MOONFLAG, SHOULD BE
|
|
Page 1198 |
052365,000176: # USED TO DETERMINE ORIGIN.)
052366,000177:
052367,000178: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
052368,000179: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
052369,000180: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
052370,000181: # CALLING PROGRAM.
052371,000182:
052372,000183: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
052373,000184: # -------------------------------------
052374,000185:
052375,000186: # A) PRECISION ORBITAL INTEGRATION. CSMPREC,LEMPREC ENTRANCES
052376,000187: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
052377,000188: # L CALL
052378,000189: # L+1 CSMPREC (OR LEMPREC)
052379,000190: # L+2 RETURN
052380,000191: # INPUT 28
052381,000192: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
052382,000193: # OUTPUT
052383,000194: # THE DATA LISTED IN SECTION 3.0 PLUS
052384,000195: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
052385,000196: # BODY... METERS B-29 ONLY IF MIDFLAG = DIM0FLAG = 1
052386,000197: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
052387,000198: # L-X STORE TIME IN PUSH LIST (TDEC1)
052388,000199: # L CALL
052389,000200: # L+1 CSMCONIC (OR LEMCONIC)
052390,000201: # INPUT/OUTPUT
052391,000202: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
052392,000203: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
052393,000204: # CALL
052394,000205: # INTSTALL
052395,000206: # VLOAD
052396,000207: # POSITION VECTOR
052397,000208: # STOVL RCV
052398,000209: # VELOCITY VECTOR
052399,000210: # STODL VCV
052400,000211: # TIME STATE VECTOR VALID
052401,000212: # STODL TET
052402,000213: # FINAL RADIUS
052403,000214: # STORE RFINAL
052404,000215: # SET(CLEAR) SET(CLEAR)
052405,000216: # INTYPFLAG
052406,000217: # MOONFLAG
052407,000218: # SET(CLEAR) DLOAD
052408,000219: # DESIRED TIME
052409,000220: # STCALL TDEC1
052410,000221: # INTEGRVS
052411,000222: # INPUT
052412,000223: # RCV POSITION VECTOR METERS
052413,000224: # VCV VELOCITY VECTOR M/CSEC
052414,000225: # TET TIME OF STATE VECTOR(MAY = 0) CSEC B-28
|
|
Page 1199 |
052416,000227: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
052417,000228: # (MAY BE INCREMENT IF TET=0)
052418,000229: # OUTPUT
052419,000230: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
052420,000231: # DEPENDING ON INTYPFLG.
052421,000232: # D) INTEGRATE STATE VECTOR.INTGRV ENTRANCE
052422,000233: # L-X STORE TIME IN PUSH LIST (TDEC1)(MAY BE DONE AFTER CALL TO INTSTALL)
052423,000234: # L-8 CALL
052424,000235: # L-7
052425,000236: # L-6 SET(CLEAR) SET(CLEAR)
052426,000237: # L-5 VINTFLAG 1=CSM, 0=LM
052427,000238: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
052428,000239: # L-3 SET(CLEAR) SET(CLEAR)
052429,000240: # L-2 DIM0FLAG 1=W-MATRIX, 0=NO W-MATRIX
052430,000241: # L-1 D6OR9FLG 1=9X9, 0=6X6
052431,000242: # L SET DLOAD
052432,000243: # L+1 STATEFLG DESIRE PERMANENT UPDATE
052433,000244: # L+2 FINAL RAD. OF STATE VECTOR
052434,000245: # L+3 STCALL RFINAL
052435,000246: # L+4 INTEGRV
052436,000247: # L CALL NORMAL USE -- WILL UPDATE STATE
052437,000248: # L+1 INTEGRV VECTOR IF DIM0FLAG=1.(STATEFLG IS
052438,000249: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
052439,000250: # IT IS USED.)
052440,000251: # INPUT
052441,000252: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
052442,000253: # OUTPUT
052443,000254: # SAME AS FOR PRECISION OR CONIC INTEGRATION
052444,000255: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
052445,000256: # THE PERMANENT STATE VECTOR REPRESENTATION.
052446,000257:
052447,000258: 11,2366 BANK 11
052448,000259: 13,2000 SETLOC INTINIT
052449,000260: 13,2000 BANK
052450,000261: 13,2602 E3,1554 EBANK= RRECTCSM
052451,000262: 13,2602 COUNT* $$/INTIN
052452,000263: 13,2602 05364 STATEINT TC PHASCHNG
052453,000264: 13,2603 00052 OCT 00052
052454,000265: 13,2604 35017 CAF PRIO5
052455,000266: 13,2605 05105 TC FINDVAC
052456,000267: 13,2606 E3,1554 EBANK= RRECTCSM
052457,000268: 13,2606 02611 26063 2CADR STATINT1
052458,000269:
052459,000270: 13,2610 05272 TC TASKOVER
052460,000271: 13,2611 06051 STATINT1 TC INTPRET
052461,000272: 13,2612 47014 BON RTB
052462,000273: 13,2613 04712 QUITFLAG # KILL INTEGRATION UNTIL NEXT POO.
052463,000274: 13,2614 26652 NOINT
052464,000275: 13,2615 21555 LOADTIME
052465,000276: 13,2616 00041 STORE TDEC1
052466,000277:
|
|
Page 1200 |
052468,000279: 13,2617 77624 CALL
052469,000280: 13,2620 27410 INTSTALL
052470,000281: 13,2621 45014 SET CALL
052471,000282: 13,2622 01076 NODOFLAG
052472,000283: 13,2623 26643 SETIFLGS
052473,000284: 13,2624 52014 SET GOTO
052474,000285: 13,2625 01460 POOHFLAG
052475,000286: 13,2626 26026 STATEUP
052476,000287: 13,2627 00003 25140 600SECS 2DEC 60000 B-28
052477,000288:
052478,000289: 13,2631 77414 ENDINT CLEAR EXIT
052479,000290: 13,2632 01672 STATEFLG
052480,000291: 13,2633 05364 TC PHASCHNG
052481,000292: 13,2634 20032 OCT 20032
052482,000293: 13,2635 00006 EXTEND
052483,000294: 13,2636 32630 DCA 600SECS
052484,000295: 13,2637 05310 TC LONGCALL
052485,000296: 13,2640 E3,1626 EBANK= RRECTHIS
052486,000297: 13,2640 02602 26063 2CADR STATEINT
052487,000298:
052488,000299: 13,2642 05155 TC ENDOFJOB
052489,000300: 13,2643 43014 SETIFLGS SET CLEAR
052490,000301: 13,2644 01472 STATEFLG
052491,000302: 13,2645 01673 INTYPFLG
052492,000303: 13,2646 43014 CLEAR CLEAR
052493,000304: 13,2647 01676 DIM0FLAG
052494,000305: 13,2650 01675 D6OR9FLG
052495,000306: 13,2651 77616 RVQ
052496,000307: 13,2652 77776 NOINT EXIT
052497,000308: 13,2653 05364 TC PHASCHNG
052498,000309: 13,2654 00002 OCT 00002
052499,000310:
052500,000311: 13,2655 05527 TC DOWNFLAG
052501,000312: 13,2656 00221 ADRES QUITFLAG
052502,000313: 13,2657 05155 TC ENDOFJOB
052503,000314:
052504,000315: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
052505,000316:
052506,000317: # CALLING SEQUENCE
052507,000318: # L CALL
052508,000319: # L+1 ATOPCSM
052509,000320:
052510,000321: # NORMAL EXIT AT L+2
052511,000322:
052512,000323: 13,2660 47020 ATOPCSM STQ RTB
052513,000324: 13,2661 00051 S2
052514,000325: 13,2662 26673 MOVEACSM
052515,000326: 13,2663 45014 SET CALL
052516,000327: 13,2664 04063 CMOONFLG
052517,000328: 13,2665 26114 SVDWN1
052518,000329:
|
|
Page 1201 |
052520,000331: 13,2666 43014 BON CLRGO
052521,000332: 13,2667 00303 MOONFLAG
052522,000333: 13,2670 00051 S2
052523,000334: 13,2671 04223 CMOONFLG
052524,000335: 13,2672 00051 S2
052525,000336: 13,2673 03035 MOVEACSM TC SETBANK
052526,000337: 13,2674 55500 TS DIFEQCNT # INITIALIZE INDEX
052527,000338: 13,2675 51500 INDEX DIFEQCNT
052528,000339: 13,2676 31502 CA RRECT
052529,000340: 13,2677 51500 INDEX DIFEQCNT
052530,000341: 13,2700 55554 TS RRECTCSM
052531,000342: 13,2701 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
052532,000343: 13,2702 12674 TCF MOVEACSM +1 # NO-LOOP
052533,000344: 13,2703 06073 TC DANZIG # COMPLETE- RETURN
052534,000345:
052535,000346:
052536,000347: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
052537,000348:
052538,000349: # CALLING SEQUENCE
052539,000350: # L CALL
052540,000351: # PTOACSM
052541,000352:
052542,000353: # NORMAL EXIT AT L+2
052543,000354:
052544,000355: 13,2704 43034 PTOACSM RTB BON
052545,000356: 13,2705 26722 MOVEPCSM
052546,000357: 13,2706 04303 CMOONFLG
052547,000358: 13,2707 26715 SETMOON
052548,000359: 13,2710 66214 CLRMOON CLEAR SSP
052549,000360: 13,2711 00263 MOONFLAG
052550,000361: 13,2712 02031 PBODY
052551,000362: 13,2713 00000 0
052552,000363: 13,2714 77616 RVQ
052553,000364: 13,2715 66214 SETMOON SET SSP
052554,000365: 13,2716 00063 MOONFLAG
052555,000366: 13,2717 02031 PBODY
052556,000367: 13,2720 00002 2
052557,000368: 13,2721 77616 RVQ
052558,000369: 13,2722 03035 MOVEPCSM TC SETBANK
052559,000370: 13,2723 55500 TS DIFEQCNT
052560,000371: 13,2724 51500 INDEX DIFEQCNT
052561,000372: 13,2725 31554 CA RRECTCSM
052562,000373: 13,2726 51500 INDEX DIFEQCNT
052563,000374: 13,2727 55502 TS RRECT
052564,000375: 13,2730 11500 CCS DIFEQCNT
052565,000376: 13,2731 12723 TCF MOVEPCSM +1
052566,000377: 13,2732 06073 TC DANZIG
052567,000378:
052568,000379:
052569,000380: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
052570,000381:
|
|
Page 1202 |
052572,000383: 13,2733 47020 ATOPLEM STQ RTB
052573,000384: 13,2734 00051 S2
052574,000385: 13,2735 26746 MOVEALEM
052575,000386: 13,2736 45014 SET CALL
052576,000387: 13,2737 04064 LMOONFLG
052577,000388: 13,2740 26070 SVDWN2
052578,000389: 13,2741 43014 BON CLRGO
052579,000390: 13,2742 00303 MOONFLAG
052580,000391: 13,2743 00051 S2
052581,000392: 13,2744 04224 LMOONFLG
052582,000393: 13,2745 00051 S2
052583,000394: 13,2746 03035 MOVEALEM TC SETBANK
052584,000395: 13,2747 55500 TS DIFEQCNT
052585,000396: 13,2750 51500 INDEX DIFEQCNT
052586,000397: 13,2751 31502 CA RRECT
052587,000398: 13,2752 51500 INDEX DIFEQCNT
052588,000399: 13,2753 55626 TS RRECTLEM
052589,000400: 13,2754 11500 CCS DIFEQCNT
052590,000401: 13,2755 12747 TCF MOVEALEM +1
052591,000402: 13,2756 06073 TC DANZIG
052592,000403:
052593,000404:
052594,000405: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
052595,000406:
052596,000407: 13,2757 47014 PTOALEM BON RTB
052597,000408: 13,2760 04307 SURFFLAG
052598,000409: 13,2761 27000 USEPIOS
052599,000410: 13,2762 26767 MOVEPLEM
052600,000411: 13,2763 52014 BON GOTO
052601,000412: 13,2764 04304 LMOONFLG
052602,000413: 13,2765 26715 SETMOON
052603,000414: 13,2766 26710 CLRMOON
052604,000415: 13,2767 03035 MOVEPLEM TC SETBANK
052605,000416: 13,2770 55500 TS DIFEQCNT
052606,000417: 13,2771 51500 INDEX DIFEQCNT
052607,000418: 13,2772 31626 CA RRECTLEM
052608,000419: 13,2773 51500 INDEX DIFEQCNT
052609,000420: 13,2774 55502 TS RRECT
052610,000421: 13,2775 11500 CCS DIFEQCNT
052611,000422: 13,2776 12770 TCF MOVEPLEM +1
052612,000423: 13,2777 06073 TC DANZIG
052613,000424:
052614,000425:
052615,000426: 13,3000 77201 USEPIOS SETPD VLOAD
052616,000427: 13,3001 00001 0
052617,000428: 13,3002 02021 RLS
052618,000429: 13,3003 41525 PDDL PUSH
052619,000430: 13,3004 00041 TDEC1
052620,000431: 13,3005 15517 STODL TET
052621,000432: 13,3006 27733 5/8
052622,000433:
|
|
Page 1203 |
052624,000435: 13,3007 77624 CALL
052625,000436: 13,3010 55720 RP-TO-R
052626,000437: 13,3011 25535 STOVL RCV
052627,000438: 13,3012 24001 ZUNIT
052628,000439: 13,3013 14001 STODL 0D
052629,000440: 13,3014 01517 TET
052630,000441: 13,3015 14007 STODL 6D
052631,000442: 13,3016 27733 5/8
052632,000443: 13,3017 45014 SET CALL # NEEDED FOR SETTING X1 ON EXIT
052633,000444: 13,3020 00063 MOONFLAG
052634,000445: 13,3021 55720 RP-TO-R
052635,000446: 13,3022 74235 VXV VXSC
052636,000447: 13,3023 01535 RCV
052637,000448: 13,3024 26001 OMEGMOON
052638,000449: 13,3025 25543 STOVL VCV
052639,000450: 13,3026 24007 ZEROVEC
052640,000451: 13,3027 01521 STORE TDELTAV
052641,000452: 13,3030 67174 AXT,2 SXA,2
052642,000453: 13,3031 00002 2
052643,000454: 13,3032 02030 PBODY
052644,000455: 13,3033 35527 STCALL TNUV
052645,000456: 13,3034 27156 A-PCHK
052646,000457: 13,3035 33041 SETBANK CAF INTBANK
052647,000458: 13,3036 54006 TS BBANK
052648,000459: 13,3037 33446 CAF FORTYONE
052649,000460: 13,3040 00002 TC Q
052650,000461: 13,3041 E3,1554 EBANK= RRECTCSM
052651,000462: 13,3041 26063 INTBANK BBCON INTEGRV
052652,000463:
052653,000464:
052654,000465: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
052655,000466: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
052656,000467:
052657,000468: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
052658,000469: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
052659,000470: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
052660,000471: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
052661,000472: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
052662,000473: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
052663,000474:
052664,000475: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
052665,000476: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
052666,000477: # CSMPREC CSMCONIC LEMPREC LEMCONIC
052667,000478: # VINTFLAG SET SET CLEAR CLEAR
052668,000479: # INTYPFLG CLEAR SET CLEAR SET
052669,000480: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
052670,000481:
052671,000482:
052672,000483: # CALLING SEQUENCE
052673,000484: # L-X STORE TDEC1
|
|
Page 1204 |
052675,000486: # L CALL (STCALL TDEC1)
052676,000487: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
052677,000488:
052678,000489: # NORMAL EXIT TO L+2
052679,000490:
052680,000491:
052681,000492: # SUBROUTINES CALLED
052682,000493: # INTEGRV1
052683,000494: # PRECOUT FOR CSMPREC AND LEMPREC
052684,000495: # CONICOUT FOR CSMCONIC AND LEMCONIC
052685,000496:
052686,000497:
052687,000498: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
052688,000499: # INPUT
052689,000500: # TDEC1 TIME TO INTEGRATE TO . CSECS B-28
052690,000501: 13,3042 45020 CSMPREC STQ CALL
052691,000502: 13,3043 00046 X1
052692,000503: 13,3044 27410 INTSTALL
052693,000504: 13,3045 43130 SXA,1 SET
052694,000505: 13,3046 02101 IRETURN
052695,000506: 13,3047 01474 VINTFLAG
052696,000507:
052697,000508: 13,3050 43014 IFLAGP SET CLEAR
052698,000509: 13,3051 01467 PRECIFLG
052699,000510: 13,3052 01676 DIM0FLAG
052700,000511: 13,3053 77614 CLRGO
052701,000512: 13,3054 01633 INTYPFLG
052702,000513: 13,3055 27135 INTEGRV1
052703,000514: 13,3056 45020 LEMPREC STQ CALL
052704,000515: 13,3057 00046 X1
052705,000516: 13,3060 27410 INTSTALL
052706,000517: 13,3061 43130 SXA,1 CLRGO
052707,000518: 13,3062 02101 IRETURN
052708,000519: 13,3063 01634 VINTFLAG
052709,000520: 13,3064 27050 IFLAGP
052710,000521:
052711,000522: 13,3065 45020 CSMCONIC STQ CALL
052712,000523: 13,3066 00046 X1
052713,000524: 13,3067 27410 INTSTALL
052714,000525: 13,3070 43130 SXA,1 SET
052715,000526: 13,3071 02101 IRETURN
052716,000527: 13,3072 01474 VINTFLAG
052717,000528: 13,3073 43014 IFLAGC CLEAR SETGO
052718,000529: 13,3074 01676 DIM0FLAG
052719,000530: 13,3075 01433 INTYPFLG
052720,000531: 13,3076 27135 INTEGRV1
052721,000532: 13,3077 45020 LEMCONIC STQ CALL
052722,000533: 13,3100 00046 X1
052723,000534: 13,3101 27410 INTSTALL
052724,000535: 13,3102 43130 SXA,1 CLRGO
|
|
Page 1205 |
052726,000537: 13,3103 02101 IRETURN
052727,000538: 13,3104 01634 VINTFLAG
052728,000539: 13,3105 27073 IFLAGC
052729,000540:
052730,000541: 13,3106 66214 INTEGRVS SET SSP
052731,000542: 13,3107 01467 PRECIFLG
052732,000543: 13,3110 02031 PBODY
052733,000544: 13,3111 00000 0
052734,000545: 13,3112 66214 BOF SSP
052735,000546: 13,3113 00343 MOONFLAG
052736,000547: 13,3114 27117 +3
052737,000548: 13,3115 02031 PBODY
052738,000549: 13,3116 00002 2
052739,000550: 13,3117 77220 STQ VLOAD
052740,000551: 13,3120 02101 IRETURN
052741,000552: 13,3121 24007 ZEROVEC
052742,000553: 13,3122 01521 STORE TDELTAV
052743,000554: 13,3123 35527 STCALL TNUV
052744,000555: 13,3124 27671 RECTIFY
052745,000556: 13,3125 43014 CLEAR SET
052746,000557: 13,3126 01676 DIM0FLAG
052747,000558: 13,3127 04062 NEWIFLG
052748,000559: 13,3130 77614 SETGO
052749,000560: 13,3131 04020 RPQFLAG
052750,000561: 13,3132 27147 ALOADED
052751,000562: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER ,
052752,000563: # NORMALLY THE NAVIGATION PROGRAM ,TO SET THE INTEG. FLAGS. THE ROUTINE
052753,000564: # IS ENTERED AT INTEGRV1 BY CSMPREC ET.AL. AND AT ALOADED BY INTEGRVS.
052754,000565: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
052755,000566: # PROGRAM FOR PRECISION OR CONIC
052756,000567:
052757,000568: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
052758,000569: # SETTING ANY FLAGS.
052759,000570: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
052760,000571: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
052761,000572: # INTYPFLG
052762,000573: # DIM0FLAG
052763,000574: # D6OR9FLG
052764,000575: # CALLING SEQUENCE
052765,000576: # L-X CALL
052766,000577: # L-Y INTSTALL
052767,000578: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
052768,000579: # AND DIM0FLAG IS CLEAR.
052769,000580: # L CALL
052770,000581: # L+1 INTEGRV
052771,000582: # INITIALIZATION
052772,000583: # FLAGS AS ABOVE
052773,000584: # STORE TIME TO INTEGRATE TO IN TDEC1
052774,000585: # OUTPUT
052775,000586: # RATT AS
|
|
Page 1206 |
052777,000588: # VATT DEFINED
052778,000589: # TAT BEFORE
052779,000590:
052780,000591:
052781,000592: 13,3133 77620 INTEGRV STQ
052782,000593: 13,3134 02101 IRETURN
052783,000594: 13,3135 43014 INTEGRV1 SET SET
052784,000595: 13,3136 04060 RPQFLAG
052785,000596: 13,3137 04062 NEWIFLG
052786,000597: 13,3140 77731 INTEGRV2 SSP
052787,000598: 13,3141 00053 QPRET
052788,000599: 13,3142 27147 ALOADED
052789,000600: 13,3143 52014 BON GOTO
052790,000601: 13,3144 01714 VINTFLAG
052791,000602: 13,3145 26704 PTOACSM
052792,000603: 13,3146 26757 PTOALEM
052793,000604: 13,3147 77745 ALOADED DLOAD
052794,000605: 13,3150 00041 TDEC1
052795,000606: 13,3151 01115 STORE TDEC
052796,000607: 13,3152 52014 BOFF GOTO
052797,000608: 13,3153 01753 INTYPFLG
052798,000609: 13,3154 27256 TESTLOOP
052799,000610: 13,3155 27242 RVCON
052800,000611: 13,3156 77414 A-PCHK BOF EXIT
052801,000612: 13,3157 01752 STATEFLG
052802,000613: 13,3160 27177 RECTOUT
052803,000614: 13,3161 05364 TC PHASCHNG
052804,000615: 13,3162 04022 OCT 04022
052805,000616: 13,3163 05515 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
052806,000617: 13,3164 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
052807,000618: 13,3165 06051 TC INTPRET
052808,000619: 13,3166 77731 SSP
052809,000620: 13,3167 00053 QPRET
052810,000621: 13,3170 27175 PHEXIT
052811,000622: 13,3171 52014 BON GOTO
052812,000623: 13,3172 01714 VINTFLAG
052813,000624: 13,3173 26660 ATOPCSM
052814,000625: 13,3174 26733 ATOPLEM
052815,000626: 13,3175 77624 PHEXIT CALL
052816,000627: 13,3176 11216 GRP2PC
052817,000628: 13,3177 45001 RECTOUT SETPD CALL
052818,000629: 13,3200 00001 0
052819,000630: 13,3201 27671 RECTIFY
052820,000631: 13,3202 53775 VLOAD VSL*
052821,000632: 13,3203 01503 RRECT
052822,000633: 13,3204 57576 0,2
052823,000634: 13,3205 53715 PDVL VSL* # RATT TO PD0
052824,000635: 13,3206 01511 VRECT
052825,000636: 13,3207 57576 0,2
052826,000637: 13,3210 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
|
|
Page 1207 |
052828,000639: 13,3211 01517 TET
052829,000640: 13,3212 01503 RRECT
052830,000641: 13,3213 64715 PDVL PDDL*
052831,000642: 13,3214 01511 VRECT
052832,000643: 13,3215 51770 MUEARTH,2
052833,000644: 13,3216 76006 PUSH AXT,1
052834,000645: 13,3217 77765 DEC -10 B-14
052835,000646: 13,3220 76014 BON AXT,1
052836,000647: 13,3221 00303 MOONFLAG
052837,000648: 13,3222 27224 +2
052838,000649: 13,3223 77775 DEC -2 B-14
052839,000650: 13,3224 40001 INTEXIT SETPD BOV
052840,000651: 13,3225 00001 0
052841,000652: 13,3226 27227 +1
052842,000653: 13,3227 43014 CLEAR CLEAR
052843,000654: 13,3230 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
052844,000655: 13,3231 01667 PRECIFLG
052845,000656: 13,3232 77614 CLEAR
052846,000657: 13,3233 01672 STATEFLG
052847,000658: 13,3234 77535 SLOAD EXIT
052848,000659: 13,3235 02102 IRETURN
052849,000660: 13,3236 30154 CA MPAC
052850,000661: 13,3237 50120 INDEX FIXLOC
052851,000662: 13,3240 54052 TS QPRET
052852,000663: 13,3241 03421 TC INTWAKE
052853,000664: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
052854,000665: # VELOCITY FOR THE INTERVAL (TET-TDEC)
052855,000666:
052856,000667: 13,3242 45345 RVCON DLOAD DSU
052857,000668: 13,3243 01115 TDEC
052858,000669: 13,3244 01517 TET
052859,000670: 13,3245 36074 STCALL TAU.
052860,000671: 13,3246 27671 RECTIFY
052861,000672: 13,3247 77624 CALL
052862,000673: 13,3250 22366 KEPPREP
052863,000674: 13,3251 43345 DLOAD DAD
052864,000675: 13,3252 01551 TC
052865,000676: 13,3253 01517 TET
052866,000677: 13,3254 35517 STCALL TET
052867,000678: 13,3255 27177 RECTOUT
052868,000679:
|
|
Page 1208 |
052870,000681: # TESTLOOP
052871,000682:
052872,000683: 13,3256 43014 TESTLOOP BOF CLRGO
052873,000684: 13,3257 04752 QUITFLAG
052874,000685: 13,3260 27263 +3
052875,000686: 13,3261 01632 STATEFLG
052876,000687: 13,3262 27224 INTEXIT # STOP INTEGRATION
052877,000688: 13,3263 73001 +3 SETPD LXA,2
052878,000689: 13,3264 00013 10D
052879,000690: 13,3265 02030 PBODY
052880,000691: 13,3266 51575 VLOAD ABVAL
052881,000692: 13,3267 01535 RCV
052882,000693: 13,3270 43006 PUSH CLEAR # RC TO 10D
052883,000694: 13,3271 00262 MIDFLAG
052884,000695: 13,3272 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
052885,000696: 13,3273 53755 RME,2
052886,000697: 13,3274 27277 +3
052887,000698: 13,3275 77614 SET
052888,000699: 13,3276 00062 MIDFLAG
052889,000700: 13,3277 41345 NORFINAL DLOAD DMP
052890,000701: 13,3300 00013 10D
052891,000702: 13,3301 00043 34D
052892,000703: 13,3302 55762 SR1R DDV*
052893,000704: 13,3303 51770 MUEARTH,2
052894,000705: 13,3304 41366 SQRT DMP
052895,000706: 13,3305 25762 .3D
052896,000707: 13,3306 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
052897,000708: 13,3307 54345 DLOAD SL
052898,000709: 13,3310 00155 MPAC
052899,000710: 13,3311 20220 15D # OF 128 CSECS.
052900,000711: 13,3312 40006 PUSH BOV
052901,000712: 13,3313 27340 MAXDT
052902,000713: 13,3314 50021 BDSU BMN
052903,000714: 13,3315 27407 DT/2MAX
052904,000715: 13,3316 27340 MAXDT
052905,000716: 13,3317 45345 DT/2COMP DLOAD DSU
052906,000717: 13,3320 01115 TDEC
052907,000718: 13,3321 01517 TET
052908,000719: 13,3322 54234 RTB SL
052909,000720: 13,3323 21574 SGNAGREE
052910,000721: 13,3324 20211 8D
052911,000722: 13,3325 02076 STORE DT/2 # B-19
052912,000723: 13,3326 51400 BOV ABS
052913,000724: 13,3327 27344 GETMAXDT
052914,000725: 13,3330 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
052915,000726: 13,3331 00015 12D
052916,000727: 13,3332 27350 P00HCHK
052917,000728: 13,3333 75345 USEMAXDT DLOAD SIGN
052918,000729: 13,3334 00015 12D
052919,000730: 13,3335 02076 DT/2
|
|
Page 1209 |
052921,000732: 13,3336 36076 STCALL DT/2
052922,000733: 13,3337 27350 P00HCHK
052923,000734: 13,3340 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
052924,000735: 13,3341 27407 DT/2MAX
052925,000736: 13,3342 77650 GOTO
052926,000737: 13,3343 27317 DT/2COMP
052927,000738: 13,3344 77634 GETMAXDT RTB
052928,000739: 13,3345 21674 SIGNMPAC
052929,000740: 13,3346 36076 STCALL DT/2
052930,000741: 13,3347 27333 USEMAXDT
052931,000742: 13,3350 51545 P00HCHK DLOAD ABS
052932,000743: 13,3351 02076 DT/2
052933,000744: 13,3352 50025 DSU BMN
052934,000745: 13,3353 27405 DT/2MIN
052935,000746: 13,3354 27156 A-PCHK
052936,000747: 13,3355 43014 BOFF BON # NO BACKWARDS INTEGRATION
052937,000748: 13,3356 01740 POOHFLAG # WHEN IN POO
052938,000749: 13,3357 23272 TIMESTEP
052939,000750: 13,3360 01707 PRECIFLG
052940,000751: 13,3361 23272 TIMESTEP
052941,000752: 13,3362 45345 DLOAD DSU
052942,000753: 13,3363 02076 DT/2
052943,000754: 13,3364 00015 12D
052944,000755: 13,3365 43040 BMN BOFCLR
052945,000756: 13,3366 27156 A-PCHK
052946,000757: 13,3367 04242 NEWIFLG
052947,000758: 13,3370 23272 TIMESTEP
052948,000759: 13,3371 45345 DLOAD DSU
052949,000760: 13,3372 01115 TDEC
052950,000761: 13,3373 01517 TET
052951,000762: 13,3374 77640 BMN # NO BACKWARD INTEGRATION
052952,000763: 13,3375 27224 INTEXIT
052953,000764: 13,3376 40525 PDDL SR4
052954,000765: 13,3377 02076 DT/2 # IS 4(DT) LS(TDEC - TET)
052955,000766: 13,3400 44322 SR2R BDSU # NO
052956,000767: 13,3401 52040 BMN GOTO
052957,000768: 13,3402 27224 INTEXIT
052958,000769: 13,3403 23272 TIMESTEP
052959,000770: 13,3404 00000 01400 DT/2MIN 2DEC 3 B-20
052960,000771:
052961,000772: 13,3406 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
052962,000773:
052963,000774: 13,3410 77776 INTSTALL EXIT
052964,000775: 13,3411 30106 CA RASFLAG
052965,000776: 13,3412 73462 MASK INTBITAB # IS THIS STALL AREA FREE
052966,000777: 13,3413 00006 EXTEND
052967,000778: 13,3414 13454 BZF OKTOGRAB # YES
052968,000779: 13,3415 33461 CAF WAKESTAL
052969,000780: 13,3416 05133 TC JOBSLEEP
052970,000781: 13,3417 77776 INTWAKE0 EXIT
|
|
Page 1210 |
052972,000783: 13,3420 13441 TCF INTWAKE1
052973,000784:
052974,000785: 13,3421 40106 INTWAKE CS RASFLAG # IS THIS INTSTALLED ROUTINE TO BE
052975,000786: 13,3422 74745 MASK REINTBIT # RESTARTED
052976,000787: 13,3423 10000 CCS A
052977,000788: 13,3424 03441 TC INTWAKE1 # NO
052978,000789:
052979,000790: 13,3425 50120 INDEX FIXLOC
052980,000791: 13,3426 30052 CA QPRET
052981,000792: 13,3427 55054 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
052982,000793:
052983,000794: 13,3430 05364 TC PHASCHNG
052984,000795: 13,3431 04022 OCT 04022
052985,000796:
052986,000797: 13,3432 31054 CA TBASE2
052987,000798: 13,3433 50120 INDEX FIXLOC
052988,000799: 13,3434 54052 TS QPRET
052989,000800:
052990,000801: 13,3435 34745 CAF REINTBIT
052991,000802: 13,3436 70106 MASK RASFLAG
052992,000803: 13,3437 00006 EXTEND
052993,000804: 13,3440 13457 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
052994,000805:
052995,000806: 13,3441 33461 INTWAKE1 CAF WAKESTAL
052996,000807: 13,3442 00004 INHINT
052997,000808: 13,3443 05137 TC JOBWAKE
052998,000809: 13,3444 10064 CCS LOCCTR
052999,000810: 13,3445 13441 TCF INTWAKE1
053000,000811: 13,3446 00051 FORTYONE DEC 41 B-14
053001,000812: 13,3447 43462 CS INTBITAB
053002,000813: 13,3450 70106 MASK RASFLAG
053003,000814: 13,3451 54106 TS RASFLAG # RELEASE STALL AREA
053004,000815: 13,3452 00003 RELINT
053005,000816: 13,3453 13457 TCF GOBAC
053006,000817: 13,3454 34736 OKTOGRAB CAF INTFLBIT
053007,000818: 13,3455 00004 INHINT
053008,000819: 13,3456 26106 ADS RASFLAG
053009,000820: 13,3457 06051 GOBAC TC INTPRET
053010,000821: 13,3460 77616 RVQ
053011,000822: 13,3461 27411 WAKESTAL CADR INTSTALL +1
053012,000823: 13,3462 20100 INTBITAB OCT 20100
053013,000824:
|
|
Page 1211 |
053015,000826: # AVETOMID
053016,000827:
053017,000828: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
053018,000829: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
053019,000830: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
053020,000831:
053021,000832: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
053022,000833: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
053023,000834:
053024,000835: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
053025,000836:
053026,000837: # FINALLY TRKMKCNT IS ZEROED
053027,000838:
053028,000839:
053029,000840: 13,2000 SETLOC INTINIT
053030,000841: 13,2000 BANK
053031,000842:
053032,000843: 13,3463 COUNT* $$/INTIN
053033,000844: 13,3463 43020 AVETOMID STQ BON
053034,000845: 13,3464 02767 EGRESS
053035,000846: 13,3465 02716 RENDWFLG
053036,000847: 13,3466 27532 INT/W # W-MATRIX VALID ,GO INTEGRATE IT
053037,000848: 13,3467 77614 BON
053038,000849: 13,3470 01711 ORBWFLAG
053039,000850: 13,3471 27532 INT/W # W-MATRIX VALID ,GO INTEGRATE IT
053040,000851:
053041,000852: 13,3472 45145 OTHERS DLOAD CALL # GET SET FOR OTHER VEHICLE INTEGRATION
053042,000853: 13,3473 01234 PIPTIME # DESIRED TIME
053043,000854: 13,3474 27410 INTSTALL
053044,000855: 13,3475 45014 SET CALL
053045,000856: 13,3476 01474 VINTFLAG # CM
053046,000857: 13,3477 26643 SETIFLGS # SETS UP NONE W-MAT. PERMANENT INTEG.
053047,000858: 13,3500 34041 STCALL TDEC1
053048,000859: 13,3501 27133 INTEGRV
053049,000860:
053050,000861: 13,3502 45174 AXT,2 CALL # NOW MOVE PROPERLY SCALE RN,UN AS WELL AS
053051,000862: 13,3503 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
053052,000863: 13,3504 27410 INTSTALL
053053,000864: 13,3505 77014 BON AXT,2
053054,000865: 13,3506 04304 MOONTHIS
053055,000866: 13,3507 27511 +2
053056,000867: 13,3510 00000 0
053057,000868: 13,3511 53775 VLOAD VSR*
053058,000869: 13,3512 01220 RN
053059,000870: 13,3513 57176 0,2
053060,000871: 13,3514 01503 STORE RRECT
053061,000872: 13,3515 15535 STODL RCV
053062,000873: 13,3516 01234 PIPTIME
053063,000874: 13,3517 25517 STOVL TET
053064,000875: 13,3520 01226 VN
|
|
Page 1212 |
053066,000877: 13,3521 45057 VSR* CALL
053067,000878: 13,3522 57176 0,2
053068,000879: 13,3523 27705 MINIRECT # FINISH SETTING UP STATE VECTOR
053069,000880: 13,3524 66234 RTB SSP
053070,000881: 13,3525 26746 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
053071,000882: 13,3526 03463 TRKMKCNT
053072,000883: 13,3527 00000 0
053073,000884: 13,3530 77650 GOTO
053074,000885: 13,3531 47224 FAZAB5
053075,000886:
053076,000887: 13,3532 45145 INT/W DLOAD CALL
053077,000888: 13,3533 01234 PIPTIME # INTEGRATE W THRU BURN
053078,000889: 13,3534 27410 INTSTALL
053079,000890: 13,3535 43014 SET SET
053080,000891: 13,3536 01476 DIM0FLAG # DO W-MATRIX
053081,000892: 13,3537 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
053082,000893: 13,3540 43014 SET CLEAR
053083,000894: 13,3541 01475 D6OR9FLG # 9X9 FOR LM
053084,000895: 13,3542 01674 VINTFLAG # LM
053085,000896: 13,3543 34041 STCALL TDEC1
053086,000897: 13,3544 27133 INTEGRV
053087,000898: 13,3545 77650 GOTO
053088,000899: 13,3546 27472 OTHERS # NOW GO DO THE OTHER VEHICLE
053089,000900:
|
|
Page 1213 |
053091,000902: # MIDTOAV1
053092,000903:
053093,000904: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
053094,000905: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
053095,000906: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
053096,000907: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
053097,000908: # IS DONE TO THE CURRENT TIME.
053098,000909: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
053099,000910:
053100,000911: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
053101,000912: # TO THE RETURN ADDRESS
053102,000913:
053103,000914: # IN EITHER CASE , BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
053104,000915: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
053105,000916: # TION TIME AND MPAC IS SET TO THE DELTA TIME---
053106,000917: # TAT MINUS CURRENT TIME.
053107,000918:
053108,000919:
053109,000920: # MIDTOAV2
053110,000921:
053111,000922: # THIS ROUTINE INTEGRATES THIS VEHICLES STATE VECTOR TO THE CURRENT TIME.
053112,000923: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
053113,000924: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
053114,000925:
053115,000926: 13,3547 E7,1744 EBANK= IRETURN1
053116,000927: 13,3547 43020 MIDTOAV2 STQ CLRGO # INTEGRATE TO PRESENT TIME PLUS TIMEDELT
053117,000928: 13,3550 03744 IRETURN1
053118,000929: 13,3551 04634 MID1FLAG
053119,000930: 13,3552 27566 ENTMID2
053120,000931:
053121,000932: 13,3553 43020 MIDTOAV1 STQ SET # INTEGRATE TO TDEC1
053122,000933: 13,3554 03744 IRETURN1
053123,000934: 13,3555 04474 MID1FLAG
053124,000935: 13,3556 43234 RTB DAD # INITIAL CHECK, IS TDEC1 IN THE FUTURE
053125,000936: 13,3557 21555 LOADTIME
053126,000937: 13,3560 27670 TIMEDELT
053127,000938: 13,3561 51021 BDSU BPL
053128,000939: 13,3562 00041 TDEC1
053129,000940: 13,3563 27572 ENTMID1 # Y5S
053130,000941: 13,3564 77624 CALL
053131,000942: 13,3565 27656 NOTIME # NO, SET ALARM, SWITCH TO MIDTOAV2
053132,000943:
053133,000944: 13,3566 43234 ENTMID2 RTB DAD
053134,000945: 13,3567 21555 LOADTIME
053135,000946: 13,3570 27670 TIMEDELT
053136,000947: 13,3571 00041 STORE TDEC1
053137,000948:
053138,000949: 13,3572 77624 ENTMID1 CALL
053139,000950: 13,3573 27410 INTSTALL
053140,000951: 13,3574 45014 CLEAR CALL
|
|
Page 1214 |
053142,000953: 13,3575 01676 DIM0FLAG # NO W-MATRIX
053143,000954: 13,3576 26066 THISVINT
053144,000955: 13,3577 43014 CLEAR SET
053145,000956: 13,3600 01673 INTYPFLG
053146,000957: 13,3601 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
053147,000958: 13,3602 77624 CALL
053148,000959: 13,3603 27133 INTEGRV # GO INTEGRATE
053149,000960: 13,3604 77214 CLEAR VLOAD
053150,000961: 13,3605 04675 MIDAVFLG
053151,000962: 13,3606 00001 RATT
053152,000963: 13,3607 27543 STOVL RN1
053153,000964: 13,3610 00007 VATT
053154,000965: 13,3611 17551 STODL VN1
053155,000966: 13,3612 00015 TAT
053156,000967: 13,3613 03557 STORE PIPTIME1
053157,000968: 13,3614 66134 SXA,2 SXA,1
053158,000969: 13,3615 02777 RTX2
053159,000970: 13,3616 02776 RTX1
053160,000971: 13,3617 77776 EXIT
053161,000972:
053162,000973: 13,3620 00004 INHINT
053163,000974: 13,3621 00006 EXTEND
053164,000975: 13,3622 40025 DCS TIME2
053165,000976: 13,3623 20155 DAS MPAC
053166,000977: 13,3624 07271 TC TPAGREE
053167,000978:
053168,000979: 13,3625 31744 CA IRETURN1
053169,000980: 13,3626 04640 TC BANKJUMP
053170,000981: 13,3627 47014 CKMID2 BOF RTB
053171,000982: 13,3630 04754 MID1FLAG
053172,000983: 13,3631 27646 MID2
053173,000984: 13,3632 21555 LOADTIME
053174,000985: 13,3633 44215 DAD BDSU
053175,000986: 13,3634 27670 TIMEDELT
053176,000987: 13,3635 01115 TDEC
053177,000988: 13,3636 45044 BPL CALL
053178,000989: 13,3637 27256 TESTLOOP # YES
053179,000990: 13,3640 27656 NOTIME
053180,000991:
053181,000992: 13,3641 43234 TIMEINC RTB DAD
053182,000993: 13,3642 21555 LOADTIME
053183,000994: 13,3643 27670 TIMEDELT
053184,000995: 13,3644 35115 STCALL TDEC
053185,000996: 13,3645 27256 TESTLOOP
053186,000997:
053187,000998: 13,3646 45345 MID2 DLOAD DSU
053188,000999: 13,3647 01115 TDEC
053189,001000: 13,3650 01517 TET
053190,001001: 13,3651 45246 ABS DSU
053191,001002: 13,3652 27666 3CSECS
|
|
Page 1215 |
053193,001004: 13,3653 52040 BMN GOTO
053194,001005: 13,3654 27156 A-PCHK
053195,001006: 13,3655 27641 TIMEINC
053196,001007:
053197,001008: 13,3656 77414 NOTIME CLEAR EXIT # TOO LATE
053198,001009: 13,3657 04674 MID1FLAG
053199,001010: 13,3660 25744 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
053200,001011: 13,3661 05600 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
053201,001012: 13,3662 01703 OCT 1703 # TIG WILL BE SLIPPED...
053202,001013: 13,3663 06051 TC INTPRET
053203,001014: 13,3664 77616 RVQ
053204,001015:
053205,001016: 13,3665 00000 00003 3CSECS 2DEC 3 B-28
053206,001017:
053207,001018: 13,3667 00000 03720 TIMEDELT 2DEC 2000 B-28
053208,001019:
053209,001020: 27,3342 BANK 27
053210,001021: 04,2000 SETLOC UPDATE2
053211,001022: 04,2000 BANK
053212,001023: 04,3137 E3,1706 EBANK= TEPHEM
053213,001024: 04,3137 COUNT* $$/INTIN
053214,001025:
053215,001026: 04,3137 06051 INTWAKEU TC INTPRET
053216,001027:
053217,001028: 04,3140 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
053218,001029: 04,3141 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
053219,001030: 04,3142 11206 INTWAKUP
053220,001031:
053221,001032: 04,3143 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
053222,001033: 04,3144 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
053223,001034: 04,3145 25535 STOVL RCV
053224,001035: 04,3146 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
053225,001036: 04,3147 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
053226,001037: 04,3150 27706 RECTIFY +13D # TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
053227,001038: 04,3151 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
053228,001039: 04,3152 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
053229,001040: 04,3153 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
053230,001041: 04,3154 11215 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
053231,001042: 04,3155 11162 INTWAKEM # SPHERE OF INFLUENCE.........
053232,001043: 04,3156 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
053233,001044: 04,3157 00000 DEC 0 B-14
053234,001045: 04,3160 00223 MOONFLAG
053235,001046: 04,3161 11165 INTWAKEC
053236,001047: 04,3162 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
053237,001048: 04,3163 00002 DEC 2 B-14
053238,001049: 04,3164 00063 MOONFLAG
053239,001050: 04,3165 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
053240,001051: # MOONFLAG SET(OR CLEARED).
053241,001052: 04,3166 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
053242,001053: 04,3167 11175 INTWAKLM # STATE VECTOR UPDATE......
|
|
Page 1216 |
053244,001055: 04,3170 77624 CALL # UPDATE CSM STATE VECTOR
053245,001056: 04,3171 26660 ATOPCSM
053246,001057:
053247,001058: 04,3172 52014 CLEAR GOTO
053248,001059: 04,3173 01671 ORBWFLAG
053249,001060: 04,3174 11177 INTWAKEX
053250,001061:
053251,001062: 04,3175 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
053252,001063: 04,3176 26733 ATOPLEM
053253,001064:
053254,001065: 04,3177 77414 INTWAKEX CLEAR EXIT
053255,001066: 04,3200 02676 RENDWFLG
053256,001067:
053257,001068: 04,3201 34755 CAF ZERO
053258,001069: 04,3202 00006 EXTEND
053259,001070: 04,3203 01077 WRITE CHAN77 # ZERO CHANNEL 77
053260,001071: 04,3204 E3,1501 EBANK= UPSVFLAG
053261,001072: 04,3204 55501 TS UPSVFLAG
053262,001073:
053263,001074: 04,3205 06051 TC INTPRET
053264,001075: 04,3206 77624 INTWAKUP CALL
053265,001076: 04,3207 27417 INTWAKE0 # RELEASE :GRAB: OF ORBIT INTEG
053266,001077: 04,3210 77776 EXIT
053267,001078:
053268,001079: 04,3211 05364 TC PHASCHNG
053269,001080: 04,3212 04026 OCT 04026
053270,001081: 04,3213 03716 TC UPOUT +1
053271,001082:
053272,001083: 04,3214 00002 UPMNSVCD OCT 2
053273,001084: 04,3215 00000 OCT 0
053274,001085:
053275,001086:
053276,001087: 04,3216 77420 GRP2PC STQ EXIT
053277,001088: 04,3217 02711 GRP2SVQ
053278,001089: 04,3220 05364 TC PHASCHNG
053279,001090: 04,3221 04022 OCT 04022
053280,001091: 04,3222 06051 TC INTPRET
053281,001092: 04,3223 77650 GOTO
053282,001093: 04,3224 02711 GRP2SVQ
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc