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