Source Code

039223,000001: # Copyright: Public domain. 039224,000002: # Filename: Template.agc 039225,000003: # Purpose: Part of the source code for Colossus, build 249. 039226,000004: # It is part of the source code for the Command Module's (CM) 039227,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 039228,000006: # Assembler: yaYUL 039229,000007: # Reference: pp. 893-902 of 1701.pdf. 039230,000008: # Contact: Ron Burkey <info@sandroid.org>. 039231,000009: # Website: www.ibiblio.org/apollo. 039232,000010: # Mod history: 08/22/04 RSB. Transcribed. 039233,000011: 039234,000012: # The contents of the "Colossus249" files, in general, are transcribed 039235,000013: # from a scanned document obtained from MIT's website, 039236,000014: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 039237,000015: # document read, in part: 039238,000016: 039239,000017: # Assemble revision 249 of AGC program Colossus by NASA 039240,000018: # 2021111-041. October 28, 1968. 039241,000019: 039242,000020: # This AGC program shall also be referred to as 039243,000021: # Colossus 1A 039244,000022: 039245,000023: # Prepared by 039246,000024: # Massachusetts Institute of Technology 039247,000025: # 75 Cambridge Parkway 039248,000026: # Cambridge, Massachusetts 039249,000027: # under NASA contract NAS 9-4065. 039250,000028: 039251,000029: # Refer directly to the online document mentioned above for further information. 039252,000030: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 039253,000031: 039254,000032: # In some cases, where the source code for Luminary 131 overlaps that of 039255,000033: # Colossus 249, this code is instead copied from the corresponding Luminary 131 039256,000034: # source file, and then is proofed to incorporate any changes. 039257,000035: 039258,000036: # Page 893 039259,000037: 31,3215 BANK 31 039260,000038: 31,2000 SETLOC R35 039261,000039: 31,2000 BANK 039262,000040: 039263,000041: 31,3215 COUNT 31/R35 039264,000042: 039265,000043: 31,3215 E4,1724 EBANK= JLOOPCNT 039266,000044: 31,3215 06006 LNDMKSEL TC INTPRET 039267,000045: 31,3216 77634 RTB 039268,000046: 31,3217 45505 LOADTIME # PICK UP TIME SCALED B-28 039269,000047: 31,3220 01046 STORE DSPTEM1 039270,000048: 31,3221 77776 EXIT 039271,000049: 31,3222 33535 DISGET CAF V06N34** # DISPLAY GROUND ELAPSED TIME 039272,000050: 31,3223 04555 TC BANKCALL 039273,000051: 31,3224 20465 CADR GOMARKF 039274,000052: 31,3225 05423 TC ENDEXT # TERMINATE WITH V34E 039275,000053: 31,3226 03230 TC CALCTLS # PROCEED WITH V33E 039276,000054: 31,3227 03222 TC DISGET # NEW TIME LOADED VIA V25E 039277,000055: 31,3230 06006 CALCTLS TC INTPRET 039278,000056: 31,3231 43175 VLOAD SET 039279,000057: 31,3232 02026 RLS 039280,000058: 31,3233 00462 ERADFLAG # SET. CONSTANT REARTH (RM) 039281,000059: 31,3234 14001 STODL 0D # PD0-5 > RP VECTOR 039282,000060: 31,3235 23534 RRCSML 039283,000061: 31,3236 14007 STODL 6D # PD6-7 > DUMMY TIME 039284,000062: 31,3237 23534 RRCSML # MPAC > NON-ZERO FOR MOON CASE 039285,000063: 31,3240 77614 SET 039286,000064: 31,3241 01463 LUNAFLAG # SET. LUNAR LAT-LONG 039287,000065: 31,3242 77624 CALL 039288,000066: 31,3243 61762 RPTOLONG # RP TO LONG 039289,000067: 31,3244 77745 DLOAD 039290,000068: 31,3245 01106 LONG 039291,000069: 31,3246 16353 STODL LSLONG # SAVE LND SITE LONG. 039292,000070: 31,3247 01046 DSPTEM1 039293,000071: 31,3250 34041 STCALL TDEC1 # ADVANCE INTEGRATION TO TIME IN TDEC1 039294,000072: 31,3251 27022 CSMPREC # USING PRECISION INTEGRATION 039295,000073: 31,3252 77775 VLOAD 039296,000074: 31,3253 00017 RATT1 039297,000075: 31,3254 02337 STORE POSVECT # SAVE POSITION VECTOR SCALED B-27 039298,000076: 31,3255 26152 STOVL ALPHAV # FOR LAT-LONG 039299,000077: 31,3256 00025 VATT1 039300,000078: 31,3257 16345 STODL VELVECT # SAVE VEL. VECTOR B-5 039301,000079: 31,3260 00015 TAT 039302,000080: 31,3261 36323 STCALL VECTIME # SAVE TIME 039303,000081: 31,3262 26322 LAT-LONG # COMPUTE LAT, LONG, ALT OF S/C PD>00 039304,000082: 31,3263 76145 DLOAD AXT,1 # SAVE S/C LONGITUDE 039305,000083: 31,3264 01106 LONG 039306,000084: 31,3265 02352 LSLONG # XR1 = LANDING SITE LONG--SINUS MEDII, OCEANUS 039307,000085: 31,3266 36335 STCALL LONGSAVE # PROCELLARUM, MARE TRANQUILLITEATIS 039308,000086: 31,3267 63414 ELAPTIME # COMPUTE TL (TIME TO LANDING SITE) 039309,000087: # Page 894 039310,000088: 31,3270 01046 STORE DSPTEM1 # SAVE TL FOR OUTPUT TO DSKY 039311,000089: 31,3271 77776 EXIT 039312,000090: 31,3272 33536 DISTLS CAF V06N31** # DISPLAY TIME TO LANDING SITE 039313,000091: 31,3273 04555 TC BANKCALL 039314,000092: 31,3274 20465 CADR GOMARKF 039315,000093: 31,3275 05423 TC ENDEXT # TERMINATE WTIH V34E 039316,000094: 31,3276 03300 TC PROCLMKS # PROCEED WITH V33E 039317,000095: 31,3277 03272 TC DISTLS # ILLEGAL RESPONSE, DO AGAIN 039318,000096: 31,3300 06006 PROCLMKS TC INTPRET # BEGIN LANDMARK PROCESSING 039319,000097: 31,3301 75170 AXT,1 AXC,2 # SET COUNTERS FOR LOOP CONTROL 039320,000098: 31,3302 00005 KCOUNT 039321,000099: 31,3303 00002 JCOUNT 039322,000100: 31,3304 43134 SXA,2 SET 039323,000101: 31,3305 02324 JLOOPCNT 039324,000102: 31,3306 00462 ERADFLAG # USE MEAN LUNAR RADIUS 039325,000103: 31,3307 66730 KLOOP SXA,1 SLOAD* 039326,000104: 31,3310 02325 KLOOPCNT 039327,000105: 31,3311 23534 BANDTABL +5,1 039328,000106: 31,3312 16327 STODL NKVAL # SAVE LONGITUDE BAND 039329,000107: 31,3313 15340 DPPOSMAX 039330,000108: 31,3314 02330 STORE DELTAL 039331,000109: 31,3315 54170 JLOOPP AXT,1 XSU,1 # SET XR1 FOR LONGITUDE OF LANDMARK 039332,000110: 31,3316 63620 LONGTAB -2 039333,000111: 31,3317 02324 JLOOPCNT 039334,000112: 31,3320 77624 CALL 039335,000113: 31,3321 63414 ELAPTIME # COMPUTE TL (TIME TO LANDMARK) 039336,000114: 31,3322 02321 STORE XR1HOLD 039337,000115: 31,3323 45014 SET CALL # COMPUTE LATITUDE AND LONGITUDE OF S/C 039338,000116: 31,3324 01463 LUNAFLAG # AT LANDMARK 039339,000117: 31,3325 26322 LAT-LONG # PD=00 039340,000118: 31,3326 77754 LXA,2 039341,000119: 31,3327 02324 JLOOPCNT 039342,000120: 31,3330 44343 DLOAD* BDSU 039343,000121: 31,3331 54240 LATTAB -2,2 039344,000122: 31,3332 01104 LAT 039345,000123: 31,3333 41446 ABS PUSH # DELTA LAT = ABS(LAT - LATJ) PD=02 039346,000124: 31,3334 51025 DSU BPL # DELTAL OPERATOR THAN DELTA LAT 039347,000125: 31,3335 02330 DELTAL 039348,000126: 31,3336 63345 LMKLOOP # NO 039349,000127: 31,3337 45545 DLOAD STADR # PD=00 039350,000128: 31,3340 61447 STODL DELTAL # DELTA LAT = DELTAL 039351,000129: 31,3341 02321 XR1HOLD 039352,000130: 31,3342 01046 STORE DSPTEM1 # SAVE TIME TO LANDMARK 039353,000131: 31,3343 77734 SXA,2 039354,000132: 31,3344 02333 INDEXNUM # SAVE LANDMARK I.D. 039355,000133: 31,3345 67114 LMKLOOP INCR,2 SXA,2 # J = J + 2 039356,000134: 31,3346 77775 OCT -2 039357,000135: 31,3347 02324 JLOOPCNT 039358,000136: 31,3350 45335 SLOAD DSU 039359,000137: 31,3351 00050 X2 039360,000138: # Page 895 039361,000139: 31,3352 02327 NKVAL 039362,000140: 31,3353 52030 BHIZ GOTO # J = NKVAL 039363,000141: 31,3354 63356 DISLID # YES, GO DISPLAY LANDMARK ID, MAYBE TL 039364,000142: 31,3355 63315 JLOOPP # NO, ONE MORE TIME 039365,000143: 31,3356 70535 DISLID SLOAD SR1 # ID = -INDEXNUM/2 + 1 039366,000144: 31,3357 02334 INDEXNUM 039367,000145: 31,3360 63144 LXC,2 INCR,2 039368,000146: 31,3361 00154 MPAC +0 039369,000147: 31,3362 00001 1D 039370,000148: 31,3363 77534 SXA,2 EXIT 039371,000149: 31,3364 02751 LANDMARK 039372,000150: 31,3365 33537 CAF V05N70** # DISPLAY LANDMARK ID 039373,000151: 31,3366 04555 TC BANKCALL 039374,000152: 31,3367 20504 CADR GOMARKFR 039375,000153: 31,3370 05423 TC ENDEXT # TERMINATE WITH V34E 039376,000154: 31,3371 03376 TC DISTTL # PROCEED WTIH V33E 039377,000155: 31,3372 03404 TC NEXTBAND # RECYCLE WITH V32E 039378,000156: 31,3373 34715 CAF FIVE # BLANK R1 AND R3 039379,000157: 31,3374 05415 TC BLANKET 039380,000158: 31,3375 05112 TC ENDOFJOB 039381,000159: 31,3376 33535 DISTTL CAF V06N34** # DISPLAY GROUND ELAPSED TIME TO LANDMARK 039382,000160: 31,3377 04555 TC BANKCALL 039383,000161: 31,3400 20465 CADR GOMARKF 039384,000162: 31,3401 05423 TC ENDEXT # TERMINATE WITH V34E 039385,000163: 31,3402 03404 TC NEXTBAND # PROCEED WITH V33E 039386,000164: 31,3403 03376 TC DISTTL # ILLEGAL RESPONSE, DO AGAIN 039387,000165: 31,3404 06006 NEXTBAND TC INTPRET # MUST WE GO ON 039388,000166: 31,3405 66350 LXA,1 SSP # RESTORE COUNTER 039389,000167: 31,3406 02325 KLOOPCNT 039390,000168: 31,3407 00051 S1 039391,000169: 31,3410 00001 1D 039392,000170: 31,3411 77500 TIX,1 EXIT 039393,000171: 31,3412 63307 KLOOP # YES, K = K - 1 039394,000172: 31,3413 05423 TC ENDEXT # K = 0, EXIT R35 039395,000173: # Page 896 039396,000174: 31,3414 66020 ELAPTIME STQ SXA,1 # SAVE RETURN AND INDEX 1 039397,000175: 31,3415 02321 RETLOCN 039398,000176: 31,3416 02320 XR1HOLD 039399,000177: 31,3417 77601 SETPD 039400,000178: 31,3420 00001 0D # PD=00 039401,000179: 31,3421 65375 VLOAD PDDL # PD=06 039402,000180: 31,3422 15324 HIUNITZ # SET UP FOR RP-TO-R 039403,000181: 31,3423 02323 VECTIME 039404,000182: 31,3424 45125 PDDL CALL # PD=08 039405,000183: 31,3425 15340 DPPOSMAX 039406,000184: 31,3426 55341 RP-TO-R # TRANSFORM PLANETARY TO RCS PD=00 039407,000185: 31,3427 53515 PDVL UNIT # COMPUTE AND STORE UZ PD=06 039408,000186: 31,3430 02337 POSVECT # POSITION VECTOR OF CM SCALED B-27 039409,000187: 31,3431 47206 PUSH VXV # COMPUTE AND STORE UR=UNIT(R) PD=12 039410,000188: 31,3432 00001 UZZ 039411,000189: 31,3433 53572 VSL1 UNIT 039412,000190: 31,3434 47206 PUSH VXV # COMPUTE AND STORE UW=UNIT(UR X UZ) PD=18 039413,000191: 31,3435 00001 UZZ 039414,000192: 31,3436 53572 VSL1 UNIT 039415,000193: 31,3437 47315 PDVL VXV # COMPUTE AND STORE UN=UNIT(UW X UZ) PD=24 039416,000194: 31,3440 02337 POSVECT # POSITION VECTOR OF CM SCALED B-27 039417,000195: 31,3441 02345 VELVECT # VELOCITY VECTOR OF CM SCALED B-5 039418,000196: 31,3442 53572 VSL1 UNIT # COMPUTE AND STORE U=UNIT(RxV) PD=30 039419,000197: 31,3443 70125 PDDL LXC,1 # RESTORE INDEX 1 COMPLEMENTED 039420,000198: 31,3444 02335 LONGSAVE 039421,000199: 31,3445 02320 XR1HOLD 039422,000200: 31,3446 41223 DSU* DMP 039423,000201: 31,3447 00001 0,1 039424,000202: 31,3450 23534 RRCSML 039425,000203: 31,3451 73406 PUSH SIN # DLONG = .997(LONG - LONGJ) PD=32 039426,000204: 31,3452 76561 VXSC VSL1 039427,000205: 31,3453 00023 UNN # U'W = UW COS(DLONG) + UN SIN(DLONG) 039428,000206: 31,3454 71525 PDDL COS # PD=36 039429,000207: 31,3455 76561 VXSC VSL1 039430,000208: 31,3456 00015 UW 039431,000209: 31,3457 47255 VAD VXV # PD=30,PD=24 039432,000210: 31,3460 53572 VSL1 UNIT # UD = UNIT (U'W X U) 039433,000211: 31,3461 02152 STORE ALPHAV # SET UD FOR LAT-LONG--POINT OF CLOSEST 039434,000212: 31,3462 72441 DOT SL1 # APPROACH 039435,000213: 31,3463 00007 URR # COS(THETA) = (UD . UR) 039436,000214: 31,3464 02734 STORE CSTH 039437,000215: 31,3465 73526 ACOS SIN # THETA = ACOS(UD.UR), 0 TO PI 039438,000216: 31,3466 26732 STOVL SNTH # SIN (THETA), 0 TO PI 039439,000217: 31,3467 00007 URR 039440,000218: 31,3470 50235 VXV DOT 039441,000219: 31,3471 02152 ALPHAV 039442,000220: 31,3472 00031 24D 039443,000221: 31,3473 71244 BPL DLOAD # CHK (UR X UD).U 039444,000222: 31,3474 63500 +4D 039445,000223: 31,3475 02732 SNTH # NET, THETA = 2 PI - THETA 039446,000224: # Page 897 039447,000225: 31,3476 77676 DCOMP # ERGO SIN (THETA) = -SIN (THETA) 039448,000226: 31,3477 02732 STORE SNTH 039449,000227: 31,3500 43175 VLOAD SET 039450,000228: 31,3501 02337 POSVECT 039451,000229: 31,3502 03466 RVSW # TIME ONLY 039452,000230: 31,3503 26657 STOVL RVEC 039453,000231: 31,3504 02345 VELVECT 039454,000232: 31,3505 02746 STORE VVEC 039455,000233: 31,3506 45160 AXC,1 CALL 039456,000234: 31,3507 00012 10D # MOON ONLY 039457,000235: 31,3510 24737 TIMETHET # COMPUTE TRANSFER TIME 039458,000236: 31,3511 43014 BON BON 039459,000237: 31,3512 04313 COGAFLAG # NO SOLUTION SINCE NEAR RECTILINEAR 039460,000238: 31,3513 63523 ETERROR 039461,000239: 31,3514 04310 INFINFLG # NO PHYSICAL SOLUTION EXISTS 039462,000240: 31,3515 63523 ETERROR 039463,000241: 31,3516 43345 DLOAD DAD # COMPUTE GROUND ELAPSED TIME PD=00 039464,000242: 31,3517 02323 VECTIME 039465,000243: 31,3520 00037 T 039466,000244: 31,3521 77650 GOTO 039467,000245: 31,3522 02321 RETLOCN # EXIT ELAPTIME 039468,000246: 31,3523 52145 ETERROR DLOAD GOTO # RETURN WITH ZERO 039469,000247: 31,3524 15332 HI6ZEROS 039470,000248: 31,3525 02321 RETLOCN 039471,000249: 039472,000250: # Page 898 039473,000251: # SUBROUTINE TO CONVERT RP (VECTOR IN PLAN. COORD. SYSTEM, EITHER 039474,000252: # EARTH-FIXED OR MOON-FIXED) TO LAT, LONG, ALT. 039475,000253: 039476,000254: # CALLING SEQUENCE 039477,000255: # L CALL 039478,000256: # L+1 RPTOLONG 039479,000257: 039480,000258: # SUBROUTINES USED 039481,000259: # RP-TO-R, LAT-LONG 039482,000260: 039483,000261: # INPUT 039484,000262: # PD0-5D = RP VECTOR 039485,000263: # PD6-7D = TIME 039486,000264: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON. 039487,000265: # ERADFLAG, LUNAFLAG 039488,000266: 039489,000267: # OUTPUT 039490,000268: # LATITUDE IN LAT (REVS. B-0) 039491,000269: # LONGITUDE IN LONG (REVS. B-0) 039492,000270: # ALTITUDE IN ALT (METERS B-29) 039493,000271: 039494,000272: 30,2000 SETLOC R35A 039495,000273: 30,2000 BANK 039496,000274: 039497,000275: 30,3762 45020 RPTOLONG STQ CALL # SAVE RETURN 039498,000276: 30,3763 02321 RETLOCN 039499,000277: 30,3764 55341 RP-TO-R # CONVERT RP TO R, B-27 FOR MOON 039500,000278: 30,3765 70414 BOFF VSR2 # IF LUNAR RESCALE B-27 TO B-29 039501,000279: 30,3766 01743 LUNAFLAG 039502,000280: 30,3767 61770 +1 039503,000281: 30,3770 16152 STODL ALPHAV 039504,000282: 30,3771 23534 RRCSML # MPAC > DUMMY TIME 039505,000283: 30,3772 77624 CALL 039506,000284: 30,3773 26322 LAT-LONG 039507,000285: 30,3774 77650 GOTO 039508,000286: 30,3775 02321 RETLOCN 039509,000287: 31,2000 SETLOC R35 039510,000288: 31,2000 BANK 039511,000289: 039512,000290: 31,3526 77763 BANDTABL DEC -12 B-14 # +60 DEGREE BAND 039513,000291: 31,3527 77751 DEC -22 B-14 # +30 DEGREE BAND 039514,000292: 31,3530 77737 DEC -32 B-14 # +00 DEGREE BAND 039515,000293: 31,3531 77725 DEC -42 B-14 # -30 DEGREE BAND 039516,000294: 31,3532 77713 DEC -52 B-14 # -60 DEGREE BAND 039517,000295: 31,3533 37716 33106 RRCSML 2DEC .997 039518,000296: 039519,000297: 31,3535 01442 V06N34** VN 00634 # ********************************** 039520,000298: 31,3536 01437 V06N31** VN 00631 039521,000299: 31,3537 01306 V05N70** VN 00570 039522,000300: 31,3540 KCOUNT EQUALS 5D 039523,000301: 31,3540 JCOUNT EQUALS 2D 039524,000302: 31,3540 UNN EQUALS 18D 039525,000303: 31,3540 UW EQUALS 12D 039526,000304: 31,3540 URR EQUALS 6D 039527,000305: 31,3540 UZZ EQUALS 0D 039528,000306: 039529,000307: # Page 899 039530,000308: # **** TEMPORARY VALUES FOR LANDMARK TABLES-LEVINE/SAPONARO **** 039531,000309: 039532,000310: # LATTAB HAS LATITUDES THAT GO FROM +8 TO -8 DEGREES 039533,000311: # LONGTAB HAS LONGITUDES THAT GO FROM +60 TO -60 DEGREES 039534,000312: # LATTAB AND LONGTAB ARE SCALED REVOLUTIONS B0 039535,000313: # ALTTAB HAS ALTITUDES MEASURED ABOVE THE MEAN LUNAR RADIUS 039536,000314: # ALTTAB IS SCALED IN METERS B-29 039537,000315: 039538,000316: 31,3540 COUNT 31/LNDMK 039539,000317: 31,3540 77406 56241 LATTAB 2DEC -.015231481 # 2 5 29 S 039540,000318: 31,3542 00043 24640 2DEC .002175926 # 3 0 47 N 039541,000319: 31,3544 00046 25716 2DEC .002361111 # 4 0 51 N 039542,000320: 31,3546 77741 65060 2DEC -.001851852 # 5 0 40 S 039543,000321: 31,3550 00055 20266 2DEC .002777778 # 6 1 00 N 039544,000322: 31,3552 77720 46646 2DEC -.002916667 # 7 1 03 S 039545,000323: 31,3554 77646 57652 2DEC -.005462963 # 10 1 58 S 039546,000324: 31,3556 00155 07202 2DEC .006666667 # 11 2 24 N 039547,000325: 31,3560 00466 07373 2DEC .018935185 # 12 6 49 N 039548,000326: 31,3562 00050 36561 2DEC .00250 # 13 0 54 N 039549,000327: 31,3564 00070 04130 2DEC .003425926 # 14 1 14 N 039550,000328: 31,3566 77662 64143 2DEC -.004722222 # 15 1 42 S 039551,000329: 31,3570 77747 67215 2DEC -.001481481 # 16 0 32 S 039552,000330: 31,3572 00062 32207 2DEC .003101852 # 17 1 07 N 039553,000331: 31,3574 00070 34343 2DEC .003472222 # 20 1 15 N 039554,000332: 31,3576 77463 46314 2DEC -.0125 # 21 4 30 S 039555,000333: 31,3600 00004 21505 2DEC .000277777 # 22 0 06 N 039556,000334: 31,3602 00271 32622 2DEC .011342592 # 23 4 05 N 039557,000335: 31,3604 00101 07343 2DEC .003981481 # 24 1 26 N 039558,000336: 31,3606 77574 70656 2DEC -.008009259 # 25 2 53 S 039559,000337: 31,3610 00065 03052 2DEC .003240741 # 26 1 10 N 039560,000338: # Page 900 039561,000339: 31,3612 77642 66360 2DEC -.005694444 # 27 2 03 S 039562,000340: 31,3614 00045 05267 2DEC .002268518 # 30 0 49 N 039563,000341: 31,3616 77577 71734 2DEC -.007824074 # 31 2 49 S 039564,000342: 31,3620 00130 27711 2DEC .005416667 # 32 1 57 N 039565,000343: 039566,000344: 31,3622 05120 14712 LONGTAB 2DEC .161157407 # 2 58 01 E 039567,000345: 31,3624 05076 06264 2DEC .160046296 # 3 57 37 E 039568,000346: 31,3626 04453 23531 2DEC .143287037 # 4 51 35 E 039569,000347: 31,3630 03554 33074 2DEC .116018518 # 5 41 46 E 039570,000348: 31,3632 03326 25112 2DEC .106851852 # 6 38 28 E 039571,000349: 31,3634 03263 00252 2DEC .104675926 # 7 37 41 E 039572,000350: 31,3636 03014 34505 2DEC .094537037 # 10 34 02 E 039573,000351: 31,3640 03007 22564 2DEC .094212963 # 11 33 55 E 039574,000352: 31,3642 02740 04432 2DEC .091805555 # 12 33 03 E 039575,000353: 31,3644 02531 04017 2DEC .083564815 # 13 30 05 E 039576,000354: 31,3646 02066 23501 2DEC .065833333 # 14 23 42 E 039577,000355: 31,3650 01502 13664 2DEC .050925926 # 15 18 20 E 039578,000356: 31,3652 01272 23036 2DEC .042638889 # 16 15 21 E 039579,000357: 31,3654 00570 37365 2DEC .023009259 # 17 8 17 E 039580,000358: 31,3656 00252 25253 2DEC .010416667 # 20 3 45 E 039581,000359: 31,3660 00000 30213 2DEC .000046296 # 21 0 01 E 039582,000360: 31,3662 77703 52142 2DEC -.003703704 # 22 1 20 W 039583,000361: 31,3664 77254 76114 2DEC -.020694444 # 23 7 27 W 039584,000362: 31,3666 77173 64334 2DEC -.023703704 # 24 8 32 W 039585,000363: 31,3670 76265 51114 2DEC -.051435185 # 25 18 31 W 039586,000364: 31,3672 75644 77223 2DEC -.068055556 # 26 24 30 W 039587,000365: # Page 901 039588,000366: 31,3674 75215 72762 2DEC -.085092593 # 27 30 38 W 039589,000367: 31,3676 74613 76225 2DEC -.100833333 # 30 36 18 W 039590,000368: 31,3700 74571 67600 2DEC -.101944444 # 31 36 42 W 039591,000369: 31,3702 74174 54550 2DEC -.117407407 # 32 42 16 W 039592,000370: 039593,000371: 31,3704 77777 75752 ALTTAB 2DEC -2090 B-29 # 2 039594,000372: 31,3706 77777 75752 2DEC -2090 B-29 # 3 039595,000373: 31,3710 77777 76200 2DEC -1790 B-29 # 4 039596,000374: 31,3712 77777 76736 2DEC -1090 B-29 # 5 039597,000375: 31,3714 77777 77051 2DEC -940 B-29 # 6 039598,000376: 31,3716 77777 77556 2DEC -290 B-29 # 7 039599,000377: 31,3720 77777 77556 2DEC -290 B-29 # 10 039600,000378: 31,3722 77777 76370 2DEC -1549 B-29 # 11 039601,000379: 31,3724 77777 77102 2DEC -890 B-29 # 12 039602,000380: 31,3726 77777 76426 2DEC -1490 B-29 # 13 039603,000381: 31,3730 77777 74660 2DEC -3230 B-29 # 14 039604,000382: 31,3732 00000 04773 2DEC 5110 B-29 # 15 039605,000383: 31,3734 00000 06577 2DEC 6910 B-29 # 16 039606,000384: 31,3736 00000 04773 2DEC 5110 B-29 # 17 039607,000385: 31,3740 00000 02741 2DEC 3010 B-29 # 20 039608,000386: 31,3742 00000 03643 2DEC 3910 B-29 # 21 039609,000387: 31,3744 77777 77053 2DEC -935 B-29 # 22 039610,000388: 31,3746 00000 02234 2DEC 2360 B-29 # 23 039611,000389: 31,3750 00000 02347 2DEC 2510 B-29 # 24 039612,000390: 31,3752 00000 00151 2DEC 210 B-29 # 25 039613,000391: 31,3754 00000 00740 2DEC 960 B-29 # 26 039614,000392: # Page 902 039615,000393: 31,3756 00000 01217 2DEC 1310 B-29 # 27 039616,000394: 31,3760 00000 01301 2DEC 1410 B-29 # 30 039617,000395: 31,3762 77777 75337 2DEC -2624 B-29 # 31 039618,000396: 31,3764 77777 75470 2DEC -2445 B-29 # 32 039619,000397: 039620,000398: # *** END OF PANDORA .080 *** 039621,000399: End of include-file LUNAR_LANDMARK_SELECTION_FOR_CM.agc. Parent file is MAIN.agc