Source Code
|
These source-code files are part of a reconstructed copy of Comanche 051, the
original release of the Apollo 11 Command Module (CM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Comanche 055 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes related to the R-2 lunar potential model, using hints from program
comments and change-indicating asterisks in the Comanche 055 listing as a guide.
The reconstruction was verified by matching memory-bank checksums to those listed
in drawing 2021153D. Note that page numbers in the reconstructed code match those
on the Comanche 055 printout, although the added code would likely have changed page
numbers for a real Comanche 051 listing.
Comments from 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.
|
055547,000002: ## Copyright: Public domain.
055548,000003: ## Filename: INTEGRATION_INITIALIZATION.agc
055549,000004: ## Purpose: A section of Comanche revision 051.
055550,000005: ## It is part of the reconstructed source code for the
055551,000006: ## original release of the flight software for the Command
055552,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
055553,000008: ## The code has been recreated from a copy of Comanche 055. It
055554,000009: ## has been adapted such that the resulting bugger words
055555,000010: ## exactly match those specified for Comanche 51 in NASA drawing
055556,000011: ## 2021153D, which gives relatively high confidence that the
055557,000012: ## reconstruction is correct.
055558,000013: ## Reference: pp. 1309-1333
055559,000014: ## Assembler: yaYUL
055560,000015: ## Contact: Ron Burkey <info@sandroid.org>.
055561,000016: ## Website: www.ibiblio.org/apollo/index.html
055562,000017: ## Mod history: 2019-07-30 MAS Created from Comanche 55.
055563,000018:
|
|
Page 1309
|
055565,000020: # 1.0 INTRODUCTION
055566,000021: # ----------------
055567,000022:
055568,000023: # FROM A USERS POINT OF VIEW, ORBITAL INTEGRATION IS ESSENTIALLY THE SAME AS THE 278 INTEGRATION
055569,000024: # PROGRAM. THE SAME ENTRANCES TO THE PROGRAM WILL BE MAINTAINED, THE SAME STALLING ROUTINE WILL BE USED AND
055570,000025: # OUTPUT WILL STILL BE VIA THE PUSHLIST. THE PRIMARY DIFFERENCES TO A USER INVOLVE THE ADDED CAPABILITY OF
055571,000026: # TERMINATING INTEGRATION AT A SPECIFIC FINAL RADIUS AND THE DIFFERENCE IN STATE VECTOR SCALING INSIDE AND OUT-
055572,000027: # SIDE THE LUNAR SPHERE OF INFLUENCE.
055573,000028:
055574,000029: # IN ORDER TO MAKE THE CSM(LEM)PREC AND CSM(LEM)CONIC ENTRANCES SIMILAR TO FLIGHT 278, THE INTEGRATION PROGRAM
055575,000030: # WILL ITSELF SET THE FINAL RADIUS (RFINAL) TO 0 SO THAT REACHING THE DESIRED TIME ONLY WILL TERMINATE
055576,000031: # INTEGRATION. THE DP REGISTER RFINAL MUST BE SET BY USERS OF INTEGRVS AND INTEGRV, AND MUST BE DONE AFTER THE
055577,000032: # CALL TC INTSTALL.
055578,000033:
055579,000034: # WHEN THE LM IS ON THE LUNAR SURFACE (INDICATED BY LUNAR SURFACE FLAG SET) CALLS TO LEMCONIC, LEMPREC, AND
055580,000035: # INTEGRV WITH VINFLAG = 0 WILL RESULT IN THE USE OF THE PLANETARY INERTIAL ORIENTATION SUBROUTINES TO PROVIDE
055581,000036: # BOTH THE LMS POSITION AND VELOCITY IN THE REFERENCE COORDINATE SYSTEM.
055582,000037: # THE PROGRAM WILL PROVIDE OUTPUT AS IF INTEGRATION WAS USED. THAT IS, THE PUSHLIST WILL BE SET AS NOTED BELOW AND
055583,000038: # THE PERMANENT STATE VECTOR UPDATED WHEN SPECIFIED BY AN INTEGRV CALL.
055584,000039:
055585,000040: # USERS OF INTEGRVS DESIRING INTEGRATION (INTYPFLG = 0) SHOULD NOTE THAT THE OBLATENESS PERTURBATION COMPUTATION
055586,000041: # IN LUNAR ORBIT IS TIME DEPENDENT. THEREFORE, THE USER SHOULD SUPPLY AN INITIAL STATE VECTOR VALID AT SOME REAL
055587,000042: # TIME AND THE DESIRED TIME (TDEC1) ALSO AT SOME REAL TIME. FOR CONIC ,,INTEGRATION,, THE USER MAY STILL USE ZERO
055588,000043: # AS THE INITIAL TIME AND DELTA TIME AS THE DESIRED TIME.
055589,000044:
055590,000045: # 2.0 GENERAL DESCRIPTION
055591,000046: # -----------------------
055592,000047:
055593,000048: # THE INTEGRATION PROGRAM OPERATES AS A CLOSED INTERPRETIVE SUBROUTINE AND PERFORMS THESE FUNCTIONS ---
055594,000049: # 1) INTEGRATES (PRECISION OR CONIC) EITHER CSM OR LM STATE VECTOR
055595,000050: # 2) INTEGRATES THE W-MATRIX
055596,000051: # 3) PERMANENT OR TEMPORARY UPDATE OF THE STATE VECTOR
055597,000052:
055598,000053: # THERE ARE SIX ENTRANCES TO THE INTEGRATION PROGRAM. FOUR OF THESE (CSMPREC, LEMPREC, CSMCONIC, LEMCONIC) SET
055599,000054: # ALL THE FLAGS REQUIRED IN THE INTEGRATION PROGRAM ITSELF TO CAUSE THE PRECISION OR CONIC INTEGRATION (KEPLER) OF
055600,000055: # THE LM OR CSM STATE VECTOR, AS THE NAMES SUGGEST. ONE ENTRANCE (INTEGRVS) PERMITS THE CALLING PROGRAM TO
055601,000056: # PROVIDE A STATE VECTOR TO BE INTEGRATED. THE CALLING PROGRAM MUST SET THE FLAGS INDICATING (1) PRECISION OR
055602,000057: # CONIC INTEGRATION, (2) IN OR OUT OF LUNAR SPHERE, (3) MIDCOURSE OR NOT, AND THE INTEGRATION PROGRAM COMPLETES
055603,000058: # THE FLAG SETTING TO BYPASS W-MATRIX INTEGRATION. THE LAST ENTRANCE (INTEGRV, USED IN GENERAL BY THE
055604,000059: # NAVIGATION PROGRAMS) PERMITS THE CALLER TO SET FIVE FLAGS (NOT MOONFLAG OR MIDFLAG) BUT NOT TO INPUT A STATE
055605,000060: # VECTOR. ANY PROGRAM WHICH CALLS INTEGRVS OR INTEGRV MUST CALL INTSTALL BEFORE IT SETS THE INTEGRATION FLAGS
055606,000061: # AND/OR STATE VECTOR.
055607,000062:
055608,000063: # THREE SETS OF 42 REGISTERS AND 2 FLAGS ARE USED FOR THE STATE VECTORS. TWO SETS, WHICH MAY NOT BE OVERLAYED, ARE
055609,000064: # USED FOR THE PERMANENT STATE VECTORS FOR THE CSM AND LM. THE THIRD SET, WHICH MAY BE OVERLAYED WHEN INTEGRATION
055610,000065: # IS NOT BEING DONE, IS USED IN THE COMPUTATIONS.
055611,000066:
055612,000067: # THE PERMANENT STATE VECTORS WILL BE PERIODICALLY UPDATED SO THAT THE VECTORS WILL NOT BE OLDER THAN 4 TIMESTEPS.
055613,000068: # THE PERMANENT STATE VECTORS WILL ALSO BE UPDATED WHENEVER THE W-MATRIX IS INTEGRATED OR WHEN A CALLER OF INTEGRV
055614,000069: # SETS STATEFLG (THE NAVIGATION PROGRAMS P20, P22.)
055615,000070:
|
|
Page 1310
|
055617,000072: # APPENDIX B OF THE USERS GUIDE LISTS THE STATE VECTOR QUANTITIES.
055618,000073:
055619,000074: # 2.1 RESTARTS
055620,000075:
055621,000076: # PHASE CHANGES WILL BE MADE IN THE INTEGRATION PROGRAM ONLY FOR THE INTEGRV ENTRANCE (I.E., WHEN THE W-MATRIX IS
055622,000077: # INTEGRATED OR PERMANENT STATE VECTOR IS UPDATED.) THE GROUP NUMBER USED WILL BE THAT FOR THE P20-25 PROGRAMS
055623,000078: # (I.E., GROUP2) SINCE THE INTEGRV ENTRANCE WILL ONLY BE USED BY THESE PROGRAMS. IF A RESTART OCCURS DURING AN
055624,000079: # INTEGRATION OF THE STATE VECTOR ONLY, THE RECOVERY WILL BE TO THE LAST PHASE IN THE CALLING PROGRAM. CALLING
055625,000080: # PROGRAMS WHICH USE THE INTEGRV OR INTEGRVS ENTRANCE OF INTEGRATION SHOULD ENSURE THAT IF PHASE CHANGING IS DONE
055626,000081: # THAT IT IS PRIOR TO SETTING THE INTEGRATION INPUTS IN THE PUSHLIST.
055627,000082: # THIS IS BECAUSE THE PUSHLIST IS LOST DURING A RESTART.
055628,000083:
055629,000084: # 2.2 SCALING
055630,000085:
055631,000086: # THE INTEGRATION ROUTINE WILL MAINTAIN THE PERMANENT MEMORY STATE VECTORS IN THE SCALING AND UNITS DEFINED IN
055632,000087: # APPENDIX B OF THE USERS GUIDE. THE SCALING OF THE OUTPUT POSITION VECTOR DEPENDS ON THE ORIGIN OF THE COORDINATE
055633,000088: # SYSTEM AT THE DESIRED INTEGRATION TIME. THE COORDINATE SYSTEM TRANSFORMATION WILL BE DONE AUTOMATICALLY ON
055634,000089: # MULTIPLE TIMESTEP ENCKE INTEGRATION ONLY. THUS IT IS POSSIBLE TO HAVE OUTPUT FROM SUCCESSIVE INTEGRATIONS IN
055635,000090: # DIFFERENT SCALING.
055636,000091: # HOWEVER, RATT, VATT WILL ALWAYS BE SCALED THE SAME.
055637,000092:
055638,000093: # 3.0 INPUT/OUTPUT
055639,000094: # ----------------
055640,000095:
055641,000096: # PROGRAM INPUTS ARE THE FLAGS DESCRIBED IN APPENDIX A AND THE PERMANENT STATE VECTOR QUANTITIES DESCRIBED IN AP-
055642,000097: # PENDIX B OF THE USERS GUIDE, PLUS THE DESIRED TIME TO INTEGRATE TO IN TDEC1 (A PUSH LIST LOCATION).
055643,000098: # FOR INTEGRVS, THE RCV,VCV,TET OF THE TEMPORARY STATE VECTOR MUST BE SET, PLUS MOONFLAG AND MIDFLAG
055644,000099:
055645,000100: # FOR SIMULATION THE FOLLOWING QUANTITIES MUST BE PRESET ---
055646,000101: # EARTH MOON
055647,000102: # 29 27
055648,000103: # RRECTCSM(LEM) - RECTIFIED POSITION VECTOR METERS 2 2
055649,000104:
055650,000105: # 7 5
055651,000106: # VRECTCSM(LEM) - RECTIFIED VELOCITY VECTOR M/CSEC 2 2
055652,000107:
055653,000108: # 28 28
055654,000109: # TETCSM(LEM) - TIME STATE VECTOR IS VALID CSEC 2 2
055655,000110: # CUSTOMARILY 0, BUT NOTE LUNAR
055656,000111: # ORBIT DEPENDENCE ON REAL TIME.
055657,000112:
055658,000113: # 22 18
055659,000114: # DELTAVCSM(LEM) - POSITION DEVIATION METERS 2 2
055660,000115: # 0 IF TCCSM(LEM) = 0
055661,000116:
055662,000117: # 3 -1
055663,000118: # NUVCSM(LEM) - VELOCITY DEVIATION M/CSEC 2 2
055664,000119: # 0 IF TCCSM(LEM) = 0
|
|
Page 1311
|
055666,000121: # 29 27
055667,000122: # RCVCSM(LEM) - CONIC POSITION METERS 2 2
055668,000123: # EQUALS RRECTCSM(LEM) IF
055669,000124: # TCCSM(LEM) = 0
055670,000125:
055671,000126: # 7 5
055672,000127: # VCVCSM(LEM) - CONIC VELOCITY M/CSEC 2 2
055673,000128: # EQUALS VRECTCSM(LEM) IF
055674,000129: # TCCSM(LEM) = 0
055675,000130:
055676,000131: # 28 28
055677,000132: # TCCSM(LEM) - TIME SINCE RECTIFICATION CSECS 2 2
055678,000133: # CUSTOMARILY 0
055679,000134:
055680,000135: # 1/2 17 16
055681,000136: # XKEPCSM(LEM) - ROOT OF KEPLERS EQUATION M 2 2
055682,000137: # 0 IF TCCSM(LEM) = 0
055683,000138:
055684,000139: # CMOONFLG - PERMANENT FLAGS CORRESPONDING 0 0
055685,000140: # CMIDFLAG TO MOONFLAG AND MIDFLAG 0,1 0,1
055686,000141: # LMOONFLG C = CSM, L = LM 0 0
055687,000142: # LMIDFLG 0,1 0,1
055688,000143:
055689,000144: # SURFFLAG - LUNAR SURFACE FLAG 0,1 0,1
055690,000145:
055691,000146: # IN ADDITION, IF (L)CMIDFLAG IS SET, THE INITIAL INPUT VALUES FOR LUNAR
055692,000147: # SOLAR EPHEMERIDES SUBROUTINE AND PLANETARY INERTIAL ORIENTATION SUB-
055693,000148: # ROUTINE MUST BE PRESET.
055694,000149:
055695,000150: # OUTPUT
055696,000151: # AFTER EVERY CALL TO INTEGRATION
055697,000152: # EARTH MOON
055698,000153: # 29 29
055699,000154: # 0D RATT POSITION METERS 2 2
055700,000155:
055701,000156: # 7 7
055702,000157: # 6D VATT VELOCITY M/CSEC 2 2
055703,000158:
055704,000159: # 28 28
055705,000160: # 12D TAT TIME 2 2
055706,000161:
055707,000162: # 29 27
055708,000163: # 14D RATT1 POSITION METERS 2 2
055709,000164:
055710,000165: # 7 5
055711,000166: # 20D VATT1 VELOCITY M/CSEC 2 2
055712,000167:
055713,000168: # 3 2 36 30
055714,000169: # 26D MU(P) MU M /CS 2 2
055715,000170:
055716,000171: # X1 MUTABLE ENTRY -2 -10D
055717,000172:
055718,000173: # X2 COORDINT
055719,000174: # X2 COORDINATE SYSTEM ORIGEN 0 2
055720,000175: # (THIS, NOT MOONFLAG, SHOULD BE
|
|
Page 1312
|
055722,000177: # USED TO DETERMINE ORIGIN.)
055723,000178:
055724,000179: # IN ADDITION TO THE ABOVE, THE PERMANENT STATE VECTOR IS UPDATED WHENEVER
055725,000180: # STATEFLG WAS SET AND WHENEVER A W-MATRIX IS TO BE INTEGRATED. THE PUSH
055726,000181: # COUNTER IS SET TO 0 AND OVERFLOW IS CLEARED BEFORE RETURNING TO THE
055727,000182: # CALLING PROGRAM.
055728,000183:
055729,000184: # 4.0 CALLING SEQUENCES AND SAMPLE CODE
055730,000185: # -------------------------------------
055731,000186:
055732,000187: # A) PRECISION ORBITAL INTEGRATION. CSMPREC, LEMPREC ENTRANCES
055733,000188: # L-X STORE TIME TO 95T5791T5 T 95 PUS L9ST (T4531)
055734,000189: # L CALL
055735,000190: # L+1 CSMPREC (OR LEMPREC)
055736,000191: # L+2 RETURN
055737,000192: # INPUT 28
055738,000193: # TDEC1 (PD 32D) TIME TO INTEGRATE TO...CENTISECONDS SCALED 2
055739,000194: # OUTPUT
055740,000195: # THE DATA LISTED IN SECTION 3.0 PLUS
055741,000196: # RQVV POSITION VECTOR OF VEHICLE WITH RESPECT TO SECONDARY
055742,000197: # BODY... METERS B-29 ONLY IF MIDFLAG = DIMOFLAG = 1
055743,000198: # B) CONIC INTEGRATION. CSMCONIC, LEMCONIC ENTRANCES
055744,000199: # L-X STORE TIME IN PUSH LIST (TDEC1)
055745,000200: # L CALL
055746,000201: # L+1 CSMCONIC (OR LEMCONIC)
055747,000202: # INPUT/OUTPUT
055748,000203: # SAME AS PRECISION INTEGRATION, EXCEPT RQVV NOT SET
055749,000204: # C) INTEGRATE GIVEN STATE VECTOR. INTEGRVS ENTRANCE
055750,000205: # CALL
055751,000206: # INTSTALL
055752,000207: # VLOAD
055753,000208: # POSITION VECTOR
055754,000209: # STOVL RCV
055755,000210: # VELOCITY VECTOR
055756,000211: # STODL VCV
055757,000212: # TIME STATE VECTOR VALID
055758,000213: # STODL TET
055759,000214: # FINAL RADIUS
055760,000215: # STORE RFINAL
055761,000216: # SET(CLEAR) SET(CLEAR)
055762,000217: # INTYPFLAG
055763,000218: # MOONFLAG
055764,000219: # SET(CLEAR) DLOAD
055765,000220: # DESIRED TIME
055766,000221: # STCALL TDEC1
055767,000222: # INTEGRVS
055768,000223: # INPUT
055769,000224: # RCV POSITION VECTOR METERS
055770,000225: # VCV VELOCITY VECTOR M/CSEC
055771,000226: # TET TIME OF STATE VECTOR (MAY = 0) CSEC B-28
|
|
Page 1313
|
055773,000228: # TDEC1 TIME TO INTEGRATE TO CSEC B-28 (PD 32D)
055774,000229: # (MAY BE INCREMENT IF TET=0)
055775,000230: # OUTPUT
055776,000231: # SAME AS FOR PRECISION OR CONIC INTEGRATION,
055777,000232: # DEPENDING ON INTYPFLG.
055778,000233: # D) INTEGRATE STATE VECTOR. INTGRV ENTRANCE
055779,000234: # L-X STORE TIME IN PUSH LIST (TDEC1) (MAY BE DONE AFTER CALL TO INTSTALL)
055780,000235: # L-8 CALL
055781,000236: # L-7
055782,000237: # L-6 SET(CLEAR) SET(CLEAR)
055783,000238: # L-5 VINTFLAG 1=CSM, 0=LM
055784,000239: # L-4 INTYPFLAG 1=CONIC, 0=PRECISION
055785,000240: # L-3 SET(CLEAR) SET(CLEAR)
055786,000241: # L-2 DIMOFLAG 1=W-MATRIX, 0=NO W-MATRIX
055787,000242: # L-1 D6OR9FLG 1=9X9, 0=6X6
055788,000243: # L SET DLOAD
055789,000244: # L+1 STATEFLG DESIRE PERMANENT UPDATE
055790,000245: # L+2 FINAL RAD. OF STATE VECTOR
055791,000246: # L+3 STCALL RFINAL
055792,000247: # L+4 INTEGRV
055793,000248: # L CALL NORMAL USE -- WILL UPDATE STATE
055794,000249: # L+1 INTEGRV VECTOR IF DIMOFLAG=1. (STATEFLG IS
055795,000250: # L+2 RETURN ALWAYS RESET IN INTEGRATION AFTER
055796,000251: # IT IS USED.)
055797,000252: # INPUT
055798,000253: # TDEC1 (PD 32D) TIME TO INTEGRATE TO CSEC B-28
055799,000254: # OUTPUT
055800,000255: # SAME AS FOR PRECISION OR CONIC INTEGRATION
055801,000256: # THE PROGRAM WILL SET MOONFLAG, MIDFLAG DEPENDING ON
055802,000257: # THE PERMANENT STATE VECTOR REPRESENTATION.
055803,000258:
055804,000259: 11,2363 BANK 11
055805,000260: 13,2000 SETLOC INTINIT
055806,000261: 13,2000 BANK
055807,000262: 13,2627 E3,1554 EBANK= RRECTCSM
055808,000263: 13,2627 COUNT 13/INTIN
055809,000264:
055810,000265: 13,2627 05412 STATEINT TC PHASCHNG
055811,000266: 13,2630 00052 OCT 00052
055812,000267: 13,2631 35061 CAF PRIO5
055813,000268: 13,2632 05147 TC FINDVAC
055814,000269: 13,2633 E3,1554 EBANK= RRECTCSM
055815,000270: 13,2633 02636 26063 2CADR STATINT1
055816,000271:
055817,000272: 13,2635 05324 TC TASKOVER
055818,000273: 13,2636 06006 STATINT1 TC INTPRET
055819,000274: 13,2637 47014 BON RTB
055820,000275: 13,2640 04712 QUITFLAG
055821,000276: 13,2641 26677 NOINT # NO STATEINT IF V96
055822,000277: 13,2642 45510 LOADTIME
|
|
Page 1314
|
055824,000279: 13,2643 00041 STORE TDEC1
055825,000280: 13,2644 45014 CLEAR CALL
055826,000281: 13,2645 04274 V96ONFLG
055827,000282: 13,2646 27442 INTSTALL
055828,000283: 13,2647 45014 SET CALL
055829,000284: 13,2650 01076 NODOFLAG
055830,000285: 13,2651 26670 SETIFLGS
055831,000286: 13,2652 77650 GOTO
055832,000287: 13,2653 26000 STATEUP
055833,000288: 13,2654 00003 25140 600SECS 2DEC 60000 B-28
055834,000289:
055835,000290: 13,2656 77414 ENDINT CLEAR EXIT
055836,000291: 13,2657 01672 STATEFLG
055837,000292: 13,2660 05412 TC PHASCHNG
055838,000293: 13,2661 20032 OCT 20032
055839,000294: 13,2662 00006 EXTEND
055840,000295: 13,2663 32655 DCA 600SECS
055841,000296: 13,2664 05342 TC LONGCALL
055842,000297: 13,2665 E3,1554 EBANK= RRECTHIS
055843,000298: 13,2665 02627 26063 2CADR STATEINT
055844,000299:
055845,000300: 13,2667 05217 TC ENDOFJOB
055846,000301: 13,2670 43014 SETIFLGS SET CLEAR
055847,000302: 13,2671 01472 STATEFLG
055848,000303: 13,2672 01673 INTYPFLG
055849,000304: 13,2673 43014 CLEAR CLEAR
055850,000305: 13,2674 01676 DIM0FLAG
055851,000306: 13,2675 01675 D6OR9FLG
055852,000307: 13,2676 77616 RVQ
055853,000308: 13,2677 77776 NOINT EXIT
055854,000309: 13,2700 05412 TC PHASCHNG
055855,000310: 13,2701 00002 OCT 2
055856,000311:
055857,000312: 13,2702 05560 TC DOWNFLAG
055858,000313: 13,2703 00221 ADRES QUITFLAG
055859,000314:
055860,000315: 13,2704 05217 TC ENDOFJOB
055861,000316:
055862,000317: # ATOPCSM TRANSFERS RRECT TO RRECT +41 TO RRECTCSM TO RRECTCSM +41
055863,000318:
055864,000319: # CALLING SEQUENCE
055865,000320: # L CALL
055866,000321: # L+1 ATOPCSM
055867,000322:
055868,000323: # NORMAL EXIT AT L+2
055869,000324:
055870,000325: 13,2705 47020 ATOPCSM STQ RTB
055871,000326: 13,2706 00051 S2
055872,000327: 13,2707 26720 MOVEACSM
055873,000328: 13,2710 45014 SET CALL
|
|
Page 1315
|
055875,000330: 13,2711 04063 CMOONFLG
055876,000331: 13,2712 20237 SVDWN1
055877,000332: 13,2713 43014 BON CLRGO
055878,000333: 13,2714 00303 MOONFLAG
055879,000334: 13,2715 00051 S2
055880,000335: 13,2716 04223 CMOONFLG
055881,000336: 13,2717 00051 S2
055882,000337: 13,2720 03064 MOVEACSM TC SETBANK
055883,000338: 13,2721 55500 TS DIFEQCNT # INITIALIZE INDEX
055884,000339: 13,2722 51500 INDEX DIFEQCNT
055885,000340: 13,2723 31502 CA RRECT
055886,000341: 13,2724 51500 INDEX DIFEQCNT
055887,000342: 13,2725 55554 TS RRECTCSM
055888,000343: 13,2726 11500 CCS DIFEQCNT # IS TRANSFER COMPLETE
055889,000344: 13,2727 12721 TCF MOVEACSM +1 # NO-LOOP
055890,000345: 13,2730 06030 TC DANZIG # COMPLETE - RETURN
055891,000346:
055892,000347: # PTOACSM TRANSFERS RRECTCSM TO RRECTCSM +41 TO RRECT TO RRECT +41
055893,000348:
055894,000349: # CALLING SEQUENCE
055895,000350: # L CALL
055896,000351: # PTOACSM
055897,000352:
055898,000353: # NORMAL EXIT AT L+2
055899,000354:
055900,000355: 13,2731 43034 PTOACSM RTB BON
055901,000356: 13,2732 26747 MOVEPCSM
055902,000357: 13,2733 04303 CMOONFLG
055903,000358: 13,2734 26742 SETMOON
055904,000359: 13,2735 66214 CLRMOON CLEAR SSP
055905,000360: 13,2736 00263 MOONFLAG
055906,000361: 13,2737 02151 PBODY
055907,000362: 13,2740 00000 0
055908,000363: 13,2741 77616 RVQ
055909,000364: 13,2742 66214 SETMOON SET SSP
055910,000365: 13,2743 00063 MOONFLAG
055911,000366: 13,2744 02151 PBODY
055912,000367: 13,2745 00002 2
055913,000368: 13,2746 77616 RVQ
055914,000369: 13,2747 03064 MOVEPCSM TC SETBANK
055915,000370: 13,2750 55500 TS DIFEQCNT
055916,000371: 13,2751 51500 INDEX DIFEQCNT
055917,000372: 13,2752 31554 CA RRECTCSM
055918,000373: 13,2753 51500 INDEX DIFEQCNT
055919,000374: 13,2754 55502 TS RRECT
055920,000375: 13,2755 11500 CCS DIFEQCNT
055921,000376: 13,2756 12750 TCF MOVEPCSM +1
055922,000377: 13,2757 06030 TC DANZIG
055923,000378:
|
|
Page 1316
|
055925,000380: # ATOPLEM TRANSFERS RRECT TO RRECT +41 TO RRECTLEM TO RRECTLEM +41
055926,000381: 13,2760 47020 ATOPLEM STQ RTB
055927,000382: 13,2761 00051 S2
055928,000383: 13,2762 26773 MOVEALEM
055929,000384: 13,2763 45014 SET CALL
055930,000385: 13,2764 04064 LMOONFLG
055931,000386: 13,2765 20263 SVDWN2
055932,000387: 13,2766 43014 BON CLRGO
055933,000388: 13,2767 00303 MOONFLAG
055934,000389: 13,2770 00051 S2
055935,000390: 13,2771 04224 LMOONFLG
055936,000391: 13,2772 00051 S2
055937,000392: 13,2773 03064 MOVEALEM TC SETBANK
055938,000393: 13,2774 55500 TS DIFEQCNT
055939,000394: 13,2775 51500 INDEX DIFEQCNT
055940,000395: 13,2776 31502 CA RRECT
055941,000396: 13,2777 51500 INDEX DIFEQCNT
055942,000397: 13,3000 55626 TS RRECTLEM
055943,000398: 13,3001 11500 CCS DIFEQCNT
055944,000399: 13,3002 12774 TCF MOVEALEM +1
055945,000400: 13,3003 06030 TC DANZIG
055946,000401:
055947,000402: # PTOALEM TRANSFERS RRECTLEM TO RRECTLEM +41 TO RRECT TO RRECT +41
055948,000403:
055949,000404: 13,3004 47014 PTOALEM BON RTB
055950,000405: 13,3005 04307 SURFFLAG
055951,000406: 13,3006 27025 USEPIOS
055952,000407: 13,3007 27014 MOVEPLEM
055953,000408: 13,3010 52014 BON GOTO
055954,000409: 13,3011 04304 LMOONFLG
055955,000410: 13,3012 26742 SETMOON
055956,000411: 13,3013 26735 CLRMOON
055957,000412: 13,3014 03064 MOVEPLEM TC SETBANK
055958,000413: 13,3015 55500 TS DIFEQCNT
055959,000414: 13,3016 51500 INDEX DIFEQCNT
055960,000415: 13,3017 31626 CA RRECTLEM
055961,000416: 13,3020 51500 INDEX DIFEQCNT
055962,000417: 13,3021 55502 TS RRECT
055963,000418: 13,3022 11500 CCS DIFEQCNT
055964,000419: 13,3023 13015 TCF MOVEPLEM +1
055965,000420: 13,3024 06030 TC DANZIG
055966,000421:
055967,000422: 13,3025 77201 USEPIOS SETPD VLOAD
055968,000423: 13,3026 00001 0
055969,000424: 13,3027 02026 RLS
055970,000425: 13,3030 41525 PDDL PUSH
055971,000426: 13,3031 00041 TDEC1
|
|
Page 1317
|
055973,000428: 13,3032 15517 STODL TET
055974,000429: 13,3033 27755 5/8
055975,000430: 13,3034 77624 CALL
055976,000431: 13,3035 55344 RP-TO-R
055977,000432: 13,3036 25535 STOVL RCV
055978,000433: 13,3037 11560 ZUNIT
055979,000434: 13,3040 14001 STODL 0D
055980,000435: 13,3041 01517 TET
055981,000436: 13,3042 14007 STODL 6D
055982,000437: 13,3043 27755 5/8
055983,000438: 13,3044 45014 SET CALL # NEEDED FOR SETTING X1 ON EXIT
055984,000439: 13,3045 00063 MOONFLAG
055985,000440: 13,3046 55344 RP-TO-R
055986,000441: 13,3047 74235 VXV VXSC
055987,000442: 13,3050 01535 RCV
055988,000443: 13,3051 27063 OMEGMOON
055989,000444: 13,3052 25543 STOVL VCV
055990,000445: 13,3053 11566 ZEROVEC
055991,000446: 13,3054 01521 STORE TDELTAV
055992,000447: 13,3055 67174 AXT,2 SXA,2
055993,000448: 13,3056 00002 2
055994,000449: 13,3057 02150 PBODY
055995,000450: 13,3060 35527 STCALL TNUV
055996,000451: 13,3061 27176 A-PCHK
055997,000452: 13,3062 07112 06620 OMEGMOON 2DEC* 2.66169947 E-8 B+23*
055998,000453:
055999,000454: 13,3064 33070 SETBANK CAF INTBANK
056000,000455: 13,3065 54006 TS BBANK
056001,000456: 13,3066 33507 CAF FORTYONE
056002,000457: 13,3067 00002 TC Q
056003,000458: 13,3070 E3,1554 EBANK= RRECTCSM
056004,000459: 13,3070 26063 INTBANK BBCON INTEGRV
056005,000460:
056006,000461: # SPECIAL PURPOSE ENTRIES TO ORBITAL INTEGRATION. THESE ROUTINES PROVIDE ENTRANCES TO INTEGRATION WITH
056007,000462: # APPROPRIATE SWITCHES SET OR CLEARED FOR THE DESIRED INTEGRATION.
056008,000463:
056009,000464: # CSMPREC AND LEMPREC PERFORM ORBIT INTEGRATION BY THE ENCKE METHOD TO THE TIME INDICATED IN TDEC1
056010,000465: # ACCELERATIONS DUE TO OBLATENESS ARE INCLUDED. NO W-MATRIX INT. IS DONE.
056011,000466: # THE PERMANENT STATE VECTOR IS NOT UPDATED.
056012,000467: # CSMCONIC AND LEMCONIC PERFORM ORBIT INTEG. BY KEPLERS METHOD TO THE TIME INDICATED IN TDEC1
056013,000468: # NO DISTURBING ACCELERATIONS ARE INCLUDED. IN THE PROGRAM FLOW THE GIVEN
056014,000469: # STATE VECTOR IS RECTIFIED BEFORE SOLUTION OF KEPLERS EQUATION
056015,000470:
056016,000471: # THE ROUTINES ASSUME THAT THE CSM (LEM) STATE VECTOR IN P-MEM IS VALID.
056017,000472: # SWITCHES SET PRIOR TO ENTRY TO THE MAIN INTEG. PROG ARE AS FOLLOWS
056018,000473: # CSMPREC CSMCONIC LEMPREC LEMCONIC
056019,000474: # VINTFLAG SET SET CLEAR CLEAR
056020,000475: # INTYPFLG CLEAR SET CLEAR SET
056021,000476: # DIM0FLAG CLEAR CLEAR CLEAR CLEAR
|
|
Page 1318
|
056023,000478:
056024,000479: # CALLING SEQUENCE
056025,000480: # L-X STORE TDEC1
056026,000481: # L CALL (STCALL TDEC1)
056027,000482: # L+1 CSMPREC (CSMCONIC, LEMPREC, LEMCONIC)
056028,000483:
056029,000484: # NORMAL EXIT TO L+2
056030,000485:
056031,000486: # SUBROUTINES CALLED
056032,000487: # INTEGRV1
056033,000488: # PRECOUT FOR CSMPREC AND LEMPREC
056034,000489: # CONICOUT FOR CSMCONIC AND LEMCONIC
056035,000490:
056036,000491: # OUTPUT - SEE PAGE 2 OF THIS LOG SECTION
056037,000492:
056038,000493: # INPUT
056039,000494: # TDEC1 TIME TO INTEGRATE TO. CSECS B-28
056040,000495:
056041,000496: 13,3071 45020 CSMPREC STQ CALL
056042,000497: 13,3072 00046 X1
056043,000498: 13,3073 27442 INTSTALL
056044,000499: 13,3074 43130 SXA,1 SET
056045,000500: 13,3075 02214 IRETURN
056046,000501: 13,3076 01474 VINTFLAG
056047,000502:
056048,000503: 13,3077 43014 IFLAGP SET CLEAR
056049,000504: 13,3100 01467 PRECIFLG
056050,000505: 13,3101 01676 DIM0FLAG
056051,000506: 13,3102 77614 CLRGO
056052,000507: 13,3103 01633 INTYPFLG
056053,000508: 13,3104 27164 INTEGRV1
056054,000509: 13,3105 45020 LEMPREC STQ CALL
056055,000510: 13,3106 00046 X1
056056,000511: 13,3107 27442 INTSTALL
056057,000512: 13,3110 43130 SXA,1 CLRGO
056058,000513: 13,3111 02214 IRETURN
056059,000514: 13,3112 01634 VINTFLAG
056060,000515: 13,3113 27077 IFLAGP
056061,000516:
056062,000517: 13,3114 45020 CSMCONIC STQ CALL
056063,000518: 13,3115 00046 X1
056064,000519: 13,3116 27442 INTSTALL
056065,000520: 13,3117 43130 SXA,1 SET
056066,000521: 13,3120 02214 IRETURN
056067,000522: 13,3121 01474 VINTFLAG
056068,000523: 13,3122 43014 IFLAGC CLEAR SETGO
056069,000524: 13,3123 01676 DIM0FLAG
056070,000525: 13,3124 01433 INTYPFLG
056071,000526: 13,3125 27164 INTEGRV1
056072,000527: 13,3126 45020 LEMCONIC STQ CALL
056073,000528: 13,3127 00046 X1
|
|
Page 1319
|
056075,000530: 13,3130 27442 INTSTALL
056076,000531: 13,3131 43130 SXA,1 CLRGO
056077,000532: 13,3132 02214 IRETURN
056078,000533: 13,3133 01634 VINTFLAG
056079,000534: 13,3134 27122 IFLAGC
056080,000535:
056081,000536: 13,3135 66214 INTEGRVS SET SSP
056082,000537: 13,3136 01467 PRECIFLG
056083,000538: 13,3137 02151 PBODY
056084,000539: 13,3140 00000 0
056085,000540: 13,3141 66214 BOF SSP
056086,000541: 13,3142 00343 MOONFLAG
056087,000542: 13,3143 27146 +3
056088,000543: 13,3144 02151 PBODY
056089,000544: 13,3145 00002 2
056090,000545: 13,3146 77220 STQ VLOAD
056091,000546: 13,3147 02214 IRETURN
056092,000547: 13,3150 11566 ZEROVEC
056093,000548: 13,3151 01521 STORE TDELTAV
056094,000549: 13,3152 35527 STCALL TNUV
056095,000550: 13,3153 23421 RECTIFY
056096,000551: 13,3154 43014 CLEAR SET
056097,000552: 13,3155 01676 DIM0FLAG
056098,000553: 13,3156 04062 NEWIFLG
056099,000554: 13,3157 77614 SETGO
056100,000555: 13,3160 04020 RPQFLAG
056101,000556: 13,3161 22363 ALOADED
056102,000557:
056103,000558: # INTEGRV IS AN ENTRY TO ORBIT INTEGRATION WHICH PERMITS THE CALLER,
056104,000559: # NORMALLY THE NAVIGATION PROGRAM, TO SET THE INTEG. FLAGS. THE ROUTINE
056105,000560: # IS ENTERED AT INTEGRV1 BY CSMPREC ET. AL. AND AT ALOADED BY INTEGRVS.
056106,000561: # THE ROUTINE SETS UP A-MEMORY IF ENTERED AT INTEGRV,1 AND SETS THE INTEG.
056107,000562: # PROGRAM FOR PRECISION OR CONIC
056108,000563:
056109,000564: # THE CALLER MUST FIRST CALL INTSTALL TO CHECK IF INTEG. IS IN USE BEFORE
056110,000565: # SETTING ANY FLAGS.
056111,000566:
056112,000567: # THE FLAGS WHICH SHOULD BE SET OR CLEARED ARE
056113,000568: # VINTFLAG (IGNORED WHEN ENTERED FROM INTEGRVS)
056114,000569: # INTYPFLG
056115,000570: # DIM0FLAG
056116,000571: # D6OR9FLG
056117,000572:
056118,000573: # CALLING SEQUENCE
056119,000574: # L-X CALL
056120,000575: # L-Y INTSTALL
056121,000576: # L-1 SET OR CLEAR ALL FOUR FLAGS. ALSO CAN SET STATEFLG IF DESIRED
056122,000577: # AND DIM0FLAG IS CLEAR.
056123,000578: # L CALL
056124,000579: # L+1 INTEGRV
056125,000580:
056126,000581: # INITIALIZATION
056127,000582: # FLAGS AS ABOVE
056128,000583: # STORE TIME TO INTEGRATE TO IN TDEC1
056129,000584:
|
|
Page 1320
|
056131,000586: # OUTPUT
056132,000587: # RATT AS
056133,000588: # VATT DEFINED
056134,000589: # TAT BEFORE
056135,000590:
056136,000591: 13,3162 77620 INTEGRV STQ
056137,000592: 13,3163 02214 IRETURN
056138,000593: 13,3164 43014 INTEGRV1 SET SET
056139,000594: 13,3165 04060 RPQFLAG
056140,000595: 13,3166 04062 NEWIFLG
056141,000596: 13,3167 77731 INTEGRV2 SSP
056142,000597: 13,3170 00053 QPRET
056143,000598: 13,3171 22363 ALOADED
056144,000599: 13,3172 52014 BON GOTO
056145,000600: 13,3173 01714 VINTFLAG
056146,000601: 13,3174 26731 PTOACSM
056147,000602: 13,3175 27004 PTOALEM
056148,000603: 11,2000 SETLOC INTINIT1
056149,000604: 11,2000 BANK
056150,000605: 11,2363 77745 ALOADED DLOAD
056151,000606: 11,2364 00041 TDEC1
056152,000607: 11,2365 01101 STORE TDEC
056153,000608: 11,2366 52014 BOFF GOTO
056154,000609: 11,2367 01753 INTYPFLG
056155,000610: 11,2370 27305 TESTLOOP
056156,000611: 11,2371 27271 RVCON
056157,000612: 13,2000 SETLOC INTINIT
056158,000613: 13,2000 BANK
056159,000614: 13,3176 45014 A-PCHK BOF CALL
056160,000615: 13,3177 00342 MIDFLAG
056161,000616: 13,3200 27205 ANDOUT # DONT MAKE ORIGIN CHANGE CHECK
056162,000617: 13,3201 23320 CHKSWTCH
056163,000618: 13,3202 45044 BPL CALL
056164,000619: 13,3203 27205 ANDOUT # NO ORIGIN CHANGE
056165,000620: 13,3204 23361 ORIGCHNG # MAKE THE SWITCH
056166,000621: 13,3205 77414 ANDOUT BOFCLR EXIT
056167,000622: 13,3206 01652 STATEFLG
056168,000623: 13,3207 27226 RECTOUT
056169,000624: 13,3210 05412 TC PHASCHNG
056170,000625: 13,3211 04022 OCT 04022
056171,000626: 13,3212 05546 TC UPFLAG # PHASE CHANGE HAS OCCURRED BETWEEN
056172,000627: 13,3213 00236 ADRES REINTFLG # INTSTALL AND INTWAKE
056173,000628: 13,3214 06006 TC INTPRET
056174,000629: 13,3215 77731 SSP
056175,000630: 13,3216 00053 QPRET
056176,000631: 13,3217 27224 PHEXIT
056177,000632: 13,3220 52014 BON GOTO
056178,000633: 13,3221 01714 VINTFLAG
056179,000634: 13,3222 26705 ATOPCSM
|
|
Page 1321
|
056181,000636: 13,3223 26760 ATOPLEM
056182,000637: 13,3224 77624 PHEXIT CALL
056183,000638: 13,3225 56750 GRP2PC
056184,000639: 13,3226 45001 RECTOUT SETPD CALL
056185,000640: 13,3227 00001 0
056186,000641: 13,3230 23421 RECTIFY
056187,000642: 13,3231 53775 VLOAD VSL*
056188,000643: 13,3232 01503 RRECT
056189,000644: 13,3233 57576 0,2
056190,000645: 13,3234 53715 PDVL VSL* # RATT TO PD0
056191,000646: 13,3235 01511 VRECT
056192,000647: 13,3236 57576 0,2
056193,000648: 13,3237 63325 PDDL PDVL # VATT TO PD6 TAT TO PD12
056194,000649: 13,3240 01517 TET
056195,000650: 13,3241 01503 RRECT
056196,000651: 13,3242 64715 PDVL PDDL*
056197,000652: 13,3243 01511 VRECT
056198,000653: 13,3244 50042 MUEARTH,2
056199,000654: 13,3245 76006 PUSH AXT,1
056200,000655: 13,3246 77765 DEC -10 B-14
056201,000656: 13,3247 76014 BON AXT,1
056202,000657: 13,3250 00303 MOONFLAG
056203,000658: 13,3251 27253 +2
056204,000659: 13,3252 77775 DEC -2 B-14
056205,000660: 13,3253 40001 INTEXIT SETPD BOV
056206,000661: 13,3254 00001 0
056207,000662: 13,3255 27256 +1
056208,000663: 13,3256 77614 CLEAR
056209,000664: 13,3257 04675 MIDAVFLG
056210,000665: 13,3260 43014 CLEAR CLEAR
056211,000666: 13,3261 04676 AVEMIDSW # ALLOW UPDATE OF DOWNLINK STATE VECTOR
056212,000667: 13,3262 01667 PRECIFLG
056213,000668: 13,3263 77535 SLOAD EXIT
056214,000669: 13,3264 02215 IRETURN
056215,000670: 13,3265 30154 CA MPAC
056216,000671: 13,3266 50120 INDEX FIXLOC
056217,000672: 13,3267 54052 TS QPRET
056218,000673: 13,3270 03457 TC INTWAKE
056219,000674:
056220,000675: # RVCON SETS UP ORBIT INTEGRATION TO DO A CONIC SOLUTION FOR POSITION AND
056221,000676: # VELOCITY FOR THE INTERVAL (TET-TDEC)
056222,000677:
056223,000678: 13,3271 45345 RVCON DLOAD DSU
056224,000679: 13,3272 01101 TDEC
056225,000680: 13,3273 01517 TET
056226,000681: 13,3274 36312 STCALL TAU.
056227,000682: 13,3275 23421 RECTIFY
056228,000683: 13,3276 77624 CALL
056229,000684: 13,3277 22372 KEPPREP
056230,000685: 13,3300 43345 DLOAD DAD
056231,000686: 13,3301 01551 TC
|
|
Page 1322
|
056233,000688: 13,3302 01517 TET
056234,000689: 13,3303 35517 STCALL TET
056235,000690: 13,3304 27226 RECTOUT
056236,000691:
|
|
Page 1323
|
056238,000693: # TESTLOOP
056239,000694:
056240,000695: 13,3305 43014 TESTLOOP BOF CLRGO
056241,000696: 13,3306 04752 QUITFLAG
056242,000697: 13,3307 27312 +3
056243,000698: 13,3310 01632 STATEFLG
056244,000699: 13,3311 27253 INTEXIT # STOP INTEGRATION
056245,000700: 13,3312 73001 +3 SETPD LXA,2
056246,000701: 13,3313 00013 10D
056247,000702: 13,3314 02150 PBODY
056248,000703: 13,3315 51575 VLOAD ABVAL
056249,000704: 13,3316 01535 RCV
056250,000705: 13,3317 43006 PUSH CLEAR # RC TO 10D
056251,000706: 13,3320 00262 MIDFLAG
056252,000707: 13,3321 50023 DSU* BMN # MIDFLAG=0 IF R G.T. RMP
056253,000708: 13,3322 67212 RME,2
056254,000709: 13,3323 27326 +3
056255,000710: 13,3324 77614 SET
056256,000711: 13,3325 00062 MIDFLAG
056257,000712: 13,3326 41345 NORFINAL DLOAD DMP
056258,000713: 13,3327 00013 10D
056259,000714: 13,3330 00043 34D
056260,000715: 13,3331 55762 SR1R DDV*
056261,000716: 13,3332 50042 MUEARTH,2
056262,000717: 13,3333 41366 SQRT DMP
056263,000718: 13,3334 23752 .3D
056264,000719: 13,3335 40442 SR3 SR4 # DT IS TRUNCATED TO A MULTIPLE
056265,000720: 13,3336 54345 DLOAD SL
056266,000721: 13,3337 00155 MPAC
056267,000722: 13,3340 20220 15D # OF 128 CSECS.
056268,000723: 13,3341 40006 PUSH BOV
056269,000724: 13,3342 27367 MAXDT
056270,000725: 13,3343 50021 BDSU BMN
056271,000726: 13,3344 27441 DT/2MAX
056272,000727: 13,3345 27367 MAXDT
056273,000728: 13,3346 45345 DT/2COMP DLOAD DSU
056274,000729: 13,3347 01101 TDEC
056275,000730: 13,3350 01517 TET
056276,000731: 13,3351 54234 RTB SL
056277,000732: 13,3352 45544 SGNAGREE
056278,000733: 13,3353 20211 8D
056279,000734: 13,3354 02314 STORE DT/2 # B-19
056280,000735: 13,3355 51400 BOV ABS
056281,000736: 13,3356 27373 GETMAXDT
056282,000737: 13,3357 50025 DSU BMN # IS TIME TO INTEG. TO GR THAN MAXTIME
056283,000738: 13,3360 00015 12D
056284,000739: 13,3361 27377 P00HCHK
056285,000740: 13,3362 75345 USEMAXDT DLOAD SIGN
056286,000741: 13,3363 00015 12D
056287,000742: 13,3364 02314 DT/2
|
|
Page 1324
|
056289,000744: 13,3365 36314 STCALL DT/2
056290,000745: 13,3366 27377 P00HCHK
056291,000746: 13,3367 65345 MAXDT DLOAD PDDL # EXCHANGE DT/2MAX WITH COMPUTED MAX.
056292,000747: 13,3370 27441 DT/2MAX
056293,000748: 13,3371 77650 GOTO
056294,000749: 13,3372 27346 DT/2COMP
056295,000750: 13,3373 77634 GETMAXDT RTB
056296,000751: 13,3374 45712 SIGNMPAC
056297,000752: 13,3375 36314 STCALL DT/2
056298,000753: 13,3376 27362 USEMAXDT
056299,000754: 13,3377 51545 P00HCHK DLOAD ABS
056300,000755: 13,3400 02314 DT/2
056301,000756: 13,3401 50025 DSU BMN
056302,000757: 13,3402 27437 DT/2MIN
056303,000758: 13,3403 27176 A-PCHK
056304,000759: 13,3404 46135 SLOAD BHIZ
056305,000760: 13,3405 01012 MODREG
056306,000761: 13,3406 27411 +3
056307,000762: 13,3407 77650 GOTO
056308,000763: 13,3410 23240 TIMESTEP
056309,000764: 13,3411 77614 BON # WAS THIS CALL VIA CSM(LEM)PREC
056310,000765: 13,3412 01707 PRECIFLG
056311,000766: 13,3413 23240 TIMESTEP # YES
056312,000767: 13,3414 45345 DLOAD DSU
056313,000768: 13,3415 02314 DT/2
056314,000769: 13,3416 00015 12D
056315,000770: 13,3417 43040 BMN BOFCLR
056316,000771: 13,3420 27176 A-PCHK
056317,000772: 13,3421 04242 NEWIFLG
056318,000773: 13,3422 23240 TIMESTEP
056319,000774: 13,3423 45345 DLOAD DSU
056320,000775: 13,3424 01101 TDEC
056321,000776: 13,3425 01517 TET
056322,000777: 13,3426 77640 BMN # NO BACKWARD INTEGRATION
056323,000778: 13,3427 27253 INTEXIT
056324,000779: 13,3430 40525 PDDL SR4
056325,000780: 13,3431 02314 DT/2 # IS 4(DT) LS (TDEC - TET)
056326,000781: 13,3432 44322 SR2R BDSU # NO
056327,000782: 13,3433 52040 BMN GOTO
056328,000783: 13,3434 27253 INTEXIT
056329,000784: 13,3435 23240 TIMESTEP
056330,000785: 13,3436 00000 01400 DT/2MIN 2DEC 3 B-20
056331,000786:
056332,000787: 13,3440 14152 00000 DT/2MAX 2DEC 4000 E2 B-20
056333,000788:
056334,000789: 13,3442 77776 INTSTALL EXIT
056335,000790: 13,3443 35021 CAF ZERO
056336,000791: 13,3444 54001 ALLSTALL TS L
056337,000792: 13,3445 30106 CA RASFLAG
056338,000793: 13,3446 50001 INDEX L
|
|
Page 1325
|
056340,000795: 13,3447 73540 MASK INTBITAB # IS THIS STALL AREA FREE
056341,000796: 13,3450 00006 EXTEND
056342,000797: 13,3451 13516 BZF OKTOGRAB # YES
056343,000798: 13,3452 50001 INDEX L
056344,000799: 13,3453 33535 CAF WAKESTAL
056345,000800: 13,3454 05175 TC JOBSLEEP
056346,000801: 13,3455 77776 INTWAKE0 EXIT
056347,000802: 13,3456 13477 TCF INTWAKE1
056348,000803:
056349,000804: 13,3457 40106 INTWAKE CS RASFLAG # IS THIS INTSTALLED ROUTINE TO BE
056350,000805: 13,3460 75011 MASK REINTBIT # RESTARTED
056351,000806: 13,3461 10000 CCS A
056352,000807: 13,3462 03477 TC INTWAKE1 # NO
056353,000808:
056354,000809: 13,3463 50120 INDEX FIXLOC
056355,000810: 13,3464 30052 CA QPRET
056356,000811: 13,3465 55055 TS TBASE2 # YES, DONT RESTART WITH SOMEONE ELSES Q
056357,000812:
056358,000813: 13,3466 05412 TC PHASCHNG
056359,000814: 13,3467 04022 OCT 04022
056360,000815:
056361,000816: 13,3470 31055 CA TBASE2
056362,000817: 13,3471 50120 INDEX FIXLOC
056363,000818: 13,3472 54052 TS QPRET
056364,000819:
056365,000820: 13,3473 35011 CAF REINTBIT
056366,000821: 13,3474 70106 MASK RASFLAG
056367,000822: 13,3475 00006 EXTEND
056368,000823: 13,3476 13521 BZF GOBAC # DONT INTWAKE IF WE CAME HERE VIA RESTART
056369,000824:
056370,000825: 13,3477 35021 INTWAKE1 CAF ZERO
056371,000826: 13,3500 54154 WAKE TS STALTEM # INDEX OF ANY STALL USER
056372,000827: 13,3501 50154 WAKE1 INDEX STALTEM
056373,000828: 13,3502 33535 CAF WAKESTAL
056374,000829: 13,3503 00004 INHINT
056375,000830: 13,3504 05201 TC JOBWAKE
056376,000831: 13,3505 10064 CCS LOCCTR
056377,000832: 13,3506 13501 TCF WAKE1 # MAY BE MORE TO WAKE UP
056378,000833: 13,3507 00051 FORTYONE DEC 41 B-14
056379,000834: 13,3510 50154 INDEX STALTEM
056380,000835: 13,3511 43540 CS INTBITAB
056381,000836: 13,3512 70106 MASK RASFLAG
056382,000837: 13,3513 54106 TS RASFLAG # RELEASE STALL AREA
056383,000838: 13,3514 00003 RELINT
056384,000839: 13,3515 13521 TCF GOBAC
056385,000840: 13,3516 50001 OKTOGRAB INDEX L # NO, WAIT UNTIL AVAILABLE
056386,000841: 13,3517 35002 CAF INTFLBIT
056387,000842: 13,3520 26106 ADS RASFLAG
056388,000843: 13,3521 06006 GOBAC TC INTPRET
056389,000844: 13,3522 77616 RVQ
|
|
Page 1326
|
056391,000846: 13,3523 77776 ERASTAL1 EXIT
056392,000847: 13,3524 35017 CAF ONE
056393,000848: 13,3525 13444 TCF ALLSTALL
056394,000849: 13,3526 77776 ERASTAL2 EXIT
056395,000850: 13,3527 35016 CAF TWO
056396,000851: 13,3530 13444 TCF ALLSTALL
056397,000852: 13,3531 35017 ERASWAK1 CAF ONE
056398,000853: 13,3532 13500 TCF WAKE
056399,000854: 13,3533 35016 ERASWAK2 CAF TWO
056400,000855: 13,3534 13500 TCF WAKE
056401,000856: 13,3535 27443 WAKESTAL CADR INTSTALL +1
056402,000857: 13,3536 27524 CADR ERASTAL1 +1
056403,000858: 13,3537 27527 CADR ERASTAL2 +1
056404,000859: 13,3540 0154 STALTEM EQUALS MPAC
056405,000860: 13,3540 20100 INTBITAB OCT 20100
056406,000861: 13,3541 10040 OCT 10040
056407,000862: 13,3542 04020 OCT 04020
056408,000863:
|
|
Page 1327
|
056410,000865: # AVETOMID
056411,000866:
056412,000867: # THIS ROUTINE PERFORMS THE TRANSITION FROM A THRUSTING PHASE TO THE COAST
056413,000868: # PHASE BY INITIALIZING THIS VEHICLES PERMANENT STATE VECTOR WITH THE
056414,000869: # VALUES LEFT BY THE AVERAGEG ROUTINE IN RN,VN,PIPTIME.
056415,000870:
056416,000871: # BEFORE THIS IS DONE THE W-MATRIX, IF ITS VALID (ORWFLAG OR RENDWFLG IS
056417,000872: # SET) IS INTEGRATED FORWARD TO PIPTIME WITH THE PRE-THRUST STATE VECTOR.
056418,000873:
056419,000874: # IN ADDITION, THE OTHER VEHICLE IS INTEGRATED (PERMANENT) TO PIPTIME.
056420,000875:
056421,000876: # FINALLY TRKMKCNT IS ZEROED
056422,000877:
056423,000878: 35,2000 SETLOC INTINIT2
056424,000879: 35,2000 BANK
056425,000880:
056426,000881: 35,3675 COUNT* $$/INTIN
056427,000882: 35,3675 43020 AVETOMID STQ BON
056428,000883: 35,3676 02317 EGRESS
056429,000884: 35,3677 02716 RENDWFLG
056430,000885: 35,3700 73753 INT/W # W-MATRIX VALID, GO INTEGRATE IT
056431,000886: 35,3701 77614 BON
056432,000887: 35,3702 01711 ORBWFLAG
056433,000888: 35,3703 73753 INT/W # W-MATRIX VALID, GO INTEGRATE IT
056434,000889:
056435,000890: 35,3704 45174 SETCOAST AXT,2 CALL # NOW MOVE PROPERLY SCALED RN,VN AND
056436,000891: 35,3705 00002 2 # PIPTIME TO INTEGRATION ERASABLES.
056437,000892: 35,3706 27442 INTSTALL
056438,000893: 35,3707 77014 BON AXT,2
056439,000894: 35,3710 00315 AMOONFLG
056440,000895: 35,3711 73713 +2
056441,000896: 35,3712 00000 0
056442,000897: 35,3713 53775 VLOAD VSR*
056443,000898: 35,3714 01171 RN
056444,000899: 35,3715 57176 0,2
056445,000900: 35,3716 01503 STORE RRECT
056446,000901: 35,3717 15535 STODL RCV
056447,000902: 35,3720 01205 PIPTIME
056448,000903: 35,3721 25517 STOVL TET
056449,000904: 35,3722 01177 VN
056450,000905: 35,3723 45057 VSR* CALL
056451,000906: 35,3724 57176 0,2
056452,000907: 35,3725 23435 MINIRECT # FINISH SETTING UP STATE VECTOR
056453,000908: 35,3726 66234 RTB SSP
056454,000909: 35,3727 26720 MOVATHIS # PUT TEMP STATE VECTOR INTO PERMANENT
056455,000910: 35,3730 01127 TRKMKCNT
056456,000911: 35,3731 00000 0
056457,000912: 35,3732 43014 SET BON
056458,000913: 35,3733 04063 CMOONFLG
|
|
Page 1328
|
056460,000915: 35,3734 00315 AMOONFLG
056461,000916: 35,3735 73740 +3
056462,000917: 35,3736 77614 CLEAR
056463,000918: 35,3737 04263 CMOONFLG
056464,000919:
056465,000920: 35,3740 71214 BON DLOAD # NOW DO LM
056466,000921: 35,3741 04307 SURFFLAG
056467,000922: 35,3742 75751 FAZAB5 # NO COASTING LM
056468,000923: 35,3743 01205 PIPTIME
056469,000924: 35,3744 34041 STCALL TDEC1
056470,000925: 35,3745 26670 SETIFLGS
056471,000926: 35,3746 45014 CLEAR CALL
056472,000927: 35,3747 01674 VINTFLAG
056473,000928: 35,3750 27162 INTEGRV
056474,000929: 35,3751 77650 GOTO
056475,000930: 35,3752 02317 EGRESS
056476,000931: 35,3753 45145 INT/W DLOAD CALL
056477,000932: 35,3754 01205 PIPTIME # INTEGRATE W THRU BURN
056478,000933: 35,3755 27442 INTSTALL
056479,000934: 35,3756 43014 SET SET
056480,000935: 35,3757 01476 DIM0FLAG # DO W-MATRIX
056481,000936: 35,3760 04476 AVEMIDSW # SO WONT CLOBBER RN,VN,PIPTIME
056482,000937: 35,3761 43014 CLEAR SET
056483,000938: 35,3762 01675 D6OR9FLG
056484,000939: 35,3763 01474 VINTFLAG
056485,000940: 35,3764 34041 STCALL TDEC1
056486,000941: 35,3765 27162 INTEGRV
056487,000942: 35,3766 77650 GOTO
056488,000943: 35,3767 73704 SETCOAST
056489,000944:
|
|
Page 1329
|
056491,000946: # MIDTOAV1
056492,000947:
056493,000948: # THIS ROUTINE INTEGRATES (PRECISION) TO THE TIME SPECIFIED IN TDEC1.
056494,000949: # IF, AT THE END OF AN INTEGRATION TIME STEP, CURRENT TIME PLUS A DELTA
056495,000950: # TIME (SEE TIMEDELT.....BASED ON THE COMPUTATUON TIME FOR ONE TIME STEP)
056496,000951: # IS GREATER THAN THE DESIRED TIME, ALARM 1703 IS SET AND THE INTEGRATION
056497,000952: # IS DONE AS IT IS FOR MIDTOAV2.
056498,000953: # RETURN IS IN BASIC TO THE RETURN ADDRESS PLUS ONE.
056499,000954:
056500,000955: # IF THE INTEGRATION IS FINISHED TO THE DESIRED TIME, RETURN IS IN BASIC
056501,000956: # TO THE RETURN ADDRESS
056502,000957:
056503,000958: # IN EITHER CASE, BEFORE RETURNING, THE EXTRAPOLATED STATE VECTOR IS TRAN
056504,000959: # FERRED FROM R,VATT TO R,VN1-PIPTIME1 IS SET TO THE FINISHING INTEGRA-
056505,000960: # TION TIME AND MPAC IS SET TO THE DELTA TIME---
056506,000961: # TAT MINUS CURRENT TIME.
056507,000962:
056508,000963: # MIDTOAV2
056509,000964:
056510,000965: # THIS ROUTINE INTEGRATES THE CSM STATE VECTOR TO CURRENT TIME PLUS
056511,000966: # INCREMENTS OF TIMEDELT SUCH THAT THE DIFFERENCE BETWEEN CURRENT TIME
056512,000967: # AND THE STATE VECTOR TIME AT THE END OF THE LAST STEP IS AT LEAST 5.6
056513,000968: # SECS.
056514,000969: # NO INPUTS ARE REQUIRED OF THE CALLER. RETURN IS IN BASIC TO THE RETURN
056515,000970: # ADDRESS WITH THE ABOVE TRANSFERS TO R,VN1-PIPTIME1-AND MPAC DONE
056516,000971:
056517,000972: 13,2000 SETLOC INTINIT
056518,000973: 13,2000 BANK
056519,000974: 13,3543 1127 EBANK= IRETURN1
056520,000975: 13,3543 45020 MIDTOAV2 STQ CALL
056521,000976: 13,3544 01127 IRETURN1
056522,000977: 13,3545 27442 INTSTALL
056523,000978: 13,3546 43145 DLOAD CLEAR
056524,000979: 13,3547 27711 TIMEDELT
056525,000980: 13,3550 04674 MID1FLAG
056526,000981: 13,3551 37732 STCALL T-TO-ADD
056527,000982: 13,3552 27567 ENTMID2
056528,000983:
056529,000984: 13,3553 45020 MIDTOAV1 STQ CALL
056530,000985: 13,3554 01127 IRETURN1
056531,000986: 13,3555 27442 INTSTALL
056532,000987: 13,3556 47014 SET RTB
056533,000988: 13,3557 04474 MID1FLAG
056534,000989: 13,3560 45510 LOADTIME
056535,000990: 13,3561 44215 DAD BDSU # INITIAL CHECK, IS TDEC1 IN THE FUTURE.
056536,000991: 13,3562 27711 TIMEDELT
056537,000992: 13,3563 00041 TDEC1
056538,000993: 13,3564 45044 BPL CALL
056539,000994: 13,3565 27573 ENTMID1
|
|
Page 1330
|
056541,000996: 13,3566 27674 NOTIME # NO SET ALARM.SWITCH TO MIDTOAV2
056542,000997:
056543,000998: 13,3567 43234 ENTMID2 RTB DAD
056544,000999: 13,3570 45510 LOADTIME
056545,001000: 13,3571 03732 T-TO-ADD
056546,001001: 13,3572 00041 STORE TDEC1
056547,001002:
056548,001003: 13,3573 45014 ENTMID1 CLEAR CALL
056549,001004: 13,3574 01676 DIM0FLAG # NO W-MATRIX
056550,001005: 13,3575 26034 THISVINT
056551,001006: 13,3576 43014 CLEAR SET
056552,001007: 13,3577 01673 INTYPFLG
056553,001008: 13,3600 04475 MIDAVFLG # LET INTEG. KNOW THE CALL IS FOR MIDTOAV.
056554,001009: 13,3601 77624 CALL
056555,001010: 13,3602 27162 INTEGRV # GO INTEGRATE
056556,001011: 13,3603 66134 SXA,2 SXA,1
056557,001012: 13,3604 03746 RTX2
056558,001013: 13,3605 03745 RTX1
056559,001014: 13,3606 67214 CLEAR SLOAD
056560,001015: 13,3607 00275 AMOONFLG
056561,001016: 13,3610 03747 RTX2
056562,001017: 13,3611 43054 BZE SET
056563,001018: 13,3612 27614 +2
056564,001019: 13,3613 00075 AMOONFLG
056565,001020: 13,3614 77775 VLOAD
056566,001021: 13,3615 00001 RATT
056567,001022: 13,3616 25232 STOVL RN1
056568,001023: 13,3617 00007 VATT
056569,001024: 13,3620 15240 STODL VN1
056570,001025: 13,3621 00015 TAT
056571,001026: 13,3622 01246 STORE PIPTIME1
056572,001027: 13,3623 77776 EXIT
056573,001028:
056574,001029: 13,3624 00004 INHINT
056575,001030: 13,3625 00006 EXTEND
056576,001031: 13,3626 40025 DCS TIME2
056577,001032: 13,3627 20155 DAS MPAC
056578,001033: 13,3630 07226 TC TPAGREE
056579,001034:
056580,001035: 13,3631 31127 CA IRETURN1
056581,001036: 13,3632 04704 TC BANKJUMP
056582,001037: 13,3633 47014 CKMID2 BOF RTB
056583,001038: 13,3634 04754 MID1FLAG
056584,001039: 13,3635 27652 MID2
056585,001040: 13,3636 45510 LOADTIME
056586,001041: 13,3637 44215 DAD BDSU
056587,001042: 13,3640 27711 TIMEDELT
056588,001043: 13,3641 01101 TDEC
056589,001044: 13,3642 45044 BPL CALL
056590,001045: 13,3643 27305 TESTLOOP # YES
|
|
Page 1331
|
056592,001047: 13,3644 27674 NOTIME
056593,001048:
056594,001049: 13,3645 43234 TIMEINC RTB DAD
056595,001050: 13,3646 45510 LOADTIME
056596,001051: 13,3647 03732 T-TO-ADD
056597,001052: 13,3650 35101 STCALL TDEC
056598,001053: 13,3651 27305 TESTLOOP
056599,001054:
056600,001055: 13,3652 45345 MID2 DLOAD DSU
056601,001056: 13,3653 01101 TDEC
056602,001057: 13,3654 01517 TET
056603,001058: 13,3655 45246 ABS DSU
056604,001059: 13,3656 27707 3CSECS
056605,001060: 13,3657 77644 BPL
056606,001061: 13,3660 27645 TIMEINC
056607,001062:
056608,001063: 13,3661 44234 RTB BDSU # SEE IF 5.6 SECS. AVAILABLE TO CALLER.
056609,001064: 13,3662 45510 LOADTIME
056610,001065: 13,3663 01517 TET
056611,001066: 13,3664 51025 DSU BPL
056612,001067: 13,3665 27713 5.6SECS
056613,001068: 13,3666 27176 A-PCHK # YES,GET OUT.
056614,001069:
056615,001070: 13,3667 43345 DLOAD DAD # NO,ADD TIMEDELT TO T-TO-ADD AND TRY
056616,001071: 13,3670 03732 T-TO-ADD # AGAIN.
056617,001072: 13,3671 27711 TIMEDELT
056618,001073: 13,3672 37732 STCALL T-TO-ADD
056619,001074: 13,3673 27645 TIMEINC
056620,001075: 13,3674 77414 NOTIME CLEAR EXIT # TOO LATE
056621,001076: 13,3675 04674 MID1FLAG
056622,001077: 13,3676 25127 INCR IRETURN1 # SET ERROR EXIT (CALLOC +2)
056623,001078: 13,3677 05650 TC ALARM # INSUFFICIENT TIME FOR INTEGRATION --
056624,001079: 13,3700 01703 OCT 1703 # TIG WILL BE SLIPPED...
056625,001080: 13,3701 06006 TC INTPRET
056626,001081: 13,3702 77745 DLOAD
056627,001082: 13,3703 27711 TIMEDELT
056628,001083: 13,3704 03732 STORE T-TO-ADD
056629,001084: 13,3705 77616 RVQ
056630,001085:
056631,001086: 13,3706 00000 00003 3CSECS 2DEC 3 B-28
056632,001087:
056633,001088: 13,3710 00000 02342 TIMEDELT 2DEC 1250 B-28
056634,001089:
056635,001090: 13,3712 00000 01060 5.6SECS 2DEC 560 B-28
056636,001091:
056637,001092: 27,2671 BANK 27
056638,001093: 27,2000 SETLOC UPDATE2
056639,001094: 27,2000 BANK
056640,001095: 27,2671 0330 EBANK= INTWAKUQ
056641,001096:
|
|
Page 1332
|
056643,001098: 27,2671 COUNT* $$/INTIN
056644,001099:
056645,001100: 27,2671 0330 INTWAKUQ = INTWAK1Q # TEMPORARY UNTIL NAME OF INTWAK1Q IS CHNG
056646,001101:
056647,001102: 27,2671 00003 INTWAKEU RELINT
056648,001103: 27,2672 00006 EXTEND
056649,001104: 27,2673 22330 QXCH INTWAKUQ # SAVE Q FOR RETURN
056650,001105:
056651,001106: 27,2674 06006 TC INTPRET
056652,001107:
056653,001108: 27,2675 53135 SLOAD BZE # IS THIS A CSM/LEM STATE VECTOR UPDATE
056654,001109: 27,2676 01502 UPSVFLAG # REQUEST. IF NOT GO TO INTWAKUP.
056655,001110: 27,2677 56736 INTWAKUP
056656,001111:
056657,001112: 27,2700 77775 VLOAD # MOVE RRECT(6) AND VRECT(6) INTO
056658,001113: 27,2701 01503 RRECT # RCV(6) AND VCV(6) RESPECTIVELY.
056659,001114: 27,2702 25535 STOVL RCV
056660,001115: 27,2703 01511 VRECT # NOW GO TO 'RECTIFY +13D' TO
056661,001116: 27,2704 77624 CALL # STORE VRECT INTO VCV AND ZERO OUT
056662,001117: 27,2705 23436 RECTIFY +13D # TDELTAV(6),TNUV(6),TC(2) AND XKEP(2)
056663,001118: 27,2706 51535 SLOAD ABS # COMPARE ABSOLUTE VALUE OF 'UPSVFLAG'
056664,001119: 27,2707 01502 UPSVFLAG # TO 'UPDATE MOON STATE VECTOR CODE'
056665,001120: 27,2710 53025 DSU BZE # TO DETERMINE WHETHER THE STATE VECTOR TO
056666,001121: 27,2711 16747 UPMNSVCD # BE UPDATED IS IN THE EARTH OR LUNAR
056667,001122: 27,2712 56717 INTWAKEM # SPHERE OF INFLUENCE.........
056668,001123: 27,2713 43174 AXT,2 CLRGO # EARTH SPHERE OF INFLUENCE.
056669,001124: 27,2714 00000 DEC 0 B-14
056670,001125: 27,2715 00223 MOONFLAG
056671,001126: 27,2716 56722 INTWAKEC
056672,001127: 27,2717 43174 INTWAKEM AXT,2 SET # LUNAR SPHERE OF INFLUENCE.
056673,001128: 27,2720 00002 DEC 2 B-14
056674,001129: 27,2721 00063 MOONFLAG
056675,001130: 27,2722 50135 INTWAKEC SLOAD BMN # COMMON CODING AFTER X2 INITIALIZED AND
056676,001131: # MOONFLAG SET (OR CLEARED).
056677,001132: 27,2723 01502 UPSVFLAG # IS THIS A REQUEST FOR A LEM OR CSM
056678,001133: 27,2724 56732 INTWAKLM # STATE VECTOR UPDATE......
056679,001134: 27,2725 77624 CALL # UPDATE CSM STATE VECTOR
056680,001135: 27,2726 26705 ATOPCSM
056681,001136:
056682,001137: 27,2727 52014 CLEAR GOTO
056683,001138: 27,2730 01671 ORBWFLAG
056684,001139: 27,2731 56734 INTWAKEX
056685,001140:
056686,001141: 27,2732 77624 INTWAKLM CALL # UPDATE LM STATE VECTOR
056687,001142: 27,2733 26760 ATOPLEM
056688,001143:
056689,001144: 27,2734 77614 INTWAKEX CLEAR
056690,001145: 27,2735 02676 RENDWFLG
056691,001146:
056692,001147: 27,2736 45131 INTWAKUP SSP CALL # REMOVE :UPDATE STATE VECTOR INDICATOR:
|
|
Page 1333
|
056694,001149: 27,2737 01502 UPSVFLAG
056695,001150: 27,2740 00000 0
056696,001151: 27,2741 27455 INTWAKE0 # RELEASE :GRAB: OF ORBIT INTEG
056697,001152: 27,2742 77776 EXIT
056698,001153:
056699,001154: 27,2743 05412 TC PHASCHNG
056700,001155: 27,2744 04026 OCT 04026
056701,001156: 27,2745 00330 TC INTWAKUQ
056702,001157:
056703,001158: 27,2746 00002 UPMNSVCD OCT 2
056704,001159: 27,2747 00000 OCT 0
056705,001160:
056706,001161: 27,2750 77420 GRP2PC STQ EXIT
056707,001162: 27,2751 03536 GRP2SVQ
056708,001163: 27,2752 05412 TC PHASCHNG
056709,001164: 27,2753 04022 OCT 04022
056710,001165: 27,2754 06006 TC INTPRET
056711,001166: 27,2755 77650 GOTO
056712,001167: 27,2756 03536 GRP2SVQ
056713,001168:
056714,001169:
056715,001170:
End of include-file INTEGRATION_INITIALIZATION.agc. Parent file is MAIN.agc