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