Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
054652,000002: ## Copyright: Public domain.
054653,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
054654,000004: ## Purpose: A section of Comanche revision 072.
054655,000005: ## It is part of the reconstructed source code for the first
054656,000006: ## release of the software for the Command Module's (CM) Apollo
054657,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
054658,000008: ## of this program are available; instead, this file was recreated
054659,000009: ## from a printout of Comanche 055, binary dumps of a set of
054660,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
054661,000011: ## and 072. It has been adapted such that the resulting bugger words
054662,000012: ## exactly match those specified for Comanche 072 in NASA drawing
054663,000013: ## 2021153G, which gives relatively high confidence that the
054664,000014: ## reconstruction is correct.
054665,000015: ## Assembler: yaYUL
054666,000016: ## Contact: Ron Burkey <info@sandroid.org>.
054667,000017: ## Website: www.ibiblio.org/apollo/index.html
054668,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
054669,000019: ## 2024-05-14 MAS Implemented fix for COM-21, "Backwards
054670,000020: ## integration can occur in P27 uplink".
054671,000021:
054672,000022: # 1.0 INTRODUCTION
054673,000023: # ----------------
054674,000024:
054675,000025: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
054676,000026: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
054677,000027: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
054678,000028: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
054679,000029: # SIDE THE LUNAR SPHERE OF INFLUENCE.
054680,000030:
054681,000031: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
054682,000032: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
054683,000033: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
054684,000034: # CALL TC INTSTALL.
054685,000035:
054686,000036: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
054687,000037: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
054688,000038: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
054689,000039: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
054690,000040: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
054691,000041:
054692,000042: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
054693,000043: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
054694,000044: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
054695,000045: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
054696,000046:
054697,000047: # 2.0 GENERAL DESCRIPTION
054698,000048: # -----------------------
054699,000049:
054700,000050: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS ---
054701,000051: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
054702,000052: # 2) INTEGRATES THE W-MATRIX
054703,000053: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
054704,000054:
054705,000055: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
054706,000056: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
054707,000057: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
054708,000058: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
054709,000059: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
054710,000060: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
054711,000061: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
054712,000062: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
054713,000063: # AND/OR STATE VECTOR.
054714,000064:
054715,000065: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
054716,000066: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
054717,000067: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
054718,000068:
054719,000069: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
054720,000070: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
054721,000071: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
054722,000072:
054723,000073: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
054724,000074:
054725,000075: # 2.1 RESTARTS
054726,000076:
054727,000077: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
054728,000078: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
054729,000079: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
054730,000080: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
054731,000081: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
054732,000082: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
054733,000083: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
054734,000084:
054735,000085: # 2.2 SCALING
054736,000086:
054737,000087: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
054738,000088: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
054739,000089: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
054740,000090: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
054741,000091: # DIFFERENT SCALING.
054742,000092: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
054743,000093:
054744,000094: # 3.0 INPUT/OUTPUT
054745,000095: # ----------------
054746,000096:
054747,000097: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
054748,000098: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
054749,000099: # FOR INTEGRVS, THE RCV,VCV,TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
054750,000100:
054751,000101: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
054752,000102: # EARTH MOON
054753,000103: # 29 27
054754,000104: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
054755,000105:
054756,000106: # 7 5
054757,000107: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
054758,000108:
054759,000109: # 28 28
054760,000110: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
054761,000111: # CUSTOMARILY 0, BUT NOTE LUNAR
054762,000112: # ORBIT DEPENDENCE ON REAL TIME.
054763,000113:
054764,000114: # 22 18
054765,000115: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
054766,000116: # 0 IF TCCSM(LEM) = 0
054767,000117:
054768,000118: # 3 -1
054769,000119: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
054770,000120: # 0 IF TCCSM(LEM) = 0
054771,000121: # 29 27
054772,000122: # RCVCSM(LEM) - CONIC POSITION METERS 2 2
054773,000123: # EQUALS RRECTCSM(LEM) IF
054774,000124: # TCCSM(LEM) = 0
054775,000125:
054776,000126: # 7 5
054777,000127: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
054778,000128: # EQUALS VRECTCSM(LEM) IF
054779,000129: # TCCSM(LEM) = 0
054780,000130:
054781,000131: # 28 28
054782,000132: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
054783,000133: # CUSTOMARILY 0
054784,000134:
054785,000135: # 1/2 17 16
054786,000136: # XKEPCSM(LEM) - ROOT OF KEPLERS EQUATION M 2 2
054787,000137: # 0 IF TCCSM(LEM) = 0
054788,000138:
054789,000139: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
054790,000140: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
054791,000141: # LMOONFLG C = CSM, L = LM 0 0
054792,000142: # LMIDFLG 0,1 0,1
054793,000143:
054794,000144: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
054795,000145:
054796,000146: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
054797,000147: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
054798,000148: # ROUTINE MUST BE PRESET.
054799,000149:
054800,000150: # OUTPUT
054801,000151: # AFTER EVERY CALL TO INTEGRATION
054802,000152: # EARTH MOON
054803,000153: # 29 29
054804,000154: # 0D RATT POSITION METERS 2 2
054805,000155:
054806,000156: # 7 7
054807,000157: # 6D VATT VELOCITY M/CSEC 2 2
054808,000158:
054809,000159: # 28 28
054810,000160: # 12D TAT TIME 2 2
054811,000161:
054812,000162: # 29 27
054813,000163: # 14D RATT1 POSITION METERS 2 2
054814,000164:
054815,000165: # 7 5
054816,000166: # 20D VATT1 VELOCITY M/CSEC 2 2
054817,000167:
054818,000168: # 3 2 36 30
054819,000169: # 26D MU(P) MU M /CS 2 2
054820,000170:
054821,000171: # X1 MUTABLE ENTRY -2 -10D
054822,000172:
054823,000173: # X2 COORDINT
054824,000174: # X2 COORDINATE SYSTEM ORIGEN 0 2
054825,000175: # (THIS, NOT MOONFLAG, SHOULD BE
054826,000176: # USED TO DETERMINE ORIGIN.)
054827,000177:
054828,000178: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
054829,000179: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
054830,000180: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
054831,000181: # CALLING PROGRAM.
054832,000182:
054833,000183: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
054834,000184: # -------------------------------------
054835,000185:
054836,000186: # A) PRECISION ORBITAL INTEGRATION. CSMPREC, LEMPREC ENTRANCES
054837,000187: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
054838,000188: # L CALL
054839,000189: # L+1 CSMPREC (OR LEMPREC)
054840,000190: # L+2 RETURN
054841,000191: # INPUT 28
054842,000192: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
054843,000193: # OUTPUT
054844,000194: # THE DATA LISTED IN SECTION 3.0 PLUS
054845,000195: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
054846,000196: # BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
054847,000197: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
054848,000198: # L-X STORE TIME IN PUSH LIST (TDEC1)
054849,000199: # L CALL
054850,000200: # L+1 CSMCONIC (OR LEMCONIC)
054851,000201: # INPUT/OUTPUT
054852,000202: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
054853,000203: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
054854,000204: # CALL
054855,000205: # INTSTALL
054856,000206: # VLOAD
054857,000207: # POSITION VECTOR
054858,000208: # STOVL RCV
054859,000209: # VELOCITY VECTOR
054860,000210: # STODL VCV
054861,000211: # TIME STATE VECTOR VALID
054862,000212: # STODL TET
054863,000213: # FINAL RADIUS
054864,000214: # STORE RFINAL
054865,000215: # SET(CLEAR) SET(CLEAR)
054866,000216: # INTYPFLAG
054867,000217: # MOONFLAG
054868,000218: # SET(CLEAR) DLOAD
054869,000219: # DESIRED TIME
054870,000220: # STCALL TDEC1
054871,000221: # INTEGRVS
054872,000222: # INPUT
054873,000223: # RCV POSITION VECTOR METERS
054874,000224: # VCV VELOCITY VECTOR M/CSEC
054875,000225: # TET TIME OF STATE VECTOR (MAY = 0) CSEC B-28
054876,000226: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
054877,000227: # (MAY BE INCREMENT IF TET=0)
054878,000228: # OUTPUT
054879,000229: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
054880,000230: # DEPENDING ON INTYPFLG.
054881,000231: # D) INTEGRATE STATE VECTOR. INTGRV ENTRANCE
054882,000232: # L-X STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
054883,000233: # L-8 CALL
054884,000234: # L-7
054885,000235: # L-6 SET(CLEAR) SET(CLEAR)
054886,000236: # L-5 VINTFLAG 1=CSM, 0=LM
054887,000237: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
054888,000238: # L-3 SET(CLEAR) SET(CLEAR)
054889,000239: # L-2 DIMOFLAG 1=W-MATRIX, 0=NO W-MATRIX
054890,000240: # L-1 D6OR9FLG 1=9X9, 0=6X6
054891,000241: # L SET DLOAD
054892,000242: # L+1 STATEFLG DESIRE PERMANENT UPDATE
054893,000243: # L+2 FINAL RAD. OF STATE VECTOR
054894,000244: # L+3 STCALL RFINAL
054895,000245: # L+4 INTEGRV
054896,000246: # L CALL NORMAL USE -- WILL UPDATE STATE
054897,000247: # L+1 INTEGRV VECTOR IF DIMOFLAG=1. (STATEFLG IS
054898,000248: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
054899,000249: # IT IS USED.)
054900,000250: # INPUT
054901,000251: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
054902,000252: # OUTPUT
054903,000253: # SAME AS FOR PRECISION OR CONIC INTEGRATION
054904,000254: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
054905,000255: # THE PERMANENT STATE VECTOR REPRESENTATION.
054906,000256:
054907,000257: 11,2312 BANK 11
054908,000258: 13,2000 SETLOC INTINIT
054909,000259: 13,2000 BANK
054910,000260: 13,2635 E3,1554 EBANK= RRECTCSM
054911,000261: 13,2635 COUNT 13/INTIN
054912,000262:
054913,000263: 13,2635 05426 STATEINT TC PHASCHNG
054914,000264: 13,2636 00052 OCT 00052
054915,000265: 13,2637 35075 CAF PRIO5
054916,000266: 13,2640 05163 TC FINDVAC
054917,000267: 13,2641 E3,1554 EBANK= RRECTCSM
054918,000268: 13,2641 02644 26063 2CADR STATINT1
054919,000269:
054920,000270: 13,2643 05340 TC TASKOVER
054921,000271: 13,2644 06006 STATINT1 TC INTPRET
054922,000272: 13,2645 47014 BON RTB
054923,000273: 13,2646 04712 QUITFLAG
054924,000274: 13,2647 26706 NOINT # NO STATEINT IF V96
054925,000275: 13,2650 45510 LOADTIME
054926,000276: 13,2651 00041 STORE TDEC1
054927,000277: 13,2652 45014 CLEAR CALL
054928,000278: 13,2653 04274 V96ONFLG
054929,000279: 13,2654 27446 INTSTALL
054930,000280: 13,2655 45014 SET CALL
054931,000281: 13,2656 01076 NODOFLAG
054932,000282: 13,2657 26677 SETIFLGS
|
|
Reconstruction: The setting of POOFLAG here was added as part
of the fix for anomaly COM-21, "Backwards integration can occur in
P27 uplink".
|
054936,000286: 13,2660 52014 SET GOTO # INHIBIT BACKWARDS INTEGRATION
054937,000287: 13,2661 01466 POOFLAG
054938,000288: 13,2662 26000 STATEUP
054939,000289: 13,2663 00003 25140 600SECS 2DEC 60000 B-28
054940,000290:
054941,000291: 13,2665 77414 ENDINT CLEAR EXIT
054942,000292: 13,2666 01672 STATEFLG
054943,000293: 13,2667 05426 TC PHASCHNG
054944,000294: 13,2670 20032 OCT 20032
054945,000295: 13,2671 00006 EXTEND
054946,000296: 13,2672 32664 DCA 600SECS
054947,000297: 13,2673 05356 TC LONGCALL
054948,000298: 13,2674 E3,1554 EBANK= RRECTHIS
054949,000299: 13,2674 02635 26063 2CADR STATEINT
054950,000300:
054951,000301: 13,2676 05233 TC ENDOFJOB
054952,000302: 13,2677 43014 SETIFLGS SET CLEAR
054953,000303: 13,2700 01472 STATEFLG
054954,000304: 13,2701 01673 INTYPFLG
054955,000305: 13,2702 43014 CLEAR CLEAR
054956,000306: 13,2703 01676 DIM0FLAG
054957,000307: 13,2704 01675 D6OR9FLG
054958,000308: 13,2705 77616 RVQ
054959,000309: 13,2706 77776 NOINT EXIT
054960,000310: 13,2707 05426 TC PHASCHNG
054961,000311: 13,2710 00002 OCT 2
054962,000312:
054963,000313: 13,2711 05574 TC DOWNFLAG
054964,000314: 13,2712 00221 ADRES QUITFLAG
054965,000315:
054966,000316: 13,2713 05233 TC ENDOFJOB
054967,000317:
054968,000318: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
054969,000319:
054970,000320: # CALLING SEQUENCE
054971,000321: # L CALL
054972,000322: # L+1 ATOPCSM
054973,000323:
054974,000324: # NORMAL EXIT AT L+2
054975,000325:
054976,000326: 13,2714 47020 ATOPCSM STQ RTB
054977,000327: 13,2715 00051 S2
054978,000328: 13,2716 26727 MOVEACSM
054979,000329: 13,2717 45014 SET CALL
054980,000330: 13,2720 04063 CMOONFLG
054981,000331: 13,2721 20237 SVDWN1
054982,000332: 13,2722 43014 BON CLRGO
054983,000333: 13,2723 00303 MOONFLAG
054984,000334: 13,2724 00051 S2
054985,000335: 13,2725 04223 CMOONFLG
054986,000336: 13,2726 00051 S2
054987,000337: 13,2727 03073 MOVEACSM TC SETBANK
054988,000338: 13,2730 55500 TS DIFEQCNT # INITIALIZE INDEX
054989,000339: 13,2731 51500 INDEX DIFEQCNT
054990,000340: 13,2732 31502 CA RRECT
054991,000341: 13,2733 51500 INDEX DIFEQCNT
054992,000342: 13,2734 55554 TS RRECTCSM
054993,000343: 13,2735 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
054994,000344: 13,2736 12730 TCF MOVEACSM +1 # NO-LOOP
054995,000345: 13,2737 06030 TC DANZIG # COMPLETE - RETURN
054996,000346:
054997,000347: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
054998,000348:
054999,000349: # CALLING SEQUENCE
055000,000350: # L CALL
055001,000351: # PTOACSM
055002,000352:
055003,000353: # NORMAL EXIT AT L+2
055004,000354:
055005,000355: 13,2740 43034 PTOACSM RTB BON
055006,000356: 13,2741 26756 MOVEPCSM
055007,000357: 13,2742 04303 CMOONFLG
055008,000358: 13,2743 26751 SETMOON
055009,000359: 13,2744 66214 CLRMOON CLEAR SSP
055010,000360: 13,2745 00263 MOONFLAG
055011,000361: 13,2746 02151 PBODY
055012,000362: 13,2747 00000 0
055013,000363: 13,2750 77616 RVQ
055014,000364: 13,2751 66214 SETMOON SET SSP
055015,000365: 13,2752 00063 MOONFLAG
055016,000366: 13,2753 02151 PBODY
055017,000367: 13,2754 00002 2
055018,000368: 13,2755 77616 RVQ
055019,000369: 13,2756 03073 MOVEPCSM TC SETBANK
055020,000370: 13,2757 55500 TS DIFEQCNT
055021,000371: 13,2760 51500 INDEX DIFEQCNT
055022,000372: 13,2761 31554 CA RRECTCSM
055023,000373: 13,2762 51500 INDEX DIFEQCNT
055024,000374: 13,2763 55502 TS RRECT
055025,000375: 13,2764 11500 CCS DIFEQCNT
055026,000376: 13,2765 12757 TCF MOVEPCSM +1
055027,000377: 13,2766 06030 TC DANZIG
055028,000378:
055029,000379: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
055030,000380: 13,2767 47020 ATOPLEM STQ RTB
055031,000381: 13,2770 00051 S2
055032,000382: 13,2771 27002 MOVEALEM
055033,000383: 13,2772 45014 SET CALL
055034,000384: 13,2773 04064 LMOONFLG
055035,000385: 13,2774 20263 SVDWN2
055036,000386: 13,2775 43014 BON CLRGO
055037,000387: 13,2776 00303 MOONFLAG
055038,000388: 13,2777 00051 S2
055039,000389: 13,3000 04224 LMOONFLG
055040,000390: 13,3001 00051 S2
055041,000391: 13,3002 03073 MOVEALEM TC SETBANK
055042,000392: 13,3003 55500 TS DIFEQCNT
055043,000393: 13,3004 51500 INDEX DIFEQCNT
055044,000394: 13,3005 31502 CA RRECT
055045,000395: 13,3006 51500 INDEX DIFEQCNT
055046,000396: 13,3007 55626 TS RRECTLEM
055047,000397: 13,3010 11500 CCS DIFEQCNT
055048,000398: 13,3011 13003 TCF MOVEALEM +1
055049,000399: 13,3012 06030 TC DANZIG
055050,000400:
055051,000401: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
055052,000402:
055053,000403: 13,3013 47014 PTOALEM BON RTB
055054,000404: 13,3014 04307 SURFFLAG
055055,000405: 13,3015 27034 USEPIOS
055056,000406: 13,3016 27023 MOVEPLEM
055057,000407: 13,3017 52014 BON GOTO
055058,000408: 13,3020 04304 LMOONFLG
055059,000409: 13,3021 26751 SETMOON
055060,000410: 13,3022 26744 CLRMOON
055061,000411: 13,3023 03073 MOVEPLEM TC SETBANK
055062,000412: 13,3024 55500 TS DIFEQCNT
055063,000413: 13,3025 51500 INDEX DIFEQCNT
055064,000414: 13,3026 31626 CA RRECTLEM
055065,000415: 13,3027 51500 INDEX DIFEQCNT
055066,000416: 13,3030 55502 TS RRECT
055067,000417: 13,3031 11500 CCS DIFEQCNT
055068,000418: 13,3032 13024 TCF MOVEPLEM +1
055069,000419: 13,3033 06030 TC DANZIG
055070,000420:
055071,000421: 13,3034 77201 USEPIOS SETPD VLOAD
055072,000422: 13,3035 00001 0
055073,000423: 13,3036 02026 RLS
055074,000424: 13,3037 41525 PDDL PUSH
055075,000425: 13,3040 00041 TDEC1
055076,000426: 13,3041 15517 STODL TET
055077,000427: 13,3042 27757 5/8
055078,000428: 13,3043 77624 CALL
055079,000429: 13,3044 55343 RP-TO-R
055080,000430: 13,3045 25535 STOVL RCV
055081,000431: 13,3046 11560 ZUNIT
055082,000432: 13,3047 14001 STODL 0D
055083,000433: 13,3050 01517 TET
055084,000434: 13,3051 14007 STODL 6D
055085,000435: 13,3052 27757 5/8
055086,000436: 13,3053 45014 SET CALL # NEEDED FOR SETTING X1 ON EXIT
055087,000437: 13,3054 00063 MOONFLAG
055088,000438: 13,3055 55343 RP-TO-R
055089,000439: 13,3056 74235 VXV VXSC
055090,000440: 13,3057 01535 RCV
055091,000441: 13,3060 27072 OMEGMOON
055092,000442: 13,3061 25543 STOVL VCV
055093,000443: 13,3062 11566 ZEROVEC
055094,000444: 13,3063 01521 STORE TDELTAV
055095,000445: 13,3064 67174 AXT,2 SXA,2
055096,000446: 13,3065 00002 2
055097,000447: 13,3066 02150 PBODY
055098,000448: 13,3067 35527 STCALL TNUV
055099,000449: 13,3070 27205 A-PCHK
055100,000450: 13,3071 07112 06620 OMEGMOON 2DEC* 2.66169947 E-8 B+23*
055101,000451:
055102,000452: 13,3073 33077 SETBANK CAF INTBANK
055103,000453: 13,3074 54006 TS BBANK
055104,000454: 13,3075 33513 CAF FORTYONE
055105,000455: 13,3076 00002 TC Q
055106,000456: 13,3077 E3,1554 EBANK= RRECTCSM
055107,000457: 13,3077 26063 INTBANK BBCON INTEGRV
055108,000458:
055109,000459: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
055110,000460: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
055111,000461:
055112,000462: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
055113,000463: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
055114,000464: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
055115,000465: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
055116,000466: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
055117,000467: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
055118,000468:
055119,000469: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
055120,000470: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
055121,000471: # CSMPREC CSMCONIC LEMPREC LEMCONIC
055122,000472: # VINTFLAG SET SET CLEAR CLEAR
055123,000473: # INTYPFLG CLEAR SET CLEAR SET
055124,000474: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
055125,000475:
055126,000476: # CALLING SEQUENCE
055127,000477: # L-X STORE TDEC1
055128,000478: # L CALL (STCALL TDEC1)
055129,000479: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
055130,000480:
055131,000481: # NORMAL EXIT TO L+2
055132,000482:
055133,000483: # SUBROUTINES CALLED
055134,000484: # INTEGRV1
055135,000485: # PRECOUT FOR CSMPREC AND LEMPREC
055136,000486: # CONICOUT FOR CSMCONIC AND LEMCONIC
055137,000487:
055138,000488: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
055139,000489:
055140,000490: # INPUT
055141,000491: # TDEC1 TIME TO INTEGRATE TO. CSECS B-28
055142,000492:
055143,000493: 13,3100 45020 CSMPREC STQ CALL
055144,000494: 13,3101 00046 X1
055145,000495: 13,3102 27446 INTSTALL
055146,000496: 13,3103 43130 SXA,1 SET
055147,000497: 13,3104 02214 IRETURN
055148,000498: 13,3105 01474 VINTFLAG
055149,000499:
055150,000500: 13,3106 43014 IFLAGP SET CLEAR
055151,000501: 13,3107 01467 PRECIFLG
055152,000502: 13,3110 01676 DIM0FLAG
055153,000503: 13,3111 77614 CLRGO
055154,000504: 13,3112 01633 INTYPFLG
055155,000505: 13,3113 27173 INTEGRV1
055156,000506: 13,3114 45020 LEMPREC STQ CALL
055157,000507: 13,3115 00046 X1
055158,000508: 13,3116 27446 INTSTALL
055159,000509: 13,3117 43130 SXA,1 CLRGO
055160,000510: 13,3120 02214 IRETURN
055161,000511: 13,3121 01634 VINTFLAG
055162,000512: 13,3122 27106 IFLAGP
055163,000513:
055164,000514: 13,3123 45020 CSMCONIC STQ CALL
055165,000515: 13,3124 00046 X1
055166,000516: 13,3125 27446 INTSTALL
055167,000517: 13,3126 43130 SXA,1 SET
055168,000518: 13,3127 02214 IRETURN
055169,000519: 13,3130 01474 VINTFLAG
055170,000520: 13,3131 43014 IFLAGC CLEAR SETGO
055171,000521: 13,3132 01676 DIM0FLAG
055172,000522: 13,3133 01433 INTYPFLG
055173,000523: 13,3134 27173 INTEGRV1
055174,000524: 13,3135 45020 LEMCONIC STQ CALL
055175,000525: 13,3136 00046 X1
055176,000526: 13,3137 27446 INTSTALL
055177,000527: 13,3140 43130 SXA,1 CLRGO
055178,000528: 13,3141 02214 IRETURN
055179,000529: 13,3142 01634 VINTFLAG
055180,000530: 13,3143 27131 IFLAGC
055181,000531:
055182,000532: 13,3144 66214 INTEGRVS SET SSP
055183,000533: 13,3145 01467 PRECIFLG
055184,000534: 13,3146 02151 PBODY
055185,000535: 13,3147 00000 0
055186,000536: 13,3150 66214 BOF SSP
055187,000537: 13,3151 00343 MOONFLAG
055188,000538: 13,3152 27155 +3
055189,000539: 13,3153 02151 PBODY
055190,000540: 13,3154 00002 2
055191,000541: 13,3155 77220 STQ VLOAD
055192,000542: 13,3156 02214 IRETURN
055193,000543: 13,3157 11566 ZEROVEC
055194,000544: 13,3160 01521 STORE TDELTAV
055195,000545: 13,3161 35527 STCALL TNUV
055196,000546: 13,3162 23403 RECTIFY
055197,000547: 13,3163 43014 CLEAR SET
055198,000548: 13,3164 01676 DIM0FLAG
055199,000549: 13,3165 04062 NEWIFLG
055200,000550: 13,3166 77614 SETGO
055201,000551: 13,3167 04020 RPQFLAG
055202,000552: 13,3170 22312 ALOADED
055203,000553:
055204,000554: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
055205,000555: # NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS. THE ROUTINE
055206,000556: # IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
055207,000557: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
055208,000558: # PROGRAM FOR PRECISION OR CONIC
055209,000559:
055210,000560: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
055211,000561: # SETTING ANY FLAGS.
055212,000562:
055213,000563: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
055214,000564: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
055215,000565: # INTYPFLG
055216,000566: # DIM0FLAG
055217,000567: # D6OR9FLG
055218,000568:
055219,000569: # CALLING SEQUENCE
055220,000570: # L-X CALL
055221,000571: # L-Y INTSTALL
055222,000572: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
055223,000573: # AND DIM0FLAG IS CLEAR.
055224,000574: # L CALL
055225,000575: # L+1 INTEGRV
055226,000576:
055227,000577: # INITIALIZATION
055228,000578: # FLAGS AS ABOVE
055229,000579: # STORE TIME TO INTEGRATE TO IN TDEC1
055230,000580:
055231,000581: # OUTPUT
055232,000582: # RATT AS
055233,000583: # VATT DEFINED
055234,000584: # TAT BEFORE
055235,000585:
055236,000586: 13,3171 77620 INTEGRV STQ
055237,000587: 13,3172 02214 IRETURN
055238,000588: 13,3173 43014 INTEGRV1 SET SET
055239,000589: 13,3174 04060 RPQFLAG
055240,000590: 13,3175 04062 NEWIFLG
055241,000591: 13,3176 77731 INTEGRV2 SSP
055242,000592: 13,3177 00053 QPRET
055243,000593: 13,3200 22312 ALOADED
055244,000594: 13,3201 52014 BON GOTO
055245,000595: 13,3202 01714 VINTFLAG
055246,000596: 13,3203 26740 PTOACSM
055247,000597: 13,3204 27013 PTOALEM
055248,000598: 11,2000 SETLOC INTINIT1
055249,000599: 11,2000 BANK
055250,000600: 11,2312 77745 ALOADED DLOAD
055251,000601: 11,2313 00041 TDEC1
055252,000602: 11,2314 01101 STORE TDEC
055253,000603: 11,2315 52014 BOFF GOTO
055254,000604: 11,2316 01753 INTYPFLG
055255,000605: 11,2317 27314 TESTLOOP
055256,000606: 11,2320 27300 RVCON
055257,000607: 13,2000 SETLOC INTINIT
055258,000608: 13,2000 BANK
055259,000609: 13,3205 45014 A-PCHK BOF CALL
055260,000610: 13,3206 00342 MIDFLAG
055261,000611: 13,3207 27214 ANDOUT # DONT MAKE ORIGIN CHANGE CHECK
055262,000612: 13,3210 23302 CHKSWTCH
055263,000613: 13,3211 45044 BPL CALL
055264,000614: 13,3212 27214 ANDOUT # NO ORIGIN CHANGE
055265,000615: 13,3213 23343 ORIGCHNG # MAKE THE SWITCH
055266,000616: 13,3214 77414 ANDOUT BOFCLR EXIT
055267,000617: 13,3215 01652 STATEFLG
055268,000618: 13,3216 27235 RECTOUT
055269,000619: 13,3217 05426 TC PHASCHNG
055270,000620: 13,3220 04022 OCT 04022
055271,000621: 13,3221 05562 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
055272,000622: 13,3222 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
055273,000623: 13,3223 06006 TC INTPRET
055274,000624: 13,3224 77731 SSP
055275,000625: 13,3225 00053 QPRET
055276,000626: 13,3226 27233 PHEXIT
055277,000627: 13,3227 52014 BON GOTO
055278,000628: 13,3230 01714 VINTFLAG
055279,000629: 13,3231 26714 ATOPCSM
055280,000630: 13,3232 26767 ATOPLEM
055281,000631: 13,3233 77624 PHEXIT CALL
055282,000632: 13,3234 56751 GRP2PC
055283,000633: 13,3235 45001 RECTOUT SETPD CALL
055284,000634: 13,3236 00001 0
055285,000635: 13,3237 23403 RECTIFY
055286,000636: 13,3240 53775 VLOAD VSL*
055287,000637: 13,3241 01503 RRECT
055288,000638: 13,3242 57576 0,2
055289,000639: 13,3243 53715 PDVL VSL* # RATT TO PD0
055290,000640: 13,3244 01511 VRECT
055291,000641: 13,3245 57576 0,2
055292,000642: 13,3246 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
055293,000643: 13,3247 01517 TET
055294,000644: 13,3250 01503 RRECT
055295,000645: 13,3251 64715 PDVL PDDL*
055296,000646: 13,3252 01511 VRECT
055297,000647: 13,3253 50036 MUEARTH,2
055298,000648: 13,3254 76006 PUSH AXT,1
055299,000649: 13,3255 77765 DEC -10 B-14
055300,000650: 13,3256 76014 BON AXT,1
055301,000651: 13,3257 00303 MOONFLAG
055302,000652: 13,3260 27262 +2
055303,000653: 13,3261 77775 DEC -2 B-14
055304,000654: 13,3262 40001 INTEXIT SETPD BOV
055305,000655: 13,3263 00001 0
055306,000656: 13,3264 27265 +1
055307,000657: 13,3265 77614 CLEAR
055308,000658: 13,3266 04675 MIDAVFLG
055309,000659: 13,3267 43014 CLEAR CLEAR
055310,000660: 13,3270 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
055311,000661: 13,3271 01667 PRECIFLG
055312,000662: 13,3272 77535 SLOAD EXIT
055313,000663: 13,3273 02215 IRETURN
055314,000664: 13,3274 30154 CA MPAC
055315,000665: 13,3275 50120 INDEX FIXLOC
055316,000666: 13,3276 54052 TS QPRET
055317,000667: 13,3277 03463 TC INTWAKE
055318,000668:
055319,000669: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
055320,000670: # VELOCITY FOR THE INTERVAL (TET-TDEC)
055321,000671:
055322,000672: 13,3300 45345 RVCON DLOAD DSU
055323,000673: 13,3301 01101 TDEC
055324,000674: 13,3302 01517 TET
055325,000675: 13,3303 36312 STCALL TAU.
055326,000676: 13,3304 23403 RECTIFY
055327,000677: 13,3305 77624 CALL
055328,000678: 13,3306 22321 KEPPREP
055329,000679: 13,3307 43345 DLOAD DAD
055330,000680: 13,3310 01551 TC
055331,000681: 13,3311 01517 TET
055332,000682: 13,3312 35517 STCALL TET
055333,000683: 13,3313 27235 RECTOUT
055334,000684:
055335,000685: # TESTLOOP
055336,000686:
055337,000687: 13,3314 43014 TESTLOOP BOF CLRGO
055338,000688: 13,3315 04752 QUITFLAG
055339,000689: 13,3316 27321 +3
055340,000690: 13,3317 01632 STATEFLG
055341,000691: 13,3320 27262 INTEXIT # STOP INTEGRATION
055342,000692: 13,3321 73001 +3 SETPD LXA,2
055343,000693: 13,3322 00013 10D
055344,000694: 13,3323 02150 PBODY
055345,000695: 13,3324 51575 VLOAD ABVAL
055346,000696: 13,3325 01535 RCV
055347,000697: 13,3326 43006 PUSH CLEAR # RC TO 10D
055348,000698: 13,3327 00262 MIDFLAG
055349,000699: 13,3330 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
055350,000700: 13,3331 67212 RME,2
055351,000701: 13,3332 27335 +3
055352,000702: 13,3333 77614 SET
055353,000703: 13,3334 00062 MIDFLAG
055354,000704: 13,3335 41345 NORFINAL DLOAD DMP
055355,000705: 13,3336 00013 10D
055356,000706: 13,3337 00043 34D
055357,000707: 13,3340 55762 SR1R DDV*
055358,000708: 13,3341 50036 MUEARTH,2
055359,000709: 13,3342 41366 SQRT DMP
055360,000710: 13,3343 23734 .3D
055361,000711: 13,3344 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
055362,000712: 13,3345 54345 DLOAD SL
055363,000713: 13,3346 00155 MPAC
055364,000714: 13,3347 20220 15D # OF 128 CSECS.
055365,000715: 13,3350 40006 PUSH BOV
055366,000716: 13,3351 27376 MAXDT
055367,000717: 13,3352 50021 BDSU BMN
055368,000718: 13,3353 27445 DT/2MAX
055369,000719: 13,3354 27376 MAXDT
055370,000720: 13,3355 45345 DT/2COMP DLOAD DSU
055371,000721: 13,3356 01101 TDEC
055372,000722: 13,3357 01517 TET
055373,000723: 13,3360 54234 RTB SL
055374,000724: 13,3361 45544 SGNAGREE
055375,000725: 13,3362 20211 8D
055376,000726: 13,3363 02314 STORE DT/2 # B-19
055377,000727: 13,3364 51400 BOV ABS
055378,000728: 13,3365 27402 GETMAXDT
055379,000729: 13,3366 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
055380,000730: 13,3367 00015 12D
055381,000731: 13,3370 27406 P00HCHK
055382,000732: 13,3371 75345 USEMAXDT DLOAD SIGN
055383,000733: 13,3372 00015 12D
055384,000734: 13,3373 02314 DT/2
055385,000735: 13,3374 36314 STCALL DT/2
055386,000736: 13,3375 27406 P00HCHK
055387,000737: 13,3376 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
055388,000738: 13,3377 27445 DT/2MAX
055389,000739: 13,3400 77650 GOTO
055390,000740: 13,3401 27355 DT/2COMP
055391,000741: 13,3402 77634 GETMAXDT RTB
055392,000742: 13,3403 45712 SIGNMPAC
055393,000743: 13,3404 36314 STCALL DT/2
055394,000744: 13,3405 27371 USEMAXDT
055395,000745: 13,3406 51545 P00HCHK DLOAD ABS
055396,000746: 13,3407 02314 DT/2
055397,000747: 13,3410 50025 DSU BMN
055398,000748: 13,3411 27443 DT/2MIN
055399,000749: 13,3412 27205 A-PCHK
|
|
Reconstruction: Comanche 67 and earlier examine MODREG
here instead of checking POOFLAG. The change was made as part
of the fix for anomaly COM-21, "Backwards integration can occur in
P27 uplink".
|
055404,000754: 13,3413 43014 BOFF BON
055405,000755: 13,3414 01746 POOFLAG # IS BACKWARDS INTEGRATION INHIBITED
055406,000756: 13,3415 23222 TIMESTEP # NO
055407,000757: 13,3416 01707 PRECIFLG # WAS THIS CALL VIA CSM(LEM)PREC
055408,000758: 13,3417 23222 TIMESTEP # YES
055409,000759: 13,3420 45345 DLOAD DSU
055410,000760: 13,3421 02314 DT/2
055411,000761: 13,3422 00015 12D
055412,000762: 13,3423 43040 BMN BOFCLR
055413,000763: 13,3424 27205 A-PCHK
055414,000764: 13,3425 04242 NEWIFLG
055415,000765: 13,3426 23222 TIMESTEP
055416,000766: 13,3427 45345 DLOAD DSU
055417,000767: 13,3430 01101 TDEC
055418,000768: 13,3431 01517 TET
055419,000769: 13,3432 77640 BMN # NO BACKWARD INTEGRATION
055420,000770: 13,3433 27262 INTEXIT
055421,000771: 13,3434 40525 PDDL SR4
055422,000772: 13,3435 02314 DT/2 # IS 4(DT) LS (TDEC - TET)
055423,000773: 13,3436 44322 SR2R BDSU # NO
055424,000774: 13,3437 52040 BMN GOTO
055425,000775: 13,3440 27262 INTEXIT
055426,000776: 13,3441 23222 TIMESTEP
055427,000777: 13,3442 00000 01400 DT/2MIN 2DEC 3 B-20
055428,000778:
055429,000779: 13,3444 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
055430,000780:
055431,000781: 13,3446 77776 INTSTALL EXIT
055432,000782: 13,3447 35035 CAF ZERO
055433,000783: 13,3450 54001 ALLSTALL TS L
055434,000784: 13,3451 30106 CA RASFLAG
055435,000785: 13,3452 50001 INDEX L
055436,000786: 13,3453 73544 MASK INTBITAB # IS THIS STALL AREA FREE
055437,000787: 13,3454 00006 EXTEND
055438,000788: 13,3455 13522 BZF OKTOGRAB # YES
055439,000789: 13,3456 50001 INDEX L
055440,000790: 13,3457 33541 CAF WAKESTAL
055441,000791: 13,3460 05211 TC JOBSLEEP
055442,000792: 13,3461 77776 INTWAKE0 EXIT
055443,000793: 13,3462 13503 TCF INTWAKE1
055444,000794:
055445,000795: 13,3463 40106 INTWAKE CS RASFLAG # IS THIS INTSTALLED ROUTINE TO BE
055446,000796: 13,3464 75025 MASK REINTBIT # RESTARTED
055447,000797: 13,3465 10000 CCS A
055448,000798: 13,3466 03503 TC INTWAKE1 # NO
055449,000799:
055450,000800: 13,3467 50120 INDEX FIXLOC
055451,000801: 13,3470 30052 CA QPRET
055452,000802: 13,3471 55055 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
055453,000803:
055454,000804: 13,3472 05426 TC PHASCHNG
055455,000805: 13,3473 04022 OCT 04022
055456,000806:
055457,000807: 13,3474 31055 CA TBASE2
055458,000808: 13,3475 50120 INDEX FIXLOC
055459,000809: 13,3476 54052 TS QPRET
055460,000810:
055461,000811: 13,3477 35025 CAF REINTBIT
055462,000812: 13,3500 70106 MASK RASFLAG
055463,000813: 13,3501 00006 EXTEND
055464,000814: 13,3502 13525 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
055465,000815:
055466,000816: 13,3503 35035 INTWAKE1 CAF ZERO
055467,000817: 13,3504 54154 WAKE TS STALTEM # INDEX OF ANY STALL USER
055468,000818: 13,3505 50154 WAKE1 INDEX STALTEM
055469,000819: 13,3506 33541 CAF WAKESTAL
055470,000820: 13,3507 00004 INHINT
055471,000821: 13,3510 05215 TC JOBWAKE
055472,000822: 13,3511 10064 CCS LOCCTR
055473,000823: 13,3512 13505 TCF WAKE1 # MAY BE MORE TO WAKE UP
055474,000824: 13,3513 00051 FORTYONE DEC 41 B-14
055475,000825: 13,3514 50154 INDEX STALTEM
055476,000826: 13,3515 43544 CS INTBITAB
055477,000827: 13,3516 70106 MASK RASFLAG
055478,000828: 13,3517 54106 TS RASFLAG # RELEASE STALL AREA
055479,000829: 13,3520 00003 RELINT
055480,000830: 13,3521 13525 TCF GOBAC
055481,000831: 13,3522 50001 OKTOGRAB INDEX L # NO, WAIT UNTIL AVAILABLE
055482,000832: 13,3523 35016 CAF INTFLBIT
055483,000833: 13,3524 26106 ADS RASFLAG
055484,000834: 13,3525 06006 GOBAC TC INTPRET
055485,000835: 13,3526 77616 RVQ
055486,000836: 13,3527 77776 ERASTAL1 EXIT
055487,000837: 13,3530 35033 CAF ONE
055488,000838: 13,3531 13450 TCF ALLSTALL
055489,000839: 13,3532 77776 ERASTAL2 EXIT
055490,000840: 13,3533 35032 CAF TWO
055491,000841: 13,3534 13450 TCF ALLSTALL
055492,000842: 13,3535 35033 ERASWAK1 CAF ONE
055493,000843: 13,3536 13504 TCF WAKE
055494,000844: 13,3537 35032 ERASWAK2 CAF TWO
055495,000845: 13,3540 13504 TCF WAKE
055496,000846: 13,3541 27447 WAKESTAL CADR INTSTALL +1
055497,000847: 13,3542 27530 CADR ERASTAL1 +1
055498,000848: 13,3543 27533 CADR ERASTAL2 +1
055499,000849: 13,3544 0154 STALTEM EQUALS MPAC
055500,000850: 13,3544 20100 INTBITAB OCT 20100
055501,000851: 13,3545 10040 OCT 10040
055502,000852: 13,3546 04020 OCT 04020
055503,000853:
055504,000854: # AVETOMID
055505,000855:
055506,000856: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
055507,000857: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
055508,000858: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
055509,000859:
055510,000860: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
055511,000861: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
055512,000862:
055513,000863: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
055514,000864:
055515,000865: # FINALLY TRKMKCNT IS ZEROED
055516,000866:
055517,000867: 35,2000 SETLOC INTINIT2
055518,000868: 35,2000 BANK
055519,000869:
055520,000870: 35,3675 COUNT* $$/INTIN
055521,000871: 35,3675 43020 AVETOMID STQ BON
055522,000872: 35,3676 02317 EGRESS
055523,000873: 35,3677 02716 RENDWFLG
055524,000874: 35,3700 73753 INT/W # W-MATRIX VALID, GO INTEGRATE IT
055525,000875: 35,3701 77614 BON
055526,000876: 35,3702 01711 ORBWFLAG
055527,000877: 35,3703 73753 INT/W # W-MATRIX VALID, GO INTEGRATE IT
055528,000878:
055529,000879: 35,3704 45174 SETCOAST AXT,2 CALL # NOW MOVE PROPERLY SCALED RN,VN AND
055530,000880: 35,3705 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
055531,000881: 35,3706 27446 INTSTALL
055532,000882: 35,3707 77014 BON AXT,2
055533,000883: 35,3710 00315 AMOONFLG
055534,000884: 35,3711 73713 +2
055535,000885: 35,3712 00000 0
055536,000886: 35,3713 53775 VLOAD VSR*
055537,000887: 35,3714 01171 RN
055538,000888: 35,3715 57176 0,2
055539,000889: 35,3716 01503 STORE RRECT
055540,000890: 35,3717 15535 STODL RCV
055541,000891: 35,3720 01205 PIPTIME
055542,000892: 35,3721 25517 STOVL TET
055543,000893: 35,3722 01177 VN
055544,000894: 35,3723 45057 VSR* CALL
055545,000895: 35,3724 57176 0,2
055546,000896: 35,3725 23417 MINIRECT # FINISH SETTING UP STATE VECTOR
055547,000897: 35,3726 66234 RTB SSP
055548,000898: 35,3727 26727 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
055549,000899: 35,3730 01127 TRKMKCNT
055550,000900: 35,3731 00000 0
055551,000901: 35,3732 43014 SET BON
055552,000902: 35,3733 04063 CMOONFLG
055553,000903: 35,3734 00315 AMOONFLG
055554,000904: 35,3735 73740 +3
055555,000905: 35,3736 77614 CLEAR
055556,000906: 35,3737 04263 CMOONFLG
055557,000907:
055558,000908: 35,3740 71214 BON DLOAD # NOW DO LM
055559,000909: 35,3741 04307 SURFFLAG
055560,000910: 35,3742 75755 FAZAB5 # NO COASTING LM
055561,000911: 35,3743 01205 PIPTIME
055562,000912: 35,3744 34041 STCALL TDEC1
055563,000913: 35,3745 26677 SETIFLGS
055564,000914: 35,3746 45014 CLEAR CALL
055565,000915: 35,3747 01674 VINTFLAG
055566,000916: 35,3750 27171 INTEGRV
055567,000917: 35,3751 77650 GOTO
055568,000918: 35,3752 02317 EGRESS
055569,000919: 35,3753 45145 INT/W DLOAD CALL
055570,000920: 35,3754 01205 PIPTIME # INTEGRATE W THRU BURN
055571,000921: 35,3755 27446 INTSTALL
055572,000922: 35,3756 43014 SET SET
055573,000923: 35,3757 01476 DIM0FLAG # DO W-MATRIX
055574,000924: 35,3760 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
055575,000925: 35,3761 43014 CLEAR SET
055576,000926: 35,3762 01675 D6OR9FLG
055577,000927: 35,3763 01474 VINTFLAG
055578,000928: 35,3764 34041 STCALL TDEC1
055579,000929: 35,3765 27171 INTEGRV
055580,000930: 35,3766 77650 GOTO
055581,000931: 35,3767 73704 SETCOAST
055582,000932:
055583,000933: # MIDTOAV1
055584,000934:
055585,000935: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
055586,000936: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
055587,000937: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
055588,000938: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
055589,000939: # IS DONE AS IT IS FOR MIDTOAV2.
055590,000940: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
055591,000941:
055592,000942: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
055593,000943: # TO THE RETURN ADDRESS
055594,000944:
055595,000945: # IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
055596,000946: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
055597,000947: # TION TIME AND MPAC IS SET TO THE DELTA TIME---
055598,000948: # TAT MINUS CURRENT TIME.
055599,000949:
055600,000950: # MIDTOAV2
055601,000951:
055602,000952: # THIS ROUTINE INTEGRATES THE CSM STATE VECTOR TO CURRENT TIME PLUS
055603,000953: # INCREMENTS OF TIMEDELT SUCH THAT THE DIFFERENCE BETWEEN CURRENT TIME
055604,000954: # AND THE STATE VECTOR TIME AT THE END OF THE LAST STEP IS AT LEAST 5.6
055605,000955: # SECS.
055606,000956: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
055607,000957: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
055608,000958:
055609,000959: 13,2000 SETLOC INTINIT
055610,000960: 13,2000 BANK
055611,000961: 13,3547 1127 EBANK= IRETURN1
055612,000962: 13,3547 45020 MIDTOAV2 STQ CALL
055613,000963: 13,3550 01127 IRETURN1
055614,000964: 13,3551 27446 INTSTALL
055615,000965: 13,3552 43145 DLOAD CLEAR
055616,000966: 13,3553 27715 TIMEDELT
055617,000967: 13,3554 04674 MID1FLAG
055618,000968: 13,3555 37732 STCALL T-TO-ADD
055619,000969: 13,3556 27573 ENTMID2
055620,000970:
055621,000971: 13,3557 45020 MIDTOAV1 STQ CALL
055622,000972: 13,3560 01127 IRETURN1
055623,000973: 13,3561 27446 INTSTALL
055624,000974: 13,3562 47014 SET RTB
055625,000975: 13,3563 04474 MID1FLAG
055626,000976: 13,3564 45510 LOADTIME
055627,000977: 13,3565 44215 DAD BDSU # INITIAL CHECK, IS TDEC1 IN THE FUTURE.
055628,000978: 13,3566 27715 TIMEDELT
055629,000979: 13,3567 00041 TDEC1
055630,000980: 13,3570 45044 BPL CALL
055631,000981: 13,3571 27577 ENTMID1
055632,000982: 13,3572 27700 NOTIME # NO SET ALARM.SWITCH TO MIDTOAV2
055633,000983:
055634,000984: 13,3573 43234 ENTMID2 RTB DAD
055635,000985: 13,3574 45510 LOADTIME
055636,000986: 13,3575 03732 T-TO-ADD
055637,000987: 13,3576 00041 STORE TDEC1
055638,000988:
055639,000989: 13,3577 45014 ENTMID1 CLEAR CALL
055640,000990: 13,3600 01676 DIM0FLAG # NO W-MATRIX
055641,000991: 13,3601 26034 THISVINT
055642,000992: 13,3602 43014 CLEAR SET
055643,000993: 13,3603 01673 INTYPFLG
055644,000994: 13,3604 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
055645,000995: 13,3605 77624 CALL
055646,000996: 13,3606 27171 INTEGRV # GO INTEGRATE
055647,000997: 13,3607 66134 SXA,2 SXA,1
055648,000998: 13,3610 03746 RTX2
055649,000999: 13,3611 03745 RTX1
055650,001000: 13,3612 67214 CLEAR SLOAD
055651,001001: 13,3613 00275 AMOONFLG
055652,001002: 13,3614 03747 RTX2
055653,001003: 13,3615 43054 BZE SET
055654,001004: 13,3616 27620 +2
055655,001005: 13,3617 00075 AMOONFLG
055656,001006: 13,3620 77775 VLOAD
055657,001007: 13,3621 00001 RATT
055658,001008: 13,3622 25232 STOVL RN1
055659,001009: 13,3623 00007 VATT
055660,001010: 13,3624 15240 STODL VN1
055661,001011: 13,3625 00015 TAT
055662,001012: 13,3626 01246 STORE PIPTIME1
055663,001013: 13,3627 77776 EXIT
055664,001014:
055665,001015: 13,3630 00004 INHINT
055666,001016: 13,3631 00006 EXTEND
055667,001017: 13,3632 40025 DCS TIME2
055668,001018: 13,3633 20155 DAS MPAC
055669,001019: 13,3634 07226 TC TPAGREE
055670,001020:
055671,001021: 13,3635 31127 CA IRETURN1
055672,001022: 13,3636 04720 TC BANKJUMP
055673,001023: 13,3637 47014 CKMID2 BOF RTB
055674,001024: 13,3640 04754 MID1FLAG
055675,001025: 13,3641 27656 MID2
055676,001026: 13,3642 45510 LOADTIME
055677,001027: 13,3643 44215 DAD BDSU
055678,001028: 13,3644 27715 TIMEDELT
055679,001029: 13,3645 01101 TDEC
055680,001030: 13,3646 45044 BPL CALL
055681,001031: 13,3647 27314 TESTLOOP # YES
055682,001032: 13,3650 27700 NOTIME
055683,001033:
055684,001034: 13,3651 43234 TIMEINC RTB DAD
055685,001035: 13,3652 45510 LOADTIME
055686,001036: 13,3653 03732 T-TO-ADD
055687,001037: 13,3654 35101 STCALL TDEC
055688,001038: 13,3655 27314 TESTLOOP
055689,001039:
055690,001040: 13,3656 45345 MID2 DLOAD DSU
055691,001041: 13,3657 01101 TDEC
055692,001042: 13,3660 01517 TET
055693,001043: 13,3661 45246 ABS DSU
055694,001044: 13,3662 27713 3CSECS
055695,001045: 13,3663 77644 BPL
055696,001046: 13,3664 27651 TIMEINC
055697,001047:
055698,001048: 13,3665 44234 RTB BDSU # SEE IF 5.6 SECS. AVAILABLE TO CALLER.
055699,001049: 13,3666 45510 LOADTIME
055700,001050: 13,3667 01517 TET
055701,001051: 13,3670 51025 DSU BPL
055702,001052: 13,3671 27717 5.6SECS
055703,001053: 13,3672 27205 A-PCHK # YES,GET OUT.
055704,001054:
055705,001055: 13,3673 43345 DLOAD DAD # NO,ADD TIMEDELT TO T-TO-ADD AND TRY
055706,001056: 13,3674 03732 T-TO-ADD # AGAIN.
055707,001057: 13,3675 27715 TIMEDELT
055708,001058: 13,3676 37732 STCALL T-TO-ADD
055709,001059: 13,3677 27651 TIMEINC
055710,001060: 13,3700 77414 NOTIME CLEAR EXIT # TOO LATE
055711,001061: 13,3701 04674 MID1FLAG
055712,001062: 13,3702 25127 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
055713,001063: 13,3703 05664 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
055714,001064: 13,3704 01703 OCT 1703 # TIG WILL BE SLIPPED...
055715,001065: 13,3705 06006 TC INTPRET
055716,001066: 13,3706 77745 DLOAD
055717,001067: 13,3707 27715 TIMEDELT
055718,001068: 13,3710 03732 STORE T-TO-ADD
055719,001069: 13,3711 77616 RVQ
055720,001070:
055721,001071: 13,3712 00000 00003 3CSECS 2DEC 3 B-28
055722,001072:
055723,001073: 13,3714 00000 02342 TIMEDELT 2DEC 1250 B-28
055724,001074:
055725,001075: 13,3716 00000 01060 5.6SECS 2DEC 560 B-28
055726,001076:
055727,001077: 27,2672 BANK 27
055728,001078: 27,2000 SETLOC UPDATE2
055729,001079: 27,2000 BANK
055730,001080: 27,2672 0330 EBANK= INTWAKUQ
055731,001081:
055732,001082: 27,2672 COUNT* $$/INTIN
055733,001083:
055734,001084: 27,2672 0330 INTWAKUQ = INTWAK1Q # TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
055735,001085:
055736,001086: 27,2672 00003 INTWAKEU RELINT
055737,001087: 27,2673 00006 EXTEND
055738,001088: 27,2674 22330 QXCH INTWAKUQ # SAVE Q FOR RETURN
055739,001089:
055740,001090: 27,2675 06006 TC INTPRET
055741,001091:
055742,001092: 27,2676 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
055743,001093: 27,2677 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
055744,001094: 27,2700 56737 INTWAKUP
055745,001095:
055746,001096: 27,2701 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
055747,001097: 27,2702 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
055748,001098: 27,2703 25535 STOVL RCV
055749,001099: 27,2704 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
055750,001100: 27,2705 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
055751,001101: 27,2706 23420 RECTIFY +13D # TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
055752,001102: 27,2707 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
055753,001103: 27,2710 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
055754,001104: 27,2711 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
055755,001105: 27,2712 16750 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
055756,001106: 27,2713 56720 INTWAKEM # SPHERE OF INFLUENCE.........
055757,001107: 27,2714 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
055758,001108: 27,2715 00000 DEC 0 B-14
055759,001109: 27,2716 00223 MOONFLAG
055760,001110: 27,2717 56723 INTWAKEC
055761,001111: 27,2720 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
055762,001112: 27,2721 00002 DEC 2 B-14
055763,001113: 27,2722 00063 MOONFLAG
055764,001114: 27,2723 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
055765,001115: # MOONFLAG SET (OR CLEARED).
055766,001116: 27,2724 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
055767,001117: 27,2725 56733 INTWAKLM # STATE VECTOR UPDATE......
055768,001118: 27,2726 77624 CALL # UPDATE CSM STATE VECTOR
055769,001119: 27,2727 26714 ATOPCSM
055770,001120:
055771,001121: 27,2730 52014 CLEAR GOTO
055772,001122: 27,2731 01671 ORBWFLAG
055773,001123: 27,2732 56735 INTWAKEX
055774,001124:
055775,001125: 27,2733 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
055776,001126: 27,2734 26767 ATOPLEM
055777,001127:
055778,001128: 27,2735 77614 INTWAKEX CLEAR
055779,001129: 27,2736 02676 RENDWFLG
055780,001130:
055781,001131: 27,2737 45131 INTWAKUP SSP CALL # REMOVE :UPDATE STATE VECTOR INDICATOR:
055782,001132: 27,2740 01502 UPSVFLAG
055783,001133: 27,2741 00000 0
055784,001134: 27,2742 27461 INTWAKE0 # RELEASE :GRAB: OF ORBIT INTEG
055785,001135: 27,2743 77776 EXIT
055786,001136:
055787,001137: 27,2744 05426 TC PHASCHNG
055788,001138: 27,2745 04026 OCT 04026
055789,001139: 27,2746 00330 TC INTWAKUQ
055790,001140:
055791,001141: 27,2747 00002 UPMNSVCD OCT 2
055792,001142: 27,2750 00000 OCT 0
055793,001143:
055794,001144: 27,2751 77420 GRP2PC STQ EXIT
055795,001145: 27,2752 03536 GRP2SVQ
055796,001146: 27,2753 05426 TC PHASCHNG
055797,001147: 27,2754 04022 OCT 04022
055798,001148: 27,2755 06006 TC INTPRET
055799,001149: 27,2756 77650 GOTO
055800,001150: 27,2757 03536 GRP2SVQ
055801,001151:
055802,001152:
055803,001153:
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc