Source Code

These source-code files were from the printout at the MIT Museum, with many thanks to Deborah Douglas, the Museum's Curator of Science and Technology, for releasing it to us. The printout was digitally photographed by Paul Fjeld. A team of volunteers transcribed the source code manually from these images or, where appropriate, modified already-transcribed but similar source Colossus 249 (Apollo 9) source code to agree with the images from the printout. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP:  ASSEMBLE REVISION 055 OF AGC PROGRAM COMANCHE BY NASA 2021113-051
	10:28 APR.  1,1969
Note that the date is the date of the printout, not the date of the program revision.

032834,000002:                                                                                                  ## Copyright:   Public domain.
032835,000003:                                                                                                  ## Filename:    P51-P53.agc
032836,000004:                                                                                                  ## Purpose:     Part of the source code for Comanche, build 055. It
032837,000005:                                                                                                  ##              is part of the source code for the Command Module's
032838,000006:                                                                                                  ##              (CM) Apollo Guidance Computer (AGC), Apollo 11.
032839,000007:                                                                                                  ## Assembler:   yaYUL
032840,000008:                                                                                                  ## Reference:   pp. 737-784
032841,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>
032842,000010:                                                                                                  ## Website:     http://www.ibiblio.org/apollo.
032843,000011:                                                                                                  ## Mod history: 2009-05-12 RSB  Adapted from Colossus249 file of the same
032844,000012:                                                                                                  ##                              name, and Comanche 055 page images.
032845,000013:                                                                                                  ##              2009-05-20 RSB  Corrections: SETI/PDT -> SET1/PDT, 
032846,000014:                                                                                                  ##                              GOTOPOOH -> GOTOPOOH, R33EXIT -> R53EXIT,
032847,000015:                                                                                                  ##                              V853 -> VB53, R56A -> R56A1 (some places
032848,000016:                                                                                                  ##                              only), added missing R56A1 label, added a
032849,000017:                                                                                                  ##                              missing CAF in COARSTYP, corrected a SETLOC
032850,000018:                                                                                                  ##                              from P50S to P50S3.
032851,000019:                                                                                                  ##              2009-05-21 RSB  In COARFINE, a TC BANKCALL was corrected to
032852,000020:                                                                                                  ##                              TC PHASCHNG.  In R53C, a CADR GOFLASHR was
032853,000021:                                                                                                  ##                              corrected to CADR GOFLASH.
032854,000022:                                                                                                  ##              2016-12-10 RSB  All of the GOTOPOOH's should have been
032855,000023:                                                                                                  ##                              GOTOPOOH, and I've changed them back.
032856,000024:                                                                                                  ##              2016-12-11 RSB  Proofed comments with octopus/ProoferComments
032857,000025:                                                                                                  ##                              and fixed the errors found.
032858,000026:                                                                                                  ##              2017-01-18 RSB  Fixed comment-text errors noted while diff'ing
032859,000027:                                                                                                  ##                              vs Colossus 249.
032860,000028:                                                                                                  ##
032861,000029:                                                                                                  ## The contents of the "Comanche055" files, in general, are transcribed 
032862,000030:                                                                                                  ## from scanned documents. 
032863,000031:                                                                                                  ##
032864,000032:                                                                                                  ##       Assemble revision 055 of AGC program Comanche by NASA
032865,000033:                                                                                                  ##       2021113-051.  April 1, 1969.  
032866,000034:                                                                                                  ##
032867,000035:                                                                                                  ##       This AGC program shall also be referred to as Colossus 2A
032868,000036:                                                                                                  ##
032869,000037:                                                                                                  ##       Prepared by
032870,000038:                                                                                                  ##                       Massachusetts Institute of Technology
032871,000039:                                                                                                  ##                       75 Cambridge Parkway
032872,000040:                                                                                                  ##                       Cambridge, Massachusetts
032873,000041:                                                                                                  ##
032874,000042:                                                                                                  ##       under NASA contract NAS 9-4065.
032875,000043:                                                                                                  ##
032876,000044:                                                                                                  ## Refer directly to the online document mentioned above for further
032877,000045:                                                                                                  ## information.  Please report any errors to info@sandroid.org.
032878,000046: 

Page 737

032880,000048:                                                                                                  #  PROGRAM NAME - PROG52                 DATE - NOV 30, 1966
032881,000049:                                                                                                  #  MOD NO - 2                                    LOG SECTION - P51-P53
032882,000050:                                                                                                  #  MODIFICATION BY - LONSKE                      ASSEMBLY - SUNDISK REV 30
032883,000051: 
032884,000052:                                                                                                  #  FUNCTIONAL DESCRIPTION -
032885,000053: 
032886,000054:                                                                                                  #        ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT.  THE PRESENT IMU ORIENTATION IS KNOWN
032887,000055:                                                                                                  #        AND IS STORED IN REFSMMAT.  THE THREE POSSIBLE ORIENTATIONS MAY BE_
032888,000056: 
032889,000057:                                                                                                  #        (A)     PREFERRED ORIENTATION
032890,000058: 
032891,000059:                                                                                                  #                AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANUEVER.  THIS ORIENTATION MUST BE CALCULATED AND
032892,000060:                                                                                                  #                STORED BY A PREVIOUSLY SELECTED PROGRAM.
032893,000061: 
032894,000062:                                                                                                  #        (B)     NOMINAL ORIENTATION
032895,000063: 
032896,000064:                                                                                                  #                X   = UNIT ( Y   X Z   )
032897,000065:                                                                                                  #                -SM          -SM   -SM
032898,000066: 
032899,000067:                                                                                                  #                Y   = UNIT (V X R)
032900,000068:                                                                                                  #                -SM         -   -
032901,000069: 
032902,000070:                                                                                                  #                Z   = UNIT ( -R )
032903,000071:                                                                                                  #                -SM           -
032904,000072: 
032905,000073:                                                                                                  #                WHERE_
032906,000074: 
032907,000075:                                                                                                  #                R = THE GEOCENTRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032908,000076:                                                                                                  #                -
032909,000077: 
032910,000078:                                                                                                  #                V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032911,000079:                                                                                                  #                -
032912,000080: 
032913,000081:                                                                                                  #        (C)     REFSMMAT ORIENTATION
032914,000082: 
032915,000083:                                                                                                  #                THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION.  THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
032916,000084:                                                                                                  #                WAS LAST ALIGNED ONLY DUE TO GYRO DRIFT (I.E. NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPTION HAS OCCURED
032917,000085:                                                                                                  #                SINCE THE LAST ALIGNMENT).
032918,000086: 
032919,000087:                                                                                                  #        AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
032920,000088:                                                                                                  #        NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE.  CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
032921,000089:                                                                                                  #        COARSE ALIGN THE IMU.  THE STAR SELECTION ROUTINE, R56, IS THEN OPERATED.  IF 2 STARS ARE NOT AVAILABLE AN ALARM
032922,000090:                                                                                                  #        IS FLASHED TO NOTIFY THE ASTRONAUT.  AT THIS POINT THE ASTRONAUT WILL MANUEVER THE VEHICLE AND SELECT 2 STARS
032923,000091:                                                                                                  #        EITHER MANUALLY OR AUTOMATICALLY.  AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51.  IF
032924,000092:                                                                                                  #        THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED.  OTHERWISE P00 IS
032925,000093:                                                                                                  #        REQUESTED.
032926,000094: 
032927,000095:                                                                                                  #  CALLING SEQUENCE -
032928,000096: 
032929,000097:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.

Page 738

032931,000099: 
032932,000100:                                                                                                  #  SUBROUTINES CALLED -
032933,000101: 
032934,000102:                                                                                                  #        1. FLAGDOWN              7. S52.2               13. NEWMODEX
032935,000103:                                                                                                  #        2. R02BOTH               8. CAL53A              14. PRIOLARM
032936,000104:                                                                                                  #        3. GOPERF4               9. FLAGUP
032937,000105:                                                                                                  #        4. MATMOVE              10. R56
032938,000106:                                                                                                  #        5. GOFLASH              11. R51
032939,000107:                                                                                                  #        6. S52.3                12. GOPERF3
032940,000108: 
032941,000109:                                                                                                  #  NORMAL EXIT MODES -
032942,000110: 
032943,000111:                                                                                                  #        EXITS TO ENDOFJOB
032944,000112: 
032945,000113:                                                                                                  #  ALARM OR ABORT EXIT MODES -
032946,000114: 
032947,000115:                                                                                                  #        NONE
032948,000116: 
032949,000117:                                                                                                  #  OUTPUT -
032950,000118: 
032951,000119:                                                                                                  #        THE FOLLOWING MAY BE FLASHED ON THE DSKY
032952,000120:                                                                                                  #                1. IMU ORIENTATION CODE
032953,000121:                                                                                                  #                2. ALARM CODE 215 - PREFERRED IMU ORIENTATION NOT SPECIFIED
032954,000122:                                                                                                  #                3. TIME OF NEXT IGNITION
032955,000123:                                                                                                  #                4. GIMBAL ANGLES
032956,000124:                                                                                                  #                5. ALARM CODE 405 - TWO STARS NOT AVAILABLE
032957,000125:                                                                                                  #                6. PLEASE PERFORM P00
032958,000126:                                                                                                  #        THE MODE DISPLAY MAY BE CHANGED TO 20
032959,000127: 
032960,000128:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
032961,000129: 
032962,000130:                                                                                                  #        PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED.  IF IT HAS BEEN COMPUTED IT IS STORED IN
032963,000131:                                                                                                  #        XSMD, YSMD, ZSMD.
032964,000132: 
032965,000133:                                                                                                  #        RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
032966,000134: 
032967,000135:                                                                                                  #  DEBRIS -
032968,000136: 
032969,000137:                                                                                                  #        WORK AREA
032970,000138: 
032971,000139: 21,2042  15,2000               P54                =        PROG52                                
032972,000140: 33,3776                                           BANK     33                                    
032973,000141: 15,2000                                           SETLOC   P50S                                  
032974,000142: 15,2000                                           BANK                                           
032975,000143: 
032976,000144: 15,2000  30,2000                                  SBANK=   LOWSUPER                              
032977,000145: 15,2000  E5,1773                                  EBANK=   SAC                                   
032978,000146: 15,2000                                           COUNT    15/P52                                
032979,000147: 
032980,000148: 15,2000           05412        PROG52             TC       PHASCHNG                              
032981,000149: 15,2001           00254                           OCT      00254                                 
032982,000150: 15,2002           05560                           TC       DOWNFLAG                              
032983,000151: 15,2003           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1

Page 739

032985,000153: 15,2004           05560                           TC       DOWNFLAG                              
032986,000154: 15,2005           00031                           ADRES    TRACKFLG                              #  BIT 5 FLAG 1
032987,000155: 15,2006           04662                           TC       BANKCALL                              
032988,000156: 15,2007           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
032989,000157: 15,2010           35014                           CAF      BIT4                                  
032990,000158: 15,2011           70076                           MASK     STATE      +2                         #  IS PFRATFLG SET(PREFERRED ORIENTATION)
032991,000159: 15,2012           10000                           CCS      A                                     
032992,000160: 15,2013           02016                           TC       P52A                                  #  YES
032993,000161: 15,2014           35016                           CAF      BIT2                                  #  NO
032994,000162: 15,2015           02017                           TC       P52A       +1                         
032995,000163: 15,2016           35017        P52A               CAF      BIT1                                  
032996,000164: 15,2017           55132                           TS       OPTION2                               
032997,000165: 15,2020           35017        P52B               CAF      BIT1                                  
032998,000166: 15,2021           04662                           TC       BANKCALL                              #  FLASH OPTION CODE AND ORIENTATION CODE
032999,000167: 15,2022           21135                           CADR     GOPERF4R                              
033000,000168: 15,2023           04106                           TC       GOTOPOOH                              
033001,000169: 15,2024           02031                           TC       +5                                    
033002,000170: 15,2025           02020                           TC       P52B                                  #  NEW CODE - NEW ORIENTATION CODE INPUT
033003,000171: 15,2026           05412                           TC       PHASCHNG                              
033004,000172: 15,2027           00014                           OCT      00014                                 
033005,000173: 15,2030           05217                           TC       ENDOFJOB                              
033006,000174: 15,2031           31132                           CA       OPTION2                               
033007,000175: 15,2032           76214                           MASK     THREE                                 
033008,000176: 15,2033           50000                           INDEX    A                                     
033009,000177: 15,2034           02035                           TC       +1                                    
033010,000178: 15,2035           02041                           TC       P52T                                  #  L.S.
033011,000179: 15,2036           02110                           TC       P52J                                  #  PREF
033012,000180: 15,2037           02041                           TC       P52T                                  #  NOM
033013,000181: 15,2040           12120                           TCF      P52C                                  #  REF
033014,000182: 15,2041           00006        P52T               EXTEND                                         
033015,000183: 15,2042           35021                           DCA      NEG0                                  
033016,000184: 15,2043           53046                           DXCH     DSPTEM1                               
033017,000185: 15,2044           32157                           CAF      V06N34                                
033018,000186: 15,2045           04662                           TC       BANKCALL                              
033019,000187: 15,2046           20720                           CADR     GOFLASH                               
033020,000188: 15,2047           04106                           TC       GOTOPOOH                              
033021,000189: 15,2050           02052                           TC       +2                                    
033022,000190: 15,2051           02044                           TC       -5                                    
033023,000191: 15,2052           00006                           EXTEND                                         
033024,000192: 15,2053           31046                           DCA      DSPTEM1                               
033025,000193: 15,2054           00006                           EXTEND                                         
033026,000194: 15,2055           12057                           BZF      +2                                    
033027,000195: 15,2056           12062                           TCF      +4                                    
033028,000196: 
033029,000197: 15,2057           00006                           EXTEND                                         
033030,000198: 15,2060           30025                           DCA      TIME2                                 
033031,000199: 15,2061           53046                           DXCH     DSPTEM1                               
033032,000200: 15,2062           31132                           CA       OPTION2                               
033033,000201: 15,2063           75016                           MASK     BIT2                                  
033034,000202: 15,2064           10000                           CCS      A                                     

Page 740

033036,000204: 15,2065           12073                           TCF      +6                                    #  NOM
033037,000205: 15,2066           06006                           TC       INTPRET                               #  LS
033038,000206: 15,2067           77624                           CALL                                           
033039,000207: 15,2070           34531                                    P52LS                                 
033040,000208: 15,2071           77650                           GOTO                                           
033041,000209: 15,2072           32100                                    P52D                                  
033042,000210: 15,2073           06006                           TC       INTPRET                               
033043,000211: 15,2074           77745                           DLOAD                                          
033044,000212: 15,2075           01046                                    DSPTEM1                               
033045,000213: 15,2076           77624                           CALL                                           #  COMPUTE NOMINAL IMU
033046,000214: 15,2077           34661                                    S52.3                                 #        ORIENTATION
033047,000215: 15,2100           77624        P52D               CALL                                           #  READ VEHICLE ATTITUDE AND
033048,000216: 15,2101           22331                                    S52.2                                 #        COMPUTE GIMBAL ANGLES
033049,000217: 15,2102           77776                           EXIT                                           
033050,000218: 15,2103           32160                           CAF      VB06N22                               
033051,000219: 15,2104           04662                           TC       BANKCALL                              #  DISPLAY GIMBAL ANGLES
033052,000220: 15,2105           20720                           CADR     GOFLASH                               
033053,000221: 15,2106           04106                           TC       GOTOPOOH                              
033054,000222: 15,2107           02161                           TC       COARSTYP                              
033055,000223: 15,2110           06006        P52J               TC       INTPRET                               #  RECYCLE- VEHICLE HAS BEEN MENUEVERED
033056,000224: 15,2111           77650                           GOTO                                           
033057,000225: 15,2112           32100                                    P52D                                  
033058,000226: 15,2113           06006                           TC       INTPRET                               
033059,000227: 15,2114           77624                           CALL                                           #  DO COARSE ALIGN
033060,000228: 15,2115           30770                                    CAL53A                                #        ROUTINE
033061,000229: 15,2116           77414        CAL53RET           SET      EXIT                                  
033062,000230: 15,2117           01462                                    REFSMFLG                              
033063,000231: 15,2120           05412        P52C               TC       PHASCHNG                              
033064,000232: 15,2121           04024                           OCT      04024                                 
033065,000233: 15,2122           35025                           CAF      ALRM15                                
033066,000234: 15,2123           04662                           TC       BANKCALL                              
033067,000235: 15,2124           21045                           CADR     GOPERF1                               
033068,000236: 15,2125           04106                           TC       GOTOPOOH                              
033069,000237: 15,2126           02130                           TC       +2                                    #  V33
033070,000238: 15,2127           02142                           TC       P52F                                  #  E
033071,000239: 15,2130           06006                           TC       INTPRET                               
033072,000240: 15,2131           43234                           RTB      DAD                                   
033073,000241: 15,2132           45510                                    LOADTIME                              
033074,000242: 15,2133           32264                                    TSIGHT1                               
033075,000243: 15,2134           77624                           CALL                                           
033076,000244: 15,2135           30225                                    LOCSAM                                
033077,000245: 15,2136           77776                           EXIT                                           
033078,000246: 15,2137           04662        P52E               TC       BANKCALL                              #  DO STAR SELECTION
033079,000247: 15,2140           30333                           CADR     PICAPAR                               
033080,000248: 15,2141           02147                           TC       P52I                                  #  2 STARS NOT AVAILABLE
033081,000249: 15,2142           06006        P52F               TC       INTPRET                               #  2 STARS AVAILABLE
033082,000250: 15,2143           77624                           CALL                                           
033083,000251: 15,2144           30532                                    R51                                   
033084,000252: 15,2145           77776        ENDP50S            EXIT                                           
033085,000253: 15,2146           04106                           TC       GOTOPOOH                              

Page 741

