Source Code

These source-code files are part of a reconstructed copy of Comanche 45, the second release, though not the final mission release, of the Apollo 10 Command Module (CM) Apollo Guidance Computer (AGC) software. Comanche 45 was preceded by Comanche 44 and followed by Comanche 45/2 (the flown release). The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 45, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 44 (itself previously accurately reconstructed). Comanche 44 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 44 and 45. The now-reconstructed Comanche 45 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 tend to match those in the Comanche 55, the most-similar revision of Comanche for which we have access to an actual non-reconstructed hardcopy; the source code would likely have different page numbers in a contemporary Comanche 45 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 44. Here's a guide to the Apollo documentation referenced in those annotations:
There is also a detailed commentary about the reconstruction process.

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.

032143,000002:                                                                                                  ## Copyright:   Public domain.
032144,000003:                                                                                                  ## Filename:    P51-P53.agc
032145,000004:                                                                                                  ## Purpose:     A section of Comanche revision 045.
032146,000005:                                                                                                  ##              It is part of the reconstructed source code for the
032147,000006:                                                                                                  ##              second release of the flight software for the Command
032148,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
032149,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
032150,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
032151,000010:                                                                                                  ##              exactly match those specified for Comanche 45 in NASA drawing
032152,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
032153,000012:                                                                                                  ##              reconstruction is correct.
032154,000013:                                                                                                  ## Assembler:   yaYUL
032155,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
032156,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
032157,000016:                                                                                                  ## Mod history: 2020-12-06 MAS  Created from Comanche 44.
032158,000017: 

Page 737

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

Page 738

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

Page 739

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

Page 740

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

Page 741

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

Page 742

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

Page 743

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

Page 744

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

Page 745

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

Page 746

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

Page 747

032679,000538: 
032680,000539: 14,2210           35021                           CAF      ZERO                                  
032681,000540: 14,2211           55323                           TS       OPTCADR                               
032682,000541: 
032683,000542: 14,2212           04662                           TC       BANKCALL                              #  CLEAR OUT EXTENDED VERBS
032684,000543: 14,2213           20560                           CADR     KLEENEX                               
032685,000544: 
032686,000545: 14,2214           04106                           TC       GOTOPOOH                              #  NOW GO TO POO
032687,000546: 
032688,000547: 14,2215           43020        ADVORB             STQ      SET                                   #  SETS UP ADVANCED ORBIT TRACKING
032689,000548: 14,2216           02576                                    SAVQR52                               
032690,000549: 14,2217           04065                                    ADVTRK                                
032691,000550: 14,2220           43014                           SET      SET                                   
032692,000551: 14,2221           01463                                    LUNAFLAG                              
032693,000552: 14,2222           00462                                    ERADFLAG                              
032694,000553: 14,2223           77650                           GOTO                                           
032695,000554: 14,2224           30014                                    R52VRB                                
032696,000555: 

Page 748

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

Page 749

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

Page 750

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

Page 751

032853,000712: 15,2267           07564 15042  CSSUN              2DEC     .24148                                #  COS 15  /4
032854,000713: 

Page 752

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

Page 753

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

Page 754

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

Page 755

033010,000869: 14,2506           01430                                    CULTFLAG                              
033011,000870: 14,2507           00052                                    QPRET                                 
033012,000871: 14,2510  0000016               CSS                =        CEARTH                                
033013,000872: 14,2510           21150 25157  SIN33              2DEC     .5376381241                            
033014,000873: 
033015,000874: 14,2512           32766 22713  COS33              2DEC     .8431756920                            
033016,000875: 
033017,000876: 14,2514           01736 35137  CSS66              2DEC     .060480472                            #  (COS76)/4
033018,000877: 
033019,000878: 14,2516           73003 65403  CSS6640            2DEC     -.15602587                            #  (COS76 - COS30)/4
033020,000879: 
033021,000880: 14,2520           06233 26112  CSS33              2DEC     .197002688                            #  COS(1/2(76))/4
033022,000881: 
033023,000882: 14,2522           77414        PICEND             BOFF     EXIT                                  
033024,000883: 14,2523           01745                                    VFLAG                                 
033025,000884: 14,2524           30526                                    PICGXT                                
033026,000885: 14,2525           02530                           TC       PICBXT                                
033027,000886: 14,2526           77776        PICGXT             EXIT                                           
033028,000887: 14,2527           25777                           INCR     QMIN                                  
033029,000888: 14,2530           31777        PICBXT             CA       QMIN                                  
033030,000889: 14,2531           04666                           TC       SWCALL                                
033031,000890:                                                                                                  # V1             =       12D
033032,000891: 

