Source Code

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