Source Code

These source-code files are part of a reconstructed copy of Comanche 51, the initial release (though not the final mission release) of the Apollo 11 Command Module (CM) Apollo Guidance Computer (AGC) software. The flown, final release was Comanche 55. The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 51, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 55, whose original source code is available. Comanche 55 source code was then modified by undoing changes known to have been made between revisions 51 and 55. The most-significant steps involved reverting changes related to the R-2 lunar potential model, the details of which were known from the previous, separate, independent reconstruction of the Apollo 10 Lunar Module software Luminary 69/2. The now-reconstructed Comanche 51 source code was verified by assembling it and checking that the assembled code had the expected known-correct memory-bank checksums. Note that page numbers in the reconstructed code match those on the Comanche 55 or Luminary 69 printouts, although the source code would likely have different page numbers in a contemporary Comanche 51 listing.

Annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change relative to Comanche 55. Here's a guide to some of the Apollo documentation relevant to those annotations:
Among documentation not actually referenced in the annotations, there is a short writeup about the reconstruction process in our software repository that may be helpful in understanding it from a different perspective. There's also a handy table that lists what the number of memory-words should be for each routine in Comanche 51, which could make a nice double-check; however, we've not performed that double-check ourselves.

Comments expected to have been present in the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC Project's GitHub repository.

032128,000002:                                                                                                  ## Copyright:   Public domain.
032129,000003:                                                                                                  ## Filename:    P51-P53.agc
032130,000004:                                                                                                  ## Purpose:     A section of Comanche revision 051.
032131,000005:                                                                                                  ##              It is part of the reconstructed source code for the
032132,000006:                                                                                                  ##              original release of the flight software for the Command
032133,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 11.
032134,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
032135,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
032136,000010:                                                                                                  ##              exactly match those specified for Comanche 51 in NASA drawing
032137,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
032138,000012:                                                                                                  ##              reconstruction is correct.
032139,000013:                                                                                                  ## Reference:   pp. 737-784
032140,000014:                                                                                                  ## Assembler:   yaYUL
032141,000015:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
032142,000016:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
032143,000017:                                                                                                  ## Mod history: 2019-07-30 MAS  Created from Comanche 55.
032144,000018: 

Page 737

032146,000020:                                                                                                  #  PROGRAM NAME - PROG52                 DATE - NOV 30, 1966
032147,000021:                                                                                                  #  MOD NO - 2                                    LOG SECTION - P51-P53
032148,000022:                                                                                                  #  MODIFICATION BY - LONSKE                      ASSEMBLY - SUNDISK REV 30
032149,000023: 
032150,000024:                                                                                                  #  FUNCTIONAL DESCRIPTION -
032151,000025: 
032152,000026:                                                                                                  #        ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT.  THE PRESENT IMU ORIENTATION IS KNOWN
032153,000027:                                                                                                  #        AND IS STORED IN REFSMMAT.  THE THREE POSSIBLE ORIENTATIONS MAY BE_
032154,000028: 
032155,000029:                                                                                                  #        (A)     PREFERRED ORIENTATION
032156,000030: 
032157,000031:                                                                                                  #                AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANUEVER.  THIS ORIENTATION MUST BE CALCULATED AND
032158,000032:                                                                                                  #                STORED BY A PREVIOUSLY SELECTED PROGRAM.
032159,000033: 
032160,000034:                                                                                                  #        (B)     NOMINAL ORIENTATION
032161,000035: 
032162,000036:                                                                                                  #                X   = UNIT ( Y   X Z   )
032163,000037:                                                                                                  #                -SM          -SM   -SM
032164,000038: 
032165,000039:                                                                                                  #                Y   = UNIT (V X R)
032166,000040:                                                                                                  #                -SM         -   -
032167,000041: 
032168,000042:                                                                                                  #                Z   = UNIT ( -R )
032169,000043:                                                                                                  #                -SM           -
032170,000044: 
032171,000045:                                                                                                  #                WHERE_
032172,000046: 
032173,000047:                                                                                                  #                R = THE GEOCENTRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032174,000048:                                                                                                  #                -
032175,000049: 
032176,000050:                                                                                                  #                V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032177,000051:                                                                                                  #                -
032178,000052: 
032179,000053:                                                                                                  #        (C)     REFSMMAT ORIENTATION
032180,000054: 
032181,000055:                                                                                                  #                THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION.  THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
032182,000056:                                                                                                  #                WAS LAST ALIGNED ONLY DUE TO GYRO DRIFT (I.E. NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPTION HAS OCCURED
032183,000057:                                                                                                  #                SINCE THE LAST ALIGNMENT).
032184,000058: 
032185,000059:                                                                                                  #        AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
032186,000060:                                                                                                  #        NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE.  CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
032187,000061:                                                                                                  #        COARSE ALIGN THE IMU.  THE STAR SELECTION ROUTINE, R56, IS THEN OPERATED.  IF 2 STARS ARE NOT AVAILABLE AN ALARM
032188,000062:                                                                                                  #        IS FLASHED TO NOTIFY THE ASTRONAUT.  AT THIS POINT THE ASTRONAUT WILL MANUEVER THE VEHICLE AND SELECT 2 STARS
032189,000063:                                                                                                  #        EITHER MANUALLY OR AUTOMATICALLY.  AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51.  IF
032190,000064:                                                                                                  #        THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED.  OTHERWISE P00 IS
032191,000065:                                                                                                  #        REQUESTED.
032192,000066: 
032193,000067:                                                                                                  #  CALLING SEQUENCE -
032194,000068: 
032195,000069:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.

Page 738

032197,000071: 
032198,000072:                                                                                                  #  SUBROUTINES CALLED -
032199,000073: 
032200,000074:                                                                                                  #        1. FLAGDOWN              7. S52.2               13. NEWMODEX
032201,000075:                                                                                                  #        2. R02BOTH               8. CAL53A              14. PRIOLARM
032202,000076:                                                                                                  #        3. GOPERF4               9. FLAGUP
032203,000077:                                                                                                  #        4. MATMOVE              10. R56
032204,000078:                                                                                                  #        5. GOFLASH              11. R51
032205,000079:                                                                                                  #        6. S52.3                12. GOPERF3
032206,000080: 
032207,000081:                                                                                                  #  NORMAL EXIT MODES -
032208,000082: 
032209,000083:                                                                                                  #        EXITS TO ENDOFJOB
032210,000084: 
032211,000085:                                                                                                  #  ALARM OR ABORT EXIT MODES -
032212,000086: 
032213,000087:                                                                                                  #        NONE
032214,000088: 
032215,000089:                                                                                                  #  OUTPUT -
032216,000090: 
032217,000091:                                                                                                  #        THE FOLLOWING MAY BE FLASHED ON THE DSKY
032218,000092:                                                                                                  #                1. IMU ORIENTATION CODE
032219,000093:                                                                                                  #                2. ALARM CODE 215 - PREFERRED IMU ORIENTATION NOT SPECIFIED
032220,000094:                                                                                                  #                3. TIME OF NEXT IGNITION
032221,000095:                                                                                                  #                4. GIMBAL ANGLES
032222,000096:                                                                                                  #                5. ALARM CODE 405 - TWO STARS NOT AVAILABLE
032223,000097:                                                                                                  #                6. PLEASE PERFORM P00
032224,000098:                                                                                                  #        THE MODE DISPLAY MAY BE CHANGED TO 20
032225,000099: 
032226,000100:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
032227,000101: 
032228,000102:                                                                                                  #        PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED.  IF IT HAS BEEN COMPUTED IT IS STORED IN
032229,000103:                                                                                                  #        XSMD, YSMD, ZSMD.
032230,000104: 
032231,000105:                                                                                                  #        RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
032232,000106: 
032233,000107:                                                                                                  #  DEBRIS -
032234,000108: 
032235,000109:                                                                                                  #        WORK AREA
032236,000110: 
032237,000111: 21,2042  15,2000               P54                =        PROG52                                
032238,000112: 33,3776                                           BANK     33                                    
032239,000113: 15,2000                                           SETLOC   P50S                                  
032240,000114: 15,2000                                           BANK                                           
032241,000115: 
032242,000116: 15,2000  30,2000                                  SBANK=   LOWSUPER                              
032243,000117: 15,2000  E5,1773                                  EBANK=   SAC                                   
032244,000118: 15,2000                                           COUNT    15/P52                                
032245,000119: 
032246,000120: 15,2000           05412        PROG52             TC       PHASCHNG                              
032247,000121: 15,2001           00254                           OCT      00254                                 
032248,000122: 15,2002           05560                           TC       DOWNFLAG                              
032249,000123: 15,2003           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1

Page 739

032251,000125: 15,2004           05560                           TC       DOWNFLAG                              
032252,000126: 15,2005           00031                           ADRES    TRACKFLG                              #  BIT 5 FLAG 1
032253,000127: 15,2006           04662                           TC       BANKCALL                              
032254,000128: 15,2007           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
032255,000129: 15,2010           35014                           CAF      BIT4                                  
032256,000130: 15,2011           70076                           MASK     STATE      +2                         #  IS PFRATFLG SET(PREFERRED ORIENTATION)
032257,000131: 15,2012           10000                           CCS      A                                     
032258,000132: 15,2013           02016                           TC       P52A                                  #  YES
032259,000133: 15,2014           35016                           CAF      BIT2                                  #  NO
032260,000134: 15,2015           02017                           TC       P52A       +1                         
032261,000135: 15,2016           35017        P52A               CAF      BIT1                                  
032262,000136: 15,2017           55132                           TS       OPTION2                               
032263,000137: 15,2020           35017        P52B               CAF      BIT1                                  
032264,000138: 15,2021           04662                           TC       BANKCALL                              #  FLASH OPTION CODE AND ORIENTATION CODE
032265,000139: 15,2022           21135                           CADR     GOPERF4R                              
032266,000140: 15,2023           04106                           TC       GOTOPOOH                              
032267,000141: 15,2024           02031                           TC       +5                                    
032268,000142: 15,2025           02020                           TC       P52B                                  #  NEW CODE - NEW ORIENTATION CODE INPUT
032269,000143: 15,2026           05412                           TC       PHASCHNG                              
032270,000144: 15,2027           00014                           OCT      00014                                 
032271,000145: 15,2030           05217                           TC       ENDOFJOB                              
032272,000146: 15,2031           31132                           CA       OPTION2                               
032273,000147: 15,2032           76214                           MASK     THREE                                 
032274,000148: 15,2033           50000                           INDEX    A                                     
032275,000149: 15,2034           02035                           TC       +1                                    
032276,000150: 15,2035           02041                           TC       P52T                                  #  L.S.
032277,000151: 15,2036           02110                           TC       P52J                                  #  PREF
032278,000152: 15,2037           02041                           TC       P52T                                  #  NOM
032279,000153: 15,2040           12120                           TCF      P52C                                  #  REF
032280,000154: 15,2041           00006        P52T               EXTEND                                         
032281,000155: 15,2042           35021                           DCA      NEG0                                  
032282,000156: 15,2043           53046                           DXCH     DSPTEM1                               
032283,000157: 15,2044           32157                           CAF      V06N34                                
032284,000158: 15,2045           04662                           TC       BANKCALL                              
032285,000159: 15,2046           20720                           CADR     GOFLASH                               
032286,000160: 15,2047           04106                           TC       GOTOPOOH                              
032287,000161: 15,2050           02052                           TC       +2                                    
032288,000162: 15,2051           02044                           TC       -5                                    
032289,000163: 15,2052           00006                           EXTEND                                         
032290,000164: 15,2053           31046                           DCA      DSPTEM1                               
032291,000165: 15,2054           00006                           EXTEND                                         
032292,000166: 15,2055           12057                           BZF      +2                                    
032293,000167: 15,2056           12062                           TCF      +4                                    
032294,000168: 
032295,000169: 15,2057           00006                           EXTEND                                         
032296,000170: 15,2060           30025                           DCA      TIME2                                 
032297,000171: 15,2061           53046                           DXCH     DSPTEM1                               
032298,000172: 15,2062           31132                           CA       OPTION2                               
032299,000173: 15,2063           75016                           MASK     BIT2                                  
032300,000174: 15,2064           10000                           CCS      A                                     

Page 740

032302,000176: 15,2065           12073                           TCF      +6                                    #  NOM
032303,000177: 15,2066           06006                           TC       INTPRET                               #  LS
032304,000178: 15,2067           77624                           CALL                                           
032305,000179: 15,2070           34531                                    P52LS                                 
032306,000180: 15,2071           77650                           GOTO                                           
032307,000181: 15,2072           32100                                    P52D                                  
032308,000182: 15,2073           06006                           TC       INTPRET                               
032309,000183: 15,2074           77745                           DLOAD                                          
032310,000184: 15,2075           01046                                    DSPTEM1                               
032311,000185: 15,2076           77624                           CALL                                           #  COMPUTE NOMINAL IMU
032312,000186: 15,2077           34661                                    S52.3                                 #        ORIENTATION
032313,000187: 15,2100           77624        P52D               CALL                                           #  READ VEHICLE ATTITUDE AND
032314,000188: 15,2101           22331                                    S52.2                                 #        COMPUTE GIMBAL ANGLES
032315,000189: 15,2102           77776                           EXIT                                           
032316,000190: 15,2103           32160                           CAF      VB06N22                               
032317,000191: 15,2104           04662                           TC       BANKCALL                              #  DISPLAY GIMBAL ANGLES
032318,000192: 15,2105           20720                           CADR     GOFLASH                               
032319,000193: 15,2106           04106                           TC       GOTOPOOH                              
032320,000194: 15,2107           02161                           TC       COARSTYP                              
032321,000195: 15,2110           06006        P52J               TC       INTPRET                               #  RECYCLE- VEHICLE HAS BEEN MENUEVERED
032322,000196: 15,2111           77650                           GOTO                                           
032323,000197: 15,2112           32100                                    P52D                                  
032324,000198: 15,2113           06006                           TC       INTPRET                               
032325,000199: 15,2114           77624                           CALL                                           #  DO COARSE ALIGN
032326,000200: 15,2115           30770                                    CAL53A                                #        ROUTINE
032327,000201: 15,2116           77414        CAL53RET           SET      EXIT                                  
032328,000202: 15,2117           01462                                    REFSMFLG                              
032329,000203: 15,2120           05412        P52C               TC       PHASCHNG                              
032330,000204: 15,2121           04024                           OCT      04024                                 
032331,000205: 15,2122           35025                           CAF      ALRM15                                
032332,000206: 15,2123           04662                           TC       BANKCALL                              
032333,000207: 15,2124           21045                           CADR     GOPERF1                               
032334,000208: 15,2125           04106                           TC       GOTOPOOH                              
032335,000209: 15,2126           02130                           TC       +2                                    #  V33
032336,000210: 15,2127           02142                           TC       P52F                                  #  E
032337,000211: 15,2130           06006                           TC       INTPRET                               
032338,000212: 15,2131           43234                           RTB      DAD                                   
032339,000213: 15,2132           45510                                    LOADTIME                              
032340,000214: 15,2133           32264                                    TSIGHT1                               
032341,000215: 15,2134           77624                           CALL                                           
032342,000216: 15,2135           30225                                    LOCSAM                                
032343,000217: 15,2136           77776                           EXIT                                           
032344,000218: 15,2137           04662        P52E               TC       BANKCALL                              #  DO STAR SELECTION
032345,000219: 15,2140           30333                           CADR     PICAPAR                               
032346,000220: 15,2141           02147                           TC       P52I                                  #  2 STARS NOT AVAILABLE
032347,000221: 15,2142           06006        P52F               TC       INTPRET                               #  2 STARS AVAILABLE
032348,000222: 15,2143           77624                           CALL                                           
032349,000223: 15,2144           30532                                    R51                                   
032350,000224: 15,2145           77776        ENDP50S            EXIT                                           
032351,000225: 15,2146           04106                           TC       GOTOPOOH                              

Page 741

032353,000227: 15,2147           05650        P52I               TC       ALARM                                 
032354,000228: 15,2150           00405                           OCT      405                                   
032355,000229: 15,2151           35050                           CAF      V05N09                                
032356,000230: 15,2152           04662                           TC       BANKCALL                              
032357,000231: 15,2153           20720                           CADR     GOFLASH                               
032358,000232: 15,2154           04106                           TC       GOTOPOOH                              
032359,000233: 15,2155           02142                           TC       P52F                                  #  PROCEED - DO FINE ALIGN-R51
032360,000234: 15,2156           02120                           TC       P52C                                  #  RECYCLE - VEHICLE HAS BEEN MANUEVERED                 
032361,000235: 15,2157           01442        V06N34             VN       0634                                  
032362,000236: 15,2160           01426        VB06N22            VN       00622                                 
032363,000237: 15,2161           35024        COARSTYP           CAF      OCT13                                 
032364,000238: 15,2162           04662                           TC       BANKCALL                              
032365,000239: 15,2163           21045                           CADR     GOPERF1                               
032366,000240: 15,2164           14106                           TCF      GOTOPOOH                              #  V34
032367,000241: 15,2165           12113                           TCF      P52J       +3                         #   NORMAL
032368,000242: 15,2166           06006                           TC       INTPRET                               #  GYRO COARSE
032369,000243: 15,2167           64375        GYCRS              VLOAD    MXV                                   
032370,000244: 15,2170           00307                                    XSMD                                  
032371,000245: 15,2171           01736                                    REFSMMAT                              
032372,000246: 15,2172           77656                           UNIT                                           
032373,000247: 15,2173           26714                           STOVL    XDC                                   
032374,000248: 15,2174           00315                                    YSMD                                  
032375,000249: 15,2175           53521                           MXV      UNIT                                  
032376,000250: 15,2176           01736                                    REFSMMAT                              
032377,000251: 15,2177           26722                           STOVL    YDC                                   
032378,000252: 15,2200           00323                                    ZSMD                                  
032379,000253: 15,2201           53521                           MXV      UNIT                                  
032380,000254: 15,2202           01736                                    REFSMMAT                              
032381,000255: 15,2203           36730                           STCALL   ZDC                                   
032382,000256: 15,2204           47205                                    CALCGTA                               
032383,000257: 15,2205           43014                           CLEAR    CLEAR                                 
032384,000258: 15,2206           01260                                    DRIFTFLG                              
032385,000259: 15,2207           01662                                    REFSMFLG                              
032386,000260: 15,2210           77776                           EXIT                                           
032387,000261: 15,2211           32244                           CAF      V16N20                                
032388,000262: 15,2212           04662                           TC       BANKCALL                              
032389,000263: 15,2213           20676                           CADR     GODSPR                                
032390,000264: 15,2214           32323                           CA       R55CDR                                
032391,000265: 15,2215           04662                           TC       BANKCALL                              
032392,000266: 15,2216           17206                           CADR     IMUPULSE                              
032393,000267: 15,2217           04662                           TC       BANKCALL                              
032394,000268: 15,2220           17577                           CADR     IMUSTALL                              
032395,000269: 15,2221           05757                           TC       CURTAINS                              
032396,000270: 15,2222           05412                           TC       PHASCHNG                              
032397,000271: 15,2223           04024                           OCT      04024                                 
032398,000272: 15,2224           06006                           TC       INTPRET                               
032399,000273: 15,2225           75160                           AXC,1    AXC,2                                 
032400,000274: 15,2226           00306                                    XSMD                                  
032401,000275: 15,2227           01735                                    REFSMMAT                              
032402,000276: 15,2230           77624                           CALL                                           