Page 756

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

Page 757

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

Page 758

033137,000996: 14,2666           06006                           TC       INTPRET                               
033138,000997: 14,2667           77650                           GOTO                                           
033139,000998: 14,2670           32145                                    ENDP50S                               
033140,000999: 14,2671           06006        R51.4              TC       INTPRET                               
033141,001000: 14,2672           53521                           MXV      UNIT                                  
033142,001001: 14,2673           01736                                    REFSMMAT                              
033143,001002: 14,2674           26601                           STOVL    PLANVEC                               
033144,001003: 14,2675           02617                                    STARSAV2                              
033145,001004: 14,2676           02611                           STORE    STARSAV1                              
033146,001005: 14,2677           77731                           SSP                                            
033147,001006: 14,2700           00305                                    STARIND                               
033148,001007: 14,2701           00000                                    0                                     
033149,001008: 14,2702           77650                           GOTO                                           
033150,001009: 14,2703           30537                                    R51.3                                 
033151,001010: 14,2704           06006        R51B               TC       INTPRET                               
033152,001011: 14,2705           77624                           CALL                                           
033153,001012: 14,2706           36062                                    R56                                   
033154,001013: 14,2707           77650                           GOTO                                           
033155,001014: 14,2710           30614                                    R51A                                  
033156,001015: 14,2711           00066        OCT66              OCT      00066                                 
033157,001016: 14,2712           00306        V01N70             VN       0170                                  
033158,001017: 14,2713           05253        1/6TH              DEC      .1666667                              
033159,001018: 

Page 759

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

Page 760

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

Page 761

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

Page 762

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

Page 763

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

Page 764

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

Page 765

033478,001337:                                                                                                  #                DEFINE, -    -
033479,001338:                                                                                                  #                        U  = S
033480,001339:                                                                                                  #                         A    A1
033481,001340:                                                                                                  #                        -         -    -
033482,001341:                                                                                                  #                        V  = UNIT(S  X S  )
033483,001342:                                                                                                  #                         A         A1   A2
033484,001343:                                                                                                  #                        -    -   -
033485,001344:                                                                                                  #                        W  = U X V
033486,001345:                                                                                                  #                         A    A   A
033487,001346: 
033488,001347:                                                                                                  #                AND
033489,001348:                                                                                                  #                        -    -
033490,001349:                                                                                                  #                        U  = S
033491,001350:                                                                                                  #                         B    B1
033492,001351:                                                                                                  #                        -         -    -
033493,001352:                                                                                                  #                        V  = UNIT(S  X S  )
033494,001353:                                                                                                  #                         B         B1   B2
033495,001354:                                                                                                  #                        -    -   -
033496,001355:                                                                                                  #                        W  = U X V
033497,001356:                                                                                                  #                         B    B   B
033498,001357: 
033499,001358:                                                                                                  #                THEN    -        -       -       -
033500,001359:                                                                                                  #                        X  = U  *U + V  *V + W  *W
033501,001360:                                                                                                  #                              B1  A   B1  A   B1  A
033502,001361:                                                                                                  #                        -        -       -       -              (REFSMMAT)
033503,001362:                                                                                                  #                        Y  = U  *U + V  *V + W  *W
033504,001363:                                                                                                  #                              B2  A   B2  A   B2  A
033505,001364:                                                                                                  #                        -        -       -       -
033506,001365:                                                                                                  #                        Z  = U  *U + V  *V + W  *W
033507,001366:                                                                                                  #                              B3  A   B3  A   B3  A
033508,001367: 
033509,001368:                                                                                                  #  THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
033510,001369:                                                                                                  #                        -
033511,001370:                                                                                                  #                        S   IN 6-11 OF THE VAC AREA
033512,001371:                                                                                                  #                         A1
033513,001372:                                                                                                  #                        -
033514,001373:                                                                                                  #                        S   IN 12-17 OF THE VAC AREA
033515,001374:                                                                                                  #                         A2
033516,001375:                                                                                                  #                        -
033517,001376:                                                                                                  #                        S   IN STARAD
033518,001377:                                                                                                  #                         B1

