Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

030950,000002:                                                                                                  ## Copyright:   Public domain.
030951,000003:                                                                                                  ## Filename:    P51-P53.agc
030952,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
030953,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
030954,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
030955,000007:                                                                                                  ## Assembler:   yaYUL
030956,000008:                                                                                                  ## Reference:   pp. 693-738.
030957,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
030958,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
030959,000011:                                                                                                  ## Mod history: 08/16/04 RSB.   Began adapting from corresponding Luminary131
030960,000012:                                                                                                  ##                              file.
030961,000013:                                                                                                  ##              08/22/04 RSB    Removed the "lunar and solar ephemerides subroutines"
030962,000014:                                                                                                  ##                              to their own file.
030963,000015:                                                                                                  ##              2010-10-24 JL   Fixed page numbers.
030964,000016:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
030965,000017:                                                                                                  ##                              original harcopy, as opposed to the PDF page
030966,000018:                                                                                                  ##                              numbers in 1701.pdf.
030967,000019:                                                                                                  ##              2017-01-18 RSB  Cross-diff'd comment text (not whitespace)
030968,000020:                                                                                                  ##                              vs the already-proofed corresponding Colossus
030969,000021:                                                                                                  ##                              237 and Comanche 55 source-code files
030970,000022:                                                                                                  ##                              and corrected errors found.
030971,000023:                                                                                                  ##
030972,000024:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
030973,000025:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
030974,000026:                                                                                                  ## document read, in part:
030975,000027:                                                                                                  ##
030976,000028:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
030977,000029:                                                                                                  ##      2021111-041.  October 28, 1968.  
030978,000030:                                                                                                  ##
030979,000031:                                                                                                  ##      This AGC program shall also be referred to as
030980,000032:                                                                                                  ##                              Colossus 1A
030981,000033:                                                                                                  ##
030982,000034:                                                                                                  ##      Prepared by
030983,000035:                                                                                                  ##                      Massachusetts Institute of Technology
030984,000036:                                                                                                  ##                      75 Cambridge Parkway
030985,000037:                                                                                                  ##                      Cambridge, Massachusetts
030986,000038:                                                                                                  ##      under NASA contract NAS 9-4065.
030987,000039:                                                                                                  ##
030988,000040:                                                                                                  ## Refer directly to the online document mentioned above for further information.
030989,000041:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
030990,000042:                                                                                                  ##
030991,000043:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
030992,000044:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
030993,000045:                                                                                                  ## source file, and then is proofed to incorporate any changes.
030994,000046: 

Page 693

030996,000048:                                                                                                  #  PROGRAM NAME - PROG52                         DATE - NOV 30, 1966
030997,000049:                                                                                                  #  MOD NO - 2                                    LOG SECTION - P51-P53
030998,000050:                                                                                                  #  MODIFICATION BY - LONSKE                      ASSEMBLY - SUNDISK REV 30
030999,000051: 
031000,000052:                                                                                                  #  FUNCTIONAL DESCRIPTION -
031001,000053: 
031002,000054:                                                                                                  #        ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT.  THE PRESENT IMU ORIENTATION IS KNOWN
031003,000055:                                                                                                  #        AND IS STORED IN REFSMMAT.  THE THREE POSSIBLE ORIENTATIONS MAY BE_
031004,000056: 
031005,000057:                                                                                                  #        (A)     PREFERRED ORIENTATION
031006,000058: 
031007,000059:                                                                                                  #                AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANUEVER.  THIS ORIENTATION MUST BE CALCULATED AND
031008,000060:                                                                                                  #                STORED BY A PREVIOUSLY SELECTED PROGRAM.
031009,000061: 
031010,000062:                                                                                                  #        (B)     NOMINAL ORIENTATION
031011,000063: 
031012,000064:                                                                                                  #                X   = UNIT ( Y   X Z   )
031013,000065:                                                                                                  #                -SM          -SM   -SM
031014,000066: 
031015,000067:                                                                                                  #                Y   = UNIT (V X R)
031016,000068:                                                                                                  #                -SM         -   -
031017,000069: 
031018,000070:                                                                                                  #                Z   = UNIT ( -R )
031019,000071:                                                                                                  #                -SM           -
031020,000072: 
031021,000073:                                                                                                  #                WHERE_
031022,000074: 
031023,000075:                                                                                                  #                R = THE GEOCENTRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
031024,000076:                                                                                                  #                -
031025,000077: 
031026,000078:                                                                                                  #                V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
031027,000079:                                                                                                  #                -
031028,000080: 
031029,000081:                                                                                                  #        (C)     REFSMMAT ORIENTATION
031030,000082: 
031031,000083:                                                                                                  #        THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION.  THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
031032,000084:                                                                                                  #        WAS LAST ALIGNED ONLY DUE TO GYRO DRIFT (I.E. NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPTION HAS OCCURED
031033,000085:                                                                                                  #        SINCE THE LAST ALIGNMENT).
031034,000086: 
031035,000087:                                                                                                  #        AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
031036,000088:                                                                                                  #        NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE.  CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
031037,000089:                                                                                                  #        COARSE ALIGN THE IMU.  THE STAR SELECTION ROUTINE, R56, IS THEN OPERATED.  IF 2 STARS ARE NOT AVAILABLE AN ALARM
031038,000090:                                                                                                  #        IS FLASHED TO NOTIFY THE ASTRONAUT.  AT THIS POINT THE ASTRONAUT WILL MANUEVER THE VEHICLE AND SELECT 2 STARS
031039,000091:                                                                                                  #        EITHER MANUALLY OR AUTOMATICALLY.  AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51.  IF
031040,000092:                                                                                                  #        THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED.  OTHERWISE P00 IS
031041,000093:                                                                                                  #        REQUESTED.
031042,000094: 
031043,000095:                                                                                                  #  CALLING SEQUENCE -
031044,000096: 
031045,000097:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.

Page 694

031047,000099: 
031048,000100:                                                                                                  #  SUBROUTINES CALLED -
031049,000101: 
031050,000102:                                                                                                  #        1. FLAGDOWN              7. S52.2               13. NEWMODEX
031051,000103:                                                                                                  #        2. R02BOTH               8. CAL53A              14. PRIOLARM
031052,000104:                                                                                                  #        3. GOPERF4               9. FLAGUP
031053,000105:                                                                                                  #        4. MATMOVE              10. R56
031054,000106:                                                                                                  #        5. GOFLASH              11. R51
031055,000107:                                                                                                  #        6. S52.3                12. GOPERF3
031056,000108: 
031057,000109:                                                                                                  #  NORMAL EXIT MODES -
031058,000110: 
031059,000111:                                                                                                  #        EXITS TO ENDOFJOB
031060,000112: 
031061,000113:                                                                                                  #  ALARM OR ABORT EXIT MODES -
031062,000114: 
031063,000115:                                                                                                  #        NONE
031064,000116: 
031065,000117:                                                                                                  #  OUTPUT -
031066,000118: 
031067,000119:                                                                                                  #        THE FOLLOWING MAY BE FLASHED ON THE DSKY
031068,000120:                                                                                                  #                1. IMU ORIENTATION CODE
031069,000121:                                                                                                  #                2. ALARM CODE 215 - PREFERRED IMU ORIENTATION NOT SPECIFIED
031070,000122:                                                                                                  #                3. TIME OF NEXT IGNITION
031071,000123:                                                                                                  #                4. GIMBAL ANGLES
031072,000124:                                                                                                  #                5. ALARM CODE 405 - TWO STARS NOT AVAILABLE
031073,000125:                                                                                                  #                6. PLEASE PERFORM P00
031074,000126:                                                                                                  #        THE MODE DISPLAY MAY BE CHANGED TO 20
031075,000127: 
031076,000128:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
031077,000129: 
031078,000130:                                                                                                  #        PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED.  IF IT HAS BEEN COMPUTED IT IS STORED IN
031079,000131:                                                                                                  #        XSMD, YSMD, ZSMD.
031080,000132: 
031081,000133:                                                                                                  #        RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
031082,000134: 
031083,000135:                                                                                                  #  DEBRIS -
031084,000136: 
031085,000137:                                                                                                  #        WORK AREA
031086,000138: 
031087,000139: 21,2026  15,2000               P54                =        PROG52                                
031088,000140: 33,3772                                           BANK     33                                    
031089,000141: 15,2000                                           SETLOC   P50S                                  
031090,000142: 15,2000                                           BANK                                           
031091,000143: 
031092,000144: 15,2000  30,2000                                  SBANK=   LOWSUPER                              
031093,000145: 15,2000  E5,1773                                  EBANK=   SAC                                   
031094,000146: 15,2000                                           COUNT    15/P52                                
031095,000147: 
031096,000148: 15,2000           05301        PROG52             TC       PHASCHNG                              
031097,000149: 15,2001           00254                           OCT      00254                                 
031098,000150: 15,2002           05447                           TC       DOWNFLAG                              
031099,000151: 15,2003           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1

Page 695

031101,000153: 15,2004           05447                           TC       DOWNFLAG                              
031102,000154: 15,2005           00031                           ADRES    TRACKFLG                              #  BIT 5 FLAG 1
031103,000155: 15,2006           04555                           TC       BANKCALL                              
031104,000156: 15,2007           17573                           CADR     R02BOTH                               #  IMU STATUS CHECK
031105,000157: 15,2010           34707                           CAF      BIT4                                  
031106,000158: 15,2011           70076                           MASK     STATE      +2                         #  IS PFRATFLG SET (PREFERRED ORIENTATION)
031107,000159: 15,2012           10000                           CCS      A                                     
031108,000160: 15,2013           02016                           TC       P52A                                  #  YES
031109,000161: 15,2014           34711                           CAF      BIT2                                  #  NO
031110,000162: 15,2015           02017                           TC       P52A       +1                         
031111,000163: 15,2016           34712        P52A               CAF      BIT1                                  
031112,000164: 15,2017           55132                           TS       OPTION2                               
031113,000165: 15,2020           34712        P52B               CAF      BIT1                                  
031114,000166: 15,2021           04555                           TC       BANKCALL                              #  FLASH OPTION CODE AND ORIENTATION CODE
031115,000167: 15,2022           21041                           CADR     GOPERF4R                              
031116,000168: 15,2023           04106                           TC       GOTOPOOH                              
031117,000169: 15,2024           02031                           TC       +5                                    
031118,000170: 15,2025           02020                           TC       P52B                                  #  NEW CODE - NEW ORIENTATION CODE INPUT
031119,000171: 15,2026           05301                           TC       PHASCHNG                              
031120,000172: 15,2027           00014                           OCT      00014                                 
031121,000173: 15,2030           05112                           TC       ENDOFJOB                              
031122,000174: 
031123,000175: 15,2031           31132                           CA       OPTION2                               
031124,000176: 15,2032           76214                           MASK     THREE                                 
031125,000177: 15,2033           50000                           INDEX    A                                     
031126,000178: 15,2034           02035                           TC       +1                                    
031127,000179: 15,2035           02041                           TC       P52T                                  #  L.S.
031128,000180: 15,2036           02110                           TC       P52J                                  #  PREF
031129,000181: 15,2037           02041                           TC       P52T                                  #  NOM
031130,000182: 15,2040           12120                           TCF      P52C                                  #  REF
031131,000183: 15,2041           00006        P52T               EXTEND                                         
031132,000184: 15,2042           34714                           DCA      NEG0                                  
031133,000185: 15,2043           53046                           DXCH     DSPTEM1                               
031134,000186: 15,2044           32155                           CAF      V06N34                                
031135,000187: 15,2045           04555                           TC       BANKCALL                              
031136,000188: 15,2046           20624                           CADR     GOFLASH                               
031137,000189: 15,2047           04106                           TC       GOTOPOOH                              
031138,000190: 15,2050           02052                           TC       +2                                    
031139,000191: 15,2051           02044                           TC       -5                                    
031140,000192: 15,2052           00006                           EXTEND                                         
031141,000193: 15,2053           31046                           DCA      DSPTEM1                               
031142,000194: 15,2054           00006                           EXTEND                                         
031143,000195: 15,2055           12057                           BZF      +2                                    
031144,000196: 15,2056           12062                           TCF      +4                                    
031145,000197: 
031146,000198: 15,2057           00006                           EXTEND                                         
031147,000199: 15,2060           30025                           DCA      TIME2                                 
031148,000200: 15,2061           53046                           DXCH     DSPTEM1                               
031149,000201: 15,2062           31132                           CA       OPTION2                               
031150,000202: 15,2063           74711                           MASK     BIT2                                  
031151,000203: 15,2064           10000                           CCS      A                                     

Page 696

031153,000205: 15,2065           12073                           TCF      +6                                    #  NOM
031154,000206: 15,2066           06006                           TC       INTPRET                               #  LS
031155,000207: 15,2067           77624                           CALL                                           
031156,000208: 15,2070           34506                                    P52LS                                 
031157,000209: 15,2071           77650                           GOTO                                           
031158,000210: 15,2072           32100                                    P52D                                  
031159,000211: 15,2073           06006                           TC       INTPRET                               
031160,000212: 15,2074           77745                           DLOAD                                          
031161,000213: 15,2075           01046                                    DSPTEM1                               
031162,000214: 15,2076           77624                           CALL                                           #  COMPUTE NOMINAL IMU
031163,000215: 15,2077           34636                                    S52.3                                 #        ORIENTATION
031164,000216: 15,2100           77624        P52D               CALL                                           #  READ VEHICLE ATTITUDE AND
031165,000217: 15,2101           22256                                    S52.2                                 #        COMPUTE GIMBAL ANGLES
031166,000218: 15,2102           77776                           EXIT                                           
031167,000219: 15,2103           32156                           CAF      VB06N22                               
031168,000220: 15,2104           04555                           TC       BANKCALL                              #  DISPLAY GIMBAL ANGLES
031169,000221: 15,2105           20624                           CADR     GOFLASH                               
031170,000222: 15,2106           04106                           TC       GOTOPOOH                              
031171,000223: 15,2107           02113                           TC       +4                                    #  PROCEED
031172,000224: 15,2110           06006        P52J               TC       INTPRET                               #  RECYCLE- VEHICLE HAS BEEN MENUEVERED
031173,000225: 15,2111           77650                           GOTO                                           
031174,000226: 15,2112           32100                                    P52D                                  
031175,000227: 15,2113           06006                           TC       INTPRET                               
031176,000228: 15,2114           77624                           CALL                                           #  DO COARSE ALIGN
031177,000229: 15,2115           30756                                    CAL53A                                #        ROUTINE
031178,000230: 15,2116           77414                           SET      EXIT                                  
031179,000231: 15,2117           01462                                    REFSMFLG                              
031180,000232: 15,2120           34720        P52C               CAF      ALRM15                                
031181,000233: 15,2121           04555                           TC       BANKCALL                              
031182,000234: 15,2122           20751                           CADR     GOPERF1                               
031183,000235: 15,2123           04106                           TC       GOTOPOOH                              
031184,000236: 15,2124           02126                           TC       +2                                    #  V33
031185,000237: 15,2125           02140                           TC       P52F                                  #  E
031186,000238: 15,2126           06006                           TC       INTPRET                               
031187,000239: 15,2127           43234                           RTB      DAD                                   
031188,000240: 15,2130           45505                                    LOADTIME                              
031189,000241: 15,2131           32176                                    TSIGHT1                               
031190,000242: 15,2132           77624                           CALL                                           
031191,000243: 15,2133           30216                                    LOCSAM                                
031192,000244: 15,2134           77776                           EXIT                                           
031193,000245: 15,2135           04555        P52E               TC       BANKCALL                              #  DO STAR SELECTION
031194,000246: 15,2136           30324                           CADR     PICAPAR                               
031195,000247: 15,2137           02145                           TC       P52I                                  #  2 STARS NOT AVAILABLE
031196,000248: 15,2140           06006        P52F               TC       INTPRET                               #  2 STARS AVAILABLE
031197,000249: 15,2141           77624                           CALL                                           
031198,000250: 15,2142           30523                                    R51                                   
031199,000251: 15,2143           77776        ENDP50S            EXIT                                           
031200,000252: 15,2144           04106                           TC       GOTOPOOH                              
031201,000253: 15,2145           05537        P52I               TC       ALARM                                 
031202,000254: 15,2146           00405                           OCT      405                                   

Page 697

031204,000256: 15,2147           34743                           CAF      V05N09                                
031205,000257: 15,2150           04555                           TC       BANKCALL                              
031206,000258: 15,2151           20624                           CADR     GOFLASH                               
031207,000259: 15,2152           04106                           TC       GOTOPOOH                              
031208,000260: 15,2153           02140                           TC       P52F                                  #  PROCEED - DO FINE ALIGN-R51
031209,000261: 15,2154           02120                           TC       P52C                                  #  RECYCLE - VEHICLE HAS BEEN MANUEVERED                 
031210,000262: 
031211,000263: 15,2155           01442        V06N34             VN       0634                                  
031212,000264: 15,2156           01426        VB06N22            VN       00622                                 
031213,000265: 15,2157     4720               ALRM15             EQUALS   OCT15                                 
031214,000266: 16,2000                                           SETLOC   P50S2                                 
031215,000267: 16,2000                                           BANK                                           
031216,000268: 16,2505           01531        V06N89*            VN       0689                                  
031217,000269: 
031218,000270:                                                                                                  #  NAME - P52LS
031219,000271: 
031220,000272:                                                                                                  #  FUNCTION - TO DISPLAY THE LANDING SITE LATITUDE,
031221,000273:                                                                                                  #  LONGTITUDE AND ALTITUDE.  TO ACCEPT NEW DATA VIA
031222,000274:                                                                                                  #  THE KEYBOARD.  TO COMPUTE THE LANDING SITE
031223,000275:                                                                                                  #  ORIENTATION FOR P52 OR P54
031224,000276: 
031225,000277:                                                                                                  #  LET:
031226,000278:                                                                                                  #        RLS  = LANDING SITE VECTOR IN REF COORDINATES
031227,000279:                                                                                                  #        R    = CSM POSITION VECTOR IN REF COORDINATES
031228,000280:                                                                                                  #        V    = CSM VELOCITY VECTOR IN REF COORDINATES
031229,000281:                                                                                                  #  THEN THE LANDING SITE ORIENTATION IS:
031230,000282:                                                                                                  #        XSMD = UNIT(RLS)
031231,000283:                                                                                                  #        YSMD = UNIT(ZSMD*XSMD)
031232,000284:                                                                                                  #        ZSMD = UNIT((R*V)*RLS)
031233,000285: 
031234,000286:                                                                                                  #  CALL-         CALL
031235,000287:                                                                                                  #                        P52LS
031236,000288: 
031237,000289:                                                                                                  #  INPUTS-       DSPTEM1 = TIME OF ALIGNMENT
031238,000290:                                                                                                  #                RLS = LANDING SITE VECTOR IN MOON FIXED COORINATES
031239,000291: 
031240,000292:                                                                                                  #  OUTPUTS-      XSMD, YSMD, ZSMD
031241,000293: 
031242,000294:                                                                                                  #  SUBROUTINES-  RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
031243,000295: 
031244,000296:                                                                                                  #  DEBRIS-       VAC, SEE SUBROUTINES
031245,000297: 
031246,000298: 16,2506           43020        P52LS              STQ      SET                                   
031247,000299: 16,2507           00300                                    QMAJ                                  
031248,000300: 16,2510           01463                                    LUNAFLAG                              
031249,000301: 16,2511           77745                           DLOAD                                          
031250,000302: 16,2512           01046                                    DSPTEM1                               
031251,000303: 16,2513           02607                           STORE    TSIGHT                                
031252,000304: 16,2514           43175                           VLOAD    SET                                   
031253,000305: 16,2515           02026                                    RLS                                   
031254,000306: 16,2516           00462                                    ERADFLAG                              
031255,000307: 16,2517           14001                           STODL    0D                                    
031256,000308: 16,2520           02607                                    TSIGHT                                
031257,000309: 16,2521           34007                           STCALL   6D                                    
031258,000310: 16,2522           55341                                    RP-TO-R                               
031259,000311: 16,2523           77742                           VSR2                                           
031260,000312: 16,2524           16152                           STODL    ALPHAV                                
031261,000313: 16,2525           02607                                    TSIGHT                                

Page 698

031263,000315: 16,2526           77624                           CALL                                           
031264,000316: 16,2527           26322                                    LAT-LONG                              
031265,000317: 16,2530           77624                           CALL                                           
031266,000318: 16,2531           61336                                    LLASRD                                
031267,000319: 16,2532           77776                           EXIT                                           
031268,000320: 
031269,000321: 16,2533           32505        LSDISP             CAF      V06N89*                               
031270,000322: 16,2534           04555                           TC       BANKCALL                              
031271,000323: 16,2535           20624                           CADR     GOFLASH                               
031272,000324: 16,2536           04106                           TC       GOTOPOOH                              
031273,000325: 16,2537           02541                           TC       +2                                    
031274,000326: 16,2540           02533                           TC       LSDISP                                
031275,000327: 16,2541           06006                           TC       INTPRET                               
031276,000328: 16,2542           77624                           CALL                                           
031277,000329: 16,2543           61345                                    LLASRDA                               
031278,000330: 16,2544           45145                           DLOAD    CALL                                  
031279,000331: 16,2545           02607                                    TSIGHT                                
031280,000332: 16,2546           26373                                    LALOTORV                              
031281,000333: 16,2547           53575                           VLOAD    UNIT                                  
031282,000334: 16,2550           02152                                    ALPHAV                                
031283,000335: 16,2551           14307                           STODL    XSMD                                  
031284,000336: 16,2552           02607                                    TSIGHT                                
031285,000337: 16,2553           34041                           STCALL   TDEC1                                 
031286,000338: 16,2554           27022                                    CSMPREC                               
031287,000339: 16,2555           47375                           VLOAD    VXV                                   
031288,000340: 16,2556           00001                                    RATT                                  
031289,000341: 16,2557           00007                                    VATT                                  
031290,000342: 16,2560           53435                           VXV      UNIT                                  
031291,000343: 16,2561           00307                                    XSMD                                  
031292,000344: 16,2562           00323                           STORE    ZSMD                                  
031293,000345: 16,2563           53435                           VXV      UNIT                                  
031294,000346: 16,2564           00307                                    XSMD                                  
031295,000347: 16,2565           34315                           STCALL   YSMD                                  
031296,000348: 16,2566           00300                                    QMAJ                                  
031297,000349: 14,2000                                           SETLOC   P50S1                                 
031298,000350: 14,2000                                           BANK                                           
031299,000351: 
031300,000352: 
031301,000353:                                                                                                  #  NAME-         AUTOMATIC OPTICS POSITIONING ROUTINE
031302,000354: 
031303,000355:                                                                                                  #  FUNCTION-     (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
031304,000356:                                                                                                  #                (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
031305,000357: 
031306,000358:                                                                                                  #  CALLING SEQUENCE- CALL R52
031307,000359: 
031308,000360:                                                                                                  #  INPUT-        1.  TARG1FLG AND TARG2FLG-  PRESET BY CALLER
031309,000361:                                                                                                  #                2.  RNDVZFLG AND TRACKFLG-  PRESET BY CALLER
031310,000362:                                                                                                  #                3.  STAR CODE-  PRESET BY CALLER.  ALSO INPUT THROUGH DSKY
031311,000363:                                                                                                  #                4.  LAT, LONG AND ALT OF LANDMARK-  INPUT THROUGH DSKY
031312,000364:                                                                                                  #                5.  NO. OF MARKS (MARKINDX)-  PRESET BY CALLER
031313,000365: 
031314,000366:                                                                                                  #  OUTPUT-       DRIVE SHAFT AND TRUNNION CDUS

Page 699

031316,000368: 
031317,000369:                                                                                                  #  SUBROUTINES-  1.  FIXDELAY            7.  CLEANDSP
031318,000370:                                                                                                  #                2.  GOPERF1             8.  GODSPR
031319,000371:                                                                                                  #                3.  GOFLASH             9.  REFLASHR
031320,000372:                                                                                                  #                4.  R53                 10. R52.2
031321,000373:                                                                                                  #                5.  ALARM               11. R52.3
031322,000374:                                                                                                  #                6.  SR52.1
031323,000375: 
031324,000376: 14,2002                                           COUNT    15/R52                                
031325,000377: 
031326,000378: 14,2002           43020        R52                STQ      CLEAR                                 
031327,000379: 14,2003           02576                                    SAVQR52                               
031328,000380: 14,2004           04265                                    ADVTRK                                
031329,000381: 14,2005           77776        R52VRB             EXIT                                           
031330,000382: 14,2006           00006                           EXTEND                                         
031331,000383: 14,2007           30036                           DCA      CDUT                                  
031332,000384: 14,2010           53161                           DXCH     DESOPTT                               
031333,000385: 14,2011           06006                           TC       INTPRET                               
031334,000386: 14,2012           43131                           SSP      CLEAR                                 
031335,000387: 14,2013           01304                                    OPTIND                                
031336,000388: 14,2014           00000                                    0                                     
031337,000389: 14,2015           00271                                    R53FLAG                               
031338,000390: 14,2016           77776                           EXIT                                           
031339,000391: 14,2017           06006        R52A               TC       INTPRET                               
031340,000392: 14,2020           43014                           SET      BON                                   
031341,000393: 14,2021           00073                                    TRUNFLAG                              
031342,000394: 14,2022           00705                                    TARG1FLG                              
031343,000395: 14,2023           30103                                    R52H                                  
031344,000396: 14,2024           77414                           CLEAR    EXIT                                  
031345,000397: 14,2025           03660                                    TERMIFLG                              
031346,000398: 14,2026           31314        R52C               CA       SWSAMPLE                              #  IS OPTICS MODE IN AGC
031347,000399: 14,2027           00006                           EXTEND                                         
031348,000400: 14,2030           62131                           BZMF     R52M                                  #  MANUAL
031349,000401: 14,2031           04555        R52D               TC       BANKCALL                              #  AGC
031350,000402: 14,2032           26176                           CADR     SR52.1                                
031351,000403: 14,2033           12161                           TCF      R52L                                  #  GR 90 DEGREES
031352,000404: 14,2034           12124                           TCF      R52J                                  #  GR 50 DEGREES
031353,000405: 14,2035           05435                           TC       UPFLAG                                #  LS 50 DEGREES
031354,000406: 14,2036           00013                           ADRES    TRUNFLAG                              #  SET TRUNFLAG BIT 4 FLAG 0
031355,000407: 14,2037           34701        R52JA              CAF      BIT10                                 #  IS THIS A LEM
031356,000408: 14,2040           70075                           MASK     STATE      +1                         
031357,000409: 14,2041           10000                           CCS      A                                     
031358,000410: 14,2042           02052                           TC       R52E                                  #  YES
031359,000411: 14,2043           34705                           CAF      BIT6                                  #  NO, IS R53FLAG SET
031360,000412: 14,2044           70074                           MASK     STATE                                 
031361,000413: 14,2045           10000                           CCS      A                                     
031362,000414: 14,2046           12052                           TCF      R52E                                  #  YES
031363,000415: 14,2047           32151                           CAF      V06N92                                #  NO
031364,000416: 14,2050           04555                           TC       BANKCALL                              
031365,000417: 14,2051           20602                           CADR     GODSPR                                
031366,000418: 14,2052           31314        R52E               CA       SWSAMPLE                              #  IS OSS IN CMC MODE

Page 700

031368,000420: 14,2053           00006                           EXTEND                                         
031369,000421: 14,2054           62065                           BZMF     R52F                                  #  NO
031370,000422: 14,2055           40074                           CS       STATE                                 #  YES- IS TRUNFLAG SET
031371,000423: 14,2056           74707                           MASK     BIT4                                  
031372,000424: 14,2057           10000                           CCS      A                                     
031373,000425: 14,2060           02063                           TC       +3                                    #  NO
031374,000426: 14,2061           31775                           CA       PAC                                   #  YES
031375,000427: 14,2062           55160                           TS       DESOPTT                               
031376,000428: 14,2063           31773                           CA       SAC                                   
031377,000429: 14,2064           55161                           TS       DESOPTS                               
031378,000430: 14,2065           34731        R52F               CAF      .5SEC                                 #  WAIT 1/2 SEC
031379,000431: 14,2066           04555                           TC       BANKCALL                              
031380,000432: 14,2067           01732                           CADR     DELAYJOB                              
031381,000433: 14,2070           34701                           CAF      BIT10                                 
031382,000434: 14,2071           70075                           MASK     STATE      +1                         
031383,000435: 14,2072           10000                           CCS      A                                     
031384,000436: 14,2073           12104                           TCF      R52HA                                 #  YES, LEM
031385,000437: 14,2074           34674                           CAF      BIT15                                 #  NO
031386,000438: 14,2075           70103                           MASK     STATE      +7                         #  IS TERMIFLG SET
031387,000439: 14,2076           00006                           EXTEND                                         
031388,000440: 14,2077           12026                           BZF      R52C                                  #  NO
031389,000441: 14,2100           06006        R52Q               TC       INTPRET                               #  YES
031390,000442: 14,2101           77650                           GOTO                                           
031391,000443: 14,2102           02576                                    SAVQR52                               
031392,000444: 14,2103           77776        R52H               EXIT                                           #  LEM
031393,000445: 14,2104           04555        R52HA              TC       BANKCALL                              
031394,000446: 14,2105           76536                           CADR     R61CSM                                
031395,000447: 14,2106           30075                           CA       STATE      +1                         
031396,000448: 14,2107           74706                           MASK     BIT5                                  
031397,000449: 14,2110           00006                           EXTEND                                         #  TRACKFLG
031398,000450: 14,2111           12100                           BZF      R52Q                                  
031399,000451: 
031400,000452: 14,2112           40075                           CS       STATE      +1                         
031401,000453: 14,2113           74704                           MASK     BIT7                                  #  UPDATFLG
031402,000454: 14,2114           10000                           CCS      A                                     
031403,000455: 14,2115           12122                           TCF      R52SYNC                               
031404,000456: 
031405,000457: 14,2116           30101        R52I               CA       STATE      +5                         
031406,000458: 14,2117           74701                           MASK     BIT10                                 
031407,000459: 14,2120           10000                           CCS      A                                     
031408,000460: 14,2121           02031                           TC       R52D                                  #  PRFTRKAT = 1
031409,000461: 14,2122           32175        R52SYNC            CAF      1.8SEC                                #  MAKE UP FOR LOST TIME
031410,000462: 14,2123           12066                           TCF      R52F       +1                         
031411,000463: 
031412,000464: 14,2124           05447        R52J               TC       DOWNFLAG                              #  CLEAR TRUNFLAG
031413,000465: 14,2125           00013                           ADRES    TRUNFLAG                              #  BIT 4 FLAG 0
031414,000466: 14,2126           05537                           TC       ALARM                                 #  SET 407 ALARM
031415,000467: 14,2127           00407                           OCT      407                                   
031416,000468: 14,2130           02037                           TC       R52JA                                 
031417,000469: 14,2131           34705        R52M               CAF      BIT6                                  #  IS R53FLAG SET

Page 701

031419,000471: 14,2132           70074                           MASK     STATE                                 
031420,000472: 14,2133           10000                           CCS      A                                     
031421,000473: 14,2134           02065                           TC       R52F                                  #  YES
031422,000474: 14,2135           00004                           INHINT                                         #  NO
031423,000475: 14,2136           37661                           CAF      PRIO24                                
031424,000476: 14,2137           05042                           TC       FINDVAC                               
031425,000477: 14,2140  E5,1773                                  EBANK=   SAC                                   
031426,000478: 14,2140           02144 30065                     2CADR    R53JOB                                
031427,000479: 
031428,000480: 14,2142           00003                           RELINT                                         
031429,000481: 14,2143           12065                           TCF      R52F                                  
031430,000482: 14,2144           06006        R53JOB             TC       INTPRET                               
031431,000483: 14,2145           77624                           CALL                                           
031432,000484: 14,2146           31322                                    R53                                   
031433,000485: 14,2147           77776        ENDPLAC            EXIT                                           #  INTERPRETER RETURN TO ENDOFJOB (R22 USES)
031434,000486: 14,2150           05112                           TC       ENDOFJOB                              
031435,000487: 
031436,000488: 14,2151           01534        V06N92             VN       00692                                 
031437,000489: 14,2152           01531        V06N89A            VN       0689                                  
031438,000490: 14,2153           10464 12470  SHAXIS             2DEC     .5376381241 B-1                        
031439,000491: 14,2155           00000 00000                     2DEC     0          B-28                       
031440,000492: 14,2157           15373 11554                     2DEC     .8431766920 B-1                        
031441,000493: 
031442,000494: 14,2161           34701        R52L               CAF      BIT10                                 #  IS THIS A LEM
031443,000495: 14,2162           70075                           MASK     STATE      +1                         
031444,000496: 14,2163           10000                           CCS      A                                     
031445,000497: 14,2164           02124                           TC       R52J                                  #  YES
031446,000498: 14,2165           32174                           CAF      OCT404                                
031447,000499: 14,2166           04555                           TC       BANKCALL                              
031448,000500: 14,2167           21671                           CADR     PRIOLARM                              
031449,000501: 14,2170           12176                           TCF      TERM52                                #  TERMINATE
031450,000502: 14,2171           12065                           TCF      R52F                                  #  PROCEED
031451,000503: 14,2172           12065                           TCF      R52F                                  #  NO PROVISION FOR NEW DATA
031452,000504: 14,2173           15112                           TCF      ENDOFJOB                              
031453,000505: 
031454,000506: 14,2174           00404        OCT404             OCT      404                                   
031455,000507: 14,2175           00264        1.8SEC             DEC      180        B-14                       
031456,000508: 
031457,000509: 14,2176           05425        TERM52             TC       CLEARMRK                              
031458,000510: 
031459,000511: 14,2177           04555                           TC       BANKCALL                              #  KILL MARK SYSTEM
031460,000512: 14,2200           16063                           CADR     MKRELEAS                              
031461,000513: 
031462,000514: 14,2201           34714                           CAF      ZERO                                  
031463,000515: 14,2202           55323                           TS       OPTCADR                               
031464,000516: 
031465,000517: 14,2203           04555                           TC       BANKCALL                              #  CLEAR OUT EXTENDED VERBS

Page 702

031467,000519: 14,2204           20464                           CADR     KLEENEX                               
031468,000520: 
031469,000521: 14,2205           04106                           TC       GOTOPOOH                              #  NOW GO TO POO
031470,000522: 
031471,000523: 14,2206           43020        ADVORB             STQ      SET                                   #  SETS UP ADVANCED ORBIT TRACKING
031472,000524: 14,2207           02576                                    SAVQR52                               
031473,000525: 14,2210           04065                                    ADVTRK                                
031474,000526: 14,2211           43014                           SET      SET                                   
031475,000527: 14,2212           01463                                    LUNAFLAG                              
031476,000528: 14,2213           00462                                    ERADFLAG                              
031477,000529: 14,2214           77650                           GOTO                                           
031478,000530: 14,2215           30005                                    R52VRB                                

Page 703

