Source Code

These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3), the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72/3 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.

031612,000002:                                                                                                  ## Copyright:   Public domain.
031613,000003:                                                                                                  ## Filename:    P51-P53.agc
031614,000004:                                                                                                  ## Purpose:     A section of Manche72 revision 3.
031615,000005:                                                                                                  ##              It is part of the reconstructed source code for the final, flown
031616,000006:                                                                                                  ##              release of the software for the Command Module's (CM) Apollo
031617,000007:                                                                                                  ##              Guidance Computer (AGC) for Apollo 13. No original listings
031618,000008:                                                                                                  ##              of this program are available; instead, this file was recreated
031619,000009:                                                                                                  ##              from a reconstructed copy of Comanche 072. It has been adapted
031620,000010:                                                                                                  ##              such that the resulting bugger words exactly match those
031621,000011:                                                                                                  ##              specified for Manche72 revision 3 in NASA drawing 2021153G,
031622,000012:                                                                                                  ##              which gives relatively high confidence that the reconstruction
031623,000013:                                                                                                  ##              is correct.
031624,000014:                                                                                                  ## Assembler:   yaYUL
031625,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
031626,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
031627,000017:                                                                                                  ## Mod history: 2024-05-19 MAS  Created from Comanche 072.
031628,000018: 
031629,000019:                                                                                                  #  PROGRAM NAME - PROG52                 DATE - NOV 30, 1966
031630,000020:                                                                                                  #  MOD NO - 2                                    LOG SECTION - P51-P53
031631,000021:                                                                                                  #  MODIFICATION BY - LONSKE                      ASSEMBLY - SUNDISK REV 30
031632,000022: 
031633,000023:                                                                                                  #  FUNCTIONAL DESCRIPTION -
031634,000024: 
031635,000025:                                                                                                  #        ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT.  THE PRESENT IMU ORIENTATION IS KNOWN
031636,000026:                                                                                                  #        AND IS STORED IN REFSMMAT.  THE THREE POSSIBLE ORIENTATIONS MAY BE_
031637,000027: 
031638,000028:                                                                                                  #        (A)     PREFERRED ORIENTATION
031639,000029: 
031640,000030:                                                                                                  #                AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANUEVER.  THIS ORIENTATION MUST BE CALCULATED AND
031641,000031:                                                                                                  #                STORED BY A PREVIOUSLY SELECTED PROGRAM.
031642,000032: 
031643,000033:                                                                                                  #        (B)     NOMINAL ORIENTATION
031644,000034: 
031645,000035:                                                                                                  #                X   = UNIT ( Y   X Z   )
031646,000036:                                                                                                  #                -SM          -SM   -SM
031647,000037: 
031648,000038:                                                                                                  #                Y   = UNIT (V X R)
031649,000039:                                                                                                  #                -SM         -   -
031650,000040: 
031651,000041:                                                                                                  #                Z   = UNIT ( -R )
031652,000042:                                                                                                  #                -SM           -
031653,000043: 
031654,000044:                                                                                                  #                WHERE_
031655,000045: 
031656,000046:                                                                                                  #                R = THE GEOCENTRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
031657,000047:                                                                                                  #                -
031658,000048: 
031659,000049:                                                                                                  #                V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
031660,000050:                                                                                                  #                -
031661,000051: 
031662,000052:                                                                                                  #        (C)     REFSMMAT ORIENTATION
031663,000053: 
031664,000054:                                                                                                  #                THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION.  THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
031665,000055:                                                                                                  #                WAS LAST ALIGNED ONLY DUE TO GYRO DRIFT (I.E. NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPTION HAS OCCURED
031666,000056:                                                                                                  #                SINCE THE LAST ALIGNMENT).
031667,000057: 
031668,000058:                                                                                                  #        AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
031669,000059:                                                                                                  #        NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE.  CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
031670,000060:                                                                                                  #        COARSE ALIGN THE IMU.  THE STAR SELECTION ROUTINE, R56, IS THEN OPERATED.  IF 2 STARS ARE NOT AVAILABLE AN ALARM
031671,000061:                                                                                                  #        IS FLASHED TO NOTIFY THE ASTRONAUT.  AT THIS POINT THE ASTRONAUT WILL MANUEVER THE VEHICLE AND SELECT 2 STARS
031672,000062:                                                                                                  #        EITHER MANUALLY OR AUTOMATICALLY.  AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51.  IF
031673,000063:                                                                                                  #        THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED.  OTHERWISE P00 IS
031674,000064:                                                                                                  #        REQUESTED.
031675,000065: 
031676,000066:                                                                                                  #  CALLING SEQUENCE -
031677,000067: 
031678,000068:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
031679,000069: 
031680,000070:                                                                                                  #  SUBROUTINES CALLED -
031681,000071: 
031682,000072:                                                                                                  #        1. FLAGDOWN              7. S52.2               13. NEWMODEX
031683,000073:                                                                                                  #        2. R02BOTH               8. CAL53A              14. PRIOLARM
031684,000074:                                                                                                  #        3. GOPERF4               9. FLAGUP
031685,000075:                                                                                                  #        4. MATMOVE              10. R56
031686,000076:                                                                                                  #        5. GOFLASH              11. R51
031687,000077:                                                                                                  #        6. S52.3                12. GOPERF3
031688,000078: 
031689,000079:                                                                                                  #  NORMAL EXIT MODES -
031690,000080: 
031691,000081:                                                                                                  #        EXITS TO ENDOFJOB
031692,000082: 
031693,000083:                                                                                                  #  ALARM OR ABORT EXIT MODES -
031694,000084: 
031695,000085:                                                                                                  #        NONE
031696,000086: 
031697,000087:                                                                                                  #  OUTPUT -
031698,000088: 
031699,000089:                                                                                                  #        THE FOLLOWING MAY BE FLASHED ON THE DSKY
031700,000090:                                                                                                  #                1. IMU ORIENTATION CODE
031701,000091:                                                                                                  #                2. ALARM CODE 215 - PREFERRED IMU ORIENTATION NOT SPECIFIED
031702,000092:                                                                                                  #                3. TIME OF NEXT IGNITION
031703,000093:                                                                                                  #                4. GIMBAL ANGLES
031704,000094:                                                                                                  #                5. ALARM CODE 405 - TWO STARS NOT AVAILABLE
031705,000095:                                                                                                  #                6. PLEASE PERFORM P00
031706,000096:                                                                                                  #        THE MODE DISPLAY MAY BE CHANGED TO 20
031707,000097: 
031708,000098:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
031709,000099: 
031710,000100:                                                                                                  #        PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED.  IF IT HAS BEEN COMPUTED IT IS STORED IN
031711,000101:                                                                                                  #        XSMD, YSMD, ZSMD.
031712,000102: 
031713,000103:                                                                                                  #        RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
031714,000104: 
031715,000105:                                                                                                  #  DEBRIS -
031716,000106: 
031717,000107:                                                                                                  #        WORK AREA
031718,000108: 
031719,000109: 21,2054  15,2000               P54                =        PROG52                                
031720,000110: 33,3776                                           BANK     33                                    
031721,000111: 15,2000                                           SETLOC   P50S                                  
031722,000112: 15,2000                                           BANK                                           
031723,000113: 
031724,000114: 15,2000  30,2000                                  SBANK=   LOWSUPER                              
031725,000115: 15,2000  E5,1773                                  EBANK=   SAC                                   
031726,000116: 15,2000                                           COUNT    15/P52                                
031727,000117: 
031728,000118: 15,2000           05426        PROG52             TC       PHASCHNG                              
031729,000119: 15,2001           00254                           OCT      00254                                 
031730,000120: 15,2002           05574                           TC       DOWNFLAG                              
031731,000121: 15,2003           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1
031732,000122: 15,2004           05574                           TC       DOWNFLAG                              
031733,000123: 15,2005           00031                           ADRES    TRACKFLG                              #  BIT 5 FLAG 1
031734,000124: 15,2006           04676                           TC       BANKCALL                              
031735,000125: 15,2007           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
031736,000126: 15,2010           35030                           CAF      BIT4                                  
031737,000127: 15,2011           70076                           MASK     STATE      +2                         #  IS PFRATFLG SET(PREFERRED ORIENTATION)
031738,000128: 15,2012           10000                           CCS      A                                     
031739,000129: 15,2013           02016                           TC       P52A                                  #  YES
031740,000130: 15,2014           36214                           CAF      THREE                                 #  DISPLAY REFSMMAT OPTION 3
031741,000131: 15,2015           02017                           TC       P52A       +1                         
031742,000132: 15,2016           35033        P52A               CAF      BIT1                                  
031743,000133: 15,2017           55132                           TS       OPTION2                               
031744,000134: 15,2020           35033        P52B               CAF      BIT1                                  
031745,000135: 15,2021           04676                           TC       BANKCALL                              #  FLASH OPTION CODE AND ORIENTATION CODE
031746,000136: 15,2022           21135                           CADR     GOPERF4R                              
031747,000137: 15,2023           04106                           TC       GOTOPOOH                              
031748,000138: 15,2024           02031                           TC       +5                                    
031749,000139: 15,2025           02020                           TC       P52B                                  #  NEW CODE - NEW ORIENTATION CODE INPUT
031750,000140: 15,2026           05426                           TC       PHASCHNG                              
031751,000141: 15,2027           00014                           OCT      00014                                 
031752,000142: 15,2030           05233                           TC       ENDOFJOB                              
031753,000143: 15,2031           31132                           CA       OPTION2                               
031754,000144: 15,2032           76214                           MASK     THREE                                 
031755,000145: 15,2033           50000                           INDEX    A                                     
031756,000146: 15,2034           02035                           TC       +1                                    
031757,000147: 15,2035           02041                           TC       P52T                                  #  L.S.
031758,000148: 15,2036           02110                           TC       P52J                                  #  PREF
031759,000149: 15,2037           02041                           TC       P52T                                  #  NOM
031760,000150: 15,2040           12120                           TCF      P52C                                  #  REF
031761,000151: 15,2041           00006        P52T               EXTEND                                         
031762,000152: 15,2042           35035                           DCA      NEG0                                  
031763,000153: 15,2043           53046                           DXCH     DSPTEM1                               
031764,000154: 15,2044           32157                           CAF      V06N34                                
031765,000155: 15,2045           04676                           TC       BANKCALL                              
031766,000156: 15,2046           20720                           CADR     GOFLASH                               
031767,000157: 15,2047           04106                           TC       GOTOPOOH                              
031768,000158: 15,2050           02052                           TC       +2                                    
031769,000159: 15,2051           02044                           TC       -5                                    
031770,000160: 15,2052           00006                           EXTEND                                         
031771,000161: 15,2053           31046                           DCA      DSPTEM1                               
031772,000162: 15,2054           00006                           EXTEND                                         
031773,000163: 15,2055           12057                           BZF      +2                                    
031774,000164: 15,2056           12062                           TCF      +4                                    
031775,000165: 
031776,000166: 15,2057           00006                           EXTEND                                         
031777,000167: 15,2060           30025                           DCA      TIME2                                 
031778,000168: 15,2061           53046                           DXCH     DSPTEM1                               
031779,000169: 15,2062           31132                           CA       OPTION2                               
031780,000170: 15,2063           75032                           MASK     BIT2                                  
031781,000171: 15,2064           10000                           CCS      A                                     
031782,000172: 15,2065           12073                           TCF      +6                                    #  NOM
031783,000173: 15,2066           06006                           TC       INTPRET                               #  LS
031784,000174: 15,2067           77624                           CALL                                           
031785,000175: 15,2070           34603                                    P52LS                                 
031786,000176: 15,2071           77650                           GOTO                                           
031787,000177: 15,2072           32100                                    P52D                                  
031788,000178: 15,2073           06006                           TC       INTPRET                               
031789,000179: 15,2074           77745                           DLOAD                                          
031790,000180: 15,2075           01046                                    DSPTEM1                               
031791,000181: 15,2076           77624                           CALL                                           #  COMPUTE NOMINAL IMU
031792,000182: 15,2077           34733                                    S52.3                                 #        ORIENTATION
031793,000183: 15,2100           77624        P52D               CALL                                           #  READ VEHICLE ATTITUDE AND
031794,000184: 15,2101           22260                                    S52.2                                 #        COMPUTE GIMBAL ANGLES
031795,000185: 15,2102           77776                           EXIT                                           
031796,000186: 15,2103           32160                           CAF      VB06N22                               
031797,000187: 15,2104           04676                           TC       BANKCALL                              #  DISPLAY GIMBAL ANGLES
031798,000188: 15,2105           20720                           CADR     GOFLASH                               
031799,000189: 15,2106           04106                           TC       GOTOPOOH                              
031800,000190: 15,2107           02161                           TC       COARSTYP                              
031801,000191: 15,2110           06006        P52J               TC       INTPRET                               #  RECYCLE- VEHICLE HAS BEEN MENUEVERED
031802,000192: 15,2111           77650                           GOTO                                           
031803,000193: 15,2112           32100                                    P52D                                  
031804,000194: 15,2113           06006                           TC       INTPRET                               
031805,000195: 15,2114           77624                           CALL                                           #  DO COARSE ALIGN
031806,000196: 15,2115           30772                                    CAL53A                                #        ROUTINE
031807,000197: 15,2116           77414        CAL53RET           SET      EXIT                                  
031808,000198: 15,2117           01462                                    REFSMFLG                              
031809,000199: 15,2120           05426        P52C               TC       PHASCHNG                              
031810,000200: 15,2121           04024                           OCT      04024                                 
031811,000201: 15,2122           35041                           CAF      ALRM15                                
031812,000202: 15,2123           04676                           TC       BANKCALL                              
031813,000203: 15,2124           21045                           CADR     GOPERF1                               
031814,000204: 15,2125           04106                           TC       GOTOPOOH                              
031815,000205: 15,2126           02130                           TC       +2                                    #  V33
031816,000206: 15,2127           02142                           TC       P52F                                  #  E
031817,000207: 15,2130           06006                           TC       INTPRET                               
031818,000208: 15,2131           43234                           RTB      DAD                                   
031819,000209: 15,2132           45510                                    LOADTIME                              
031820,000210: 15,2133           32264                                    TSIGHT1                               
031821,000211: 15,2134           77624                           CALL                                           
031822,000212: 15,2135           30227                                    LOCSAM                                
031823,000213: 15,2136           77776                           EXIT                                           
031824,000214: 15,2137           04676        P52E               TC       BANKCALL                              #  DO STAR SELECTION
031825,000215: 15,2140           30335                           CADR     PICAPAR                               
031826,000216: 15,2141           02147                           TC       P52I                                  #  2 STARS NOT AVAILABLE
031827,000217: 15,2142           06006        P52F               TC       INTPRET                               #  2 STARS AVAILABLE
031828,000218: 15,2143           77624                           CALL                                           
031829,000219: 15,2144           30534                                    R51                                   
031830,000220: 15,2145           77776        ENDP50S            EXIT                                           
031831,000221: 15,2146           04106                           TC       GOTOPOOH                              
031832,000222: 15,2147           05664        P52I               TC       ALARM                                 
031833,000223: 15,2150           00405                           OCT      405                                   
031834,000224: 15,2151           35064                           CAF      V05N09                                
031835,000225: 15,2152           04676                           TC       BANKCALL                              
031836,000226: 15,2153           20720                           CADR     GOFLASH                               
031837,000227: 15,2154           04106                           TC       GOTOPOOH                              
031838,000228: 15,2155           02142                           TC       P52F                                  #  PROCEED - DO FINE ALIGN-R51
031839,000229: 15,2156           02120                           TC       P52C                                  #  RECYCLE - VEHICLE HAS BEEN MANUEVERED                 
031840,000230: 15,2157           01442        V06N34             VN       0634                                  
031841,000231: 15,2160           01426        VB06N22            VN       00622                                 
031842,000232: 15,2161           35040        COARSTYP           CAF      OCT13                                 
031843,000233: 15,2162           04676                           TC       BANKCALL                              
031844,000234: 15,2163           21045                           CADR     GOPERF1                               
031845,000235: 15,2164           14106                           TCF      GOTOPOOH                              #  V34
031846,000236: 15,2165           12113                           TCF      P52J       +3                         #   NORMAL
031847,000237: 15,2166           06006                           TC       INTPRET                               #  GYRO COARSE
031848,000238: 15,2167           64375        GYCRS              VLOAD    MXV                                   
031849,000239: 15,2170           00307                                    XSMD                                  
031850,000240: 15,2171           01736                                    REFSMMAT                              
031851,000241: 15,2172           77656                           UNIT                                           
031852,000242: 15,2173           26714                           STOVL    XDC                                   
031853,000243: 15,2174           00315                                    YSMD                                  
031854,000244: 15,2175           53521                           MXV      UNIT                                  
031855,000245: 15,2176           01736                                    REFSMMAT                              
031856,000246: 15,2177           26722                           STOVL    YDC                                   
031857,000247: 15,2200           00323                                    ZSMD                                  
031858,000248: 15,2201           53521                           MXV      UNIT                                  
031859,000249: 15,2202           01736                                    REFSMMAT                              
031860,000250: 15,2203           36730                           STCALL   ZDC                                   
031861,000251: 15,2204           47207                                    CALCGTA                               
031862,000252: 15,2205           43014                           CLEAR    CLEAR                                 
031863,000253: 15,2206           01260                                    DRIFTFLG                              
031864,000254: 15,2207           01662                                    REFSMFLG                              
031865,000255: 15,2210           77776                           EXIT                                           
031866,000256: 15,2211           32244                           CAF      V16N20                                
031867,000257: 15,2212           04676                           TC       BANKCALL                              
031868,000258: 15,2213           20676                           CADR     GODSPR                                
031869,000259: 15,2214           32323                           CA       R55CDR                                
031870,000260: 15,2215           04676                           TC       BANKCALL                              
031871,000261: 15,2216           17206                           CADR     IMUPULSE                              
031872,000262: 15,2217           04676                           TC       BANKCALL                              
031873,000263: 15,2220           17577                           CADR     IMUSTALL                              
031874,000264: 15,2221           05763                           TC       CURTAINS                              
031875,000265: 15,2222           05426                           TC       PHASCHNG                              
031876,000266: 15,2223           04024                           OCT      04024                                 
031877,000267: 15,2224           06006                           TC       INTPRET                               
031878,000268: 15,2225           75160                           AXC,1    AXC,2                                 
031879,000269: 15,2226           00306                                    XSMD                                  
031880,000270: 15,2227           01735                                    REFSMMAT                              
031881,000271: 15,2230           77624                           CALL                                           
031882,000272: 15,2231           31044                                    MATMOVE                               
031883,000273: 15,2232           43014                           CLEAR    SET                                   
031884,000274: 15,2233           01273                                    PFRATFLG                              
031885,000275: 15,2234           01462                                    REFSMFLG                              
031886,000276: 15,2235           77234                           RTB      VLOAD                                 
031887,000277: 15,2236           31255                                    SET1/PDT                              
031888,000278: 15,2237           11566                                    ZEROVEC                               
031889,000279: 15,2240           01472                           STORE    GCOMP                                 
031890,000280: 15,2241           52014                           SET      GOTO                                  
031891,000281: 15,2242           01060                                    DRIFTFLG                              
031892,000282: 15,2243           30657                                    R51K                                  
031893,000283: 15,2244           04024        V16N20             VN       1620                                  
031894,000284: 15,2245     5041               ALRM15             EQUALS   OCT15                                 
031895,000285: 16,2000                                           SETLOC   P50S2                                 
031896,000286: 16,2000                                           BANK                                           
031897,000287: 16,2602           01531        V06N89*            VN       0689                                  
031898,000288: 
031899,000289:                                                                                                  #  NAME - P52LS
031900,000290: 
031901,000291:                                                                                                  #  FUNCTION - TO DISPLAY THE LANDING SITE LATITUDE,
031902,000292:                                                                                                  #  LONGTITUDE AND ALTITUDE.  TO ACCEPT NEW DATA VIA
031903,000293:                                                                                                  #  THE KEYBOARD.  TO COMPUTE THE LANDING SITE
031904,000294:                                                                                                  #  ORIENTATION FOR P52 OR P54
031905,000295: 
031906,000296:                                                                                                  #  LET:
031907,000297:                                                                                                  #        RLS  = LANDING SITE VECTOR IN REF COORDINATES
031908,000298:                                                                                                  #        R    = CSM POSITION VECTOR IN REF COORDINATES
031909,000299:                                                                                                  #        V    = CSM VELOCITY VECTOR IN REF COORDINATES
031910,000300:                                                                                                  #  THEN THE LANDING SITE ORIENTATION IS:
031911,000301:                                                                                                  #        XSMD = UNIT(RLS)
031912,000302:                                                                                                  #        YSMD = UNIT(ZSMD*XSMD)
031913,000303:                                                                                                  #        ZSMD = UNIT((R*V)*RLS)
031914,000304: 
031915,000305:                                                                                                  #  CALL -        CALL
031916,000306:                                                                                                  #                        P52LS
031917,000307: 
031918,000308:                                                                                                  #  INPUTS-       DSPTEM1 = TIME OF ALIGNMENT
031919,000309:                                                                                                  #                RLS = LANDING SITE VECTOR IN MOON FIXED COORINATES
031920,000310: 
031921,000311:                                                                                                  #  OUTPUTS-      XSMD, YSMD, ZSMD
031922,000312: 
031923,000313:                                                                                                  #  SUBROUTINES-  RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
031924,000314: 
031925,000315:                                                                                                  #  DEBRIS-       VAC, SEE SUBROUTINES
031926,000316: 
031927,000317: 16,2603           43020        P52LS              STQ      SET                                   
031928,000318: 16,2604           00300                                    QMAJ                                  
031929,000319: 16,2605           01463                                    LUNAFLAG                              
031930,000320: 16,2606           77745                           DLOAD                                          
031931,000321: 16,2607           01046                                    DSPTEM1                               
031932,000322: 16,2610           02607                           STORE    TSIGHT                                
031933,000323: 16,2611           43175                           VLOAD    SET                                   
031934,000324: 16,2612           02026                                    RLS                                   
031935,000325: 16,2613           00462                                    ERADFLAG                              
031936,000326: 16,2614           14001                           STODL    0D                                    
031937,000327: 16,2615           02607                                    TSIGHT                                
031938,000328: 16,2616           34007                           STCALL   6D                                    
031939,000329: 16,2617           55343                                    RP-TO-R                               
031940,000330: 16,2620           77742                           VSR2                                           
031941,000331: 16,2621           16152                           STODL    ALPHAV                                
031942,000332: 16,2622           02607                                    TSIGHT                                
031943,000333: 16,2623           77624                           CALL                                           
031944,000334: 16,2624           26376                                    LAT-LONG                              
031945,000335: 16,2625           77624                           CALL                                           
031946,000336: 16,2626           62365                                    LLASRD                                
031947,000337: 16,2627           77776                           EXIT                                           
031948,000338: 16,2630           32602        LSDISP             CAF      V06N89*                               
031949,000339: 16,2631           04676                           TC       BANKCALL                              
031950,000340: 16,2632           20720                           CADR     GOFLASH                               
031951,000341: 16,2633           04106                           TC       GOTOPOOH                              
031952,000342: 16,2634           02636                           TC       +2                                    
031953,000343: 16,2635           02630                           TC       LSDISP                                
031954,000344: 16,2636           06006                           TC       INTPRET                               
031955,000345: 16,2637           77624                           CALL                                           
031956,000346: 16,2640           62374                                    LLASRDA                               
031957,000347: 16,2641           45145                           DLOAD    CALL                                  
031958,000348: 16,2642           02607                                    TSIGHT                                
031959,000349: 16,2643           26447                                    LALOTORV                              
031960,000350: 16,2644           53575                           VLOAD    UNIT                                  
031961,000351: 16,2645           02152                                    ALPHAV                                
031962,000352: 16,2646           14307                           STODL    XSMD                                  
031963,000353: 16,2647           02607                                    TSIGHT                                
031964,000354: 16,2650           34041                           STCALL   TDEC1                                 
031965,000355: 16,2651           27100                                    CSMPREC                               
031966,000356: 16,2652           47375                           VLOAD    VXV                                   
031967,000357: 16,2653           00001                                    RATT                                  
031968,000358: 16,2654           00007                                    VATT                                  
031969,000359: 16,2655           53435                           VXV      UNIT                                  
031970,000360: 16,2656           00307                                    XSMD                                  
031971,000361: 16,2657           00323                           STORE    ZSMD                                  
031972,000362: 16,2660           53435                           VXV      UNIT                                  
031973,000363: 16,2661           00307                                    XSMD                                  
031974,000364: 16,2662           34315                           STCALL   YSMD                                  
031975,000365: 16,2663           00300                                    QMAJ                                  
031976,000366: 14,2000                                           SETLOC   P50S1                                 
031977,000367: 14,2000                                           BANK                                           
031978,000368: 
031979,000369:                                                                                                  #  NAME-         AUTOMATIC OPTICS POSITIONING ROUTINE
031980,000370: 
031981,000371:                                                                                                  #  FUNCTION-     (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
031982,000372:                                                                                                  #                (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
031983,000373: 
031984,000374:                                                                                                  #  CALLING SEQUENCE- CALL R52
031985,000375: 
031986,000376:                                                                                                  #  INPUT-        1.  TARG1FLG AND TARG2FLG- PRESET BY CALLER
031987,000377:                                                                                                  #                2.  RNDVZFLG AND TRACKFLG- PRESET BY CALLER
031988,000378:                                                                                                  #                3.  STAR CODE- PRESET BY CALLER. ALSO INPUT THROUGH DSKY
031989,000379:                                                                                                  #                4.  LAT, LONG AND ALT OF LANDMARK- INPUT THROUGH DSKY
031990,000380:                                                                                                  #                5.  NO. OF MARKS (MARKINDX)- PRESET BY CALLER
031991,000381: 
031992,000382:                                                                                                  #  OUTPUT-       DRIVE SHAFT AND TRUNNION CDUS
031993,000383: 
031994,000384:                                                                                                  #  SUBROUTINES-  1.  FIXDELAY            7.  CLEANDSP
031995,000385:                                                                                                  #                2.  GOPERF1             8.  GODSPR
031996,000386:                                                                                                  #                3.  GOFLASH             9.  REFLASHR
031997,000387:                                                                                                  #                4.  R53                 10. R52.2
031998,000388:                                                                                                  #                5.  ALARM               11. R52.3
031999,000389:                                                                                                  #                6.  SR52.1
032000,000390: 
032001,000391: 14,2011                                           COUNT    15/R52                                
032002,000392: 
032003,000393: 14,2011           43020        R52                STQ      CLEAR                                 
032004,000394: 14,2012           02576                                    SAVQR52                               
032005,000395: 14,2013           04265                                    ADVTRK                                
032006,000396: 14,2014           77776        R52VRB             EXIT                                           
032007,000397: 14,2015           00006                           EXTEND                                         
032008,000398: 14,2016           30036                           DCA      CDUT                                  
032009,000399: 14,2017           53161                           DXCH     DESOPTT                               
032010,000400: 14,2020           06006                           TC       INTPRET                               
032011,000401: 14,2021           43131                           SSP      CLEAR                                 
032012,000402: 14,2022           01304                                    OPTIND                                
032013,000403: 14,2023           00000                                    0                                     
032014,000404: 14,2024           00271                                    R53FLAG                               
032015,000405: 14,2025           77776                           EXIT                                           
032016,000406: 14,2026           06006        R52A               TC       INTPRET                               
032017,000407: 14,2027           43014                           SET      BON                                   
032018,000408: 14,2030           00073                                    TRUNFLAG                              
032019,000409: 14,2031           00705                                    TARG1FLG                              
032020,000410: 14,2032           30112                                    R52H                                  
032021,000411: 14,2033           77414                           CLEAR    EXIT                                  
032022,000412: 14,2034           03660                                    TERMIFLG                              
032023,000413: 14,2035           31314        R52C               CA       SWSAMPLE                              #  IS OPTICS MODE IN AGC
032024,000414: 14,2036           00006                           EXTEND                                         
032025,000415: 14,2037           62142                           BZMF     R52M                                  #  MANUAL
032026,000416: 14,2040           04676        R52D               TC       BANKCALL                              #  AGC
032027,000417: 14,2041           26252                           CADR     SR52.1                                
032028,000418: 14,2042           12172                           TCF      R52L                                  #  GR 90 DEGREES
032029,000419: 14,2043           12137                           TCF      R52J                                  #  GR 50 DEGREES
032030,000420: 14,2044           05562                           TC       UPFLAG                                #  LS 50 DEGREES
032031,000421: 14,2045           00013                           ADRES    TRUNFLAG                              #  SET TRUNFLAG BIT 4 FLAG 0
032032,000422: 14,2046           35022        R52JA              CAF      BIT10                                 #  IS THIS A LEM
032033,000423: 14,2047           70075                           MASK     STATE      +1                         
032034,000424: 14,2050           10000                           CCS      A                                     
032035,000425: 14,2051           02061                           TC       R52E                                  #  YES
032036,000426: 14,2052           35026                           CAF      BIT6                                  #  NO, IS R53FLAG SET
032037,000427: 14,2053           70074                           MASK     STATE                                 
032038,000428: 14,2054           10000                           CCS      A                                     
032039,000429: 14,2055           12061                           TCF      R52E                                  #  YES
032040,000430: 14,2056           32162                           CAF      V06N92                                #  NO
032041,000431: 14,2057           04676                           TC       BANKCALL                              
032042,000432: 14,2060           20676                           CADR     GODSPR                                