033087,000255: 15,2147           05650        P52I               TC       ALARM                                 
033088,000256: 15,2150           00405                           OCT      405                                   
033089,000257: 15,2151           35050                           CAF      V05N09                                
033090,000258: 15,2152           04662                           TC       BANKCALL                              
033091,000259: 15,2153           20720                           CADR     GOFLASH                               
033092,000260: 15,2154           04106                           TC       GOTOPOOH                              
033093,000261: 15,2155           02142                           TC       P52F                                  #  PROCEED - DO FINE ALIGN-R51
033094,000262: 15,2156           02120                           TC       P52C                                  #  RECYCLE - VEHICLE HAS BEEN MANUEVERED                 
033095,000263: 15,2157           01442        V06N34             VN       0634                                  
033096,000264: 15,2160           01426        VB06N22            VN       00622                                 
033097,000265: 15,2161           35024        COARSTYP           CAF      OCT13                                 
033098,000266: 15,2162           04662                           TC       BANKCALL                              
033099,000267: 15,2163           21045                           CADR     GOPERF1                               
033100,000268: 15,2164           14106                           TCF      GOTOPOOH                              #  V34
033101,000269: 15,2165           12113                           TCF      P52J       +3                         #   NORMAL
033102,000270: 15,2166           06006                           TC       INTPRET                               #  GYRO COARSE
033103,000271: 15,2167           64375        GYCRS              VLOAD    MXV                                   
033104,000272: 15,2170           00307                                    XSMD                                  
033105,000273: 15,2171           01736                                    REFSMMAT                              
033106,000274: 15,2172           77656                           UNIT                                           
033107,000275: 15,2173           26714                           STOVL    XDC                                   
033108,000276: 15,2174           00315                                    YSMD                                  
033109,000277: 15,2175           53521                           MXV      UNIT                                  
033110,000278: 15,2176           01736                                    REFSMMAT                              
033111,000279: 15,2177           26722                           STOVL    YDC                                   
033112,000280: 15,2200           00323                                    ZSMD                                  
033113,000281: 15,2201           53521                           MXV      UNIT                                  
033114,000282: 15,2202           01736                                    REFSMMAT                              
033115,000283: 15,2203           36730                           STCALL   ZDC                                   
033116,000284: 15,2204           47205                                    CALCGTA                               
033117,000285: 15,2205           43014                           CLEAR    CLEAR                                 
033118,000286: 15,2206           01260                                    DRIFTFLG                              
033119,000287: 15,2207           01662                                    REFSMFLG                              
033120,000288: 15,2210           77776                           EXIT                                           
033121,000289: 15,2211           32244                           CAF      V16N20                                
033122,000290: 15,2212           04662                           TC       BANKCALL                              
033123,000291: 15,2213           20676                           CADR     GODSPR                                
033124,000292: 15,2214           32323                           CA       R55CDR                                
033125,000293: 15,2215           04662                           TC       BANKCALL                              
033126,000294: 15,2216           17206                           CADR     IMUPULSE                              
033127,000295: 15,2217           04662                           TC       BANKCALL                              
033128,000296: 15,2220           17577                           CADR     IMUSTALL                              
033129,000297: 15,2221           05757                           TC       CURTAINS                              
033130,000298: 15,2222           05412                           TC       PHASCHNG                              
033131,000299: 15,2223           04024                           OCT      04024                                 
033132,000300: 15,2224           06006                           TC       INTPRET                               
033133,000301: 15,2225           75160                           AXC,1    AXC,2                                 
033134,000302: 15,2226           00306                                    XSMD                                  
033135,000303: 15,2227           01735                                    REFSMMAT                              
033136,000304: 15,2230           77624                           CALL                                           

Page 742

033138,000306: 15,2231           31053                                    MATMOVE                               
033139,000307: 15,2232           43014                           CLEAR    SET                                   
033140,000308: 15,2233           01273                                    PFRATFLG                              
033141,000309: 15,2234           01462                                    REFSMFLG                              
033142,000310: 15,2235           77234                           RTB      VLOAD                                 
033143,000311: 15,2236           31275                                    SET1/PDT                              
033144,000312: 15,2237           11566                                    ZEROVEC                               
033145,000313: 15,2240           01472                           STORE    GCOMP                                 
033146,000314: 15,2241           52014                           SET      GOTO                                  
033147,000315: 15,2242           01060                                    DRIFTFLG                              
033148,000316: 15,2243           30655                                    R51K                                  
033149,000317: 15,2244           04024        V16N20             VN       1620                                  
033150,000318: 15,2245     5025               ALRM15             EQUALS   OCT15                                 
033151,000319: 16,2000                                           SETLOC   P50S2                                 
033152,000320: 16,2000                                           BANK                                           
033153,000321: 16,2530           01531        V06N89*            VN       0689                                  
033154,000322: 
033155,000323:                                                                                                  #  NAME - P52LS
033156,000324: 
033157,000325:                                                                                                  #  FUNCTION - TO DISPLAY THE LANDING SITE LATITUDE,
033158,000326:                                                                                                  #  LONGTITUDE AND ALTITUDE.  TO ACCEPT NEW DATA VIA
033159,000327:                                                                                                  #  THE KEYBOARD.  TO COMPUTE THE LANDING SITE
033160,000328:                                                                                                  #  ORIENTATION FOR P52 OR P54
033161,000329: 
033162,000330:                                                                                                  #  LET:
033163,000331:                                                                                                  #        RLS  = LANDING SITE VECTOR IN REF COORDINATES
033164,000332:                                                                                                  #        R    = CSM POSITION VECTOR IN REF COORDINATES
033165,000333:                                                                                                  #        V    = CSM VELOCITY VECTOR IN REF COORDINATES
033166,000334:                                                                                                  #  THEN THE LANDING SITE ORIENTATION IS:
033167,000335:                                                                                                  #        XSMD = UNIT(RLS)
033168,000336:                                                                                                  #        YSMD = UNIT(ZSMD*XSMD)
033169,000337:                                                                                                  #        ZSMD = UNIT((R*V)*RLS)
033170,000338: 
033171,000339:                                                                                                  #  CALL -        CALL
033172,000340:                                                                                                  #                        P52LS
033173,000341: 
033174,000342:                                                                                                  #  INPUTS-       DSPTEM1 = TIME OF ALIGNMENT
033175,000343:                                                                                                  #                RLS = LANDING SITE VECTOR IN MOON FIXED COORINATES
033176,000344: 
033177,000345:                                                                                                  #  OUTPUTS-      XSMD, YSMD, ZSMD
033178,000346: 
033179,000347:                                                                                                  #  SUBROUTINES-  RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
033180,000348: 
033181,000349:                                                                                                  #  DEBRIS-       VAC, SEE SUBROUTINES
033182,000350: 
033183,000351: 16,2531           43020        P52LS              STQ      SET                                   
033184,000352: 16,2532           00300                                    QMAJ                                  
033185,000353: 16,2533           01463                                    LUNAFLAG                              
033186,000354: 16,2534           77745                           DLOAD                                          
033187,000355: 16,2535           01046                                    DSPTEM1                               
033188,000356: 16,2536           02607                           STORE    TSIGHT                                
033189,000357: 16,2537           43175                           VLOAD    SET                                   
033190,000358: 16,2540           02026                                    RLS                                   
033191,000359: 16,2541           00462                                    ERADFLAG                              
033192,000360: 16,2542           14001                           STODL    0D                                    
033193,000361: 16,2543           02607                                    TSIGHT                                
033194,000362: 16,2544           34007                           STCALL   6D                                    

Page 743

033196,000364: 16,2545           55344                                    RP-TO-R                               
033197,000365: 16,2546           77742                           VSR2                                           
033198,000366: 16,2547           16152                           STODL    ALPHAV                                
033199,000367: 16,2550           02607                                    TSIGHT                                
033200,000368: 16,2551           77624                           CALL                                           
033201,000369: 16,2552           26370                                    LAT-LONG                              
033202,000370: 16,2553           77624                           CALL                                           
033203,000371: 16,2554           62365                                    LLASRD                                
033204,000372: 16,2555           77776                           EXIT                                           
033205,000373: 16,2556           32530        LSDISP             CAF      V06N89*                               
033206,000374: 16,2557           04662                           TC       BANKCALL                              
033207,000375: 16,2560           20720                           CADR     GOFLASH                               
033208,000376: 16,2561           04106                           TC       GOTOPOOH                              
033209,000377: 16,2562           02564                           TC       +2                                    
033210,000378: 16,2563           02556                           TC       LSDISP                                
033211,000379: 16,2564           06006                           TC       INTPRET                               
033212,000380: 16,2565           77624                           CALL                                           
033213,000381: 16,2566           62374                                    LLASRDA                               
033214,000382: 16,2567           45145                           DLOAD    CALL                                  
033215,000383: 16,2570           02607                                    TSIGHT                                
033216,000384: 16,2571           26441                                    LALOTORV                              
033217,000385: 16,2572           53575                           VLOAD    UNIT                                  
033218,000386: 16,2573           02152                                    ALPHAV                                
033219,000387: 16,2574           14307                           STODL    XSMD                                  
033220,000388: 16,2575           02607                                    TSIGHT                                
033221,000389: 16,2576           34041                           STCALL   TDEC1                                 
033222,000390: 16,2577           27071                                    CSMPREC                               
033223,000391: 16,2600           47375                           VLOAD    VXV                                   
033224,000392: 16,2601           00001                                    RATT                                  
033225,000393: 16,2602           00007                                    VATT                                  
033226,000394: 16,2603           53435                           VXV      UNIT                                  
033227,000395: 16,2604           00307                                    XSMD                                  
033228,000396: 16,2605           00323                           STORE    ZSMD                                  
033229,000397: 16,2606           53435                           VXV      UNIT                                  
033230,000398: 16,2607           00307                                    XSMD                                  
033231,000399: 16,2610           34315                           STCALL   YSMD                                  
033232,000400: 16,2611           00300                                    QMAJ                                  
033233,000401: 14,2000                                           SETLOC   P50S1                                 
033234,000402: 14,2000                                           BANK                                           
033235,000403: 
033236,000404:                                                                                                  #  NAME-         AUTOMATIC OPTICS POSITIONING ROUTINE
033237,000405: 
033238,000406:                                                                                                  #  FUNCTION-     (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
033239,000407:                                                                                                  #                (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
033240,000408: 
033241,000409:                                                                                                  #  CALLING SEQUENCE- CALL R52
033242,000410: 
033243,000411:                                                                                                  #  INPUT-        1.  TARG1FLG AND TARG2FLG- PRESET BY CALLER
033244,000412:                                                                                                  #                2.  RNDVZFLG AND TRACKFLG- PRESET BY CALLER
033245,000413:                                                                                                  #                3.  STAR CODE- PRESET BY CALLER. ALSO INPUT THROUGH DSKY
033246,000414:                                                                                                  #                4.  LAT, LONG AND ALT OF LANDMARK- INPUT THROUGH DSKY

Page 744

033248,000416:                                                                                                  #                5.  NO. OF MARKS (MARKINDX)- PRESET BY CALLER
033249,000417: 
033250,000418:                                                                                                  #  OUTPUT-       DRIVE SHAFT AND TRUNNION CDUS
033251,000419: 
033252,000420:                                                                                                  #  SUBROUTINES-  1.  FIXDELAY            7.  CLEANDSP
033253,000421:                                                                                                  #                2.  GOPERF1             8.  GODSPR
033254,000422:                                                                                                  #                3.  GOFLASH             9.  REFLASHR
033255,000423:                                                                                                  #                4.  R53                 10. R52.2
033256,000424:                                                                                                  #                5.  ALARM               11. R52.3
033257,000425:                                                                                                  #                6.  SR52.1
033258,000426: 
033259,000427: 14,2011                                           COUNT    15/R52                                
033260,000428: 
033261,000429: 14,2011           43020        R52                STQ      CLEAR                                 
033262,000430: 14,2012           02576                                    SAVQR52                               
033263,000431: 14,2013           04265                                    ADVTRK                                
033264,000432: 14,2014           77776        R52VRB             EXIT                                           
033265,000433: 14,2015           00006                           EXTEND                                         
033266,000434: 14,2016           30036                           DCA      CDUT                                  
033267,000435: 14,2017           53161                           DXCH     DESOPTT                               
033268,000436: 14,2020           06006                           TC       INTPRET                               
033269,000437: 14,2021           43131                           SSP      CLEAR                                 
033270,000438: 14,2022           01304                                    OPTIND                                
033271,000439: 14,2023           00000                                    0                                     
033272,000440: 14,2024           00271                                    R53FLAG                               
033273,000441: 14,2025           77776                           EXIT                                           
033274,000442: 14,2026           06006        R52A               TC       INTPRET                               
033275,000443: 14,2027           43014                           SET      BON                                   
033276,000444: 14,2030           00073                                    TRUNFLAG                              
033277,000445: 14,2031           00705                                    TARG1FLG                              
033278,000446: 14,2032           30112                                    R52H                                  
033279,000447: 14,2033           77414                           CLEAR    EXIT                                  
033280,000448: 14,2034           03660                                    TERMIFLG                              
033281,000449: 14,2035           31314        R52C               CA       SWSAMPLE                              #  IS OPTICS MODE IN AGC
033282,000450: 14,2036           00006                           EXTEND                                         
033283,000451: 14,2037           62140                           BZMF     R52M                                  #  MANUAL
033284,000452: 14,2040           04662        R52D               TC       BANKCALL                              #  AGC
033285,000453: 14,2041           26244                           CADR     SR52.1                                
033286,000454: 14,2042           12170                           TCF      R52L                                  #  GR 90 DEGREES
033287,000455: 14,2043           12133                           TCF      R52J                                  #  GR 50 DEGREES
033288,000456: 14,2044           05546                           TC       UPFLAG                                #  LS 50 DEGREES
033289,000457: 14,2045           00013                           ADRES    TRUNFLAG                              #  SET TRUNFLAG BIT 4 FLAG 0
033290,000458: 14,2046           35006        R52JA              CAF      BIT10                                 #  IS THIS A LEM
033291,000459: 14,2047           70075                           MASK     STATE      +1                         
033292,000460: 14,2050           10000                           CCS      A                                     
033293,000461: 14,2051           02061                           TC       R52E                                  #  YES
033294,000462: 14,2052           35012                           CAF      BIT6                                  #  NO, IS R53FLAG SET
033295,000463: 14,2053           70074                           MASK     STATE                                 
033296,000464: 14,2054           10000                           CCS      A                                     
033297,000465: 14,2055           12061                           TCF      R52E                                  #  YES

Page 745

033299,000467: 14,2056           32160                           CAF      V06N92                                #  NO
033300,000468: 14,2057           04662                           TC       BANKCALL                              
033301,000469: 14,2060           20676                           CADR     GODSPR                                
033302,000470: 14,2061           31314        R52E               CA       SWSAMPLE                              #  IS OSS IN CMC MODE
033303,000471: 14,2062           00006                           EXTEND                                         
033304,000472: 14,2063           62074                           BZMF     R52F                                  #  NO
033305,000473: 14,2064           40074                           CS       STATE                                 #  YES- IS TRUNFLAG SET
033306,000474: 14,2065           75014                           MASK     BIT4                                  
033307,000475: 14,2066           10000                           CCS      A                                     
033308,000476: 14,2067           02072                           TC       +3                                    #  NO
033309,000477: 14,2070           31775                           CA       PAC                                   #  YES
033310,000478: 14,2071           55160                           TS       DESOPTT                               
033311,000479: 14,2072           31773                           CA       SAC                                   
033312,000480: 14,2073           55161                           TS       DESOPTS                               
033313,000481: 14,2074           35036        R52F               CAF      .5SEC                                 #  WAIT 1/2 SEC
033314,000482: 14,2075           04662                           TC       BANKCALL                              
033315,000483: 14,2076           01732                           CADR     DELAYJOB                              
033316,000484: 14,2077           35006                           CAF      BIT10                                 
033317,000485: 14,2100           70075                           MASK     STATE      +1                         
033318,000486: 14,2101           10000                           CCS      A                                     
033319,000487: 14,2102           12113                           TCF      R52HA                                 #  YES, LEM
033320,000488: 14,2103           35001                           CAF      BIT15                                 #  NO
033321,000489: 14,2104           70103                           MASK     STATE      +7                         #  IS TERMIFLG SET
033322,000490: 14,2105           00006                           EXTEND                                         
033323,000491: 14,2106           12035                           BZF      R52C                                  #  NO
033324,000492: 14,2107           06006        R52Q               TC       INTPRET                               #  YES
033325,000493: 14,2110           77650                           GOTO                                           
033326,000494: 14,2111           02576                                    SAVQR52                               
033327,000495: 14,2112           77776        R52H               EXIT                                           #  LEM
033328,000496: 14,2113           04662        R52HA              TC       BANKCALL                              
033329,000497: 14,2114           76557                           CADR     R61CSM                                
033330,000498: 14,2115           30075                           CA       STATE      +1                         
033331,000499: 14,2116           75013                           MASK     BIT5                                  
033332,000500: 14,2117           00006                           EXTEND                                         #  TRACKFLG
033333,000501: 14,2120           12107                           BZF      R52Q                                  
033334,000502: 
033335,000503: 14,2121           40075                           CS       STATE      +1                         
033336,000504: 14,2122           75011                           MASK     BIT7                                  #  UPDATFLG
033337,000505: 14,2123           10000                           CCS      A                                     
033338,000506: 14,2124           12131                           TCF      R52SYNC                               
033339,000507: 
033340,000508: 14,2125           30101        R52I               CA       STATE      +5                         
033341,000509: 14,2126           75006                           MASK     BIT10                                 
033342,000510: 14,2127           10000                           CCS      A                                     
033343,000511: 14,2130           02040                           TC       R52D                                  #  PRFTRKAT = 1
033344,000512: 14,2131           32204        R52SYNC            CAF      1.8SEC                                #  MAKE UP FOR LOST TIME
033345,000513: 14,2132           12075                           TCF      R52F       +1                         
033346,000514: 
033347,000515: 14,2133           05560        R52J               TC       DOWNFLAG                              #  CLEAR TRUNFLAG
033348,000516: 14,2134           00013                           ADRES    TRUNFLAG                              #  BIT 4 FLAG 0

Page 746