Page 742

032404,000278: 15,2231           31053                                    MATMOVE                               
032405,000279: 15,2232           43014                           CLEAR    SET                                   
032406,000280: 15,2233           01273                                    PFRATFLG                              
032407,000281: 15,2234           01462                                    REFSMFLG                              
032408,000282: 15,2235           77234                           RTB      VLOAD                                 
032409,000283: 15,2236           31275                                    SET1/PDT                              
032410,000284: 15,2237           11566                                    ZEROVEC                               
032411,000285: 15,2240           01472                           STORE    GCOMP                                 
032412,000286: 15,2241           52014                           SET      GOTO                                  
032413,000287: 15,2242           01060                                    DRIFTFLG                              
032414,000288: 15,2243           30655                                    R51K                                  
032415,000289: 15,2244           04024        V16N20             VN       1620                                  
032416,000290: 15,2245     5025               ALRM15             EQUALS   OCT15                                 
032417,000291: 16,2000                                           SETLOC   P50S2                                 
032418,000292: 16,2000                                           BANK                                           
032419,000293: 16,2530           01531        V06N89*            VN       0689                                  
032420,000294: 
032421,000295:                                                                                                  #  NAME - P52LS
032422,000296: 
032423,000297:                                                                                                  #  FUNCTION - TO DISPLAY THE LANDING SITE LATITUDE,
032424,000298:                                                                                                  #  LONGTITUDE AND ALTITUDE.  TO ACCEPT NEW DATA VIA
032425,000299:                                                                                                  #  THE KEYBOARD.  TO COMPUTE THE LANDING SITE
032426,000300:                                                                                                  #  ORIENTATION FOR P52 OR P54
032427,000301: 
032428,000302:                                                                                                  #  LET:
032429,000303:                                                                                                  #        RLS  = LANDING SITE VECTOR IN REF COORDINATES
032430,000304:                                                                                                  #        R    = CSM POSITION VECTOR IN REF COORDINATES
032431,000305:                                                                                                  #        V    = CSM VELOCITY VECTOR IN REF COORDINATES
032432,000306:                                                                                                  #  THEN THE LANDING SITE ORIENTATION IS:
032433,000307:                                                                                                  #        XSMD = UNIT(RLS)
032434,000308:                                                                                                  #        YSMD = UNIT(ZSMD*XSMD)
032435,000309:                                                                                                  #        ZSMD = UNIT((R*V)*RLS)
032436,000310: 
032437,000311:                                                                                                  #  CALL -        CALL
032438,000312:                                                                                                  #                        P52LS
032439,000313: 
032440,000314:                                                                                                  #  INPUTS-       DSPTEM1 = TIME OF ALIGNMENT
032441,000315:                                                                                                  #                RLS = LANDING SITE VECTOR IN MOON FIXED COORINATES
032442,000316: 
032443,000317:                                                                                                  #  OUTPUTS-      XSMD, YSMD, ZSMD
032444,000318: 
032445,000319:                                                                                                  #  SUBROUTINES-  RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
032446,000320: 
032447,000321:                                                                                                  #  DEBRIS-       VAC, SEE SUBROUTINES
032448,000322: 
032449,000323: 16,2531           43020        P52LS              STQ      SET                                   
032450,000324: 16,2532           00300                                    QMAJ                                  
032451,000325: 16,2533           01463                                    LUNAFLAG                              
032452,000326: 16,2534           77745                           DLOAD                                          
032453,000327: 16,2535           01046                                    DSPTEM1                               
032454,000328: 16,2536           02607                           STORE    TSIGHT                                
032455,000329: 16,2537           43175                           VLOAD    SET                                   
032456,000330: 16,2540           02026                                    RLS                                   
032457,000331: 16,2541           00462                                    ERADFLAG                              
032458,000332: 16,2542           14001                           STODL    0D                                    
032459,000333: 16,2543           02607                                    TSIGHT                                
032460,000334: 16,2544           34007                           STCALL   6D                                    

Page 743

032462,000336: 16,2545           55344                                    RP-TO-R                               
032463,000337: 16,2546           77742                           VSR2                                           
032464,000338: 16,2547           16152                           STODL    ALPHAV                                
032465,000339: 16,2550           02607                                    TSIGHT                                
032466,000340: 16,2551           77624                           CALL                                           
032467,000341: 16,2552           26370                                    LAT-LONG                              
032468,000342: 16,2553           77624                           CALL                                           
032469,000343: 16,2554           62365                                    LLASRD                                
032470,000344: 16,2555           77776                           EXIT                                           
032471,000345: 16,2556           32530        LSDISP             CAF      V06N89*                               
032472,000346: 16,2557           04662                           TC       BANKCALL                              
032473,000347: 16,2560           20720                           CADR     GOFLASH                               
032474,000348: 16,2561           04106                           TC       GOTOPOOH                              
032475,000349: 16,2562           02564                           TC       +2                                    
032476,000350: 16,2563           02556                           TC       LSDISP                                
032477,000351: 16,2564           06006                           TC       INTPRET                               
032478,000352: 16,2565           77624                           CALL                                           
032479,000353: 16,2566           62374                                    LLASRDA                               
032480,000354: 16,2567           45145                           DLOAD    CALL                                  
032481,000355: 16,2570           02607                                    TSIGHT                                
032482,000356: 16,2571           26441                                    LALOTORV                              
032483,000357: 16,2572           53575                           VLOAD    UNIT                                  
032484,000358: 16,2573           02152                                    ALPHAV                                
032485,000359: 16,2574           14307                           STODL    XSMD                                  
032486,000360: 16,2575           02607                                    TSIGHT                                
032487,000361: 16,2576           34041                           STCALL   TDEC1                                 
032488,000362: 16,2577           27071                                    CSMPREC                               
032489,000363: 16,2600           47375                           VLOAD    VXV                                   
032490,000364: 16,2601           00001                                    RATT                                  
032491,000365: 16,2602           00007                                    VATT                                  
032492,000366: 16,2603           53435                           VXV      UNIT                                  
032493,000367: 16,2604           00307                                    XSMD                                  
032494,000368: 16,2605           00323                           STORE    ZSMD                                  
032495,000369: 16,2606           53435                           VXV      UNIT                                  
032496,000370: 16,2607           00307                                    XSMD                                  
032497,000371: 16,2610           34315                           STCALL   YSMD                                  
032498,000372: 16,2611           00300                                    QMAJ                                  
032499,000373: 14,2000                                           SETLOC   P50S1                                 
032500,000374: 14,2000                                           BANK                                           
032501,000375: 
032502,000376:                                                                                                  #  NAME-         AUTOMATIC OPTICS POSITIONING ROUTINE
032503,000377: 
032504,000378:                                                                                                  #  FUNCTION-     (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
032505,000379:                                                                                                  #                (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
032506,000380: 
032507,000381:                                                                                                  #  CALLING SEQUENCE- CALL R52
032508,000382: 
032509,000383:                                                                                                  #  INPUT-        1.  TARG1FLG AND TARG2FLG- PRESET BY CALLER
032510,000384:                                                                                                  #                2.  RNDVZFLG AND TRACKFLG- PRESET BY CALLER
032511,000385:                                                                                                  #                3.  STAR CODE- PRESET BY CALLER. ALSO INPUT THROUGH DSKY
032512,000386:                                                                                                  #                4.  LAT, LONG AND ALT OF LANDMARK- INPUT THROUGH DSKY

Page 744

032514,000388:                                                                                                  #                5.  NO. OF MARKS (MARKINDX)- PRESET BY CALLER
032515,000389: 
032516,000390:                                                                                                  #  OUTPUT-       DRIVE SHAFT AND TRUNNION CDUS
032517,000391: 
032518,000392:                                                                                                  #  SUBROUTINES-  1.  FIXDELAY            7.  CLEANDSP
032519,000393:                                                                                                  #                2.  GOPERF1             8.  GODSPR
032520,000394:                                                                                                  #                3.  GOFLASH             9.  REFLASHR
032521,000395:                                                                                                  #                4.  R53                 10. R52.2
032522,000396:                                                                                                  #                5.  ALARM               11. R52.3
032523,000397:                                                                                                  #                6.  SR52.1
032524,000398: 
032525,000399: 14,2011                                           COUNT    15/R52                                
032526,000400: 
032527,000401: 14,2011           43020        R52                STQ      CLEAR                                 
032528,000402: 14,2012           02576                                    SAVQR52                               
032529,000403: 14,2013           04265                                    ADVTRK                                
032530,000404: 14,2014           77776        R52VRB             EXIT                                           
032531,000405: 14,2015           00006                           EXTEND                                         
032532,000406: 14,2016           30036                           DCA      CDUT                                  
032533,000407: 14,2017           53161                           DXCH     DESOPTT                               
032534,000408: 14,2020           06006                           TC       INTPRET                               
032535,000409: 14,2021           43131                           SSP      CLEAR                                 
032536,000410: 14,2022           01304                                    OPTIND                                
032537,000411: 14,2023           00000                                    0                                     
032538,000412: 14,2024           00271                                    R53FLAG                               
032539,000413: 14,2025           77776                           EXIT                                           
032540,000414: 14,2026           06006        R52A               TC       INTPRET                               
032541,000415: 14,2027           43014                           SET      BON                                   
032542,000416: 14,2030           00073                                    TRUNFLAG                              
032543,000417: 14,2031           00705                                    TARG1FLG                              
032544,000418: 14,2032           30112                                    R52H                                  
032545,000419: 14,2033           77414                           CLEAR    EXIT                                  
032546,000420: 14,2034           03660                                    TERMIFLG                              
032547,000421: 14,2035           31314        R52C               CA       SWSAMPLE                              #  IS OPTICS MODE IN AGC
032548,000422: 14,2036           00006                           EXTEND                                         
032549,000423: 14,2037           62140                           BZMF     R52M                                  #  MANUAL
032550,000424: 14,2040           04662        R52D               TC       BANKCALL                              #  AGC
032551,000425: 14,2041           26244                           CADR     SR52.1                                
032552,000426: 14,2042           12170                           TCF      R52L                                  #  GR 90 DEGREES
032553,000427: 14,2043           12133                           TCF      R52J                                  #  GR 50 DEGREES
032554,000428: 14,2044           05546                           TC       UPFLAG                                #  LS 50 DEGREES
032555,000429: 14,2045           00013                           ADRES    TRUNFLAG                              #  SET TRUNFLAG BIT 4 FLAG 0
032556,000430: 14,2046           35006        R52JA              CAF      BIT10                                 #  IS THIS A LEM
032557,000431: 14,2047           70075                           MASK     STATE      +1                         
032558,000432: 14,2050           10000                           CCS      A                                     
032559,000433: 14,2051           02061                           TC       R52E                                  #  YES
032560,000434: 14,2052           35012                           CAF      BIT6                                  #  NO, IS R53FLAG SET
032561,000435: 14,2053           70074                           MASK     STATE                                 
032562,000436: 14,2054           10000                           CCS      A                                     
032563,000437: 14,2055           12061                           TCF      R52E                                  #  YES

Page 745

032565,000439: 14,2056           32160                           CAF      V06N92                                #  NO
032566,000440: 14,2057           04662                           TC       BANKCALL                              
032567,000441: 14,2060           20676                           CADR     GODSPR                                
032568,000442: 14,2061           31314        R52E               CA       SWSAMPLE                              #  IS OSS IN CMC MODE
032569,000443: 14,2062           00006                           EXTEND                                         
032570,000444: 14,2063           62074                           BZMF     R52F                                  #  NO
032571,000445: 14,2064           40074                           CS       STATE                                 #  YES- IS TRUNFLAG SET
032572,000446: 14,2065           75014                           MASK     BIT4                                  
032573,000447: 14,2066           10000                           CCS      A                                     
032574,000448: 14,2067           02072                           TC       +3                                    #  NO
032575,000449: 14,2070           31775                           CA       PAC                                   #  YES
032576,000450: 14,2071           55160                           TS       DESOPTT                               
032577,000451: 14,2072           31773                           CA       SAC                                   
032578,000452: 14,2073           55161                           TS       DESOPTS                               
032579,000453: 14,2074           35036        R52F               CAF      .5SEC                                 #  WAIT 1/2 SEC
032580,000454: 14,2075           04662                           TC       BANKCALL                              
032581,000455: 14,2076           01732                           CADR     DELAYJOB                              
032582,000456: 14,2077           35006                           CAF      BIT10                                 
032583,000457: 14,2100           70075                           MASK     STATE      +1                         
032584,000458: 14,2101           10000                           CCS      A                                     
032585,000459: 14,2102           12113                           TCF      R52HA                                 #  YES, LEM
032586,000460: 14,2103           35001                           CAF      BIT15                                 #  NO
032587,000461: 14,2104           70103                           MASK     STATE      +7                         #  IS TERMIFLG SET
032588,000462: 14,2105           00006                           EXTEND                                         
032589,000463: 14,2106           12035                           BZF      R52C                                  #  NO
032590,000464: 14,2107           06006        R52Q               TC       INTPRET                               #  YES
032591,000465: 14,2110           77650                           GOTO                                           
032592,000466: 14,2111           02576                                    SAVQR52                               
032593,000467: 14,2112           77776        R52H               EXIT                                           #  LEM
032594,000468: 14,2113           04662        R52HA              TC       BANKCALL                              
032595,000469: 14,2114           76557                           CADR     R61CSM                                
032596,000470: 14,2115           30075                           CA       STATE      +1                         
032597,000471: 14,2116           75013                           MASK     BIT5                                  
032598,000472: 14,2117           00006                           EXTEND                                         #  TRACKFLG
032599,000473: 14,2120           12107                           BZF      R52Q                                  
032600,000474: 
032601,000475: 14,2121           40075                           CS       STATE      +1                         
032602,000476: 14,2122           75011                           MASK     BIT7                                  #  UPDATFLG
032603,000477: 14,2123           10000                           CCS      A                                     
032604,000478: 14,2124           12131                           TCF      R52SYNC                               
032605,000479: 
032606,000480: 14,2125           30101        R52I               CA       STATE      +5                         
032607,000481: 14,2126           75006                           MASK     BIT10                                 
032608,000482: 14,2127           10000                           CCS      A                                     
032609,000483: 14,2130           02040                           TC       R52D                                  #  PRFTRKAT = 1
032610,000484: 14,2131           32204        R52SYNC            CAF      1.8SEC                                #  MAKE UP FOR LOST TIME
032611,000485: 14,2132           12075                           TCF      R52F       +1                         
032612,000486: 
032613,000487: 14,2133           05560        R52J               TC       DOWNFLAG                              #  CLEAR TRUNFLAG
032614,000488: 14,2134           00013                           ADRES    TRUNFLAG                              #  BIT 4 FLAG 0

Page 746

032616,000490: 14,2135           05650                           TC       ALARM                                 #  SET 407 ALARM
032617,000491: 14,2136           00407                           OCT      407                                   
032618,000492: 14,2137           02046                           TC       R52JA                                 
032619,000493: 14,2140           35012        R52M               CAF      BIT6                                  #  IS R53FLAG SET
032620,000494: 14,2141           70074                           MASK     STATE                                 
032621,000495: 14,2142           10000                           CCS      A                                     
032622,000496: 14,2143           02074                           TC       R52F                                  #  YES
032623,000497: 14,2144           00004                           INHINT                                         #  NO
032624,000498: 14,2145           37661                           CAF      PRIO24                                
032625,000499: 14,2146           05147                           TC       FINDVAC                               
032626,000500: 14,2147  E5,1773                                  EBANK=   SAC                                   
032627,000501: 14,2147           02153 30065                     2CADR    R53JOB                                
032628,000502: 
032629,000503: 14,2151           00003                           RELINT                                         
032630,000504: 14,2152           12074                           TCF      R52F                                  
032631,000505: 14,2153           06006        R53JOB             TC       INTPRET                               
032632,000506: 14,2154           77624                           CALL                                           
032633,000507: 14,2155           31300                                    R53                                   
032634,000508: 14,2156           77776        ENDPLAC            EXIT                                           #  INTERPRETER RETURN TO ENDOFJOB (R22 USES)
032635,000509: 14,2157           05217                           TC       ENDOFJOB                              
032636,000510: 14,2160           01534        V06N92             VN       00692                                 
032637,000511: 14,2161           01531        V06N89A            VN       0689                                  
032638,000512: 14,2162           10464 12470  SHAXIS             2DEC     .5376381241 B-1                        
032639,000513: 
032640,000514: 14,2164           00000 00000                     2DEC     0          B-28                       
032641,000515: 
032642,000516: 14,2166           15373 11554                     2DEC     .8431766920 B-1                        
032643,000517: 
032644,000518: 14,2170           35006        R52L               CAF      BIT10                                 #  IS THIS A LEM
032645,000519: 14,2171           70075                           MASK     STATE      +1                         
032646,000520: 14,2172           10000                           CCS      A                                     
032647,000521: 14,2173           02133                           TC       R52J                                  #  YES
032648,000522: 14,2174           32203                           CAF      OCT404                                
032649,000523: 14,2175           04662                           TC       BANKCALL                              
032650,000524: 14,2176           21766                           CADR     PRIOLARM                              
032651,000525: 14,2177           12205                           TCF      TERM52                                #  TERMINATE
032652,000526: 14,2200           12074                           TCF      R52F                                  #  PROCEED
032653,000527: 14,2201           12074                           TCF      R52F                                  #  NO PROVISION FOR NEW DATA
032654,000528: 14,2202           15217                           TCF      ENDOFJOB                              
032655,000529: 
032656,000530: 14,2203           00404        OCT404             OCT      404                                   
032657,000531: 14,2204           00264        1.8SEC             DEC      180        B-14                       
032658,000532: 
032659,000533: 14,2205           05536        TERM52             TC       CLEARMRK                              
032660,000534: 
032661,000535: 14,2206           04662                           TC       BANKCALL                              #  KILL MARK SYSTEM
032662,000536: 14,2207           16063                           CADR     MKRELEAS                              
032663,000537: 

