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