033350,000518: 14,2135           05650                           TC       ALARM                                 #  SET 407 ALARM
033351,000519: 14,2136           00407                           OCT      407                                   
033352,000520: 14,2137           02046                           TC       R52JA                                 
033353,000521: 14,2140           35012        R52M               CAF      BIT6                                  #  IS R53FLAG SET
033354,000522: 14,2141           70074                           MASK     STATE                                 
033355,000523: 14,2142           10000                           CCS      A                                     
033356,000524: 14,2143           02074                           TC       R52F                                  #  YES
033357,000525: 14,2144           00004                           INHINT                                         #  NO
033358,000526: 14,2145           37661                           CAF      PRIO24                                
033359,000527: 14,2146           05147                           TC       FINDVAC                               
033360,000528: 14,2147  E5,1773                                  EBANK=   SAC                                   
033361,000529: 14,2147           02153 30065                     2CADR    R53JOB                                
033362,000530: 
033363,000531: 14,2151           00003                           RELINT                                         
033364,000532: 14,2152           12074                           TCF      R52F                                  
033365,000533: 14,2153           06006        R53JOB             TC       INTPRET                               
033366,000534: 14,2154           77624                           CALL                                           
033367,000535: 14,2155           31300                                    R53                                   
033368,000536: 14,2156           77776        ENDPLAC            EXIT                                           #  INTERPRETER RETURN TO ENDOFJOB (R22 USES)
033369,000537: 14,2157           05217                           TC       ENDOFJOB                              
033370,000538: 14,2160           01534        V06N92             VN       00692                                 
033371,000539: 14,2161           01531        V06N89A            VN       0689                                  
033372,000540: 14,2162           10464 12470  SHAXIS             2DEC     .5376381241 B-1                        
033373,000541: 
033374,000542: 14,2164           00000 00000                     2DEC     0          B-28                       
033375,000543: 
033376,000544: 14,2166           15373 11554                     2DEC     .8431766920 B-1                        
033377,000545: 
033378,000546: 14,2170           35006        R52L               CAF      BIT10                                 #  IS THIS A LEM
033379,000547: 14,2171           70075                           MASK     STATE      +1                         
033380,000548: 14,2172           10000                           CCS      A                                     
033381,000549: 14,2173           02133                           TC       R52J                                  #  YES
033382,000550: 14,2174           32203                           CAF      OCT404                                
033383,000551: 14,2175           04662                           TC       BANKCALL                              
033384,000552: 14,2176           21766                           CADR     PRIOLARM                              
033385,000553: 14,2177           12205                           TCF      TERM52                                #  TERMINATE
033386,000554: 14,2200           12074                           TCF      R52F                                  #  PROCEED
033387,000555: 14,2201           12074                           TCF      R52F                                  #  NO PROVISION FOR NEW DATA
033388,000556: 14,2202           15217                           TCF      ENDOFJOB                              
033389,000557: 
033390,000558: 14,2203           00404        OCT404             OCT      404                                   
033391,000559: 14,2204           00264        1.8SEC             DEC      180        B-14                       
033392,000560: 
033393,000561: 14,2205           05536        TERM52             TC       CLEARMRK                              
033394,000562: 
033395,000563: 14,2206           04662                           TC       BANKCALL                              #  KILL MARK SYSTEM
033396,000564: 14,2207           16063                           CADR     MKRELEAS                              
033397,000565: 

Page 747

033399,000567: 
033400,000568: 14,2210           35021                           CAF      ZERO                                  
033401,000569: 14,2211           55323                           TS       OPTCADR                               
033402,000570: 
033403,000571: 14,2212           04662                           TC       BANKCALL                              #  CLEAR OUT EXTENDED VERBS
033404,000572: 14,2213           20560                           CADR     KLEENEX                               
033405,000573: 
033406,000574: 14,2214           04106                           TC       GOTOPOOH                              #  NOW GO TO POO
033407,000575: 
033408,000576: 14,2215           43020        ADVORB             STQ      SET                                   #  SETS UP ADVANCED ORBIT TRACKING
033409,000577: 14,2216           02576                                    SAVQR52                               
033410,000578: 14,2217           04065                                    ADVTRK                                
033411,000579: 14,2220           43014                           SET      SET                                   
033412,000580: 14,2221           01463                                    LUNAFLAG                              
033413,000581: 14,2222           00462                                    ERADFLAG                              
033414,000582: 14,2223           77650                           GOTO                                           
033415,000583: 14,2224           30014                                    R52VRB                                
033416,000584: 

Page 748

033418,000586:                                                                                                  #  NAME - S50 ALIAS LOCSAM
033419,000587:                                                                                                  #  NAME- LOCSAM
033420,000588: 
033421,000589:                                                                                                  #  FUNCTION - TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
033422,000590:                                                                                                  #              IMU ALIGNMENT PROGRAMS
033423,000591: 
033424,000592:                                                                                                  #        DEFINE:
033425,000593: 
033426,000594:                                                                                                  #        RATT = POSITION VECTOR OF CM WRT PRIMARY BODY
033427,000595: 
033428,000596:                                                                                                  #        VATT = VELOCITY VECTOR OF CM WRT PRIMARY BODY
033429,000597: 
033430,000598:                                                                                                  #        RE = RADIUS OF EARTH
033431,000599: 
033432,000600:                                                                                                  #        RM = RADIUS OF MOON
033433,000601: 
033434,000602:                                                                                                  #        ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
033435,000603:                                                                                                  #                  WRT TO SUN OVER THE VELOCITY OF LIGHT
033436,000604: 
033437,000605:                                                                                                  #        REM = POSITION OF MOON WRT EARTH
033438,000606: 
033439,000607:                                                                                                  #        RES = POSITION OF SUN WRT EARTH
033440,000608: 
033441,000609:                                                                                                  #        C = VELOCITY OF LIGHT
033442,000610: 
033443,000611:                                                                                                  #                EARTH IS PRIMARY                        MOON IS PRIMARY
033444,000612:                                                                                                  #                        -                                       -
033445,000613:                                                                                                  #                VEARTH=-1(RATT)                         VEARTH=-1(REM+RATT)
033446,000614:                                                                                                  #                        -                                       -
033447,000615:                                                                                                  #                VMOON = 1(REM-RATT)                     VMOON =-1(RATT)
033448,000616:                                                                                                  #                        -                                       -
033449,000617:                                                                                                  #                VSUN  = 1(RES)                          VSUN  = 1(RES-REM)
033450,000618:                                                                                                  #                              -1
033451,000619:                                                                                                  #                CEARTH=COS(SIN  (RE/RATT)+5)            CEARTH=COS 5
033452,000620:                                                                                                  #                                                                      -1
033453,000621:                                                                                                  #                CMOON =COS 5                            CMOON =COS(SIN  CRM/RATT)+5)
033454,000622: 
033455,000623:                                                                                                  #                CSUN  =COS 15                           CSUN  =COS 15
033456,000624: 
033457,000625:                                                                                                  #                            VEL/C = VSUN X ECLIPOL + VATT/C
033458,000626: 
033459,000627:                                                                                                  #  CALL  -       DLOAD   CALL
033460,000628:                                                                                                  #                        DESIRED TIME
033461,000629:                                                                                                  #                        LOCSAM
033462,000630: 
033463,000631:                                                                                                  #  INPUTS -      MPAC = TIME
033464,000632: 
033465,000633:                                                                                                  #  OUTPUTS-      VEARTH, VMOON, VSUN, CEARTH, CMOON, CSUN, VEL/C
033466,000634: 
033467,000635:                                                                                                  #  SUBROUTINES-  LSPOS, CSMCONIC
033468,000636: 
033469,000637:                                                                                                  #  DEBRIS  -     VAC AREA, SEE SUBROUTINES
033470,000638: 

Page 749

033472,000640: 14,2000                                           SETLOC   P50S1                                 
033473,000641: 14,2000                                           BANK                                           
033474,000642: 
033475,000643: 14,2225                                           COUNT*   $$/S50                                
033476,000644: 
033477,000645: 14,2225  14,2225               LOCSAM             =        S50                                   
033478,000646: 14,2225           77620        S50                STQ                                            
033479,000647: 14,2226           00300                                    QMAJ                                  
033480,000648: 14,2227           36607                           STCALL   TSIGHT                                
033481,000649: 14,2230           54110                                    LSPOS                                 
033482,000650: 14,2231           26752                           STOVL    VMOON                                 
033483,000651: 14,2232           00003                                    2D                                    
033484,000652: 14,2233           16744                           STODL    VSUN                                  
033485,000653: 14,2234           02607                                    TSIGHT                                
033486,000654: 14,2235           34041                           STCALL   TDEC1                                 
033487,000655: 14,2236           27114                                    CSMCONIC                              
033488,000656: 14,2237           61131                           SSP      TIX,2                                 
033489,000657: 14,2240           00052                                    S2                                    
033490,000658: 14,2241           00000                                    0                                     
033491,000659: 14,2242           30265                                    MOONCNTR                              
033492,000660: 14,2243           52375        EARTCNTR           VLOAD    VSU                                   
033493,000661: 14,2244           02752                                    VMOON                                 
033494,000662: 14,2245           00001                                    RATT                                  
033495,000663: 14,2246           77656                           UNIT                                           
033496,000664: 14,2247           26752                           STOVL    VMOON                                 
033497,000665: 14,2250           00001                                    RATT                                  
033498,000666: 14,2251           57456                           UNIT     VCOMP                                 
033499,000667: 14,2252           16736                           STODL    VEARTH                                
033500,000668: 14,2253           32250                                    RSUBE                                 
033501,000669: 14,2254           77624                           CALL                                           
033502,000670: 14,2255           30325                                    OCCOS                                 
033503,000671: 14,2256           14017                           STODL    CEARTH                                
033504,000672: 14,2257           32266                                    CSS5                                  
033505,000673: 14,2260           24023                           STOVL    CMOON                                 
033506,000674: 14,2261           02744                                    VSUN                                  
033507,000675: 14,2262           77656                           UNIT                                           
033508,000676: 14,2263           36744                           STCALL   VSUN                                  
033509,000677: 14,2264           30312                                    ENDSAM                                
033510,000678: 14,2265           40575        MOONCNTR           VLOAD    VSR8                                  
033511,000679: 14,2266           02752                                    VMOON                                 
033512,000680: 14,2267           51362                           VSR1     BVSU                                  
033513,000681: 14,2270           02744                                    VSUN                                  
033514,000682: 14,2271           77656                           UNIT                                           
033515,000683: 14,2272           26744                           STOVL    VSUN                                  
033516,000684: 14,2273           02752                                    VMOON                                 
033517,000685: 14,2274           53455                           VAD      UNIT                                  
033518,000686: 14,2275           00001                                    RATT                                  
033519,000687: 14,2276           77676                           VCOMP                                          
033520,000688: 14,2277           26736                           STOVL    VEARTH                                

Page 750

033522,000690: 
033523,000691: 14,2300           00001                                    RATT                                  
033524,000692: 14,2301           57456                           UNIT     VCOMP                                 
033525,000693: 14,2302           16752                           STODL    VMOON                                 
033526,000694: 14,2303           32246                                    RSUBM                                 
033527,000695: 14,2304           77624                           CALL                                           
033528,000696: 14,2305           30325                                    OCCOS                                 
033529,000697: 14,2306           14023                           STODL    CMOON                                 
033530,000698: 14,2307           32266                                    CSS5                                  
033531,000699: 14,2310           24017                           STOVL    CEARTH                                
033532,000700: 14,2311           02744                                    VSUN                                  
033533,000701: 14,2312           77635        ENDSAM             VXV                                            
033534,000702: 14,2313           32256                                    ECLIPOL                               
033535,000703: 14,2314           27474                           STOVL    VEL/C                                 
033536,000704: 14,2315           00007                                    VATT                                  
033537,000705: 14,2316           53361                           VXSC     VAD                                   
033538,000706: 14,2317           32254                                    1/C                                   
033539,000707: 14,2320           03474                                    VEL/C                                 
033540,000708: 14,2321           17474                           STODL    VEL/C                                 
033541,000709: 14,2322           32270                                    CSSUN                                 
033542,000710: 14,2323           34021                           STCALL   CSUN                                  
033543,000711: 14,2324           00300                                    QMAJ                                  
033544,000712: 14,2325           70471        OCCOS              DDV      SR1                                   
033545,000713: 14,2326           00045                                    36D                                   
033546,000714: 14,2327           43336                           ASIN     DAD                                   
033547,000715: 14,2330           32252                                    5DEGREES                              
033548,000716: 14,2331           70546                           COS      SR1                                   
033549,000717: 14,2332           77616                           RVQ                                            
033550,000718: 15,2000                                           SETLOC   P50S                                  
033551,000719: 15,2000                                           BANK                                           
033552,000720: 15,2245           00065 01265  RSUBM              2DEC     1738090    B-29                       #  MOON RADIUS IN METERS
033553,000721: 
033554,000722: 15,2247           00302 24533  RSUBE              2DEC     6378166    B-29                       
033555,000723: 
033556,000724: 15,2251           00343 21616  5DEGREES           2DEC     .013888889                            #  SCALED IN REVS
033557,000725: 
033558,000726: 15,2253           00000 13143  1/C                2DEC     .000042699 B-1                        #  *
033559,000727: 
033560,000728: 15,2255           00000 00000  ECLIPOL            2DEC     0          B-28                       #  *
033561,000729: 
033562,000730: 15,2257           77777 53231                     2DEC     -.00007896 B-1                        #  *
033563,000731: 
033564,000732: 15,2261           00001 17570                     2DEC     .00018209  B-1                        #  *             * FOR USE BY CSM ONLY
033565,000733: 
033566,000734: 15,2263           00001 16700  TSIGHT1            2DEC     24000      B-28                       
033567,000735: 
033568,000736: 15,2265                        CEARTH             =        14D                                   
033569,000737: 15,2265                        CSUN               =        16D                                   
033570,000738: 15,2265                        CMOON              =        18D                                   
033571,000739: 15,2265           07760 14473  CSS5               2DEC     .2490475                              #  (COS 5)/4

Page 751

033573,000741: 15,2267           07564 15042  CSSUN              2DEC     .24148                                #  COS 15  /4
033574,000742: 

Page 752

033576,000744:                                                                                                  #  PROGRAM NAME - PICAPAR        DATE DEC 20 66
033577,000745:                                                                                                  #  MOD 1                         LOG SECTION P51-P53
033578,000746:                                                                                                  #                                ASSEMBLY  SUNDISK  REV40
033579,000747:                                                                                                  #  BY KEN VINCENT
033580,000748: 
033581,000749:                                                                                                  #  FUNCTION
033582,000750:                                                                                                  #        THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
033583,000751:                                                                                                  #        WITH RESPECT TO INERTIAL SPACE.  IT THEN COMPUTES THE SHAFT AXIS (SAX)
033584,000752:                                                                                                  #        WITH RESPECT TO REFERENCE INERTIAL.  EACH STAR IN THE CATALOG IS TESTED
033585,000753:                                                                                                  #        TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH, SUN OR MOON.  IF A
033586,000754:                                                                                                  #        STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STAR OF LOWER INDEX.
033587,000755:                                                                                                  #        THE PAIRED STAR IS TESTED FOR OCCULTATION.  PAIRS OF STARS THAT PASS
033588,000756:                                                                                                  #        THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION.  A PAIR OF STARS
033589,000757:                                                                                                  #        HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 66 DEGREES
033590,000758:                                                                                                  #        AND MORE THAN 40 DEGREES.  THOSE PAIRS OF STARS WITH GOOD SEPARATION
033591,000759:                                                                                                  #        ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW.  (WITHIN
033592,000760:                                                                                                  #        33 DEGREES OF SAX).  THE PAIR WITH MAXIMUM SEPARATION IS CHOSEN FROM
033593,000761:                                                                                                  #        THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
033594,000762: 
033595,000763:                                                                                                  #  CALLING SEQUENCE
033596,000764:                                                                                                  #        L       TC      BANKCALL
033597,000765:                                                                                                  #        L+1     CADR    PICAPAR
033598,000766:                                                                                                  #        L+2     ERROR RETURN - NO STARS IN FIELD OF VIEW
033599,000767:                                                                                                  #        L+3     NORMAL RETURN
033600,000768: 
033601,000769:                                                                                                  #  OUTPUT
033602,000770:                                                                                                  #        BESTI, BESTJ - SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
033603,000771:                                                                                                  #        VFLAG - FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW
033604,000772: 
033605,000773:                                                                                                  #  INITIALIZATION
033606,000774:                                                                                                  #        1)      A CALL TO LOCSAM MUST BE MADE
033607,000775:                                                                                                  #        2)      VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TOO APPROXIMATE TIME OF
033608,000776:                                                                                                  #                SIGHTINGS.
033609,000777: 
033610,000778:                                                                                                  #  DEBRIS
033611,000779:                                                                                                  #        WORK AREA
033612,000780:                                                                                                  #        X,Y,ZNB
033613,000781:                                                                                                  #        SINCDU, COSCDU
033614,000782:                                                                                                  #        STARAD - STAR +5
033615,000783: 
033616,000784: 15,2271                                           COUNT    14/PICAP                              
033617,000785: 
033618,000786: 14,2000                                           SETLOC   P50S1                                 
033619,000787: 14,2000                                           BANK                                           
033620,000788: 14,2333           04711        PICAPAR            TC       MAKECADR                              
033621,000789: 14,2334           55777                           TS       QMIN                                  
033622,000790: 14,2335           06006                           TC       INTPRET                               
033623,000791: 14,2336           77624                           CALL                                           
033624,000792: 14,2337           47477                                    CDUTRIG                               
033625,000793: 14,2340           77624                           CALL                                           
033626,000794: 14,2341           34612                                    CALCSMSC                              

Page 753

033628,000796: 14,2342           77601                           SETPD                                          
033629,000797: 14,2343           00001                                    0                                     
033630,000798: 14,2344           71214                           SET      DLOAD                                 #  VFLAG = 1
033631,000799: 14,2345           01465                                    VFLAG                                 
033632,000800: 14,2346           11566                                    DPZERO                                
033633,000801: 14,2347           24303                           STOVL    BESTI                                 
033634,000802: 14,2350           02714                                    XNB                                   
033635,000803: 14,2351           63361                           VXSC     PDVL                                  
033636,000804: 14,2352           30511                                    SIN33                                 
033637,000805: 14,2353           02730                                    ZNB                                   
033638,000806: 14,2354           74370                           AXT,1    VXSC                                  
033639,000807: 14,2355           00344                                    228D                                  #  X1 = 37 X 6 + 6
033640,000808: 14,2356           30513                                    COS33                                 
033641,000809: 14,2357           77655                           VAD                                            
033642,000810: 14,2360           53505                           VXM      UNIT                                  
033643,000811: 14,2361           01736                                    REFSMMAT                              
033644,000812: 14,2362           02760                           STORE    SAX                                   #  SAX = SHAFT AXIS
033645,000813: 14,2363           66331                           SSP      SSP                                   #  S1 = S2 = 6
033646,000814: 14,2364           00051                                    S1                                    
033647,000815: 14,2365           00006                                    6                                     
033648,000816: 14,2366           00052                                    S2                                    
033649,000817: 14,2367           00006                                    6                                     
033650,000818: 14,2370           52100        PIC1               TIX,1    GOTO                                  #  MAJOR STAR
033651,000819: 14,2371           30373                                    PIC2                                  
033652,000820: 14,2372           30522                                    PICEND                                
033653,000821: 14,2373           45173        PIC2               VLOAD*   CALL                                  
033654,000822: 14,2374           31761                                    CATLOG,1                              
033655,000823: 14,2375           30466                                    OCCULT                                
033656,000824: 14,2376           73014                           BON      LXA,2                                 
033657,000825: 14,2377           01710                                    CULTFLAG                              
033658,000826: 14,2400           30370                                    PIC1                                  
033659,000827: 14,2401           00046                                    X1                                    
033660,000828: 14,2402           52104        PIC3               TIX,2    GOTO                                  
033661,000829: 14,2403           30405                                    PIC4                                  
033662,000830: 14,2404           30370                                    PIC1                                  
033663,000831: 14,2405           45173        PIC4               VLOAD*   CALL                                  
033664,000832: 14,2406           46016                                    CATLOG,2                              
033665,000833: 14,2407           30466                                    OCCULT                                
033666,000834: 14,2410           76614                           BON      VLOAD*                                
033667,000835: 14,2411           01710                                    CULTFLAG                              
033668,000836: 14,2412           30402                                    PIC3                                  
033669,000837: 14,2413           31761                                    CATLOG,1                              
033670,000838: 14,2414           45237                           DOT*     DSU                                   
033671,000839: 14,2415           46016                                    CATLOG,2                              
033672,000840: 14,2416           30515                                    CSS66                                 #  SEPERATION LESS THAN 66 DEG.
033673,000841: 14,2417           43240                           BMN      DAD                                   
033674,000842: 14,2420           30402                                    PIC3                                  
033675,000843: 14,2421           30517                                    CSS6640                               #  SEPERATION MORE THAN 40 DEG.
033676,000844: 14,2422           77644                           BPL                                            
033677,000845: 14,2423           30402                                    PIC3                                  

