Source Code
030897,000001: # Copyright: Public domain.
030898,000002: # Filename: STABLE_ORBIT.agc
030899,000003: # Purpose: Part of the source code for Luminary 1A build 099.
030900,000004: # It is part of the source code for the Lunar Module's (LM)
030901,000005: # Apollo Guidance Computer (AGC), for Apollo 11.
030902,000006: # Assembler: yaYUL
030903,000007: # Contact: Ron Burkey <info@sandroid.org>.
030904,000008: # Website: www.ibiblio.org/apollo.
030905,000009: # Pages: 723-730
030906,000010: # Mod history: 2009-05-19 RSB Adapted from the corresponding
030907,000011: # Colossus249 file (there being no corresponding
030908,000012: # Luminary131 source-code file), using page
030909,000013: # images from Luminary 1A.
030910,000014: # 2009-06-07 RSB Eliminated an extraneous instruction.
030911,000015: # 2011-01-06 JL Fixed pseudo-label indentation.
030912,000016:
030913,000017: # This source code has been transcribed or otherwise adapted from
030914,000018: # digitized images of a hardcopy from the MIT Museum. The digitization
030915,000019: # was performed by Paul Fjeld, and arranged for by Deborah Douglas of
030916,000020: # the Museum. Many thanks to both. The images (with suitable reduction
030917,000021: # in storage size and consequent reduction in image quality as well) are
030918,000022: # available online at www.ibiblio.org/apollo. If for some reason you
030919,000023: # find that the images are illegible, contact me at info@sandroid.org
030920,000024: # about getting access to the (much) higher-quality images which Paul
030921,000025: # actually created.
030922,000026:
030923,000027: # Notations on the hardcopy document read, in part:
030924,000028:
030925,000029: # Assemble revision 001 of AGC program LMY99 by NASA 2021112-61
030926,000030: # 16:27 JULY 14, 1969
030927,000031:
030928,000032: # Page 723
030929,000033: # STABLE ORBIT RENDEZVOUS PROGRAMS (P38 AND P78)
030930,000034:
030931,000035: # MOD NO -1 LOG SECTION -- STABLE ORBIT -- P38-P39
030932,000036: # MOD BY RUDNICKI.S DATE 26JAN68
030933,000037:
030934,000038: # FUNCTIONAL DESCRIPTION
030935,000039:
030936,000040: # P38 AND P78 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
030937,000041: # CONDITIONS REQUIRED BY THE AGC TO (1) PUT THE ACTIVE VEHICLE
030938,000042: # ON A TRANSFER TRAJECTORY THAT INTERCEPTS THE PASSIVE VEHICLE
030939,000043: # ORBIT A GIVEN DISTANCE, DELTA R, EITHER AHEAD OF OR BEHIND THE
030940,000044: # PASSIVE VEHICLE AND (2) ACTUALLY PLACE THE ACTIVE VEHICLE IN THE
030941,000045: # PASSIVE VEHICLE ORBIT WITH A DELTA R SEPARATION BETWEEN THE TWO
030942,000046: # VEHICLES
030943,000047:
030944,000048: # CALLING SEQUENCE
030945,000049:
030946,000050: # ASTRONAUT REQUEST THRU DSKY
030947,000051:
030948,000052: # V37E38E IF THIS VEHICLE IS ACTIVE VEHICLE
030949,000053: # V37E78E IF OTHER VEHICLE IS ACTIVE VEHICLE
030950,000054:
030951,000055: # INPUT
030952,000056:
030953,000057: # (1) SOI MANEUVER
030954,000058:
030955,000059: # (A) TIG TIME OF SOI MANEUVER
030956,000060: # (B) CENTANG ORBITAL CENTRAL ANGLE OF THE PASSIVE VEHICLE
030957,000061: # DURING THE TRANSFER FROM TIG TO TIME OF INTERCEPT
030958,000062: # (C) DELTAR THE DESIRED SEPARATION OF THE TWO VEHICLES
030959,000063: # SPECIFIED AS A DISTANCE ALONG THE PASSIVE VEHICLE
030960,000064: # ORBIT
030961,000065: # (D) OPTION EQUALS 1 FOR SOI
030962,000066:
030963,000067: # (2) SOR MANEUVER
030964,000068:
030965,000069: # (A) TIG TIME OF SOR MANEUVER
030966,000070: # (B) CENTANG AN OPTIONAL RESPECIFICATION OF 1 (B) ABOVE
030967,000071: # (C) OPTION EQUALS 2 FOR SOR
030968,000072: # (D) DELTTIME THE TIME REQUIRED TO TRAVERSE DELTA R WHEN
030969,000073: # TRAVELING AT A VELOCITY EQUAL TO THE HORIZONTAL
030970,000074: # VELOCITY OF THE PASSIVE VEHICLE -- SAVED FROM
030971,000075: # SOI PHASE
030972,000076: # (E) TINT TIME OF INTERCEPT (SOI) -- SAVED FROM SOI PHASE
030973,000077:
030974,000078: # OUTPUT
030975,000079:
030976,000080: # (1) TRKMKCNT NUMBER OF MARKS
030977,000081: # (2) TTOGO TIME TO GO
030978,000082: # (3) +MGA MIDDLE GIMBAL ANGLE
030979,000083: # Page 724
030980,000084: # (4) DSPTEM1 TIME OF INTERCEPT OF PASSIVE VEHICLE ORBIT
030981,000085: # (FOR SOI ONLY)
030982,000086: # (5) POSTTPI PERIGEE ALTITUDE OF ACTIVE VEHICLE ORBIT AFTER
030983,000087: # THE SOI (SOR) MANEUVER
030984,000088: # (6) DELVTPI MAGNITUDE OF DELTA V AT SOI (SOR) TIME
030985,000089: # (7) DELVTPF MAGNITUDE OF DELTA V AT INTERCEPT TIME
030986,000090: # (8) DELTA VELOCITY AT SOI (AND SOR) -- LOCAL VERTICAL
030987,000091: # CORDINATES
030988,000092:
030989,000093: # SUBROUTINE USED
030990,000094:
030991,000095: # AVFLAGA
030992,000096: # AVFLAGP
030993,000097: # VNDSPLY
030994,000098: # BANKCALL
030995,000099: # GOFLASHR
030996,000100: # GOTOP00H
030997,000101: # BLANKET
030998,000102: # ENDOFJOB
030999,000103: # PREC/TT
031000,000104: # SELECTMU
031001,000105: # INTRPVP
031002,000106: # MAINRTNE
031003,000107:
031004,000108: 04,3013 BANK 04
031005,000109: 34,2000 SETLOC STBLEORB
031006,000110: 34,2000 BANK
031007,000111:
031008,000112: 34,3271 E7,1470 EBANK= SUBEXIT
031009,000113: 34,3271 COUNT* $$/P3879
031010,000114:
031011,000115: 34,3271 04616 P38 TC BANKCALL
031012,000116: 34,3272 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
031013,000117: 34,3273 03276 TC +3
031014,000118: 34,3274 04616 P78 TC BANKCALL
031015,000119: 34,3275 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031016,000120: 34,3276 04616 TC BANKCALL
031017,000121: 34,3277 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031018,000122: 34,3300 33641 CAF DECTWO
031019,000123: 34,3301 55466 TS NN
031020,000124: 34,3302 33632 CAF V06N33SR # DISPLAY TIG
031021,000125: 34,3303 03621 TC VNDSPLY
031022,000126: 34,3304 33633 CAF V06N55SR # DISPLAY CENTANG
031023,000127: 34,3305 04616 TCR BANKCALL
031024,000128: 34,3306 20635 CADR GOFLASHR
031025,000129: 34,3307 16001 TCF GOTOP00H # TERMINATE
031026,000130: 34,3310 13315 TCF +5 # PROCEED
031027,000131: 34,3311 13304 TCF -5 # RECYCLE
031028,000132: 34,3312 36245 CAF THREE # IMMEDIATE RETURN -- BLANK R1, R2
031029,000133: 34,3313 05464 TCR BLANKET
031030,000134: # Page 725
031031,000135: 34,3314 15155 TCF ENDOFJOB
031032,000136: 34,3315 34756 CAF FIVE
031033,000137: 34,3316 55144 TS OPTION1
031034,000138: 34,3317 34753 CAF ONE
031035,000139: 34,3320 55145 TS OPTION2 # OPTION CODE IS SET TO 1
031036,000140: 34,3321 33634 CAF V04N06SR # DISPLAY OPTION CODE -- 1 = SOI, 2 = SOR
031037,000141: 34,3322 04616 TCR BANKCALL
031038,000142: 34,3323 20635 CADR GOFLASHR
031039,000143: 34,3324 16001 TCF GOTOP00H # TERMINATE
031040,000144: 34,3325 13332 TCF +5 # PROCEED
031041,000145: 34,3326 13321 TCF -5 # RECYCLE
031042,000146: 34,3327 34751 CAF BIT3 # IMMEDIATE RETURN -- BLANK R3
031043,000147: 34,3330 05464 TCR BLANKET
031044,000148: 34,3331 15155 TCF ENDOFJOB
031045,000149: 34,3332 06037 TC INTPRET
031046,000150: 34,3333 70535 SLOAD SR1
031047,000151: 34,3334 01146 OPTION2
031048,000152: 34,3335 71230 BHIZ DLOAD
031049,000153: 34,3336 71344 OPTN1
031050,000154: 34,3337 03631 TINT
031051,000155: 34,3340 02303 STORE TINTSOI # STORE FOR SOR PHASE
031052,000156: 34,3341 77614 CLRGO
031053,000157: 34,3342 01230 OPTNSW # OPTNSW: ON = SOI, OFF = SOR
031054,000158: 34,3343 71375 JUNCTN1
031055,000159: 34,3344 43014 OPTN1 SET CLEAR # SOI
031056,000160: 34,3345 01070 OPTNSW
031057,000161: 34,3346 00670 UPDATFLG
031058,000162: 34,3347 77624 CALL
031059,000163: 34,3350 71554 PREC/TT
031060,000164: 34,3351 43015 DAD SET
031061,000165: 34,3352 03442 TIG
031062,000166: 34,3353 00470 UPDATFLG
031063,000167: 34,3354 03631 STORE TINT # TI = TIG + TF
031064,000168: 34,3355 77776 EXIT
031065,000169: 34,3356 33635 CAF V06N57SR # DISPLAY DELTA R
031066,000170: 34,3357 04616 TCR BANKCALL
031067,000171: 34,3360 20635 CADR GOFLASHR
031068,000172: 34,3361 16001 TCF GOTOP00H # TERMINATE
031069,000173: 34,3362 13367 TCF +5 # PROCEED
031070,000174: 34,3363 13356 TCF -5 # RECYCLE
031071,000175: 34,3364 36242 CAF SIX # IMMEDIATE RETURN -- BLANK R2, R3
031072,000176: 34,3365 05464 TCR BLANKET
031073,000177: 34,3366 15155 TCF ENDOFJOB
031074,000178: 34,3367 00006 +5 EXTEND
031075,000179: 34,3370 31631 DCA TINT
031076,000180: 34,3371 53046 DXCH DSPTEM1 # FOR DISPLAY
031077,000181: 34,3372 33636 CAF V06N34SR # DISPLAY TIME OF INTERCEPT
031078,000182: 34,3373 03621 TC VNDSPLY
031079,000183: 34,3374 06037 TC INTPRET
031080,000184: 34,3375 45014 JUNCTN1 CLEAR CALL
031081,000185: # Page 726
031082,000186: 34,3376 04266 P39/79SW
031083,000187: 34,3377 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
031084,000188: 34,3400 77624 RECYCLE CALL
031085,000189: 34,3401 71554 PREC/TT
031086,000190: 34,3402 71214 BOFF DLOAD
031087,000191: 34,3403 01350 OPTNSW
031088,000192: 34,3404 71424 OPTN2
031089,000193: 34,3405 03631 TINT
031090,000194: 34,3406 34041 STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031091,000195: 34,3407 71605 INTRPVP # INTERCEPT TIME
031092,000196: 34,3410 53575 VLOAD UNIT
031093,000197: 34,3411 00001 RATT # RP/(RP)
031094,000198: 34,3412 47315 PDVL VXV
031095,000199: 34,3413 00007 VATT
031096,000200: 34,3414 60246 ABVAL NORM # (VP X RP/(RP))
031097,000201: 34,3415 00047 X1
031098,000202: 34,3416 56325 PDDL DDV
031099,000203: 34,3417 02303 DELTAR
031100,000204: 34,3420 77657 SL* # DELTA R / (VP X RP/RP)
031101,000205: 34,3421 20172 0 -7,1
031102,000206: 34,3422 36305 STCALL DELTTIME # DELTA T = (RP) DELTA R / (VP X RP)
031103,000207: 34,3423 71430 JUNCTN2
031104,000208: 34,3424 43345 OPTN2 DLOAD DAD
031105,000209: 34,3425 02303 TINTSOI
031106,000210: 34,3426 00037 T
031107,000211: 34,3427 03631 STORE TINT # TI = TI + TF
031108,000212: 34,3430 45345 JUNCTN2 DLOAD DSU
031109,000213: 34,3431 03631 TINT
031110,000214: 34,3432 02305 DELTTIME
031111,000215: 34,3433 02307 STORE TARGTIME # TT = TI - DELTA T
031112,000216:
031113,000217: # .... MAINRTNE ....
031114,000218:
031115,000219: # SUBROUTINES USED:
031116,000220:
031117,000221: # S3435.25
031118,000222: # PERIAPO1
031119,000223: # SHIFTR1
031120,000224: # VNDSPLY
031121,000225: # BANKCALL
031122,000226: # GOFLASH
031123,000227: # GOTOP00H
031124,000228: # VN1645
031125,000229:
031126,000230: 34,3434 34041 MAINRTNE STCALL TDEC1 # PRECISION UPDATE PASSIVE VEHICLE TO
031127,000231: 34,3435 71605 INTRPVP # TARGET TIME
031128,000232: 34,3436 77745 DLOAD
031129,000233: 34,3437 03442 TIG
031130,000234: 34,3440 03610 STORE INTIME
031131,000235: 34,3441 77331 SSP VLOAD
031132,000236: 34,3442 03471 SUBEXIT
031133,000237: 34,3443 71447 TEST3979
031134,000238: # Page 727
031135,000239: 34,3444 00001 RATT
031136,000240: 34,3445 77624 CALL
031137,000241: 34,3446 73327 S3435.25
031138,000242: 34,3447 43014 TEST3979 BOFF BON
031139,000243: 34,3450 04346 P39/79SW
031140,000244: 34,3451 71460 MAINRTN1
031141,000245: 34,3452 01311 FINALFLG
031142,000246: 34,3453 71456 P39P79
031143,000247: 34,3454 77614 SET
031144,000248: 34,3455 00470 UPDATFLG
031145,000249: 34,3456 77776 P39P79 EXIT
031146,000250: 34,3457 03505 TC DSPLY81 # FOR P39 AND P79
031147,000251: 34,3460 51575 MAINRTN1 VLOAD ABVAL
031148,000252: 34,3461 02366 DELVEET3
031149,000253: 34,3462 27576 STOVL DELVTPI # DELTA V
031150,000254: 34,3463 03506 VPASS4
031151,000255: 34,3464 51451 VSU ABVAL
031152,000256: 34,3465 03566 VTPRIME
031153,000257: 34,3466 26350 STOVL DELVTPF # DELTA V (FINAL) = V*T - VT
031154,000258: 34,3467 03536 RACT3
031155,000259: 34,3470 45115 PDVL CALL
031156,000260: 34,3471 02337 VIPRIME
031157,000261: 34,3472 46316 PERIAPO1 # GET PERIGEE ALTITUDE
031158,000262: 34,3473 77624 CALL
031159,000263: 34,3474 46426 SHIFTR1
031160,000264: 34,3475 03606 STORE POSTTPI
031161,000265: 34,3476 43014 BON SET
031162,000266: 34,3477 01311 FINALFLG
031163,000267: 34,3500 71502 DSPLY58
031164,000268: 34,3501 00470 UPDATFLG
031165,000269: 34,3502 77776 DSPLY58 EXIT
031166,000270: 34,3503 33637 CAF V06N58SR # DISPLAY HP, DELTA V, DELTA V (FINAL)
031167,000271: 34,3504 03621 TC VNDSPLY
031168,000272: 34,3505 33640 DSPLY81 CAF V06N81SR # DISPLAY DELTA V (LV)
031169,000273: 34,3506 03621 TC VNDSPLY
031170,000274: 34,3507 06037 TC INTPRET
031171,000275: 34,3510 77214 CLEAR VLOAD
031172,000276: 34,3511 01267 XDELVFLG
031173,000277: 34,3512 02366 DELVEET3
031174,000278: 34,3513 37656 STCALL DELVSIN
031175,000279: 34,3514 73606 VN1645 # DISPLAY TRKMKCNT, TTOGO, +MGA
031176,000280: 34,3515 52014 BON GOTO
031177,000281: 34,3516 04306 P39/79SW
031178,000282: 34,3517 71541 P39/P79B
031179,000283: 34,3520 71400 RECYCLE
031180,000284:
031181,000285: # STABLE ORBIT MIDCOURSE PROGRAM (P39 AND P79)
031182,000286:
031183,000287: # MOD NO -1 LOG SECTION -- STABLE ORBIT -- P38-P39
031184,000288: # MOD BY RUDNICKI, S DATE 25JAN68
031185,000289:
031186,000290: # Page 728
031187,000291: # FUNCTIONAL DESCRIPTION
031188,000292:
031189,000293: # P39 AND P79 CALCULATE THE REQUIRED DELTA V AND OTHER INITIAL
031190,000294: # CONDITIONS REQUIRED BY THE AGC TO MAKE A MIDCOURSE CORRECTION
031191,000295: # MANEUVER AFTER COMPLETING THE SOI MANEUVER BUT BEFORE MAKING
031192,000296: # THE SOR MANEUVER.
031193,000297:
031194,000298: # CALLING SEQUENCE
031195,000299:
031196,000300: # ASTRONAUT REQUEST THRU DSKY
031197,000301:
031198,000302: # V37E39E IF THIS VEHICLE IS ACTIVE VEHICLE
031199,000303: # V37E79E IF OTHER VEHICLE IS ACTIVE VEHICLE
031200,000304:
031201,000305: # INPUT
031202,000306:
031203,000307: # (1) TPASS4 TIME OF INTERCEPT -- SAVED FROM P38/P78
031204,000308: # (2) TARGTIME TIME THAT PASSIVE VEHICLE IS AT INTERCEPT POINT --
031205,000309: # SAVED FROM P38/P78
031206,000310:
031207,000311: # OUTPUT
031208,000312:
031209,000313: # (1) TRKMKCNT NUMBER OF MARKS.
031210,000314: # (2) TTOGO TIME TO GO
031211,000315: # (3) +MGA MIDDLE GIMBAL ANGLE
031212,000316: # (4) DELVLVC DELTA VELOCITY AT MID - LOCAL VERTICAL COORDINATES
031213,000317:
031214,000318: # SUBROUTINES USED
031215,000319:
031216,000320: # AVFLAGA
031217,000321: # AVFLAGP
031218,000322: # LOADTIME
031219,000323: # SELECTMU
031220,000324: # PRECSET
031221,000325: # S34/35.1
031222,000326: # MAINRTNE
031223,000327:
031224,000328: 34,3521 04616 P39 TC BANKCALL
031225,000329: 34,3522 72347 CADR AVFLAGA # THIS VEHICLE ACTIVE
031226,000330: 34,3523 00006 EXTEND
031227,000331: 34,3524 31401 DCA ATIGINC
031228,000332: 34,3525 03532 TC P39/P79A
031229,000333: 34,3526 04616 P79 TC BANKCALL
031230,000334: 34,3527 72354 CADR AVFLAGP # OTHER VEHICLE ACTIVE
031231,000335: 34,3530 00006 EXTEND
031232,000336: 34,3531 31403 DCA PTIGINC
031233,000337: 34,3532 53576 P39/P79A DXCH KT # TIME TO PREPARE FOR BURN
031234,000338: 34,3533 04616 TC BANKCALL
031235,000339: 34,3534 72361 CADR P20FLGON # SET UPDATFLG, TRACKFLG
031236,000340: 34,3535 06037 TC INTPRET
031237,000341: # Page 729
031238,000342: 34,3536 45014 SET CALL
031239,000343: 34,3537 04066 P39/79SW
031240,000344: 34,3540 20000 SELECTMU # SELECT MU, CLEAR FINALFLG, GO TO VN1645
031241,000345: 34,3541 43234 P39/P79B RTB DAD
031242,000346: 34,3542 21573 LOADTIME
031243,000347: 34,3543 03576 KT
031244,000348: 34,3544 03442 STORE TIG # TIG = T (PRESENT) + PREPARATION TIME
031245,000349: 34,3545 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
031246,000350: 34,3546 46360 PRECSET # VEHICLES TO TIG
031247,000351: 34,3547 77624 CALL
031248,000352: 34,3550 73274 S34/35.1 # GET UNIT NORMAL
031249,000353: 34,3551 52145 DLOAD GOTO
031250,000354: 34,3552 02307 TARGTIME
031251,000355: 34,3553 71434 MAINRTNE # CALCULATE DELTA V AND DELTA V (LV)
031252,000356:
031253,000357: # .... PREC/TT ....
031254,000358:
031255,000359: # SUBROUTINES USED
031256,000360:
031257,000361: # PRECSET
031258,000362: # TIMETHET
031259,000363: # S34/35.1
031260,000364:
031261,000365: 34,3554 71220 PREC/TT STQ DLOAD
031262,000366: 34,3555 03465 RTRN
031263,000367: 34,3556 03442 TIG
031264,000368: 34,3557 34041 STCALL TDEC1 # PRECISION UPDATE ACTIVE AND PASSIVE
031265,000369: 34,3560 46360 PRECSET # VEHICLES TO TIG
031266,000370: 34,3561 53775 VLOAD VSR*
031267,000371: 34,3562 03552 RPASS3
031268,000372: 34,3563 57176 0,2
031269,000373: 34,3564 16655 STODL RVEC
031270,000374: 34,3565 03621 CENTANG
031271,000375: 34,3566 71406 PUSH COS
031272,000376: 34,3567 16732 STODL CSTH
031273,000377: 34,3570 43156 SIN SET
031274,000378: 34,3571 03466 RVSW
031275,000379: 34,3572 26730 STOVL SNTH
031276,000380: 34,3573 03560 VPASS3
031277,000381: 34,3574 77657 VSR*
031278,000382: 34,3575 57176 0,2
031279,000383: 34,3576 36744 STCALL VVEC # GET TRANSFER TIME BASED ON CENTANG OF
031280,000384: 34,3577 24732 TIMETHET # PASSIVE VEHICLE
031281,000385: 34,3600 77624 CALL
031282,000386: 34,3601 73274 S34/35.1 # GET UNIT NORMAL
031283,000387: 34,3602 52145 DLOAD GOTO
031284,000388: 34,3603 00037 T
031285,000389: 34,3604 03465 RTRN
031286,000390:
031287,000391: # .... INTRPVP ....
031288,000392:
031289,000393: # SUBROUTINES USED
031290,000394:
031291,000395: # CSMPREC
031292,000396: # Page 730
031293,000397: # LEMPREC
031294,000398:
031295,000399: 34,3605 43020 INTRPVP STQ BOFF # PRECISION UPDATE PASSIVE VEHICLE TO
031296,000400: 34,3606 03465 RTRN # TDEC1
031297,000401: 34,3607 01352 AVFLAG
031298,000402: 34,3610 71615 OTHERV
031299,000403: 34,3611 77624 CALL
031300,000404: 34,3612 27043 CSMPREC
031301,000405: 34,3613 77650 GOTO
031302,000406: 34,3614 03465 RTRN
031303,000407: 34,3615 77624 OTHERV CALL
031304,000408: 34,3616 27057 LEMPREC
031305,000409: 34,3617 77650 GOTO
031306,000410: 34,3620 03465 RTRN
031307,000411:
031308,000412: # .... VNDSPLY ....
031309,000413:
031310,000414: # SUBROUTINES USED
031311,000415:
031312,000416: # BANKCALL
031313,000417: # GOFLASH
031314,000418: # GOTOP00H
031315,000419:
031316,000420: 34,3621 00006 VNDSPLY EXTEND # FLASH DISPLAY
031317,000421: 34,3622 23465 QXCH RTRN
031318,000422: 34,3623 55615 TS VERBNOUN
031319,000423: 34,3624 31615 CA VERBNOUN
031320,000424: 34,3625 04616 TCR BANKCALL
031321,000425: 34,3626 20476 CADR GOFLASH
031322,000426: 34,3627 16001 TCF GOTOP00H # TERMINATE
031323,000427: 34,3630 01465 TC RTRN # PROCEED
031324,000428: 34,3631 13624 TCF -5 # RECYCLE
031325,000429: 34,3632 01441 V06N33SR VN 0633
031326,000430: 34,3633 01467 V06N55SR VN 0655
031327,000431: 34,3634 01006 V04N06SR VN 0406
031328,000432: 34,3635 01471 V06N57SR VN 0657
031329,000433: 34,3636 01442 V06N34SR VN 0634
031330,000434: 34,3637 01472 V06N58SR VN 0658
031331,000435: 34,3640 01521 V06N81SR VN 0681
031332,000436: 34,3641 00002 DECTWO OCT 2
031333,000437:
031334,000438: # *** END OF KISSING .050 ***
031335,000439:
031336,000440:
031337,000441:
End of include-file STABLE_ORBIT.agc. Parent file is MAIN.agc