Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images may be 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 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971
Note that the date is the date of the printout, not the date of the program revision.

032925,000002:                                                                                                  ## Copyright:   Public domain.
032926,000003:                                                                                                  ## Filename:    P51-P53.agc
032927,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
032928,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
032929,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
032930,000007:                                                                                                  ##              Apollo 15-17.
032931,000008:                                                                                                  ## Assembler:   yaYUL
032932,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
032933,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
032934,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
032935,000012:                                                                                                  ## Mod history: 2009-08-16 JL   Adapted from corresponding Comanche 055 file.
032936,000013:                                                                                                  ##              2009-09-04 JL   Fixed typo, fixed error in conversion of some interpreter code.
032937,000014:                                                                                                  ##              2010-01-31 JL   Fixed build errors.
032938,000015:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
032939,000016:                                                                                                  ##              2010-02-02 JL   Fixed build errors.
032940,000017:                                                                                                  ##              2010-02-11 JL   Fixed error on page 746.
032941,000018:                                                                                                  ##              2010-02-14 JL   Fixed error on page 753.
032942,000019:                                                                                                  ##              2017-02-08 RSB  Proofed comment text with octopus/ProoferComments.
032943,000020:                                                                                                  ##              2017-03-14 RSB  Comment-text fixes noted in proofing Luminary 116.
032944,000021:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified by 4-way diff'ing
032945,000022:                                                                                                  ##                              of Colossus 237 & 249, Comanche 55, and Artemis 72.
032946,000023: 

Page 742

032948,000025: 
032949,000026:                                                                                                  #  PROGRAM NAME - PROG52                         DATE - AUGUST 1,1969
032950,000027:                                                                                                  #  MODIFICATION BY ALBERT,BARNERT,HASLAM         LOG SECTION - P51-P5
032951,000028: 
032952,000029:                                                                                                  #  FUNCTION -
032953,000030: 
032954,000031:                                                                                                  #  ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT. THE PRESENT IMU ORIENTATION IS KNOWN
032955,000032:                                                                                                  #  AND IS STORED IN REFSMMAT. THE THREE POSSIBLE ORIENTATIONS MAY BE_
032956,000033: 
032957,000034:                                                                                                  #        (A) PREFERRED ORIENTATION
032958,000035: 
032959,000036:                                                                                                  #        AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANUEVER. THIS ORIENTATION MUST BE CALCULATED AND
032960,000037:                                                                                                  #        STORED BY A PREVIOUSLY SELECTED PROGRAM.
032961,000038: 
032962,000039:                                                                                                  #        (B) NOMINAL (LOCAL VERTICAL) ORIENTATION
032963,000040: 
032964,000041:                                                                                                  #                X   = UNIT ( Y   X Z   )
032965,000042:                                                                                                  #                -SM          -SM   -SM
032966,000043: 
032967,000044:                                                                                                  #                Y   = UNIT (V X R)
032968,000045:                                                                                                  #                -SM         -   -
032969,000046: 
032970,000047:                                                                                                  #                Z   = UNIT ( -R )
032971,000048:                                                                                                  #                -SM           -
032972,000049: 
032973,000050:                                                                                                  #                WHERE_
032974,000051: 
032975,000052:                                                                                                  #                R = THE GEOCENTRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032976,000053:                                                                                                  #                -
032977,000054: 
032978,000055:                                                                                                  #                V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032979,000056:                                                                                                  #                -
032980,000057: 
032981,000058:                                                                                                  #        (C) REFSMMAT ORIENTATION
032982,000059: 
032983,000060:                                                                                                  #        THIS ORIENTATION IS SELECTED AUTOMATICALLY UNLESS THE ASTRONAUT KEYS IN A DIFFERENT OPTION CODE
032984,000061: 
032985,000062:                                                                                                  #        THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION. THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
032986,000063:                                                                                                  #        WAS LAST ALIGNED ONLY DUE TO GYRO DRIFT (I.E. NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPTION HAS OCCURED
032987,000064:                                                                                                  #        SINCE THE LAST ALIGNMENT).
032988,000065: 
032989,000066:                                                                                                  #  AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
032990,000067:                                                                                                  #  NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE.  CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
032991,000068:                                                                                                  #  COARSE ALIGN THE IMU. THE STAR SELECTION ROUTINE, R56, IS THEN OPERATED. IF 2 STARS ARE NOT AVAILABLE AN ALARM
032992,000069:                                                                                                  #  IS FLASHED TO NOTIFY THE ASTRONAUT. AT THIS POINT THE ASTRONAUT WILL MANUEVER THE VEHICLE AND SELECT 2 STARS
032993,000070:                                                                                                  #  EITHER MANUALLY OR AUTOMATICALLY. AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51. IF
032994,000071:                                                                                                  #  THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED. OTHERWISE P00 IS
032995,000072:                                                                                                  #  REQUESTED.
032996,000073: 
032997,000074:                                                                                                  #  CALLING SEQUENCE -
032998,000075: 
032999,000076:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.

Page 743

033001,000078: 
033002,000079:                                                                                                  #  SUBROUTINES CALLED -
033003,000080: 
033004,000081:                                                                                                  #        1. FLAGDOWN              6. S52.2               11. GOPERF3
033005,000082:                                                                                                  #        2. R02BOTH               7. CAL53A              12. NEWMODEX
033006,000083:                                                                                                  #        3. GOPERF4               8. FLAGUP              13. PRIOLARM
033007,000084:                                                                                                  #        4. MATMOVE               9. R56
033008,000085:                                                                                                  #        5. GOFLASH              10. R51
033009,000086: 
033010,000087:                                                                                                  #  NORMAL EXIT MODES -
033011,000088: 
033012,000089:                                                                                                  #        EXITS TO ENDOFJOB
033013,000090: 
033014,000091:                                                                                                  #  ALARM OR ABORT EXIT MODES -
033015,000092: 
033016,000093:                                                                                                  #        NONE
033017,000094: 
033018,000095:                                                                                                  #  OUTPUT -
033019,000096: 
033020,000097:                                                                                                  #        THE FOLLOWING MAY BE FLASHED ON THE DSKY
033021,000098:                                                                                                  #                1. IMU ORIENTATION CODE
033022,000099:                                                                                                  #                2. ALARM CODE 215 - PREFERRED IMU ORIENTATION NOT SPECIFIED
033023,000100:                                                                                                  #                3. TIME OF NEXT IGNITION
033024,000101:                                                                                                  #                4. GIMBAL ANGLES
033025,000102:                                                                                                  #                5. ALARM CODE 405 - TWO STARS NOT AVAILABLE
033026,000103:                                                                                                  #                6. PLEASE PERFORM P00
033027,000104:                                                                                                  #        THE MODE DISPLAY MAY BE CHANGED TO 20
033028,000105: 
033029,000106:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
033030,000107: 
033031,000108:                                                                                                  #        PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED. IF IT HAS BEEN COMPUTED IT IS STORED IN
033032,000109:                                                                                                  #        XSMD, YSMD, ZSMD.
033033,000110:                                                                                                  #        RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
033034,000111: 
033035,000112:                                                                                                  #  DEBRIS -
033036,000113: 
033037,000114:                                                                                                  #        WORK AREA
033038,000115: 
033039,000116: 24,3751  14,2002               P54                =        PROG52                                
033040,000117: 14,2000                                           SETLOC   P50S                                  
033041,000118: 14,2000                                           BANK                                           
033042,000119: 
033043,000120: 14,2002  30,2000                                  SBANK=   LOWSUPER                              
033044,000121: 14,2002  E5,1773                                  EBANK=   SAC                                   
033045,000122: 14,2002                                           COUNT*   $$/P52                                
033046,000123: 14,2002           05561        PROG52             TC       DOWNFLAG                              
033047,000124: 14,2003           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1
033048,000125: 14,2004           05561                           TC       DOWNFLAG                              
033049,000126: 14,2005           00031                           ADRES    TRACKFLG                              #  BIT 5 FLAG 1
033050,000127: 14,2006           04636                           TC       BANKCALL                              
033051,000128: 14,2007           03731                           CADR     R02BOTH                               #  IMU STATUS CHECK
033052,000129: 14,2010           06006                           TC       INTPRET                               

Page 744

033054,000131: 14,2011           77414                           BON      EXIT                                  #  MINKEY SEQUENCE?
033055,000132: 14,2012           05310                                    AUTOSEQ                               
033056,000133: 14,2013           30276                                    P52AUTO                               #  YES
033057,000134: 
033058,000135: 14,2014           30104                           CA       FLAGWRD8                              
033059,000136: 14,2015           74760                           MASK     UTBIT                                 
033060,000137: 14,2016           00006                           EXTEND                                         
033061,000138: 14,2017           12025                           BZF      +6                                    
033062,000139: 
033063,000140: 14,2020           11351                           CCS      OPTNTYPE                              
033064,000141: 14,2021           12023                           TCF      +2                                    
033065,000142: 14,2022           12025                           TCF      +3                                    
033066,000143: 14,2023           05547                           TC       UPFLAG                                
033067,000144: 14,2024           00031                           ADRES    TRACKFLG                              
033068,000145: 
033069,000146: 14,2025           34765                           CAF      PFRATBIT                              
033070,000147: 14,2026           70076                           MASK     FLAGWRD2                              #  PREFERRED ORIENTATION
033071,000148: 14,2027           10000                           CCS      A                                     
033072,000149: 14,2030           02033                           TC       P52A                                  
033073,000150: 14,2031           36214                           CAF      THREE                                 #  ION
033074,000151: 14,2032           02034                           TC       P52A       +1                         
033075,000152: 14,2033           34770        P52A               CAF      BIT1                                  #  YES - SET OPTION 2 = 1
033076,000153: 14,2034           54776                 +1        TS       OPTION2                               
033077,000154: 14,2035           34770        P52B               CAF      BIT1                                  
033078,000155: 14,2036           04636                           TC       BANKCALL                              #  FLASH OPTION CODE AND ORIENTATION CODE
033079,000156: 14,2037           21074                           CADR     GOPERF4                               
033080,000157: 14,2040           04103                           TC       GOTOPOOH                              
033081,000158: 14,2041           02043                           TC       +2                                    
033082,000159: 14,2042           02035                           TC       P52B                                  #  NEW CODE - NEW ORIENTATION CODE INPUT
033083,000160: 14,2043           40776                           CS       OPTION2                               
033084,000161: 14,2044           76214                           MASK     THREE                                 
033085,000162: 14,2045           00006                           EXTEND                                         
033086,000163: 14,2046           12407                           BZF      P52C                                  #  REFERENCE
033087,000164: 14,2047           74770                           MASK     BIT1                                  
033088,000165: 14,2050           00006                           EXTEND                                         
033089,000166: 14,2051           12167                           BZF      P52J                                  #  PREFERRED
033090,000167: 14,2052           00006                           EXTEND                                         #  NOMINAL (LOCAL VERTICAL), LANDING SIGHT
033091,000168: 14,2053           34772                           DCA      NEG0                                  
033092,000169: 14,2054           53251                           DXCH     DSPTEM1                               
033093,000170: 14,2055           35027                           CAF      V06N34                                #  PREFERRED
033094,000171: 14,2056           05535                           TC       VNFLASH                               
033095,000172: 14,2057           31250                           CA       DSPTEM1                               
033096,000173: 14,2060           00006                           EXTEND                                         
033097,000174: 14,2061           12063                           BZF      +2                                    
033098,000175: 14,2062           12066                           TCF      +4                                    
033099,000176: 
033100,000177: 14,2063           00006                           EXTEND                                         
033101,000178: 14,2064           30025                           DCA      TIME2                                 
033102,000179: 14,2065           53251                           DXCH     DSPTEM1                               
033103,000180: 14,2066           30776                           CA       OPTION2                               

Page 745

033105,000182: 14,2067           74767                           MASK     BIT2                                  
033106,000183: 14,2070           10000                           CCS      A                                     
033107,000184: 14,2071           12145                           TCF      S52.3                                 #  NOM - S52.3 - NOW IN-LINE
033108,000185: 14,2072           06006                           TC       INTPRET                               #  LS - P52LS - NOW IN-LINE
033109,000186: 
033110,000187:                                                                                                  #  NAME - P52LS
033111,000188: 
033112,000189:                                                                                                  #  FUNCTION - TO DISPLAY THE LANDING SITE LATITUDE,
033113,000190:                                                                                                  #  LONGTITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA
033114,000191:                                                                                                  #  THE KEYBOARD. TO COMPUTE THE LANDING SITE
033115,000192:                                                                                                  #  ORIENTATION FOR P52 OR P54
033116,000193: 
033117,000194:                                                                                                  #  LET:
033118,000195:                                                                                                  #        RLS  = LANDING SITE VECTOR IN REF COORDINATES
033119,000196:                                                                                                  #        R    = CSM POSITION VECTOR IN REF COORDINATES
033120,000197:                                                                                                  #        V    = CSM VELOCITY VECTOR IN REF COORDINATES
033121,000198:                                                                                                  #  THEN THE LANDING SITE ORIENTATION IS:
033122,000199:                                                                                                  #        XSMD = UNIT(RLS)
033123,000200:                                                                                                  #        YSMD = UNIT(ZSMD*XSMD)
033124,000201:                                                                                                  #        ZSMD = UNIT((R*V)*RLS)
033125,000202: 
033126,000203:                                                                                                  #  INPUTS-       DSPTEM1 = TIME OF ALIGNMENT
033127,000204:                                                                                                  #                RLS = LANDING SITE VECTOR IN MOON FIXED COORINATES
033128,000205: 
033129,000206:                                                                                                  #  OUTPUTS-      XSMD, YSMD, ZSMD
033130,000207: 
033131,000208:                                                                                                  #  SUBROUTINES-  RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
033132,000209: 
033133,000210:                                                                                                  #  DEBRIS-       VAC, SEE SUBROUTINES
033134,000211: 
033135,000212: 14,2073           43014                           SET      SET                                   
033136,000213: 14,2074           01463                                    LUNAFLAG                              
033137,000214: 14,2075           00462                                    ERADFLAG                              
033138,000215: 14,2076           77775                           VLOAD                                          
033139,000216: 14,2077           02026                                    RLS                                   
033140,000217: 14,2100           14001                           STODL    0D                                    
033141,000218: 14,2101           01251                                    DSPTEM1                               
033142,000219: 14,2102           02607                           STORE    TSIGHT                                
033143,000220: 14,2103           34007                           STCALL   6D                                    
033144,000221: 14,2104           55345                                    RP-TO-R                               
033145,000222: 14,2105           77742                           VSR2                                           
033146,000223: 14,2106           16152                           STODL    ALPHAV                                
033147,000224: 14,2107           02607                                    TSIGHT                                
033148,000225: 14,2110           77624                           CALL                                           
033149,000226: 14,2111           26453                                    LAT-LONG                              
033150,000227: 14,2112           77624                           CALL                                           
033151,000228: 14,2113           62363                                    LLASRD                                
033152,000229: 14,2114           77776                           EXIT                                           
033153,000230: 14,2115           35036        LSDISP             CAF      V06N89*                               
033154,000231: 14,2116           05535                           TC       VNFLASH                               
033155,000232: 14,2117           06006                           TC       INTPRET                               
033156,000233: 14,2120           77624                           CALL                                           
033157,000234: 14,2121           62371                                    LLASRDA                               
033158,000235: 14,2122           45145                           DLOAD    CALL                                  
033159,000236: 14,2123           02607                                    TSIGHT                                

Page 746

033161,000238: 14,2124           26524                                    LALOTORV                              
033162,000239: 14,2125           53575                           VLOAD    UNIT                                  
033163,000240: 14,2126           02152                                    ALPHAV                                
033164,000241: 14,2127           14307                           STODL    XSMD                                  
033165,000242: 14,2130           02607                                    TSIGHT                                
033166,000243: 14,2131           34041                           STCALL   TDEC1                                 
033167,000244: 14,2132           27145                                    CSMPREC                               
033168,000245: 14,2133           47375                           VLOAD    VXV                                   
033169,000246: 14,2134           00001                                    RATT                                  
033170,000247: 14,2135           00007                                    VATT                                  
033171,000248: 14,2136           53435                           VXV      UNIT                                  
033172,000249: 14,2137           00307                                    XSMD                                  
033173,000250: 14,2140           00323                           STORE    ZSMD                                  
033174,000251: 14,2141           53435                           VXV      UNIT                                  
033175,000252: 14,2142           00307                                    XSMD                                  
033176,000253: 14,2143           34315                           STCALL   YSMD                                  
033177,000254: 14,2144           30170                                    P52D                                  
033178,000255: 14,2145     5036               V06N89*            =        V06N89                                
033179,000256: 
033180,000257:                                                                                                  #  NAME - S52.3
033181,000258:                                                                                                  #  FUNCTION - TO COMPUTE AMD DISPLAY THE
033182,000259:                                                                                                  #  GIMBAL ANGLES, ALLOW ASTRONAUT TO CHOOSE
033183,000260:                                                                                                  #  BETWEEN FAST AND ACCURATE IMU REALIGNMENT.
033184,000261:                                                                                                  #  NOMINAL (LOCAL VERTICAL) ORIENTATION IS:
033185,000262:                                                                                                  #                XSMD= UNIT(YSMD X ZSMD)
033186,000263:                                                                                                  #                YSMD= UNIT(V X R)
033187,000264:                                                                                                  #                ZSMD= UNIT(-R)
033188,000265: 
033189,000266:                                                                                                  #  INPUT -       TIME OF ALIGNMENT IN MPAC
033190,000267: 
033191,000268:                                                                                                  #  OUTPUT -      X,Y,ZSMD
033192,000269: 
033193,000270:                                                                                                  #  SUBROUTINES - CSMCONIC
033194,000271: 
033195,000272: 14,2145           06006        S52.3              TC       INTPRET                               
033196,000273: 14,2146           77745                           DLOAD                                          
033197,000274: 14,2147           01251                                    DSPTEM1                               
033198,000275: 14,2150           34041                           STCALL   TDEC1                                 
033199,000276: 14,2151           27145                                    CSMPREC                               
033200,000277: 14,2152           77201                           SETPD    VLOAD                                 
033201,000278: 14,2153           00001                                    0                                     
033202,000279: 14,2154           00001                                    RATT                                  
033203,000280: 14,2155           53476                           VCOMP    UNIT                                  
033204,000281: 14,2156           24323                           STOVL    ZSMD                                  
033205,000282: 14,2157           00007                                    VATT                                  
033206,000283: 14,2160           53435                           VXV      UNIT                                  
033207,000284: 14,2161           00001                                    RATT                                  
033208,000285: 14,2162           00315                           STORE    YSMD                                  
033209,000286: 14,2163           53435                           VXV      UNIT                                  
033210,000287: 14,2164           00323                                    ZSMD                                  
033211,000288: 14,2165           00307                           STORE    XSMD                                  
033212,000289: 14,2166           77776                           EXIT                                           
033213,000290: 14,2167           06006        P52J               TC       INTPRET                               
033214,000291: 14,2170           77624        P52D               CALL                                           #  READ VEHICLE ATTITUDE AND
033215,000292: 14,2171           22247                                    S52.2                                 #   COMPUTE GIMBAL ANGLES

