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