Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional 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:

	GAP: ASSEMBLE REVISION 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

038610,000002:                                                                                                  ## Copyright:   Public domain.
038611,000003:                                                                                                  ## Filename:    LUNAR_LANDMARK_SELECTION_FOR_CM.agc
038612,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
038613,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
038614,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
038615,000007:                                                                                                  ## Assembler:   yaYUL
038616,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
038617,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
038618,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
038619,000011:                                                                                                  ## Mod history: 2011-03-06 JL   Adapted from corresponding Colossus 249 file.
038620,000012:                                                                                                  ##              2011-04-17 JL   Removed temporary line.
038621,000013:                                                                                                  ##              2017-01-01 RSB  Proofed comment text using octopus/ProoferComments,
038622,000014:                                                                                                  ##                              and fixed errors found.
038623,000015:                                                                                                  ##              2017-01-28 RSB  WTIH -> WITH.
038624,000016: 

Page 886

038626,000018: 31,3215                                           BANK     31                                    
038627,000019: 31,2000                                           SETLOC   R35                                   
038628,000020: 31,2000                                           BANK                                           
038629,000021: 
038630,000022: 31,3215                                           COUNT    31/R35                                
038631,000023: 
038632,000024: 31,3215  E4,1724                                  EBANK=   JLOOPCNT                              
038633,000025: 31,3215           06006        LNDMKSEL           TC       INTPRET                               
038634,000026: 31,3216           77634                           RTB                                            
038635,000027: 31,3217           45505                                    LOADTIME                              #  PICK UP TIME SCALED B-28
038636,000028: 31,3220           01046                           STORE    DSPTEM1                               
038637,000029: 31,3221           77776                           EXIT                                           
038638,000030: 31,3222           33535        DISGET             CAF      V06N34**                              #  DISPLAY GROUND ELAPSED TIME
038639,000031: 31,3223           04555                           TC       BANKCALL                              
038640,000032: 31,3224           20465                           CADR     GOMARKF                               
038641,000033: 31,3225           05423                           TC       ENDEXT                                #  TERMINATE WITH V34E
038642,000034: 31,3226           03230                           TC       CALCTLS                               #  PROCEED WITH V33E
038643,000035: 31,3227           03222                           TC       DISGET                                #  NEW TIME LOADED VIA V25E
038644,000036: 31,3230           06006        CALCTLS            TC       INTPRET                               
038645,000037: 31,3231           43175                           VLOAD    SET                                   
038646,000038: 31,3232           02026                                    RLS                                   
038647,000039: 31,3233           00462                                    ERADFLAG                              #  SET. CONSTANT REARTH (RM)
038648,000040: 31,3234           14001                           STODL    0D                                    #  PD0-5 > RP VECTOR
038649,000041: 31,3235           23534                                    RRCSML                                
038650,000042: 31,3236           14007                           STODL    6D                                    #  PD6-7 > DUMMY TIME
038651,000043: 31,3237           23534                                    RRCSML                                #  MPAC  > NON-ZERO FOR MOON CASE
038652,000044: 31,3240           77614                           SET                                            
038653,000045: 31,3241           01463                                    LUNAFLAG                              #  SET. LUNAR LAT-LONG
038654,000046: 31,3242           77624                           CALL                                           
038655,000047: 31,3243           61762                                    RPTOLONG                              #  RP TO LONG
038656,000048: 31,3244           77745                           DLOAD                                          
038657,000049: 31,3245           01106                                    LONG                                  
038658,000050: 31,3246           16353                           STODL    LSLONG                                #  SAVE LND SITE LONG.
038659,000051: 31,3247           01046                                    DSPTEM1                               
038660,000052: 31,3250           34041                           STCALL   TDEC1                                 #  ADVANCE INTEGRATION TO TIME IN TDEC1
038661,000053: 31,3251           27022                                    CSMPREC                               #  USING PRECISION INTEGRATION
038662,000054: 31,3252           77775                           VLOAD                                          
038663,000055: 31,3253           00017                                    RATT1                                 
038664,000056: 31,3254           02337                           STORE    POSVECT                               #  SAVE POSITION VECTOR SCALED B-27
038665,000057: 31,3255           26152                           STOVL    ALPHAV                                #  FOR LAT-LONG
038666,000058: 31,3256           00025                                    VATT1                                 
038667,000059: 31,3257           16345                           STODL    VELVECT                               #  SAVE VEL. VECTOR B-5
038668,000060: 31,3260           00015                                    TAT                                   
038669,000061: 31,3261           36323                           STCALL   VECTIME                               #  SAVE TIME
038670,000062: 31,3262           26322                                    LAT-LONG                              #  COMPUTE LAT, LONG, ALT OF S/C  PD>00
038671,000063: 31,3263           76145                           DLOAD    AXT,1                                 #  SAVE S/C LONGITUDE
038672,000064: 31,3264           01106                                    LONG                                  
038673,000065: 31,3265           02352                                    LSLONG                                #  XR1 = LANDING SITE LONG--SINUS MEDII, OCE
038674,000066: 31,3266           36335                           STCALL   LONGSAVE                              #  ANUS PROCELLARUM, MARE TRANQUILLITEATIS
038675,000067: 31,3267           63414                                    ELAPTIME                              #  COMPUTE TL (TIME TO LANDING SITE)