Page 747

033217,000294: 14,2172           77776                           EXIT                                           
033218,000295: 14,2173           35025                           CAF      V06N22                                
033219,000296: 14,2174           04636                           TC       BANKCALL                              #  DISPLAY GIMBAL ANGLES
033220,000297: 14,2175           20743                           CADR     GOFLASH                               
033221,000298: 14,2176           04103                           TC       GOTOPOOH                              
033222,000299: 14,2177           02201                           TC       COARSTYP                              
033223,000300: 14,2200           02167                           TC       P52J                                  #  RECYCLE - VEHICLE HAS BEEN MANEUVERED
033224,000301: 14,2201           40106        COARSTYP           CS       FLGWRD10                              
033225,000302: 14,2202           74762                           MASK     AUTSQBIT                              
033226,000303: 14,2203           00006                           EXTEND                                         
033227,000304: 14,2204           12320                           BZF      PERF20                                #  IF MINKEY
033228,000305: 14,2205           34775                           CAF      OCT13                                 #  PLEASE PERFORM NORMAL/GYRO TORQUE
033229,000306: 14,2206           04636                           TC       BANKCALL                              
033230,000307: 14,2207           21067                           CADR     GOPERF1                               
033231,000308: 14,2210           14103                           TCF      GOTOPOOH                              #  V34
033232,000309: 14,2211           12334                           TCF      P52K                                  #  NORMAL COARSE
033233,000310: 14,2212           06006        GYCRS              TC       INTPRET                               
033234,000311: 14,2213           64375                           VLOAD    MXV                                   
033235,000312: 14,2214           00307                                    XSMD                                  
033236,000313: 14,2215           01734                                    REFSMMAT                              
033237,000314: 14,2216           77656                           UNIT                                           
033238,000315: 14,2217           26714                           STOVL    XDC                                   
033239,000316: 14,2220           00315                                    YSMD                                  
033240,000317: 14,2221           53521                           MXV      UNIT                                  
033241,000318: 14,2222           01734                                    REFSMMAT                              
033242,000319: 14,2223           26722                           STOVL    YDC                                   
033243,000320: 14,2224           00323                                    ZSMD                                  
033244,000321: 14,2225           53521                           MXV      UNIT                                  
033245,000322: 14,2226           01734                                    REFSMMAT                              
033246,000323: 14,2227           36730                           STCALL   ZDC                                   
033247,000324: 14,2230           47240                                    CALCGTA                               
033248,000325: 14,2231           43014                           CLEAR    CLEAR                                 
033249,000326: 14,2232           01260                                    DRIFTFLG                              
033250,000327: 14,2233           01662                                    REFSMFLG                              
033251,000328: 14,2234           77776                           EXIT                                           
033252,000329: 14,2235           32275                           CAF      V16N20                                
033253,000330: 14,2236           04636                           TC       BANKCALL                              
033254,000331: 14,2237           20710                           CADR     GODSPR                                
033255,000332: 14,2240           33002                           CAF      R55CDR                                
033256,000333: 14,2241           04636                           TC       BANKCALL                              
033257,000334: 14,2242           17244                           CADR     IMUPULSE                              
033258,000335: 14,2243           04636                           TC       BANKCALL                              
033259,000336: 14,2244           17644                           CADR     IMUSTALL                              
033260,000337: 14,2245           03766                           TC       217ALARM                              #  BAD END
033261,000338: 14,2246           05402                           TC       PHASCHNG                              
033262,000339: 14,2247           04024                           OCT      04024                                 
033263,000340: 14,2250           06006                           TC       INTPRET                               
033264,000341: 14,2251           75160                           AXC,1    AXC,2                                 
033265,000342: 14,2252           00306                                    XSMD                                  
033266,000343: 14,2253           01733                                    REFSMMAT                              

Page 748

033268,000345: 14,2254           77624                           CALL                                           
033269,000346: 14,2255           34730                                    MATMOVE                               
033270,000347: 14,2256           43014                           CLEAR    SET                                   
033271,000348: 14,2257           01273                                    PFRATFLG                              
033272,000349: 14,2260           01462                                    REFSMFLG                              
033273,000350: 14,2261           77234                           RTB      VLOAD                                 
033274,000351: 14,2262           31566                                    SET1/PDT                              
033275,000352: 14,2263           11762                                    ZEROVEC                               
033276,000353: 14,2264           01472                           STORE    GCOMP                                 
033277,000354: 14,2265           43014                           SET      BOF                                   
033278,000355: 14,2266           01060                                    DRIFTFLG                              
033279,000356: 14,2267           05350                                    AUTOSEQ                               
033280,000357: 14,2270           30757                                    R51K                                  #  CONTINUE FINE ALIGN IF NOT MINKEY
033281,000358: 14,2271           77614                           CLEAR                                          
033282,000359: 14,2272           05276                                    PCFLAG                                
033283,000360: 14,2273           77776        P50SEXIT           EXIT                                           
033284,000361: 14,2274           14105                           TCF      MNKGOPOO                              
033285,000362: 14,2275           04024        V16N20             VN       1620                                  
033286,000363: 14,2276     4776               ALRM15             EQUALS   OCT15                                 
033287,000364: 14,2276           74575        P52AUTO            VLOAD    VSR1                                  #  XDES = UNIT(XREF COS45 + YERF SIN45) (1)
033288,000365: 14,2277           01734                                    REFSMMAT                              #                         -             (2)
033289,000366: 14,2300           74515                           PDVL     VSR1                                  
033290,000367: 14,2301           01742                                    REFSMMAT   +6                         #  (1) FOR 1ST, +45-DEGREE MANEUVER
033291,000368: 14,2302           57414                           BON      VCOMP                                 #  (2)     2ND  -
033292,000369: 14,2303           05316                                    PCFLAG                                #  IN EITHER CASE, COS45 = SIN45, AND
033293,000370: 14,2304           30305                                    P52AUTOX                              #        'UNIT' OBVIATES NEED FOR THEN.
033294,000371: 
033295,000372: 14,2305           53455        P52AUTOX           VAD      UNIT                                  
033296,000373: 14,2306           77626                           STADR                                          
033297,000374: 14,2307           53470                           STOVL    XSMD                                  
033298,000375: 14,2310           01750                                    REFSMMAT   +12D                       
033299,000376: 14,2311           00323                           STORE    ZSMD                                  #  ZDES = ZREF
033300,000377: 14,2312           53435                           VXV      UNIT                                  
033301,000378: 14,2313           00307                                    XSMD                                  
033302,000379: 14,2314           00315                           STORE    YSMD                                  #  YDES = UNIT(ZDES * ZDES)
033303,000380: 14,2315           52014                           SET      GOTO                                  
033304,000381: 14,2316           01073                                    PFRATFLG                              
033305,000382: 14,2317           30170                                    P52D                                  
033306,000383: 
033307,000384: 14,2320           34764        PERF20             CAF      BIT5                                  #  =OCT 20, PLEASE PERF MINKEY PC TORQUE
033308,000385: 14,2321           04636                           TC       BANKCALL                              
033309,000386: 14,2322           21067                           CADR     GOPERF1                               
033310,000387: 14,2323           04103                           TC       GOTOPOOH                              #  V 34
033311,000388: 14,2324           02212                           TC       GYCRS                                 #  PRO - DO IT
033312,000389: 14,2325           06006                           TC       INTPRET                               #  ENTR
033313,000390: 14,2326           77414                           BON      EXIT                                  
033314,000391: 14,2327           05316                                    PCFLAG                                
033315,000392: 14,2330           30273                                    P50SEXIT                              #  OK TO FLUSH IT 1ST TIME ONLY
033316,000393: 14,2331           05671                           TC       ALARM                                 #  BUT MAKE HIM DO 2ND
033317,000394: 14,2332           00402                           OCT      00402                                 

Page 749

033319,000396: 14,2333           02320                           TC       PERF20                                
033320,000397:                                                                                                  #  NAME - CAL53A
033321,000398:                                                                                                  #  FUNCTION - COARSE ALIGN THE IMU, IF NECESSARY,
033322,000399:                                                                                                  #  INPUT - PRESENT GIMBAL ANGLES - CDUX, CDUY, CDUZ
033323,000400:                                                                                                  #          DESIRED GIMBAL ANGLES - THETAD,+1,+2
033324,000401:                                                                                                  #  OUTPUT - THE IMU COORDINATES ARE STORED IN REFSMMAT
033325,000402:                                                                                                  #  SUBROUTINES USED - 1.IMUCOARS 2.IMUSTALL 3.CURTAINS
033326,000403: 
033327,000404: 14,2334                                           COUNT*   $$/R50                                
033328,000405: 14,2334           06006        P52K               TC       INTPRET                               
033329,000406: 14,2335           77624        CAL53A             CALL                                           
033330,000407: 14,2336           22247                                    S52.2                                 #  MAKE FINAL COMP OF GIMBAL ANGLES
033331,000408: 14,2337           66234                           RTB      SSP                                   
033332,000409: 14,2340           34744                                    RDCDUS                                #  READ CDUS
033333,000410: 14,2341           00051                                    S1                                    
033334,000411: 14,2342           00001                                    1                                     
033335,000412: 14,2343           40370                           AXT,1    SETPD                                 
033336,000413: 14,2344           00003                                    3                                     
033337,000414: 14,2345           00005                                    4                                     
033338,000415: 
033339,000416: 14,2346           70543        CALOOP             DLOAD*   SR1                                   
033340,000417: 14,2347           01313                                    THETAD     +3D,1                      
033341,000418: 14,2350           70523                           PDDL*    SR1                                   
033342,000419: 14,2351           00005                                    4,1                                   
033343,000420: 14,2352           51425                           DSU      ABS                                   
033344,000421: 14,2353           45206                           PUSH     DSU                                   
033345,000422: 14,2354           34743                                    DEGREE1                               
033346,000423: 14,2355           71240                           BMN      DLOAD                                 
033347,000424: 14,2356           30376                                    CALOOP1                               
033348,000425: 14,2357           51025                           DSU      BPL                                   
033349,000426: 14,2360           34744                                    DEG359                                
033350,000427: 14,2361           30376                                    CALOOP1                               
033351,000428: 14,2362           77776        COARFINE           EXIT                                           
033352,000429: 14,2363           05402                           TC       PHASCHNG                              
033353,000430: 14,2364           04024                           OCT      04024                                 
033354,000431: 14,2365           03742                           TC       COARSUB                               #  PERFORM ALIGNMENT
033355,000432: 14,2366           06006                           TC       INTPRET                               
033356,000433: 14,2367           77234                           RTB      VLOAD                                 
033357,000434: 14,2370           31566                                    SET1/PDT                              
033358,000435: 14,2371           11762                                    ZEROVEC                               
033359,000436: 14,2372           01472                           STORE    GCOMP                                 
033360,000437: 14,2373           52014                           SET      GOTO                                  
033361,000438: 14,2374           01060                                    DRIFTFLG                              
033362,000439: 14,2375           30400                                    FINEONLY                              
033363,000440: 14,2376           77700        CALOOP1            TIX,1                                          
033364,000441: 14,2377           30346                                    CALOOP                                
033365,000442: 14,2400           75160        FINEONLY           AXC,1    AXC,2                                 
033366,000443: 14,2401           02671                                    XSM                                   
033367,000444: 14,2402           01733                                    REFSMMAT                              
033368,000445: 14,2403           77624                           CALL                                           
033369,000446: 14,2404           34730                                    MATMOVE                               
033370,000447: 14,2405           77414        CAL53RET           SET      EXIT                                  

Page 750

033372,000449: 14,2406           01462                                    REFSMFLG                              
033373,000450: 14,2407                                           COUNT*   $$/P52                                
033374,000451: 14,2407           05402        P52C               TC       PHASCHNG                              
033375,000452: 14,2410           04024                           OCT      04024                                 
033376,000453: 14,2411           34776                           CAF      ALRM15                                
033377,000454: 14,2412           04636                           TC       BANKCALL                              
033378,000455: 14,2413           21067                           CADR     GOPERF1                               
033379,000456: 14,2414           04103                           TC       GOTOPOOH                              
033380,000457: 14,2415           02417                           TC       +2                                    #  V33
033381,000458: 14,2416           02622                           TC       R51                                   #  FINE ALIGN
033382,000459: 14,2417           06006                           TC       INTPRET                               
033383,000460: 14,2420           43234                           RTB      DAD                                   
033384,000461: 14,2421           51751                                    LOADTIME                              
033385,000462: 14,2422           34652                                    TSIGHT1                               
033386,000463: 14,2423           77624                           CALL                                           
033387,000464: 14,2424           26345                                    LOCSAM                                
033388,000465: 14,2425                                           COUNT*   $$/PICAP                              
033389,000466: 
033390,000467:                                                                                                  #  NAME - PICAPAR        NOW IN-LINE
033391,000468: 
033392,000469:                                                                                                  #  FUNCTION -
033393,000470:                                                                                                  #  THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
033394,000471:                                                                                                  #  WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAX)
033395,000472:                                                                                                  #  WITH RESPECT TO REFERENCE INERTIAL. EACH STAR IN THE CATALOG IS TESTED
033396,000473:                                                                                                  #  TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH, SUN OR MOON. IF A
033397,000474:                                                                                                  #  STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STAR OF LOWER INDEX.
033398,000475:                                                                                                  #  THE PAIRED STAR IS TESTED FOR OCCULTATION. PAIRS OF STARS THAT PASS
033399,000476:                                                                                                  #  THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION. A PAIR OF STARS
033400,000477:                                                                                                  #  HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 76 DEGREES
033401,000478:                                                                                                  #  AND MORE THAN 30 DEGREES. THOSE PAIRS OF STARS WITH GOOD SEPARATION
033402,000479:                                                                                                  #  ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW. (WITHIN
033403,000480:                                                                                                  #  38 DEGREES OF SAX). THE PAIR WITH MAXIMUM SEPARATION IS CHOSEN FROM
033404,000481:                                                                                                  #  THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
033405,000482: 
033406,000483:                                                                                                  #  OUTPUT
033407,000484:                                                                                                  #        BESTI, BESTJ - SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
033408,000485:                                                                                                  #        VFLAG - FLAG BIT  SET IMPLIES NO STARS IN FIELD OF VIEW
033409,000486: 
033410,000487:                                                                                                  #  INITIALIZATION
033411,000488:                                                                                                  #        1) A CALL TO LOCSAM MUST BE MADE
033412,000489:                                                                                                  #        2) VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TOO APPROXIMATE TIME OF
033413,000490:                                                                                                  #                SIGHTINGS.
033414,000491: 
033415,000492:                                                                                                  #  DEBRIS
033416,000493:                                                                                                  #        WORK AREA
033417,000494:                                                                                                  #        X,Y,ZNB
033418,000495:                                                                                                  #        SINCDU, COSCDU
033419,000496:                                                                                                  #        STARAD - STAR +5
033420,000497: 
033421,000498: 14,2425           77624                           CALL                                           
033422,000499: 14,2426           47530                                    CDUTRIG                               
033423,000500: 14,2427           45001                           SETPD    CALL                                  

Page 751

033425,000502: 14,2430           00001                                    0                                     
033426,000503: 14,2431           34756                                    CALCSMSC                              
033427,000504: 14,2432           71214                           SET      DLOAD                                 #  VFLAG = 1
033428,000505: 14,2433           01465                                    VFLAG                                 
033429,000506: 14,2434           11762                                    DPZERO                                
033430,000507: 14,2435           24303                           STOVL    BESTI                                 
033431,000508: 14,2436           02714                                    XNB                                   
033432,000509: 14,2437           63361                           VXSC     PDVL                                  
033433,000510: 14,2440           30575                                    SIN33                                 
033434,000511: 14,2441           02730                                    ZNB                                   
033435,000512: 14,2442           74370                           AXT,1    VXSC                                  
033436,000513: 14,2443           00344                                    228D                                  #  X1 = 37 X 6 + 6
033437,000514: 14,2444           30577                                    COS33                                 
033438,000515: 14,2445           77655                           VAD                                            
033439,000516: 14,2446           53505                           VXM      UNIT                                  
033440,000517: 14,2447           01734                                    REFSMMAT                              
033441,000518: 14,2450           02760                           STORE    SAX                                   #  SAX = SHAFT AXIS
033442,000519: 14,2451           66331                           SSP      SSP                                   #  S1 = S2 = 6
033443,000520: 14,2452           00051                                    S1                                    
033444,000521: 14,2453           00006                                    6                                     
033445,000522: 14,2454           00052                                    S2                                    
033446,000523: 14,2455           00006                                    6                                     
033447,000524: 14,2456           52100        PIC1               TIX,1    GOTO                                  #  MAJOR STAR
033448,000525: 14,2457           30461                                    PIC2                                  
033449,000526: 14,2460           30606                                    PICEND                                
033450,000527: 14,2461           45173        PIC2               VLOAD*   CALL                                  
033451,000528: 14,2462           33776                                    CATLOG,1                              
033452,000529: 14,2463           30552                                    OCCULT                                
033453,000530: 14,2464           73014                           BON      LXA,2                                 
033454,000531: 14,2465           01710                                    CULTFLAG                              
033455,000532: 14,2466           30456                                    PIC1                                  
033456,000533: 14,2467           00046                                    X1                                    
033457,000534: 14,2470           52104        PIC3               TIX,2    GOTO                                  
033458,000535: 14,2471           30473                                    PIC4                                  
033459,000536: 14,2472           30456                                    PIC1                                  
033460,000537: 14,2473           45173        PIC4               VLOAD*   CALL                                  
033461,000538: 14,2474           44001                                    CATLOG,2                              
033462,000539: 14,2475           30552                                    OCCULT                                
033463,000540: 14,2476           76614                           BON      VLOAD*                                
033464,000541: 14,2477           01710                                    CULTFLAG                              
033465,000542: 14,2500           30470                                    PIC3                                  
033466,000543: 14,2501           33776                                    CATLOG,1                              
033467,000544: 14,2502           45237                           DOT*     DSU                                   
033468,000545: 14,2503           44001                                    CATLOG,2                              
033469,000546: 14,2504           30601                                    CSS66                                 #  SEPARATION LESS THAN 76 DEG.
033470,000547: 14,2505           43240                           BMN      DAD                                   
033471,000548: 14,2506           30470                                    PIC3                                  
033472,000549: 14,2507           30603                                    CSS6640                               #  SEPARATION MORE THAN 30 DEG.
033473,000550: 14,2510           77644                           BPL                                            
033474,000551: 14,2511           30470                                    PIC3                                  

