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