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.

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

Page 693

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

Page 694

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

Page 695

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

Page 696

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

Page 697

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

Page 698

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

Page 699

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

Page 700

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

Page 701

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

Page 702

031449,000519: 14,2204           20464                           CADR     KLEENEX                               
031450,000520: 
031451,000521: 14,2205           04106                           TC       GOTOPOOH                              #  NOW GO TO POO
031452,000522: 
031453,000523: 14,2206           43020        ADVORB             STQ      SET                                   #  SETS UP ADVANCED ORBIT TRACKING
031454,000524: 14,2207           02576                                    SAVQR52                               
031455,000525: 14,2210           04065                                    ADVTRK                                
031456,000526: 14,2211           43014                           SET      SET                                   
031457,000527: 14,2212           01463                                    LUNAFLAG                              
031458,000528: 14,2213           00462                                    ERADFLAG                              
031459,000529: 14,2214           77650                           GOTO                                           
031460,000530: 14,2215           30005                                    R52VRB                                

Page 703

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

Page 704

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

Page 705

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

Page 706

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

Page 707

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

Page 708

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

Page 709

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

Page 710

031767,000837: 14,2477           01430                                    CULTFLAG                              
031768,000838: 14,2500           00052                                    QPRET                                 
031769,000839: 14,2501  0000016               CSS                =        CEARTH                                
031770,000840: 14,2501           21150 25157  SIN33              2DEC     .5376381241                            
031771,000841: 14,2503           32766 22713  COS33              2DEC     .8431756920                            
031772,000842: 14,2505           01736 35137  CSS66              2DEC     .060480472                            #  (COS76)/4
031773,000843: 14,2507           73003 65403  CSS6640            2DEC     -.15602587                            #  (COS76 - COS30)/4
031774,000844: 14,2511           06233 26112  CSS33              2DEC     .197002688                            #  COS(1/2(76))/4
031775,000845: 
031776,000846: 14,2513           77414        PICEND             BOFF     EXIT                                  
031777,000847: 14,2514           01745                                    VFLAG                                 
031778,000848: 14,2515           30517                                    PICGXT                                
031779,000849: 14,2516           02521                           TC       PICBXT                                
031780,000850: 14,2517           77776        PICGXT             EXIT                                           
031781,000851: 14,2520           25777                           INCR     QMIN                                  
031782,000852: 14,2521           31777        PICBXT             CA       QMIN                                  
031783,000853: 14,2522           04561                           TC       SWCALL                                
031784,000854:                                                                                                  # V1             =       12D
031785,000855: 

Page 711

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

Page 712

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

Page 713

031891,000961: 14,2657           06006        R51.4              TC       INTPRET                               
031892,000962: 14,2660           53521                           MXV      UNIT                                  
031893,000963: 14,2661           01736                                    REFSMMAT                              
031894,000964: 14,2662           26601                           STOVL    PLANVEC                               
031895,000965: 14,2663           02617                                    STARSAV2                              
031896,000966: 14,2664           02611                           STORE    STARSAV1                              
031897,000967: 14,2665           77731                           SSP                                            
031898,000968: 14,2666           00305                                    STARIND                               
031899,000969: 14,2667           00000                                    0                                     
031900,000970: 14,2670           77650                           GOTO                                           
031901,000971: 14,2671           30530                                    R51.3                                 
031902,000972: 14,2672           06006        R51B               TC       INTPRET                               
031903,000973: 14,2673           77624                           CALL                                           
031904,000974: 14,2674           32252                                    R56                                   
031905,000975: 14,2675           77650                           GOTO                                           
031906,000976: 14,2676           30602                                    R51A                                  
031907,000977: 14,2677           00066        OCT66              OCT      00066                                 
031908,000978: 14,2700           00306        V01N70             VN       0170                                  
031909,000979: 14,2701           05253        1/6TH              DEC      .1666667                              
031910,000980: 

Page 714

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

Page 715

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

Page 716

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

Page 717

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

Page 718

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

Page 719

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

Page 720

