Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. 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

038436,000002:                                                                                                 #  Copyright:    Public domain.
038437,000003:                                                                                                 #  Filename:      LUNAR_LANDMARK_SELECTION_FOR_CM.agc
038438,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
038439,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
038440,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
038441,000007:                                                                                                 #  Assembler:    yaYUL
038442,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
038443,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
038444,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
038445,000011:                                                                                                 #  Mod history:  2011-03-06 JL    Adapted from corresponding Colossus 249 file.
038446,000012:                                                                                                 #                 2011-04-17 JL   Removed temporary line.
038447,000013: 
038448,000014:                                                                                                 # # Page 886
038449,000015: 31,3215                                          BANK     31                                    
038450,000016: 31,2000                                          SETLOC   R35                                   
038451,000017: 31,2000                                          BANK                                           
038452,000018: 
038453,000019: 31,3215                                          COUNT    31/R35                                
038454,000020: 
038455,000021: 31,3215  E4,1724                                 EBANK=   JLOOPCNT                              
038456,000022: 31,3215           06006        LNDMKSEL          TC       INTPRET                               
038457,000023: 31,3216           77634                          RTB                                            
038458,000024: 31,3217           45505                                   LOADTIME                              #  PICK UP TIME SCALED B-28
038459,000025: 31,3220           01046                          STORE    DSPTEM1                               
038460,000026: 31,3221           77776                          EXIT                                           
038461,000027: 31,3222           33535        DISGET            CAF      V06N34**                              #  DISPLAY GROUND ELAPSED TIME
038462,000028: 31,3223           04555                          TC       BANKCALL                              
038463,000029: 31,3224           20465                          CADR     GOMARKF                               
038464,000030: 31,3225           05423                          TC       ENDEXT                                #  TERMINATE WITH V34E
038465,000031: 31,3226           03230                          TC       CALCTLS                               #  PROCEED WITH V33E
038466,000032: 31,3227           03222                          TC       DISGET                                #  NEW TIME LOADED VIA V25E
038467,000033: 31,3230           06006        CALCTLS           TC       INTPRET                               
038468,000034: 31,3231           43175                          VLOAD    SET                                   
038469,000035: 31,3232           02026                                   RLS                                   
038470,000036: 31,3233           00462                                   ERADFLAG                              #  SET. CONSTANT REARTH (RM)
038471,000037: 31,3234           14001                          STODL    0D                                    #  PD0-5 > RP VECTOR
038472,000038: 31,3235           23534                                   RRCSML                                
038473,000039: 31,3236           14007                          STODL    6D                                    #  PD6-7 > DUMMY TIME
038474,000040: 31,3237           23534                                   RRCSML                                #  MPAC  > NON-ZERO FOR MOON CASE
038475,000041: 31,3240           77614                          SET                                            
038476,000042: 31,3241           01463                                   LUNAFLAG                              #  SET. LUNAR LAT-LONG
038477,000043: 31,3242           77624                          CALL                                           
038478,000044: 31,3243           61762                                   RPTOLONG                              #  RP TO LONG
038479,000045: 31,3244           77745                          DLOAD                                          
038480,000046: 31,3245           01106                                   LONG                                  
038481,000047: 31,3246           16353                          STODL    LSLONG                                #  SAVE LND SITE LONG.
038482,000048: 31,3247           01046                                   DSPTEM1                               
038483,000049: 31,3250           34041                          STCALL   TDEC1                                 #  ADVANCE INTEGRATION TO TIME IN TDEC1
038484,000050: 31,3251           27022                                   CSMPREC                               #  USING PRECISION INTEGRATION
038485,000051: 31,3252           77775                          VLOAD                                          
038486,000052: 31,3253           00017                                   RATT1                                 
038487,000053: 31,3254           02337                          STORE    POSVECT                               #  SAVE POSITION VECTOR SCALED B-27
038488,000054: 31,3255           26152                          STOVL    ALPHAV                                #  FOR LAT-LONG
038489,000055: 31,3256           00025                                   VATT1                                 
038490,000056: 31,3257           16345                          STODL    VELVECT                               #  SAVE VEL. VECTOR B-5
038491,000057: 31,3260           00015                                   TAT                                   
038492,000058: 31,3261           36323                          STCALL   VECTIME                               #  SAVE TIME
038493,000059: 31,3262           26322                                   LAT-LONG                              #  COMPUTE LAT, LONG, ALT OF S/C  PD>00
038494,000060: 31,3263           76145                          DLOAD    AXT,1                                 #  SAVE S/C LONGITUDE
038495,000061: 31,3264           01106                                   LONG                                  
038496,000062: 31,3265           02352                                   LSLONG                                #  XR1 = LANDING SITE LONG--SINUS MEDII, OCE
038497,000063: 31,3266           36335                          STCALL   LONGSAVE                              #  ANUS PROCELLARUM, MARE TRANQUILLITEATIS
038498,000064: 31,3267           63414                                   ELAPTIME                              #  COMPUTE TL (TIME TO LANDING SITE)
038499,000065:                                                                                                 # # Page 887
038500,000066: 31,3270           01046                          STORE    DSPTEM1                               #  SAVE TL FOR OUTPUT TO DSKY
038501,000067: 31,3271           77776                          EXIT                                           
038502,000068: 31,3272           33536        DISTLS            CAF      V06N31**                              #  DISPLAY TIME TO LANDING SITE
038503,000069: 31,3273           04555                          TC       BANKCALL                              
038504,000070: 31,3274           20465                          CADR     GOMARKF                               
038505,000071: 31,3275           05423                          TC       ENDEXT                                #  TERMINATE WTIH V34E
038506,000072: 31,3276           03300                          TC       PROCLMKS                              #  PROCEED WITH V33E
038507,000073: 31,3277           03272                          TC       DISTLS                                #  ILLEGAL RESPONSE, DO AGAIN
038508,000074: 31,3300           06006        PROCLMKS          TC       INTPRET                               #  BEGIN LANDMARK PROCESSING
038509,000075: 31,3301           75170                          AXT,1    AXC,2                                 #  SET COUNTERS FOR LOOP CONTROL
038510,000076: 31,3302           00005                                   KCOUNT                                
038511,000077: 31,3303           00002                                   JCOUNT                                
038512,000078: 31,3304           43134                          SXA,2    SET                                   
038513,000079: 31,3305           02324                                   JLOOPCNT                              
038514,000080: 31,3306           00462                                   ERADFLAG                              #  USE MEAN LUNAR RADIUS
038515,000081: 31,3307           66730        KLOOP             SXA,1    SLOAD*                                
038516,000082: 31,3310           02325                                   KLOOPCNT                              
038517,000083: 31,3311           23534                                   BANDTABL   +5,1                       
038518,000084: 31,3312           16327                          STODL    NKVAL                                 #  SAVE LONGITUDE BAND
038519,000085: 31,3313           15340                                   DPPOSMAX                              
038520,000086: 31,3314           02330                          STORE    DELTAL                                
038521,000087: 31,3315           54170        JLOOPP            AXT,1    XSU,1                                 #  SET XR1 FOR LONGITUDE OF LANDMARK
038522,000088: 31,3316           63620                                   LONGTAB    -2                         
038523,000089: 31,3317           02324                                   JLOOPCNT                              
038524,000090: 31,3320           77624                          CALL                                           
038525,000091: 31,3321           63414                                   ELAPTIME                              #  COMPUTE TL (TIME TO LANDMARK)
038526,000092: 31,3322           02321                          STORE    XR1HOLD                               
038527,000093: 31,3323           45014                          SET      CALL                                  #  COMPUTE LATITUDE AND LONGITUDE OF S/C
038528,000094: 31,3324           01463                                   LUNAFLAG                              #  AT LANDMARK
038529,000095: 31,3325           26322                                   LAT-LONG                              #                                     PD=00
038530,000096: 31,3326           77754                          LXA,2                                          
038531,000097: 31,3327           02324                                   JLOOPCNT                              
038532,000098: 31,3330           44343                          DLOAD*   BDSU                                  
038533,000099: 31,3331           54240                                   LATTAB     -2,2                       
038534,000100: 31,3332           01104                                   LAT                                   
038535,000101: 31,3333           41446                          ABS      PUSH                                  #  DELTA LAT = ABS(LAT - LATJ)        PD=02
038536,000102: 31,3334           51025                          DSU      BPL                                   #  DELTAL OPERATOR THAN DELTA LAT
038537,000103: 31,3335           02330                                   DELTAL                                
038538,000104: 31,3336           63345                                   LMKLOOP                               #  NO
038539,000105: 31,3337           45545                          DLOAD    STADR                                 #                                     PD=00
038540,000106: 31,3340           61447                          STODL    DELTAL                                #  DELTA LAT = DELTAL
038541,000107: 31,3341           02321                                   XR1HOLD                               
038542,000108: 31,3342           01046                          STORE    DSPTEM1                               #  SAVE TIME TO LANDMARK
038543,000109: 31,3343           77734                          SXA,2                                          
038544,000110: 31,3344           02333                                   INDEXNUM                              #  SAVE LANDMARK I.D.
038545,000111: 31,3345           67114        LMKLOOP           INCR,2   SXA,2                                 #  J = J + 2
038546,000112: 31,3346           77775                          OCT      -2                                    
038547,000113: 31,3347           02324                                   JLOOPCNT                              
038548,000114: 31,3350           45335                          SLOAD    DSU                                   
038549,000115: 31,3351           00050                                   X2                                    
038550,000116:                                                                                                 # # Page 888
038551,000117: 31,3352           02327                                   NKVAL                                 
038552,000118: 31,3353           52030                          BHIZ     GOTO                                  #  J = NKVAL
038553,000119: 31,3354           63356                                   DISLID                                #  YES, GO DISPLAY LANDMARK ID, MAYBE TL
038554,000120: 31,3355           63315                                   JLOOPP                                #  NO, ONE MORE TIME
038555,000121: 31,3356           70535        DISLID            SLOAD    SR1                                   #  ID = -INDEXNUM/2 + 1
038556,000122: 31,3357           02334                                   INDEXNUM                              
038557,000123: 31,3360           63144                          LXC,2    INCR,2                                
038558,000124: 31,3361           00154                                   MPAC       +0                         
038559,000125: 31,3362           00001                                   1D                                    
038560,000126: 31,3363           77534                          SXA,2    EXIT                                  
038561,000127: 31,3364           02751                                   LANDMARK                              
038562,000128: 31,3365           33537                          CAF      V05N70**                              #  DISPLAY LANDMARK ID
038563,000129: 31,3366           04555                          TC       BANKCALL                              
038564,000130: 31,3367           20504                          CADR     GOMARKFR                              
038565,000131: 31,3370           05423                          TC       ENDEXT                                #  TERMINATE WITH V34E
038566,000132: 31,3371           03376                          TC       DISTTL                                #  PROCEED WTIH V33E
038567,000133: 31,3372           03404                          TC       NEXTBAND                              #  RECYCLE WITH V32E
038568,000134: 31,3373           34715                          CAF      FIVE                                  #  BLANK R1 AND R3
038569,000135: 31,3374           05415                          TC       BLANKET                               
038570,000136: 31,3375           05112                          TC       ENDOFJOB                              
038571,000137: 31,3376           33535        DISTTL            CAF      V06N34**                              #  DISPLAY GROUND ELAPSED TIME TO LANDMARK
038572,000138: 31,3377           04555                          TC       BANKCALL                              
038573,000139: 31,3400           20465                          CADR     GOMARKF                               
038574,000140: 31,3401           05423                          TC       ENDEXT                                #  TERMINATE WITH V34E
038575,000141: 31,3402           03404                          TC       NEXTBAND                              #  PROCEED WITH V33E
038576,000142: 31,3403           03376                          TC       DISTTL                                #  ILLEGAL RESPONSE, DO AGAIN
038577,000143: 31,3404           06006        NEXTBAND          TC       INTPRET                               #  MUST WE GO ON
038578,000144: 31,3405           66350                          LXA,1    SSP                                   #  RESTORE COUNTER
038579,000145: 31,3406           02325                                   KLOOPCNT                              
038580,000146: 31,3407           00051                                   S1                                    
038581,000147: 31,3410           00001                                   1D                                    
038582,000148: 31,3411           77500                          TIX,1    EXIT                                  
038583,000149: 31,3412           63307                                   KLOOP                                 #  YES, K = K - 1
038584,000150: 31,3413           05423                          TC       ENDEXT                                #  K = 0, EXIT R35
038585,000151: 
038586,000152:                                                                                                 # # Page 889
038587,000153: 31,3414           66020        ELAPTIME          STQ      SXA,1                                 #  SAVE RETURN AND INDEX 1
038588,000154: 31,3415           02321                                   RETLOCN                               
038589,000155: 31,3416           02320                                   XR1HOLD                               
038590,000156: 31,3417           77601                          SETPD                                          
038591,000157: 31,3420           00001                                   0D                                    #                                     PD=00
038592,000158: 31,3421           65375                          VLOAD    PDDL                                  #                                     PD=06
038593,000159: 31,3422           15324                                   HIUNITZ                               #  SET UP FOR RP-TO-R
038594,000160: 31,3423           02323                                   VECTIME                               
038595,000161: 31,3424           45125                          PDDL     CALL                                  #                                     PD=08
038596,000162: 31,3425           15340                                   DPPOSMAX                              
038597,000163: 31,3426           55341                                   RP-TO-R                               #  TRANSFORM PLANETARY TO RCS         PD=00
038598,000164: 31,3427           53515                          PDVL     UNIT                                  #  COMPUTE AND STORE UZ               PD=06
038599,000165: 31,3430           02337                                   POSVECT                               #  POSITION VECTOR OF CM SCALED B-27
038600,000166: 31,3431           47206                          PUSH     VXV                                   #  COMPUTE AND STORE UR = UNIT(R)     PD=12
038601,000167: 31,3432           00001                                   UZZ                                   
038602,000168: 31,3433           53572                          VSL1     UNIT                                  
038603,000169: 31,3434           47206                          PUSH     VXV                                   #  COMPUTE AND STORE UW=UNIT(UR X UZ) PD=18
038604,000170: 31,3435           00001                                   UZZ                                   
038605,000171: 31,3436           53572                          VSL1     UNIT                                  
038606,000172: 31,3437           47315                          PDVL     VXV                                   #  COMPUTE AND STORE UN=UNIT(UW X UZ) PD=24
038607,000173: 31,3440           02337                                   POSVECT                               #  POSITION VECTOR OF CM SCALED B-27
038608,000174: 31,3441           02345                                   VELVECT                               #  VELOCITY VECTOR OF CM SCALED B-5
038609,000175: 31,3442           53572                          VSL1     UNIT                                  #  COMPUTE AND STORE U = UNIT(R X V)  PD=30
038610,000176: 31,3443           70125                          PDDL     LXC,1                                 #  RESTORE INDEX 1 COMPLEMENTED
038611,000177: 31,3444           02335                                   LONGSAVE                              
038612,000178: 31,3445           02320                                   XR1HOLD                               
038613,000179: 31,3446           41223                          DSU*     DMP                                   
038614,000180: 31,3447           00001                                   0,1                                   
038615,000181: 31,3450           23534                                   RRCSML                                
038616,000182: 31,3451           73406                          PUSH     SIN                                   #  DLONG = .997(LONG - LONGJ)         PD=32
038617,000183: 31,3452           76561                          VXSC     VSL1                                  
038618,000184: 31,3453           00023                                   UNN                                   #  U:W = UW COS(DLONG) + UN SIN(DLONG)
038619,000185: 31,3454           71525                          PDDL     COS                                   #                                     PD=36
038620,000186: 31,3455           76561                          VXSC     VSL1                                  
038621,000187: 31,3456           00015                                   UW                                    
038622,000188: 31,3457           47255                          VAD      VXV                                   #                               PD=30,PD=24
038623,000189: 31,3460           53572                          VSL1     UNIT                                  #  UD = UNIT (U:W X U)
038624,000190: 31,3461           02152                          STORE    ALPHAV                                #  SET UD FOR LAT-LONG--POINT OF CLOSEST
038625,000191: 31,3462           72441                          DOT      SL1                                   #  APPROACH
038626,000192: 31,3463           00007                                   URR                                   #  COS(THETA) = (UD . UR)
038627,000193: 31,3464           02734                          STORE    CSTH                                  
038628,000194: 31,3465           73526                          ACOS     SIN                                   #  THETA = ACOS(UD.UR), 0 TO PI
038629,000195: 31,3466           26732                          STOVL    SNTH                                  #  SIN (THETA), 0 TO PI
038630,000196: 31,3467           00007                                   URR                                   
038631,000197: 31,3470           50235                          VXV      DOT                                   
038632,000198: 31,3471           02152                                   ALPHAV                                
038633,000199: 31,3472           00031                                   24D                                   
038634,000200: 31,3473           71244                          BPL      DLOAD                                 #  CHK (UR X UD).U
038635,000201: 31,3474           63500                                   +4D                                   
038636,000202: 31,3475           02732                                   SNTH                                  #   NEG, THETA = 2 PI - THETA
038637,000203:                                                                                                 # # Page 890
038638,000204: 31,3476           77676                          DCOMP                                          #   ERGO SIN (THETA) = -SIN (THETA)
038639,000205: 31,3477           02732                          STORE    SNTH                                  
038640,000206: 31,3500           43175                          VLOAD    SET                                   
038641,000207: 31,3501           02337                                   POSVECT                               
038642,000208: 31,3502           03466                                   RVSW                                  #  TIME ONLY
038643,000209: 31,3503           26657                          STOVL    RVEC                                  
038644,000210: 31,3504           02345                                   VELVECT                               
038645,000211: 31,3505           02746                          STORE    VVEC                                  
038646,000212: 31,3506           45160                          AXC,1    CALL                                  
038647,000213: 31,3507           00012                                   10D                                   #  MOON ONLY
038648,000214: 31,3510           24737                                   TIMETHET                              #  COMPUTE TRANSFER TIME
038649,000215: 31,3511           43014                          BON      BON                                   
038650,000216: 31,3512           04313                                   COGAFLAG                              #  NO SOLUTION SINCE NEAR RECTILINEAR
038651,000217: 31,3513           63523                                   ETERROR                               
038652,000218: 31,3514           04310                                   INFINFLG                              #  NO PHYSICAL SOLUTION EXISTS
038653,000219: 31,3515           63523                                   ETERROR                               
038654,000220: 31,3516           43345                          DLOAD    DAD                                   #  COMPUTE GROUND ELAPSED TIME        PD=00
038655,000221: 31,3517           02323                                   VECTIME                               
038656,000222: 31,3520           00037                                   T                                     
038657,000223: 31,3521           77650                          GOTO                                           
038658,000224: 31,3522           02321                                   RETLOCN                               #  EXIT ELAPTIME
038659,000225: 31,3523           52145        ETERROR           DLOAD    GOTO                                  #  RETURN WITH ZERO
038660,000226: 31,3524           15332                                   HI6ZEROS                              
038661,000227: 31,3525           02321                                   RETLOCN                               
038662,000228: 
038663,000229:                                                                                                 # # Page 891
038664,000230:                                                                                                 #  SUBROUTINE TO CONVERT RP (VECTOR IN PLAN. COORD. SYSTEM, EITHER
038665,000231:                                                                                                 #  EARTH-FIXED OR MOON-FIXED) TO LAT, LONG, ALT.
038666,000232:                                                                                                 #  CALLING SEQUENCE
038667,000233:                                                                                                 #   L       CALL
038668,000234:                                                                                                 #   L+1            RPTOLONG
038669,000235:                                                                                                 #  SUBROUTINES USED
038670,000236:                                                                                                 #   RP-TO-R, LAT-LONG
038671,000237:                                                                                                 #  INPUT
038672,000238:                                                                                                 #   PD0-5D = RP VECTOR
038673,000239:                                                                                                 #   PD6-7D = TIME
038674,000240:                                                                                                 #   MPAC = 0 FOR EARTH, NON-ZERO FOR MOON.
038675,000241:                                                                                                 #   ERADFLAG, LUNAFLAG.
038676,000242:                                                                                                 #  OUTPUT
038677,000243:                                                                                                 #   LATITUDE IN LAT      (REVS. B-0)
038678,000244:                                                                                                 #   LONGITUDE IN LONG    (REVS. B-0)
038679,000245:                                                                                                 #   ALTITUDE IN ALT      (METERS B-29)
038680,000246: 30,2000                                          SETLOC   R35A                                  
038681,000247: 30,2000                                          BANK                                           
038682,000248: 
038683,000249: 30,3762           45020        RPTOLONG          STQ      CALL                                  #  SAVE RETURN
038684,000250: 30,3763           02321                                   RETLOCN                               
038685,000251: 30,3764           55341                                   RP-TO-R                               #  CONVERT RP TO R, B-27 FOR MOON
038686,000252: 30,3765           70414                          BOFF     VSR2                                  #  IF LUNAR RESCALE B-27 TO B-29
038687,000253: 30,3766           01743                                   LUNAFLAG                              
038688,000254: 30,3767           61770                                   +1                                    
038689,000255: 30,3770           16152                          STODL    ALPHAV                                
038690,000256: 30,3771           23534                                   RRCSML                                #  MPAC > DUMMY TIME
038691,000257: 30,3772           77624                          CALL                                           
038692,000258: 30,3773           26322                                   LAT-LONG                              
038693,000259: 30,3774           77650                          GOTO                                           
038694,000260: 30,3775           02321                                   RETLOCN                               
038695,000261: 31,2000                                          SETLOC   R35                                   
038696,000262: 31,2000                                          BANK                                           
038697,000263: 
038698,000264: 31,3526           77763        BANDTABL          DEC      -12        B-14                       #  +60 DEGREE BAND
038699,000265: 31,3527           77751                          DEC      -22        B-14                       #  +30 DEGREE BAND
038700,000266: 31,3530           77737                          DEC      -32        B-14                       #  +00 DEGREE BAND
038701,000267: 31,3531           77725                          DEC      -42        B-14                       #  -30 DEGREE BAND
038702,000268: 31,3532           77713                          DEC      -52        B-14                       #  -60 DEGREE BAND
038703,000269: 31,3533           37716 33106  RRCSML            2DEC     .997                                  
038704,000270: 31,3535           01442        V06N34**          VN       00634                                 #  ***************************************
038705,000271: 31,3536           01437        V06N31**          VN       00631                                 
038706,000272: 31,3537           01306        V05N70**          VN       00570                                 
038707,000273: 31,3540                        KCOUNT            EQUALS   5D                                    
038708,000274: 31,3540                        JCOUNT            EQUALS   2D                                    
038709,000275: 31,3540                        UNN               EQUALS   18D                                   
038710,000276: 31,3540                        UW                EQUALS   12D                                   
038711,000277: 31,3540                        URR               EQUALS   6D                                    
038712,000278: 31,3540                        UZZ               EQUALS   0D                                    
038713,000279: 
038714,000280:                                                                                                 # # Page 892
038715,000281:                                                                                                 #           **** TEMPORARY VALUES FOR LANDMARK TABLES-LEVINE/SAPONARO****
038716,000282: 
038717,000283:                                                                                                 #                LATTAB HAS LATITUDES THAT GO FROM +8 TO -8 DEGREES
038718,000284:                                                                                                 #                LONGTAB HAS LONGITUDES THAT GO FROM +60 TO -60 DEGREES
038719,000285:                                                                                                 #                LATTAB AND LONGTAB ARE SCALED REVOLUTIONS B0
038720,000286:                                                                                                 #                ALTTAB HAS ALTITUDES MEASURED ABOVE THE MEAN LUNAR RADIUS
038721,000287:                                                                                                 #                ALTTAB IS SCALED IN METERS B-29
038722,000288: 
038723,000289: 31,3540                                          COUNT    31/LNDMK                              
038724,000290: 31,3540           77406 56241  LATTAB            2DEC     -.015231481                            #    2     5  29 S
038725,000291: 31,3542           00043 24640                    2DEC     .002175926                            #    3     0  47 N
038726,000292: 31,3544           00046 25716                    2DEC     .002361111                            #    4     0  51 N
038727,000293: 31,3546           77741 65060                    2DEC     -.001851852                            #    5     0  40 S
038728,000294: 31,3550           00055 20266                    2DEC     .002777778                            #    6     1  00 N
038729,000295: 31,3552           77720 46646                    2DEC     -.002916667                            #    7     1  03 S
038730,000296: 31,3554           77646 57652                    2DEC     -.005462963                            #   10     1  58 S
038731,000297: 31,3556           00155 07202                    2DEC     .006666667                            #   11     2  24 N
038732,000298: 31,3560           00466 07373                    2DEC     .018935185                            #   12     6  49 N
038733,000299: 31,3562           00050 36561                    2DEC     .00250                                #   13     0  54 N
038734,000300: 31,3564           00070 04130                    2DEC     .003425926                            #   14     1  14 N
038735,000301: 31,3566           77662 64143                    2DEC     -.004722222                            #   15     1  42 S
038736,000302: 31,3570           77747 67215                    2DEC     -.001481481                            #   16     0  32 S
038737,000303: 31,3572           00062 32207                    2DEC     .003101852                            #   17     1  07  N
038738,000304: 31,3574           00070 34343                    2DEC     .003472222                            #   20     1  15 N        N
038739,000305: 31,3576           77463 46314                    2DEC     -.0125                                #   21     4  30 S
038740,000306: 31,3600           00004 21505                    2DEC     .000277777                            #   22     0  06 N
038741,000307: 31,3602           00271 32622                    2DEC     .011342592                            #   23     4  05 N
038742,000308: 31,3604           00101 07343                    2DEC     .003981481                            #   24     1  26 N
038743,000309: 31,3606           77574 70656                    2DEC     -.008009259                            #   25     2  53 S
038744,000310: 31,3610           00065 03052                    2DEC     .003240741                            #   26     1  10 N
038745,000311:                                                                                                 # # Page 893
038746,000312: 31,3612           77642 66360                    2DEC     -.005694444                            #   27     2  03 S
038747,000313: 31,3614           00045 05267                    2DEC     .002268518                            #   30     0  49 N
038748,000314: 31,3616           77577 71734                    2DEC     -.007824074                            #   31     2  49 S
038749,000315: 31,3620           00130 27711                    2DEC     .005416667                            #   32     1  57 N
038750,000316: 31,3622           05120 14712  LONGTAB           2DEC     .161157407                            #    2     58  01 E
038751,000317: 31,3624           05076 06264                    2DEC     .160046296                            #    3     57  37 E
038752,000318: 31,3626           04453 23531                    2DEC     .143287037                            #    4     51  35 E
038753,000319: 31,3630           03554 33074                    2DEC     .116018518                            #    5     41  46 E
038754,000320: 31,3632           03326 25112                    2DEC     .106851852                            #    6     38  28 E
038755,000321: 31,3634           03263 00252                    2DEC     .104675926                            #    7     37  41 E
038756,000322: 31,3636           03014 34505                    2DEC     .094537037                            #   10     34  02 E
038757,000323: 31,3640           03007 22564                    2DEC     .094212963                            #   11     33  55 E
038758,000324: 31,3642           02740 04432                    2DEC     .091805555                            #   12     33  03 E
038759,000325: 31,3644           02531 04017                    2DEC     .083564815                            #   13     30  05 E
038760,000326: 31,3646           02066 23501                    2DEC     .065833333                            #   14     23  42 E
038761,000327: 31,3650           01502 13664                    2DEC     .050925926                            #   15     18  20 E
038762,000328: 31,3652           01272 23036                    2DEC     .042638889                            #   16     15  21 E
038763,000329: 31,3654           00570 37365                    2DEC     .023009259                            #   17      8  17 E
038764,000330: 31,3656           00252 25253                    2DEC     .010416667                            #   20      3  45 E
038765,000331: 31,3660           00000 30213                    2DEC     .000046296                            #   21      0  01 E
038766,000332: 31,3662           77703 52142                    2DEC     -.003703704                            #   22      1  20 W
038767,000333: 31,3664           77254 76114                    2DEC     -.020694444                            #   23      7  27 W
038768,000334: 31,3666           77173 64334                    2DEC     -.023703704                            #   24      8  32 W
038769,000335: 31,3670           76265 51114                    2DEC     -.051435185                            #   25     18  31 W
038770,000336: 31,3672           75644 77223                    2DEC     -.068055556                            #   26     24  30 W
038771,000337:                                                                                                 # # Page 894
038772,000338: 31,3674           75215 72762                    2DEC     -.085092593                            #   27     30  38 W
038773,000339: 31,3676           74613 76225                    2DEC     -.100833333                            #   30     36  18 W
038774,000340: 31,3700           74571 67600                    2DEC     -.101944444                            #   31     36  42 W
038775,000341: 31,3702           74174 54550                    2DEC     -.117407407                            #   32     42  16 W
038776,000342: 31,3704           77777 75752  ALTTAB            2DEC     -2090      B-29                       #   2
038777,000343: 31,3706           77777 75752                    2DEC     -2090      B-29                       #   3
038778,000344: 31,3710           77777 76200                    2DEC     -1790      B-29                       #   4
038779,000345: 31,3712           77777 76736                    2DEC     -1090      B-29                       #   5
038780,000346: 31,3714           77777 77051                    2DEC     -940       B-29                       #   6
038781,000347: 31,3716           77777 77556                    2DEC     -290       B-29                       #   7
038782,000348: 31,3720           77777 77556                    2DEC     -290       B-29                       #   10
038783,000349: 31,3722           77777 76370                    2DEC     -1549      B-29                       #   11
038784,000350: 31,3724           77777 77102                    2DEC     -890       B-29                       #   12
038785,000351: 31,3726           77777 76426                    2DEC     -1490      B-29                       #   13
038786,000352: 31,3730           77777 74660                    2DEC     -3230      B-29                       #   14
038787,000353: 31,3732           00000 04773                    2DEC     5110       B-29                       #   15
038788,000354: 31,3734           00000 06577                    2DEC     6910       B-29                       #   16
038789,000355: 31,3736           00000 04773                    2DEC     5110       B-29                       #   17
038790,000356: 31,3740           00000 02741                    2DEC     3010       B-29                       #   20
038791,000357: 31,3742           00000 03643                    2DEC     3910       B-29                       #   21
038792,000358: 31,3744           77777 77053                    2DEC     -935       B-29                       #   22
038793,000359: 31,3746           00000 02234                    2DEC     2360       B-29                       #   23
038794,000360: 31,3750           00000 02347                    2DEC     2510       B-29                       #   24
038795,000361: 31,3752           00000 00151                    2DEC     210        B-29                       #   25
038796,000362: 31,3754           00000 00740                    2DEC     960        B-29                       #   26
038797,000363:                                                                                                 # # Page 895
038798,000364: 31,3756           00000 01217                    2DEC     1310       B-29                       #   27
038799,000365: 31,3760           00000 01301                    2DEC     1410       B-29                       #   30
038800,000366: 31,3762           77777 75337                    2DEC     -2624      B-29                       #   31
038801,000367: 31,3764           77777 75470                    2DEC     -2445      B-29                       #   32

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