Page 887

038677,000069: 31,3270           01046                           STORE    DSPTEM1                               #  SAVE TL FOR OUTPUT TO DSKY
038678,000070: 31,3271           77776                           EXIT                                           
038679,000071: 31,3272           33536        DISTLS             CAF      V06N31**                              #  DISPLAY TIME TO LANDING SITE
038680,000072: 31,3273           04555                           TC       BANKCALL                              
038681,000073: 31,3274           20465                           CADR     GOMARKF                               
038682,000074: 31,3275           05423                           TC       ENDEXT                                #  TERMINATE WITH V34E
038683,000075: 31,3276           03300                           TC       PROCLMKS                              #  PROCEED WITH V33E
038684,000076: 31,3277           03272                           TC       DISTLS                                #  ILLEGAL RESPONSE, DO AGAIN
038685,000077: 31,3300           06006        PROCLMKS           TC       INTPRET                               #  BEGIN LANDMARK PROCESSING
038686,000078: 31,3301           75170                           AXT,1    AXC,2                                 #  SET COUNTERS FOR LOOP CONTROL
038687,000079: 31,3302           00005                                    KCOUNT                                
038688,000080: 31,3303           00002                                    JCOUNT                                
038689,000081: 31,3304           43134                           SXA,2    SET                                   
038690,000082: 31,3305           02324                                    JLOOPCNT                              
038691,000083: 31,3306           00462                                    ERADFLAG                              #  USE MEAN LUNAR RADIUS
038692,000084: 31,3307           66730        KLOOP              SXA,1    SLOAD*                                
038693,000085: 31,3310           02325                                    KLOOPCNT                              
038694,000086: 31,3311           23534                                    BANDTABL   +5,1                       
038695,000087: 31,3312           16327                           STODL    NKVAL                                 #  SAVE LONGITUDE BAND
038696,000088: 31,3313           15340                                    DPPOSMAX                              
038697,000089: 31,3314           02330                           STORE    DELTAL                                
038698,000090: 31,3315           54170        JLOOPP             AXT,1    XSU,1                                 #  SET XR1 FOR LONGITUDE OF LANDMARK
038699,000091: 31,3316           63620                                    LONGTAB    -2                         
038700,000092: 31,3317           02324                                    JLOOPCNT                              
038701,000093: 31,3320           77624                           CALL                                           
038702,000094: 31,3321           63414                                    ELAPTIME                              #  COMPUTE TL (TIME TO LANDMARK)
038703,000095: 31,3322           02321                           STORE    XR1HOLD                               
038704,000096: 31,3323           45014                           SET      CALL                                  #  COMPUTE LATITUDE AND LONGITUDE OF S/C
038705,000097: 31,3324           01463                                    LUNAFLAG                              #  AT LANDMARK
038706,000098: 31,3325           26322                                    LAT-LONG                              #                                     PD=00
038707,000099: 31,3326           77754                           LXA,2                                          
038708,000100: 31,3327           02324                                    JLOOPCNT                              
038709,000101: 31,3330           44343                           DLOAD*   BDSU                                  
038710,000102: 31,3331           54240                                    LATTAB     -2,2                       
038711,000103: 31,3332           01104                                    LAT                                   
038712,000104: 31,3333           41446                           ABS      PUSH                                  #  DELTA LAT = ABS(LAT - LATJ)        PD=02
038713,000105: 31,3334           51025                           DSU      BPL                                   #  DELTAL GREATER THAN DELTA LAT
038714,000106: 31,3335           02330                                    DELTAL                                
038715,000107: 31,3336           63345                                    LMKLOOP                               #  NO
038716,000108: 31,3337           45545                           DLOAD    STADR                                 #                                     PD=00
038717,000109: 31,3340           61447                           STODL    DELTAL                                #  DELTA LAT = DELTAL
038718,000110: 31,3341           02321                                    XR1HOLD                               
038719,000111: 31,3342           01046                           STORE    DSPTEM1                               #  SAVE TIME TO LANDMARK
038720,000112: 31,3343           77734                           SXA,2                                          
038721,000113: 31,3344           02333                                    INDEXNUM                              #  SAVE LANDMARK I.D.
038722,000114: 31,3345           67114        LMKLOOP            INCR,2   SXA,2                                 #  J = J + 2
038723,000115: 31,3346           77775                           OCT      -2                                    
038724,000116: 31,3347           02324                                    JLOOPCNT                              
038725,000117: 31,3350           45335                           SLOAD    DSU                                   
038726,000118: 31,3351           00050                                    X2                                    

Page 888

038728,000120: 31,3352           02327                                    NKVAL                                 
038729,000121: 31,3353           52030                           BHIZ     GOTO                                  #  J = NKVAL
038730,000122: 31,3354           63356                                    DISLID                                #  YES, GO DISPLAY LANDMARK ID, MAYBE TL
038731,000123: 31,3355           63315                                    JLOOPP                                #  NO, ONE MORE TIME
038732,000124: 31,3356           70535        DISLID             SLOAD    SR1                                   #  ID = -INDEXNUM/2 + 1
038733,000125: 31,3357           02334                                    INDEXNUM                              
038734,000126: 31,3360           63144                           LXC,2    INCR,2                                
038735,000127: 31,3361           00154                                    MPAC       +0                         
038736,000128: 31,3362           00001                                    1D                                    
038737,000129: 31,3363           77534                           SXA,2    EXIT                                  
038738,000130: 31,3364           02751                                    LANDMARK                              
038739,000131: 31,3365           33537                           CAF      V05N70**                              #  DISPLAY LANDMARK ID
038740,000132: 31,3366           04555                           TC       BANKCALL                              
038741,000133: 31,3367           20504                           CADR     GOMARKFR                              
038742,000134: 31,3370           05423                           TC       ENDEXT                                #  TERMINATE WITH V34E
038743,000135: 31,3371           03376                           TC       DISTTL                                #  PROCEED WITH V33E
038744,000136: 31,3372           03404                           TC       NEXTBAND                              #  RECYCLE WITH V32E
038745,000137: 31,3373           34715                           CAF      FIVE                                  #  BLANK R1 AND R3
038746,000138: 31,3374           05415                           TC       BLANKET                               
038747,000139: 31,3375           05112                           TC       ENDOFJOB                              
038748,000140: 31,3376           33535        DISTTL             CAF      V06N34**                              #  DISPLAY GROUND ELAPSED TIME TO LANDMARK
038749,000141: 31,3377           04555                           TC       BANKCALL                              
038750,000142: 31,3400           20465                           CADR     GOMARKF                               
038751,000143: 31,3401           05423                           TC       ENDEXT                                #  TERMINATE WITH V34E
038752,000144: 31,3402           03404                           TC       NEXTBAND                              #  PROCEED WITH V33E
038753,000145: 31,3403           03376                           TC       DISTTL                                #  ILLEGAL RESPONSE, DO AGAIN
038754,000146: 31,3404           06006        NEXTBAND           TC       INTPRET                               #  MUST WE GO ON
038755,000147: 31,3405           66350                           LXA,1    SSP                                   #  RESTORE COUNTER
038756,000148: 31,3406           02325                                    KLOOPCNT                              
038757,000149: 31,3407           00051                                    S1                                    
038758,000150: 31,3410           00001                                    1D                                    
038759,000151: 31,3411           77500                           TIX,1    EXIT                                  
038760,000152: 31,3412           63307                                    KLOOP                                 #  YES, K = K - 1
038761,000153: 31,3413           05423                           TC       ENDEXT                                #  K = 0, EXIT R35
038762,000154: 

Page 889

038764,000156: 31,3414           66020        ELAPTIME           STQ      SXA,1                                 #  SAVE RETURN AND INDEX 1
038765,000157: 31,3415           02321                                    RETLOCN                               
038766,000158: 31,3416           02320                                    XR1HOLD                               
038767,000159: 31,3417           77601                           SETPD                                          
038768,000160: 31,3420           00001                                    0D                                    #                                     PD=00
038769,000161: 31,3421           65375                           VLOAD    PDDL                                  #                                     PD=06
038770,000162: 31,3422           15324                                    HIUNITZ                               #  SET UP FOR RP-TO-R
038771,000163: 31,3423           02323                                    VECTIME                               
038772,000164: 31,3424           45125                           PDDL     CALL                                  #                                     PD=08
038773,000165: 31,3425           15340                                    DPPOSMAX                              
038774,000166: 31,3426           55341                                    RP-TO-R                               #  TRANSFORM PLANETARY TO RCS         PD=00
038775,000167: 31,3427           53515                           PDVL     UNIT                                  #  COMPUTE AND STORE UZ               PD=06
038776,000168: 31,3430           02337                                    POSVECT                               #  POSITION VECTOR OF CM SCALED B-27
038777,000169: 31,3431           47206                           PUSH     VXV                                   #  COMPUTE AND STORE UR = UNIT(R)     PD=12
038778,000170: 31,3432           00001                                    UZZ                                   
038779,000171: 31,3433           53572                           VSL1     UNIT                                  
038780,000172: 31,3434           47206                           PUSH     VXV                                   #  COMPUTE AND STORE UW=UNIT(UR X UZ) PD=18
038781,000173: 31,3435           00001                                    UZZ                                   
038782,000174: 31,3436           53572                           VSL1     UNIT                                  
038783,000175: 31,3437           47315                           PDVL     VXV                                   #  COMPUTE AND STORE UN=UNIT(UW X UZ) PD=24
038784,000176: 31,3440           02337                                    POSVECT                               #  POSITION VECTOR OF CM SCALED B-27
038785,000177: 31,3441           02345                                    VELVECT                               #  VELOCITY VECTOR OF CM SCALED B-5
038786,000178: 31,3442           53572                           VSL1     UNIT                                  #  COMPUTE AND STORE U = UNIT(R X V)  PD=30
038787,000179: 31,3443           70125                           PDDL     LXC,1                                 #  RESTORE INDEX 1 COMPLEMENTED
038788,000180: 31,3444           02335                                    LONGSAVE                              
038789,000181: 31,3445           02320                                    XR1HOLD                               
038790,000182: 31,3446           41223                           DSU*     DMP                                   
038791,000183: 31,3447           00001                                    0,1                                   
038792,000184: 31,3450           23534                                    RRCSML                                
038793,000185: 31,3451           73406                           PUSH     SIN                                   #  DLONG = .997(LONG - LONGJ)         PD=32
038794,000186: 31,3452           76561                           VXSC     VSL1                                  
038795,000187: 31,3453           00023                                    UNN                                   #  U:W = UW COS(DLONG) + UN SIN(DLONG)
038796,000188: 31,3454           71525                           PDDL     COS                                   #                                     PD=36
038797,000189: 31,3455           76561                           VXSC     VSL1                                  
038798,000190: 31,3456           00015                                    UW                                    
038799,000191: 31,3457           47255                           VAD      VXV                                   #                               PD=30,PD=24
038800,000192: 31,3460           53572                           VSL1     UNIT                                  #  UD = UNIT (U:W X U)
038801,000193: 31,3461           02152                           STORE    ALPHAV                                #  SET UD FOR LAT-LONG--POINT OF CLOSEST
038802,000194: 31,3462           72441                           DOT      SL1                                   #  APPROACH
038803,000195: 31,3463           00007                                    URR                                   #  COS(THETA) = (UD . UR)
038804,000196: 31,3464           02734                           STORE    CSTH                                  
038805,000197: 31,3465           73526                           ACOS     SIN                                   #  THETA = ACOS(UD.UR), 0 TO PI
038806,000198: 31,3466           26732                           STOVL    SNTH                                  #  SIN (THETA), 0 TO PI
038807,000199: 31,3467           00007                                    URR                                   
038808,000200: 31,3470           50235                           VXV      DOT                                   
038809,000201: 31,3471           02152                                    ALPHAV                                
038810,000202: 31,3472           00031                                    24D                                   
038811,000203: 31,3473           71244                           BPL      DLOAD                                 #  CHK (UR X UD).U
038812,000204: 31,3474           63500                                    +4D                                   
038813,000205: 31,3475           02732                                    SNTH                                  #   NEG, THETA = 2 PI - THETA

Page 890

038815,000207: 31,3476           77676                           DCOMP                                          #   ERGO SIN (THETA) = -SIN (THETA)
038816,000208: 31,3477           02732                           STORE    SNTH                                  
038817,000209: 31,3500           43175                           VLOAD    SET                                   
038818,000210: 31,3501           02337                                    POSVECT                               
038819,000211: 31,3502           03466                                    RVSW                                  #  TIME ONLY
038820,000212: 31,3503           26657                           STOVL    RVEC                                  
038821,000213: 31,3504           02345                                    VELVECT                               
038822,000214: 31,3505           02746                           STORE    VVEC                                  
038823,000215: 31,3506           45160                           AXC,1    CALL                                  
038824,000216: 31,3507           00012                                    10D                                   #  MOON ONLY
038825,000217: 31,3510           24737                                    TIMETHET                              #  COMPUTE TRANSFER TIME
038826,000218: 31,3511           43014                           BON      BON                                   
038827,000219: 31,3512           04313                                    COGAFLAG                              #  NO SOLUTION SINCE NEAR RECTILINEAR
038828,000220: 31,3513           63523                                    ETERROR                               
038829,000221: 31,3514           04310                                    INFINFLG                              #  NO PHYSICAL SOLUTION EXISTS
038830,000222: 31,3515           63523                                    ETERROR                               
038831,000223: 31,3516           43345                           DLOAD    DAD                                   #  COMPUTE GROUND ELAPSED TIME        PD=00
038832,000224: 31,3517           02323                                    VECTIME                               
038833,000225: 31,3520           00037                                    T                                     
038834,000226: 31,3521           77650                           GOTO                                           
038835,000227: 31,3522           02321                                    RETLOCN                               #  EXIT ELAPTIME
038836,000228: 31,3523           52145        ETERROR            DLOAD    GOTO                                  #  RETURN WITH ZERO
038837,000229: 31,3524           15332                                    HI6ZEROS                              
038838,000230: 31,3525           02321                                    RETLOCN                               
038839,000231: 

Page 891

