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