Page 752

033476,000553: 14,2512           50373                           VLOAD*   DOT                                   
033477,000554: 14,2513           33776                                    CATLOG,1                              
033478,000555: 14,2514           02760                                    SAX                                   
033479,000556: 14,2515           50025                           DSU      BMN                                   #  MAJOR STAR IN CONE
033480,000557: 14,2516           30605                                    CSS33                                 
033481,000558: 14,2517           30456                                    PIC1                                  
033482,000559: 14,2520           50373                           VLOAD*   DOT                                   
033483,000560: 14,2521           44001                                    CATLOG,2                              
033484,000561: 14,2522           02760                                    SAX                                   
033485,000562: 14,2523           50025                           DSU      BMN                                   
033486,000563: 14,2524           30605                                    CSS33                                 
033487,000564: 14,2525           30470                                    PIC3                                  
033488,000565: 14,2526           77614        STRATGY            BONCLR                                         
033489,000566: 14,2527           01605                                    VFLAG                                 
033490,000567: 14,2530           30545                                    NEWPAR                                
033491,000568: 14,2531           65120                 -3        XCHX,1   XCHX,2                                
033492,000569: 14,2532           00302                                    BESTI                                 
033493,000570: 14,2533           00303                                    BESTJ                                 
033494,000571: 14,2534           47773        STRAT              VLOAD*   DOT*                                  
033495,000572: 14,2535           33776                                    CATLOG,1                              
033496,000573: 14,2536           44001                                    CATLOG,2                              
033497,000574: 14,2537           43006                           PUSH     BOFINV                                
033498,000575: 14,2540           01545                                    VFLAG                                 
033499,000576: 14,2541           30531                                    STRAT      -3                         
033500,000577: 14,2542           45345                           DLOAD    DSU                                   
033501,000578: 14,2543           77644                           BPL                                            
033502,000579: 14,2544           30470                                    PIC3                                  
033503,000580: 14,2545           67130        NEWPAR             SXA,1    SXA,2                                 
033504,000581: 14,2546           00302                                    BESTI                                 
033505,000582: 14,2547           00303                                    BESTJ                                 
033506,000583: 14,2550           77650                           GOTO                                           
033507,000584: 14,2551           30470                                    PIC3                                  
033508,000585: 14,2552           51321        OCCULT             MXV      BVSU                                  
033509,000586: 14,2553           02736                                    CULTRIX                               
033510,000587: 14,2554           00017                                    CSS                                   
033511,000588: 14,2555           77654                           BZE                                            
033512,000589: 14,2556           30571                                    CULTED                                
033513,000590: 14,2557           75240                           BMN      SIGN                                  
033514,000591: 14,2560           30571                                    CULTED                                
033515,000592: 14,2561           00160                                    MPAC       +3                         
033516,000593: 14,2562           75240                           BMN      SIGN                                  
033517,000594: 14,2563           30571                                    CULTED                                
033518,000595: 14,2564           00162                                    MPAC       +5                         
033519,000596: 14,2565           43040                           BMN      CLRGO                                 
033520,000597: 14,2566           30571                                    CULTED                                
033521,000598: 14,2567           01630                                    CULTFLAG                              
033522,000599: 14,2570           00052                                    QPRET                                 
033523,000600: 14,2571           77614        CULTED             SETGO                                          
033524,000601: 14,2572           01430                                    CULTFLAG                              
033525,000602: 14,2573           00052                                    QPRET                                 

Page 753

033527,000604: 14,2574  0000016               CSS                =        CEARTH                                
033528,000605: 14,2574           21150 25157  SIN33              2DEC     .5376381241                            
033529,000606: 
033530,000607: 14,2576           32766 22713  COS33              2DEC     .8431756920                            
033531,000608: 
033532,000609: 14,2600           01736 35137  CSS66              2DEC     .060480472                            #  (COS76)/4
033533,000610: 
033534,000611: 14,2602           73003 65403  CSS6640            2DEC     -.15602587                            #  (COS76 - COS30)/4
033535,000612: 
033536,000613: 14,2604           06233 26112  CSS33              2DEC     .197002688                            #  COS(1/2(76))/4
033537,000614: 
033538,000615:                                                                                                  # V1             =       12D
033539,000616: 14,2606           77414        PICEND             BOF      EXIT                                  
033540,000617: 14,2607           01745                                    VFLAG                                 
033541,000618: 14,2610           30621                                    P52F                                  
033542,000619: 14,2611           05671        P52I               TC       ALARM                                 
033543,000620: 14,2612           00405                           OCT      405                                   
033544,000621: 14,2613           35023                           CAF      V05N09                                
033545,000622: 14,2614           04636                           TC       BANKCALL                              
033546,000623: 14,2615           20743                           CADR     GOFLASH                               
033547,000624: 14,2616           04103                           TC       GOTOPOOH                              
033548,000625: 14,2617           02622                           TC       R51                                   #  PROCEED - DO R51 FINE ALIGN
033549,000626: 14,2620           02407                           TC       P52C                                  #  RECYCLE - VEHICLE HAS BEEN MANUEVERED                 
033550,000627: 14,2621           77776        P52F               EXIT                                           
033551,000628: 

Page 754

033553,000630: 
033554,000631:                                                                                                  #  NAME - R51    FINE ALIGN
033555,000632:                                                                                                  #  FUNCTION - TO ALIGN THE STABLE MEMBER TO REFSMMAT
033556,000633:                                                                                                  #  INPUT - BESTI, BESTJ (PAIR OF STAR NO )
033557,000634:                                                                                                  #  OUTPUT - GYRO TORQUE PULSES
033558,000635:                                                                                                  #  SUBROUTINES - R52, R54, R55 (SXTNB, NBSM, AXISGEN
033559,000636: 
033560,000637: 14,2622                                           COUNT*   $$/R51                                
033561,000638: 14,2622           34770        R51                CAF      BIT1                                  
033562,000639: 14,2623           54304        R51.3              TS       STARIND                               
033563,000640: 14,2624           05561                           TC       DOWNFLAG                              
033564,000641: 14,2625           00025                           ADRES    TARG2FLG                              
033565,000642: 
033566,000643: 14,2626           05402                           TC       PHASCHNG                              
033567,000644: 14,2627           05024                           OCT      05024                                 #  RESTART  GR 4  FOR R52-R53
033568,000645: 14,2630           13000                           OCT      13000                                 
033569,000646: 14,2631           50304                           INDEX    STARIND                               
033570,000647: 14,2632           30302                           CA       BESTI                                 
033571,000648: 14,2633           00006                           EXTEND                                         
033572,000649: 14,2634           73004                           MP       1/6TH                                 
033573,000650: 14,2635           55140                           TS       STARCODE                              
033574,000651: 14,2636           06006                           TC       INTPRET                               
033575,000652: 14,2637           77624                           CALL                                           
033576,000653: 14,2640           30761                                    R51DSPA                               
033577,000654: 14,2641           72131                           SSP      LXA,1                                 
033578,000655: 14,2642           00051                                    S1                                    
033579,000656: 14,2643           00000                                    0                                     
033580,000657: 14,2644           00304                                    STARIND                               
033581,000658: 14,2645           77700                           TIX,1                                          
033582,000659: 14,2646           30651                                    R51ST                                 
033583,000660: 14,2647           36617                           STCALL   STARSAV2                              #  2ND STAR
033584,000661: 14,2650           30652                                    R51ST      +1                         
033585,000662: 14,2651           02611        R51ST              STORE    STARSAV1                              #  1ST STAR
033586,000663: 14,2652           54335                 +1        SLOAD    SL                                    #  IS THIS P54
033587,000664: 14,2653           01215                                    MODREG                                
033588,000665: 14,2654           20215                                    12D                                   
033589,000666: 14,2655           45030                           BHIZ     CALL                                  
033590,000667: 14,2656           30753                                    R51A                                  #  NO
033591,000668: 14,2657           36105                                    R56                                   
033592,000669: 14,2660           77624        R51B               CALL                                           
033593,000670: 14,2661           36052                                    SXTSM                                 
033594,000671: 14,2662           02617                           STORE    STARSAV2                              
033595,000672: 14,2663           45145                           DLOAD    CALL                                  
033596,000673: 14,2664           02607                                    TSIGHT                                
033597,000674: 14,2665           31651                                    PLANET                                
033598,000675: 14,2666           53521                           MXV      UNIT                                  
033599,000676: 14,2667           01734                                    REFSMMAT                              
033600,000677: 14,2670           77776                           EXIT                                           
033601,000678: 14,2671           10304                           CCS      STARIND                               
033602,000679: 14,2672           02744                           TC       R51.4                                 
033603,000680: 14,2673           06006                           TC       INTPRET                               
033604,000681: 14,2674           26736                           STOVL    STARAD                                

Page 755

033606,000683: 14,2675           02617                                    STARSAV2                              
033607,000684: 14,2676           24007                           STOVL    6D                                    
033608,000685: 14,2677           02611                                    STARSAV1                              
033609,000686: 14,2700           24015                           STOVL    12D                                   
033610,000687: 14,2701           02601                                    PLANVEC                               
033611,000688: 14,2702           36744                           STCALL   STARAD     +6                         
033612,000689: 14,2703           34657                                    R54                                   #  STAR DATA TEST
033613,000690: 14,2704           45014                           BOFF     CALL                                  
033614,000691: 14,2705           00354                                    FREEFLAG                              
033615,000692: 14,2706           30757                                    R51K                                  
033616,000693: 14,2707           47432                                    AXISGEN                               
033617,000694: 
033618,000695:                                                                                                  #  NAME - R55 - GYRO TORQUE
033619,000696:                                                                                                  #  FUNCTION - COMPUTE AND SEND GYRO PULSES
033620,000697:                                                                                                  #  INPUT - X,Y,ZDC - REFSMMAT WRT PRESENT STABLE MEMBER
033621,000698:                                                                                                  #  OUTPUT - GYRO PULSES
033622,000699:                                                                                                  #  SUBROUTINES - CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
033623,000700: 
033624,000701: 14,2710                                           COUNT*   $$/R55                                
033625,000702: 14,2710           77624        R55                CALL                                           #  COMPUTE AND SEND GYRO PULSES
033626,000703: 14,2711           47240                                    CALCGTA                               
033627,000704: 14,2712           77776        PULSEM             EXIT                                           
033628,000705: 14,2713           35040        R55.1              CAF      V06N93                                
033629,000706: 14,2714           04636                           TC       BANKCALL                              
033630,000707: 14,2715           20743                           CADR     GOFLASH                               
033631,000708: 14,2716           04103                           TC       GOTOPOOH                              
033632,000709: 14,2717           02721                           TC       R55.2                                 
033633,000710: 14,2720           02734                           TC       R55RET                                
033634,000711: 14,2721           05402        R55.2              TC       PHASCHNG                              
033635,000712: 14,2722           00314                           OCT      00314                                 
033636,000713: 14,2723  01,2165               4P31SPT1           =        4.31SPOT                              
033637,000714: 14,2723           33002                           CA       R55CDR                                
033638,000715: 14,2724           04636                           TC       BANKCALL                              
033639,000716: 14,2725           17244                           CADR     IMUPULSE                              
033640,000717: 14,2726           04636                           TC       BANKCALL                              
033641,000718: 14,2727           17644                           CADR     IMUSTALL                              
033642,000719: 14,2730           03766                           TC       217ALARM                              #  BAD END
033643,000720: 14,2731           05402                           TC       PHASCHNG                              
033644,000721: 14,2732           05024                           OCT      05024                                 
033645,000722: 14,2733           13000                           OCT      13000                                 
033646,000723: 14,2734           05561        R55RET             TC       DOWNFLAG                              
033647,000724: 14,2735           00051                           ADRES    PFRATFLG                              
033648,000725: 14,2736                                           COUNT*   $$/R51                                
033649,000726: 14,2736           35775        R51KA              CAF      OCT14                                 
033650,000727: 14,2737           04636                           TC       BANKCALL                              
033651,000728: 14,2740           21067                           CADR     GOPERF1                               
033652,000729: 14,2741           04103                           TC       GOTOPOOH                              
033653,000730: 14,2742           02407                           TC       P52C                                  #  V33
033654,000731: 14,2743           04103                           TC       GOTOPOOH                              
033655,000732: 14,2744           06006        R51.4              TC       INTPRET                               
033656,000733: 14,2745           26601                           STOVL    PLANVEC                               

Page 756

033658,000735: 14,2746           02617                                    STARSAV2                              
033659,000736: 14,2747           02611                           STORE    STARSAV1                              
033660,000737: 14,2750           77776                           EXIT                                           
033661,000738: 14,2751           34772                           CAF      ZERO                                  
033662,000739: 14,2752           12623                           TCF      R51.3                                 #  CLEAR STARIND
033663,000740: 14,2753           77624        R51A               CALL                                           
033664,000741: 14,2754           31005                                    R52                                   
033665,000742: 14,2755           77650                           GOTO                                           
033666,000743: 14,2756           30660                                    R51B                                  
033667,000744: 14,2757           77776        R51K               EXIT                                           
033668,000745: 14,2760           02736                           TC       R51KA                                 
033669,000746: 14,2761           77420        R51DSPA            STQ      EXIT                                  
033670,000747: 14,2762           02657                                    SRTEMP                                
033671,000748: 14,2763           33003        R51DSP             CAF      V01N70                                
033672,000749: 14,2764           05540                           TC       VNFLASHR                              
033673,000750: 14,2765           02771                           TC       +4                                    
033674,000751: 14,2766           36211                           CAF      SIX                                   
033675,000752: 14,2767           05516                           TC       BLANKET                               
033676,000753: 14,2770           15205                           TCF      ENDOFJOB                              
033677,000754: 14,2771           03636                           TC       CHKSCODE                              
033678,000755: 14,2772           04362                           TC       FALTON                                
033679,000756: 14,2773           02763                           TC       R51DSP                                
033680,000757: 14,2774           06006                           TC       INTPRET                               
033681,000758: 14,2775           45034                           RTB      CALL                                  
033682,000759: 14,2776           51751                                    LOADTIME                              
033683,000760: 14,2777           31651                                    PLANET                                
033684,000761: 14,3000           77650                           GOTO                                           
033685,000762: 14,3001           02657                                    SRTEMP                                
033686,000763: 14,3002           02757        R55CDR             ECADR    OGC                                   
033687,000764: 14,3003           00306        V01N70             VN       0170                                  
033688,000765: 14,3004           05253        1/6TH              DEC      .1666667                              
033689,000766: 
033690,000767:                                                                                                  #  NAME - R52 - AUTOMATIC OPTICS POSITIONING ROUTINE
033691,000768: 
033692,000769:                                                                                                  #  FUNCTION-  (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
033693,000770:                                                                                                  #             (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
033694,000771: 
033695,000772:                                                                                                  #  CALLING SEQUENCE- CALL R52
033696,000773: 
033697,000774:                                                                                                  #  INPUT- 1. TARG1FLG AND TARG2FLG - PRESET BY CALLER
033698,000775:                                                                                                  #         2. RNDVZFLG AND TRACKFLG - PRESET BY CALLER
033699,000776:                                                                                                  #         3. STAR CODE - PRESET BY CALLER. ALSO INPUT THROUGH DSKY
033700,000777:                                                                                                  #         4. LAT, LONG AND ALT OF LANDMARK - INPUT THROUGH DSKY
033701,000778:                                                                                                  #         5. NO. OF MARKS (MARKINDX) - PRESET BY CALLER
033702,000779: 
033703,000780:                                                                                                  #  OUTPUT- DRIVE SHAFT AND TRUNNION CDUS
033704,000781: 
033705,000782:                                                                                                  #  SUBROUTINES-  1.  FIXDELAY            7.  CLEANDSP
033706,000783:                                                                                                  #                2.  GOPERF1             8.  GODSPR
033707,000784:                                                                                                  #                3.  GOFLASH             9.  REFLASHR
033708,000785:                                                                                                  #                4.  R53                 10. R52.2

Page 757

