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