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.

039630,000002:                                                                                                  ## Copyright:   Public domain.
039631,000003:                                                                                                  ## Filename:    LUNAR_LANDMARK_SELECTION_FOR_CM.agc
039632,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
039633,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
039634,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
039635,000007:                                                                                                  ## Assembler:   yaYUL
039636,000008:                                                                                                  ## Reference:   pp. 889-898.
039637,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
039638,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
039639,000011:                                                                                                  ## Mod history: 08/22/04 RSB.   Transcribed.
039640,000012:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
039641,000013:                                                                                                  ##                              original harcopy, as opposed to the PDF page
039642,000014:                                                                                                  ##                              numbers in 1701.pdf.
039643,000015:                                                                                                  ##              2017-01-15 RSB  Cross-diff'd comment text (not whitespace)
039644,000016:                                                                                                  ##                              vs the already-proofed corresponding Colossus
039645,000017:                                                                                                  ##                              237, and corrected errors found.  (Comanche 55,
039646,000018:                                                                                                  ##                              normally used in this process, was not similar,
039647,000019:                                                                                                  ##                              and therefore was not used.) There were no
039648,000020:                                                                                                  ##                              differences between the comment text in the 
039649,000021:                                                                                                  ##                              different versions after these corrections.
039650,000022:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
039651,000023:                                                                                                  ##
039652,000024:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
039653,000025:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
039654,000026:                                                                                                  ## document read, in part:
039655,000027:                                                                                                  ##
039656,000028:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
039657,000029:                                                                                                  ##      2021111-041.  October 28, 1968.  
039658,000030:                                                                                                  ##
039659,000031:                                                                                                  ##      This AGC program shall also be referred to as
039660,000032:                                                                                                  ##                              Colossus 1A
039661,000033:                                                                                                  ##
039662,000034:                                                                                                  ##      Prepared by
039663,000035:                                                                                                  ##                      Massachusetts Institute of Technology
039664,000036:                                                                                                  ##                      75 Cambridge Parkway
039665,000037:                                                                                                  ##                      Cambridge, Massachusetts
039666,000038:                                                                                                  ##      under NASA contract NAS 9-4065.
039667,000039:                                                                                                  ##
039668,000040:                                                                                                  ## Refer directly to the online document mentioned above for further information.
039669,000041:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
039670,000042:                                                                                                  ##
039671,000043:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
039672,000044:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
039673,000045:                                                                                                  ## source file, and then is proofed to incorporate any changes.
039674,000046: 

Page 889