031480,000532:                                                                                                  #  NAME - S50 ALIAS LOCSAM
031481,000533:                                                                                                  #  NAME- LOCSAM
031482,000534: 
031483,000535:                                                                                                  #  FUNCTION - TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
031484,000536:                                                                                                  #              IMU ALIGNMENT PROGRAMS
031485,000537: 
031486,000538:                                                                                                  #        DEFINE:
031487,000539: 
031488,000540:                                                                                                  #        RATT = POSITION VECTOR OF CM WRT PRIMARY BODY
031489,000541: 
031490,000542:                                                                                                  #        VATT = VELOCITY VECTOR OF CM WRT PRIMARY BODY
031491,000543: 
031492,000544:                                                                                                  #        RE = RADIUS OF EARTH
031493,000545: 
031494,000546:                                                                                                  #        RM = RADIUS OF MOON
031495,000547: 
031496,000548:                                                                                                  #        ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
031497,000549:                                                                                                  #                  WRT TO SUNOVER THE VELOCITY OF LIGHT
031498,000550: 
031499,000551:                                                                                                  #        REM = POSITION OF MOON WRT EARTH
031500,000552: 
031501,000553:                                                                                                  #        RES = POSITION OF SUN WRT EARTH
031502,000554: 
031503,000555:                                                                                                  #        C = VELOCITY OF LIGHT
031504,000556: 
031505,000557:                                                                                                  #                EARTH IS PRIMARY                        MOON IS PRIMARY
031506,000558:                                                                                                  #                        -                                       -
031507,000559:                                                                                                  #                VEARTH=-1(RATT)                         VEARTH=-1(REM+RATT)
031508,000560:                                                                                                  #                        -                                       -
031509,000561:                                                                                                  #                VMOON = 1(REM-RATT)                     VMOON =-1(RATT)
031510,000562:                                                                                                  #                        -                                       -
031511,000563:                                                                                                  #                VSUN  = 1(RES)                          VSUN  = 1(RES-REM)
031512,000564:                                                                                                  #                              -1
031513,000565:                                                                                                  #                CEARTH=COS(SIN  (RE/RATT)+5)            CEARTH=COS 5
031514,000566:                                                                                                  #                                                                      -1
031515,000567:                                                                                                  #                CMOON =COS 5                            CMOON =COS(SIN  CRM/RATT)+5)
031516,000568: 
031517,000569:                                                                                                  #                CSUN  =COS 15                           CSUN  =COS 15
031518,000570: 
031519,000571:                                                                                                  #                            VEL/C = VSUN X ECLIPOL + VATT/C
031520,000572: 
031521,000573:                                                                                                  #  CALL -        DLOAD   CALL
031522,000574:                                                                                                  #                        DESIRED TIME
031523,000575:                                                                                                  #                        LOCSAM
031524,000576: 
031525,000577:                                                                                                  #  INPUTS -      MPAC = TIME
031526,000578: 
031527,000579:                                                                                                  #  OUTPUTS -     VEARTH, VMOON, VSUN, CEARTH, CMOON, CSUN, VEL/C
031528,000580: 
031529,000581:                                                                                                  #  SUBROUTINES - LSPOS, CSMCONIC
031530,000582: 
031531,000583:                                                                                                  #  DEBRIS -      VAC AREA, SEE SUBROUTINES
031532,000584: 

Page 704

031534,000586: 14,2000                                           SETLOC   P50S1                                 
031535,000587: 14,2000                                           BANK                                           
031536,000588: 
031537,000589: 14,2216                                           COUNT*   $$/S50                                
031538,000590: 
031539,000591: 14,2216  14,2216               LOCSAM             =        S50                                   
031540,000592: 14,2216           77620        S50                STQ                                            
031541,000593: 14,2217           00300                                    QMAJ                                  
031542,000594: 14,2220           36607                           STCALL   TSIGHT                                
031543,000595: 14,2221           54110                                    LSPOS                                 
031544,000596: 14,2222           26752                           STOVL    VMOON                                 
031545,000597: 14,2223           00003                                    2D                                    
031546,000598: 14,2224           16744                           STODL    VSUN                                  
031547,000599: 14,2225           02607                                    TSIGHT                                
031548,000600: 14,2226           34041                           STCALL   TDEC1                                 
031549,000601: 14,2227           27045                                    CSMCONIC                              
031550,000602: 14,2230           61131                           SSP      TIX,2                                 
031551,000603: 14,2231           00052                                    S2                                    
031552,000604: 14,2232           00000                                    0                                     
031553,000605: 14,2233           30256                                    MOONCNTR                              
031554,000606: 14,2234           52375        EARTCNTR           VLOAD    VSU                                   
031555,000607: 14,2235           02752                                    VMOON                                 
031556,000608: 14,2236           00001                                    RATT                                  
031557,000609: 14,2237           77656                           UNIT                                           
031558,000610: 14,2240           26752                           STOVL    VMOON                                 
031559,000611: 14,2241           00001                                    RATT                                  
031560,000612: 14,2242           57456                           UNIT     VCOMP                                 
031561,000613: 14,2243           16736                           STODL    VEARTH                                
031562,000614: 14,2244           32162                                    RSUBE                                 
031563,000615: 14,2245           77624                           CALL                                           
031564,000616: 14,2246           30316                                    OCCOS                                 
031565,000617: 14,2247           14017                           STODL    CEARTH                                
031566,000618: 14,2250           32200                                    CSS5                                  
031567,000619: 14,2251           24023                           STOVL    CMOON                                 
031568,000620: 14,2252           02744                                    VSUN                                  
031569,000621: 14,2253           77656                           UNIT                                           
031570,000622: 14,2254           36744                           STCALL   VSUN                                  
031571,000623: 14,2255           30303                                    ENDSAM                                
031572,000624: 14,2256           40575        MOONCNTR           VLOAD    VSR8                                  
031573,000625: 14,2257           02752                                    VMOON                                 
031574,000626: 14,2260           51362                           VSR1     BVSU                                  
031575,000627: 14,2261           02744                                    VSUN                                  
031576,000628: 14,2262           77656                           UNIT                                           
031577,000629: 14,2263           26744                           STOVL    VSUN                                  
031578,000630: 14,2264           02752                                    VMOON                                 
031579,000631: 14,2265           53455                           VAD      UNIT                                  
031580,000632: 14,2266           00001                                    RATT                                  
031581,000633: 14,2267           77676                           VCOMP                                          
031582,000634: 14,2270           26736                           STOVL    VEARTH                                

Page 705

031584,000636: 
031585,000637: 14,2271           00001                                    RATT                                  
031586,000638: 14,2272           57456                           UNIT     VCOMP                                 
031587,000639: 14,2273           16752                           STODL    VMOON                                 
031588,000640: 14,2274           32160                                    RSUBM                                 
031589,000641: 14,2275           77624                           CALL                                           
031590,000642: 14,2276           30316                                    OCCOS                                 
031591,000643: 14,2277           14023                           STODL    CMOON                                 
031592,000644: 14,2300           32200                                    CSS5                                  
031593,000645: 14,2301           24017                           STOVL    CEARTH                                
031594,000646: 14,2302           02744                                    VSUN                                  
031595,000647: 14,2303           77635        ENDSAM             VXV                                            
031596,000648: 14,2304           32170                                    ECLIPOL                               
031597,000649: 14,2305           27474                           STOVL    VEL/C                                 
031598,000650: 14,2306           00007                                    VATT                                  
031599,000651: 14,2307           53361                           VXSC     VAD                                   
031600,000652: 14,2310           32166                                    1/C                                   
031601,000653: 14,2311           03474                                    VEL/C                                 
031602,000654: 14,2312           17474                           STODL    VEL/C                                 
031603,000655: 14,2313           32202                                    CSSUN                                 
031604,000656: 14,2314           34021                           STCALL   CSUN                                  
031605,000657: 14,2315           00300                                    QMAJ                                  
031606,000658: 14,2316           70471        OCCOS              DDV      SR1                                   
031607,000659: 14,2317           00045                                    36D                                   
031608,000660: 14,2320           43336                           ASIN     DAD                                   
031609,000661: 14,2321           32164                                    5DEGREES                              
031610,000662: 14,2322           70546                           COS      SR1                                   
031611,000663: 14,2323           77616                           RVQ                                            
031612,000664: 15,2000                                           SETLOC   P50S                                  
031613,000665: 15,2000                                           BANK                                           
031614,000666: 15,2157           00065 01265  RSUBM              2DEC     1738090    B-29                       #  MOON RADIUS IN METERS
031615,000667: 15,2161           00302 24533  RSUBE              2DEC     6378166    B-29                       
031616,000668: 15,2163           00343 21616  5DEGREES           2DEC     .013888889                            #  SCALED IN REVS
031617,000669: 15,2165           00000 13143  1/C                2DEC     .000042699 B-1                        #  *
031618,000670: 15,2167           00000 00000  ECLIPOL            2DEC     0          B-28                       #  *
031619,000671: 15,2171           77777 53231                     2DEC     -.00007896 B-1                        #  *
031620,000672: 15,2173           00001 17570                     2DEC     .00018209  B-1                        #  *             * FOR USE BY CSM ONLY
031621,000673: 15,2175           00001 16700  TSIGHT1            2DEC     24000      B-28                       
031622,000674: 
031623,000675: 15,2177                        CEARTH             =        14D                                   
031624,000676: 15,2177                        CSUN               =        16D                                   
031625,000677: 15,2177                        CMOON              =        18D                                   
031626,000678: 15,2177           07760 14473  CSS5               2DEC     .2490475                              #  (COS 5)/4

Page 706

031628,000680: 15,2201           07564 15042  CSSUN              2DEC     .24148                                #  COS 15 /4
031629,000681: 

Page 707

031631,000683:                                                                                                  #  PROGRAM NAME - PICAPAR        DATE  DEC 20 66
031632,000684:                                                                                                  #  MOD 1                         LOG SECTION  P51-P53
031633,000685:                                                                                                  #                                ASSEMBLY   SUNDISK REV40
031634,000686:                                                                                                  #  BY KEN VINCENT
031635,000687: 
031636,000688:                                                                                                  #  FUNCTION
031637,000689:                                                                                                  #        THIS PROGRAM READ THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
031638,000690:                                                                                                  #        WITH RESPECT TO INERTIAL SPACE.  IT THEN COMPUTES THE SHAFT AXIS (SAX)
031639,000691:                                                                                                  #        WITH RESPECT TO REFERENCE INERTIAL.  EACH STAR IN THE CATALOG IS TESTED
031640,000692:                                                                                                  #        TO DETERMINE IF IT IS OCCULTED BY EITHER THE EARTH, SUN OR MOON.  IF A
031641,000693:                                                                                                  #        STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STAR OF LOWER INDEX.
031642,000694:                                                                                                  #        THE PAIRED STAR IS TESTED FOR OCCULTATION.  PAIRS OF STARS THAT PASS
031643,000695:                                                                                                  #        THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION.  A PAIR OF STARS
031644,000696:                                                                                                  #        HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 66 DEGREES
031645,000697:                                                                                                  #        AND MORE THAN 40 DEGREES.  THOSE PAIRS OF STARS WITH GOOD SEPARATION
031646,000698:                                                                                                  #        ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW.  (WITHIN
031647,000699:                                                                                                  #        33 DEGREES OF SAX).  THE PAIR WITH MAXIMUM SEPARATION IS CHOSEN FROM
031648,000700:                                                                                                  #        THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
031649,000701: 
031650,000702:                                                                                                  #  CALLING SEQUENCE
031651,000703:                                                                                                  #        L       TC      BANKCALL
031652,000704:                                                                                                  #        L+1     CADR    PICAPAR
031653,000705:                                                                                                  #        L+2     ERROR RETURN - NO STARS IN FIELD OF VIEW
031654,000706:                                                                                                  #        L+3     NORMAL RETURN
031655,000707: 
031656,000708:                                                                                                  #  OUTPUT
031657,000709:                                                                                                  #        BESTI, BESTJ - SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
031658,000710:                                                                                                  #        VFLAG - FLAG BIT SET IMPLIES NO STARS IN FIELD OF VIEW
031659,000711: 
031660,000712:                                                                                                  #  INITIALIZATION
031661,000713:                                                                                                  #        1)      A CALL TO LOCSAM MUST BE MADE
031662,000714:                                                                                                  #        2)      VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TOO APPROXIMATE TIME OF
031663,000715:                                                                                                  #                SIGHTINGS.
031664,000716: 
031665,000717:                                                                                                  #  DEBRIS
031666,000718:                                                                                                  #        WORK AREA
031667,000719:                                                                                                  #        X,Y,ZNB
031668,000720:                                                                                                  #        SINCDU, COSCDU
031669,000721:                                                                                                  #        STARAD - STAR +5
031670,000722: 
031671,000723: 15,2203                                           COUNT    14/PICAP                              
031672,000724: 
031673,000725: 14,2000                                           SETLOC   P50S1                                 
031674,000726: 14,2000                                           BANK                                           
031675,000727: 14,2324           04604        PICAPAR            TC       MAKECADR                              
031676,000728: 14,2325           55777                           TS       QMIN                                  
031677,000729: 14,2326           06006                           TC       INTPRET                               
031678,000730: 14,2327           77624                           CALL                                           
031679,000731: 14,2330           47432                                    CDUTRIG                               
031680,000732: 14,2331           77624                           CALL                                           
031681,000733: 14,2332           34567                                    CALCSMSC                              

Page 708

031683,000735: 14,2333           77601                           SETPD                                          
031684,000736: 14,2334           00001                                    0                                     
031685,000737: 14,2335           71214                           SET      DLOAD                                 #  VFLAG = 1
031686,000738: 14,2336           01465                                    VFLAG                                 
031687,000739: 14,2337           11456                                    DPZERO                                
031688,000740: 14,2340           24303                           STOVL    BESTI                                 
031689,000741: 14,2341           02714                                    XNB                                   
031690,000742: 14,2342           63361                           VXSC     PDVL                                  
031691,000743: 14,2343           30502                                    SIN33                                 
031692,000744: 14,2344           02730                                    ZNB                                   
031693,000745: 14,2345           74370                           AXT,1    VXSC                                  
031694,000746: 14,2346           00344                                    228D                                  #  X1 = 37 X 6 + 6
031695,000747: 14,2347           30504                                    COS33                                 
031696,000748: 14,2350           77655                           VAD                                            
031697,000749: 14,2351           53505                           VXM      UNIT                                  
031698,000750: 14,2352           01736                                    REFSMMAT                              
031699,000751: 14,2353           02760                           STORE    SAX                                   #  SAX = SHAFT AXIS
031700,000752: 14,2354           66331                           SSP      SSP                                   #  S1 = S2 = 6
031701,000753: 14,2355           00051                                    S1                                    
031702,000754: 14,2356           00006                                    6                                     
031703,000755: 14,2357           00052                                    S2                                    
031704,000756: 14,2360           00006                                    6                                     
031705,000757: 14,2361           52100        PIC1               TIX,1    GOTO                                  #  MAJOR STAR
031706,000758: 14,2362           30364                                    PIC2                                  
031707,000759: 14,2363           30513                                    PICEND                                
031708,000760: 14,2364           45173        PIC2               VLOAD*   CALL                                  
031709,000761: 14,2365           31744                                    CATLOG,1                              
031710,000762: 14,2366           30457                                    OCCULT                                
031711,000763: 14,2367           73014                           BON      LXA,2                                 
031712,000764: 14,2370           01710                                    CULTFLAG                              
031713,000765: 14,2371           30361                                    PIC1                                  
031714,000766: 14,2372           00046                                    X1                                    
031715,000767: 14,2373           52104        PIC3               TIX,2    GOTO                                  
031716,000768: 14,2374           30376                                    PIC4                                  
031717,000769: 14,2375           30361                                    PIC1                                  
031718,000770: 14,2376           45173        PIC4               VLOAD*   CALL                                  
031719,000771: 14,2377           46033                                    CATLOG,2                              
031720,000772: 14,2400           30457                                    OCCULT                                
031721,000773: 14,2401           76614                           BON      VLOAD*                                
031722,000774: 14,2402           01710                                    CULTFLAG                              
031723,000775: 14,2403           30373                                    PIC3                                  
031724,000776: 14,2404           31744                                    CATLOG,1                              
031725,000777: 14,2405           45237                           DOT*     DSU                                   
031726,000778: 14,2406           46033                                    CATLOG,2                              
031727,000779: 14,2407           30506                                    CSS66                                 #  SEPERATION LESS THAN 66 DEG.
031728,000780: 14,2410           43240                           BMN      DAD                                   
031729,000781: 14,2411           30373                                    PIC3                                  
031730,000782: 14,2412           30510                                    CSS6640                               #  SEPERATION MORE THAN 40 DEG.
031731,000783: 14,2413           77644                           BPL                                            
031732,000784: 14,2414           30373                                    PIC3                                  

Page 709