Page 754

033679,000847: 14,2424           50373                           VLOAD*   DOT                                   
033680,000848: 14,2425           31761                                    CATLOG,1                              
033681,000849: 14,2426           02760                                    SAX                                   
033682,000850: 14,2427           50025                           DSU      BMN                                   #  MAJOR STAR IN CONE
033683,000851: 14,2430           30521                                    CSS33                                 
033684,000852: 14,2431           30370                                    PIC1                                  
033685,000853: 14,2432           50373                           VLOAD*   DOT                                   
033686,000854: 14,2433           46016                                    CATLOG,2                              
033687,000855: 14,2434           02760                                    SAX                                   
033688,000856: 14,2435           51025                           DSU      BPL                                   
033689,000857: 14,2436           30521                                    CSS33                                 
033690,000858: 14,2437           30442                                    STRATGY                               
033691,000859: 14,2440           77650                           GOTO                                           
033692,000860: 14,2441           30402                                    PIC3                                  
033693,000861: 14,2442           77614        STRATGY            BONCLR                                         
033694,000862: 14,2443           01605                                    VFLAG                                 
033695,000863: 14,2444           30461                                    NEWPAR                                
033696,000864: 14,2445           65120                           XCHX,1   XCHX,2                                
033697,000865: 14,2446           00302                                    BESTI                                 
033698,000866: 14,2447           00303                                    BESTJ                                 
033699,000867: 14,2450           47773        STRAT              VLOAD*   DOT*                                  
033700,000868: 14,2451           31761                                    CATLOG,1                              
033701,000869: 14,2452           46016                                    CATLOG,2                              
033702,000870: 14,2453           43006                           PUSH     BOFINV                                
033703,000871: 14,2454           01545                                    VFLAG                                 
033704,000872: 14,2455           30445                                    STRAT      -3                         
033705,000873: 14,2456           45345                           DLOAD    DSU                                   
033706,000874: 14,2457           77644                           BPL                                            
033707,000875: 14,2460           30402                                    PIC3                                  
033708,000876: 14,2461           67130        NEWPAR             SXA,1    SXA,2                                 
033709,000877: 14,2462           00302                                    BESTI                                 
033710,000878: 14,2463           00303                                    BESTJ                                 
033711,000879: 14,2464           77650                           GOTO                                           
033712,000880: 14,2465           30402                                    PIC3                                  
033713,000881: 14,2466           51321        OCCULT             MXV      BVSU                                  
033714,000882: 14,2467           02736                                    CULTRIX                               
033715,000883: 14,2470           00017                                    CSS                                   
033716,000884: 14,2471           77654                           BZE                                            
033717,000885: 14,2472           30505                                    CULTED                                
033718,000886: 14,2473           75240                           BMN      SIGN                                  
033719,000887: 14,2474           30505                                    CULTED                                
033720,000888: 14,2475           00160                                    MPAC       +3                         
033721,000889: 14,2476           75240                           BMN      SIGN                                  
033722,000890: 14,2477           30505                                    CULTED                                
033723,000891: 14,2500           00162                                    MPAC       +5                         
033724,000892: 14,2501           43040                           BMN      CLRGO                                 
033725,000893: 14,2502           30505                                    CULTED                                
033726,000894: 14,2503           01630                                    CULTFLAG                              
033727,000895: 14,2504           00052                                    QPRET                                 
033728,000896: 14,2505           77614        CULTED             SETGO                                          

Page 755

033730,000898: 14,2506           01430                                    CULTFLAG                              
033731,000899: 14,2507           00052                                    QPRET                                 
033732,000900: 14,2510  0000016               CSS                =        CEARTH                                
033733,000901: 14,2510           21150 25157  SIN33              2DEC     .5376381241                            
033734,000902: 
033735,000903: 14,2512           32766 22713  COS33              2DEC     .8431756920                            
033736,000904: 
033737,000905: 14,2514           01736 35137  CSS66              2DEC     .060480472                            #  (COS76)/4
033738,000906: 
033739,000907: 14,2516           73003 65403  CSS6640            2DEC     -.15602587                            #  (COS76 - COS30)/4
033740,000908: 
033741,000909: 14,2520           06233 26112  CSS33              2DEC     .197002688                            #  COS(1/2(76))/4
033742,000910: 
033743,000911: 14,2522           77414        PICEND             BOFF     EXIT                                  
033744,000912: 14,2523           01745                                    VFLAG                                 
033745,000913: 14,2524           30526                                    PICGXT                                
033746,000914: 14,2525           02530                           TC       PICBXT                                
033747,000915: 14,2526           77776        PICGXT             EXIT                                           
033748,000916: 14,2527           25777                           INCR     QMIN                                  
033749,000917: 14,2530           31777        PICBXT             CA       QMIN                                  
033750,000918: 14,2531           04666                           TC       SWCALL                                
033751,000919:                                                                                                  # V1             =       12D
033752,000920: 

Page 756

033754,000922:                                                                                                  #  NAME - R51    FINE ALIGN
033755,000923:                                                                                                  #  FUNCTION - TO ALIGN THE STABLE MEMBER TO REFSMMAT
033756,000924:                                                                                                  #  CALLING SEQ - CALL R51
033757,000925:                                                                                                  #  INPUT - BESTI, BESTJ (PAIR OF STAR NO)
033758,000926:                                                                                                  #  OUTPUT - GYRO TORQUE PULSES
033759,000927:                                                                                                  #  SUBROUTINES - R52, R54, R55 (SXTNB, NBSM, AXISGEN
033760,000928: 
033761,000929: 14,2532                                           COUNT    14/R51                                
033762,000930: 
033763,000931: 14,2532           77776        R51                EXIT                                           
033764,000932: 14,2533           35017                           CAF      BIT1                                  
033765,000933: 14,2534           54304                           TS       STARIND                               
033766,000934: 14,2535           54301                           TS       MARKINDX                              
033767,000935: 14,2536           06006        R51.2              TC       INTPRET                               
033768,000936: 14,2537           43014        R51.3              CLEAR    CLEAR                                 
033769,000937: 14,2540           00666                                    TARG2FLG                              
033770,000938: 14,2541           00665                                    TARG1FLG                              
033771,000939: 14,2542           77776                           EXIT                                           
033772,000940: 14,2543           05412                           TC       PHASCHNG                              
033773,000941: 14,2544           05024                           OCT      05024                                 #  RESTART GR 4 FOR R52-R53
033774,000942: 14,2545           13000                           OCT      13000                                 
033775,000943: 14,2546           50304                           INDEX    STARIND                               
033776,000944: 14,2547           30302                           CA       BESTI                                 
033777,000945: 14,2550           00006                           EXTEND                                         
033778,000946: 14,2551           72713                           MP       1/6TH                                 
033779,000947: 14,2552           54735                           TS       STARCODE                              
033780,000948: 14,2553           32712        R51DSP             CAF      V01N70                                
033781,000949: 14,2554           04662                           TC       BANKCALL                              
033782,000950: 14,2555           21057                           CADR     GOFLASHR                              
033783,000951: 14,2556           04106                           TC       GOTOPOOH                              
033784,000952: 14,2557           02564                           TC       +5                                    
033785,000953: 14,2560           02553                           TC       -5                                    
033786,000954: 14,2561           36211                           CAF      SIX                                   
033787,000955: 14,2562           05526                           TC       BLANKET                               
033788,000956: 14,2563           15217                           TCF      ENDOFJOB                              
033789,000957: 14,2564           03366                           TC       CHKSCODE                              
033790,000958: 14,2565           04400                           TC       FALTON                                
033791,000959: 14,2566           02553                           TC       R51DSP                                
033792,000960: 14,2567           06006                           TC       INTPRET                               
033793,000961: 14,2570           45034                           RTB      CALL                                  
033794,000962: 14,2571           45510                                    LOADTIME                              
033795,000963: 14,2572           32340                                    PLANET                                
033796,000964: 14,2573           72131                           SSP      LXA,1                                 
033797,000965: 14,2574           00051                                    S1                                    
033798,000966: 14,2575           00000                                    0                                     
033799,000967: 14,2576           00304                                    STARIND                               
033800,000968: 14,2577           77700                           TIX,1                                          
033801,000969: 14,2600           30603                                    R51ST                                 
033802,000970: 14,2601           36617                           STCALL   STARSAV2                              #  2ND STAR
033803,000971: 14,2602           30604                                    R51ST      +1                         
033804,000972: 14,2603           02611        R51ST              STORE    STARSAV1                              #  1ST STAR

Page 757

033806,000974: 14,2604           77776                           EXIT                                           
033807,000975: 14,2605           41011                           CS       MODREG                                #  IS THIS P54
033808,000976: 14,2606           62711                           AD       OCT66                                 
033809,000977: 14,2607           00006                           EXTEND                                         
033810,000978: 14,2610           12704                           BZF      R51B                                  #  YES
033811,000979: 14,2611           06006                           TC       INTPRET                               
033812,000980: 14,2612           77624                           CALL                                           
033813,000981: 14,2613           30011                                    R52                                   #  AOP WILL MAKE CALLS TO SIGHTING
033814,000982: 14,2614           77624        R51A               CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
033815,000983: 14,2615           36022                                    SXTSM                                 
033816,000984: 14,2616           02617                           STORE    STARSAV2                              
033817,000985: 14,2617           77776                           EXIT                                           
033818,000986: 14,2620           04662                           TC       BANKCALL                              
033819,000987: 14,2621           16063                           CADR     MKRELEAS                              
033820,000988: 14,2622           06006                           TC       INTPRET                               
033821,000989: 14,2623           45145                           DLOAD    CALL                                  
033822,000990: 14,2624           02607                                    TSIGHT                                
033823,000991: 14,2625           32340                                    PLANET                                
033824,000992: 14,2626           77776                           EXIT                                           
033825,000993: 14,2627           10304                           CCS      STARIND                               
033826,000994: 14,2630           02671                           TC       R51.4                                 
033827,000995: 14,2631           06006                           TC       INTPRET                               
033828,000996: 14,2632           53521                           MXV      UNIT                                  
033829,000997: 14,2633           01736                                    REFSMMAT                              
033830,000998: 14,2634           02736                           STORE    STARAD                                
033831,000999: 14,2635           77775                           VLOAD                                          
033832,001000: 14,2636           02617                                    STARSAV2                              
033833,001001: 14,2637           24007                           STOVL    6D                                    
033834,001002: 14,2640           02611                                    STARSAV1                              
033835,001003: 14,2641           24015                           STOVL    12D                                   
033836,001004: 14,2642           02601                                    PLANVEC                               
033837,001005: 14,2643           36744                           STCALL   STARAD     +6                         
033838,001006: 14,2644           30714                                    R54                                   #  STAR DATA TEST
033839,001007: 14,2645           45014                           BOFF     CALL                                  
033840,001008: 14,2646           00354                                    FREEFLAG                              
033841,001009: 14,2647           30655                                    R51K                                  
033842,001010: 14,2650           47401                                    AXISGEN                               
033843,001011: 14,2651           77624                           CALL                                           
033844,001012: 14,2652           32271                                    R55                                   #  GYRO TORQUE
033845,001013: 14,2653           77614                           CLEAR                                          
033846,001014: 14,2654           01273                                    PFRATFLG                              
033847,001015: 14,2655           77776        R51K               EXIT                                           
033848,001016: 14,2656           35771                           CAF      OCT14                                 
033849,001017: 14,2657           04662                           TC       BANKCALL                              
033850,001018: 14,2660           21045                           CADR     GOPERF1                               
033851,001019: 14,2661           04106                           TC       GOTOPOOH                              
033852,001020: 14,2662           02664                           TC       +2                                    #  V33
033853,001021: 14,2663           02666                           TC       +3                                    
033854,001022: 14,2664           04662                           TC       BANKCALL                              
033855,001023: 14,2665           32120                           CADR     P52C                                  

Page 758

033857,001025: 14,2666           06006                           TC       INTPRET                               
033858,001026: 14,2667           77650                           GOTO                                           
033859,001027: 14,2670           32145                                    ENDP50S                               
033860,001028: 14,2671           06006        R51.4              TC       INTPRET                               
033861,001029: 14,2672           53521                           MXV      UNIT                                  
033862,001030: 14,2673           01736                                    REFSMMAT                              
033863,001031: 14,2674           26601                           STOVL    PLANVEC                               
033864,001032: 14,2675           02617                                    STARSAV2                              
033865,001033: 14,2676           02611                           STORE    STARSAV1                              
033866,001034: 14,2677           77731                           SSP                                            
033867,001035: 14,2700           00305                                    STARIND                               
033868,001036: 14,2701           00000                                    0                                     
033869,001037: 14,2702           77650                           GOTO                                           
033870,001038: 14,2703           30537                                    R51.3                                 
033871,001039: 14,2704           06006        R51B               TC       INTPRET                               
033872,001040: 14,2705           77624                           CALL                                           
033873,001041: 14,2706           36056                                    R56                                   
033874,001042: 14,2707           77650                           GOTO                                           
033875,001043: 14,2710           30614                                    R51A                                  
033876,001044: 14,2711           00066        OCT66              OCT      00066                                 
033877,001045: 14,2712           00306        V01N70             VN       0170                                  
033878,001046: 14,2713           05253        1/6TH              DEC      .1666667                              
033879,001047: 

Page 759

033881,001049:                                                                                                  #  NAME-R55      GYRO TORQUE
033882,001050:                                                                                                  #  FUNCTION - COMPUTE AND SEND GYRO PULSES
033883,001051:                                                                                                  #  CALLING SEQ - CALL R55
033884,001052:                                                                                                  #  INPUT - X,Y,ZDC - REFSMMAT WRT PRESENT STABLE MEMBER
033885,001053:                                                                                                  #  OUTPUT - GYRO PULSES
033886,001054:                                                                                                  #  SUBROUTINES - CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
033887,001055: 
033888,001056: 15,2000                                           SETLOC   P50S                                  
033889,001057: 15,2000                                           BANK                                           
033890,001058: 15,2271                                           COUNT*   $$/R55                                
033891,001059: 15,2271           77620        R55                STQ                                            
033892,001060: 15,2272           02777                                    QMIN                                  
033893,001061: 15,2273           77624                           CALL                                           
033894,001062: 15,2274           47205                                    CALCGTA                               
033895,001063: 15,2275           77776        PULSEM             EXIT                                           
033896,001064: 15,2276           32322        R55.1              CAF      V06N93                                
033897,001065: 15,2277           04662                           TC       BANKCALL                              
033898,001066: 15,2300           20720                           CADR     GOFLASH                               
033899,001067: 15,2301           04106                           TC       GOTOPOOH                              
033900,001068: 15,2302           02304                           TC       R55.2                                 
033901,001069: 15,2303           02317                           TC       R55RET                                
033902,001070: 15,2304           05412        R55.2              TC       PHASCHNG                              
033903,001071: 15,2305           00314                           OCT      00314                                 
033904,001072: 15,2306           32323                           CA       R55CDR                                
033905,001073: 15,2307           04662                           TC       BANKCALL                              
033906,001074: 15,2310           17206                           CADR     IMUPULSE                              
033907,001075: 15,2311           04662                           TC       BANKCALL                              
033908,001076: 15,2312           17577                           CADR     IMUSTALL                              
033909,001077: 15,2313           05757                           TC       CURTAINS                              
033910,001078: 15,2314           05412                           TC       PHASCHNG                              
033911,001079: 15,2315           05024                           OCT      05024                                 
033912,001080: 15,2316           13000                           OCT      13000                                 
033913,001081: 15,2317           06006        R55RET             TC       INTPRET                               
033914,001082: 15,2320           77650                           GOTO                                           
033915,001083: 15,2321           02777                                    QMIN                                  
033916,001084: 15,2322           01535        V06N93             VN       0693                                  
033917,001085: 15,2323           02757        R55CDR             ECADR    OGC                                   
033918,001086: 15,2324  14,2714               R54                =        CHKSDATA                              
033919,001087: 
033920,001088:                                                                                                  #  ROUTINE NAME - CHKSDATA               DATE - JAN 9, 1967
033921,001089:                                                                                                  #  MOD NO - 0                            LOG SECTION - P51-P53
033922,001090:                                                                                                  #  MODIFICATION BY - LONSKE              ASSEMBLY -
033923,001091: 
033924,001092:                                                                                                  #  FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS.  WHEN A PAIR OF STAR SIGHTINGS ARE MADE
033925,001093:                                                                                                  #  BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
033926,001094:                                                                                                  #  COMPUTER TO INSURE A PROPER SIGHTING WAS MADE.  THE FOLLOWING COMPUTATIONS ARE PERFORMED_
033927,001095:                                                                                                  #        OS1     =       OBSERVED STAR 1 VECTOR
033928,001096:                                                                                                  #        OS2     =       OBSERVED STAR 2 VECTOR
033929,001097:                                                                                                  #        SS1     =       STORED STAR 1 VECTOR
033930,001098:                                                                                                  #        SS2     =       STORED STAR 2 VECTOR
033931,001099:                                                                                                  #         A1     =       ARCCOS(OS1 - OS2)

