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