Source Code

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