Source Code
|
These source-code files are part of a reconstructed copy of Comanche 051, the
original release of the Apollo 11 Command Module (CM) Apollo Guidance Computer
(AGC) software.
The reconstruction began with source code of Comanche 055 previously transcribed
from a digitized copy of that program. The code was then updated by undoing
changes related to the R-2 lunar potential model, using hints from program
comments and change-indicating asterisks in the Comanche 055 listing as a guide.
The reconstruction was verified by matching memory-bank checksums to those listed
in drawing 2021153D. Note that page numbers in the reconstructed code match those
on the Comanche 055 printout, although the added code would likely have changed page
numbers for a real Comanche 051 listing.
Comments from the original source code are prefixed with a single '#' symbol,
whereas comments added later are prefixed by "##" or "###". Report any errors
noted by creating an
issue report at the Virtual AGC
project's GitHub repository.
|
022359,000002: ## Copyright: Public domain.
022360,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
022361,000004: ## Purpose: A section of Comanche revision 051.
022362,000005: ## It is part of the reconstructed source code for the
022363,000006: ## original release of the flight software for the Command
022364,000007: ## Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
022365,000008: ## The code has been recreated from a copy of Comanche 055. It
022366,000009: ## has been adapted such that the resulting bugger words
022367,000010: ## exactly match those specified for Comanche 51 in NASA drawing
022368,000011: ## 2021153D, which gives relatively high confidence that the
022369,000012: ## reconstruction is correct.
022370,000013: ## Reference: pp. 525-532
022371,000014: ## Assembler: yaYUL
022372,000015: ## Contact: Ron Burkey <info@sandroid.org>.
022373,000016: ## Website: www.ibiblio.org/apollo/index.html
022374,000017: ## Mod history: 2019-07-30 MAS Created from Comanche 55.
022375,000018:
|
|
Page 525
|
022377,000020: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022378,000021:
022379,000022: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022380,000023: # MOD BY RUDNICKI.S DATE 25JAN68
022381,000024:
022382,000025: # FUNCTIONAL DESCRIPTION
022383,000026:
022384,000027: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022385,000028: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022386,000029: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022387,000030: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022388,000031: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022389,000032: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022390,000033: # VEHICLES
022391,000034:
022392,000035: # CALLING SEQUENCE
022393,000036:
022394,000037: # ASTRONAUT REQUEST THRU DSKY
022395,000038:
022396,000039: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
022397,000040: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
022398,000041:
022399,000042: # INPUT
022400,000043:
022401,000044: # (1) SOI MANEUVER
022402,000045:
022403,000046: # (A) TIG TIME OF SOI MANEUVER
022404,000047: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022405,000048: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022406,000049: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
022407,000050: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022408,000051: # ORBIT
022409,000052: # (D) OPTION EQUALS 1 FOR SOI
022410,000053:
022411,000054: # (2) SOR MANEUVER
022412,000055:
022413,000056: # (A) TIG TIME OF SOR MANEUVER
022414,000057: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022415,000058: # (C) OPTION EQUALS 2 FOR SOR
022416,000059: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022417,000060: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022418,000061: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022419,000062: # SOI PHASE
022420,000063: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022421,000064:
022422,000065: # OUTPUT
022423,000066:
022424,000067: # (1) TRKMKCNT NUMBER OF MARKS
022425,000068: # (2) TTOGO TIME TO GO
022426,000069: # (3) +MGA MIDDLE GIMBAL ANGLE
|
|
Page 526
|
022428,000071: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022429,000072: # (FOR SOI ONLY)
022430,000073: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022431,000074: # THE SOI (SOR) MANEUVER
022432,000075: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022433,000076: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
022434,000077: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022435,000078: # COORDINATES
022436,000079:
022437,000080: # SUBROUTINES USED
022438,000081:
022439,000082: # AVFLAGA
022440,000083: # AVFLAGP
022441,000084: # VNDSPLY
022442,000085: # BANKCALL
022443,000086: # GOFLASHR
022444,000087: # GOTOPOOH
022445,000088: # BLANKET
022446,000089: # ENDOFJOB
022447,000090: # PREC/TT
022448,000091: # SELECTMU
022449,000092: # INTRPVP
022450,000093: # MAINRTNE
022451,000094:
022452,000095: 04,2742 BANK 04
022453,000096: 04,2000 SETLOC STBLEORB
022454,000097: 04,2000 BANK
022455,000098:
022456,000099: 04,2742 E4,1770 EBANK= SUBEXIT
022457,000100: 04,2742 COUNT* $$/P3879
022458,000101:
022459,000102: 04,2742 04627 P38 TC AVFLAGA # THIS VEHICLE ACTIVE
022460,000103: 04,2743 02745 TC +2
022461,000104: 04,2744 04642 P78 TC AVFLAGP # OTHER VEHICLE ACTIVE
022462,000105: 04,2745 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
022463,000106: 04,2746 33274 CAF V06N33SR # DISPLAY TIG
022464,000107: 04,2747 03263 TC VNDSPLY
022465,000108: 04,2750 33275 CAF V06N55SR # DISPLAY CENTANG
022466,000109: 04,2751 04662 TCR BANKCALL
022467,000110: 04,2752 21057 CADR GOFLASHR
022468,000111: 04,2753 14106 TCF GOTOPOOH # TERMINATE
022469,000112: 04,2754 12761 TCF +5 # PROCEED
022470,000113: 04,2755 12750 TCF -5 # RECYCLE
022471,000114: 04,2756 36214 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
022472,000115: 04,2757 05526 TCR BLANKET
022473,000116: 04,2760 15217 TCF ENDOFJOB
022474,000117: 04,2761 35022 CAF FIVE
022475,000118: 04,2762 55131 TS OPTION1
022476,000119: 04,2763 35017 CAF ONE
022477,000120: 04,2764 55132 TS OPTION2 # OPTION CODE IS SET TO 1
|
|
Page 527
|
022479,000122: 04,2765 33276 CAF V04N06SR # DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022480,000123: 04,2766 04662 TCR BANKCALL
022481,000124: 04,2767 21057 CADR GOFLASHR
022482,000125: 04,2770 14106 TCF GOTOPOOH # TERMINATE
022483,000126: 04,2771 12776 TCF +5 # PROCEED
022484,000127: 04,2772 12765 TCF -5 # RECYCLE
022485,000128: 04,2773 35015 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
022486,000129: 04,2774 05526 TCR BLANKET
022487,000130: 04,2775 15217 TCF ENDOFJOB
022488,000131: 04,2776 06006 TC INTPRET
022489,000132: 04,2777 77731 SSP
022490,000133: 04,3000 03766 NN
022491,000134: 04,3001 00002 2
022492,000135: 04,3002 70535 SLOAD SR1
022493,000136: 04,3003 01133 OPTION2
022494,000137: 04,3004 71230 BHIZ DLOAD
022495,000138: 04,3005 11013 OPTN1
022496,000139: 04,3006 03656 TINT
022497,000140: 04,3007 02611 STORE TINTSOI # STORE FOR SOR PHASE
022498,000141: 04,3010 77614 CLRGO
022499,000142: 04,3011 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
022500,000143: 04,3012 11042 JUNCTN1
022501,000144: 04,3013 43014 OPTN1 SET CLEAR # SOI
022502,000145: 04,3014 01070 OPTNSW
022503,000146: 04,3015 00670 UPDATFLG
022504,000147: 04,3016 77624 CALL
022505,000148: 04,3017 11216 PREC/TT
022506,000149: 04,3020 43214 SET DAD
022507,000150: 04,3021 00470 UPDATFLG
022508,000151: 04,3022 03413 TIG
022509,000152: 04,3023 03656 STORE TINT # TI = TIG + TF
022510,000153: 04,3024 01046 STORE DSPTEM1 # FOR DISPLAY
022511,000154: 04,3025 77776 EXIT
022512,000155: 04,3026 33277 CAF V06N57SR # DISPLAY DELTA R
022513,000156: 04,3027 04662 TCR BANKCALL
022514,000157: 04,3030 21057 CADR GOFLASHR
022515,000158: 04,3031 14106 TCF GOTOPOOH # TERMINATE
022516,000159: 04,3032 13037 TCF +5 # PROCEED
022517,000160: 04,3033 13026 TCF -5 # RECYCLE
022518,000161: 04,3034 36211 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
022519,000162: 04,3035 05526 TCR BLANKET
022520,000163: 04,3036 15217 TCF ENDOFJOB
022521,000164: 04,3037 33300 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
022522,000165: 04,3040 03263 TC VNDSPLY
022523,000166: 04,3041 06006 TC INTPRET
022524,000167: 04,3042 45014 JUNCTN1 CLEAR CALL
022525,000168: 04,3043 04266 P39/79SW
022526,000169: 04,3044 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022527,000170: 04,3045 77624 RECYCLE CALL
022528,000171: 04,3046 11216 PREC/TT
|
|
Page 528
|
022530,000173: 04,3047 71214 BOFF DLOAD
022531,000174: 04,3050 01350 OPTNSW
022532,000175: 04,3051 11071 OPTN2
022533,000176: 04,3052 03656 TINT
022534,000177: 04,3053 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022535,000178: 04,3054 11247 INTRPVP # INTERCEPT TIME
022536,000179: 04,3055 53575 VLOAD UNIT
022537,000180: 04,3056 00001 RATT # RP/(RP)
022538,000181: 04,3057 47315 PDVL VXV
022539,000182: 04,3060 00007 VATT
022540,000183: 04,3061 60246 ABVAL NORM # (VP X RP/(RP))
022541,000184: 04,3062 00047 X1
022542,000185: 04,3063 56325 PDDL DDV
022543,000186: 04,3064 02611 DELTAR
022544,000187: 04,3065 77657 SL* # DELTA R / (VP X RP/RP)
022545,000188: 04,3066 20172 0 -7,1
022546,000189: 04,3067 36613 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
022547,000190: 04,3070 11075 JUNCTN2
022548,000191: 04,3071 43345 OPTN2 DLOAD DAD
022549,000192: 04,3072 02611 TINTSOI
022550,000193: 04,3073 00037 T
022551,000194: 04,3074 03656 STORE TINT # TI = TI + TF
022552,000195: 04,3075 45345 JUNCTN2 DLOAD DSU
022553,000196: 04,3076 03656 TINT
022554,000197: 04,3077 02613 DELTTIME
022555,000198: 04,3100 02615 STORE TARGTIME # TT = TI - DELTA T
022556,000199:
022557,000200: # .... MAINRTNE ....
022558,000201:
022559,000202: # SUBROUTINES USED
022560,000203:
022561,000204: # S3435.25
022562,000205: # PERIAPO1
022563,000206: # SHIFTR1
022564,000207: # VNDSPLY
022565,000208: # BANKCALL
022566,000209: # GOFLASH
022567,000210: # GOTOPOOH
022568,000211: # VN1645
022569,000212:
022570,000213: 04,3101 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022571,000214: 04,3102 11247 INTRPVP # TARGET TIME
022572,000215: 04,3103 77745 DLOAD
022573,000216: 04,3104 03413 TIG
022574,000217: 04,3105 03503 STORE INTIME
022575,000218: 04,3106 77331 SSP VLOAD
022576,000219: 04,3107 02371 SUBEXIT
022577,000220: 04,3110 11114 TEST3979
022578,000221: 04,3111 00001 RATT
022579,000222: 04,3112 77624 CALL
022580,000223: 04,3113 72546 S3435.25
022581,000224: 04,3114 43014 TEST3979 BOFF BON
|
|
Page 529
|
022583,000226: 04,3115 04346 P39/79SW
022584,000227: 04,3116 11125 MAINRTN1
022585,000228: 04,3117 01311 FINALFLG
022586,000229: 04,3120 11123 P39P79
022587,000230: 04,3121 77614 SET
022588,000231: 04,3122 00470 UPDATFLG
022589,000232: 04,3123 77776 P39P79 EXIT
022590,000233: 04,3124 03152 TC DSPLY81 # FOR P39 AND P79
022591,000234: 04,3125 51575 MAINRTN1 VLOAD ABVAL
022592,000235: 04,3126 03646 DELVEET3
022593,000236: 04,3127 26635 STOVL DELVTPI # DELTA V
022594,000237: 04,3130 03640 VPASS4
022595,000238: 04,3131 51451 VSU ABVAL
022596,000239: 04,3132 03620 VTPRIME
022597,000240: 04,3133 26637 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
022598,000241: 04,3134 03540 RACT3
022599,000242: 04,3135 45115 PDVL CALL
022600,000243: 04,3136 03612 VIPRIME
022601,000244: 04,3137 45153 PERIAPO1 # GET PERIGEE ALTITUDE
022602,000245: 04,3140 77624 CALL
022603,000246: 04,3141 45263 SHIFTR1
022604,000247: 04,3142 02641 STORE POSTTPI
022605,000248: 04,3143 43014 BON SET
022606,000249: 04,3144 01311 FINALFLG
022607,000250: 04,3145 11147 DSPLY58
022608,000251: 04,3146 00470 UPDATFLG
022609,000252: 04,3147 77776 DSPLY58 EXIT
022610,000253: 04,3150 33301 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
022611,000254: 04,3151 03263 TC VNDSPLY
022612,000255: 04,3152 33302 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
022613,000256: 04,3153 03263 TC VNDSPLY
022614,000257: 04,3154 06006 TC INTPRET
022615,000258: 04,3155 77214 CLEAR VLOAD
022616,000259: 04,3156 01267 XDELVFLG
022617,000260: 04,3157 03646 DELVEET3
022618,000261: 04,3160 37646 STCALL DELVSIN
022619,000262: 04,3161 73002 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
022620,000263: 04,3162 52014 BON GOTO
022621,000264: 04,3163 04306 P39/79SW
022622,000265: 04,3164 11203 P39/P79B
022623,000266: 04,3165 11045 RECYCLE
022624,000267:
022625,000268: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022626,000269:
022627,000270: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022628,000271: # MOD BY RUDNICKI.S DATE 25JAN68
022629,000272:
022630,000273: # FUNCTIONAL DESCRIPTION
022631,000274:
022632,000275: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022633,000276: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
|
|
Page 530
|
022635,000278: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022636,000279: # THE SOR MANEUVER
022637,000280:
022638,000281: # CALLING SEQUENCE
022639,000282:
022640,000283: # ASTRONAUT REQUEST THRU DSKY
022641,000284:
022642,000285: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
022643,000286: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
022644,000287:
022645,000288: # INPUT
022646,000289:
022647,000290: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
022648,000291: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022649,000292: # SAVED FROM P38/P78
022650,000293:
022651,000294: # OUTPUT
022652,000295:
022653,000296: # (1) TRKMKCNT NUMBER OF MARKS
022654,000297: # (2) TTOGO TIME TO GO
022655,000298: # (3) +MGA MIDDLE GIMBAL ANGLE
022656,000299: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022657,000300:
022658,000301: # SUBROUTINES USED
022659,000302:
022660,000303: # AVFLAGA
022661,000304: # AVFLAGP
022662,000305: # LOADTIME
022663,000306: # SELECTMU
022664,000307: # PRECSET
022665,000308: # S34/35.1
022666,000309: # MAINRTNE
022667,000310:
022668,000311: 04,3166 04627 P39 TC AVFLAGA # THIS VEHICLE ACTIVE
022669,000312: 04,3167 00006 EXTEND
022670,000313: 04,3170 31422 DCA ATIGINC
022671,000314: 04,3171 03175 TC P39/P79A
022672,000315: 04,3172 04642 P79 TC AVFLAGP # OTHER VEHICLE ACTIVE
022673,000316: 04,3173 00006 EXTEND
022674,000317: 04,3174 31424 DCA PTIGINC
022675,000318: 04,3175 53764 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
022676,000319: 04,3176 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
022677,000320: 04,3177 06006 TC INTPRET
022678,000321: 04,3200 45014 SET CALL
022679,000322: 04,3201 04066 P39/79SW
022680,000323: 04,3202 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022681,000324: 04,3203 43234 P39/P79B RTB DAD
022682,000325: 04,3204 45510 LOADTIME
022683,000326: 04,3205 02364 KT
022684,000327: 04,3206 03413 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
|
|
Page 531
|
022686,000329: 04,3207 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022687,000330: 04,3210 45215 PRECSET # VEHICLES TO TIG
022688,000331: 04,3211 77624 CALL
022689,000332: 04,3212 74000 S34/35.1 # GET UNIT NORMAL
022690,000333: 04,3213 52145 DLOAD GOTO
022691,000334: 04,3214 02615 TARGTIME
022692,000335: 04,3215 11101 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
022693,000336:
022694,000337: # .... PREC/TT ....
022695,000338:
022696,000339: # SUBROUTINES USED
022697,000340:
022698,000341: # PRECSET
022699,000342: # TIMETHET
022700,000343: # S34/35.1
022701,000344:
022702,000345: 04,3216 71220 PREC/TT STQ DLOAD
022703,000346: 04,3217 02367 RTRN
022704,000347: 04,3220 03413 TIG
022705,000348: 04,3221 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022706,000349: 04,3222 45215 PRECSET # VEHICLES TO TIG
022707,000350: 04,3223 53775 VLOAD VSR*
022708,000351: 04,3224 03554 RPASS3
022709,000352: 04,3225 57176 0,2
022710,000353: 04,3226 16657 STODL RVEC
022711,000354: 04,3227 03754 CENTANG
022712,000355: 04,3230 71406 PUSH COS
022713,000356: 04,3231 16734 STODL CSTH
022714,000357: 04,3232 43156 SIN SET
022715,000358: 04,3233 03466 RVSW
022716,000359: 04,3234 26732 STOVL SNTH
022717,000360: 04,3235 03562 VPASS3
022718,000361: 04,3236 77657 VSR*
022719,000362: 04,3237 57176 0,2
022720,000363: 04,3240 36746 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
022721,000364: 04,3241 24744 TIMETHET # PASSIVE VEHICLE
022722,000365: 04,3242 77624 CALL
022723,000366: 04,3243 74000 S34/35.1 # GET UNIT NORMAL
022724,000367: 04,3244 52145 DLOAD GOTO
022725,000368: 04,3245 00037 T
022726,000369: 04,3246 02367 RTRN
022727,000370:
022728,000371: # .... INTRPVP ....
022729,000372:
022730,000373: # SUBROUTINES USED
022731,000374:
022732,000375: # CSMPREC
022733,000376: # LEMPREC
022734,000377:
022735,000378: 04,3247 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
022736,000379: 04,3250 02367 RTRN # TDEC1
022737,000380: 04,3251 01352 AVFLAG
022738,000381: 04,3252 11257 OTHERV
022739,000382: 04,3253 77624 CALL
|
|
Page 532
|
022741,000384: 04,3254 27071 CSMPREC
022742,000385: 04,3255 77650 GOTO
022743,000386: 04,3256 02367 RTRN
022744,000387: 04,3257 77624 OTHERV CALL
022745,000388: 04,3260 27105 LEMPREC
022746,000389: 04,3261 77650 GOTO
022747,000390: 04,3262 02367 RTRN
022748,000391:
022749,000392: # .... VNDSPLY ....
022750,000393:
022751,000394: # SUBROUTINES USED
022752,000395:
022753,000396: # BANKCALL
022754,000397: # GOFLASH
022755,000398: # GOTOPOOH
022756,000399:
022757,000400: 04,3263 00006 VNDSPLY EXTEND # FLASH DISPLAY
022758,000401: 04,3264 23767 QXCH RTRN
022759,000402: 04,3265 55765 TS VERBNOUN
022760,000403: 04,3266 31765 CA VERBNOUN
022761,000404: 04,3267 04662 TCR BANKCALL
022762,000405: 04,3270 20720 CADR GOFLASH
022763,000406: 04,3271 14106 TCF GOTOPOOH # TERMINATE
022764,000407: 04,3272 01767 TC RTRN # PROCEED
022765,000408: 04,3273 13266 TCF -5 # RECYCLE
022766,000409: 04,3274 01441 V06N33SR VN 0633
022767,000410: 04,3275 01467 V06N55SR VN 0655
022768,000411: 04,3276 01006 V04N06SR VN 0406
022769,000412: 04,3277 01471 V06N57SR VN 0657
022770,000413: 04,3300 01442 V06N34SR VN 0634
022771,000414: 04,3301 01472 V06N58SR VN 0658
022772,000415: 04,3302 01521 V06N81SR VN 0681
022773,000416:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc