Source Code

022762,000001: # Copyright: Public domain. 022763,000002: # Filename: STABLE_ORBIT.agc 022764,000003: # Purpose: Part of the source code for Colossus 2A, AKA Comanche 055. 022765,000004: # It is part of the source code for the Command Module's (CM) 022766,000005: # Apollo Guidance Computer (AGC), for Apollo 11. 022767,000006: # Assembler: yaYUL 022768,000007: # Contact: Hartmuth Gutsche <hgutsche@xplornet.com>. 022769,000008: # Website: www.ibiblio.org/apollo. 022770,000009: # Pages: 525-532 022771,000010: # Mod history: 2009-05-10 HG Started adapting from the Colossus249/ file 022772,000011: # of the same name, using Comanche055 page 022773,000012: # images 0525.jpg - 0532.jpg. 022774,000013: # 2010-08-20 JL Fixed page number comment (p531). 022775,000014: 022776,000015: # This source code has been transcribed or otherwise adapted from digitized 022777,000016: # images of a hardcopy from the MIT Museum. The digitization was performed 022778,000017: # by Paul Fjeld, and arranged for by Deborah Douglas of the Museum. Many 022779,000018: # thanks to both. The images (with suitable reduction in storage size and 022780,000019: # consequent reduction in image quality as well) are available online at 022781,000020: # www.ibiblio.org/apollo. If for some reason you find that the images are 022782,000021: # illegible, contact me at info@sandroid.org about getting access to the 022783,000022: # (much) higher-quality images which Paul actually created. 022784,000023: 022785,000024: # Notations on the hardcopy document read, in part: 022786,000025: 022787,000026: # Assemble revision 055 of AGC program Comanche by NASA 022788,000027: # 2021113-051. 10:28 APR. 1, 1969 022789,000028: 022790,000029: # This AGC program shall also be referred to as 022791,000030: # Colossus 2A 022792,000031: # Page 525 022793,000032: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78) 022794,000033: 022795,000034: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39 022796,000035: # MOD BY RUDNICKI.S DATE 25JAN68 022797,000036: 022798,000037: # FUNCTIONAL DESCRIPTION 022799,000038: 022800,000039: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL 022801,000040: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE 022802,000041: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE 022803,000042: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE 022804,000043: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE 022805,000044: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO 022806,000045: # VEHICLES 022807,000046: 022808,000047: # CALLING SEQUENCE 022809,000048: 022810,000049: # ASTRONAUT REQUEST THRU DSKY 022811,000050: 022812,000051: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE 022813,000052: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE 022814,000053: 022815,000054: # INPUT 022816,000055: 022817,000056: # (1) SOI MANEUVER 022818,000057: 022819,000058: # (A) TIG TIME OF SOI MANEUVER 022820,000059: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE 022821,000060: # DURING THE TRANSFER FROM TIG TO TIME OF INTERCEPT 022822,000061: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES 022823,000062: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE 022824,000063: # ORBIT 022825,000064: # (D) OPTION EQUALS 1 FOR SOI 022826,000065: 022827,000066: # (2) SOR MANEUVER 022828,000067: 022829,000068: # (A) TIG TIME OF SOR MANEUVER 022830,000069: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE 022831,000070: # (C) OPTION EQUALS 2 FOR SOR 022832,000071: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN 022833,000072: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL 022834,000073: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM 022835,000074: # SOI PHASE 022836,000075: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE 022837,000076: 022838,000077: # OUTPUT 022839,000078: 022840,000079: # (1) TRKMKCNT NUMBER OF MARKS 022841,000080: # (2) TTOGO TIME TO GO 022842,000081: # (3) +MGA MIDDLE GIMBAL ANGLE 022843,000082: # Page 526 022844,000083: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT 022845,000084: # (FOR SOI ONLY) 022846,000085: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER 022847,000086: # THE SOI (SOR) MANEUVER 022848,000087: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME 022849,000088: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME 022850,000089: # (8) DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL 022851,000090: # CORDINATES 022852,000091: 022853,000092: # SUBROUTINES USED 022854,000093: 022855,000094: # AVFLAGA 022856,000095: # AVFLAGP 022857,000096: # VNDSPLY 022858,000097: # BANKCALL 022859,000098: # GOFLASHR 022860,000099: # GOTOP00H 022861,000100: # BLANKET 022862,000101: # ENDOFJOB 022863,000102: # PREC/TT 022864,000103: # SELECTMU 022865,000104: # INTRPVP 022866,000105: # MAINRTNE 022867,000106: 022868,000107: 04,2742 BANK 04 022869,000108: 04,2000 SETLOC STBLEORB 022870,000109: 04,2000 BANK 022871,000110: 022872,000111: 04,2742 E4,1770 EBANK= SUBEXIT 022873,000112: 04,2742 COUNT* $$/P3879 022874,000113: 022875,000114: 04,2742 04627 P38 TC AVFLAGA # THIS VEHICLE ACTIVE 022876,000115: 04,2743 02745 TC +2 022877,000116: 04,2744 04642 P78 TC AVFLAGP # OTHER VEHICLE ACTIVE 022878,000117: 04,2745 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG 022879,000118: 04,2746 33274 CAF V06N33SR # DISPLAY TIG 022880,000119: 04,2747 03263 TC VNDSPLY 022881,000120: 04,2750 33275 CAF V06N55SR # DISPLAY CENTANG 022882,000121: 04,2751 04662 TCR BANKCALL 022883,000122: 04,2752 21057 CADR GOFLASHR 022884,000123: 04,2753 14106 TCF GOTOP00H # TERMINATE 022885,000124: 04,2754 12761 TCF +5 # PROCEED 022886,000125: 04,2755 12750 TCF -5 # RECYCLE 022887,000126: 04,2756 36214 CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2 022888,000127: 04,2757 05526 TCR BLANKET 022889,000128: 04,2760 15217 TCF ENDOFJOB 022890,000129: 04,2761 35022 CAF FIVE 022891,000130: 04,2762 55131 TS OPTION1 022892,000131: 04,2763 35017 CAF ONE 022893,000132: 04,2764 55132 TS OPTION2 # OPTION CODE IS SET TO 1 022894,000133: # Page 527 022895,000134: 04,2765 33276 CAF V04N06SR # DISPLAY OPTION CODE -1 = SOI, 2 = SOR 022896,000135: 04,2766 04662 TCR BANKCALL 022897,000136: 04,2767 21057 CADR GOFLASHR 022898,000137: 04,2770 14106 TCF GOTOP00H # TERMINATE 022899,000138: 04,2771 12776 TCF +5 # PROCEED 022900,000139: 04,2772 12765 TCF -5 # RECYCLE 022901,000140: 04,2773 35015 CAF BIT3 # IMMEDIATE RETURN -- BLANK R3 022902,000141: 04,2774 05526 TCR BLANKET 022903,000142: 04,2775 15217 TCF ENDOFJOB 022904,000143: 04,2776 06006 TC INTPRET 022905,000144: 04,2777 77731 SSP 022906,000145: 04,3000 03766 NN 022907,000146: 04,3001 00002 2 022908,000147: 04,3002 70535 SLOAD SR1 022909,000148: 04,3003 01133 OPTION2 022910,000149: 04,3004 71230 BHIZ DLOAD 022911,000150: 04,3005 11013 OPTN1 022912,000151: 04,3006 03656 TINT 022913,000152: 04,3007 02611 STORE TINTSOI # STORE FOR SOR PHASE 022914,000153: 04,3010 77614 CLRGO 022915,000154: 04,3011 01230 OPTNSW # OPTNSW: ON = SOI. OFF = SOR 022916,000155: 04,3012 11042 JUNCTN1 022917,000156: 04,3013 43014 OPTN1 SET CLEAR # SOI 022918,000157: 04,3014 01070 OPTNSW 022919,000158: 04,3015 00670 UPDATFLG 022920,000159: 04,3016 77624 CALL 022921,000160: 04,3017 11216 PREC/TT 022922,000161: 04,3020 43214 SET DAD 022923,000162: 04,3021 00470 UPDATFLG 022924,000163: 04,3022 03413 TIG 022925,000164: 04,3023 03656 STORE TINT # TI = TIG + TF 022926,000165: 04,3024 01046 STORE DSPTEM1 # FOR DISPLAY 022927,000166: 04,3025 77776 EXIT 022928,000167: 04,3026 33277 CAF V06N57SR # DISPLAY DELTA R 022929,000168: 04,3027 04662 TCR BANKCALL 022930,000169: 04,3030 21057 CADR GOFLASHR 022931,000170: 04,3031 14106 TCF GOTOP00H # TERMINATE 022932,000171: 04,3032 13037 TCF +5 # PROCEED 022933,000172: 04,3033 13026 TCF -5 # RECYCLE 022934,000173: 04,3034 36211 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3 022935,000174: 04,3035 05526 TCR BLANKET 022936,000175: 04,3036 15217 TCF ENDOFJOB 022937,000176: 04,3037 33300 CAF V06N34SR # DISPLAY TIME OF INTERCEPT 022938,000177: 04,3040 03263 TC VNDSPLY 022939,000178: 04,3041 06006 TC INTPRET 022940,000179: 04,3042 45014 JUNCTN1 CLEAR CALL 022941,000180: 04,3043 04266 P39/79SW 022942,000181: 04,3044 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645 022943,000182: 04,3045 77624 RECYCLE CALL 022944,000183: 04,3046 11216 PREC/TT 022945,000184: # Page 528 022946,000185: 04,3047 71214 BOFF DLOAD 022947,000186: 04,3050 01350 OPTNSW 022948,000187: 04,3051 11071 OPTN2 022949,000188: 04,3052 03656 TINT 022950,000189: 04,3053 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO 022951,000190: 04,3054 11247 INTRPVP # INTERCEPT TIME 022952,000191: 04,3055 53575 VLOAD UNIT 022953,000192: 04,3056 00001 RATT # RP/(RP) 022954,000193: 04,3057 47315 PDVL VXV 022955,000194: 04,3060 00007 VATT 022956,000195: 04,3061 60246 ABVAL NORM # (VP X RP/(RP)) 022957,000196: 04,3062 00047 X1 022958,000197: 04,3063 56325 PDDL DDV 022959,000198: 04,3064 02611 DELTAR 022960,000199: 04,3065 77657 SL* # DELTA R / (VP X RP/RP) 022961,000200: 04,3066 20172 0 -7,1 022962,000201: 04,3067 36613 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP) 022963,000202: 04,3070 11075 JUNCTN2 022964,000203: 04,3071 43345 OPTN2 DLOAD DAD 022965,000204: 04,3072 02611 TINTSOI 022966,000205: 04,3073 00037 T 022967,000206: 04,3074 03656 STORE TINT # TI = TI + TF 022968,000207: 04,3075 45345 JUNCTN2 DLOAD DSU 022969,000208: 04,3076 03656 TINT 022970,000209: 04,3077 02613 DELTTIME 022971,000210: 04,3100 02615 STORE TARGTIME # TT = TI - DELTA T 022972,000211: 022973,000212: # .... MAINRTNE .... 022974,000213: 022975,000214: # SUBROUTINES USED 022976,000215: 022977,000216: # S3435.25 022978,000217: # PERIAPO1 022979,000218: # SHIFTR1 022980,000219: # VNDSPLY 022981,000220: # BANKCALL 022982,000221: # GOFLASH 022983,000222: # GOTOP00H 022984,000223: # VN1645 022985,000224: 022986,000225: 04,3101 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO 022987,000226: 04,3102 11247 INTRPVP # TARGET TIME 022988,000227: 04,3103 77745 DLOAD 022989,000228: 04,3104 03413 TIG 022990,000229: 04,3105 03503 STORE INTIME 022991,000230: 04,3106 77331 SSP VLOAD 022992,000231: 04,3107 02371 SUBEXIT 022993,000232: 04,3110 11114 TEST3979 022994,000233: 04,3111 00001 RATT 022995,000234: 04,3112 77624 CALL 022996,000235: 04,3113 72546 S3435.25 022997,000236: 04,3114 43014 TEST3979 BOFF BON 022998,000237: # Page 529 022999,000238: 04,3115 04346 P39/79SW 023000,000239: 04,3116 11125 MAINRTN1 023001,000240: 04,3117 01311 FINALFLG 023002,000241: 04,3120 11123 P39P79 023003,000242: 04,3121 77614 SET 023004,000243: 04,3122 00470 UPDATFLG 023005,000244: 04,3123 77776 P39P79 EXIT 023006,000245: 04,3124 03152 TC DSPLY81 # FOR P39 AND P79 023007,000246: 04,3125 51575 MAINRTN1 VLOAD ABVAL 023008,000247: 04,3126 03646 DELVEET3 023009,000248: 04,3127 26635 STOVL DELVTPI # DELTA V 023010,000249: 04,3130 03640 VPASS4 023011,000250: 04,3131 51451 VSU ABVAL 023012,000251: 04,3132 03620 VTPRIME 023013,000252: 04,3133 26637 STOVL DELVTPF # DELTA V (FINAL) = V-T - VT 023014,000253: 04,3134 03540 RACT3 023015,000254: 04,3135 45115 PDVL CALL 023016,000255: 04,3136 03612 VIPRIME 023017,000256: 04,3137 45153 PERIAPO1 # GET PERIGEE ALTITUDE 023018,000257: 04,3140 77624 CALL 023019,000258: 04,3141 45263 SHIFTR1 023020,000259: 04,3142 02641 STORE POSTTPI 023021,000260: 04,3143 43014 BON SET 023022,000261: 04,3144 01311 FINALFLG 023023,000262: 04,3145 11147 DSPLY58 023024,000263: 04,3146 00470 UPDATFLG 023025,000264: 04,3147 77776 DSPLY58 EXIT 023026,000265: 04,3150 33301 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL) 023027,000266: 04,3151 03263 TC VNDSPLY 023028,000267: 04,3152 33302 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV) 023029,000268: 04,3153 03263 TC VNDSPLY 023030,000269: 04,3154 06006 TC INTPRET 023031,000270: 04,3155 77214 CLEAR VLOAD 023032,000271: 04,3156 01267 XDELVFLG 023033,000272: 04,3157 03646 DELVEET3 023034,000273: 04,3160 37646 STCALL DELVSIN 023035,000274: 04,3161 73002 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA 023036,000275: 04,3162 52014 BON GOTO 023037,000276: 04,3163 04306 P39/79SW 023038,000277: 04,3164 11203 P39/P79B 023039,000278: 04,3165 11045 RECYCLE 023040,000279: 023041,000280: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79) 023042,000281: 023043,000282: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39 023044,000283: # MOD BY RUDNICKI, S DATE 25JAN68 023045,000284: 023046,000285: # FUNCTIONAL DESCRIPTION 023047,000286: 023048,000287: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL 023049,000288: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION 023050,000289: # Page 530 023051,000290: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING 023052,000291: # THE SOR MANEUVER. 023053,000292: 023054,000293: # CALLING SEQUENCE 023055,000294: 023056,000295: # ASTRONAUT REQUEST THRU DSKY 023057,000296: 023058,000297: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE 023059,000298: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE 023060,000299: 023061,000300: # INPUT 023062,000301: 023063,000302: # (1) TPASS4 TIME OF INTERCEPT -- SAVED FROM P38/P78 023064,000303: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -- 023065,000304: # SAVED FROM P38/P78 023066,000305: 023067,000306: # OUTPUT 023068,000307: 023069,000308: # (1) TRKMKCNT NUMBER OF MARKS 023070,000309: # (2) TTOGO TIME TO GO 023071,000310: # (3) +MGA MIDDLE GIMBAL ANGLE 023072,000311: # (4) DELVLVC DELTA VELOCITY AT MID -- LOCAL VERTICAL COORDINATES 023073,000312: 023074,000313: # SUBROUTINES USED 023075,000314: 023076,000315: # AVFLAGA 023077,000316: # AVFLAGP 023078,000317: # LOADTIME 023079,000318: # SELECTMU 023080,000319: # PRECSET 023081,000320: # S34/35.1 023082,000321: # MAINRTNE 023083,000322: 023084,000323: 04,3166 04627 P39 TC AVFLAGA # THIS VEHICLE ACTIVE 023085,000324: 04,3167 00006 EXTEND 023086,000325: 04,3170 31422 DCA ATIGINC 023087,000326: 04,3171 03175 TC P39/P79A 023088,000327: 04,3172 04642 P79 TC AVFLAGP # OTHER VEHICLE ACTIVE 023089,000328: 04,3173 00006 EXTEND 023090,000329: 04,3174 31424 DCA PTIGINC 023091,000330: 04,3175 53764 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN 023092,000331: 04,3176 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG 023093,000332: 04,3177 06006 TC INTPRET 023094,000333: 04,3200 45014 SET CALL 023095,000334: 04,3201 04066 P39/79SW 023096,000335: 04,3202 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645 023097,000336: 04,3203 43234 P39/P79B RTB DAD 023098,000337: 04,3204 45510 LOADTIME 023099,000338: 04,3205 02364 KT 023100,000339: 04,3206 03413 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME 023101,000340: # Page 531 023102,000341: 04,3207 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE 023103,000342: 04,3210 45215 PRECSET # VEHICLES TO TIG 023104,000343: 04,3211 77624 CALL 023105,000344: 04,3212 74000 S34/35.1 # GET UNIT NORMAL 023106,000345: 04,3213 52145 DLOAD GOTO 023107,000346: 04,3214 02615 TARGTIME 023108,000347: 04,3215 11101 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV) 023109,000348: 023110,000349: # .... PREC/TT .... 023111,000350: 023112,000351: # SUBROUTINES USED 023113,000352: 023114,000353: # PRECSET 023115,000354: # TIMETHET 023116,000355: # S34/35.1 023117,000356: 023118,000357: 04,3216 71220 PREC/TT STQ DLOAD 023119,000358: 04,3217 02367 RTRN 023120,000359: 04,3220 03413 TIG 023121,000360: 04,3221 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE 023122,000361: 04,3222 45215 PRECSET # VEHICLES TO TIG 023123,000362: 04,3223 53775 VLOAD VSR* 023124,000363: 04,3224 03554 RPASS3 023125,000364: 04,3225 57176 0,2 023126,000365: 04,3226 16657 STODL RVEC 023127,000366: 04,3227 03754 CENTANG 023128,000367: 04,3230 71406 PUSH COS 023129,000368: 04,3231 16734 STODL CSTH 023130,000369: 04,3232 43156 SIN SET 023131,000370: 04,3233 03466 RVSW 023132,000371: 04,3234 26732 STOVL SNTH 023133,000372: 04,3235 03562 VPASS3 023134,000373: 04,3236 77657 VSR* 023135,000374: 04,3237 57176 0,2 023136,000375: 04,3240 36746 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF 023137,000376: 04,3241 24744 TIMETHET # PASSIVE VEHICLE 023138,000377: 04,3242 77624 CALL 023139,000378: 04,3243 74000 S34/35.1 # GET UNIT NORMAL 023140,000379: 04,3244 52145 DLOAD GOTO 023141,000380: 04,3245 00037 T 023142,000381: 04,3246 02367 RTRN 023143,000382: 023144,000383: # .... INTRPVP .... 023145,000384: 023146,000385: # SUBROUTINES USED 023147,000386: 023148,000387: # CSMPREC 023149,000388: # LEMPREC 023150,000389: 023151,000390: 04,3247 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO 023152,000391: 04,3250 02367 RTRN # TDEC1 023153,000392: 04,3251 01352 AVFLAG 023154,000393: 04,3252 11257 OTHERV 023155,000394: 04,3253 77624 CALL 023156,000395: # Page 532 023157,000396: 04,3254 27071 CSMPREC 023158,000397: 04,3255 77650 GOTO 023159,000398: 04,3256 02367 RTRN 023160,000399: 04,3257 77624 OTHERV CALL 023161,000400: 04,3260 27105 LEMPREC 023162,000401: 04,3261 77650 GOTO 023163,000402: 04,3262 02367 RTRN 023164,000403: 023165,000404: # .... VNDSPLY .... 023166,000405: 023167,000406: # SUBROUTINES USED 023168,000407: 023169,000408: # BANKCALL 023170,000409: # GOFLASH 023171,000410: # GOTOP00H 023172,000411: 023173,000412: 04,3263 00006 VNDSPLY EXTEND # FLASH DISPLAY 023174,000413: 04,3264 23767 QXCH RTRN 023175,000414: 04,3265 55765 TS VERBNOUN 023176,000415: 04,3266 31765 CA VERBNOUN 023177,000416: 04,3267 04662 TCR BANKCALL 023178,000417: 04,3270 20720 CADR GOFLASH 023179,000418: 04,3271 14106 TCF GOTOP00H # TERMINATE 023180,000419: 04,3272 01767 TC RTRN # PROCEED 023181,000420: 04,3273 13266 TCF -5 # RECYCLE 023182,000421: 04,3274 01441 V06N33SR VN 0633 023183,000422: 04,3275 01467 V06N55SR VN 0655 023184,000423: 04,3276 01006 V04N06SR VN 0406 023185,000424: 04,3277 01471 V06N57SR VN 0657 023186,000425: 04,3300 01442 V06N34SR VN 0634 023187,000426: 04,3301 01472 V06N58SR VN 0658 023188,000427: 04,3302 01521 V06N81SR VN 0681 023189,000428: 023190,000429: # *** END OF COMEKISS.020 *** End of include-file STABLE_ORBIT.agc. Parent file is MAIN.agc