GAP: ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
These source-code files were from the printout at the MIT Museum, with many thanks
to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing
it to us. The printout was digitally photographed by Paul Fjeld. A team of
volunteers transcribed the source code manually from these images or, where
appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9)
source code to agree with the images from the printout. Note that the page images
presented online are of reduced quality, and that higher-quality 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 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051 10:28 APR. 1,1969Note that the date is the date of the printout, not the date of the program revision. |
056968,000002: ## Copyright: Public domain.
056969,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
056970,000004: ## Purpose: Part of the source code for Colossus 2A, AKA Comanche 055.
056971,000005: ## It is part of the source code for the Command Module's (CM)
056972,000006: ## Apollo Guidance Computer (AGC), for Apollo 11.
056973,000007: ## Assembler: yaYUL
056974,000008: ## Contact: Ron Burkey <info@sandroid.org>.
056975,000009: ## Website: www.ibiblio.org/apollo.
056976,000010: ## Pages: 1309-1333
056977,000011: ## Mod history: 2009-05-15 RSB Adapted from the Colossus249/ file of the
056978,000012: ## same name, using Comanche055 page images.
056979,000013: ## 2009-05-20 RSB Corrections: fixed an interpreter instruction,
056980,000014: ## fixed a SETLOC.
056981,000015: ## 2009-05-23 RSB In SETCOAST, corrected MOONTHIS to AMOONFLG.
056982,000016: ## 2010-08-29 JL Fixed indentation.
056983,000017: ## 2016-12-22 RSB Proofed comment text using octopus/ProoferComments
056984,000018: ## and corrected the errors found.
056985,000019: ## 2017-01-14 RSB Fixed comment-text errors located by diff'ing
056986,000020: ## against Colossus 249.
056987,000021: ## 2017-02-05 RSB Back-ported a pair of comment corrections
056988,000022: ## identified while proofing Artemis 072.
056989,000023: ## 2017-08-19 MAS Fixed comment errors found transcribing Zerlina 56.
056990,000024: ##
056991,000025: ## This source code has been transcribed or otherwise adapted from digitized
056992,000026: ## images of a hardcopy from the MIT Museum. The digitization was performed
056993,000027: ## by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many
056994,000028: ## thanks to both. The images (with suitable reduction in storage size and
056995,000029: ## consequent reduction in image quality as well) are available online at
056996,000030: ## www.ibiblio.org/apollo. If for some reason you find that the images are
056997,000031: ## illegible, contact me at info@sandroid.org about getting access to the
056998,000032: ## (much) higher-quality images which Paul actually created.
056999,000033: ##
057000,000034: ## Notations on the hardcopy document read, in part:
057001,000035: ##
057002,000036: ## Assemble revision 055 of AGC program Comanche by NASA
057003,000037: ## 2021113-051. 10:28 APR. 1, 1969
057004,000038: ##
057005,000039: ## This AGC program shall also be referred to as
057006,000040: ## Colossus 2A
057007,000041:
|
|
Page 1309 |
057009,000043: # 1.0 INTRODUCTION
057010,000044: # ----------------
057011,000045:
057012,000046: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
057013,000047: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
057014,000048: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
057015,000049: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
057016,000050: # SIDE THE LUNAR SPHERE OF INFLUENCE.
057017,000051:
057018,000052: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
057019,000053: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
057020,000054: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
057021,000055: # CALL TC INTSTALL.
057022,000056:
057023,000057: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
057024,000058: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
057025,000059: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
057026,000060: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
057027,000061: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
057028,000062:
057029,000063: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
057030,000064: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
057031,000065: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
057032,000066: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
057033,000067:
057034,000068: # 2.0 GENERAL DESCRIPTION
057035,000069: # -----------------------
057036,000070:
057037,000071: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS ---
057038,000072: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
057039,000073: # 2) INTEGRATES THE W-MATRIX
057040,000074: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
057041,000075:
057042,000076: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
057043,000077: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
057044,000078: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
057045,000079: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
057046,000080: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
057047,000081: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
057048,000082: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
057049,000083: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
057050,000084: # AND/OR STATE VECTOR.
057051,000085:
057052,000086: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
057053,000087: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
057054,000088: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
057055,000089:
057056,000090: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
057057,000091: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
057058,000092: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
057059,000093:
|
|
Page 1310 |
057061,000095: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
057062,000096:
057063,000097: # 2.1 RESTARTS
057064,000098:
057065,000099: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
057066,000100: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
057067,000101: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
057068,000102: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
057069,000103: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
057070,000104: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
057071,000105: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
057072,000106:
057073,000107: # 2.2 SCALING
057074,000108:
057075,000109: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
057076,000110: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
057077,000111: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
057078,000112: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
057079,000113: # DIFFERENT SCALING.
057080,000114: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
057081,000115:
057082,000116: # 3.0 INPUT/OUTPUT
057083,000117: # ----------------
057084,000118:
057085,000119: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
057086,000120: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
057087,000121: # FOR INTEGRVS, THE RCV,VCV,TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
057088,000122:
057089,000123: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
057090,000124: # EARTH MOON
057091,000125: # 29 27
057092,000126: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
057093,000127:
057094,000128: # 7 5
057095,000129: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
057096,000130:
057097,000131: # 28 28
057098,000132: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
057099,000133: # CUSTOMARILY 0, BUT NOTE LUNAR
057100,000134: # ORBIT DEPENDENCE ON REAL TIME.
057101,000135:
057102,000136: # 22 18
057103,000137: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
057104,000138: # 0 IF TCCSM(LEM) = 0
057105,000139:
057106,000140: # 3 -1
057107,000141: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
057108,000142: # 0 IF TCCSM(LEM) = 0
|
|
Page 1311 |
057110,000144: # 29 27
057111,000145: # RCVCSM(LEM) - CONIC POSITION METERS 2 2
057112,000146: # EQUALS RRECTCSM(LEM) IF
057113,000147: # TCCSM(LEM) = 0
057114,000148:
057115,000149: # 7 5
057116,000150: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
057117,000151: # EQUALS VRECTCSM(LEM) IF
057118,000152: # TCCSM(LEM) = 0
057119,000153:
057120,000154: # 28 28
057121,000155: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
057122,000156: # CUSTOMARILY 0
057123,000157:
057124,000158: # 1/2 17 16
057125,000159: # XKEPCSM(LEM) - ROOT OF KEPLERS EQUATION M 2 2
057126,000160: # 0 IF TCCSM(LEM) = 0
057127,000161:
057128,000162: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
057129,000163: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
057130,000164: # LMOONFLG C = CSM, L = LM 0 0
057131,000165: # LMIDFLG 0,1 0,1
057132,000166:
057133,000167: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
057134,000168:
057135,000169: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
057136,000170: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
057137,000171: # ROUTINE MUST BE PRESET.
057138,000172:
057139,000173: # OUTPUT
057140,000174: # AFTER EVERY CALL TO INTEGRATION
057141,000175: # EARTH MOON
057142,000176: # 29 29
057143,000177: # 0D RATT POSITION METERS 2 2
057144,000178:
057145,000179: # 7 7
057146,000180: # 6D VATT VELOCITY M/CSEC 2 2
057147,000181:
057148,000182: # 28 28
057149,000183: # 12D TAT TIME 2 2
057150,000184:
057151,000185: # 29 27
057152,000186: # 14D RATT1 POSITION METERS 2 2
057153,000187:
057154,000188: # 7 5
057155,000189: # 20D VATT1 VELOCITY M/CSEC 2 2
057156,000190:
057157,000191: # 3 2 36 30
057158,000192: # 26D MU(P) MU M /CS 2 2
057159,000193:
057160,000194: # X1 MUTABLE ENTRY -2 -10D
057161,000195:
057162,000196: # X2 COORDINT
057163,000197: # X2 COORDINATE SYSTEM ORIGEN 0 2
057164,000198: # (THIS, NOT MOONFLAG, SHOULD BE
|
|
Page 1312 |
057166,000200: # USED TO DETERMINE ORIGIN.)
057167,000201:
057168,000202: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
057169,000203: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
057170,000204: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
057171,000205: # CALLING PROGRAM.
057172,000206:
057173,000207: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
057174,000208: # -------------------------------------
057175,000209:
057176,000210: # A) PRECISION ORBITAL INTEGRATION. CSMPREC, LEMPREC ENTRANCES
057177,000211: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
057178,000212: # L CALL
057179,000213: # L+1 CSMPREC (OR LEMPREC)
057180,000214: # L+2 RETURN
057181,000215: # INPUT 28
057182,000216: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
057183,000217: # OUTPUT
057184,000218: # THE DATA LISTED IN SECTION 3.0 PLUS
057185,000219: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
057186,000220: # BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
057187,000221: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
057188,000222: # L-X STORE TIME IN PUSH LIST (TDEC1)
057189,000223: # L CALL
057190,000224: # L+1 CSMCONIC (OR LEMCONIC)
057191,000225: # INPUT/OUTPUT
057192,000226: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
057193,000227: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
057194,000228: # CALL
057195,000229: # INTSTALL
057196,000230: # VLOAD
057197,000231: # POSITION VECTOR
057198,000232: # STOVL RCV
057199,000233: # VELOCITY VECTOR
057200,000234: # STODL VCV
057201,000235: # TIME STATE VECTOR VALID
057202,000236: # STODL TET
057203,000237: # FINAL RADIUS
057204,000238: # STORE RFINAL
057205,000239: # SET(CLEAR) SET(CLEAR)
057206,000240: # INTYPFLAG
057207,000241: # MOONFLAG
057208,000242: # SET(CLEAR) DLOAD
057209,000243: # DESIRED TIME
057210,000244: # STCALL TDEC1
057211,000245: # INTEGRVS
057212,000246: # INPUT
057213,000247: # RCV POSITION VECTOR METERS
057214,000248: # VCV VELOCITY VECTOR M/CSEC
057215,000249: # TET TIME OF STATE VECTOR (MAY = 0) CSEC B-28
|
|
Page 1313 |
057217,000251: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
057218,000252: # (MAY BE INCREMENT IF TET=0)
057219,000253: # OUTPUT
057220,000254: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
057221,000255: # DEPENDING ON INTYPFLG.
057222,000256: # D) INTEGRATE STATE VECTOR. INTGRV ENTRANCE
057223,000257: # L-X STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
057224,000258: # L-8 CALL
057225,000259: # L-7
057226,000260: # L-6 SET(CLEAR) SET(CLEAR)
057227,000261: # L-5 VINTFLAG 1=CSM, 0=LM
057228,000262: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
057229,000263: # L-3 SET(CLEAR) SET(CLEAR)
057230,000264: # L-2 DIMOFLAG 1=W-MATRIX, 0=NO W-MATRIX
057231,000265: # L-1 D6OR9FLG 1=9X9, 0=6X6
057232,000266: # L SET DLOAD
057233,000267: # L+1 STATEFLG DESIRE PERMANENT UPDATE
057234,000268: # L+2 FINAL RAD. OF STATE VECTOR
057235,000269: # L+3 STCALL RFINAL
057236,000270: # L+4 INTEGRV
057237,000271: # L CALL NORMAL USE -- WILL UPDATE STATE
057238,000272: # L+1 INTEGRV VECTOR IF DIMOFLAG=1. (STATEFLG IS
057239,000273: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
057240,000274: # IT IS USED.)
057241,000275: # INPUT
057242,000276: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
057243,000277: # OUTPUT
057244,000278: # SAME AS FOR PRECISION OR CONIC INTEGRATION
057245,000279: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
057246,000280: # THE PERMANENT STATE VECTOR REPRESENTATION.
057247,000281:
057248,000282: 11,2363 BANK 11
057249,000283: 13,2000 SETLOC INTINIT
057250,000284: 13,2000 BANK
057251,000285: 13,2627 E3,1554 EBANK= RRECTCSM
057252,000286: 13,2627 COUNT 13/INTIN
057253,000287:
057254,000288: 13,2627 05412 STATEINT TC PHASCHNG
057255,000289: 13,2630 00052 OCT 00052
057256,000290: 13,2631 35061 CAF PRIO5
057257,000291: 13,2632 05147 TC FINDVAC
057258,000292: 13,2633 E3,1554 EBANK= RRECTCSM
057259,000293: 13,2633 02636 26063 2CADR STATINT1
057260,000294:
057261,000295: 13,2635 05324 TC TASKOVER
057262,000296: 13,2636 06006 STATINT1 TC INTPRET
057263,000297: 13,2637 47014 BON RTB
057264,000298: 13,2640 04712 QUITFLAG
057265,000299: 13,2641 26677 NOINT # NO STATEINT IF V96
057266,000300: 13,2642 45510 LOADTIME
|
|
Page 1314 |
057268,000302: 13,2643 00041 STORE TDEC1
057269,000303: 13,2644 45014 CLEAR CALL
057270,000304: 13,2645 04274 V96ONFLG
057271,000305: 13,2646 27442 INTSTALL
057272,000306: 13,2647 45014 SET CALL
057273,000307: 13,2650 01076 NODOFLAG
057274,000308: 13,2651 26670 SETIFLGS
057275,000309: 13,2652 77650 GOTO
057276,000310: 13,2653 26000 STATEUP
057277,000311: 13,2654 00003 25140 600SECS 2DEC 60000 B-28
057278,000312:
057279,000313: 13,2656 77414 ENDINT CLEAR EXIT
057280,000314: 13,2657 01672 STATEFLG
057281,000315: 13,2660 05412 TC PHASCHNG
057282,000316: 13,2661 20032 OCT 20032
057283,000317: 13,2662 00006 EXTEND
057284,000318: 13,2663 32655 DCA 600SECS
057285,000319: 13,2664 05342 TC LONGCALL
057286,000320: 13,2665 E3,1554 EBANK= RRECTHIS
057287,000321: 13,2665 02627 26063 2CADR STATEINT
057288,000322:
057289,000323: 13,2667 05217 TC ENDOFJOB
057290,000324: 13,2670 43014 SETIFLGS SET CLEAR
057291,000325: 13,2671 01472 STATEFLG
057292,000326: 13,2672 01673 INTYPFLG
057293,000327: 13,2673 43014 CLEAR CLEAR
057294,000328: 13,2674 01676 DIM0FLAG
057295,000329: 13,2675 01675 D6OR9FLG
057296,000330: 13,2676 77616 RVQ
057297,000331: 13,2677 77776 NOINT EXIT
057298,000332: 13,2700 05412 TC PHASCHNG
057299,000333: 13,2701 00002 OCT 2
057300,000334:
057301,000335: 13,2702 05560 TC DOWNFLAG
057302,000336: 13,2703 00221 ADRES QUITFLAG
057303,000337:
057304,000338: 13,2704 05217 TC ENDOFJOB
057305,000339:
057306,000340: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
057307,000341:
057308,000342: # CALLING SEQUENCE
057309,000343: # L CALL
057310,000344: # L+1 ATOPCSM
057311,000345:
057312,000346: # NORMAL EXIT AT L+2
057313,000347:
057314,000348: 13,2705 47020 ATOPCSM STQ RTB
057315,000349: 13,2706 00051 S2
057316,000350: 13,2707 26720 MOVEACSM
057317,000351: 13,2710 45014 SET CALL
|
|
Page 1315 |
057319,000353: 13,2711 04063 CMOONFLG
057320,000354: 13,2712 20237 SVDWN1
057321,000355: 13,2713 43014 BON CLRGO
057322,000356: 13,2714 00303 MOONFLAG
057323,000357: 13,2715 00051 S2
057324,000358: 13,2716 04223 CMOONFLG
057325,000359: 13,2717 00051 S2
057326,000360: 13,2720 03064 MOVEACSM TC SETBANK
057327,000361: 13,2721 55500 TS DIFEQCNT # INITIALIZE INDEX
057328,000362: 13,2722 51500 INDEX DIFEQCNT
057329,000363: 13,2723 31502 CA RRECT
057330,000364: 13,2724 51500 INDEX DIFEQCNT
057331,000365: 13,2725 55554 TS RRECTCSM
057332,000366: 13,2726 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
057333,000367: 13,2727 12721 TCF MOVEACSM +1 # NO-LOOP
057334,000368: 13,2730 06030 TC DANZIG # COMPLETE - RETURN
057335,000369:
057336,000370: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
057337,000371:
057338,000372: # CALLING SEQUENCE
057339,000373: # L CALL
057340,000374: # PTOACSM
057341,000375:
057342,000376: # NORMAL EXIT AT L+2
057343,000377:
057344,000378: 13,2731 43034 PTOACSM RTB BON
057345,000379: 13,2732 26747 MOVEPCSM
057346,000380: 13,2733 04303 CMOONFLG
057347,000381: 13,2734 26742 SETMOON
057348,000382: 13,2735 66214 CLRMOON CLEAR SSP
057349,000383: 13,2736 00263 MOONFLAG
057350,000384: 13,2737 02151 PBODY
057351,000385: 13,2740 00000 0
057352,000386: 13,2741 77616 RVQ
057353,000387: 13,2742 66214 SETMOON SET SSP
057354,000388: 13,2743 00063 MOONFLAG
057355,000389: 13,2744 02151 PBODY
057356,000390: 13,2745 00002 2
057357,000391: 13,2746 77616 RVQ
057358,000392: 13,2747 03064 MOVEPCSM TC SETBANK
057359,000393: 13,2750 55500 TS DIFEQCNT
057360,000394: 13,2751 51500 INDEX DIFEQCNT
057361,000395: 13,2752 31554 CA RRECTCSM
057362,000396: 13,2753 51500 INDEX DIFEQCNT
057363,000397: 13,2754 55502 TS RRECT
057364,000398: 13,2755 11500 CCS DIFEQCNT
057365,000399: 13,2756 12750 TCF MOVEPCSM +1
057366,000400: 13,2757 06030 TC DANZIG
057367,000401:
|
|
Page 1316 |
057369,000403: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
057370,000404: 13,2760 47020 ATOPLEM STQ RTB
057371,000405: 13,2761 00051 S2
057372,000406: 13,2762 26773 MOVEALEM
057373,000407: 13,2763 45014 SET CALL
057374,000408: 13,2764 04064 LMOONFLG
057375,000409: 13,2765 20263 SVDWN2
057376,000410: 13,2766 43014 BON CLRGO
057377,000411: 13,2767 00303 MOONFLAG
057378,000412: 13,2770 00051 S2
057379,000413: 13,2771 04224 LMOONFLG
057380,000414: 13,2772 00051 S2
057381,000415: 13,2773 03064 MOVEALEM TC SETBANK
057382,000416: 13,2774 55500 TS DIFEQCNT
057383,000417: 13,2775 51500 INDEX DIFEQCNT
057384,000418: 13,2776 31502 CA RRECT
057385,000419: 13,2777 51500 INDEX DIFEQCNT
057386,000420: 13,3000 55626 TS RRECTLEM
057387,000421: 13,3001 11500 CCS DIFEQCNT
057388,000422: 13,3002 12774 TCF MOVEALEM +1
057389,000423: 13,3003 06030 TC DANZIG
057390,000424:
057391,000425: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
057392,000426:
057393,000427: 13,3004 47014 PTOALEM BON RTB
057394,000428: 13,3005 04307 SURFFLAG
057395,000429: 13,3006 27025 USEPIOS
057396,000430: 13,3007 27014 MOVEPLEM
057397,000431: 13,3010 52014 BON GOTO
057398,000432: 13,3011 04304 LMOONFLG
057399,000433: 13,3012 26742 SETMOON
057400,000434: 13,3013 26735 CLRMOON
057401,000435: 13,3014 03064 MOVEPLEM TC SETBANK
057402,000436: 13,3015 55500 TS DIFEQCNT
057403,000437: 13,3016 51500 INDEX DIFEQCNT
057404,000438: 13,3017 31626 CA RRECTLEM
057405,000439: 13,3020 51500 INDEX DIFEQCNT
057406,000440: 13,3021 55502 TS RRECT
057407,000441: 13,3022 11500 CCS DIFEQCNT
057408,000442: 13,3023 13015 TCF MOVEPLEM +1
057409,000443: 13,3024 06030 TC DANZIG
057410,000444:
057411,000445: 13,3025 77201 USEPIOS SETPD VLOAD
057412,000446: 13,3026 00001 0
057413,000447: 13,3027 02026 RLS
057414,000448: 13,3030 41525 PDDL PUSH
057415,000449: 13,3031 00041 TDEC1
|
|
Page 1317 |
057417,000451: 13,3032 15517 STODL TET
057418,000452: 13,3033 27755 5/8
057419,000453: 13,3034 77624 CALL
057420,000454: 13,3035 55344 RP-TO-R
057421,000455: 13,3036 25535 STOVL RCV
057422,000456: 13,3037 11560 ZUNIT
057423,000457: 13,3040 14001 STODL 0D
057424,000458: 13,3041 01517 TET
057425,000459: 13,3042 14007 STODL 6D
057426,000460: 13,3043 27755 5/8
057427,000461: 13,3044 45014 SET CALL # NEEDED FOR SETTING X1 ON EXIT
057428,000462: 13,3045 00063 MOONFLAG
057429,000463: 13,3046 55344 RP-TO-R
057430,000464: 13,3047 74235 VXV VXSC
057431,000465: 13,3050 01535 RCV
057432,000466: 13,3051 27063 OMEGMOON
057433,000467: 13,3052 25543 STOVL VCV
057434,000468: 13,3053 11566 ZEROVEC
057435,000469: 13,3054 01521 STORE TDELTAV
057436,000470: 13,3055 67174 AXT,2 SXA,2
057437,000471: 13,3056 00002 2
057438,000472: 13,3057 02150 PBODY
057439,000473: 13,3060 35527 STCALL TNUV
057440,000474: 13,3061 27176 A-PCHK
057441,000475: 13,3062 07112 06620 OMEGMOON 2DEC* 2.66169947 E-8 B+23*
057442,000476:
057443,000477: 13,3064 33070 SETBANK CAF INTBANK
057444,000478: 13,3065 54006 TS BBANK
057445,000479: 13,3066 33507 CAF FORTYONE
057446,000480: 13,3067 00002 TC Q
057447,000481: 13,3070 E3,1554 EBANK= RRECTCSM
057448,000482: 13,3070 26063 INTBANK BBCON INTEGRV
057449,000483:
057450,000484: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
057451,000485: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
057452,000486:
057453,000487: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
057454,000488: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
057455,000489: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
057456,000490: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
057457,000491: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
057458,000492: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
057459,000493:
057460,000494: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
057461,000495: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
057462,000496: # CSMPREC CSMCONIC LEMPREC LEMCONIC
057463,000497: # VINTFLAG SET SET CLEAR CLEAR
057464,000498: # INTYPFLG CLEAR SET CLEAR SET
057465,000499: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
|
|
Page 1318 |
057467,000501:
057468,000502: # CALLING SEQUENCE
057469,000503: # L-X STORE TDEC1
057470,000504: # L CALL (STCALL TDEC1)
057471,000505: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
057472,000506:
057473,000507: # NORMAL EXIT TO L+2
057474,000508:
057475,000509: # SUBROUTINES CALLED
057476,000510: # INTEGRV1
057477,000511: # PRECOUT FOR CSMPREC AND LEMPREC
057478,000512: # CONICOUT FOR CSMCONIC AND LEMCONIC
057479,000513:
057480,000514: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
057481,000515:
057482,000516: # INPUT
057483,000517: # TDEC1 TIME TO INTEGRATE TO. CSECS B-28
057484,000518:
057485,000519: 13,3071 45020 CSMPREC STQ CALL
057486,000520: 13,3072 00046 X1
057487,000521: 13,3073 27442 INTSTALL
057488,000522: 13,3074 43130 SXA,1 SET
057489,000523: 13,3075 02214 IRETURN
057490,000524: 13,3076 01474 VINTFLAG
057491,000525:
057492,000526: 13,3077 43014 IFLAGP SET CLEAR
057493,000527: 13,3100 01467 PRECIFLG
057494,000528: 13,3101 01676 DIM0FLAG
057495,000529: 13,3102 77614 CLRGO
057496,000530: 13,3103 01633 INTYPFLG
057497,000531: 13,3104 27164 INTEGRV1
057498,000532: 13,3105 45020 LEMPREC STQ CALL
057499,000533: 13,3106 00046 X1
057500,000534: 13,3107 27442 INTSTALL
057501,000535: 13,3110 43130 SXA,1 CLRGO
057502,000536: 13,3111 02214 IRETURN
057503,000537: 13,3112 01634 VINTFLAG
057504,000538: 13,3113 27077 IFLAGP
057505,000539:
057506,000540: 13,3114 45020 CSMCONIC STQ CALL
057507,000541: 13,3115 00046 X1
057508,000542: 13,3116 27442 INTSTALL
057509,000543: 13,3117 43130 SXA,1 SET
057510,000544: 13,3120 02214 IRETURN
057511,000545: 13,3121 01474 VINTFLAG
057512,000546: 13,3122 43014 IFLAGC CLEAR SETGO
057513,000547: 13,3123 01676 DIM0FLAG
057514,000548: 13,3124 01433 INTYPFLG
057515,000549: 13,3125 27164 INTEGRV1
057516,000550: 13,3126 45020 LEMCONIC STQ CALL
057517,000551: 13,3127 00046 X1
|
|
Page 1319 |
057519,000553: 13,3130 27442 INTSTALL
057520,000554: 13,3131 43130 SXA,1 CLRGO
057521,000555: 13,3132 02214 IRETURN
057522,000556: 13,3133 01634 VINTFLAG
057523,000557: 13,3134 27122 IFLAGC
057524,000558:
057525,000559: 13,3135 66214 INTEGRVS SET SSP
057526,000560: 13,3136 01467 PRECIFLG
057527,000561: 13,3137 02151 PBODY
057528,000562: 13,3140 00000 0
057529,000563: 13,3141 66214 BOF SSP
057530,000564: 13,3142 00343 MOONFLAG
057531,000565: 13,3143 27146 +3
057532,000566: 13,3144 02151 PBODY
057533,000567: 13,3145 00002 2
057534,000568: 13,3146 77220 STQ VLOAD
057535,000569: 13,3147 02214 IRETURN
057536,000570: 13,3150 11566 ZEROVEC
057537,000571: 13,3151 01521 STORE TDELTAV
057538,000572: 13,3152 35527 STCALL TNUV
057539,000573: 13,3153 23421 RECTIFY
057540,000574: 13,3154 43014 CLEAR SET
057541,000575: 13,3155 01676 DIM0FLAG
057542,000576: 13,3156 04062 NEWIFLG
057543,000577: 13,3157 77614 SETGO
057544,000578: 13,3160 04020 RPQFLAG
057545,000579: 13,3161 22363 ALOADED
057546,000580:
057547,000581: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
057548,000582: # NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS. THE ROUTINE
057549,000583: # IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
057550,000584: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
057551,000585: # PROGRAM FOR PRECISION OR CONIC
057552,000586:
057553,000587: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
057554,000588: # SETTING ANY FLAGS.
057555,000589:
057556,000590: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
057557,000591: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
057558,000592: # INTYPFLG
057559,000593: # DIM0FLAG
057560,000594: # D6OR9FLG
057561,000595:
057562,000596: # CALLING SEQUENCE
057563,000597: # L-X CALL
057564,000598: # L-Y INTSTALL
057565,000599: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
057566,000600: # AND DIM0FLAG IS CLEAR.
057567,000601: # L CALL
057568,000602: # L+1 INTEGRV
057569,000603:
057570,000604: # INITIALIZATION
057571,000605: # FLAGS AS ABOVE
057572,000606: # STORE TIME TO INTEGRATE TO IN TDEC1
057573,000607:
|
|
Page 1320 |
057575,000609: # OUTPUT
057576,000610: # RATT AS
057577,000611: # VATT DEFINED
057578,000612: # TAT BEFORE
057579,000613:
057580,000614: 13,3162 77620 INTEGRV STQ
057581,000615: 13,3163 02214 IRETURN
057582,000616: 13,3164 43014 INTEGRV1 SET SET
057583,000617: 13,3165 04060 RPQFLAG
057584,000618: 13,3166 04062 NEWIFLG
057585,000619: 13,3167 77731 INTEGRV2 SSP
057586,000620: 13,3170 00053 QPRET
057587,000621: 13,3171 22363 ALOADED
057588,000622: 13,3172 52014 BON GOTO
057589,000623: 13,3173 01714 VINTFLAG
057590,000624: 13,3174 26731 PTOACSM
057591,000625: 13,3175 27004 PTOALEM
057592,000626: 11,2000 SETLOC INTINIT1
057593,000627: 11,2000 BANK
057594,000628: 11,2363 77745 ALOADED DLOAD
057595,000629: 11,2364 00041 TDEC1
057596,000630: 11,2365 01101 STORE TDEC
057597,000631: 11,2366 52014 BOFF GOTO
057598,000632: 11,2367 01753 INTYPFLG
057599,000633: 11,2370 27305 TESTLOOP
057600,000634: 11,2371 27271 RVCON
057601,000635: 13,2000 SETLOC INTINIT
057602,000636: 13,2000 BANK
057603,000637: 13,3176 45014 A-PCHK BOF CALL
057604,000638: 13,3177 00342 MIDFLAG
057605,000639: 13,3200 27205 ANDOUT # DONT MAKE ORIGIN CHANGE CHECK
057606,000640: 13,3201 23320 CHKSWTCH
057607,000641: 13,3202 45044 BPL CALL
057608,000642: 13,3203 27205 ANDOUT # NO ORIGIN CHANGE
057609,000643: 13,3204 23361 ORIGCHNG # MAKE THE SWITCH
057610,000644: 13,3205 77414 ANDOUT BOFCLR EXIT
057611,000645: 13,3206 01652 STATEFLG
057612,000646: 13,3207 27226 RECTOUT
057613,000647: 13,3210 05412 TC PHASCHNG
057614,000648: 13,3211 04022 OCT 04022
057615,000649: 13,3212 05546 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
057616,000650: 13,3213 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
057617,000651: 13,3214 06006 TC INTPRET
057618,000652: 13,3215 77731 SSP
057619,000653: 13,3216 00053 QPRET
057620,000654: 13,3217 27224 PHEXIT
057621,000655: 13,3220 52014 BON GOTO
057622,000656: 13,3221 01714 VINTFLAG
057623,000657: 13,3222 26705 ATOPCSM
|
|
Page 1321 |
057625,000659: 13,3223 26760 ATOPLEM
057626,000660: 13,3224 77624 PHEXIT CALL
057627,000661: 13,3225 56750 GRP2PC
057628,000662: 13,3226 45001 RECTOUT SETPD CALL
057629,000663: 13,3227 00001 0
057630,000664: 13,3230 23421 RECTIFY
057631,000665: 13,3231 53775 VLOAD VSL*
057632,000666: 13,3232 01503 RRECT
057633,000667: 13,3233 57576 0,2
057634,000668: 13,3234 53715 PDVL VSL* # RATT TO PD0
057635,000669: 13,3235 01511 VRECT
057636,000670: 13,3236 57576 0,2
057637,000671: 13,3237 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
057638,000672: 13,3240 01517 TET
057639,000673: 13,3241 01503 RRECT
057640,000674: 13,3242 64715 PDVL PDDL*
057641,000675: 13,3243 01511 VRECT
057642,000676: 13,3244 50042 MUEARTH,2
057643,000677: 13,3245 76006 PUSH AXT,1
057644,000678: 13,3246 77765 DEC -10 B-14
057645,000679: 13,3247 76014 BON AXT,1
057646,000680: 13,3250 00303 MOONFLAG
057647,000681: 13,3251 27253 +2
057648,000682: 13,3252 77775 DEC -2 B-14
057649,000683: 13,3253 40001 INTEXIT SETPD BOV
057650,000684: 13,3254 00001 0
057651,000685: 13,3255 27256 +1
057652,000686: 13,3256 77614 CLEAR
057653,000687: 13,3257 04675 MIDAVFLG
057654,000688: 13,3260 43014 CLEAR CLEAR
057655,000689: 13,3261 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
057656,000690: 13,3262 01667 PRECIFLG
057657,000691: 13,3263 77535 SLOAD EXIT
057658,000692: 13,3264 02215 IRETURN
057659,000693: 13,3265 30154 CA MPAC
057660,000694: 13,3266 50120 INDEX FIXLOC
057661,000695: 13,3267 54052 TS QPRET
057662,000696: 13,3270 03457 TC INTWAKE
057663,000697:
057664,000698: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
057665,000699: # VELOCITY FOR THE INTERVAL (TET-TDEC)
057666,000700:
057667,000701: 13,3271 45345 RVCON DLOAD DSU
057668,000702: 13,3272 01101 TDEC
057669,000703: 13,3273 01517 TET
057670,000704: 13,3274 36312 STCALL TAU.
057671,000705: 13,3275 23421 RECTIFY
057672,000706: 13,3276 77624 CALL
057673,000707: 13,3277 22372 KEPPREP
057674,000708: 13,3300 43345 DLOAD DAD
057675,000709: 13,3301 01551 TC
|
|
Page 1322 |
057677,000711: 13,3302 01517 TET
057678,000712: 13,3303 35517 STCALL TET
057679,000713: 13,3304 27226 RECTOUT
057680,000714:
|
|
Page 1323 |
057682,000716: # TESTLOOP
057683,000717:
057684,000718: 13,3305 43014 TESTLOOP BOF CLRGO
057685,000719: 13,3306 04752 QUITFLAG
057686,000720: 13,3307 27312 +3
057687,000721: 13,3310 01632 STATEFLG
057688,000722: 13,3311 27253 INTEXIT # STOP INTEGRATION
057689,000723: 13,3312 73001 +3 SETPD LXA,2
057690,000724: 13,3313 00013 10D
057691,000725: 13,3314 02150 PBODY
057692,000726: 13,3315 51575 VLOAD ABVAL
057693,000727: 13,3316 01535 RCV
057694,000728: 13,3317 43006 PUSH CLEAR # RC TO 10D
057695,000729: 13,3320 00262 MIDFLAG
057696,000730: 13,3321 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
057697,000731: 13,3322 67212 RME,2
057698,000732: 13,3323 27326 +3
057699,000733: 13,3324 77614 SET
057700,000734: 13,3325 00062 MIDFLAG
057701,000735: 13,3326 41345 NORFINAL DLOAD DMP
057702,000736: 13,3327 00013 10D
057703,000737: 13,3330 00043 34D
057704,000738: 13,3331 55762 SR1R DDV*
057705,000739: 13,3332 50042 MUEARTH,2
057706,000740: 13,3333 41366 SQRT DMP
057707,000741: 13,3334 23752 .3D
057708,000742: 13,3335 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
057709,000743: 13,3336 54345 DLOAD SL
057710,000744: 13,3337 00155 MPAC
057711,000745: 13,3340 20220 15D # OF 128 CSECS.
057712,000746: 13,3341 40006 PUSH BOV
057713,000747: 13,3342 27367 MAXDT
057714,000748: 13,3343 50021 BDSU BMN
057715,000749: 13,3344 27441 DT/2MAX
057716,000750: 13,3345 27367 MAXDT
057717,000751: 13,3346 45345 DT/2COMP DLOAD DSU
057718,000752: 13,3347 01101 TDEC
057719,000753: 13,3350 01517 TET
057720,000754: 13,3351 54234 RTB SL
057721,000755: 13,3352 45544 SGNAGREE
057722,000756: 13,3353 20211 8D
057723,000757: 13,3354 02314 STORE DT/2 # B-19
057724,000758: 13,3355 51400 BOV ABS
057725,000759: 13,3356 27373 GETMAXDT
057726,000760: 13,3357 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
057727,000761: 13,3360 00015 12D
057728,000762: 13,3361 27377 P00HCHK
057729,000763: 13,3362 75345 USEMAXDT DLOAD SIGN
057730,000764: 13,3363 00015 12D
057731,000765: 13,3364 02314 DT/2
|
|
Page 1324 |
057733,000767: 13,3365 36314 STCALL DT/2
057734,000768: 13,3366 27377 P00HCHK
057735,000769: 13,3367 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
057736,000770: 13,3370 27441 DT/2MAX
057737,000771: 13,3371 77650 GOTO
057738,000772: 13,3372 27346 DT/2COMP
057739,000773: 13,3373 77634 GETMAXDT RTB
057740,000774: 13,3374 45712 SIGNMPAC
057741,000775: 13,3375 36314 STCALL DT/2
057742,000776: 13,3376 27362 USEMAXDT
057743,000777: 13,3377 51545 P00HCHK DLOAD ABS
057744,000778: 13,3400 02314 DT/2
057745,000779: 13,3401 50025 DSU BMN
057746,000780: 13,3402 27437 DT/2MIN
057747,000781: 13,3403 27176 A-PCHK
057748,000782: 13,3404 46135 SLOAD BHIZ
057749,000783: 13,3405 01012 MODREG
057750,000784: 13,3406 27411 +3
057751,000785: 13,3407 77650 GOTO
057752,000786: 13,3410 23240 TIMESTEP
057753,000787: 13,3411 77614 BON # WAS THIS CALL VIA CSM(LEM)PREC
057754,000788: 13,3412 01707 PRECIFLG
057755,000789: 13,3413 23240 TIMESTEP # YES
057756,000790: 13,3414 45345 DLOAD DSU
057757,000791: 13,3415 02314 DT/2
057758,000792: 13,3416 00015 12D
057759,000793: 13,3417 43040 BMN BOFCLR
057760,000794: 13,3420 27176 A-PCHK
057761,000795: 13,3421 04242 NEWIFLG
057762,000796: 13,3422 23240 TIMESTEP
057763,000797: 13,3423 45345 DLOAD DSU
057764,000798: 13,3424 01101 TDEC
057765,000799: 13,3425 01517 TET
057766,000800: 13,3426 77640 BMN # NO BACKWARD INTEGRATION
057767,000801: 13,3427 27253 INTEXIT
057768,000802: 13,3430 40525 PDDL SR4
057769,000803: 13,3431 02314 DT/2 # IS 4(DT) LS (TDEC - TET)
057770,000804: 13,3432 44322 SR2R BDSU # NO
057771,000805: 13,3433 52040 BMN GOTO
057772,000806: 13,3434 27253 INTEXIT
057773,000807: 13,3435 23240 TIMESTEP
057774,000808: 13,3436 00000 01400 DT/2MIN 2DEC 3 B-20
057775,000809:
057776,000810: 13,3440 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
057777,000811:
057778,000812: 13,3442 77776 INTSTALL EXIT
057779,000813: 13,3443 35021 CAF ZERO
057780,000814: 13,3444 54001 ALLSTALL TS L
057781,000815: 13,3445 30106 CA RASFLAG
057782,000816: 13,3446 50001 INDEX L
|
|
Page 1325 |
057784,000818: 13,3447 73540 MASK INTBITAB # IS THIS STALL AREA FREE
057785,000819: 13,3450 00006 EXTEND
057786,000820: 13,3451 13516 BZF OKTOGRAB # YES
057787,000821: 13,3452 50001 INDEX L
057788,000822: 13,3453 33535 CAF WAKESTAL
057789,000823: 13,3454 05175 TC JOBSLEEP
057790,000824: 13,3455 77776 INTWAKE0 EXIT
057791,000825: 13,3456 13477 TCF INTWAKE1
057792,000826:
057793,000827: 13,3457 40106 INTWAKE CS RASFLAG # IS THIS INTSTALLED ROUTINE TO BE
057794,000828: 13,3460 75011 MASK REINTBIT # RESTARTED
057795,000829: 13,3461 10000 CCS A
057796,000830: 13,3462 03477 TC INTWAKE1 # NO
057797,000831:
057798,000832: 13,3463 50120 INDEX FIXLOC
057799,000833: 13,3464 30052 CA QPRET
057800,000834: 13,3465 55055 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
057801,000835:
057802,000836: 13,3466 05412 TC PHASCHNG
057803,000837: 13,3467 04022 OCT 04022
057804,000838:
057805,000839: 13,3470 31055 CA TBASE2
057806,000840: 13,3471 50120 INDEX FIXLOC
057807,000841: 13,3472 54052 TS QPRET
057808,000842:
057809,000843: 13,3473 35011 CAF REINTBIT
057810,000844: 13,3474 70106 MASK RASFLAG
057811,000845: 13,3475 00006 EXTEND
057812,000846: 13,3476 13521 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
057813,000847:
057814,000848: 13,3477 35021 INTWAKE1 CAF ZERO
057815,000849: 13,3500 54154 WAKE TS STALTEM # INDEX OF ANY STALL USER
057816,000850: 13,3501 50154 WAKE1 INDEX STALTEM
057817,000851: 13,3502 33535 CAF WAKESTAL
057818,000852: 13,3503 00004 INHINT
057819,000853: 13,3504 05201 TC JOBWAKE
057820,000854: 13,3505 10064 CCS LOCCTR
057821,000855: 13,3506 13501 TCF WAKE1 # MAY BE MORE TO WAKE UP
057822,000856: 13,3507 00051 FORTYONE DEC 41 B-14
057823,000857: 13,3510 50154 INDEX STALTEM
057824,000858: 13,3511 43540 CS INTBITAB
057825,000859: 13,3512 70106 MASK RASFLAG
057826,000860: 13,3513 54106 TS RASFLAG # RELEASE STALL AREA
057827,000861: 13,3514 00003 RELINT
057828,000862: 13,3515 13521 TCF GOBAC
057829,000863: 13,3516 50001 OKTOGRAB INDEX L # NO, WAIT UNTIL AVAILABLE
057830,000864: 13,3517 35002 CAF INTFLBIT
057831,000865: 13,3520 26106 ADS RASFLAG
057832,000866: 13,3521 06006 GOBAC TC INTPRET
057833,000867: 13,3522 77616 RVQ
|
|
Page 1326 |
057835,000869: 13,3523 77776 ERASTAL1 EXIT
057836,000870: 13,3524 35017 CAF ONE
057837,000871: 13,3525 13444 TCF ALLSTALL
057838,000872: 13,3526 77776 ERASTAL2 EXIT
057839,000873: 13,3527 35016 CAF TWO
057840,000874: 13,3530 13444 TCF ALLSTALL
057841,000875: 13,3531 35017 ERASWAK1 CAF ONE
057842,000876: 13,3532 13500 TCF WAKE
057843,000877: 13,3533 35016 ERASWAK2 CAF TWO
057844,000878: 13,3534 13500 TCF WAKE
057845,000879: 13,3535 27443 WAKESTAL CADR INTSTALL +1
057846,000880: 13,3536 27524 CADR ERASTAL1 +1
057847,000881: 13,3537 27527 CADR ERASTAL2 +1
057848,000882: 13,3540 0154 STALTEM EQUALS MPAC
057849,000883: 13,3540 20100 INTBITAB OCT 20100
057850,000884: 13,3541 10040 OCT 10040
057851,000885: 13,3542 04020 OCT 04020
057852,000886:
|
|
Page 1327 |
057854,000888: # AVETOMID
057855,000889:
057856,000890: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
057857,000891: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
057858,000892: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
057859,000893:
057860,000894: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
057861,000895: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
057862,000896:
057863,000897: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
057864,000898:
057865,000899: # FINALLY TRKMKCNT IS ZEROED
057866,000900:
057867,000901: 35,2000 SETLOC INTINIT2
057868,000902: 35,2000 BANK
057869,000903:
057870,000904: 35,3675 COUNT* $$/INTIN
057871,000905: 35,3675 43020 AVETOMID STQ BON
057872,000906: 35,3676 02317 EGRESS
057873,000907: 35,3677 02716 RENDWFLG
057874,000908: 35,3700 73753 INT/W # W-MATRIX VALID, GO INTEGRATE IT
057875,000909: 35,3701 77614 BON
057876,000910: 35,3702 01711 ORBWFLAG
057877,000911: 35,3703 73753 INT/W # W-MATRIX VALID, GO INTEGRATE IT
057878,000912:
057879,000913: 35,3704 45174 SETCOAST AXT,2 CALL # NOW MOVE PROPERLY SCALED RN,VN AND
057880,000914: 35,3705 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
057881,000915: 35,3706 27442 INTSTALL
057882,000916: 35,3707 77014 BON AXT,2
057883,000917: 35,3710 00315 AMOONFLG
057884,000918: 35,3711 73713 +2
057885,000919: 35,3712 00000 0
057886,000920: 35,3713 53775 VLOAD VSR*
057887,000921: 35,3714 01171 RN
057888,000922: 35,3715 57176 0,2
057889,000923: 35,3716 01503 STORE RRECT
057890,000924: 35,3717 15535 STODL RCV
057891,000925: 35,3720 01205 PIPTIME
057892,000926: 35,3721 25517 STOVL TET
057893,000927: 35,3722 01177 VN
057894,000928: 35,3723 45057 VSR* CALL
057895,000929: 35,3724 57176 0,2
057896,000930: 35,3725 23435 MINIRECT # FINISH SETTING UP STATE VECTOR
057897,000931: 35,3726 66234 RTB SSP
057898,000932: 35,3727 26720 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
057899,000933: 35,3730 01127 TRKMKCNT
057900,000934: 35,3731 00000 0
057901,000935: 35,3732 43014 SET BON
057902,000936: 35,3733 04063 CMOONFLG
|
|
Page 1328 |
057904,000938: 35,3734 00315 AMOONFLG
057905,000939: 35,3735 73740 +3
057906,000940: 35,3736 77614 CLEAR
057907,000941: 35,3737 04263 CMOONFLG
057908,000942:
057909,000943: 35,3740 71214 BON DLOAD # NOW DO LM
057910,000944: 35,3741 04307 SURFFLAG
057911,000945: 35,3742 75751 FAZAB5 # NO COASTING LM
057912,000946: 35,3743 01205 PIPTIME
057913,000947: 35,3744 34041 STCALL TDEC1
057914,000948: 35,3745 26670 SETIFLGS
057915,000949: 35,3746 45014 CLEAR CALL
057916,000950: 35,3747 01674 VINTFLAG
057917,000951: 35,3750 27162 INTEGRV
057918,000952: 35,3751 77650 GOTO
057919,000953: 35,3752 02317 EGRESS
057920,000954: 35,3753 45145 INT/W DLOAD CALL
057921,000955: 35,3754 01205 PIPTIME # INTEGRATE W THRU BURN
057922,000956: 35,3755 27442 INTSTALL
057923,000957: 35,3756 43014 SET SET
057924,000958: 35,3757 01476 DIM0FLAG # DO W-MATRIX
057925,000959: 35,3760 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
057926,000960: 35,3761 43014 CLEAR SET
057927,000961: 35,3762 01675 D6OR9FLG
057928,000962: 35,3763 01474 VINTFLAG
057929,000963: 35,3764 34041 STCALL TDEC1
057930,000964: 35,3765 27162 INTEGRV
057931,000965: 35,3766 77650 GOTO
057932,000966: 35,3767 73704 SETCOAST
057933,000967:
|
|
Page 1329 |
057935,000969: # MIDTOAV1
057936,000970:
057937,000971: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
057938,000972: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
057939,000973: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
057940,000974: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
057941,000975: # IS DONE AS IT IS FOR MIDTOAV2.
057942,000976: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
057943,000977:
057944,000978: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
057945,000979: # TO THE RETURN ADDRESS
057946,000980:
057947,000981: # IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
057948,000982: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
057949,000983: # TION TIME AND MPAC IS SET TO THE DELTA TIME---
057950,000984: # TAT MINUS CURRENT TIME.
057951,000985:
057952,000986: # MIDTOAV2
057953,000987:
057954,000988: # THIS ROUTINE INTEGRATES THE CSM STATE VECTOR TO CURRENT TIME PLUS
057955,000989: # INCREMENTS OF TIMEDELT SUCH THAT THE DIFFERENCE BETWEEN CURRENT TIME
057956,000990: # AND THE STATE VECTOR TIME AT THE END OF THE LAST STEP IS AT LEAST 5.6
057957,000991: # SECS.
057958,000992: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
057959,000993: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
057960,000994:
057961,000995: 13,2000 SETLOC INTINIT
057962,000996: 13,2000 BANK
057963,000997: 13,3543 1127 EBANK= IRETURN1
057964,000998: 13,3543 45020 MIDTOAV2 STQ CALL
057965,000999: 13,3544 01127 IRETURN1
057966,001000: 13,3545 27442 INTSTALL
057967,001001: 13,3546 43145 DLOAD CLEAR
057968,001002: 13,3547 27711 TIMEDELT
057969,001003: 13,3550 04674 MID1FLAG
057970,001004: 13,3551 37732 STCALL T-TO-ADD
057971,001005: 13,3552 27567 ENTMID2
057972,001006:
057973,001007: 13,3553 45020 MIDTOAV1 STQ CALL
057974,001008: 13,3554 01127 IRETURN1
057975,001009: 13,3555 27442 INTSTALL
057976,001010: 13,3556 47014 SET RTB
057977,001011: 13,3557 04474 MID1FLAG
057978,001012: 13,3560 45510 LOADTIME
057979,001013: 13,3561 44215 DAD BDSU # INITIAL CHECK, IS TDEC1 IN THE FUTURE.
057980,001014: 13,3562 27711 TIMEDELT
057981,001015: 13,3563 00041 TDEC1
057982,001016: 13,3564 45044 BPL CALL
057983,001017: 13,3565 27573 ENTMID1
|
|
Page 1330 |
057985,001019: 13,3566 27674 NOTIME # NO SET ALARM.SWITCH TO MIDTOAV2
057986,001020:
057987,001021: 13,3567 43234 ENTMID2 RTB DAD
057988,001022: 13,3570 45510 LOADTIME
057989,001023: 13,3571 03732 T-TO-ADD
057990,001024: 13,3572 00041 STORE TDEC1
057991,001025:
057992,001026: 13,3573 45014 ENTMID1 CLEAR CALL
057993,001027: 13,3574 01676 DIM0FLAG # NO W-MATRIX
057994,001028: 13,3575 26034 THISVINT
057995,001029: 13,3576 43014 CLEAR SET
057996,001030: 13,3577 01673 INTYPFLG
057997,001031: 13,3600 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
057998,001032: 13,3601 77624 CALL
057999,001033: 13,3602 27162 INTEGRV # GO INTEGRATE
058000,001034: 13,3603 66134 SXA,2 SXA,1
058001,001035: 13,3604 03746 RTX2
058002,001036: 13,3605 03745 RTX1
058003,001037: 13,3606 67214 CLEAR SLOAD
058004,001038: 13,3607 00275 AMOONFLG
058005,001039: 13,3610 03747 RTX2
058006,001040: 13,3611 43054 BZE SET
058007,001041: 13,3612 27614 +2
058008,001042: 13,3613 00075 AMOONFLG
058009,001043: 13,3614 77775 VLOAD
058010,001044: 13,3615 00001 RATT
058011,001045: 13,3616 25232 STOVL RN1
058012,001046: 13,3617 00007 VATT
058013,001047: 13,3620 15240 STODL VN1
058014,001048: 13,3621 00015 TAT
058015,001049: 13,3622 01246 STORE PIPTIME1
058016,001050: 13,3623 77776 EXIT
058017,001051:
058018,001052: 13,3624 00004 INHINT
058019,001053: 13,3625 00006 EXTEND
058020,001054: 13,3626 40025 DCS TIME2
058021,001055: 13,3627 20155 DAS MPAC
058022,001056: 13,3630 07226 TC TPAGREE
058023,001057:
058024,001058: 13,3631 31127 CA IRETURN1
058025,001059: 13,3632 04704 TC BANKJUMP
058026,001060: 13,3633 47014 CKMID2 BOF RTB
058027,001061: 13,3634 04754 MID1FLAG
058028,001062: 13,3635 27652 MID2
058029,001063: 13,3636 45510 LOADTIME
058030,001064: 13,3637 44215 DAD BDSU
058031,001065: 13,3640 27711 TIMEDELT
058032,001066: 13,3641 01101 TDEC
058033,001067: 13,3642 45044 BPL CALL
058034,001068: 13,3643 27305 TESTLOOP # YES
|
|
Page 1331 |
058036,001070: 13,3644 27674 NOTIME
058037,001071:
058038,001072: 13,3645 43234 TIMEINC RTB DAD
058039,001073: 13,3646 45510 LOADTIME
058040,001074: 13,3647 03732 T-TO-ADD
058041,001075: 13,3650 35101 STCALL TDEC
058042,001076: 13,3651 27305 TESTLOOP
058043,001077:
058044,001078: 13,3652 45345 MID2 DLOAD DSU
058045,001079: 13,3653 01101 TDEC
058046,001080: 13,3654 01517 TET
058047,001081: 13,3655 45246 ABS DSU
058048,001082: 13,3656 27707 3CSECS
058049,001083: 13,3657 77644 BPL
058050,001084: 13,3660 27645 TIMEINC
058051,001085:
058052,001086: 13,3661 44234 RTB BDSU # SEE IF 5.6 SECS. AVAILABLE TO CALLER.
058053,001087: 13,3662 45510 LOADTIME
058054,001088: 13,3663 01517 TET
058055,001089: 13,3664 51025 DSU BPL
058056,001090: 13,3665 27713 5.6SECS
058057,001091: 13,3666 27176 A-PCHK # YES,GET OUT.
058058,001092:
058059,001093: 13,3667 43345 DLOAD DAD # NO,ADD TIMEDELT TO T-TO-ADD AND TRY
058060,001094: 13,3670 03732 T-TO-ADD # AGAIN.
058061,001095: 13,3671 27711 TIMEDELT
058062,001096: 13,3672 37732 STCALL T-TO-ADD
058063,001097: 13,3673 27645 TIMEINC
058064,001098: 13,3674 77414 NOTIME CLEAR EXIT # TOO LATE
058065,001099: 13,3675 04674 MID1FLAG
058066,001100: 13,3676 25127 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
058067,001101: 13,3677 05650 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
058068,001102: 13,3700 01703 OCT 1703 # TIG WILL BE SLIPPED...
058069,001103: 13,3701 06006 TC INTPRET
058070,001104: 13,3702 77745 DLOAD
058071,001105: 13,3703 27711 TIMEDELT
058072,001106: 13,3704 03732 STORE T-TO-ADD
058073,001107: 13,3705 77616 RVQ
058074,001108:
058075,001109: 13,3706 00000 00003 3CSECS 2DEC 3 B-28
058076,001110:
058077,001111: 13,3710 00000 02342 TIMEDELT 2DEC 1250 B-28
058078,001112:
058079,001113: 13,3712 00000 01060 5.6SECS 2DEC 560 B-28
058080,001114:
058081,001115: 27,2671 BANK 27
058082,001116: 27,2000 SETLOC UPDATE2
058083,001117: 27,2000 BANK
058084,001118: 27,2671 0330 EBANK= INTWAKUQ
058085,001119:
|
|
Page 1332 |
058087,001121: 27,2671 COUNT* $$/INTIN
058088,001122:
058089,001123: 27,2671 0330 INTWAKUQ = INTWAK1Q # TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
058090,001124:
058091,001125: 27,2671 00003 INTWAKEU RELINT
058092,001126: 27,2672 00006 EXTEND
058093,001127: 27,2673 22330 QXCH INTWAKUQ # SAVE Q FOR RETURN
058094,001128:
058095,001129: 27,2674 06006 TC INTPRET
058096,001130:
058097,001131: 27,2675 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
058098,001132: 27,2676 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
058099,001133: 27,2677 56736 INTWAKUP
058100,001134:
058101,001135: 27,2700 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
058102,001136: 27,2701 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
058103,001137: 27,2702 25535 STOVL RCV
058104,001138: 27,2703 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
058105,001139: 27,2704 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
058106,001140: 27,2705 23436 RECTIFY +13D # TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
058107,001141: 27,2706 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
058108,001142: 27,2707 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
058109,001143: 27,2710 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
058110,001144: 27,2711 16747 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
058111,001145: 27,2712 56717 INTWAKEM # SPHERE OF INFLUENCE.........
058112,001146: 27,2713 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
058113,001147: 27,2714 00000 DEC 0 B-14
058114,001148: 27,2715 00223 MOONFLAG
058115,001149: 27,2716 56722 INTWAKEC
058116,001150: 27,2717 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
058117,001151: 27,2720 00002 DEC 2 B-14
058118,001152: 27,2721 00063 MOONFLAG
058119,001153: 27,2722 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
058120,001154: # MOONFLAG SET (OR CLEARED).
058121,001155: 27,2723 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
058122,001156: 27,2724 56732 INTWAKLM # STATE VECTOR UPDATE......
058123,001157: 27,2725 77624 CALL # UPDATE CSM STATE VECTOR
058124,001158: 27,2726 26705 ATOPCSM
058125,001159:
058126,001160: 27,2727 52014 CLEAR GOTO
058127,001161: 27,2730 01671 ORBWFLAG
058128,001162: 27,2731 56734 INTWAKEX
058129,001163:
058130,001164: 27,2732 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
058131,001165: 27,2733 26760 ATOPLEM
058132,001166:
058133,001167: 27,2734 77614 INTWAKEX CLEAR
058134,001168: 27,2735 02676 RENDWFLG
058135,001169:
058136,001170: 27,2736 45131 INTWAKUP SSP CALL # REMOVE :UPDATE STATE VECTOR INDICATOR:
|
|
Page 1333 |
058138,001172: 27,2737 01502 UPSVFLAG
058139,001173: 27,2740 00000 0
058140,001174: 27,2741 27455 INTWAKE0 # RELEASE :GRAB: OF ORBIT INTEG
058141,001175: 27,2742 77776 EXIT
058142,001176:
058143,001177: 27,2743 05412 TC PHASCHNG
058144,001178: 27,2744 04026 OCT 04026
058145,001179: 27,2745 00330 TC INTWAKUQ
058146,001180:
058147,001181: 27,2746 00002 UPMNSVCD OCT 2
058148,001182: 27,2747 00000 OCT 0
058149,001183:
058150,001184: 27,2750 77420 GRP2PC STQ EXIT
058151,001185: 27,2751 03536 GRP2SVQ
058152,001186: 27,2752 05412 TC PHASCHNG
058153,001187: 27,2753 04022 OCT 04022
058154,001188: 27,2754 06006 TC INTPRET
058155,001189: 27,2755 77650 GOTO
058156,001190: 27,2756 03536 GRP2SVQ
058157,001191:
058158,001192:
058159,001193:
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc