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,1968
Note 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