033710,000787:                                                                                                  #                5.  ALARM               11. R52.3
033711,000788:                                                                                                  #                6.  SR52.1
033712,000789: 
033713,000790: 14,3005                                           COUNT*   $$/R52                                
033714,000791: 14,3005           77614        R52                CLEAR                                          
033715,000792: 14,3006           04265                                    ADVTRK                                
033716,000793: 14,3007           77420        R52VRB             STQ      EXIT                                  
033717,000794: 14,3010           02576                                    SAVQR52                               
033718,000795: 14,3011           35043                           CAF      EBANK5                                #  CALLER NOT ALWAYS IN E5.
033719,000796: 14,3012           56003                           XCH      EBANK                                 
033720,000797: 14,3013           55577                           TS       R52BNKSV                              
033721,000798: 14,3014           00006                           EXTEND                                         
033722,000799: 14,3015           30036                           DCA      CDUT                                  
033723,000800: 14,3016           53313                           DXCH     DESOPTT                               
033724,000801: 14,3017           00006                           EXTEND                                         
033725,000802: 14,3020           30025                           DCA      TIME2                                 
033726,000803: 14,3021           52364                           DXCH     AOPOLD                                
033727,000804: 14,3022           06006                           TC       INTPRET                               
033728,000805: 14,3023           43131                           SSP      CLEAR                                 
033729,000806: 14,3024           01324                                    OPTIND                                
033730,000807: 14,3025           00000                                    0                                     
033731,000808: 14,3026           00271                                    R53FLAG                               
033732,000809: 14,3027           43014                           BON      CLEAR                                 
033733,000810: 14,3030           00705                                    TARG1FLG                              
033734,000811: 14,3031           31222                                    R52H                                  
033735,000812: 14,3032           03660                                    TERMIFLG                              
033736,000813: 14,3033           77776                           EXIT                                           
033737,000814: 14,3034           31354        R52C               CA       SWSAMPLE                              #  IS OPTICS MODE IN AGC
033738,000815: 14,3035           00006                           EXTEND                                         
033739,000816: 14,3036           63245                           BZMF     R52M                                  #  MANUAL
033740,000817: 14,3037           06006        R52D               TC       INTPRET                               #  THIS IS SR52.1 - NOW IN-LINE
033741,000818:                                                                                                  #  NAME - SR52.1
033742,000819: 
033743,000820:                                                                                                  #  FUNCTION
033744,000821:                                                                                                  #   TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
033745,000822:                                                                                                  #   LEM, STAR OR LANDMARK. IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
033746,000823:                                                                                                  #   2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS 
033747,000824:                                                                                                  #   THE TARGET THEN CONIC UPDATES OF THE CSM AND LEM ARE MADE TO
033748,000825:                                                                                                  #   THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM
033749,000826:                                                                                                  #   POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
033750,000827:                                                                                                  #   COMMON PART OF THIS PROGRAM.
033751,000828: 
033752,000829:                                                                                                  #   IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY. THE RADIUS
033753,000830:                                                                                                  #   VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV. BOTH OF THESE ARE
033754,000831:                                                                                                  #   FOUND FOR THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE BETWEEN
033755,000832:                                                                                                  #   THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
033756,000833:                                                                                                  #   VECTOR FOR THE COMMON PART OF THIS ROUTINE.
033757,000834: 
033758,000835:                                                                                                  #   IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
033759,000836:                                                                                                  #   AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
033760,000837: 
033761,000838:                                                                                                  #   THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING

Page 758

033763,000840:                                                                                                  #   VECTOR INTO STABLE MEMBER COORDINATES. IT READS THE IMU-CDUS AND USES
033764,000841:                                                                                                  #   THIS DATA IN A CALL TO CALCSXA. ON RETURN FROM CALCSXA A TEST IS
033765,000842:                                                                                                  #   MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG. OR 50DEG.
033766,000843: 
033767,000844:                                                                                                  #  OUTPUT
033768,000845:                                                                                                  #   SAC - SINGLE PREC, 2S COMP, SCALED AT HALF REVS - SHAFT ANGLE DESIRED
033769,000846:                                                                                                  #   PAC - SINGLE PREC, 2S COMP SCALED AT EIGTH REVS - TRUNNION ANGLE DESIRED
033770,000847: 
033771,000848:                                                                                                  #  INITIALIZATION
033772,000849:                                                                                                  #   IF TARG1FLG =1 THEN TARGET IS LEM - NO OTHER INPUT REQUIRED
033773,000850:                                                                                                  #   IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
033774,000851:                                                                                                  #   0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE. STAR CODES
033775,000852:                                                                                                  #   ARE 6 TIMES STAR NUMBER.
033776,000853:                                                                                                  #   IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK. SEE ROUTINE
033777,000854:                                                                                                  #   LALOTORV FOR INPUT REQUIREMENTS. HERE FIXERAD=1 FOR CONSTANT EARTH
033778,000855:                                                                                                  #   RADIUS
033779,000856: 
033780,000857:                                                                                                  #  DEBRIS
033781,000858:                                                                                                  #   WORK AREA
033782,000859:                                                                                                  #   STARAD - STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
033783,000860: 
033784,000861: 14,3040           43234                 +1        RTB      DAD                                   
033785,000862: 14,3041           51751                                    LOADTIME                              
033786,000863: 14,3042           31271                                    2.4SECDP                              
033787,000864: 14,3043           45214                           BOFF     DSU                                   
033788,000865: 14,3044           04741                                    P24FLAG                               
033789,000866: 14,3045           31047                                    +2                                    
033790,000867: 14,3046           31273                                    .5SECDP                               
033791,000868: 14,3047           02347                           STORE    AOPTIME                               
033792,000869: 14,3050           43014                           BON      BON                                   
033793,000870: 14,3051           00705                                    TARG1FLG                              
033794,000871: 14,3052           31066                                    LEM52                                 
033795,000872: 14,3053           00706                                    TARG2FLG                              
033796,000873: 14,3054           31075                                    LMK52                                 
033797,000874: 14,3055           72131                           SSP      LXA,1                                 
033798,000875: 14,3056           00051                                    S1                                    
033799,000876: 14,3057           00000                                    0                                     
033800,000877: 14,3060           00304                                    STARIND                               
033801,000878: 14,3061           77700                           TIX,1                                          
033802,000879: 14,3062           31116                                    ST52ST                                
033803,000880: 14,3063           52175                           VLOAD    GOTO                                  
033804,000881: 14,3064           02617                                    STARSAV2                              
033805,000882: 14,3065           31120                                    COM52                                 
033806,000883: 14,3066           77745        LEM52              DLOAD                                          
033807,000884: 14,3067           02347                                    AOPTIME                               
033808,000885: 14,3070           34041                           STCALL   TDEC1                                 
033809,000886: 14,3071           27202                                    LEMCONIC                              
033810,000887: 14,3072           52175                           VLOAD    GOTO                                  
033811,000888: 14,3073           00001                                    RATT                                  
033812,000889: 14,3074           31105                                    LMKLMCOM                              

Page 759

033814,000891: 14,3075           71214        LMK52              BON      DLOAD                                 
033815,000892: 14,3076           04305                                    ADVTRK                                
033816,000893: 14,3077           54040                                    ADVTRACK                              
033817,000894: 14,3100           02347                                    AOPTIME                               
033818,000895: 14,3101           77624                           CALL                                           
033819,000896: 14,3102           26524                                    LALOTORV                              
033820,000897: 14,3103           77775                           VLOAD                                          
033821,000898: 14,3104           02152                                    ALPHAV                                
033822,000899: 14,3105           16766        LMKLMCOM           STODL    STAR                                  
033823,000900: 14,3106           02347                                    AOPTIME                               
033824,000901: 14,3107           34041                           STCALL   TDEC1                                 
033825,000902: 14,3110           27170                                    CSMCONIC                              
033826,000903: 14,3111           52375                           VLOAD    VSU                                   
033827,000904: 14,3112           02766                                    STAR                                  
033828,000905: 14,3113           00001                                    RATT                                  
033829,000906: 14,3114           52056                           UNIT     GOTO                                  
033830,000907: 14,3115           31120                                    COM52                                 
033831,000908: 14,3116           77775        ST52ST             VLOAD                                          
033832,000909: 14,3117           02611                                    STARSAV1                              
033833,000910: 14,3120           53521        COM52              MXV      UNIT                                  
033834,000911: 14,3121           01734                                    REFSMMAT                              
033835,000912: 14,3122           02766                           STORE    STAR                                  
033836,000913: 14,3123           45001                           SETPD    CALL                                  
033837,000914: 14,3124           00001                                    0                                     
033838,000915: 14,3125           47530                                    CDUTRIG                               #  COMPUTES SINES AND COSINES FOR CALCSXA
033839,000916: 14,3126           77624                           CALL                                           #        NOW EXPECT TO SEE THE CDU ANGLES
033840,000917: 14,3127           46034                                    CALCSXA                               
033841,000918: 14,3130           71214                           BON      DLOAD                                 
033842,000919: 14,3131           01710                                    CULTFLAG                              
033843,000920: 14,3132           31276                                    R52L                                  #  GR 90 DEGREES
033844,000921: 14,3133           02776                                    PAC                                   
033845,000922: 14,3134           51025                           DSU      BPL                                   
033846,000923: 14,3135           31267                                    38TRDEG                               
033847,000924: 14,3136           31241                                    R52J                                  #  GR 50 DEGREES
033848,000925: 14,3137           45345                           DLOAD    DSU                                   
033849,000926: 14,3140           02776                                    PAC                                   
033850,000927: 14,3141           31275                                    20DEGSMN                              
033851,000928: 14,3142           77440                           BMN      EXIT                                  
033852,000929: 14,3143           31241                                    R52J                                  
033853,000930: 14,3144           31775                           CA       PAC                                   
033854,000931: 14,3145           54330                           TS       PACTEMP                               
033855,000932: 14,3146           06006        R52JA              TC       INTPRET                               
033856,000933: 14,3147           43014                           BON      BOFF                                  
033857,000934: 14,3150           00705                                    TARG1FLG                              
033858,000935: 14,3151           31170                                    R52E                                  
033859,000936: 14,3152           04741                                    P24FLAG                               
033860,000937: 14,3153           31161                                    R53CHK                                
033861,000938: 14,3154           71214                           BOFCLR   DLOAD                                 
033862,000939: 14,3155           04241                                    NEWLMFLG                              
033863,000940: 14,3156           16530                                    RATESUB                               

Page 760

033865,000942: 14,3157           02347                                    AOPTIME                               
033866,000943: 14,3160           00364                           STORE    AOPOLD                                
033867,000944: 14,3161           77414        R53CHK             BON      EXIT                                  
033868,000945: 14,3162           00311                                    R53FLAG                               
033869,000946: 14,3163           31170                                    R52E                                  
033870,000947: 14,3164           33265                           CAF      V06N92                                #  NO
033871,000948: 14,3165           04636                           TC       BANKCALL                              
033872,000949: 14,3166           20710                           CADR     GODSPR                                
033873,000950: 14,3167           06006                           TC       INTPRET                               
033874,000951: 14,3170           77776        R52E               EXIT                                           
033875,000952: 14,3171           30330                           CA       PACTEMP                               
033876,000953: 14,3172           55312                           TS       DESOPTT                               
033877,000954: 14,3173           31773                           CA       SAC                                   
033878,000955: 14,3174           55313                           TS       DESOPTS                               
033879,000956: 14,3175           05354        R52F               TC       CHECKMM                               
033880,000957: 14,3176           00030                           MM       24         B-14                       
033881,000958: 14,3177           13202                           TCF      R52FA                                 #  NO
033882,000959: 14,3200           34773                           CAF      FIVE                                  #  YES DELAY .05 SEC
033883,000960: 14,3201           13203                           TCF      R52FA      +1                         
033884,000961: 14,3202           35011        R52FA              CAF      .5SEC                                 #  WAIT .5 SEC
033885,000962: 14,3203           04636                 +1        TC       BANKCALL                              
033886,000963: 14,3204           01731                           CADR     DELAYJOB                              
033887,000964: 14,3205           34757                           CAF      TARG1BIT                              
033888,000965: 14,3206           70075                           MASK     FLAGWRD1                              
033889,000966: 14,3207           10000                           CCS      A                                     
033890,000967: 14,3210           03223                           TC       R52HA                                 
033891,000968: 
033892,000969: 14,3211           34752                           CAF      TERMIBIT                              
033893,000970: 14,3212           70103                           MASK     FLAGWRD7                              
033894,000971: 14,3213           00006                           EXTEND                                         
033895,000972: 14,3214           13034                           BZF      R52C                                  
033896,000973: 
033897,000974: 14,3215           31577        R52Q               CA       R52BNKSV                              
033898,000975: 14,3216           54003                           TS       EBANK                                 
033899,000976: 
033900,000977: 14,3217           06006                           TC       INTPRET                               
033901,000978: 14,3220           77650                           GOTO                                           
033902,000979: 14,3221           02576                                    SAVQR52                               
033903,000980: 
033904,000981: 14,3222           77776        R52H               EXIT                                           #  LEM
033905,000982: 14,3223           04636        R52HA              TC       BANKCALL                              
033906,000983: 14,3224           76333                           CADR     R61CSM                                
033907,000984: 14,3225           34764                           CAF      TRACKBIT                              
033908,000985: 14,3226           70075                           MASK     FLAGWRD1                              
033909,000986: 14,3227           00006                           EXTEND                                         
033910,000987: 14,3230           13215                           BZF      R52Q                                  
033911,000988: 14,3231           06006                           TC       INTPRET                               
033912,000989: 14,3232           52014                           BOF      GOTO                                  
033913,000990: 14,3233           00750                                    UPDATFLG                              
033914,000991: 14,3234           31236                                    R52SYNC                               

Page 761

033916,000993: 14,3235           31040                                    R52D       +1                         
033917,000994: 14,3236           77776        R52SYNC            EXIT                                           
033918,000995: 14,3237           33311                           CAF      1.8SEC                                
033919,000996: 14,3240           13203                           TCF      R52FA      +1                         
033920,000997: 14,3241           77776        R52J               EXIT                                           
033921,000998: 14,3242           33266                           CA       38TRDEG                               
033922,000999: 14,3243           54330                           TS       PACTEMP                               
033923,001000: 14,3244           03146                           TC       R52JA                                 
033924,001001: 14,3245           34763        R52M               CAF      R53FLBIT                              #  IS R53FLAG SET
033925,001002: 14,3246           70074                           MASK     FLAGWRD0                              
033926,001003: 14,3247           10000                           CCS      A                                     
033927,001004: 14,3250           03316                           TC       R52G                                  #  YES
033928,001005: 14,3251           00004                           INHINT                                         #  NO
033929,001006: 14,3252           37645                           CAF      PRIO24                                
033930,001007: 14,3253           05135                           TC       FINDVAC                               
033931,001008: 14,3254  E7,1722                                  EBANK=   MRKBUF1                               
033932,001009: 14,3254           03260 30067                     2CADR    R53JOB                                
033933,001010: 
033934,001011: 14,3256           00003                           RELINT                                         
033935,001012: 14,3257           03316                           TC       R52G                                  
033936,001013: 14,3260           06006        R53JOB             TC       INTPRET                               
033937,001014: 14,3261           77624                           CALL                                           
033938,001015: 14,3262           31571                                    R53                                   
033939,001016: 14,3263           77776        ENDPLAC            EXIT                                           #  INTERPRETER RETURN TO ENDOFJOB (R22 USES)
033940,001017: 14,3264           05205                           TC       ENDOFJOB                              
033941,001018: 14,3265           01534        V06N92             VN       00692                                 
033942,001019: 14,3266           25252 25254  38TRDEG            2DEC     .66666667                             #  CORRESPONDS TO 50 DEGS IN TRUNNION
033943,001020: 
033944,001021: 14,3270           00000 00360  2.4SECDP           2DEC     240        B-28                       
033945,001022: 
033946,001023: 14,3272           00000 00062  .5SECDP            2DEC     50         B-28                       
033947,001024: 
033948,001025: 14,3274           61740        20DEGSMN           DEC      -07199     B-14                       
033949,001026: 14,3275           77777                           DEC      -0         B-14                       
033950,001027: 14,3276           77414        R52L               BON      EXIT                                  
033951,001028: 14,3277           00705                                    TARG1FLG                              
033952,001029: 14,3300           31241                                    R52J                                  
033953,001030: 14,3301           33310                           CAF      OCT404                                
033954,001031: 14,3302           04636                           TC       BANKCALL                              
033955,001032: 14,3303           21766                           CADR     PRIOLARM                              
033956,001033: 14,3304           13312                           TCF      TERM52                                #  TERMINATE
033957,001034: 14,3305           13175                           TCF      R52F                                  #  PROCEED
033958,001035: 14,3306           13175                           TCF      R52F                                  #  NO PROVISION FOR NEW DATA
033959,001036: 14,3307           15205                           TCF      ENDOFJOB                              
033960,001037: 
033961,001038: 14,3310           00404        OCT404             OCT      404                                   
033962,001039: 
033963,001040: 14,3311           00264        1.8SEC             DEC      180        B-14                       
033964,001041: 
033965,001042: 14,3312           04636        TERM52             TC       BANKCALL                              

Page 762

033967,001044: 14,3313           20575                           CADR     KLEENEX                               
033968,001045: 
033969,001046: 14,3314           04655                           TC       POSTJUMP                              
033970,001047: 14,3315           16031                           CADR     TERMSXT                               
033971,001048: 
033972,001049: 14,3316           05354        R52G               TC       CHECKMM                               
033973,001050: 14,3317           00030                           MM       24         B-14                       
033974,001051: 14,3320           13202                           TCF      R52FA                                 #  NO
033975,001052: 14,3321           11131                           CCS      PASSCNT                               #  IS THIS THE NTH(N = NO. PASS)TIME THRU
033976,001053: 14,3322           13407                           TCF      NOT4TH                                #  NO
033977,001054: 14,3323           40076                           CS       FLAGWRD2                              #  HAS A NEW MARK BEEN TAKEN
033978,001055: 14,3324           74766                           MASK     P24MKBIT                              
033979,001056: 14,3325           10000                           CCS      A                                     
033980,001057: 14,3326           13037                           TCF      R52D                                  #  NO
033981,001058: 14,3327           06006                           TC       INTPRET                               #  YES OBTAIN ADDRESS OF LAST MARK
033982,001059: 14,3330           46135                           SLOAD    BHIZ                                  
033983,001060: 14,3331           03754                                    P22DEX                                
033984,001061: 14,3332           31411                                    LSTMRK                                
033985,001062: 14,3333           54160                           AXC,1    XSU,1                                 
033986,001063: 14,3334           03530                           ECADR    SVMRKDAT   -7                         
033987,001064: 14,3335           03753                                    P22DEX                                
033988,001065: 14,3336           70730        R52K               SXA,1    DLOAD*                                
033989,001066: 14,3337           01077                                    MARKDATA                              
033990,001067: 14,3340           00001                                    0,1                                   
033991,001068: 14,3341           47044                           BPL      RTB                                   
033992,001069: 14,3342           31344                                    +2                                    
033993,001070: 14,3343           31037                                    R52D                                  
033994,001071: 14,3344           03670                           STORE    S22TOFF                               
033995,001072: 14,3345           34041                           STCALL   TDEC1                                 #  INT TO TIME OF MARK
033996,001073: 14,3346           27170                                    CSMCONIC                              
033997,001074: 14,3347           77775                           VLOAD                                          
033998,001075: 14,3350           00017                                    RATT1                                 
033999,001076: 14,3351           01046                           STORE    CSMPOS                                #  EARTH B29 MOON B27
034000,001077: 14,3352           45150                           LXA,1    CALL                                  
034001,001078: 14,3353           01077                                    MARKDATA                              
034002,001079: 14,3354           47017                                    GETUM                                 
034003,001080: 14,3355           25072                           STOVL    UM                                    #  UNIT TIME OF SIGHT VECTOR
034004,001081: 14,3356           01046                                    CSMPOS                                
034005,001082: 14,3357           77656                           UNIT                                           
034006,001083: 14,3360           36152                           STCALL   ALPHAV                                #  ALPHAV +4 = SINL FOR SETRE
034007,001084: 14,3361           26654                                    SETRE                                 
034008,001085: 14,3362           43345                           DLOAD    DAD                                   #  CORRECT R0 FOR ALT OF LMK
034009,001086: 14,3363           02240                                    ERADM                                 
034010,001087: 14,3364           00753                                    ALT                                   
034011,001088: 14,3365           02240                           STORE    ERADM                                 
034012,001089: 14,3366           77624                           CALL                                           #  COMPUTE LANDMARK VECTOR
034013,001090: 14,3367           61331                                    S22F2410                              
034014,001091: 14,3370           70414                           BOFF     VSR2                                  
034015,001092: 14,3371           04343                                    CMOONFLG                              
034016,001093: 14,3372           31373                                    +1                                    