039676,000048: 31,3215                                           BANK     31                                    
039677,000049: 31,2000                                           SETLOC   R35                                   
039678,000050: 31,2000                                           BANK                                           
039679,000051: 
039680,000052: 31,3215                                           COUNT    31/R35                                
039681,000053: 
039682,000054: 31,3215  E4,1724                                  EBANK=   JLOOPCNT                              
039683,000055: 31,3215           06006        LNDMKSEL           TC       INTPRET                               
039684,000056: 31,3216           77634                           RTB                                            
039685,000057: 31,3217           45505                                    LOADTIME                              #  PICK UP TIME SCALED B-28
039686,000058: 31,3220           01046                           STORE    DSPTEM1                               
039687,000059: 31,3221           77776                           EXIT                                           
039688,000060: 31,3222           33535        DISGET             CAF      V06N34**                              #  DISPLAY GROUND ELAPSED TIME
039689,000061: 31,3223           04555                           TC       BANKCALL                              
039690,000062: 31,3224           20465                           CADR     GOMARKF                               
039691,000063: 31,3225           05423                           TC       ENDEXT                                #  TERMINATE WITH V34E
039692,000064: 31,3226           03230                           TC       CALCTLS                               #  PROCEED WITH V33E
039693,000065: 31,3227           03222                           TC       DISGET                                #  NEW TIME LOADED VIA V25E
039694,000066: 31,3230           06006        CALCTLS            TC       INTPRET                               
039695,000067: 31,3231           43175                           VLOAD    SET                                   
039696,000068: 31,3232           02026                                    RLS                                   
039697,000069: 31,3233           00462                                    ERADFLAG                              #  SET. CONSTANT REARTH (RM)
039698,000070: 31,3234           14001                           STODL    0D                                    #  PD0-5 > RP VECTOR
039699,000071: 31,3235           23534                                    RRCSML                                
039700,000072: 31,3236           14007                           STODL    6D                                    #  PD6-7 > DUMMY TIME
039701,000073: 31,3237           23534                                    RRCSML                                #  MPAC > NON-ZERO FOR MOON CASE
039702,000074: 31,3240           77614                           SET                                            
039703,000075: 31,3241           01463                                    LUNAFLAG                              #  SET. LUNAR LAT-LONG
039704,000076: 31,3242           77624                           CALL                                           
039705,000077: 31,3243           61762                                    RPTOLONG                              #  RP TO LONG
039706,000078: 31,3244           77745                           DLOAD                                          
039707,000079: 31,3245           01106                                    LONG                                  
039708,000080: 31,3246           16353                           STODL    LSLONG                                #  SAVE LND SITE LONG.
039709,000081: 31,3247           01046                                    DSPTEM1                               
039710,000082: 31,3250           34041                           STCALL   TDEC1                                 #  ADVANCE INTEGRATION TO TIME IN TDEC1
039711,000083: 31,3251           27022                                    CSMPREC                               #  USING PRECISION INTEGRATION
039712,000084: 31,3252           77775                           VLOAD                                          
039713,000085: 31,3253           00017                                    RATT1                                 
039714,000086: 31,3254           02337                           STORE    POSVECT                               #  SAVE POSITION VECTOR SCALED B-27
039715,000087: 31,3255           26152                           STOVL    ALPHAV                                #  FOR LAT-LONG
039716,000088: 31,3256           00025                                    VATT1                                 
039717,000089: 31,3257           16345                           STODL    VELVECT                               #  SAVE VEL. VECTOR B-5
039718,000090: 31,3260           00015                                    TAT                                   
039719,000091: 31,3261           36323                           STCALL   VECTIME                               #  SAVE TIME
039720,000092: 31,3262           26322                                    LAT-LONG                              #  COMPUTE LAT, LONG, ALT OF S/C   PD>00
039721,000093: 31,3263           76145                           DLOAD    AXT,1                                 #  SAVE S/C LONGITUDE
039722,000094: 31,3264           01106                                    LONG                                  
039723,000095: 31,3265           02352                                    LSLONG                                #  XR1 = LANDING SITE LONG--SINUS MEDII, OCE
039724,000096: 31,3266           36335                           STCALL   LONGSAVE                              #  ANUS PROCELLARUM, MARE TRANQUILLITEATIS
039725,000097: 31,3267           63414                                    ELAPTIME                              #  COMPUTE TL (TIME TO LANDING SITE)

Page 890

039727,000099: 31,3270           01046                           STORE    DSPTEM1                               #  SAVE TL FOR OUTPUT TO DSKY
039728,000100: 31,3271           77776                           EXIT                                           
039729,000101: 31,3272           33536        DISTLS             CAF      V06N31**                              #  DISPLAY TIME TO LANDING SITE
039730,000102: 31,3273           04555                           TC       BANKCALL                              
039731,000103: 31,3274           20465                           CADR     GOMARKF                               
039732,000104: 31,3275           05423                           TC       ENDEXT                                #  TERMINATE WITH V34E
039733,000105: 31,3276           03300                           TC       PROCLMKS                              #  PROCEED WITH V33E
039734,000106: 31,3277           03272                           TC       DISTLS                                #  ILLEGAL RESPONSE, DO AGAIN
039735,000107: 31,3300           06006        PROCLMKS           TC       INTPRET                               #  BEGIN LANDMARK PROCESSING
039736,000108: 31,3301           75170                           AXT,1    AXC,2                                 #  SET COUNTERS FOR LOOP CONTROL
039737,000109: 31,3302           00005                                    KCOUNT                                
039738,000110: 31,3303           00002                                    JCOUNT                                
039739,000111: 31,3304           43134                           SXA,2    SET                                   
039740,000112: 31,3305           02324                                    JLOOPCNT                              
039741,000113: 31,3306           00462                                    ERADFLAG                              #  USE MEAN LUNAR RADIUS
039742,000114: 31,3307           66730        KLOOP              SXA,1    SLOAD*                                
039743,000115: 31,3310           02325                                    KLOOPCNT                              
039744,000116: 31,3311           23534                                    BANDTABL   +5,1                       
039745,000117: 31,3312           16327                           STODL    NKVAL                                 #  SAVE LONGITUDE BAND
039746,000118: 31,3313           15340                                    DPPOSMAX                              
039747,000119: 31,3314           02330                           STORE    DELTAL                                
039748,000120: 31,3315           54170        JLOOPP             AXT,1    XSU,1                                 #  SET XR1 FOR LONGITUDE OF LANDMARK
039749,000121: 31,3316           63620                                    LONGTAB    -2                         
039750,000122: 31,3317           02324                                    JLOOPCNT                              
039751,000123: 31,3320           77624                           CALL                                           
039752,000124: 31,3321           63414                                    ELAPTIME                              #  COMPUTE TL (TIME TO LANDMARK)
039753,000125: 31,3322           02321                           STORE    XR1HOLD                               
039754,000126: 31,3323           45014                           SET      CALL                                  #  COMPUTE LATITUDE AND LONGITUDE OF S/C
039755,000127: 31,3324           01463                                    LUNAFLAG                              #  AT LANDMARK
039756,000128: 31,3325           26322                                    LAT-LONG                              #                                PD=00
039757,000129: 31,3326           77754                           LXA,2                                          
039758,000130: 31,3327           02324                                    JLOOPCNT                              
039759,000131: 31,3330           44343                           DLOAD*   BDSU                                  
039760,000132: 31,3331           54240                                    LATTAB     -2,2                       
039761,000133: 31,3332           01104                                    LAT                                   
039762,000134: 31,3333           41446                           ABS      PUSH                                  #  DELTA LAT = ABS(LAT - LATJ)   PD=02
039763,000135: 31,3334           51025                           DSU      BPL                                   #  DELTAL GREATER THAN DELTA LAT
039764,000136: 31,3335           02330                                    DELTAL                                
039765,000137: 31,3336           63345                                    LMKLOOP                               #  NO
039766,000138: 31,3337           45545                           DLOAD    STADR                                 #                                PD=00
039767,000139: 31,3340           61447                           STODL    DELTAL                                #  DELTA LAT = DELTAL
039768,000140: 31,3341           02321                                    XR1HOLD                               
039769,000141: 31,3342           01046                           STORE    DSPTEM1                               #  SAVE TIME TO LANDMARK
039770,000142: 31,3343           77734                           SXA,2                                          
039771,000143: 31,3344           02333                                    INDEXNUM                              #  SAVE LANDMARK I.D.
039772,000144: 31,3345           67114        LMKLOOP            INCR,2   SXA,2                                 #  J = J + 2
039773,000145: 31,3346           77775                           OCT      -2                                    
039774,000146: 31,3347           02324                                    JLOOPCNT                              
039775,000147: 31,3350           45335                           SLOAD    DSU                                   
039776,000148: 31,3351           00050                                    X2                                    

Page 891