Page 760

033933,001101:                                                                                                  #         A2     =       ARCCOS(SS1 - SS2)
033934,001102:                                                                                                  #          A     =       ABS(2(A1 - A2))
033935,001103: 
033936,001104:                                                                                                  #  THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTENCE
033937,001105: 
033938,001106:                                                                                                  #  EXIT MODE     1. FREEFLAG SET IMPLIES ASTRONAUT WANTS TO PROCEED
033939,001107:                                                                                                  #                2. FREEFLAG RESET IMPLIES ASTRONAUT WANTS TO RECYCLE             ERANCE)
033940,001108: 
033941,001109:                                                                                                  #  OUTPUT -      1. VERB 6,NOUN 3 - DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
033942,001110:                                                                                                  #                2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
033943,001111: 
033944,001112:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
033945,001113:                                                                                                  #                1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
033946,001114:                                                                                                  #                2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
033947,001115: 
033948,001116:                                                                                                  #  DEBRIS -
033949,001117: 
033950,001118: 14,2000                                           SETLOC   P50S1                                 
033951,001119: 14,2000                                           BANK                                           
033952,001120: 14,2714                                           COUNT*   $$/R50                                
033953,001121: 14,2714           43020        CHKSDATA           STQ      SET                                   
033954,001122: 14,2715           02777                                    QMIN                                  
033955,001123: 14,2716           00074                                    FREEFLAG                              
033956,001124: 14,2717           77760        CHKSAB             AXC,1                                          #  SET X1 TO STORE EPHEMERIS DATA
033957,001125: 14,2720           02735                                    STARAD                                
033958,001126: 
033959,001127: 14,2721           47773        CHKSB              VLOAD*   DOT*                                  #  CAL. ANGLE THETA
033960,001128: 14,2722           00001                                    0,1                                   
033961,001129: 14,2723           00007                                    6,1                                   
033962,001130: 14,2724           65552                           SL1      ACOS                                  
033963,001131: 14,2725           00025                           STORE    THETA                                 
033964,001132: 14,2726           43014                           BOFF     INVERT                                #  BRANCH TO CHKSD IF THIS IS 2ND PASS
033965,001133: 14,2727           00354                                    FREEFLAG                              
033966,001134: 14,2730           30740                                    CHKSD                                 
033967,001135: 14,2731           00174                                    FREEFLAG                              #  CLEAR FREEFLAG
033968,001136: 14,2732           71360                           AXC,1    DLOAD                                 #  SET X1 TO MARK ANGLES
033969,001137: 14,2733           00006                                    6D                                    
033970,001138: 14,2734           00025                                    THETA                                 
033971,001139: 14,2735           00023                           STORE    18D                                   
033972,001140: 14,2736           77650                           GOTO                                           
033973,001141: 14,2737           30721                                    CHKSB                                 #  RETURN TO CAL. 2ND ANGLE
033974,001142: 14,2740           45345        CHKSD              DLOAD    DSU                                   
033975,001143: 14,2741           00025                                    THETA                                 #  COMPUTE POS DIFF
033976,001144: 14,2742           00023                                    18D                                   
033977,001145: 14,2743           47046                           ABS      RTB                                   
033978,001146: 14,2744           45544                                    SGNAGREE                              
033979,001147: 14,2745           01046                           STORE    NORMTEM1                              
033980,001148: 14,2746           77414                           SET      EXIT                                  
033981,001149: 14,2747           00074                                    FREEFLAG                              
033982,001150: 14,2750           35021                           CAF      ZERO                                  
033983,001151: 14,2751           04662                           TC       BANKCALL                              
033984,001152: 14,2752           20703                           CADR     CLEANDSP                              
033985,001153: 
033986,001154: 14,2753           32767                           CAF      VB6N5                                 

Page 761

033988,001156: 14,2754           04662                           TC       BANKCALL                              
033989,001157: 14,2755           20720                           CADR     GOFLASH                               
033990,001158: 14,2756           14106                           TCF      GOTOPOOH                              
033991,001159: 14,2757           02764                           TC       CHKSDA                                #  PROCEED
033992,001160: 14,2760           06006                           TC       INTPRET                               
033993,001161: 14,2761           52014                           CLEAR    GOTO                                  
033994,001162: 14,2762           00274                                    FREEFLAG                              
033995,001163: 14,2763           02777                                    QMIN                                  
033996,001164: 14,2764           06006        CHKSDA             TC       INTPRET                               
033997,001165: 14,2765           77650                           GOTO                                           
033998,001166: 14,2766           02777                                    QMIN                                  
033999,001167: 14,2767           01405        VB6N5              VN       605                                   
034000,001168: 
034001,001169:                                                                                                  #  NAME - CAL53A
034002,001170:                                                                                                  #  NAME - CAL53A
034003,001171:                                                                                                  #  FUNCTION - COARSE ALIGN THE IMU, IF NECESSARY. 
034004,001172:                                                                                                  #  CALLING SEQUENCE - CALL CAL53A
034005,001173:                                                                                                  #  INPUT - PRESENT GIMBAL ANGLES - CDUX, CDUY, CDUZ
034006,001174:                                                                                                  #           DESIRED GIMBAL ANGLES - THETAD,+1,+2
034007,001175:                                                                                                  #  OUTPUT - THE IMU COORDINATES ARE STORED IN REFSMMAT
034008,001176:                                                                                                  #  SUBROUTINES USED - 1.IMUCOARS  2.IMUSTALL  3.CURTAINS
034009,001177: 
034010,001178: 14,2770                                           COUNT    14/R50                                
034011,001179: 
034012,001180: 14,2770           77624        CAL53A             CALL                                           
034013,001181: 14,2771           22331                                    S52.2                                 #  MAKE FINAL COMP OF GIMBAL ANGLES
034014,001182: 14,2772           66234                           RTB      SSP                                   
034015,001183: 14,2773           32324                                    RDCDUS                                #  READ CDUS
034016,001184: 14,2774           00051                                    S1                                    
034017,001185: 14,2775           00001                                    1                                     
034018,001186: 14,2776           40370                           AXT,1    SETPD                                 
034019,001187: 14,2777           00003                                    3                                     
034020,001188: 14,3000           00005                                    4                                     
034021,001189: 14,3001           70543        CALOOP             DLOAD*   SR1                                   
034022,001190: 14,3002           01161                                    THETAD     +3D,1                      
034023,001191: 14,3003           70523                           PDDL*    SR1                                   
034024,001192: 14,3004           00005                                    4,1                                   
034025,001193: 14,3005           51425                           DSU      ABS                                   
034026,001194: 14,3006           45206                           PUSH     DSU                                   
034027,001195: 14,3007           31066                                    DEGREE1                               
034028,001196: 14,3010           71240                           BMN      DLOAD                                 
034029,001197: 14,3011           31042                                    CALOOP1                               
034030,001198: 14,3012           51025                           DSU      BPL                                   
034031,001199: 14,3013           31067                                    DEG359                                
034032,001200: 14,3014           31042                                    CALOOP1                               
034033,001201: 14,3015           77776        COARFINE           EXIT                                           
034034,001202: 14,3016           05412                           TC       PHASCHNG                              
034035,001203: 14,3017           04024                           OCT      04024                                 
034036,001204: 14,3020           04662                           TC       BANKCALL                              
034037,001205: 14,3021           16663                           CADR     IMUCOARS                              #  PERFORM COARSE ALIGNMENT
034038,001206: 14,3022           04662                           TC       BANKCALL                              
034039,001207: 14,3023           17577                           CADR     IMUSTALL                              #  REQUEST MODE SWITCH

Page 762

034041,001209: 14,3024           05757                           TC       CURTAINS                              
034042,001210: 14,3025           04662                           TC       BANKCALL                              
034043,001211: 14,3026           17073                           CADR     IMUFIN20                              
034044,001212: 14,3027           04662                           TC       BANKCALL                              
034045,001213: 14,3030           17577                           CADR     IMUSTALL                              
034046,001214: 14,3031           05757                           TC       CURTAINS                              #  TEST FOR MALFUNCTION
034047,001215: 14,3032           06006                           TC       INTPRET                               
034048,001216: 14,3033           77234                           RTB      VLOAD                                 
034049,001217: 14,3034           31275                                    SET1/PDT                              
034050,001218: 14,3035           11566                                    ZEROVEC                               
034051,001219: 14,3036           01472                           STORE    GCOMP                                 
034052,001220: 14,3037           52014                           SET      GOTO                                  
034053,001221: 14,3040           01060                                    DRIFTFLG                              
034054,001222: 14,3041           31044                                    FINEONLY                              
034055,001223: 14,3042           77700        CALOOP1            TIX,1                                          
034056,001224: 14,3043           31001                                    CALOOP                                
034057,001225: 14,3044           75160        FINEONLY           AXC,1    AXC,2                                 
034058,001226: 14,3045           02671                                    XSM                                   
034059,001227: 14,3046           01735                                    REFSMMAT                              
034060,001228: 14,3047           77624                           CALL                                           
034061,001229: 14,3050           31053                                    MATMOVE                               
034062,001230: 14,3051           77650                           GOTO                                           
034063,001231: 14,3052           32116                                    CAL53RET                              
034064,001232: 14,3053           77773        MATMOVE            VLOAD*                                         #  TRANSFER MATRIX
034065,001233: 14,3054           00001                                    0,1                                   
034066,001234: 14,3055           10001                           STORE    0,2                                   
034067,001235: 14,3056           77773                           VLOAD*                                         
034068,001236: 14,3057           00007                                    6D,1                                  
034069,001237: 14,3060           10007                           STORE    6D,2                                  
034070,001238: 14,3061           77773                           VLOAD*                                         
034071,001239: 14,3062           00015                                    12D,1                                 
034072,001240: 14,3063           10015                           STORE    12D,2                                 
034073,001241: 14,3064           77616                           RVQ                                            
034074,001242: 14,3065           00056        DEGREE1            DEC      46         B-14                       
034075,001243: 14,3066           37722        DEG359             DEC      16338      B-14                       
034076,001244: 15,2000                                           SETLOC   P50S                                  
034077,001245: 15,2000                                           BANK                                           
034078,001246: 15,2324           00004        RDCDUS             INHINT                                         #  READ CDUS
034079,001247: 15,2325           30032                           CA       CDUX                                  
034080,001248: 15,2326           50120                           INDEX    FIXLOC                                
034081,001249: 15,2327           54001                           TS       1                                     
034082,001250: 15,2330           30033                           CA       CDUY                                  
034083,001251: 15,2331           50120                           INDEX    FIXLOC                                
034084,001252: 15,2332           54002                           TS       2                                     
034085,001253: 15,2333           30034                           CA       CDUZ                                  
034086,001254: 15,2334           50120                           INDEX    FIXLOC                                
034087,001255: 15,2335           54003                           TS       3                                     
034088,001256: 15,2336           00003                           RELINT                                         
034089,001257: 15,2337           06030                           TC       DANZIG                                #                                                                        +
034090,001258: 
034091,001259: 
034092,001260:                                                                                                  #  NAME - GIMB

Page 763

034094,001262: 
034095,001263:                                                                                                  #  FUNCTION - DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED         FOR COARSE ALIGNMENT.
034096,001264: 
034097,001265:                                                                                                  #  CALLING SEQUENCE - CALL GIMB
034098,001266: 
034099,001267:                                                                                                  #  INPUT - DESIRED IMU INERTIAL ORIENTATION VECTORS-XSMD, YSMD, ZSMD
034100,001268: 
034101,001269:                                                                                                  #  OUTPUT -GIMBAL ANGLES LEFT IN THETAD, +1, +2                         +
034102,001270: 
034103,001271:                                                                                                  #  SUBROUTINES USED - 1.CDUTRIG 2.CALCSMSC 3.CALCGA
034104,001272: 
034105,001273: 16,2000                                           SETLOC   P50S2                                 
034106,001274: 16,2000                                           BANK                                           
034107,001275: 16,2612                                           COUNT    14/INFLT                              
034108,001276: 
034109,001277: 16,2612           41345        CALCSMSC           DLOAD    DMP                                   
034110,001278: 16,2613           00737                                    SINCDUY                               
034111,001279: 16,2614           00747                                    COSCDUZ                               
034112,001280: 16,2615           77676                           DCOMP                                          
034113,001281: 16,2616           70525                           PDDL     SR1                                   
034114,001282: 16,2617           00741                                    SINCDUZ                               
034115,001283: 16,2620           41325                           PDDL     DMP                                   
034116,001284: 16,2621           00745                                    COSCDUY                               
034117,001285: 16,2622           00747                                    COSCDUZ                               
034118,001286: 16,2623           76466                           VDEF     VSL1                                  
034119,001287: 16,2624           02714                           STORE    XNB                                   
034120,001288: 16,2625           41345                           DLOAD    DMP                                   
034121,001289: 16,2626           00743                                    SINCDUX                               
034122,001290: 16,2627           00741                                    SINCDUZ                               
034123,001291: 16,2630           77752                           SL1                                            
034124,001292: 16,2631           00033                           STORE    26D                                   
034125,001293: 16,2632           77605                           DMP                                            
034126,001294: 16,2633           00737                                    SINCDUY                               
034127,001295: 16,2634           41325                           PDDL     DMP                                   
034128,001296: 16,2635           00751                                    COSCDUX                               
034129,001297: 16,2636           00745                                    COSCDUY                               
034130,001298: 16,2637           77625                           DSU                                            
034131,001299: 16,2640           41325                           PDDL     DMP                                   
034132,001300: 16,2641           00743                                    SINCDUX                               
034133,001301: 16,2642           00747                                    COSCDUZ                               
034134,001302: 16,2643           77676                           DCOMP                                          
034135,001303: 16,2644           41325                           PDDL     DMP                                   
034136,001304: 16,2645           00751                                    COSCDUX                               
034137,001305: 16,2646           00737                                    SINCDUY                               
034138,001306: 16,2647           41325                           PDDL     DMP                                   
034139,001307: 16,2650           00745                                    COSCDUY                               
034140,001308: 16,2651           00033                                    26D                                   
034141,001309: 16,2652           55415                           DAD      VDEF                                  
034142,001310: 16,2653           77772                           VSL1                                           
034143,001311: 16,2654           02730                           STORE    ZNB                                   
034144,001312: 16,2655           76435                           VXV      VSL1                                  
034145,001313: 16,2656           02714                                    XNB                                   
034146,001314: 16,2657           02722                           STORE    YNB                                   
034147,001315: 16,2660           77616                           RVQ                                            
034148,001316: 
034149,001317:                                                                                                  #  NAME - P51 - IMU ORIENTATION DETERMINATION
034150,001318:                                                                                                  #  MOD. NO. 2    21 DEC 66                               LOG SECTION - P51-P53

Page 764

034152,001320:                                                                                                  #  MOD BY STURLAUGSON                                    ASSEMBLY SUNDISK REV15
034153,001321: 
034154,001322:                                                                                                  #  FUNCTIONAL DESCRIPTION
034155,001323:                                                                                                  #        DETERMINES THE INERTIAL ORIENTATION OF THE IMU.  THE PROGRAM IS SELECTED BY DSKY ENTRY.  THE SIGHTING
034156,001324:                                                                                                  #        ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR.  THE DATA IS
034157,001325:                                                                                                  #        THEN PROCESSED AS FOLLOWS.
034158,001326: 
034159,001327:                                                                                                  #        1.  SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGATIONAL BASE COORDINATES.  LET SA AND TA BE THE SHAFT AND
034160,001328:                                                                                                  #        TRUNNION ANGLES, RESPECTIVELY.  THEN,
034161,001329:                                                                                                  #        -
034162,001330:                                                                                                  #        V  = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA))        (A COLUMN VECTOR)
034163,001331:                                                                                                  #         NB
034164,001332:                                                                                                  #        THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
034165,001333: 
034166,001334:                                                                                                  #        2.  THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
034167,001335:                                                                                                  #        -    T  T  T -
034168,001336:                                                                                                  #        V = Q *Q *Q *V  ,       WHERE
034169,001337:                                                                                                  #             1  2  3  NB
034170,001338: 
034171,001339:                                                                                                  #             ( COS(IG)   0    -SIN(IG) )
034172,001340:                                                                                                  #             (                         )                                        THE GIMBAL ANGLES ARE COMPUTED FROM
034173,001341:                                                                                                  #        Q  = (   0       1       0     ), IG= INNER GIMBAL ANGLE                THE CDU COUNTERS AT NBSM (USING AXIS-
034174,001342:                                                                                                  #         1   (                         )                                        ROT AND CDULOGIC)
034175,001343:                                                                                                  #             ( SIN(IG)   0     COS(IG) )
034176,001344: 
034177,001345:                                                                                                  #             ( COS(MG) SIN(MG)   0     )
034178,001346:                                                                                                  #             (                         )
034179,001347:                                                                                                  #        Q  = (-SIN(MG) COS(MG)   0     ), MG= MIDDLE GIMBAL ANGLE
034180,001348:                                                                                                  #         2   (                         )
034181,001349:                                                                                                  #             (   0       0       1     )
034182,001350: 
034183,001351:                                                                                                  #             (   1       0       0     )
034184,001352:                                                                                                  #             (                         )
034185,001353:                                                                                                  #        Q  = (   0     COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
034186,001354:                                                                                                  #         3   (                         )
034187,001355:                                                                                                  #             (   0    -SIN(OG) COS(OG) )
034188,001356: 
034189,001357:                                                                                                  #        3.  THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
034190,001358: 
034191,001359:                                                                                                  #        4.  THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
034192,001360: 
034193,001361:                                                                                                  #        5.  REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
034194,001362:                                                                                                  #                    -      -
034195,001363:                                                                                                  #                LET S  AND S  BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).
034196,001364:                                                                                                  #                     1      2

Page 765

