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