039778,000150: 31,3352           02327                                    NKVAL                                 
039779,000151: 31,3353           52030                           BHIZ     GOTO                                  #  J = NKVAL
039780,000152: 31,3354           63356                                    DISLID                                #  YES, GO DISPLAY LANDMARK ID, MAYBE TL
039781,000153: 31,3355           63315                                    JLOOPP                                #  NO, ONE MORE TIME
039782,000154: 31,3356           70535        DISLID             SLOAD    SR1                                   #  ID = -INDEXNUM/2 + 1
039783,000155: 31,3357           02334                                    INDEXNUM                              
039784,000156: 31,3360           63144                           LXC,2    INCR,2                                
039785,000157: 31,3361           00154                                    MPAC       +0                         
039786,000158: 31,3362           00001                                    1D                                    
039787,000159: 31,3363           77534                           SXA,2    EXIT                                  
039788,000160: 31,3364           02751                                    LANDMARK                              
039789,000161: 31,3365           33537                           CAF      V05N70**                              #  DISPLAY LANDMARK ID
039790,000162: 31,3366           04555                           TC       BANKCALL                              
039791,000163: 31,3367           20504                           CADR     GOMARKFR                              
039792,000164: 31,3370           05423                           TC       ENDEXT                                #  TERMINATE WITH V34E
039793,000165: 31,3371           03376                           TC       DISTTL                                #  PROCEED WITH V33E
039794,000166: 31,3372           03404                           TC       NEXTBAND                              #  RECYCLE WITH V32E
039795,000167: 31,3373           34715                           CAF      FIVE                                  #  BLANK R1 AND R3
039796,000168: 31,3374           05415                           TC       BLANKET                               
039797,000169: 31,3375           05112                           TC       ENDOFJOB                              
039798,000170: 31,3376           33535        DISTTL             CAF      V06N34**                              #  DISPLAY GROUND ELAPSED TIME TO LANDMARK
039799,000171: 31,3377           04555                           TC       BANKCALL                              
039800,000172: 31,3400           20465                           CADR     GOMARKF                               
039801,000173: 31,3401           05423                           TC       ENDEXT                                #  TERMINATE WITH V34E
039802,000174: 31,3402           03404                           TC       NEXTBAND                              #  PROCEED WITH V33E
039803,000175: 31,3403           03376                           TC       DISTTL                                #  ILLEGAL RESPONSE, DO AGAIN
039804,000176: 31,3404           06006        NEXTBAND           TC       INTPRET                               #  MUST WE GO ON
039805,000177: 31,3405           66350                           LXA,1    SSP                                   #  RESTORE COUNTER
039806,000178: 31,3406           02325                                    KLOOPCNT                              
039807,000179: 31,3407           00051                                    S1                                    
039808,000180: 31,3410           00001                                    1D                                    
039809,000181: 31,3411           77500                           TIX,1    EXIT                                  
039810,000182: 31,3412           63307                                    KLOOP                                 #  YES, K = K - 1
039811,000183: 31,3413           05423                           TC       ENDEXT                                #  K = 0, EXIT R35

Page 892

039813,000185: 31,3414           66020        ELAPTIME           STQ      SXA,1                                 #  SAVE RETURN AND INDEX 1
039814,000186: 31,3415           02321                                    RETLOCN                               
039815,000187: 31,3416           02320                                    XR1HOLD                               
039816,000188: 31,3417           77601                           SETPD                                          
039817,000189: 31,3420           00001                                    0D                                    #                                PD=00
039818,000190: 31,3421           65375                           VLOAD    PDDL                                  #                                PD=06
039819,000191: 31,3422           15324                                    HIUNITZ                               #  SET UP FOR RP-TO-R
039820,000192: 31,3423           02323                                    VECTIME                               
039821,000193: 31,3424           45125                           PDDL     CALL                                  #                                PD=08
039822,000194: 31,3425           15340                                    DPPOSMAX                              
039823,000195: 31,3426           55341                                    RP-TO-R                               #  TRANSFORM PLANETARY TO RCS    PD=00
039824,000196: 31,3427           53515                           PDVL     UNIT                                  #  COMPUTE AND STORE UZ          PD=06
039825,000197: 31,3430           02337                                    POSVECT                               #  POSITION VECTOR OF CM SCALED B-27
039826,000198: 31,3431           47206                           PUSH     VXV                                   #  COMPUTE AND STORE UR=UNIT(R)  PD=12
039827,000199: 31,3432           00001                                    UZZ                                   
039828,000200: 31,3433           53572                           VSL1     UNIT                                  
039829,000201: 31,3434           47206                           PUSH     VXV                                   #  COMPUTE AND STORE UW=UNIT(UR X UZ) PD=18
039830,000202: 31,3435           00001                                    UZZ                                   
039831,000203: 31,3436           53572                           VSL1     UNIT                                  
039832,000204: 31,3437           47315                           PDVL     VXV                                   #  COMPUTE AND STORE UN=UNIT(UW X UZ) PD=24
039833,000205: 31,3440           02337                                    POSVECT                               #  POSITION VECTOR OF CM SCALED B-27
039834,000206: 31,3441           02345                                    VELVECT                               #  VELOCITY VECTOR OF CM SCALED B-5
039835,000207: 31,3442           53572                           VSL1     UNIT                                  #  COMPUTE AND STORE U=UNIT(R X V)       PD=30
039836,000208: 31,3443           70125                           PDDL     LXC,1                                 #  RESTORE INDEX 1 COMPLEMENTED
039837,000209: 31,3444           02335                                    LONGSAVE                              
039838,000210: 31,3445           02320                                    XR1HOLD                               
039839,000211: 31,3446           41223                           DSU*     DMP                                   
039840,000212: 31,3447           00001                                    0,1                                   
039841,000213: 31,3450           23534                                    RRCSML                                
039842,000214: 31,3451           73406                           PUSH     SIN                                   #  DLONG = .997(LONG - LONGJ)    PD=32
039843,000215: 31,3452           76561                           VXSC     VSL1                                  
039844,000216: 31,3453           00023                                    UNN                                   #  U:W = UW COS(DLONG) + UN SIN(DLONG)
039845,000217: 31,3454           71525                           PDDL     COS                                   #                                PD=36
039846,000218: 31,3455           76561                           VXSC     VSL1                                  
039847,000219: 31,3456           00015                                    UW                                    
039848,000220: 31,3457           47255                           VAD      VXV                                   #                                PD=30,PD=24
039849,000221: 31,3460           53572                           VSL1     UNIT                                  #  UD = UNIT (U:W X U)
039850,000222: 31,3461           02152                           STORE    ALPHAV                                #  SET UD FOR LAT-LONG--POINT OF CLOSEST
039851,000223: 31,3462           72441                           DOT      SL1                                   #        APPROACH
039852,000224: 31,3463           00007                                    URR                                   #  COS(THETA) = (UD . UR)
039853,000225: 31,3464           02734                           STORE    CSTH                                  
039854,000226: 31,3465           73526                           ACOS     SIN                                   #  THETA = ACOS(UD.UR), 0 TO PI
039855,000227: 31,3466           26732                           STOVL    SNTH                                  #  SIN (THETA), 0 TO PI
039856,000228: 31,3467           00007                                    URR                                   
039857,000229: 31,3470           50235                           VXV      DOT                                   
039858,000230: 31,3471           02152                                    ALPHAV                                
039859,000231: 31,3472           00031                                    24D                                   
039860,000232: 31,3473           71244                           BPL      DLOAD                                 #  CHK (UR X UD).U
039861,000233: 31,3474           63500                                    +4D                                   
039862,000234: 31,3475           02732                                    SNTH                                  #  NEG, THETA = 2 PI - THETA

