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