031734,000786: 14,2415           50373                           VLOAD*   DOT                                   
031735,000787: 14,2416           31744                                    CATLOG,1                              
031736,000788: 14,2417           02760                                    SAX                                   
031737,000789: 14,2420           50025                           DSU      BMN                                   #  MAJOR STAR IN CONE
031738,000790: 14,2421           30512                                    CSS33                                 
031739,000791: 14,2422           30361                                    PIC1                                  
031740,000792: 14,2423           50373                           VLOAD*   DOT                                   
031741,000793: 14,2424           46033                                    CATLOG,2                              
031742,000794: 14,2425           02760                                    SAX                                   
031743,000795: 14,2426           51025                           DSU      BPL                                   
031744,000796: 14,2427           30512                                    CSS33                                 
031745,000797: 14,2430           30433                                    STRATGY                               
031746,000798: 14,2431           77650                           GOTO                                           
031747,000799: 14,2432           30373                                    PIC3                                  
031748,000800: 14,2433           77614        STRATGY            BONCLR                                         
031749,000801: 14,2434           01605                                    VFLAG                                 
031750,000802: 14,2435           30452                                    NEWPAR                                
031751,000803: 14,2436           65120                           XCHX,1   XCHX,2                                
031752,000804: 14,2437           00302                                    BESTI                                 
031753,000805: 14,2440           00303                                    BESTJ                                 
031754,000806: 14,2441           47773        STRAT              VLOAD*   DOT*                                  
031755,000807: 14,2442           31744                                    CATLOG,1                              
031756,000808: 14,2443           46033                                    CATLOG,2                              
031757,000809: 14,2444           43006                           PUSH     BOFINV                                
031758,000810: 14,2445           01545                                    VFLAG                                 
031759,000811: 14,2446           30436                                    STRAT      -3                         
031760,000812: 14,2447           45345                           DLOAD    DSU                                   
031761,000813: 14,2450           77644                           BPL                                            
031762,000814: 14,2451           30373                                    PIC3                                  
031763,000815: 14,2452           67130        NEWPAR             SXA,1    SXA,2                                 
031764,000816: 14,2453           00302                                    BESTI                                 
031765,000817: 14,2454           00303                                    BESTJ                                 
031766,000818: 14,2455           77650                           GOTO                                           
031767,000819: 14,2456           30373                                    PIC3                                  
031768,000820: 14,2457           51321        OCCULT             MXV      BVSU                                  
031769,000821: 14,2460           02736                                    CULTRIX                               
031770,000822: 14,2461           00017                                    CSS                                   
031771,000823: 14,2462           77654                           BZE                                            
031772,000824: 14,2463           30476                                    CULTED                                
031773,000825: 14,2464           75240                           BMN      SIGN                                  
031774,000826: 14,2465           30476                                    CULTED                                
031775,000827: 14,2466           00160                                    MPAC       +3                         
031776,000828: 14,2467           75240                           BMN      SIGN                                  
031777,000829: 14,2470           30476                                    CULTED                                
031778,000830: 14,2471           00162                                    MPAC       +5                         
031779,000831: 14,2472           43040                           BMN      CLRGO                                 
031780,000832: 14,2473           30476                                    CULTED                                
031781,000833: 14,2474           01630                                    CULTFLAG                              
031782,000834: 14,2475           00052                                    QPRET                                 
031783,000835: 14,2476           77614        CULTED             SETGO                                          

Page 710

031785,000837: 14,2477           01430                                    CULTFLAG                              
031786,000838: 14,2500           00052                                    QPRET                                 
031787,000839: 14,2501  0000016               CSS                =        CEARTH                                
031788,000840: 14,2501           21150 25157  SIN33              2DEC     .5376381241                            
031789,000841: 14,2503           32766 22713  COS33              2DEC     .8431756920                            
031790,000842: 14,2505           01736 35137  CSS66              2DEC     .060480472                            #  (COS76)/4
031791,000843: 14,2507           73003 65403  CSS6640            2DEC     -.15602587                            #  (COS76 - COS30)/4
031792,000844: 14,2511           06233 26112  CSS33              2DEC     .197002688                            #  COS(1/2(76))/4
031793,000845: 
031794,000846: 14,2513           77414        PICEND             BOFF     EXIT                                  
031795,000847: 14,2514           01745                                    VFLAG                                 
031796,000848: 14,2515           30517                                    PICGXT                                
031797,000849: 14,2516           02521                           TC       PICBXT                                
031798,000850: 14,2517           77776        PICGXT             EXIT                                           
031799,000851: 14,2520           25777                           INCR     QMIN                                  
031800,000852: 14,2521           31777        PICBXT             CA       QMIN                                  
031801,000853: 14,2522           04561                           TC       SWCALL                                
031802,000854:                                                                                                  # V1             =       12D
031803,000855: 

Page 711

031805,000857:                                                                                                  #  NAME - R51    FINE ALIGN
031806,000858:                                                                                                  #  FUNCTION - TO ALIGN THE STABLE MEMBER TO REFSMMAT
031807,000859:                                                                                                  #  CALLING SEQ - CALL R51
031808,000860:                                                                                                  #  INPUT - BESTI, BESTJ (PAIR OF STAR NO)
031809,000861:                                                                                                  #  OUTPUT - GYRO TORQUE PULSES
031810,000862:                                                                                                  #  SUBROUTINES - R52, R54, R55 (SXTNB, NBSM, AXISGEN
031811,000863: 
031812,000864: 14,2523                                           COUNT    14/R51                                
031813,000865: 
031814,000866: 14,2523           77776        R51                EXIT                                           
031815,000867: 14,2524           34712                           CAF      BIT1                                  
031816,000868: 14,2525           54304                           TS       STARIND                               
031817,000869: 14,2526           54301                           TS       MARKINDX                              
031818,000870: 14,2527           06006        R51.2              TC       INTPRET                               
031819,000871: 14,2530           43014        R51.3              CLEAR    CLEAR                                 
031820,000872: 14,2531           00666                                    TARG2FLG                              
031821,000873: 14,2532           00665                                    TARG1FLG                              
031822,000874: 14,2533           77776                           EXIT                                           
031823,000875: 14,2534           05301                           TC       PHASCHNG                              
031824,000876: 14,2535           05024                           OCT      05024                                 #  RESTART GR 4 FOR R52-R53
031825,000877: 14,2536           13000                           OCT      13000                                 
031826,000878: 14,2537           50304                           INDEX    STARIND                               
031827,000879: 14,2540           30302                           CA       BESTI                                 
031828,000880: 14,2541           00006                           EXTEND                                         
031829,000881: 14,2542           72701                           MP       1/6TH                                 
031830,000882: 14,2543           54735                           TS       STARCODE                              
031831,000883: 14,2544           32700                           CAF      V01N70                                
031832,000884: 14,2545           04555                           TC       BANKCALL                              
031833,000885: 14,2546           20763                           CADR     GOFLASHR                              
031834,000886: 14,2547           04106                           TC       GOTOPOOH                              
031835,000887: 14,2550           02555                           TC       +5                                    
031836,000888: 14,2551           02544                           TC       -5                                    
031837,000889: 14,2552           36211                           CAF      SIX                                   
031838,000890: 14,2553           05415                           TC       BLANKET                               
031839,000891: 14,2554           15112                           TCF      ENDOFJOB                              
031840,000892: 14,2555           06006                           TC       INTPRET                               
031841,000893: 14,2556           45034                           RTB      CALL                                  
031842,000894: 14,2557           45505                                    LOADTIME                              
031843,000895: 14,2560           32363                                    PLANET                                
031844,000896: 14,2561           72131                           SSP      LXA,1                                 
031845,000897: 14,2562           00051                                    S1                                    
031846,000898: 14,2563           00000                                    0                                     
031847,000899: 14,2564           00304                                    STARIND                               
031848,000900: 14,2565           77700                           TIX,1                                          
031849,000901: 14,2566           30571                                    R51ST                                 
031850,000902: 14,2567           36617                           STCALL   STARSAV2                              #  2ND STAR
031851,000903: 14,2570           30572                                    R51ST      +1                         
031852,000904: 14,2571           02611        R51ST              STORE    STARSAV1                              #  1ST STAR
031853,000905: 14,2572           77776                           EXIT                                           
031854,000906: 14,2573           41011                           CS       MODREG                                #  IS THIS P54
031855,000907: 14,2574           62677                           AD       OCT66                                 

Page 712

031857,000909: 14,2575           00006                           EXTEND                                         
031858,000910: 14,2576           12672                           BZF      R51B                                  #  YES
031859,000911: 14,2577           06006                           TC       INTPRET                               
031860,000912: 14,2600           77624                           CALL                                           
031861,000913: 14,2601           30002                                    R52                                   #  AOP WILL MAKE CALLS TO SIGHTING
031862,000914: 14,2602           77624        R51A               CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
031863,000915: 14,2603           31266                                    SXTSM                                 
031864,000916: 14,2604           02617                           STORE    STARSAV2                              
031865,000917: 14,2605           77776                           EXIT                                           
031866,000918: 14,2606           04555                           TC       BANKCALL                              
031867,000919: 14,2607           16063                           CADR     MKRELEAS                              
031868,000920: 14,2610           06006                           TC       INTPRET                               
031869,000921: 14,2611           45145                           DLOAD    CALL                                  
031870,000922: 14,2612           02607                                    TSIGHT                                
031871,000923: 14,2613           32363                                    PLANET                                
031872,000924: 14,2614           77776                           EXIT                                           
031873,000925: 14,2615           10304                           CCS      STARIND                               
031874,000926: 14,2616           02657                           TC       R51.4                                 
031875,000927: 14,2617           06006                           TC       INTPRET                               
031876,000928: 14,2620           53521                           MXV      UNIT                                  
031877,000929: 14,2621           01736                                    REFSMMAT                              
031878,000930: 14,2622           02736                           STORE    STARAD                                
031879,000931: 14,2623           77775                           VLOAD                                          
031880,000932: 14,2624           02617                                    STARSAV2                              
031881,000933: 14,2625           24007                           STOVL    6D                                    
031882,000934: 14,2626           02611                                    STARSAV1                              
031883,000935: 14,2627           24015                           STOVL    12D                                   
031884,000936: 14,2630           02601                                    PLANVEC                               
031885,000937: 14,2631           36744                           STCALL   STARAD     +6                         
031886,000938: 14,2632           30702                                    R54                                   #  STAR DATA TEST
031887,000939: 14,2633           45014                           BOFF     CALL                                  
031888,000940: 14,2634           00354                                    FREEFLAG                              
031889,000941: 14,2635           30643                                    R51K                                  
031890,000942: 14,2636           47334                                    AXISGEN                               
031891,000943: 14,2637           77624                           CALL                                           
031892,000944: 14,2640           32203                                    R55                                   #  GYRO TORQUE
031893,000945: 14,2641           77614                           CLEAR                                          
031894,000946: 14,2642           01273                                    PFRATFLG                              
031895,000947: 14,2643           77776        R51K               EXIT                                           
031896,000948: 14,2644           35656                           CAF      OCT14                                 
031897,000949: 14,2645           04555                           TC       BANKCALL                              
031898,000950: 14,2646           20751                           CADR     GOPERF1                               
031899,000951: 14,2647           04106                           TC       GOTOPOOH                              
031900,000952: 14,2650           02652                           TC       +2                                    #  V33
031901,000953: 14,2651           02654                           TC       +3                                    
031902,000954: 14,2652           04555                           TC       BANKCALL                              
031903,000955: 14,2653           32120                           CADR     P52C                                  
031904,000956: 14,2654           06006                           TC       INTPRET                               
031905,000957: 14,2655           77650                           GOTO                                           
031906,000958: 14,2656           32143                                    ENDP50S                               
031907,000959: 

Page 713

031909,000961: 14,2657           06006        R51.4              TC       INTPRET                               
031910,000962: 14,2660           53521                           MXV      UNIT                                  
031911,000963: 14,2661           01736                                    REFSMMAT                              
031912,000964: 14,2662           26601                           STOVL    PLANVEC                               
031913,000965: 14,2663           02617                                    STARSAV2                              
031914,000966: 14,2664           02611                           STORE    STARSAV1                              
031915,000967: 14,2665           77731                           SSP                                            
031916,000968: 14,2666           00305                                    STARIND                               
031917,000969: 14,2667           00000                                    0                                     
031918,000970: 14,2670           77650                           GOTO                                           
031919,000971: 14,2671           30530                                    R51.3                                 
031920,000972: 14,2672           06006        R51B               TC       INTPRET                               
031921,000973: 14,2673           77624                           CALL                                           
031922,000974: 14,2674           32252                                    R56                                   
031923,000975: 14,2675           77650                           GOTO                                           
031924,000976: 14,2676           30602                                    R51A                                  
031925,000977: 14,2677           00066        OCT66              OCT      00066                                 
031926,000978: 14,2700           00306        V01N70             VN       0170                                  
031927,000979: 14,2701           05253        1/6TH              DEC      .1666667                              
031928,000980: 

Page 714

031930,000982:                                                                                                  #  NAME-         R55     GYRO TORQUE
031931,000983:                                                                                                  #  FUNCTION - COMPUTE AND SEND GYRO PULSES
031932,000984:                                                                                                  #  CALLING SEQ - CALL R55
031933,000985:                                                                                                  #  INPUT - X,Y,ZDC - REFSMMAT WRT PRESENT STABLE MEMBER
031934,000986:                                                                                                  #  OUTPUT - GYRO PULSES
031935,000987:                                                                                                  #  SUBROUTINES - CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
031936,000988: 
031937,000989: 15,2000                                           SETLOC   P50S                                  
031938,000990: 15,2000                                           BANK                                           
031939,000991: 15,2203                                           COUNT*   $$/R55                                
031940,000992: 
031941,000993: 15,2203           77620        R55                STQ                                            
031942,000994: 15,2204           02777                                    QMIN                                  
031943,000995: 15,2205           77624                           CALL                                           
031944,000996: 15,2206           47140                                    CALCGTA                               
031945,000997: 15,2207           77776        PULSEM             EXIT                                           
031946,000998: 15,2210           32234        R55.1              CAF      V06N93                                
031947,000999: 15,2211           04555                           TC       BANKCALL                              
031948,001000: 15,2212           20624                           CADR     GOFLASH                               
031949,001001: 15,2213           04106                           TC       GOTOPOOH                              
031950,001002: 15,2214           02216                           TC       R55.2                                 
031951,001003: 15,2215           02231                           TC       R55RET                                
031952,001004: 15,2216           05301        R55.2              TC       PHASCHNG                              
031953,001005: 15,2217           00314                           OCT      00314                                 
031954,001006: 15,2220           32235                           CA       R55CDR                                
031955,001007: 15,2221           04555                           TC       BANKCALL                              
031956,001008: 15,2222           17125                           CADR     IMUPULSE                              
031957,001009: 15,2223           04555                           TC       BANKCALL                              
031958,001010: 15,2224           17516                           CADR     IMUSTALL                              
031959,001011: 15,2225           05644                           TC       CURTAINS                              
031960,001012: 15,2226           05301                           TC       PHASCHNG                              
031961,001013: 15,2227           05024                           OCT      05024                                 
031962,001014: 15,2230           13000                           OCT      13000                                 
031963,001015: 
031964,001016: 15,2231           06006        R55RET             TC       INTPRET                               
031965,001017: 15,2232           77650                           GOTO                                           
031966,001018: 15,2233           02777                                    QMIN                                  
031967,001019: 15,2234           01535        V06N93             VN       0693                                  
031968,001020: 15,2235           02757        R55CDR             ECADR    OGC                                   
031969,001021: 15,2236  14,2702               R54                =        CHKSDATA                              
031970,001022: 
031971,001023:                                                                                                  #  ROUTINE NAME - CHKSDATA               DATE - JAN 9, 1967
031972,001024:                                                                                                  #  MOD NO - 0                            LOG SECTION - P51-P53
031973,001025:                                                                                                  #  MODIFICATION BY - LONSKE              ASSEMBLY -
031974,001026: 
031975,001027:                                                                                                  #  FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS.  WHEN A PAIR OF STAR SIGHTINGS ARE MADE
031976,001028:                                                                                                  #  BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
031977,001029:                                                                                                  #  COMPUTER TO INSURE A PROPER SIGHTING WAS MADE.  THE FOLLOWING COMPUTATIONS ARE PERFORMED_
031978,001030:                                                                                                  #        OS1     =       OBSERVED STAR 1 VECTOR
031979,001031:                                                                                                  #        OS2     =       OBSERVED STAR 2 VECTOR
031980,001032:                                                                                                  #        SS1     =       STORED STAR 1 VECTOR
031981,001033:                                                                                                  #        SS2     =       STORED STAR 2 VECTOR
031982,001034:                                                                                                  #         A1     =       ARCCOS(OS1 - OS2)

Page 715

031984,001036:                                                                                                  #         A2     =       ARCCOS(SS1 - SS2)
031985,001037:                                                                                                  #          A     =       ABS(2(A1 - A2))
031986,001038:                                                                                                  #  THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTENCE
031987,001039: 
031988,001040:                                                                                                  #  EXIT MODE     1. FREEFLAG SET IMPLIES ASTRONAUT WANTS TO PROCEED
031989,001041:                                                                                                  #                2. FREEFLAG RESET IMPLIES ASTRONAUT WANTS TO RECYCLE             ERANCE)
031990,001042: 
031991,001043:                                                                                                  #  OUTPUT -      1. VERB 6,NOUN 3 - DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
031992,001044:                                                                                                  #                2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
031993,001045: 
031994,001046:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED -
031995,001047:                                                                                                  #                1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
031996,001048:                                                                                                  #                2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
031997,001049: 
031998,001050:                                                                                                  #  DEBRIS -
031999,001051: 
032000,001052: 14,2000                                           SETLOC   P50S1                                 
032001,001053: 14,2000                                           BANK                                           
032002,001054: 14,2702                                           COUNT*   $$/R50                                
032003,001055: 
032004,001056: 14,2702           43020        CHKSDATA           STQ      SET                                   
032005,001057: 14,2703           02777                                    QMIN                                  
032006,001058: 14,2704           00074                                    FREEFLAG                              
032007,001059: 14,2705           77760        CHKSAB             AXC,1                                          #  SET X1 TO STORE EPHEMERIS DATA
032008,001060: 14,2706           02735                                    STARAD                                
032009,001061: 
032010,001062: 14,2707           47773        CHKSB              VLOAD*   DOT*                                  #  CAL. ANGLE THETA
032011,001063: 14,2710           00001                                    0,1                                   
032012,001064: 14,2711           00007                                    6,1                                   
032013,001065: 14,2712           65552                           SL1      ACOS                                  
032014,001066: 14,2713           00025                           STORE    THETA                                 
032015,001067: 14,2714           43014                           BOFF     INVERT                                #  BRANCH TO CHKSD IF THIS IS 2ND PASS
032016,001068: 14,2715           00354                                    FREEFLAG                              
032017,001069: 14,2716           30726                                    CHKSD                                 
032018,001070: 14,2717           00174                                    FREEFLAG                              #  CLEAR FREEFLAG
032019,001071: 14,2720           71360                           AXC,1    DLOAD                                 #  SET X1 TO MARK ANGLES
032020,001072: 14,2721           00006                                    6D                                    
032021,001073: 14,2722           00025                                    THETA                                 
032022,001074: 14,2723           00023                           STORE    18D                                   
032023,001075: 14,2724           77650                           GOTO                                           
032024,001076: 14,2725           30707                                    CHKSB                                 #  RETURN TO CAL. 2ND ANGLE
032025,001077: 14,2726           45345        CHKSD              DLOAD    DSU                                   
032026,001078: 14,2727           00025                                    THETA                                 #  COMPUTE POS DIFF
032027,001079: 14,2730           00023                                    18D                                   
032028,001080: 14,2731           47046                           ABS      RTB                                   
032029,001081: 14,2732           45541                                    SGNAGREE                              
032030,001082: 14,2733           01046                           STORE    NORMTEM1                              
032031,001083: 14,2734           77414                           SET      EXIT                                  
032032,001084: 14,2735           00074                                    FREEFLAG                              
032033,001085: 14,2736           34714                           CAF      ZERO                                  
032034,001086: 14,2737           04555                           TC       BANKCALL                              
032035,001087: 14,2740           20607                           CADR     CLEANDSP                              
032036,001088: 
032037,001089: 14,2741           32755                           CAF      VB6N5                                 