Page 893

039864,000236: 31,3476           77676                           DCOMP                                          #  ERGO SIN (THETA) = -SIN (THETA)
039865,000237: 31,3477           02732                           STORE    SNTH                                  
039866,000238: 31,3500           43175                           VLOAD    SET                                   
039867,000239: 31,3501           02337                                    POSVECT                               
039868,000240: 31,3502           03466                                    RVSW                                  #  TIME ONLY
039869,000241: 31,3503           26657                           STOVL    RVEC                                  
039870,000242: 31,3504           02345                                    VELVECT                               
039871,000243: 31,3505           02746                           STORE    VVEC                                  
039872,000244: 31,3506           45160                           AXC,1    CALL                                  
039873,000245: 31,3507           00012                                    10D                                   #  MOON ONLY
039874,000246: 31,3510           24737                                    TIMETHET                              #  COMPUTE TRANSFER TIME
039875,000247: 31,3511           43014                           BON      BON                                   
039876,000248: 31,3512           04313                                    COGAFLAG                              #  NO SOLUTION SINCE NEAR RECTILINEAR
039877,000249: 31,3513           63523                                    ETERROR                               
039878,000250: 31,3514           04310                                    INFINFLG                              #  NO PHYSICAL SOLUTION EXISTS
039879,000251: 31,3515           63523                                    ETERROR                               
039880,000252: 31,3516           43345                           DLOAD    DAD                                   #  COMPUTE GROUND ELAPSED TIME   PD=00
039881,000253: 31,3517           02323                                    VECTIME                               
039882,000254: 31,3520           00037                                    T                                     
039883,000255: 31,3521           77650                           GOTO                                           
039884,000256: 31,3522           02321                                    RETLOCN                               #  EXIT ELAPTIME
039885,000257: 31,3523           52145        ETERROR            DLOAD    GOTO                                  #  RETURN WITH ZERO
039886,000258: 31,3524           15332                                    HI6ZEROS                              
039887,000259: 31,3525           02321                                    RETLOCN                               
039888,000260: 