Page 747

032665,000539: 
032666,000540: 14,2210           35021                           CAF      ZERO                                  
032667,000541: 14,2211           55323                           TS       OPTCADR                               
032668,000542: 
032669,000543: 14,2212           04662                           TC       BANKCALL                              #  CLEAR OUT EXTENDED VERBS
032670,000544: 14,2213           20560                           CADR     KLEENEX                               
032671,000545: 
032672,000546: 14,2214           04106                           TC       GOTOPOOH                              #  NOW GO TO POO
032673,000547: 
032674,000548: 14,2215           43020        ADVORB             STQ      SET                                   #  SETS UP ADVANCED ORBIT TRACKING
032675,000549: 14,2216           02576                                    SAVQR52                               
032676,000550: 14,2217           04065                                    ADVTRK                                
032677,000551: 14,2220           43014                           SET      SET                                   
032678,000552: 14,2221           01463                                    LUNAFLAG                              
032679,000553: 14,2222           00462                                    ERADFLAG                              
032680,000554: 14,2223           77650                           GOTO                                           
032681,000555: 14,2224           30014                                    R52VRB                                
032682,000556: 

Page 748

032684,000558:                                                                                                  #  NAME - S50 ALIAS LOCSAM
032685,000559:                                                                                                  #  NAME- LOCSAM
032686,000560: 
032687,000561:                                                                                                  #  FUNCTION - TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
032688,000562:                                                                                                  #              IMU ALIGNMENT PROGRAMS
032689,000563: 
032690,000564:                                                                                                  #        DEFINE:
032691,000565: 
032692,000566:                                                                                                  #        RATT = POSITION VECTOR OF CM WRT PRIMARY BODY
032693,000567: 
032694,000568:                                                                                                  #        VATT = VELOCITY VECTOR OF CM WRT PRIMARY BODY
032695,000569: 
032696,000570:                                                                                                  #        RE = RADIUS OF EARTH
032697,000571: 
032698,000572:                                                                                                  #        RM = RADIUS OF MOON
032699,000573: 
032700,000574:                                                                                                  #        ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
032701,000575:                                                                                                  #                  WRT TO SUN OVER THE VELOCITY OF LIGHT
032702,000576: 
032703,000577:                                                                                                  #        REM = POSITION OF MOON WRT EARTH
032704,000578: 
032705,000579:                                                                                                  #        RES = POSITION OF SUN WRT EARTH
032706,000580: 
032707,000581:                                                                                                  #        C = VELOCITY OF LIGHT
032708,000582: 
032709,000583:                                                                                                  #                EARTH IS PRIMARY                        MOON IS PRIMARY
032710,000584:                                                                                                  #                        -                                       -
032711,000585:                                                                                                  #                VEARTH=-1(RATT)                         VEARTH=-1(REM+RATT)
032712,000586:                                                                                                  #                        -                                       -
032713,000587:                                                                                                  #                VMOON = 1(REM-RATT)                     VMOON =-1(RATT)
032714,000588:                                                                                                  #                        -                                       -
032715,000589:                                                                                                  #                VSUN  = 1(RES)                          VSUN  = 1(RES-REM)
032716,000590:                                                                                                  #                              -1
032717,000591:                                                                                                  #                CEARTH=COS(SIN  (RE/RATT)+5)            CEARTH=COS 5
032718,000592:                                                                                                  #                                                                      -1
032719,000593:                                                                                                  #                CMOON =COS 5                            CMOON =COS(SIN  CRM/RATT)+5)
032720,000594: 
032721,000595:                                                                                                  #                CSUN  =COS 15                           CSUN  =COS 15
032722,000596: 
032723,000597:                                                                                                  #                            VEL/C = VSUN X ECLIPOL + VATT/C
032724,000598: 
032725,000599:                                                                                                  #  CALL  -       DLOAD   CALL
032726,000600:                                                                                                  #                        DESIRED TIME
032727,000601:                                                                                                  #                        LOCSAM
032728,000602: 
032729,000603:                                                                                                  #  INPUTS -      MPAC = TIME
032730,000604: 
032731,000605:                                                                                                  #  OUTPUTS-      VEARTH, VMOON, VSUN, CEARTH, CMOON, CSUN, VEL/C
032732,000606: 
032733,000607:                                                                                                  #  SUBROUTINES-  LSPOS, CSMCONIC
032734,000608: 
032735,000609:                                                                                                  #  DEBRIS  -     VAC AREA, SEE SUBROUTINES
032736,000610: 

Page 749

032738,000612: 14,2000                                           SETLOC   P50S1                                 
032739,000613: 14,2000                                           BANK                                           
032740,000614: 
032741,000615: 14,2225                                           COUNT*   $$/S50                                
032742,000616: 
032743,000617: 14,2225  14,2225               LOCSAM             =        S50                                   
032744,000618: 14,2225           77620        S50                STQ                                            
032745,000619: 14,2226           00300                                    QMAJ                                  
032746,000620: 14,2227           36607                           STCALL   TSIGHT                                
032747,000621: 14,2230           54110                                    LSPOS                                 
032748,000622: 14,2231           26752                           STOVL    VMOON                                 
032749,000623: 14,2232           00003                                    2D                                    
032750,000624: 14,2233           16744                           STODL    VSUN                                  
032751,000625: 14,2234           02607                                    TSIGHT                                
032752,000626: 14,2235           34041                           STCALL   TDEC1                                 
032753,000627: 14,2236           27114                                    CSMCONIC                              
032754,000628: 14,2237           61131                           SSP      TIX,2                                 
032755,000629: 14,2240           00052                                    S2                                    
032756,000630: 14,2241           00000                                    0                                     
032757,000631: 14,2242           30265                                    MOONCNTR                              
032758,000632: 14,2243           52375        EARTCNTR           VLOAD    VSU                                   
032759,000633: 14,2244           02752                                    VMOON                                 
032760,000634: 14,2245           00001                                    RATT                                  
032761,000635: 14,2246           77656                           UNIT                                           
032762,000636: 14,2247           26752                           STOVL    VMOON                                 
032763,000637: 14,2250           00001                                    RATT                                  
032764,000638: 14,2251           57456                           UNIT     VCOMP                                 
032765,000639: 14,2252           16736                           STODL    VEARTH                                
032766,000640: 14,2253           32250                                    RSUBE                                 
032767,000641: 14,2254           77624                           CALL                                           
032768,000642: 14,2255           30325                                    OCCOS                                 
032769,000643: 14,2256           14017                           STODL    CEARTH                                
032770,000644: 14,2257           32266                                    CSS5                                  
032771,000645: 14,2260           24023                           STOVL    CMOON                                 
032772,000646: 14,2261           02744                                    VSUN                                  
032773,000647: 14,2262           77656                           UNIT                                           
032774,000648: 14,2263           36744                           STCALL   VSUN                                  
032775,000649: 14,2264           30312                                    ENDSAM                                
032776,000650: 14,2265           40575        MOONCNTR           VLOAD    VSR8                                  
032777,000651: 14,2266           02752                                    VMOON                                 
032778,000652: 14,2267           51362                           VSR1     BVSU                                  
032779,000653: 14,2270           02744                                    VSUN                                  
032780,000654: 14,2271           77656                           UNIT                                           
032781,000655: 14,2272           26744                           STOVL    VSUN                                  
032782,000656: 14,2273           02752                                    VMOON                                 
032783,000657: 14,2274           53455                           VAD      UNIT                                  
032784,000658: 14,2275           00001                                    RATT                                  
032785,000659: 14,2276           77676                           VCOMP                                          
032786,000660: 14,2277           26736                           STOVL    VEARTH                                

Page 750

032788,000662: 
032789,000663: 14,2300           00001                                    RATT                                  
032790,000664: 14,2301           57456                           UNIT     VCOMP                                 
032791,000665: 14,2302           16752                           STODL    VMOON                                 
032792,000666: 14,2303           32246                                    RSUBM                                 
032793,000667: 14,2304           77624                           CALL                                           
032794,000668: 14,2305           30325                                    OCCOS                                 
032795,000669: 14,2306           14023                           STODL    CMOON                                 
032796,000670: 14,2307           32266                                    CSS5                                  
032797,000671: 14,2310           24017                           STOVL    CEARTH                                
032798,000672: 14,2311           02744                                    VSUN                                  
032799,000673: 14,2312           77635        ENDSAM             VXV                                            
032800,000674: 14,2313           32256                                    ECLIPOL                               
032801,000675: 14,2314           27474                           STOVL    VEL/C                                 
032802,000676: 14,2315           00007                                    VATT                                  
032803,000677: 14,2316           53361                           VXSC     VAD                                   
032804,000678: 14,2317           32254                                    1/C                                   
032805,000679: 14,2320           03474                                    VEL/C                                 
032806,000680: 14,2321           17474                           STODL    VEL/C                                 
032807,000681: 14,2322           32270                                    CSSUN                                 
032808,000682: 14,2323           34021                           STCALL   CSUN                                  
032809,000683: 14,2324           00300                                    QMAJ                                  
032810,000684: 14,2325           70471        OCCOS              DDV      SR1                                   
032811,000685: 14,2326           00045                                    36D                                   
032812,000686: 14,2327           43336                           ASIN     DAD                                   
032813,000687: 14,2330           32252                                    5DEGREES                              
032814,000688: 14,2331           70546                           COS      SR1                                   
032815,000689: 14,2332           77616                           RVQ                                            
032816,000690: 15,2000                                           SETLOC   P50S                                  
032817,000691: 15,2000                                           BANK                                           
032818,000692: 15,2245           00065 01265  RSUBM              2DEC     1738090    B-29                       #  MOON RADIUS IN METERS
032819,000693: 
032820,000694: 15,2247           00302 24533  RSUBE              2DEC     6378166    B-29                       
032821,000695: 
032822,000696: 15,2251           00343 21616  5DEGREES           2DEC     .013888889                            #  SCALED IN REVS
032823,000697: 
032824,000698: 15,2253           00000 13143  1/C                2DEC     .000042699 B-1                        #  *
032825,000699: 
032826,000700: 15,2255           00000 00000  ECLIPOL            2DEC     0          B-28                       #  *
032827,000701: 
032828,000702: 15,2257           77777 53231                     2DEC     -.00007896 B-1                        #  *
032829,000703: 
032830,000704: 15,2261           00001 17570                     2DEC     .00018209  B-1                        #  *             * FOR USE BY CSM ONLY
032831,000705: 
032832,000706: 15,2263           00001 16700  TSIGHT1            2DEC     24000      B-28                       
032833,000707: 
032834,000708: 15,2265                        CEARTH             =        14D                                   
032835,000709: 15,2265                        CSUN               =        16D                                   
032836,000710: 15,2265                        CMOON              =        18D                                   
032837,000711: 15,2265           07760 14473  CSS5               2DEC     .2490475                              #  (COS 5)/4

Page 751

032839,000713: 15,2267           07564 15042  CSSUN              2DEC     .24148                                #  COS 15  /4
032840,000714: 

Page 752

032842,000716:                                                                                                  #  PROGRAM NAME - PICAPAR        DATE DEC 20 66
032843,000717:                                                                                                  #  MOD 1                         LOG SECTION P51-P53
032844,000718:                                                                                                  #                                ASSEMBLY  SUNDISK  REV40
032845,000719:                                                                                                  #  BY KEN VINCENT
032846,000720: 
032847,000721:                                                                                                  #  FUNCTION
032848,000722:                                                                                                  #        THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
032849,000723:                                                                                                  #        WITH RESPECT TO INERTIAL SPACE.  IT THEN COMPUTES THE SHAFT AXIS (SAX)
032850,000724:                                                                                                  #        WITH RESPECT TO REFERENCE INERTIAL.  EACH STAR IN THE CATALOG IS TESTED
032851,000725:                                                                                                  #        TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH, SUN OR MOON.  IF A
032852,000726:                                                                                                  #        STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STAR OF LOWER INDEX.
032853,000727:                                                                                                  #        THE PAIRED STAR IS TESTED FOR OCCULTATION.  PAIRS OF STARS THAT PASS
032854,000728:                                                                                                  #        THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION.  A PAIR OF STARS
032855,000729:                                                                                                  #        HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 66 DEGREES
032856,000730:                                                                                                  #        AND MORE THAN 40 DEGREES.  THOSE PAIRS OF STARS WITH GOOD SEPARATION
032857,000731:                                                                                                  #        ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW.  (WITHIN
032858,000732:                                                                                                  #        33 DEGREES OF SAX).  THE PAIR WITH MAXIMUM SEPARATION IS CHOSEN FROM
032859,000733:                                                                                                  #        THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
032860,000734: 
032861,000735:                                                                                                  #  CALLING SEQUENCE
032862,000736:                                                                                                  #        L       TC      BANKCALL
032863,000737:                                                                                                  #        L+1     CADR    PICAPAR
032864,000738:                                                                                                  #        L+2     ERROR RETURN - NO STARS IN FIELD OF VIEW
032865,000739:                                                                                                  #        L+3     NORMAL RETURN
032866,000740: 
032867,000741:                                                                                                  #  OUTPUT
032868,000742:                                                                                                  #        BESTI, BESTJ - SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
032869,000743:                                                                                                  #        VFLAG - FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW
032870,000744: 
032871,000745:                                                                                                  #  INITIALIZATION
032872,000746:                                                                                                  #        1)      A CALL TO LOCSAM MUST BE MADE
032873,000747:                                                                                                  #        2)      VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TOO APPROXIMATE TIME OF
032874,000748:                                                                                                  #                SIGHTINGS.
032875,000749: 
032876,000750:                                                                                                  #  DEBRIS
032877,000751:                                                                                                  #        WORK AREA
032878,000752:                                                                                                  #        X,Y,ZNB
032879,000753:                                                                                                  #        SINCDU, COSCDU
032880,000754:                                                                                                  #        STARAD - STAR +5
032881,000755: 
032882,000756: 15,2271                                           COUNT    14/PICAP                              
032883,000757: 
032884,000758: 14,2000                                           SETLOC   P50S1                                 
032885,000759: 14,2000                                           BANK                                           
032886,000760: 14,2333           04711        PICAPAR            TC       MAKECADR                              
032887,000761: 14,2334           55777                           TS       QMIN                                  
032888,000762: 14,2335           06006                           TC       INTPRET                               
032889,000763: 14,2336           77624                           CALL                                           
032890,000764: 14,2337           47477                                    CDUTRIG                               
032891,000765: 14,2340           77624                           CALL                                           
032892,000766: 14,2341           34612                                    CALCSMSC                              

Page 753

032894,000768: 14,2342           77601                           SETPD                                          
032895,000769: 14,2343           00001                                    0                                     
032896,000770: 14,2344           71214                           SET      DLOAD                                 #  VFLAG = 1
032897,000771: 14,2345           01465                                    VFLAG                                 
032898,000772: 14,2346           11566                                    DPZERO                                
032899,000773: 14,2347           24303                           STOVL    BESTI                                 
032900,000774: 14,2350           02714                                    XNB                                   
032901,000775: 14,2351           63361                           VXSC     PDVL                                  
032902,000776: 14,2352           30511                                    SIN33                                 
032903,000777: 14,2353           02730                                    ZNB                                   
032904,000778: 14,2354           74370                           AXT,1    VXSC                                  
032905,000779: 14,2355           00344                                    228D                                  #  X1 = 37 X 6 + 6
032906,000780: 14,2356           30513                                    COS33                                 
032907,000781: 14,2357           77655                           VAD                                            
032908,000782: 14,2360           53505                           VXM      UNIT                                  
032909,000783: 14,2361           01736                                    REFSMMAT                              
032910,000784: 14,2362           02760                           STORE    SAX                                   #  SAX = SHAFT AXIS
032911,000785: 14,2363           66331                           SSP      SSP                                   #  S1 = S2 = 6
032912,000786: 14,2364           00051                                    S1                                    
032913,000787: 14,2365           00006                                    6                                     
032914,000788: 14,2366           00052                                    S2                                    
032915,000789: 14,2367           00006                                    6                                     
032916,000790: 14,2370           52100        PIC1               TIX,1    GOTO                                  #  MAJOR STAR
032917,000791: 14,2371           30373                                    PIC2                                  
032918,000792: 14,2372           30522                                    PICEND                                
032919,000793: 14,2373           45173        PIC2               VLOAD*   CALL                                  
032920,000794: 14,2374           31761                                    CATLOG,1                              
032921,000795: 14,2375           30466                                    OCCULT                                
032922,000796: 14,2376           73014                           BON      LXA,2                                 
032923,000797: 14,2377           01710                                    CULTFLAG                              
032924,000798: 14,2400           30370                                    PIC1                                  
032925,000799: 14,2401           00046                                    X1                                    
032926,000800: 14,2402           52104        PIC3               TIX,2    GOTO                                  
032927,000801: 14,2403           30405                                    PIC4                                  
032928,000802: 14,2404           30370                                    PIC1                                  
032929,000803: 14,2405           45173        PIC4               VLOAD*   CALL                                  
032930,000804: 14,2406           46016                                    CATLOG,2                              
032931,000805: 14,2407           30466                                    OCCULT                                
032932,000806: 14,2410           76614                           BON      VLOAD*                                
032933,000807: 14,2411           01710                                    CULTFLAG                              
032934,000808: 14,2412           30402                                    PIC3                                  
032935,000809: 14,2413           31761                                    CATLOG,1                              
032936,000810: 14,2414           45237                           DOT*     DSU                                   
032937,000811: 14,2415           46016                                    CATLOG,2                              
032938,000812: 14,2416           30515                                    CSS66                                 #  SEPERATION LESS THAN 66 DEG.
032939,000813: 14,2417           43240                           BMN      DAD                                   
032940,000814: 14,2420           30402                                    PIC3                                  
032941,000815: 14,2421           30517                                    CSS6640                               #  SEPERATION MORE THAN 40 DEG.
032942,000816: 14,2422           77644                           BPL                                            
032943,000817: 14,2423           30402                                    PIC3                                  