Page 763

034018,001095: 14,3373           16152                           STODL    ALPHAV                                
034019,001096: 14,3374           03670                                    S22TOFF                               
034020,001097: 14,3375           77624                           CALL                                           #  COMPUTE LAT, LONG, ALT
034021,001098: 14,3376           26453                                    LAT-LONG                              
034022,001099: 14,3377           77624                           CALL                                           
034023,001100: 14,3400           62363                                    LLASRD                                
034024,001101: 14,3401           77414                           SET      EXIT                                  
034025,001102: 14,3402           04061                                    NEWLMFLG                              
034026,001103: 14,3403           05561                           TC       DOWNFLAG                              
034027,001104: 14,3404           00052                           ADRES    P24MKFLG                              
034028,001105: 14,3405           44770                           CS       ONE                                   
034029,001106: 14,3406           60737                           AD       NO.PASS                               
034030,001107: 14,3407           55131        NOT4TH             TS       PASSCNT                               
034031,001108: 14,3410           13037                           TCF      R52D                                  
034032,001109: 14,3411           52160        LSTMRK             AXC,1    GOTO                                  
034033,001110: 14,3412           03573                           ECADR    SVMRKDAT   +28D                       
034034,001111: 14,3413           31336                                    R52K                                  
034035,001112: 07,2000                                           SETLOC   RATEBNK                               
034036,001113: 07,2000                                           BANK                                           
034037,001114: 
034038,001115: 07,2530                                           COUNT*   $$/R52                                
034039,001116: 07,2530           45345        RATESUB            DLOAD    DSU                                   
034040,001117: 07,2531           02347                                    AOPTIME                               
034041,001118: 07,2532           00364                                    AOPOLD                                
034042,001119: 07,2533           77634                           RTB                                            
034043,001120: 07,2534           45636                                    SGNAGREE                              
034044,001121: 07,2535           77612                           SL4                                            
034045,001122: 07,2536           14772                           STODL    RATETEMP                              #  TIME DIF SCALLED B24
034046,001123: 07,2537           02347                                    AOPTIME                               
034047,001124: 07,2540           00364                           STORE    AOPOLD                                #  UPDATE OLD TIME REG
034048,001125: 07,2541           77545                           DLOAD    EXIT                                  #  LOAD SHAFT AND TRUNNION SCALE FACTORS
034049,001126: 07,2542           01771                                    TRUNSF                                
034050,001127: 07,2543           30772                           CA       RATETEMP   +1                         
034051,001128: 07,2544           56771                           XCH      RATETEMP                              #  TIME DIF SP SCALED B10
034052,001129: 07,2545           22007                           ZL                                             
034053,001130: 07,2546           30155                           CA       MPAC       +1                         #  SHAFTSF B25
034054,001131: 07,2547           00006                           EXTEND                                         
034055,001132: 07,2550           10771                           DV       RATETEMP                              #  B15
034056,001133: 07,2551           56001                           XCH      L                                     
034057,001134: 07,2552           31773                           CA       SAC                                   #  SHAFT
034058,001135: 07,2553           00006                           EXTEND                                         
034059,001136: 07,2554           21313                           MSU      DESOPTS                               #  B-1
034060,001137: 07,2555           00006                           EXTEND                                         
034061,001138: 07,2556           70001                           MP       L                                     #  B14
034062,001139: 07,2557           55657                           TS       SRTEMP                                
034063,001140: 07,2560           22007                           ZL                                             
034064,001141: 07,2561           30154                           CA       MPAC                                  #  TRUNSF B27
034065,001142: 07,2562           00006                           EXTEND                                         
034066,001143: 07,2563           10771                           DV       RATETEMP                              #  B17
034067,001144: 07,2564           56001                           XCH      L                                     

Page 764

034069,001146: 07,2565           30330                           CA       PACTEMP                               #  TRUNNION
034070,001147: 07,2566           00006                           EXTEND                                         
034071,001148: 07,2567           21312                           MSU      DESOPTT                               #  B-3
034072,001149: 07,2570           00006                           EXTEND                                         
034073,001150: 07,2571           70001                           MP       L                                     #  B14
034074,001151: 07,2572           55656                           TS       TRTEMP                                
034075,001152: 07,2573           34770                           CAF      ONE                                   #  INITIALIZE FOR SHAFT RATE
034076,001153: 07,2574           54772        MAGCK              TS       RATETEMP   +1                         #  CHECK IF SHAFT,TRUN RATES GR THAN MAX
034077,001154: 07,2575           50772                           INDEX    RATETEMP   +1                         
034078,001155: 07,2576           31656                           CA       TRTEMP                                
034079,001156: 07,2577           00006                           EXTEND                                         
034080,001157: 07,2600           62610                           BZMF     NEGRATE                               
034081,001158: 07,2601           62626                           AD       -MAXSRT                               
034082,001159: 07,2602           00006                           EXTEND                                         
034083,001160: 07,2603           62617                           BZMF     CMDCMP                                
034084,001161: 07,2604           42626                           CS       -MAXSRT                               
034085,001162: 07,2605           50772                           INDEX    RATETEMP   +1                         
034086,001163: 07,2606           55656                           TS       TRTEMP                                #  SET RATE TO +MAX RATE
034087,001164: 07,2607           12617                           TCF      CMDCMP                                
034088,001165: 07,2610           40000        NEGRATE            COM                                            
034089,001166: 07,2611           62626                           AD       -MAXSRT                               
034090,001167: 07,2612           00006                           EXTEND                                         
034091,001168: 07,2613           62617                           BZMF     CMDCMP                                
034092,001169: 07,2614           32626                           CA       -MAXSRT                               
034093,001170: 07,2615           50772                           INDEX    RATETEMP   +1                         
034094,001171: 07,2616           55656                           TS       TRTEMP                                #  SET RATE TO -MAX RATE
034095,001172: 07,2617           10772        CMDCMP             CCS      RATETEMP   +1                         
034096,001173: 07,2620           12574                           TCF      MAGCK                                 #  GO DO TRUN RATE
034097,001174: 07,2621           06006                           TC       INTPRET                               
034098,001175: 07,2622           77745                           DLOAD                                          
034099,001176: 07,2623           02657                                    TRTEMP                                
034100,001177: 07,2624           34736                           STCALL   TRATE                                 
034101,001178: 07,2625           31161                                    R53CHK                                
034102,001179: 07,2626           77177        -MAXSRT            DEC      -384       B-14                       #  MAX PULSES
034103,001180: 

Page 765

034105,001182:                                                                                                  #  NAME - LOCSAM ALIAS S50
034106,001183: 
034107,001184:                                                                                                  #  FUNCTION - TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
034108,001185:                                                                                                  #             IMU ALIGNMENT PROGRAMS
034109,001186: 
034110,001187:                                                                                                  #  DEFINE:
034111,001188:                                                                                                  #        RATT    = POSITION VECTOR OF CM  WRT PRIMARY BODY
034112,001189:                                                                                                  #        VATT    = VELOCITY VECTOR OF CM  WRT PRIMARY BODY
034113,001190:                                                                                                  #        RE      = RADIUS OF EARTH
034114,001191:                                                                                                  #        RM      = RADIUS OF MOON
034115,001192:                                                                                                  #        ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
034116,001193:                                                                                                  #                  WRT TO SUN  OVER  THE VELOCITY OF LIGHT
034117,001194:                                                                                                  #        REM     = POSITION OF MOON  WRT  EARTH
034118,001195:                                                                                                  #        RES     = POSITION OF SUN  WRT  EARTH
034119,001196:                                                                                                  #        C       = VELOCITY OF LIGHT
034120,001197: 
034121,001198: 
034122,001199:                                                                                                  #                EARTH IS PRIMARY                        MOON IS PRIMARY
034123,001200:                                                                                                  #                        -                                       -
034124,001201:                                                                                                  #                VEARTH=-1(RATT)                         VEARTH=-1(REM+RATT)
034125,001202:                                                                                                  #                        -                                       -
034126,001203:                                                                                                  #                VMOON = 1(REM-RATT)                     VMOON =-1(RATT)
034127,001204:                                                                                                  #                        -                                       -
034128,001205:                                                                                                  #                VSUN  = 1(RES)                          VSUN  = 1(RES-REM)
034129,001206:                                                                                                  #                              -1
034130,001207:                                                                                                  #                CEARTH=COS(SIN  (RE/RATT)+5)            CEARTH=COS 5
034131,001208:                                                                                                  #                                                                      -1
034132,001209:                                                                                                  #                CMOON =COS 5                            CMOON =COS(SIN  CRM/RATT)+5)
034133,001210: 
034134,001211:                                                                                                  #                CSUN  =COS 15                           CSUN  =COS 15
034135,001212: 
034136,001213:                                                                                                  #                            VEL/C = VSUN X ECLIPOL + VATT/C
034137,001214: 
034138,001215: 
034139,001216:                                                                                                  #  CALL -        DLOAD   CALL
034140,001217:                                                                                                  #                        DESIRED TIME
034141,001218:                                                                                                  #                        LOCSAM
034142,001219: 
034143,001220:                                                                                                  #  INPUTS - MPAC = TIME
034144,001221: 
034145,001222:                                                                                                  #  OUTPUTS- VEARTH,VMOON,VSUN,CEARTH,CMOON,CSUN,VEL/C
034146,001223: 
034147,001224:                                                                                                  #  SUBROUTINES- LSPOS,CSMCONIC
034148,001225: 
034149,001226:                                                                                                  #  DEBRIS - VAC AREA, SEE SUBROUTINES
034150,001227: 

Page 766

034152,001229: 13,2000                                           SETLOC   SR52/1                                
034153,001230: 13,2000                                           BANK                                           
034154,001231: 
034155,001232: 13,2345                                           COUNT*   $$/S50                                
034156,001233: 
034157,001234: 13,2345  13,2345               LOCSAM             =        S50                                   
034158,001235: 13,2345           77620        S50                STQ                                            
034159,001236: 13,2346           00300                                    QMAJ                                  
034160,001237: 13,2347           36607                           STCALL   TSIGHT                                
034161,001238: 13,2350           54136                                    LSPOS                                 
034162,001239: 13,2351           26752                           STOVL    VMOON                                 
034163,001240: 13,2352           00003                                    2D                                    
034164,001241: 13,2353           16744                           STODL    VSUN                                  
034165,001242: 13,2354           02607                                    TSIGHT                                
034166,001243: 13,2355           34041                           STCALL   TDEC1                                 
034167,001244: 13,2356           27170                                    CSMCONIC                              
034168,001245: 13,2357           61131                           SSP      TIX,2                                 
034169,001246: 13,2360           00052                                    S2                                    
034170,001247: 13,2361           00000                                    0                                     
034171,001248: 13,2362           26405                                    MOONCNTR                              
034172,001249: 13,2363           52375        EARTCNTR           VLOAD    VSU                                   
034173,001250: 13,2364           02752                                    VMOON                                 
034174,001251: 13,2365           00001                                    RATT                                  
034175,001252: 13,2366           77656                           UNIT                                           
034176,001253: 13,2367           26752                           STOVL    VMOON                                 
034177,001254: 13,2370           00001                                    RATT                                  
034178,001255: 13,2371           57456                           UNIT     VCOMP                                 
034179,001256: 13,2372           16736                           STODL    VEARTH                                
034180,001257: 13,2373           34636                                    RSUBE                                 
034181,001258: 13,2374           77624                           CALL                                           
034182,001259: 13,2375           26445                                    OCCOS                                 
034183,001260: 13,2376           14017                           STODL    CEARTH                                
034184,001261: 13,2377           34654                                    CSS5                                  
034185,001262: 13,2400           24023                           STOVL    CMOON                                 
034186,001263: 13,2401           02744                                    VSUN                                  
034187,001264: 13,2402           77656                           UNIT                                           
034188,001265: 13,2403           36744                           STCALL   VSUN                                  
034189,001266: 13,2404           26432                                    ENDSAM                                
034190,001267: 13,2405           40575        MOONCNTR           VLOAD    VSR8                                  
034191,001268: 13,2406           02752                                    VMOON                                 
034192,001269: 13,2407           51362                           VSR1     BVSU                                  
034193,001270: 13,2410           02744                                    VSUN                                  
034194,001271: 13,2411           77656                           UNIT                                           
034195,001272: 13,2412           26744                           STOVL    VSUN                                  
034196,001273: 13,2413           02752                                    VMOON                                 
034197,001274: 13,2414           53455                           VAD      UNIT                                  
034198,001275: 13,2415           00001                                    RATT                                  
034199,001276: 13,2416           77676                           VCOMP                                          
034200,001277: 13,2417           26736                           STOVL    VEARTH                                

Page 767

034202,001279: 13,2420           00001                                    RATT                                  
034203,001280: 13,2421           57456                           UNIT     VCOMP                                 
034204,001281: 13,2422           16752                           STODL    VMOON                                 
034205,001282: 13,2423           34634                                    RSUBM                                 
034206,001283: 13,2424           77624                           CALL                                           
034207,001284: 13,2425           26445                                    OCCOS                                 
034208,001285: 13,2426           14023                           STODL    CMOON                                 
034209,001286: 13,2427           34654                                    CSS5                                  
034210,001287: 13,2430           24017                           STOVL    CEARTH                                
034211,001288: 13,2431           02744                                    VSUN                                  
034212,001289: 13,2432           77635        ENDSAM             VXV                                            
034213,001290: 13,2433           34644                                    ECLIPOL                               
034214,001291: 13,2434           27452                           STOVL    VEL/C                                 
034215,001292: 13,2435           00007                                    VATT                                  
034216,001293: 13,2436           53361                           VXSC     VAD                                   
034217,001294: 13,2437           34642                                    1/C                                   
034218,001295: 13,2440           03452                                    VEL/C                                 
034219,001296: 13,2441           17452                           STODL    VEL/C                                 
034220,001297: 13,2442           34656                                    CSSUN                                 
034221,001298: 13,2443           34021                           STCALL   CSUN                                  
034222,001299: 13,2444           00300                                    QMAJ                                  
034223,001300: 13,2445           70471        OCCOS              DDV      SR1                                   
034224,001301: 13,2446           00045                                    36D                                   
034225,001302: 13,2447           43336                           ASIN     DAD                                   
034226,001303: 13,2450           34640                                    5DEGREES                              
034227,001304: 13,2451           70546                           COS      SR1                                   
034228,001305: 13,2452           77616                           RVQ                                            
034229,001306: 16,2000                                           SETLOC   P50S2                                 
034230,001307: 16,2000                                           BANK                                           
034231,001308: 16,2633                                           COUNT*   $$/S50                                
034232,001309: 16,2633           00065 01265  RSUBM              2DEC     1738090    B-29                       #  MOON RADIUS IN METERS
034233,001310: 
034234,001311: 16,2635           00302 24533  RSUBE              2DEC     6378166    B-29                       
034235,001312: 
034236,001313: 16,2637           00343 21616  5DEGREES           2DEC     .013888889                            #  SCALED IN REVS
034237,001314: 
034238,001315: 16,2641           00000 13143  1/C                2DEC     .000042696 B-1                        #  1/(9835712 FT/CS) SCALED CSEC/M B+7
034239,001316: 
034240,001317: 16,2643           00000 00000  ECLIPOL            2DEC     0          B-28                       #  POLE OF ECLIPTIC FOR B0=.409157363336 RAD
034241,001318: 
034242,001319: 16,2645           77777 53213                     2DEC     -.0000395319722                            #  AND CONST.AB = 20.496 ARC-SEC
034243,001320: 
034244,001321: 16,2647           00001 17630                     2DEC     +.0000911652662                            #  ECLIPOL = CONST.AB.(0, -SIN B0, COS B0)
034245,001322: 
034246,001323: 16,2651           00001 16700  TSIGHT1            2DEC     24000      B-28                       
034247,001324: 
034248,001325: 16,2653                        CEARTH             =        14D                                   
034249,001326: 16,2653                        CSUN               =        16D                                   
034250,001327: 16,2653                        CMOON              =        18D                                   
034251,001328: 16,2653           07760 14473  CSS5               2DEC     .2490475                              #  (COS 5)/4
034252,001329: 

Page 768