Page 766

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

Page 767

033572,001431: 14,3072           03076                           TC       P51A                                  
033573,001432: 14,3073           05650                           TC       ALARM                                 
033574,001433: 14,3074           00210                           OCT      210                                   
033575,001434: 14,3075           04106                           TC       GOTOPOOH                              
033576,001435: 14,3076           04662        P51A               TC       BANKCALL                              
033577,001436: 14,3077           17667                           CADR     R02ZERO                               
033578,001437: 
033579,001438: 14,3100           35025        P51AA              CAF      PRFMSTAQ                              
033580,001439: 14,3101           04662                           TC       BANKCALL                              
033581,001440: 14,3102           21045                           CADR     GOPERF1                               
033582,001441: 14,3103           04106                           TC       GOTOPOOH                              #  TERM.
033583,001442: 14,3104           03147                           TC       P51B                                  #  V33
033584,001443: 14,3105           05412                           TC       PHASCHNG                              
033585,001444: 14,3106           05024                           OCT      05024                                 
033586,001445: 14,3107           13000                           OCT      13000                                 
033587,001446: 14,3110           35021                           CAF      P51ZERO                               
033588,001447: 14,3111           55155                           TS       THETAD                                #  ZERO THE GIMBALS
033589,001448: 14,3112           55156                           TS       THETAD     +1                         
033590,001449: 14,3113           55157                           TS       THETAD     +2                         
033591,001450: 14,3114           33274                           CAF      V6N22                                 
033592,001451: 14,3115           04662                           TC       BANKCALL                              
033593,001452: 14,3116           20673                           CADR     GODSPRET                              
033594,001453: 14,3117           33275                           CAF      V41K                                  #  NOW DISPLAY COARSE ALIGN VERB 41
033595,001454: 14,3120           04662                           TC       BANKCALL                              
033596,001455: 14,3121           20673                           CADR     GODSPRET                              
033597,001456: 14,3122           04662                           TC       BANKCALL                              
033598,001457: 14,3123           16663                           CADR     IMUCOARS                              
033599,001458: 14,3124           04662                           TC       BANKCALL                              
033600,001459: 14,3125           17577                           CADR     IMUSTALL                              
033601,001460: 14,3126           05751                           TC       CURTAINS                              #  CAGING OR BAD END
033602,001461: 14,3127           04662                           TC       BANKCALL                              #  SCHEDULE IFAILOK AND IMUFINED TASKS, IN 5
033603,001462: 14,3130           17073                           CADR     IMUFIN20                              #  AND 20 SECS. DIRECT RETURN AND NO STALL,
033604,001463: 14,3131           04662                           TC       BANKCALL                              #  IF CAGING, BUT T4 WILL ZERO C/A ENABLE.
033605,001464: 14,3132           17577                           CADR     IMUSTALL                              #  IF PUT TO SLEEP, IMUFINED WILL WAKE US
033606,001465: 14,3133           05751                           TC       CURTAINS                              #  UP.
033607,001466: 14,3134           06006                           TC       INTPRET                               
033608,001467: 14,3135           77234                           RTB      VLOAD                                 
033609,001468: 14,3136           31276                                    SET1/PDT                              
033610,001469: 14,3137           11563                                    ZEROVEC                               
033611,001470: 14,3140           01472                           STORE    GCOMP                                 
033612,001471: 14,3141           77414                           SET      EXIT                                  
033613,001472: 14,3142           01060                                    DRIFTFLG                              
033614,001473: 14,3143           05412                           TC       PHASCHNG                              
033615,001474: 14,3144           05024                           OCT      05024                                 
033616,001475: 14,3145           13000                           OCT      13000                                 
033617,001476: 14,3146           13100                           TCF      P51AA                                 #  COARSE ALIGN DONE - RECYCLE FOR FINE
033618,001477: 