Page 754

032945,000819: 14,2424           50373                           VLOAD*   DOT                                   
032946,000820: 14,2425           31761                                    CATLOG,1                              
032947,000821: 14,2426           02760                                    SAX                                   
032948,000822: 14,2427           50025                           DSU      BMN                                   #  MAJOR STAR IN CONE
032949,000823: 14,2430           30521                                    CSS33                                 
032950,000824: 14,2431           30370                                    PIC1                                  
032951,000825: 14,2432           50373                           VLOAD*   DOT                                   
032952,000826: 14,2433           46016                                    CATLOG,2                              
032953,000827: 14,2434           02760                                    SAX                                   
032954,000828: 14,2435           51025                           DSU      BPL                                   
032955,000829: 14,2436           30521                                    CSS33                                 
032956,000830: 14,2437           30442                                    STRATGY                               
032957,000831: 14,2440           77650                           GOTO                                           
032958,000832: 14,2441           30402                                    PIC3                                  
032959,000833: 14,2442           77614        STRATGY            BONCLR                                         
032960,000834: 14,2443           01605                                    VFLAG                                 
032961,000835: 14,2444           30461                                    NEWPAR                                
032962,000836: 14,2445           65120                           XCHX,1   XCHX,2                                
032963,000837: 14,2446           00302                                    BESTI                                 
032964,000838: 14,2447           00303                                    BESTJ                                 
032965,000839: 14,2450           47773        STRAT              VLOAD*   DOT*                                  
032966,000840: 14,2451           31761                                    CATLOG,1                              
032967,000841: 14,2452           46016                                    CATLOG,2                              
032968,000842: 14,2453           43006                           PUSH     BOFINV                                
032969,000843: 14,2454           01545                                    VFLAG                                 
032970,000844: 14,2455           30445                                    STRAT      -3                         
032971,000845: 14,2456           45345                           DLOAD    DSU                                   
032972,000846: 14,2457           77644                           BPL                                            
032973,000847: 14,2460           30402                                    PIC3                                  
032974,000848: 14,2461           67130        NEWPAR             SXA,1    SXA,2                                 
032975,000849: 14,2462           00302                                    BESTI                                 
032976,000850: 14,2463           00303                                    BESTJ                                 
032977,000851: 14,2464           77650                           GOTO                                           
032978,000852: 14,2465           30402                                    PIC3                                  
032979,000853: 14,2466           51321        OCCULT             MXV      BVSU                                  
032980,000854: 14,2467           02736                                    CULTRIX                               
032981,000855: 14,2470           00017                                    CSS                                   
032982,000856: 14,2471           77654                           BZE                                            
032983,000857: 14,2472           30505                                    CULTED                                
032984,000858: 14,2473           75240                           BMN      SIGN                                  
032985,000859: 14,2474           30505                                    CULTED                                
032986,000860: 14,2475           00160                                    MPAC       +3                         
032987,000861: 14,2476           75240                           BMN      SIGN                                  
032988,000862: 14,2477           30505                                    CULTED                                
032989,000863: 14,2500           00162                                    MPAC       +5                         
032990,000864: 14,2501           43040                           BMN      CLRGO                                 
032991,000865: 14,2502           30505                                    CULTED                                
032992,000866: 14,2503           01630                                    CULTFLAG                              
032993,000867: 14,2504           00052                                    QPRET                                 
032994,000868: 14,2505           77614        CULTED             SETGO                                          

Page 755

032996,000870: 14,2506           01430                                    CULTFLAG                              
032997,000871: 14,2507           00052                                    QPRET                                 
032998,000872: 14,2510  0000016               CSS                =        CEARTH                                
032999,000873: 14,2510           21150 25157  SIN33              2DEC     .5376381241                            
033000,000874: 
033001,000875: 14,2512           32766 22713  COS33              2DEC     .8431756920                            
033002,000876: 
033003,000877: 14,2514           01736 35137  CSS66              2DEC     .060480472                            #  (COS76)/4
033004,000878: 
033005,000879: 14,2516           73003 65403  CSS6640            2DEC     -.15602587                            #  (COS76 - COS30)/4
033006,000880: 
033007,000881: 14,2520           06233 26112  CSS33              2DEC     .197002688                            #  COS(1/2(76))/4
033008,000882: 
033009,000883: 14,2522           77414        PICEND             BOFF     EXIT                                  
033010,000884: 14,2523           01745                                    VFLAG                                 
033011,000885: 14,2524           30526                                    PICGXT                                
033012,000886: 14,2525           02530                           TC       PICBXT                                
033013,000887: 14,2526           77776        PICGXT             EXIT                                           
033014,000888: 14,2527           25777                           INCR     QMIN                                  
033015,000889: 14,2530           31777        PICBXT             CA       QMIN                                  
033016,000890: 14,2531           04666                           TC       SWCALL                                
033017,000891:                                                                                                  # V1             =       12D
033018,000892: 

Page 756

033020,000894:                                                                                                  #  NAME - R51    FINE ALIGN
033021,000895:                                                                                                  #  FUNCTION - TO ALIGN THE STABLE MEMBER TO REFSMMAT
033022,000896:                                                                                                  #  CALLING SEQ - CALL R51
033023,000897:                                                                                                  #  INPUT - BESTI, BESTJ (PAIR OF STAR NO)
033024,000898:                                                                                                  #  OUTPUT - GYRO TORQUE PULSES
033025,000899:                                                                                                  #  SUBROUTINES - R52, R54, R55 (SXTNB, NBSM, AXISGEN
033026,000900: 
033027,000901: 14,2532                                           COUNT    14/R51                                
033028,000902: 
033029,000903: 14,2532           77776        R51                EXIT                                           
033030,000904: 14,2533           35017                           CAF      BIT1                                  
033031,000905: 14,2534           54304                           TS       STARIND                               
033032,000906: 14,2535           54301                           TS       MARKINDX                              
033033,000907: 14,2536           06006        R51.2              TC       INTPRET                               
033034,000908: 14,2537           43014        R51.3              CLEAR    CLEAR                                 
033035,000909: 14,2540           00666                                    TARG2FLG                              
033036,000910: 14,2541           00665                                    TARG1FLG                              
033037,000911: 14,2542           77776                           EXIT                                           
033038,000912: 14,2543           05412                           TC       PHASCHNG                              
033039,000913: 14,2544           05024                           OCT      05024                                 #  RESTART GR 4 FOR R52-R53
033040,000914: 14,2545           13000                           OCT      13000                                 
033041,000915: 14,2546           50304                           INDEX    STARIND                               
033042,000916: 14,2547           30302                           CA       BESTI                                 
033043,000917: 14,2550           00006                           EXTEND                                         
033044,000918: 14,2551           72713                           MP       1/6TH                                 
033045,000919: 14,2552           54735                           TS       STARCODE                              
033046,000920: 14,2553           32712        R51DSP             CAF      V01N70                                
033047,000921: 14,2554           04662                           TC       BANKCALL                              
033048,000922: 14,2555           21057                           CADR     GOFLASHR                              
033049,000923: 14,2556           04106                           TC       GOTOPOOH                              
033050,000924: 14,2557           02564                           TC       +5                                    
033051,000925: 14,2560           02553                           TC       -5                                    
033052,000926: 14,2561           36211                           CAF      SIX                                   
033053,000927: 14,2562           05526                           TC       BLANKET                               
033054,000928: 14,2563           15217                           TCF      ENDOFJOB                              
033055,000929: 14,2564           03366                           TC       CHKSCODE                              
033056,000930: 14,2565           04400                           TC       FALTON                                
033057,000931: 14,2566           02553                           TC       R51DSP                                
033058,000932: 14,2567           06006                           TC       INTPRET                               
033059,000933: 14,2570           45034                           RTB      CALL                                  
033060,000934: 14,2571           45510                                    LOADTIME                              
033061,000935: 14,2572           32340                                    PLANET                                
033062,000936: 14,2573           72131                           SSP      LXA,1                                 
033063,000937: 14,2574           00051                                    S1                                    
033064,000938: 14,2575           00000                                    0                                     
033065,000939: 14,2576           00304                                    STARIND                               
033066,000940: 14,2577           77700                           TIX,1                                          
033067,000941: 14,2600           30603                                    R51ST                                 
033068,000942: 14,2601           36617                           STCALL   STARSAV2                              #  2ND STAR
033069,000943: 14,2602           30604                                    R51ST      +1                         
033070,000944: 14,2603           02611        R51ST              STORE    STARSAV1                              #  1ST STAR

Page 757

033072,000946: 14,2604           77776                           EXIT                                           
033073,000947: 14,2605           41011                           CS       MODREG                                #  IS THIS P54
033074,000948: 14,2606           62711                           AD       OCT66                                 
033075,000949: 14,2607           00006                           EXTEND                                         
033076,000950: 14,2610           12704                           BZF      R51B                                  #  YES
033077,000951: 14,2611           06006                           TC       INTPRET                               
033078,000952: 14,2612           77624                           CALL                                           
033079,000953: 14,2613           30011                                    R52                                   #  AOP WILL MAKE CALLS TO SIGHTING
033080,000954: 14,2614           77624        R51A               CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
033081,000955: 14,2615           36022                                    SXTSM                                 
033082,000956: 14,2616           02617                           STORE    STARSAV2                              
033083,000957: 14,2617           77776                           EXIT                                           
033084,000958: 14,2620           04662                           TC       BANKCALL                              
033085,000959: 14,2621           16063                           CADR     MKRELEAS                              
033086,000960: 14,2622           06006                           TC       INTPRET                               
033087,000961: 14,2623           45145                           DLOAD    CALL                                  
033088,000962: 14,2624           02607                                    TSIGHT                                
033089,000963: 14,2625           32340                                    PLANET                                
033090,000964: 14,2626           77776                           EXIT                                           
033091,000965: 14,2627           10304                           CCS      STARIND                               
033092,000966: 14,2630           02671                           TC       R51.4                                 
033093,000967: 14,2631           06006                           TC       INTPRET                               
033094,000968: 14,2632           53521                           MXV      UNIT                                  
033095,000969: 14,2633           01736                                    REFSMMAT                              
033096,000970: 14,2634           02736                           STORE    STARAD                                
033097,000971: 14,2635           77775                           VLOAD                                          
033098,000972: 14,2636           02617                                    STARSAV2                              
033099,000973: 14,2637           24007                           STOVL    6D                                    
033100,000974: 14,2640           02611                                    STARSAV1                              
033101,000975: 14,2641           24015                           STOVL    12D                                   
033102,000976: 14,2642           02601                                    PLANVEC                               
033103,000977: 14,2643           36744                           STCALL   STARAD     +6                         
033104,000978: 14,2644           30714                                    R54                                   #  STAR DATA TEST
033105,000979: 14,2645           45014                           BOFF     CALL                                  
033106,000980: 14,2646           00354                                    FREEFLAG                              
033107,000981: 14,2647           30655                                    R51K                                  
033108,000982: 14,2650           47401                                    AXISGEN                               
033109,000983: 14,2651           77624                           CALL                                           
033110,000984: 14,2652           32271                                    R55                                   #  GYRO TORQUE
033111,000985: 14,2653           77614                           CLEAR                                          
033112,000986: 14,2654           01273                                    PFRATFLG                              
033113,000987: 14,2655           77776        R51K               EXIT                                           
033114,000988: 14,2656           35771                           CAF      OCT14                                 
033115,000989: 14,2657           04662                           TC       BANKCALL                              
033116,000990: 14,2660           21045                           CADR     GOPERF1                               
033117,000991: 14,2661           04106                           TC       GOTOPOOH                              
033118,000992: 14,2662           02664                           TC       +2                                    #  V33
033119,000993: 14,2663           02666                           TC       +3                                    
033120,000994: 14,2664           04662                           TC       BANKCALL                              
033121,000995: 14,2665           32120                           CADR     P52C                                  

Page 758

033123,000997: 14,2666           06006                           TC       INTPRET                               
033124,000998: 14,2667           77650                           GOTO                                           
033125,000999: 14,2670           32145                                    ENDP50S                               
033126,001000: 14,2671           06006        R51.4              TC       INTPRET                               
033127,001001: 14,2672           53521                           MXV      UNIT                                  
033128,001002: 14,2673           01736                                    REFSMMAT                              
033129,001003: 14,2674           26601                           STOVL    PLANVEC                               
033130,001004: 14,2675           02617                                    STARSAV2                              
033131,001005: 14,2676           02611                           STORE    STARSAV1                              
033132,001006: 14,2677           77731                           SSP                                            
033133,001007: 14,2700           00305                                    STARIND                               
033134,001008: 14,2701           00000                                    0                                     
033135,001009: 14,2702           77650                           GOTO                                           
033136,001010: 14,2703           30537                                    R51.3                                 
033137,001011: 14,2704           06006        R51B               TC       INTPRET                               
033138,001012: 14,2705           77624                           CALL                                           
033139,001013: 14,2706           36056                                    R56                                   
033140,001014: 14,2707           77650                           GOTO                                           
033141,001015: 14,2710           30614                                    R51A                                  
033142,001016: 14,2711           00066        OCT66              OCT      00066                                 
033143,001017: 14,2712           00306        V01N70             VN       0170                                  
033144,001018: 14,2713           05253        1/6TH              DEC      .1666667                              
033145,001019: 

Page 759

033147,001021:                                                                                                  #  NAME-R55      GYRO TORQUE
033148,001022:                                                                                                  #  FUNCTION - COMPUTE AND SEND GYRO PULSES
033149,001023:                                                                                                  #  CALLING SEQ - CALL R55
033150,001024:                                                                                                  #  INPUT - X,Y,ZDC - REFSMMAT WRT PRESENT STABLE MEMBER
033151,001025:                                                                                                  #  OUTPUT - GYRO PULSES
033152,001026:                                                                                                  #  SUBROUTINES - CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
033153,001027: 
033154,001028: 15,2000                                           SETLOC   P50S                                  
033155,001029: 15,2000                                           BANK                                           
033156,001030: 15,2271                                           COUNT*   $$/R55                                
033157,001031: 15,2271           77620        R55                STQ                                            
033158,001032: 15,2272           02777                                    QMIN                                  
033159,001033: 15,2273           77624                           CALL                                           
033160,001034: 15,2274           47205                                    CALCGTA                               
033161,001035: 15,2275           77776        PULSEM             EXIT                                           
033162,001036: 15,2276           32322        R55.1              CAF      V06N93                                
033163,001037: 15,2277           04662                           TC       BANKCALL                              
033164,001038: 15,2300           20720                           CADR     GOFLASH                               
033165,001039: 15,2301           04106                           TC       GOTOPOOH                              
033166,001040: 15,2302           02304                           TC       R55.2                                 
033167,001041: 15,2303           02317                           TC       R55RET                                
033168,001042: 15,2304           05412        R55.2              TC       PHASCHNG                              
033169,001043: 15,2305           00314                           OCT      00314                                 
033170,001044: 15,2306           32323                           CA       R55CDR                                
033171,001045: 15,2307           04662                           TC       BANKCALL                              
033172,001046: 15,2310           17206                           CADR     IMUPULSE                              
033173,001047: 15,2311           04662                           TC       BANKCALL                              
033174,001048: 15,2312           17577                           CADR     IMUSTALL                              
033175,001049: 15,2313           05757                           TC       CURTAINS                              
033176,001050: 15,2314           05412                           TC       PHASCHNG                              
033177,001051: 15,2315           05024                           OCT      05024                                 
033178,001052: 15,2316           13000                           OCT      13000                                 
033179,001053: 15,2317           06006        R55RET             TC       INTPRET                               
033180,001054: 15,2320           77650                           GOTO                                           
033181,001055: 15,2321           02777                                    QMIN                                  
033182,001056: 15,2322           01535        V06N93             VN       0693                                  
033183,001057: 15,2323           02757        R55CDR             ECADR    OGC                                   
033184,001058: 15,2324  14,2714               R54                =        CHKSDATA                              
033185,001059: 
033186,001060:                                                                                                  #  ROUTINE NAME - CHKSDATA               DATE - JAN 9, 1967
033187,001061:                                                                                                  #  MOD NO - 0                            LOG SECTION - P51-P53
033188,001062:                                                                                                  #  MODIFICATION BY - LONSKE              ASSEMBLY -
033189,001063: 
033190,001064:                                                                                                  #  FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS.  WHEN A PAIR OF STAR SIGHTINGS ARE MADE
033191,001065:                                                                                                  #  BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
033192,001066:                                                                                                  #  COMPUTER TO INSURE A PROPER SIGHTING WAS MADE.  THE FOLLOWING COMPUTATIONS ARE PERFORMED_
033193,001067:                                                                                                  #        OS1     =       OBSERVED STAR 1 VECTOR
033194,001068:                                                                                                  #        OS2     =       OBSERVED STAR 2 VECTOR
033195,001069:                                                                                                  #        SS1     =       STORED STAR 1 VECTOR
033196,001070:                                                                                                  #        SS2     =       STORED STAR 2 VECTOR
033197,001071:                                                                                                  #         A1     =       ARCCOS(OS1 - OS2)

Page 760