034254,001331: 16,2655           07564 15042  CSSUN              2DEC     .24148                                #  COS 15 /4
034255,001332: 
034256,001333: 16,2657  16,2657               R54                =        CHKSDATA                              
034257,001334: 
034258,001335:                                                                                                  #  NAME - CHKSDATA
034259,001336: 
034260,001337:                                                                                                  #  FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS. WHEN A PAIR OF STAR SIGHTINGS ARE MADE
034261,001338:                                                                                                  #  BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
034262,001339:                                                                                                  #  COMPUTER TO INSURE A PROPER SIGHTING WAS MADE. THE FOLLOWING COMPUTATIONS ARE PERFORMED_
034263,001340: 
034264,001341:                                                                                                  #        OS1 = OBSERVED STAR 1 VECTOR
034265,001342:                                                                                                  #        OS2 = OBSERVED STAR 2 VECTOR
034266,001343:                                                                                                  #        SS1 = STORED STAR 1 VECTOR
034267,001344:                                                                                                  #        SS2 = STORED STAR 2 VECTOR
034268,001345:                                                                                                  #         A1 = ARCCOS(OS1 - OS2)
034269,001346:                                                                                                  #         A2 = ARCCOS(SS1 - SS2)
034270,001347:                                                                                                  #          A = ABS(2(A1 - A2))
034271,001348: 
034272,001349:                                                                                                  #  THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTENCE
034273,001350:                                                                                                  #  EXIT MODE 1. FREEFLAG SET  IMPLIES ASTRONAUT WANTS TO PROCEED
034274,001351:                                                                                                  #            2. FREEFLAG RESET IMPLIES ASTRONAUT WANTS TO RECYCLE            ERANCE)
034275,001352:                                                                                                  #  OUTPUT - 1. VERB 6,NOUN 3 - DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
034276,001353:                                                                                                  #           2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
034277,001354: 
034278,001355:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
034279,001356:                                                                                                  #        1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
034280,001357:                                                                                                  #        2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
034281,001358: 
034282,001359:                                                                                                  #  DEBRIS -
034283,001360: 
034284,001361: 16,2657  0003777                                  EBANK=   WHOCARES                              
034285,001362: 16,2657                                           COUNT*   $$/R54                                
034286,001363: 16,2657           43020        CHKSDATA           STQ      SET                                   
034287,001364: 16,2660           02777                                    QMIN                                  
034288,001365: 16,2661           00074                                    FREEFLAG                              
034289,001366: 16,2662           77760        CHKSAB             AXC,1                                          #  SET X1 TO STORE EPHEMERIS DATA
034290,001367: 16,2663           02735                                    STARAD                                
034291,001368: 
034292,001369: 16,2664           47773        CHKSB              VLOAD*   DOT*                                  #  CAL. ANGLE THETA
034293,001370: 16,2665           00001                                    0,1                                   
034294,001371: 16,2666           00007                                    6,1                                   
034295,001372: 16,2667           65552                           SL1      ACOS                                  
034296,001373: 16,2670           00025                           STORE    THETA                                 
034297,001374: 16,2671           43014                           BOFF     INVERT                                #  BRANCH TO CHKSD IF THIS IS 2ND PASS
034298,001375: 16,2672           00354                                    FREEFLAG                              
034299,001376: 16,2673           34702                                    CHKSD                                 
034300,001377: 16,2674           00174                                    FREEFLAG                              #  CLEAR FREEFLAG
034301,001378: 16,2675           71360                           AXC,1    DLOAD                                 #  SET X1 TO MARK ANGLES
034302,001379: 16,2676           00006                                    6D                                    
034303,001380: 16,2677           00025                                    THETA                                 
034304,001381: 16,2700           34023                           STCALL   18D                                   
034305,001382: 16,2701           34664                                    CHKSB                                 

Page 769

034307,001384: 16,2702           45345        CHKSD              DLOAD    DSU                                   
034308,001385: 16,2703           00025                                    THETA                                 
034309,001386: 16,2704           00023                                    18D                                   #  COMPUTE POS DIFF
034310,001387: 16,2705           47046                           ABS      RTB                                   
034311,001388: 16,2706           45636                                    SGNAGREE                              
034312,001389: 16,2707           01251                           STORE    NORMTEM1                              
034313,001390: 16,2710           77414                           SET      EXIT                                  
034314,001391: 16,2711           00074                                    FREEFLAG                              
034315,001392: 16,2712           34772                           CAF      ZERO                                  
034316,001393: 16,2713           04636                           TC       BANKCALL                              
034317,001394: 16,2714           20715                           CADR     CLEANDSP                              
034318,001395: 
034319,001396: 16,2715           32727                           CAF      VB6N5                                 
034320,001397: 16,2716           04636                           TC       BANKCALL                              
034321,001398: 16,2717           20743                           CADR     GOFLASH                               
034322,001399: 16,2720           14103                           TCF      GOTOPOOH                              
034323,001400: 16,2721           02724                           TC       CHKSDA                                #  PROCEED
034324,001401: 16,2722           05561                           TC       DOWNFLAG                              
034325,001402: 16,2723           00014                           ADRES    FREEFLAG                              
034326,001403: 16,2724           06006        CHKSDA             TC       INTPRET                               
034327,001404: 16,2725           77650                           GOTO                                           
034328,001405: 16,2726           02777                                    QMIN                                  
034329,001406: 16,2727           01405        VB6N5              VN       605                                   
034330,001407: 
034331,001408: 16,2730                                           COUNT*   $$/R50                                
034332,001409: 16,2730           77773        MATMOVE            VLOAD*                                         #  TRANSFER MATRIX
034333,001410: 16,2731           00001                                    0,1                                   
034334,001411: 16,2732           10001                           STORE    0,2                                   
034335,001412: 16,2733           77773                           VLOAD*                                         
034336,001413: 16,2734           00007                                    6D,1                                  
034337,001414: 16,2735           10007                           STORE    6D,2                                  
034338,001415: 16,2736           77773                           VLOAD*                                         
034339,001416: 16,2737           00015                                    12D,1                                 
034340,001417: 16,2740           10015                           STORE    12D,2                                 
034341,001418: 16,2741           77616                           RVQ                                            
034342,001419: 16,2742           00056        DEGREE1            DEC      46         B-14                       
034343,001420: 16,2743           37722        DEG359             DEC      16338      B-14                       
034344,001421: 16,2744           00004        RDCDUS             INHINT                                         #  READ CDUS
034345,001422: 16,2745           00006                           EXTEND                                         
034346,001423: 16,2746           30033                           DCA      CDUX                                  
034347,001424: 16,2747           50120                           INDEX    FIXLOC                                
034348,001425: 16,2750           52002                           DXCH     1                                     
034349,001426: 16,2751           30034                           CA       CDUZ                                  
034350,001427: 16,2752           50120                           INDEX    FIXLOC                                
034351,001428: 16,2753           54003                           TS       3                                     
034352,001429: 16,2754           00003                           RELINT                                         
034353,001430: 16,2755           06030                           TC       DANZIG                                
034354,001431: 
034355,001432:                                                                                                  #  NAME - CALCSMSC
034356,001433: 
034357,001434:                                                                                                  #  FUNCTION - DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED FOR COARSE ALIGNMENT.

Page 770

034359,001436: 
034360,001437:                                                                                                  #  CALLING SEQUENCE - CALL CALCSMSC
034361,001438: 
034362,001439:                                                                                                  #  INPUT - DESIRED IMU INERTIAL ORIENTATION VECTORS - XSMD, YSMD, ZSMD
034363,001440: 
034364,001441:                                                                                                  #  OUTPUT - GIMBAL ANGLES LEFT IN THETAD, +1, +2                         +
034365,001442: 
034366,001443:                                                                                                  #  SUBROUTINES USED - 1.CDUTRIG 2.CALCSMSC 3.CALCGA
034367,001444: 
034368,001445: 16,2000                                           SETLOC   P50S2                                 
034369,001446: 16,2000                                           BANK                                           
034370,001447: 16,2756                                           COUNT*   $$/R51                                
034371,001448: 16,2756           41345        CALCSMSC           DLOAD    DMP                                   
034372,001449: 16,2757           01142                                    SINCDUY                               
034373,001450: 16,2760           01152                                    COSCDUZ                               
034374,001451: 16,2761           77676                           DCOMP                                          
034375,001452: 16,2762           70525                           PDDL     SR1                                   
034376,001453: 16,2763           01144                                    SINCDUZ                               
034377,001454: 16,2764           41325                           PDDL     DMP                                   
034378,001455: 16,2765           01150                                    COSCDUY                               
034379,001456: 16,2766           01152                                    COSCDUZ                               
034380,001457: 16,2767           76466                           VDEF     VSL1                                  
034381,001458: 16,2770           16714                           STODL    XNB                                   
034382,001459: 16,2771           01146                                    SINCDUX                               
034383,001460: 16,2772           72405                           DMP      SL1                                   
034384,001461: 16,2773           01144                                    SINCDUZ                               
034385,001462: 16,2774           00033                           STORE    26D                                   
034386,001463: 16,2775           65205                           DMP      PDDL                                  
034387,001464: 16,2776           01142                                    SINCDUY                               
034388,001465: 16,2777           01154                                    COSCDUX                               
034389,001466: 16,3000           45205                           DMP      DSU                                   
034390,001467: 16,3001           01150                                    COSCDUY                               
034391,001468: 16,3002           41325                           PDDL     DMP                                   
034392,001469: 16,3003           01146                                    SINCDUX                               
034393,001470: 16,3004           01152                                    COSCDUZ                               
034394,001471: 16,3005           65276                           DCOMP    PDDL                                  
034395,001472: 16,3006           01154                                    COSCDUX                               
034396,001473: 16,3007           65205                           DMP      PDDL                                  
034397,001474: 16,3010           01142                                    SINCDUY                               
034398,001475: 16,3011           01150                                    COSCDUY                               
034399,001476: 16,3012           43205                           DMP      DAD                                   
034400,001477: 16,3013           00033                                    26D                                   
034401,001478: 16,3014           76466                           VDEF     VSL1                                  
034402,001479: 16,3015           02730                           STORE    ZNB                                   
034403,001480: 16,3016           76435                           VXV      VSL1                                  
034404,001481: 16,3017           02714                                    XNB                                   
034405,001482: 16,3020           02722                           STORE    YNB                                   
034406,001483: 16,3021           77616                           RVQ                                            
034407,001484: 

Page 771

034409,001486:                                                                                                  #  PROGRAM NAME - P51 - IMU ORIENTATION DETERMINATION            DATE - AUGUST 1,1969
034410,001487:                                                                                                  #  MODIFICATION BY ALBERT,BARNERT,HASLAM                         LOG SECTION - P51-P5
034411,001488: 
034412,001489:                                                                                                  #  FUNCTION -
034413,001490: 
034414,001491:                                                                                                  #  DETERMINES THE INERTIAL ORIENTATION OF THE IMU. THE PROGRAM IS SELECTED BY DSKY ENTRY. THE SIGHTING
034415,001492:                                                                                                  #  ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR. THE DATA IS
034416,001493:                                                                                                  #  THEN PROCESSED AS FOLLOWS.
034417,001494: 
034418,001495:                                                                                                  #        1. SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGATIONAL BASE COORDINATES. LET SA AND TA BE THE SHAFT AND
034419,001496:                                                                                                  #        TRUNNION ANGLES, RESPECTIVELY. THEN,
034420,001497:                                                                                                  #                -
034421,001498:                                                                                                  #                V  = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA))        (A COLUMN VECTOR)
034422,001499:                                                                                                  #                 NB
034423,001500:                                                                                                  #        THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
034424,001501: 
034425,001502:                                                                                                  #        2. THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
034426,001503: 
034427,001504:                                                                                                  #                -    T  T  T -
034428,001505:                                                                                                  #                V = Q *Q *Q *V  , WHERE
034429,001506:                                                                                                  #                     1  2  3  NB
034430,001507: 
034431,001508:                                                                                                  #                     ( COS(IG)   0    -SIN(IG) )
034432,001509:                                                                                                  #                     (                         )                                THE GIMBAL ANGLES ARE COMPUTED FROM
034433,001510:                                                                                                  #                Q  = (   0       1       0     ), IG= INNER GIMBAL ANGLE        THE CDU COUNTERS AT NBSM (USING AXIS-
034434,001511:                                                                                                  #                 1   (                         )                                ROT AND CDULOGIC)
034435,001512:                                                                                                  #                     ( SIN(IG)   0     COS(IG) )
034436,001513: 
034437,001514: 
034438,001515:                                                                                                  #                     ( COS(MG) SIN(MG)   0     )
034439,001516:                                                                                                  #                     (                         )
034440,001517:                                                                                                  #                Q  = (-SIN(MG) COS(MG)   0     ), MG= MIDDLE GIMBAL ANGLE
034441,001518:                                                                                                  #                 2   (                         )
034442,001519:                                                                                                  #                     (   0       0       1     )
034443,001520: 
034444,001521: 
034445,001522:                                                                                                  #                     (   1       0       0     )
034446,001523:                                                                                                  #                     (                         )
034447,001524:                                                                                                  #                Q  = (   0     COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
034448,001525:                                                                                                  #                 3   (                         )
034449,001526:                                                                                                  #                     (   0    -SIN(OG) COS(OG) )
034450,001527: 
034451,001528:                                                                                                  #        3. THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
034452,001529: 
034453,001530:                                                                                                  #        4. THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
034454,001531: 
034455,001532:                                                                                                  #        5. REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
034456,001533:                                                                                                  #                    -      -
034457,001534:                                                                                                  #           LET S  AND S  BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).

Page 772

034459,001536:                                                                                                  #                     1      2
034460,001537: 
034461,001538:                                                                                                  #      DEFINE,   -    -
034462,001539:                                                                                                  #                U  = S
034463,001540:                                                                                                  #                 A    A1
034464,001541: 
034465,001542:                                                                                                  #                -         -    -
034466,001543:                                                                                                  #                V  = UNIT(S  X S  )
034467,001544:                                                                                                  #                 A         A1   A2
034468,001545: 
034469,001546:                                                                                                  #                -    -   -
034470,001547:                                                                                                  #                W  = U X V
034471,001548:                                                                                                  #                 A    A   A
034472,001549: 
034473,001550:                                                                                                  #          AND
034474,001551:                                                                                                  #                -    -
034475,001552:                                                                                                  #                U  = S
034476,001553:                                                                                                  #                 B    B1
034477,001554: 
034478,001555:                                                                                                  #                -         -    -
034479,001556:                                                                                                  #                V  = UNIT(S  X S  )
034480,001557:                                                                                                  #                 B         B1   B2
034481,001558: 
034482,001559:                                                                                                  #                -    -   -
034483,001560:                                                                                                  #                W  = U X V
034484,001561:                                                                                                  #                 B    B   B
034485,001562: 
034486,001563:                                                                                                  #         THEN   -        -       -       -
034487,001564:                                                                                                  #                X  = U  *U + V  *V + W  *W
034488,001565:                                                                                                  #                      B1  A   B1  A   B1  A
034489,001566: 
034490,001567:                                                                                                  #                -        -       -       -              (REFSMMAT)
034491,001568:                                                                                                  #                Y  = U  *U + V  *V + W  *W
034492,001569:                                                                                                  #                      B2  A   B2  A   B2  A
034493,001570: 
034494,001571:                                                                                                  #                -        -       -       -
034495,001572:                                                                                                  #                Z  = U  *U + V  *V + W  *W
034496,001573:                                                                                                  #                      B3  A   B3  A   B3  A
034497,001574: 
034498,001575:                                                                                                  #           THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
034499,001576:                                                                                                  #                -
034500,001577:                                                                                                  #                S   IN 6-11 OF THE VAC AREA
034501,001578:                                                                                                  #                 A1
034502,001579: 
034503,001580:                                                                                                  #                -
034504,001581:                                                                                                  #                S   IN 12-17 OF THE VAC AREA
034505,001582:                                                                                                  #                 A2
034506,001583: 
034507,001584:                                                                                                  #                -
034508,001585:                                                                                                  #                S   IN STARAD

Page 773

034510,001587:                                                                                                  #                 B1
034511,001588: 
034512,001589:                                                                                                  #                -
034513,001590:                                                                                                  #                S   IN STARAD +6
034514,001591:                                                                                                  #                 B2
034515,001592: 
034516,001593:                                                                                                  #  CALLING SEQUENCE
034517,001594: 
034518,001595:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
034519,001596: 
034520,001597:                                                                                                  #  SUBROUTINES CALLED.
034521,001598: 
034522,001599:                                                                                                  #        GOPERF3
034523,001600:                                                                                                  #        GOPERF1R
034524,001601:                                                                                                  #        GODSPR
034525,001602:                                                                                                  #        IMUCOARS
034526,001603:                                                                                                  #        IMUFIN20
034527,001604:                                                                                                  #        R53
034528,001605:                                                                                                  #        SXTNB
034529,001606:                                                                                                  #        NBSM
034530,001607:                                                                                                  #        MKRELEAS
034531,001608:                                                                                                  #        CHKSDATA
034532,001609:                                                                                                  #        MATMOVE
034533,001610: 
034534,001611:                                                                                                  #  ALARMS
034535,001612: 
034536,001613:                                                                                                  #        NONE.
034537,001614: 
034538,001615:                                                                                                  #  ERASABLE INITIALIZATION
034539,001616: 
034540,001617:                                                                                                  #        IMU ZERO FLAG SHOULD BE SET.
034541,001618: 
034542,001619:                                                                                                  #  OUTPUT
034543,001620: 
034544,001621:                                                                                                  #        REFSMMAT
034545,001622:                                                                                                  #        REFSMFLG
034546,001623: 
034547,001624:                                                                                                  #  DEBRIS
034548,001625: 
034549,001626:                                                                                                  #        WORK AREA
034550,001627:                                                                                                  #        STARAD
034551,001628:                                                                                                  #        STARIND
034552,001629:                                                                                                  #        BESTI
034553,001630:                                                                                                  #        BESTJ
034554,001631: 
034555,001632: 14,2000                                           SETLOC   P50S1                                 
034556,001633: 14,2000                                           BANK                                           
034557,001634: 14,3414                                           COUNT*   $$/P5153                              
034558,001635: 14,3414  14,3414               P53                EQUALS   P51                                   
034559,001636: 14,3414           41333        P51                CS       IMODES30                              
034560,001637: 14,3415           74760                           MASK     IMUOPBIT                              

Page 774

034562,001639: 14,3416           10000                           CCS      A                                     
034563,001640: 14,3417           03423                           TC       P51A                                  
034564,001641: 14,3420           05671                           TC       ALARM                                 
034565,001642: 14,3421           00210                           OCT      210                                   
034566,001643: 14,3422           04103                           TC       GOTOPOOH                              
034567,001644: 14,3423           04636        P51A               TC       BANKCALL                              
034568,001645: 14,3424           03745                           CADR     R02ZERO                               
034569,001646: 
034570,001647: 14,3425           34776        P51AA              CAF      PRFMSTAQ                              
034571,001648: 14,3426           04636                           TC       BANKCALL                              
034572,001649: 14,3427           21067                           CADR     GOPERF1                               
034573,001650: 14,3430           04103                           TC       GOTOPOOH                              #  TERM.
034574,001651: 14,3431           03454                           TC       P51B                                  #  V 33
034575,001652: 14,3432           05402                           TC       PHASCHNG                              
034576,001653: 14,3433           05024                           OCT      05024                                 
034577,001654: 14,3434           13000                           OCT      13000                                 
034578,001655: 14,3435           34772                           CAF      P51ZERO                               
034579,001656: 14,3436           55307                           TS       THETAD                                #  ZERO THE GIMBALS
034580,001657: 14,3437           55310                           TS       THETAD     +1                         
034581,001658: 14,3440           55311                           TS       THETAD     +2                         
034582,001659: 14,3441           35025                           CAF      V06N22                                
034583,001660: 14,3442           04636                           TC       BANKCALL                              
034584,001661: 14,3443           20705                           CADR     GODSPRET                              
034585,001662: 14,3444           33565                           CAF      V41K                                  #  NOW DISPLAY COARSE ALIGN VERB 41
034586,001663: 14,3445           04636                           TC       BANKCALL                              
034587,001664: 14,3446           20705                           CADR     GODSPRET                              
034588,001665: 14,3447           03742                           TC       COARSUB                               #  PERFORM ALIGNMENT
034589,001666: 14,3450           05402                           TC       PHASCHNG                              
034590,001667: 14,3451           05024                           OCT      05024                                 
034591,001668: 14,3452           13000                           OCT      13000                                 
034592,001669: 14,3453           13425                           TCF      P51AA                                 #  COARSE ALIGN DONE - RECYCLE FOR FINE
034593,001670: 