038841,000233:                                                                                                  #  SUBROUTINE TO CONVERT RP (VECTOR IN PLAN. COORD. SYSTEM, EITHER
038842,000234:                                                                                                  #  EARTH-FIXED OR MOON-FIXED) TO LAT, LONG, ALT.
038843,000235:                                                                                                  #  CALLING SEQUENCE
038844,000236:                                                                                                  #   L       CALL
038845,000237:                                                                                                  #   L+1            RPTOLONG
038846,000238:                                                                                                  #  SUBROUTINES USED
038847,000239:                                                                                                  #   RP-TO-R, LAT-LONG
038848,000240:                                                                                                  #  INPUT
038849,000241:                                                                                                  #   PD0-5D = RP VECTOR
038850,000242:                                                                                                  #   PD6-7D = TIME
038851,000243:                                                                                                  #   MPAC = 0 FOR EARTH, NON-ZERO FOR MOON.
038852,000244:                                                                                                  #   ERADFLAG, LUNAFLAG.
038853,000245:                                                                                                  #  OUTPUT
038854,000246:                                                                                                  #   LATITUDE IN LAT      (REVS. B-0)
038855,000247:                                                                                                  #   LONGITUDE IN LONG    (REVS. B-0)
038856,000248:                                                                                                  #   ALTITUDE IN ALT      (METERS B-29)
038857,000249: 30,2000                                           SETLOC   R35A                                  
038858,000250: 30,2000                                           BANK                                           
038859,000251: 
038860,000252: 30,3762           45020        RPTOLONG           STQ      CALL                                  #  SAVE RETURN
038861,000253: 30,3763           02321                                    RETLOCN                               
038862,000254: 30,3764           55341                                    RP-TO-R                               #  CONVERT RP TO R, B-27 FOR MOON
038863,000255: 30,3765           70414                           BOFF     VSR2                                  #  IF LUNAR RESCALE B-27 TO B-29
038864,000256: 30,3766           01743                                    LUNAFLAG                              
038865,000257: 30,3767           61770                                    +1                                    
038866,000258: 30,3770           16152                           STODL    ALPHAV                                
038867,000259: 30,3771           23534                                    RRCSML                                #  MPAC > DUMMY TIME
038868,000260: 30,3772           77624                           CALL                                           
038869,000261: 30,3773           26322                                    LAT-LONG                              
038870,000262: 30,3774           77650                           GOTO                                           
038871,000263: 30,3775           02321                                    RETLOCN                               
038872,000264: 31,2000                                           SETLOC   R35                                   
038873,000265: 31,2000                                           BANK                                           
038874,000266: 
038875,000267: 31,3526           77763        BANDTABL           DEC      -12        B-14                       #  +60 DEGREE BAND
038876,000268: 31,3527           77751                           DEC      -22        B-14                       #  +30 DEGREE BAND
038877,000269: 31,3530           77737                           DEC      -32        B-14                       #  +00 DEGREE BAND
038878,000270: 31,3531           77725                           DEC      -42        B-14                       #  -30 DEGREE BAND
038879,000271: 31,3532           77713                           DEC      -52        B-14                       #  -60 DEGREE BAND
038880,000272: 31,3533           37716 33106  RRCSML             2DEC     .997                                  
038881,000273: 31,3535           01442        V06N34**           VN       00634                                 #  ****************************************
038882,000274: 31,3536           01437        V06N31**           VN       00631                                 
038883,000275: 31,3537           01306        V05N70**           VN       00570                                 
038884,000276: 31,3540                        KCOUNT             EQUALS   5D                                    
038885,000277: 31,3540                        JCOUNT             EQUALS   2D                                    
038886,000278: 31,3540                        UNN                EQUALS   18D                                   
038887,000279: 31,3540                        UW                 EQUALS   12D                                   
038888,000280: 31,3540                        URR                EQUALS   6D                                    
038889,000281: 31,3540                        UZZ                EQUALS   0D                                    
038890,000282: 

Page 892

