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.

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

Page 742

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

Page 743

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

Page 744

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

Page 745

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

Page 746

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

Page 747

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

Page 748

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

Page 749

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

Page 750

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

Page 751

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

Page 752

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

Page 753

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

Page 754

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

Page 755

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

Page 756

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

Page 757

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

Page 758

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

Page 759

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

Page 760

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

Page 761

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

Page 762

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

Page 763

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

Page 764

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

Page 765

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

Page 766

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

Page 767

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

Page 768

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

Page 769

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

Page 770

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

Page 771

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

Page 772

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

Page 773

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

Page 774

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

Page 775

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

Page 776

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

Page 777

034691,001775: 14,3570           16030                           TCF      DANZIG                                
034692,001776: 

Page 778

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

Page 779

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

Page 780

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

Page 781

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

Page 782

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

Page 783

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

Page 784

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

Page 785

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

Page 786

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

Page 787

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

Page 788

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

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