Reconstruction: In Comanche 67 and earlier, the line "TC R52EA" below was instead "TC +3", and the label DOSHAFT had not yet been added. These changes were made as part of PCR-963, "R52 - Delete 407 alarm and drive trunnion to 50 degrees".

032047,000437: 14,2061           31314        R52E               CA       SWSAMPLE                              #  IS OSS IN CMC MODE
032048,000438: 14,2062           00006                           EXTEND                                         
032049,000439: 14,2063           62074                           BZMF     R52F                                  #  NO
032050,000440: 14,2064           40074                           CS       STATE                                 #  YES- IS TRUNFLAG SET
032051,000441: 14,2065           75030                           MASK     BIT4                                  
032052,000442: 14,2066           10000                           CCS      A                                     
032053,000443: 14,2067           02133                           TC       R52EA                                 #  NO
032054,000444: 14,2070           31775                           CA       PAC                                   #  YES
032055,000445: 14,2071           55160                           TS       DESOPTT                               
032056,000446: 14,2072           31773        DOSHAFT            CA       SAC                                   
032057,000447: 14,2073           55161                           TS       DESOPTS                               
032058,000448: 14,2074           35052        R52F               CAF      .5SEC                                 #  WAIT 1/2 SEC
032059,000449: 14,2075           04676                           TC       BANKCALL                              
032060,000450: 14,2076           01732                           CADR     DELAYJOB                              
032061,000451: 14,2077           35022                           CAF      BIT10                                 
032062,000452: 14,2100           70075                           MASK     STATE      +1                         
032063,000453: 14,2101           10000                           CCS      A                                     
032064,000454: 14,2102           12113                           TCF      R52HA                                 #  YES, LEM
032065,000455: 14,2103           35015                           CAF      BIT15                                 #  NO
032066,000456: 14,2104           70103                           MASK     STATE      +7                         #  IS TERMIFLG SET
032067,000457: 14,2105           00006                           EXTEND                                         
032068,000458: 14,2106           12035                           BZF      R52C                                  #  NO
032069,000459: 14,2107           06006        R52Q               TC       INTPRET                               #  YES
032070,000460: 14,2110           77650                           GOTO                                           
032071,000461: 14,2111           02576                                    SAVQR52                               
032072,000462: 14,2112           77776        R52H               EXIT                                           #  LEM
032073,000463: 14,2113           04676        R52HA              TC       BANKCALL                              
032074,000464: 14,2114           76570                           CADR     R61CSM                                
032075,000465: 14,2115           30075                           CA       STATE      +1                         
032076,000466: 14,2116           75027                           MASK     BIT5                                  
032077,000467: 14,2117           00006                           EXTEND                                         #  TRACKFLG
032078,000468: 14,2120           12107                           BZF      R52Q                                  
032079,000469: 
032080,000470: 14,2121           40075                           CS       STATE      +1                         
032081,000471: 14,2122           75025                           MASK     BIT7                                  #  UPDATFLG
032082,000472: 14,2123           10000                           CCS      A                                     
032083,000473: 14,2124           12131                           TCF      R52SYNC                               
032084,000474: 
032085,000475: 14,2125           30101        R52I               CA       STATE      +5                         
032086,000476: 14,2126           75022                           MASK     BIT10                                 
032087,000477: 14,2127           10000                           CCS      A                                     
032088,000478: 14,2130           02040                           TC       R52D                                  #  PRFTRKAT = 1
032089,000479: 14,2131           32206        R52SYNC            CAF      1.8SEC                                #  MAKE UP FOR LOST TIME
032090,000480: 14,2132           12075                           TCF      R52F       +1                         
032091,000481: 

Reconstruction: R52EA and TRUNLIM below were added to Comanche 72 as part of PCR-963, "R52 - Delete 407 alarm and drive trunnion to 50 degrees". The value of TRUNLIM chosen here matches what is used in Artemis 72 (the upper half of 38TRDEG), but it is also possible that the value could have been one bit different (25253). This ambiguity in the true value of the constant opens up possibility for error in the placement of this code, while still achieving correct checksums.

032099,000489: 14,2133           32136        R52EA              CAF      TRUNLIM                               
032100,000490: 14,2134           55160                           TS       DESOPTT                               
032101,000491: 14,2135           02072                           TC       DOSHAFT                               
032102,000492: 14,2136           25252        TRUNLIM            OCT      25252                                 #  CORESPONDS TO 50 DEGS IN TRUNION
032103,000493: 
032104,000494: 14,2137           05574        R52J               TC       DOWNFLAG                              #  CLEAR TRUNFLAG
032105,000495: 14,2140           00013                           ADRES    TRUNFLAG                              #  BIT 4 FLAG 0

Reconstruction: Comanche 67 and earlier generate program alarm 407 here. This call was removed as part of PCR-963, "R52 - Delete 407 alarm and drive trunnion to 50 degrees".