033199,001073:                                                                                                  #         A2     =       ARCCOS(SS1 - SS2)
033200,001074:                                                                                                  #          A     =       ABS(2(A1 - A2))
033201,001075: 
033202,001076:                                                                                                  #  THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTENCE
033203,001077: 
033204,001078:                                                                                                  #  EXIT MODE     1. FREEFLAG SET IMPLIES ASTRONAUT WANTS TO PROCEED
033205,001079:                                                                                                  #                2. FREEFLAG RESET IMPLIES ASTRONAUT WANTS TO RECYCLE             ERANCE)
033206,001080: 
033207,001081:                                                                                                  #  OUTPUT -      1. VERB 6,NOUN 3 - DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
033208,001082:                                                                                                  #                2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
033209,001083: 
033210,001084:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
033211,001085:                                                                                                  #                1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
033212,001086:                                                                                                  #                2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
033213,001087: 
033214,001088:                                                                                                  #  DEBRIS -
033215,001089: 
033216,001090: 14,2000                                           SETLOC   P50S1                                 
033217,001091: 14,2000                                           BANK                                           
033218,001092: 14,2714                                           COUNT*   $$/R50                                
033219,001093: 14,2714           43020        CHKSDATA           STQ      SET                                   
033220,001094: 14,2715           02777                                    QMIN                                  
033221,001095: 14,2716           00074                                    FREEFLAG                              
033222,001096: 14,2717           77760        CHKSAB             AXC,1                                          #  SET X1 TO STORE EPHEMERIS DATA
033223,001097: 14,2720           02735                                    STARAD                                
033224,001098: 
033225,001099: 14,2721           47773        CHKSB              VLOAD*   DOT*                                  #  CAL. ANGLE THETA
033226,001100: 14,2722           00001                                    0,1                                   
033227,001101: 14,2723           00007                                    6,1                                   
033228,001102: 14,2724           65552                           SL1      ACOS                                  
033229,001103: 14,2725           00025                           STORE    THETA                                 
033230,001104: 14,2726           43014                           BOFF     INVERT                                #  BRANCH TO CHKSD IF THIS IS 2ND PASS
033231,001105: 14,2727           00354                                    FREEFLAG                              
033232,001106: 14,2730           30740                                    CHKSD                                 
033233,001107: 14,2731           00174                                    FREEFLAG                              #  CLEAR FREEFLAG
033234,001108: 14,2732           71360                           AXC,1    DLOAD                                 #  SET X1 TO MARK ANGLES
033235,001109: 14,2733           00006                                    6D                                    
033236,001110: 14,2734           00025                                    THETA                                 
033237,001111: 14,2735           00023                           STORE    18D                                   
033238,001112: 14,2736           77650                           GOTO                                           
033239,001113: 14,2737           30721                                    CHKSB                                 #  RETURN TO CAL. 2ND ANGLE
033240,001114: 14,2740           45345        CHKSD              DLOAD    DSU                                   
033241,001115: 14,2741           00025                                    THETA                                 #  COMPUTE POS DIFF
033242,001116: 14,2742           00023                                    18D                                   
033243,001117: 14,2743           47046                           ABS      RTB                                   
033244,001118: 14,2744           45544                                    SGNAGREE                              
033245,001119: 14,2745           01046                           STORE    NORMTEM1                              
033246,001120: 14,2746           77414                           SET      EXIT                                  
033247,001121: 14,2747           00074                                    FREEFLAG                              
033248,001122: 14,2750           35021                           CAF      ZERO                                  
033249,001123: 14,2751           04662                           TC       BANKCALL                              
033250,001124: 14,2752           20703                           CADR     CLEANDSP                              
033251,001125: 
033252,001126: 14,2753           32767                           CAF      VB6N5                                 

Page 761

033254,001128: 14,2754           04662                           TC       BANKCALL                              
033255,001129: 14,2755           20720                           CADR     GOFLASH                               
033256,001130: 14,2756           14106                           TCF      GOTOPOOH                              
033257,001131: 14,2757           02764                           TC       CHKSDA                                #  PROCEED
033258,001132: 14,2760           06006                           TC       INTPRET                               
033259,001133: 14,2761           52014                           CLEAR    GOTO                                  
033260,001134: 14,2762           00274                                    FREEFLAG                              
033261,001135: 14,2763           02777                                    QMIN                                  
033262,001136: 14,2764           06006        CHKSDA             TC       INTPRET                               
033263,001137: 14,2765           77650                           GOTO                                           
033264,001138: 14,2766           02777                                    QMIN                                  
033265,001139: 14,2767           01405        VB6N5              VN       605                                   
033266,001140: 
033267,001141:                                                                                                  #  NAME - CAL53A
033268,001142:                                                                                                  #  NAME - CAL53A
033269,001143:                                                                                                  #  FUNCTION - COARSE ALIGN THE IMU, IF NECESSARY. 
033270,001144:                                                                                                  #  CALLING SEQUENCE - CALL CAL53A
033271,001145:                                                                                                  #  INPUT - PRESENT GIMBAL ANGLES - CDUX, CDUY, CDUZ
033272,001146:                                                                                                  #           DESIRED GIMBAL ANGLES - THETAD,+1,+2
033273,001147:                                                                                                  #  OUTPUT - THE IMU COORDINATES ARE STORED IN REFSMMAT
033274,001148:                                                                                                  #  SUBROUTINES USED - 1.IMUCOARS  2.IMUSTALL  3.CURTAINS
033275,001149: 
033276,001150: 14,2770                                           COUNT    14/R50                                
033277,001151: 
033278,001152: 14,2770           77624        CAL53A             CALL                                           
033279,001153: 14,2771           22331                                    S52.2                                 #  MAKE FINAL COMP OF GIMBAL ANGLES
033280,001154: 14,2772           66234                           RTB      SSP                                   
033281,001155: 14,2773           32324                                    RDCDUS                                #  READ CDUS
033282,001156: 14,2774           00051                                    S1                                    
033283,001157: 14,2775           00001                                    1                                     
033284,001158: 14,2776           40370                           AXT,1    SETPD                                 
033285,001159: 14,2777           00003                                    3                                     
033286,001160: 14,3000           00005                                    4                                     
033287,001161: 14,3001           70543        CALOOP             DLOAD*   SR1                                   
033288,001162: 14,3002           01161                                    THETAD     +3D,1                      
033289,001163: 14,3003           70523                           PDDL*    SR1                                   
033290,001164: 14,3004           00005                                    4,1                                   
033291,001165: 14,3005           51425                           DSU      ABS                                   
033292,001166: 14,3006           45206                           PUSH     DSU                                   
033293,001167: 14,3007           31066                                    DEGREE1                               
033294,001168: 14,3010           71240                           BMN      DLOAD                                 
033295,001169: 14,3011           31042                                    CALOOP1                               
033296,001170: 14,3012           51025                           DSU      BPL                                   
033297,001171: 14,3013           31067                                    DEG359                                
033298,001172: 14,3014           31042                                    CALOOP1                               
033299,001173: 14,3015           77776        COARFINE           EXIT                                           
033300,001174: 14,3016           05412                           TC       PHASCHNG                              
033301,001175: 14,3017           04024                           OCT      04024                                 
033302,001176: 14,3020           04662                           TC       BANKCALL                              
033303,001177: 14,3021           16663                           CADR     IMUCOARS                              #  PERFORM COARSE ALIGNMENT
033304,001178: 14,3022           04662                           TC       BANKCALL                              
033305,001179: 14,3023           17577                           CADR     IMUSTALL                              #  REQUEST MODE SWITCH

Page 762

033307,001181: 14,3024           05757                           TC       CURTAINS                              
033308,001182: 14,3025           04662                           TC       BANKCALL                              
033309,001183: 14,3026           17073                           CADR     IMUFIN20                              
033310,001184: 14,3027           04662                           TC       BANKCALL                              
033311,001185: 14,3030           17577                           CADR     IMUSTALL                              
033312,001186: 14,3031           05757                           TC       CURTAINS                              #  TEST FOR MALFUNCTION
033313,001187: 14,3032           06006                           TC       INTPRET                               
033314,001188: 14,3033           77234                           RTB      VLOAD                                 
033315,001189: 14,3034           31275                                    SET1/PDT                              
033316,001190: 14,3035           11566                                    ZEROVEC                               
033317,001191: 14,3036           01472                           STORE    GCOMP                                 
033318,001192: 14,3037           52014                           SET      GOTO                                  
033319,001193: 14,3040           01060                                    DRIFTFLG                              
033320,001194: 14,3041           31044                                    FINEONLY                              
033321,001195: 14,3042           77700        CALOOP1            TIX,1                                          
033322,001196: 14,3043           31001                                    CALOOP                                
033323,001197: 14,3044           75160        FINEONLY           AXC,1    AXC,2                                 
033324,001198: 14,3045           02671                                    XSM                                   
033325,001199: 14,3046           01735                                    REFSMMAT                              
033326,001200: 14,3047           77624                           CALL                                           
033327,001201: 14,3050           31053                                    MATMOVE                               
033328,001202: 14,3051           77650                           GOTO                                           
033329,001203: 14,3052           32116                                    CAL53RET                              
033330,001204: 14,3053           77773        MATMOVE            VLOAD*                                         #  TRANSFER MATRIX
033331,001205: 14,3054           00001                                    0,1                                   
033332,001206: 14,3055           10001                           STORE    0,2                                   
033333,001207: 14,3056           77773                           VLOAD*                                         
033334,001208: 14,3057           00007                                    6D,1                                  
033335,001209: 14,3060           10007                           STORE    6D,2                                  
033336,001210: 14,3061           77773                           VLOAD*                                         
033337,001211: 14,3062           00015                                    12D,1                                 
033338,001212: 14,3063           10015                           STORE    12D,2                                 
033339,001213: 14,3064           77616                           RVQ                                            
033340,001214: 14,3065           00056        DEGREE1            DEC      46         B-14                       
033341,001215: 14,3066           37722        DEG359             DEC      16338      B-14                       
033342,001216: 15,2000                                           SETLOC   P50S                                  
033343,001217: 15,2000                                           BANK                                           
033344,001218: 15,2324           00004        RDCDUS             INHINT                                         #  READ CDUS
033345,001219: 15,2325           30032                           CA       CDUX                                  
033346,001220: 15,2326           50120                           INDEX    FIXLOC                                
033347,001221: 15,2327           54001                           TS       1                                     
033348,001222: 15,2330           30033                           CA       CDUY                                  
033349,001223: 15,2331           50120                           INDEX    FIXLOC                                
033350,001224: 15,2332           54002                           TS       2                                     
033351,001225: 15,2333           30034                           CA       CDUZ                                  
033352,001226: 15,2334           50120                           INDEX    FIXLOC                                
033353,001227: 15,2335           54003                           TS       3                                     
033354,001228: 15,2336           00003                           RELINT                                         
033355,001229: 15,2337           06030                           TC       DANZIG                                #                                                                        +
033356,001230: 
033357,001231: 
033358,001232:                                                                                                  #  NAME - GIMB

Page 763

033360,001234: 
033361,001235:                                                                                                  #  FUNCTION - DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED         FOR COARSE ALIGNMENT.
033362,001236: 
033363,001237:                                                                                                  #  CALLING SEQUENCE - CALL GIMB
033364,001238: 
033365,001239:                                                                                                  #  INPUT - DESIRED IMU INERTIAL ORIENTATION VECTORS-XSMD, YSMD, ZSMD
033366,001240: 
033367,001241:                                                                                                  #  OUTPUT -GIMBAL ANGLES LEFT IN THETAD, +1, +2                         +
033368,001242: 
033369,001243:                                                                                                  #  SUBROUTINES USED - 1.CDUTRIG 2.CALCSMSC 3.CALCGA
033370,001244: 
033371,001245: 16,2000                                           SETLOC   P50S2                                 
033372,001246: 16,2000                                           BANK                                           
033373,001247: 16,2612                                           COUNT    14/INFLT                              
033374,001248: 
033375,001249: 16,2612           41345        CALCSMSC           DLOAD    DMP                                   
033376,001250: 16,2613           00737                                    SINCDUY                               
033377,001251: 16,2614           00747                                    COSCDUZ                               
033378,001252: 16,2615           77676                           DCOMP                                          
033379,001253: 16,2616           70525                           PDDL     SR1                                   
033380,001254: 16,2617           00741                                    SINCDUZ                               
033381,001255: 16,2620           41325                           PDDL     DMP                                   
033382,001256: 16,2621           00745                                    COSCDUY                               
033383,001257: 16,2622           00747                                    COSCDUZ                               
033384,001258: 16,2623           76466                           VDEF     VSL1                                  
033385,001259: 16,2624           02714                           STORE    XNB                                   
033386,001260: 16,2625           41345                           DLOAD    DMP                                   
033387,001261: 16,2626           00743                                    SINCDUX                               
033388,001262: 16,2627           00741                                    SINCDUZ                               
033389,001263: 16,2630           77752                           SL1                                            
033390,001264: 16,2631           00033                           STORE    26D                                   
033391,001265: 16,2632           77605                           DMP                                            
033392,001266: 16,2633           00737                                    SINCDUY                               
033393,001267: 16,2634           41325                           PDDL     DMP                                   
033394,001268: 16,2635           00751                                    COSCDUX                               
033395,001269: 16,2636           00745                                    COSCDUY                               
033396,001270: 16,2637           77625                           DSU                                            
033397,001271: 16,2640           41325                           PDDL     DMP                                   
033398,001272: 16,2641           00743                                    SINCDUX                               
033399,001273: 16,2642           00747                                    COSCDUZ                               
033400,001274: 16,2643           77676                           DCOMP                                          
033401,001275: 16,2644           41325                           PDDL     DMP                                   
033402,001276: 16,2645           00751                                    COSCDUX                               
033403,001277: 16,2646           00737                                    SINCDUY                               
033404,001278: 16,2647           41325                           PDDL     DMP                                   
033405,001279: 16,2650           00745                                    COSCDUY                               
033406,001280: 16,2651           00033                                    26D                                   
033407,001281: 16,2652           55415                           DAD      VDEF                                  
033408,001282: 16,2653           77772                           VSL1                                           
033409,001283: 16,2654           02730                           STORE    ZNB                                   
033410,001284: 16,2655           76435                           VXV      VSL1                                  
033411,001285: 16,2656           02714                                    XNB                                   
033412,001286: 16,2657           02722                           STORE    YNB                                   
033413,001287: 16,2660           77616                           RVQ                                            
033414,001288: 
033415,001289:                                                                                                  #  NAME - P51 - IMU ORIENTATION DETERMINATION
033416,001290:                                                                                                  #  MOD. NO. 2    21 DEC 66                               LOG SECTION - P51-P53

Page 764

033418,001292:                                                                                                  #  MOD BY STURLAUGSON                                    ASSEMBLY SUNDISK REV15
033419,001293: 
033420,001294:                                                                                                  #  FUNCTIONAL DESCRIPTION
033421,001295:                                                                                                  #        DETERMINES THE INERTIAL ORIENTATION OF THE IMU.  THE PROGRAM IS SELECTED BY DSKY ENTRY.  THE SIGHTING
033422,001296:                                                                                                  #        ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR.  THE DATA IS
033423,001297:                                                                                                  #        THEN PROCESSED AS FOLLOWS.
033424,001298: 
033425,001299:                                                                                                  #        1.  SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGATIONAL BASE COORDINATES.  LET SA AND TA BE THE SHAFT AND
033426,001300:                                                                                                  #        TRUNNION ANGLES, RESPECTIVELY.  THEN,
033427,001301:                                                                                                  #        -
033428,001302:                                                                                                  #        V  = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA))        (A COLUMN VECTOR)
033429,001303:                                                                                                  #         NB
033430,001304:                                                                                                  #        THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
033431,001305: 
033432,001306:                                                                                                  #        2.  THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
033433,001307:                                                                                                  #        -    T  T  T -
033434,001308:                                                                                                  #        V = Q *Q *Q *V  ,       WHERE
033435,001309:                                                                                                  #             1  2  3  NB
033436,001310: 
033437,001311:                                                                                                  #             ( COS(IG)   0    -SIN(IG) )
033438,001312:                                                                                                  #             (                         )                                        THE GIMBAL ANGLES ARE COMPUTED FROM
033439,001313:                                                                                                  #        Q  = (   0       1       0     ), IG= INNER GIMBAL ANGLE                THE CDU COUNTERS AT NBSM (USING AXIS-
033440,001314:                                                                                                  #         1   (                         )                                        ROT AND CDULOGIC)
033441,001315:                                                                                                  #             ( SIN(IG)   0     COS(IG) )
033442,001316: 
033443,001317:                                                                                                  #             ( COS(MG) SIN(MG)   0     )
033444,001318:                                                                                                  #             (                         )
033445,001319:                                                                                                  #        Q  = (-SIN(MG) COS(MG)   0     ), MG= MIDDLE GIMBAL ANGLE
033446,001320:                                                                                                  #         2   (                         )
033447,001321:                                                                                                  #             (   0       0       1     )
033448,001322: 
033449,001323:                                                                                                  #             (   1       0       0     )
033450,001324:                                                                                                  #             (                         )
033451,001325:                                                                                                  #        Q  = (   0     COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
033452,001326:                                                                                                  #         3   (                         )
033453,001327:                                                                                                  #             (   0    -SIN(OG) COS(OG) )
033454,001328: 
033455,001329:                                                                                                  #        3.  THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
033456,001330: 
033457,001331:                                                                                                  #        4.  THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
033458,001332: 
033459,001333:                                                                                                  #        5.  REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
033460,001334:                                                                                                  #                    -      -
033461,001335:                                                                                                  #                LET S  AND S  BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).
033462,001336:                                                                                                  #                     1      2

Page 765

033464,001338:                                                                                                  #                DEFINE, -    -
033465,001339:                                                                                                  #                        U  = S
033466,001340:                                                                                                  #                         A    A1
033467,001341:                                                                                                  #                        -         -    -
033468,001342:                                                                                                  #                        V  = UNIT(S  X S  )
033469,001343:                                                                                                  #                         A         A1   A2
033470,001344:                                                                                                  #                        -    -   -
033471,001345:                                                                                                  #                        W  = U X V
033472,001346:                                                                                                  #                         A    A   A
033473,001347: 
033474,001348:                                                                                                  #                AND
033475,001349:                                                                                                  #                        -    -
033476,001350:                                                                                                  #                        U  = S
033477,001351:                                                                                                  #                         B    B1
033478,001352:                                                                                                  #                        -         -    -
033479,001353:                                                                                                  #                        V  = UNIT(S  X S  )
033480,001354:                                                                                                  #                         B         B1   B2
033481,001355:                                                                                                  #                        -    -   -
033482,001356:                                                                                                  #                        W  = U X V
033483,001357:                                                                                                  #                         B    B   B
033484,001358: 
033485,001359:                                                                                                  #                THEN    -        -       -       -
033486,001360:                                                                                                  #                        X  = U  *U + V  *V + W  *W
033487,001361:                                                                                                  #                              B1  A   B1  A   B1  A
033488,001362:                                                                                                  #                        -        -       -       -              (REFSMMAT)
033489,001363:                                                                                                  #                        Y  = U  *U + V  *V + W  *W
033490,001364:                                                                                                  #                              B2  A   B2  A   B2  A
033491,001365:                                                                                                  #                        -        -       -       -
033492,001366:                                                                                                  #                        Z  = U  *U + V  *V + W  *W
033493,001367:                                                                                                  #                              B3  A   B3  A   B3  A
033494,001368: 
033495,001369:                                                                                                  #  THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
033496,001370:                                                                                                  #                        -
033497,001371:                                                                                                  #                        S   IN 6-11 OF THE VAC AREA
033498,001372:                                                                                                  #                         A1
033499,001373:                                                                                                  #                        -
033500,001374:                                                                                                  #                        S   IN 12-17 OF THE VAC AREA
033501,001375:                                                                                                  #                         A2
033502,001376:                                                                                                  #                        -
033503,001377:                                                                                                  #                        S   IN STARAD
033504,001378:                                                                                                  #                         B1