Page 716

032039,001091: 14,2742           04555                           TC       BANKCALL                              
032040,001092: 14,2743           20624                           CADR     GOFLASH                               
032041,001093: 14,2744           14106                           TCF      GOTOPOOH                              
032042,001094: 14,2745           02752                           TC       CHKSDA                                #  PROCEED
032043,001095: 14,2746           06006                           TC       INTPRET                               
032044,001096: 14,2747           52014                           CLEAR    GOTO                                  
032045,001097: 14,2750           00274                                    FREEFLAG                              
032046,001098: 14,2751           02777                                    QMIN                                  
032047,001099: 14,2752           06006        CHKSDA             TC       INTPRET                               
032048,001100: 14,2753           77650                           GOTO                                           
032049,001101: 14,2754           02777                                    QMIN                                  
032050,001102: 14,2755           01405        VB6N5              VN       605                                   
032051,001103: 
032052,001104:                                                                                                  #  NAME - CAL53A
032053,001105:                                                                                                  #  NAME - CAL53A
032054,001106:                                                                                                  #  FUNCTION - COARSE ALIGN THE IMU, IF NECESSARY.
032055,001107:                                                                                                  #  CALLING SEQUENCE - CALL CAL53A
032056,001108:                                                                                                  #  INPUT - PRESENT GIMBAL ANGLES - CDUX, CDUY, CDUZ
032057,001109:                                                                                                  #           DESIRED GIMBAL ANGLES - THETAD,+1,+2
032058,001110:                                                                                                  #  OUTPUT - THE IMU COORDINATES ARE STORED IN REFSMMAT
032059,001111:                                                                                                  #  SUBROUTINES  USED- 1.IMUCOARS  2.IMUSTALL  3.CURTAINS
032060,001112: 
032061,001113: 14,2756                                           COUNT    14/R50                                
032062,001114: 
032063,001115: 14,2756           45020        CAL53A             STQ      CALL                                  
032064,001116: 14,2757           00035                                    29D                                   
032065,001117: 14,2760           22256                                    S52.2                                 #  MAKE FINAL COMP OF GIMBAL ANGLES
032066,001118: 14,2761           66234                           RTB      SSP                                   
032067,001119: 14,2762           32236                                    RDCDUS                                #  READ CDUS
032068,001120: 14,2763           00051                                    S1                                    
032069,001121: 14,2764           00001                                    1                                     
032070,001122: 14,2765           40370                           AXT,1    SETPD                                 
032071,001123: 14,2766           00003                                    3                                     
032072,001124: 14,2767           00005                                    4                                     
032073,001125: 14,2770           70543        CALOOP             DLOAD*   SR1                                   
032074,001126: 14,2771           01161                                    THETAD     +3D,1                      
032075,001127: 14,2772           70523                           PDDL*    SR1                                   
032076,001128: 14,2773           00005                                    4,1                                   
032077,001129: 14,2774           51425                           DSU      ABS                                   
032078,001130: 14,2775           45206                           PUSH     DSU                                   
032079,001131: 14,2776           31053                                    DEGREE1                               
032080,001132: 14,2777           71240                           BMN      DLOAD                                 
032081,001133: 14,3000           31027                                    CALOOP1                               
032082,001134: 14,3001           51025                           DSU      BPL                                   
032083,001135: 14,3002           31054                                    DEG359                                
032084,001136: 14,3003           31027                                    CALOOP1                               
032085,001137: 14,3004           77776        COARFINE           EXIT                                           
032086,001138: 14,3005           04555                           TC       BANKCALL                              
032087,001139: 14,3006           16602                           CADR     IMUCOARS                              #  PERFORM COARSE ALIGNMENT
032088,001140: 14,3007           04555                           TC       BANKCALL                              
032089,001141: 14,3010           17516                           CADR     IMUSTALL                              #  REQUEST MODE SWITCH
032090,001142: 14,3011           05644                           TC       CURTAINS                              

Page 717

032092,001144: 14,3012           04555                           TC       BANKCALL                              
032093,001145: 14,3013           17012                           CADR     IMUFIN20                              
032094,001146: 14,3014           04555                           TC       BANKCALL                              
032095,001147: 14,3015           17516                           CADR     IMUSTALL                              
032096,001148: 14,3016           05644                           TC       CURTAINS                              #  TEST FOR MALFUNCTION
032097,001149: 14,3017           06006                           TC       INTPRET                               
032098,001150: 14,3020           77234                           RTB      VLOAD                                 
032099,001151: 14,3021           31263                                    SET1/PDT                              
032100,001152: 14,3022           11456                                    ZEROVEC                               
032101,001153: 14,3023           01472                           STORE    GCOMP                                 
032102,001154: 14,3024           52014                           SET      GOTO                                  
032103,001155: 14,3025           01060                                    DRIFTFLG                              
032104,001156: 14,3026           31031                                    FINEONLY                              
032105,001157: 14,3027           77700        CALOOP1            TIX,1                                          
032106,001158: 14,3030           30770                                    CALOOP                                
032107,001159: 14,3031           75160        FINEONLY           AXC,1    AXC,2                                 
032108,001160: 14,3032           02671                                    XSM                                   
032109,001161: 14,3033           01735                                    REFSMMAT                              
032110,001162: 14,3034           77624                           CALL                                           
032111,001163: 14,3035           31040                                    MATMOVE                               
032112,001164: 14,3036           77650                           GOTO                                           
032113,001165: 14,3037           00035                                    29D                                   
032114,001166: 14,3040           77773        MATMOVE            VLOAD*                                         #  TRANSFER MATRIX
032115,001167: 14,3041           00001                                    0,1                                   
032116,001168: 14,3042           10001                           STORE    0,2                                   
032117,001169: 14,3043           77773                           VLOAD*                                         
032118,001170: 14,3044           00007                                    6D,1                                  
032119,001171: 14,3045           10007                           STORE    6D,2                                  
032120,001172: 14,3046           77773                           VLOAD*                                         
032121,001173: 14,3047           00015                                    12D,1                                 
032122,001174: 14,3050           10015                           STORE    12D,2                                 
032123,001175: 14,3051           77616                           RVQ                                            
032124,001176: 14,3052           00056        DEGREE1            DEC      46         B-14                       
032125,001177: 14,3053           37722        DEG359             DEC      16338      B-14                       
032126,001178: 15,2000                                           SETLOC   P50S                                  
032127,001179: 15,2000                                           BANK                                           
032128,001180: 15,2236           00004        RDCDUS             INHINT                                         #  READ CDUS
032129,001181: 15,2237           30032                           CA       CDUX                                  
032130,001182: 15,2240           50120                           INDEX    FIXLOC                                
032131,001183: 15,2241           54001                           TS       1                                     
032132,001184: 15,2242           30033                           CA       CDUY                                  
032133,001185: 15,2243           50120                           INDEX    FIXLOC                                
032134,001186: 15,2244           54002                           TS       2                                     
032135,001187: 15,2245           30034                           CA       CDUZ                                  
032136,001188: 15,2246           50120                           INDEX    FIXLOC                                
032137,001189: 15,2247           54003                           TS       3                                     
032138,001190: 15,2250           00003                           RELINT                                         
032139,001191: 15,2251           06030                           TC       DANZIG                                #                                                        +
032140,001192: 
032141,001193:                                                                                                  #  NAME -        GIMB
032142,001194: 
032143,001195:                                                                                                  #  FUNCTION -    DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED FOR COARSE ALIGNMENT.

Page 718

032145,001197: 
032146,001198:                                                                                                  #  CALLING SEQUENCE - CALL GIMB
032147,001199: 
032148,001200:                                                                                                  #  INPUT -       DESIRED IMU INERTIAL ORIENTATION VECTORS-XSMD, YSMD, ZSMD
032149,001201: 
032150,001202:                                                                                                  #  OUTPUT -      GIMBAL ANGLES LEFT IN THETAD, +1, +2                            +
032151,001203: 
032152,001204:                                                                                                  #  SUBROUTINES USED -  1.CDUTRIG 2.CALCSMSC 3.CALCGA
032153,001205: 
032154,001206: 16,2000                                           SETLOC   P50S2                                 
032155,001207: 16,2000                                           BANK                                           
032156,001208: 16,2567                                           COUNT    14/INFLT                              
032157,001209: 
032158,001210: 16,2567           41345        CALCSMSC           DLOAD    DMP                                   
032159,001211: 16,2570           00737                                    SINCDUY                               
032160,001212: 16,2571           00747                                    COSCDUZ                               
032161,001213: 16,2572           77676                           DCOMP                                          
032162,001214: 16,2573           70525                           PDDL     SR1                                   
032163,001215: 16,2574           00741                                    SINCDUZ                               
032164,001216: 16,2575           41325                           PDDL     DMP                                   
032165,001217: 16,2576           00745                                    COSCDUY                               
032166,001218: 16,2577           00747                                    COSCDUZ                               
032167,001219: 16,2600           76466                           VDEF     VSL1                                  
032168,001220: 16,2601           02714                           STORE    XNB                                   
032169,001221: 16,2602           41345                           DLOAD    DMP                                   
032170,001222: 16,2603           00743                                    SINCDUX                               
032171,001223: 16,2604           00741                                    SINCDUZ                               
032172,001224: 16,2605           77752                           SL1                                            
032173,001225: 16,2606           00033                           STORE    26D                                   
032174,001226: 16,2607           77605                           DMP                                            
032175,001227: 16,2610           00737                                    SINCDUY                               
032176,001228: 16,2611           41325                           PDDL     DMP                                   
032177,001229: 16,2612           00751                                    COSCDUX                               
032178,001230: 16,2613           00745                                    COSCDUY                               
032179,001231: 16,2614           77625                           DSU                                            
032180,001232: 16,2615           41325                           PDDL     DMP                                   
032181,001233: 16,2616           00743                                    SINCDUX                               
032182,001234: 16,2617           00747                                    COSCDUZ                               
032183,001235: 16,2620           77676                           DCOMP                                          
032184,001236: 16,2621           41325                           PDDL     DMP                                   
032185,001237: 16,2622           00751                                    COSCDUX                               
032186,001238: 16,2623           00737                                    SINCDUY                               
032187,001239: 16,2624           41325                           PDDL     DMP                                   
032188,001240: 16,2625           00745                                    COSCDUY                               
032189,001241: 16,2626           00033                                    26D                                   
032190,001242: 16,2627           55415                           DAD      VDEF                                  
032191,001243: 16,2630           77772                           VSL1                                           
032192,001244: 16,2631           02730                           STORE    ZNB                                   
032193,001245: 16,2632           76435                           VXV      VSL1                                  
032194,001246: 16,2633           02714                                    XNB                                   
032195,001247: 16,2634           02722                           STORE    YNB                                   
032196,001248: 16,2635           77616                           RVQ                                            
032197,001249: 
032198,001250:                                                                                                  #  NAME - P51 - IMU ORIENTATION DETERMINATION
032199,001251:                                                                                                  #  MOD. NO. 2    21 DEC 66                               LOG SECTION - P51-P53
032200,001252:                                                                                                  #  MOD BY STURLAUGSON                                    ASSEMBLY SUNDISK REV15

Page 719

032202,001254: 
032203,001255:                                                                                                  #  FUNCTIONAL DESCRIPTION
032204,001256:                                                                                                  #        DETERMINES THE INERTIAL ORIENTATION OF THE IMU.  THE PROGRAM IS SELECTED BY DSKY ENTRY.  THE SIGHTING
032205,001257:                                                                                                  #        ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR.  THE DATA IS
032206,001258:                                                                                                  #        THEN PROCESSED AS FOLLOWS.
032207,001259: 
032208,001260:                                                                                                  #        1.  SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGATIONAL BASE COORDINATES.  LET SA AND TA BE THE SHAFT AND
032209,001261:                                                                                                  #        TRUNNION ANGLES, RESPECTIVELY.  THEN,
032210,001262:                                                                                                  #        -
032211,001263:                                                                                                  #        V  = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA))        (A COLUMN VECTOR)
032212,001264:                                                                                                  #         NB
032213,001265:                                                                                                  #        THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
032214,001266: 
032215,001267:                                                                                                  #        2.  THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
032216,001268:                                                                                                  #        -    T  T  T -
032217,001269:                                                                                                  #        V = Q *Q *Q *V  ,       WHERE
032218,001270:                                                                                                  #             1  2  3  NB
032219,001271: 
032220,001272:                                                                                                  #             ( COS(IG)   0    -SIN(IG) )
032221,001273:                                                                                                  #             (                         )                                        THE GIMBAL ANGLES ARE COMPUTED FROM
032222,001274:                                                                                                  #        Q  = (   0       1       0     ), IG= INNER GIMBAL ANGLE                THE CDU COUNTERS AT NBSM (USING AXIS-
032223,001275:                                                                                                  #         1   (                         )                                        ROT AND CDULOGIC)
032224,001276:                                                                                                  #             ( SIN(IG)   0     COS(IG) )
032225,001277: 
032226,001278:                                                                                                  #             ( COS(MG) SIN(MG)   0     )
032227,001279:                                                                                                  #             (                         )
032228,001280:                                                                                                  #        Q  = (-SIN(MG) COS(MG)   0     ), MG= MIDDLE GIMBAL ANGLE
032229,001281:                                                                                                  #         2   (                         )
032230,001282:                                                                                                  #             (   0       0       1     )
032231,001283: 
032232,001284:                                                                                                  #             (   1       0       0     )
032233,001285:                                                                                                  #             (                         )
032234,001286:                                                                                                  #        Q  = (   0     COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
032235,001287:                                                                                                  #         3   (                         )
032236,001288:                                                                                                  #             (   0    -SIN(OG) COS(OG) )
032237,001289: 
032238,001290:                                                                                                  #        3.  THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
032239,001291: 
032240,001292:                                                                                                  #        4.  THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
032241,001293: 
032242,001294:                                                                                                  #        5.  REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
032243,001295:                                                                                                  #                    -      -
032244,001296:                                                                                                  #                LET S  AND S  BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).
032245,001297:                                                                                                  #                     1      2
032246,001298:                                                                                                  #                DEFINE, -   -

Page 720

032248,001300:                                                                                                  #                        U  = S
032249,001301:                                                                                                  #                         A    A1
032250,001302:                                                                                                  #                        -         -    -
032251,001303:                                                                                                  #                        V  = UNIT(S  X S  )
032252,001304:                                                                                                  #                         A         A1   A2
032253,001305:                                                                                                  #                        -    -   -
032254,001306:                                                                                                  #                        W  = U X V
032255,001307:                                                                                                  #                         A    A   A
032256,001308: 
032257,001309:                                                                                                  #                AND
032258,001310:                                                                                                  #                        -    -
032259,001311:                                                                                                  #                        U  = S
032260,001312:                                                                                                  #                         B    B1
032261,001313:                                                                                                  #                        -         -    -
032262,001314:                                                                                                  #                        V  = UNIT(S  X S  )
032263,001315:                                                                                                  #                         B         B1   B2
032264,001316:                                                                                                  #                        -    -   -
032265,001317:                                                                                                  #                        W  = U X V
032266,001318:                                                                                                  #                         B    B   B
032267,001319: 
032268,001320:                                                                                                  #                THEN    -        -       -       -
032269,001321:                                                                                                  #                        X  = U  *U + V  *V + W  *W
032270,001322:                                                                                                  #                              B1  A   B1  A   B1  A
032271,001323:                                                                                                  #                        -        -       -       -              (REFSMMAT)
032272,001324:                                                                                                  #                        Y  = U  *U + V  *V + W  *W
032273,001325:                                                                                                  #                              B2  A   B2  A   B2  A
032274,001326:                                                                                                  #                        -        -       -       -
032275,001327:                                                                                                  #                        Z  = U  *U + V  *V + W  *W
032276,001328:                                                                                                  #                              B3  A   B3  A   B3  A
032277,001329: 
032278,001330:                                                                                                  #  THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
032279,001331:                                                                                                  #                        -
032280,001332:                                                                                                  #                        S   IN 6-11 OF THE VAC AREA
032281,001333:                                                                                                  #                         A1
032282,001334:                                                                                                  #                        -
032283,001335:                                                                                                  #                        S   IN 12-17 OF THE VAC AREA
032284,001336:                                                                                                  #                         A2
032285,001337:                                                                                                  #                        -
032286,001338:                                                                                                  #                        S   IN STARAD
032287,001339:                                                                                                  #                         B1
032288,001340:                                                                                                  #                        -

Page 721

