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