Page 775

034595,001672: 
034596,001673:                                                                                                  #     DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
034597,001674: 
034598,001675: 14,3454           06006        P51B               TC       INTPRET                               
034599,001676: 14,3455           40331                           SSP      SETPD                                 
034600,001677: 14,3456           00305                                    STARIND                               #  INDEX - STAR 1 OR 2
034601,001678: 14,3457           00000                                    0                                     
034602,001679: 14,3460           00001                                    0                                     
034603,001680: 14,3461           77234                           RTB      VLOAD                                 
034604,001681: 14,3462           31566                                    SET1/PDT                              
034605,001682: 14,3463           11762                                    ZEROVEC                               
034606,001683: 14,3464           01472                           STORE    GCOMP                                 
034607,001684: 14,3465           43014                           SET      CLEAR                                 
034608,001685: 14,3466           01060                                    DRIFTFLG                              #  ENABLE T4 COMPENSATION
034609,001686: 14,3467           00666                                    TARG2FLG                              #  SHOW MARK IS STAR - NOT LANDMARK
034610,001687: 14,3470           77776                           EXIT                                           
034611,001688: 14,3471           05402        P51C               TC       PHASCHNG                              
034612,001689: 14,3472           05024                           OCT      05024                                 
034613,001690: 14,3473           13000                           OCT      13000                                 
034614,001691: 14,3474           05354                           TC       CHECKMM                               
034615,001692: 14,3475           00065                           MM       53         B-14                       #  BACKUP PROGRAM
034616,001693: 14,3476           13504                           TCF      P51C.1                                #  NOT P53
034617,001694: 14,3477           06006                           TC       INTPRET                               
034618,001695: 14,3500           77624                           CALL                                           
034619,001696: 14,3501           36105                                    R56                                   
034620,001697: 14,3502           77650                           GOTO                                           
034621,001698: 14,3503           31507                                    P51C.2                                
034622,001699: 14,3504           06006        P51C.1             TC       INTPRET                               
034623,001700: 14,3505           77624                           CALL                                           
034624,001701: 14,3506           31571                                    R53                                   #  SIGHTING ROUTINE
034625,001702: 14,3507           77624        P51C.2             CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
034626,001703: 14,3510           36052                                    SXTSM                                 
034627,001704: 14,3511           77606                           PUSH                                           
034628,001705: 14,3512           53135                           SLOAD    BZE                                   
034629,001706: 14,3513           00305                                    STARIND                               
034630,001707: 14,3514           31520                                    P51D                                  
034631,001708: 14,3515           45575                           VLOAD    STADR                                 
034632,001709: 14,3516           41160                           STCALL   STARSAV2                              #  DOWNLINK
034633,001710: 14,3517           31526                                    P51E                                  
034634,001711: 14,3520           45575        P51D               VLOAD    STADR                                 
034635,001712: 14,3521           61166                           STODL    STARSAV1                              
034636,001713: 14,3522           02607                                    TSIGHT                                
034637,001714: 14,3523           77624                           CALL                                           
034638,001715: 14,3524           31651                                    PLANET                                
034639,001716: 14,3525           02601                           STORE    PLANVEC                               
034640,001717: 14,3526           77776        P51E               EXIT                                           
034641,001718: 14,3527           05402                           TC       PHASCHNG                              
034642,001719: 14,3530           05024                           OCT      05024                                 
034643,001720: 14,3531           13000                           OCT      13000                                 
034644,001721: 14,3532           10304                           CCS      STARIND                               
034645,001722: 14,3533           13542                           TCF      P51F                                  #  STAR 2

Page 776

034647,001724: 14,3534           05402                           TC       PHASCHNG                              
034648,001725: 14,3535           05024                           OCT      05024                                 
034649,001726: 14,3536           13000                           OCT      13000                                 
034650,001727: 14,3537           34770                           CAF      BIT1                                  
034651,001728: 14,3540           54304                           TS       STARIND                               
034652,001729: 14,3541           13471                           TCF      P51C                                  #  GO DO SECOND STAR
034653,001730: 14,3542           05402        P51F               TC       PHASCHNG                              
034654,001731: 14,3543           05024                           OCT      05024                                 
034655,001732: 14,3544           13000                           OCT      13000                                 
034656,001733: 14,3545           06006                           TC       INTPRET                               
034657,001734: 14,3546           45145                           DLOAD    CALL                                  
034658,001735: 14,3547           02607                                    TSIGHT                                
034659,001736: 14,3550           31651                                    PLANET                                
034660,001737: 14,3551           24015                           STOVL    12D                                   
034661,001738: 14,3552           02601                                    PLANVEC                               
034662,001739: 14,3553           24007                           STOVL    6D                                    
034663,001740: 14,3554           02611                                    STARSAV1                              
034664,001741: 14,3555           26736                           STOVL    STARAD                                
034665,001742: 14,3556           02617                                    STARSAV2                              
034666,001743: 14,3557           36744                           STCALL   STARAD     +6                         
034667,001744: 14,3560           34657                                    CHKSDATA                              #  CHECK STAR ANGLES IN STARAD AND
034668,001745: 14,3561           77414                           BON      EXIT                                  
034669,001746: 14,3562           00314                                    FREEFLAG                              
034670,001747: 14,3563           11716                                    P51G                                  
034671,001748: 14,3564           03425                           TC       P51AA                                 
034672,001749: 04,2000                                           SETLOC   P50S4                                 
034673,001750: 04,2000                                           BANK                                           
034674,001751: 
034675,001752: 04,3716                                           COUNT*   $$/P5153                              
034676,001753: 04,3716           77624        P51G               CALL                                           
034677,001754: 04,3717           47432                                    AXISGEN                               #  COME BACK WITH REFSMMAT IN XDC
034678,001755: 04,3720           75160                           AXC,1    AXC,2                                 
034679,001756: 04,3721           02713                                    XDC                                   
034680,001757: 04,3722           01733                                    REFSMMAT                              
034681,001758: 04,3723           45014                           CLEAR    CALL                                  
034682,001759: 04,3724           01662                                    REFSMFLG                              
034683,001760: 04,3725           34730                                    MATMOVE                               
034684,001761: 04,3726           77414                           SET      EXIT                                  
034685,001762: 04,3727           01462                                    REFSMFLG                              
034686,001763: 04,3730           04103                           TC       GOTOPOOH                              
034687,001764: 14,2000                                           SETLOC   P50S1                                 
034688,001765: 14,2000                                           BANK                                           
034689,001766: 
034690,001767: 14,3565                                           COUNT*   $$/P5153                              
034691,001768: 14,3565     4776               PRFMSTAQ           =        OCT15                                 
034692,001769: 14,3565     4772               P51ZERO            =        ZERO                                  
034693,001770: 14,3565     4773               P51FIVE            =        FIVE                                  
034694,001771: 14,3565           12200        V41K               VN       4100                                  
034695,001772: 14,3566           30025        SET1/PDT           CA       TIME1                                 
034696,001773: 14,3567           55277                           TS       1/PIPADT                              

Page 777

034698,001775: 14,3570           16030                           TCF      DANZIG                                
034699,001776: 

Page 778

034701,001778:                                                                                                  #  SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
034702,001779: 
034703,001780: 17,2000                                           SETLOC   P50S3                                 
034704,001781: 17,2000                                           BANK                                           
034705,001782: 17,2052                                           COUNT*   $$/R51                                
034706,001783: 17,2052           77745        SXTSM              DLOAD                                          
034707,001784: 17,2053           03723                                    MRKBUF1                               
034708,001785: 17,2054           02607                           STORE    TSIGHT                                
034709,001786: 17,2055           77760                           AXC,1                                          
034710,001787: 17,2056           03722                                    MRKBUF1                               #  ADDRESS OF MARK DATA FOR P50'S
034711,001788: 17,2057           77620        SXTSM1             STQ                                            #  CALLED HERE FROM GETUM (P20 AND P22)
034712,001789: 17,2060           00300                                    QMAJ                                  
034713,001790: 17,2061           66744                           LXC,2    SLOAD*                                
034714,001791: 17,2062           00304                                    STARIND                               
034715,001792: 17,2063           41673                                    MKDNCDR,2                             
034716,001793: 17,2064           76744                           LXC,2    VLOAD*                                
034717,001794: 17,2065           00154                                    MPAC                                  
034718,001795: 17,2066           00001                                    0,1                                   
034719,001796: 17,2067           10001                           STORE    0,2                                   
034720,001797: 17,2070           77743                           DLOAD*                                         
034721,001798: 17,2071           00006                                    5,1                                   
034722,001799: 17,2072           10006                           STORE    5,2                                   
034723,001800: 17,2073           77773        SXTSM2             VLOAD*                                         
034724,001801: 17,2074           00003                                    2,1                                   
034725,001802: 17,2075           35172                           STCALL   CDUSPOT                               
034726,001803: 17,2076           46000                                    SXTNB                                 
034727,001804: 17,2077           77624                           CALL                                           
034728,001805: 17,2100           47642                                    TRG*NBSM                              #  TRANSFER LOS TO SM
034729,001806: 17,2101           34041                           STCALL   32D                                   
034730,001807: 17,2102           00300                                    QMAJ                                  
034731,001808: 17,2103           03674        MKDNCDR            ECADR    MARKDOWN                              
034732,001809: 17,2104           03460                           ECADR    MARK2DWN                              
034733,001810: 

Page 779

034735,001812:                                                                                                  #  NAME - R53 - SIGHTING MARK ROUTINE

Page 780

034737,001814: 
034738,001815:                                                                                                  #  FUNCTION -
034739,001816:                                                                                                  #   TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE). SIGHTINGS
034740,001817:                                                                                                  #   CAN BE MADE ON A STAR OR LANDMARK. WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
034741,001818:                                                                                                  #   OCDUS) AND THE TIME OF THE MARK.
034742,001819: 
034743,001820:                                                                                                  #  CALLING SEQUENCE
034744,001821:                                                                                                  #   R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE. RETURN IS VIA QPRET.
034745,001822:                                                                                                  #   THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
034746,001823: 
034747,001824:                                                                                                  #  SUBROUTINES CALLED    
034748,001825:                                                                                                  #   SXTMARK
034749,001826:                                                                                                  #   OPTSTALL
034750,001827:                                                                                                  #   GOFLASH
034751,001828: 
034752,001829:                                                                                                  #  ERASABLE INITIALIZATION
034753,001830:                                                                                                  #   TARGET FLAG - STAR OR LANDMARK
034754,001831:                                                                                                  #   MARKINDX - NUMBER OF MARKS WANTED
034755,001832:                                                                                                  #   STARIND - INDEX TO BESTI OR BESTJ (STAR NUMBER)
034756,001833: 
034757,001834:                                                                                                  #  OUTPUT
034758,001835:                                                                                                  #   MARKSTAT CONTAINS INDEX TO VACANT AREA WHERE MARK DATA IS STORED
034759,001836:                                                                                                  #   BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED
034760,001837: 
034761,001838:                                                                                                  #  DEBRIS
034762,001839:                                                                                                  #   MARKINDX CONTAINS NUMBER OF MARKS DESIRED
034763,001840: 
034764,001841: 14,2000                                           SETLOC   RT53                                  
034765,001842: 14,2000                                           BANK                                           
034766,001843: 
034767,001844: 14,3571                                           COUNT*   $$/R53                                
034768,001845: 14,3571           43020        R53                STQ      SET                                   #  SET SIGHTING MARK FLAG
034769,001846: 14,3572           03457                                    R53EXIT                               
034770,001847: 14,3573           00071                                    R53FLAG                               
034771,001848: 14,3574           77776                           EXIT                                           
034772,001849: 14,3575           04636        R53A               TC       BANKCALL                              
034773,001850: 14,3576           16000                           CADR     SXTMARK                               
034774,001851: 14,3577           05354                           TC       CHECKMM                               
034775,001852: 14,3600           00030                           MM       24         B-14                       
034776,001853: 14,3601           13603                           TCF      +2                                    
034777,001854: 14,3602           13612                           TCF      R53A1                                 
034778,001855: 14,3603           05354                           TC       CHECKMM                               
034779,001856: 14,3604           00026                           MM       22         B-14                       #  P22?
034780,001857: 14,3605           34766                           CAF      FOUR                                  #  NO, IS MARKINDX = 1
034781,001858: 14,3606           63650                           AD       MIN5                                  #  YES, IS MARKINDX = 5 (CHECKMM LEAVES 0)
034782,001859: 14,3607           60301                           AD       MARKINDX                              
034783,001860: 14,3610           00006                           EXTEND                                         
034784,001861: 14,3611           13575                           BZF      R53A                                  #  NO MARKS TAKEN.  DO AGAIN.
034785,001862: 14,3612           04636        R53A1              TC       BANKCALL                              
034786,001863: 14,3613           16073                           CADR     MKRELEAS                              
034787,001864: 14,3614           34772        R53C1              CAF      ZERO                                  
034788,001865: 14,3615           04636                           TC       BANKCALL                              
034789,001866: 14,3616           20715                           CADR     CLEANDSP                              

Page 781

034791,001868: 14,3617           44763        R53B               CS       BIT6                                  #  CUT BETWEEN P20S AND P50S
034792,001869: 14,3620           61214                           AD       MODREG                                #  P22,P23 CALL          
034793,001870: 14,3621           00006                           EXTEND                                         
034794,001871: 14,3622           63631                           BZMF     R53D                                  #  YES
034795,001872: 14,3623           33635        R53C               CAF      V01N71                                
034796,001873: 14,3624           05535                           TC       VNFLASH                               
034797,001874: 14,3625           03636        R53Z               TC       CHKSCODE                              
034798,001875:                                                                                                  #  ROUTINE TO ALLOW ONLY +0 <= STARCODE <= +50, OTHERWISE 'OPERATOR ERROR'
034799,001876: 14,3626           04362                           TC       FALTON                                
034800,001877: 14,3627           03623                           TC       R53C                                  
034801,001878: 14,3630           03732                           TC       STORIJ                                #  SET BESTI(BESTJ) = 1ST(2ND) STARCODE
034802,001879: 14,3631           06006        R53D               TC       INTPRET                               
034803,001880: 14,3632           77614        R53OUT             SETGO                                          
034804,001881: 14,3633           03420                                    TERMIFLG                              #  SET TERMINATE FOR R52
034805,001882: 14,3634           03457                                    R53EXIT                               
034806,001883: 14,3635     6211               SIGHTSIX           =        SIX                                   
034807,001884: 14,3635           00307        V01N71             VN       0171                                  
034808,001885: 
034809,001886:                                                                                                  #  ****** KEEP IN SAME BANK AS R51 AND R53 *********
034810,001887: 14,3636           11140        CHKSCODE           CCS      STARCODE                              
034811,001888: 14,3637           13643                           TCF      SCPOS                                 #  > 0, CHECK IF <= 50
034812,001889: 14,3640           16710                           TCF      Q+2                                   #  = +0, OK
034813,001890: 14,3641           00002                           TC       Q                                     #  NEGATIVE STARCODE OF ANY
034814,001891: 14,3642           00002                           TC       Q                                     #  MAGNITUDE IS IMPROPER
034815,001892: 14,3643           63647        SCPOS              AD       NEG47                                 
034816,001893: 14,3644           00006                           EXTEND                                         
034817,001894: 14,3645           66710                           BZMF     Q+2                                   #  <= 50, OK
034818,001895: 14,3646           00002                           TC       Q                                     #  > 50, IMPROPER
034819,001896: 14,3647           77730        NEG47              OCT      77730                                 
034820,001897: 14,3650           77772        MIN5               DEC      -5         B-14                       
034821,001898: 

Page 782

034823,001900:                                                                                                  #  NAME - S52.2
034824,001901:                                                                                                  #  FUNCTION - COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
034825,001902:                                                                                                  #  CALL - CALL S52.2
034826,001903:                                                                                                  #  INPUT - X,Y,ZSMD
034827,001904:                                                                                                  #  OUTPUT - OGC,IGC,MGC,THETAD,+1,+2
034828,001905:                                                                                                  #  SUBROUTINES - CDUTRIG, CALCSMSC, MATMOVE, CALCGA
034829,001906: 
034830,001907: 11,2000                                           SETLOC   S52/2                                 
034831,001908: 11,2000                                           BANK                                           
034832,001909: 
034833,001910: 11,2247                                           COUNT*   $$/S52.2                              
034834,001911: 11,2247           45020        S52.2              STQ      CALL                                  
034835,001912: 11,2250           00300                                    QMAJ                                  
034836,001913: 11,2251           47530                                    CDUTRIG                               
034837,001914: 11,2252           77624                           CALL                                           
034838,001915: 11,2253           34756                                    CALCSMSC                              
034839,001916: 11,2254           66370                           AXT,1    SSP                                   
034840,001917: 11,2255           00022                                    18D                                   
034841,001918: 11,2256           00051                                    S1                                    
034842,001919: 11,2257           00006                                    6D                                    
034843,001920: 11,2260           61373        S52.2A             VLOAD*   VXM                                   
034844,001921: 11,2261           02736                                    XNB        +18D,1                     
034845,001922: 11,2262           01734                                    REFSMMAT                              
034846,001923: 11,2263           77656                           UNIT                                           
034847,001924: 11,2264           06736                           STORE    XNB        +18D,1                     
034848,001925: 11,2265           77700                           TIX,1                                          
034849,001926: 11,2266           22260                                    S52.2A                                
034850,001927: 11,2267           75160        S52.2.1            AXC,1    AXC,2                                 
034851,001928: 11,2270           00306                                    XSMD                                  
034852,001929: 11,2271           02671                                    XSM                                   
034853,001930: 11,2272           77624                           CALL                                           
034854,001931: 11,2273           34730                                    MATMOVE                               
034855,001932: 11,2274           77624                           CALL                                           
034856,001933: 11,2275           47344                                    CALCGA                                
034857,001934: 11,2276           77650                           GOTO                                           
034858,001935: 11,2277           00300                                    QMAJ                                  
034859,001936: 

