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