Source Code

These source-code files are part of a reconstructed copy of Comanche 67, the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

Since only binary dumps (rather than listings) of Comanche 67 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

031399,000002:                                                                                                  ## Copyright:   Public domain.
031400,000003:                                                                                                  ## Filename:    P51-P53.agc
031401,000004:                                                                                                  ## Purpose:     A section of Comanche revision 067.
031402,000005:                                                                                                  ##              It is part of the reconstructed source code for the flight
031403,000006:                                                                                                  ##              software for the Command Module's (CM) Apollo Guidance Computer
031404,000007:                                                                                                  ##              (AGC) for Apollo 12. No original listings of this program are
031405,000008:                                                                                                  ##              available; instead, this file was created via dissassembly of
031406,000009:                                                                                                  ##              dumps of Comanche 067 core rope modules and comparison with
031407,000010:                                                                                                  ##              other AGC programs.
031408,000011:                                                                                                  ## Assembler:   yaYUL
031409,000012:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
031410,000013:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
031411,000014:                                                                                                  ## Mod history: 2023-08-16 MAS  Created from Comanche 055.
031412,000015:                                                                                                  ##              2024-03-15 MAS  Updated for Comanche 067.
031413,000016: 
031414,000017:                                                                                                  #  PROGRAM NAME - PROG52                 DATE - NOV 30, 1966
031415,000018:                                                                                                  #  MOD NO - 2                                    LOG SECTION - P51-P53
031416,000019:                                                                                                  #  MODIFICATION BY - LONSKE                      ASSEMBLY - SUNDISK REV 30
031417,000020: 
031418,000021:                                                                                                  #  FUNCTIONAL DESCRIPTION -
031419,000022: 
031420,000023:                                                                                                  #        ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT.  THE PRESENT IMU ORIENTATION IS KNOWN
031421,000024:                                                                                                  #        AND IS STORED IN REFSMMAT.  THE THREE POSSIBLE ORIENTATIONS MAY BE_
031422,000025: 
031423,000026:                                                                                                  #        (A)     PREFERRED ORIENTATION
031424,000027: 
031425,000028:                                                                                                  #                AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANUEVER.  THIS ORIENTATION MUST BE CALCULATED AND
031426,000029:                                                                                                  #                STORED BY A PREVIOUSLY SELECTED PROGRAM.
031427,000030: 
031428,000031:                                                                                                  #        (B)     NOMINAL ORIENTATION
031429,000032: 
031430,000033:                                                                                                  #                X   = UNIT ( Y   X Z   )
031431,000034:                                                                                                  #                -SM          -SM   -SM
031432,000035: 
031433,000036:                                                                                                  #                Y   = UNIT (V X R)
031434,000037:                                                                                                  #                -SM         -   -
031435,000038: 
031436,000039:                                                                                                  #                Z   = UNIT ( -R )
031437,000040:                                                                                                  #                -SM           -
031438,000041: 
031439,000042:                                                                                                  #                WHERE_
031440,000043: 
031441,000044:                                                                                                  #                R = THE GEOCENTRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
031442,000045:                                                                                                  #                -
031443,000046: 
031444,000047:                                                                                                  #                V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
031445,000048:                                                                                                  #                -
031446,000049: 
031447,000050:                                                                                                  #        (C)     REFSMMAT ORIENTATION
031448,000051: 
031449,000052:                                                                                                  #                THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION.  THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
031450,000053:                                                                                                  #                WAS LAST ALIGNED ONLY DUE TO GYRO DRIFT (I.E. NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPTION HAS OCCURED
031451,000054:                                                                                                  #                SINCE THE LAST ALIGNMENT).
031452,000055: 
031453,000056:                                                                                                  #        AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
031454,000057:                                                                                                  #        NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE.  CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
031455,000058:                                                                                                  #        COARSE ALIGN THE IMU.  THE STAR SELECTION ROUTINE, R56, IS THEN OPERATED.  IF 2 STARS ARE NOT AVAILABLE AN ALARM
031456,000059:                                                                                                  #        IS FLASHED TO NOTIFY THE ASTRONAUT.  AT THIS POINT THE ASTRONAUT WILL MANUEVER THE VEHICLE AND SELECT 2 STARS
031457,000060:                                                                                                  #        EITHER MANUALLY OR AUTOMATICALLY.  AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51.  IF
031458,000061:                                                                                                  #        THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED.  OTHERWISE P00 IS
031459,000062:                                                                                                  #        REQUESTED.
031460,000063: 
031461,000064:                                                                                                  #  CALLING SEQUENCE -
031462,000065: 
031463,000066:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
031464,000067: 
031465,000068:                                                                                                  #  SUBROUTINES CALLED -
031466,000069: 
031467,000070:                                                                                                  #        1. FLAGDOWN              7. S52.2               13. NEWMODEX
031468,000071:                                                                                                  #        2. R02BOTH               8. CAL53A              14. PRIOLARM
031469,000072:                                                                                                  #        3. GOPERF4               9. FLAGUP
031470,000073:                                                                                                  #        4. MATMOVE              10. R56
031471,000074:                                                                                                  #        5. GOFLASH              11. R51
031472,000075:                                                                                                  #        6. S52.3                12. GOPERF3
031473,000076: 
031474,000077:                                                                                                  #  NORMAL EXIT MODES -
031475,000078: 
031476,000079:                                                                                                  #        EXITS TO ENDOFJOB
031477,000080: 
031478,000081:                                                                                                  #  ALARM OR ABORT EXIT MODES -
031479,000082: 
031480,000083:                                                                                                  #        NONE
031481,000084: 
031482,000085:                                                                                                  #  OUTPUT -
031483,000086: 
031484,000087:                                                                                                  #        THE FOLLOWING MAY BE FLASHED ON THE DSKY
031485,000088:                                                                                                  #                1. IMU ORIENTATION CODE
031486,000089:                                                                                                  #                2. ALARM CODE 215 - PREFERRED IMU ORIENTATION NOT SPECIFIED
031487,000090:                                                                                                  #                3. TIME OF NEXT IGNITION
031488,000091:                                                                                                  #                4. GIMBAL ANGLES
031489,000092:                                                                                                  #                5. ALARM CODE 405 - TWO STARS NOT AVAILABLE
031490,000093:                                                                                                  #                6. PLEASE PERFORM P00
031491,000094:                                                                                                  #        THE MODE DISPLAY MAY BE CHANGED TO 20
031492,000095: 
031493,000096:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
031494,000097: 
031495,000098:                                                                                                  #        PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED.  IF IT HAS BEEN COMPUTED IT IS STORED IN
031496,000099:                                                                                                  #        XSMD, YSMD, ZSMD.
031497,000100: 
031498,000101:                                                                                                  #        RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
031499,000102: 
031500,000103:                                                                                                  #  DEBRIS -
031501,000104: 
031502,000105:                                                                                                  #        WORK AREA
031503,000106: 
031504,000107: 21,2054  15,2000               P54                =        PROG52                                
031505,000108: 33,3776                                           BANK     33                                    
031506,000109: 15,2000                                           SETLOC   P50S                                  
031507,000110: 15,2000                                           BANK                                           
031508,000111: 
031509,000112: 15,2000  30,2000                                  SBANK=   LOWSUPER                              
031510,000113: 15,2000  E5,1773                                  EBANK=   SAC                                   
031511,000114: 15,2000                                           COUNT    15/P52                                
031512,000115: 
031513,000116: 15,2000           05426        PROG52             TC       PHASCHNG                              
031514,000117: 15,2001           00254                           OCT      00254                                 
031515,000118: 15,2002           05574                           TC       DOWNFLAG                              
031516,000119: 15,2003           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1
031517,000120: 15,2004           05574                           TC       DOWNFLAG                              
031518,000121: 15,2005           00031                           ADRES    TRACKFLG                              #  BIT 5 FLAG 1
031519,000122: 15,2006           04676                           TC       BANKCALL                              
031520,000123: 15,2007           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
031521,000124: 15,2010           35030                           CAF      BIT4                                  
031522,000125: 15,2011           70076                           MASK     STATE      +2                         #  IS PFRATFLG SET(PREFERRED ORIENTATION)
031523,000126: 15,2012           10000                           CCS      A                                     
031524,000127: 15,2013           02016                           TC       P52A                                  #  YES
031525,000128: 15,2014           36214                           CAF      THREE                                 #  DISPLAY REFSMMAT OPTION 3
031526,000129: 15,2015           02017                           TC       P52A       +1                         
031527,000130: 15,2016           35033        P52A               CAF      BIT1                                  
031528,000131: 15,2017           55132                           TS       OPTION2                               
031529,000132: 15,2020           35033        P52B               CAF      BIT1                                  
031530,000133: 15,2021           04676                           TC       BANKCALL                              #  FLASH OPTION CODE AND ORIENTATION CODE
031531,000134: 15,2022           21135                           CADR     GOPERF4R                              
031532,000135: 15,2023           04106                           TC       GOTOPOOH                              
031533,000136: 15,2024           02031                           TC       +5                                    
031534,000137: 15,2025           02020                           TC       P52B                                  #  NEW CODE - NEW ORIENTATION CODE INPUT
031535,000138: 15,2026           05426                           TC       PHASCHNG                              
031536,000139: 15,2027           00014                           OCT      00014                                 
031537,000140: 15,2030           05233                           TC       ENDOFJOB                              
031538,000141: 15,2031           31132                           CA       OPTION2                               
031539,000142: 15,2032           76214                           MASK     THREE                                 
031540,000143: 15,2033           50000                           INDEX    A                                     
031541,000144: 15,2034           02035                           TC       +1                                    
031542,000145: 15,2035           02041                           TC       P52T                                  #  L.S.
031543,000146: 15,2036           02110                           TC       P52J                                  #  PREF
031544,000147: 15,2037           02041                           TC       P52T                                  #  NOM
031545,000148: 15,2040           12120                           TCF      P52C                                  #  REF
031546,000149: 15,2041           00006        P52T               EXTEND                                         
031547,000150: 15,2042           35035                           DCA      NEG0                                  
031548,000151: 15,2043           53046                           DXCH     DSPTEM1                               
031549,000152: 15,2044           32157                           CAF      V06N34                                
031550,000153: 15,2045           04676                           TC       BANKCALL                              
031551,000154: 15,2046           20720                           CADR     GOFLASH                               
031552,000155: 15,2047           04106                           TC       GOTOPOOH                              
031553,000156: 15,2050           02052                           TC       +2                                    
031554,000157: 15,2051           02044                           TC       -5                                    
031555,000158: 15,2052           00006                           EXTEND                                         
031556,000159: 15,2053           31046                           DCA      DSPTEM1                               
031557,000160: 15,2054           00006                           EXTEND                                         
031558,000161: 15,2055           12057                           BZF      +2                                    
031559,000162: 15,2056           12062                           TCF      +4                                    
031560,000163: 
031561,000164: 15,2057           00006                           EXTEND                                         
031562,000165: 15,2060           30025                           DCA      TIME2                                 
031563,000166: 15,2061           53046                           DXCH     DSPTEM1                               
031564,000167: 15,2062           31132                           CA       OPTION2                               
031565,000168: 15,2063           75032                           MASK     BIT2                                  
031566,000169: 15,2064           10000                           CCS      A                                     
031567,000170: 15,2065           12073                           TCF      +6                                    #  NOM
031568,000171: 15,2066           06006                           TC       INTPRET                               #  LS
031569,000172: 15,2067           77624                           CALL                                           
031570,000173: 15,2070           34603                                    P52LS                                 
031571,000174: 15,2071           77650                           GOTO                                           
031572,000175: 15,2072           32100                                    P52D                                  
031573,000176: 15,2073           06006                           TC       INTPRET                               
031574,000177: 15,2074           77745                           DLOAD                                          
031575,000178: 15,2075           01046                                    DSPTEM1                               
031576,000179: 15,2076           77624                           CALL                                           #  COMPUTE NOMINAL IMU
031577,000180: 15,2077           34733                                    S52.3                                 #        ORIENTATION
031578,000181: 15,2100           77624        P52D               CALL                                           #  READ VEHICLE ATTITUDE AND
031579,000182: 15,2101           22260                                    S52.2                                 #        COMPUTE GIMBAL ANGLES
031580,000183: 15,2102           77776                           EXIT                                           
031581,000184: 15,2103           32160                           CAF      VB06N22                               
031582,000185: 15,2104           04676                           TC       BANKCALL                              #  DISPLAY GIMBAL ANGLES
031583,000186: 15,2105           20720                           CADR     GOFLASH                               
031584,000187: 15,2106           04106                           TC       GOTOPOOH                              
031585,000188: 15,2107           02161                           TC       COARSTYP                              
031586,000189: 15,2110           06006        P52J               TC       INTPRET                               #  RECYCLE- VEHICLE HAS BEEN MENUEVERED
031587,000190: 15,2111           77650                           GOTO                                           
031588,000191: 15,2112           32100                                    P52D                                  
031589,000192: 15,2113           06006                           TC       INTPRET                               
031590,000193: 15,2114           77624                           CALL                                           #  DO COARSE ALIGN
031591,000194: 15,2115           30770                                    CAL53A                                #        ROUTINE
031592,000195: 15,2116           77414        CAL53RET           SET      EXIT                                  
031593,000196: 15,2117           01462                                    REFSMFLG                              
031594,000197: 15,2120           05426        P52C               TC       PHASCHNG                              
031595,000198: 15,2121           04024                           OCT      04024                                 
031596,000199: 15,2122           35041                           CAF      ALRM15                                
031597,000200: 15,2123           04676                           TC       BANKCALL                              
031598,000201: 15,2124           21045                           CADR     GOPERF1                               
031599,000202: 15,2125           04106                           TC       GOTOPOOH                              
031600,000203: 15,2126           02130                           TC       +2                                    #  V33
031601,000204: 15,2127           02142                           TC       P52F                                  #  E
031602,000205: 15,2130           06006                           TC       INTPRET                               
031603,000206: 15,2131           43234                           RTB      DAD                                   
031604,000207: 15,2132           45510                                    LOADTIME                              
031605,000208: 15,2133           32264                                    TSIGHT1                               
031606,000209: 15,2134           77624                           CALL                                           
031607,000210: 15,2135           30225                                    LOCSAM                                
031608,000211: 15,2136           77776                           EXIT                                           
031609,000212: 15,2137           04676        P52E               TC       BANKCALL                              #  DO STAR SELECTION
031610,000213: 15,2140           30333                           CADR     PICAPAR                               
031611,000214: 15,2141           02147                           TC       P52I                                  #  2 STARS NOT AVAILABLE
031612,000215: 15,2142           06006        P52F               TC       INTPRET                               #  2 STARS AVAILABLE
031613,000216: 15,2143           77624                           CALL                                           
031614,000217: 15,2144           30532                                    R51                                   
031615,000218: 15,2145           77776        ENDP50S            EXIT                                           
031616,000219: 15,2146           04106                           TC       GOTOPOOH                              
031617,000220: 15,2147           05664        P52I               TC       ALARM                                 
031618,000221: 15,2150           00405                           OCT      405                                   
031619,000222: 15,2151           35064                           CAF      V05N09                                
031620,000223: 15,2152           04676                           TC       BANKCALL                              
031621,000224: 15,2153           20720                           CADR     GOFLASH                               
031622,000225: 15,2154           04106                           TC       GOTOPOOH                              
031623,000226: 15,2155           02142                           TC       P52F                                  #  PROCEED - DO FINE ALIGN-R51
031624,000227: 15,2156           02120                           TC       P52C                                  #  RECYCLE - VEHICLE HAS BEEN MANUEVERED                 
031625,000228: 15,2157           01442        V06N34             VN       0634                                  
031626,000229: 15,2160           01426        VB06N22            VN       00622                                 
031627,000230: 15,2161           35040        COARSTYP           CAF      OCT13                                 
031628,000231: 15,2162           04676                           TC       BANKCALL                              
031629,000232: 15,2163           21045                           CADR     GOPERF1                               
031630,000233: 15,2164           14106                           TCF      GOTOPOOH                              #  V34
031631,000234: 15,2165           12113                           TCF      P52J       +3                         #   NORMAL
031632,000235: 15,2166           06006                           TC       INTPRET                               #  GYRO COARSE
031633,000236: 15,2167           64375        GYCRS              VLOAD    MXV                                   
031634,000237: 15,2170           00307                                    XSMD                                  
031635,000238: 15,2171           01736                                    REFSMMAT                              
031636,000239: 15,2172           77656                           UNIT                                           
031637,000240: 15,2173           26714                           STOVL    XDC                                   
031638,000241: 15,2174           00315                                    YSMD                                  
031639,000242: 15,2175           53521                           MXV      UNIT                                  
031640,000243: 15,2176           01736                                    REFSMMAT                              
031641,000244: 15,2177           26722                           STOVL    YDC                                   
031642,000245: 15,2200           00323                                    ZSMD                                  
031643,000246: 15,2201           53521                           MXV      UNIT                                  
031644,000247: 15,2202           01736                                    REFSMMAT                              
031645,000248: 15,2203           36730                           STCALL   ZDC                                   
031646,000249: 15,2204           47207                                    CALCGTA                               
031647,000250: 15,2205           43014                           CLEAR    CLEAR                                 
031648,000251: 15,2206           01260                                    DRIFTFLG                              
031649,000252: 15,2207           01662                                    REFSMFLG                              
031650,000253: 15,2210           77776                           EXIT                                           
031651,000254: 15,2211           32244                           CAF      V16N20                                
031652,000255: 15,2212           04676                           TC       BANKCALL                              
031653,000256: 15,2213           20676                           CADR     GODSPR                                
031654,000257: 15,2214           32323                           CA       R55CDR                                
031655,000258: 15,2215           04676                           TC       BANKCALL                              
031656,000259: 15,2216           17206                           CADR     IMUPULSE                              
031657,000260: 15,2217           04676                           TC       BANKCALL                              
031658,000261: 15,2220           17577                           CADR     IMUSTALL                              
031659,000262: 15,2221           05763                           TC       CURTAINS                              
031660,000263: 15,2222           05426                           TC       PHASCHNG                              
031661,000264: 15,2223           04024                           OCT      04024                                 
031662,000265: 15,2224           06006                           TC       INTPRET                               
031663,000266: 15,2225           75160                           AXC,1    AXC,2                                 
031664,000267: 15,2226           00306                                    XSMD                                  
031665,000268: 15,2227           01735                                    REFSMMAT                              
031666,000269: 15,2230           77624                           CALL                                           
031667,000270: 15,2231           31042                                    MATMOVE                               
031668,000271: 15,2232           43014                           CLEAR    SET                                   
031669,000272: 15,2233           01273                                    PFRATFLG                              
031670,000273: 15,2234           01462                                    REFSMFLG                              
031671,000274: 15,2235           77234                           RTB      VLOAD                                 
031672,000275: 15,2236           31253                                    SET1/PDT                              
031673,000276: 15,2237           11566                                    ZEROVEC                               
031674,000277: 15,2240           01472                           STORE    GCOMP                                 
031675,000278: 15,2241           52014                           SET      GOTO                                  
031676,000279: 15,2242           01060                                    DRIFTFLG                              
031677,000280: 15,2243           30655                                    R51K                                  
031678,000281: 15,2244           04024        V16N20             VN       1620                                  
031679,000282: 15,2245     5041               ALRM15             EQUALS   OCT15                                 
031680,000283: 16,2000                                           SETLOC   P50S2                                 
031681,000284: 16,2000                                           BANK                                           
031682,000285: 16,2602           01531        V06N89*            VN       0689                                  
031683,000286: 
031684,000287:                                                                                                  #  NAME - P52LS
031685,000288: 
031686,000289:                                                                                                  #  FUNCTION - TO DISPLAY THE LANDING SITE LATITUDE,
031687,000290:                                                                                                  #  LONGTITUDE AND ALTITUDE.  TO ACCEPT NEW DATA VIA
031688,000291:                                                                                                  #  THE KEYBOARD.  TO COMPUTE THE LANDING SITE
031689,000292:                                                                                                  #  ORIENTATION FOR P52 OR P54
031690,000293: 
031691,000294:                                                                                                  #  LET:
031692,000295:                                                                                                  #        RLS  = LANDING SITE VECTOR IN REF COORDINATES
031693,000296:                                                                                                  #        R    = CSM POSITION VECTOR IN REF COORDINATES
031694,000297:                                                                                                  #        V    = CSM VELOCITY VECTOR IN REF COORDINATES
031695,000298:                                                                                                  #  THEN THE LANDING SITE ORIENTATION IS:
031696,000299:                                                                                                  #        XSMD = UNIT(RLS)
031697,000300:                                                                                                  #        YSMD = UNIT(ZSMD*XSMD)
031698,000301:                                                                                                  #        ZSMD = UNIT((R*V)*RLS)
031699,000302: 
031700,000303:                                                                                                  #  CALL -        CALL
031701,000304:                                                                                                  #                        P52LS
031702,000305: 
031703,000306:                                                                                                  #  INPUTS-       DSPTEM1 = TIME OF ALIGNMENT
031704,000307:                                                                                                  #                RLS = LANDING SITE VECTOR IN MOON FIXED COORINATES
031705,000308: 
031706,000309:                                                                                                  #  OUTPUTS-      XSMD, YSMD, ZSMD
031707,000310: 
031708,000311:                                                                                                  #  SUBROUTINES-  RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
031709,000312: 
031710,000313:                                                                                                  #  DEBRIS-       VAC, SEE SUBROUTINES
031711,000314: 
031712,000315: 16,2603           43020        P52LS              STQ      SET                                   
031713,000316: 16,2604           00300                                    QMAJ                                  
031714,000317: 16,2605           01463                                    LUNAFLAG                              
031715,000318: 16,2606           77745                           DLOAD                                          
031716,000319: 16,2607           01046                                    DSPTEM1                               
031717,000320: 16,2610           02607                           STORE    TSIGHT                                
031718,000321: 16,2611           43175                           VLOAD    SET                                   
031719,000322: 16,2612           02026                                    RLS                                   
031720,000323: 16,2613           00462                                    ERADFLAG                              
031721,000324: 16,2614           14001                           STODL    0D                                    
031722,000325: 16,2615           02607                                    TSIGHT                                
031723,000326: 16,2616           34007                           STCALL   6D                                    
031724,000327: 16,2617           55343                                    RP-TO-R                               
031725,000328: 16,2620           77742                           VSR2                                           
031726,000329: 16,2621           16152                           STODL    ALPHAV                                
031727,000330: 16,2622           02607                                    TSIGHT                                
031728,000331: 16,2623           77624                           CALL                                           
031729,000332: 16,2624           26400                                    LAT-LONG                              
031730,000333: 16,2625           77624                           CALL                                           
031731,000334: 16,2626           62365                                    LLASRD                                
031732,000335: 16,2627           77776                           EXIT                                           
031733,000336: 16,2630           32602        LSDISP             CAF      V06N89*                               
031734,000337: 16,2631           04676                           TC       BANKCALL                              
031735,000338: 16,2632           20720                           CADR     GOFLASH                               
031736,000339: 16,2633           04106                           TC       GOTOPOOH                              
031737,000340: 16,2634           02636                           TC       +2                                    
031738,000341: 16,2635           02630                           TC       LSDISP                                
031739,000342: 16,2636           06006                           TC       INTPRET                               
031740,000343: 16,2637           77624                           CALL                                           
031741,000344: 16,2640           62374                                    LLASRDA                               
031742,000345: 16,2641           45145                           DLOAD    CALL                                  
031743,000346: 16,2642           02607                                    TSIGHT                                
031744,000347: 16,2643           26451                                    LALOTORV                              
031745,000348: 16,2644           53575                           VLOAD    UNIT                                  
031746,000349: 16,2645           02152                                    ALPHAV                                
031747,000350: 16,2646           14307                           STODL    XSMD                                  
031748,000351: 16,2647           02607                                    TSIGHT                                
031749,000352: 16,2650           34041                           STCALL   TDEC1                                 
031750,000353: 16,2651           27101                                    CSMPREC                               
031751,000354: 16,2652           47375                           VLOAD    VXV                                   
031752,000355: 16,2653           00001                                    RATT                                  
031753,000356: 16,2654           00007                                    VATT                                  
031754,000357: 16,2655           53435                           VXV      UNIT                                  
031755,000358: 16,2656           00307                                    XSMD                                  
031756,000359: 16,2657           00323                           STORE    ZSMD                                  
031757,000360: 16,2660           53435                           VXV      UNIT                                  
031758,000361: 16,2661           00307                                    XSMD                                  
031759,000362: 16,2662           34315                           STCALL   YSMD                                  
031760,000363: 16,2663           00300                                    QMAJ                                  
031761,000364: 14,2000                                           SETLOC   P50S1                                 
031762,000365: 14,2000                                           BANK                                           
031763,000366: 
031764,000367:                                                                                                  #  NAME-         AUTOMATIC OPTICS POSITIONING ROUTINE
031765,000368: 
031766,000369:                                                                                                  #  FUNCTION-     (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
031767,000370:                                                                                                  #                (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
031768,000371: 
031769,000372:                                                                                                  #  CALLING SEQUENCE- CALL R52
031770,000373: 
031771,000374:                                                                                                  #  INPUT-        1.  TARG1FLG AND TARG2FLG- PRESET BY CALLER
031772,000375:                                                                                                  #                2.  RNDVZFLG AND TRACKFLG- PRESET BY CALLER
031773,000376:                                                                                                  #                3.  STAR CODE- PRESET BY CALLER. ALSO INPUT THROUGH DSKY
031774,000377:                                                                                                  #                4.  LAT, LONG AND ALT OF LANDMARK- INPUT THROUGH DSKY
031775,000378:                                                                                                  #                5.  NO. OF MARKS (MARKINDX)- PRESET BY CALLER
031776,000379: 
031777,000380:                                                                                                  #  OUTPUT-       DRIVE SHAFT AND TRUNNION CDUS
031778,000381: 
031779,000382:                                                                                                  #  SUBROUTINES-  1.  FIXDELAY            7.  CLEANDSP
031780,000383:                                                                                                  #                2.  GOPERF1             8.  GODSPR
031781,000384:                                                                                                  #                3.  GOFLASH             9.  REFLASHR
031782,000385:                                                                                                  #                4.  R53                 10. R52.2
031783,000386:                                                                                                  #                5.  ALARM               11. R52.3
031784,000387:                                                                                                  #                6.  SR52.1
031785,000388: 
031786,000389: 14,2011                                           COUNT    15/R52                                
031787,000390: 
031788,000391: 14,2011           43020        R52                STQ      CLEAR                                 
031789,000392: 14,2012           02576                                    SAVQR52                               
031790,000393: 14,2013           04265                                    ADVTRK                                
031791,000394: 14,2014           77776        R52VRB             EXIT                                           
031792,000395: 14,2015           00006                           EXTEND                                         
031793,000396: 14,2016           30036                           DCA      CDUT                                  
031794,000397: 14,2017           53161                           DXCH     DESOPTT                               
031795,000398: 14,2020           06006                           TC       INTPRET                               
031796,000399: 14,2021           43131                           SSP      CLEAR                                 
031797,000400: 14,2022           01304                                    OPTIND                                
031798,000401: 14,2023           00000                                    0                                     
031799,000402: 14,2024           00271                                    R53FLAG                               
031800,000403: 14,2025           77776                           EXIT                                           
031801,000404: 14,2026           06006        R52A               TC       INTPRET                               
031802,000405: 14,2027           43014                           SET      BON                                   
031803,000406: 14,2030           00073                                    TRUNFLAG                              
031804,000407: 14,2031           00705                                    TARG1FLG                              
031805,000408: 14,2032           30112                                    R52H                                  
031806,000409: 14,2033           77414                           CLEAR    EXIT                                  
031807,000410: 14,2034           03660                                    TERMIFLG                              
031808,000411: 14,2035           31314        R52C               CA       SWSAMPLE                              #  IS OPTICS MODE IN AGC
031809,000412: 14,2036           00006                           EXTEND                                         
031810,000413: 14,2037           62140                           BZMF     R52M                                  #  MANUAL
031811,000414: 14,2040           04676        R52D               TC       BANKCALL                              #  AGC
031812,000415: 14,2041           26254                           CADR     SR52.1                                
031813,000416: 14,2042           12170                           TCF      R52L                                  #  GR 90 DEGREES
031814,000417: 14,2043           12133                           TCF      R52J                                  #  GR 50 DEGREES
031815,000418: 14,2044           05562                           TC       UPFLAG                                #  LS 50 DEGREES
031816,000419: 14,2045           00013                           ADRES    TRUNFLAG                              #  SET TRUNFLAG BIT 4 FLAG 0
031817,000420: 14,2046           35022        R52JA              CAF      BIT10                                 #  IS THIS A LEM
031818,000421: 14,2047           70075                           MASK     STATE      +1                         
031819,000422: 14,2050           10000                           CCS      A                                     
031820,000423: 14,2051           02061                           TC       R52E                                  #  YES
031821,000424: 14,2052           35026                           CAF      BIT6                                  #  NO, IS R53FLAG SET
031822,000425: 14,2053           70074                           MASK     STATE                                 
031823,000426: 14,2054           10000                           CCS      A                                     
031824,000427: 14,2055           12061                           TCF      R52E                                  #  YES
031825,000428: 14,2056           32160                           CAF      V06N92                                #  NO
031826,000429: 14,2057           04676                           TC       BANKCALL                              
031827,000430: 14,2060           20676                           CADR     GODSPR                                
031828,000431: 14,2061           31314        R52E               CA       SWSAMPLE                              #  IS OSS IN CMC MODE
031829,000432: 14,2062           00006                           EXTEND                                         
031830,000433: 14,2063           62074                           BZMF     R52F                                  #  NO
031831,000434: 14,2064           40074                           CS       STATE                                 #  YES- IS TRUNFLAG SET
031832,000435: 14,2065           75030                           MASK     BIT4                                  
031833,000436: 14,2066           10000                           CCS      A                                     
031834,000437: 14,2067           02072                           TC       +3                                    #  NO
031835,000438: 14,2070           31775                           CA       PAC                                   #  YES
031836,000439: 14,2071           55160                           TS       DESOPTT                               
031837,000440: 14,2072           31773                           CA       SAC                                   
031838,000441: 14,2073           55161                           TS       DESOPTS                               
031839,000442: 14,2074           35052        R52F               CAF      .5SEC                                 #  WAIT 1/2 SEC
031840,000443: 14,2075           04676                           TC       BANKCALL                              
031841,000444: 14,2076           01732                           CADR     DELAYJOB                              
031842,000445: 14,2077           35022                           CAF      BIT10                                 
031843,000446: 14,2100           70075                           MASK     STATE      +1                         
031844,000447: 14,2101           10000                           CCS      A                                     
031845,000448: 14,2102           12113                           TCF      R52HA                                 #  YES, LEM
031846,000449: 14,2103           35015                           CAF      BIT15                                 #  NO
031847,000450: 14,2104           70103                           MASK     STATE      +7                         #  IS TERMIFLG SET
031848,000451: 14,2105           00006                           EXTEND                                         
031849,000452: 14,2106           12035                           BZF      R52C                                  #  NO
031850,000453: 14,2107           06006        R52Q               TC       INTPRET                               #  YES
031851,000454: 14,2110           77650                           GOTO                                           
031852,000455: 14,2111           02576                                    SAVQR52                               
031853,000456: 14,2112           77776        R52H               EXIT                                           #  LEM
031854,000457: 14,2113           04676        R52HA              TC       BANKCALL                              
031855,000458: 14,2114           76570                           CADR     R61CSM                                
031856,000459: 14,2115           30075                           CA       STATE      +1                         
031857,000460: 14,2116           75027                           MASK     BIT5                                  
031858,000461: 14,2117           00006                           EXTEND                                         #  TRACKFLG
031859,000462: 14,2120           12107                           BZF      R52Q                                  
031860,000463: 
031861,000464: 14,2121           40075                           CS       STATE      +1                         
031862,000465: 14,2122           75025                           MASK     BIT7                                  #  UPDATFLG
031863,000466: 14,2123           10000                           CCS      A                                     
031864,000467: 14,2124           12131                           TCF      R52SYNC                               
031865,000468: 
031866,000469: 14,2125           30101        R52I               CA       STATE      +5                         
031867,000470: 14,2126           75022                           MASK     BIT10                                 
031868,000471: 14,2127           10000                           CCS      A                                     
031869,000472: 14,2130           02040                           TC       R52D                                  #  PRFTRKAT = 1
031870,000473: 14,2131           32204        R52SYNC            CAF      1.8SEC                                #  MAKE UP FOR LOST TIME
031871,000474: 14,2132           12075                           TCF      R52F       +1                         
031872,000475: 
031873,000476: 14,2133           05574        R52J               TC       DOWNFLAG                              #  CLEAR TRUNFLAG
031874,000477: 14,2134           00013                           ADRES    TRUNFLAG                              #  BIT 4 FLAG 0
031875,000478: 14,2135           05664                           TC       ALARM                                 #  SET 407 ALARM
031876,000479: 14,2136           00407                           OCT      407                                   
031877,000480: 14,2137           02046                           TC       R52JA                                 
031878,000481: 14,2140           35026        R52M               CAF      BIT6                                  #  IS R53FLAG SET
031879,000482: 14,2141           70074                           MASK     STATE                                 
031880,000483: 14,2142           10000                           CCS      A                                     
031881,000484: 14,2143           02074                           TC       R52F                                  #  YES
031882,000485: 14,2144           00004                           INHINT                                         #  NO
031883,000486: 14,2145           37661                           CAF      PRIO24                                
031884,000487: 14,2146           05163                           TC       FINDVAC                               
031885,000488: 14,2147  E5,1773                                  EBANK=   SAC                                   
031886,000489: 14,2147           02153 30065                     2CADR    R53JOB                                
031887,000490: 
031888,000491: 14,2151           00003                           RELINT                                         
031889,000492: 14,2152           12074                           TCF      R52F                                  
031890,000493: 14,2153           06006        R53JOB             TC       INTPRET                               
031891,000494: 14,2154           77624                           CALL                                           
031892,000495: 14,2155           31302                                    R53                                   
031893,000496: 14,2156           77776        ENDPLAC            EXIT                                           #  INTERPRETER RETURN TO ENDOFJOB (R22 USES)
031894,000497: 14,2157           05233                           TC       ENDOFJOB                              
031895,000498: 14,2160           01534        V06N92             VN       00692                                 
031896,000499: 14,2161           01531        V06N89A            VN       0689                                  
031897,000500: 14,2162           10464 12470  SHAXIS             2DEC     .5376381241 B-1                        
031898,000501: 
031899,000502: 14,2164           00000 00000                     2DEC     0          B-28                       
031900,000503: 
031901,000504: 14,2166           15373 11554                     2DEC     .8431766920 B-1                        
031902,000505: 
031903,000506: 14,2170           35022        R52L               CAF      BIT10                                 #  IS THIS A LEM
031904,000507: 14,2171           70075                           MASK     STATE      +1                         
031905,000508: 14,2172           10000                           CCS      A                                     
031906,000509: 14,2173           02133                           TC       R52J                                  #  YES
031907,000510: 14,2174           32203                           CAF      OCT404                                
031908,000511: 14,2175           04676                           TC       BANKCALL                              
031909,000512: 14,2176           21766                           CADR     PRIOLARM                              
031910,000513: 14,2177           12205                           TCF      TERM52                                #  TERMINATE
031911,000514: 14,2200           12074                           TCF      R52F                                  #  PROCEED
031912,000515: 14,2201           12074                           TCF      R52F                                  #  NO PROVISION FOR NEW DATA
031913,000516: 14,2202           15233                           TCF      ENDOFJOB                              
031914,000517: 
031915,000518: 14,2203           00404        OCT404             OCT      404                                   
031916,000519: 14,2204           00264        1.8SEC             DEC      180        B-14                       
031917,000520: 
031918,000521: 14,2205           05552        TERM52             TC       CLEARMRK                              
031919,000522: 
031920,000523: 14,2206           04676                           TC       BANKCALL                              #  KILL MARK SYSTEM
031921,000524: 14,2207           16063                           CADR     MKRELEAS                              
031922,000525: 
031923,000526: 
031924,000527: 14,2210           35035                           CAF      ZERO                                  
031925,000528: 14,2211           55323                           TS       OPTCADR                               
031926,000529: 
031927,000530: 14,2212           04676                           TC       BANKCALL                              #  CLEAR OUT EXTENDED VERBS
031928,000531: 14,2213           20560                           CADR     KLEENEX                               
031929,000532: 
031930,000533: 14,2214           04106                           TC       GOTOPOOH                              #  NOW GO TO POO
031931,000534: 
031932,000535: 14,2215           43020        ADVORB             STQ      SET                                   #  SETS UP ADVANCED ORBIT TRACKING
031933,000536: 14,2216           02576                                    SAVQR52                               
031934,000537: 14,2217           04065                                    ADVTRK                                
031935,000538: 14,2220           43014                           SET      SET                                   
031936,000539: 14,2221           01463                                    LUNAFLAG                              
031937,000540: 14,2222           00462                                    ERADFLAG                              
031938,000541: 14,2223           77650                           GOTO                                           
031939,000542: 14,2224           30014                                    R52VRB                                
031940,000543: 
031941,000544:                                                                                                  #  NAME - S50 ALIAS LOCSAM
031942,000545:                                                                                                  #  NAME- LOCSAM
031943,000546: 
031944,000547:                                                                                                  #  FUNCTION - TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
031945,000548:                                                                                                  #              IMU ALIGNMENT PROGRAMS
031946,000549: 
031947,000550:                                                                                                  #        DEFINE:
031948,000551: 
031949,000552:                                                                                                  #        RATT = POSITION VECTOR OF CM WRT PRIMARY BODY
031950,000553: 
031951,000554:                                                                                                  #        VATT = VELOCITY VECTOR OF CM WRT PRIMARY BODY
031952,000555: 
031953,000556:                                                                                                  #        RE = RADIUS OF EARTH
031954,000557: 
031955,000558:                                                                                                  #        RM = RADIUS OF MOON
031956,000559: 
031957,000560:                                                                                                  #        ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
031958,000561:                                                                                                  #                  WRT TO SUN OVER THE VELOCITY OF LIGHT
031959,000562: 
031960,000563:                                                                                                  #        REM = POSITION OF MOON WRT EARTH
031961,000564: 
031962,000565:                                                                                                  #        RES = POSITION OF SUN WRT EARTH
031963,000566: 
031964,000567:                                                                                                  #        C = VELOCITY OF LIGHT
031965,000568: 
031966,000569:                                                                                                  #                EARTH IS PRIMARY                        MOON IS PRIMARY
031967,000570:                                                                                                  #                        -                                       -
031968,000571:                                                                                                  #                VEARTH=-1(RATT)                         VEARTH=-1(REM+RATT)
031969,000572:                                                                                                  #                        -                                       -
031970,000573:                                                                                                  #                VMOON = 1(REM-RATT)                     VMOON =-1(RATT)
031971,000574:                                                                                                  #                        -                                       -
031972,000575:                                                                                                  #                VSUN  = 1(RES)                          VSUN  = 1(RES-REM)
031973,000576:                                                                                                  #                              -1
031974,000577:                                                                                                  #                CEARTH=COS(SIN  (RE/RATT)+5)            CEARTH=COS 5
031975,000578:                                                                                                  #                                                                      -1
031976,000579:                                                                                                  #                CMOON =COS 5                            CMOON =COS(SIN  CRM/RATT)+5)
031977,000580: 
031978,000581:                                                                                                  #                CSUN  =COS 15                           CSUN  =COS 15
031979,000582: 
031980,000583:                                                                                                  #                            VEL/C = VSUN X ECLIPOL + VATT/C
031981,000584: 
031982,000585:                                                                                                  #  CALL  -       DLOAD   CALL
031983,000586:                                                                                                  #                        DESIRED TIME
031984,000587:                                                                                                  #                        LOCSAM
031985,000588: 
031986,000589:                                                                                                  #  INPUTS -      MPAC = TIME
031987,000590: 
031988,000591:                                                                                                  #  OUTPUTS-      VEARTH, VMOON, VSUN, CEARTH, CMOON, CSUN, VEL/C
031989,000592: 
031990,000593:                                                                                                  #  SUBROUTINES-  LSPOS, CSMCONIC
031991,000594: 
031992,000595:                                                                                                  #  DEBRIS  -     VAC AREA, SEE SUBROUTINES
031993,000596: 
031994,000597: 14,2000                                           SETLOC   P50S1                                 
031995,000598: 14,2000                                           BANK                                           
031996,000599: 
031997,000600: 14,2225                                           COUNT*   $$/S50                                
031998,000601: 
031999,000602: 14,2225  14,2225               LOCSAM             =        S50                                   
032000,000603: 14,2225           77620        S50                STQ                                            
032001,000604: 14,2226           00300                                    QMAJ                                  
032002,000605: 14,2227           36607                           STCALL   TSIGHT                                
032003,000606: 14,2230           54110                                    LSPOS                                 
032004,000607: 14,2231           26752                           STOVL    VMOON                                 
032005,000608: 14,2232           00003                                    2D                                    
032006,000609: 14,2233           16744                           STODL    VSUN                                  
032007,000610: 14,2234           02607                                    TSIGHT                                
032008,000611: 14,2235           34041                           STCALL   TDEC1                                 
032009,000612: 14,2236           27124                                    CSMCONIC                              
032010,000613: 14,2237           61131                           SSP      TIX,2                                 
032011,000614: 14,2240           00052                                    S2                                    
032012,000615: 14,2241           00000                                    0                                     
032013,000616: 14,2242           30265                                    MOONCNTR                              
032014,000617: 14,2243           52375        EARTCNTR           VLOAD    VSU                                   
032015,000618: 14,2244           02752                                    VMOON                                 
032016,000619: 14,2245           00001                                    RATT                                  
032017,000620: 14,2246           77656                           UNIT                                           
032018,000621: 14,2247           26752                           STOVL    VMOON                                 
032019,000622: 14,2250           00001                                    RATT                                  
032020,000623: 14,2251           57456                           UNIT     VCOMP                                 
032021,000624: 14,2252           16736                           STODL    VEARTH                                
032022,000625: 14,2253           32250                                    RSUBE                                 
032023,000626: 14,2254           77624                           CALL                                           
032024,000627: 14,2255           30325                                    OCCOS                                 
032025,000628: 14,2256           14017                           STODL    CEARTH                                
032026,000629: 14,2257           32266                                    CSS5                                  
032027,000630: 14,2260           24023                           STOVL    CMOON                                 
032028,000631: 14,2261           02744                                    VSUN                                  
032029,000632: 14,2262           77656                           UNIT                                           
032030,000633: 14,2263           36744                           STCALL   VSUN                                  
032031,000634: 14,2264           30312                                    ENDSAM                                
032032,000635: 14,2265           40575        MOONCNTR           VLOAD    VSR8                                  
032033,000636: 14,2266           02752                                    VMOON                                 
032034,000637: 14,2267           51362                           VSR1     BVSU                                  
032035,000638: 14,2270           02744                                    VSUN                                  
032036,000639: 14,2271           77656                           UNIT                                           
032037,000640: 14,2272           26744                           STOVL    VSUN                                  
032038,000641: 14,2273           02752                                    VMOON                                 
032039,000642: 14,2274           53455                           VAD      UNIT                                  
032040,000643: 14,2275           00001                                    RATT                                  
032041,000644: 14,2276           77676                           VCOMP                                          
032042,000645: 14,2277           26736                           STOVL    VEARTH                                
032043,000646: 
032044,000647: 14,2300           00001                                    RATT                                  
032045,000648: 14,2301           57456                           UNIT     VCOMP                                 
032046,000649: 14,2302           16752                           STODL    VMOON                                 
032047,000650: 14,2303           32246                                    RSUBM                                 
032048,000651: 14,2304           77624                           CALL                                           
032049,000652: 14,2305           30325                                    OCCOS                                 
032050,000653: 14,2306           14023                           STODL    CMOON                                 
032051,000654: 14,2307           32266                                    CSS5                                  
032052,000655: 14,2310           24017                           STOVL    CEARTH                                
032053,000656: 14,2311           02744                                    VSUN                                  
032054,000657: 14,2312           77635        ENDSAM             VXV                                            
032055,000658: 14,2313           32256                                    ECLIPOL                               
032056,000659: 14,2314           27474                           STOVL    VEL/C                                 
032057,000660: 14,2315           00007                                    VATT                                  
032058,000661: 14,2316           53361                           VXSC     VAD                                   
032059,000662: 14,2317           32254                                    1/C                                   
032060,000663: 14,2320           03474                                    VEL/C                                 
032061,000664: 14,2321           17474                           STODL    VEL/C                                 
032062,000665: 14,2322           32270                                    CSSUN                                 
032063,000666: 14,2323           34021                           STCALL   CSUN                                  
032064,000667: 14,2324           00300                                    QMAJ                                  
032065,000668: 14,2325           70471        OCCOS              DDV      SR1                                   
032066,000669: 14,2326           00045                                    36D                                   
032067,000670: 14,2327           43336                           ASIN     DAD                                   
032068,000671: 14,2330           32252                                    5DEGREES                              
032069,000672: 14,2331           70546                           COS      SR1                                   
032070,000673: 14,2332           77616                           RVQ                                            
032071,000674: 15,2000                                           SETLOC   P50S                                  
032072,000675: 15,2000                                           BANK                                           
032073,000676: 15,2245           00065 01265  RSUBM              2DEC     1738090    B-29                       #  MOON RADIUS IN METERS
032074,000677: 
032075,000678: 15,2247           00302 24533  RSUBE              2DEC     6378166    B-29                       
032076,000679: 
032077,000680: 15,2251           00343 21616  5DEGREES           2DEC     .013888889                            #  SCALED IN REVS
032078,000681: 
032079,000682: 15,2253           00000 13143  1/C                2DEC     .000042699 B-1                        #  *
032080,000683: 
032081,000684: 15,2255           00000 00000  ECLIPOL            2DEC     0          B-28                       #  *
032082,000685: 
032083,000686: 15,2257           77777 53231                     2DEC     -.00007896 B-1                        #  *
032084,000687: 
032085,000688: 15,2261           00001 17570                     2DEC     .00018209  B-1                        #  *             * FOR USE BY CSM ONLY
032086,000689: 
032087,000690: 15,2263           00001 16700  TSIGHT1            2DEC     24000      B-28                       
032088,000691: 
032089,000692: 15,2265                        CEARTH             =        14D                                   
032090,000693: 15,2265                        CSUN               =        16D                                   
032091,000694: 15,2265                        CMOON              =        18D                                   
032092,000695: 15,2265           07760 14473  CSS5               2DEC     .2490475                              #  (COS 5)/4
032093,000696: 15,2267           07564 15042  CSSUN              2DEC     .24148                                #  COS 15  /4
032094,000697: 
032095,000698:                                                                                                  #  PROGRAM NAME - PICAPAR        DATE DEC 20 66
032096,000699:                                                                                                  #  MOD 1                         LOG SECTION P51-P53
032097,000700:                                                                                                  #                                ASSEMBLY  SUNDISK  REV40
032098,000701:                                                                                                  #  BY KEN VINCENT
032099,000702: 
032100,000703:                                                                                                  #  FUNCTION
032101,000704:                                                                                                  #        THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
032102,000705:                                                                                                  #        WITH RESPECT TO INERTIAL SPACE.  IT THEN COMPUTES THE SHAFT AXIS (SAX)
032103,000706:                                                                                                  #        WITH RESPECT TO REFERENCE INERTIAL.  EACH STAR IN THE CATALOG IS TESTED
032104,000707:                                                                                                  #        TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH, SUN OR MOON.  IF A
032105,000708:                                                                                                  #        STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STAR OF LOWER INDEX.
032106,000709:                                                                                                  #        THE PAIRED STAR IS TESTED FOR OCCULTATION.  PAIRS OF STARS THAT PASS
032107,000710:                                                                                                  #        THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION.  A PAIR OF STARS
032108,000711:                                                                                                  #        HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 66 DEGREES
032109,000712:                                                                                                  #        AND MORE THAN 40 DEGREES.  THOSE PAIRS OF STARS WITH GOOD SEPARATION
032110,000713:                                                                                                  #        ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW.  (WITHIN
032111,000714:                                                                                                  #        33 DEGREES OF SAX).  THE PAIR WITH MAXIMUM SEPARATION IS CHOSEN FROM
032112,000715:                                                                                                  #        THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
032113,000716: 
032114,000717:                                                                                                  #  CALLING SEQUENCE
032115,000718:                                                                                                  #        L       TC      BANKCALL
032116,000719:                                                                                                  #        L+1     CADR    PICAPAR
032117,000720:                                                                                                  #        L+2     ERROR RETURN - NO STARS IN FIELD OF VIEW
032118,000721:                                                                                                  #        L+3     NORMAL RETURN
032119,000722: 
032120,000723:                                                                                                  #  OUTPUT
032121,000724:                                                                                                  #        BESTI, BESTJ - SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
032122,000725:                                                                                                  #        VFLAG - FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW
032123,000726: 
032124,000727:                                                                                                  #  INITIALIZATION
032125,000728:                                                                                                  #        1)      A CALL TO LOCSAM MUST BE MADE
032126,000729:                                                                                                  #        2)      VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TOO APPROXIMATE TIME OF
032127,000730:                                                                                                  #                SIGHTINGS.
032128,000731: 
032129,000732:                                                                                                  #  DEBRIS
032130,000733:                                                                                                  #        WORK AREA
032131,000734:                                                                                                  #        X,Y,ZNB
032132,000735:                                                                                                  #        SINCDU, COSCDU
032133,000736:                                                                                                  #        STARAD - STAR +5
032134,000737: 
032135,000738: 15,2271                                           COUNT    14/PICAP                              
032136,000739: 
032137,000740: 14,2000                                           SETLOC   P50S1                                 
032138,000741: 14,2000                                           BANK                                           
032139,000742: 14,2333           04725        PICAPAR            TC       MAKECADR                              
032140,000743: 14,2334           55777                           TS       QMIN                                  
032141,000744: 14,2335           06006                           TC       INTPRET                               
032142,000745: 14,2336           77624                           CALL                                           
032143,000746: 14,2337           47501                                    CDUTRIG                               
032144,000747: 14,2340           77624                           CALL                                           
032145,000748: 14,2341           34664                                    CALCSMSC                              
032146,000749: 14,2342           77601                           SETPD                                          
032147,000750: 14,2343           00001                                    0                                     
032148,000751: 14,2344           71214                           SET      DLOAD                                 #  VFLAG = 1
032149,000752: 14,2345           01465                                    VFLAG                                 
032150,000753: 14,2346           11566                                    DPZERO                                
032151,000754: 14,2347           24303                           STOVL    BESTI                                 
032152,000755: 14,2350           02714                                    XNB                                   
032153,000756: 14,2351           63361                           VXSC     PDVL                                  
032154,000757: 14,2352           30511                                    SIN33                                 
032155,000758: 14,2353           02730                                    ZNB                                   
032156,000759: 14,2354           74370                           AXT,1    VXSC                                  
032157,000760: 14,2355           00344                                    228D                                  #  X1 = 37 X 6 + 6
032158,000761: 14,2356           30513                                    COS33                                 
032159,000762: 14,2357           77655                           VAD                                            
032160,000763: 14,2360           53505                           VXM      UNIT                                  
032161,000764: 14,2361           01736                                    REFSMMAT                              
032162,000765: 14,2362           02760                           STORE    SAX                                   #  SAX = SHAFT AXIS
032163,000766: 14,2363           66331                           SSP      SSP                                   #  S1 = S2 = 6
032164,000767: 14,2364           00051                                    S1                                    
032165,000768: 14,2365           00006                                    6                                     
032166,000769: 14,2366           00052                                    S2                                    
032167,000770: 14,2367           00006                                    6                                     
032168,000771: 14,2370           52100        PIC1               TIX,1    GOTO                                  #  MAJOR STAR
032169,000772: 14,2371           30373                                    PIC2                                  
032170,000773: 14,2372           30522                                    PICEND                                
032171,000774: 14,2373           45173        PIC2               VLOAD*   CALL                                  
032172,000775: 14,2374           31763                                    CATLOG,1                              
032173,000776: 14,2375           30466                                    OCCULT                                
032174,000777: 14,2376           73014                           BON      LXA,2                                 
032175,000778: 14,2377           01710                                    CULTFLAG                              
032176,000779: 14,2400           30370                                    PIC1                                  
032177,000780: 14,2401           00046                                    X1                                    
032178,000781: 14,2402           52104        PIC3               TIX,2    GOTO                                  
032179,000782: 14,2403           30405                                    PIC4                                  
032180,000783: 14,2404           30370                                    PIC1                                  
032181,000784: 14,2405           45173        PIC4               VLOAD*   CALL                                  
032182,000785: 14,2406           46014                                    CATLOG,2                              
032183,000786: 14,2407           30466                                    OCCULT                                
032184,000787: 14,2410           76614                           BON      VLOAD*                                
032185,000788: 14,2411           01710                                    CULTFLAG                              
032186,000789: 14,2412           30402                                    PIC3                                  
032187,000790: 14,2413           31763                                    CATLOG,1                              
032188,000791: 14,2414           45237                           DOT*     DSU                                   
032189,000792: 14,2415           46014                                    CATLOG,2                              
032190,000793: 14,2416           30515                                    CSS66                                 #  SEPERATION LESS THAN 66 DEG.
032191,000794: 14,2417           43240                           BMN      DAD                                   
032192,000795: 14,2420           30402                                    PIC3                                  
032193,000796: 14,2421           30517                                    CSS6640                               #  SEPERATION MORE THAN 40 DEG.
032194,000797: 14,2422           77644                           BPL                                            
032195,000798: 14,2423           30402                                    PIC3                                  
032196,000799: 14,2424           50373                           VLOAD*   DOT                                   
032197,000800: 14,2425           31763                                    CATLOG,1                              
032198,000801: 14,2426           02760                                    SAX                                   
032199,000802: 14,2427           50025                           DSU      BMN                                   #  MAJOR STAR IN CONE
032200,000803: 14,2430           30521                                    CSS33                                 
032201,000804: 14,2431           30370                                    PIC1                                  
032202,000805: 14,2432           50373                           VLOAD*   DOT                                   
032203,000806: 14,2433           46014                                    CATLOG,2                              
032204,000807: 14,2434           02760                                    SAX                                   
032205,000808: 14,2435           51025                           DSU      BPL                                   
032206,000809: 14,2436           30521                                    CSS33                                 
032207,000810: 14,2437           30442                                    STRATGY                               
032208,000811: 14,2440           77650                           GOTO                                           
032209,000812: 14,2441           30402                                    PIC3                                  
032210,000813: 14,2442           77614        STRATGY            BONCLR                                         
032211,000814: 14,2443           01605                                    VFLAG                                 
032212,000815: 14,2444           30461                                    NEWPAR                                
032213,000816: 14,2445           65120                           XCHX,1   XCHX,2                                
032214,000817: 14,2446           00302                                    BESTI                                 
032215,000818: 14,2447           00303                                    BESTJ                                 
032216,000819: 14,2450           47773        STRAT              VLOAD*   DOT*                                  
032217,000820: 14,2451           31763                                    CATLOG,1                              
032218,000821: 14,2452           46014                                    CATLOG,2                              
032219,000822: 14,2453           43006                           PUSH     BOFINV                                
032220,000823: 14,2454           01545                                    VFLAG                                 
032221,000824: 14,2455           30445                                    STRAT      -3                         
032222,000825: 14,2456           45345                           DLOAD    DSU                                   
032223,000826: 14,2457           77644                           BPL                                            
032224,000827: 14,2460           30402                                    PIC3                                  
032225,000828: 14,2461           67130        NEWPAR             SXA,1    SXA,2                                 
032226,000829: 14,2462           00302                                    BESTI                                 
032227,000830: 14,2463           00303                                    BESTJ                                 
032228,000831: 14,2464           77650                           GOTO                                           
032229,000832: 14,2465           30402                                    PIC3                                  
032230,000833: 14,2466           51321        OCCULT             MXV      BVSU                                  
032231,000834: 14,2467           02736                                    CULTRIX                               
032232,000835: 14,2470           00017                                    CSS                                   
032233,000836: 14,2471           77654                           BZE                                            
032234,000837: 14,2472           30505                                    CULTED                                
032235,000838: 14,2473           75240                           BMN      SIGN                                  
032236,000839: 14,2474           30505                                    CULTED                                
032237,000840: 14,2475           00160                                    MPAC       +3                         
032238,000841: 14,2476           75240                           BMN      SIGN                                  
032239,000842: 14,2477           30505                                    CULTED                                
032240,000843: 14,2500           00162                                    MPAC       +5                         
032241,000844: 14,2501           43040                           BMN      CLRGO                                 
032242,000845: 14,2502           30505                                    CULTED                                
032243,000846: 14,2503           01630                                    CULTFLAG                              
032244,000847: 14,2504           00052                                    QPRET                                 
032245,000848: 14,2505           77614        CULTED             SETGO                                          
032246,000849: 14,2506           01430                                    CULTFLAG                              
032247,000850: 14,2507           00052                                    QPRET                                 
032248,000851: 14,2510  0000016               CSS                =        CEARTH                                
032249,000852: 14,2510           21150 25157  SIN33              2DEC     .5376381241                            
032250,000853: 
032251,000854: 14,2512           32766 22713  COS33              2DEC     .8431756920                            
032252,000855: 
032253,000856: 14,2514           01736 35137  CSS66              2DEC     .060480472                            #  (COS76)/4
032254,000857: 
032255,000858: 14,2516           73003 65403  CSS6640            2DEC     -.15602587                            #  (COS76 - COS30)/4
032256,000859: 
032257,000860: 14,2520           06233 26112  CSS33              2DEC     .197002688                            #  COS(1/2(76))/4
032258,000861: 
032259,000862: 14,2522           77414        PICEND             BOFF     EXIT                                  
032260,000863: 14,2523           01745                                    VFLAG                                 
032261,000864: 14,2524           30526                                    PICGXT                                
032262,000865: 14,2525           02530                           TC       PICBXT                                
032263,000866: 14,2526           77776        PICGXT             EXIT                                           
032264,000867: 14,2527           25777                           INCR     QMIN                                  
032265,000868: 14,2530           31777        PICBXT             CA       QMIN                                  
032266,000869: 14,2531           04702                           TC       SWCALL                                
032267,000870:                                                                                                  # V1             =       12D
032268,000871: 
032269,000872:                                                                                                  #  NAME - R51    FINE ALIGN
032270,000873:                                                                                                  #  FUNCTION - TO ALIGN THE STABLE MEMBER TO REFSMMAT
032271,000874:                                                                                                  #  CALLING SEQ - CALL R51
032272,000875:                                                                                                  #  INPUT - BESTI, BESTJ (PAIR OF STAR NO)
032273,000876:                                                                                                  #  OUTPUT - GYRO TORQUE PULSES
032274,000877:                                                                                                  #  SUBROUTINES - R52, R54, R55 (SXTNB, NBSM, AXISGEN
032275,000878: 
032276,000879: 14,2532                                           COUNT    14/R51                                
032277,000880: 
032278,000881: 14,2532           77776        R51                EXIT                                           
032279,000882: 14,2533           35033                           CAF      BIT1                                  
032280,000883: 14,2534           54304                           TS       STARIND                               
032281,000884: 14,2535           54301                           TS       MARKINDX                              
032282,000885: 14,2536           06006        R51.2              TC       INTPRET                               
032283,000886: 14,2537           43014        R51.3              CLEAR    CLEAR                                 
032284,000887: 14,2540           00666                                    TARG2FLG                              
032285,000888: 14,2541           00665                                    TARG1FLG                              
032286,000889: 14,2542           77776                           EXIT                                           
032287,000890: 14,2543           05426                           TC       PHASCHNG                              
032288,000891: 14,2544           05024                           OCT      05024                                 #  RESTART GR 4 FOR R52-R53
032289,000892: 14,2545           13000                           OCT      13000                                 
032290,000893: 14,2546           50304                           INDEX    STARIND                               
032291,000894: 14,2547           30302                           CA       BESTI                                 
032292,000895: 14,2550           00006                           EXTEND                                         
032293,000896: 14,2551           72713                           MP       1/6TH                                 
032294,000897: 14,2552           54735                           TS       STARCODE                              
032295,000898: 14,2553           32712        R51DSP             CAF      V01N70                                
032296,000899: 14,2554           04676                           TC       BANKCALL                              
032297,000900: 14,2555           21057                           CADR     GOFLASHR                              
032298,000901: 14,2556           04106                           TC       GOTOPOOH                              
032299,000902: 14,2557           02564                           TC       +5                                    
032300,000903: 14,2560           02553                           TC       -5                                    
032301,000904: 14,2561           36211                           CAF      SIX                                   
032302,000905: 14,2562           05542                           TC       BLANKET                               
032303,000906: 14,2563           15233                           TCF      ENDOFJOB                              
032304,000907: 14,2564           03370                           TC       CHKSCODE                              
032305,000908: 14,2565           04400                           TC       FALTON                                
032306,000909: 14,2566           02553                           TC       R51DSP                                
032307,000910: 14,2567           06006                           TC       INTPRET                               
032308,000911: 14,2570           45034                           RTB      CALL                                  
032309,000912: 14,2571           45510                                    LOADTIME                              
032310,000913: 14,2572           32340                                    PLANET                                
032311,000914: 14,2573           72131                           SSP      LXA,1                                 
032312,000915: 14,2574           00051                                    S1                                    
032313,000916: 14,2575           00000                                    0                                     
032314,000917: 14,2576           00304                                    STARIND                               
032315,000918: 14,2577           77700                           TIX,1                                          
032316,000919: 14,2600           30603                                    R51ST                                 
032317,000920: 14,2601           36617                           STCALL   STARSAV2                              #  2ND STAR
032318,000921: 14,2602           30604                                    R51ST      +1                         
032319,000922: 14,2603           02611        R51ST              STORE    STARSAV1                              #  1ST STAR
032320,000923: 14,2604           77776                           EXIT                                           
032321,000924: 14,2605           41011                           CS       MODREG                                #  IS THIS P54
032322,000925: 14,2606           62711                           AD       OCT66                                 
032323,000926: 14,2607           00006                           EXTEND                                         
032324,000927: 14,2610           12704                           BZF      R51B                                  #  YES
032325,000928: 14,2611           06006                           TC       INTPRET                               
032326,000929: 14,2612           77624                           CALL                                           
032327,000930: 14,2613           30011                                    R52                                   #  AOP WILL MAKE CALLS TO SIGHTING
032328,000931: 14,2614           77624        R51A               CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
032329,000932: 14,2615           36060                                    SXTSM                                 
032330,000933: 14,2616           02617                           STORE    STARSAV2                              
032331,000934: 14,2617           77776                           EXIT                                           
032332,000935: 14,2620           04676                           TC       BANKCALL                              
032333,000936: 14,2621           16063                           CADR     MKRELEAS                              
032334,000937: 14,2622           06006                           TC       INTPRET                               
032335,000938: 14,2623           45145                           DLOAD    CALL                                  
032336,000939: 14,2624           02607                                    TSIGHT                                
032337,000940: 14,2625           32340                                    PLANET                                
032338,000941: 14,2626           77776                           EXIT                                           
032339,000942: 14,2627           10304                           CCS      STARIND                               
032340,000943: 14,2630           02671                           TC       R51.4                                 
032341,000944: 14,2631           06006                           TC       INTPRET                               
032342,000945: 14,2632           53521                           MXV      UNIT                                  
032343,000946: 14,2633           01736                                    REFSMMAT                              
032344,000947: 14,2634           02736                           STORE    STARAD                                
032345,000948: 14,2635           77775                           VLOAD                                          
032346,000949: 14,2636           02617                                    STARSAV2                              
032347,000950: 14,2637           24007                           STOVL    6D                                    
032348,000951: 14,2640           02611                                    STARSAV1                              
032349,000952: 14,2641           24015                           STOVL    12D                                   
032350,000953: 14,2642           02601                                    PLANVEC                               
032351,000954: 14,2643           36744                           STCALL   STARAD     +6                         
032352,000955: 14,2644           30714                                    R54                                   #  STAR DATA TEST
032353,000956: 14,2645           45014                           BOFF     CALL                                  
032354,000957: 14,2646           00354                                    FREEFLAG                              
032355,000958: 14,2647           30655                                    R51K                                  
032356,000959: 14,2650           47403                                    AXISGEN                               
032357,000960: 14,2651           77624                           CALL                                           
032358,000961: 14,2652           32271                                    R55                                   #  GYRO TORQUE
032359,000962: 14,2653           77614                           CLEAR                                          
032360,000963: 14,2654           01273                                    PFRATFLG                              
032361,000964: 14,2655           77776        R51K               EXIT                                           
032362,000965: 14,2656           35775                           CAF      OCT14                                 
032363,000966: 14,2657           04676                           TC       BANKCALL                              
032364,000967: 14,2660           21045                           CADR     GOPERF1                               
032365,000968: 14,2661           04106                           TC       GOTOPOOH                              
032366,000969: 14,2662           02664                           TC       +2                                    #  V33
032367,000970: 14,2663           02666                           TC       +3                                    
032368,000971: 14,2664           04676                           TC       BANKCALL                              
032369,000972: 14,2665           32120                           CADR     P52C                                  
032370,000973: 14,2666           06006                           TC       INTPRET                               
032371,000974: 14,2667           77650                           GOTO                                           
032372,000975: 14,2670           32145                                    ENDP50S                               
032373,000976: 14,2671           06006        R51.4              TC       INTPRET                               
032374,000977: 14,2672           53521                           MXV      UNIT                                  
032375,000978: 14,2673           01736                                    REFSMMAT                              
032376,000979: 14,2674           26601                           STOVL    PLANVEC                               
032377,000980: 14,2675           02617                                    STARSAV2                              
032378,000981: 14,2676           02611                           STORE    STARSAV1                              
032379,000982: 14,2677           77731                           SSP                                            
032380,000983: 14,2700           00305                                    STARIND                               
032381,000984: 14,2701           00000                                    0                                     
032382,000985: 14,2702           77650                           GOTO                                           
032383,000986: 14,2703           30537                                    R51.3                                 
032384,000987: 14,2704           06006        R51B               TC       INTPRET                               
032385,000988: 14,2705           77624                           CALL                                           
032386,000989: 14,2706           36114                                    R56                                   
032387,000990: 14,2707           77650                           GOTO                                           
032388,000991: 14,2710           30614                                    R51A                                  
032389,000992: 14,2711           00066        OCT66              OCT      00066                                 
032390,000993: 14,2712           00306        V01N70             VN       0170                                  
032391,000994: 14,2713           05253        1/6TH              DEC      .1666667                              
032392,000995: 
032393,000996:                                                                                                  #  NAME-R55      GYRO TORQUE
032394,000997:                                                                                                  #  FUNCTION - COMPUTE AND SEND GYRO PULSES
032395,000998:                                                                                                  #  CALLING SEQ - CALL R55
032396,000999:                                                                                                  #  INPUT - X,Y,ZDC - REFSMMAT WRT PRESENT STABLE MEMBER
032397,001000:                                                                                                  #  OUTPUT - GYRO PULSES
032398,001001:                                                                                                  #  SUBROUTINES - CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
032399,001002: 
032400,001003: 15,2000                                           SETLOC   P50S                                  
032401,001004: 15,2000                                           BANK                                           
032402,001005: 15,2271                                           COUNT*   $$/R55                                
032403,001006: 15,2271           77620        R55                STQ                                            
032404,001007: 15,2272           02777                                    QMIN                                  
032405,001008: 15,2273           77624                           CALL                                           
032406,001009: 15,2274           47207                                    CALCGTA                               
032407,001010: 15,2275           77776        PULSEM             EXIT                                           
032408,001011: 15,2276           32322        R55.1              CAF      V06N93                                
032409,001012: 15,2277           04676                           TC       BANKCALL                              
032410,001013: 15,2300           20720                           CADR     GOFLASH                               
032411,001014: 15,2301           04106                           TC       GOTOPOOH                              
032412,001015: 15,2302           02304                           TC       R55.2                                 
032413,001016: 15,2303           02317                           TC       R55RET                                
032414,001017: 15,2304           05426        R55.2              TC       PHASCHNG                              
032415,001018: 15,2305           00314                           OCT      00314                                 
032416,001019: 15,2306           32323                           CA       R55CDR                                
032417,001020: 15,2307           04676                           TC       BANKCALL                              
032418,001021: 15,2310           17206                           CADR     IMUPULSE                              
032419,001022: 15,2311           04676                           TC       BANKCALL                              
032420,001023: 15,2312           17577                           CADR     IMUSTALL                              
032421,001024: 15,2313           05763                           TC       CURTAINS                              
032422,001025: 15,2314           05426                           TC       PHASCHNG                              
032423,001026: 15,2315           05024                           OCT      05024                                 
032424,001027: 15,2316           13000                           OCT      13000                                 
032425,001028: 15,2317           06006        R55RET             TC       INTPRET                               
032426,001029: 15,2320           77650                           GOTO                                           
032427,001030: 15,2321           02777                                    QMIN                                  
032428,001031: 15,2322           01535        V06N93             VN       0693                                  
032429,001032: 15,2323           02757        R55CDR             ECADR    OGC                                   
032430,001033: 15,2324  14,2714               R54                =        CHKSDATA                              
032431,001034: 
032432,001035:                                                                                                  #  ROUTINE NAME - CHKSDATA               DATE - JAN 9, 1967
032433,001036:                                                                                                  #  MOD NO - 0                            LOG SECTION - P51-P53
032434,001037:                                                                                                  #  MODIFICATION BY - LONSKE              ASSEMBLY -
032435,001038: 
032436,001039:                                                                                                  #  FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS.  WHEN A PAIR OF STAR SIGHTINGS ARE MADE
032437,001040:                                                                                                  #  BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
032438,001041:                                                                                                  #  COMPUTER TO INSURE A PROPER SIGHTING WAS MADE.  THE FOLLOWING COMPUTATIONS ARE PERFORMED_
032439,001042:                                                                                                  #        OS1     =       OBSERVED STAR 1 VECTOR
032440,001043:                                                                                                  #        OS2     =       OBSERVED STAR 2 VECTOR
032441,001044:                                                                                                  #        SS1     =       STORED STAR 1 VECTOR
032442,001045:                                                                                                  #        SS2     =       STORED STAR 2 VECTOR
032443,001046:                                                                                                  #         A1     =       ARCCOS(OS1 - OS2)
032444,001047:                                                                                                  #         A2     =       ARCCOS(SS1 - SS2)
032445,001048:                                                                                                  #          A     =       ABS(2(A1 - A2))
032446,001049: 
032447,001050:                                                                                                  #  THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTENCE
032448,001051: 
032449,001052:                                                                                                  #  EXIT MODE     1. FREEFLAG SET IMPLIES ASTRONAUT WANTS TO PROCEED
032450,001053:                                                                                                  #                2. FREEFLAG RESET IMPLIES ASTRONAUT WANTS TO RECYCLE             ERANCE)
032451,001054: 
032452,001055:                                                                                                  #  OUTPUT -      1. VERB 6,NOUN 3 - DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
032453,001056:                                                                                                  #                2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
032454,001057: 
032455,001058:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
032456,001059:                                                                                                  #                1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
032457,001060:                                                                                                  #                2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
032458,001061: 
032459,001062:                                                                                                  #  DEBRIS -
032460,001063: 
032461,001064: 14,2000                                           SETLOC   P50S1                                 
032462,001065: 14,2000                                           BANK                                           
032463,001066: 14,2714                                           COUNT*   $$/R50                                
032464,001067: 14,2714           43020        CHKSDATA           STQ      SET                                   
032465,001068: 14,2715           02777                                    QMIN                                  
032466,001069: 14,2716           00074                                    FREEFLAG                              
032467,001070: 14,2717           77760        CHKSAB             AXC,1                                          #  SET X1 TO STORE EPHEMERIS DATA
032468,001071: 14,2720           02735                                    STARAD                                
032469,001072: 
032470,001073: 14,2721           47773        CHKSB              VLOAD*   DOT*                                  #  CAL. ANGLE THETA
032471,001074: 14,2722           00001                                    0,1                                   
032472,001075: 14,2723           00007                                    6,1                                   
032473,001076: 14,2724           65552                           SL1      ACOS                                  
032474,001077: 14,2725           00025                           STORE    THETA                                 
032475,001078: 14,2726           43014                           BOFF     INVERT                                #  BRANCH TO CHKSD IF THIS IS 2ND PASS
032476,001079: 14,2727           00354                                    FREEFLAG                              
032477,001080: 14,2730           30740                                    CHKSD                                 
032478,001081: 14,2731           00174                                    FREEFLAG                              #  CLEAR FREEFLAG
032479,001082: 14,2732           71360                           AXC,1    DLOAD                                 #  SET X1 TO MARK ANGLES
032480,001083: 14,2733           00006                                    6D                                    
032481,001084: 14,2734           00025                                    THETA                                 
032482,001085: 14,2735           00023                           STORE    18D                                   
032483,001086: 14,2736           77650                           GOTO                                           
032484,001087: 14,2737           30721                                    CHKSB                                 #  RETURN TO CAL. 2ND ANGLE
032485,001088: 14,2740           45345        CHKSD              DLOAD    DSU                                   
032486,001089: 14,2741           00025                                    THETA                                 #  COMPUTE POS DIFF
032487,001090: 14,2742           00023                                    18D                                   
032488,001091: 14,2743           47046                           ABS      RTB                                   
032489,001092: 14,2744           45544                                    SGNAGREE                              
032490,001093: 14,2745           01046                           STORE    NORMTEM1                              
032491,001094: 14,2746           77414                           SET      EXIT                                  
032492,001095: 14,2747           00074                                    FREEFLAG                              
032493,001096: 14,2750           35035                           CAF      ZERO                                  
032494,001097: 14,2751           04676                           TC       BANKCALL                              
032495,001098: 14,2752           20703                           CADR     CLEANDSP                              
032496,001099: 
032497,001100: 14,2753           32767                           CAF      VB6N5                                 
032498,001101: 14,2754           04676                           TC       BANKCALL                              
032499,001102: 14,2755           20720                           CADR     GOFLASH                               
032500,001103: 14,2756           14106                           TCF      GOTOPOOH                              
032501,001104: 14,2757           02764                           TC       CHKSDA                                #  PROCEED
032502,001105: 14,2760           06006                           TC       INTPRET                               
032503,001106: 14,2761           52014                           CLEAR    GOTO                                  
032504,001107: 14,2762           00274                                    FREEFLAG                              
032505,001108: 14,2763           02777                                    QMIN                                  
032506,001109: 14,2764           06006        CHKSDA             TC       INTPRET                               
032507,001110: 14,2765           77650                           GOTO                                           
032508,001111: 14,2766           02777                                    QMIN                                  
032509,001112: 14,2767           01405        VB6N5              VN       605                                   
032510,001113: 
032511,001114:                                                                                                  #  NAME - CAL53A
032512,001115:                                                                                                  #  NAME - CAL53A
032513,001116:                                                                                                  #  FUNCTION - COARSE ALIGN THE IMU, IF NECESSARY. 
032514,001117:                                                                                                  #  CALLING SEQUENCE - CALL CAL53A
032515,001118:                                                                                                  #  INPUT - PRESENT GIMBAL ANGLES - CDUX, CDUY, CDUZ
032516,001119:                                                                                                  #           DESIRED GIMBAL ANGLES - THETAD,+1,+2
032517,001120:                                                                                                  #  OUTPUT - THE IMU COORDINATES ARE STORED IN REFSMMAT
032518,001121:                                                                                                  #  SUBROUTINES USED - 1.IMUCOARS  2.IMUSTALL  3.CURTAINS
032519,001122: 
032520,001123: 14,2770                                           COUNT    14/R50                                
032521,001124: 
032522,001125: 14,2770           77624        CAL53A             CALL                                           
032523,001126: 14,2771           22260                                    S52.2                                 #  MAKE FINAL COMP OF GIMBAL ANGLES
032524,001127: 14,2772           66234                           RTB      SSP                                   
032525,001128: 14,2773           32324                                    RDCDUS                                #  READ CDUS
032526,001129: 14,2774           00051                                    S1                                    
032527,001130: 14,2775           00001                                    1                                     
032528,001131: 14,2776           40370                           AXT,1    SETPD                                 
032529,001132: 14,2777           00003                                    3                                     
032530,001133: 14,3000           00005                                    4                                     
032531,001134: 14,3001           70543        CALOOP             DLOAD*   SR1                                   
032532,001135: 14,3002           01161                                    THETAD     +3D,1                      
032533,001136: 14,3003           70523                           PDDL*    SR1                                   
032534,001137: 14,3004           00005                                    4,1                                   
032535,001138: 14,3005           51425                           DSU      ABS                                   
032536,001139: 14,3006           45206                           PUSH     DSU                                   
032537,001140: 14,3007           31055                                    DEGREE1                               
032538,001141: 14,3010           71240                           BMN      DLOAD                                 
032539,001142: 14,3011           31031                                    CALOOP1                               
032540,001143: 14,3012           51025                           DSU      BPL                                   
032541,001144: 14,3013           31056                                    DEG359                                
032542,001145: 14,3014           31031                                    CALOOP1                               
032543,001146: 14,3015           77776        COARFINE           EXIT                                           
032544,001147: 14,3016           05426                           TC       PHASCHNG                              
032545,001148: 14,3017           04024                           OCT      04024                                 
032546,001149: 14,3020           03256                           TC       COARSUB                               #  PERFORM ALIGNMENT
032547,001150: 14,3021           06006                           TC       INTPRET                               
032548,001151: 14,3022           77234                           RTB      VLOAD                                 
032549,001152: 14,3023           31253                                    SET1/PDT                              
032550,001153: 14,3024           11566                                    ZEROVEC                               
032551,001154: 14,3025           01472                           STORE    GCOMP                                 
032552,001155: 14,3026           52014                           SET      GOTO                                  
032553,001156: 14,3027           01060                                    DRIFTFLG                              
032554,001157: 14,3030           31033                                    FINEONLY                              
032555,001158: 14,3031           77700        CALOOP1            TIX,1                                          
032556,001159: 14,3032           31001                                    CALOOP                                
032557,001160: 14,3033           75160        FINEONLY           AXC,1    AXC,2                                 
032558,001161: 14,3034           02671                                    XSM                                   
032559,001162: 14,3035           01735                                    REFSMMAT                              
032560,001163: 14,3036           77624                           CALL                                           
032561,001164: 14,3037           31042                                    MATMOVE                               
032562,001165: 14,3040           77650                           GOTO                                           
032563,001166: 14,3041           32116                                    CAL53RET                              
032564,001167: 14,3042           77773        MATMOVE            VLOAD*                                         #  TRANSFER MATRIX
032565,001168: 14,3043           00001                                    0,1                                   
032566,001169: 14,3044           10001                           STORE    0,2                                   
032567,001170: 14,3045           77773                           VLOAD*                                         
032568,001171: 14,3046           00007                                    6D,1                                  
032569,001172: 14,3047           10007                           STORE    6D,2                                  
032570,001173: 14,3050           77773                           VLOAD*                                         
032571,001174: 14,3051           00015                                    12D,1                                 
032572,001175: 14,3052           10015                           STORE    12D,2                                 
032573,001176: 14,3053           77616                           RVQ                                            
032574,001177: 14,3054           00056        DEGREE1            DEC      46         B-14                       
032575,001178: 14,3055           37722        DEG359             DEC      16338      B-14                       
032576,001179: 15,2000                                           SETLOC   P50S                                  
032577,001180: 15,2000                                           BANK                                           
032578,001181: 15,2324           00004        RDCDUS             INHINT                                         #  READ CDUS
032579,001182: 15,2325           30032                           CA       CDUX                                  
032580,001183: 15,2326           50120                           INDEX    FIXLOC                                
032581,001184: 15,2327           54001                           TS       1                                     
032582,001185: 15,2330           30033                           CA       CDUY                                  
032583,001186: 15,2331           50120                           INDEX    FIXLOC                                
032584,001187: 15,2332           54002                           TS       2                                     
032585,001188: 15,2333           30034                           CA       CDUZ                                  
032586,001189: 15,2334           50120                           INDEX    FIXLOC                                
032587,001190: 15,2335           54003                           TS       3                                     
032588,001191: 15,2336           00003                           RELINT                                         
032589,001192: 15,2337           06030                           TC       DANZIG                                #                                                                        +
032590,001193: 
032591,001194: 
032592,001195:                                                                                                  #  NAME - GIMB
032593,001196: 
032594,001197:                                                                                                  #  FUNCTION - DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED         FOR COARSE ALIGNMENT.
032595,001198: 
032596,001199:                                                                                                  #  CALLING SEQUENCE - CALL GIMB
032597,001200: 
032598,001201:                                                                                                  #  INPUT - DESIRED IMU INERTIAL ORIENTATION VECTORS-XSMD, YSMD, ZSMD
032599,001202: 
032600,001203:                                                                                                  #  OUTPUT -GIMBAL ANGLES LEFT IN THETAD, +1, +2                         +
032601,001204: 
032602,001205:                                                                                                  #  SUBROUTINES USED - 1.CDUTRIG 2.CALCSMSC 3.CALCGA
032603,001206: 
032604,001207: 16,2000                                           SETLOC   P50S2                                 
032605,001208: 16,2000                                           BANK                                           
032606,001209: 16,2664                                           COUNT    14/INFLT                              
032607,001210: 
032608,001211: 16,2664           41345        CALCSMSC           DLOAD    DMP                                   
032609,001212: 16,2665           00737                                    SINCDUY                               
032610,001213: 16,2666           00747                                    COSCDUZ                               
032611,001214: 16,2667           77676                           DCOMP                                          
032612,001215: 16,2670           70525                           PDDL     SR1                                   
032613,001216: 16,2671           00741                                    SINCDUZ                               
032614,001217: 16,2672           41325                           PDDL     DMP                                   
032615,001218: 16,2673           00745                                    COSCDUY                               
032616,001219: 16,2674           00747                                    COSCDUZ                               
032617,001220: 16,2675           76466                           VDEF     VSL1                                  
032618,001221: 16,2676           02714                           STORE    XNB                                   
032619,001222: 16,2677           41345                           DLOAD    DMP                                   
032620,001223: 16,2700           00743                                    SINCDUX                               
032621,001224: 16,2701           00741                                    SINCDUZ                               
032622,001225: 16,2702           77752                           SL1                                            
032623,001226: 16,2703           00033                           STORE    26D                                   
032624,001227: 16,2704           77605                           DMP                                            
032625,001228: 16,2705           00737                                    SINCDUY                               
032626,001229: 16,2706           41325                           PDDL     DMP                                   
032627,001230: 16,2707           00751                                    COSCDUX                               
032628,001231: 16,2710           00745                                    COSCDUY                               
032629,001232: 16,2711           77625                           DSU                                            
032630,001233: 16,2712           41325                           PDDL     DMP                                   
032631,001234: 16,2713           00743                                    SINCDUX                               
032632,001235: 16,2714           00747                                    COSCDUZ                               
032633,001236: 16,2715           77676                           DCOMP                                          
032634,001237: 16,2716           41325                           PDDL     DMP                                   
032635,001238: 16,2717           00751                                    COSCDUX                               
032636,001239: 16,2720           00737                                    SINCDUY                               
032637,001240: 16,2721           41325                           PDDL     DMP                                   
032638,001241: 16,2722           00745                                    COSCDUY                               
032639,001242: 16,2723           00033                                    26D                                   
032640,001243: 16,2724           55415                           DAD      VDEF                                  
032641,001244: 16,2725           77772                           VSL1                                           
032642,001245: 16,2726           02730                           STORE    ZNB                                   
032643,001246: 16,2727           76435                           VXV      VSL1                                  
032644,001247: 16,2730           02714                                    XNB                                   
032645,001248: 16,2731           02722                           STORE    YNB                                   
032646,001249: 16,2732           77616                           RVQ                                            
032647,001250: 
032648,001251:                                                                                                  #  NAME - P51 - IMU ORIENTATION DETERMINATION
032649,001252:                                                                                                  #  MOD. NO. 2    21 DEC 66                               LOG SECTION - P51-P53
032650,001253:                                                                                                  #  MOD BY STURLAUGSON                                    ASSEMBLY SUNDISK REV15
032651,001254: 
032652,001255:                                                                                                  #  FUNCTIONAL DESCRIPTION
032653,001256:                                                                                                  #        DETERMINES THE INERTIAL ORIENTATION OF THE IMU.  THE PROGRAM IS SELECTED BY DSKY ENTRY.  THE SIGHTING
032654,001257:                                                                                                  #        ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR.  THE DATA IS
032655,001258:                                                                                                  #        THEN PROCESSED AS FOLLOWS.
032656,001259: 
032657,001260:                                                                                                  #        1.  SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGATIONAL BASE COORDINATES.  LET SA AND TA BE THE SHAFT AND
032658,001261:                                                                                                  #        TRUNNION ANGLES, RESPECTIVELY.  THEN,
032659,001262:                                                                                                  #        -
032660,001263:                                                                                                  #        V  = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA))        (A COLUMN VECTOR)
032661,001264:                                                                                                  #         NB
032662,001265:                                                                                                  #        THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
032663,001266: 
032664,001267:                                                                                                  #        2.  THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
032665,001268:                                                                                                  #        -    T  T  T -
032666,001269:                                                                                                  #        V = Q *Q *Q *V  ,       WHERE
032667,001270:                                                                                                  #             1  2  3  NB
032668,001271: 
032669,001272:                                                                                                  #             ( COS(IG)   0    -SIN(IG) )
032670,001273:                                                                                                  #             (                         )                                        THE GIMBAL ANGLES ARE COMPUTED FROM
032671,001274:                                                                                                  #        Q  = (   0       1       0     ), IG= INNER GIMBAL ANGLE                THE CDU COUNTERS AT NBSM (USING AXIS-
032672,001275:                                                                                                  #         1   (                         )                                        ROT AND CDULOGIC)
032673,001276:                                                                                                  #             ( SIN(IG)   0     COS(IG) )
032674,001277: 
032675,001278:                                                                                                  #             ( COS(MG) SIN(MG)   0     )
032676,001279:                                                                                                  #             (                         )
032677,001280:                                                                                                  #        Q  = (-SIN(MG) COS(MG)   0     ), MG= MIDDLE GIMBAL ANGLE
032678,001281:                                                                                                  #         2   (                         )
032679,001282:                                                                                                  #             (   0       0       1     )
032680,001283: 
032681,001284:                                                                                                  #             (   1       0       0     )
032682,001285:                                                                                                  #             (                         )
032683,001286:                                                                                                  #        Q  = (   0     COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
032684,001287:                                                                                                  #         3   (                         )
032685,001288:                                                                                                  #             (   0    -SIN(OG) COS(OG) )
032686,001289: 
032687,001290:                                                                                                  #        3.  THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
032688,001291: 
032689,001292:                                                                                                  #        4.  THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
032690,001293: 
032691,001294:                                                                                                  #        5.  REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
032692,001295:                                                                                                  #                    -      -
032693,001296:                                                                                                  #                LET S  AND S  BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).
032694,001297:                                                                                                  #                     1      2
032695,001298:                                                                                                  #                DEFINE, -    -
032696,001299:                                                                                                  #                        U  = S
032697,001300:                                                                                                  #                         A    A1
032698,001301:                                                                                                  #                        -         -    -
032699,001302:                                                                                                  #                        V  = UNIT(S  X S  )
032700,001303:                                                                                                  #                         A         A1   A2
032701,001304:                                                                                                  #                        -    -   -
032702,001305:                                                                                                  #                        W  = U X V
032703,001306:                                                                                                  #                         A    A   A
032704,001307: 
032705,001308:                                                                                                  #                AND
032706,001309:                                                                                                  #                        -    -
032707,001310:                                                                                                  #                        U  = S
032708,001311:                                                                                                  #                         B    B1
032709,001312:                                                                                                  #                        -         -    -
032710,001313:                                                                                                  #                        V  = UNIT(S  X S  )
032711,001314:                                                                                                  #                         B         B1   B2
032712,001315:                                                                                                  #                        -    -   -
032713,001316:                                                                                                  #                        W  = U X V
032714,001317:                                                                                                  #                         B    B   B
032715,001318: 
032716,001319:                                                                                                  #                THEN    -        -       -       -
032717,001320:                                                                                                  #                        X  = U  *U + V  *V + W  *W
032718,001321:                                                                                                  #                              B1  A   B1  A   B1  A
032719,001322:                                                                                                  #                        -        -       -       -              (REFSMMAT)
032720,001323:                                                                                                  #                        Y  = U  *U + V  *V + W  *W
032721,001324:                                                                                                  #                              B2  A   B2  A   B2  A
032722,001325:                                                                                                  #                        -        -       -       -
032723,001326:                                                                                                  #                        Z  = U  *U + V  *V + W  *W
032724,001327:                                                                                                  #                              B3  A   B3  A   B3  A
032725,001328: 
032726,001329:                                                                                                  #  THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
032727,001330:                                                                                                  #                        -
032728,001331:                                                                                                  #                        S   IN 6-11 OF THE VAC AREA
032729,001332:                                                                                                  #                         A1
032730,001333:                                                                                                  #                        -
032731,001334:                                                                                                  #                        S   IN 12-17 OF THE VAC AREA
032732,001335:                                                                                                  #                         A2
032733,001336:                                                                                                  #                        -
032734,001337:                                                                                                  #                        S   IN STARAD
032735,001338:                                                                                                  #                         B1
032736,001339:                                                                                                  #                        -
032737,001340:                                                                                                  #                        S   IN STARAD +6
032738,001341:                                                                                                  #                         B2
032739,001342: 
032740,001343:                                                                                                  #  CALLING SEQUENCE
032741,001344: 
032742,001345:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
032743,001346: 
032744,001347:                                                                                                  #  SUBROUTINES CALLED.
032745,001348: 
032746,001349:                                                                                                  #        GOPERF3
032747,001350:                                                                                                  #        GOPERF1R
032748,001351:                                                                                                  #        GODSPR
032749,001352:                                                                                                  #        IMUCOARS
032750,001353:                                                                                                  #        IMUFIN20
032751,001354:                                                                                                  #        R53
032752,001355:                                                                                                  #        SXTNB
032753,001356:                                                                                                  #        NBSM
032754,001357:                                                                                                  #        MKRELEAS
032755,001358:                                                                                                  #        CHKSDATA
032756,001359:                                                                                                  #        MATMOVE
032757,001360: 
032758,001361:                                                                                                  #  ALARMS
032759,001362: 
032760,001363:                                                                                                  #        NONE.
032761,001364: 
032762,001365:                                                                                                  #  ERASABLE INITIALIZATION
032763,001366: 
032764,001367:                                                                                                  #        IMU ZERO FLAG SHOULD BE SET.
032765,001368: 
032766,001369:                                                                                                  #  OUTPUT
032767,001370: 
032768,001371:                                                                                                  #        REFSMMAT
032769,001372:                                                                                                  #        REFSMFLG
032770,001373: 
032771,001374:                                                                                                  #  DEBRIS
032772,001375: 
032773,001376:                                                                                                  #        WORK AREA
032774,001377:                                                                                                  #        STARAD
032775,001378:                                                                                                  #        STARIND
032776,001379:                                                                                                  #        BESTI
032777,001380:                                                                                                  #        BESTJ
032778,001381: 
032779,001382: 14,2000                                           SETLOC   P50S1                                 
032780,001383: 14,2000                                           BANK                                           
032781,001384: 14,3056                                           COUNT    14/P5153                              
032782,001385: 
032783,001386: 14,3056  14,3056               P53                EQUALS   P51                                   
032784,001387: 14,3056           41320        P51                CS       IMODES30                              
032785,001388: 14,3057           75023                           MASK     BIT9                                  
032786,001389: 14,3060           10000                           CCS      A                                     
032787,001390: 14,3061           03065                           TC       P51A                                  
032788,001391: 14,3062           05664                           TC       ALARM                                 
032789,001392: 14,3063           00210                           OCT      210                                   
032790,001393: 14,3064           04106                           TC       GOTOPOOH                              
032791,001394: 14,3065           04676        P51A               TC       BANKCALL                              
032792,001395: 14,3066           17667                           CADR     R02ZERO                               
032793,001396: 
032794,001397: 14,3067           35041        P51AA              CAF      PRFMSTAQ                              
032795,001398: 14,3070           04676                           TC       BANKCALL                              
032796,001399: 14,3071           21045                           CADR     GOPERF1                               
032797,001400: 14,3072           04106                           TC       GOTOPOOH                              #  TERM.
032798,001401: 14,3073           03116                           TC       P51B                                  #  V33
032799,001402: 14,3074           05426                           TC       PHASCHNG                              
032800,001403: 14,3075           05024                           OCT      05024                                 
032801,001404: 14,3076           13000                           OCT      13000                                 
032802,001405: 14,3077           35035                           CAF      P51ZERO                               
032803,001406: 14,3100           55155                           TS       THETAD                                #  ZERO THE GIMBALS
032804,001407: 14,3101           55156                           TS       THETAD     +1                         
032805,001408: 14,3102           55157                           TS       THETAD     +2                         
032806,001409: 14,3103           33251                           CAF      V6N22                                 
032807,001410: 14,3104           04676                           TC       BANKCALL                              
032808,001411: 14,3105           20673                           CADR     GODSPRET                              
032809,001412: 14,3106           33252                           CAF      V41K                                  #  NOW DISPLAY COARSE ALIGN VERB 41
032810,001413: 14,3107           04676                           TC       BANKCALL                              
032811,001414: 14,3110           20673                           CADR     GODSPRET                              
032812,001415: 14,3111           03256                           TC       COARSUB                               #  PERFORM ALIGNMENT
032813,001416: 14,3112           05426                           TC       PHASCHNG                              
032814,001417: 14,3113           05024                           OCT      05024                                 
032815,001418: 14,3114           13000                           OCT      13000                                 
032816,001419: 14,3115           13067                           TCF      P51AA                                 #  COARSE ALIGN DONE - RECYCLE FOR FINE
032817,001420: 
032818,001421:                                                                                                  #  DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
032819,001422: 14,3116           05426        P51B               TC       PHASCHNG                              
032820,001423: 14,3117           00014                           OCT      00014                                 
032821,001424: 14,3120           06006                           TC       INTPRET                               
032822,001425: 14,3121           40331                           SSP      SETPD                                 
032823,001426: 14,3122           00305                                    STARIND                               #  INDEX - STAR 1 OR 2
032824,001427: 14,3123           00000                                    0                                     
032825,001428: 14,3124           00001                                    0                                     
032826,001429: 14,3125           77234                           RTB      VLOAD                                 
032827,001430: 14,3126           31253                                    SET1/PDT                              
032828,001431: 14,3127           11566                                    ZEROVEC                               
032829,001432: 14,3130           01472                           STORE    GCOMP                                 
032830,001433: 14,3131           43014                           SET      CLEAR                                 
032831,001434: 14,3132           01060                                    DRIFTFLG                              #  ENABLE T4 COMPENSATION
032832,001435: 14,3133           00666                                    TARG2FLG                              #  SHOW MARK IS STAR - NOT LANDMARK
032833,001436: 14,3134           77776                           EXIT                                           
032834,001437: 14,3135           35033                           CAF      BIT1                                  
032835,001438: 14,3136           54301                           TS       MARKINDX                              #  INITIALIZE FOR ONE MARK
032836,001439: 
032837,001440: 14,3137           05426        P51C               TC       PHASCHNG                              
032838,001441: 14,3140           05024                           OCT      05024                                 
032839,001442: 14,3141           13000                           OCT      13000                                 
032840,001443: 14,3142           05400                           TC       CHECKMM                               
032841,001444: 14,3143           00065                           MM       53         B-14                       #  BACKUP PROGRAM
032842,001445: 14,3144           13152                           TCF      P51C.1                                #  NOT P53
032843,001446: 14,3145           06006                           TC       INTPRET                               
032844,001447: 14,3146           77624                           CALL                                           
032845,001448: 14,3147           36114                                    R56                                   
032846,001449: 14,3150           77650                           GOTO                                           
032847,001450: 14,3151           31155                                    P51C.2                                
032848,001451: 14,3152           06006        P51C.1             TC       INTPRET                               
032849,001452: 14,3153           77624                           CALL                                           
032850,001453: 14,3154           31302                                    R53                                   #  SIGHTING ROUTINE
032851,001454: 14,3155           77624        P51C.2             CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
032852,001455: 14,3156           36060                                    SXTSM                                 
032853,001456: 14,3157           77606                           PUSH                                           
032854,001457: 14,3160           53135                           SLOAD    BZE                                   
032855,001458: 14,3161           00305                                    STARIND                               
032856,001459: 14,3162           31167                                    P51D                                  
032857,001460: 14,3163           45575                           VLOAD    STADR                                 
032858,001461: 14,3164           75160                           STORE    STARSAV2                              #  DOWNLINK
032859,001462: 14,3165           77650                           GOTO                                           
032860,001463: 14,3166           31175                                    P51E                                  
032861,001464: 14,3167           45575        P51D               VLOAD    STADR                                 
032862,001465: 14,3170           61166                           STODL    STARSAV1                              
032863,001466: 14,3171           02607                                    TSIGHT                                
032864,001467: 14,3172           77624                           CALL                                           
032865,001468: 14,3173           32340                                    PLANET                                
032866,001469: 14,3174           02601                           STORE    PLANVEC                               
032867,001470: 14,3175           77776        P51E               EXIT                                           
032868,001471: 14,3176           05426                           TC       PHASCHNG                              
032869,001472: 14,3177           05024                           OCT      05024                                 
032870,001473: 14,3200           13000                           OCT      13000                                 
032871,001474: 14,3201           04676                           TC       BANKCALL                              
032872,001475: 14,3202           16063                           CADR     MKRELEAS                              #  ZERO MARKSTAT
032873,001476: 14,3203           10304                           CCS      STARIND                               
032874,001477: 14,3204           13213                           TCF      P51F                                  #  STAR 2
032875,001478: 14,3205           05426                           TC       PHASCHNG                              
032876,001479: 14,3206           05024                           OCT      05024                                 
032877,001480: 14,3207           13000                           OCT      13000                                 
032878,001481: 14,3210           35033                           CAF      BIT1                                  
032879,001482: 14,3211           54304                           TS       STARIND                               
032880,001483: 14,3212           13137                           TCF      P51C                                  #  GO DO SECOND STAR
032881,001484: 14,3213           05426        P51F               TC       PHASCHNG                              
032882,001485: 14,3214           05024                           OCT      05024                                 
032883,001486: 14,3215           13000                           OCT      13000                                 
032884,001487: 14,3216           06006                           TC       INTPRET                               
032885,001488: 14,3217           45145                           DLOAD    CALL                                  
032886,001489: 14,3220           02607                                    TSIGHT                                
032887,001490: 14,3221           32340                                    PLANET                                
032888,001491: 14,3222           24015                           STOVL    12D                                   
032889,001492: 14,3223           02601                                    PLANVEC                               
032890,001493: 14,3224           24007                           STOVL    6D                                    
032891,001494: 14,3225           02611                                    STARSAV1                              
032892,001495: 14,3226           26736                           STOVL    STARAD                                
032893,001496: 14,3227           02617                                    STARSAV2                              
032894,001497: 14,3230           36744                           STCALL   STARAD     +6                         
032895,001498: 14,3231           30714                                    CHKSDATA                              #  CHECK STAR ANGLES IN STARAD AND
032896,001499: 14,3232           77414                           BON      EXIT                                  
032897,001500: 14,3233           00314                                    FREEFLAG                              
032898,001501: 14,3234           31236                                    P51G                                  
032899,001502: 14,3235           03067                           TC       P51AA                                 
032900,001503: 14,3236           77624        P51G               CALL                                           
032901,001504: 14,3237           47403                                    AXISGEN                               #  COME BACK WITH REFSMMAT IN XDC
032902,001505: 14,3240           75160                           AXC,1    AXC,2                                 
032903,001506: 14,3241           02713                                    XDC                                   
032904,001507: 14,3242           01735                                    REFSMMAT                              
032905,001508: 14,3243           45014                           CLEAR    CALL                                  
032906,001509: 14,3244           01662                                    REFSMFLG                              
032907,001510: 14,3245           31042                                    MATMOVE                               
032908,001511: 14,3246           52014                           SET      GOTO                                  
032909,001512: 14,3247           01462                                    REFSMFLG                              
032910,001513: 14,3250           32145                                    ENDP50S                               
032911,001514: 14,3251     5041               PRFMSTAQ           =        OCT15                                 
032912,001515: 14,3251     5035               P51ZERO            =        ZERO                                  
032913,001516: 14,3251     5036               P51FIVE            =        FIVE                                  
032914,001517: 14,3251           01426        V6N22              VN       0622                                  
032915,001518: 14,3252           12200        V41K               VN       4100                                  
032916,001519: 14,3253           30025        SET1/PDT           CA       TIME1                                 
032917,001520: 14,3254           55074                           TS       1/PIPADT                              
032918,001521: 14,3255           16030                           TCF      DANZIG                                
032919,001522: 
032920,001523: 14,3256                                           COUNT*   $$/R50                                
032921,001524: 14,3256           30002        COARSUB            CA       Q                                     
032922,001525: 14,3257           55777                           TS       QMIN                                  
032923,001526: 14,3260           31322        STALLOOP           CA       MODECADR                              #  IS IMU IN USE?
032924,001527: 14,3261           00006                           EXTEND                                         
032925,001528: 14,3262           13267                           BZF      CORSCALL                              #  NO, GO AHEAD WITH COARSE ALIGN
032926,001529: 14,3263           35055                           CAF      1SEC                                  #  YES, SO WAIT A SEC
032927,001530: 14,3264           04676                           TC       BANKCALL                              
032928,001531: 14,3265           01732                           CADR     DELAYJOB                              
032929,001532: 14,3266           03260                           TC       STALLOOP                              #                        AND TRY AGAIN
032930,001533: 14,3267           04676        CORSCALL           TC       BANKCALL                              
032931,001534: 14,3270           16663                           CADR     IMUCOARS                              #  PERFORM COARSE ALIGN
032932,001535: 14,3271           04676                           TC       BANKCALL                              
032933,001536: 14,3272           17577                           CADR     IMUSTALL                              
032934,001537: 14,3273           05763                           TC       CURTAINS                              #  BAD END
032935,001538: 14,3274           04676                           TC       BANKCALL                              
032936,001539: 14,3275           17073                           CADR     IMUFIN20                              #  PERFORM FINE ALIGN
032937,001540: 14,3276           04676                           TC       BANKCALL                              
032938,001541: 14,3277           17577                           CADR     IMUSTALL                              
032939,001542: 14,3300           05763                           TC       CURTAINS                              #  BAD END
032940,001543: 14,3301           01777                           TC       QMIN                                  
032941,001544: 
032942,001545:                                                                                                  #  SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
032943,001546: 
032944,001547: 17,2000                                           SETLOC   P50S3                                 
032945,001548: 17,2000                                           BANK                                           
032946,001549: 17,2060           77620        SXTSM              STQ                                            
032947,001550: 17,2061           00300                                    QMAJ                                  
032948,001551: 17,2062           70740                           LXC,1    DLOAD*                                
032949,001552: 17,2063           01330                                    MARKSTAT                              
032950,001553: 17,2064           00001                                    0D,1                                  
032951,001554: 17,2065           02607                           STORE    TSIGHT                                
032952,001555: 17,2066           66744                           LXC,2    SLOAD*                                
032953,001556: 17,2067           00304                                    STARIND                               
032954,001557: 17,2070           41664                                    MKDNCDR,2                             
032955,001558: 17,2071           76744                           LXC,2    VLOAD*                                
032956,001559: 17,2072           00154                                    MPAC                                  
032957,001560: 17,2073           00001                                    0,1                                   
032958,001561: 17,2074           10001                           STORE    0,2                                   
032959,001562: 17,2075           77743                           DLOAD*                                         
032960,001563: 17,2076           00006                                    5,1                                   
032961,001564: 17,2077           10006                           STORE    5,2                                   
032962,001565: 17,2100           77624                           CALL                                           
032963,001566: 17,2101           46000                                    SXTNB                                 #  COMPUTE LOS VECTOR FROM OCDU IN MKVAC
032964,001567: 17,2102           62150                           LXA,1    INCR,1                                
032965,001568: 17,2103           01330                                    MARKSTAT                              
032966,001569: 17,2104           00002                                    2                                     #  INCREMENT TO BASE ADR OF ICDU
032967,001570: 17,2105           45130                           SXA,1    CALL                                  
032968,001571: 17,2106           00050                                    S1                                    
032969,001572: 17,2107           47610                                    NBSM                                  #  TRANSFORM LOS TO SM
032970,001573: 17,2110           77650                           GOTO                                           
032971,001574: 17,2111           00300                                    QMAJ                                  
032972,001575: 17,2112           03674        MKDNCDR            ECADR    MARKDOWN                              
032973,001576: 17,2113           03502                           ECADR    MARK2DWN                              
032974,001577: 
032975,001578:                                                                                                  #  PROGRAM DESCRIPTION - R53 - SIGHTING MARK ROUTINE
032976,001579:                                                                                                  #  MOD. NO. 2  21 DEC 66
032977,001580:                                                                                                  #  MOD BY STURLAUGSON
032978,001581: 
032979,001582:                                                                                                  #  FUNCTIONAL DESCRIPTION
032980,001583: 
032981,001584:                                                                                                  #        TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE).  SIGHTINGS
032982,001585:                                                                                                  #        CAN BE MADE ON A STAR OR LANDMARK.  WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
032983,001586:                                                                                                  #        OCDUS) AND THE TIME OF THE MARK.
032984,001587: 
032985,001588:                                                                                                  #  CALLING SEQUENCE
032986,001589: 
032987,001590:                                                                                                  #        R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE.  RETURN IS VIA QPRET.
032988,001591:                                                                                                  #        THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
032989,001592: 
032990,001593:                                                                                                  #  SUBROUTINES CALLED
032991,001594:                                                                                                  #        
032992,001595:                                                                                                  #        SXTMARK
032993,001596:                                                                                                  #        OPTSTALL
032994,001597:                                                                                                  #        GOFLASH
032995,001598: 
032996,001599:                                                                                                  #  ERASABLE INITIALIZATION
032997,001600: 
032998,001601:                                                                                                  #        TARGET FLAG - STAR OR LANDMARK
032999,001602:                                                                                                  #        MARKINDX - NUMBER OF MARKS WANTED
033000,001603:                                                                                                  #        STARIND - INDEX TO BESTI OR BESTJ (STAR NUMBER)
033001,001604: 
033002,001605:                                                                                                  #  OUTPUT
033003,001606: 
033004,001607:                                                                                                  #        MARKSTAT CONTAINS INDEX TO VACANT AREA WHERE MARK DATA IS STORED
033005,001608:                                                                                                  #        BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED
033006,001609: 
033007,001610:                                                                                                  #  DEBRIS
033008,001611: 
033009,001612:                                                                                                  #        MARKINDX CONTAINS NUMBER OF MARKS DESIRED
033010,001613: 
033011,001614: 14,2000                                           SETLOC   RT53                                  
033012,001615: 14,2000                                           BANK                                           
033013,001616: 
033014,001617: 14,3302                                           COUNT    14/R53                                
033015,001618: 
033016,001619: 14,3302           43020        R53                STQ      SET                                   #  SET SIGHTING MARK FLAG
033017,001620: 14,3303           03501                                    R53EXIT                               
033018,001621: 14,3304           00071                                    R53FLAG                               
033019,001622: 14,3305           77776                           EXIT                                           
033020,001623: 14,3306           30301        R53A               CA       MARKINDX                              #  NUMBER OF MARKS
033021,001624: 14,3307           75037                           MASK     LOW3                                  
033022,001625: 14,3310           04676                           TC       BANKCALL                              
033023,001626: 14,3311           16002                           CADR     SXTMARK                               
033024,001627: 14,3312           04676                           TC       BANKCALL                              
033025,001628: 14,3313           17573                           CADR     OPTSTALL                              
033026,001629: 14,3314           05763                           TC       CURTAINS                              
033027,001630: 14,3315           51330                           INDEX    MARKSTAT                              
033028,001631: 14,3316           10052                           CCS      QPRET                                 #  NUMBER OF MARKS ACTUALLY DONE
033029,001632: 14,3317           13330                           TCF      R53B                                  
033030,001633: 14,3320           13322                           TCF      +2                                    #  ZERO
033031,001634: 14,3321           13322                           TCF      +1                                    #  CCS HOLE
033032,001635: 14,3322           35035                           CAF      ZERO                                  #  HOUSEKEEP VAC AREA SAVE
033033,001636: 14,3323           57330                           XCH      MARKSTAT                              #        AND MARKSTAT
033034,001637: 14,3324           10000                           CCS      A                                     
033035,001638: 14,3325           50000                           INDEX    A                                     
033036,001639: 14,3326           54000                           TS       0                                     
033037,001640: 14,3327           13306                           TCF      R53A                                  
033038,001641: 14,3330           05400        R53B               TC       CHECKMM                               
033039,001642: 14,3331           00026                           MM       22         B-14                       
033040,001643: 14,3332           13334                           TCF      +2                                    
033041,001644: 14,3333           13363                           TCF      R53D                                  
033042,001645: 14,3334           05400                           TC       CHECKMM                               
033043,001646: 14,3335           00027                           MM       23         B-14                       
033044,001647: 14,3336           13340                           TCF      R53C1                                 
033045,001648: 14,3337           13363                           TCF      R53D                                  
033046,001649: 14,3340           35035        R53C1              CAF      ZERO                                  
033047,001650: 14,3341           04676                           TC       BANKCALL                              
033048,001651: 14,3342           20703                           CADR     CLEANDSP                              
033049,001652: 14,3343           33367        R53C               CAF      V01N71                                
033050,001653: 14,3344           04676                           TC       BANKCALL                              
033051,001654: 14,3345           20720                           CADR     GOFLASH                               
033052,001655: 14,3346           04106                           TC       GOTOPOOH                              #  TERM.
033053,001656: 14,3347           13351                           TCF      R53Z                                  
033054,001657: 14,3350           03343                           TC       R53C                                  #  RECYCLE
033055,001658: 14,3351           03370        R53Z               TC       CHKSCODE                              
033056,001659: 14,3352           04400                           TC       FALTON                                
033057,001660: 14,3353           03343                           TC       R53C                                  
033058,001661: 14,3354           47713                           CS       HIGH9                                 
033059,001662: 14,3355           70735                           MASK     STARCODE                              
033060,001663: 14,3356           00006                           EXTEND                                         
033061,001664: 14,3357           76211                           MP       SIGHTSIX                              
033062,001665: 14,3360           56001                           XCH      L                                     
033063,001666: 14,3361           50304                           INDEX    STARIND                               
033064,001667: 14,3362           54302                           TS       BESTI                                 
033065,001668: 14,3363           06006        R53D               TC       INTPRET                               
033066,001669: 14,3364           77614        R53OUT             SETGO                                          
033067,001670: 14,3365           03420                                    TERMIFLG                              #  SET TERMINATE FOR R52
033068,001671: 14,3366           03501                                    R53EXIT                               
033069,001672: 14,3367     6211               SIGHTSIX           =        SIX                                   
033070,001673: 14,3367           00307        V01N71             VN       0171                                  
033071,001674: 
033072,001675:                                                                                                  #  ****** KEEP IN SAME BANK AS R51 AND R53 *********
033073,001676: 14,3370           10735        CHKSCODE           CCS      STARCODE                              
033074,001677: 14,3371           63400                           AD       NEG47                                 
033075,001678: 14,3372           10000                           CCS      A                                     
033076,001679: 14,3373           00002                           TC       Q                                     #  SC < 0 OR SC > 50
033077,001680: 14,3374           13376                           TCF      +2                                    #  SC = + OR - 0
033078,001681: 14,3375           13376                           TCF      +1                                    #  0 <= SC< 50
033079,001682: 14,3376           50002                           INDEX    Q                                     #  SC = 50
033080,001683: 14,3377           00002                           TC       00002                                 
033081,001684: 14,3400           77730        NEG47              OCT      77730                                 
033082,001685: 
033083,001686:                                                                                                  #  NAME - S52.2
033084,001687:                                                                                                  #  FUNCTION - COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
033085,001688:                                                                                                  #  CALL - CALL S52.2
033086,001689:                                                                                                  #  INPUT - X,Y,ZSMD
033087,001690:                                                                                                  #  OUTPUT - OGC,IGC,MGC,THETAD,+1,+2
033088,001691:                                                                                                  #  SUBROUTINES - CDUTRIG, CALCSMSC, MATMOVE, CALCGA
033089,001692: 
033090,001693: 11,2000                                           SETLOC   S52/2                                 
033091,001694: 11,2000                                           BANK                                           
033092,001695: 
033093,001696: 11,2260                                           COUNT    13/S52.2                              
033094,001697: 11,2260           77620        S52.2              STQ                                            
033095,001698: 11,2261           00300                                    QMAJ                                  
033096,001699: 11,2262           77624                           CALL                                           
033097,001700: 11,2263           47501                                    CDUTRIG                               
033098,001701: 11,2264           77624                           CALL                                           
033099,001702: 11,2265           34664                                    CALCSMSC                              
033100,001703: 11,2266           66370                           AXT,1    SSP                                   
033101,001704: 11,2267           00022                                    18D                                   
033102,001705: 11,2270           00051                                    S1                                    
033103,001706: 11,2271           00006                                    6D                                    
033104,001707: 11,2272           61373        S52.2A             VLOAD*   VXM                                   
033105,001708: 11,2273           02736                                    XNB        +18D,1                     
033106,001709: 11,2274           01736                                    REFSMMAT                              
033107,001710: 11,2275           77656                           UNIT                                           
033108,001711: 11,2276           06736                           STORE    XNB        +18D,1                     
033109,001712: 11,2277           77700                           TIX,1                                          
033110,001713: 11,2300           22272                                    S52.2A                                
033111,001714: 11,2301           75160        S52.2.1            AXC,1    AXC,2                                 
033112,001715: 11,2302           00306                                    XSMD                                  
033113,001716: 11,2303           02671                                    XSM                                   
033114,001717: 11,2304           77624                           CALL                                           
033115,001718: 11,2305           31042                                    MATMOVE                               
033116,001719: 11,2306           77624                           CALL                                           
033117,001720: 11,2307           47313                                    CALCGA                                
033118,001721: 11,2310           77650                           GOTO                                           
033119,001722: 11,2311           00300                                    QMAJ                                  
033120,001723: 
033121,001724:                                                                                                  #  PROGRAM NAME - SR52.1                         DATE  DEC 20 66
033122,001725:                                                                                                  #  MOD 1                                         LOG SEC  P51-P53
033123,001726:                                                                                                  #  BY KEN VINCENT                                ASSEMBLY  SUNDISK REV 40
033124,001727: 
033125,001728:                                                                                                  #  FUNCTION
033126,001729: 
033127,001730:                                                                                                  #  TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
033128,001731:                                                                                                  #  LEM, STAR OR LANDMARK.  IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
033129,001732:                                                                                                  #  2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1).  IF THE LEM IS 
033130,001733:                                                                                                  #  THE TARGET THEN CONIC UPDATES      OF THE CSM AND LEM ARE MADE TO
033131,001734:                                                                                                  #  THE TIME IN AOPTIME.  THE UNIT OF THE DIFFERENCE OF LEM AND CSM
033132,001735:                                                                                                  #  POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
033133,001736:                                                                                                  #  COMMON PART OF THIS PROGRAM.
033134,001737: 
033135,001738:                                                                                                  #  IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY.  THE RADIUS
033136,001739:                                                                                                  #  VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV.  BOTH OF THESE ARE
033137,001740:                                                                                                  #  FOUND FOR THE TIME IN AOPTIME.  THE UNIT OF THE DIFFERENCE BETWEEN
033138,001741:                                                                                                  #  THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
033139,001742:                                                                                                  #  VECTOR FOR THE COMMON PART OF THIS ROUTINE.
033140,001743: 
033141,001744:                                                                                                  #  IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
033142,001745:                                                                                                  #  AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
033143,001746: 
033144,001747:                                                                                                  #  THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING
033145,001748:                                                                                                  #  VECTOR INTO STABLE MEMBER COORDINATES.  IT READS THE IMU-CDUS AND USES
033146,001749:                                                                                                  #  THIS DATA IN A CALL TO CALCSXA.  ON RETURN FROM CALCSXA A TEST IS
033147,001750:                                                                                                  #  MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN  90DEG OR 38DEG.
033148,001751:                                                                                                  #  MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG. OR 50DEG.
033149,001752: 
033150,001753:                                                                                                  #  CALLING SEQUENCE
033151,001754: 
033152,001755:                                                                                                  #        L+4     RETURN WHEN SHAFT OR TRUNION NOT WITHIN 5 DEG OF DESIRED
033153,001756:                                                                                                  #        L       TC      BANKCALL
033154,001757:                                                                                                  #        L+1     CADR    SR52.1
033155,001758:                                                                                                  #        L+2     ERROR RETURN    TRUNNION GREATER THAN 90 DEG
033156,001759:                                                                                                  #        L&3     ERROR RETURN    TRUNNION GREATER THAN 50 DEG
033157,001760:                                                                                                  #        L+4     NORMAL RETURN
033158,001761: 
033159,001762:                                                                                                  #  OUTPUT
033160,001763: 
033161,001764:                                                                                                  #        SAC -SINGLE PREC, 2S COMP, SCALED AT HALF REVS - SHAFT ANGLE DESIRED
033162,001765:                                                                                                  #        PAC -SINGLE PREC, 2S COMP  SCALED AT EIGTH REVS - TRUNNION ANGLE DESIRED
033163,001766: 
033164,001767:                                                                                                  #  INITIALIZATION
033165,001768: 
033166,001769:                                                                                                  #        IF TARG1FLG =1 THEN TARGET IS LEM - NO OTHER INPUT REQUIRED
033167,001770: 
033168,001771:                                                                                                  #        IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
033169,001772:                                                                                                  #        0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE.  STAR CODES
033170,001773:                                                                                                  #        ARE 6 TIMES STAR NUMBER.
033171,001774: 
033172,001775:                                                                                                  #        IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK.  SEE ROUTINE
033173,001776:                                                                                                  #        LALOTORV FOR INPUT REQUIREMENTS.  HERE FIXERAD=1 FOR CONSTANT EARTH
033174,001777:                                                                                                  #        RADIUS
033175,001778: 
033176,001779:                                                                                                  #  DEBRIS
033177,001780: 
033178,001781:                                                                                                  #        WORK AREA
033179,001782:                                                                                                  #        STARAD - STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
033180,001783: 
033181,001784: 11,2312                                           COUNT*   $$/SR521                              
033182,001785: 13,2000                                           SETLOC   SR52/1                                
033183,001786: 13,2000                                           BANK                                           
033184,001787: 
033185,001788: 13,2254           04725        SR52.1             TC       MAKECADR                              
033186,001789: 13,2255           55777                           TS       QMIN                                  
033187,001790: 13,2256           06006                           TC       INTPRET                               
033188,001791: 13,2257           43234                           RTB      DAD                                   
033189,001792: 13,2260           45510                                    LOADTIME                              
033190,001793: 13,2261           26375                                    2.4SECDP                              
033191,001794: 13,2262           02356                           STORE    AOPTIME                               
033192,001795: 13,2263           43014                           BON      BON                                   
033193,001796: 13,2264           00705                                    TARG1FLG                              
033194,001797: 13,2265           26272                                    LEM52                                 
033195,001798: 13,2266           00706                                    TARG2FLG                              
033196,001799: 13,2267           26302                                    LMK52                                 
033197,001800: 13,2270           77650                           GOTO                                           
033198,001801: 13,2271           26323                                    STAR52                                
033199,001802: 13,2272           77745        LEM52              DLOAD                                          
033200,001803: 13,2273           02356                                    AOPTIME                               
033201,001804: 13,2274           34041                           STCALL   TDEC1                                 
033202,001805: 13,2275           27136                                    LEMCONIC                              
033203,001806: 13,2276           77775                           VLOAD                                          
033204,001807: 13,2277           00001                                    RATT                                  
033205,001808: 13,2300           77650                           GOTO                                           
033206,001809: 13,2301           26312                                    LMKLMCOM                              
033207,001810: 13,2302           71214        LMK52              BON      DLOAD                                 
033208,001811: 13,2303           04305                                    ADVTRK                                
033209,001812: 13,2304           54000                                    ADVTRACK                              
033210,001813: 13,2305           02356                                    AOPTIME                               
033211,001814: 13,2306           77624                           CALL                                           
033212,001815: 13,2307           26451                                    LALOTORV                              
033213,001816: 13,2310           77775                           VLOAD                                          
033214,001817: 13,2311           02152                                    ALPHAV                                
033215,001818: 13,2312           16766        LMKLMCOM           STODL    STAR                                  
033216,001819: 13,2313           02356                                    AOPTIME                               
033217,001820: 13,2314           34041                           STCALL   TDEC1                                 
033218,001821: 13,2315           27124                                    CSMCONIC                              
033219,001822: 13,2316           52375                           VLOAD    VSU                                   
033220,001823: 13,2317           02766                                    STAR                                  
033221,001824: 13,2320           00001                                    RATT                                  
033222,001825: 13,2321           52056                           UNIT     GOTO                                  
033223,001826: 13,2322           26336                                    COM52                                 
033224,001827: 13,2323           72131        STAR52             SSP      LXA,1                                 
033225,001828: 13,2324           00051                                    S1                                    
033226,001829: 13,2325           00000                                    0                                     
033227,001830: 13,2326           00304                                    STARIND                               
033228,001831: 13,2327           77700                           TIX,1                                          
033229,001832: 13,2330           26334                                    ST52ST                                
033230,001833: 13,2331           52175                           VLOAD    GOTO                                  
033231,001834: 13,2332           02617                                    STARSAV2                              
033232,001835: 13,2333           26336                                    COM52                                 
033233,001836: 13,2334           77775        ST52ST             VLOAD                                          
033234,001837: 13,2335           02611                                    STARSAV1                              
033235,001838: 13,2336           53521        COM52              MXV      UNIT                                  
033236,001839: 13,2337           01736                                    REFSMMAT                              
033237,001840: 13,2340           02766                           STORE    STAR                                  
033238,001841: 13,2341           45001                           SETPD    CALL                                  
033239,001842: 13,2342           00001                                    0                                     
033240,001843: 13,2343           47501                                    CDUTRIG                               #  COMPUTES SINES AND COSINES FOR CALCSXA
033241,001844: 13,2344           77624                           CALL                                           #        NOW EXPECT TO SEE THE CDU ANGLES.
033242,001845: 13,2345           46034                                    CALCSXA                               
033243,001846: 13,2346           77414                           BOFF     EXIT                                  
033244,001847: 13,2347           01750                                    CULTFLAG                              
033245,001848: 13,2350           26352                                    TRUN38                                
033246,001849: 13,2351           02370                           TC       SR52E1                                
033247,001850: 13,2352           45345        TRUN38             DLOAD    DSU                                   
033248,001851: 13,2353           02776                                    PAC                                   
033249,001852: 13,2354           26373                                    38TRDEG                               
033250,001853: 13,2355           71244                           BPL      DLOAD                                 
033251,001854: 13,2356           26363                                    SR52E22                               
033252,001855: 13,2357           02776                                    PAC                                   
033253,001856: 13,2360           51025                           DSU      BPL                                   
033254,001857: 13,2361           26377                                    20DEGSMN                              
033255,001858: 13,2362           26365                                    SR52E3                                
033256,001859: 13,2363           77776        SR52E22            EXIT                                           
033257,001860: 13,2364           02367                           TC       SR52E2                                
033258,001861: 13,2365           77776        SR52E3             EXIT                                           
033259,001862: 13,2366           25777                           INCR     QMIN                                  
033260,001863: 13,2367           25777        SR52E2             INCR     QMIN                                  
033261,001864: 13,2370           31777        SR52E1             CA       QMIN                                  
033262,001865: 13,2371           04702                           TC       SWCALL                                
033263,001866: 13,2372           25252 25254  38TRDEG            2DEC     .66666667                             #  CORESPONDS TO 50 DEGS IN TRUNION
033264,001867: 
033265,001868: 13,2374           00000 00360  2.4SECDP           2DEC     240        B-28                       
033266,001869: 
033267,001870: 13,2376           61740        20DEGSMN           DEC      -07199     B-14                       
033268,001871: 13,2377           77777                           DEC      -0         B-14                       
033269,001872: 
033270,001873:                                                                                                  #     THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
033271,001874:                                                                                                  #  A POINT ON THE GROUND TRACK 60 DEGRESS FORWARD OF THE LOCAL VERTICAL
033272,001875:                                                                                                  #  OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW
033273,001876: 
033274,001877: 26,2000                                           SETLOC   26P50S                                
033275,001878: 26,2000                                           BANK                                           
033276,001879: 26,2000           77601        ADVTRACK           SETPD                                          
033277,001880: 26,2001           00001                                    0                                     
033278,001881: 26,2002           41575                           VLOAD    PUSH                                  #  INITIALIZE FOR RP-TO-R
033279,001882: 26,2003           15326                                    UNITZ                                 #  UZ VEC IN PD 0-5
033280,001883: 26,2004           41434                           RTB      PUSH                                  #  TIME IN PD 6-7
033281,001884: 26,2005           45510                                    LOADTIME                              
033282,001885: 26,2006           36356                           STCALL   AOPTIME                               #  TIME ALSO IN AOPTIME FOR CSMCONIC
033283,001886: 26,2007           55343                                    RP-TO-R                               #  GET MOON ROTATION VEC IN REF
033284,001887: 26,2010           16766                           STODL    STAR                                  
033285,001888: 26,2011           02356                                    AOPTIME                               #  PICK UP TIME
033286,001889: 26,2012           34041                           STCALL   TDEC1                                 #  UPDATE STATE TO TIME
033287,001890: 26,2013           27124                                    CSMCONIC                              
033288,001891: 26,2014           47375                           VLOAD    VXV                                   
033289,001892: 26,2015           00007                                    VATT                                  
033290,001893: 26,2016           00001                                    RATT                                  
033291,001894: 26,2017           77656                           UNIT                                           
033292,001895: 26,2020           24031                           STOVL    24D                                   #  SAVE -UNIT(V X R) FOR 2ND ROTATION
033293,001896: 26,2021           00001                                    RATT                                  
033294,001897: 26,2022           57456                           UNIT     VCOMP                                 
033295,001898: 26,2023           41401                           SETPD    PUSH                                  #  PUSH LOS=-UNIT(RVEC) PD 0-5
033296,001899: 26,2024           00001                                    0                                     
033297,001900: 26,2025           77776                           EXIT                                           
033298,001901: 26,2026           31751                           CA       LANDMARK                              
033299,001902: 26,2027           75037                           MASK     SEVEN                                 #  GET NUMBER OF ADVANCE PERIODS
033300,001903: 26,2030           00006                           EXTEND                                         
033301,001904: 26,2031           75021                           MP       BIT11                                 #  GET N/16
033302,001905: 26,2032           56001                           XCH      L                                     
033303,001906: 26,2033           50120                           INDEX    FIXLOC                                
033304,001907: 26,2034           54036                           TS       30D                                   #  TEMP STORE N/16
033305,001908: 26,2035           06006                           TC       INTPRET                               
033306,001909: 26,2036           41335                           SLOAD    DMP                                   
033307,001910: 26,2037           00037                                    30D                                   
033308,001911: 26,2040           14107                                    MPERIOD                               
033309,001912: 26,2041           36356                           STCALL   AOPTIME                               #  ROTATE ANG ABOUT UR
033310,001913: 26,2042           54057                                    ROTA                                  
033311,001914: 26,2043           77775                           VLOAD                                          
033312,001915: 26,2044           00031                                    24D                                   #  PICK UP 2ND ROTATION AXIS
033313,001916: 26,2045           16766                           STODL    STAR                                  
033314,001917: 26,2046           14105                                    DP1/6                                 
033315,001918: 26,2047           77625                           DSU                                            
033316,001919: 26,2050           02356                                    AOPTIME                               #  2ND RAT ANGLE = 60 - A
033317,001920: 26,2051           36356                           STCALL   AOPTIME                               
033318,001921: 26,2052           54057                                    ROTA                                  #  GO ROTATE 2ND TIME
033319,001922: 26,2053           77775                           VLOAD                                          
033320,001923: 26,2054           00001                                    0                                     
033321,001924: 26,2055           36766                           STCALL   STAR                                  #  STORE FINAL LOS IN STAR
033322,001925: 26,2056           26336                                    COM52                                 #  RETURN TO SR52.1
033323,001926: 
033324,001927: 26,2057           73545        ROTA               DLOAD    SIN                                   
033325,001928: 26,2060           02356                                    AOPTIME                               
033326,001929: 26,2061           47315                           PDVL     VXV                                   #  PUSH 1/2SIN(A) PD 6-7
033327,001930: 26,2062           02766                                    STAR                                  #        UR VEC
033328,001931: 26,2063           00001                                    0                                     #        LOS
033329,001932: 26,2064           72561                           VXSC     VSL2                                  #  1/2SIN(A)(URXLOS) PD 6-11
033330,001933: 26,2065           50315                           PDVL     DOT                                   
033331,001934: 26,2066           02766                                    STAR                                  
033332,001935: 26,2067           00001                                    0                                     
033333,001936: 26,2070           72561                           VXSC     VSL2                                  
033334,001937: 26,2071           02766                                    STAR                                  
033335,001938: 26,2072           71525                           PDDL     COS                                   #  1/2(UR . LOS)UR 12-17
033336,001939: 26,2073           02356                                    AOPTIME                               
033337,001940: 26,2074           51315                           PDVL     BVSU                                  #  PUSH 1/2COS(A) 18-19
033338,001941: 26,2075           00015                                    12D                                   
033339,001942: 26,2076           00001                                    0                                     
033340,001943: 26,2077           76561                           VXSC     VSL1                                  #  UP 18-19
033341,001944: 26,2100           53255                           VAD      VAD                                   #  UP 12-17 UP 6-11
033342,001945: 26,2101           40256                           UNIT     SETPD                                 
033343,001946: 26,2102           00001                                    0                                     
033344,001947: 26,2103           43406                           PUSH     RVQ                                   
033345,001948: 
033346,001949: 26,2104           05252 25251  DP1/6              2DEC     .16666666                             
033347,001950: 
033348,001951: 26,2106           01414 06044  MPERIOD            2DEC     .047619                               #  APPROX LUNAR ROT ANG IN 2HRS X 16
033349,001952: 
033350,001953:                                                                                                  #  NAME - S52.3
033351,001954:                                                                                                  #  FUNCTION -    XSMD= UNIT(YSMD X ZSMD)
033352,001955:                                                                                                  #                YSMD= UNIT(V X R)
033353,001956:                                                                                                  #                ZSMD= UNIT(-R)
033354,001957:                                                                                                  #  CALL          DLOAD   CALL
033355,001958:                                                                                                  #                        TALIGN
033356,001959:                                                                                                  #                        S52.3
033357,001960:                                                                                                  #  INPUT -       TIME OF ALIGNMENT IN MPAC
033358,001961:                                                                                                  #  OUTPUT -      X,Y,ZSMD
033359,001962:                                                                                                  #  SUBROUTINES - CSMCONIC
033360,001963: 
033361,001964: 16,2000                                           SETLOC   P50S2                                 
033362,001965: 16,2000                                           BANK                                           
033363,001966: 
033364,001967: 16,2733                                           COUNT    15/S52.3                              
033365,001968: 16,2733           77620        S52.3              STQ                                            
033366,001969: 16,2734           00300                                    QMAJ                                  
033367,001970: 16,2735           34041                           STCALL   TDEC1                                 
033368,001971: 16,2736           27101                                    CSMPREC                               
033369,001972: 16,2737           77601                           SETPD                                          
033370,001973: 16,2740           00001                                    0                                     
033371,001974: 16,2741           57575                           VLOAD    VCOMP                                 
033372,001975: 16,2742           00001                                    RATT                                  
033373,001976: 16,2743           77656                           UNIT                                           
033374,001977: 16,2744           24323                           STOVL    ZSMD                                  
033375,001978: 16,2745           00007                                    VATT                                  
033376,001979: 16,2746           53435                           VXV      UNIT                                  
033377,001980: 16,2747           00001                                    RATT                                  
033378,001981: 16,2750           00315                           STORE    YSMD                                  
033379,001982: 16,2751           53435                           VXV      UNIT                                  
033380,001983: 16,2752           00323                                    ZSMD                                  
033381,001984: 16,2753           34307                           STCALL   XSMD                                  
033382,001985: 16,2754           00300                                    QMAJ                                  
033383,001986: 
033384,001987:                                                                                                  #  PROGRAM DESCRIPTION - R56 - ALTERNATE LOS SIGHTING MARK ROUTINE
033385,001988: 
033386,001989:                                                                                                  #  FUNCTIONAL DESCRIPTION
033387,001990: 
033388,001991:                                                                                                  #        TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54).  THE ASTRONAUT KNOWS THE
033389,001992:                                                                                                  #        COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE.  WHEN THE ASTRONAUT KEYS IN
033390,001993:                                                                                                  #        ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
033391,001994:                                                                                                  #        IN N92.
033392,001995: 
033393,001996:                                                                                                  #  CALLING SEQUENCE
033394,001997: 
033395,001998:                                                                                                  #        CALL
033396,001999:                                                                                                  #                R56
033397,002000: 
033398,002001:                                                                                                  #  SUBROUTINES CALLED
033399,002002: 
033400,002003:                                                                                                  #        A PORTION OF SXTMARK (VAC.AREA SEARCH)
033401,002004:                                                                                                  #        GOFLASH
033402,002005:                                                                                                  #        GOPERF1
033403,002006: 
033404,002007:                                                                                                  #  ERASABLE INITIALIZATION
033405,002008: 
033406,002009:                                                                                                  #        STARIND-INDEX TO STAR NUMBER
033407,002010: 
033408,002011:                                                                                                  #  OUTPUT
033409,002012: 
033410,002013:                                                                                                  #        MARKSTAT-INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
033411,002014:                                                                                                  #        BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
033412,002015:                                                                                                  #        ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS-
033413,002016:                                                                                                  #                VAC +2  CDUY
033414,002017:                                                                                                  #                VAC +3  CDUS
033415,002018:                                                                                                  #                VAC +4  CDUZ
033416,002019:                                                                                                  #                VAC +5  CDUT
033417,002020:                                                                                                  #                VAC +6  CDUX
033418,002021: 
033419,002022: 16,2755                                           COUNT*   $$/R56                                
033420,002023: 17,2000                                           SETLOC   P50S3                                 
033421,002024: 17,2000                                           BANK                                           
033422,002025: 17,2114           77420        R56                STQ      EXIT                                  
033423,002026: 17,2115           03501                                    R53EXIT                               
033424,002027: 17,2116           32204                           CAF      V06N94B                               
033425,002028: 17,2117           04676                           TC       BANKCALL                              
033426,002029: 17,2120           20720                           CADR     GOFLASH                               
033427,002030: 17,2121           04106                           TC       GOTOPOOH                              #  TERM.
033428,002031: 17,2122           02124                           TC       R56A                                  #  PROCEED - ANGLES OK
033429,002032: 17,2123           02116                           TC       -5                                    #  ENTER - NEW ANGLES
033430,002033: 17,2124           04676        R56A               TC       BANKCALL                              
033431,002034: 17,2125           16004                           CADR     SXTMARK    +2                         #  INHIBIR EXT VB ACT AND FIND VAC AREA
033432,002035: 
033433,002036: 17,2126           35035                           CAF      ZERO                                  
033434,002037: 17,2127           04676                           TC       BANKCALL                              
033435,002038: 17,2130           20703                           CADR     CLEANDSP                              
033436,002039: 
033437,002040: 17,2131           32203        R56A1              CAF      VB53                                  #  DISPLAY V53 REQUESTING ALTERNATE MARK
033438,002041: 17,2132           04676                           TC       BANKCALL                              
033439,002042: 17,2133           20564                           CADR     GOMARK2                               
033440,002043: 17,2134           14106                           TCF      GOTOPOOH                              #  V34-TERMINATE
033441,002044: 17,2135           12131                           TCF      R56A1                                 #  V33-DONT PROCEED-JUST ENTER TO MARK
033442,002045: 17,2136           06006                           TC       INTPRET                               
033443,002046: 17,2137           77745                           DLOAD                                          
033444,002047: 17,2140           03731                                    MRKBUF1    +3                         
033445,002048: 17,2141           16774                           STODL    SAC                                   
033446,002049: 17,2142           03733                                    MRKBUF1    +5                         
033447,002050: 17,2143           02776                           STORE    PAC                                   
033448,002051: 17,2144           77776                           EXIT                                           
033449,002052: 17,2145           00004                           INHINT                                         
033450,002053: 17,2146           00006                           EXTEND                                         
033451,002054: 17,2147           30025                           DCA      TIME2                                 
033452,002055: 17,2150           51330                           INDEX    MARKSTAT                              
033453,002056: 17,2151           52001                           DXCH     0                                     
033454,002057: 17,2152           30033                           CA       CDUY                                  #  ENTER-THIS IS A BACKUP SYSTEM MARK
033455,002058: 17,2153           51330                           INDEX    MARKSTAT                              
033456,002059: 17,2154           54002                           TS       2                                     
033457,002060: 17,2155           31773                           CA       SAC                                   
033458,002061: 17,2156           51330                           INDEX    MARKSTAT                              
033459,002062: 17,2157           54003                           TS       3                                     
033460,002063: 17,2160           30034                           CA       CDUZ                                  
033461,002064: 17,2161           51330                           INDEX    MARKSTAT                              
033462,002065: 17,2162           54004                           TS       4                                     
033463,002066: 17,2163           31775                           CA       PAC                                   
033464,002067: 17,2164           51330                           INDEX    MARKSTAT                              
033465,002068: 17,2165           54005                           TS       5                                     
033466,002069: 17,2166           30032                           CA       CDUX                                  
033467,002070: 17,2167           51330                           INDEX    MARKSTAT                              
033468,002071: 17,2170           54006                           TS       6                                     
033469,002072: 17,2171           00003                           RELINT                                         
033470,002073: 17,2172           05552                           TC       CLEARMRK                              #  ENABLE EXTENDED VERBS
033471,002074: 17,2173           34333                           CAF      OCT16                                 
033472,002075: 17,2174           04676                           TC       BANKCALL                              
033473,002076: 17,2175           21045                           CADR     GOPERF1                               
033474,002077: 17,2176           04106                           TC       GOTOPOOH                              #  TERM.
033475,002078: 17,2177           12201                           TCF      R56B                                  #  PROCEED-MARK COMPLETED
033476,002079: 17,2200           12126                           TCF      R56A       +2                         #  RECYCLE-DO ANOTHER MARK - LIKE REJECT
033477,002080: 17,2201           04676        R56B               TC       BANKCALL                              
033478,002081: 17,2202           31340                           CADR     R53C1                                 
033479,002082: 17,2203           15200        VB53               VN       05300                                 #  ALTERNATE MARK VERB
033480,002083: 17,2204           01536        V06N94B            VN       00694                                 
033481,002084: 15,2000                                           SETLOC   P50S                                  
033482,002085: 15,2000                                           BANK                                           
033483,002086: 
033484,002087: 15,2340           02607        PLANET             STORE    TSIGHT                                
033485,002088: 15,2341           45020                           STQ      CALL                                  
033486,002089: 15,2342           02777                                    QMIN                                  
033487,002090: 15,2343           30225                                    LOCSAM                                
033488,002091: 15,2344           77775                           VLOAD                                          
033489,002092: 15,2345           02736                                    VEARTH                                
033490,002093: 15,2346           24001                           STOVL    0D                                    
033491,002094: 15,2347           02744                                    VSUN                                  
033492,002095: 15,2350           26736                           STOVL    VEARTH                                
033493,002096: 15,2351           00001                                    0D                                    
033494,002097: 15,2352           02744                           STORE    VSUN                                  
033495,002098: 15,2353           77776        NOSAM              EXIT                                           
033496,002099: 15,2354           47713                           CS       HIGH9                                 
033497,002100: 15,2355           70735                           MASK     STARCODE                              
033498,002101: 15,2356           00006                           EXTEND                                         
033499,002102: 15,2357           76211                           MP       SIGHTSIX                              
033500,002103: 15,2360           56001                           XCH      L                                     
033501,002104: 15,2361           50304                           INDEX    STARIND                               
033502,002105: 15,2362           54302                           TS       BESTI                                 
033503,002106: 15,2363           10000                           CCS      A                                     
033504,002107: 15,2364           12401                           TCF      NOTPLAN                               
033505,002108: 15,2365           32431                           CAF      VNPLANV                               
033506,002109: 15,2366           04676                           TC       BANKCALL                              
033507,002110: 15,2367           20720                           CADR     GOFLASH                               
033508,002111: 15,2370           04106                           TC       GOTOPOOH                              
033509,002112: 15,2371           02373                           TC       +2                                    
033510,002113: 15,2372           02365                           TC       -5                                    
033511,002114: 15,2373           06006                           TC       INTPRET                               
033512,002115: 15,2374           74375                           VLOAD    VXSC                                  
033513,002116: 15,2375           03705                                    STARSAV3                              
033514,002117: 15,2376           32433                                    1/SQR3                                
033515,002118: 15,2377           52056                           UNIT     GOTO                                  
033516,002119: 15,2400           32424                                    CORPLAN                               
033517,002120: 15,2401           40000        NOTPLAN            CS       A                                     
033518,002121: 15,2402           62430                           AD       DEC227                                
033519,002122: 15,2403           00006                           EXTEND                                         
033520,002123: 15,2404           62415                           BZMF     CALSAM1                               
033521,002124: 15,2405           50304                           INDEX    STARIND                               
033522,002125: 15,2406           30302                           CA       BESTI                                 
033523,002126: 15,2407           50120                           INDEX    FIXLOC                                
033524,002127: 15,2410           54046                           TS       X1                                    
033525,002128: 15,2411           06006                           TC       INTPRET                               
033526,002129: 15,2412           52173                           VLOAD*   GOTO                                  
033527,002130: 15,2413           31763                                    CATLOG,1                              
033528,002131: 15,2414           32424                                    CORPLAN                               
033529,002132: 15,2415           06006        CALSAM1            TC       INTPRET                               
033530,002133: 15,2416           70740                           LXC,1    DLOAD*                                
033531,002134: 15,2417           00304                                    STARIND                               
033532,002135: 15,2420           00303                                    BESTI,1                               
033533,002136: 15,2421           76740                           LXC,1    VLOAD*                                
033534,002137: 15,2422           00154                                    MPAC                                  
033535,002138: 15,2423           02372                                    STARAD     -228D,1                    
033536,002139: 15,2424           53455        CORPLAN            VAD      UNIT                                  
033537,002140: 15,2425           03474                                    VEL/C                                 
033538,002141: 15,2426           77650                           GOTO                                           
033539,002142: 15,2427           02777                                    QMIN                                  
033540,002143: 15,2430           00343        DEC227             DEC      227        B-14                       
033541,002144: 15,2431           01530        VNPLANV            VN       0688                                  
033542,002145: 15,2432           22363 11623  1/SQR3             2DEC     .57735021                             
033543,002146: 
033544,002147: 

End of include-file P51-P53.agc.  Parent file is MAIN.agc