Page 894

039890,000262:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLAN. COORD. SYSTEM, EITHER
039891,000263:                                                                                                  #  EARTH-FIXED OR MOON-FIXED) TO LAT, LONG, ALT.
039892,000264: 
039893,000265:                                                                                                  #  CALLING SEQUENCE
039894,000266:                                                                                                  #        L       CALL
039895,000267:                                                                                                  #        L+1             RPTOLONG
039896,000268: 
039897,000269:                                                                                                  #  SUBROUTINES USED
039898,000270:                                                                                                  #        RP-TO-R, LAT-LONG
039899,000271: 
039900,000272:                                                                                                  #  INPUT
039901,000273:                                                                                                  #        PD0-5D = RP VECTOR
039902,000274:                                                                                                  #        PD6-7D = TIME
039903,000275:                                                                                                  #        MPAC = 0 FOR EARTH, NON-ZERO FOR MOON.
039904,000276:                                                                                                  #        ERADFLAG, LUNAFLAG.
039905,000277: 
039906,000278:                                                                                                  #  OUTPUT
039907,000279:                                                                                                  #        LATITUDE IN LAT         (REVS. B-0)
039908,000280:                                                                                                  #        LONGITUDE IN LONG       (REVS. B-0)
039909,000281:                                                                                                  #        ALTITUDE IN ALT         (METERS B-29)
039910,000282: 
039911,000283: 30,2000                                           SETLOC   R35A                                  
039912,000284: 30,2000                                           BANK                                           
039913,000285: 
039914,000286: 30,3762           45020        RPTOLONG           STQ      CALL                                  #  SAVE RETURN
039915,000287: 30,3763           02321                                    RETLOCN                               
039916,000288: 30,3764           55341                                    RP-TO-R                               #  CONVERT RP TO R, B-27 FOR MOON
039917,000289: 30,3765           70414                           BOFF     VSR2                                  #  IF LUNAR RESCALE B-27 TO B-29
039918,000290: 30,3766           01743                                    LUNAFLAG                              
039919,000291: 30,3767           61770                                    +1                                    
039920,000292: 30,3770           16152                           STODL    ALPHAV                                
039921,000293: 30,3771           23534                                    RRCSML                                #  MPAC > DUMMY TIME
039922,000294: 30,3772           77624                           CALL                                           
039923,000295: 30,3773           26322                                    LAT-LONG                              
039924,000296: 30,3774           77650                           GOTO                                           
039925,000297: 30,3775           02321                                    RETLOCN                               
039926,000298: 31,2000                                           SETLOC   R35                                   
039927,000299: 31,2000                                           BANK                                           
039928,000300: 
039929,000301: 31,3526           77763        BANDTABL           DEC      -12        B-14                       #  +60 DEGREE BAND
039930,000302: 31,3527           77751                           DEC      -22        B-14                       #  +30 DEGREE BAND
039931,000303: 31,3530           77737                           DEC      -32        B-14                       #  +00 DEGREE BAND
039932,000304: 31,3531           77725                           DEC      -42        B-14                       #  -30 DEGREE BAND
039933,000305: 31,3532           77713                           DEC      -52        B-14                       #  -60 DEGREE BAND
039934,000306: 31,3533           37716 33106  RRCSML             2DEC     .997                                  
039935,000307: 
039936,000308: 31,3535           01442        V06N34**           VN       00634                                 #  ****************************************
039937,000309: 31,3536           01437        V06N31**           VN       00631                                 
039938,000310: 31,3537           01306        V05N70**           VN       00570                                 
039939,000311: 31,3540                        KCOUNT             EQUALS   5D                                    
039940,000312: 31,3540                        JCOUNT             EQUALS   2D                                    
039941,000313: 31,3540                        UNN                EQUALS   18D                                   
039942,000314: 31,3540                        UW                 EQUALS   12D                                   
039943,000315: 31,3540                        URR                EQUALS   6D                                    
039944,000316: 31,3540                        UZZ                EQUALS   0D                                    
039945,000317: 

Page 895