032109,000499: 14,2141           02046                           TC       R52JA                                 
032110,000500: 14,2142           35026        R52M               CAF      BIT6                                  #  IS R53FLAG SET
032111,000501: 14,2143           70074                           MASK     STATE                                 
032112,000502: 14,2144           10000                           CCS      A                                     
032113,000503: 14,2145           02074                           TC       R52F                                  #  YES
032114,000504: 14,2146           00004                           INHINT                                         #  NO
032115,000505: 14,2147           37661                           CAF      PRIO24                                
032116,000506: 14,2150           05163                           TC       FINDVAC                               
032117,000507: 14,2151  E5,1773                                  EBANK=   SAC                                   
032118,000508: 14,2151           02155 30065                     2CADR    R53JOB                                
032119,000509: 
032120,000510: 14,2153           00003                           RELINT                                         
032121,000511: 14,2154           12074                           TCF      R52F                                  
032122,000512: 14,2155           06006        R53JOB             TC       INTPRET                               
032123,000513: 14,2156           77624                           CALL                                           
032124,000514: 14,2157           31304                                    R53                                   
032125,000515: 14,2160           77776        ENDPLAC            EXIT                                           #  INTERPRETER RETURN TO ENDOFJOB (R22 USES)
032126,000516: 14,2161           05233                           TC       ENDOFJOB                              
032127,000517: 14,2162           01534        V06N92             VN       00692                                 
032128,000518: 14,2163           01531        V06N89A            VN       0689                                  
032129,000519: 14,2164           10464 12470  SHAXIS             2DEC     .5376381241 B-1                        
032130,000520: 
032131,000521: 14,2166           00000 00000                     2DEC     0          B-28                       
032132,000522: 
032133,000523: 14,2170           15373 11554                     2DEC     .8431766920 B-1                        
032134,000524: 
032135,000525: 14,2172           35022        R52L               CAF      BIT10                                 #  IS THIS A LEM
032136,000526: 14,2173           70075                           MASK     STATE      +1                         
032137,000527: 14,2174           10000                           CCS      A                                     
032138,000528: 14,2175           02137                           TC       R52J                                  #  YES
032139,000529: 14,2176           32205                           CAF      OCT404                                
032140,000530: 14,2177           04676                           TC       BANKCALL                              
032141,000531: 14,2200           21766                           CADR     PRIOLARM                              
032142,000532: 14,2201           12207                           TCF      TERM52                                #  TERMINATE
032143,000533: 14,2202           12074                           TCF      R52F                                  #  PROCEED
032144,000534: 14,2203           12074                           TCF      R52F                                  #  NO PROVISION FOR NEW DATA
032145,000535: 14,2204           15233                           TCF      ENDOFJOB                              
032146,000536: 
032147,000537: 14,2205           00404        OCT404             OCT      404                                   
032148,000538: 14,2206           00264        1.8SEC             DEC      180        B-14                       
032149,000539: 
032150,000540: 14,2207           05552        TERM52             TC       CLEARMRK                              
032151,000541: 
032152,000542: 14,2210           04676                           TC       BANKCALL                              #  KILL MARK SYSTEM
032153,000543: 14,2211           16063                           CADR     MKRELEAS                              
032154,000544: 
032155,000545: 
032156,000546: 14,2212           35035                           CAF      ZERO                                  
032157,000547: 14,2213           55323                           TS       OPTCADR                               
032158,000548: 
032159,000549: 14,2214           04676                           TC       BANKCALL                              #  CLEAR OUT EXTENDED VERBS
032160,000550: 14,2215           20560                           CADR     KLEENEX                               
032161,000551: 
032162,000552: 14,2216           04106                           TC       GOTOPOOH                              #  NOW GO TO POO
032163,000553: 
032164,000554: 14,2217           43020        ADVORB             STQ      SET                                   #  SETS UP ADVANCED ORBIT TRACKING
032165,000555: 14,2220           02576                                    SAVQR52                               
032166,000556: 14,2221           04065                                    ADVTRK                                
032167,000557: 14,2222           43014                           SET      SET                                   
032168,000558: 14,2223           01463                                    LUNAFLAG                              
032169,000559: 14,2224           00462                                    ERADFLAG                              
032170,000560: 14,2225           77650                           GOTO                                           
032171,000561: 14,2226           30014                                    R52VRB                                
032172,000562: 
032173,000563:                                                                                                  #  NAME - S50 ALIAS LOCSAM
032174,000564:                                                                                                  #  NAME- LOCSAM
032175,000565: 
032176,000566:                                                                                                  #  FUNCTION - TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
032177,000567:                                                                                                  #              IMU ALIGNMENT PROGRAMS
032178,000568: 
032179,000569:                                                                                                  #        DEFINE:
032180,000570: 
032181,000571:                                                                                                  #        RATT = POSITION VECTOR OF CM WRT PRIMARY BODY
032182,000572: 
032183,000573:                                                                                                  #        VATT = VELOCITY VECTOR OF CM WRT PRIMARY BODY
032184,000574: 
032185,000575:                                                                                                  #        RE = RADIUS OF EARTH
032186,000576: 
032187,000577:                                                                                                  #        RM = RADIUS OF MOON
032188,000578: 
032189,000579:                                                                                                  #        ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
032190,000580:                                                                                                  #                  WRT TO SUN OVER THE VELOCITY OF LIGHT
032191,000581: 
032192,000582:                                                                                                  #        REM = POSITION OF MOON WRT EARTH
032193,000583: 
032194,000584:                                                                                                  #        RES = POSITION OF SUN WRT EARTH
032195,000585: 
032196,000586:                                                                                                  #        C = VELOCITY OF LIGHT
032197,000587: 
032198,000588:                                                                                                  #                EARTH IS PRIMARY                        MOON IS PRIMARY
032199,000589:                                                                                                  #                        -                                       -
032200,000590:                                                                                                  #                VEARTH=-1(RATT)                         VEARTH=-1(REM+RATT)
032201,000591:                                                                                                  #                        -                                       -
032202,000592:                                                                                                  #                VMOON = 1(REM-RATT)                     VMOON =-1(RATT)
032203,000593:                                                                                                  #                        -                                       -
032204,000594:                                                                                                  #                VSUN  = 1(RES)                          VSUN  = 1(RES-REM)
032205,000595:                                                                                                  #                              -1
032206,000596:                                                                                                  #                CEARTH=COS(SIN  (RE/RATT)+5)            CEARTH=COS 5
032207,000597:                                                                                                  #                                                                      -1
032208,000598:                                                                                                  #                CMOON =COS 5                            CMOON =COS(SIN  CRM/RATT)+5)
032209,000599: 
032210,000600:                                                                                                  #                CSUN  =COS 15                           CSUN  =COS 15
032211,000601: 
032212,000602:                                                                                                  #                            VEL/C = VSUN X ECLIPOL + VATT/C
032213,000603: 
032214,000604:                                                                                                  #  CALL  -       DLOAD   CALL
032215,000605:                                                                                                  #                        DESIRED TIME
032216,000606:                                                                                                  #                        LOCSAM
032217,000607: 
032218,000608:                                                                                                  #  INPUTS -      MPAC = TIME
032219,000609: 
032220,000610:                                                                                                  #  OUTPUTS-      VEARTH, VMOON, VSUN, CEARTH, CMOON, CSUN, VEL/C
032221,000611: 
032222,000612:                                                                                                  #  SUBROUTINES-  LSPOS, CSMCONIC
032223,000613: 
032224,000614:                                                                                                  #  DEBRIS  -     VAC AREA, SEE SUBROUTINES
032225,000615: 
032226,000616: 14,2000                                           SETLOC   P50S1                                 
032227,000617: 14,2000                                           BANK                                           
032228,000618: 
032229,000619: 14,2227                                           COUNT*   $$/S50                                
032230,000620: 
032231,000621: 14,2227  14,2227               LOCSAM             =        S50                                   
032232,000622: 14,2227           77620        S50                STQ                                            
032233,000623: 14,2230           00300                                    QMAJ                                  
032234,000624: 14,2231           36607                           STCALL   TSIGHT                                
032235,000625: 14,2232           54110                                    LSPOS                                 
032236,000626: 14,2233           26752                           STOVL    VMOON                                 
032237,000627: 14,2234           00003                                    2D                                    
032238,000628: 14,2235           16744                           STODL    VSUN                                  
032239,000629: 14,2236           02607                                    TSIGHT                                
032240,000630: 14,2237           34041                           STCALL   TDEC1                                 
032241,000631: 14,2240           27123                                    CSMCONIC                              
032242,000632: 14,2241           61131                           SSP      TIX,2                                 
032243,000633: 14,2242           00052                                    S2                                    
032244,000634: 14,2243           00000                                    0                                     
032245,000635: 14,2244           30267                                    MOONCNTR                              
032246,000636: 14,2245           52375        EARTCNTR           VLOAD    VSU                                   
032247,000637: 14,2246           02752                                    VMOON                                 
032248,000638: 14,2247           00001                                    RATT                                  
032249,000639: 14,2250           77656                           UNIT                                           
032250,000640: 14,2251           26752                           STOVL    VMOON                                 
032251,000641: 14,2252           00001                                    RATT                                  
032252,000642: 14,2253           57456                           UNIT     VCOMP                                 
032253,000643: 14,2254           16736                           STODL    VEARTH                                
032254,000644: 14,2255           32250                                    RSUBE                                 
032255,000645: 14,2256           77624                           CALL                                           
032256,000646: 14,2257           30327                                    OCCOS                                 
032257,000647: 14,2260           14017                           STODL    CEARTH                                
032258,000648: 14,2261           32266                                    CSS5                                  
032259,000649: 14,2262           24023                           STOVL    CMOON                                 
032260,000650: 14,2263           02744                                    VSUN                                  
032261,000651: 14,2264           77656                           UNIT                                           
032262,000652: 14,2265           36744                           STCALL   VSUN                                  
032263,000653: 14,2266           30314                                    ENDSAM                                
032264,000654: 14,2267           40575        MOONCNTR           VLOAD    VSR8                                  
032265,000655: 14,2270           02752                                    VMOON                                 
032266,000656: 14,2271           51362                           VSR1     BVSU                                  
032267,000657: 14,2272           02744                                    VSUN                                  
032268,000658: 14,2273           77656                           UNIT                                           
032269,000659: 14,2274           26744                           STOVL    VSUN                                  
032270,000660: 14,2275           02752                                    VMOON                                 
032271,000661: 14,2276           53455                           VAD      UNIT                                  
032272,000662: 14,2277           00001                                    RATT                                  
032273,000663: 14,2300           77676                           VCOMP                                          
032274,000664: 14,2301           26736                           STOVL    VEARTH                                
032275,000665: 
032276,000666: 14,2302           00001                                    RATT                                  
032277,000667: 14,2303           57456                           UNIT     VCOMP                                 
032278,000668: 14,2304           16752                           STODL    VMOON                                 
032279,000669: 14,2305           32246                                    RSUBM                                 
032280,000670: 14,2306           77624                           CALL                                           
032281,000671: 14,2307           30327                                    OCCOS                                 
032282,000672: 14,2310           14023                           STODL    CMOON                                 
032283,000673: 14,2311           32266                                    CSS5                                  
032284,000674: 14,2312           24017                           STOVL    CEARTH                                
032285,000675: 14,2313           02744                                    VSUN                                  
032286,000676: 14,2314           77635        ENDSAM             VXV                                            
032287,000677: 14,2315           32256                                    ECLIPOL                               
032288,000678: 14,2316           27474                           STOVL    VEL/C                                 
032289,000679: 14,2317           00007                                    VATT                                  
032290,000680: 14,2320           53361                           VXSC     VAD                                   
032291,000681: 14,2321           32254                                    1/C                                   
032292,000682: 14,2322           03474                                    VEL/C                                 
032293,000683: 14,2323           17474                           STODL    VEL/C                                 
032294,000684: 14,2324           32270                                    CSSUN                                 
032295,000685: 14,2325           34021                           STCALL   CSUN                                  
032296,000686: 14,2326           00300                                    QMAJ                                  
032297,000687: 14,2327           70471        OCCOS              DDV      SR1                                   
032298,000688: 14,2330           00045                                    36D                                   
032299,000689: 14,2331           43336                           ASIN     DAD                                   
032300,000690: 14,2332           32252                                    5DEGREES                              
032301,000691: 14,2333           70546                           COS      SR1                                   
032302,000692: 14,2334           77616                           RVQ                                            
032303,000693: 15,2000                                           SETLOC   P50S                                  
032304,000694: 15,2000                                           BANK                                           
032305,000695: 15,2245           00065 01265  RSUBM              2DEC     1738090    B-29                       #  MOON RADIUS IN METERS
032306,000696: 
032307,000697: 15,2247           00302 24533  RSUBE              2DEC     6378166    B-29                       
032308,000698: 
032309,000699: 15,2251           00343 21616  5DEGREES           2DEC     .013888889                            #  SCALED IN REVS
032310,000700: 
032311,000701: 15,2253           00000 13143  1/C                2DEC     .000042699 B-1                        #  *
032312,000702: 
032313,000703: 15,2255           00000 00000  ECLIPOL            2DEC     0          B-28                       #  *
032314,000704: 
032315,000705: 15,2257           77777 53231                     2DEC     -.00007896 B-1                        #  *
032316,000706: 
032317,000707: 15,2261           00001 17570                     2DEC     .00018209  B-1                        #  *             * FOR USE BY CSM ONLY
032318,000708: 
032319,000709: 15,2263           00001 16700  TSIGHT1            2DEC     24000      B-28                       
032320,000710: 
032321,000711: 15,2265                        CEARTH             =        14D                                   
032322,000712: 15,2265                        CSUN               =        16D                                   
032323,000713: 15,2265                        CMOON              =        18D                                   
032324,000714: 15,2265           07760 14473  CSS5               2DEC     .2490475                              #  (COS 5)/4
032325,000715: 15,2267           07564 15042  CSSUN              2DEC     .24148                                #  COS 15  /4
032326,000716: 
032327,000717:                                                                                                  #  PROGRAM NAME - PICAPAR        DATE DEC 20 66
032328,000718:                                                                                                  #  MOD 1                         LOG SECTION P51-P53
032329,000719:                                                                                                  #                                ASSEMBLY  SUNDISK  REV40
032330,000720:                                                                                                  #  BY KEN VINCENT
032331,000721: 
032332,000722:                                                                                                  #  FUNCTION
032333,000723:                                                                                                  #        THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
032334,000724:                                                                                                  #        WITH RESPECT TO INERTIAL SPACE.  IT THEN COMPUTES THE SHAFT AXIS (SAX)
032335,000725:                                                                                                  #        WITH RESPECT TO REFERENCE INERTIAL.  EACH STAR IN THE CATALOG IS TESTED
032336,000726:                                                                                                  #        TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH, SUN OR MOON.  IF A
032337,000727:                                                                                                  #        STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STAR OF LOWER INDEX.
032338,000728:                                                                                                  #        THE PAIRED STAR IS TESTED FOR OCCULTATION.  PAIRS OF STARS THAT PASS
032339,000729:                                                                                                  #        THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION.  A PAIR OF STARS
032340,000730:                                                                                                  #        HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 66 DEGREES
032341,000731:                                                                                                  #        AND MORE THAN 40 DEGREES.  THOSE PAIRS OF STARS WITH GOOD SEPARATION
032342,000732:                                                                                                  #        ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW.  (WITHIN
032343,000733:                                                                                                  #        33 DEGREES OF SAX).  THE PAIR WITH MAXIMUM SEPARATION IS CHOSEN FROM
032344,000734:                                                                                                  #        THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
032345,000735: 
032346,000736:                                                                                                  #  CALLING SEQUENCE
032347,000737:                                                                                                  #        L       TC      BANKCALL
032348,000738:                                                                                                  #        L+1     CADR    PICAPAR
032349,000739:                                                                                                  #        L+2     ERROR RETURN - NO STARS IN FIELD OF VIEW
032350,000740:                                                                                                  #        L+3     NORMAL RETURN
032351,000741: 
032352,000742:                                                                                                  #  OUTPUT
032353,000743:                                                                                                  #        BESTI, BESTJ - SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
032354,000744:                                                                                                  #        VFLAG - FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW
032355,000745: 
032356,000746:                                                                                                  #  INITIALIZATION
032357,000747:                                                                                                  #        1)      A CALL TO LOCSAM MUST BE MADE
032358,000748:                                                                                                  #        2)      VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TOO APPROXIMATE TIME OF
032359,000749:                                                                                                  #                SIGHTINGS.
032360,000750: 
032361,000751:                                                                                                  #  DEBRIS
032362,000752:                                                                                                  #        WORK AREA
032363,000753:                                                                                                  #        X,Y,ZNB
032364,000754:                                                                                                  #        SINCDU, COSCDU
032365,000755:                                                                                                  #        STARAD - STAR +5
032366,000756: 
032367,000757: 15,2271                                           COUNT    14/PICAP                              
032368,000758: 
032369,000759: 14,2000                                           SETLOC   P50S1                                 
032370,000760: 14,2000                                           BANK                                           
032371,000761: 14,2335           04725        PICAPAR            TC       MAKECADR                              
032372,000762: 14,2336           55777                           TS       QMIN                                  
032373,000763: 14,2337           06006                           TC       INTPRET                               
032374,000764: 14,2340           77624                           CALL                                           
032375,000765: 14,2341           47501                                    CDUTRIG                               
032376,000766: 14,2342           77624                           CALL                                           
032377,000767: 14,2343           34664                                    CALCSMSC                              
032378,000768: 14,2344           77601                           SETPD                                          
032379,000769: 14,2345           00001                                    0                                     
032380,000770: 14,2346           71214                           SET      DLOAD                                 #  VFLAG = 1
032381,000771: 14,2347           01465                                    VFLAG                                 
032382,000772: 14,2350           11566                                    DPZERO                                
032383,000773: 14,2351           24303                           STOVL    BESTI                                 
032384,000774: 14,2352           02714                                    XNB                                   
032385,000775: 14,2353           63361                           VXSC     PDVL                                  
032386,000776: 14,2354           30513                                    SIN33                                 
032387,000777: 14,2355           02730                                    ZNB                                   
032388,000778: 14,2356           74370                           AXT,1    VXSC                                  
032389,000779: 14,2357           00344                                    228D                                  #  X1 = 37 X 6 + 6
032390,000780: 14,2360           30515                                    COS33                                 
032391,000781: 14,2361           77655                           VAD                                            
032392,000782: 14,2362           53505                           VXM      UNIT                                  
032393,000783: 14,2363           01736                                    REFSMMAT                              
032394,000784: 14,2364           02760                           STORE    SAX                                   #  SAX = SHAFT AXIS
032395,000785: 14,2365           66331                           SSP      SSP                                   #  S1 = S2 = 6
032396,000786: 14,2366           00051                                    S1                                    
032397,000787: 14,2367           00006                                    6                                     
032398,000788: 14,2370           00052                                    S2                                    
032399,000789: 14,2371           00006                                    6                                     
032400,000790: 14,2372           52100        PIC1               TIX,1    GOTO                                  #  MAJOR STAR
032401,000791: 14,2373           30375                                    PIC2                                  
032402,000792: 14,2374           30524                                    PICEND                                
032403,000793: 14,2375           45173        PIC2               VLOAD*   CALL                                  
032404,000794: 14,2376           31765                                    CATLOG,1                              
032405,000795: 14,2377           30470                                    OCCULT                                
032406,000796: 14,2400           73014                           BON      LXA,2                                 
032407,000797: 14,2401           01710                                    CULTFLAG                              
032408,000798: 14,2402           30372                                    PIC1                                  
032409,000799: 14,2403           00046                                    X1                                    
032410,000800: 14,2404           52104        PIC3               TIX,2    GOTO                                  
032411,000801: 14,2405           30407                                    PIC4                                  
032412,000802: 14,2406           30372                                    PIC1                                  
032413,000803: 14,2407           45173        PIC4               VLOAD*   CALL                                  
032414,000804: 14,2410           46012                                    CATLOG,2                              
032415,000805: 14,2411           30470                                    OCCULT                                
032416,000806: 14,2412           76614                           BON      VLOAD*                                
032417,000807: 14,2413           01710                                    CULTFLAG                              
032418,000808: 14,2414           30404                                    PIC3                                  
032419,000809: 14,2415           31765                                    CATLOG,1                              
032420,000810: 14,2416           45237                           DOT*     DSU                                   
032421,000811: 14,2417           46012                                    CATLOG,2                              
032422,000812: 14,2420           30517                                    CSS66                                 #  SEPERATION LESS THAN 66 DEG.
032423,000813: 14,2421           43240                           BMN      DAD                                   
032424,000814: 14,2422           30404                                    PIC3                                  
032425,000815: 14,2423           30521                                    CSS6640                               #  SEPERATION MORE THAN 40 DEG.
032426,000816: 14,2424           77644                           BPL                                            
032427,000817: 14,2425           30404                                    PIC3                                  
032428,000818: 14,2426           50373                           VLOAD*   DOT                                   
032429,000819: 14,2427           31765                                    CATLOG,1                              
032430,000820: 14,2430           02760                                    SAX                                   
032431,000821: 14,2431           50025                           DSU      BMN                                   #  MAJOR STAR IN CONE
032432,000822: 14,2432           30523                                    CSS33                                 
032433,000823: 14,2433           30372                                    PIC1                                  
032434,000824: 14,2434           50373                           VLOAD*   DOT                                   
032435,000825: 14,2435           46012                                    CATLOG,2                              
032436,000826: 14,2436           02760                                    SAX                                   
032437,000827: 14,2437           51025                           DSU      BPL                                   
032438,000828: 14,2440           30523                                    CSS33                                 
032439,000829: 14,2441           30444                                    STRATGY                               
032440,000830: 14,2442           77650                           GOTO                                           
032441,000831: 14,2443           30404                                    PIC3                                  
032442,000832: 14,2444           77614        STRATGY            BONCLR                                         
032443,000833: 14,2445           01605                                    VFLAG                                 
032444,000834: 14,2446           30463                                    NEWPAR                                
032445,000835: 14,2447           65120                           XCHX,1   XCHX,2                                
032446,000836: 14,2450           00302                                    BESTI                                 
032447,000837: 14,2451           00303                                    BESTJ                                 
032448,000838: 14,2452           47773        STRAT              VLOAD*   DOT*                                  
032449,000839: 14,2453           31765                                    CATLOG,1                              
032450,000840: 14,2454           46012                                    CATLOG,2                              
032451,000841: 14,2455           43006                           PUSH     BOFINV                                
032452,000842: 14,2456           01545                                    VFLAG                                 
032453,000843: 14,2457           30447                                    STRAT      -3                         
032454,000844: 14,2460           45345                           DLOAD    DSU                                   
032455,000845: 14,2461           77644                           BPL                                            
032456,000846: 14,2462           30404                                    PIC3                                  
032457,000847: 14,2463           67130        NEWPAR             SXA,1    SXA,2                                 
032458,000848: 14,2464           00302                                    BESTI                                 
032459,000849: 14,2465           00303                                    BESTJ                                 
032460,000850: 14,2466           77650                           GOTO                                           
032461,000851: 14,2467           30404                                    PIC3                                  
032462,000852: 14,2470           51321        OCCULT             MXV      BVSU                                  
032463,000853: 14,2471           02736                                    CULTRIX                               
032464,000854: 14,2472           00017                                    CSS                                   
032465,000855: 14,2473           77654                           BZE                                            
032466,000856: 14,2474           30507                                    CULTED                                
032467,000857: 14,2475           75240                           BMN      SIGN                                  
032468,000858: 14,2476           30507                                    CULTED                                
032469,000859: 14,2477           00160                                    MPAC       +3                         
032470,000860: 14,2500           75240                           BMN      SIGN                                  
032471,000861: 14,2501           30507                                    CULTED                                
032472,000862: 14,2502           00162                                    MPAC       +5                         
032473,000863: 14,2503           43040                           BMN      CLRGO                                 
032474,000864: 14,2504           30507                                    CULTED                                
032475,000865: 14,2505           01630                                    CULTFLAG                              
032476,000866: 14,2506           00052                                    QPRET                                 
032477,000867: 14,2507           77614        CULTED             SETGO                                          
032478,000868: 14,2510           01430                                    CULTFLAG                              
032479,000869: 14,2511           00052                                    QPRET                                 
032480,000870: 14,2512  0000016               CSS                =        CEARTH                                
032481,000871: 14,2512           21150 25157  SIN33              2DEC     .5376381241                            
032482,000872: 
032483,000873: 14,2514           32766 22713  COS33              2DEC     .8431756920                            
032484,000874: 
032485,000875: 14,2516           01736 35137  CSS66              2DEC     .060480472                            #  (COS76)/4
032486,000876: 
032487,000877: 14,2520           73003 65403  CSS6640            2DEC     -.15602587                            #  (COS76 - COS30)/4
032488,000878: 
032489,000879: 14,2522           06233 26112  CSS33              2DEC     .197002688                            #  COS(1/2(76))/4
032490,000880: 
032491,000881: 14,2524           77414        PICEND             BOFF     EXIT                                  
032492,000882: 14,2525           01745                                    VFLAG                                 
032493,000883: 14,2526           30530                                    PICGXT                                
032494,000884: 14,2527           02532                           TC       PICBXT                                
032495,000885: 14,2530           77776        PICGXT             EXIT                                           
032496,000886: 14,2531           25777                           INCR     QMIN                                  
032497,000887: 14,2532           31777        PICBXT             CA       QMIN                                  
032498,000888: 14,2533           04702                           TC       SWCALL                                
032499,000889:                                                                                                  # V1             =       12D
032500,000890: 
032501,000891:                                                                                                  #  NAME - R51    FINE ALIGN
032502,000892:                                                                                                  #  FUNCTION - TO ALIGN THE STABLE MEMBER TO REFSMMAT
032503,000893:                                                                                                  #  CALLING SEQ - CALL R51
032504,000894:                                                                                                  #  INPUT - BESTI, BESTJ (PAIR OF STAR NO)
032505,000895:                                                                                                  #  OUTPUT - GYRO TORQUE PULSES
032506,000896:                                                                                                  #  SUBROUTINES - R52, R54, R55 (SXTNB, NBSM, AXISGEN
032507,000897: 
032508,000898: 14,2534                                           COUNT    14/R51                                
032509,000899: 
032510,000900: 14,2534           77776        R51                EXIT                                           
032511,000901: 14,2535           35033                           CAF      BIT1                                  
032512,000902: 14,2536           54304                           TS       STARIND                               
032513,000903: 14,2537           54301                           TS       MARKINDX                              
032514,000904: 14,2540           06006        R51.2              TC       INTPRET                               
032515,000905: 14,2541           43014        R51.3              CLEAR    CLEAR                                 
032516,000906: 14,2542           00666                                    TARG2FLG                              
032517,000907: 14,2543           00665                                    TARG1FLG                              
032518,000908: 14,2544           77776                           EXIT                                           
032519,000909: 14,2545           05426                           TC       PHASCHNG                              
032520,000910: 14,2546           05024                           OCT      05024                                 #  RESTART GR 4 FOR R52-R53
032521,000911: 14,2547           13000                           OCT      13000                                 
032522,000912: 14,2550           50304                           INDEX    STARIND                               
032523,000913: 14,2551           30302                           CA       BESTI                                 
032524,000914: 14,2552           00006                           EXTEND                                         
032525,000915: 14,2553           72715                           MP       1/6TH                                 
032526,000916: 14,2554           54735                           TS       STARCODE                              
032527,000917: 14,2555           32714        R51DSP             CAF      V01N70                                
032528,000918: 14,2556           04676                           TC       BANKCALL                              
032529,000919: 14,2557           21057                           CADR     GOFLASHR                              
032530,000920: 14,2560           04106                           TC       GOTOPOOH                              
032531,000921: 14,2561           02566                           TC       +5                                    
032532,000922: 14,2562           02555                           TC       -5                                    
032533,000923: 14,2563           36211                           CAF      SIX                                   
032534,000924: 14,2564           05542                           TC       BLANKET                               
032535,000925: 14,2565           15233                           TCF      ENDOFJOB                              
032536,000926: 14,2566           03372                           TC       CHKSCODE                              
032537,000927: 14,2567           04400                           TC       FALTON                                
032538,000928: 14,2570           02555                           TC       R51DSP                                
032539,000929: 14,2571           06006                           TC       INTPRET                               
032540,000930: 14,2572           45034                           RTB      CALL                                  
032541,000931: 14,2573           45510                                    LOADTIME                              
032542,000932: 14,2574           32340                                    PLANET                                
032543,000933: 14,2575           72131                           SSP      LXA,1                                 
032544,000934: 14,2576           00051                                    S1                                    
032545,000935: 14,2577           00000                                    0                                     
032546,000936: 14,2600           00304                                    STARIND                               
032547,000937: 14,2601           77700                           TIX,1                                          
032548,000938: 14,2602           30605                                    R51ST                                 
032549,000939: 14,2603           36617                           STCALL   STARSAV2                              #  2ND STAR
032550,000940: 14,2604           30606                                    R51ST      +1                         
032551,000941: 14,2605           02611        R51ST              STORE    STARSAV1                              #  1ST STAR
032552,000942: 14,2606           77776                           EXIT                                           
032553,000943: 14,2607           41011                           CS       MODREG                                #  IS THIS P54
032554,000944: 14,2610           62713                           AD       OCT66                                 
032555,000945: 14,2611           00006                           EXTEND                                         
032556,000946: 14,2612           12706                           BZF      R51B                                  #  YES
032557,000947: 14,2613           06006                           TC       INTPRET                               
032558,000948: 14,2614           77624                           CALL                                           
032559,000949: 14,2615           30011                                    R52                                   #  AOP WILL MAKE CALLS TO SIGHTING
032560,000950: 14,2616           77624        R51A               CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
032561,000951: 14,2617           36060                                    SXTSM                                 
032562,000952: 14,2620           02617                           STORE    STARSAV2                              
032563,000953: 14,2621           77776                           EXIT                                           
032564,000954: 14,2622           04676                           TC       BANKCALL                              
032565,000955: 14,2623           16063                           CADR     MKRELEAS                              
032566,000956: 14,2624           06006                           TC       INTPRET                               
032567,000957: 14,2625           45145                           DLOAD    CALL                                  
032568,000958: 14,2626           02607                                    TSIGHT                                
032569,000959: 14,2627           32340                                    PLANET                                
032570,000960: 14,2630           77776                           EXIT                                           
032571,000961: 14,2631           10304                           CCS      STARIND                               
032572,000962: 14,2632           02673                           TC       R51.4                                 
032573,000963: 14,2633           06006                           TC       INTPRET                               
032574,000964: 14,2634           53521                           MXV      UNIT                                  
032575,000965: 14,2635           01736                                    REFSMMAT                              
032576,000966: 14,2636           02736                           STORE    STARAD                                
032577,000967: 14,2637           77775                           VLOAD                                          
032578,000968: 14,2640           02617                                    STARSAV2                              
032579,000969: 14,2641           24007                           STOVL    6D                                    
032580,000970: 14,2642           02611                                    STARSAV1                              
032581,000971: 14,2643           24015                           STOVL    12D                                   
032582,000972: 14,2644           02601                                    PLANVEC                               
032583,000973: 14,2645           36744                           STCALL   STARAD     +6                         
032584,000974: 14,2646           30716                                    R54                                   #  STAR DATA TEST
032585,000975: 14,2647           45014                           BOFF     CALL                                  
032586,000976: 14,2650           00354                                    FREEFLAG                              
032587,000977: 14,2651           30657                                    R51K                                  
032588,000978: 14,2652           47403                                    AXISGEN                               
032589,000979: 14,2653           77624                           CALL                                           
032590,000980: 14,2654           32271                                    R55                                   #  GYRO TORQUE
032591,000981: 14,2655           77614                           CLEAR                                          
032592,000982: 14,2656           01273                                    PFRATFLG                              
032593,000983: 14,2657           77776        R51K               EXIT                                           
032594,000984: 14,2660           35775                           CAF      OCT14                                 
032595,000985: 14,2661           04676                           TC       BANKCALL                              
032596,000986: 14,2662           21045                           CADR     GOPERF1                               
032597,000987: 14,2663           04106                           TC       GOTOPOOH                              
032598,000988: 14,2664           02666                           TC       +2                                    #  V33
032599,000989: 14,2665           02670                           TC       +3                                    
032600,000990: 14,2666           04676                           TC       BANKCALL                              
032601,000991: 14,2667           32120                           CADR     P52C                                  
032602,000992: 14,2670           06006                           TC       INTPRET                               
032603,000993: 14,2671           77650                           GOTO                                           
032604,000994: 14,2672           32145                                    ENDP50S                               
032605,000995: 14,2673           06006        R51.4              TC       INTPRET                               
032606,000996: 14,2674           53521                           MXV      UNIT                                  
032607,000997: 14,2675           01736                                    REFSMMAT                              
032608,000998: 14,2676           26601                           STOVL    PLANVEC                               
032609,000999: 14,2677           02617                                    STARSAV2                              
032610,001000: 14,2700           02611                           STORE    STARSAV1                              
032611,001001: 14,2701           77731                           SSP                                            
032612,001002: 14,2702           00305                                    STARIND                               
032613,001003: 14,2703           00000                                    0                                     
032614,001004: 14,2704           77650                           GOTO                                           
032615,001005: 14,2705           30541                                    R51.3                                 
032616,001006: 14,2706           06006        R51B               TC       INTPRET                               
032617,001007: 14,2707           77624                           CALL                                           
032618,001008: 14,2710           36114                                    R56                                   
032619,001009: 14,2711           77650                           GOTO                                           
032620,001010: 14,2712           30616                                    R51A                                  
032621,001011: 14,2713           00066        OCT66              OCT      00066                                 
032622,001012: 14,2714           00306        V01N70             VN       0170                                  
032623,001013: 14,2715           05253        1/6TH              DEC      .1666667                              
032624,001014: 
032625,001015:                                                                                                  #  NAME-R55      GYRO TORQUE
032626,001016:                                                                                                  #  FUNCTION - COMPUTE AND SEND GYRO PULSES
032627,001017:                                                                                                  #  CALLING SEQ - CALL R55
032628,001018:                                                                                                  #  INPUT - X,Y,ZDC - REFSMMAT WRT PRESENT STABLE MEMBER
032629,001019:                                                                                                  #  OUTPUT - GYRO PULSES
032630,001020:                                                                                                  #  SUBROUTINES - CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
032631,001021: 
032632,001022: 15,2000                                           SETLOC   P50S                                  
032633,001023: 15,2000                                           BANK                                           
032634,001024: 15,2271                                           COUNT*   $$/R55                                
032635,001025: 15,2271           77620        R55                STQ                                            
032636,001026: 15,2272           02777                                    QMIN                                  
032637,001027: 15,2273           77624                           CALL                                           
032638,001028: 15,2274           47207                                    CALCGTA                               
032639,001029: 15,2275           77776        PULSEM             EXIT                                           
032640,001030: 15,2276           32322        R55.1              CAF      V06N93                                
032641,001031: 15,2277           04676                           TC       BANKCALL                              
032642,001032: 15,2300           20720                           CADR     GOFLASH                               
032643,001033: 15,2301           04106                           TC       GOTOPOOH                              
032644,001034: 15,2302           02304                           TC       R55.2                                 
032645,001035: 15,2303           02317                           TC       R55RET                                
032646,001036: 15,2304           05426        R55.2              TC       PHASCHNG                              
032647,001037: 15,2305           00314                           OCT      00314                                 
032648,001038: 15,2306           32323                           CA       R55CDR                                
032649,001039: 15,2307           04676                           TC       BANKCALL                              
032650,001040: 15,2310           17206                           CADR     IMUPULSE                              
032651,001041: 15,2311           04676                           TC       BANKCALL                              
032652,001042: 15,2312           17577                           CADR     IMUSTALL                              
032653,001043: 15,2313           05763                           TC       CURTAINS                              
032654,001044: 15,2314           05426                           TC       PHASCHNG                              
032655,001045: 15,2315           05024                           OCT      05024                                 
032656,001046: 15,2316           13000                           OCT      13000                                 
032657,001047: 15,2317           06006        R55RET             TC       INTPRET                               
032658,001048: 15,2320           77650                           GOTO                                           
032659,001049: 15,2321           02777                                    QMIN                                  
032660,001050: 15,2322           01535        V06N93             VN       0693                                  
032661,001051: 15,2323           02757        R55CDR             ECADR    OGC                                   
032662,001052: 15,2324  14,2716               R54                =        CHKSDATA                              
032663,001053: 
032664,001054:                                                                                                  #  ROUTINE NAME - CHKSDATA               DATE - JAN 9, 1967
032665,001055:                                                                                                  #  MOD NO - 0                            LOG SECTION - P51-P53
032666,001056:                                                                                                  #  MODIFICATION BY - LONSKE              ASSEMBLY -
032667,001057: 
032668,001058:                                                                                                  #  FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS.  WHEN A PAIR OF STAR SIGHTINGS ARE MADE
032669,001059:                                                                                                  #  BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
032670,001060:                                                                                                  #  COMPUTER TO INSURE A PROPER SIGHTING WAS MADE.  THE FOLLOWING COMPUTATIONS ARE PERFORMED_
032671,001061:                                                                                                  #        OS1     =       OBSERVED STAR 1 VECTOR
032672,001062:                                                                                                  #        OS2     =       OBSERVED STAR 2 VECTOR
032673,001063:                                                                                                  #        SS1     =       STORED STAR 1 VECTOR
032674,001064:                                                                                                  #        SS2     =       STORED STAR 2 VECTOR
032675,001065:                                                                                                  #         A1     =       ARCCOS(OS1 - OS2)
032676,001066:                                                                                                  #         A2     =       ARCCOS(SS1 - SS2)
032677,001067:                                                                                                  #          A     =       ABS(2(A1 - A2))
032678,001068: 
032679,001069:                                                                                                  #  THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTENCE
032680,001070: 
032681,001071:                                                                                                  #  EXIT MODE     1. FREEFLAG SET IMPLIES ASTRONAUT WANTS TO PROCEED
032682,001072:                                                                                                  #                2. FREEFLAG RESET IMPLIES ASTRONAUT WANTS TO RECYCLE             ERANCE)
032683,001073: 
032684,001074:                                                                                                  #  OUTPUT -      1. VERB 6,NOUN 3 - DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
032685,001075:                                                                                                  #                2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
032686,001076: 
032687,001077:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
032688,001078:                                                                                                  #                1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
032689,001079:                                                                                                  #                2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
032690,001080: 
032691,001081:                                                                                                  #  DEBRIS -
032692,001082: 
032693,001083: 14,2000                                           SETLOC   P50S1                                 
032694,001084: 14,2000                                           BANK                                           
032695,001085: 14,2716                                           COUNT*   $$/R50                                
032696,001086: 14,2716           43020        CHKSDATA           STQ      SET                                   
032697,001087: 14,2717           02777                                    QMIN                                  
032698,001088: 14,2720           00074                                    FREEFLAG                              
032699,001089: 14,2721           77760        CHKSAB             AXC,1                                          #  SET X1 TO STORE EPHEMERIS DATA
032700,001090: 14,2722           02735                                    STARAD                                
032701,001091: 
032702,001092: 14,2723           47773        CHKSB              VLOAD*   DOT*                                  #  CAL. ANGLE THETA
032703,001093: 14,2724           00001                                    0,1                                   
032704,001094: 14,2725           00007                                    6,1                                   
032705,001095: 14,2726           65552                           SL1      ACOS                                  
032706,001096: 14,2727           00025                           STORE    THETA                                 
032707,001097: 14,2730           43014                           BOFF     INVERT                                #  BRANCH TO CHKSD IF THIS IS 2ND PASS
032708,001098: 14,2731           00354                                    FREEFLAG                              
032709,001099: 14,2732           30742                                    CHKSD                                 
032710,001100: 14,2733           00174                                    FREEFLAG                              #  CLEAR FREEFLAG
032711,001101: 14,2734           71360                           AXC,1    DLOAD                                 #  SET X1 TO MARK ANGLES
032712,001102: 14,2735           00006                                    6D                                    
032713,001103: 14,2736           00025                                    THETA                                 
032714,001104: 14,2737           00023                           STORE    18D                                   
032715,001105: 14,2740           77650                           GOTO                                           
032716,001106: 14,2741           30723                                    CHKSB                                 #  RETURN TO CAL. 2ND ANGLE
032717,001107: 14,2742           45345        CHKSD              DLOAD    DSU                                   
032718,001108: 14,2743           00025                                    THETA                                 #  COMPUTE POS DIFF
032719,001109: 14,2744           00023                                    18D                                   
032720,001110: 14,2745           47046                           ABS      RTB                                   
032721,001111: 14,2746           45544                                    SGNAGREE                              
032722,001112: 14,2747           01046                           STORE    NORMTEM1                              
032723,001113: 14,2750           77414                           SET      EXIT                                  
032724,001114: 14,2751           00074                                    FREEFLAG                              
032725,001115: 14,2752           35035                           CAF      ZERO                                  
032726,001116: 14,2753           04676                           TC       BANKCALL                              
032727,001117: 14,2754           20703                           CADR     CLEANDSP                              
032728,001118: 
032729,001119: 14,2755           32771                           CAF      VB6N5                                 
032730,001120: 14,2756           04676                           TC       BANKCALL                              
032731,001121: 14,2757           20720                           CADR     GOFLASH                               
032732,001122: 14,2760           14106                           TCF      GOTOPOOH                              
032733,001123: 14,2761           02766                           TC       CHKSDA                                #  PROCEED
032734,001124: 14,2762           06006                           TC       INTPRET                               
032735,001125: 14,2763           52014                           CLEAR    GOTO                                  
032736,001126: 14,2764           00274                                    FREEFLAG                              
032737,001127: 14,2765           02777                                    QMIN                                  
032738,001128: 14,2766           06006        CHKSDA             TC       INTPRET                               
032739,001129: 14,2767           77650                           GOTO                                           
032740,001130: 14,2770           02777                                    QMIN                                  
032741,001131: 14,2771           01405        VB6N5              VN       605                                   
032742,001132: 
032743,001133:                                                                                                  #  NAME - CAL53A
032744,001134:                                                                                                  #  NAME - CAL53A
032745,001135:                                                                                                  #  FUNCTION - COARSE ALIGN THE IMU, IF NECESSARY. 
032746,001136:                                                                                                  #  CALLING SEQUENCE - CALL CAL53A
032747,001137:                                                                                                  #  INPUT - PRESENT GIMBAL ANGLES - CDUX, CDUY, CDUZ
032748,001138:                                                                                                  #           DESIRED GIMBAL ANGLES - THETAD,+1,+2
032749,001139:                                                                                                  #  OUTPUT - THE IMU COORDINATES ARE STORED IN REFSMMAT
032750,001140:                                                                                                  #  SUBROUTINES USED - 1.IMUCOARS  2.IMUSTALL  3.CURTAINS
032751,001141: 
032752,001142: 14,2772                                           COUNT    14/R50                                
032753,001143: 
032754,001144: 14,2772           77624        CAL53A             CALL                                           
032755,001145: 14,2773           22260                                    S52.2                                 #  MAKE FINAL COMP OF GIMBAL ANGLES
032756,001146: 14,2774           66234                           RTB      SSP                                   
032757,001147: 14,2775           32324                                    RDCDUS                                #  READ CDUS
032758,001148: 14,2776           00051                                    S1                                    
032759,001149: 14,2777           00001                                    1                                     
032760,001150: 14,3000           40370                           AXT,1    SETPD                                 
032761,001151: 14,3001           00003                                    3                                     
032762,001152: 14,3002           00005                                    4                                     
032763,001153: 14,3003           70543        CALOOP             DLOAD*   SR1                                   
032764,001154: 14,3004           01161                                    THETAD     +3D,1                      
032765,001155: 14,3005           70523                           PDDL*    SR1                                   
032766,001156: 14,3006           00005                                    4,1                                   
032767,001157: 14,3007           51425                           DSU      ABS                                   
032768,001158: 14,3010           45206                           PUSH     DSU                                   
032769,001159: 14,3011           31057                                    DEGREE1                               
032770,001160: 14,3012           71240                           BMN      DLOAD                                 
032771,001161: 14,3013           31033                                    CALOOP1                               
032772,001162: 14,3014           51025                           DSU      BPL                                   
032773,001163: 14,3015           31060                                    DEG359                                
032774,001164: 14,3016           31033                                    CALOOP1                               
032775,001165: 14,3017           77776        COARFINE           EXIT                                           
032776,001166: 14,3020           05426                           TC       PHASCHNG                              
032777,001167: 14,3021           04024                           OCT      04024                                 
032778,001168: 14,3022           03260                           TC       COARSUB                               #  PERFORM ALIGNMENT
032779,001169: 14,3023           06006                           TC       INTPRET                               
032780,001170: 14,3024           77234                           RTB      VLOAD                                 
032781,001171: 14,3025           31255                                    SET1/PDT                              
032782,001172: 14,3026           11566                                    ZEROVEC                               
032783,001173: 14,3027           01472                           STORE    GCOMP                                 
032784,001174: 14,3030           52014                           SET      GOTO                                  
032785,001175: 14,3031           01060                                    DRIFTFLG                              
032786,001176: 14,3032           31035                                    FINEONLY                              
032787,001177: 14,3033           77700        CALOOP1            TIX,1                                          
032788,001178: 14,3034           31003                                    CALOOP                                
032789,001179: 14,3035           75160        FINEONLY           AXC,1    AXC,2                                 
032790,001180: 14,3036           02671                                    XSM                                   
032791,001181: 14,3037           01735                                    REFSMMAT                              
032792,001182: 14,3040           77624                           CALL                                           
032793,001183: 14,3041           31044                                    MATMOVE                               
032794,001184: 14,3042           77650                           GOTO                                           
032795,001185: 14,3043           32116                                    CAL53RET                              
032796,001186: 14,3044           77773        MATMOVE            VLOAD*                                         #  TRANSFER MATRIX
032797,001187: 14,3045           00001                                    0,1                                   
032798,001188: 14,3046           10001                           STORE    0,2                                   
032799,001189: 14,3047           77773                           VLOAD*                                         
032800,001190: 14,3050           00007                                    6D,1                                  
032801,001191: 14,3051           10007                           STORE    6D,2                                  
032802,001192: 14,3052           77773                           VLOAD*                                         
032803,001193: 14,3053           00015                                    12D,1                                 
032804,001194: 14,3054           10015                           STORE    12D,2                                 
032805,001195: 14,3055           77616                           RVQ                                            
032806,001196: 14,3056           00056        DEGREE1            DEC      46         B-14                       
032807,001197: 14,3057           37722        DEG359             DEC      16338      B-14                       
032808,001198: 15,2000                                           SETLOC   P50S                                  
032809,001199: 15,2000                                           BANK                                           
032810,001200: 15,2324           00004        RDCDUS             INHINT                                         #  READ CDUS
032811,001201: 15,2325           30032                           CA       CDUX                                  
032812,001202: 15,2326           50120                           INDEX    FIXLOC                                
032813,001203: 15,2327           54001                           TS       1                                     
032814,001204: 15,2330           30033                           CA       CDUY                                  
032815,001205: 15,2331           50120                           INDEX    FIXLOC                                
032816,001206: 15,2332           54002                           TS       2                                     
032817,001207: 15,2333           30034                           CA       CDUZ                                  
032818,001208: 15,2334           50120                           INDEX    FIXLOC                                
032819,001209: 15,2335           54003                           TS       3                                     
032820,001210: 15,2336           00003                           RELINT                                         
032821,001211: 15,2337           06030                           TC       DANZIG                                #                                                                        +
032822,001212: 
032823,001213: 
032824,001214:                                                                                                  #  NAME - GIMB
032825,001215: 
032826,001216:                                                                                                  #  FUNCTION - DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED         FOR COARSE ALIGNMENT.
032827,001217: 
032828,001218:                                                                                                  #  CALLING SEQUENCE - CALL GIMB
032829,001219: 
032830,001220:                                                                                                  #  INPUT - DESIRED IMU INERTIAL ORIENTATION VECTORS-XSMD, YSMD, ZSMD
032831,001221: 
032832,001222:                                                                                                  #  OUTPUT -GIMBAL ANGLES LEFT IN THETAD, +1, +2                         +
032833,001223: 
032834,001224:                                                                                                  #  SUBROUTINES USED - 1.CDUTRIG 2.CALCSMSC 3.CALCGA
032835,001225: 
032836,001226: 16,2000                                           SETLOC   P50S2                                 
032837,001227: 16,2000                                           BANK                                           
032838,001228: 16,2664                                           COUNT    14/INFLT                              
032839,001229: 
032840,001230: 16,2664           41345        CALCSMSC           DLOAD    DMP                                   
032841,001231: 16,2665           00737                                    SINCDUY                               
032842,001232: 16,2666           00747                                    COSCDUZ                               
032843,001233: 16,2667           77676                           DCOMP                                          
032844,001234: 16,2670           70525                           PDDL     SR1                                   
032845,001235: 16,2671           00741                                    SINCDUZ                               
032846,001236: 16,2672           41325                           PDDL     DMP                                   
032847,001237: 16,2673           00745                                    COSCDUY                               
032848,001238: 16,2674           00747                                    COSCDUZ                               
032849,001239: 16,2675           76466                           VDEF     VSL1                                  
032850,001240: 16,2676           02714                           STORE    XNB                                   
032851,001241: 16,2677           41345                           DLOAD    DMP                                   
032852,001242: 16,2700           00743                                    SINCDUX                               
032853,001243: 16,2701           00741                                    SINCDUZ                               
032854,001244: 16,2702           77752                           SL1                                            
032855,001245: 16,2703           00033                           STORE    26D                                   
032856,001246: 16,2704           77605                           DMP                                            
032857,001247: 16,2705           00737                                    SINCDUY                               
032858,001248: 16,2706           41325                           PDDL     DMP                                   
032859,001249: 16,2707           00751                                    COSCDUX                               
032860,001250: 16,2710           00745                                    COSCDUY                               
032861,001251: 16,2711           77625                           DSU                                            
032862,001252: 16,2712           41325                           PDDL     DMP                                   
032863,001253: 16,2713           00743                                    SINCDUX                               
032864,001254: 16,2714           00747                                    COSCDUZ                               
032865,001255: 16,2715           77676                           DCOMP                                          
032866,001256: 16,2716           41325                           PDDL     DMP                                   
032867,001257: 16,2717           00751                                    COSCDUX                               
032868,001258: 16,2720           00737                                    SINCDUY                               
032869,001259: 16,2721           41325                           PDDL     DMP                                   
032870,001260: 16,2722           00745                                    COSCDUY                               
032871,001261: 16,2723           00033                                    26D                                   
032872,001262: 16,2724           55415                           DAD      VDEF                                  
032873,001263: 16,2725           77772                           VSL1                                           
032874,001264: 16,2726           02730                           STORE    ZNB                                   
032875,001265: 16,2727           76435                           VXV      VSL1                                  
032876,001266: 16,2730           02714                                    XNB                                   
032877,001267: 16,2731           02722                           STORE    YNB                                   
032878,001268: 16,2732           77616                           RVQ                                            
032879,001269: 
032880,001270:                                                                                                  #  NAME - P51 - IMU ORIENTATION DETERMINATION
032881,001271:                                                                                                  #  MOD. NO. 2    21 DEC 66                               LOG SECTION - P51-P53
032882,001272:                                                                                                  #  MOD BY STURLAUGSON                                    ASSEMBLY SUNDISK REV15
032883,001273: 
032884,001274:                                                                                                  #  FUNCTIONAL DESCRIPTION
032885,001275:                                                                                                  #        DETERMINES THE INERTIAL ORIENTATION OF THE IMU.  THE PROGRAM IS SELECTED BY DSKY ENTRY.  THE SIGHTING
032886,001276:                                                                                                  #        ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR.  THE DATA IS
032887,001277:                                                                                                  #        THEN PROCESSED AS FOLLOWS.
032888,001278: 
032889,001279:                                                                                                  #        1.  SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGATIONAL BASE COORDINATES.  LET SA AND TA BE THE SHAFT AND
032890,001280:                                                                                                  #        TRUNNION ANGLES, RESPECTIVELY.  THEN,
032891,001281:                                                                                                  #        -
032892,001282:                                                                                                  #        V  = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA))        (A COLUMN VECTOR)
032893,001283:                                                                                                  #         NB
032894,001284:                                                                                                  #        THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
032895,001285: 
032896,001286:                                                                                                  #        2.  THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
032897,001287:                                                                                                  #        -    T  T  T -
032898,001288:                                                                                                  #        V = Q *Q *Q *V  ,       WHERE
032899,001289:                                                                                                  #             1  2  3  NB
032900,001290: 
032901,001291:                                                                                                  #             ( COS(IG)   0    -SIN(IG) )
032902,001292:                                                                                                  #             (                         )                                        THE GIMBAL ANGLES ARE COMPUTED FROM
032903,001293:                                                                                                  #        Q  = (   0       1       0     ), IG= INNER GIMBAL ANGLE                THE CDU COUNTERS AT NBSM (USING AXIS-
032904,001294:                                                                                                  #         1   (                         )                                        ROT AND CDULOGIC)
032905,001295:                                                                                                  #             ( SIN(IG)   0     COS(IG) )
032906,001296: 
032907,001297:                                                                                                  #             ( COS(MG) SIN(MG)   0     )
032908,001298:                                                                                                  #             (                         )
032909,001299:                                                                                                  #        Q  = (-SIN(MG) COS(MG)   0     ), MG= MIDDLE GIMBAL ANGLE
032910,001300:                                                                                                  #         2   (                         )
032911,001301:                                                                                                  #             (   0       0       1     )
032912,001302: 
032913,001303:                                                                                                  #             (   1       0       0     )
032914,001304:                                                                                                  #             (                         )
032915,001305:                                                                                                  #        Q  = (   0     COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
032916,001306:                                                                                                  #         3   (                         )
032917,001307:                                                                                                  #             (   0    -SIN(OG) COS(OG) )
032918,001308: 
032919,001309:                                                                                                  #        3.  THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
032920,001310: 
032921,001311:                                                                                                  #        4.  THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
032922,001312: 
032923,001313:                                                                                                  #        5.  REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
032924,001314:                                                                                                  #                    -      -
032925,001315:                                                                                                  #                LET S  AND S  BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).
032926,001316:                                                                                                  #                     1      2
032927,001317:                                                                                                  #                DEFINE, -    -
032928,001318:                                                                                                  #                        U  = S
032929,001319:                                                                                                  #                         A    A1
032930,001320:                                                                                                  #                        -         -    -
032931,001321:                                                                                                  #                        V  = UNIT(S  X S  )
032932,001322:                                                                                                  #                         A         A1   A2
032933,001323:                                                                                                  #                        -    -   -
032934,001324:                                                                                                  #                        W  = U X V
032935,001325:                                                                                                  #                         A    A   A
032936,001326: 
032937,001327:                                                                                                  #                AND
032938,001328:                                                                                                  #                        -    -
032939,001329:                                                                                                  #                        U  = S
032940,001330:                                                                                                  #                         B    B1
032941,001331:                                                                                                  #                        -         -    -
032942,001332:                                                                                                  #                        V  = UNIT(S  X S  )
032943,001333:                                                                                                  #                         B         B1   B2
032944,001334:                                                                                                  #                        -    -   -
032945,001335:                                                                                                  #                        W  = U X V
032946,001336:                                                                                                  #                         B    B   B
032947,001337: 
032948,001338:                                                                                                  #                THEN    -        -       -       -
032949,001339:                                                                                                  #                        X  = U  *U + V  *V + W  *W
032950,001340:                                                                                                  #                              B1  A   B1  A   B1  A
032951,001341:                                                                                                  #                        -        -       -       -              (REFSMMAT)
032952,001342:                                                                                                  #                        Y  = U  *U + V  *V + W  *W
032953,001343:                                                                                                  #                              B2  A   B2  A   B2  A
032954,001344:                                                                                                  #                        -        -       -       -
032955,001345:                                                                                                  #                        Z  = U  *U + V  *V + W  *W
032956,001346:                                                                                                  #                              B3  A   B3  A   B3  A
032957,001347: 
032958,001348:                                                                                                  #  THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
032959,001349:                                                                                                  #                        -
032960,001350:                                                                                                  #                        S   IN 6-11 OF THE VAC AREA
032961,001351:                                                                                                  #                         A1
032962,001352:                                                                                                  #                        -
032963,001353:                                                                                                  #                        S   IN 12-17 OF THE VAC AREA
032964,001354:                                                                                                  #                         A2
032965,001355:                                                                                                  #                        -
032966,001356:                                                                                                  #                        S   IN STARAD
032967,001357:                                                                                                  #                         B1
032968,001358:                                                                                                  #                        -
032969,001359:                                                                                                  #                        S   IN STARAD +6
032970,001360:                                                                                                  #                         B2
032971,001361: 
032972,001362:                                                                                                  #  CALLING SEQUENCE
032973,001363: 
032974,001364:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
032975,001365: 
032976,001366:                                                                                                  #  SUBROUTINES CALLED.
032977,001367: 
032978,001368:                                                                                                  #        GOPERF3
032979,001369:                                                                                                  #        GOPERF1R
032980,001370:                                                                                                  #        GODSPR
032981,001371:                                                                                                  #        IMUCOARS
032982,001372:                                                                                                  #        IMUFIN20
032983,001373:                                                                                                  #        R53
032984,001374:                                                                                                  #        SXTNB
032985,001375:                                                                                                  #        NBSM
032986,001376:                                                                                                  #        MKRELEAS
032987,001377:                                                                                                  #        CHKSDATA
032988,001378:                                                                                                  #        MATMOVE
032989,001379: 
032990,001380:                                                                                                  #  ALARMS
032991,001381: 
032992,001382:                                                                                                  #        NONE.
032993,001383: 
032994,001384:                                                                                                  #  ERASABLE INITIALIZATION
032995,001385: 
032996,001386:                                                                                                  #        IMU ZERO FLAG SHOULD BE SET.
032997,001387: 
032998,001388:                                                                                                  #  OUTPUT
032999,001389: 
033000,001390:                                                                                                  #        REFSMMAT
033001,001391:                                                                                                  #        REFSMFLG
033002,001392: 
033003,001393:                                                                                                  #  DEBRIS
033004,001394: 
033005,001395:                                                                                                  #        WORK AREA
033006,001396:                                                                                                  #        STARAD
033007,001397:                                                                                                  #        STARIND
033008,001398:                                                                                                  #        BESTI
033009,001399:                                                                                                  #        BESTJ
033010,001400: 
033011,001401: 14,2000                                           SETLOC   P50S1                                 
033012,001402: 14,2000                                           BANK                                           
033013,001403: 14,3060                                           COUNT    14/P5153                              
033014,001404: 
033015,001405: 14,3060  14,3060               P53                EQUALS   P51                                   
033016,001406: 14,3060           41320        P51                CS       IMODES30                              
033017,001407: 14,3061           75023                           MASK     BIT9                                  
033018,001408: 14,3062           10000                           CCS      A                                     
033019,001409: 14,3063           03067                           TC       P51A                                  
033020,001410: 14,3064           05664                           TC       ALARM                                 
033021,001411: 14,3065           00210                           OCT      210                                   
033022,001412: 14,3066           04106                           TC       GOTOPOOH                              
033023,001413: 14,3067           04676        P51A               TC       BANKCALL                              
033024,001414: 14,3070           17667                           CADR     R02ZERO                               
033025,001415: 
033026,001416: 14,3071           35041        P51AA              CAF      PRFMSTAQ                              
033027,001417: 14,3072           04676                           TC       BANKCALL                              
033028,001418: 14,3073           21045                           CADR     GOPERF1                               
033029,001419: 14,3074           04106                           TC       GOTOPOOH                              #  TERM.
033030,001420: 14,3075           03120                           TC       P51B                                  #  V33
033031,001421: 14,3076           05426                           TC       PHASCHNG                              
033032,001422: 14,3077           05024                           OCT      05024                                 
033033,001423: 14,3100           13000                           OCT      13000                                 
033034,001424: 14,3101           35035                           CAF      P51ZERO                               
033035,001425: 14,3102           55155                           TS       THETAD                                #  ZERO THE GIMBALS
033036,001426: 14,3103           55156                           TS       THETAD     +1                         
033037,001427: 14,3104           55157                           TS       THETAD     +2                         
033038,001428: 14,3105           33253                           CAF      V6N22                                 
033039,001429: 14,3106           04676                           TC       BANKCALL                              
033040,001430: 14,3107           20673                           CADR     GODSPRET                              
033041,001431: 14,3110           33254                           CAF      V41K                                  #  NOW DISPLAY COARSE ALIGN VERB 41
033042,001432: 14,3111           04676                           TC       BANKCALL                              
033043,001433: 14,3112           20673                           CADR     GODSPRET                              
033044,001434: 14,3113           03260                           TC       COARSUB                               #  PERFORM ALIGNMENT
033045,001435: 14,3114           05426                           TC       PHASCHNG                              
033046,001436: 14,3115           05024                           OCT      05024                                 
033047,001437: 14,3116           13000                           OCT      13000                                 
033048,001438: 14,3117           13071                           TCF      P51AA                                 #  COARSE ALIGN DONE - RECYCLE FOR FINE
033049,001439: 
033050,001440:                                                                                                  #  DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
033051,001441: 14,3120           05426        P51B               TC       PHASCHNG                              
033052,001442: 14,3121           00014                           OCT      00014                                 
033053,001443: 14,3122           06006                           TC       INTPRET                               
033054,001444: 14,3123           40331                           SSP      SETPD                                 
033055,001445: 14,3124           00305                                    STARIND                               #  INDEX - STAR 1 OR 2
033056,001446: 14,3125           00000                                    0                                     
033057,001447: 14,3126           00001                                    0                                     
033058,001448: 14,3127           77234                           RTB      VLOAD                                 
033059,001449: 14,3130           31255                                    SET1/PDT                              
033060,001450: 14,3131           11566                                    ZEROVEC                               
033061,001451: 14,3132           01472                           STORE    GCOMP                                 
033062,001452: 14,3133           43014                           SET      CLEAR                                 
033063,001453: 14,3134           01060                                    DRIFTFLG                              #  ENABLE T4 COMPENSATION
033064,001454: 14,3135           00666                                    TARG2FLG                              #  SHOW MARK IS STAR - NOT LANDMARK
033065,001455: 14,3136           77776                           EXIT                                           
033066,001456: 14,3137           35033                           CAF      BIT1                                  
033067,001457: 14,3140           54301                           TS       MARKINDX                              #  INITIALIZE FOR ONE MARK
033068,001458: 
033069,001459: 14,3141           05426        P51C               TC       PHASCHNG                              
033070,001460: 14,3142           05024                           OCT      05024                                 
033071,001461: 14,3143           13000                           OCT      13000                                 
033072,001462: 14,3144           05400                           TC       CHECKMM                               
033073,001463: 14,3145           00065                           MM       53         B-14                       #  BACKUP PROGRAM
033074,001464: 14,3146           13154                           TCF      P51C.1                                #  NOT P53
033075,001465: 14,3147           06006                           TC       INTPRET                               
033076,001466: 14,3150           77624                           CALL                                           
033077,001467: 14,3151           36114                                    R56                                   
033078,001468: 14,3152           77650                           GOTO                                           
033079,001469: 14,3153           31157                                    P51C.2                                
033080,001470: 14,3154           06006        P51C.1             TC       INTPRET                               
033081,001471: 14,3155           77624                           CALL                                           
033082,001472: 14,3156           31304                                    R53                                   #  SIGHTING ROUTINE
033083,001473: 14,3157           77624        P51C.2             CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
033084,001474: 14,3160           36060                                    SXTSM                                 
033085,001475: 14,3161           77606                           PUSH                                           
033086,001476: 14,3162           53135                           SLOAD    BZE                                   
033087,001477: 14,3163           00305                                    STARIND                               
033088,001478: 14,3164           31171                                    P51D                                  
033089,001479: 14,3165           45575                           VLOAD    STADR                                 
033090,001480: 14,3166           75160                           STORE    STARSAV2                              #  DOWNLINK
033091,001481: 14,3167           77650                           GOTO                                           
033092,001482: 14,3170           31177                                    P51E                                  
033093,001483: 14,3171           45575        P51D               VLOAD    STADR                                 
033094,001484: 14,3172           61166                           STODL    STARSAV1                              
033095,001485: 14,3173           02607                                    TSIGHT                                
033096,001486: 14,3174           77624                           CALL                                           
033097,001487: 14,3175           32340                                    PLANET                                
033098,001488: 14,3176           02601                           STORE    PLANVEC                               
033099,001489: 14,3177           77776        P51E               EXIT                                           
033100,001490: 14,3200           05426                           TC       PHASCHNG                              
033101,001491: 14,3201           05024                           OCT      05024                                 
033102,001492: 14,3202           13000                           OCT      13000                                 
033103,001493: 14,3203           04676                           TC       BANKCALL                              
033104,001494: 14,3204           16063                           CADR     MKRELEAS                              #  ZERO MARKSTAT
033105,001495: 14,3205           10304                           CCS      STARIND                               
033106,001496: 14,3206           13215                           TCF      P51F                                  #  STAR 2
033107,001497: 14,3207           05426                           TC       PHASCHNG                              
033108,001498: 14,3210           05024                           OCT      05024                                 
033109,001499: 14,3211           13000                           OCT      13000                                 
033110,001500: 14,3212           35033                           CAF      BIT1                                  
033111,001501: 14,3213           54304                           TS       STARIND                               
033112,001502: 14,3214           13141                           TCF      P51C                                  #  GO DO SECOND STAR
033113,001503: 14,3215           05426        P51F               TC       PHASCHNG                              
033114,001504: 14,3216           05024                           OCT      05024                                 
033115,001505: 14,3217           13000                           OCT      13000                                 
033116,001506: 14,3220           06006                           TC       INTPRET                               
033117,001507: 14,3221           45145                           DLOAD    CALL                                  
033118,001508: 14,3222           02607                                    TSIGHT                                
033119,001509: 14,3223           32340                                    PLANET                                
033120,001510: 14,3224           24015                           STOVL    12D                                   
033121,001511: 14,3225           02601                                    PLANVEC                               
033122,001512: 14,3226           24007                           STOVL    6D                                    
033123,001513: 14,3227           02611                                    STARSAV1                              
033124,001514: 14,3230           26736                           STOVL    STARAD                                
033125,001515: 14,3231           02617                                    STARSAV2                              
033126,001516: 14,3232           36744                           STCALL   STARAD     +6                         
033127,001517: 14,3233           30716                                    CHKSDATA                              #  CHECK STAR ANGLES IN STARAD AND
033128,001518: 14,3234           77414                           BON      EXIT                                  
033129,001519: 14,3235           00314                                    FREEFLAG                              
033130,001520: 14,3236           31240                                    P51G                                  
033131,001521: 14,3237           03071                           TC       P51AA                                 
033132,001522: 14,3240           77624        P51G               CALL                                           
033133,001523: 14,3241           47403                                    AXISGEN                               #  COME BACK WITH REFSMMAT IN XDC
033134,001524: 14,3242           75160                           AXC,1    AXC,2                                 
033135,001525: 14,3243           02713                                    XDC                                   
033136,001526: 14,3244           01735                                    REFSMMAT                              
033137,001527: 14,3245           45014                           CLEAR    CALL                                  
033138,001528: 14,3246           01662                                    REFSMFLG                              
033139,001529: 14,3247           31044                                    MATMOVE                               
033140,001530: 14,3250           52014                           SET      GOTO                                  
033141,001531: 14,3251           01462                                    REFSMFLG                              
033142,001532: 14,3252           32145                                    ENDP50S                               
033143,001533: 14,3253     5041               PRFMSTAQ           =        OCT15                                 
033144,001534: 14,3253     5035               P51ZERO            =        ZERO                                  
033145,001535: 14,3253     5036               P51FIVE            =        FIVE                                  
033146,001536: 14,3253           01426        V6N22              VN       0622                                  
033147,001537: 14,3254           12200        V41K               VN       4100                                  
033148,001538: 14,3255           30025        SET1/PDT           CA       TIME1                                 
033149,001539: 14,3256           55074                           TS       1/PIPADT                              
033150,001540: 14,3257           16030                           TCF      DANZIG                                
033151,001541: 
033152,001542: 14,3260                                           COUNT*   $$/R50                                
033153,001543: 14,3260           30002        COARSUB            CA       Q                                     
033154,001544: 14,3261           55777                           TS       QMIN                                  
033155,001545: 14,3262           31322        STALLOOP           CA       MODECADR                              #  IS IMU IN USE?
033156,001546: 14,3263           00006                           EXTEND                                         
033157,001547: 14,3264           13271                           BZF      CORSCALL                              #  NO, GO AHEAD WITH COARSE ALIGN
033158,001548: 14,3265           35055                           CAF      1SEC                                  #  YES, SO WAIT A SEC
033159,001549: 14,3266           04676                           TC       BANKCALL                              
033160,001550: 14,3267           01732                           CADR     DELAYJOB                              
033161,001551: 14,3270           03262                           TC       STALLOOP                              #                        AND TRY AGAIN
033162,001552: 14,3271           04676        CORSCALL           TC       BANKCALL                              
033163,001553: 14,3272           16663                           CADR     IMUCOARS                              #  PERFORM COARSE ALIGN
033164,001554: 14,3273           04676                           TC       BANKCALL                              
033165,001555: 14,3274           17577                           CADR     IMUSTALL                              
033166,001556: 14,3275           05763                           TC       CURTAINS                              #  BAD END
033167,001557: 14,3276           04676                           TC       BANKCALL                              
033168,001558: 14,3277           17073                           CADR     IMUFIN20                              #  PERFORM FINE ALIGN
033169,001559: 14,3300           04676                           TC       BANKCALL                              
033170,001560: 14,3301           17577                           CADR     IMUSTALL                              
033171,001561: 14,3302           05763                           TC       CURTAINS                              #  BAD END
033172,001562: 14,3303           01777                           TC       QMIN                                  
033173,001563: 
033174,001564:                                                                                                  #  SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
033175,001565: 
033176,001566: 17,2000                                           SETLOC   P50S3                                 
033177,001567: 17,2000                                           BANK                                           
033178,001568: 17,2060           77620        SXTSM              STQ                                            
033179,001569: 17,2061           00300                                    QMAJ                                  
033180,001570: 17,2062           70740                           LXC,1    DLOAD*                                
033181,001571: 17,2063           01330                                    MARKSTAT                              
033182,001572: 17,2064           00001                                    0D,1                                  
033183,001573: 17,2065           02607                           STORE    TSIGHT                                
033184,001574: 17,2066           66744                           LXC,2    SLOAD*                                
033185,001575: 17,2067           00304                                    STARIND                               
033186,001576: 17,2070           41664                                    MKDNCDR,2                             
033187,001577: 17,2071           76744                           LXC,2    VLOAD*                                
033188,001578: 17,2072           00154                                    MPAC                                  
033189,001579: 17,2073           00001                                    0,1                                   
033190,001580: 17,2074           10001                           STORE    0,2                                   
033191,001581: 17,2075           77743                           DLOAD*                                         
033192,001582: 17,2076           00006                                    5,1                                   
033193,001583: 17,2077           10006                           STORE    5,2                                   
033194,001584: 17,2100           77624                           CALL                                           
033195,001585: 17,2101           46000                                    SXTNB                                 #  COMPUTE LOS VECTOR FROM OCDU IN MKVAC
033196,001586: 17,2102           62150                           LXA,1    INCR,1                                
033197,001587: 17,2103           01330                                    MARKSTAT                              
033198,001588: 17,2104           00002                                    2                                     #  INCREMENT TO BASE ADR OF ICDU
033199,001589: 17,2105           45130                           SXA,1    CALL                                  
033200,001590: 17,2106           00050                                    S1                                    
033201,001591: 17,2107           47610                                    NBSM                                  #  TRANSFORM LOS TO SM
033202,001592: 17,2110           77650                           GOTO                                           
033203,001593: 17,2111           00300                                    QMAJ                                  
033204,001594: 17,2112           03674        MKDNCDR            ECADR    MARKDOWN                              
033205,001595: 17,2113           03502                           ECADR    MARK2DWN                              
033206,001596: 
033207,001597:                                                                                                  #  PROGRAM DESCRIPTION - R53 - SIGHTING MARK ROUTINE
033208,001598:                                                                                                  #  MOD. NO. 2  21 DEC 66
033209,001599:                                                                                                  #  MOD BY STURLAUGSON
033210,001600: 
033211,001601:                                                                                                  #  FUNCTIONAL DESCRIPTION
033212,001602: 
033213,001603:                                                                                                  #        TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE).  SIGHTINGS
033214,001604:                                                                                                  #        CAN BE MADE ON A STAR OR LANDMARK.  WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
033215,001605:                                                                                                  #        OCDUS) AND THE TIME OF THE MARK.
033216,001606: 
033217,001607:                                                                                                  #  CALLING SEQUENCE
033218,001608: 
033219,001609:                                                                                                  #        R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE.  RETURN IS VIA QPRET.
033220,001610:                                                                                                  #        THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
033221,001611: 
033222,001612:                                                                                                  #  SUBROUTINES CALLED
033223,001613:                                                                                                  #        
033224,001614:                                                                                                  #        SXTMARK
033225,001615:                                                                                                  #        OPTSTALL
033226,001616:                                                                                                  #        GOFLASH
033227,001617: 
033228,001618:                                                                                                  #  ERASABLE INITIALIZATION
033229,001619: 
033230,001620:                                                                                                  #        TARGET FLAG - STAR OR LANDMARK
033231,001621:                                                                                                  #        MARKINDX - NUMBER OF MARKS WANTED
033232,001622:                                                                                                  #        STARIND - INDEX TO BESTI OR BESTJ (STAR NUMBER)
033233,001623: 
033234,001624:                                                                                                  #  OUTPUT
033235,001625: 
033236,001626:                                                                                                  #        MARKSTAT CONTAINS INDEX TO VACANT AREA WHERE MARK DATA IS STORED
033237,001627:                                                                                                  #        BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED
033238,001628: 
033239,001629:                                                                                                  #  DEBRIS
033240,001630: 
033241,001631:                                                                                                  #        MARKINDX CONTAINS NUMBER OF MARKS DESIRED
033242,001632: 
033243,001633: 14,2000                                           SETLOC   RT53                                  
033244,001634: 14,2000                                           BANK                                           
033245,001635: 
033246,001636: 14,3304                                           COUNT    14/R53                                
033247,001637: 
033248,001638: 14,3304           43020        R53                STQ      SET                                   #  SET SIGHTING MARK FLAG
033249,001639: 14,3305           03501                                    R53EXIT                               
033250,001640: 14,3306           00071                                    R53FLAG                               
033251,001641: 14,3307           77776                           EXIT                                           
033252,001642: 14,3310           30301        R53A               CA       MARKINDX                              #  NUMBER OF MARKS
033253,001643: 14,3311           75037                           MASK     LOW3                                  
033254,001644: 14,3312           04676                           TC       BANKCALL                              
033255,001645: 14,3313           16002                           CADR     SXTMARK                               
033256,001646: 14,3314           04676                           TC       BANKCALL                              
033257,001647: 14,3315           17573                           CADR     OPTSTALL                              
033258,001648: 14,3316           05763                           TC       CURTAINS                              
033259,001649: 14,3317           51330                           INDEX    MARKSTAT                              
033260,001650: 14,3320           10052                           CCS      QPRET                                 #  NUMBER OF MARKS ACTUALLY DONE
033261,001651: 14,3321           13332                           TCF      R53B                                  
033262,001652: 14,3322           13324                           TCF      +2                                    #  ZERO
033263,001653: 14,3323           13324                           TCF      +1                                    #  CCS HOLE
033264,001654: 14,3324           35035                           CAF      ZERO                                  #  HOUSEKEEP VAC AREA SAVE
033265,001655: 14,3325           57330                           XCH      MARKSTAT                              #        AND MARKSTAT
033266,001656: 14,3326           10000                           CCS      A                                     
033267,001657: 14,3327           50000                           INDEX    A                                     
033268,001658: 14,3330           54000                           TS       0                                     
033269,001659: 14,3331           13310                           TCF      R53A                                  
033270,001660: 14,3332           05400        R53B               TC       CHECKMM                               
033271,001661: 14,3333           00026                           MM       22         B-14                       
033272,001662: 14,3334           13336                           TCF      +2                                    
033273,001663: 14,3335           13365                           TCF      R53D                                  
033274,001664: 14,3336           05400                           TC       CHECKMM                               
033275,001665: 14,3337           00027                           MM       23         B-14                       
033276,001666: 14,3340           13342                           TCF      R53C1                                 
033277,001667: 14,3341           13365                           TCF      R53D                                  
033278,001668: 14,3342           35035        R53C1              CAF      ZERO                                  
033279,001669: 14,3343           04676                           TC       BANKCALL                              
033280,001670: 14,3344           20703                           CADR     CLEANDSP                              
033281,001671: 14,3345           33371        R53C               CAF      V01N71                                
033282,001672: 14,3346           04676                           TC       BANKCALL                              
033283,001673: 14,3347           20720                           CADR     GOFLASH                               
033284,001674: 14,3350           04106                           TC       GOTOPOOH                              #  TERM.
033285,001675: 14,3351           13353                           TCF      R53Z                                  
033286,001676: 14,3352           03345                           TC       R53C                                  #  RECYCLE
033287,001677: 14,3353           03372        R53Z               TC       CHKSCODE                              
033288,001678: 14,3354           04400                           TC       FALTON                                
033289,001679: 14,3355           03345                           TC       R53C                                  
033290,001680: 14,3356           47713                           CS       HIGH9                                 
033291,001681: 14,3357           70735                           MASK     STARCODE                              
033292,001682: 14,3360           00006                           EXTEND                                         
033293,001683: 14,3361           76211                           MP       SIGHTSIX                              
033294,001684: 14,3362           56001                           XCH      L                                     
033295,001685: 14,3363           50304                           INDEX    STARIND                               
033296,001686: 14,3364           54302                           TS       BESTI                                 
033297,001687: 14,3365           06006        R53D               TC       INTPRET                               
033298,001688: 14,3366           77614        R53OUT             SETGO                                          
033299,001689: 14,3367           03420                                    TERMIFLG                              #  SET TERMINATE FOR R52
033300,001690: 14,3370           03501                                    R53EXIT                               
033301,001691: 14,3371     6211               SIGHTSIX           =        SIX                                   
033302,001692: 14,3371           00307        V01N71             VN       0171                                  
033303,001693: 
033304,001694:                                                                                                  #  ****** KEEP IN SAME BANK AS R51 AND R53 *********
033305,001695: 14,3372           10735        CHKSCODE           CCS      STARCODE                              
033306,001696: 14,3373           63402                           AD       NEG47                                 
033307,001697: 14,3374           10000                           CCS      A                                     
033308,001698: 14,3375           00002                           TC       Q                                     #  SC < 0 OR SC > 50
033309,001699: 14,3376           13400                           TCF      +2                                    #  SC = + OR - 0
033310,001700: 14,3377           13400                           TCF      +1                                    #  0 <= SC< 50
033311,001701: 14,3400           50002                           INDEX    Q                                     #  SC = 50
033312,001702: 14,3401           00002                           TC       00002                                 
033313,001703: 14,3402           77730        NEG47              OCT      77730                                 
033314,001704: 
033315,001705:                                                                                                  #  NAME - S52.2
033316,001706:                                                                                                  #  FUNCTION - COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
033317,001707:                                                                                                  #  CALL - CALL S52.2
033318,001708:                                                                                                  #  INPUT - X,Y,ZSMD
033319,001709:                                                                                                  #  OUTPUT - OGC,IGC,MGC,THETAD,+1,+2
033320,001710:                                                                                                  #  SUBROUTINES - CDUTRIG, CALCSMSC, MATMOVE, CALCGA
033321,001711: 
033322,001712: 11,2000                                           SETLOC   S52/2                                 
033323,001713: 11,2000                                           BANK                                           
033324,001714: 
033325,001715: 11,2260                                           COUNT    13/S52.2                              
033326,001716: 11,2260           77620        S52.2              STQ                                            
033327,001717: 11,2261           00300                                    QMAJ                                  
033328,001718: 11,2262           77624                           CALL                                           
033329,001719: 11,2263           47501                                    CDUTRIG                               
033330,001720: 11,2264           77624                           CALL                                           
033331,001721: 11,2265           34664                                    CALCSMSC                              
033332,001722: 11,2266           66370                           AXT,1    SSP                                   
033333,001723: 11,2267           00022                                    18D                                   
033334,001724: 11,2270           00051                                    S1                                    
033335,001725: 11,2271           00006                                    6D                                    
033336,001726: 11,2272           61373        S52.2A             VLOAD*   VXM                                   
033337,001727: 11,2273           02736                                    XNB        +18D,1                     
033338,001728: 11,2274           01736                                    REFSMMAT                              
033339,001729: 11,2275           77656                           UNIT                                           
033340,001730: 11,2276           06736                           STORE    XNB        +18D,1                     
033341,001731: 11,2277           77700                           TIX,1                                          
033342,001732: 11,2300           22272                                    S52.2A                                
033343,001733: 11,2301           75160        S52.2.1            AXC,1    AXC,2                                 
033344,001734: 11,2302           00306                                    XSMD                                  
033345,001735: 11,2303           02671                                    XSM                                   
033346,001736: 11,2304           77624                           CALL                                           
033347,001737: 11,2305           31044                                    MATMOVE                               
033348,001738: 11,2306           77624                           CALL                                           
033349,001739: 11,2307           47313                                    CALCGA                                
033350,001740: 11,2310           77650                           GOTO                                           
033351,001741: 11,2311           00300                                    QMAJ                                  
033352,001742: 
033353,001743:                                                                                                  #  PROGRAM NAME - SR52.1                         DATE  DEC 20 66
033354,001744:                                                                                                  #  MOD 1                                         LOG SEC  P51-P53
033355,001745:                                                                                                  #  BY KEN VINCENT                                ASSEMBLY  SUNDISK REV 40
033356,001746: 
033357,001747:                                                                                                  #  FUNCTION
033358,001748: 
033359,001749:                                                                                                  #  TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
033360,001750:                                                                                                  #  LEM, STAR OR LANDMARK.  IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
033361,001751:                                                                                                  #  2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1).  IF THE LEM IS 
033362,001752:                                                                                                  #  THE TARGET THEN CONIC UPDATES      OF THE CSM AND LEM ARE MADE TO
033363,001753:                                                                                                  #  THE TIME IN AOPTIME.  THE UNIT OF THE DIFFERENCE OF LEM AND CSM
033364,001754:                                                                                                  #  POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
033365,001755:                                                                                                  #  COMMON PART OF THIS PROGRAM.
033366,001756: 
033367,001757:                                                                                                  #  IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY.  THE RADIUS
033368,001758:                                                                                                  #  VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV.  BOTH OF THESE ARE
033369,001759:                                                                                                  #  FOUND FOR THE TIME IN AOPTIME.  THE UNIT OF THE DIFFERENCE BETWEEN
033370,001760:                                                                                                  #  THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
033371,001761:                                                                                                  #  VECTOR FOR THE COMMON PART OF THIS ROUTINE.
033372,001762: 
033373,001763:                                                                                                  #  IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
033374,001764:                                                                                                  #  AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
033375,001765: 
033376,001766:                                                                                                  #  THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING
033377,001767:                                                                                                  #  VECTOR INTO STABLE MEMBER COORDINATES.  IT READS THE IMU-CDUS AND USES
033378,001768:                                                                                                  #  THIS DATA IN A CALL TO CALCSXA.  ON RETURN FROM CALCSXA A TEST IS
033379,001769:                                                                                                  #  MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN  90DEG OR 38DEG.
033380,001770:                                                                                                  #  MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG. OR 50DEG.
033381,001771: 
033382,001772:                                                                                                  #  CALLING SEQUENCE
033383,001773: 
033384,001774:                                                                                                  #        L+4     RETURN WHEN SHAFT OR TRUNION NOT WITHIN 5 DEG OF DESIRED
033385,001775:                                                                                                  #        L       TC      BANKCALL
033386,001776:                                                                                                  #        L+1     CADR    SR52.1
033387,001777:                                                                                                  #        L+2     ERROR RETURN    TRUNNION GREATER THAN 90 DEG
033388,001778:                                                                                                  #        L&3     ERROR RETURN    TRUNNION GREATER THAN 50 DEG
033389,001779:                                                                                                  #        L+4     NORMAL RETURN
033390,001780: 
033391,001781:                                                                                                  #  OUTPUT
033392,001782: 
033393,001783:                                                                                                  #        SAC -SINGLE PREC, 2S COMP, SCALED AT HALF REVS - SHAFT ANGLE DESIRED
033394,001784:                                                                                                  #        PAC -SINGLE PREC, 2S COMP  SCALED AT EIGTH REVS - TRUNNION ANGLE DESIRED
033395,001785: 
033396,001786:                                                                                                  #  INITIALIZATION
033397,001787: 
033398,001788:                                                                                                  #        IF TARG1FLG =1 THEN TARGET IS LEM - NO OTHER INPUT REQUIRED
033399,001789: 
033400,001790:                                                                                                  #        IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
033401,001791:                                                                                                  #        0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE.  STAR CODES
033402,001792:                                                                                                  #        ARE 6 TIMES STAR NUMBER.
033403,001793: 
033404,001794:                                                                                                  #        IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK.  SEE ROUTINE
033405,001795:                                                                                                  #        LALOTORV FOR INPUT REQUIREMENTS.  HERE FIXERAD=1 FOR CONSTANT EARTH
033406,001796:                                                                                                  #        RADIUS
033407,001797: 
033408,001798:                                                                                                  #  DEBRIS
033409,001799: 
033410,001800:                                                                                                  #        WORK AREA
033411,001801:                                                                                                  #        STARAD - STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
033412,001802: 
033413,001803: 11,2312                                           COUNT*   $$/SR521                              
033414,001804: 13,2000                                           SETLOC   SR52/1                                
033415,001805: 13,2000                                           BANK                                           
033416,001806: 
033417,001807: 13,2252           04725        SR52.1             TC       MAKECADR                              
033418,001808: 13,2253           55777                           TS       QMIN                                  
033419,001809: 13,2254           06006                           TC       INTPRET                               
033420,001810: 13,2255           43234                           RTB      DAD                                   
033421,001811: 13,2256           45510                                    LOADTIME                              
033422,001812: 13,2257           26373                                    2.4SECDP                              
033423,001813: 13,2260           02356                           STORE    AOPTIME                               
033424,001814: 13,2261           43014                           BON      BON                                   
033425,001815: 13,2262           00705                                    TARG1FLG                              
033426,001816: 13,2263           26270                                    LEM52                                 
033427,001817: 13,2264           00706                                    TARG2FLG                              
033428,001818: 13,2265           26300                                    LMK52                                 
033429,001819: 13,2266           77650                           GOTO                                           
033430,001820: 13,2267           26321                                    STAR52                                
033431,001821: 13,2270           77745        LEM52              DLOAD                                          
033432,001822: 13,2271           02356                                    AOPTIME                               
033433,001823: 13,2272           34041                           STCALL   TDEC1                                 
033434,001824: 13,2273           27135                                    LEMCONIC                              
033435,001825: 13,2274           77775                           VLOAD                                          
033436,001826: 13,2275           00001                                    RATT                                  
033437,001827: 13,2276           77650                           GOTO                                           
033438,001828: 13,2277           26310                                    LMKLMCOM                              
033439,001829: 13,2300           71214        LMK52              BON      DLOAD                                 
033440,001830: 13,2301           04305                                    ADVTRK                                
033441,001831: 13,2302           54000                                    ADVTRACK                              
033442,001832: 13,2303           02356                                    AOPTIME                               
033443,001833: 13,2304           77624                           CALL                                           
033444,001834: 13,2305           26447                                    LALOTORV                              
033445,001835: 13,2306           77775                           VLOAD                                          
033446,001836: 13,2307           02152                                    ALPHAV                                
033447,001837: 13,2310           16766        LMKLMCOM           STODL    STAR                                  
033448,001838: 13,2311           02356                                    AOPTIME                               
033449,001839: 13,2312           34041                           STCALL   TDEC1                                 
033450,001840: 13,2313           27123                                    CSMCONIC                              
033451,001841: 13,2314           52375                           VLOAD    VSU                                   
033452,001842: 13,2315           02766                                    STAR                                  
033453,001843: 13,2316           00001                                    RATT                                  
033454,001844: 13,2317           52056                           UNIT     GOTO                                  
033455,001845: 13,2320           26334                                    COM52                                 
033456,001846: 13,2321           72131        STAR52             SSP      LXA,1                                 
033457,001847: 13,2322           00051                                    S1                                    
033458,001848: 13,2323           00000                                    0                                     
033459,001849: 13,2324           00304                                    STARIND                               
033460,001850: 13,2325           77700                           TIX,1                                          
033461,001851: 13,2326           26332                                    ST52ST                                
033462,001852: 13,2327           52175                           VLOAD    GOTO                                  
033463,001853: 13,2330           02617                                    STARSAV2                              
033464,001854: 13,2331           26334                                    COM52                                 
033465,001855: 13,2332           77775        ST52ST             VLOAD                                          
033466,001856: 13,2333           02611                                    STARSAV1                              
033467,001857: 13,2334           53521        COM52              MXV      UNIT                                  
033468,001858: 13,2335           01736                                    REFSMMAT                              
033469,001859: 13,2336           02766                           STORE    STAR                                  
033470,001860: 13,2337           45001                           SETPD    CALL                                  
033471,001861: 13,2340           00001                                    0                                     
033472,001862: 13,2341           47501                                    CDUTRIG                               #  COMPUTES SINES AND COSINES FOR CALCSXA
033473,001863: 13,2342           77624                           CALL                                           #        NOW EXPECT TO SEE THE CDU ANGLES.
033474,001864: 13,2343           46034                                    CALCSXA                               
033475,001865: 13,2344           77414                           BOFF     EXIT                                  
033476,001866: 13,2345           01750                                    CULTFLAG                              
033477,001867: 13,2346           26350                                    TRUN38                                
033478,001868: 13,2347           02366                           TC       SR52E1                                
033479,001869: 13,2350           45345        TRUN38             DLOAD    DSU                                   
033480,001870: 13,2351           02776                                    PAC                                   
033481,001871: 13,2352           26371                                    38TRDEG                               
033482,001872: 13,2353           71244                           BPL      DLOAD                                 
033483,001873: 13,2354           26361                                    SR52E22                               
033484,001874: 13,2355           02776                                    PAC                                   
033485,001875: 13,2356           51025                           DSU      BPL                                   
033486,001876: 13,2357           26375                                    20DEGSMN                              
033487,001877: 13,2360           26363                                    SR52E3                                
033488,001878: 13,2361           77776        SR52E22            EXIT                                           
033489,001879: 13,2362           02365                           TC       SR52E2                                
033490,001880: 13,2363           77776        SR52E3             EXIT                                           
033491,001881: 13,2364           25777                           INCR     QMIN                                  
033492,001882: 13,2365           25777        SR52E2             INCR     QMIN                                  
033493,001883: 13,2366           31777        SR52E1             CA       QMIN                                  
033494,001884: 13,2367           04702                           TC       SWCALL                                
033495,001885: 13,2370           25252 25254  38TRDEG            2DEC     .66666667                             #  CORESPONDS TO 50 DEGS IN TRUNION
033496,001886: 
033497,001887: 13,2372           00000 00360  2.4SECDP           2DEC     240        B-28                       
033498,001888: 
033499,001889: 13,2374           61740        20DEGSMN           DEC      -07199     B-14                       
033500,001890: 13,2375           77777                           DEC      -0         B-14                       
033501,001891: 
033502,001892:                                                                                                  #     THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
033503,001893:                                                                                                  #  A POINT ON THE GROUND TRACK 60 DEGRESS FORWARD OF THE LOCAL VERTICAL
033504,001894:                                                                                                  #  OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW
033505,001895: 
033506,001896: 26,2000                                           SETLOC   26P50S                                
033507,001897: 26,2000                                           BANK                                           
033508,001898: 26,2000           77601        ADVTRACK           SETPD                                          
033509,001899: 26,2001           00001                                    0                                     
033510,001900: 26,2002           41575                           VLOAD    PUSH                                  #  INITIALIZE FOR RP-TO-R
033511,001901: 26,2003           15326                                    UNITZ                                 #  UZ VEC IN PD 0-5
033512,001902: 26,2004           41434                           RTB      PUSH                                  #  TIME IN PD 6-7
033513,001903: 26,2005           45510                                    LOADTIME                              
033514,001904: 26,2006           36356                           STCALL   AOPTIME                               #  TIME ALSO IN AOPTIME FOR CSMCONIC
033515,001905: 26,2007           55343                                    RP-TO-R                               #  GET MOON ROTATION VEC IN REF
033516,001906: 26,2010           16766                           STODL    STAR                                  
033517,001907: 26,2011           02356                                    AOPTIME                               #  PICK UP TIME
033518,001908: 26,2012           34041                           STCALL   TDEC1                                 #  UPDATE STATE TO TIME
033519,001909: 26,2013           27123                                    CSMCONIC                              
033520,001910: 26,2014           47375                           VLOAD    VXV                                   
033521,001911: 26,2015           00007                                    VATT                                  
033522,001912: 26,2016           00001                                    RATT                                  
033523,001913: 26,2017           77656                           UNIT                                           
033524,001914: 26,2020           24031                           STOVL    24D                                   #  SAVE -UNIT(V X R) FOR 2ND ROTATION
033525,001915: 26,2021           00001                                    RATT                                  
033526,001916: 26,2022           57456                           UNIT     VCOMP                                 
033527,001917: 26,2023           41401                           SETPD    PUSH                                  #  PUSH LOS=-UNIT(RVEC) PD 0-5
033528,001918: 26,2024           00001                                    0                                     
033529,001919: 26,2025           77776                           EXIT                                           
033530,001920: 26,2026           31751                           CA       LANDMARK                              
033531,001921: 26,2027           75037                           MASK     SEVEN                                 #  GET NUMBER OF ADVANCE PERIODS
033532,001922: 26,2030           00006                           EXTEND                                         
033533,001923: 26,2031           75021                           MP       BIT11                                 #  GET N/16
033534,001924: 26,2032           56001                           XCH      L                                     
033535,001925: 26,2033           50120                           INDEX    FIXLOC                                
033536,001926: 26,2034           54036                           TS       30D                                   #  TEMP STORE N/16
033537,001927: 26,2035           06006                           TC       INTPRET                               
033538,001928: 26,2036           41335                           SLOAD    DMP                                   
033539,001929: 26,2037           00037                                    30D                                   
033540,001930: 26,2040           14107                                    MPERIOD                               
033541,001931: 26,2041           36356                           STCALL   AOPTIME                               #  ROTATE ANG ABOUT UR
033542,001932: 26,2042           54057                                    ROTA                                  
033543,001933: 26,2043           77775                           VLOAD                                          
033544,001934: 26,2044           00031                                    24D                                   #  PICK UP 2ND ROTATION AXIS
033545,001935: 26,2045           16766                           STODL    STAR                                  
033546,001936: 26,2046           14105                                    DP1/6                                 
033547,001937: 26,2047           77625                           DSU                                            
033548,001938: 26,2050           02356                                    AOPTIME                               #  2ND RAT ANGLE = 60 - A
033549,001939: 26,2051           36356                           STCALL   AOPTIME                               
033550,001940: 26,2052           54057                                    ROTA                                  #  GO ROTATE 2ND TIME
033551,001941: 26,2053           77775                           VLOAD                                          
033552,001942: 26,2054           00001                                    0                                     
033553,001943: 26,2055           36766                           STCALL   STAR                                  #  STORE FINAL LOS IN STAR
033554,001944: 26,2056           26334                                    COM52                                 #  RETURN TO SR52.1
033555,001945: 
033556,001946: 26,2057           73545        ROTA               DLOAD    SIN                                   
033557,001947: 26,2060           02356                                    AOPTIME                               
033558,001948: 26,2061           47315                           PDVL     VXV                                   #  PUSH 1/2SIN(A) PD 6-7
033559,001949: 26,2062           02766                                    STAR                                  #        UR VEC
033560,001950: 26,2063           00001                                    0                                     #        LOS
033561,001951: 26,2064           72561                           VXSC     VSL2                                  #  1/2SIN(A)(URXLOS) PD 6-11
033562,001952: 26,2065           50315                           PDVL     DOT                                   
033563,001953: 26,2066           02766                                    STAR                                  
033564,001954: 26,2067           00001                                    0                                     
033565,001955: 26,2070           72561                           VXSC     VSL2                                  
033566,001956: 26,2071           02766                                    STAR                                  
033567,001957: 26,2072           71525                           PDDL     COS                                   #  1/2(UR . LOS)UR 12-17
033568,001958: 26,2073           02356                                    AOPTIME                               
033569,001959: 26,2074           51315                           PDVL     BVSU                                  #  PUSH 1/2COS(A) 18-19
033570,001960: 26,2075           00015                                    12D                                   
033571,001961: 26,2076           00001                                    0                                     
033572,001962: 26,2077           76561                           VXSC     VSL1                                  #  UP 18-19
033573,001963: 26,2100           53255                           VAD      VAD                                   #  UP 12-17 UP 6-11
033574,001964: 26,2101           40256                           UNIT     SETPD                                 
033575,001965: 26,2102           00001                                    0                                     
033576,001966: 26,2103           43406                           PUSH     RVQ                                   
033577,001967: 
033578,001968: 26,2104           05252 25251  DP1/6              2DEC     .16666666                             
033579,001969: 
033580,001970: 26,2106           01414 06044  MPERIOD            2DEC     .047619                               #  APPROX LUNAR ROT ANG IN 2HRS X 16
033581,001971: 
033582,001972:                                                                                                  #  NAME - S52.3
033583,001973:                                                                                                  #  FUNCTION -    XSMD= UNIT(YSMD X ZSMD)
033584,001974:                                                                                                  #                YSMD= UNIT(V X R)
033585,001975:                                                                                                  #                ZSMD= UNIT(-R)
033586,001976:                                                                                                  #  CALL          DLOAD   CALL
033587,001977:                                                                                                  #                        TALIGN
033588,001978:                                                                                                  #                        S52.3
033589,001979:                                                                                                  #  INPUT -       TIME OF ALIGNMENT IN MPAC
033590,001980:                                                                                                  #  OUTPUT -      X,Y,ZSMD
033591,001981:                                                                                                  #  SUBROUTINES - CSMCONIC
033592,001982: 
033593,001983: 16,2000                                           SETLOC   P50S2                                 
033594,001984: 16,2000                                           BANK                                           
033595,001985: 
033596,001986: 16,2733                                           COUNT    15/S52.3                              
033597,001987: 16,2733           77620        S52.3              STQ                                            
033598,001988: 16,2734           00300                                    QMAJ                                  
033599,001989: 16,2735           34041                           STCALL   TDEC1                                 
033600,001990: 16,2736           27100                                    CSMPREC                               
033601,001991: 16,2737           77601                           SETPD                                          
033602,001992: 16,2740           00001                                    0                                     
033603,001993: 16,2741           57575                           VLOAD    VCOMP                                 
033604,001994: 16,2742           00001                                    RATT                                  
033605,001995: 16,2743           77656                           UNIT                                           
033606,001996: 16,2744           24323                           STOVL    ZSMD                                  
033607,001997: 16,2745           00007                                    VATT                                  
033608,001998: 16,2746           53435                           VXV      UNIT                                  
033609,001999: 16,2747           00001                                    RATT                                  
033610,002000: 16,2750           00315                           STORE    YSMD                                  
033611,002001: 16,2751           53435                           VXV      UNIT                                  
033612,002002: 16,2752           00323                                    ZSMD                                  
033613,002003: 16,2753           34307                           STCALL   XSMD                                  
033614,002004: 16,2754           00300                                    QMAJ                                  
033615,002005: 
033616,002006:                                                                                                  #  PROGRAM DESCRIPTION - R56 - ALTERNATE LOS SIGHTING MARK ROUTINE
033617,002007: 
033618,002008:                                                                                                  #  FUNCTIONAL DESCRIPTION
033619,002009: 
033620,002010:                                                                                                  #        TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54).  THE ASTRONAUT KNOWS THE
033621,002011:                                                                                                  #        COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE.  WHEN THE ASTRONAUT KEYS IN
033622,002012:                                                                                                  #        ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
033623,002013:                                                                                                  #        IN N92.
033624,002014: 
033625,002015:                                                                                                  #  CALLING SEQUENCE
033626,002016: 
033627,002017:                                                                                                  #        CALL
033628,002018:                                                                                                  #                R56
033629,002019: 
033630,002020:                                                                                                  #  SUBROUTINES CALLED
033631,002021: 
033632,002022:                                                                                                  #        A PORTION OF SXTMARK (VAC.AREA SEARCH)
033633,002023:                                                                                                  #        GOFLASH
033634,002024:                                                                                                  #        GOPERF1
033635,002025: 
033636,002026:                                                                                                  #  ERASABLE INITIALIZATION
033637,002027: 
033638,002028:                                                                                                  #        STARIND-INDEX TO STAR NUMBER
033639,002029: 
033640,002030:                                                                                                  #  OUTPUT
033641,002031: 
033642,002032:                                                                                                  #        MARKSTAT-INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
033643,002033:                                                                                                  #        BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
033644,002034:                                                                                                  #        ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS-
033645,002035:                                                                                                  #                VAC +2  CDUY
033646,002036:                                                                                                  #                VAC +3  CDUS
033647,002037:                                                                                                  #                VAC +4  CDUZ
033648,002038:                                                                                                  #                VAC +5  CDUT
033649,002039:                                                                                                  #                VAC +6  CDUX
033650,002040: 
033651,002041: 16,2755                                           COUNT*   $$/R56                                
033652,002042: 17,2000                                           SETLOC   P50S3                                 
033653,002043: 17,2000                                           BANK                                           
033654,002044: 17,2114           77420        R56                STQ      EXIT                                  
033655,002045: 17,2115           03501                                    R53EXIT                               
033656,002046: 17,2116           32204                           CAF      V06N94B                               
033657,002047: 17,2117           04676                           TC       BANKCALL                              
033658,002048: 17,2120           20720                           CADR     GOFLASH                               
033659,002049: 17,2121           04106                           TC       GOTOPOOH                              #  TERM.
033660,002050: 17,2122           02124                           TC       R56A                                  #  PROCEED - ANGLES OK
033661,002051: 17,2123           02116                           TC       -5                                    #  ENTER - NEW ANGLES
033662,002052: 17,2124           04676        R56A               TC       BANKCALL                              
033663,002053: 17,2125           16004                           CADR     SXTMARK    +2                         #  INHIBIR EXT VB ACT AND FIND VAC AREA
033664,002054: 
033665,002055: 17,2126           35035                           CAF      ZERO                                  
033666,002056: 17,2127           04676                           TC       BANKCALL                              
033667,002057: 17,2130           20703                           CADR     CLEANDSP                              
033668,002058: 
033669,002059: 17,2131           32203        R56A1              CAF      VB53                                  #  DISPLAY V53 REQUESTING ALTERNATE MARK
033670,002060: 17,2132           04676                           TC       BANKCALL                              
033671,002061: 17,2133           20564                           CADR     GOMARK2                               
033672,002062: 17,2134           14106                           TCF      GOTOPOOH                              #  V34-TERMINATE
033673,002063: 17,2135           12131                           TCF      R56A1                                 #  V33-DONT PROCEED-JUST ENTER TO MARK
033674,002064: 17,2136           06006                           TC       INTPRET                               
033675,002065: 17,2137           77745                           DLOAD                                          
033676,002066: 17,2140           03731                                    MRKBUF1    +3                         
033677,002067: 17,2141           16774                           STODL    SAC                                   
033678,002068: 17,2142           03733                                    MRKBUF1    +5                         
033679,002069: 17,2143           02776                           STORE    PAC                                   
033680,002070: 17,2144           77776                           EXIT                                           
033681,002071: 17,2145           00004                           INHINT                                         
033682,002072: 17,2146           00006                           EXTEND                                         
033683,002073: 17,2147           30025                           DCA      TIME2                                 
033684,002074: 17,2150           51330                           INDEX    MARKSTAT                              
033685,002075: 17,2151           52001                           DXCH     0                                     
033686,002076: 17,2152           30033                           CA       CDUY                                  #  ENTER-THIS IS A BACKUP SYSTEM MARK
033687,002077: 17,2153           51330                           INDEX    MARKSTAT                              
033688,002078: 17,2154           54002                           TS       2                                     
033689,002079: 17,2155           31773                           CA       SAC                                   
033690,002080: 17,2156           51330                           INDEX    MARKSTAT                              
033691,002081: 17,2157           54003                           TS       3                                     
033692,002082: 17,2160           30034                           CA       CDUZ                                  
033693,002083: 17,2161           51330                           INDEX    MARKSTAT                              
033694,002084: 17,2162           54004                           TS       4                                     
033695,002085: 17,2163           31775                           CA       PAC                                   
033696,002086: 17,2164           51330                           INDEX    MARKSTAT                              
033697,002087: 17,2165           54005                           TS       5                                     
033698,002088: 17,2166           30032                           CA       CDUX                                  
033699,002089: 17,2167           51330                           INDEX    MARKSTAT                              
033700,002090: 17,2170           54006                           TS       6                                     
033701,002091: 17,2171           00003                           RELINT                                         
033702,002092: 17,2172           05552                           TC       CLEARMRK                              #  ENABLE EXTENDED VERBS
033703,002093: 17,2173           34333                           CAF      OCT16                                 
033704,002094: 17,2174           04676                           TC       BANKCALL                              
033705,002095: 17,2175           21045                           CADR     GOPERF1                               
033706,002096: 17,2176           04106                           TC       GOTOPOOH                              #  TERM.
033707,002097: 17,2177           12201                           TCF      R56B                                  #  PROCEED-MARK COMPLETED
033708,002098: 17,2200           12126                           TCF      R56A       +2                         #  RECYCLE-DO ANOTHER MARK - LIKE REJECT
033709,002099: 17,2201           04676        R56B               TC       BANKCALL                              
033710,002100: 17,2202           31342                           CADR     R53C1                                 
033711,002101: 17,2203           15200        VB53               VN       05300                                 #  ALTERNATE MARK VERB
033712,002102: 17,2204           01536        V06N94B            VN       00694                                 
033713,002103: 15,2000                                           SETLOC   P50S                                  
033714,002104: 15,2000                                           BANK                                           
033715,002105: 
033716,002106: 15,2340           02607        PLANET             STORE    TSIGHT                                
033717,002107: 15,2341           45020                           STQ      CALL                                  
033718,002108: 15,2342           02777                                    QMIN                                  
033719,002109: 15,2343           30227                                    LOCSAM                                
033720,002110: 15,2344           77775                           VLOAD                                          
033721,002111: 15,2345           02736                                    VEARTH                                
033722,002112: 15,2346           24001                           STOVL    0D                                    
033723,002113: 15,2347           02744                                    VSUN                                  
033724,002114: 15,2350           26736                           STOVL    VEARTH                                
033725,002115: 15,2351           00001                                    0D                                    
033726,002116: 15,2352           02744                           STORE    VSUN                                  
033727,002117: 15,2353           77776        NOSAM              EXIT                                           
033728,002118: 15,2354           47713                           CS       HIGH9                                 
033729,002119: 15,2355           70735                           MASK     STARCODE                              
033730,002120: 15,2356           00006                           EXTEND                                         
033731,002121: 15,2357           76211                           MP       SIGHTSIX                              
033732,002122: 15,2360           56001                           XCH      L                                     
033733,002123: 15,2361           50304                           INDEX    STARIND                               
033734,002124: 15,2362           54302                           TS       BESTI                                 
033735,002125: 15,2363           10000                           CCS      A                                     
033736,002126: 15,2364           12401                           TCF      NOTPLAN                               
033737,002127: 15,2365           32431                           CAF      VNPLANV                               
033738,002128: 15,2366           04676                           TC       BANKCALL                              
033739,002129: 15,2367           20720                           CADR     GOFLASH                               
033740,002130: 15,2370           04106                           TC       GOTOPOOH                              
033741,002131: 15,2371           02373                           TC       +2                                    
033742,002132: 15,2372           02365                           TC       -5                                    
033743,002133: 15,2373           06006                           TC       INTPRET                               
033744,002134: 15,2374           74375                           VLOAD    VXSC                                  
033745,002135: 15,2375           03705                                    STARSAV3                              
033746,002136: 15,2376           32433                                    1/SQR3                                
033747,002137: 15,2377           52056                           UNIT     GOTO                                  
033748,002138: 15,2400           32424                                    CORPLAN                               
033749,002139: 15,2401           40000        NOTPLAN            CS       A                                     
033750,002140: 15,2402           62430                           AD       DEC227                                
033751,002141: 15,2403           00006                           EXTEND                                         
033752,002142: 15,2404           62415                           BZMF     CALSAM1                               
033753,002143: 15,2405           50304                           INDEX    STARIND                               
033754,002144: 15,2406           30302                           CA       BESTI                                 
033755,002145: 15,2407           50120                           INDEX    FIXLOC                                
033756,002146: 15,2410           54046                           TS       X1                                    
033757,002147: 15,2411           06006                           TC       INTPRET                               
033758,002148: 15,2412           52173                           VLOAD*   GOTO                                  
033759,002149: 15,2413           31765                                    CATLOG,1                              
033760,002150: 15,2414           32424                                    CORPLAN                               
033761,002151: 15,2415           06006        CALSAM1            TC       INTPRET                               
033762,002152: 15,2416           70740                           LXC,1    DLOAD*                                
033763,002153: 15,2417           00304                                    STARIND                               
033764,002154: 15,2420           00303                                    BESTI,1                               
033765,002155: 15,2421           76740                           LXC,1    VLOAD*                                
033766,002156: 15,2422           00154                                    MPAC                                  
033767,002157: 15,2423           02372                                    STARAD     -228D,1                    
033768,002158: 15,2424           53455        CORPLAN            VAD      UNIT                                  
033769,002159: 15,2425           03474                                    VEL/C                                 
033770,002160: 15,2426           77650                           GOTO                                           
033771,002161: 15,2427           02777                                    QMIN                                  
033772,002162: 15,2430           00343        DEC227             DEC      227        B-14                       
033773,002163: 15,2431           01530        VNPLANV            VN       0688                                  
033774,002164: 15,2432           22363 11623  1/SQR3             2DEC     .57735021                             
033775,002165: 
033776,002166: 

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