Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

013126,000002:                                                                                                 #  Copyright:     Public domain.
013127,000003:                                                                                                 #  Filename:      CSM_GEOMETRY.agc
013128,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
013129,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
013130,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
013131,000007:                                                                                                 #                 Apollo 15-17.
013132,000008:                                                                                                 #  Assembler:     yaYUL
013133,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
013134,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
013135,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
013136,000012:                                                                                                 #  Mod history:   2009-08-08 JL   Adapted from corresponding Comanche 055 file.
013137,000013:                                                                                                 #                 2010-02-08 JL   Fixed a line that should have been commented out on p305.
013138,000014:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
013139,000015: 
013140,000016:                                                                                                 # # Page 297
013141,000017: 
013142,000018: 23,2000                                          SETLOC   COMGEOM1                              
013143,000019: 23,2000                                          BANK                                           
013144,000020: 
013145,000021:                                                                                                 #  THIS ROUTINE TAKES THE SHAFT AND TRUNNION ANGLES AS READ BY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A UNIT
013146,000022:                                                                                                 #  VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WTIH THE SEXTANT LINE OF SIGHT.
013147,000023: 
013148,000024:                                                                                                 #  THE INPUTS ARE  1) THE SEXTANT SHAFT AND TRUNNION ANGLES ARE STORED SP IN LOCATIONS 3 AND 5 RESPECTIVELY OF THE
013149,000025:                                                                                                 #  MARK VAC AREA.  2) THE COMPLEMENT OF THE BASE ADDRESS OF THE MARK VAC AREA IS STORED SP AT LOCATION X1 OF YOUR
013150,000026:                                                                                                 #  JOB VAC AREA.
013151,000027: 
013152,000028:                                                                                                 #  THE OUTPUT IS A HALF-UNIT VECTOR IN NAVIGATION BASE COORDINATES AND STORED AT LOCATION 32D OF THE VAC AREA. THE
013153,000029:                                                                                                 #  OUTPUT IS ALSO AVAILABLE AT MPAC.
013154,000030: 
013155,000031: 23,2000                                          COUNT*   $$/GEOM                               
013156,000032: 23,2000           47133        SXTNB             SLOAD*   RTB                                   #  PUSHDOWN 00,02,04,(17D-19D),32D-36D
013157,000033: 23,2001           00006                                   5,1                                   #  TRUNNION = TA
013158,000034: 23,2002           51754                                   CDULOGIC                              
013159,000035: 23,2003           41434                          RTB      PUSH                                  
013160,000036: 23,2004           46027                                   SXTLOGIC                              
013161,000037: 23,2005           72556                          SIN      SL1                                   
013162,000038: 23,2006           66606                          PUSH     SLOAD*                                #  PD2 = SIN(TA)
013163,000039: 23,2007           00004                                   3,1                                   #  SHAFT = SA
013164,000040: 23,2010           41434                          RTB      PUSH                                  #  PD4 = SA
013165,000041: 23,2011           51754                                   CDULOGIC                              
013166,000042: 
013167,000043: 23,2012           41346                          COS      DMP                                   
013168,000044: 23,2013           00003                                   2                                     
013169,000045: 23,2014           14041                          STODL    STARM                                 #  COS(SA)SIN(TA)
013170,000046: 
013171,000047: 23,2015           41356                          SIN      DMP                                   
013172,000048: 23,2016           77626                          STADR                                          
013173,000049: 23,2017           63734                          STODL    STARM      +2                         #  SIN(SA)SIN(TA)
013174,000050: 
013175,000051: 23,2020           77746                          COS                                            
013176,000052: 23,2021           24045                          STOVL    STARM      +4                         
013177,000053: 23,2022           00041                                   STARM                                 #  STARM = 32D
013178,000054: 23,2023           76521                          MXV      VSL1                                  
013179,000055: 23,2024           06300                                   NB1NB2                                
013180,000056: 23,2025           00041                          STORE    32D                                   
013181,000057: 23,2026           77616                          RVQ                                            
013182,000058: 
013183,000059: 23,2027           32321        SXTLOGIC          CAF      10DEGS-                               #  CORRECT FOR 19.775 DEGREE OFFSET
013184,000060: 23,2030           26154                          ADS      MPAC                                  
013185,000061: 23,2031           34754                          CAF      QUARTER                               
013186,000062: 23,2032           07256                          TC       SHORTMP                               
013187,000063: 23,2033           06030                          TC       DANZIG                                
013188,000064: 
013189,000065:                                                                                                 # # Page 298
013190,000066: 
013191,000067:                                                                                                 #  CALCSXA COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE-
013192,000068:                                                                                                 #  OF-SIGHT LIES ALONG THE STAR VECTOR. THE ROUTINE TAKES THE GIVEN STAR VECTOR AND EXPRESSES IT AS A VECTOR REF-
013193,000069:                                                                                                 #  ERENCED TO THE OPTICS COORDINATE SYSTEM. IN ADDITION IT SETS UP THREE UNIT VECTORS DEFINING THE X, Y, AND Z AXES
013194,000070:                                                                                                 #  REFERENCED TO THE OPTICS COORDINATE SYSTEM.
013195,000071: 
013196,000072:                                                                                                 #  THE INPUTS ARE  1) THE STAR VECTOR REFERRED TO THE PRESENT STABLE MEMMBER COORDINATES STORED AT STAR.  2) SAME ANGLE
013197,000073:                                                                                                 #  INPUT AS *SMNB*, I.E., SINES AND COSINES OF THE CDU ANGLES, IN THE ORDER Y Z X, AT SINCDU AND COSCDU.  A CALL
013198,000074:                                                                                                 #  TO CDUTRIG WILL PROVIDE THIS INPUT.
013199,000075: 
013200,000076:                                                                                                 #  THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY.  (LOW ORDER PART
013201,000077:                                                                                                 #  EQUAL TO ZERO).
013202,000078: 
013203,000079: 23,2034           77220        CALCSXA           ITA      VLOAD                                 #  PUSHDOWN 00-26D,28D,30D,32D-36D
013204,000080: 23,2035           00034                                   28D                                   
013205,000081: 23,2036           02766                                   STAR                                  
013206,000082: 23,2037           77624                          CALL                                           
013207,000083: 23,2040           47633                                   *SMNB*                                
013208,000084: 23,2041           76521                          MXV      VSL1                                  
013209,000085: 23,2042           06256                                   NB2NB1                                
013210,000086: 23,2043           26766                          STOVL    STAR                                  
013211,000087: 23,2044           15334                                   HIUNITX                               
013212,000088: 23,2045           26555                          STOVL    XNB1                                  
013213,000089: 23,2046           15332                                   HIUNITY                               
013214,000090: 23,2047           26563                          STOVL    YNB1                                  
013215,000091: 23,2050           15330                                   HIUNITZ                               
013216,000092: 23,2051           36571                          STCALL   ZNB1                                  
013217,000093: 23,2052           46076                                   SXTANG1                               
013218,000094: 
013219,000095:                                                                                                 # # Page 299
013220,000096: 
013221,000097:                                                                                                 #  SXTANG COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE-OF-
013222,000098:                                                                                                 #  SIGHT LIES ALONG THE STAR VECTOR.
013223,000099: 
013224,000100:                                                                                                 #  THE INPUTS ARE  1) THE STAR VECTOR REFERRED TO ANY COORDINATE SYSTEM STORED AT STAR.  2) THE NAVIGATION BASE
013225,000101:                                                                                                 #  COORDINATES REFERRED TO THE SAME COORDINATE SYSTEM. THESE THREE HALF-UNIT VECTORS ARE STORED AT XNB, YNB, AND
013226,000102:                                                                                                 #  ZNB.
013227,000103: 
013228,000104:                                                                                                 #  THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY.  (LOW ORDER PART
013229,000105:                                                                                                 #  EQUAL TO ZERO).
013230,000106: 
013231,000107: 23,2053           47020        SXTANG            ITA      RTB                                   #  PUSHDOWN 16D,18D,22D-26D,28D
013232,000108: 23,2054           00034                                   28D                                   
013233,000109: 23,2055           45731                                   TRANSP1                               #  EREF WRT NB2
013234,000110: 23,2056           64375                          VLOAD    MXV                                   
013235,000111: 23,2057           02714                                   XNB                                   
013236,000112: 23,2060           06256                                   NB2NB1                                
013237,000113: 23,2061           77772                          VSL1                                           
013238,000114: 23,2062           26555                          STOVL    XNB1                                  
013239,000115: 23,2063           02722                                   YNB                                   
013240,000116: 23,2064           76521                          MXV      VSL1                                  
013241,000117: 23,2065           06256                                   NB2NB1                                
013242,000118: 23,2066           26563                          STOVL    YNB1                                  
013243,000119: 23,2067           02730                                   ZNB                                   
013244,000120: 23,2070           76521                          MXV      VSL1                                  
013245,000121: 23,2071           06256                                   NB2NB1                                
013246,000122: 23,2072           02571                          STORE    ZNB1                                  
013247,000123: 
013248,000124: 23,2073           47034                          RTB      RTB                                   
013249,000125: 23,2074           45731                                   TRANSP1                               
013250,000126: 23,2075           45745                                   TRANSP2                               
013251,000127: 
013252,000128: 23,2076           47375        SXTANG1           VLOAD    VXV                                   
013253,000129: 23,2077           02571                                   ZNB1                                  
013254,000130: 23,2100           02766                                   STAR                                  
013255,000131: 23,2101           77600                          BOV                                            
013256,000132: 23,2102           46103                                   +1                                    
013257,000133: 23,2103           40056                          UNIT     BOV                                   
013258,000134: 23,2104           46145                                   ZNB=S1                                
013259,000135: 23,2105           00027                          STORE    PDA                                   #  PDA = UNIT(ZNB X S)
013260,000136: 
013261,000137: 23,2106           57441                          DOT      DCOMP                                 
013262,000138: 23,2107           02555                                   XNB1                                  
013263,000139: 23,2110           24023                          STOVL    SINTH                                 #  SIN(SA) = PDA . -XNB
013264,000140: 23,2111           00027                                   PDA                                   
013265,000141: 
013266,000142: 23,2112           77641                          DOT                                            
013267,000143: 23,2113           02563                                   YNB1                                  
013268,000144: 23,2114           34021                          STCALL   COSTH                                 #  COS(SA) = PDA . YNB
013269,000145: 23,2115           47311                                   ARCTRIG                               
013270,000146:                                                                                                 # # Page 300
013271,000147: 23,2116           77634                          RTB                                            
013272,000148: 23,2117           45640                                   1STO2S                                
013273,000149: 23,2120           26774                          STOVL    SAC                                   
013274,000150: 23,2121           02766                                   STAR                                  
013275,000151: 23,2122           77600                          BOV                                            
013276,000152: 23,2123           46124                                   +1                                    
013277,000153: 23,2124           72441                          DOT      SL1                                   
013278,000154: 23,2125           02571                                   ZNB1                                  
013279,000155: 23,2126           77726                          ACOS                                           
013280,000156: 23,2127           62440                          BMN      SL2                                   
013281,000157: 23,2130           46142                                   SXTALARM                              #  TRUNNION ANGLE NEGATIVE
013282,000158: 23,2131           45200                          BOV      DSU                                   
013283,000159: 23,2132           46142                                   SXTALARM                              #  TRUNNION ANGLE GREATER THAN 90 DEGREES
013284,000160: 23,2133           06327                                   20DEG-                                
013285,000161: 23,2134           77634                          RTB                                            
013286,000162: 23,2135           45640                                   1STO2S                                
013287,000163: 23,2136           02776                          STORE    PAC                                   #  FOR FLIGHT USE, CULTFLAG IS ON IF
013288,000164: 23,2137           77614                          CLRGO                                          #  TRUNION IS GREATER THAN 90 DEG
013289,000165: 23,2140           01630                                   CULTFLAG                              
013290,000166: 23,2141           00034                                   28D                                   
013291,000167: 23,2142           77614        SXTALARM          SETGO                                          #  ALARM HAS BEEN REMOVED FROM THIS
013292,000168: 23,2143           01430                                   CULTFLAG                              
013293,000169: 23,2144           00034                                   28D                                   #  SUBROUTINE, ALARM WILL BE SET BY MPI
013294,000170: 23,2145           77745        ZNB=S1            DLOAD                                          
013295,000171: 23,2146           06323                                   270DEG                                
013296,000172: 23,2147           16774                          STODL    SAC                                   
013297,000173: 23,2150           06325                                   20DEGS-                               
013298,000174: 23,2151           02776                          STORE    PAC                                   
013299,000175: 23,2152           77614                          CLRGO                                          
013300,000176: 23,2153           01630                                   CULTFLAG                              
013301,000177: 23,2154           00034                                   28D                                   
013302,000178: 
013303,000179:                                                                                                 # # Page 301
013304,000180: 
013305,000181:                                                                                                 #  THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM, CSM BY ADDING
013306,000182:                                                                                                 #  THE CONIC R,V AND THE DEVIATIONS R,V.  THE STATE VECTORS ARE CONVERTED TO
013307,000183:                                                                                                 #  METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR
013308,000184:                                                                                                 #  R-OTHER , V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE
013309,000185:                                                                                                 #  OTHER VEHICLES COMPUTER.
013310,000186: 
013311,000187:                                                                                                 #  INPUT
013312,000188:                                                                                                 #         STATE VECTOR IN TEMPORARY STORAGE AREA
013313,000189:                                                                                                 #         IF STATE VECTOR IS SCALED POS B27 AND VEL B5
013314,000190:                                                                                                 #                 SET X2 TO +2
013315,000191:                                                                                                 #         IF STATE VECTOR IS SCALED POS B29 AND VEL B7
013316,000192:                                                                                                 #                 SET X2 TO 0
013317,000193: 
013318,000194:                                                                                                 #  OUTPUT
013319,000195:                                                                                                 #         R(T) IN RN, V(T) IN VN, T IN PIPTIME
013320,000196:                                                                                                 #  OR
013321,000197:                                                                                                 #         R(T) IN R-OTHER, V(T) IN V-OTHER        (T IS DEFINED BY T-OTHER)
013322,000198: 
013323,000199: 10,2000                                          SETLOC   COMGEOM2                              
013324,000200: 10,2000                                          BANK                                           
013325,000201: 10,2240                                          COUNT*   $$/GEOM                               
013326,000202: 10,2240           43414        SVDWN1            BOF      RVQ                                   #  SW=1=AVETOMID DOING W-MATRIX INTEG
013327,000203: 10,2241           04756                                   AVEMIDSW                              
013328,000204: 10,2242           20243                                   +1                                    
013329,000205: 10,2243           53775                          VLOAD    VSL*                                  
013330,000206: 10,2244           01521                                   TDELTAV                               
013331,000207: 10,2245           57605                                   0          -7,2                       
013332,000208: 10,2246           53655                          VAD      VSL*                                  
013333,000209: 10,2247           01535                                   RCV                                   
013334,000210: 10,2250           57576                                   0,2                                   
013335,000211: 10,2251           25030                          STOVL    RN                                    
013336,000212: 10,2252           01527                                   TNUV                                  
013337,000213: 10,2253           53257                          VSL*     VAD                                   
013338,000214: 10,2254           57602                                   0          -4,2                       
013339,000215: 10,2255           01543                                   VCV                                   
013340,000216: 10,2256           77657                          VSL*                                           
013341,000217: 10,2257           57576                                   0,2                                   
013342,000218: 10,2260           15036                          STODL    VN                                    
013343,000219: 10,2261           01517                                   TET                                   
013344,000220: 10,2262           01044                          STORE    PIPTIME                               
013345,000221: 10,2263           77616                          RVQ                                            
013346,000222: 
013347,000223: 10,2264           53775        SVDWN2            VLOAD    VSL*                                  
013348,000224: 10,2265           01521                                   TDELTAV                               
013349,000225: 10,2266           57605                                   0          -7,2                       
013350,000226: 10,2267           53655                          VAD      VSL*                                  
013351,000227: 10,2270           01535                                   RCV                                   
013352,000228: 10,2271           57576                                   0,2                                   
013353,000229:                                                                                                 # # Page 302
013354,000230: 10,2272           25720                          STOVL    R-OTHER                               
013355,000231: 10,2273           01527                                   TNUV                                  
013356,000232: 10,2274           53257                          VSL*     VAD                                   
013357,000233: 10,2275           57602                                   0          -4,2                       
013358,000234: 10,2276           01543                                   VCV                                   
013359,000235: 10,2277           77657                          VSL*                                           
013360,000236: 10,2300           57576                                   0,2                                   
013361,000237: 10,2301           01726                          STORE    V-OTHER                               
013362,000238: 10,2302           77616                          RVQ                                            
013363,000239: 
013364,000240:                                                                                                 # # Page 303
013365,000241: 
013366,000242:                                                                                                 #  SUBROUTINE TO COMPUTE THE NATURAL LOG OF C(MPAC, MPAC +1).
013367,000243: 
013368,000244:                                                                                                 #         ENTRY:  CALL
013369,000245:                                                                                                 #                         LOG
013370,000246: 
013371,000247:                                                                                                 #  SUBROUTINE RETURNS WITH -LOG IN DP MPAC.
013372,000248: 
013373,000249:                                                                                                 #  EBANK IS ARBITRARY..
013374,000250: 
013375,000251: 23,2000                                          SETLOC   POWFLIT2                              
013376,000252: 23,2000                                          BANK                                           
013377,000253: 23,2155                                          COUNT*   $$/GEOM                               
013378,000254: 23,2155           44301        LOG               NORM     BDSU                                  #  GENERATES LOG BY SHIFTING ARG
013379,000255: 23,2156           00160                                   MPAC       +3                         #  UNTIL IT LIES BETWEEN .5 AND 1.
013380,000256: 23,2157           15344                                   NEARLY1                               #  THE LOG OF THIS PART IS FOUND AND THE
013381,000257: 23,2160           77776                          EXIT                                           #  LOG OF THE SHIFTED PART IS COMPUTED
013382,000258: 
013383,000259: 23,2161           07171                          TC       POLY                                  #  AND ADDED IN. SHIFT COUNT STORED
013384,000260: 
013385,000261: 23,2162           00002                          DEC      2          B-14                       #  (N-1, SUPPLIED BY SMERZH)
013386,000262: 23,2163           00000 00000                    2DEC     0          B-28                       #  IN MPAC +3.
013387,000263: 23,2165           01001 14636                    2DEC     .031335467                            
013388,000264: 23,2167           00325 07310                    2DEC     .0130145859                            
013389,000265: 23,2171           00541 16735                    2DEC     .0215738898                            
013390,000266: 
013391,000267: 23,2173           34772                          CAF      ZERO                                  
013392,000268: 23,2174           54156                          TS       MPAC       +2                         
013393,000269: 23,2175           00006                          EXTEND                                         
013394,000270: 23,2176           32212                          DCA      CLOG2/32                              
013395,000271: 23,2177           52155                          DXCH     MPAC                                  
013396,000272: 23,2200           52160                          DXCH     MPAC       +3                         
013397,000273: 23,2201           40000                          COM                                            #  LOAD POSITIVE SHIFT COUNT IN A.
013398,000274: 23,2202           07256                          TC       SHORTMP                               #  MULTIPLY BY SHIFT COUNT.
013399,000275: 
013400,000276: 23,2203           52156                          DXCH     MPAC       +1                         
013401,000277: 23,2204           52155                          DXCH     MPAC                                  
013402,000278: 23,2205           52160                          DXCH     MPAC       +3                         
013403,000279: 23,2206           20155                          DAS      MPAC                                  
013404,000280: 23,2207           06006                          TC       INTPRET                               #  RESULT IN MPAC, MPAC +1
013405,000281: 
013406,000282: 23,2210           77616                          RVQ                                            
013407,000283: 
013408,000284: 23,2211  26,3343               NEARLY1           =        NEARONE                               
013409,000285: 23,2211           00542 34414  CLOG2/32          2DEC     .0216608494                            
013410,000286: 
013411,000287:                                                                                                 # # Page 304
013412,000288: 
013413,000289:                                                                                                 #  SUBROUTINE NAME:  EARTH ROTATOR        (EARROT1 OR EARROT2)            DATE:  15 FEB 67
013414,000290:                                                                                                 #  MOD NO:  N +1                                                          LOG SECTION:  POWERED FLIGHT SUBROS
013415,000291:                                                                                                 #  MOD BY:  ENTRY GROUP (BAIRNSFATHER)
013416,000292: 
013417,000293:                                                                                                 #  FUNCTIONAL DESCRIPTION:  THIS ROUTINE PROJECTS THE INITIAL EARTH TARGET VECTOR   RTINIT   AHEAD THROUGH
013418,000294:                                                                                                 #         THE ESTIMATED TIME OF FLIGHT. INITIAL CALL RESOLVES THE INITIAL TARGET VECTOR   RTINIT   INTO EASTERLY
013419,000295:                                                                                                 #         AND NORMAL COMPONENTS   RTEAST   AND   RTNORM   . INITIAL AND SUBSEQUENT CALLS ROTATE THIS VECTOR
013420,000296:                                                                                                 #         ABOUT THE (FULL) UNIT POLAR AXIS   UNITW   THROUGH THE ANGLE   WIE DTEAROT   TO OBTAIN THE ROTATED
013421,000297:                                                                                                 #         TARGET VECTOR   RT   . ALL VECTORS EXCEPT   UNITW   ARE HALF UNIT.
013422,000298:                                                                                                 #         THE EQUATIONS ARE:
013423,000299:                                                                                                 #                 _    _        _                      _
013424,000300:                                                                                                 #                 RT = RTINIT + RTNORM (COS(WT) - 1) + RTEAST SIN(WT)
013425,000301: 
013426,000302:                                                                                                 #         WHERE   WT = WIE DTEAROT
013427,000303: 
013428,000304:                                                                                                 #                 RTINIT = INITIAL TARGET VECTOR
013429,000305:                                                                                                 #                 _        _       _
013430,000306:                                                                                                 #                 RTEAST = UNITW * RTINIT
013431,000307:                                                                                                 #                 _        _        _
013432,000308:                                                                                                 #                 RTNORM = RTEAST * UNITW
013433,000309: 
013434,000310:                                                                                                 #         FOR CONTINUOUS UPDATING, ONLY ONE ENTRY TO EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2.
013435,000311: 
013436,000312:                                                                                                 #  CALLING SEQUENCE:      FIRST CALL                      SUBSEQUENT CALL
013437,000313:                                                                                                 #                         STCALL  DTEAROT                 STCALL  DTEAROT
013438,000314:                                                                                                 #                                 EARROT1                         EARROT2
013439,000315:                                                                                                 #                         C(MPAC) UNSPECIFIED             C(MPAC) = DTEAROT
013440,000316:                                                                                                 #         PUSHLOC = PDL+0, ARBITRARY.  6 LOCATIONS USED.
013441,000317: 
013442,000318:                                                                                                 #  SUBROUTINES USED:  NONE
013443,000319: 
013444,000320:                                                                                                 #  NORMAL EXIT MODES:  RVQ
013445,000321: 
013446,000322:                                                                                                 #  ALARMS:  NONE
013447,000323: 
013448,000324:                                                                                                 #  OUTPUT:        RTEAST  (-1)            .5 UNIT VECTOR EAST, COMPNT OF RTINIT   LEFT BY FIRST CALL
013449,000325:                                                                                                 #                 RTNORM  (-1)            .5 UNIT VECTOR NORML, COMPNT OF RTINIT  LEFT BY FIRST CALL
013450,000326:                                                                                                 #                 RT      (-1)            .5 UNIT TARGET VECTOR, ROTATED          LEFT BY ALL CALLS
013451,000327:                                                                                                 #                 DTEAROT (-28) CS        MAY BE CHANGED BY EARROT2, IF OVER 1 DAY
013452,000328: 
013453,000329:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED:
013454,000330:                                                                                                 #                 UNITW   (0)             UNIT POLAR VECTOR                       PAD LOADED
013455,000331:                                                                                                 #                 RTINIT  (-1)            .5 UNIT INITIAL TARGET VECTOR           LEFT BY ENTRY
013456,000332:                                                                                                 #                 DTEAROT (-28) CS        TIME OF FLIGHT                          LEFT BY CALLER
013457,000333: 
013458,000334:                                                                                                 #  DEBRIS:  QPRET, PDL+0 ... PDL+5
013459,000335: 
013460,000336:                                                                                                 # # Page 305
013461,000337: 23,2213  E7,1451                                 EBANK=   RTINIT                                
013462,000338: 
013463,000339: 23,2213           47375        EARROT1           VLOAD    VXV                                   
013464,000340: 23,2214           01712                                   UNITW                                 #  FULL UNIT VECTOR
013465,000341: 23,2215           03452                                   RTINIT                                #  .5 UNIT
013466,000342: 23,2216           03460                          STORE    RTEAST                                #  .5 UNIT
013467,000343: 
013468,000344: 23,2217           77635                          VXV                                            
013469,000345: 23,2220           01712                                   UNITW                                 #  FULL UNIT
013470,000346: 23,2221           17466                          STODL    RTNORM                                #  .5 UNIT
013471,000347: 23,2222           03606                                   DTEAROT                               #  (-28) CS
013472,000348: 
013473,000349: 23,2223           56204        EARROT2           BOVB     DDV                                   
013474,000350: 23,2224           57544                                   TCDANZIG                              #  RESET OVFIND, IF ON
013475,000351: 23,2225           06254                                   1/WIE                                 
013476,000352: 23,2226           41400                          BOV      PUSH                                  
013477,000353: 23,2227           46243                                   OVERADAY                              
013478,000354: 23,2230           45346                          COS      DSU                                   
013479,000355: 23,2231           15334                                   HIDPHALF                              
013480,000356: 23,2232           65361                          VXSC     PDDL                                  #  XCH W PUSH LIST
013481,000357: 23,2233           03466                                   RTNORM                                #  .5 UNIT
013482,000358: 23,2234           74356                          SIN      VXSC                                  
013483,000359: 23,2235           03460                                   RTEAST                                #  .5 UNIT
013484,000360: 23,2236           76455                          VAD      VSL1                                  
013485,000361: 23,2237           53455                          VAD      UNIT                                  #  INSURE THAT RT IS 'UNIT'.
013486,000362: 23,2240           03452                                   RTINIT                                #  .5 UNIT
013487,000363: 23,2241           03474                          STORE    RT                                    #  .5 UNIT TARGET VECTOR
013488,000364: 
013489,000365: 23,2242           77616                          RVQ                                            
013490,000366: 
013491,000367: 23,2243           75345        OVERADAY          DLOAD    SIGN                                  
013492,000368: 23,2244           06254                                   1/WIE                                 
013493,000369: 23,2245           03606                                   DTEAROT                               
013494,000370: 23,2246           77621                          BDSU                                           
013495,000371: 23,2247           03606                                   DTEAROT                               
013496,000372: 23,2250           03606                          STORE    DTEAROT                               
013497,000373: 
013498,000374: 23,2251           77650                          GOTO                                           
013499,000375: 23,2252           46223                                   EARROT2                               
013500,000376: 
013501,000377:                                                                                                 # WIE             2DEC    .1901487997
013502,000378: 23,2253           01015 34732  1/WIE             2DEC     8616410    B-28                       
013503,000379: 
013504,000380: 23,2255           15373 11346  NB2NB1            2DEC     +.8431756920 B-1                        
013505,000381: 23,2257           00000 00000                    2DEC     0          B-28                       
013506,000382: 23,2261           67313 65307                    2DEC     -.5376381241 B-1                        
013507,000383: 
013508,000384:                                                                                                 # # Page 306
013509,000385: 
013510,000386: 23,2263           00000 00000  ZERINFLT          2DEC     0          B-28                       
013511,000387: 
013512,000388: 23,2265           20000 00000  HALFNFLT          2DEC     .5                                    
013513,000389: 23,2267           00000 00000                    2DEC     0          B-28                       
013514,000390: 23,2271           10464 12470                    2DEC     +.5376381241 B-1                        
013515,000391: 23,2273           00000 00000                    2DEC     0          B-28                       
013516,000392: 23,2275           15373 11346                    2DEC     +.8431756920 B-1                        
013517,000393: 
013518,000394: 23,2277           15373 11346  NB1NB2            2DEC     +.8431756920 B-1                        
013519,000395: 23,2301           00000 00000                    2DEC     0          B-28                       
013520,000396: 23,2303           10464 12470                    2DEC     +.5376381241 B-1                        
013521,000397: 23,2305           00000 00000                    2DEC     0          B-28                       
013522,000398: 23,2307           20000 00000                    2DEC     .5                                    
013523,000399: 23,2311           00000 00000                    2DEC     0          B-28                       
013524,000400: 23,2313           67313 65307                    2DEC     -.5376381241 B-1                        
013525,000401: 23,2315           00000 00000                    2DEC     0          B-28                       
013526,000402: 23,2317           15373 11346                    2DEC     +.8431756920 B-1                        
013527,000403: 
013528,000404:                                                                                                 # # Page 307
013529,000405: 
013530,000406: 23,2321           07020        10DEGS-           DEC      3600       B-14                       
013531,000407: 
013532,000408: 23,2322           60000        270DEG            OCT      60000                                 #  SHAFT   270 DEGREES    25 COMP.
013533,000409: 23,2323           00000                          OCT      00000                                 
013534,000410: 
013535,000411: 23,2324           61740        20DEGS-           DEC      -07199     B-14                       
013536,000412: 23,2325           77777                          DEC      -00000     B-14                       
013537,000413: 
013538,000414: 23,2326           07020        20DEG-            DEC      03600      B-14                       
013539,000415: 23,2327           00000                          DEC      00000      B-14                       

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