032290,001342:                                                                                                  #                        S   IN STARAD +6
032291,001343:                                                                                                  #                         B2
032292,001344: 
032293,001345:                                                                                                  #  CALLING SEQUENCE
032294,001346: 
032295,001347:                                                                                                  #        THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
032296,001348: 
032297,001349:                                                                                                  #  SUBROUTINES CALLED.
032298,001350: 
032299,001351:                                                                                                  #        GOPERF3
032300,001352:                                                                                                  #        GOPERF1R
032301,001353:                                                                                                  #        GODSPR
032302,001354:                                                                                                  #        IMUCOARS
032303,001355:                                                                                                  #        IMUFIN20
032304,001356:                                                                                                  #        R53
032305,001357:                                                                                                  #        SXTNB
032306,001358:                                                                                                  #        NBSM
032307,001359:                                                                                                  #        MKRELEAS
032308,001360:                                                                                                  #        CHKSDATA
032309,001361:                                                                                                  #        MATMOVE
032310,001362: 
032311,001363:                                                                                                  #  ALARMS
032312,001364: 
032313,001365:                                                                                                  #        NONE.
032314,001366: 
032315,001367:                                                                                                  #  ERASABLE INITIALIZATION
032316,001368: 
032317,001369:                                                                                                  #        IMU ZERO FLAG SHOULD BE SET.
032318,001370: 
032319,001371:                                                                                                  #  OUTPUT
032320,001372: 
032321,001373:                                                                                                  #        REFSMMAT
032322,001374:                                                                                                  #        REFSMFLG
032323,001375: 
032324,001376:                                                                                                  #  DEBRIS
032325,001377: 
032326,001378:                                                                                                  #        WORK AREA
032327,001379:                                                                                                  #        STARAD
032328,001380:                                                                                                  #        STARIND
032329,001381:                                                                                                  #        BESTI
032330,001382:                                                                                                  #        BESTJ
032331,001383: 
032332,001384: 14,2000                                           SETLOC   P50S1                                 
032333,001385: 14,2000                                           BANK                                           
032334,001386: 14,3054                                           COUNT    14/P5153                              
032335,001387: 
032336,001388: 14,3054  14,3054               P53                EQUALS   P51                                   
032337,001389: 14,3054           41320        P51                CS       IMODES30                              
032338,001390: 14,3055           74702                           MASK     BIT9                                  
032339,001391: 14,3056           10000                           CCS      A                                     
032340,001392: 14,3057           03063                           TC       P51A                                  

Page 722

032342,001394: 14,3060           05537                           TC       ALARM                                 
032343,001395: 14,3061           00210                           OCT      210                                   
032344,001396: 14,3062           04106                           TC       GOTOPOOH                              
032345,001397: 14,3063           04555        P51A               TC       BANKCALL                              
032346,001398: 14,3064           17607                           CADR     R02ZERO                               
032347,001399: 
032348,001400: 14,3065           34720        P51AA              CAF      PRFMSTAQ                              
032349,001401: 14,3066           04555                           TC       BANKCALL                              
032350,001402: 14,3067           20751                           CADR     GOPERF1                               
032351,001403: 14,3070           04106                           TC       GOTOPOOH                              #  TERM.
032352,001404: 14,3071           03134                           TC       P51B                                  #  V33
032353,001405: 14,3072           05301                           TC       PHASCHNG                              
032354,001406: 14,3073           05024                           OCT      05024                                 
032355,001407: 14,3074           13000                           OCT      13000                                 
032356,001408: 
032357,001409: 14,3075           34714                           CAF      P51ZERO                               
032358,001410: 14,3076           55155                           TS       THETAD                                #  ZERO THE GIMBALS
032359,001411: 14,3077           55156                           TS       THETAD     +1                         
032360,001412: 14,3100           55157                           TS       THETAD     +2                         
032361,001413: 14,3101           33261                           CAF      V6N22                                 
032362,001414: 14,3102           04555                           TC       BANKCALL                              
032363,001415: 14,3103           20577                           CADR     GODSPRET                              
032364,001416: 14,3104           33262                           CAF      V41K                                  #  NOW DISPLAY COARSE ALIGN VERB 41
032365,001417: 14,3105           04555                           TC       BANKCALL                              
032366,001418: 14,3106           20577                           CADR     GODSPRET                              
032367,001419: 14,3107           04555                           TC       BANKCALL                              
032368,001420: 14,3110           16602                           CADR     IMUCOARS                              
032369,001421: 14,3111           04555                           TC       BANKCALL                              
032370,001422: 14,3112           17516                           CADR     IMUSTALL                              
032371,001423: 14,3113           05644                           TC       CURTAINS                              #  CAGING OR BAD END
032372,001424: 14,3114           04555                           TC       BANKCALL                              #  SCHEDULE IFAILOK AND IMUFINED TASKS, IN 5
032373,001425: 14,3115           17012                           CADR     IMUFIN20                              #  AND 20 SECS. DIRECT RETURN AND NO STALL,
032374,001426: 14,3116           04555                           TC       BANKCALL                              #  IF CAGING, BUT T4 WILL ZERO C/A ENABLE.
032375,001427: 14,3117           17516                           CADR     IMUSTALL                              #  IF PUT TO SLEEP, IMUFINED WILL WAKE US
032376,001428: 14,3120           05644                           TC       CURTAINS                              #  UP.
032377,001429: 14,3121           06006                           TC       INTPRET                               
032378,001430: 14,3122           77234                           RTB      VLOAD                                 
032379,001431: 14,3123           31263                                    SET1/PDT                              
032380,001432: 14,3124           11456                                    ZEROVEC                               
032381,001433: 14,3125           01472                           STORE    GCOMP                                 
032382,001434: 14,3126           77414                           SET      EXIT                                  
032383,001435: 14,3127           01060                                    DRIFTFLG                              
032384,001436: 14,3130           05301                           TC       PHASCHNG                              
032385,001437: 14,3131           05024                           OCT      05024                                 
032386,001438: 14,3132           13000                           OCT      13000                                 
032387,001439: 14,3133           13065                           TCF      P51AA                                 #  COARSE ALIGN DONE - RECYCLE FOR FINE

Page 723

032389,001441:                                                                                                  #  DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
032390,001442: 14,3134           05301        P51B               TC       PHASCHNG                              
032391,001443: 14,3135           00014                           OCT      00014                                 
032392,001444: 14,3136           06006                           TC       INTPRET                               
032393,001445: 14,3137           40331                           SSP      SETPD                                 
032394,001446: 14,3140           00305                                    STARIND                               #  INDEX - STAR 1 OR 2
032395,001447: 14,3141           00000                                    0                                     
032396,001448: 14,3142           00001                                    0                                     
032397,001449: 14,3143           77414                           CLEAR    EXIT                                  
032398,001450: 14,3144           00666                                    TARG2FLG                              #  SHOW STAR MARK-NOT LAND MARK
032399,001451: 14,3145           34712                           CAF      BIT1                                  
032400,001452: 14,3146           54301                           TS       MARKINDX                              #  INITIALIZE FOR ONE MARK
032401,001453: 
032402,001454: 14,3147           05301        P51C               TC       PHASCHNG                              
032403,001455: 14,3150           05024                           OCT      05024                                 
032404,001456: 14,3151           13000                           OCT      13000                                 
032405,001457: 14,3152           05253                           TC       CHECKMM                               
032406,001458: 14,3153           00065                           MM       53         B-14                       #  BACKUP PROGRAM
032407,001459: 14,3154           13162                           TCF      P51C.1                                #  NOT P53
032408,001460: 14,3155           06006                           TC       INTPRET                               
032409,001461: 14,3156           77624                           CALL                                           
032410,001462: 14,3157           32252                                    R56                                   
032411,001463: 14,3160           77650                           GOTO                                           
032412,001464: 14,3161           31165                                    P51C.2                                
032413,001465: 14,3162           06006        P51C.1             TC       INTPRET                               
032414,001466: 14,3163           77624                           CALL                                           
032415,001467: 14,3164           31322                                    R53                                   #  SIGHTING ROUTINE
032416,001468: 14,3165           77624        P51C.2             CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
032417,001469: 14,3166           31266                                    SXTSM                                 
032418,001470: 14,3167           77606                           PUSH                                           
032419,001471: 14,3170           53135                           SLOAD    BZE                                   
032420,001472: 14,3171           00305                                    STARIND                               
032421,001473: 14,3172           31177                                    P51D                                  
032422,001474: 14,3173           45575                           VLOAD    STADR                                 
032423,001475: 14,3174           75160                           STORE    STARSAV2                              #  DOWNLINK
032424,001476: 14,3175           77650                           GOTO                                           
032425,001477: 14,3176           31205                                    P51E                                  
032426,001478: 14,3177           45575        P51D               VLOAD    STADR                                 
032427,001479: 14,3200           61166                           STODL    STARSAV1                              
032428,001480: 14,3201           02607                                    TSIGHT                                
032429,001481: 14,3202           77624                           CALL                                           
032430,001482: 14,3203           32363                                    PLANET                                
032431,001483: 14,3204           02601                           STORE    PLANVEC                               
032432,001484: 14,3205           77776        P51E               EXIT                                           
032433,001485: 14,3206           05301                           TC       PHASCHNG                              
032434,001486: 14,3207           05024                           OCT      05024                                 
032435,001487: 14,3210           13000                           OCT      13000                                 
032436,001488: 14,3211           04555                           TC       BANKCALL                              
032437,001489: 14,3212           16063                           CADR     MKRELEAS                              #  ZERO MARKSTAT

Page 724

032439,001491: 14,3213           10304                           CCS      STARIND                               
032440,001492: 14,3214           13223                           TCF      P51F                                  #  STAR 2
032441,001493: 14,3215           05301                           TC       PHASCHNG                              
032442,001494: 14,3216           05024                           OCT      05024                                 
032443,001495: 14,3217           13000                           OCT      13000                                 
032444,001496: 14,3220           34712                           CAF      BIT1                                  
032445,001497: 14,3221           54304                           TS       STARIND                               
032446,001498: 14,3222           13147                           TCF      P51C                                  #  GO DO SECOND STAR
032447,001499: 14,3223           05301        P51F               TC       PHASCHNG                              
032448,001500: 14,3224           05024                           OCT      05024                                 
032449,001501: 14,3225           13000                           OCT      13000                                 
032450,001502: 14,3226           06006                           TC       INTPRET                               
032451,001503: 14,3227           45145                           DLOAD    CALL                                  
032452,001504: 14,3230           02607                                    TSIGHT                                
032453,001505: 14,3231           32363                                    PLANET                                
032454,001506: 14,3232           24015                           STOVL    12D                                   
032455,001507: 14,3233           02601                                    PLANVEC                               
032456,001508: 14,3234           24007                           STOVL    6D                                    
032457,001509: 14,3235           02611                                    STARSAV1                              
032458,001510: 14,3236           26736                           STOVL    STARAD                                
032459,001511: 14,3237           02617                                    STARSAV2                              
032460,001512: 14,3240           36744                           STCALL   STARAD     +6                         
032461,001513: 14,3241           30702                                    CHKSDATA                              #  CHECK STAR ANGLES IN STARAD AND
032462,001514: 14,3242           77414                           BON      EXIT                                  
032463,001515: 14,3243           00314                                    FREEFLAG                              
032464,001516: 14,3244           31246                                    P51G                                  
032465,001517: 14,3245           03065                           TC       P51AA                                 
032466,001518: 14,3246           77624        P51G               CALL                                           
032467,001519: 14,3247           47334                                    AXISGEN                               #  COME BACK WITH REFSMMAT IN XDC
032468,001520: 14,3250           75160                           AXC,1    AXC,2                                 
032469,001521: 14,3251           02713                                    XDC                                   
032470,001522: 14,3252           01735                                    REFSMMAT                              
032471,001523: 14,3253           45014                           CLEAR    CALL                                  
032472,001524: 14,3254           01662                                    REFSMFLG                              
032473,001525: 14,3255           31040                                    MATMOVE                               
032474,001526: 14,3256           52014                           SET      GOTO                                  
032475,001527: 14,3257           01462                                    REFSMFLG                              
032476,001528: 14,3260           32143                                    ENDP50S                               
032477,001529: 14,3261     4720               PRFMSTAQ           =        OCT15                                 
032478,001530: 14,3261     4714               P51ZERO            =        ZERO                                  
032479,001531: 14,3261     4715               P51FIVE            =        FIVE                                  
032480,001532: 14,3261           01426        V6N22              VN       0622                                  
032481,001533: 14,3262           12200        V41K               VN       4100                                  
032482,001534: 
032483,001535: 14,3263           30025        SET1/PDT           CA       TIME1                                 
032484,001536: 14,3264           55074                           TS       1/PIPADT                              
032485,001537: 14,3265           16030                           TCF      DANZIG                                
032486,001538: 

Page 725

032488,001540:                                                                                                  #  SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA 
032489,001541: 
032490,001542: 14,3266           77620        SXTSM              STQ                                            
032491,001543: 14,3267           00300                                    QMAJ                                  
032492,001544: 14,3270           70740                           LXC,1    DLOAD*                                
032493,001545: 14,3271           01330                                    MARKSTAT                              
032494,001546: 14,3272           00001                                    0D,1                                  
032495,001547: 14,3273           02607                           STORE    TSIGHT                                
032496,001548: 14,3274           66744                           LXC,2    SLOAD*                                
032497,001549: 14,3275           00304                                    STARIND                               
032498,001550: 14,3276           46456                                    MKDNCDR,2                             
032499,001551: 14,3277           76744                           LXC,2    VLOAD*                                
032500,001552: 14,3300           00154                                    MPAC                                  
032501,001553: 14,3301           00001                                    0,1                                   
032502,001554: 14,3302           10001                           STORE    0,2                                   
032503,001555: 14,3303           77743                           DLOAD*                                         
032504,001556: 14,3304           00006                                    5,1                                   
032505,001557: 14,3305           10006                           STORE    5,2                                   
032506,001558: 14,3306           77624                           CALL                                           
032507,001559: 14,3307           46000                                    SXTNB                                 #  COMPUTE LOS VECTOR FROM OCDU IN MKVAC
032508,001560: 14,3310           62150                           LXA,1    INCR,1                                
032509,001561: 14,3311           01330                                    MARKSTAT                              
032510,001562: 14,3312           00002                                    2                                     #  INCREMENT TO BASE ADR OF ICDU
032511,001563: 14,3313           45130                           SXA,1    CALL                                  
032512,001564: 14,3314           00050                                    S1                                    
032513,001565: 14,3315           47541                                    NBSM                                  #  TRANSFORM LOS TO SM
032514,001566: 14,3316           77650                           GOTO                                           
032515,001567: 14,3317           00300                                    QMAJ                                  
032516,001568: 14,3320           03674        MKDNCDR            ECADR    MARKDOWN                              
032517,001569: 14,3321           03502                           ECADR    MARK2DWN                              
032518,001570: 

Page 726

032520,001572:                                                                                                  #  PROGRAM DESCRIPTION - R53 - SIGHTING MARK ROUTINE
032521,001573:                                                                                                  #  MOD. NO. 2                                            21 DEC 66
032522,001574:                                                                                                  #  MOD BY STURLAUGSON
032523,001575: 
032524,001576:                                                                                                  #  FUNCTIONAL DESCRIPTION
032525,001577: 
032526,001578:                                                                                                  #        TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE).  SIGHTINGS
032527,001579:                                                                                                  #        CAN BE MADE ON A STAR OR LANDMARK.  WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
032528,001580:                                                                                                  #        OCDUS) AND THE TIME OF THE MARK.
032529,001581: 
032530,001582:                                                                                                  #  CALLING SEQUENCE
032531,001583: 
032532,001584:                                                                                                  #        R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE.  RETURN IS VIA QPRET.
032533,001585:                                                                                                  #        THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
032534,001586: 
032535,001587:                                                                                                  #  SUBROUTINES CALLED
032536,001588:                                                                                                  #        
032537,001589:                                                                                                  #        SXTMARK
032538,001590:                                                                                                  #        OPTSTALL
032539,001591:                                                                                                  #        GOFLASH
032540,001592: 
032541,001593:                                                                                                  #  ERASABLE INITIALIZATION
032542,001594: 
032543,001595:                                                                                                  #        TARGET FLAG - STAR OR LANDMARK
032544,001596:                                                                                                  #        MARKINDX - NUMBER OF MARKS WANTED
032545,001597:                                                                                                  #        STARIND - INDEX TO BESTI OR BESTJ (STAR NUMBER)
032546,001598: 
032547,001599:                                                                                                  #  OUTPUT
032548,001600: 
032549,001601:                                                                                                  #        MARKSTAT CONTAINS INDEX TO VACANT AREA WHERE MARK DATA IS STORED
032550,001602:                                                                                                  #        BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED
032551,001603: 
032552,001604:                                                                                                  #  DEBRIS
032553,001605: 
032554,001606:                                                                                                  #        MARKINDX CONTAINS NUMBER OF MARKS DESIRED
032555,001607: 
032556,001608: 14,2000                                           SETLOC   RT53                                  
032557,001609: 14,2000                                           BANK                                           
032558,001610: 
032559,001611: 14,3322                                           COUNT    14/R53                                
032560,001612: 
032561,001613: 14,3322           43020        R53                STQ      SET                                   #  SET SIGHTING MARK FLAG
032562,001614: 14,3323           03501                                    R53EXIT                               
032563,001615: 14,3324           00071                                    R53FLAG                               
032564,001616: 14,3325           77776                           EXIT                                           
032565,001617: 14,3326           30301        R53A               CA       MARKINDX                              #  NUMBER OF MARKS
032566,001618: 14,3327           74716                           MASK     LOW3                                  
032567,001619: 14,3330           04555                           TC       BANKCALL                              
032568,001620: 14,3331           16002                           CADR     SXTMARK                               
032569,001621: 14,3332           04555                           TC       BANKCALL                              
032570,001622: 14,3333           17512                           CADR     OPTSTALL                              
032571,001623: 14,3334           05644                           TC       CURTAINS                              
032572,001624: 14,3335           51330                           INDEX    MARKSTAT                              
032573,001625: 14,3336           10052                           CCS      QPRET                                 #  NUMBER OF MARKS ACTUALLY DONE
032574,001626: 14,3337           13350                           TCF      R53B                                  
032575,001627: 14,3340           13342                           TCF      +2                                    #  ZERO
032576,001628: 14,3341           13342                           TCF      +1                                    #  CCS HOLE
032577,001629: 14,3342           34714                           CAF      ZERO                                  #  HOUSEKEEP VAC AREA SAVE
032578,001630: 14,3343           57330                           XCH      MARKSTAT                              #        AND MARKSTAT

