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