Source Code
![]() |
These source-code files were derived from scans of the
Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original
AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249
(Apollo 9 CM) source files were used as a template, and changes between Colossus 249
and Colossus 237 were manually transcribed by a team of volunteers. Note
that the page images
presented online are of reduced quality, and that additional images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS BY NASA 2021111-031 1:17 AUG. 24, 1968Note that the date is the date of the printout, not the date of the program revision. |
022311,000002: ## Copyright: Public domain.
022312,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
022313,000004: ## Purpose: Part of the source code for Colossus build 237.
022314,000005: ## This is for the Command Module's (CM) Apollo Guidance
022315,000006: ## Computer (AGC), for Apollo 8.
022316,000007: ## Assembler: yaYUL
022317,000008: ## Contact: Onno Hommes <ohommes@alumni.cmu.edu>
022318,000009: ## Website: www.ibiblio.org/apollo/index.html
022319,000010: ## Page Scans: www.ibiblio.org/apollo/ScansForConversion/Colossus237/
022320,000011: ## Mod history: 2010-06-03 OH Adapted from corresponding Colossus 249 file.
022321,000012: ## 2010-12-04 JL Remove Colossus 249 header comments. Change to double-has page numbers.
022322,000013: ## 2011-02-06 JL Minor fixes.
022323,000014: ## 2016-12-31 RSB Proofed comment text using octopus/ProoferComments,
022324,000015: ## and corrected errors found.
022325,000016:
![]() |
Page 514 |
022327,000018: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022328,000019:
022329,000020: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022330,000021: # MOD BY RUDNICKI.S DATE 25JAN68
022331,000022:
022332,000023: # FUNCTIONAL DESCRIPTION
022333,000024:
022334,000025: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022335,000026: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022336,000027: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022337,000028: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022338,000029: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022339,000030: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022340,000031: # VEHICLES
022341,000032:
022342,000033: # CALLING SEQUENCE
022343,000034:
022344,000035: # ASTRONAUT REQUEST THRU DSKY
022345,000036:
022346,000037: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
022347,000038: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
022348,000039:
022349,000040: # INPUT
022350,000041:
022351,000042: # (1) SOI MANEUVER
022352,000043:
022353,000044: # (A) TIG TIME OF SOI MANEUVER
022354,000045: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022355,000046: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022356,000047: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
022357,000048: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022358,000049: # ORBIT
022359,000050: # (D) OPTION EQUALS 1 FOR SOI
022360,000051:
022361,000052: # (2) SOR MANEUVER
022362,000053:
022363,000054: # (A) TIG TIME OF SOR MANEUVER
022364,000055: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022365,000056: # (C) OPTION EQUALS 2 FOR SOR
022366,000057: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022367,000058: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022368,000059: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022369,000060: # SOI PHASE
022370,000061: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022371,000062:
022372,000063: # OUTPUT
022373,000064:
022374,000065: # (1) TRKMKCNT NUMBER OF MARKS
022375,000066: # (2) TTOGO TIME TO GO
022376,000067: # (3) +MGA MIDDLE GIMBAL ANGLE
![]() |
Page 515 |
022378,000069: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022379,000070: # (FOR SOI ONLY)
022380,000071: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022381,000072: # THE SOI (SOR) MANEUVER
022382,000073: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022383,000074: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
022384,000075: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022385,000076: # COORDINATES
022386,000077:
022387,000078: # SUBROUTINES USED
022388,000079:
022389,000080: # AVFLAGA
022390,000081: # AVFLAGP
022391,000082: # VNDSPLY
022392,000083: # BANKCALL
022393,000084: # GOFLASHR
022394,000085: # GOTOPOOH
022395,000086: # BLANKET
022396,000087: # ENDOFJOB
022397,000088: # PREC/TT
022398,000089: # SELECTMU
022399,000090: # INTRPVP
022400,000091: # MAINRTNE
022401,000092:
022402,000093: 04,3103 BANK 04
022403,000094: 04,2000 SETLOC STBLEORB
022404,000095: 04,2000 BANK
022405,000096:
022406,000097: 04,3103 E4,1770 EBANK= SUBEXIT
022407,000098: 04,3103 COUNT* $$/P3879
022408,000099:
022409,000100: 04,3103 04555 P38 TC BANKCALL
022410,000101: 04,3104 73726 CADR AVFLAGA # THIS VEHICLE ACTIVE
022411,000102: 04,3105 03110 TC +3
022412,000103: 04,3106 04555 P78 TC BANKCALL
022413,000104: 04,3107 73741 CADR AVFLAGP # OTHER VEHICLE ACTIVE
022414,000105: 04,3110 04555 TC BANKCALL
022415,000106: 04,3111 73746 CADR P20FLGON # SET UPDATFLG, TRACKFLG
022416,000107: 04,3112 33435 CAF V06N33SR # DISPLAY TIG
022417,000108: 04,3113 03424 TC VNDSPLY
022418,000109: 04,3114 33436 CAF V06N55SR # DISPLAY CENTANG
022419,000110: 04,3115 04555 TCR BANKCALL
022420,000111: 04,3116 20763 CADR GOFLASHR
022421,000112: 04,3117 14106 TCF GOTOPOOH # TERMINATE
022422,000113: 04,3120 13125 TCF +5 # PROCEED
022423,000114: 04,3121 13114 TCF -5 # RECYCLE
022424,000115: 04,3122 36214 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
022425,000116: 04,3123 05415 TCR BLANKET
022426,000117: 04,3124 15112 TCF ENDOFJOB
022427,000118: 04,3125 34715 CAF FIVE
![]() |
Page 516 |
022429,000120: 04,3126 55131 TS OPTION1
022430,000121: 04,3127 34712 CAF ONE
022431,000122: 04,3130 55132 TS OPTION2 # OPTION CODE IS SET TO 1
022432,000123: 04,3131 33437 CAF V04N06SR # DISPLAY OPTION CODE - 1 = SOI, 2 = SOR
022433,000124: 04,3132 04555 TCR BANKCALL
022434,000125: 04,3133 20763 CADR GOFLASHR
022435,000126: 04,3134 14106 TCF GOTOPOOH # TERMINATE
022436,000127: 04,3135 13142 TCF +5 # PROCEED
022437,000128: 04,3136 13131 TCF -5 # RECYCLE
022438,000129: 04,3137 34710 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
022439,000130: 04,3140 05415 TCR BLANKET
022440,000131: 04,3141 15112 TCF ENDOFJOB
022441,000132: 04,3142 06006 TC INTPRET
022442,000133: 04,3143 70535 SLOAD SR1
022443,000134: 04,3144 01133 OPTION2
022444,000135: 04,3145 71230 BHIZ DLOAD
022445,000136: 04,3146 11154 OPTN1
022446,000137: 04,3147 03656 TINT
022447,000138: 04,3150 02611 STORE TINTSOI # STORE FOR SOR PHASE
022448,000139: 04,3151 77614 CLRGO
022449,000140: 04,3152 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
022450,000141: 04,3153 11200 JUNCTN1
022451,000142: 04,3154 45014 OPTN1 SET CALL # SOI
022452,000143: 04,3155 01070 OPTNSW
022453,000144: 04,3156 11357 PREC/TT
022454,000145: 04,3157 77615 DAD
022455,000146: 04,3160 03413 TIG
022456,000147: 04,3161 03656 STORE TINT # TI = TIG + TF
022457,000148: 04,3162 01046 STORE DSPTEM1 # FOR DISPLAY
022458,000149: 04,3163 77776 EXIT
022459,000150: 04,3164 33440 CAF V06N57SR # DISPLAY DELTA R
022460,000151: 04,3165 04555 TCR BANKCALL
022461,000152: 04,3166 20763 CADR GOFLASHR
022462,000153: 04,3167 14106 TCF GOTOPOOH # TERMINATE
022463,000154: 04,3170 13175 TCF +5 # PROCEED
022464,000155: 04,3171 13164 TCF -5 # RECYCLE
022465,000156: 04,3172 36211 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
022466,000157: 04,3173 05415 TCR BLANKET
022467,000158: 04,3174 15112 TCF ENDOFJOB
022468,000159: 04,3175 33441 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
022469,000160: 04,3176 03424 TC VNDSPLY
022470,000161: 04,3177 06006 TC INTPRET
022471,000162: 04,3200 45014 JUNCTN1 CLEAR CALL
022472,000163: 04,3201 04266 P39/79SW
022473,000164: 04,3202 10716 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022474,000165: 04,3203 77624 RECYCLE CALL
022475,000166: 04,3204 11357 PREC/TT
022476,000167: 04,3205 71214 BOFF DLOAD
022477,000168: 04,3206 01350 OPTNSW
022478,000169: 04,3207 11227 OPTN2
![]() |
Page 517 |
022480,000171: 04,3210 03656 TINT
022481,000172: 04,3211 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022482,000173: 04,3212 11410 INTRPVP # INTERCEPT TIME
022483,000174: 04,3213 53575 VLOAD UNIT
022484,000175: 04,3214 00001 RATT # RP/(RP)
022485,000176: 04,3215 47315 PDVL VXV
022486,000177: 04,3216 00007 VATT
022487,000178: 04,3217 60246 ABVAL NORM # (VP X RP/(RP))
022488,000179: 04,3220 00047 X1
022489,000180: 04,3221 56325 PDDL DDV
022490,000181: 04,3222 02611 DELTAR
022491,000182: 04,3223 77657 SL* # DELTA R / (VP X RP/RP)
022492,000183: 04,3224 20172 0 -7,1
022493,000184: 04,3225 36613 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
022494,000185: 04,3226 11233 JUNCTN2
022495,000186: 04,3227 43345 OPTN2 DLOAD DAD
022496,000187: 04,3230 02611 TINTSOI
022497,000188: 04,3231 00037 T
022498,000189: 04,3232 03656 STORE TINT # TI = TI + TF
022499,000190: 04,3233 45345 JUNCTN2 DLOAD DSU
022500,000191: 04,3234 03656 TINT
022501,000192: 04,3235 02613 DELTTIME
022502,000193: 04,3236 02615 STORE TARGTIME # TT = TI - DELTA T
022503,000194: # .... MAINRTNE ....
022504,000195: # SUBROUTINES USED
022505,000196:
022506,000197: # S3435.25
022507,000198: # PERIAPO1
022508,000199: # SHIFTR1
022509,000200: # VNDSPLY
022510,000201: # BANKCALL
022511,000202: # GOFLASH
022512,000203: # GOTOPOOH
022513,000204: # VN1645
022514,000205:
022515,000206: 04,3237 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022516,000207: 04,3240 11410 INTRPVP # TARGET TIME
022517,000208: 04,3241 77745 DLOAD
022518,000209: 04,3242 03413 TIG
022519,000210: 04,3243 03503 STORE INTIME
022520,000211: 04,3244 77331 SSP VLOAD
022521,000212: 04,3245 02371 SUBEXIT
022522,000213: 04,3246 11252 TEST3979
022523,000214: 04,3247 00001 RATT
022524,000215: 04,3250 77624 CALL
022525,000216: 04,3251 72547 S3435.25
022526,000217: 04,3252 43014 TEST3979 BOFF BON
022527,000218: 04,3253 04346 P39/79SW
022528,000219: 04,3254 11263 MAINRTN1
022529,000220: 04,3255 01311 FINALFLG
![]() |
Page 518 |
022531,000222: 04,3256 11261 P39P79
022532,000223: 04,3257 77614 SET
022533,000224: 04,3260 00470 UPDATFLG
022534,000225: 04,3261 77776 P39P79 EXIT
022535,000226: 04,3262 03310 TC DSPLY81 # FOR P39 AND P79
022536,000227: 04,3263 51575 MAINRTN1 VLOAD ABVAL
022537,000228: 04,3264 03646 DELVEET3
022538,000229: 04,3265 26635 STOVL DELVTPI # DELTA V
022539,000230: 04,3266 03640 VPASS4
022540,000231: 04,3267 51451 VSU ABVAL
022541,000232: 04,3270 03620 VTPRIME
022542,000233: 04,3271 26637 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
022543,000234: 04,3272 03540 RACT3
022544,000235: 04,3273 45115 PDVL CALL
022545,000236: 04,3274 03612 VIPRIME
022546,000237: 04,3275 45312 PERIAPO1 # GET PERIGEE ALTITUDE
022547,000238: 04,3276 77624 CALL
022548,000239: 04,3277 45422 SHIFTR1
022549,000240: 04,3300 02641 STORE POSTTPI
022550,000241: 04,3301 43014 BON SET
022551,000242: 04,3302 01311 FINALFLG
022552,000243: 04,3303 11305 DSPLY58
022553,000244: 04,3304 00470 UPDATFLG
022554,000245: 04,3305 77776 DSPLY58 EXIT
022555,000246: 04,3306 33442 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
022556,000247: 04,3307 03424 TC VNDSPLY
022557,000248: 04,3310 33443 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
022558,000249: 04,3311 03424 TC VNDSPLY
022559,000250: 04,3312 06006 TC INTPRET
022560,000251: 04,3313 77214 CLEAR VLOAD
022561,000252: 04,3314 01267 XDELVFLG
022562,000253: 04,3315 03646 DELVEET3
022563,000254: 04,3316 37646 STCALL DELVSIN
022564,000255: 04,3317 73005 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
022565,000256: 04,3320 52014 BON GOTO
022566,000257: 04,3321 04306 P39/79SW
022567,000258: 04,3322 11344 P39/P79B
022568,000259: 04,3323 11203 RECYCLE
022569,000260: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022570,000261:
022571,000262: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022572,000263: # MOD BY RUDNICKI.S DATE 25JAN68
022573,000264:
022574,000265: # FUNCTIONAL DESCRIPTION
022575,000266:
022576,000267: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022577,000268: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
022578,000269: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022579,000270: # THE SOR MANEUVER
022580,000271:
![]() |
Page 519 |
022582,000273: # CALLING SEQUENCE
022583,000274:
022584,000275: # ASTRONAUT REQUEST THRU DSKY
022585,000276:
022586,000277: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
022587,000278: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
022588,000279:
022589,000280: # INPUT
022590,000281:
022591,000282: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
022592,000283: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022593,000284: # SAVED FROM P38/P78
022594,000285:
022595,000286: # OUTPUT
022596,000287:
022597,000288: # (1) TRKMKCNT NUMBER OF MARKS
022598,000289: # (2) TTOGO TIME TO GO
022599,000290: # (3) +MGA MIDDLE GIMBAL ANGLE
022600,000291: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022601,000292:
022602,000293: # SUBROUTINES USED
022603,000294:
022604,000295: # AVFLAGA
022605,000296: # AVFLAGP
022606,000297: # LOADTIME
022607,000298: # SELECTMU
022608,000299: # PRECSET
022609,000300: # S34/35.1
022610,000301: # MAINRTNE
022611,000302:
022612,000303: 04,3324 04555 P39 TC BANKCALL
022613,000304: 04,3325 73726 CADR AVFLAGA # THIS VEHICLE ACTIVE
022614,000305: 04,3326 00006 EXTEND
022615,000306: 04,3327 31422 DCA ATIGINC
022616,000307: 04,3330 03335 TC P39/P79A
022617,000308: 04,3331 04555 P79 TC BANKCALL
022618,000309: 04,3332 73741 CADR AVFLAGP # OTHER VEHICLE ACTIVE
022619,000310: 04,3333 00006 EXTEND
022620,000311: 04,3334 31424 DCA PTIGINC
022621,000312: 04,3335 53764 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
022622,000313: 04,3336 04555 TC BANKCALL
022623,000314: 04,3337 73746 CADR P20FLGON # SET UPDATFLG, TRACKFLG
022624,000315: 04,3340 06006 TC INTPRET
022625,000316: 04,3341 45014 SET CALL
022626,000317: 04,3342 04066 P39/79SW
022627,000318: 04,3343 10716 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022628,000319: 04,3344 43234 P39/P79B RTB DAD
022629,000320: 04,3345 45505 LOADTIME
022630,000321: 04,3346 02364 KT
022631,000322: 04,3347 03413 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
![]() |
Page 520 |
022633,000324: 04,3350 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022634,000325: 04,3351 45354 PRECSET # VEHICLES TO TIG
022635,000326: 04,3352 77624 CALL
022636,000327: 04,3353 72522 S34/35.1 # GET UNIT NORMAL
022637,000328: 04,3354 52145 DLOAD GOTO
022638,000329: 04,3355 02615 TARGTIME
022639,000330: 04,3356 11237 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
022640,000331: # .... PREC/TT ....
022641,000332: # SUBROUTINES USED
022642,000333:
022643,000334: # PRECSET
022644,000335: # TIMETHET
022645,000336: # S34/35.1
022646,000337:
022647,000338: 04,3357 71220 PREC/TT STQ DLOAD
022648,000339: 04,3360 02367 RTRN
022649,000340: 04,3361 03413 TIG
022650,000341: 04,3362 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022651,000342: 04,3363 45354 PRECSET # VEHICLES TO TIG
022652,000343: 04,3364 53775 VLOAD VSR*
022653,000344: 04,3365 03554 RPASS3
022654,000345: 04,3366 57176 0,2
022655,000346: 04,3367 16657 STODL RVEC
022656,000347: 04,3370 03754 CENTANG
022657,000348: 04,3371 71406 PUSH COS
022658,000349: 04,3372 16734 STODL CSTH
022659,000350: 04,3373 43156 SIN SET
022660,000351: 04,3374 03466 RVSW
022661,000352: 04,3375 26732 STOVL SNTH
022662,000353: 04,3376 03562 VPASS3
022663,000354: 04,3377 77657 VSR*
022664,000355: 04,3400 57176 0,2
022665,000356: 04,3401 36746 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
022666,000357: 04,3402 24737 TIMETHET # PASSIVE VEHICLE
022667,000358: 04,3403 77624 CALL
022668,000359: 04,3404 72522 S34/35.1 # GET UNIT NORMAL
022669,000360: 04,3405 52145 DLOAD GOTO
022670,000361: 04,3406 00037 T
022671,000362: 04,3407 02367 RTRN
022672,000363: # .... INTRPVP ....
022673,000364: # SUBROUTINES USED
022674,000365:
022675,000366: # CSMPREC
022676,000367: # LEMPREC
022677,000368:
022678,000369: 04,3410 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
022679,000370: 04,3411 02367 RTRN # TDEC1
022680,000371: 04,3412 01352 AVFLAG
022681,000372: 04,3413 11420 OTHERV
022682,000373: 04,3414 77624 CALL
![]() |
Page 521 |
022684,000375: 04,3415 27022 CSMPREC
022685,000376: 04,3416 77650 GOTO
022686,000377: 04,3417 02367 RTRN
022687,000378: 04,3420 77624 OTHERV CALL
022688,000379: 04,3421 27036 LEMPREC
022689,000380: 04,3422 77650 GOTO
022690,000381: 04,3423 02367 RTRN
022691,000382: # .... VNDSPLY ....
022692,000383: # SUBROUTINES USED
022693,000384:
022694,000385: # BANKCALL
022695,000386: # GOFLASH
022696,000387: # GOTOPOOH
022697,000388:
022698,000389: 04,3424 00006 VNDSPLY EXTEND # FLASH DISPLAY
022699,000390: 04,3425 23767 QXCH RTRN
022700,000391: 04,3426 55765 TS VERBNOUN
022701,000392: 04,3427 31765 CA VERBNOUN
022702,000393: 04,3430 04555 TCR BANKCALL
022703,000394: 04,3431 20624 CADR GOFLASH
022704,000395: 04,3432 14106 TCF GOTOPOOH # TERMINATE
022705,000396: 04,3433 01767 TC RTRN # PROCEED
022706,000397: 04,3434 13427 TCF -5 # RECYCLE
022707,000398: 04,3435 01441 V06N33SR VN 0633
022708,000399: 04,3436 01467 V06N55SR VN 0655
022709,000400: 04,3437 01006 V04N06SR VN 0406
022710,000401: 04,3440 01471 V06N57SR VN 0657
022711,000402: 04,3441 01442 V06N34SR VN 0634
022712,000403: 04,3442 01472 V06N58SR VN 0658
022713,000404: 04,3443 01521 V06N81SR VN 0681
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc