Source Code
|
These source-code files are part of a reconstructed copy of Comanche 72, the
first release of the Apollo Guidance Computer (AGC) Command Module (CM) software
for Apollo 13.
They have been adapted from sources files created from a listing of Comanche 55.
These source files were updated to match binary dumps of a set of Comanche 67 rope modules.
They were then further modified by applying known changes between Comanche 67 and Comanche 72.
A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used
to validate changes made to banks 05-13. The resulting code assembles to have identical
memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably
high confidence that the changes that have been made are correct. In places where
ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.
Since no contemporary listings of Comanche 72 are available as source material,
all comments and labels are approximate.
They have been taken from other AGC programs where possible, or, in some places, written
from scratch to match what we believe would have been in the original listing.
|
022084,000002: ## Copyright: Public domain.
022085,000003: ## Filename: STABLE_ORBIT_-_P38-P39.agc
022086,000004: ## Purpose: A section of Comanche revision 072.
022087,000005: ## It is part of the reconstructed source code for the first
022088,000006: ## release of the software for the Command Module's (CM) Apollo
022089,000007: ## Guidance Computer (AGC) for Apollo 13. No original listings
022090,000008: ## of this program are available; instead, this file was recreated
022091,000009: ## from a printout of Comanche 055, binary dumps of a set of
022092,000010: ## Comanche 067 rope modules, and changelogs between Comanche 067
022093,000011: ## and 072. It has been adapted such that the resulting bugger words
022094,000012: ## exactly match those specified for Comanche 072 in NASA drawing
022095,000013: ## 2021153G, which gives relatively high confidence that the
022096,000014: ## reconstruction is correct.
022097,000015: ## Assembler: yaYUL
022098,000016: ## Contact: Ron Burkey <info@sandroid.org>.
022099,000017: ## Website: www.ibiblio.org/apollo/index.html
022100,000018: ## Mod history: 2024-05-13 MAS Created from Comanche 067.
022101,000019:
022102,000020: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
022103,000021:
022104,000022: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022105,000023: # MOD BY RUDNICKI.S DATE 25JAN68
022106,000024:
022107,000025: # FUNCTIONAL DESCRIPTION
022108,000026:
022109,000027: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022110,000028: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
022111,000029: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
022112,000030: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
022113,000031: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
022114,000032: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
022115,000033: # VEHICLES
022116,000034:
022117,000035: # CALLING SEQUENCE
022118,000036:
022119,000037: # ASTRONAUT REQUEST THRU DSKY
022120,000038:
022121,000039: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
022122,000040: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
022123,000041:
022124,000042: # INPUT
022125,000043:
022126,000044: # (1) SOI MANEUVER
022127,000045:
022128,000046: # (A) TIG TIME OF SOI MANEUVER
022129,000047: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
022130,000048: # DURING TRANSFER FROM TIG TO TIME OF INTERCEPT
022131,000049: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
022132,000050: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
022133,000051: # ORBIT
022134,000052: # (D) OPTION EQUALS 1 FOR SOI
022135,000053:
022136,000054: # (2) SOR MANEUVER
022137,000055:
022138,000056: # (A) TIG TIME OF SOR MANEUVER
022139,000057: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
022140,000058: # (C) OPTION EQUALS 2 FOR SOR
022141,000059: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
022142,000060: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
022143,000061: # VELOCITY OF THE PASSIVE VEHICLE - SAVED FROM
022144,000062: # SOI PHASE
022145,000063: # (E) TINT TIME OF INTERCEPT (SOI) - SAVED FROM SOI PHASE
022146,000064:
022147,000065: # OUTPUT
022148,000066:
022149,000067: # (1) TRKMKCNT NUMBER OF MARKS
022150,000068: # (2) TTOGO TIME TO GO
022151,000069: # (3) +MGA MIDDLE GIMBAL ANGLE
022152,000070: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
022153,000071: # (FOR SOI ONLY)
022154,000072: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
022155,000073: # THE SOI (SOR) MANEUVER
022156,000074: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
022157,000075: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
022158,000076: # (8) DELVLVC DELTA VELOCITY AT SOI (AND SOR) - LOCAL VERTICAL
022159,000077: # COORDINATES
022160,000078:
022161,000079: # SUBROUTINES USED
022162,000080:
022163,000081: # AVFLAGA
022164,000082: # AVFLAGP
022165,000083: # VNDSPLY
022166,000084: # BANKCALL
022167,000085: # GOFLASHR
022168,000086: # GOTOPOOH
022169,000087: # BLANKET
022170,000088: # ENDOFJOB
022171,000089: # PREC/TT
022172,000090: # SELECTMU
022173,000091: # INTRPVP
022174,000092: # MAINRTNE
022175,000093:
022176,000094: 04,2742 BANK 04
022177,000095: 04,2000 SETLOC STBLEORB
022178,000096: 04,2000 BANK
022179,000097:
022180,000098: 04,2742 E4,1770 EBANK= SUBEXIT
022181,000099: 04,2742 COUNT* $$/P3879
022182,000100:
022183,000101: 04,2742 04627 P38 TC AVFLAGA # THIS VEHICLE ACTIVE
022184,000102: 04,2743 02745 TC +2
022185,000103: 04,2744 04642 P78 TC AVFLAGP # OTHER VEHICLE ACTIVE
022186,000104: 04,2745 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
022187,000105: 04,2746 33274 CAF V06N33SR # DISPLAY TIG
022188,000106: 04,2747 03263 TC VNDSPLY
022189,000107: 04,2750 33275 CAF V06N55SR # DISPLAY CENTANG
022190,000108: 04,2751 04676 TCR BANKCALL
022191,000109: 04,2752 21057 CADR GOFLASHR
022192,000110: 04,2753 14106 TCF GOTOPOOH # TERMINATE
022193,000111: 04,2754 12761 TCF +5 # PROCEED
022194,000112: 04,2755 12750 TCF -5 # RECYCLE
022195,000113: 04,2756 36214 CAF THREE # IMMEDIATE RETURN - BLANK R1, R2
022196,000114: 04,2757 05542 TCR BLANKET
022197,000115: 04,2760 15233 TCF ENDOFJOB
022198,000116: 04,2761 35036 CAF FIVE
022199,000117: 04,2762 55131 TS OPTION1
022200,000118: 04,2763 35033 CAF ONE
022201,000119: 04,2764 55132 TS OPTION2 # OPTION CODE IS SET TO 1
022202,000120: 04,2765 33276 CAF V04N06SR # DISPLAY OPTION CODE -1 = SOI, 2 = SOR
022203,000121: 04,2766 04676 TCR BANKCALL
022204,000122: 04,2767 21057 CADR GOFLASHR
022205,000123: 04,2770 14106 TCF GOTOPOOH # TERMINATE
022206,000124: 04,2771 12776 TCF +5 # PROCEED
022207,000125: 04,2772 12765 TCF -5 # RECYCLE
022208,000126: 04,2773 35031 CAF BIT3 # IMMEDIATE RETURN - BLANK R3
022209,000127: 04,2774 05542 TCR BLANKET
022210,000128: 04,2775 15233 TCF ENDOFJOB
022211,000129: 04,2776 06006 TC INTPRET
022212,000130: 04,2777 77731 SSP
022213,000131: 04,3000 03766 NN
022214,000132: 04,3001 00002 2
022215,000133: 04,3002 70535 SLOAD SR1
022216,000134: 04,3003 01133 OPTION2
022217,000135: 04,3004 71230 BHIZ DLOAD
022218,000136: 04,3005 11013 OPTN1
022219,000137: 04,3006 03656 TINT
022220,000138: 04,3007 02611 STORE TINTSOI # STORE FOR SOR PHASE
022221,000139: 04,3010 77614 CLRGO
022222,000140: 04,3011 01230 OPTNSW # OPTNSW; ON = SOI, OFF = SOR
022223,000141: 04,3012 11042 JUNCTN1
022224,000142: 04,3013 43014 OPTN1 SET CLEAR # SOI
022225,000143: 04,3014 01070 OPTNSW
022226,000144: 04,3015 00670 UPDATFLG
022227,000145: 04,3016 77624 CALL
022228,000146: 04,3017 11216 PREC/TT
022229,000147: 04,3020 43214 SET DAD
022230,000148: 04,3021 00470 UPDATFLG
022231,000149: 04,3022 03413 TIG
022232,000150: 04,3023 03656 STORE TINT # TI = TIG + TF
022233,000151: 04,3024 01046 STORE DSPTEM1 # FOR DISPLAY
022234,000152: 04,3025 77776 EXIT
022235,000153: 04,3026 33277 CAF V06N57SR # DISPLAY DELTA R
022236,000154: 04,3027 04676 TCR BANKCALL
022237,000155: 04,3030 21057 CADR GOFLASHR
022238,000156: 04,3031 14106 TCF GOTOPOOH # TERMINATE
022239,000157: 04,3032 13037 TCF +5 # PROCEED
022240,000158: 04,3033 13026 TCF -5 # RECYCLE
022241,000159: 04,3034 36211 CAF SIX # IMMEDIATE RETURN - BLANK R2, R3
022242,000160: 04,3035 05542 TCR BLANKET
022243,000161: 04,3036 15233 TCF ENDOFJOB
022244,000162: 04,3037 33300 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
022245,000163: 04,3040 03263 TC VNDSPLY
022246,000164: 04,3041 06006 TC INTPRET
022247,000165: 04,3042 45014 JUNCTN1 CLEAR CALL
022248,000166: 04,3043 04266 P39/79SW
022249,000167: 04,3044 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022250,000168: 04,3045 77624 RECYCLE CALL
022251,000169: 04,3046 11216 PREC/TT
022252,000170: 04,3047 71214 BOFF DLOAD
022253,000171: 04,3050 01350 OPTNSW
022254,000172: 04,3051 11071 OPTN2
022255,000173: 04,3052 03656 TINT
022256,000174: 04,3053 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022257,000175: 04,3054 11247 INTRPVP # INTERCEPT TIME
022258,000176: 04,3055 53575 VLOAD UNIT
022259,000177: 04,3056 00001 RATT # RP/(RP)
022260,000178: 04,3057 47315 PDVL VXV
022261,000179: 04,3060 00007 VATT
022262,000180: 04,3061 60246 ABVAL NORM # (VP X RP/(RP))
022263,000181: 04,3062 00047 X1
022264,000182: 04,3063 56325 PDDL DDV
022265,000183: 04,3064 02611 DELTAR
022266,000184: 04,3065 77657 SL* # DELTA R / (VP X RP/RP)
022267,000185: 04,3066 20172 0 -7,1
022268,000186: 04,3067 36613 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
022269,000187: 04,3070 11075 JUNCTN2
022270,000188: 04,3071 43345 OPTN2 DLOAD DAD
022271,000189: 04,3072 02611 TINTSOI
022272,000190: 04,3073 00037 T
022273,000191: 04,3074 03656 STORE TINT # TI = TI + TF
022274,000192: 04,3075 45345 JUNCTN2 DLOAD DSU
022275,000193: 04,3076 03656 TINT
022276,000194: 04,3077 02613 DELTTIME
022277,000195: 04,3100 02615 STORE TARGTIME # TT = TI - DELTA T
022278,000196:
022279,000197: # .... MAINRTNE ....
022280,000198:
022281,000199: # SUBROUTINES USED
022282,000200:
022283,000201: # S3435.25
022284,000202: # PERIAPO1
022285,000203: # SHIFTR1
022286,000204: # VNDSPLY
022287,000205: # BANKCALL
022288,000206: # GOFLASH
022289,000207: # GOTOPOOH
022290,000208: # VN1645
022291,000209:
022292,000210: 04,3101 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
022293,000211: 04,3102 11247 INTRPVP # TARGET TIME
022294,000212: 04,3103 77745 DLOAD
022295,000213: 04,3104 03413 TIG
022296,000214: 04,3105 03503 STORE INTIME
022297,000215: 04,3106 77331 SSP VLOAD
022298,000216: 04,3107 02371 SUBEXIT
022299,000217: 04,3110 11114 TEST3979
022300,000218: 04,3111 00001 RATT
022301,000219: 04,3112 77624 CALL
022302,000220: 04,3113 72546 S3435.25
022303,000221: 04,3114 43014 TEST3979 BOFF BON
022304,000222: 04,3115 04346 P39/79SW
022305,000223: 04,3116 11125 MAINRTN1
022306,000224: 04,3117 01311 FINALFLG
022307,000225: 04,3120 11123 P39P79
022308,000226: 04,3121 77614 SET
022309,000227: 04,3122 00470 UPDATFLG
022310,000228: 04,3123 77776 P39P79 EXIT
022311,000229: 04,3124 03152 TC DSPLY81 # FOR P39 AND P79
022312,000230: 04,3125 51575 MAINRTN1 VLOAD ABVAL
022313,000231: 04,3126 03646 DELVEET3
022314,000232: 04,3127 26635 STOVL DELVTPI # DELTA V
022315,000233: 04,3130 03640 VPASS4
022316,000234: 04,3131 51451 VSU ABVAL
022317,000235: 04,3132 03620 VTPRIME
022318,000236: 04,3133 26637 STOVL DELVTPF # DELTA V (FINAL) = V'T - VT
022319,000237: 04,3134 03540 RACT3
022320,000238: 04,3135 45115 PDVL CALL
022321,000239: 04,3136 03612 VIPRIME
022322,000240: 04,3137 45153 PERIAPO1 # GET PERIGEE ALTITUDE
022323,000241: 04,3140 77624 CALL
022324,000242: 04,3141 45263 SHIFTR1
022325,000243: 04,3142 02641 STORE POSTTPI
022326,000244: 04,3143 43014 BON SET
022327,000245: 04,3144 01311 FINALFLG
022328,000246: 04,3145 11147 DSPLY58
022329,000247: 04,3146 00470 UPDATFLG
022330,000248: 04,3147 77776 DSPLY58 EXIT
022331,000249: 04,3150 33301 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
022332,000250: 04,3151 03263 TC VNDSPLY
022333,000251: 04,3152 33302 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
022334,000252: 04,3153 03263 TC VNDSPLY
022335,000253: 04,3154 06006 TC INTPRET
022336,000254: 04,3155 77214 CLEAR VLOAD
022337,000255: 04,3156 01267 XDELVFLG
022338,000256: 04,3157 03646 DELVEET3
022339,000257: 04,3160 37646 STCALL DELVSIN
022340,000258: 04,3161 73002 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
022341,000259: 04,3162 52014 BON GOTO
022342,000260: 04,3163 04306 P39/79SW
022343,000261: 04,3164 11203 P39/P79B
022344,000262: 04,3165 11045 RECYCLE
022345,000263:
022346,000264: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
022347,000265:
022348,000266: # MOD NO -1 LOG SECTION - STABLE ORBIT - P38-P39
022349,000267: # MOD BY RUDNICKI.S DATE 25JAN68
022350,000268:
022351,000269: # FUNCTIONAL DESCRIPTION
022352,000270:
022353,000271: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
022354,000272: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
022355,000273: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
022356,000274: # THE SOR MANEUVER
022357,000275:
022358,000276: # CALLING SEQUENCE
022359,000277:
022360,000278: # ASTRONAUT REQUEST THRU DSKY
022361,000279:
022362,000280: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
022363,000281: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
022364,000282:
022365,000283: # INPUT
022366,000284:
022367,000285: # (1) TPASS4 TIME OF INTERCEPT - SAVED FROM P38/P78
022368,000286: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT -
022369,000287: # SAVED FROM P38/P78
022370,000288:
022371,000289: # OUTPUT
022372,000290:
022373,000291: # (1) TRKMKCNT NUMBER OF MARKS
022374,000292: # (2) TTOGO TIME TO GO
022375,000293: # (3) +MGA MIDDLE GIMBAL ANGLE
022376,000294: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
022377,000295:
022378,000296: # SUBROUTINES USED
022379,000297:
022380,000298: # AVFLAGA
022381,000299: # AVFLAGP
022382,000300: # LOADTIME
022383,000301: # SELECTMU
022384,000302: # PRECSET
022385,000303: # S34/35.1
022386,000304: # MAINRTNE
022387,000305:
022388,000306: 04,3166 04627 P39 TC AVFLAGA # THIS VEHICLE ACTIVE
022389,000307: 04,3167 00006 EXTEND
022390,000308: 04,3170 31422 DCA ATIGINC
022391,000309: 04,3171 03175 TC P39/P79A
022392,000310: 04,3172 04642 P79 TC AVFLAGP # OTHER VEHICLE ACTIVE
022393,000311: 04,3173 00006 EXTEND
022394,000312: 04,3174 31424 DCA PTIGINC
022395,000313: 04,3175 53764 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
022396,000314: 04,3176 04647 TC P20FLGON # SET UPDATFLG, TRACKFLG
022397,000315: 04,3177 06006 TC INTPRET
022398,000316: 04,3200 45014 SET CALL
022399,000317: 04,3201 04066 P39/79SW
022400,000318: 04,3202 10712 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
022401,000319: 04,3203 43234 P39/P79B RTB DAD
022402,000320: 04,3204 45510 LOADTIME
022403,000321: 04,3205 02364 KT
022404,000322: 04,3206 03413 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
022405,000323: 04,3207 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022406,000324: 04,3210 45215 PRECSET # VEHICLES TO TIG
022407,000325: 04,3211 77624 CALL
022408,000326: 04,3212 74000 S34/35.1 # GET UNIT NORMAL
022409,000327: 04,3213 52145 DLOAD GOTO
022410,000328: 04,3214 02615 TARGTIME
022411,000329: 04,3215 11101 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
022412,000330:
022413,000331: # .... PREC/TT ....
022414,000332:
022415,000333: # SUBROUTINES USED
022416,000334:
022417,000335: # PRECSET
022418,000336: # TIMETHET
022419,000337: # S34/35.1
022420,000338:
022421,000339: 04,3216 71220 PREC/TT STQ DLOAD
022422,000340: 04,3217 02367 RTRN
022423,000341: 04,3220 03413 TIG
022424,000342: 04,3221 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
022425,000343: 04,3222 45215 PRECSET # VEHICLES TO TIG
022426,000344: 04,3223 53775 VLOAD VSR*
022427,000345: 04,3224 03554 RPASS3
022428,000346: 04,3225 57176 0,2
022429,000347: 04,3226 16657 STODL RVEC
022430,000348: 04,3227 03754 CENTANG
022431,000349: 04,3230 71406 PUSH COS
022432,000350: 04,3231 16734 STODL CSTH
022433,000351: 04,3232 43156 SIN SET
022434,000352: 04,3233 03466 RVSW
022435,000353: 04,3234 26732 STOVL SNTH
022436,000354: 04,3235 03562 VPASS3
022437,000355: 04,3236 77657 VSR*
022438,000356: 04,3237 57176 0,2
022439,000357: 04,3240 36746 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
022440,000358: 04,3241 24744 TIMETHET # PASSIVE VEHICLE
022441,000359: 04,3242 77624 CALL
022442,000360: 04,3243 74000 S34/35.1 # GET UNIT NORMAL
022443,000361: 04,3244 52145 DLOAD GOTO
022444,000362: 04,3245 00037 T
022445,000363: 04,3246 02367 RTRN
022446,000364:
022447,000365: # .... INTRPVP ....
022448,000366:
022449,000367: # SUBROUTINES USED
022450,000368:
022451,000369: # CSMPREC
022452,000370: # LEMPREC
022453,000371:
022454,000372: 04,3247 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
022455,000373: 04,3250 02367 RTRN # TDEC1
022456,000374: 04,3251 01352 AVFLAG
022457,000375: 04,3252 11257 OTHERV
022458,000376: 04,3253 77624 CALL
022459,000377: 04,3254 27100 CSMPREC
022460,000378: 04,3255 77650 GOTO
022461,000379: 04,3256 02367 RTRN
022462,000380: 04,3257 77624 OTHERV CALL
022463,000381: 04,3260 27114 LEMPREC
022464,000382: 04,3261 77650 GOTO
022465,000383: 04,3262 02367 RTRN
022466,000384:
022467,000385: # .... VNDSPLY ....
022468,000386:
022469,000387: # SUBROUTINES USED
022470,000388:
022471,000389: # BANKCALL
022472,000390: # GOFLASH
022473,000391: # GOTOPOOH
022474,000392:
022475,000393: 04,3263 00006 VNDSPLY EXTEND # FLASH DISPLAY
022476,000394: 04,3264 23767 QXCH RTRN
022477,000395: 04,3265 55765 TS VERBNOUN
022478,000396: 04,3266 31765 CA VERBNOUN
022479,000397: 04,3267 04676 TCR BANKCALL
022480,000398: 04,3270 20720 CADR GOFLASH
022481,000399: 04,3271 14106 TCF GOTOPOOH # TERMINATE
022482,000400: 04,3272 01767 TC RTRN # PROCEED
022483,000401: 04,3273 13266 TCF -5 # RECYCLE
022484,000402: 04,3274 01441 V06N33SR VN 0633
022485,000403: 04,3275 01467 V06N55SR VN 0655
022486,000404: 04,3276 01006 V04N06SR VN 0406
022487,000405: 04,3277 01471 V06N57SR VN 0657
022488,000406: 04,3300 01442 V06N34SR VN 0634
022489,000407: 04,3301 01472 V06N58SR VN 0658
022490,000408: 04,3302 01521 V06N81SR VN 0681
022491,000409:
End of include-file STABLE_ORBIT_-_P38-P39.agc. Parent file is MAIN.agc