ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision.
Source Code
|
|
This is the source-code for the Apollo 9 Command Module's Guidance Computer.
These files were derived originally from the scan from MIT's Dibner Institute's
now-discontinued website titled "History of Recent Science and Technology", which
in turn was originally created by Gary Neff, though his high-quality scans were
unfortunately reduced in legibility when presented online.
The markings on the front of the
printout imply that it was the original AGC developer Norm Brodeur's copy.
A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original
AGC developer Fred Martin. The source code was transcribed from
those images by Ron Burkey. Note that the page images
presented online are of reduced quality, and that higher-quality images
are available. Report any conversion errors or legibility
problems in page images to info@sandroid.org.
Notations on the program listing read, in part:ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041 20'35 OCT. 28,1968Note that the date is the date of the printout, not the date of the program revision. |
039643,000002: ## Copyright: Public domain.
039644,000003: ## Filename: LUNAR_LANDMARK_SELECTION_FOR_CM.agc
039645,000004: ## Purpose: Part of the source code for Colossus, build 249.
039646,000005: ## It is part of the source code for the Command Module's (CM)
039647,000006: ## Apollo Guidance Computer (AGC), for Apollo 9.
039648,000007: ## Assembler: yaYUL
039649,000008: ## Reference: pp. 889-898.
039650,000009: ## Contact: Ron Burkey <info@sandroid.org>.
039651,000010: ## Website: www.ibiblio.org/apollo.
039652,000011: ## Mod history: 08/22/04 RSB. Transcribed.
039653,000012: ## 2017-01-06 RSB Page numbers now agree with those on the
039654,000013: ## original harcopy, as opposed to the PDF page
039655,000014: ## numbers in 1701.pdf.
039656,000015: ## 2017-01-15 RSB Cross-diff'd comment text (not whitespace)
039657,000016: ## vs the already-proofed corresponding Colossus
039658,000017: ## 237, and corrected errors found. (Comanche 55,
039659,000018: ## normally used in this process, was not similar,
039660,000019: ## and therefore was not used.) There were no
039661,000020: ## differences between the comment text in the
039662,000021: ## different versions after these corrections.
039663,000022: ## 2017-01-28 RSB WTIH -> WITH.
039664,000023: ##
039665,000024: ## The contents of the "Colossus249" files, in general, are transcribed
039666,000025: ## from a scanned copy of the program listing. Notations on this
039667,000026: ## document read, in part:
039668,000027: ##
039669,000028: ## Assemble revision 249 of AGC program Colossus by NASA
039670,000029: ## 2021111-041. October 28, 1968.
039671,000030: ##
039672,000031: ## This AGC program shall also be referred to as
039673,000032: ## Colossus 1A
039674,000033: ##
039675,000034: ## Prepared by
039676,000035: ## Massachusetts Institute of Technology
039677,000036: ## 75 Cambridge Parkway
039678,000037: ## Cambridge, Massachusetts
039679,000038: ## under NASA contract NAS 9-4065.
039680,000039: ##
039681,000040: ## Refer directly to the online document mentioned above for further information.
039682,000041: ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
039683,000042: ##
039684,000043: ## In some cases, where the source code for Luminary 131 overlaps that of
039685,000044: ## Colossus 249, this code is instead copied from the corresponding Luminary 131
039686,000045: ## source file, and then is proofed to incorporate any changes.
039687,000046:
|
|
Page 889 |
039689,000048: 31,3215 BANK 31
039690,000049: 31,2000 SETLOC R35
039691,000050: 31,2000 BANK
039692,000051:
039693,000052: 31,3215 COUNT 31/R35
039694,000053:
039695,000054: 31,3215 E4,1724 EBANK= JLOOPCNT
039696,000055: 31,3215 06006 LNDMKSEL TC INTPRET
039697,000056: 31,3216 77634 RTB
039698,000057: 31,3217 45505 LOADTIME # PICK UP TIME SCALED B-28
039699,000058: 31,3220 01046 STORE DSPTEM1
039700,000059: 31,3221 77776 EXIT
039701,000060: 31,3222 33535 DISGET CAF V06N34** # DISPLAY GROUND ELAPSED TIME
039702,000061: 31,3223 04555 TC BANKCALL
039703,000062: 31,3224 20465 CADR GOMARKF
039704,000063: 31,3225 05423 TC ENDEXT # TERMINATE WITH V34E
039705,000064: 31,3226 03230 TC CALCTLS # PROCEED WITH V33E
039706,000065: 31,3227 03222 TC DISGET # NEW TIME LOADED VIA V25E
039707,000066: 31,3230 06006 CALCTLS TC INTPRET
039708,000067: 31,3231 43175 VLOAD SET
039709,000068: 31,3232 02026 RLS
039710,000069: 31,3233 00462 ERADFLAG # SET. CONSTANT REARTH (RM)
039711,000070: 31,3234 14001 STODL 0D # PD0-5 > RP VECTOR
039712,000071: 31,3235 23534 RRCSML
039713,000072: 31,3236 14007 STODL 6D # PD6-7 > DUMMY TIME
039714,000073: 31,3237 23534 RRCSML # MPAC > NON-ZERO FOR MOON CASE
039715,000074: 31,3240 77614 SET
039716,000075: 31,3241 01463 LUNAFLAG # SET. LUNAR LAT-LONG
039717,000076: 31,3242 77624 CALL
039718,000077: 31,3243 61762 RPTOLONG # RP TO LONG
039719,000078: 31,3244 77745 DLOAD
039720,000079: 31,3245 01106 LONG
039721,000080: 31,3246 16353 STODL LSLONG # SAVE LND SITE LONG.
039722,000081: 31,3247 01046 DSPTEM1
039723,000082: 31,3250 34041 STCALL TDEC1 # ADVANCE INTEGRATION TO TIME IN TDEC1
039724,000083: 31,3251 27022 CSMPREC # USING PRECISION INTEGRATION
039725,000084: 31,3252 77775 VLOAD
039726,000085: 31,3253 00017 RATT1
039727,000086: 31,3254 02337 STORE POSVECT # SAVE POSITION VECTOR SCALED B-27
039728,000087: 31,3255 26152 STOVL ALPHAV # FOR LAT-LONG
039729,000088: 31,3256 00025 VATT1
039730,000089: 31,3257 16345 STODL VELVECT # SAVE VEL. VECTOR B-5
039731,000090: 31,3260 00015 TAT
039732,000091: 31,3261 36323 STCALL VECTIME # SAVE TIME
039733,000092: 31,3262 26322 LAT-LONG # COMPUTE LAT, LONG, ALT OF S/C PD>00
039734,000093: 31,3263 76145 DLOAD AXT,1 # SAVE S/C LONGITUDE
039735,000094: 31,3264 01106 LONG
039736,000095: 31,3265 02352 LSLONG # XR1 = LANDING SITE LONG--SINUS MEDII, OCE
039737,000096: 31,3266 36335 STCALL LONGSAVE # ANUS PROCELLARUM, MARE TRANQUILLITEATIS
039738,000097: 31,3267 63414 ELAPTIME # COMPUTE TL (TIME TO LANDING SITE)
|
|
Page 890 |
039740,000099: 31,3270 01046 STORE DSPTEM1 # SAVE TL FOR OUTPUT TO DSKY
039741,000100: 31,3271 77776 EXIT
039742,000101: 31,3272 33536 DISTLS CAF V06N31** # DISPLAY TIME TO LANDING SITE
039743,000102: 31,3273 04555 TC BANKCALL
039744,000103: 31,3274 20465 CADR GOMARKF
039745,000104: 31,3275 05423 TC ENDEXT # TERMINATE WITH V34E
039746,000105: 31,3276 03300 TC PROCLMKS # PROCEED WITH V33E
039747,000106: 31,3277 03272 TC DISTLS # ILLEGAL RESPONSE, DO AGAIN
039748,000107: 31,3300 06006 PROCLMKS TC INTPRET # BEGIN LANDMARK PROCESSING
039749,000108: 31,3301 75170 AXT,1 AXC,2 # SET COUNTERS FOR LOOP CONTROL
039750,000109: 31,3302 00005 KCOUNT
039751,000110: 31,3303 00002 JCOUNT
039752,000111: 31,3304 43134 SXA,2 SET
039753,000112: 31,3305 02324 JLOOPCNT
039754,000113: 31,3306 00462 ERADFLAG # USE MEAN LUNAR RADIUS
039755,000114: 31,3307 66730 KLOOP SXA,1 SLOAD*
039756,000115: 31,3310 02325 KLOOPCNT
039757,000116: 31,3311 23534 BANDTABL +5,1
039758,000117: 31,3312 16327 STODL NKVAL # SAVE LONGITUDE BAND
039759,000118: 31,3313 15340 DPPOSMAX
039760,000119: 31,3314 02330 STORE DELTAL
039761,000120: 31,3315 54170 JLOOPP AXT,1 XSU,1 # SET XR1 FOR LONGITUDE OF LANDMARK
039762,000121: 31,3316 63620 LONGTAB -2
039763,000122: 31,3317 02324 JLOOPCNT
039764,000123: 31,3320 77624 CALL
039765,000124: 31,3321 63414 ELAPTIME # COMPUTE TL (TIME TO LANDMARK)
039766,000125: 31,3322 02321 STORE XR1HOLD
039767,000126: 31,3323 45014 SET CALL # COMPUTE LATITUDE AND LONGITUDE OF S/C
039768,000127: 31,3324 01463 LUNAFLAG # AT LANDMARK
039769,000128: 31,3325 26322 LAT-LONG # PD=00
039770,000129: 31,3326 77754 LXA,2
039771,000130: 31,3327 02324 JLOOPCNT
039772,000131: 31,3330 44343 DLOAD* BDSU
039773,000132: 31,3331 54240 LATTAB -2,2
039774,000133: 31,3332 01104 LAT
039775,000134: 31,3333 41446 ABS PUSH # DELTA LAT = ABS(LAT - LATJ) PD=02
039776,000135: 31,3334 51025 DSU BPL # DELTAL GREATER THAN DELTA LAT
039777,000136: 31,3335 02330 DELTAL
039778,000137: 31,3336 63345 LMKLOOP # NO
039779,000138: 31,3337 45545 DLOAD STADR # PD=00
039780,000139: 31,3340 61447 STODL DELTAL # DELTA LAT = DELTAL
039781,000140: 31,3341 02321 XR1HOLD
039782,000141: 31,3342 01046 STORE DSPTEM1 # SAVE TIME TO LANDMARK
039783,000142: 31,3343 77734 SXA,2
039784,000143: 31,3344 02333 INDEXNUM # SAVE LANDMARK I.D.
039785,000144: 31,3345 67114 LMKLOOP INCR,2 SXA,2 # J = J + 2
039786,000145: 31,3346 77775 OCT -2
039787,000146: 31,3347 02324 JLOOPCNT
039788,000147: 31,3350 45335 SLOAD DSU
039789,000148: 31,3351 00050 X2
|
|
Page 891 |
039791,000150: 31,3352 02327 NKVAL
039792,000151: 31,3353 52030 BHIZ GOTO # J = NKVAL
039793,000152: 31,3354 63356 DISLID # YES, GO DISPLAY LANDMARK ID, MAYBE TL
039794,000153: 31,3355 63315 JLOOPP # NO, ONE MORE TIME
039795,000154: 31,3356 70535 DISLID SLOAD SR1 # ID = -INDEXNUM/2 + 1
039796,000155: 31,3357 02334 INDEXNUM
039797,000156: 31,3360 63144 LXC,2 INCR,2
039798,000157: 31,3361 00154 MPAC +0
039799,000158: 31,3362 00001 1D
039800,000159: 31,3363 77534 SXA,2 EXIT
039801,000160: 31,3364 02751 LANDMARK
039802,000161: 31,3365 33537 CAF V05N70** # DISPLAY LANDMARK ID
039803,000162: 31,3366 04555 TC BANKCALL
039804,000163: 31,3367 20504 CADR GOMARKFR
039805,000164: 31,3370 05423 TC ENDEXT # TERMINATE WITH V34E
039806,000165: 31,3371 03376 TC DISTTL # PROCEED WITH V33E
039807,000166: 31,3372 03404 TC NEXTBAND # RECYCLE WITH V32E
039808,000167: 31,3373 34715 CAF FIVE # BLANK R1 AND R3
039809,000168: 31,3374 05415 TC BLANKET
039810,000169: 31,3375 05112 TC ENDOFJOB
039811,000170: 31,3376 33535 DISTTL CAF V06N34** # DISPLAY GROUND ELAPSED TIME TO LANDMARK
039812,000171: 31,3377 04555 TC BANKCALL
039813,000172: 31,3400 20465 CADR GOMARKF
039814,000173: 31,3401 05423 TC ENDEXT # TERMINATE WITH V34E
039815,000174: 31,3402 03404 TC NEXTBAND # PROCEED WITH V33E
039816,000175: 31,3403 03376 TC DISTTL # ILLEGAL RESPONSE, DO AGAIN
039817,000176: 31,3404 06006 NEXTBAND TC INTPRET # MUST WE GO ON
039818,000177: 31,3405 66350 LXA,1 SSP # RESTORE COUNTER
039819,000178: 31,3406 02325 KLOOPCNT
039820,000179: 31,3407 00051 S1
039821,000180: 31,3410 00001 1D
039822,000181: 31,3411 77500 TIX,1 EXIT
039823,000182: 31,3412 63307 KLOOP # YES, K = K - 1
039824,000183: 31,3413 05423 TC ENDEXT # K = 0, EXIT R35
|
|
Page 892 |
039826,000185: 31,3414 66020 ELAPTIME STQ SXA,1 # SAVE RETURN AND INDEX 1
039827,000186: 31,3415 02321 RETLOCN
039828,000187: 31,3416 02320 XR1HOLD
039829,000188: 31,3417 77601 SETPD
039830,000189: 31,3420 00001 0D # PD=00
039831,000190: 31,3421 65375 VLOAD PDDL # PD=06
039832,000191: 31,3422 15324 HIUNITZ # SET UP FOR RP-TO-R
039833,000192: 31,3423 02323 VECTIME
039834,000193: 31,3424 45125 PDDL CALL # PD=08
039835,000194: 31,3425 15340 DPPOSMAX
039836,000195: 31,3426 55341 RP-TO-R # TRANSFORM PLANETARY TO RCS PD=00
039837,000196: 31,3427 53515 PDVL UNIT # COMPUTE AND STORE UZ PD=06
039838,000197: 31,3430 02337 POSVECT # POSITION VECTOR OF CM SCALED B-27
039839,000198: 31,3431 47206 PUSH VXV # COMPUTE AND STORE UR=UNIT(R) PD=12
039840,000199: 31,3432 00001 UZZ
039841,000200: 31,3433 53572 VSL1 UNIT
039842,000201: 31,3434 47206 PUSH VXV # COMPUTE AND STORE UW=UNIT(UR X UZ) PD=18
039843,000202: 31,3435 00001 UZZ
039844,000203: 31,3436 53572 VSL1 UNIT
039845,000204: 31,3437 47315 PDVL VXV # COMPUTE AND STORE UN=UNIT(UW X UZ) PD=24
039846,000205: 31,3440 02337 POSVECT # POSITION VECTOR OF CM SCALED B-27
039847,000206: 31,3441 02345 VELVECT # VELOCITY VECTOR OF CM SCALED B-5
039848,000207: 31,3442 53572 VSL1 UNIT # COMPUTE AND STORE U=UNIT(R X V) PD=30
039849,000208: 31,3443 70125 PDDL LXC,1 # RESTORE INDEX 1 COMPLEMENTED
039850,000209: 31,3444 02335 LONGSAVE
039851,000210: 31,3445 02320 XR1HOLD
039852,000211: 31,3446 41223 DSU* DMP
039853,000212: 31,3447 00001 0,1
039854,000213: 31,3450 23534 RRCSML
039855,000214: 31,3451 73406 PUSH SIN # DLONG = .997(LONG - LONGJ) PD=32
039856,000215: 31,3452 76561 VXSC VSL1
039857,000216: 31,3453 00023 UNN # U:W = UW COS(DLONG) + UN SIN(DLONG)
039858,000217: 31,3454 71525 PDDL COS # PD=36
039859,000218: 31,3455 76561 VXSC VSL1
039860,000219: 31,3456 00015 UW
039861,000220: 31,3457 47255 VAD VXV # PD=30,PD=24
039862,000221: 31,3460 53572 VSL1 UNIT # UD = UNIT (U:W X U)
039863,000222: 31,3461 02152 STORE ALPHAV # SET UD FOR LAT-LONG--POINT OF CLOSEST
039864,000223: 31,3462 72441 DOT SL1 # APPROACH
039865,000224: 31,3463 00007 URR # COS(THETA) = (UD . UR)
039866,000225: 31,3464 02734 STORE CSTH
039867,000226: 31,3465 73526 ACOS SIN # THETA = ACOS(UD.UR), 0 TO PI
039868,000227: 31,3466 26732 STOVL SNTH # SIN (THETA), 0 TO PI
039869,000228: 31,3467 00007 URR
039870,000229: 31,3470 50235 VXV DOT
039871,000230: 31,3471 02152 ALPHAV
039872,000231: 31,3472 00031 24D
039873,000232: 31,3473 71244 BPL DLOAD # CHK (UR X UD).U
039874,000233: 31,3474 63500 +4D
039875,000234: 31,3475 02732 SNTH # NEG, THETA = 2 PI - THETA
|
|
Page 893 |
039877,000236: 31,3476 77676 DCOMP # ERGO SIN (THETA) = -SIN (THETA)
039878,000237: 31,3477 02732 STORE SNTH
039879,000238: 31,3500 43175 VLOAD SET
039880,000239: 31,3501 02337 POSVECT
039881,000240: 31,3502 03466 RVSW # TIME ONLY
039882,000241: 31,3503 26657 STOVL RVEC
039883,000242: 31,3504 02345 VELVECT
039884,000243: 31,3505 02746 STORE VVEC
039885,000244: 31,3506 45160 AXC,1 CALL
039886,000245: 31,3507 00012 10D # MOON ONLY
039887,000246: 31,3510 24737 TIMETHET # COMPUTE TRANSFER TIME
039888,000247: 31,3511 43014 BON BON
039889,000248: 31,3512 04313 COGAFLAG # NO SOLUTION SINCE NEAR RECTILINEAR
039890,000249: 31,3513 63523 ETERROR
039891,000250: 31,3514 04310 INFINFLG # NO PHYSICAL SOLUTION EXISTS
039892,000251: 31,3515 63523 ETERROR
039893,000252: 31,3516 43345 DLOAD DAD # COMPUTE GROUND ELAPSED TIME PD=00
039894,000253: 31,3517 02323 VECTIME
039895,000254: 31,3520 00037 T
039896,000255: 31,3521 77650 GOTO
039897,000256: 31,3522 02321 RETLOCN # EXIT ELAPTIME
039898,000257: 31,3523 52145 ETERROR DLOAD GOTO # RETURN WITH ZERO
039899,000258: 31,3524 15332 HI6ZEROS
039900,000259: 31,3525 02321 RETLOCN
039901,000260:
|
|
Page 894 |
039903,000262: # SUBROUTINE TO CONVERT RP (VECTOR IN PLAN. COORD. SYSTEM, EITHER
039904,000263: # EARTH-FIXED OR MOON-FIXED) TO LAT, LONG, ALT.
039905,000264:
039906,000265: # CALLING SEQUENCE
039907,000266: # L CALL
039908,000267: # L+1 RPTOLONG
039909,000268:
039910,000269: # SUBROUTINES USED
039911,000270: # RP-TO-R, LAT-LONG
039912,000271:
039913,000272: # INPUT
039914,000273: # PD0-5D = RP VECTOR
039915,000274: # PD6-7D = TIME
039916,000275: # MPAC = 0 FOR EARTH, NON-ZERO FOR MOON.
039917,000276: # ERADFLAG, LUNAFLAG.
039918,000277:
039919,000278: # OUTPUT
039920,000279: # LATITUDE IN LAT (REVS. B-0)
039921,000280: # LONGITUDE IN LONG (REVS. B-0)
039922,000281: # ALTITUDE IN ALT (METERS B-29)
039923,000282:
039924,000283: 30,2000 SETLOC R35A
039925,000284: 30,2000 BANK
039926,000285:
039927,000286: 30,3762 45020 RPTOLONG STQ CALL # SAVE RETURN
039928,000287: 30,3763 02321 RETLOCN
039929,000288: 30,3764 55341 RP-TO-R # CONVERT RP TO R, B-27 FOR MOON
039930,000289: 30,3765 70414 BOFF VSR2 # IF LUNAR RESCALE B-27 TO B-29
039931,000290: 30,3766 01743 LUNAFLAG
039932,000291: 30,3767 61770 +1
039933,000292: 30,3770 16152 STODL ALPHAV
039934,000293: 30,3771 23534 RRCSML # MPAC > DUMMY TIME
039935,000294: 30,3772 77624 CALL
039936,000295: 30,3773 26322 LAT-LONG
039937,000296: 30,3774 77650 GOTO
039938,000297: 30,3775 02321 RETLOCN
039939,000298: 31,2000 SETLOC R35
039940,000299: 31,2000 BANK
039941,000300:
039942,000301: 31,3526 77763 BANDTABL DEC -12 B-14 # +60 DEGREE BAND
039943,000302: 31,3527 77751 DEC -22 B-14 # +30 DEGREE BAND
039944,000303: 31,3530 77737 DEC -32 B-14 # +00 DEGREE BAND
039945,000304: 31,3531 77725 DEC -42 B-14 # -30 DEGREE BAND
039946,000305: 31,3532 77713 DEC -52 B-14 # -60 DEGREE BAND
039947,000306: 31,3533 37716 33106 RRCSML 2DEC .997
039948,000307:
039949,000308: 31,3535 01442 V06N34** VN 00634 # ****************************************
039950,000309: 31,3536 01437 V06N31** VN 00631
039951,000310: 31,3537 01306 V05N70** VN 00570
039952,000311: 31,3540 KCOUNT EQUALS 5D
039953,000312: 31,3540 JCOUNT EQUALS 2D
039954,000313: 31,3540 UNN EQUALS 18D
039955,000314: 31,3540 UW EQUALS 12D
039956,000315: 31,3540 URR EQUALS 6D
039957,000316: 31,3540 UZZ EQUALS 0D
039958,000317:
|
|
Page 895 |
039960,000319: # **** TEMPORARY VALUES FOR LANDMARK TABLES-LEVINE/SAPONARO ****
039961,000320:
039962,000321: # LATTAB HAS LATITUDES THAT GO FROM +8 TO -8 DEGREES
039963,000322: # LONGTAB HAS LONGITUDES THAT GO FROM +60 TO -60 DEGREES
039964,000323: # LATTAB AND LONGTAB ARE SCALED REVOLUTIONS B0
039965,000324: # ALTTAB HAS ALTITUDES MEASURED ABOVE THE MEAN LUNAR RADIUS
039966,000325: # ALTTAB IS SCALED IN METERS B-29
039967,000326:
039968,000327: 31,3540 COUNT 31/LNDMK
039969,000328: 31,3540 77406 56241 LATTAB 2DEC -.015231481 # 2 5 29 S
039970,000329: 31,3542 00043 24640 2DEC .002175926 # 3 0 47 N
039971,000330: 31,3544 00046 25716 2DEC .002361111 # 4 0 51 N
039972,000331: 31,3546 77741 65060 2DEC -.001851852 # 5 0 40 S
039973,000332: 31,3550 00055 20266 2DEC .002777778 # 6 1 00 N
039974,000333: 31,3552 77720 46646 2DEC -.002916667 # 7 1 03 S
039975,000334: 31,3554 77646 57652 2DEC -.005462963 # 10 1 58 S
039976,000335: 31,3556 00155 07202 2DEC .006666667 # 11 2 24 N
039977,000336: 31,3560 00466 07373 2DEC .018935185 # 12 6 49 N
039978,000337: 31,3562 00050 36561 2DEC .00250 # 13 0 54 N
039979,000338: 31,3564 00070 04130 2DEC .003425926 # 14 1 14 N
039980,000339: 31,3566 77662 64143 2DEC -.004722222 # 15 1 42 S
039981,000340: 31,3570 77747 67215 2DEC -.001481481 # 16 0 32 S
039982,000341: 31,3572 00062 32207 2DEC .003101852 # 17 1 07 N
039983,000342: 31,3574 00070 34343 2DEC .003472222 # 20 1 15 N
039984,000343: 31,3576 77463 46314 2DEC -.0125 # 21 4 30 S
039985,000344: 31,3600 00004 21505 2DEC .000277777 # 22 0 06 N
039986,000345: 31,3602 00271 32622 2DEC .011342592 # 23 4 05 N
039987,000346: 31,3604 00101 07343 2DEC .003981481 # 24 1 26 N
039988,000347: 31,3606 77574 70656 2DEC -.008009259 # 25 2 53 S
039989,000348: 31,3610 00065 03052 2DEC .003240741 # 26 1 10 N
|
|
Page 896 |
039991,000350: 31,3612 77642 66360 2DEC -.005694444 # 27 2 03 S
039992,000351: 31,3614 00045 05267 2DEC .002268518 # 30 0 49 N
039993,000352: 31,3616 77577 71734 2DEC -.007824074 # 31 2 49 S
039994,000353: 31,3620 00130 27711 2DEC .005416667 # 32 1 57 N
039995,000354:
039996,000355: 31,3622 05120 14712 LONGTAB 2DEC .161157407 # 2 58 01 E
039997,000356: 31,3624 05076 06264 2DEC .160046296 # 3 57 37 E
039998,000357: 31,3626 04453 23531 2DEC .143287037 # 4 51 35 E
039999,000358: 31,3630 03554 33074 2DEC .116018518 # 5 41 46 E
040000,000359: 31,3632 03326 25112 2DEC .106851852 # 6 38 28 E
040001,000360: 31,3634 03263 00252 2DEC .104675926 # 7 37 41 E
040002,000361: 31,3636 03014 34505 2DEC .094537037 # 10 34 02 E
040003,000362: 31,3640 03007 22564 2DEC .094212963 # 11 33 55 E
040004,000363: 31,3642 02740 04432 2DEC .091805555 # 12 33 03 E
040005,000364: 31,3644 02531 04017 2DEC .083564815 # 13 30 05 E
040006,000365: 31,3646 02066 23501 2DEC .065833333 # 14 23 42 E
040007,000366: 31,3650 01502 13664 2DEC .050925926 # 15 18 20 E
040008,000367: 31,3652 01272 23036 2DEC .042638889 # 16 15 21 E
040009,000368: 31,3654 00570 37365 2DEC .023009259 # 17 8 17 E
040010,000369: 31,3656 00252 25253 2DEC .010416667 # 20 3 45 E
040011,000370: 31,3660 00000 30213 2DEC .000046296 # 21 0 01 E
040012,000371: 31,3662 77703 52142 2DEC -.003703704 # 22 1 20 W
040013,000372: 31,3664 77254 76114 2DEC -.020694444 # 23 7 27 W
040014,000373: 31,3666 77173 64334 2DEC -.023703704 # 24 8 32 W
040015,000374: 31,3670 76265 51114 2DEC -.051435185 # 25 18 31 W
040016,000375: 31,3672 75644 77223 2DEC -.068055556 # 26 24 30 W
|
|
Page 897 |
040018,000377: 31,3674 75215 72762 2DEC -.085092593 # 27 30 38 W
040019,000378: 31,3676 74613 76225 2DEC -.100833333 # 30 36 18 W
040020,000379: 31,3700 74571 67600 2DEC -.101944444 # 31 36 42 W
040021,000380: 31,3702 74174 54550 2DEC -.117407407 # 32 42 16 W
040022,000381:
040023,000382: 31,3704 77777 75752 ALTTAB 2DEC -2090 B-29 # 2
040024,000383: 31,3706 77777 75752 2DEC -2090 B-29 # 3
040025,000384: 31,3710 77777 76200 2DEC -1790 B-29 # 4
040026,000385: 31,3712 77777 76736 2DEC -1090 B-29 # 5
040027,000386: 31,3714 77777 77051 2DEC -940 B-29 # 6
040028,000387: 31,3716 77777 77556 2DEC -290 B-29 # 7
040029,000388: 31,3720 77777 77556 2DEC -290 B-29 # 10
040030,000389: 31,3722 77777 76370 2DEC -1549 B-29 # 11
040031,000390: 31,3724 77777 77102 2DEC -890 B-29 # 12
040032,000391: 31,3726 77777 76426 2DEC -1490 B-29 # 13
040033,000392: 31,3730 77777 74660 2DEC -3230 B-29 # 14
040034,000393: 31,3732 00000 04773 2DEC 5110 B-29 # 15
040035,000394: 31,3734 00000 06577 2DEC 6910 B-29 # 16
040036,000395: 31,3736 00000 04773 2DEC 5110 B-29 # 17
040037,000396: 31,3740 00000 02741 2DEC 3010 B-29 # 20
040038,000397: 31,3742 00000 03643 2DEC 3910 B-29 # 21
040039,000398: 31,3744 77777 77053 2DEC -935 B-29 # 22
040040,000399: 31,3746 00000 02234 2DEC 2360 B-29 # 23
040041,000400: 31,3750 00000 02347 2DEC 2510 B-29 # 24
040042,000401: 31,3752 00000 00151 2DEC 210 B-29 # 25
040043,000402: 31,3754 00000 00740 2DEC 960 B-29 # 26
|
|
Page 898 |
040045,000404: 31,3756 00000 01217 2DEC 1310 B-29 # 27
040046,000405: 31,3760 00000 01301 2DEC 1410 B-29 # 30
040047,000406: 31,3762 77777 75337 2DEC -2624 B-29 # 31
040048,000407: 31,3764 77777 75470 2DEC -2445 B-29 # 32
040049,000408:
040050,000409:
End of include-file LUNAR_LANDMARK_SELECTION_FOR_CM.agc. Parent file is MAIN.agc