038892,000284:                                                                                                  #           **** TEMPORARY VALUES FOR LANDMARK TABLES-LEVINE/SAPONARO****
038893,000285: 
038894,000286:                                                                                                  #                LATTAB HAS LATITUDES THAT GO FROM +8 TO -8 DEGREES
038895,000287:                                                                                                  #                LONGTAB HAS LONGITUDES THAT GO FROM +60 TO -60 DEGREES
038896,000288:                                                                                                  #                LATTAB AND LONGTAB ARE SCALED REVOLUTIONS B0
038897,000289:                                                                                                  #                ALTTAB HAS ALTITUDES MEASURED ABOVE THE MEAN LUNAR RADIUS
038898,000290:                                                                                                  #                ALTTAB IS SCALED IN METERS B-29
038899,000291: 
038900,000292: 31,3540                                           COUNT    31/LNDMK                              
038901,000293: 31,3540           77406 56241  LATTAB             2DEC     -.015231481                            #    2     5  29 S
038902,000294: 31,3542           00043 24640                     2DEC     .002175926                            #    3     0  47 N
038903,000295: 31,3544           00046 25716                     2DEC     .002361111                            #    4     0  51 N
038904,000296: 31,3546           77741 65060                     2DEC     -.001851852                            #    5     0  40 S
038905,000297: 31,3550           00055 20266                     2DEC     .002777778                            #    6     1  00 N
038906,000298: 31,3552           77720 46646                     2DEC     -.002916667                            #    7     1  03 S
038907,000299: 31,3554           77646 57652                     2DEC     -.005462963                            #   10     1  58 S
038908,000300: 31,3556           00155 07202                     2DEC     .006666667                            #   11     2  24 N
038909,000301: 31,3560           00466 07373                     2DEC     .018935185                            #   12     6  49 N
038910,000302: 31,3562           00050 36561                     2DEC     .00250                                #   13     0  54 N
038911,000303: 31,3564           00070 04130                     2DEC     .003425926                            #   14     1  14 N
038912,000304: 31,3566           77662 64143                     2DEC     -.004722222                            #   15     1  42 S
038913,000305: 31,3570           77747 67215                     2DEC     -.001481481                            #   16     0  32 S
038914,000306: 31,3572           00062 32207                     2DEC     .003101852                            #   17     1  07 N
038915,000307: 31,3574           00070 34343                     2DEC     .003472222                            #   20     1  15 N
038916,000308: 31,3576           77463 46314                     2DEC     -.0125                                #   21     4  30 S
038917,000309: 31,3600           00004 21505                     2DEC     .000277777                            #   22     0  06 N
038918,000310: 31,3602           00271 32622                     2DEC     .011342592                            #   23     4  05 N
038919,000311: 31,3604           00101 07343                     2DEC     .003981481                            #   24     1  26 N
038920,000312: 31,3606           77574 70656                     2DEC     -.008009259                            #   25     2  53 S
038921,000313: 31,3610           00065 03052                     2DEC     .003240741                            #   26     1  10 N

Page 893

038923,000315: 31,3612           77642 66360                     2DEC     -.005694444                            #   27     2  03 S
038924,000316: 31,3614           00045 05267                     2DEC     .002268518                            #   30     0  49 N
038925,000317: 31,3616           77577 71734                     2DEC     -.007824074                            #   31     2  49 S
038926,000318: 31,3620           00130 27711                     2DEC     .005416667                            #   32     1  57 N
038927,000319: 31,3622           05120 14712  LONGTAB            2DEC     .161157407                            #    2     58  01 E
038928,000320: 31,3624           05076 06264                     2DEC     .160046296                            #    3     57  37 E
038929,000321: 31,3626           04453 23531                     2DEC     .143287037                            #    4     51  35 E
038930,000322: 31,3630           03554 33074                     2DEC     .116018518                            #    5     41  46 E
038931,000323: 31,3632           03326 25112                     2DEC     .106851852                            #    6     38  28 E
038932,000324: 31,3634           03263 00252                     2DEC     .104675926                            #    7     37  41 E
038933,000325: 31,3636           03014 34505                     2DEC     .094537037                            #   10     34  02 E
038934,000326: 31,3640           03007 22564                     2DEC     .094212963                            #   11     33  55 E
038935,000327: 31,3642           02740 04432                     2DEC     .091805555                            #   12     33  03 E
038936,000328: 31,3644           02531 04017                     2DEC     .083564815                            #   13     30  05 E
038937,000329: 31,3646           02066 23501                     2DEC     .065833333                            #   14     23  42 E
038938,000330: 31,3650           01502 13664                     2DEC     .050925926                            #   15     18  20 E
038939,000331: 31,3652           01272 23036                     2DEC     .042638889                            #   16     15  21 E
038940,000332: 31,3654           00570 37365                     2DEC     .023009259                            #   17      8  17 E
038941,000333: 31,3656           00252 25253                     2DEC     .010416667                            #   20      3  45 E
038942,000334: 31,3660           00000 30213                     2DEC     .000046296                            #   21      0  01 E
038943,000335: 31,3662           77703 52142                     2DEC     -.003703704                            #   22      1  20 W
038944,000336: 31,3664           77254 76114                     2DEC     -.020694444                            #   23      7  27 W
038945,000337: 31,3666           77173 64334                     2DEC     -.023703704                            #   24      8  32 W
038946,000338: 31,3670           76265 51114                     2DEC     -.051435185                            #   25     18  31 W
038947,000339: 31,3672           75644 77223                     2DEC     -.068055556                            #   26     24  30 W

