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