Page 727

032580,001632: 14,3344           10000                           CCS      A                                     
032581,001633: 14,3345           50000                           INDEX    A                                     
032582,001634: 14,3346           54000                           TS       0                                     
032583,001635: 14,3347           13326                           TCF      R53A                                  
032584,001636: 14,3350           05253        R53B               TC       CHECKMM                               
032585,001637: 14,3351           00026                           MM       22         B-14                       
032586,001638: 14,3352           13354                           TCF      +2                                    
032587,001639: 14,3353           13400                           TCF      R53D                                  
032588,001640: 14,3354           05253                           TC       CHECKMM                               
032589,001641: 14,3355           00027                           MM       23         B-14                       
032590,001642: 14,3356           13360                           TCF      R53C                                  
032591,001643: 14,3357           13400                           TCF      R53D                                  
032592,001644: 14,3360           33404        R53C               CAF      V01N71                                
032593,001645: 14,3361           04555                           TC       BANKCALL                              
032594,001646: 14,3362           20763                           CADR     GOFLASHR                              
032595,001647: 14,3363           04106                           TC       GOTOPOOH                              #  TERM.
032596,001648: 14,3364           13371                           TCF      R53Z                                  
032597,001649: 14,3365           03360                           TC       R53C                                  #  RECYCLE
032598,001650: 14,3366           36211                           CAF      SIX                                   
032599,001651: 14,3367           05415                           TC       BLANKET                               
032600,001652: 14,3370           05112                           TC       ENDOFJOB                              
032601,001653: 14,3371           47713        R53Z               CS       HIGH9                                 
032602,001654: 14,3372           70735                           MASK     STARCODE                              
032603,001655: 14,3373           00006                           EXTEND                                         
032604,001656: 14,3374           76211                           MP       SIGHTSIX                              
032605,001657: 14,3375           56001                           XCH      L                                     
032606,001658: 14,3376           50304                           INDEX    STARIND                               
032607,001659: 14,3377           54302                           TS       BESTI                                 
032608,001660: 14,3400           06006        R53D               TC       INTPRET                               
032609,001661: 14,3401           77614        R53OUT             SETGO                                          
032610,001662: 14,3402           03420                                    TERMIFLG                              #  SET TERMINATE FOR R52
032611,001663: 14,3403           03501                                    R53EXIT                               
032612,001664: 14,3404     6211               SIGHTSIX           =        SIX                                   
032613,001665: 14,3404           00307        V01N71             VN       0171                                  
032614,001666: 

Page 728

032616,001668:                                                                                                  #  NAME - S52.2
032617,001669:                                                                                                  #  FUNCTION - COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
032618,001670:                                                                                                  #  CALL - CALL S52.2
032619,001671:                                                                                                  #  INPUT - X,Y,ZSMD
032620,001672:                                                                                                  #  OUTPUT - OGC,IGC,MGC,THETAD,+1,+2
032621,001673:                                                                                                  #  SUBROUTINES - CDUTRIG, CALCSMSC, MATMOVE, CALCGA
032622,001674: 
032623,001675: 11,2000                                           SETLOC   S52/2                                 
032624,001676: 11,2000                                           BANK                                           
032625,001677: 
032626,001678: 11,2256                                           COUNT    13/S52.2                              
032627,001679: 
032628,001680: 11,2256           77620        S52.2              STQ                                            
032629,001681: 11,2257           00300                                    QMAJ                                  
032630,001682: 11,2260           77624                           CALL                                           
032631,001683: 11,2261           47432                                    CDUTRIG                               
032632,001684: 11,2262           77624                           CALL                                           
032633,001685: 11,2263           34567                                    CALCSMSC                              
032634,001686: 11,2264           66370                           AXT,1    SSP                                   
032635,001687: 11,2265           00022                                    18D                                   
032636,001688: 11,2266           00051                                    S1                                    
032637,001689: 11,2267           00006                                    6D                                    
032638,001690: 11,2270           61373        S52.2A             VLOAD*   VXM                                   
032639,001691: 11,2271           02736                                    XNB        +18D,1                     
032640,001692: 11,2272           01736                                    REFSMMAT                              
032641,001693: 11,2273           77656                           UNIT                                           
032642,001694: 11,2274           06736                           STORE    XNB        +18D,1                     
032643,001695: 11,2275           77700                           TIX,1                                          
032644,001696: 11,2276           22270                                    S52.2A                                
032645,001697: 11,2277           75160        S52.2.1            AXC,1    AXC,2                                 
032646,001698: 11,2300           00306                                    XSMD                                  
032647,001699: 11,2301           02671                                    XSM                                   
032648,001700: 11,2302           77624                           CALL                                           
032649,001701: 11,2303           31040                                    MATMOVE                               
032650,001702: 11,2304           77624                           CALL                                           
032651,001703: 11,2305           47244                                    CALCGA                                
032652,001704: 11,2306           77650                           GOTO                                           
032653,001705: 11,2307           00300                                    QMAJ                                  
032654,001706: 

Page 729

032656,001708:                                                                                                  #  PROGRAM NAME - SR52.1                         DATE   DEC 20 66
032657,001709:                                                                                                  #  MOD 1                                         LOG SEC   P51-P53
032658,001710:                                                                                                  #  BY KEN VINCENT                                ASSEMBLY   SUNDISK REV 40
032659,001711: 
032660,001712:                                                                                                  #  FUNCTION
032661,001713: 
032662,001714:                                                                                                  #  TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
032663,001715:                                                                                                  #  LEM, STAR OR LANDMARK.  IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
032664,001716:                                                                                                  #  2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1).  IF THE LEM IS 
032665,001717:                                                                                                  #  THE TARGET THEN CONIC UPDATES OF THE CSM AND LEM ARE MADE TO
032666,001718:                                                                                                  #  THE TIME IN AOPTIME.  THE UNIT OF THE DIFFERENCE OF LEM AND CSM
032667,001719:                                                                                                  #  POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
032668,001720:                                                                                                  #  COMMON PART OF THIS PROGRAM.
032669,001721: 
032670,001722:                                                                                                  #  IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY.  THE RADIUS
032671,001723:                                                                                                  #  VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV.  BOTH OF THESE ARE
032672,001724:                                                                                                  #  FOUND FOR THE TIME IN AOPTIME.  THE UNIT OF THE DIFFERENCE BETWEEN
032673,001725:                                                                                                  #  THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
032674,001726:                                                                                                  #  VECTOR FOR THE COMMON PART OF THIS ROUTINE.
032675,001727: 
032676,001728:                                                                                                  #  IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
032677,001729:                                                                                                  #  AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
032678,001730: 
032679,001731:                                                                                                  #  THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING
032680,001732:                                                                                                  #  VECTOR INTO STABLE MEMBER COORDINATES.  IT READS THE IMU-CDUS AND USES
032681,001733:                                                                                                  #  THIS DATA IN A CALL TO CALCSXA.  ON RETURN FROM CALCSXA A TEST IS
032682,001734:                                                                                                  #  MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG OR 38DEG.
032683,001735:                                                                                                  #  MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG. OR 50DEG.
032684,001736: 
032685,001737:                                                                                                  #  CALLING SEQUENCE
032686,001738: 
032687,001739:                                                                                                  #        L+4     RETURN WHEN SHAFT OR TRUNION NOT WITHIN 5 DEG OF DESIRED
032688,001740:                                                                                                  #        L       TC      BANKCALL
032689,001741:                                                                                                  #        L+1     CADR    SR52.1
032690,001742:                                                                                                  #        L+2     ERROR RETURN    TRUNNION GREATER THAN 90 DEG
032691,001743:                                                                                                  #        L&3     ERROR RETURN    TRUNNION GREATER THAN 50 DEG
032692,001744:                                                                                                  #        L+4     NORMAL RETURN
032693,001745: 
032694,001746:                                                                                                  #  OUTPUT
032695,001747: 
032696,001748:                                                                                                  #        SAC     -SINGLE PREC, 2S COMP, SCALED AT HALF REVS - SHAFT ANGLE DESIRED
032697,001749:                                                                                                  #        PAC     -SINGLE PREC, 2S COMP SCALED AT EIGTH REVS - TRUNNION ANGLE DESIRED
032698,001750: 
032699,001751:                                                                                                  #  INITIALIZATION
032700,001752: 
032701,001753:                                                                                                  #        IF TARG1FLG =1 THEN TARGET IS LEM - NO OTHER INPUT REQUIRED
032702,001754: 
032703,001755:                                                                                                  #        IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
032704,001756:                                                                                                  #        0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE.  STAR CODES
032705,001757:                                                                                                  #        ARE 6 TIMES STAR NUMBER.
032706,001758: 
032707,001759:                                                                                                  #        IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK.  SEE ROUTINE
032708,001760:                                                                                                  #        LALOTORV FOR INPUT REQUIREMENTS.  HERE FIXERAD=1 FOR CONSTANT EARTH
032709,001761:                                                                                                  #        RADIUS
032710,001762: 
032711,001763:                                                                                                  #  DEBRIS
032712,001764: 
032713,001765:                                                                                                  #        WORK AREA
032714,001766:                                                                                                  #        STARAD - STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
032715,001767: 
032716,001768: 11,2310                                           COUNT*   $$/SR521                              

Page 730

032718,001770: 13,2000                                           SETLOC   SR52/1                                
032719,001771: 13,2000                                           BANK                                           
032720,001772: 
032721,001773: 13,2176           04604        SR52.1             TC       MAKECADR                              
032722,001774: 13,2177           55777                           TS       QMIN                                  
032723,001775: 13,2200           06006                           TC       INTPRET                               
032724,001776: 13,2201           43234                           RTB      DAD                                   
032725,001777: 13,2202           45505                                    LOADTIME                              
032726,001778: 13,2203           26317                                    1.3SECDP                              
032727,001779: 13,2204           02356                           STORE    AOPTIME                               
032728,001780: 13,2205           43014                           BON      BON                                   
032729,001781: 13,2206           00705                                    TARG1FLG                              
032730,001782: 13,2207           26214                                    LEM52                                 
032731,001783: 13,2210           00706                                    TARG2FLG                              
032732,001784: 13,2211           26224                                    LMK52                                 
032733,001785: 13,2212           77650                           GOTO                                           
032734,001786: 13,2213           26245                                    STAR52                                
032735,001787: 13,2214           77745        LEM52              DLOAD                                          
032736,001788: 13,2215           02356                                    AOPTIME                               
032737,001789: 13,2216           34041                           STCALL   TDEC1                                 
032738,001790: 13,2217           27057                                    LEMCONIC                              
032739,001791: 13,2220           77775                           VLOAD                                          
032740,001792: 13,2221           00001                                    RATT                                  
032741,001793: 13,2222           77650                           GOTO                                           
032742,001794: 13,2223           26234                                    LMKLMCOM                              
032743,001795: 13,2224           71214        LMK52              BON      DLOAD                                 
032744,001796: 13,2225           04305                                    ADVTRK                                
032745,001797: 13,2226           54000                                    ADVTRACK                              
032746,001798: 13,2227           02356                                    AOPTIME                               
032747,001799: 13,2230           77624                           CALL                                           
032748,001800: 13,2231           26373                                    LALOTORV                              
032749,001801: 13,2232           77775                           VLOAD                                          
032750,001802: 13,2233           02152                                    ALPHAV                                
032751,001803: 13,2234           16766        LMKLMCOM           STODL    STAR                                  
032752,001804: 13,2235           02356                                    AOPTIME                               
032753,001805: 13,2236           34041                           STCALL   TDEC1                                 
032754,001806: 13,2237           27045                                    CSMCONIC                              
032755,001807: 13,2240           52375                           VLOAD    VSU                                   
032756,001808: 13,2241           02766                                    STAR                                  
032757,001809: 13,2242           00001                                    RATT                                  
032758,001810: 13,2243           52056                           UNIT     GOTO                                  
032759,001811: 13,2244           26260                                    COM52                                 
032760,001812: 13,2245           72131        STAR52             SSP      LXA,1                                 
032761,001813: 13,2246           00051                                    S1                                    
032762,001814: 13,2247           00000                                    0                                     
032763,001815: 13,2250           00304                                    STARIND                               
032764,001816: 13,2251           77700                           TIX,1                                          
032765,001817: 13,2252           26256                                    ST52ST                                
032766,001818: 13,2253           52175                           VLOAD    GOTO                                  
032767,001819: 13,2254           02617                                    STARSAV2                              

Page 731

032769,001821: 13,2255           26260                                    COM52                                 
032770,001822: 13,2256           77775        ST52ST             VLOAD                                          
032771,001823: 13,2257           02611                                    STARSAV1                              
032772,001824: 13,2260           53521        COM52              MXV      UNIT                                  
032773,001825: 13,2261           01736                                    REFSMMAT                              
032774,001826: 13,2262           02766                           STORE    STAR                                  
032775,001827: 13,2263           45001                           SETPD    CALL                                  
032776,001828: 13,2264           00001                                    0                                     
032777,001829: 13,2265           47432                                    CDUTRIG                               #  COMPUTES SINES AND COSINES FOR CALCSXA
032778,001830: 13,2266           77624                           CALL                                           #        NOW EXPECT TO SEE THE CDU ANGLES.
032779,001831: 13,2267           46034                                    CALCSXA                               
032780,001832: 13,2270           77414                           BOFF     EXIT                                  
032781,001833: 13,2271           01750                                    CULTFLAG                              
032782,001834: 13,2272           26274                                    TRUN38                                
032783,001835: 13,2273           02312                           TC       SR52E1                                
032784,001836: 13,2274           45345        TRUN38             DLOAD    DSU                                   
032785,001837: 13,2275           02776                                    PAC                                   
032786,001838: 13,2276           26315                                    38TRDEG                               
032787,001839: 13,2277           71244                           BPL      DLOAD                                 
032788,001840: 13,2300           26305                                    SR52E22                               
032789,001841: 13,2301           02776                                    PAC                                   
032790,001842: 13,2302           51025                           DSU      BPL                                   
032791,001843: 13,2303           26321                                    20DEGSMN                              
032792,001844: 13,2304           26307                                    SR52E3                                
032793,001845: 13,2305           77776        SR52E22            EXIT                                           
032794,001846: 13,2306           02311                           TC       SR52E2                                
032795,001847: 13,2307           77776        SR52E3             EXIT                                           
032796,001848: 13,2310           25777                           INCR     QMIN                                  
032797,001849: 13,2311           25777        SR52E2             INCR     QMIN                                  
032798,001850: 13,2312           31777        SR52E1             CA       QMIN                                  
032799,001851: 13,2313           04561                           TC       SWCALL                                
032800,001852: 
032801,001853: 13,2314           25252 25254  38TRDEG            2DEC     .66666667                             #  CORESPONDS TO 50 DEGS IN TRUNION
032802,001854: 13,2316           00000 00202  1.3SECDP           2DEC     130        B-28                       
032803,001855: 13,2320           61740        20DEGSMN           DEC      -07199     B-14                       
032804,001856: 13,2321           77777                           DEC      -0         B-14                       
032805,001857: 

Page 732

032807,001859:                                                                                                  #  THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
032808,001860:                                                                                                  #  A POINT ON THE GROUND TRACK 60 DEGRESS FORWARD OF THE LOCAL VERTICAL
032809,001861:                                                                                                  #  OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW
032810,001862: 
032811,001863: 26,2000                                           SETLOC   26P50S                                
032812,001864: 26,2000                                           BANK                                           
032813,001865: 
032814,001866: 26,2000           77601        ADVTRACK           SETPD                                          
032815,001867: 26,2001           00001                                    0                                     
032816,001868: 26,2002           41575                           VLOAD    PUSH                                  #  INITIALIZE FOR RP-TO-R
032817,001869: 26,2003           15324                                    UNITZ                                 #  UZ VEC IN PD 0-5
032818,001870: 26,2004           41434                           RTB      PUSH                                  #  TIME IN PD 6-7
032819,001871: 26,2005           45505                                    LOADTIME                              
032820,001872: 26,2006           36356                           STCALL   AOPTIME                               #  TIME ALSO IN AOPTIME FOR CSMCONIC
032821,001873: 26,2007           55341                                    RP-TO-R                               #  GET MOON ROTATION VEC IN REF
032822,001874: 26,2010           16766                           STODL    STAR                                  
032823,001875: 26,2011           02356                                    AOPTIME                               #  PICK UP TIME
032824,001876: 26,2012           34041                           STCALL   TDEC1                                 #  UPDATE STATE TO TIME
032825,001877: 26,2013           27045                                    CSMCONIC                              
032826,001878: 26,2014           47375                           VLOAD    VXV                                   
032827,001879: 26,2015           00007                                    VATT                                  
032828,001880: 26,2016           00001                                    RATT                                  
032829,001881: 26,2017           77656                           UNIT                                           
032830,001882: 26,2020           24031                           STOVL    24D                                   #  SAVE -UNIT(V X R) FOR 2ND ROTATION
032831,001883: 26,2021           00001                                    RATT                                  
032832,001884: 26,2022           57456                           UNIT     VCOMP                                 
032833,001885: 26,2023           41401                           SETPD    PUSH                                  #  PUSH LOS=-UNIT(RVEC) PD 0-5
032834,001886: 26,2024           00001                                    0                                     
032835,001887: 26,2025           77776                           EXIT                                           
032836,001888: 26,2026           31751                           CA       LANDMARK                              
032837,001889: 26,2027           74716                           MASK     SEVEN                                 #  GET NUMBER OF ADVANCE PERIODS
032838,001890: 26,2030           00006                           EXTEND                                         
032839,001891: 26,2031           74700                           MP       BIT11                                 #  GET N/16
032840,001892: 26,2032           56001                           XCH      L                                     
032841,001893: 26,2033           50120                           INDEX    FIXLOC                                
032842,001894: 26,2034           54036                           TS       30D                                   #  TEMP STORE N/16
032843,001895: 26,2035           06006                           TC       INTPRET                               
032844,001896: 26,2036           41335                           SLOAD    DMP                                   
032845,001897: 26,2037           00037                                    30D                                   
032846,001898: 26,2040           14107                                    MPERIOD                               
032847,001899: 26,2041           36356                           STCALL   AOPTIME                               #  ROTATE ANG ABOUT UR
032848,001900: 26,2042           54057                                    ROTA                                  
032849,001901: 26,2043           77775                           VLOAD                                          
032850,001902: 26,2044           00031                                    24D                                   #  PICK UP 2ND ROTATION AXIS
032851,001903: 26,2045           16766                           STODL    STAR                                  
032852,001904: 26,2046           14105                                    DP1/6                                 
032853,001905: 26,2047           77625                           DSU                                            
032854,001906: 26,2050           02356                                    AOPTIME                               #  2ND RAT ANGLE = 60 - A
032855,001907: 26,2051           36356                           STCALL   AOPTIME                               
032856,001908: 26,2052           54057                                    ROTA                                  #  GO ROTATE 2ND TIME
032857,001909: 26,2053           77775                           VLOAD                                          