034198,001366:                                                                                                  #                DEFINE, -    -
034199,001367:                                                                                                  #                        U  = S
034200,001368:                                                                                                  #                         A    A1
034201,001369:                                                                                                  #                        -         -    -
034202,001370:                                                                                                  #                        V  = UNIT(S  X S  )
034203,001371:                                                                                                  #                         A         A1   A2
034204,001372:                                                                                                  #                        -    -   -
034205,001373:                                                                                                  #                        W  = U X V
034206,001374:                                                                                                  #                         A    A   A
034207,001375: 
034208,001376:                                                                                                  #                AND
034209,001377:                                                                                                  #                        -    -
034210,001378:                                                                                                  #                        U  = S
034211,001379:                                                                                                  #                         B    B1
034212,001380:                                                                                                  #                        -         -    -
034213,001381:                                                                                                  #                        V  = UNIT(S  X S  )
034214,001382:                                                                                                  #                         B         B1   B2
034215,001383:                                                                                                  #                        -    -   -
034216,001384:                                                                                                  #                        W  = U X V
034217,001385:                                                                                                  #                         B    B   B
034218,001386: 
034219,001387:                                                                                                  #                THEN    -        -       -       -
034220,001388:                                                                                                  #                        X  = U  *U + V  *V + W  *W
034221,001389:                                                                                                  #                              B1  A   B1  A   B1  A
034222,001390:                                                                                                  #                        -        -       -       -              (REFSMMAT)
034223,001391:                                                                                                  #                        Y  = U  *U + V  *V + W  *W
034224,001392:                                                                                                  #                              B2  A   B2  A   B2  A
034225,001393:                                                                                                  #                        -        -       -       -
034226,001394:                                                                                                  #                        Z  = U  *U + V  *V + W  *W
034227,001395:                                                                                                  #                              B3  A   B3  A   B3  A
034228,001396: 
034229,001397:                                                                                                  #  THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
034230,001398:                                                                                                  #                        -
034231,001399:                                                                                                  #                        S   IN 6-11 OF THE VAC AREA
034232,001400:                                                                                                  #                         A1
034233,001401:                                                                                                  #                        -
034234,001402:                                                                                                  #                        S   IN 12-17 OF THE VAC AREA
034235,001403:                                                                                                  #                         A2
034236,001404:                                                                                                  #                        -
034237,001405:                                                                                                  #                        S   IN STARAD
034238,001406:                                                                                                  #                         B1

Page 766

034240,001408:                                                                                                  #                        -
034241,001409:                                                                                                  #                        S   IN STARAD +6
034242,001410:                                                                                                  #                         B2
034243,001411: 
034244,001412:                                                                                                  #  CALLING SEQUENCE
034245,001413: 
034246,001414:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
034247,001415: 
034248,001416:                                                                                                  #  SUBROUTINES CALLED.
034249,001417: 
034250,001418:                                                                                                  #        GOPERF3
034251,001419:                                                                                                  #        GOPERF1R
034252,001420:                                                                                                  #        GODSPR
034253,001421:                                                                                                  #        IMUCOARS
034254,001422:                                                                                                  #        IMUFIN20
034255,001423:                                                                                                  #        R53
034256,001424:                                                                                                  #        SXTNB
034257,001425:                                                                                                  #        NBSM
034258,001426:                                                                                                  #        MKRELEAS
034259,001427:                                                                                                  #        CHKSDATA
034260,001428:                                                                                                  #        MATMOVE
034261,001429: 
034262,001430:                                                                                                  #  ALARMS
034263,001431: 
034264,001432:                                                                                                  #        NONE.
034265,001433: 
034266,001434:                                                                                                  #  ERASABLE INITIALIZATION
034267,001435: 
034268,001436:                                                                                                  #        IMU ZERO FLAG SHOULD BE SET.
034269,001437: 
034270,001438:                                                                                                  #  OUTPUT
034271,001439: 
034272,001440:                                                                                                  #        REFSMMAT
034273,001441:                                                                                                  #        REFSMFLG
034274,001442: 
034275,001443:                                                                                                  #  DEBRIS
034276,001444: 
034277,001445:                                                                                                  #        WORK AREA
034278,001446:                                                                                                  #        STARAD
034279,001447:                                                                                                  #        STARIND
034280,001448:                                                                                                  #        BESTI
034281,001449:                                                                                                  #        BESTJ
034282,001450: 
034283,001451: 14,2000                                           SETLOC   P50S1                                 
034284,001452: 14,2000                                           BANK                                           
034285,001453: 14,3067                                           COUNT    14/P5153                              
034286,001454: 
034287,001455: 14,3067  14,3067               P53                EQUALS   P51                                   
034288,001456: 14,3067           41320        P51                CS       IMODES30                              
034289,001457: 14,3070           75007                           MASK     BIT9                                  
034290,001458: 14,3071           10000                           CCS      A                                     

Page 767

034292,001460: 14,3072           03076                           TC       P51A                                  
034293,001461: 14,3073           05650                           TC       ALARM                                 
034294,001462: 14,3074           00210                           OCT      210                                   
034295,001463: 14,3075           04106                           TC       GOTOPOOH                              
034296,001464: 14,3076           04662        P51A               TC       BANKCALL                              
034297,001465: 14,3077           17667                           CADR     R02ZERO                               
034298,001466: 
034299,001467: 14,3100           35025        P51AA              CAF      PRFMSTAQ                              
034300,001468: 14,3101           04662                           TC       BANKCALL                              
034301,001469: 14,3102           21045                           CADR     GOPERF1                               
034302,001470: 14,3103           04106                           TC       GOTOPOOH                              #  TERM.
034303,001471: 14,3104           03140                           TC       P51B                                  #  V33
034304,001472: 14,3105           05412                           TC       PHASCHNG                              
034305,001473: 14,3106           05024                           OCT      05024                                 
034306,001474: 14,3107           13000                           OCT      13000                                 
034307,001475: 14,3110           35021                           CAF      P51ZERO                               
034308,001476: 14,3111           55155                           TS       THETAD                                #  ZERO THE GIMBALS
034309,001477: 14,3112           55156                           TS       THETAD     +1                         
034310,001478: 14,3113           55157                           TS       THETAD     +2                         
034311,001479: 14,3114           33273                           CAF      V6N22                                 
034312,001480: 14,3115           04662                           TC       BANKCALL                              
034313,001481: 14,3116           20673                           CADR     GODSPRET                              
034314,001482: 14,3117           33274                           CAF      V41K                                  #  NOW DISPLAY COARSE ALIGN VERB 41
034315,001483: 14,3120           04662                           TC       BANKCALL                              
034316,001484: 14,3121           20673                           CADR     GODSPRET                              
034317,001485: 14,3122           04662                           TC       BANKCALL                              
034318,001486: 14,3123           16663                           CADR     IMUCOARS                              
034319,001487: 14,3124           04662                           TC       BANKCALL                              
034320,001488: 14,3125           17577                           CADR     IMUSTALL                              
034321,001489: 14,3126           05757                           TC       CURTAINS                              #  CAGING OR BAD END
034322,001490: 14,3127           04662                           TC       BANKCALL                              #  SCHEDULE IFAILOK AND IMUFINED TASKS, IN 5
034323,001491: 14,3130           17073                           CADR     IMUFIN20                              #  AND 20 SECS. DIRECT RETURN AND NO STALL,
034324,001492: 14,3131           04662                           TC       BANKCALL                              #  IF CAGING, BUT T4 WILL ZERO C/A ENABLE.
034325,001493: 14,3132           17577                           CADR     IMUSTALL                              #  IF PUT TO SLEEP, IMUFINED WILL WAKE US
034326,001494: 14,3133           05757                           TC       CURTAINS                              #  UP.
034327,001495: 14,3134           05412                           TC       PHASCHNG                              
034328,001496: 14,3135           05024                           OCT      05024                                 
034329,001497: 14,3136           13000                           OCT      13000                                 
034330,001498: 14,3137           13100                           TCF      P51AA                                 #  COARSE ALIGN DONE - RECYCLE FOR FINE
034331,001499: 

Page 768

034333,001501:                                                                                                  #  DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
034334,001502: 14,3140           05412        P51B               TC       PHASCHNG                              
034335,001503: 14,3141           00014                           OCT      00014                                 
034336,001504: 14,3142           06006                           TC       INTPRET                               
034337,001505: 14,3143           40331                           SSP      SETPD                                 
034338,001506: 14,3144           00305                                    STARIND                               #  INDEX - STAR 1 OR 2
034339,001507: 14,3145           00000                                    0                                     
034340,001508: 14,3146           00001                                    0                                     
034341,001509: 14,3147           77234                           RTB      VLOAD                                 
034342,001510: 14,3150           31275                                    SET1/PDT                              
034343,001511: 14,3151           11566                                    ZEROVEC                               
034344,001512: 14,3152           01472                           STORE    GCOMP                                 
034345,001513: 14,3153           43014                           SET      CLEAR                                 
034346,001514: 14,3154           01060                                    DRIFTFLG                              #  ENABLE T4 COMPENSATION
034347,001515: 14,3155           00666                                    TARG2FLG                              #  SHOW MARK IS STAR - NOT LANDMARK
034348,001516: 14,3156           77776                           EXIT                                           
034349,001517: 14,3157           35017                           CAF      BIT1                                  
034350,001518: 14,3160           54301                           TS       MARKINDX                              #  INITIALIZE FOR ONE MARK
034351,001519: 
034352,001520: 14,3161           05412        P51C               TC       PHASCHNG                              
034353,001521: 14,3162           05024                           OCT      05024                                 
034354,001522: 14,3163           13000                           OCT      13000                                 
034355,001523: 14,3164           05364                           TC       CHECKMM                               
034356,001524: 14,3165           00065                           MM       53         B-14                       #  BACKUP PROGRAM
034357,001525: 14,3166           13174                           TCF      P51C.1                                #  NOT P53
034358,001526: 14,3167           06006                           TC       INTPRET                               
034359,001527: 14,3170           77624                           CALL                                           
034360,001528: 14,3171           36056                                    R56                                   
034361,001529: 14,3172           77650                           GOTO                                           
034362,001530: 14,3173           31177                                    P51C.2                                
034363,001531: 14,3174           06006        P51C.1             TC       INTPRET                               
034364,001532: 14,3175           77624                           CALL                                           
034365,001533: 14,3176           31300                                    R53                                   #  SIGHTING ROUTINE
034366,001534: 14,3177           77624        P51C.2             CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
034367,001535: 14,3200           36022                                    SXTSM                                 
034368,001536: 14,3201           77606                           PUSH                                           
034369,001537: 14,3202           53135                           SLOAD    BZE                                   
034370,001538: 14,3203           00305                                    STARIND                               
034371,001539: 14,3204           31211                                    P51D                                  
034372,001540: 14,3205           45575                           VLOAD    STADR                                 
034373,001541: 14,3206           75160                           STORE    STARSAV2                              #  DOWNLINK
034374,001542: 14,3207           77650                           GOTO                                           
034375,001543: 14,3210           31217                                    P51E                                  
034376,001544: 14,3211           45575        P51D               VLOAD    STADR                                 
034377,001545: 14,3212           61166                           STODL    STARSAV1                              
034378,001546: 14,3213           02607                                    TSIGHT                                
034379,001547: 14,3214           77624                           CALL                                           
034380,001548: 14,3215           32340                                    PLANET                                
034381,001549: 14,3216           02601                           STORE    PLANVEC                               

Page 769

034383,001551: 14,3217           77776        P51E               EXIT                                           
034384,001552: 14,3220           05412                           TC       PHASCHNG                              
034385,001553: 14,3221           05024                           OCT      05024                                 
034386,001554: 14,3222           13000                           OCT      13000                                 
034387,001555: 14,3223           04662                           TC       BANKCALL                              
034388,001556: 14,3224           16063                           CADR     MKRELEAS                              #  ZERO MARKSTAT
034389,001557: 14,3225           10304                           CCS      STARIND                               
034390,001558: 14,3226           13235                           TCF      P51F                                  #  STAR 2
034391,001559: 14,3227           05412                           TC       PHASCHNG                              
034392,001560: 14,3230           05024                           OCT      05024                                 
034393,001561: 14,3231           13000                           OCT      13000                                 
034394,001562: 14,3232           35017                           CAF      BIT1                                  
034395,001563: 14,3233           54304                           TS       STARIND                               
034396,001564: 14,3234           13161                           TCF      P51C                                  #  GO DO SECOND STAR
034397,001565: 14,3235           05412        P51F               TC       PHASCHNG                              
034398,001566: 14,3236           05024                           OCT      05024                                 
034399,001567: 14,3237           13000                           OCT      13000                                 
034400,001568: 14,3240           06006                           TC       INTPRET                               
034401,001569: 14,3241           45145                           DLOAD    CALL                                  
034402,001570: 14,3242           02607                                    TSIGHT                                
034403,001571: 14,3243           32340                                    PLANET                                
034404,001572: 14,3244           24015                           STOVL    12D                                   
034405,001573: 14,3245           02601                                    PLANVEC                               
034406,001574: 14,3246           24007                           STOVL    6D                                    
034407,001575: 14,3247           02611                                    STARSAV1                              
034408,001576: 14,3250           26736                           STOVL    STARAD                                
034409,001577: 14,3251           02617                                    STARSAV2                              
034410,001578: 14,3252           36744                           STCALL   STARAD     +6                         
034411,001579: 14,3253           30714                                    CHKSDATA                              #  CHECK STAR ANGLES IN STARAD AND
034412,001580: 14,3254           77414                           BON      EXIT                                  
034413,001581: 14,3255           00314                                    FREEFLAG                              
034414,001582: 14,3256           31260                                    P51G                                  
034415,001583: 14,3257           03100                           TC       P51AA                                 
034416,001584: 14,3260           77624        P51G               CALL                                           
034417,001585: 14,3261           47401                                    AXISGEN                               #  COME BACK WITH REFSMMAT IN XDC
034418,001586: 14,3262           75160                           AXC,1    AXC,2                                 
034419,001587: 14,3263           02713                                    XDC                                   
034420,001588: 14,3264           01735                                    REFSMMAT                              
034421,001589: 14,3265           45014                           CLEAR    CALL                                  
034422,001590: 14,3266           01662                                    REFSMFLG                              
034423,001591: 14,3267           31053                                    MATMOVE                               
034424,001592: 14,3270           52014                           SET      GOTO                                  
034425,001593: 14,3271           01462                                    REFSMFLG                              
034426,001594: 14,3272           32145                                    ENDP50S                               
034427,001595: 14,3273     5025               PRFMSTAQ           =        OCT15                                 
034428,001596: 14,3273     5021               P51ZERO            =        ZERO                                  
034429,001597: 14,3273     5022               P51FIVE            =        FIVE                                  
034430,001598: 14,3273           01426        V6N22              VN       0622                                  
034431,001599: 14,3274           12200        V41K               VN       4100                                  
034432,001600: 14,3275           30025        SET1/PDT           CA       TIME1                                 

Page 770

034434,001602: 14,3276           55074                           TS       1/PIPADT                              
034435,001603: 14,3277           16030                           TCF      DANZIG                                
034436,001604: 

Page 771

034438,001606:                                                                                                  #  SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
034439,001607: 
034440,001608: 17,2000                                           SETLOC   P50S3                                 
034441,001609: 17,2000                                           BANK                                           
034442,001610: 17,2022           77620        SXTSM              STQ                                            
034443,001611: 17,2023           00300                                    QMAJ                                  
034444,001612: 17,2024           70740                           LXC,1    DLOAD*                                
034445,001613: 17,2025           01330                                    MARKSTAT                              
034446,001614: 17,2026           00001                                    0D,1                                  
034447,001615: 17,2027           02607                           STORE    TSIGHT                                
034448,001616: 17,2030           66744                           LXC,2    SLOAD*                                
034449,001617: 17,2031           00304                                    STARIND                               
034450,001618: 17,2032           41722                                    MKDNCDR,2                             
034451,001619: 17,2033           76744                           LXC,2    VLOAD*                                
034452,001620: 17,2034           00154                                    MPAC                                  
034453,001621: 17,2035           00001                                    0,1                                   
034454,001622: 17,2036           10001                           STORE    0,2                                   
034455,001623: 17,2037           77743                           DLOAD*                                         
034456,001624: 17,2040           00006                                    5,1                                   
034457,001625: 17,2041           10006                           STORE    5,2                                   
034458,001626: 17,2042           77624                           CALL                                           
034459,001627: 17,2043           46000                                    SXTNB                                 #  COMPUTE LOS VECTOR FROM OCDU IN MKVAC
034460,001628: 17,2044           62150                           LXA,1    INCR,1                                
034461,001629: 17,2045           01330                                    MARKSTAT                              
034462,001630: 17,2046           00002                                    2                                     #  INCREMENT TO BASE ADR OF ICDU
034463,001631: 17,2047           45130                           SXA,1    CALL                                  
034464,001632: 17,2050           00050                                    S1                                    
034465,001633: 17,2051           47606                                    NBSM                                  #  TRANSFORM LOS TO SM
034466,001634: 17,2052           77650                           GOTO                                           
034467,001635: 17,2053           00300                                    QMAJ                                  
034468,001636: 17,2054           03674        MKDNCDR            ECADR    MARKDOWN                              
034469,001637: 17,2055           03502                           ECADR    MARK2DWN                              
034470,001638: 

Page 772

034472,001640:                                                                                                  #  PROGRAM DESCRIPTION - R53 - SIGHTING MARK ROUTINE
034473,001641:                                                                                                  #  MOD. NO. 2  21 DEC 66
034474,001642:                                                                                                  #  MOD BY STURLAUGSON
034475,001643: 
034476,001644:                                                                                                  #  FUNCTIONAL DESCRIPTION
034477,001645: 
034478,001646:                                                                                                  #        TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE).  SIGHTINGS
034479,001647:                                                                                                  #        CAN BE MADE ON A STAR OR LANDMARK.  WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
034480,001648:                                                                                                  #        OCDUS) AND THE TIME OF THE MARK.
034481,001649: 
034482,001650:                                                                                                  #  CALLING SEQUENCE
034483,001651: 
034484,001652:                                                                                                  #        R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE.  RETURN IS VIA QPRET.
034485,001653:                                                                                                  #        THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
034486,001654: 
034487,001655:                                                                                                  #  SUBROUTINES CALLED
034488,001656:                                                                                                  #        
034489,001657:                                                                                                  #        SXTMARK
034490,001658:                                                                                                  #        OPTSTALL
034491,001659:                                                                                                  #        GOFLASH
034492,001660: 
034493,001661:                                                                                                  #  ERASABLE INITIALIZATION
034494,001662: 
034495,001663:                                                                                                  #        TARGET FLAG - STAR OR LANDMARK
034496,001664:                                                                                                  #        MARKINDX - NUMBER OF MARKS WANTED
034497,001665:                                                                                                  #        STARIND - INDEX TO BESTI OR BESTJ (STAR NUMBER)
034498,001666: 
034499,001667:                                                                                                  #  OUTPUT
034500,001668: 
034501,001669:                                                                                                  #        MARKSTAT CONTAINS INDEX TO VACANT AREA WHERE MARK DATA IS STORED
034502,001670:                                                                                                  #        BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED
034503,001671: 
034504,001672:                                                                                                  #  DEBRIS
034505,001673: 
034506,001674:                                                                                                  #        MARKINDX CONTAINS NUMBER OF MARKS DESIRED
034507,001675: 
034508,001676: 14,2000                                           SETLOC   RT53                                  
034509,001677: 14,2000                                           BANK                                           
034510,001678: 
034511,001679: 14,3300                                           COUNT    14/R53                                
034512,001680: 
034513,001681: 14,3300           43020        R53                STQ      SET                                   #  SET SIGHTING MARK FLAG
034514,001682: 14,3301           03501                                    R53EXIT                               
034515,001683: 14,3302           00071                                    R53FLAG                               
034516,001684: 14,3303           77776                           EXIT                                           
034517,001685: 14,3304           30301        R53A               CA       MARKINDX                              #  NUMBER OF MARKS
034518,001686: 14,3305           75023                           MASK     LOW3                                  
034519,001687: 14,3306           04662                           TC       BANKCALL                              
034520,001688: 14,3307           16002                           CADR     SXTMARK                               
034521,001689: 14,3310           04662                           TC       BANKCALL                              
034522,001690: 14,3311           17573                           CADR     OPTSTALL                              
034523,001691: 14,3312           05757                           TC       CURTAINS                              
034524,001692: 14,3313           51330                           INDEX    MARKSTAT                              
034525,001693: 14,3314           10052                           CCS      QPRET                                 #  NUMBER OF MARKS ACTUALLY DONE
034526,001694: 14,3315           13326                           TCF      R53B                                  
034527,001695: 14,3316           13320                           TCF      +2                                    #  ZERO
034528,001696: 14,3317           13320                           TCF      +1                                    #  CCS HOLE
034529,001697: 14,3320           35021                           CAF      ZERO                                  #  HOUSEKEEP VAC AREA SAVE
034530,001698: 14,3321           57330                           XCH      MARKSTAT                              #        AND MARKSTAT