Page 768

033620,001479:                                                                                                  #  DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
033621,001480: 14,3147           05412        P51B               TC       PHASCHNG                              
033622,001481: 14,3150           00014                           OCT      00014                                 
033623,001482: 14,3151           06006                           TC       INTPRET                               
033624,001483: 14,3152           40331                           SSP      SETPD                                 
033625,001484: 14,3153           00305                                    STARIND                               #  INDEX - STAR 1 OR 2
033626,001485: 14,3154           00000                                    0                                     
033627,001486: 14,3155           00001                                    0                                     
033628,001487: 14,3156           77414                           CLEAR    EXIT                                  
033629,001488: 14,3157           00666                                    TARG2FLG                              #  SHOW STAR MARK-NOT LAND MARK
033630,001489: 14,3160           35017                           CAF      BIT1                                  
033631,001490: 14,3161           54301                           TS       MARKINDX                              #  INITIALIZE FOR ONE MARK
033632,001491: 
033633,001492: 14,3162           05412        P51C               TC       PHASCHNG                              
033634,001493: 14,3163           05024                           OCT      05024                                 
033635,001494: 14,3164           13000                           OCT      13000                                 
033636,001495: 14,3165           05364                           TC       CHECKMM                               
033637,001496: 14,3166           00065                           MM       53         B-14                       #  BACKUP PROGRAM
033638,001497: 14,3167           13175                           TCF      P51C.1                                #  NOT P53
033639,001498: 14,3170           06006                           TC       INTPRET                               
033640,001499: 14,3171           77624                           CALL                                           
033641,001500: 14,3172           36062                                    R56                                   
033642,001501: 14,3173           77650                           GOTO                                           
033643,001502: 14,3174           31200                                    P51C.2                                
033644,001503: 14,3175           06006        P51C.1             TC       INTPRET                               
033645,001504: 14,3176           77624                           CALL                                           
033646,001505: 14,3177           31301                                    R53                                   #  SIGHTING ROUTINE
033647,001506: 14,3200           77624        P51C.2             CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
033648,001507: 14,3201           36026                                    SXTSM                                 
033649,001508: 14,3202           77606                           PUSH                                           
033650,001509: 14,3203           53135                           SLOAD    BZE                                   
033651,001510: 14,3204           00305                                    STARIND                               
033652,001511: 14,3205           31212                                    P51D                                  
033653,001512: 14,3206           45575                           VLOAD    STADR                                 
033654,001513: 14,3207           75160                           STORE    STARSAV2                              #  DOWNLINK
033655,001514: 14,3210           77650                           GOTO                                           
033656,001515: 14,3211           31220                                    P51E                                  
033657,001516: 14,3212           45575        P51D               VLOAD    STADR                                 
033658,001517: 14,3213           61166                           STODL    STARSAV1                              
033659,001518: 14,3214           02607                                    TSIGHT                                
033660,001519: 14,3215           77624                           CALL                                           
033661,001520: 14,3216           32340                                    PLANET                                
033662,001521: 14,3217           02601                           STORE    PLANVEC                               

Page 769

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

Page 770

033715,001574: 14,3277           55074                           TS       1/PIPADT                              
033716,001575: 14,3300           16030                           TCF      DANZIG                                
033717,001576: 

Page 771

