Source Code

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