Page 773

034532,001700: 14,3322           10000                           CCS      A                                     
034533,001701: 14,3323           50000                           INDEX    A                                     
034534,001702: 14,3324           54000                           TS       0                                     
034535,001703: 14,3325           13304                           TCF      R53A                                  
034536,001704: 14,3326           05364        R53B               TC       CHECKMM                               
034537,001705: 14,3327           00026                           MM       22         B-14                       
034538,001706: 14,3330           13332                           TCF      +2                                    
034539,001707: 14,3331           13361                           TCF      R53D                                  
034540,001708: 14,3332           05364                           TC       CHECKMM                               
034541,001709: 14,3333           00027                           MM       23         B-14                       
034542,001710: 14,3334           13336                           TCF      R53C1                                 
034543,001711: 14,3335           13361                           TCF      R53D                                  
034544,001712: 14,3336           35021        R53C1              CAF      ZERO                                  
034545,001713: 14,3337           04662                           TC       BANKCALL                              
034546,001714: 14,3340           20703                           CADR     CLEANDSP                              
034547,001715: 14,3341           33365        R53C               CAF      V01N71                                
034548,001716: 14,3342           04662                           TC       BANKCALL                              
034549,001717: 14,3343           20720                           CADR     GOFLASH                               
034550,001718: 14,3344           04106                           TC       GOTOPOOH                              #  TERM.
034551,001719: 14,3345           13347                           TCF      R53Z                                  
034552,001720: 14,3346           03341                           TC       R53C                                  #  RECYCLE
034553,001721: 14,3347           03366        R53Z               TC       CHKSCODE                              
034554,001722: 14,3350           04400                           TC       FALTON                                
034555,001723: 14,3351           03341                           TC       R53C                                  
034556,001724: 14,3352           47713                           CS       HIGH9                                 
034557,001725: 14,3353           70735                           MASK     STARCODE                              
034558,001726: 14,3354           00006                           EXTEND                                         
034559,001727: 14,3355           76211                           MP       SIGHTSIX                              
034560,001728: 14,3356           56001                           XCH      L                                     
034561,001729: 14,3357           50304                           INDEX    STARIND                               
034562,001730: 14,3360           54302                           TS       BESTI                                 
034563,001731: 14,3361           06006        R53D               TC       INTPRET                               
034564,001732: 14,3362           77614        R53OUT             SETGO                                          
034565,001733: 14,3363           03420                                    TERMIFLG                              #  SET TERMINATE FOR R52
034566,001734: 14,3364           03501                                    R53EXIT                               
034567,001735: 14,3365     6211               SIGHTSIX           =        SIX                                   
034568,001736: 14,3365           00307        V01N71             VN       0171                                  
034569,001737: 
034570,001738:                                                                                                  #  ****** KEEP IN SAME BANK AS R51 AND R53 *********
034571,001739: 14,3366           10735        CHKSCODE           CCS      STARCODE                              
034572,001740: 14,3367           63376                           AD       NEG47                                 
034573,001741: 14,3370           10000                           CCS      A                                     
034574,001742: 14,3371           00002                           TC       Q                                     #  SC < 0 OR SC > 50
034575,001743: 14,3372           13374                           TCF      +2                                    #  SC = + OR - 0
034576,001744: 14,3373           13374                           TCF      +1                                    #  0 <= SC< 50
034577,001745: 14,3374           50002                           INDEX    Q                                     #  SC = 50
034578,001746: 14,3375           00002                           TC       00002                                 
034579,001747: 14,3376           77730        NEG47              OCT      77730                                 
034580,001748: 

Page 774

034582,001750:                                                                                                  #  NAME - S52.2
034583,001751:                                                                                                  #  FUNCTION - COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
034584,001752:                                                                                                  #  CALL - CALL S52.2
034585,001753:                                                                                                  #  INPUT - X,Y,ZSMD
034586,001754:                                                                                                  #  OUTPUT - OGC,IGC,MGC,THETAD,+1,+2
034587,001755:                                                                                                  #  SUBROUTINES - CDUTRIG, CALCSMSC, MATMOVE, CALCGA
034588,001756: 
034589,001757: 11,2000                                           SETLOC   S52/2                                 
034590,001758: 11,2000                                           BANK                                           
034591,001759: 
034592,001760: 11,2331                                           COUNT    13/S52.2                              
034593,001761: 11,2331           77620        S52.2              STQ                                            
034594,001762: 11,2332           00300                                    QMAJ                                  
034595,001763: 11,2333           77624                           CALL                                           
034596,001764: 11,2334           47477                                    CDUTRIG                               
034597,001765: 11,2335           77624                           CALL                                           
034598,001766: 11,2336           34612                                    CALCSMSC                              
034599,001767: 11,2337           66370                           AXT,1    SSP                                   
034600,001768: 11,2340           00022                                    18D                                   
034601,001769: 11,2341           00051                                    S1                                    
034602,001770: 11,2342           00006                                    6D                                    
034603,001771: 11,2343           61373        S52.2A             VLOAD*   VXM                                   
034604,001772: 11,2344           02736                                    XNB        +18D,1                     
034605,001773: 11,2345           01736                                    REFSMMAT                              
034606,001774: 11,2346           77656                           UNIT                                           
034607,001775: 11,2347           06736                           STORE    XNB        +18D,1                     
034608,001776: 11,2350           77700                           TIX,1                                          
034609,001777: 11,2351           22343                                    S52.2A                                
034610,001778: 11,2352           75160        S52.2.1            AXC,1    AXC,2                                 
034611,001779: 11,2353           00306                                    XSMD                                  
034612,001780: 11,2354           02671                                    XSM                                   
034613,001781: 11,2355           77624                           CALL                                           
034614,001782: 11,2356           31053                                    MATMOVE                               
034615,001783: 11,2357           77624                           CALL                                           
034616,001784: 11,2360           47311                                    CALCGA                                
034617,001785: 11,2361           77650                           GOTO                                           
034618,001786: 11,2362           00300                                    QMAJ                                  
034619,001787: 

Page 775

034621,001789:                                                                                                  #  PROGRAM NAME - SR52.1                         DATE  DEC 20 66
034622,001790:                                                                                                  #  MOD 1                                         LOG SEC  P51-P53
034623,001791:                                                                                                  #  BY KEN VINCENT                                ASSEMBLY  SUNDISK REV 40
034624,001792: 
034625,001793:                                                                                                  #  FUNCTION
034626,001794: 
034627,001795:                                                                                                  #  TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
034628,001796:                                                                                                  #  LEM, STAR OR LANDMARK.  IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
034629,001797:                                                                                                  #  2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1).  IF THE LEM IS 
034630,001798:                                                                                                  #  THE TARGET THEN CONIC UPDATES      OF THE CSM AND LEM ARE MADE TO
034631,001799:                                                                                                  #  THE TIME IN AOPTIME.  THE UNIT OF THE DIFFERENCE OF LEM AND CSM
034632,001800:                                                                                                  #  POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
034633,001801:                                                                                                  #  COMMON PART OF THIS PROGRAM.
034634,001802: 
034635,001803:                                                                                                  #  IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY.  THE RADIUS
034636,001804:                                                                                                  #  VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV.  BOTH OF THESE ARE
034637,001805:                                                                                                  #  FOUND FOR THE TIME IN AOPTIME.  THE UNIT OF THE DIFFERENCE BETWEEN
034638,001806:                                                                                                  #  THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
034639,001807:                                                                                                  #  VECTOR FOR THE COMMON PART OF THIS ROUTINE.
034640,001808: 
034641,001809:                                                                                                  #  IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
034642,001810:                                                                                                  #  AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
034643,001811: 
034644,001812:                                                                                                  #  THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING
034645,001813:                                                                                                  #  VECTOR INTO STABLE MEMBER COORDINATES.  IT READS THE IMU-CDUS AND USES
034646,001814:                                                                                                  #  THIS DATA IN A CALL TO CALCSXA.  ON RETURN FROM CALCSXA A TEST IS
034647,001815:                                                                                                  #  MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN  90DEG OR 38DEG.
034648,001816:                                                                                                  #  MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG. OR 50DEG.
034649,001817: 
034650,001818:                                                                                                  #  CALLING SEQUENCE
034651,001819: 
034652,001820:                                                                                                  #        L+4     RETURN WHEN SHAFT OR TRUNION NOT WITHIN 5 DEG OF DESIRED
034653,001821:                                                                                                  #        L       TC      BANKCALL
034654,001822:                                                                                                  #        L+1     CADR    SR52.1
034655,001823:                                                                                                  #        L+2     ERROR RETURN    TRUNNION GREATER THAN 90 DEG
034656,001824:                                                                                                  #        L&3     ERROR RETURN    TRUNNION GREATER THAN 50 DEG
034657,001825:                                                                                                  #        L+4     NORMAL RETURN
034658,001826: 
034659,001827:                                                                                                  #  OUTPUT
034660,001828: 
034661,001829:                                                                                                  #        SAC -SINGLE PREC, 2S COMP, SCALED AT HALF REVS - SHAFT ANGLE DESIRED
034662,001830:                                                                                                  #        PAC -SINGLE PREC, 2S COMP  SCALED AT EIGTH REVS - TRUNNION ANGLE DESIRED
034663,001831: 
034664,001832:                                                                                                  #  INITIALIZATION
034665,001833: 
034666,001834:                                                                                                  #        IF TARG1FLG =1 THEN TARGET IS LEM - NO OTHER INPUT REQUIRED
034667,001835: 
034668,001836:                                                                                                  #        IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
034669,001837:                                                                                                  #        0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE.  STAR CODES
034670,001838:                                                                                                  #        ARE 6 TIMES STAR NUMBER.
034671,001839: 
034672,001840:                                                                                                  #        IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK.  SEE ROUTINE
034673,001841:                                                                                                  #        LALOTORV FOR INPUT REQUIREMENTS.  HERE FIXERAD=1 FOR CONSTANT EARTH
034674,001842:                                                                                                  #        RADIUS
034675,001843: 
034676,001844:                                                                                                  #  DEBRIS
034677,001845: 
034678,001846:                                                                                                  #        WORK AREA
034679,001847:                                                                                                  #        STARAD - STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
034680,001848: 
034681,001849: 11,2363                                           COUNT*   $$/SR521                              

Page 776

034683,001851: 13,2000                                           SETLOC   SR52/1                                
034684,001852: 13,2000                                           BANK                                           
034685,001853: 
034686,001854: 13,2244           04711        SR52.1             TC       MAKECADR                              
034687,001855: 13,2245           55777                           TS       QMIN                                  
034688,001856: 13,2246           06006                           TC       INTPRET                               
034689,001857: 13,2247           43234                           RTB      DAD                                   
034690,001858: 13,2250           45510                                    LOADTIME                              
034691,001859: 13,2251           26365                                    1.3SECDP                              
034692,001860: 13,2252           02356                           STORE    AOPTIME                               
034693,001861: 13,2253           43014                           BON      BON                                   
034694,001862: 13,2254           00705                                    TARG1FLG                              
034695,001863: 13,2255           26262                                    LEM52                                 
034696,001864: 13,2256           00706                                    TARG2FLG                              
034697,001865: 13,2257           26272                                    LMK52                                 
034698,001866: 13,2260           77650                           GOTO                                           
034699,001867: 13,2261           26313                                    STAR52                                
034700,001868: 13,2262           77745        LEM52              DLOAD                                          
034701,001869: 13,2263           02356                                    AOPTIME                               
034702,001870: 13,2264           34041                           STCALL   TDEC1                                 
034703,001871: 13,2265           27126                                    LEMCONIC                              
034704,001872: 13,2266           77775                           VLOAD                                          
034705,001873: 13,2267           00001                                    RATT                                  
034706,001874: 13,2270           77650                           GOTO                                           
034707,001875: 13,2271           26302                                    LMKLMCOM                              
034708,001876: 13,2272           71214        LMK52              BON      DLOAD                                 
034709,001877: 13,2273           04305                                    ADVTRK                                
034710,001878: 13,2274           54000                                    ADVTRACK                              
034711,001879: 13,2275           02356                                    AOPTIME                               
034712,001880: 13,2276           77624                           CALL                                           
034713,001881: 13,2277           26441                                    LALOTORV                              
034714,001882: 13,2300           77775                           VLOAD                                          
034715,001883: 13,2301           02152                                    ALPHAV                                
034716,001884: 13,2302           16766        LMKLMCOM           STODL    STAR                                  
034717,001885: 13,2303           02356                                    AOPTIME                               
034718,001886: 13,2304           34041                           STCALL   TDEC1                                 
034719,001887: 13,2305           27114                                    CSMCONIC                              
034720,001888: 13,2306           52375                           VLOAD    VSU                                   
034721,001889: 13,2307           02766                                    STAR                                  
034722,001890: 13,2310           00001                                    RATT                                  
034723,001891: 13,2311           52056                           UNIT     GOTO                                  
034724,001892: 13,2312           26326                                    COM52                                 
034725,001893: 13,2313           72131        STAR52             SSP      LXA,1                                 
034726,001894: 13,2314           00051                                    S1                                    
034727,001895: 13,2315           00000                                    0                                     
034728,001896: 13,2316           00304                                    STARIND                               
034729,001897: 13,2317           77700                           TIX,1                                          
034730,001898: 13,2320           26324                                    ST52ST                                
034731,001899: 13,2321           52175                           VLOAD    GOTO                                  
034732,001900: 13,2322           02617                                    STARSAV2                              

Page 777

034734,001902: 13,2323           26326                                    COM52                                 
034735,001903: 13,2324           77775        ST52ST             VLOAD                                          
034736,001904: 13,2325           02611                                    STARSAV1                              
034737,001905: 13,2326           53521        COM52              MXV      UNIT                                  
034738,001906: 13,2327           01736                                    REFSMMAT                              
034739,001907: 13,2330           02766                           STORE    STAR                                  
034740,001908: 13,2331           45001                           SETPD    CALL                                  
034741,001909: 13,2332           00001                                    0                                     
034742,001910: 13,2333           47477                                    CDUTRIG                               #  COMPUTES SINES AND COSINES FOR CALCSXA
034743,001911: 13,2334           77624                           CALL                                           #        NOW EXPECT TO SEE THE CDU ANGLES.
034744,001912: 13,2335           46034                                    CALCSXA                               
034745,001913: 13,2336           77414                           BOFF     EXIT                                  
034746,001914: 13,2337           01750                                    CULTFLAG                              
034747,001915: 13,2340           26342                                    TRUN38                                
034748,001916: 13,2341           02360                           TC       SR52E1                                
034749,001917: 13,2342           45345        TRUN38             DLOAD    DSU                                   
034750,001918: 13,2343           02776                                    PAC                                   
034751,001919: 13,2344           26363                                    38TRDEG                               
034752,001920: 13,2345           71244                           BPL      DLOAD                                 
034753,001921: 13,2346           26353                                    SR52E22                               
034754,001922: 13,2347           02776                                    PAC                                   
034755,001923: 13,2350           51025                           DSU      BPL                                   
034756,001924: 13,2351           26367                                    20DEGSMN                              
034757,001925: 13,2352           26355                                    SR52E3                                
034758,001926: 13,2353           77776        SR52E22            EXIT                                           
034759,001927: 13,2354           02357                           TC       SR52E2                                
034760,001928: 13,2355           77776        SR52E3             EXIT                                           
034761,001929: 13,2356           25777                           INCR     QMIN                                  
034762,001930: 13,2357           25777        SR52E2             INCR     QMIN                                  
034763,001931: 13,2360           31777        SR52E1             CA       QMIN                                  
034764,001932: 13,2361           04666                           TC       SWCALL                                
034765,001933: 13,2362           25252 25254  38TRDEG            2DEC     .66666667                             #  CORESPONDS TO 50 DEGS IN TRUNION
034766,001934: 
034767,001935: 13,2364           00000 00202  1.3SECDP           2DEC     130        B-28                       
034768,001936: 
034769,001937: 13,2366           61740        20DEGSMN           DEC      -07199     B-14                       
034770,001938: 13,2367           77777                           DEC      -0         B-14                       
034771,001939: 

Page 778