Page 783

034861,001938: 
034862,001939:                                                                                                  #  THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
034863,001940:                                                                                                  #  A POINT ON THE GROUND TRACK 60 DEGRESS FORWARD OF THE LOCAL VERTICAL
034864,001941:                                                                                                  #  OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW
034865,001942: 
034866,001943: 26,2000                                           SETLOC   26P50S                                
034867,001944: 26,2000                                           BANK                                           
034868,001945: 26,2040                                           COUNT*   $$/R52                                
034869,001946: 26,2040           77601        ADVTRACK           SETPD                                          
034870,001947: 26,2041           00001                                    0                                     
034871,001948: 26,2042           41575                           VLOAD    PUSH                                  #  INITIALIZE FOR RP-TO-R
034872,001949: 26,2043           15330                                    UNITZ                                 #  UZ VEC IN PD 0-5
034873,001950: 26,2044           41434                           RTB      PUSH                                  #  TIME IN PD 6-7
034874,001951: 26,2045           51751                                    LOADTIME                              
034875,001952: 26,2046           36347                           STCALL   AOPTIME                               #  TIME ALSO IN AOPTIME FOR CSMCONIC
034876,001953: 26,2047           55345                                    RP-TO-R                               #  GET MOON ROTATION VEC IN REF
034877,001954: 26,2050           16766                           STODL    STAR                                  
034878,001955: 26,2051           02347                                    AOPTIME                               #  PICK UP TIME
034879,001956: 26,2052           34041                           STCALL   TDEC1                                 #  UPDATE STATE TO TIME
034880,001957: 26,2053           27170                                    CSMCONIC                              
034881,001958: 26,2054           47375                           VLOAD    VXV                                   
034882,001959: 26,2055           00007                                    VATT                                  
034883,001960: 26,2056           00001                                    RATT                                  
034884,001961: 26,2057           24031                           STOVL    24D                                   #  SAVE -UNIT(V X R) FOR 2ND ROTATION
034885,001962: 26,2060           00001                                    RATT                                  
034886,001963: 26,2061           57456                           UNIT     VCOMP                                 
034887,001964: 26,2062           41401                           SETPD    PUSH                                  #  PUSH LOS=-UNIT(RVEC)  PD 0-5
034888,001965: 26,2063           00001                                    0                                     
034889,001966: 26,2064           54335                           SLOAD    SL                                    
034890,001967: 26,2065           03752                                    LANDMARK                              
034891,001968: 26,2066           20214                                    11D                                   
034892,001969: 26,2067           41342                           SR1      DMP                                   
034893,001970: 26,2070           14135                                    MPERIOD                               
034894,001971: 26,2071           36347                           STCALL   AOPTIME                               #  ROTATE ANG ABOUT UR
034895,001972: 26,2072           54105                                    ROTA                                  
034896,001973: 26,2073           53575                           VLOAD    UNIT                                  
034897,001974: 26,2074           00031                                    24D                                   #  PICK UP 2ND ROTATION AXIS
034898,001975: 26,2075           16766                           STODL    STAR                                  
034899,001976: 26,2076           14133                                    DP1/6                                 
034900,001977: 26,2077           77625                           DSU                                            
034901,001978: 26,2100           02347                                    AOPTIME                               #  2ND RAT ANGLE = 60 - A
034902,001979: 26,2101           36347                           STCALL   AOPTIME                               
034903,001980: 26,2102           54105                                    ROTA                                  #  GO ROTATE 2ND TIME
034904,001981: 26,2103           36766                           STCALL   STAR                                  #  STORE FINAL LOS IN STAR
034905,001982: 26,2104           31120                                    COM52                                 #  RETURN TO SR52.1
034906,001983: 
034907,001984: 26,2105           73545        ROTA               DLOAD    SIN                                   
034908,001985: 26,2106           02347                                    AOPTIME                               
034909,001986: 26,2107           47315                           PDVL     VXV                                   #  PUSH 1/2SIN(A)  PD 6-7
034910,001987: 26,2110           02766                                    STAR                                  #    UR VEC
034911,001988: 26,2111           00001                                    0                                     #    LOS

Page 784

034913,001990: 26,2112           72561                           VXSC     VSL2                                  #  1/2SIN(A)(UR X LOS)  PD 6-11
034914,001991: 26,2113           50315                           PDVL     DOT                                   
034915,001992: 26,2114           02766                                    STAR                                  
034916,001993: 26,2115           00001                                    0                                     
034917,001994: 26,2116           72561                           VXSC     VSL2                                  
034918,001995: 26,2117           02766                                    STAR                                  
034919,001996: 26,2120           71525                           PDDL     COS                                   #  1/2(UR . LOS)UR  12-17
034920,001997: 26,2121           02347                                    AOPTIME                               
034921,001998: 26,2122           51315                           PDVL     BVSU                                  #  PUSH 1/2COS(A)  18-19
034922,001999: 26,2123           00015                                    12D                                   
034923,002000: 26,2124           00001                                    0                                     
034924,002001: 26,2125           76561                           VXSC     VSL1                                  #  UP 18-19
034925,002002: 26,2126           53255                           VAD      VAD                                   #  UP 12-17  UP 6-11
034926,002003: 26,2127           40256                           UNIT     SETPD                                 
034927,002004: 26,2130           00001                                    0                                     
034928,002005: 26,2131           43406                           PUSH     RVQ                                   
034929,002006: 
034930,002007: 26,2132           05252 25251  DP1/6              2DEC     .16666666                             
034931,002008: 
034932,002009: 26,2134           01414 06044  MPERIOD            2DEC     .047619                               #  APPROX LUNAR ROT ANG IN 2HRS X 16
034933,002010: 

Page 785

034935,002012: 
034936,002013:                                                                                                  #  NAME - R56 - ALTERNATE LOS SIGHTING MARK ROUTINE
034937,002014: 
034938,002015:                                                                                                  #  FUNCTIONAL DESCRIPTION
034939,002016:                                                                                                  #  TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54).  THE ASTRONAUT KNOWS THE
034940,002017:                                                                                                  #  COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE.  WHEN THE ASTRONAUT KEYS IN
034941,002018:                                                                                                  #  ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
034942,002019:                                                                                                  #  IN N92.
034943,002020: 
034944,002021:                                                                                                  #  CALLING SEQUENCE
034945,002022:                                                                                                  #        CALL
034946,002023:                                                                                                  #                R56
034947,002024: 
034948,002025:                                                                                                  #  SUBROUTINES CALLED
034949,002026:                                                                                                  #        A PORTION OF SXTMARK (VAC.AREA SEARCH)
034950,002027:                                                                                                  #        GOFLASH
034951,002028:                                                                                                  #        GOPERF1
034952,002029: 
034953,002030:                                                                                                  #  ERASABLE INITIALIZATION
034954,002031:                                                                                                  #        STARIND - INDEX TO STAR NUMBER
034955,002032: 
034956,002033:                                                                                                  #  OUTPUT
034957,002034:                                                                                                  #        MARKSTAT - INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
034958,002035:                                                                                                  #        BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
034959,002036:                                                                                                  #        ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS-
034960,002037:                                                                                                  #                VAC +2  CDUY
034961,002038:                                                                                                  #                VAC +3  CDUS
034962,002039:                                                                                                  #                VAC +4  CDUZ
034963,002040:                                                                                                  #                VAC +5  CDUT
034964,002041:                                                                                                  #                VAC +6  CDUX
034965,002042: 
034966,002043: 17,2000                                           SETLOC   P50S3                                 
034967,002044: 17,2000                                           BANK                                           
034968,002045: 17,2105                                           COUNT*   $$/R56                                
034969,002046: 17,2105           77420        R56                STQ      EXIT                                  
034970,002047: 17,2106           03457                                    R53EXIT                               
034971,002048: 17,2107           32162                           CAF      V06N94B                               
034972,002049: 17,2110           05535                           TC       VNFLASH                               
034973,002050: 17,2111           04636        R56A               TC       BANKCALL                              
034974,002051: 17,2112           16062                           CADR     TESTMARK                              
034975,002052: 
034976,002053: 17,2113           34772                           CAF      ZERO                                  
034977,002054: 17,2114           04636                           TC       BANKCALL                              
034978,002055: 17,2115           20715                           CADR     CLEANDSP                              
034979,002056: 
034980,002057: 17,2116           32161        R56A1              CAF      VB53                                  #  DISPLAY V53 REQUESTING ALTERNATE MARK
034981,002058: 17,2117           04636                           TC       BANKCALL                              
034982,002059: 17,2120           20601                           CADR     GOMARK2                               
034983,002060: 17,2121           14103                           TCF      GOTOPOOH                              #  V34-TERMINATE
034984,002061: 17,2122           12116                           TCF      R56A1                                 #  V33-DONT PROCEED-JUST ENTER TO MARK
034985,002062: 17,2123           06006                           TC       INTPRET                               
034986,002063: 17,2124           77745                           DLOAD                                          

Page 786

034988,002065: 17,2125           03726                                    MRKBUF1    +3                         
034989,002066: 17,2126           16774                           STODL    SAC                                   
034990,002067: 17,2127           03730                                    MRKBUF1    +5                         
034991,002068: 17,2130           02776                           STORE    PAC                                   
034992,002069: 17,2131           77776                           EXIT                                           
034993,002070: 17,2132           00004                           INHINT                                         
034994,002071: 17,2133           04606                           TC       E7SETTER                              
034995,002072: 
034996,002073: 17,2134  E7,1722                                  EBANK=   MRKBUF1                               
034997,002074: 17,2134           00006                           EXTEND                                         
034998,002075: 17,2135           30025                           DCA      TIME2                                 
034999,002076: 17,2136           53723                           DXCH     MRKBUF1                               
035000,002077: 17,2137           30033                           CA       CDUY                                  #  ENTER-THIS IS A BACKUP SYSTEM MARK
035001,002078: 17,2140           55724                           TS       MRKBUF1    +2                         
035002,002079: 17,2141           30034                           CA       CDUZ                                  
035003,002080: 17,2142           55726                           TS       MRKBUF1    +4                         
035004,002081: 17,2143           30032                           CA       CDUX                                  
035005,002082: 17,2144           55730                           TS       MRKBUF1    +6                         
035006,002083: 17,2145           00003                           RELINT                                         
035007,002084: 17,2146           35043                           CAF      EBANK5                                #  MAY NOT NEED TO DO THIS
035008,002085: 17,2147           54003                           TS       EBANK                                 
035009,002086: 
035010,002087: 17,2150  E5,1777                                  EBANK=   QMIN                                  
035011,002088: 
035012,002089: 17,2150           05527                           TC       CLEARMRK                              #  ENABLE EXTENDED VERBS
035013,002090: 17,2151           34321                           CAF      OCT16                                 
035014,002091: 17,2152           04636                           TC       BANKCALL                              
035015,002092: 17,2153           21067                           CADR     GOPERF1                               
035016,002093: 17,2154           04103                           TC       GOTOPOOH                              #  TERM.
035017,002094: 17,2155           12157                           TCF      R56B                                  #  PROCEED-MARK COMPLETED
035018,002095: 17,2156           12111                           TCF      R56A                                  #  RECYCLE - DO ANOTHER MARK - LIKE REJECT
035019,002096: 17,2157           04636        R56B               TC       BANKCALL                              
035020,002097: 17,2160           31614                           CADR     R53C1                                 
035021,002098: 17,2161           15200        VB53               VN       05300                                 #  ALTERNATE MARK VERB
035022,002099: 17,2162           01536        V06N94B            VN       00694                                 
035023,002100: 14,2000                                           SETLOC   P50S1                                 
035024,002101: 14,2000                                           BANK                                           
035025,002102: 
035026,002103: 14,3651                                           COUNT*   $$/PLNET                              
035027,002104: 14,3651           02607        PLANET             STORE    TSIGHT                                
035028,002105: 14,3652           45020                           STQ      CALL                                  
035029,002106: 14,3653           02777                                    QMIN                                  
035030,002107: 14,3654           26345                                    LOCSAM                                
035031,002108: 14,3655           77775                           VLOAD                                          
035032,002109: 14,3656           02736                                    VEARTH                                
035033,002110: 14,3657           24001                           STOVL    0D                                    
035034,002111: 14,3660           02744                                    VSUN                                  
035035,002112: 14,3661           26736                           STOVL    VEARTH                                
035036,002113: 14,3662           00001                                    0D                                    
035037,002114: 14,3663           02744                           STORE    VSUN                                  

Page 787

035039,002116: 14,3664           77776        NOSAM              EXIT                                           
035040,002117: 14,3665           03732                           TC       STORIJ                                #  SET BESTI(BESTJ) = 1ST(2ND) STARCODE
035041,002118: 14,3666           10000                           CCS      A                                     
035042,002119: 14,3667           13700                           TCF      NOTPLAN                               
035043,002120: 14,3670           35035                           CAF      VNPLANV                               
035044,002121: 14,3671           05535                           TC       VNFLASH                               
035045,002122: 14,3672           06006                           TC       INTPRET                               
035046,002123: 14,3673           74375                           VLOAD    VXSC                                  
035047,002124: 14,3674           03705                                    STARSAV3                              
035048,002125: 14,3675           31731                                    1/SQR3                                
035049,002126: 14,3676           52056                           UNIT     GOTO                                  
035050,002127: 14,3677           31723                                    CORPLAN                               
035051,002128: 14,3700           40000        NOTPLAN            CS       A                                     
035052,002129: 14,3701           63727                           AD       DEC227                                
035053,002130: 14,3702           00006                           EXTEND                                         
035054,002131: 14,3703           63714                           BZMF     CALSAM1                               
035055,002132: 14,3704           50304                           INDEX    STARIND                               
035056,002133: 14,3705           30302                           CA       BESTI                                 
035057,002134: 14,3706           50120                           INDEX    FIXLOC                                
035058,002135: 14,3707           54046                           TS       X1                                    
035059,002136: 14,3710           06006                           TC       INTPRET                               
035060,002137: 14,3711           52173                           VLOAD*   GOTO                                  
035061,002138: 14,3712           33776                                    CATLOG,1                              
035062,002139: 14,3713           31723                                    CORPLAN                               
035063,002140: 14,3714           06006        CALSAM1            TC       INTPRET                               
035064,002141: 14,3715           70740                           LXC,1    DLOAD*                                
035065,002142: 14,3716           00304                                    STARIND                               
035066,002143: 14,3717           00303                                    BESTI,1                               
035067,002144: 14,3720           76740                           LXC,1    VLOAD*                                
035068,002145: 14,3721           00154                                    MPAC                                  
035069,002146: 14,3722           02372                                    STARAD     -228D,1                    
035070,002147: 14,3723           53455        CORPLAN            VAD      UNIT                                  
035071,002148: 14,3724           03452                                    VEL/C                                 
035072,002149: 14,3725           77650                           GOTO                                           
035073,002150: 14,3726           02777                                    QMIN                                  
035074,002151: 14,3727           00343        DEC227             DEC      227        B-14                       
035075,002152: 14,3730     5035               VNPLANV            =        V06N88                                
035076,002153: 14,3730           22363 11623  1/SQR3             2DEC     .57735021                             
035077,002154: 
035078,002155: 14,3732           47677        STORIJ             CS       HIGH9                                 #  CALLED AT R53Z, NOSAM(PLANET)
035079,002156: 14,3733           71140                           MASK     STARCODE                              
035080,002157: 14,3734           00006                           EXTEND                                         
035081,002158: 14,3735           76211                           MP       SIGHTSIX                              
035082,002159: 14,3736           56001                           XCH      L                                     
035083,002160: 14,3737           50304                           INDEX    STARIND                               
035084,002161: 14,3740           54302                           TS       BESTI                                 
035085,002162: 14,3741           00002                           TC       Q                                     #  RETURN TO CALLER
035086,002163: 14,3742                                           COUNT*   $$/R50                                
035087,002164: 14,3742           30002        COARSUB            CA       Q                                     
035088,002165: 14,3743           55777                           TS       QMIN                                  

Page 788

035090,002167: 14,3744           31335        STALLOOP           CA       MODECADR                              #  IS IMU IN USE?
035091,002168: 14,3745           00006                           EXTEND                                         
035092,002169: 14,3746           13753                           BZF      CORSCALL                              #  NO, GO AHEAD WITH COARSE ALIGN
035093,002170: 14,3747           35016                           CAF      1SEC                                  #  YES, SO WAIT A SEC
035094,002171: 14,3750           04636                           TC       BANKCALL                              
035095,002172: 14,3751           01731                           CADR     DELAYJOB                              
035096,002173: 14,3752           03744                           TC       STALLOOP                              #                        AND TRY AGAIN
035097,002174: 14,3753           04636        CORSCALL           TC       BANKCALL                              
035098,002175: 14,3754           16724                           CADR     IMUCOARS                              #  PERFORM COARSE ALIGN
035099,002176: 14,3755           04636                           TC       BANKCALL                              
035100,002177: 14,3756           17644                           CADR     IMUSTALL                              
035101,002178: 14,3757           03766                           TC       217ALARM                              #  BAD END
035102,002179: 14,3760           04636                           TC       BANKCALL                              
035103,002180: 14,3761           17133                           CADR     IMUFIN20                              #  PERFORM FINE ALIGN
035104,002181: 14,3762           04636                           TC       BANKCALL                              
035105,002182: 14,3763           17644                           CADR     IMUSTALL                              
035106,002183: 14,3764           03766                           TC       217ALARM                              #  BAD END
035107,002184: 14,3765           01777                           TC       QMIN                                  
035108,002185: 14,3766           00004        217ALARM           INHINT                                         #  JUST LIKE 'CURTAINS', NOW DEPARTED
035109,002186: 14,3767           30002                           CA       Q                                     
035110,002187: 14,3770           05673                           TC       ALARM2                                
035111,002188: 14,3771           00217                           OCT      00217                                 
035112,002189: 14,3772           01363                           TC       ALMCADR                               #  RETURN TO USER

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