Page 733

032859,001911: 26,2054           00001                                    0                                     
032860,001912: 26,2055           36766                           STCALL   STAR                                  #  STORE FINAL LOS IN STAR
032861,001913: 26,2056           26260                                    COM52                                 #  RETURN TO SR52.1
032862,001914: 
032863,001915: 26,2057           73545        ROTA               DLOAD    SIN                                   
032864,001916: 26,2060           02356                                    AOPTIME                               
032865,001917: 26,2061           47315                           PDVL     VXV                                   #  PUSH 1/2SIN(A) PD 6-7
032866,001918: 26,2062           02766                                    STAR                                  #        UR VEC
032867,001919: 26,2063           00001                                    0                                     #        LOS
032868,001920: 26,2064           72561                           VXSC     VSL2                                  #  1/2SIN(A)(URXLOS) PD 6-11
032869,001921: 26,2065           50315                           PDVL     DOT                                   
032870,001922: 26,2066           02766                                    STAR                                  
032871,001923: 26,2067           00001                                    0                                     
032872,001924: 26,2070           72561                           VXSC     VSL2                                  
032873,001925: 26,2071           02766                                    STAR                                  
032874,001926: 26,2072           71525                           PDDL     COS                                   #  1/2(UR . LOS)UR 12-17
032875,001927: 26,2073           02356                                    AOPTIME                               
032876,001928: 26,2074           51315                           PDVL     BVSU                                  #  PUSH 1/2COS(A) 18-19
032877,001929: 26,2075           00015                                    12D                                   
032878,001930: 26,2076           00001                                    0                                     
032879,001931: 26,2077           76561                           VXSC     VSL1                                  #  UP 18-19
032880,001932: 26,2100           53255                           VAD      VAD                                   #  UP 12-17 UP 6-11
032881,001933: 26,2101           40256                           UNIT     SETPD                                 
032882,001934: 26,2102           00001                                    0                                     
032883,001935: 26,2103           43406                           PUSH     RVQ                                   
032884,001936: 
032885,001937: 26,2104           05252 25251  DP1/6              2DEC     .16666666                             
032886,001938: 26,2106           01414 06044  MPERIOD            2DEC     .047619                               #  APPROX LUNAR ROT ANG IN 2HRS X 16
032887,001939: 

Page 734

032889,001941:                                                                                                  #  NAME - S52.3
032890,001942:                                                                                                  #  FUNCTION -    XSMD= UNIT(YSMD X ZSMD)
032891,001943:                                                                                                  #                YSMD= UNIT(V X R)
032892,001944:                                                                                                  #                ZSMD= UNIT(-R)
032893,001945:                                                                                                  #  CALL          DLOAD   CALL
032894,001946:                                                                                                  #                        TALIGN
032895,001947:                                                                                                  #                        S52.3
032896,001948:                                                                                                  #  INPUT -       TIME OF ALIGNMENT IN MPAC
032897,001949:                                                                                                  #  OUTPUT -      X,Y,ZSMD
032898,001950:                                                                                                  #  SUBROUTINES - CSMCONIC
032899,001951: 
032900,001952: 16,2000                                           SETLOC   P50S2                                 
032901,001953: 16,2000                                           BANK                                           
032902,001954: 
032903,001955: 16,2636                                           COUNT    15/S52.3                              
032904,001956: 
032905,001957: 16,2636           77620        S52.3              STQ                                            
032906,001958: 16,2637           00300                                    QMAJ                                  
032907,001959: 16,2640           34041                           STCALL   TDEC1                                 
032908,001960: 16,2641           27045                                    CSMCONIC                              
032909,001961: 16,2642           77601                           SETPD                                          
032910,001962: 16,2643           00001                                    0                                     
032911,001963: 16,2644           57575                           VLOAD    VCOMP                                 
032912,001964: 16,2645           00001                                    RATT                                  
032913,001965: 16,2646           77656                           UNIT                                           
032914,001966: 16,2647           24323                           STOVL    ZSMD                                  
032915,001967: 16,2650           00007                                    VATT                                  
032916,001968: 16,2651           53435                           VXV      UNIT                                  
032917,001969: 16,2652           00001                                    RATT                                  
032918,001970: 16,2653           00315                           STORE    YSMD                                  
032919,001971: 16,2654           53435                           VXV      UNIT                                  
032920,001972: 16,2655           00323                                    ZSMD                                  
032921,001973: 16,2656           34307                           STCALL   XSMD                                  
032922,001974: 16,2657           00300                                    QMAJ                                  
032923,001975: 

Page 735

032925,001977:                                                                                                  #  PROGRAM DESCRIPTION - R56 - ALTERNATE LOS SIGHTING MARK ROUTINE
032926,001978: 
032927,001979:                                                                                                  #  FUNCTIONAL DESCRIPTION
032928,001980: 
032929,001981:                                                                                                  #        TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54).  THE ASTRONAUT KNOWS THE
032930,001982:                                                                                                  #        COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE.  WHEN THE ASTRONAUT KEYS IN
032931,001983:                                                                                                  #        ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
032932,001984:                                                                                                  #        IN N92.
032933,001985: 
032934,001986:                                                                                                  #  CALLING SEQUENCE
032935,001987: 
032936,001988:                                                                                                  #        CALL
032937,001989:                                                                                                  #                R56
032938,001990: 
032939,001991:                                                                                                  #  SUBROUTINES CALLED
032940,001992: 
032941,001993:                                                                                                  #        A PORTION OF SXTMARK (VAC.AREA SEARCH)
032942,001994:                                                                                                  #        GOFLASH
032943,001995:                                                                                                  #        GOPERF1
032944,001996: 
032945,001997:                                                                                                  #  ERASABLE INITIALIZATION
032946,001998: 
032947,001999:                                                                                                  #        STARIND-INDEX TO STAR NUMBER
032948,002000: 
032949,002001:                                                                                                  #  OUTPUT
032950,002002: 
032951,002003:                                                                                                  #        MARKSTAT-INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
032952,002004:                                                                                                  #        BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
032953,002005:                                                                                                  #        ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS-
032954,002006:                                                                                                  #                VAC +2  CDUY
032955,002007:                                                                                                  #                VAC +3  CDUS
032956,002008:                                                                                                  #                VAC +4  CDUZ
032957,002009:                                                                                                  #                VAC +5  CDUT
032958,002010:                                                                                                  #                VAC +6  CDUX
032959,002011: 
032960,002012: 16,2660                                           COUNT*   $$/R56                                
032961,002013: 15,2000                                           SETLOC   P50S                                  
032962,002014: 15,2000                                           BANK                                           
032963,002015: 15,2252           77776        R56                EXIT                                           
032964,002016: 15,2253           32362                           CAF      V06N94B                               
032965,002017: 15,2254           04555                           TC       BANKCALL                              
032966,002018: 15,2255           20624                           CADR     GOFLASH                               
032967,002019: 15,2256           04106                           TC       GOTOPOOH                              #  TERM.
032968,002020: 15,2257           02261                           TC       R56A                                  #  PROCEED - ANGLES OK
032969,002021: 15,2260           02253                           TC       -5                                    #  ENTER - NEW ANGLES
032970,002022: 15,2261           04555        R56A               TC       BANKCALL                              
032971,002023: 15,2262           16004                           CADR     SXTMARK    +2                         #  INHIBIR EXT VB ACT AND FIND VAC AREA
032972,002024: 
032973,002025: 15,2263           34714                           CAF      ZERO                                  
032974,002026: 15,2264           04555                           TC       BANKCALL                              
032975,002027: 15,2265           20607                           CADR     CLEANDSP                              
032976,002028: 
032977,002029: 15,2266           32360                           CAF      VB53                                  #  DISPLAY V53 REQUESTING ALTERNATE MARK
032978,002030: 15,2267           04555                           TC       BANKCALL                              
032979,002031: 15,2270           20470                           CADR     GOMARK2                               

Page 736

032981,002033: 15,2271           14106                           TCF      GOTOPOOH                              #  V34-TERMINATE
032982,002034: 15,2272           12263                           TCF      R56A       +2                         #  V33-DONT PROCEED - JUST ENTER TO MARK
032983,002035: 15,2273           06006                           TC       INTPRET                               
032984,002036: 15,2274           77745                           DLOAD                                          
032985,002037: 15,2275           03731                                    MRKBUF1    +3                         
032986,002038: 15,2276           16774                           STODL    SAC                                   
032987,002039: 15,2277           03733                                    MRKBUF1    +5                         
032988,002040: 15,2300           02776                           STORE    PAC                                   
032989,002041: 15,2301           77776                           EXIT                                           
032990,002042: 15,2302           00004                           INHINT                                         
032991,002043: 15,2303           00006                           EXTEND                                         
032992,002044: 15,2304           30025                           DCA      TIME2                                 
032993,002045: 15,2305           51330                           INDEX    MARKSTAT                              
032994,002046: 15,2306           52001                           DXCH     0                                     
032995,002047: 15,2307           30033                           CA       CDUY                                  #  ENTER-THIS IS A BACKUP SYSTEM MARK
032996,002048: 15,2310           51330                           INDEX    MARKSTAT                              
032997,002049: 15,2311           54002                           TS       2                                     
032998,002050: 15,2312           31773                           CA       SAC                                   
032999,002051: 15,2313           51330                           INDEX    MARKSTAT                              
033000,002052: 15,2314           54003                           TS       3                                     
033001,002053: 15,2315           30034                           CA       CDUZ                                  
033002,002054: 15,2316           51330                           INDEX    MARKSTAT                              
033003,002055: 15,2317           54004                           TS       4                                     
033004,002056: 15,2320           31775                           CA       PAC                                   
033005,002057: 15,2321           51330                           INDEX    MARKSTAT                              
033006,002058: 15,2322           54005                           TS       5                                     
033007,002059: 15,2323           30032                           CA       CDUX                                  
033008,002060: 15,2324           51330                           INDEX    MARKSTAT                              
033009,002061: 15,2325           54006                           TS       6                                     
033010,002062: 15,2326           00003                           RELINT                                         
033011,002063: 15,2327           05425                           TC       CLEARMRK                              #  ENABLE EXTENDED VERBS
033012,002064: 15,2330           34333                           CAF      OCT16                                 
033013,002065: 15,2331           04555                           TC       BANKCALL                              
033014,002066: 15,2332           20751                           CADR     GOPERF1                               
033015,002067: 15,2333           04106                           TC       GOTOPOOH                              #  TERM.
033016,002068: 15,2334           12336                           TCF      R56B                                  #  PROCEED-MARK COMPLETED
033017,002069: 15,2335           12263                           TCF      R56A       +2                         #  RECYCLE-DO ANOTHER MARK - LIKE REJECT
033018,002070: 15,2336           34714        R56B               CAF      ZERO                                  
033019,002071: 15,2337           04555                           TC       BANKCALL                              
033020,002072: 15,2340           20607                           CADR     CLEANDSP                              
033021,002073: 
033022,002074: 15,2341           32361                           CAF      V01N71B                               
033023,002075: 15,2342           04555                           TC       BANKCALL                              
033024,002076: 15,2343           20624                           CADR     GOFLASH                               
033025,002077: 15,2344           04106                           TC       GOTOPOOH                              
033026,002078: 15,2345           02347                           TC       +2                                    
033027,002079: 15,2346           12336                           TCF      R56B                                  #  RECYCLE
033028,002080: 15,2347           47713                           CS       HIGH9                                 
033029,002081: 15,2350           70735                           MASK     STARCODE                              
033030,002082: 15,2351           00006                           EXTEND                                         

Page 737

033032,002084: 15,2352           76211                           MP       SIX                                   
033033,002085: 15,2353           56001                           XCH      L                                     
033034,002086: 15,2354           50304                           INDEX    STARIND                               
033035,002087: 15,2355           54302                           TS       BESTI                                 
033036,002088: 15,2356           06006                           TC       INTPRET                               
033037,002089: 15,2357           77616                           RVQ                                            
033038,002090: 15,2360           15200        VB53               VN       05300                                 #  ALTERNATE MARK VERB
033039,002091: 15,2361           00307        V01N71B            VN       00171                                 
033040,002092: 15,2362           01536        V06N94B            VN       00694                                 
033041,002093: 
033042,002094: 15,2363           02607        PLANET             STORE    TSIGHT                                
033043,002095: 15,2364           45020                           STQ      CALL                                  
033044,002096: 15,2365           02777                                    QMIN                                  
033045,002097: 15,2366           30216                                    LOCSAM                                
033046,002098: 15,2367           77775                           VLOAD                                          
033047,002099: 15,2370           02736                                    VEARTH                                
033048,002100: 15,2371           24001                           STOVL    0D                                    
033049,002101: 15,2372           02744                                    VSUN                                  
033050,002102: 15,2373           26736                           STOVL    VEARTH                                
033051,002103: 15,2374           00001                                    0D                                    
033052,002104: 15,2375           02744                           STORE    VSUN                                  
033053,002105: 15,2376           77776        NOSAM              EXIT                                           
033054,002106: 15,2377           47713                           CS       HIGH9                                 
033055,002107: 15,2400           70735                           MASK     STARCODE                              
033056,002108: 15,2401           00006                           EXTEND                                         
033057,002109: 15,2402           76211                           MP       SIGHTSIX                              
033058,002110: 15,2403           56001                           XCH      L                                     
033059,002111: 15,2404           50304                           INDEX    STARIND                               
033060,002112: 15,2405           54302                           TS       BESTI                                 
033061,002113: 15,2406           10000                           CCS      A                                     
033062,002114: 15,2407           12423                           TCF      NOTPLAN                               
033063,002115: 15,2410           32453                           CAF      VNPLANV                               
033064,002116: 15,2411           04555                           TC       BANKCALL                              
033065,002117: 15,2412           20624                           CADR     GOFLASH                               
033066,002118: 15,2413           04106                           TC       GOTOPOOH                              
033067,002119: 15,2414           02416                           TC       +2                                    
033068,002120: 15,2415           02410                           TC       -5                                    
033069,002121: 15,2416           06006                           TC       INTPRET                               
033070,002122: 15,2417           53575                           VLOAD    UNIT                                  
033071,002123: 15,2420           02766                                    STAR                                  
033072,002124: 15,2421           77650                           GOTO                                           
033073,002125: 15,2422           32446                                    CORPLAN                               
033074,002126: 15,2423           40000        NOTPLAN            CS       A                                     
033075,002127: 15,2424           62452                           AD       DEC227                                
033076,002128: 15,2425           00006                           EXTEND                                         
033077,002129: 15,2426           62437                           BZMF     CALSAM1                               
033078,002130: 15,2427           50304                           INDEX    STARIND                               
033079,002131: 15,2430           30302                           CA       BESTI                                 
033080,002132: 15,2431           50120                           INDEX    FIXLOC                                
033081,002133: 15,2432           54046                           TS       X1                                    
033082,002134: 15,2433           06006                           TC       INTPRET                               

Page 738

033084,002136: 15,2434           52173                           VLOAD*   GOTO                                  
033085,002137: 15,2435           31744                                    CATLOG,1                              
033086,002138: 15,2436           32446                                    CORPLAN                               
033087,002139: 15,2437           06006        CALSAM1            TC       INTPRET                               
033088,002140: 15,2440           70740                           LXC,1    DLOAD*                                
033089,002141: 15,2441           00304                                    STARIND                               
033090,002142: 15,2442           00303                                    BESTI,1                               
033091,002143: 15,2443           76740                           LXC,1    VLOAD*                                
033092,002144: 15,2444           00154                                    MPAC                                  
033093,002145: 15,2445           02372                                    STARAD     -228D,1                    
033094,002146: 15,2446           53455        CORPLAN            VAD      UNIT                                  
033095,002147: 15,2447           03474                                    VEL/C                                 
033096,002148: 15,2450           77650                           GOTO                                           
033097,002149: 15,2451           02777                                    QMIN                                  
033098,002150: 15,2452           00343        DEC227             DEC      227        B-14                       
033099,002151: 15,2453           01530        VNPLANV            VN       0688                                  
033100,002152: 

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