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