039947,000319:                                                                                                  #  **** TEMPORARY VALUES FOR LANDMARK TABLES-LEVINE/SAPONARO ****
039948,000320: 
039949,000321:                                                                                                  #        LATTAB HAS LATITUDES THAT GO FROM +8 TO -8 DEGREES
039950,000322:                                                                                                  #        LONGTAB HAS LONGITUDES THAT GO FROM +60 TO -60 DEGREES
039951,000323:                                                                                                  #        LATTAB AND LONGTAB ARE SCALED REVOLUTIONS B0
039952,000324:                                                                                                  #        ALTTAB HAS ALTITUDES MEASURED ABOVE THE MEAN LUNAR RADIUS
039953,000325:                                                                                                  #        ALTTAB IS SCALED IN METERS B-29
039954,000326: 
039955,000327: 31,3540                                           COUNT    31/LNDMK                              
039956,000328: 31,3540           77406 56241  LATTAB             2DEC     -.015231481                            #        2       5       29      S
039957,000329: 31,3542           00043 24640                     2DEC     .002175926                            #        3       0       47      N
039958,000330: 31,3544           00046 25716                     2DEC     .002361111                            #        4       0       51      N
039959,000331: 31,3546           77741 65060                     2DEC     -.001851852                            #        5       0       40      S
039960,000332: 31,3550           00055 20266                     2DEC     .002777778                            #        6       1       00      N
039961,000333: 31,3552           77720 46646                     2DEC     -.002916667                            #        7       1       03      S
039962,000334: 31,3554           77646 57652                     2DEC     -.005462963                            #        10      1       58      S
039963,000335: 31,3556           00155 07202                     2DEC     .006666667                            #        11      2       24      N
039964,000336: 31,3560           00466 07373                     2DEC     .018935185                            #        12      6       49      N
039965,000337: 31,3562           00050 36561                     2DEC     .00250                                #        13      0       54      N
039966,000338: 31,3564           00070 04130                     2DEC     .003425926                            #        14      1       14      N
039967,000339: 31,3566           77662 64143                     2DEC     -.004722222                            #        15      1       42      S
039968,000340: 31,3570           77747 67215                     2DEC     -.001481481                            #        16      0       32      S
039969,000341: 31,3572           00062 32207                     2DEC     .003101852                            #        17      1       07      N
039970,000342: 31,3574           00070 34343                     2DEC     .003472222                            #        20      1       15      N
039971,000343: 31,3576           77463 46314                     2DEC     -.0125                                #        21      4       30      S
039972,000344: 31,3600           00004 21505                     2DEC     .000277777                            #        22      0       06      N
039973,000345: 31,3602           00271 32622                     2DEC     .011342592                            #        23      4       05      N
039974,000346: 31,3604           00101 07343                     2DEC     .003981481                            #        24      1       26      N
039975,000347: 31,3606           77574 70656                     2DEC     -.008009259                            #        25      2       53      S
039976,000348: 31,3610           00065 03052                     2DEC     .003240741                            #        26      1       10      N

Page 896