032230,001300:                                                                                                  #                        U  = S
032231,001301:                                                                                                  #                         A    A1
032232,001302:                                                                                                  #                        -         -    -
032233,001303:                                                                                                  #                        V  = UNIT(S  X S  )
032234,001304:                                                                                                  #                         A         A1   A2
032235,001305:                                                                                                  #                        -    -   -
032236,001306:                                                                                                  #                        W  = U X V
032237,001307:                                                                                                  #                         A    A   A
032238,001308: 
032239,001309:                                                                                                  #                AND
032240,001310:                                                                                                  #                        -    -
032241,001311:                                                                                                  #                        U  = S
032242,001312:                                                                                                  #                         B    B1
032243,001313:                                                                                                  #                        -         -    -
032244,001314:                                                                                                  #                        V  = UNIT(S  X S  )
032245,001315:                                                                                                  #                         B         B1   B2
032246,001316:                                                                                                  #                        -    -   -
032247,001317:                                                                                                  #                        W  = U X V
032248,001318:                                                                                                  #                         B    B   B
032249,001319: 
032250,001320:                                                                                                  #                THEN    -        -       -       -
032251,001321:                                                                                                  #                        X  = U  *U + V  *V + W  *W
032252,001322:                                                                                                  #                              B1  A   B1  A   B1  A
032253,001323:                                                                                                  #                        -        -       -       -              (REFSMMAT)
032254,001324:                                                                                                  #                        Y  = U  *U + V  *V + W  *W
032255,001325:                                                                                                  #                              B2  A   B2  A   B2  A
032256,001326:                                                                                                  #                        -        -       -       -
032257,001327:                                                                                                  #                        Z  = U  *U + V  *V + W  *W
032258,001328:                                                                                                  #                              B3  A   B3  A   B3  A
032259,001329: 
032260,001330:                                                                                                  #  THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
032261,001331:                                                                                                  #                        -
032262,001332:                                                                                                  #                        S   IN 6-11 OF THE VAC AREA
032263,001333:                                                                                                  #                         A1
032264,001334:                                                                                                  #                        -
032265,001335:                                                                                                  #                        S   IN 12-17 OF THE VAC AREA
032266,001336:                                                                                                  #                         A2
032267,001337:                                                                                                  #                        -
032268,001338:                                                                                                  #                        S   IN STARAD
032269,001339:                                                                                                  #                         B1
032270,001340:                                                                                                  #                        -

Page 721

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

Page 722

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

Page 723

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

Page 724

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

Page 725

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

Page 726

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

Page 727

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

Page 728

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

Page 729

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

Page 730

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

Page 731

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

Page 732

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

Page 733

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

Page 734

032871,001941:                                                                                                  #  NAME - S52.3
032872,001942:                                                                                                  #  FUNCTION -    XSMD= UNIT(YSMD X ZSMD)
032873,001943:                                                                                                  #                YSMD= UNIT(V X R)
032874,001944:                                                                                                  #                ZSMD= UNIT(-R)
032875,001945:                                                                                                  #  CALL          DLOAD   CALL
032876,001946:                                                                                                  #                        TALIGN
032877,001947:                                                                                                  #                        S52.3
032878,001948:                                                                                                  #  INPUT -       TIME OF ALIGNMENT IN MPAC
032879,001949:                                                                                                  #  OUTPUT -      X,Y,ZSMD
032880,001950:                                                                                                  #  SUBROUTINES - CSMCONIC
032881,001951: 
032882,001952: 16,2000                                           SETLOC   P50S2                                 
032883,001953: 16,2000                                           BANK                                           
032884,001954: 
032885,001955: 16,2636                                           COUNT    15/S52.3                              
032886,001956: 
032887,001957: 16,2636           77620        S52.3              STQ                                            
032888,001958: 16,2637           00300                                    QMAJ                                  
032889,001959: 16,2640           34041                           STCALL   TDEC1                                 
032890,001960: 16,2641           27045                                    CSMCONIC                              
032891,001961: 16,2642           77601                           SETPD                                          
032892,001962: 16,2643           00001                                    0                                     
032893,001963: 16,2644           57575                           VLOAD    VCOMP                                 
032894,001964: 16,2645           00001                                    RATT                                  
032895,001965: 16,2646           77656                           UNIT                                           
032896,001966: 16,2647           24323                           STOVL    ZSMD                                  
032897,001967: 16,2650           00007                                    VATT                                  
032898,001968: 16,2651           53435                           VXV      UNIT                                  
032899,001969: 16,2652           00001                                    RATT                                  
032900,001970: 16,2653           00315                           STORE    YSMD                                  
032901,001971: 16,2654           53435                           VXV      UNIT                                  
032902,001972: 16,2655           00323                                    ZSMD                                  
032903,001973: 16,2656           34307                           STCALL   XSMD                                  
032904,001974: 16,2657           00300                                    QMAJ                                  
032905,001975: 

Page 735

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

Page 736

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

Page 737

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

Page 738

033066,002136: 15,2434           52173                           VLOAD*   GOTO                                  
033067,002137: 15,2435           31744                                    CATLOG,1                              
033068,002138: 15,2436           32446                                    CORPLAN                               
033069,002139: 15,2437           06006        CALSAM1            TC       INTPRET                               
033070,002140: 15,2440           70740                           LXC,1    DLOAD*                                
033071,002141: 15,2441           00304                                    STARIND                               
033072,002142: 15,2442           00303                                    BESTI,1                               
033073,002143: 15,2443           76740                           LXC,1    VLOAD*                                
033074,002144: 15,2444           00154                                    MPAC                                  
033075,002145: 15,2445           02372                                    STARAD     -228D,1                    
033076,002146: 15,2446           53455        CORPLAN            VAD      UNIT                                  
033077,002147: 15,2447           03474                                    VEL/C                                 
033078,002148: 15,2450           77650                           GOTO                                           
033079,002149: 15,2451           02777                                    QMIN                                  
033080,002150: 15,2452           00343        DEC227             DEC      227        B-14                       
033081,002151: 15,2453           01530        VNPLANV            VN       0688                                  
033082,002152: 

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