034773,001941:                                                                                                  #     THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
034774,001942:                                                                                                  #  A POINT ON THE GROUND TRACK 60 DEGRESS FORWARD OF THE LOCAL VERTICAL
034775,001943:                                                                                                  #  OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW
034776,001944: 
034777,001945: 26,2000                                           SETLOC   26P50S                                
034778,001946: 26,2000                                           BANK                                           
034779,001947: 26,2000           77601        ADVTRACK           SETPD                                          
034780,001948: 26,2001           00001                                    0                                     
034781,001949: 26,2002           41575                           VLOAD    PUSH                                  #  INITIALIZE FOR RP-TO-R
034782,001950: 26,2003           15327                                    UNITZ                                 #  UZ VEC IN PD 0-5
034783,001951: 26,2004           41434                           RTB      PUSH                                  #  TIME IN PD 6-7
034784,001952: 26,2005           45510                                    LOADTIME                              
034785,001953: 26,2006           36356                           STCALL   AOPTIME                               #  TIME ALSO IN AOPTIME FOR CSMCONIC
034786,001954: 26,2007           55344                                    RP-TO-R                               #  GET MOON ROTATION VEC IN REF
034787,001955: 26,2010           16766                           STODL    STAR                                  
034788,001956: 26,2011           02356                                    AOPTIME                               #  PICK UP TIME
034789,001957: 26,2012           34041                           STCALL   TDEC1                                 #  UPDATE STATE TO TIME
034790,001958: 26,2013           27114                                    CSMCONIC                              
034791,001959: 26,2014           47375                           VLOAD    VXV                                   
034792,001960: 26,2015           00007                                    VATT                                  
034793,001961: 26,2016           00001                                    RATT                                  
034794,001962: 26,2017           77656                           UNIT                                           
034795,001963: 26,2020           24031                           STOVL    24D                                   #  SAVE -UNIT(V X R) FOR 2ND ROTATION
034796,001964: 26,2021           00001                                    RATT                                  
034797,001965: 26,2022           57456                           UNIT     VCOMP                                 
034798,001966: 26,2023           41401                           SETPD    PUSH                                  #  PUSH LOS=-UNIT(RVEC) PD 0-5
034799,001967: 26,2024           00001                                    0                                     
034800,001968: 26,2025           77776                           EXIT                                           
034801,001969: 26,2026           31751                           CA       LANDMARK                              
034802,001970: 26,2027           75023                           MASK     SEVEN                                 #  GET NUMBER OF ADVANCE PERIODS
034803,001971: 26,2030           00006                           EXTEND                                         
034804,001972: 26,2031           75005                           MP       BIT11                                 #  GET N/16
034805,001973: 26,2032           56001                           XCH      L                                     
034806,001974: 26,2033           50120                           INDEX    FIXLOC                                
034807,001975: 26,2034           54036                           TS       30D                                   #  TEMP STORE N/16
034808,001976: 26,2035           06006                           TC       INTPRET                               
034809,001977: 26,2036           41335                           SLOAD    DMP                                   
034810,001978: 26,2037           00037                                    30D                                   
034811,001979: 26,2040           14107                                    MPERIOD                               
034812,001980: 26,2041           36356                           STCALL   AOPTIME                               #  ROTATE ANG ABOUT UR
034813,001981: 26,2042           54057                                    ROTA                                  
034814,001982: 26,2043           77775                           VLOAD                                          
034815,001983: 26,2044           00031                                    24D                                   #  PICK UP 2ND ROTATION AXIS
034816,001984: 26,2045           16766                           STODL    STAR                                  
034817,001985: 26,2046           14105                                    DP1/6                                 
034818,001986: 26,2047           77625                           DSU                                            
034819,001987: 26,2050           02356                                    AOPTIME                               #  2ND RAT ANGLE = 60 - A
034820,001988: 26,2051           36356                           STCALL   AOPTIME                               
034821,001989: 26,2052           54057                                    ROTA                                  #  GO ROTATE 2ND TIME
034822,001990: 26,2053           77775                           VLOAD                                          

Page 779

034824,001992: 26,2054           00001                                    0                                     
034825,001993: 26,2055           36766                           STCALL   STAR                                  #  STORE FINAL LOS IN STAR
034826,001994: 26,2056           26326                                    COM52                                 #  RETURN TO SR52.1
034827,001995: 
034828,001996: 26,2057           73545        ROTA               DLOAD    SIN                                   
034829,001997: 26,2060           02356                                    AOPTIME                               
034830,001998: 26,2061           47315                           PDVL     VXV                                   #  PUSH 1/2SIN(A) PD 6-7
034831,001999: 26,2062           02766                                    STAR                                  #        UR VEC
034832,002000: 26,2063           00001                                    0                                     #        LOS
034833,002001: 26,2064           72561                           VXSC     VSL2                                  #  1/2SIN(A)(URXLOS) PD 6-11
034834,002002: 26,2065           50315                           PDVL     DOT                                   
034835,002003: 26,2066           02766                                    STAR                                  
034836,002004: 26,2067           00001                                    0                                     
034837,002005: 26,2070           72561                           VXSC     VSL2                                  
034838,002006: 26,2071           02766                                    STAR                                  
034839,002007: 26,2072           71525                           PDDL     COS                                   #  1/2(UR . LOS)UR 12-17
034840,002008: 26,2073           02356                                    AOPTIME                               
034841,002009: 26,2074           51315                           PDVL     BVSU                                  #  PUSH 1/2COS(A) 18-19
034842,002010: 26,2075           00015                                    12D                                   
034843,002011: 26,2076           00001                                    0                                     
034844,002012: 26,2077           76561                           VXSC     VSL1                                  #  UP 18-19
034845,002013: 26,2100           53255                           VAD      VAD                                   #  UP 12-17 UP 6-11
034846,002014: 26,2101           40256                           UNIT     SETPD                                 
034847,002015: 26,2102           00001                                    0                                     
034848,002016: 26,2103           43406                           PUSH     RVQ                                   
034849,002017: 
034850,002018: 26,2104           05252 25251  DP1/6              2DEC     .16666666                             
034851,002019: 
034852,002020: 26,2106           01414 06044  MPERIOD            2DEC     .047619                               #  APPROX LUNAR ROT ANG IN 2HRS X 16
034853,002021: 

Page 780

034855,002023:                                                                                                  #  NAME - S52.3
034856,002024:                                                                                                  #  FUNCTION -    XSMD= UNIT(YSMD X ZSMD)
034857,002025:                                                                                                  #                YSMD= UNIT(V X R)
034858,002026:                                                                                                  #                ZSMD= UNIT(-R)
034859,002027:                                                                                                  #  CALL          DLOAD   CALL
034860,002028:                                                                                                  #                        TALIGN
034861,002029:                                                                                                  #                        S52.3
034862,002030:                                                                                                  #  INPUT -       TIME OF ALIGNMENT IN MPAC
034863,002031:                                                                                                  #  OUTPUT -      X,Y,ZSMD
034864,002032:                                                                                                  #  SUBROUTINES - CSMCONIC
034865,002033: 
034866,002034: 16,2000                                           SETLOC   P50S2                                 
034867,002035: 16,2000                                           BANK                                           
034868,002036: 
034869,002037: 16,2661                                           COUNT    15/S52.3                              
034870,002038: 16,2661           77620        S52.3              STQ                                            
034871,002039: 16,2662           00300                                    QMAJ                                  
034872,002040: 16,2663           34041                           STCALL   TDEC1                                 
034873,002041: 16,2664           27071                                    CSMPREC                               
034874,002042: 16,2665           77601                           SETPD                                          
034875,002043: 16,2666           00001                                    0                                     
034876,002044: 16,2667           57575                           VLOAD    VCOMP                                 
034877,002045: 16,2670           00001                                    RATT                                  
034878,002046: 16,2671           77656                           UNIT                                           
034879,002047: 16,2672           24323                           STOVL    ZSMD                                  
034880,002048: 16,2673           00007                                    VATT                                  
034881,002049: 16,2674           53435                           VXV      UNIT                                  
034882,002050: 16,2675           00001                                    RATT                                  
034883,002051: 16,2676           00315                           STORE    YSMD                                  
034884,002052: 16,2677           53435                           VXV      UNIT                                  
034885,002053: 16,2700           00323                                    ZSMD                                  
034886,002054: 16,2701           34307                           STCALL   XSMD                                  
034887,002055: 16,2702           00300                                    QMAJ                                  
034888,002056: 

Page 781

034890,002058:                                                                                                  #  PROGRAM DESCRIPTION - R56 - ALTERNATE LOS SIGHTING MARK ROUTINE
034891,002059: 
034892,002060:                                                                                                  #  FUNCTIONAL DESCRIPTION
034893,002061: 
034894,002062:                                                                                                  #        TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54).  THE ASTRONAUT KNOWS THE
034895,002063:                                                                                                  #        COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE.  WHEN THE ASTRONAUT KEYS IN
034896,002064:                                                                                                  #        ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
034897,002065:                                                                                                  #        IN N92.
034898,002066: 
034899,002067:                                                                                                  #  CALLING SEQUENCE
034900,002068: 
034901,002069:                                                                                                  #        CALL
034902,002070:                                                                                                  #                R56
034903,002071: 
034904,002072:                                                                                                  #  SUBROUTINES CALLED
034905,002073: 
034906,002074:                                                                                                  #        A PORTION OF SXTMARK (VAC.AREA SEARCH)
034907,002075:                                                                                                  #        GOFLASH
034908,002076:                                                                                                  #        GOPERF1
034909,002077: 
034910,002078:                                                                                                  #  ERASABLE INITIALIZATION
034911,002079: 
034912,002080:                                                                                                  #        STARIND-INDEX TO STAR NUMBER
034913,002081: 
034914,002082:                                                                                                  #  OUTPUT
034915,002083: 
034916,002084:                                                                                                  #        MARKSTAT-INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
034917,002085:                                                                                                  #        BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
034918,002086:                                                                                                  #        ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS-
034919,002087:                                                                                                  #                VAC +2  CDUY
034920,002088:                                                                                                  #                VAC +3  CDUS
034921,002089:                                                                                                  #                VAC +4  CDUZ
034922,002090:                                                                                                  #                VAC +5  CDUT
034923,002091:                                                                                                  #                VAC +6  CDUX
034924,002092: 
034925,002093: 16,2703                                           COUNT*   $$/R56                                
034926,002094: 17,2000                                           SETLOC   P50S3                                 
034927,002095: 17,2000                                           BANK                                           
034928,002096: 17,2056           77420        R56                STQ      EXIT                                  
034929,002097: 17,2057           03501                                    R53EXIT                               
034930,002098: 17,2060           32146                           CAF      V06N94B                               
034931,002099: 17,2061           04662                           TC       BANKCALL                              
034932,002100: 17,2062           20720                           CADR     GOFLASH                               
034933,002101: 17,2063           04106                           TC       GOTOPOOH                              #  TERM.
034934,002102: 17,2064           02066                           TC       R56A                                  #  PROCEED - ANGLES OK
034935,002103: 17,2065           02060                           TC       -5                                    #  ENTER - NEW ANGLES
034936,002104: 17,2066           04662        R56A               TC       BANKCALL                              
034937,002105: 17,2067           16004                           CADR     SXTMARK    +2                         #  INHIBIR EXT VB ACT AND FIND VAC AREA
034938,002106: 
034939,002107: 17,2070           35021                           CAF      ZERO                                  
034940,002108: 17,2071           04662                           TC       BANKCALL                              
034941,002109: 17,2072           20703                           CADR     CLEANDSP                              
034942,002110: 
034943,002111: 17,2073           32145        R56A1              CAF      VB53                                  #  DISPLAY V53 REQUESTING ALTERNATE MARK
034944,002112: 17,2074           04662                           TC       BANKCALL                              

Page 782

034946,002114: 17,2075           20564                           CADR     GOMARK2                               
034947,002115: 17,2076           14106                           TCF      GOTOPOOH                              #  V34-TERMINATE
034948,002116: 17,2077           12073                           TCF      R56A1                                 #  V33-DONT PROCEED-JUST ENTER TO MARK
034949,002117: 17,2100           06006                           TC       INTPRET                               
034950,002118: 17,2101           77745                           DLOAD                                          
034951,002119: 17,2102           03731                                    MRKBUF1    +3                         
034952,002120: 17,2103           16774                           STODL    SAC                                   
034953,002121: 17,2104           03733                                    MRKBUF1    +5                         
034954,002122: 17,2105           02776                           STORE    PAC                                   
034955,002123: 17,2106           77776                           EXIT                                           
034956,002124: 17,2107           00004                           INHINT                                         
034957,002125: 17,2110           00006                           EXTEND                                         
034958,002126: 17,2111           30025                           DCA      TIME2                                 
034959,002127: 17,2112           51330                           INDEX    MARKSTAT                              
034960,002128: 17,2113           52001                           DXCH     0                                     
034961,002129: 17,2114           30033                           CA       CDUY                                  #  ENTER-THIS IS A BACKUP SYSTEM MARK
034962,002130: 17,2115           51330                           INDEX    MARKSTAT                              
034963,002131: 17,2116           54002                           TS       2                                     
034964,002132: 17,2117           31773                           CA       SAC                                   
034965,002133: 17,2120           51330                           INDEX    MARKSTAT                              
034966,002134: 17,2121           54003                           TS       3                                     
034967,002135: 17,2122           30034                           CA       CDUZ                                  
034968,002136: 17,2123           51330                           INDEX    MARKSTAT                              
034969,002137: 17,2124           54004                           TS       4                                     
034970,002138: 17,2125           31775                           CA       PAC                                   
034971,002139: 17,2126           51330                           INDEX    MARKSTAT                              
034972,002140: 17,2127           54005                           TS       5                                     
034973,002141: 17,2130           30032                           CA       CDUX                                  
034974,002142: 17,2131           51330                           INDEX    MARKSTAT                              
034975,002143: 17,2132           54006                           TS       6                                     
034976,002144: 17,2133           00003                           RELINT                                         
034977,002145: 17,2134           05536                           TC       CLEARMRK                              #  ENABLE EXTENDED VERBS
034978,002146: 17,2135           34333                           CAF      OCT16                                 
034979,002147: 17,2136           04662                           TC       BANKCALL                              
034980,002148: 17,2137           21045                           CADR     GOPERF1                               
034981,002149: 17,2140           04106                           TC       GOTOPOOH                              #  TERM.
034982,002150: 17,2141           12143                           TCF      R56B                                  #  PROCEED-MARK COMPLETED
034983,002151: 17,2142           12070                           TCF      R56A       +2                         #  RECYCLE-DO ANOTHER MARK - LIKE REJECT
034984,002152: 17,2143           04662        R56B               TC       BANKCALL                              
034985,002153: 17,2144           31336                           CADR     R53C1                                 
034986,002154: 17,2145           15200        VB53               VN       05300                                 #  ALTERNATE MARK VERB
034987,002155: 17,2146           01536        V06N94B            VN       00694                                 
034988,002156: 15,2000                                           SETLOC   P50S                                  
034989,002157: 15,2000                                           BANK                                           
034990,002158: 
034991,002159: 15,2340           02607        PLANET             STORE    TSIGHT                                
034992,002160: 15,2341           45020                           STQ      CALL                                  
034993,002161: 15,2342           02777                                    QMIN                                  
034994,002162: 15,2343           30225                                    LOCSAM                                
034995,002163: 15,2344           77775                           VLOAD                                          

Page 783

034997,002165: 15,2345           02736                                    VEARTH                                
034998,002166: 15,2346           24001                           STOVL    0D                                    
034999,002167: 15,2347           02744                                    VSUN                                  
035000,002168: 15,2350           26736                           STOVL    VEARTH                                
035001,002169: 15,2351           00001                                    0D                                    
035002,002170: 15,2352           02744                           STORE    VSUN                                  
035003,002171: 15,2353           77776        NOSAM              EXIT                                           
035004,002172: 15,2354           47713                           CS       HIGH9                                 
035005,002173: 15,2355           70735                           MASK     STARCODE                              
035006,002174: 15,2356           00006                           EXTEND                                         
035007,002175: 15,2357           76211                           MP       SIGHTSIX                              
035008,002176: 15,2360           56001                           XCH      L                                     
035009,002177: 15,2361           50304                           INDEX    STARIND                               
035010,002178: 15,2362           54302                           TS       BESTI                                 
035011,002179: 15,2363           10000                           CCS      A                                     
035012,002180: 15,2364           12401                           TCF      NOTPLAN                               
035013,002181: 15,2365           32431                           CAF      VNPLANV                               
035014,002182: 15,2366           04662                           TC       BANKCALL                              
035015,002183: 15,2367           20720                           CADR     GOFLASH                               
035016,002184: 15,2370           04106                           TC       GOTOPOOH                              
035017,002185: 15,2371           02373                           TC       +2                                    
035018,002186: 15,2372           02365                           TC       -5                                    
035019,002187: 15,2373           06006                           TC       INTPRET                               
035020,002188: 15,2374           74375                           VLOAD    VXSC                                  
035021,002189: 15,2375           03705                                    STARSAV3                              
035022,002190: 15,2376           32433                                    1/SQR3                                
035023,002191: 15,2377           52056                           UNIT     GOTO                                  
035024,002192: 15,2400           32424                                    CORPLAN                               
035025,002193: 15,2401           40000        NOTPLAN            CS       A                                     
035026,002194: 15,2402           62430                           AD       DEC227                                
035027,002195: 15,2403           00006                           EXTEND                                         
035028,002196: 15,2404           62415                           BZMF     CALSAM1                               
035029,002197: 15,2405           50304                           INDEX    STARIND                               
035030,002198: 15,2406           30302                           CA       BESTI                                 
035031,002199: 15,2407           50120                           INDEX    FIXLOC                                
035032,002200: 15,2410           54046                           TS       X1                                    
035033,002201: 15,2411           06006                           TC       INTPRET                               
035034,002202: 15,2412           52173                           VLOAD*   GOTO                                  
035035,002203: 15,2413           31761                                    CATLOG,1                              
035036,002204: 15,2414           32424                                    CORPLAN                               
035037,002205: 15,2415           06006        CALSAM1            TC       INTPRET                               
035038,002206: 15,2416           70740                           LXC,1    DLOAD*                                
035039,002207: 15,2417           00304                                    STARIND                               
035040,002208: 15,2420           00303                                    BESTI,1                               
035041,002209: 15,2421           76740                           LXC,1    VLOAD*                                
035042,002210: 15,2422           00154                                    MPAC                                  
035043,002211: 15,2423           02372                                    STARAD     -228D,1                    
035044,002212: 15,2424           53455        CORPLAN            VAD      UNIT                                  
035045,002213: 15,2425           03474                                    VEL/C                                 
035046,002214: 15,2426           77650                           GOTO                                           

Page 784

035048,002216: 15,2427           02777                                    QMIN                                  
035049,002217: 15,2430           00343        DEC227             DEC      227        B-14                       
035050,002218: 15,2431           01530        VNPLANV            VN       0688                                  
035051,002219: 15,2432           22363 11623  1/SQR3             2DEC     .57735021                             
035052,002220: 
035053,002221: 

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