039978,000350: 31,3612           77642 66360                     2DEC     -.005694444                            #        27      2       03      S
039979,000351: 31,3614           00045 05267                     2DEC     .002268518                            #        30      0       49      N
039980,000352: 31,3616           77577 71734                     2DEC     -.007824074                            #        31      2       49      S
039981,000353: 31,3620           00130 27711                     2DEC     .005416667                            #        32      1       57      N
039982,000354: 
039983,000355: 31,3622           05120 14712  LONGTAB            2DEC     .161157407                            #        2       58      01      E
039984,000356: 31,3624           05076 06264                     2DEC     .160046296                            #        3       57      37      E
039985,000357: 31,3626           04453 23531                     2DEC     .143287037                            #        4       51      35      E
039986,000358: 31,3630           03554 33074                     2DEC     .116018518                            #        5       41      46      E
039987,000359: 31,3632           03326 25112                     2DEC     .106851852                            #        6       38      28      E
039988,000360: 31,3634           03263 00252                     2DEC     .104675926                            #        7       37      41      E
039989,000361: 31,3636           03014 34505                     2DEC     .094537037                            #        10      34      02      E
039990,000362: 31,3640           03007 22564                     2DEC     .094212963                            #        11      33      55      E
039991,000363: 31,3642           02740 04432                     2DEC     .091805555                            #        12      33      03      E
039992,000364: 31,3644           02531 04017                     2DEC     .083564815                            #        13      30      05      E
039993,000365: 31,3646           02066 23501                     2DEC     .065833333                            #        14      23      42      E
039994,000366: 31,3650           01502 13664                     2DEC     .050925926                            #        15      18      20      E
039995,000367: 31,3652           01272 23036                     2DEC     .042638889                            #        16      15      21      E
039996,000368: 31,3654           00570 37365                     2DEC     .023009259                            #        17      8       17      E
039997,000369: 31,3656           00252 25253                     2DEC     .010416667                            #        20      3       45      E
039998,000370: 31,3660           00000 30213                     2DEC     .000046296                            #        21      0       01      E
039999,000371: 31,3662           77703 52142                     2DEC     -.003703704                            #        22      1       20      W
040000,000372: 31,3664           77254 76114                     2DEC     -.020694444                            #        23      7       27      W
040001,000373: 31,3666           77173 64334                     2DEC     -.023703704                            #        24      8       32      W
040002,000374: 31,3670           76265 51114                     2DEC     -.051435185                            #        25      18      31      W
040003,000375: 31,3672           75644 77223                     2DEC     -.068055556                            #        26      24      30      W

Page 897

040005,000377: 31,3674           75215 72762                     2DEC     -.085092593                            #        27      30      38      W
040006,000378: 31,3676           74613 76225                     2DEC     -.100833333                            #        30      36      18      W
040007,000379: 31,3700           74571 67600                     2DEC     -.101944444                            #        31      36      42      W
040008,000380: 31,3702           74174 54550                     2DEC     -.117407407                            #        32      42      16      W
040009,000381: 
040010,000382: 31,3704           77777 75752  ALTTAB             2DEC     -2090      B-29                       #        2
040011,000383: 31,3706           77777 75752                     2DEC     -2090      B-29                       #        3
040012,000384: 31,3710           77777 76200                     2DEC     -1790      B-29                       #        4
040013,000385: 31,3712           77777 76736                     2DEC     -1090      B-29                       #        5
040014,000386: 31,3714           77777 77051                     2DEC     -940       B-29                       #        6
040015,000387: 31,3716           77777 77556                     2DEC     -290       B-29                       #        7
040016,000388: 31,3720           77777 77556                     2DEC     -290       B-29                       #        10
040017,000389: 31,3722           77777 76370                     2DEC     -1549      B-29                       #        11
040018,000390: 31,3724           77777 77102                     2DEC     -890       B-29                       #        12
040019,000391: 31,3726           77777 76426                     2DEC     -1490      B-29                       #        13
040020,000392: 31,3730           77777 74660                     2DEC     -3230      B-29                       #        14
040021,000393: 31,3732           00000 04773                     2DEC     5110       B-29                       #        15
040022,000394: 31,3734           00000 06577                     2DEC     6910       B-29                       #        16
040023,000395: 31,3736           00000 04773                     2DEC     5110       B-29                       #        17
040024,000396: 31,3740           00000 02741                     2DEC     3010       B-29                       #        20
040025,000397: 31,3742           00000 03643                     2DEC     3910       B-29                       #        21
040026,000398: 31,3744           77777 77053                     2DEC     -935       B-29                       #        22
040027,000399: 31,3746           00000 02234                     2DEC     2360       B-29                       #        23
040028,000400: 31,3750           00000 02347                     2DEC     2510       B-29                       #        24
040029,000401: 31,3752           00000 00151                     2DEC     210        B-29                       #        25
040030,000402: 31,3754           00000 00740                     2DEC     960        B-29                       #        26

Page 898

040032,000404: 31,3756           00000 01217                     2DEC     1310       B-29                       #        27
040033,000405: 31,3760           00000 01301                     2DEC     1410       B-29                       #        30
040034,000406: 31,3762           77777 75337                     2DEC     -2624      B-29                       #        31
040035,000407: 31,3764           77777 75470                     2DEC     -2445      B-29                       #        32
040036,000408: 
040037,000409: 

End of include-file LUNAR_LANDMARK_SELECTION_FOR_CM.agc.  Parent file is MAIN.agc