Source Code

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

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. 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 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.

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

032098,000440: 14,2061           31314        R52E               CA       SWSAMPLE                              #  IS OSS IN CMC MODE
032099,000441: 14,2062           00006                           EXTEND                                         
032100,000442: 14,2063           62074                           BZMF     R52F                                  #  NO
032101,000443: 14,2064           40074                           CS       STATE                                 #  YES- IS TRUNFLAG SET
032102,000444: 14,2065           75030                           MASK     BIT4                                  
032103,000445: 14,2066           10000                           CCS      A                                     
032104,000446: 14,2067           02133                           TC       R52EA                                 #  NO
032105,000447: 14,2070           31775                           CA       PAC                                   #  YES
032106,000448: 14,2071           55160                           TS       DESOPTT                               
032107,000449: 14,2072           31773        DOSHAFT            CA       SAC                                   
032108,000450: 14,2073           55161                           TS       DESOPTS                               
032109,000451: 14,2074           35052        R52F               CAF      .5SEC                                 #  WAIT 1/2 SEC
032110,000452: 14,2075           04676                           TC       BANKCALL                              
032111,000453: 14,2076           01732                           CADR     DELAYJOB                              
032112,000454: 14,2077           35022                           CAF      BIT10                                 
032113,000455: 14,2100           70075                           MASK     STATE      +1                         
032114,000456: 14,2101           10000                           CCS      A                                     
032115,000457: 14,2102           12113                           TCF      R52HA                                 #  YES, LEM
032116,000458: 14,2103           35015                           CAF      BIT15                                 #  NO
032117,000459: 14,2104           70103                           MASK     STATE      +7                         #  IS TERMIFLG SET
032118,000460: 14,2105           00006                           EXTEND                                         
032119,000461: 14,2106           12035                           BZF      R52C                                  #  NO
032120,000462: 14,2107           06006        R52Q               TC       INTPRET                               #  YES
032121,000463: 14,2110           77650                           GOTO                                           
032122,000464: 14,2111           02576                                    SAVQR52                               
032123,000465: 14,2112           77776        R52H               EXIT                                           #  LEM
032124,000466: 14,2113           04676        R52HA              TC       BANKCALL                              
032125,000467: 14,2114           76570                           CADR     R61CSM                                
032126,000468: 14,2115           30075                           CA       STATE      +1                         
032127,000469: 14,2116           75027                           MASK     BIT5                                  
032128,000470: 14,2117           00006                           EXTEND                                         #  TRACKFLG
032129,000471: 14,2120           12107                           BZF      R52Q                                  
032130,000472: 
032131,000473: 14,2121           40075                           CS       STATE      +1                         
032132,000474: 14,2122           75025                           MASK     BIT7                                  #  UPDATFLG
032133,000475: 14,2123           10000                           CCS      A                                     
032134,000476: 14,2124           12131                           TCF      R52SYNC                               
032135,000477: 
032136,000478: 14,2125           30101        R52I               CA       STATE      +5                         
032137,000479: 14,2126           75022                           MASK     BIT10                                 
032138,000480: 14,2127           10000                           CCS      A                                     
032139,000481: 14,2130           02040                           TC       R52D                                  #  PRFTRKAT = 1
032140,000482: 14,2131           32206        R52SYNC            CAF      1.8SEC                                #  MAKE UP FOR LOST TIME
032141,000483: 14,2132           12075                           TCF      R52F       +1                         
032142,000484: 

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.

032150,000492: 14,2133           32136        R52EA              CAF      TRUNLIM                               
032151,000493: 14,2134           55160                           TS       DESOPTT                               
032152,000494: 14,2135           02072                           TC       DOSHAFT                               
032153,000495: 14,2136           25252        TRUNLIM            OCT      25252                                 #  CORESPONDS TO 50 DEGS IN TRUNION
032154,000496: 
032155,000497: 14,2137           05574        R52J               TC       DOWNFLAG                              #  CLEAR TRUNFLAG
032156,000498: 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".

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

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