Page 766

033506,001380:                                                                                                  #                        -
033507,001381:                                                                                                  #                        S   IN STARAD +6
033508,001382:                                                                                                  #                         B2
033509,001383: 
033510,001384:                                                                                                  #  CALLING SEQUENCE
033511,001385: 
033512,001386:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
033513,001387: 
033514,001388:                                                                                                  #  SUBROUTINES CALLED.
033515,001389: 
033516,001390:                                                                                                  #        GOPERF3
033517,001391:                                                                                                  #        GOPERF1R
033518,001392:                                                                                                  #        GODSPR
033519,001393:                                                                                                  #        IMUCOARS
033520,001394:                                                                                                  #        IMUFIN20
033521,001395:                                                                                                  #        R53
033522,001396:                                                                                                  #        SXTNB
033523,001397:                                                                                                  #        NBSM
033524,001398:                                                                                                  #        MKRELEAS
033525,001399:                                                                                                  #        CHKSDATA
033526,001400:                                                                                                  #        MATMOVE
033527,001401: 
033528,001402:                                                                                                  #  ALARMS
033529,001403: 
033530,001404:                                                                                                  #        NONE.
033531,001405: 
033532,001406:                                                                                                  #  ERASABLE INITIALIZATION
033533,001407: 
033534,001408:                                                                                                  #        IMU ZERO FLAG SHOULD BE SET.
033535,001409: 
033536,001410:                                                                                                  #  OUTPUT
033537,001411: 
033538,001412:                                                                                                  #        REFSMMAT
033539,001413:                                                                                                  #        REFSMFLG
033540,001414: 
033541,001415:                                                                                                  #  DEBRIS
033542,001416: 
033543,001417:                                                                                                  #        WORK AREA
033544,001418:                                                                                                  #        STARAD
033545,001419:                                                                                                  #        STARIND
033546,001420:                                                                                                  #        BESTI
033547,001421:                                                                                                  #        BESTJ
033548,001422: 
033549,001423: 14,2000                                           SETLOC   P50S1                                 
033550,001424: 14,2000                                           BANK                                           
033551,001425: 14,3067                                           COUNT    14/P5153                              
033552,001426: 
033553,001427: 14,3067  14,3067               P53                EQUALS   P51                                   
033554,001428: 14,3067           41320        P51                CS       IMODES30                              
033555,001429: 14,3070           75007                           MASK     BIT9                                  
033556,001430: 14,3071           10000                           CCS      A                                     

Page 767

033558,001432: 14,3072           03076                           TC       P51A                                  
033559,001433: 14,3073           05650                           TC       ALARM                                 
033560,001434: 14,3074           00210                           OCT      210                                   
033561,001435: 14,3075           04106                           TC       GOTOPOOH                              
033562,001436: 14,3076           04662        P51A               TC       BANKCALL                              
033563,001437: 14,3077           17667                           CADR     R02ZERO                               
033564,001438: 
033565,001439: 14,3100           35025        P51AA              CAF      PRFMSTAQ                              
033566,001440: 14,3101           04662                           TC       BANKCALL                              
033567,001441: 14,3102           21045                           CADR     GOPERF1                               
033568,001442: 14,3103           04106                           TC       GOTOPOOH                              #  TERM.
033569,001443: 14,3104           03140                           TC       P51B                                  #  V33
033570,001444: 14,3105           05412                           TC       PHASCHNG                              
033571,001445: 14,3106           05024                           OCT      05024                                 
033572,001446: 14,3107           13000                           OCT      13000                                 
033573,001447: 14,3110           35021                           CAF      P51ZERO                               
033574,001448: 14,3111           55155                           TS       THETAD                                #  ZERO THE GIMBALS
033575,001449: 14,3112           55156                           TS       THETAD     +1                         
033576,001450: 14,3113           55157                           TS       THETAD     +2                         
033577,001451: 14,3114           33273                           CAF      V6N22                                 
033578,001452: 14,3115           04662                           TC       BANKCALL                              
033579,001453: 14,3116           20673                           CADR     GODSPRET                              
033580,001454: 14,3117           33274                           CAF      V41K                                  #  NOW DISPLAY COARSE ALIGN VERB 41
033581,001455: 14,3120           04662                           TC       BANKCALL                              
033582,001456: 14,3121           20673                           CADR     GODSPRET                              
033583,001457: 14,3122           04662                           TC       BANKCALL                              
033584,001458: 14,3123           16663                           CADR     IMUCOARS                              
033585,001459: 14,3124           04662                           TC       BANKCALL                              
033586,001460: 14,3125           17577                           CADR     IMUSTALL                              
033587,001461: 14,3126           05757                           TC       CURTAINS                              #  CAGING OR BAD END
033588,001462: 14,3127           04662                           TC       BANKCALL                              #  SCHEDULE IFAILOK AND IMUFINED TASKS, IN 5
033589,001463: 14,3130           17073                           CADR     IMUFIN20                              #  AND 20 SECS. DIRECT RETURN AND NO STALL,
033590,001464: 14,3131           04662                           TC       BANKCALL                              #  IF CAGING, BUT T4 WILL ZERO C/A ENABLE.
033591,001465: 14,3132           17577                           CADR     IMUSTALL                              #  IF PUT TO SLEEP, IMUFINED WILL WAKE US
033592,001466: 14,3133           05757                           TC       CURTAINS                              #  UP.
033593,001467: 14,3134           05412                           TC       PHASCHNG                              
033594,001468: 14,3135           05024                           OCT      05024                                 
033595,001469: 14,3136           13000                           OCT      13000                                 
033596,001470: 14,3137           13100                           TCF      P51AA                                 #  COARSE ALIGN DONE - RECYCLE FOR FINE
033597,001471: 

Page 768

033599,001473:                                                                                                  #  DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
033600,001474: 14,3140           05412        P51B               TC       PHASCHNG                              
033601,001475: 14,3141           00014                           OCT      00014                                 
033602,001476: 14,3142           06006                           TC       INTPRET                               
033603,001477: 14,3143           40331                           SSP      SETPD                                 
033604,001478: 14,3144           00305                                    STARIND                               #  INDEX - STAR 1 OR 2
033605,001479: 14,3145           00000                                    0                                     
033606,001480: 14,3146           00001                                    0                                     
033607,001481: 14,3147           77234                           RTB      VLOAD                                 
033608,001482: 14,3150           31275                                    SET1/PDT                              
033609,001483: 14,3151           11566                                    ZEROVEC                               
033610,001484: 14,3152           01472                           STORE    GCOMP                                 
033611,001485: 14,3153           43014                           SET      CLEAR                                 
033612,001486: 14,3154           01060                                    DRIFTFLG                              #  ENABLE T4 COMPENSATION
033613,001487: 14,3155           00666                                    TARG2FLG                              #  SHOW MARK IS STAR - NOT LANDMARK
033614,001488: 14,3156           77776                           EXIT                                           
033615,001489: 14,3157           35017                           CAF      BIT1                                  
033616,001490: 14,3160           54301                           TS       MARKINDX                              #  INITIALIZE FOR ONE MARK
033617,001491: 
033618,001492: 14,3161           05412        P51C               TC       PHASCHNG                              
033619,001493: 14,3162           05024                           OCT      05024                                 
033620,001494: 14,3163           13000                           OCT      13000                                 
033621,001495: 14,3164           05364                           TC       CHECKMM                               
033622,001496: 14,3165           00065                           MM       53         B-14                       #  BACKUP PROGRAM
033623,001497: 14,3166           13174                           TCF      P51C.1                                #  NOT P53
033624,001498: 14,3167           06006                           TC       INTPRET                               
033625,001499: 14,3170           77624                           CALL                                           
033626,001500: 14,3171           36056                                    R56                                   
033627,001501: 14,3172           77650                           GOTO                                           
033628,001502: 14,3173           31177                                    P51C.2                                
033629,001503: 14,3174           06006        P51C.1             TC       INTPRET                               
033630,001504: 14,3175           77624                           CALL                                           
033631,001505: 14,3176           31300                                    R53                                   #  SIGHTING ROUTINE
033632,001506: 14,3177           77624        P51C.2             CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
033633,001507: 14,3200           36022                                    SXTSM                                 
033634,001508: 14,3201           77606                           PUSH                                           
033635,001509: 14,3202           53135                           SLOAD    BZE                                   
033636,001510: 14,3203           00305                                    STARIND                               
033637,001511: 14,3204           31211                                    P51D                                  
033638,001512: 14,3205           45575                           VLOAD    STADR                                 
033639,001513: 14,3206           75160                           STORE    STARSAV2                              #  DOWNLINK
033640,001514: 14,3207           77650                           GOTO                                           
033641,001515: 14,3210           31217                                    P51E                                  
033642,001516: 14,3211           45575        P51D               VLOAD    STADR                                 
033643,001517: 14,3212           61166                           STODL    STARSAV1                              
033644,001518: 14,3213           02607                                    TSIGHT                                
033645,001519: 14,3214           77624                           CALL                                           
033646,001520: 14,3215           32340                                    PLANET                                
033647,001521: 14,3216           02601                           STORE    PLANVEC                               

Page 769

033649,001523: 14,3217           77776        P51E               EXIT                                           
033650,001524: 14,3220           05412                           TC       PHASCHNG                              
033651,001525: 14,3221           05024                           OCT      05024                                 
033652,001526: 14,3222           13000                           OCT      13000                                 
033653,001527: 14,3223           04662                           TC       BANKCALL                              
033654,001528: 14,3224           16063                           CADR     MKRELEAS                              #  ZERO MARKSTAT
033655,001529: 14,3225           10304                           CCS      STARIND                               
033656,001530: 14,3226           13235                           TCF      P51F                                  #  STAR 2
033657,001531: 14,3227           05412                           TC       PHASCHNG                              
033658,001532: 14,3230           05024                           OCT      05024                                 
033659,001533: 14,3231           13000                           OCT      13000                                 
033660,001534: 14,3232           35017                           CAF      BIT1                                  
033661,001535: 14,3233           54304                           TS       STARIND                               
033662,001536: 14,3234           13161                           TCF      P51C                                  #  GO DO SECOND STAR
033663,001537: 14,3235           05412        P51F               TC       PHASCHNG                              
033664,001538: 14,3236           05024                           OCT      05024                                 
033665,001539: 14,3237           13000                           OCT      13000                                 
033666,001540: 14,3240           06006                           TC       INTPRET                               
033667,001541: 14,3241           45145                           DLOAD    CALL                                  
033668,001542: 14,3242           02607                                    TSIGHT                                
033669,001543: 14,3243           32340                                    PLANET                                
033670,001544: 14,3244           24015                           STOVL    12D                                   
033671,001545: 14,3245           02601                                    PLANVEC                               
033672,001546: 14,3246           24007                           STOVL    6D                                    
033673,001547: 14,3247           02611                                    STARSAV1                              
033674,001548: 14,3250           26736                           STOVL    STARAD                                
033675,001549: 14,3251           02617                                    STARSAV2                              
033676,001550: 14,3252           36744                           STCALL   STARAD     +6                         
033677,001551: 14,3253           30714                                    CHKSDATA                              #  CHECK STAR ANGLES IN STARAD AND
033678,001552: 14,3254           77414                           BON      EXIT                                  
033679,001553: 14,3255           00314                                    FREEFLAG                              
033680,001554: 14,3256           31260                                    P51G                                  
033681,001555: 14,3257           03100                           TC       P51AA                                 
033682,001556: 14,3260           77624        P51G               CALL                                           
033683,001557: 14,3261           47401                                    AXISGEN                               #  COME BACK WITH REFSMMAT IN XDC
033684,001558: 14,3262           75160                           AXC,1    AXC,2                                 
033685,001559: 14,3263           02713                                    XDC                                   
033686,001560: 14,3264           01735                                    REFSMMAT                              
033687,001561: 14,3265           45014                           CLEAR    CALL                                  
033688,001562: 14,3266           01662                                    REFSMFLG                              
033689,001563: 14,3267           31053                                    MATMOVE                               
033690,001564: 14,3270           52014                           SET      GOTO                                  
033691,001565: 14,3271           01462                                    REFSMFLG                              
033692,001566: 14,3272           32145                                    ENDP50S                               
033693,001567: 14,3273     5025               PRFMSTAQ           =        OCT15                                 
033694,001568: 14,3273     5021               P51ZERO            =        ZERO                                  
033695,001569: 14,3273     5022               P51FIVE            =        FIVE                                  
033696,001570: 14,3273           01426        V6N22              VN       0622                                  
033697,001571: 14,3274           12200        V41K               VN       4100                                  
033698,001572: 14,3275           30025        SET1/PDT           CA       TIME1                                 

Page 770

033700,001574: 14,3276           55074                           TS       1/PIPADT                              
033701,001575: 14,3277           16030                           TCF      DANZIG                                
033702,001576: 

Page 771

033704,001578:                                                                                                  #  SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
033705,001579: 
033706,001580: 17,2000                                           SETLOC   P50S3                                 
033707,001581: 17,2000                                           BANK                                           
033708,001582: 17,2022           77620        SXTSM              STQ                                            
033709,001583: 17,2023           00300                                    QMAJ                                  
033710,001584: 17,2024           70740                           LXC,1    DLOAD*                                
033711,001585: 17,2025           01330                                    MARKSTAT                              
033712,001586: 17,2026           00001                                    0D,1                                  
033713,001587: 17,2027           02607                           STORE    TSIGHT                                
033714,001588: 17,2030           66744                           LXC,2    SLOAD*                                
033715,001589: 17,2031           00304                                    STARIND                               
033716,001590: 17,2032           41722                                    MKDNCDR,2                             
033717,001591: 17,2033           76744                           LXC,2    VLOAD*                                
033718,001592: 17,2034           00154                                    MPAC                                  
033719,001593: 17,2035           00001                                    0,1                                   
033720,001594: 17,2036           10001                           STORE    0,2                                   
033721,001595: 17,2037           77743                           DLOAD*                                         
033722,001596: 17,2040           00006                                    5,1                                   
033723,001597: 17,2041           10006                           STORE    5,2                                   
033724,001598: 17,2042           77624                           CALL                                           
033725,001599: 17,2043           46000                                    SXTNB                                 #  COMPUTE LOS VECTOR FROM OCDU IN MKVAC
033726,001600: 17,2044           62150                           LXA,1    INCR,1                                
033727,001601: 17,2045           01330                                    MARKSTAT                              
033728,001602: 17,2046           00002                                    2                                     #  INCREMENT TO BASE ADR OF ICDU
033729,001603: 17,2047           45130                           SXA,1    CALL                                  
033730,001604: 17,2050           00050                                    S1                                    
033731,001605: 17,2051           47606                                    NBSM                                  #  TRANSFORM LOS TO SM
033732,001606: 17,2052           77650                           GOTO                                           
033733,001607: 17,2053           00300                                    QMAJ                                  
033734,001608: 17,2054           03674        MKDNCDR            ECADR    MARKDOWN                              
033735,001609: 17,2055           03502                           ECADR    MARK2DWN                              
033736,001610: 

Page 772

033738,001612:                                                                                                  #  PROGRAM DESCRIPTION - R53 - SIGHTING MARK ROUTINE
033739,001613:                                                                                                  #  MOD. NO. 2  21 DEC 66
033740,001614:                                                                                                  #  MOD BY STURLAUGSON
033741,001615: 
033742,001616:                                                                                                  #  FUNCTIONAL DESCRIPTION
033743,001617: 
033744,001618:                                                                                                  #        TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE).  SIGHTINGS
033745,001619:                                                                                                  #        CAN BE MADE ON A STAR OR LANDMARK.  WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
033746,001620:                                                                                                  #        OCDUS) AND THE TIME OF THE MARK.
033747,001621: 
033748,001622:                                                                                                  #  CALLING SEQUENCE
033749,001623: 
033750,001624:                                                                                                  #        R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE.  RETURN IS VIA QPRET.
033751,001625:                                                                                                  #        THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
033752,001626: 
033753,001627:                                                                                                  #  SUBROUTINES CALLED
033754,001628:                                                                                                  #        
033755,001629:                                                                                                  #        SXTMARK
033756,001630:                                                                                                  #        OPTSTALL
033757,001631:                                                                                                  #        GOFLASH
033758,001632: 
033759,001633:                                                                                                  #  ERASABLE INITIALIZATION
033760,001634: 
033761,001635:                                                                                                  #        TARGET FLAG - STAR OR LANDMARK
033762,001636:                                                                                                  #        MARKINDX - NUMBER OF MARKS WANTED
033763,001637:                                                                                                  #        STARIND - INDEX TO BESTI OR BESTJ (STAR NUMBER)
033764,001638: 
033765,001639:                                                                                                  #  OUTPUT
033766,001640: 
033767,001641:                                                                                                  #        MARKSTAT CONTAINS INDEX TO VACANT AREA WHERE MARK DATA IS STORED
033768,001642:                                                                                                  #        BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED
033769,001643: 
033770,001644:                                                                                                  #  DEBRIS
033771,001645: 
033772,001646:                                                                                                  #        MARKINDX CONTAINS NUMBER OF MARKS DESIRED
033773,001647: 
033774,001648: 14,2000                                           SETLOC   RT53                                  
033775,001649: 14,2000                                           BANK                                           
033776,001650: 
033777,001651: 14,3300                                           COUNT    14/R53                                
033778,001652: 
033779,001653: 14,3300           43020        R53                STQ      SET                                   #  SET SIGHTING MARK FLAG
033780,001654: 14,3301           03501                                    R53EXIT                               
033781,001655: 14,3302           00071                                    R53FLAG                               
033782,001656: 14,3303           77776                           EXIT                                           
033783,001657: 14,3304           30301        R53A               CA       MARKINDX                              #  NUMBER OF MARKS
033784,001658: 14,3305           75023                           MASK     LOW3                                  
033785,001659: 14,3306           04662                           TC       BANKCALL                              
033786,001660: 14,3307           16002                           CADR     SXTMARK                               
033787,001661: 14,3310           04662                           TC       BANKCALL                              
033788,001662: 14,3311           17573                           CADR     OPTSTALL                              
033789,001663: 14,3312           05757                           TC       CURTAINS                              
033790,001664: 14,3313           51330                           INDEX    MARKSTAT                              
033791,001665: 14,3314           10052                           CCS      QPRET                                 #  NUMBER OF MARKS ACTUALLY DONE
033792,001666: 14,3315           13326                           TCF      R53B                                  
033793,001667: 14,3316           13320                           TCF      +2                                    #  ZERO
033794,001668: 14,3317           13320                           TCF      +1                                    #  CCS HOLE
033795,001669: 14,3320           35021                           CAF      ZERO                                  #  HOUSEKEEP VAC AREA SAVE
033796,001670: 14,3321           57330                           XCH      MARKSTAT                              #        AND MARKSTAT

