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