Source Code

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