Page 773

033798,001672: 14,3322           10000                           CCS      A                                     
033799,001673: 14,3323           50000                           INDEX    A                                     
033800,001674: 14,3324           54000                           TS       0                                     
033801,001675: 14,3325           13304                           TCF      R53A                                  
033802,001676: 14,3326           05364        R53B               TC       CHECKMM                               
033803,001677: 14,3327           00026                           MM       22         B-14                       
033804,001678: 14,3330           13332                           TCF      +2                                    
033805,001679: 14,3331           13361                           TCF      R53D                                  
033806,001680: 14,3332           05364                           TC       CHECKMM                               
033807,001681: 14,3333           00027                           MM       23         B-14                       
033808,001682: 14,3334           13336                           TCF      R53C1                                 
033809,001683: 14,3335           13361                           TCF      R53D                                  
033810,001684: 14,3336           35021        R53C1              CAF      ZERO                                  
033811,001685: 14,3337           04662                           TC       BANKCALL                              
033812,001686: 14,3340           20703                           CADR     CLEANDSP                              
033813,001687: 14,3341           33365        R53C               CAF      V01N71                                
033814,001688: 14,3342           04662                           TC       BANKCALL                              
033815,001689: 14,3343           20720                           CADR     GOFLASH                               
033816,001690: 14,3344           04106                           TC       GOTOPOOH                              #  TERM.
033817,001691: 14,3345           13347                           TCF      R53Z                                  
033818,001692: 14,3346           03341                           TC       R53C                                  #  RECYCLE
033819,001693: 14,3347           03366        R53Z               TC       CHKSCODE                              
033820,001694: 14,3350           04400                           TC       FALTON                                
033821,001695: 14,3351           03341                           TC       R53C                                  
033822,001696: 14,3352           47713                           CS       HIGH9                                 
033823,001697: 14,3353           70735                           MASK     STARCODE                              
033824,001698: 14,3354           00006                           EXTEND                                         
033825,001699: 14,3355           76211                           MP       SIGHTSIX                              
033826,001700: 14,3356           56001                           XCH      L                                     
033827,001701: 14,3357           50304                           INDEX    STARIND                               
033828,001702: 14,3360           54302                           TS       BESTI                                 
033829,001703: 14,3361           06006        R53D               TC       INTPRET                               
033830,001704: 14,3362           77614        R53OUT             SETGO                                          
033831,001705: 14,3363           03420                                    TERMIFLG                              #  SET TERMINATE FOR R52
033832,001706: 14,3364           03501                                    R53EXIT                               
033833,001707: 14,3365     6211               SIGHTSIX           =        SIX                                   
033834,001708: 14,3365           00307        V01N71             VN       0171                                  
033835,001709: 
033836,001710:                                                                                                  #  ****** KEEP IN SAME BANK AS R51 AND R53 *********
033837,001711: 14,3366           10735        CHKSCODE           CCS      STARCODE                              
033838,001712: 14,3367           63376                           AD       NEG47                                 
033839,001713: 14,3370           10000                           CCS      A                                     
033840,001714: 14,3371           00002                           TC       Q                                     #  SC < 0 OR SC > 50
033841,001715: 14,3372           13374                           TCF      +2                                    #  SC = + OR - 0
033842,001716: 14,3373           13374                           TCF      +1                                    #  0 <= SC< 50
033843,001717: 14,3374           50002                           INDEX    Q                                     #  SC = 50
033844,001718: 14,3375           00002                           TC       00002                                 
033845,001719: 14,3376           77730        NEG47              OCT      77730                                 
033846,001720: 

Page 774

033848,001722:                                                                                                  #  NAME - S52.2
033849,001723:                                                                                                  #  FUNCTION - COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
033850,001724:                                                                                                  #  CALL - CALL S52.2
033851,001725:                                                                                                  #  INPUT - X,Y,ZSMD
033852,001726:                                                                                                  #  OUTPUT - OGC,IGC,MGC,THETAD,+1,+2
033853,001727:                                                                                                  #  SUBROUTINES - CDUTRIG, CALCSMSC, MATMOVE, CALCGA
033854,001728: 
033855,001729: 11,2000                                           SETLOC   S52/2                                 
033856,001730: 11,2000                                           BANK                                           
033857,001731: 
033858,001732: 11,2331                                           COUNT    13/S52.2                              
033859,001733: 11,2331           77620        S52.2              STQ                                            
033860,001734: 11,2332           00300                                    QMAJ                                  
033861,001735: 11,2333           77624                           CALL                                           
033862,001736: 11,2334           47477                                    CDUTRIG                               
033863,001737: 11,2335           77624                           CALL                                           
033864,001738: 11,2336           34612                                    CALCSMSC                              
033865,001739: 11,2337           66370                           AXT,1    SSP                                   
033866,001740: 11,2340           00022                                    18D                                   
033867,001741: 11,2341           00051                                    S1                                    
033868,001742: 11,2342           00006                                    6D                                    
033869,001743: 11,2343           61373        S52.2A             VLOAD*   VXM                                   
033870,001744: 11,2344           02736                                    XNB        +18D,1                     
033871,001745: 11,2345           01736                                    REFSMMAT                              
033872,001746: 11,2346           77656                           UNIT                                           
033873,001747: 11,2347           06736                           STORE    XNB        +18D,1                     
033874,001748: 11,2350           77700                           TIX,1                                          
033875,001749: 11,2351           22343                                    S52.2A                                
033876,001750: 11,2352           75160        S52.2.1            AXC,1    AXC,2                                 
033877,001751: 11,2353           00306                                    XSMD                                  
033878,001752: 11,2354           02671                                    XSM                                   
033879,001753: 11,2355           77624                           CALL                                           
033880,001754: 11,2356           31053                                    MATMOVE                               
033881,001755: 11,2357           77624                           CALL                                           
033882,001756: 11,2360           47311                                    CALCGA                                
033883,001757: 11,2361           77650                           GOTO                                           
033884,001758: 11,2362           00300                                    QMAJ                                  
033885,001759: 

Page 775

033887,001761:                                                                                                  #  PROGRAM NAME - SR52.1                         DATE  DEC 20 66
033888,001762:                                                                                                  #  MOD 1                                         LOG SEC  P51-P53
033889,001763:                                                                                                  #  BY KEN VINCENT                                ASSEMBLY  SUNDISK REV 40
033890,001764: 
033891,001765:                                                                                                  #  FUNCTION
033892,001766: 
033893,001767:                                                                                                  #  TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
033894,001768:                                                                                                  #  LEM, STAR OR LANDMARK.  IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
033895,001769:                                                                                                  #  2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1).  IF THE LEM IS 
033896,001770:                                                                                                  #  THE TARGET THEN CONIC UPDATES      OF THE CSM AND LEM ARE MADE TO
033897,001771:                                                                                                  #  THE TIME IN AOPTIME.  THE UNIT OF THE DIFFERENCE OF LEM AND CSM
033898,001772:                                                                                                  #  POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
033899,001773:                                                                                                  #  COMMON PART OF THIS PROGRAM.
033900,001774: 
033901,001775:                                                                                                  #  IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY.  THE RADIUS
033902,001776:                                                                                                  #  VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV.  BOTH OF THESE ARE
033903,001777:                                                                                                  #  FOUND FOR THE TIME IN AOPTIME.  THE UNIT OF THE DIFFERENCE BETWEEN
033904,001778:                                                                                                  #  THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
033905,001779:                                                                                                  #  VECTOR FOR THE COMMON PART OF THIS ROUTINE.
033906,001780: 
033907,001781:                                                                                                  #  IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
033908,001782:                                                                                                  #  AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
033909,001783: 
033910,001784:                                                                                                  #  THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING
033911,001785:                                                                                                  #  VECTOR INTO STABLE MEMBER COORDINATES.  IT READS THE IMU-CDUS AND USES
033912,001786:                                                                                                  #  THIS DATA IN A CALL TO CALCSXA.  ON RETURN FROM CALCSXA A TEST IS
033913,001787:                                                                                                  #  MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN  90DEG OR 38DEG.
033914,001788:                                                                                                  #  MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG. OR 50DEG.
033915,001789: 
033916,001790:                                                                                                  #  CALLING SEQUENCE
033917,001791: 
033918,001792:                                                                                                  #        L+4     RETURN WHEN SHAFT OR TRUNION NOT WITHIN 5 DEG OF DESIRED
033919,001793:                                                                                                  #        L       TC      BANKCALL
033920,001794:                                                                                                  #        L+1     CADR    SR52.1
033921,001795:                                                                                                  #        L+2     ERROR RETURN    TRUNNION GREATER THAN 90 DEG
033922,001796:                                                                                                  #        L&3     ERROR RETURN    TRUNNION GREATER THAN 50 DEG
033923,001797:                                                                                                  #        L+4     NORMAL RETURN
033924,001798: 
033925,001799:                                                                                                  #  OUTPUT
033926,001800: 
033927,001801:                                                                                                  #        SAC -SINGLE PREC, 2S COMP, SCALED AT HALF REVS - SHAFT ANGLE DESIRED
033928,001802:                                                                                                  #        PAC -SINGLE PREC, 2S COMP  SCALED AT EIGTH REVS - TRUNNION ANGLE DESIRED
033929,001803: 
033930,001804:                                                                                                  #  INITIALIZATION
033931,001805: 
033932,001806:                                                                                                  #        IF TARG1FLG =1 THEN TARGET IS LEM - NO OTHER INPUT REQUIRED
033933,001807: 
033934,001808:                                                                                                  #        IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
033935,001809:                                                                                                  #        0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE.  STAR CODES
033936,001810:                                                                                                  #        ARE 6 TIMES STAR NUMBER.
033937,001811: 
033938,001812:                                                                                                  #        IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK.  SEE ROUTINE
033939,001813:                                                                                                  #        LALOTORV FOR INPUT REQUIREMENTS.  HERE FIXERAD=1 FOR CONSTANT EARTH
033940,001814:                                                                                                  #        RADIUS
033941,001815: 
033942,001816:                                                                                                  #  DEBRIS
033943,001817: 
033944,001818:                                                                                                  #        WORK AREA
033945,001819:                                                                                                  #        STARAD - STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
033946,001820: 
033947,001821: 11,2363                                           COUNT*   $$/SR521                              

Page 776

033949,001823: 13,2000                                           SETLOC   SR52/1                                
033950,001824: 13,2000                                           BANK                                           
033951,001825: 
033952,001826: 13,2244           04711        SR52.1             TC       MAKECADR                              
033953,001827: 13,2245           55777                           TS       QMIN                                  
033954,001828: 13,2246           06006                           TC       INTPRET                               
033955,001829: 13,2247           43234                           RTB      DAD                                   
033956,001830: 13,2250           45510                                    LOADTIME                              
033957,001831: 13,2251           26365                                    1.3SECDP                              
033958,001832: 13,2252           02356                           STORE    AOPTIME                               
033959,001833: 13,2253           43014                           BON      BON                                   
033960,001834: 13,2254           00705                                    TARG1FLG                              
033961,001835: 13,2255           26262                                    LEM52                                 
033962,001836: 13,2256           00706                                    TARG2FLG                              
033963,001837: 13,2257           26272                                    LMK52                                 
033964,001838: 13,2260           77650                           GOTO                                           
033965,001839: 13,2261           26313                                    STAR52                                
033966,001840: 13,2262           77745        LEM52              DLOAD                                          
033967,001841: 13,2263           02356                                    AOPTIME                               
033968,001842: 13,2264           34041                           STCALL   TDEC1                                 
033969,001843: 13,2265           27126                                    LEMCONIC                              
033970,001844: 13,2266           77775                           VLOAD                                          
033971,001845: 13,2267           00001                                    RATT                                  
033972,001846: 13,2270           77650                           GOTO                                           
033973,001847: 13,2271           26302                                    LMKLMCOM                              
033974,001848: 13,2272           71214        LMK52              BON      DLOAD                                 
033975,001849: 13,2273           04305                                    ADVTRK                                
033976,001850: 13,2274           54000                                    ADVTRACK                              
033977,001851: 13,2275           02356                                    AOPTIME                               
033978,001852: 13,2276           77624                           CALL                                           
033979,001853: 13,2277           26441                                    LALOTORV                              
033980,001854: 13,2300           77775                           VLOAD                                          
033981,001855: 13,2301           02152                                    ALPHAV                                
033982,001856: 13,2302           16766        LMKLMCOM           STODL    STAR                                  
033983,001857: 13,2303           02356                                    AOPTIME                               
033984,001858: 13,2304           34041                           STCALL   TDEC1                                 
033985,001859: 13,2305           27114                                    CSMCONIC                              
033986,001860: 13,2306           52375                           VLOAD    VSU                                   
033987,001861: 13,2307           02766                                    STAR                                  
033988,001862: 13,2310           00001                                    RATT                                  
033989,001863: 13,2311           52056                           UNIT     GOTO                                  
033990,001864: 13,2312           26326                                    COM52                                 
033991,001865: 13,2313           72131        STAR52             SSP      LXA,1                                 
033992,001866: 13,2314           00051                                    S1                                    
033993,001867: 13,2315           00000                                    0                                     
033994,001868: 13,2316           00304                                    STARIND                               
033995,001869: 13,2317           77700                           TIX,1                                          
033996,001870: 13,2320           26324                                    ST52ST                                
033997,001871: 13,2321           52175                           VLOAD    GOTO                                  
033998,001872: 13,2322           02617                                    STARSAV2                              

Page 777

034000,001874: 13,2323           26326                                    COM52                                 
034001,001875: 13,2324           77775        ST52ST             VLOAD                                          
034002,001876: 13,2325           02611                                    STARSAV1                              
034003,001877: 13,2326           53521        COM52              MXV      UNIT                                  
034004,001878: 13,2327           01736                                    REFSMMAT                              
034005,001879: 13,2330           02766                           STORE    STAR                                  
034006,001880: 13,2331           45001                           SETPD    CALL                                  
034007,001881: 13,2332           00001                                    0                                     
034008,001882: 13,2333           47477                                    CDUTRIG                               #  COMPUTES SINES AND COSINES FOR CALCSXA
034009,001883: 13,2334           77624                           CALL                                           #        NOW EXPECT TO SEE THE CDU ANGLES.
034010,001884: 13,2335           46034                                    CALCSXA                               
034011,001885: 13,2336           77414                           BOFF     EXIT                                  
034012,001886: 13,2337           01750                                    CULTFLAG                              
034013,001887: 13,2340           26342                                    TRUN38                                
034014,001888: 13,2341           02360                           TC       SR52E1                                
034015,001889: 13,2342           45345        TRUN38             DLOAD    DSU                                   
034016,001890: 13,2343           02776                                    PAC                                   
034017,001891: 13,2344           26363                                    38TRDEG                               
034018,001892: 13,2345           71244                           BPL      DLOAD                                 
034019,001893: 13,2346           26353                                    SR52E22                               
034020,001894: 13,2347           02776                                    PAC                                   
034021,001895: 13,2350           51025                           DSU      BPL                                   
034022,001896: 13,2351           26367                                    20DEGSMN                              
034023,001897: 13,2352           26355                                    SR52E3                                
034024,001898: 13,2353           77776        SR52E22            EXIT                                           
034025,001899: 13,2354           02357                           TC       SR52E2                                
034026,001900: 13,2355           77776        SR52E3             EXIT                                           
034027,001901: 13,2356           25777                           INCR     QMIN                                  
034028,001902: 13,2357           25777        SR52E2             INCR     QMIN                                  
034029,001903: 13,2360           31777        SR52E1             CA       QMIN                                  
034030,001904: 13,2361           04666                           TC       SWCALL                                
034031,001905: 13,2362           25252 25254  38TRDEG            2DEC     .66666667                             #  CORESPONDS TO 50 DEGS IN TRUNION
034032,001906: 
034033,001907: 13,2364           00000 00202  1.3SECDP           2DEC     130        B-28                       
034034,001908: 
034035,001909: 13,2366           61740        20DEGSMN           DEC      -07199     B-14                       
034036,001910: 13,2367           77777                           DEC      -0         B-14                       
034037,001911: 

Page 778

