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

012101,000002:                                                                                                 #  Copyright:     Public domain.
012102,000003:                                                                                                 #  Filename:      CSM_GEOMETRY.agc
012103,000004:                                                                                                 #  Purpose:       Part of the source code for Colossus build 237.  
012104,000005:                                                                                                 #                 This is for the Command Module's (CM) Apollo Guidance
012105,000006:                                                                                                 #                 Computer (AGC), we believe for Apollo 8.
012106,000007:                                                                                                 #  Assembler:     yaYUL
012107,000008:                                                                                                 #  Contact:       Onno Hommes <ohommes@alumni.cmu.edu>
012108,000009:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
012109,000010:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Colossus237/
012110,000011:                                                                                                 #  Mod history:   2010-05-30 OH   Adapted from corresponding Colossus 249 file.
012111,000012:                                                                                                 #                 2010-12-04 JL   Remove Colossus 249 header comments. Change to double-hash page numbers.
012112,000013:                                                                                                 #                 2010-01-16 JL   Minor fixes.
012113,000014: 
012114,000015:                                                                                                 # # Page 278
012115,000016: 22,2000                                          BANK     22                                    
012116,000017: 23,2000                                          SETLOC   COMGEOM1                              
012117,000018: 23,2000                                          BANK                                           
012118,000019: 
012119,000020:                                                                                                 #  THIS ROUTINE TAKES THE SHAFT AND TRUNNION ANGLES AS READ BY THE CM OPTICAL SYSTEM AND CONVERTS THEM INTO A  UNIT
012120,000021:                                                                                                 #  VECTOR REFERENCED TO THE NAVIGATION BASE COORDINATE SYSTEM AND COINCIDENT WTIH THE SEXTANT LINE OF SIGHT.
012121,000022: 
012122,000023:                                                                                                 #  THE INPUTS ARE  1) THE SEXTAND SHAFT AND TRUNNION ANGLES ARE STORED SP IN LOCATIONS 3 AND 5 RESPECTIVELY OF THE
012123,000024:                                                                                                 #  MARK VAC AREA.  2) THE COMPLEMENT OF THE BASE ADDRESS OF THE MARK VAC AREA IS STORED SP AT LOCATION X1 OF YOUR
012124,000025:                                                                                                 #  JOB VAC AREA.
012125,000026: 
012126,000027:                                                                                                 #  THE OUTPUT IS A HALF-UNIT VECTOR IN NAVIGATION BASE COORDINATES AND STORED AT LOCATION 32D OF THE VAC AREA. THE
012127,000028:                                                                                                 #  OUTPUT IS ALSO AVAILABLE AT MPAC.
012128,000029: 
012129,000030: 
012130,000031: 23,2000                                          COUNT    23/GEOM                               
012131,000032: 
012132,000033: 23,2000           47133        SXTNB             SLOAD*   RTB                                   #  PUSHDOWN  00,02,04,(17D-19D),32D-36D
012133,000034: 23,2001           00006                                   5,1                                   #  TRUNNION = TA
012134,000035: 23,2002           45510                                   CDULOGIC                              
012135,000036: 23,2003           41434                          RTB      PUSH                                  
012136,000037: 23,2004           46027                                   SXTLOGIC                              
012137,000038: 23,2005           72556                          SIN      SL1                                   
012138,000039: 23,2006           66606                          PUSH     SLOAD*                                #  PD2 = SIN(TA)
012139,000040: 23,2007           00004                                   3,1                                   #  SHAFT = SA
012140,000041: 23,2010           41434                          RTB      PUSH                                  #  PD4 = SA
012141,000042: 23,2011           45510                                   CDULOGIC                              
012142,000043: 
012143,000044: 23,2012           41346                          COS      DMP                                   
012144,000045: 23,2013           00003                                   2                                     
012145,000046: 23,2014           14041                          STODL    STARM                                 #  COS(SA)SIN(TA)
012146,000047: 
012147,000048: 23,2015           41356                          SIN      DMP                                   
012148,000049: 23,2016           77626                          STADR                                          
012149,000050: 23,2017           63734                          STODL    STARM      +2                         #  SIN(SA)SIN(TA)
012150,000051: 
012151,000052: 23,2020           77746                          COS                                            
012152,000053: 23,2021           24045                          STOVL    STARM      +4                         
012153,000054: 23,2022           00041                                   STARM                                 #  STARM = 32D
012154,000055: 23,2023           76521                          MXV      VSL1                                  
012155,000056: 23,2024           06302                                   NB1NB2                                
012156,000057: 23,2025           00041                          STORE    32D                                   
012157,000058: 23,2026           77616                          RVQ                                            
012158,000059: 
012159,000060: 
012160,000061: 23,2027           32323        SXTLOGIC          CAF      10DEGS-                               #  CORRECT FOR 19.775 DEGREE OFFSET
012161,000062: 23,2030           26154                          ADS      MPAC                                  
012162,000063: 23,2031           34676                          CAF      QUARTER                               
012163,000064: 23,2032           07256                          TC       SHORTMP                               
012164,000065: 23,2033           06030                          TC       DANZIG                                
012165,000066: 
012166,000067:                                                                                                 # # Page 279
012167,000068: 
012168,000069:                                                                                                 #  CALCSXA COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE-
012169,000070:                                                                                                 #  OF-SIGHT LIES ALONG THE STAR VECTOR. THE ROUTINE TAKES THE GIVEN STAR VECTOR AND EXPRESSES IT AS A VECTOR REF-
012170,000071:                                                                                                 #  ERENECED TO THE OPTICS COORDINATE SYSTEM. IN ADDITION IT SETS UP THREE UNIT VECTORS DEFINING THE X, Y, AND Z AXES
012171,000072:                                                                                                 #  REFERENCED TO THE OPTICS COORDINATE SYSTEM.
012172,000073: 
012173,000074:                                                                                                 #  THE INPUTS ARE  1) THE STAR VECTOR REFERRED TO PRESENT STABLE MEMBER COORDINATES STORED AT STAR.   2) SAME ANGLE
012174,000075:                                                                                                 #  INPUT AS *SMNB*, I.E. SINES AND COSINES OF THE CDU ANGLES, IN THE ORDER Y Z X, AT SINCDU AND COSCDU.   A CALL
012175,000076:                                                                                                 #  TO CDUTRIG WILL PROVIDE THIS INPUT.
012176,000077: 
012177,000078:                                                                                                 #  THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY.  (LOW ORDER PART
012178,000079:                                                                                                 #  EQUAL TO ZERO).
012179,000080: 
012180,000081: 
012181,000082: 23,2034           77220        CALCSXA           ITA      VLOAD                                 #  PUSHDOWN  00-26D,28D,30D,32D-36D
012182,000083: 23,2035           00034                                   28D                                   
012183,000084: 23,2036           02766                                   STAR                                  
012184,000085: 23,2037           77624                          CALL                                           
012185,000086: 23,2040           47577                                   *SMNB*                                
012186,000087: 23,2041           76521                          MXV      VSL1                                  
012187,000088: 23,2042           06260                                   NB2NB1                                
012188,000089: 23,2043           26766                          STOVL    STAR                                  
012189,000090: 23,2044           15330                                   HIUNITX                               
012190,000091: 23,2045           26555                          STOVL    XNB1                                  
012191,000092: 23,2046           15326                                   HIUNITY                               
012192,000093: 23,2047           26563                          STOVL    YNB1                                  
012193,000094: 23,2050           15324                                   HIUNITZ                               
012194,000095: 23,2051           36571                          STCALL   ZNB1                                  
012195,000096: 23,2052           46076                                   SXTANG1                               
012196,000097: 
012197,000098:                                                                                                 # # Page 280
012198,000099: 
012199,000100:                                                                                                 #  SXTANG COMPUTES THE SEXTANT SHAFT AND TRUNNION ANGLES REQUIRED TO POSITION THE OPTICS SUCH THAT A STAR LINE-OF-
012200,000101:                                                                                                 #  SIGHT LIES ALONG THE STAR VECTOR.
012201,000102: 
012202,000103:                                                                                                 #  THE INPUTS ARE  1) THE STAR VECTOR REFERRED TO ANY COORDINATE SYSTEM STORED AT STAR.  2) THE NAVIGATION BASE
012203,000104:                                                                                                 #  COORDINATES REFERRED TO THE SAME COORDINATE SYSTEM. THESE THREE HALF-UNIT VECTORS ARE STROED AT XNB, YNB, AND
012204,000105:                                                                                                 #  ZNB.
012205,000106: 
012206,000107:                                                                                                 #  THE OUTPUTS ARE THE SEXTANT SHAFT AND TRUNNION ANGLES STORED DP AT SAC AND PAC RESPECTIVELY.  (LOW ORDER PART
012207,000108:                                                                                                 #  EQUAL TO ZERO).
012208,000109: 
012209,000110: 
012210,000111: 23,2053           47020        SXTANG            ITA      RTB                                   #  PUSHDOWN 16D,18D,22D-26D,28D
012211,000112: 23,2054           00034                                   28D                                   
012212,000113: 23,2055           45657                                   TRANSP1                               #  EREF WRT NB2
012213,000114: 23,2056           64375                          VLOAD    MXV                                   
012214,000115: 23,2057           02714                                   XNB                                   
012215,000116: 23,2060           06260                                   NB2NB1                                
012216,000117: 23,2061           77772                          VSL1                                           
012217,000118: 23,2062           26555                          STOVL    XNB1                                  
012218,000119: 23,2063           02722                                   YNB                                   
012219,000120: 23,2064           76521                          MXV      VSL1                                  
012220,000121: 23,2065           06260                                   NB2NB1                                
012221,000122: 23,2066           26563                          STOVL    YNB1                                  
012222,000123: 23,2067           02730                                   ZNB                                   
012223,000124: 23,2070           76521                          MXV      VSL1                                  
012224,000125: 23,2071           06260                                   NB2NB1                                
012225,000126: 23,2072           02571                          STORE    ZNB1                                  
012226,000127: 
012227,000128: 23,2073           47034                          RTB      RTB                                   
012228,000129: 23,2074           45657                                   TRANSP1                               
012229,000130: 23,2075           45673                                   TRANSP2                               
012230,000131: 
012231,000132: 23,2076           47375        SXTANG1           VLOAD    VXV                                   
012232,000133: 23,2077           02571                                   ZNB1                                  
012233,000134: 23,2100           02766                                   STAR                                  
012234,000135: 23,2101           77600                          BOV                                            
012235,000136: 23,2102           46103                                   +1                                    
012236,000137: 23,2103           40056                          UNIT     BOV                                   
012237,000138: 23,2104           46145                                   ZNB=S1                                
012238,000139: 23,2105           00027                          STORE    PDA                                   #  PDA = UNIT(ZNB X S)
012239,000140: 
012240,000141: 23,2106           57441                          DOT      DCOMP                                 
012241,000142: 23,2107           02555                                   XNB1                                  
012242,000143: 23,2110           24023                          STOVL    SINTH                                 #  SIN(SA) = PDA . -XNB
012243,000144: 23,2111           00027                                   PDA                                   
012244,000145: 
012245,000146: 23,2112           77641                          DOT                                            
012246,000147: 23,2113           02563                                   YNB1                                  
012247,000148: 23,2114           34021                          STCALL   COSTH                                 #  COS(SA) = PDA . YNB
012248,000149: 23,2115           47211                                   ARCTRIG                               
012249,000150:                                                                                                 # # Page 281
012250,000151: 23,2116           77634                          RTB                                            
012251,000152: 23,2117           45543                                   1STO2S                                
012252,000153: 23,2120           26774                          STOVL    SAC                                   
012253,000154: 23,2121           02766                                   STAR                                  
012254,000155: 23,2122           77600                          BOV                                            
012255,000156: 23,2123           46124                                   +1                                    
012256,000157: 23,2124           72441                          DOT      SL1                                   
012257,000158: 23,2125           02571                                   ZNB1                                  
012258,000159: 23,2126           77726                          ACOS                                           
012259,000160: 23,2127           62440                          BMN      SL2                                   
012260,000161: 23,2130           46142                                   SXTALARM                              #  TRUNNION ANGLE NEGATIVE
012261,000162: 23,2131           45200                          BOV      DSU                                   
012262,000163: 23,2132           46142                                   SXTALARM                              #  TRUNNION ANGLE GREATER THAN 90 DEGREES
012263,000164: 23,2133           06331                                   20DEG-                                
012264,000165: 23,2134           77634                          RTB                                            
012265,000166: 23,2135           45543                                   1STO2S                                
012266,000167: 23,2136           02776                          STORE    PAC                                   #  FOR FLIGHT USE, CULTFLAG IS ON IF
012267,000168: 23,2137           77614                          CLRGO                                          #  TRUNION IS GREATER THAN 90 DEG
012268,000169: 23,2140           01630                                   CULTFLAG                              
012269,000170: 23,2141           00034                                   28D                                   
012270,000171: 23,2142           77614        SXTALARM          SETGO                                          #  ALARM HAS BEEN REMOVED FROM THIS
012271,000172: 23,2143           01430                                   CULTFLAG                              
012272,000173: 23,2144           00034                                   28D                                   #  SUBROUTINE,ALARM WILL BE SET BY MPI
012273,000174: 23,2145           77745        ZNB=S1            DLOAD                                          
012274,000175: 23,2146           06325                                   270DEG                                
012275,000176: 23,2147           16774                          STODL    SAC                                   
012276,000177: 23,2150           06327                                   20DEGS-                               
012277,000178: 23,2151           02776                          STORE    PAC                                   
012278,000179: 23,2152           77614                          CLRGO                                          
012279,000180: 23,2153           01630                                   CULTFLAG                              
012280,000181: 23,2154           00034                                   28D                                   
012281,000182: 
012282,000183:                                                                                                 # # Page 282
012283,000184: 
012284,000185:                                                                                                 #  THESE TWO ROUTINES COMPUTE THE ACTUAL STATE VECTOR FOR LM, CSM BY ADDING
012285,000186:                                                                                                 #  THE CONIC R,V AND THE DEVIATIONSR,V. THE STATE VECTORS ARE CONVERTED TO
012286,000187:                                                                                                 #  METERS B-29 AND METERS/CSEC B-7 AND STORED APPROPRIATELY IN RN,VN OR
012287,000188:                                                                                                 #  R-OTHER , V-OTHER FOR DOWNLINK. THE ROUTINES NAMES ARE SWITCHED IN THE
012288,000189:                                                                                                 #  OTHER VEHICLES COMPUTER.
012289,000190: 
012290,000191:                                                                                                 #  INPUT
012291,000192:                                                                                                 #    STATE VECTOR IN TEMPORARY STORAGE AREA
012292,000193:                                                                                                 #    IF STATE VECTOR IS SCALED POS B27 AND VEL B5
012293,000194:                                                                                                 #       SET X2 TO +2
012294,000195:                                                                                                 #    IF STATE VECTOR IS SCALED POS B29 AND VEL B7
012295,000196:                                                                                                 #       SET X2 TO 0
012296,000197: 
012297,000198:                                                                                                 #  OUTPUT
012298,000199:                                                                                                 #    R(T) IN RN, V(T) IN VN, T IN PIPTIME
012299,000200:                                                                                                 #  OR
012300,000201:                                                                                                 #    R(T) IN R-OTHER, V(T) IN V-OTHER   (T IS DEFINED BY T-OTHER)
012301,000202: 
012302,000203: 
012303,000204: 23,2155                                          BANK     23                                    
012304,000205: 10,2000                                          SETLOC   COMGEOM2                              
012305,000206: 10,2000                                          BANK                                           
012306,000207: 10,2237                                          COUNT    10/GEOM                               
012307,000208: 10,2237           43414        SVDWN1            BOF      RVQ                                   #  SW=1=AVETOMID DOING W-MATRIX INTEG
012308,000209: 10,2240           04756                                   AVEMIDSW                              
012309,000210: 10,2241           20242                                   +1                                    
012310,000211: 10,2242           53775                          VLOAD    VSL*                                  
012311,000212: 10,2243           01521                                   TDELTAV                               
012312,000213: 10,2244           57605                                   0          -7,2                       
012313,000214: 10,2245           53655                          VAD      VSL*                                  
012314,000215: 10,2246           01535                                   RCV                                   
012315,000216: 10,2247           57576                                   0,2                                   
012316,000217: 10,2250           25171                          STOVL    RN                                    
012317,000218: 10,2251           01527                                   TNUV                                  
012318,000219: 10,2252           53257                          VSL*     VAD                                   
012319,000220: 10,2253           57602                                   0          -4,2                       
012320,000221: 10,2254           01543                                   VCV                                   
012321,000222: 10,2255           77657                          VSL*                                           
012322,000223: 10,2256           57576                                   0,2                                   
012323,000224: 10,2257           15177                          STODL    VN                                    
012324,000225: 10,2260           01517                                   TET                                   
012325,000226: 10,2261           01205                          STORE    PIPTIME                               
012326,000227: 10,2262           77616                          RVQ                                            
012327,000228: 
012328,000229: 
012329,000230: 10,2263           53775        SVDWN2            VLOAD    VSL*                                  
012330,000231: 10,2264           01521                                   TDELTAV                               
012331,000232: 10,2265           57605                                   0          -7,2                       
012332,000233: 10,2266           53655                          VAD      VSL*                                  
012333,000234: 10,2267           01535                                   RCV                                   
012334,000235:                                                                                                 # # Page 283
012335,000236: 10,2270           57576                                   0,2                                   
012336,000237: 10,2271           25722                          STOVL    R-OTHER                               
012337,000238: 10,2272           01527                                   TNUV                                  
012338,000239: 10,2273           53257                          VSL*     VAD                                   
012339,000240: 10,2274           57602                                   0          -4,2                       
012340,000241: 10,2275           01543                                   VCV                                   
012341,000242: 10,2276           77657                          VSL*                                           
012342,000243: 10,2277           57576                                   0,2                                   
012343,000244: 10,2300           01730                          STORE    V-OTHER                               
012344,000245: 10,2301           77616                          RVQ                                            
012345,000246: 
012346,000247:                                                                                                 # # Page 284
012347,000248: 
012348,000249:                                                                                                 #  SUBROUTINE TO COMPUTE THE NATURAL LOG OF C(MPAC, MPAC +1).
012349,000250: 
012350,000251:                                                                                                 #            ENTRY:      CALL
012351,000252:                                                                                                 #                               LOG
012352,000253: 
012353,000254:                                                                                                 #  SUBROUTINE RETURNS WITH  -LOG  IN DP MPAC.
012354,000255: 
012355,000256:                                                                                                 #  EBANK IS ARBITRARY..
012356,000257: 
012357,000258: 
012358,000259: 14,2000                                          BANK     14                                    
012359,000260: 23,2000                                          SETLOC   POWFLIT2                              
012360,000261: 23,2000                                          BANK                                           
012361,000262: 23,2155                                          COUNT    23/GEOM                               
012362,000263: 
012363,000264: 23,2155           44301        LOG               NORM     BDSU                                  #  GENERATES LOG BY SHIFTING ARG
012364,000265: 23,2156           00160                                   MPAC       +3                         #  UNTIL IT LIES BETWEEN .5 AND 1.
012365,000266: 23,2157           06212                                   NEARLY1                               #  THE LOG OF THIS PART IS FOUND AND THE
012366,000267: 23,2160           77776                          EXIT                                           #  LOG OF THE SHIFTED PART IS COMPUTED
012367,000268: 23,2161           07171                          TC       POLY                                  #  AND ADDED IN. SHIFT COUNT STORED
012368,000269: 
012369,000270: 23,2162           00002                          DEC      2          B-14                       #  (N-1, SUPPLIED BY SMERZH)
012370,000271: 23,2163           00000 00000                    2DEC     0          B-28                       #  IN MPAC +3.
012371,000272: 23,2165           01001 14636                    2DEC     .031335467                            
012372,000273: 23,2167           00325 07310                    2DEC     .0130145859                            
012373,000274: 23,2171           00541 16735                    2DEC     .0215738898                            
012374,000275: 
012375,000276: 23,2173           34714                          CAF      ZERO                                  
012376,000277: 23,2174           54156                          TS       MPAC       +2                         
012377,000278: 23,2175           00006                          EXTEND                                         
012378,000279: 23,2176           32214                          DCA      CLOG2/32                              
012379,000280: 23,2177           52155                          DXCH     MPAC                                  
012380,000281: 23,2200           52160                          DXCH     MPAC       +3                         
012381,000282: 23,2201           40000                          COM                                            #  LOAD POSITIVE SHIFT COUNT IN A.
012382,000283: 23,2202           07256                          TC       SHORTMP                               #  MULTIPLY BY SHIFT COUNT.
012383,000284: 
012384,000285: 23,2203           52156                          DXCH     MPAC       +1                         
012385,000286: 23,2204           52155                          DXCH     MPAC                                  
012386,000287: 23,2205           52160                          DXCH     MPAC       +3                         
012387,000288: 23,2206           20155                          DAS      MPAC                                  
012388,000289: 23,2207           06006                          TC       INTPRET                               #  RESULT IN MPAC, MPAC +1
012389,000290: 
012390,000291: 23,2210           77616                          RVQ                                            
012391,000292: 
012392,000293: 23,2211           37777 37777  NEARLY1           2DEC     .999999999                            
012393,000294: 
012394,000295:                                                                                                 # # Page 285
012395,000296: 23,2213           00542 34414  CLOG2/32          2DEC     .0216608494                            
012396,000297: 
012397,000298:                                                                                                 # # Page 286
012398,000299: 
012399,000300:                                                                                                 #  SUBROUTINE NAME:        EARTH ROTATOR     (EARROT1 OR EARROT2)           DATE:           15 FEB 67
012400,000301:                                                                                                 #  MOD NO:  N +1                                                            LOG SECTION:    POWERED FLIGHT SUBROS
012401,000302:                                                                                                 #  MOD BY:  ENTRY GROUP  (BAIRNSFATHER)
012402,000303:                                                                                                 #  FUNCTIONAL DESCRIPTION:      THIS ROUTINE PROJECTS THE INITIAL EARTH TARGET VECTOR   RTINIT   AHEAD THROUGH
012403,000304:                                                                                                 #            THE ESTIMATED TIME OF FLIGHT. INITIAL CALL RESOLVES THE INITIAL TARGET VECTOR   RTINIT   INTO EASTERLY
012404,000305:                                                                                                 #            AND NORMAL COMPONENTS   RTEAST   AND   RTNORM   . INITIAL AND  SUBSEQUENT CALLS ROTATE THIS VECTOR
012405,000306:                                                                                                 #            ABOUT THE (FULL) UNIT POLAR AXIS   UNITW   THROUGH THE ANGLE    WIE DTEAROT   TO OBTAIN THE ROTATED
012406,000307:                                                                                                 #            TARGET VECTOR   RT   . ALL VECTORS EXCEPT   UNITW   ARE HALF UNIT.
012407,000308:                                                                                                 #            THE EQUATIONS ARE
012408,000309:                                                                                                 #                   -    -        -                     -
012409,000310:                                                                                                 #                   RT = RTINIT + RTNORM (COS(WT) -1) + RTEAST SIN(WT)
012410,000311:                                                                                                 #            WHERE  WT = WIE DTEAROT
012411,000312:                                                                                                 #                   RTINIT = INITIAL TARGET VECTOR
012412,000313:                                                                                                 #                   -        -     -
012413,000314:                                                                                                 #                   RTEAST = UNITW*RTINIT
012414,000315:                                                                                                 #                   -        -      -
012415,000316:                                                                                                 #                   RTNORM = RTEAST*UNITW
012416,000317: 
012417,000318:                                                                                                 #            FOR CONTINUOUS UPDATING, ONLY ONE ENTRY TO EARROT1 IS REQUIRED, WITH SUBSEQUENT ENTRIES AT EARROT2.
012418,000319:                                                                                                 #  CALLING SEQUENCE:  FIRST CALL                     SUBSEQUENT CALL
012419,000320:                                                                                                 #                      STCALL DTEAROT                STCALL DTEAROT
012420,000321:                                                                                                 #                             EARROT1                       EARROT2
012421,000322:                                                                                                 #                      C(MPAC) UNSPECIFIED           C(MPAC) = DTEAROT
012422,000323:                                                                                                 #            PUSHLOC = PDL+0, ARBITRARY. 6 LOCATIONS USED.
012423,000324: 
012424,000325:                                                                                                 #  SUBROUTINES USED:  NONE
012425,000326:                                                                                                 #  NORMAL EXIT MODES:   RVQ
012426,000327:                                                                                                 #  ALARMS:  NONE
012427,000328:                                                                                                 #  OUTPUT:  RTEAST (-1)             .5 UNIT VECTOR EAST, COMPNT OF RTINIT   LEFT BY FIRST CALL
012428,000329:                                                                                                 #            RTNORM (-1)            .5 UNIT VECTOR NORML, COMPNT OF RTINIT  LEFT BY FIRST CALL
012429,000330:                                                                                                 #            RT     (-1)            .5 UNIT TARGET VECTOR, ROTATED          LEFT BY ALL CALLS
012430,000331:                                                                                                 #            DTEAROT  (-28) CS      MAY BE CHANGED BY EARROT2, IF OVER 1 DAY
012431,000332:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED:
012432,000333:                                                                                                 #            UNITW  (0)             UNIT POLAR VECTOR                       PAD LOADED
012433,000334:                                                                                                 #            RTINIT (-1)            .5 UNIT INITIAL TARGET VECTOR           LEFT BY ENTRY
012434,000335:                                                                                                 #            DTEAROT  (-28) CS      TIME OF FLIGHT                          LEFT BY CALLER
012435,000336:                                                                                                 #  DEBRIS:  QPRET,     PDL+0 ... PDL+5
012436,000337: 
012437,000338:                                                                                                 # # Page 287
012438,000339: 
012439,000340: 23,2215  E7,1451                                 EBANK=   RTINIT                                
012440,000341: 
012441,000342: 23,2215           47375        EARROT1           VLOAD    VXV                                   
012442,000343: 23,2216           01714                                   UNITW                                 #  FULL UNIT VECTOR
012443,000344: 23,2217           03452                                   RTINIT                                #  .5 UNIT
012444,000345: 23,2220           03460                          STORE    RTEAST                                #  .5 UNIT
012445,000346: 
012446,000347: 23,2221           77635                          VXV                                            
012447,000348: 23,2222           01714                                   UNITW                                 #  FULL UNIT
012448,000349: 23,2223           17466                          STODL    RTNORM                                #  .5 UNIT
012449,000350: 23,2224           03606                                   DTEAROT                               #  (-28) CS
012450,000351: 
012451,000352: 23,2225           56204        EARROT2           BOVB     DDV                                   
012452,000353: 23,2226           57314                                   TCDANZIG                              #  RESET OVFIND, IF ON
012453,000354: 23,2227           06256                                   1/WIE                                 
012454,000355: 23,2230           41400                          BOV      PUSH                                  
012455,000356: 23,2231           46245                                   OVERADAY                              
012456,000357: 23,2232           45346                          COS      DSU                                   
012457,000358: 23,2233           15330                                   HIDPHALF                              
012458,000359: 23,2234           65361                          VXSC     PDDL                                  #  XCH W PUSH LIST
012459,000360: 23,2235           03466                                   RTNORM                                #  .5 UNIT
012460,000361: 23,2236           74356                          SIN      VXSC                                  
012461,000362: 23,2237           03460                                   RTEAST                                #  .5 UNIT
012462,000363: 23,2240           76455                          VAD      VSL1                                  
012463,000364: 23,2241           53455                          VAD      UNIT                                  #  INSURE THAT RT IS 'UNIT'.
012464,000365: 23,2242           03452                                   RTINIT                                #  .5 UNIT
012465,000366: 23,2243           03474                          STORE    RT                                    #  .5 UNIT TARGET VECTOR
012466,000367: 
012467,000368: 23,2244           77616                          RVQ                                            
012468,000369: 
012469,000370: 23,2245           75345        OVERADAY          DLOAD    SIGN                                  
012470,000371: 23,2246           06256                                   1/WIE                                 
012471,000372: 23,2247           03606                                   DTEAROT                               
012472,000373: 23,2250           77621                          BDSU                                           
012473,000374: 23,2251           03606                                   DTEAROT                               
012474,000375: 23,2252           03606                          STORE    DTEAROT                               
012475,000376: 
012476,000377: 23,2253           77650                          GOTO                                           
012477,000378: 23,2254           46225                                   EARROT2                               
012478,000379: 
012479,000380:                                                                                                 #  WIE            2DEC    .1901487997
012480,000381: 23,2255           01015 34732  1/WIE             2DEC     8616410    B-28                       
012481,000382: 23,2257           15373 11346  NB2NB1            2DEC     +.8431756920 B-1                        
012482,000383: 23,2261           00000 00000                    2DEC     0          B-28                       
012483,000384: 23,2263           67313 65307                    2DEC     -.5376381241 B-1                        
012484,000385:                                                                                                 # # Page 288
012485,000386: 23,2265           00000 00000  ZERINFLT          2DEC     0          B-28                       
012486,000387: 23,2267           20000 00000  HALFNFLT          2DEC     .5                                    
012487,000388: 23,2271           00000 00000                    2DEC     0          B-28                       
012488,000389: 23,2273           10464 12470                    2DEC     +.5376381241 B-1                        
012489,000390: 23,2275           00000 00000                    2DEC     0          B-28                       
012490,000391: 23,2277           15373 11346                    2DEC     +.8431756920 B-1                        
012491,000392: 
012492,000393: 
012493,000394: 23,2301           15373 11346  NB1NB2            2DEC     +.8431756920 B-1                        
012494,000395: 23,2303           00000 00000                    2DEC     0          B-28                       
012495,000396: 23,2305           10464 12470                    2DEC     +.5376381241 B-1                        
012496,000397: 23,2307           00000 00000                    2DEC     0          B-28                       
012497,000398: 23,2311           20000 00000                    2DEC     .5                                    
012498,000399: 23,2313           00000 00000                    2DEC     0          B-28                       
012499,000400: 
012500,000401: 23,2315           67313 65307                    2DEC     -.5376381241 B-1                        
012501,000402: 23,2317           00000 00000                    2DEC     0          B-28                       
012502,000403: 23,2321           15373 11346                    2DEC     +.8431756920 B-1                        
012503,000404: 
012504,000405:                                                                                                 # # Page 289
012505,000406: 
012506,000407: 23,2323           07020        10DEGS-           DEC      3600       B-14                       
012507,000408: 
012508,000409: 23,2324           60000        270DEG            OCT      60000                                 #  SHAFT   270 DEGREES    2S COMP.
012509,000410: 23,2325           00000                          OCT      00000                                 
012510,000411: 
012511,000412: 23,2326           61740        20DEGS-           DEC      -07199     B-14                       
012512,000413: 23,2327           77777                          DEC      -00000     B-14                       
012513,000414: 
012514,000415: 23,2330           07020        20DEG-            DEC      03600      B-14                       
012515,000416: 23,2331           00000                          DEC      00000      B-14                       

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