Page 894

038949,000341: 31,3674           75215 72762                     2DEC     -.085092593                            #   27     30  38 W
038950,000342: 31,3676           74613 76225                     2DEC     -.100833333                            #   30     36  18 W
038951,000343: 31,3700           74571 67600                     2DEC     -.101944444                            #   31     36  42 W
038952,000344: 31,3702           74174 54550                     2DEC     -.117407407                            #   32     42  16 W
038953,000345: 31,3704           77777 75752  ALTTAB             2DEC     -2090      B-29                       #   2
038954,000346: 31,3706           77777 75752                     2DEC     -2090      B-29                       #   3
038955,000347: 31,3710           77777 76200                     2DEC     -1790      B-29                       #   4
038956,000348: 31,3712           77777 76736                     2DEC     -1090      B-29                       #   5
038957,000349: 31,3714           77777 77051                     2DEC     -940       B-29                       #   6
038958,000350: 31,3716           77777 77556                     2DEC     -290       B-29                       #   7
038959,000351: 31,3720           77777 77556                     2DEC     -290       B-29                       #   10
038960,000352: 31,3722           77777 76370                     2DEC     -1549      B-29                       #   11
038961,000353: 31,3724           77777 77102                     2DEC     -890       B-29                       #   12
038962,000354: 31,3726           77777 76426                     2DEC     -1490      B-29                       #   13
038963,000355: 31,3730           77777 74660                     2DEC     -3230      B-29                       #   14
038964,000356: 31,3732           00000 04773                     2DEC     5110       B-29                       #   15
038965,000357: 31,3734           00000 06577                     2DEC     6910       B-29                       #   16
038966,000358: 31,3736           00000 04773                     2DEC     5110       B-29                       #   17
038967,000359: 31,3740           00000 02741                     2DEC     3010       B-29                       #   20
038968,000360: 31,3742           00000 03643                     2DEC     3910       B-29                       #   21
038969,000361: 31,3744           77777 77053                     2DEC     -935       B-29                       #   22
038970,000362: 31,3746           00000 02234                     2DEC     2360       B-29                       #   23
038971,000363: 31,3750           00000 02347                     2DEC     2510       B-29                       #   24
038972,000364: 31,3752           00000 00151                     2DEC     210        B-29                       #   25
038973,000365: 31,3754           00000 00740                     2DEC     960        B-29                       #   26

Page 895

038975,000367: 31,3756           00000 01217                     2DEC     1310       B-29                       #   27
038976,000368: 31,3760           00000 01301                     2DEC     1410       B-29                       #   30
038977,000369: 31,3762           77777 75337                     2DEC     -2624      B-29                       #   31
038978,000370: 31,3764           77777 75470                     2DEC     -2445      B-29                       #   32

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