034039,001913:                                                                                                  #     THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
034040,001914:                                                                                                  #  A POINT ON THE GROUND TRACK 60 DEGRESS FORWARD OF THE LOCAL VERTICAL
034041,001915:                                                                                                  #  OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW
034042,001916: 
034043,001917: 26,2000                                           SETLOC   26P50S                                
034044,001918: 26,2000                                           BANK                                           
034045,001919: 26,2000           77601        ADVTRACK           SETPD                                          
034046,001920: 26,2001           00001                                    0                                     
034047,001921: 26,2002           41575                           VLOAD    PUSH                                  #  INITIALIZE FOR RP-TO-R
034048,001922: 26,2003           15327                                    UNITZ                                 #  UZ VEC IN PD 0-5
034049,001923: 26,2004           41434                           RTB      PUSH                                  #  TIME IN PD 6-7
034050,001924: 26,2005           45510                                    LOADTIME                              
034051,001925: 26,2006           36356                           STCALL   AOPTIME                               #  TIME ALSO IN AOPTIME FOR CSMCONIC
034052,001926: 26,2007           55344                                    RP-TO-R                               #  GET MOON ROTATION VEC IN REF
034053,001927: 26,2010           16766                           STODL    STAR                                  
034054,001928: 26,2011           02356                                    AOPTIME                               #  PICK UP TIME
034055,001929: 26,2012           34041                           STCALL   TDEC1                                 #  UPDATE STATE TO TIME
034056,001930: 26,2013           27114                                    CSMCONIC                              
034057,001931: 26,2014           47375                           VLOAD    VXV                                   
034058,001932: 26,2015           00007                                    VATT                                  
034059,001933: 26,2016           00001                                    RATT                                  
034060,001934: 26,2017           77656                           UNIT                                           
034061,001935: 26,2020           24031                           STOVL    24D                                   #  SAVE -UNIT(V X R) FOR 2ND ROTATION
034062,001936: 26,2021           00001                                    RATT                                  
034063,001937: 26,2022           57456                           UNIT     VCOMP                                 
034064,001938: 26,2023           41401                           SETPD    PUSH                                  #  PUSH LOS=-UNIT(RVEC) PD 0-5
034065,001939: 26,2024           00001                                    0                                     
034066,001940: 26,2025           77776                           EXIT                                           
034067,001941: 26,2026           31751                           CA       LANDMARK                              
034068,001942: 26,2027           75023                           MASK     SEVEN                                 #  GET NUMBER OF ADVANCE PERIODS
034069,001943: 26,2030           00006                           EXTEND                                         
034070,001944: 26,2031           75005                           MP       BIT11                                 #  GET N/16
034071,001945: 26,2032           56001                           XCH      L                                     
034072,001946: 26,2033           50120                           INDEX    FIXLOC                                
034073,001947: 26,2034           54036                           TS       30D                                   #  TEMP STORE N/16
034074,001948: 26,2035           06006                           TC       INTPRET                               
034075,001949: 26,2036           41335                           SLOAD    DMP                                   
034076,001950: 26,2037           00037                                    30D                                   
034077,001951: 26,2040           14107                                    MPERIOD                               
034078,001952: 26,2041           36356                           STCALL   AOPTIME                               #  ROTATE ANG ABOUT UR
034079,001953: 26,2042           54057                                    ROTA                                  
034080,001954: 26,2043           77775                           VLOAD                                          
034081,001955: 26,2044           00031                                    24D                                   #  PICK UP 2ND ROTATION AXIS
034082,001956: 26,2045           16766                           STODL    STAR                                  
034083,001957: 26,2046           14105                                    DP1/6                                 
034084,001958: 26,2047           77625                           DSU                                            
034085,001959: 26,2050           02356                                    AOPTIME                               #  2ND RAT ANGLE = 60 - A
034086,001960: 26,2051           36356                           STCALL   AOPTIME                               
034087,001961: 26,2052           54057                                    ROTA                                  #  GO ROTATE 2ND TIME
034088,001962: 26,2053           77775                           VLOAD                                          

Page 779

034090,001964: 26,2054           00001                                    0                                     
034091,001965: 26,2055           36766                           STCALL   STAR                                  #  STORE FINAL LOS IN STAR
034092,001966: 26,2056           26326                                    COM52                                 #  RETURN TO SR52.1
034093,001967: 
034094,001968: 26,2057           73545        ROTA               DLOAD    SIN                                   
034095,001969: 26,2060           02356                                    AOPTIME                               
034096,001970: 26,2061           47315                           PDVL     VXV                                   #  PUSH 1/2SIN(A) PD 6-7
034097,001971: 26,2062           02766                                    STAR                                  #        UR VEC
034098,001972: 26,2063           00001                                    0                                     #        LOS
034099,001973: 26,2064           72561                           VXSC     VSL2                                  #  1/2SIN(A)(URXLOS) PD 6-11
034100,001974: 26,2065           50315                           PDVL     DOT                                   
034101,001975: 26,2066           02766                                    STAR                                  
034102,001976: 26,2067           00001                                    0                                     
034103,001977: 26,2070           72561                           VXSC     VSL2                                  
034104,001978: 26,2071           02766                                    STAR                                  
034105,001979: 26,2072           71525                           PDDL     COS                                   #  1/2(UR . LOS)UR 12-17
034106,001980: 26,2073           02356                                    AOPTIME                               
034107,001981: 26,2074           51315                           PDVL     BVSU                                  #  PUSH 1/2COS(A) 18-19
034108,001982: 26,2075           00015                                    12D                                   
034109,001983: 26,2076           00001                                    0                                     
034110,001984: 26,2077           76561                           VXSC     VSL1                                  #  UP 18-19
034111,001985: 26,2100           53255                           VAD      VAD                                   #  UP 12-17 UP 6-11
034112,001986: 26,2101           40256                           UNIT     SETPD                                 
034113,001987: 26,2102           00001                                    0                                     
034114,001988: 26,2103           43406                           PUSH     RVQ                                   
034115,001989: 
034116,001990: 26,2104           05252 25251  DP1/6              2DEC     .16666666                             
034117,001991: 
034118,001992: 26,2106           01414 06044  MPERIOD            2DEC     .047619                               #  APPROX LUNAR ROT ANG IN 2HRS X 16
034119,001993: 

Page 780

034121,001995:                                                                                                  #  NAME - S52.3
034122,001996:                                                                                                  #  FUNCTION -    XSMD= UNIT(YSMD X ZSMD)
034123,001997:                                                                                                  #                YSMD= UNIT(V X R)
034124,001998:                                                                                                  #                ZSMD= UNIT(-R)
034125,001999:                                                                                                  #  CALL          DLOAD   CALL
034126,002000:                                                                                                  #                        TALIGN
034127,002001:                                                                                                  #                        S52.3
034128,002002:                                                                                                  #  INPUT -       TIME OF ALIGNMENT IN MPAC
034129,002003:                                                                                                  #  OUTPUT -      X,Y,ZSMD
034130,002004:                                                                                                  #  SUBROUTINES - CSMCONIC
034131,002005: 
034132,002006: 16,2000                                           SETLOC   P50S2                                 
034133,002007: 16,2000                                           BANK                                           
034134,002008: 
034135,002009: 16,2661                                           COUNT    15/S52.3                              
034136,002010: 16,2661           77620        S52.3              STQ                                            
034137,002011: 16,2662           00300                                    QMAJ                                  
034138,002012: 16,2663           34041                           STCALL   TDEC1                                 
034139,002013: 16,2664           27071                                    CSMPREC                               
034140,002014: 16,2665           77601                           SETPD                                          
034141,002015: 16,2666           00001                                    0                                     
034142,002016: 16,2667           57575                           VLOAD    VCOMP                                 
034143,002017: 16,2670           00001                                    RATT                                  
034144,002018: 16,2671           77656                           UNIT                                           
034145,002019: 16,2672           24323                           STOVL    ZSMD                                  
034146,002020: 16,2673           00007                                    VATT                                  
034147,002021: 16,2674           53435                           VXV      UNIT                                  
034148,002022: 16,2675           00001                                    RATT                                  
034149,002023: 16,2676           00315                           STORE    YSMD                                  
034150,002024: 16,2677           53435                           VXV      UNIT                                  
034151,002025: 16,2700           00323                                    ZSMD                                  
034152,002026: 16,2701           34307                           STCALL   XSMD                                  
034153,002027: 16,2702           00300                                    QMAJ                                  
034154,002028: 

Page 781

034156,002030:                                                                                                  #  PROGRAM DESCRIPTION - R56 - ALTERNATE LOS SIGHTING MARK ROUTINE
034157,002031: 
034158,002032:                                                                                                  #  FUNCTIONAL DESCRIPTION
034159,002033: 
034160,002034:                                                                                                  #        TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54).  THE ASTRONAUT KNOWS THE
034161,002035:                                                                                                  #        COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE.  WHEN THE ASTRONAUT KEYS IN
034162,002036:                                                                                                  #        ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
034163,002037:                                                                                                  #        IN N92.
034164,002038: 
034165,002039:                                                                                                  #  CALLING SEQUENCE
034166,002040: 
034167,002041:                                                                                                  #        CALL
034168,002042:                                                                                                  #                R56
034169,002043: 
034170,002044:                                                                                                  #  SUBROUTINES CALLED
034171,002045: 
034172,002046:                                                                                                  #        A PORTION OF SXTMARK (VAC.AREA SEARCH)
034173,002047:                                                                                                  #        GOFLASH
034174,002048:                                                                                                  #        GOPERF1
034175,002049: 
034176,002050:                                                                                                  #  ERASABLE INITIALIZATION
034177,002051: 
034178,002052:                                                                                                  #        STARIND-INDEX TO STAR NUMBER
034179,002053: 
034180,002054:                                                                                                  #  OUTPUT
034181,002055: 
034182,002056:                                                                                                  #        MARKSTAT-INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
034183,002057:                                                                                                  #        BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
034184,002058:                                                                                                  #        ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS-
034185,002059:                                                                                                  #                VAC +2  CDUY
034186,002060:                                                                                                  #                VAC +3  CDUS
034187,002061:                                                                                                  #                VAC +4  CDUZ
034188,002062:                                                                                                  #                VAC +5  CDUT
034189,002063:                                                                                                  #                VAC +6  CDUX
034190,002064: 
034191,002065: 16,2703                                           COUNT*   $$/R56                                
034192,002066: 17,2000                                           SETLOC   P50S3                                 
034193,002067: 17,2000                                           BANK                                           
034194,002068: 17,2056           77420        R56                STQ      EXIT                                  
034195,002069: 17,2057           03501                                    R53EXIT                               
034196,002070: 17,2060           32146                           CAF      V06N94B                               
034197,002071: 17,2061           04662                           TC       BANKCALL                              
034198,002072: 17,2062           20720                           CADR     GOFLASH                               
034199,002073: 17,2063           04106                           TC       GOTOPOOH                              #  TERM.
034200,002074: 17,2064           02066                           TC       R56A                                  #  PROCEED - ANGLES OK
034201,002075: 17,2065           02060                           TC       -5                                    #  ENTER - NEW ANGLES
034202,002076: 17,2066           04662        R56A               TC       BANKCALL                              
034203,002077: 17,2067           16004                           CADR     SXTMARK    +2                         #  INHIBIR EXT VB ACT AND FIND VAC AREA
034204,002078: 
034205,002079: 17,2070           35021                           CAF      ZERO                                  
034206,002080: 17,2071           04662                           TC       BANKCALL                              
034207,002081: 17,2072           20703                           CADR     CLEANDSP                              
034208,002082: 
034209,002083: 17,2073           32145        R56A1              CAF      VB53                                  #  DISPLAY V53 REQUESTING ALTERNATE MARK
034210,002084: 17,2074           04662                           TC       BANKCALL                              

Page 782

034212,002086: 17,2075           20564                           CADR     GOMARK2                               
034213,002087: 17,2076           14106                           TCF      GOTOPOOH                              #  V34-TERMINATE
034214,002088: 17,2077           12073                           TCF      R56A1                                 #  V33-DONT PROCEED-JUST ENTER TO MARK
034215,002089: 17,2100           06006                           TC       INTPRET                               
034216,002090: 17,2101           77745                           DLOAD                                          
034217,002091: 17,2102           03731                                    MRKBUF1    +3                         
034218,002092: 17,2103           16774                           STODL    SAC                                   
034219,002093: 17,2104           03733                                    MRKBUF1    +5                         
034220,002094: 17,2105           02776                           STORE    PAC                                   
034221,002095: 17,2106           77776                           EXIT                                           
034222,002096: 17,2107           00004                           INHINT                                         
034223,002097: 17,2110           00006                           EXTEND                                         
034224,002098: 17,2111           30025                           DCA      TIME2                                 
034225,002099: 17,2112           51330                           INDEX    MARKSTAT                              
034226,002100: 17,2113           52001                           DXCH     0                                     
034227,002101: 17,2114           30033                           CA       CDUY                                  #  ENTER-THIS IS A BACKUP SYSTEM MARK
034228,002102: 17,2115           51330                           INDEX    MARKSTAT                              
034229,002103: 17,2116           54002                           TS       2                                     
034230,002104: 17,2117           31773                           CA       SAC                                   
034231,002105: 17,2120           51330                           INDEX    MARKSTAT                              
034232,002106: 17,2121           54003                           TS       3                                     
034233,002107: 17,2122           30034                           CA       CDUZ                                  
034234,002108: 17,2123           51330                           INDEX    MARKSTAT                              
034235,002109: 17,2124           54004                           TS       4                                     
034236,002110: 17,2125           31775                           CA       PAC                                   
034237,002111: 17,2126           51330                           INDEX    MARKSTAT                              
034238,002112: 17,2127           54005                           TS       5                                     
034239,002113: 17,2130           30032                           CA       CDUX                                  
034240,002114: 17,2131           51330                           INDEX    MARKSTAT                              
034241,002115: 17,2132           54006                           TS       6                                     
034242,002116: 17,2133           00003                           RELINT                                         
034243,002117: 17,2134           05536                           TC       CLEARMRK                              #  ENABLE EXTENDED VERBS
034244,002118: 17,2135           34333                           CAF      OCT16                                 
034245,002119: 17,2136           04662                           TC       BANKCALL                              
034246,002120: 17,2137           21045                           CADR     GOPERF1                               
034247,002121: 17,2140           04106                           TC       GOTOPOOH                              #  TERM.
034248,002122: 17,2141           12143                           TCF      R56B                                  #  PROCEED-MARK COMPLETED
034249,002123: 17,2142           12070                           TCF      R56A       +2                         #  RECYCLE-DO ANOTHER MARK - LIKE REJECT
034250,002124: 17,2143           04662        R56B               TC       BANKCALL                              
034251,002125: 17,2144           31336                           CADR     R53C1                                 
034252,002126: 17,2145           15200        VB53               VN       05300                                 #  ALTERNATE MARK VERB
034253,002127: 17,2146           01536        V06N94B            VN       00694                                 
034254,002128: 15,2000                                           SETLOC   P50S                                  
034255,002129: 15,2000                                           BANK                                           
034256,002130: 
034257,002131: 15,2340           02607        PLANET             STORE    TSIGHT                                
034258,002132: 15,2341           45020                           STQ      CALL                                  
034259,002133: 15,2342           02777                                    QMIN                                  
034260,002134: 15,2343           30225                                    LOCSAM                                
034261,002135: 15,2344           77775                           VLOAD                                          

Page 783

034263,002137: 15,2345           02736                                    VEARTH                                
034264,002138: 15,2346           24001                           STOVL    0D                                    
034265,002139: 15,2347           02744                                    VSUN                                  
034266,002140: 15,2350           26736                           STOVL    VEARTH                                
034267,002141: 15,2351           00001                                    0D                                    
034268,002142: 15,2352           02744                           STORE    VSUN                                  
034269,002143: 15,2353           77776        NOSAM              EXIT                                           
034270,002144: 15,2354           47713                           CS       HIGH9                                 
034271,002145: 15,2355           70735                           MASK     STARCODE                              
034272,002146: 15,2356           00006                           EXTEND                                         
034273,002147: 15,2357           76211                           MP       SIGHTSIX                              
034274,002148: 15,2360           56001                           XCH      L                                     
034275,002149: 15,2361           50304                           INDEX    STARIND                               
034276,002150: 15,2362           54302                           TS       BESTI                                 
034277,002151: 15,2363           10000                           CCS      A                                     
034278,002152: 15,2364           12401                           TCF      NOTPLAN                               
034279,002153: 15,2365           32431                           CAF      VNPLANV                               
034280,002154: 15,2366           04662                           TC       BANKCALL                              
034281,002155: 15,2367           20720                           CADR     GOFLASH                               
034282,002156: 15,2370           04106                           TC       GOTOPOOH                              
034283,002157: 15,2371           02373                           TC       +2                                    
034284,002158: 15,2372           02365                           TC       -5                                    
034285,002159: 15,2373           06006                           TC       INTPRET                               
034286,002160: 15,2374           74375                           VLOAD    VXSC                                  
034287,002161: 15,2375           03705                                    STARSAV3                              
034288,002162: 15,2376           32433                                    1/SQR3                                
034289,002163: 15,2377           52056                           UNIT     GOTO                                  
034290,002164: 15,2400           32424                                    CORPLAN                               
034291,002165: 15,2401           40000        NOTPLAN            CS       A                                     
034292,002166: 15,2402           62430                           AD       DEC227                                
034293,002167: 15,2403           00006                           EXTEND                                         
034294,002168: 15,2404           62415                           BZMF     CALSAM1                               
034295,002169: 15,2405           50304                           INDEX    STARIND                               
034296,002170: 15,2406           30302                           CA       BESTI                                 
034297,002171: 15,2407           50120                           INDEX    FIXLOC                                
034298,002172: 15,2410           54046                           TS       X1                                    
034299,002173: 15,2411           06006                           TC       INTPRET                               
034300,002174: 15,2412           52173                           VLOAD*   GOTO                                  
034301,002175: 15,2413           31761                                    CATLOG,1                              
034302,002176: 15,2414           32424                                    CORPLAN                               
034303,002177: 15,2415           06006        CALSAM1            TC       INTPRET                               
034304,002178: 15,2416           70740                           LXC,1    DLOAD*                                
034305,002179: 15,2417           00304                                    STARIND                               
034306,002180: 15,2420           00303                                    BESTI,1                               
034307,002181: 15,2421           76740                           LXC,1    VLOAD*                                
034308,002182: 15,2422           00154                                    MPAC                                  
034309,002183: 15,2423           02372                                    STARAD     -228D,1                    
034310,002184: 15,2424           53455        CORPLAN            VAD      UNIT                                  
034311,002185: 15,2425           03474                                    VEL/C                                 
034312,002186: 15,2426           77650                           GOTO                                           

Page 784

034314,002188: 15,2427           02777                                    QMIN                                  
034315,002189: 15,2430           00343        DEC227             DEC      227        B-14                       
034316,002190: 15,2431           01530        VNPLANV            VN       0688                                  
034317,002191: 15,2432           22363 11623  1/SQR3             2DEC     .57735021                             
034318,002192: 
034319,002193: 

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