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