033719,001578:                                                                                                  #  SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
033720,001579: 
033721,001580: 17,2000                                           SETLOC   P50S3                                 
033722,001581: 17,2000                                           BANK                                           
033723,001582: 17,2026           77620        SXTSM              STQ                                            
033724,001583: 17,2027           00300                                    QMAJ                                  
033725,001584: 17,2030           70740                           LXC,1    DLOAD*                                
033726,001585: 17,2031           01330                                    MARKSTAT                              
033727,001586: 17,2032           00001                                    0D,1                                  
033728,001587: 17,2033           02607                           STORE    TSIGHT                                
033729,001588: 17,2034           66744                           LXC,2    SLOAD*                                
033730,001589: 17,2035           00304                                    STARIND                               
033731,001590: 17,2036           41716                                    MKDNCDR,2                             
033732,001591: 17,2037           76744                           LXC,2    VLOAD*                                
033733,001592: 17,2040           00154                                    MPAC                                  
033734,001593: 17,2041           00001                                    0,1                                   
033735,001594: 17,2042           10001                           STORE    0,2                                   
033736,001595: 17,2043           77743                           DLOAD*                                         
033737,001596: 17,2044           00006                                    5,1                                   
033738,001597: 17,2045           10006                           STORE    5,2                                   
033739,001598: 17,2046           77624                           CALL                                           
033740,001599: 17,2047           46000                                    SXTNB                                 #  COMPUTE LOS VECTOR FROM OCDU IN MKVAC
033741,001600: 17,2050           62150                           LXA,1    INCR,1                                
033742,001601: 17,2051           01330                                    MARKSTAT                              
033743,001602: 17,2052           00002                                    2                                     #  INCREMENT TO BASE ADR OF ICDU
033744,001603: 17,2053           45130                           SXA,1    CALL                                  
033745,001604: 17,2054           00050                                    S1                                    
033746,001605: 17,2055           47606                                    NBSM                                  #  TRANSFORM LOS TO SM
033747,001606: 17,2056           77650                           GOTO                                           
033748,001607: 17,2057           00300                                    QMAJ                                  
033749,001608: 17,2060           03674        MKDNCDR            ECADR    MARKDOWN                              
033750,001609: 17,2061           03502                           ECADR    MARK2DWN                              
033751,001610: 

Page 772

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

Page 773

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

Page 774

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

Page 775

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

Page 776

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

Page 777

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

Page 778

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

Page 779

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

Page 780

034136,001995:                                                                                                  #  NAME - S52.3
034137,001996:                                                                                                  #  FUNCTION -    XSMD= UNIT(YSMD X ZSMD)
034138,001997:                                                                                                  #                YSMD= UNIT(V X R)
034139,001998:                                                                                                  #                ZSMD= UNIT(-R)
034140,001999:                                                                                                  #  CALL          DLOAD   CALL
034141,002000:                                                                                                  #                        TALIGN
034142,002001:                                                                                                  #                        S52.3
034143,002002:                                                                                                  #  INPUT -       TIME OF ALIGNMENT IN MPAC
034144,002003:                                                                                                  #  OUTPUT -      X,Y,ZSMD
034145,002004:                                                                                                  #  SUBROUTINES - CSMCONIC
034146,002005: 
034147,002006: 16,2000                                           SETLOC   P50S2                                 
034148,002007: 16,2000                                           BANK                                           
034149,002008: 
034150,002009: 16,2656                                           COUNT    15/S52.3                              
034151,002010: 16,2656           77620        S52.3              STQ                                            
034152,002011: 16,2657           00300                                    QMAJ                                  
034153,002012: 16,2660           34041                           STCALL   TDEC1                                 
034154,002013: 16,2661           27071                                    CSMPREC                               
034155,002014: 16,2662           77601                           SETPD                                          
034156,002015: 16,2663           00001                                    0                                     
034157,002016: 16,2664           57575                           VLOAD    VCOMP                                 
034158,002017: 16,2665           00001                                    RATT                                  
034159,002018: 16,2666           77656                           UNIT                                           
034160,002019: 16,2667           24323                           STOVL    ZSMD                                  
034161,002020: 16,2670           00007                                    VATT                                  
034162,002021: 16,2671           53435                           VXV      UNIT                                  
034163,002022: 16,2672           00001                                    RATT                                  
034164,002023: 16,2673           00315                           STORE    YSMD                                  
034165,002024: 16,2674           53435                           VXV      UNIT                                  
034166,002025: 16,2675           00323                                    ZSMD                                  
034167,002026: 16,2676           34307                           STCALL   XSMD                                  
034168,002027: 16,2677           00300                                    QMAJ                                  
034169,002028: 

Page 781

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

Page 782

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

Page 783

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

Page 784

034329,002188: 15,2427           02777                                    QMIN                                  
034330,002189: 15,2430           00343        DEC227             DEC      227        B-14                       
034331,002190: 15,2431           01530        VNPLANV            VN       0688                                  
034332,002191: 15,2432           22363 11623  1/SQR3             2DEC     .57735021                             
034333,002192: 
034334,002193: 

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