Source Code

These source-code files were obtained by digitally photographing an Artemis 72 program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Note that the page images presented online are of reduced quality, and that additional images may be available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	GAP: ASSEMBLE REVISION 072 OF AGC PROGRAM ARTEMIS 
	BY NASA 2021114-011 11:40 FEB. 26, 1971

	THIS AGC PROGRAM SHALL ALSO BE REFERRED TO AS
				COLOSSUS 3
	THIS PROGRAM IS INTENDED FOR USE IN THE CM AS SPECIFIED
	IN REPORT R-577.  THIS PROGRAM WAS PREPARED UNDER OSR
	PROJECT 55-23890, SPONSORED BY THE MANNED SPACECRAFT
	CENTER OF THE NATIONAL AERONAUTICS AND SPACE
	ADMINISTRATION THROUGH CONTRACT NAS 9-4065 WITH THE
	CHARLES STARK DRAPER LABORATORY, MASSACHUSETTS INSTITUTE OF
	TECHNOLOGY, CAMBRIDGE, MASS.

032770,000002:                                                                                                 #  Copyright:     Public domain.
032771,000003:                                                                                                 #  Filename:      P51-P53.agc
032772,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
032773,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
032774,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
032775,000007:                                                                                                 #                 Apollo 15-17.
032776,000008:                                                                                                 #  Assembler:     yaYUL
032777,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
032778,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
032779,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
032780,000012:                                                                                                 #  Mod history:   2009-08-16 JL   Adapted from corresponding Comanche 055 file.
032781,000013:                                                                                                 #                 2009-09-04 JL   Fixed typo, fixed error in conversion of some interpreter code.
032782,000014:                                                                                                 #                 2010-01-31 JL   Fixed build errors.
032783,000015:                                                                                                 #                 2010-02-01 JL   Fixed build errors.
032784,000016:                                                                                                 #                 2010-02-02 JL   Fixed build errors.
032785,000017:                                                                                                 #                 2010-02-11 JL   Fixed error on page 746.
032786,000018:                                                                                                 #                 2010-02-14 JL   Fixed error on page 753.
032787,000019: 
032788,000020:                                                                                                 # # Page 742
032789,000021: 
032790,000022:                                                                                                 #  PROGRAM NAME - PROG52                          DATE - AUGUST 1,1969
032791,000023:                                                                                                 #  MODIFICATION BY ALBERT,BARNERT,HASLAM          LOG SECTION - P51-P53
032792,000024: 
032793,000025:                                                                                                 #  FUNCTION -
032794,000026: 
032795,000027:                                                                                                 #  ALIGNS THE IMU TO ONE OF THREE ORIENTATIONS SELECTED BY THE ASTRONAUT. THE PRESENT IMU ORIENTATION IS KNOWN
032796,000028:                                                                                                 #  AND IS STORED IN REFSMMAT. THE THREE POSSIBLE ORIENTATIONS MAY BE:
032797,000029: 
032798,000030:                                                                                                 #         (A) PREFERRED ORIENTATION
032799,000031: 
032800,000032:                                                                                                 #         AN OPTIMUM ORIENTATION FOR A PREVIOUSLY CALCULATED MANEUVER. THIS ORIENTATION MUST BE CALCULATED AND
032801,000033:                                                                                                 #         STORED BY A PREVIOUSLY SELECTED PROGRAM.
032802,000034: 
032803,000035:                                                                                                 #         (B) NOMINAL (LOCAL VERTICAL) ORIENTATION
032804,000036: 
032805,000037:                                                                                                 #                 X   = UNIT ( Y   X Z   )
032806,000038:                                                                                                 #                 -SM          -SM   -SM
032807,000039: 
032808,000040:                                                                                                 #                 Y   = UNIT (V X R)
032809,000041:                                                                                                 #                 -SM         -   -
032810,000042: 
032811,000043:                                                                                                 #                 Z   = UNIT ( -R )
032812,000044:                                                                                                 #                 -SM           -
032813,000045: 
032814,000046:                                                                                                 #                 WHERE:
032815,000047: 
032816,000048:                                                                                                 #                 R = THE GEOMETRIC RADIUS VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032817,000049:                                                                                                 #                 -
032818,000050: 
032819,000051:                                                                                                 #                 V = THE INERTIAL VELOCITY VECTOR AT TIME T(ALIGN) SELECTED BY THE ASTRONAUT
032820,000052:                                                                                                 #                 -
032821,000053: 
032822,000054:                                                                                                 #         (C) REFSMMAT ORIENTATION
032823,000055: 
032824,000056:                                                                                                 #         THIS ORIENTATION IS SELECTED AUTOMATICALLY UNLESS THE ASTRONAUT KEYS IN A DIFFERENT OPTION CODE
032825,000057: 
032826,000058:                                                                                                 #         THIS SELECTION CORRECTS THE PRESENT IMU ORIENTATION. THE PRESENT ORIENTATION DIFFERS FROM THAT TO WHICH IT
032827,000059:                                                                                                 #         WAS LAST ALIGNED ONLY DUE TO GYRO DRIFT (I.E. NEITHER GIMBAL LOCK NOR IMU POWER INTERRUPT HAS OCCURRED
032828,000060:                                                                                                 #         SINCE THE LAST ALIGNMENT).
032829,000061: 
032830,000062:                                                                                                 #  AFTER A IMU ORIENTATION HAS BEEN SELECTED ROUTINE S52.2 IS OPERATED TO COMPUTE THE GIMBAL ANGLES USING THE
032831,000063:                                                                                                 #  NEW ORIENTATION AND THE PRESENT VEHICLE ATTITUDE.  CAL52A THEN USES THESE ANGLES, STORED IN THETAD,+1,+2, TO
032832,000064:                                                                                                 #  COARSE ALIGN THE IMU. THE STAR SELECTION ROUTINE, R56, IS THEN OPERATED. IF 2 STARS ARE NOT AVAILABLE AN ALARM
032833,000065:                                                                                                 #  IS FLASHED TO NOTIFY THE ASTRONAUT. AT THIS POINT THE ASTRONAUT WILL MANEUVER THE VEHICLE AND SELECT 2 STARS
032834,000066:                                                                                                 #  EITHER MANUALLY OR AUTOMATICALLY. AFTER 2 STARS HAVE BEEN SELECTED THE IMU IS FINE ALIGNED USING ROUTINE R51. IF
032835,000067:                                                                                                 #  THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING (INDICATED BY RNDVZFLG) P20 IS DISPLAYED. OTHERWISE P00 IS
032836,000068:                                                                                                 #  REQUESTED.
032837,000069: 
032838,000070:                                                                                                 #  CALLING SEQUENCE -
032839,000071: 
032840,000072:                                                                                                 #         THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
032841,000073:                                                                                                 # # Page 743
032842,000074: 
032843,000075:                                                                                                 #  SUBROUTINES CALLED -
032844,000076: 
032845,000077:                                                                                                 #         1. FLAGDOWN              6. S52.2               11. GOPERF3
032846,000078:                                                                                                 #         2. R02BOTH               7. CAL53A              12. NEWMODEX
032847,000079:                                                                                                 #         3. GOPERF4               8. FLAGUP              13. PRIOLARM
032848,000080:                                                                                                 #         4. MATMOVE               9. R56
032849,000081:                                                                                                 #         5. GOFLASH              10. R51
032850,000082: 
032851,000083:                                                                                                 #  NORMAL EXIT MODES -
032852,000084: 
032853,000085:                                                                                                 #         EXITS TO ENDOFJOB
032854,000086: 
032855,000087:                                                                                                 #  ALARM OR ABORT EXIT MODES -
032856,000088: 
032857,000089:                                                                                                 #         NONE
032858,000090: 
032859,000091:                                                                                                 #  OUTPUT -
032860,000092: 
032861,000093:                                                                                                 #         THE FOLLOWING MAY BE FLASHED ON THE DSKY
032862,000094:                                                                                                 #                 1. IMU ORIENTATION CODE
032863,000095:                                                                                                 #                 2. ALARM CODE 215 - PREFERRED IMU ORIENTATION NOT SPECIFIED
032864,000096:                                                                                                 #                 3. TIME OF NEXT IGNITION
032865,000097:                                                                                                 #                 4. GIMBAL ANGLES
032866,000098:                                                                                                 #                 5. ALARM CODE 405 - TWO STARS NOT AVAILABLE
032867,000099:                                                                                                 #                 6. PLEASE PERFORM P00
032868,000100:                                                                                                 #         THE MODE DISPLAY MAY BE CHANGED TO 20
032869,000101: 
032870,000102:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED -
032871,000103: 
032872,000104:                                                                                                 #         PFRATFLG SHOULD BE SET IF A PREFERRED ORIENTATION HAS BEEN COMPUTED. IF IT HAS BEEN COMPUTED IT IS STORED IN
032873,000105:                                                                                                 #         XSMD, YSMD, ZSMD.
032874,000106:                                                                                                 #         RNDVZFLG INDICATES WHETHER THE RENDEZVOUS NAVIGATION PROCESS IS OPERATING.
032875,000107: 
032876,000108:                                                                                                 #  DEBRIS -
032877,000109: 
032878,000110:                                                                                                 #         WORK AREA
032879,000111: 
032880,000112: ???????  14,2002               P54               =        PROG52                                
032881,000113: 14,2000                                          SETLOC   P50S                                  
032882,000114: 14,2000                                          BANK                                           
032883,000115: 
032884,000116: 14,2002  30,2000                                 SBANK=   LOWSUPER                              
032885,000117: 14,2002  0002773                                 EBANK=   SAC                                   
032886,000118: 14,2002                                          COUNT*   $$/P52                                
032887,000119: 14,2002           05561        PROG52            TC       DOWNFLAG                              
032888,000120: 14,2003           00027                          ADRES    UPDATFLG                              #  BIT 7 FLAG 1
032889,000121: 14,2004           05561                          TC       DOWNFLAG                              
032890,000122: 14,2005           00031                          ADRES    TRACKFLG                              #  BIT 5 FLAG 1
032891,000123: 14,2006           04636                          TC       BANKCALL                              
032892,000124: 14,2007           03731                          CADR     R02BOTH                               #  IMU STATUS CHECK
032893,000125: 14,2010           06006                          TC       INTPRET                               
032894,000126:                                                                                                 # # Page 744
032895,000127: 14,2011           77414                          BON      EXIT                                  #  MINKEY SEQUENCE?
032896,000128: 14,2012           05310                                   AUTOSEQ                               
032897,000129: 14,2013           30276                                   P52AUTO                               #  YES
032898,000130: 
032899,000131: 14,2014           30104                          CA       FLAGWRD8                              
032900,000132: 14,2015           74760                          MASK     UTBIT                                 
032901,000133: 14,2016           00006                          EXTEND                                         
032902,000134: 14,2017           12025                          BZF      +6                                    
032903,000135: 
032904,000136: 14,2020           11351                          CCS      OPTNTYPE                              
032905,000137: 14,2021           12023                          TCF      +2                                    
032906,000138: 14,2022           12025                          TCF      +3                                    
032907,000139: 14,2023           05547                          TC       UPFLAG                                
032908,000140: 14,2024           00031                          ADRES    TRACKFLG                              
032909,000141: 
032910,000142: 14,2025           34765                          CAF      PFRATBIT                              
032911,000143: 14,2026           70076                          MASK     FLAGWRD2                              #  PREFERRED ORIENTATION
032912,000144: 14,2027           10000                          CCS      A                                     
032913,000145: 14,2030           02033                          TC       P52A                                  
032914,000146: 14,2031           36214                          CAF      THREE                                 #  ION
032915,000147: 14,2032           02034                          TC       P52A       +1                         
032916,000148: 14,2033           34770        P52A              CAF      BIT1                                  #  YES - SET OPTION 2 = 1
032917,000149: 14,2034           54776                 +1       TS       OPTION2                               
032918,000150: 14,2035           34770        P52B              CAF      BIT1                                  
032919,000151: 14,2036           04636                          TC       BANKCALL                              #  FLASH OPTION CODE AND ORIENTATION CODE
032920,000152: 14,2037           21074                          CADR     GOPERF4                               
032921,000153: 14,2040           04103                          TC       GOTOPOOH                              
032922,000154: 14,2041           02043                          TC       +2                                    
032923,000155: 14,2042           02035                          TC       P52B                                  #  NEW CODE - NEW ORIENTATION CODE INPUT
032924,000156: 14,2043           40776                          CS       OPTION2                               
032925,000157: 14,2044           76214                          MASK     THREE                                 
032926,000158: 14,2045           00006                          EXTEND                                         
032927,000159: 14,2046           12407                          BZF      P52C                                  #  REFERENCE
032928,000160: 14,2047           74770                          MASK     BIT1                                  
032929,000161: 14,2050           00006                          EXTEND                                         
032930,000162: 14,2051           12167                          BZF      P52J                                  #  PREFERRED
032931,000163: 14,2052           00006                          EXTEND                                         #  NOMINAL (LOCAL VERTICAL), LANDING SIGHT
032932,000164: 14,2053           34772                          DCA      NEG0                                  
032933,000165: 14,2054           53251                          DXCH     DSPTEM1                               
032934,000166: 14,2055           35027                          CAF      V06N34                                #  PREFERRED
032935,000167: 14,2056           05535                          TC       VNFLASH                               
032936,000168: 14,2057           31250                          CA       DSPTEM1                               
032937,000169: 14,2060           00006                          EXTEND                                         
032938,000170: 14,2061           12063                          BZF      +2                                    
032939,000171: 14,2062           12066                          TCF      +4                                    
032940,000172: 
032941,000173: 14,2063           00006                          EXTEND                                         
032942,000174: 14,2064           30025                          DCA      TIME2                                 
032943,000175: 14,2065           53251                          DXCH     DSPTEM1                               
032944,000176: 14,2066           30776                          CA       OPTION2                               
032945,000177:                                                                                                 # # Page 745
032946,000178: 14,2067           74767                          MASK     BIT2                                  
032947,000179: 14,2070           10000                          CCS      A                                     
032948,000180: 14,2071           12145                          TCF      S52.3                                 #  NOM - S52.3 - NOW IN-LINE
032949,000181: 14,2072           06006                          TC       INTPRET                               #  LS - P52LS - NOW IN-LINE
032950,000182: 
032951,000183:                                                                                                 #  NAME - P52LS
032952,000184: 
032953,000185:                                                                                                 #  FUNCTION - TO DISPLAY THE LANDING SITE LATITUDE,
032954,000186:                                                                                                 #  LONGITUDE AND ALTITUDE. TO ACCEPT NEW DATA VIA
032955,000187:                                                                                                 #  THE KEYBOARD. TO COMPUTE THE LANDING SITE
032956,000188:                                                                                                 #  ORIENTATION FOR P52 OR P54
032957,000189: 
032958,000190:                                                                                                 #  LET:
032959,000191:                                                                                                 #         RLS  = LANDING SITE VECTOR IN REF COORDINATES
032960,000192:                                                                                                 #         R    = CSM POSITION VECTOR IN REF COORDINATES
032961,000193:                                                                                                 #         V    = CSM VELOCITY VECTOR IN REF COORDINATES
032962,000194:                                                                                                 #  THEN THE LANDING SITE ORIENTATION IS:
032963,000195:                                                                                                 #         XSMD = UNIT(RLS)
032964,000196:                                                                                                 #         YSMD = UNIT(ZSMD*XSMD)
032965,000197:                                                                                                 #         ZSMD = UNIT((R*V)*RLS)
032966,000198: 
032967,000199:                                                                                                 #  INPUTS:        DSPTEM1 = TIME OF ALIGNMENT
032968,000200:                                                                                                 #                 RLS = LANDING SITE VECTOR IN MOON FIXED COORDINATES
032969,000201: 
032970,000202:                                                                                                 #  OUTPUTS:       XSMD, YSMD, ZSMD
032971,000203: 
032972,000204:                                                                                                 #  SUBROUTINES:   RP-TO-R, LAT-LONG, LLASRD, LLASRDA, CSMPREC
032973,000205: 
032974,000206:                                                                                                 #  DEBRIS:        VAC, SEE SUBROUTINES
032975,000207: 
032976,000208: 14,2073           43014                          SET      SET                                   
032977,000209: 14,2074           01463                                   LUNAFLAG                              
032978,000210: 14,2075           00462                                   ERADFLAG                              
032979,000211: 14,2076           77775                          VLOAD                                          
032980,000212: 14,2077           02026                                   RLS                                   
032981,000213: 14,2100           14001                          STODL    0D                                    
032982,000214: 14,2101           01251                                   DSPTEM1                               
032983,000215: 14,2102           02607                          STORE    TSIGHT                                
032984,000216: 14,2103           34007                          STCALL   6D                                    
032985,000217: 14,2104           55345                                   RP-TO-R                               
032986,000218: 14,2105           77742                          VSR2                                           
032987,000219: 14,2106           16152                          STODL    ALPHAV                                
032988,000220: 14,2107           02607                                   TSIGHT                                
032989,000221: 14,2110           77624                          CALL                                           
032990,000222: 14,2111           26453                                   LAT-LONG                              
032991,000223: 14,2112           77624                          CALL                                           
032992,000224: 14,2113           62363                                   LLASRD                                
032993,000225: 14,2114           77776                          EXIT                                           
032994,000226: 14,2115           35036        LSDISP            CAF      V06N89*                               
032995,000227: 14,2116           05535                          TC       VNFLASH                               
032996,000228: 14,2117           06006                          TC       INTPRET                               
032997,000229: 14,2120           77624                          CALL                                           
032998,000230: 14,2121           62371                                   LLASRDA                               
032999,000231: 14,2122           45145                          DLOAD    CALL                                  
033000,000232: 14,2123           02607                                   TSIGHT                                
033001,000233:                                                                                                 # # Page 746
033002,000234: 14,2124           26524                                   LALOTORV                              
033003,000235: 14,2125           53575                          VLOAD    UNIT                                  
033004,000236: 14,2126           02152                                   ALPHAV                                
033005,000237: 14,2127           14307                          STODL    XSMD                                  
033006,000238: 14,2130           02607                                   TSIGHT                                
033007,000239: 14,2131           34041                          STCALL   TDEC1                                 
033008,000240: 14,2132           27145                                   CSMPREC                               
033009,000241: 14,2133           47375                          VLOAD    VXV                                   
033010,000242: 14,2134           00001                                   RATT                                  
033011,000243: 14,2135           00007                                   VATT                                  
033012,000244: 14,2136           53435                          VXV      UNIT                                  
033013,000245: 14,2137           00307                                   XSMD                                  
033014,000246: 14,2140           00323                          STORE    ZSMD                                  
033015,000247: 14,2141           53435                          VXV      UNIT                                  
033016,000248: 14,2142           00307                                   XSMD                                  
033017,000249: 14,2143           34315                          STCALL   YSMD                                  
033018,000250: 14,2144           30170                                   P52D                                  
033019,000251: 14,2145     5036               V06N89*           =        V06N89                                
033020,000252: 
033021,000253:                                                                                                 #  NAME - S52.3
033022,000254:                                                                                                 #  FUNCTION - TO COMPUTE AMD DISPLAY THE
033023,000255:                                                                                                 #  GIMBAL ANGLES, ALLOW ASTRONAUT TO CHOOSE
033024,000256:                                                                                                 #  BETWEEN FAST AND ACCURATE IMU REALIGNMENT.
033025,000257:                                                                                                 #  NOMINAL (LOCAL VERTICAL) ORIENTATION IS:
033026,000258:                                                                                                 #                 XSMD= UNIT(YSMD x ZSMD)
033027,000259:                                                                                                 #                 YSMD= UNIT(V X R)
033028,000260:                                                                                                 #                 ZSMD= UNIT(-R)
033029,000261: 
033030,000262:                                                                                                 #  INPUT -        TIME OF ALIGNMENT IN MPAC
033031,000263: 
033032,000264:                                                                                                 #  OUTPUT -       X,Y,ZSMD
033033,000265: 
033034,000266:                                                                                                 #  SUBROUTINES - CSMCONIC
033035,000267: 
033036,000268: 14,2145           06006        S52.3             TC       INTPRET                               
033037,000269: 14,2146           77745                          DLOAD                                          
033038,000270: 14,2147           01251                                   DSPTEM1                               
033039,000271: 14,2150           34041                          STCALL   TDEC1                                 
033040,000272: 14,2151           27145                                   CSMPREC                               
033041,000273: 14,2152           77201                          SETPD    VLOAD                                 
033042,000274: 14,2153           00001                                   0                                     
033043,000275: 14,2154           00001                                   RATT                                  
033044,000276: 14,2155           53476                          VCOMP    UNIT                                  
033045,000277: 14,2156           24323                          STOVL    ZSMD                                  
033046,000278: 14,2157           00007                                   VATT                                  
033047,000279: 14,2160           53435                          VXV      UNIT                                  
033048,000280: 14,2161           00001                                   RATT                                  
033049,000281: 14,2162           00315                          STORE    YSMD                                  
033050,000282: 14,2163           53435                          VXV      UNIT                                  
033051,000283: 14,2164           00323                                   ZSMD                                  
033052,000284: 14,2165           00307                          STORE    XSMD                                  
033053,000285: 14,2166           77776                          EXIT                                           
033054,000286: 14,2167           06006        P52J              TC       INTPRET                               
033055,000287: 14,2170           77624        P52D              CALL                                           #  READ VEHICEL ATTITUDE AND
033056,000288: 14,2171           22247                                   S52.2                                 #   COMPUTE GIMBAL ANGLES
033057,000289:                                                                                                 # # Page 747
033058,000290: 14,2172           77776                          EXIT                                           
033059,000291: 14,2173           35025                          CAF      V06N22                                
033060,000292: 14,2174           04636                          TC       BANKCALL                              #  DISPLAY GIMBAL ANGLES
033061,000293: 14,2175           20743                          CADR     GOFLASH                               
033062,000294: 14,2176           04103                          TC       GOTOPOOH                              
033063,000295: 14,2177           02201                          TC       COARSTYP                              
033064,000296: 14,2200           02167                          TC       P52J                                  #  RECYCLE - VEHICLE HAS BEEN MANEUVERED
033065,000297: 14,2201           40106        COARSTYP          CS       FLGWRD10                              
033066,000298: 14,2202           74762                          MASK     AUTSQBIT                              
033067,000299: 14,2203           00006                          EXTEND                                         
033068,000300: 14,2204           12320                          BZF      PERF20                                #  IF MINKEY
033069,000301: 14,2205           34775                          CAF      OCT13                                 #  PLEASE PERFORM NORMAL/GYRO TORQUE
033070,000302: 14,2206           04636                          TC       BANKCALL                              
033071,000303: 14,2207           21067                          CADR     GOPERF1                               
033072,000304: 14,2210           14103                          TCF      GOTOPOOH                              #  V34
033073,000305: 14,2211           12334                          TCF      P52K                                  #  NORMAL CASE
033074,000306: 14,2212           06006        GYCRS             TC       INTPRET                               
033075,000307: 14,2213           64375                          VLOAD    MXV                                   
033076,000308: 14,2214           00307                                   XSMD                                  
033077,000309: 14,2215           01734                                   REFSMMAT                              
033078,000310: 14,2216           77656                          UNIT                                           
033079,000311: 14,2217           26714                          STOVL    XDC                                   
033080,000312: 14,2220           00315                                   YSMD                                  
033081,000313: 14,2221           53521                          MXV      UNIT                                  
033082,000314: 14,2222           01734                                   REFSMMAT                              
033083,000315: 14,2223           26722                          STOVL    YDC                                   
033084,000316: 14,2224           00323                                   ZSMD                                  
033085,000317: 14,2225           53521                          MXV      UNIT                                  
033086,000318: 14,2226           01734                                   REFSMMAT                              
033087,000319: 14,2227           36730                          STCALL   ZDC                                   
033088,000320: 14,2230           47240                                   CALCGTA                               
033089,000321: 14,2231           43014                          CLEAR    CLEAR                                 
033090,000322: 14,2232           01260                                   DRIFTFLG                              
033091,000323: 14,2233           01662                                   REFSMFLG                              
033092,000324: 14,2234           77776                          EXIT                                           
033093,000325: 14,2235           32275                          CAF      V16N20                                
033094,000326: 14,2236           04636                          TC       BANKCALL                              
033095,000327: 14,2237           20710                          CADR     GODSPR                                
033096,000328: 14,2240           33002                          CAF      R55CDR                                
033097,000329: 14,2241           04636                          TC       BANKCALL                              
033098,000330: 14,2242           17244                          CADR     IMUPULSE                              
033099,000331: 14,2243           04636                          TC       BANKCALL                              
033100,000332: 14,2244           17644                          CADR     IMUSTALL                              
033101,000333: 14,2245           03766                          TC       217ALARM                              #  BAD END
033102,000334: 14,2246           05402                          TC       PHASCHNG                              
033103,000335: 14,2247           04024                          OCT      04024                                 
033104,000336: 14,2250           06006                          TC       INTPRET                               
033105,000337: 14,2251           75160                          AXC,1    AXC,2                                 
033106,000338: 14,2252           00306                                   XSMD                                  
033107,000339: 14,2253           01733                                   REFSMMAT                              
033108,000340:                                                                                                 # # Page 748
033109,000341: 14,2254           77624                          CALL                                           
033110,000342: 14,2255           34730                                   MATMOVE                               
033111,000343: 14,2256           43014                          CLEAR    SET                                   
033112,000344: 14,2257           01273                                   PFRATFLG                              
033113,000345: 14,2260           01462                                   REFSMFLG                              
033114,000346: 14,2261           77234                          RTB      VLOAD                                 
033115,000347: 14,2262           31566                                   SET1/PDT                              
033116,000348: 14,2263           11762                                   ZEROVEC                               
033117,000349: 14,2264           01472                          STORE    GCOMP                                 
033118,000350: 14,2265           43014                          SET      BOF                                   
033119,000351: 14,2266           01060                                   DRIFTFLG                              
033120,000352: 14,2267           05350                                   AUTOSEQ                               
033121,000353: 14,2270           30757                                   R51K                                  #  CONTINUE FINE ALIGN IF NOT MINKEY
033122,000354: 14,2271           77614                          CLEAR                                          
033123,000355: 14,2272           05276                                   PCFLAG                                
033124,000356: 14,2273           77776        P50SEXIT          EXIT                                           
033125,000357: 14,2274           14105                          TCF      MNKGOPOO                              
033126,000358: 14,2275           04024        V16N20            VN       1620                                  
033127,000359: 14,2276     4776               ALRM15            EQUALS   OCT15                                 
033128,000360: 14,2276           74575        P52AUTO           VLOAD    VSR1                                  #  XDES = UNIT(XREF COS45 + YERF SIN45) (1)
033129,000361: 14,2277           01734                                   REFSMMAT                              #                          -             (2)
033130,000362: 14,2300           74515                          PDVL     VSR1                                  
033131,000363: 14,2301           01742                                   REFSMMAT   +6                         #  (1) FOR 1ST, +45-DEGREE MANEUVER
033132,000364: 14,2302           57414                          BON      VCOMP                                 #  (2)     2ND  -
033133,000365: 14,2303           05316                                   PCFLAG                                #  IN EITHER CASE, COS45 = SIN45, AND
033134,000366: 14,2304           30305                                   P52AUTOX                              #         'UNIT' OBVIATES NEED FOR THEN.
033135,000367: 
033136,000368: 14,2305           53455        P52AUTOX          VAD      UNIT                                  
033137,000369: 14,2306           77626                          STADR                                          
033138,000370: 14,2307           53470                          STOVL    XSMD                                  
033139,000371: 14,2310           01750                                   REFSMMAT   +12D                       
033140,000372: 14,2311           00323                          STORE    ZSMD                                  #  ZDES = ZREF
033141,000373: 14,2312           53435                          VXV      UNIT                                  
033142,000374: 14,2313           00307                                   XSMD                                  
033143,000375: 14,2314           00315                          STORE    YSMD                                  #  YDES = UNIT(ZDES * ZDES)
033144,000376: 14,2315           52014                          SET      GOTO                                  
033145,000377: 14,2316           01073                                   PFRATFLG                              
033146,000378: 14,2317           30170                                   P52D                                  
033147,000379: 
033148,000380: 14,2320           34764        PERF20            CAF      BIT5                                  #  =OCT 20, PLEASE PERF MINKEY PC TORQUE
033149,000381: 14,2321           04636                          TC       BANKCALL                              
033150,000382: 14,2322           21067                          CADR     GOPERF1                               
033151,000383: 14,2323           04103                          TC       GOTOPOOH                              #  V 34
033152,000384: 14,2324           02212                          TC       GYCRS                                 #  PRO - DO IT
033153,000385: 14,2325           06006                          TC       INTPRET                               #  ENTR
033154,000386: 14,2326           77414                          BON      EXIT                                  
033155,000387: 14,2327           05316                                   PCFLAG                                
033156,000388: 14,2330           30273                                   P50SEXIT                              #  OK TO FLUSH IT 1ST TIME ONLY
033157,000389: 14,2331           05671                          TC       ALARM                                 #  BUT MAKE HIM DO 2ND
033158,000390: 14,2332           00402                          OCT      00402                                 
033159,000391:                                                                                                 # # Page 749
033160,000392: 14,2333           02320                          TC       PERF20                                
033161,000393:                                                                                                 #  NAME - CAL53A
033162,000394:                                                                                                 #  FUNCTION - COARSE ALIGN THE IMU, IF NECESSARY,
033163,000395:                                                                                                 #  INPUT - PRESENT GIMBAL ANGLES - CDUX, CDUY, CDUZ
033164,000396:                                                                                                 #           DESIRED GIMBAL ANGLES - THETAD,+1,+2
033165,000397:                                                                                                 #  OUTPUT - THE IMU COORDINATES ARE STORED IN REFSMMAT
033166,000398:                                                                                                 #  SUBROUTINES - 1.IMUCOARS 2.IMUSTALL 3CURTAINS
033167,000399: 
033168,000400: 14,2334                                          COUNT*   $$/R50                                
033169,000401: 14,2334           06006        P52K              TC       INTPRET                               
033170,000402: 14,2335           77624        CAL53A            CALL                                           
033171,000403: 14,2336           22247                                   S52.2                                 #  MAKE FINAL COMP OF GIMBAL ANGLES
033172,000404: 14,2337           66234                          RTB      SSP                                   
033173,000405: 14,2340           34744                                   RDCDUS                                #  READ CDUS
033174,000406: 14,2341           00051                                   S1                                    
033175,000407: 14,2342           00001                                   1                                     
033176,000408: 14,2343           40370                          AXT,1    SETPD                                 
033177,000409: 14,2344           00003                                   3                                     
033178,000410: 14,2345           00005                                   4                                     
033179,000411: 
033180,000412: 14,2346           70543        CALOOP            DLOAD*   SR1                                   
033181,000413: 14,2347           01313                                   THETAD     +3D,1                      
033182,000414: 14,2350           70523                          PDDL*    SR1                                   
033183,000415: 14,2351           00005                                   4,1                                   
033184,000416: 14,2352           51425                          DSU      ABS                                   
033185,000417: 14,2353           45206                          PUSH     DSU                                   
033186,000418: 14,2354           34743                                   DEGREE1                               
033187,000419: 14,2355           71240                          BMN      DLOAD                                 
033188,000420: 14,2356           30376                                   CALOOP1                               
033189,000421: 14,2357           51025                          DSU      BPL                                   
033190,000422: 14,2360           34744                                   DEG359                                
033191,000423: 14,2361           30376                                   CALOOP1                               
033192,000424: 14,2362           77776        COARFINE          EXIT                                           
033193,000425: 14,2363           05402                          TC       PHASCHNG                              
033194,000426: 14,2364           04024                          OCT      04024                                 
033195,000427: 14,2365           03742                          TC       COARSUB                               #  PERFORM ALIGNMENT
033196,000428: 14,2366           06006                          TC       INTPRET                               
033197,000429: 14,2367           77234                          RTB      VLOAD                                 
033198,000430: 14,2370           31566                                   SET1/PDT                              
033199,000431: 14,2371           11762                                   ZEROVEC                               
033200,000432: 14,2372           01472                          STORE    GCOMP                                 
033201,000433: 14,2373           52014                          SET      GOTO                                  
033202,000434: 14,2374           01060                                   DRIFTFLG                              
033203,000435: 14,2375           30400                                   FINEONLY                              
033204,000436: 14,2376           77700        CALOOP1           TIX,1                                          
033205,000437: 14,2377           30346                                   CALOOP                                
033206,000438: 14,2400           75160        FINEONLY          AXC,1    AXC,2                                 
033207,000439: 14,2401           02671                                   XSM                                   
033208,000440: 14,2402           01733                                   REFSMMAT                              
033209,000441: 14,2403           77624                          CALL                                           
033210,000442: 14,2404           34730                                   MATMOVE                               
033211,000443: 14,2405           77414        CAL53RET          SET      EXIT                                  
033212,000444:                                                                                                 # # Page 750
033213,000445: 14,2406           01462                                   REFSMFLG                              
033214,000446: 14,2407                                          COUNT*   $$/P52                                
033215,000447: 14,2407           05402        P52C              TC       PHASCHNG                              
033216,000448: 14,2410           04024                          OCT      04024                                 
033217,000449: 14,2411           34776                          CAF      ALRM15                                
033218,000450: 14,2412           04636                          TC       BANKCALL                              
033219,000451: 14,2413           21067                          CADR     GOPERF1                               
033220,000452: 14,2414           04103                          TC       GOTOPOOH                              
033221,000453: 14,2415           02417                          TC       +2                                    #  V33
033222,000454: 14,2416           02622                          TC       R51                                   #  FINE ALIGN
033223,000455: 14,2417           06006                          TC       INTPRET                               
033224,000456: 14,2420           43234                          RTB      DAD                                   
033225,000457: 14,2421           51751                                   LOADTIME                              
033226,000458: 14,2422           34652                                   TSIGHT1                               
033227,000459: 14,2423           77624                          CALL                                           
033228,000460: 14,2424           26345                                   LOCSAM                                
033229,000461: 14,2425                                          COUNT*   $$/PICAP                              
033230,000462: 
033231,000463:                                                                                                 #  NAME - PICAPAR NOW IN-LINE
033232,000464: 
033233,000465:                                                                                                 #  FUNCTION -
033234,000466:                                                                                                 #  THIS PROGRAM READS THE IMU-CDUS AND COMPUTES THE VEHICLE ORIENTATION
033235,000467:                                                                                                 #  WITH RESPECT TO INERTIAL SPACE. IT THEN COMPUTES THE SHAFT AXIS (SAX)
033236,000468:                                                                                                 #  WITH RESPECT TO REFERENCE INTERTIAL. EACH STAR IN THE CATALOG IS TESTED
033237,000469:                                                                                                 #  TO DETERMINE IF IT IS OCCULTED BY EITHER EARTH, SUN OR MOON. IF A
033238,000470:                                                                                                 #  STAR IS NOT OCCULTED THEN IT IS PAIRED WITH ALL STARS OF LOWER INDEX.
033239,000471:                                                                                                 #  THE PAIRED STAR IS TESTED FOR OCCULTATION. PAIRS OF STARS THAT PASS
033240,000472:                                                                                                 #  THE OCCULTATION TESTS ARE TESTED FOR GOOD SEPARATION. A PAIR OF STARS
033241,000473:                                                                                                 #  HAVE GOOD SEPARATION IF THE ANGLE BETWEEN THEM IS LESS THAN 76 DEGREES
033242,000474:                                                                                                 #  AND MORE THAN 30 DEGREES. THOSE PAIRS OF STARS WITH GOOD SEPARATION
033243,000475:                                                                                                 #  ARE THEN TESTED TO SEE IF THEY LIE IN CURRENT FIELD OF VIEW. (WITHIN
033244,000476:                                                                                                 #  33 DEGREES OF SAX). THE PAIR WITH MAXIMUM SEPARATION IS CHOSEN FROM
033245,000477:                                                                                                 #  THOSE WITH GOOD SEPARATION, AND IN FIELD OF VIEW.
033246,000478: 
033247,000479:                                                                                                 #  OUTPUT
033248,000480:                                                                                                 #         BESTI, BESTJ - SINGLE PREC, INTEGERS, STAR NUMBERS TIMES 6
033249,000481:                                                                                                 #         VFLAG - FLAG BIT  SET IMPLIES NO STARS IN FIELD OF VIEW
033250,000482: 
033251,000483:                                                                                                 #  INITIALIZATION
033252,000484:                                                                                                 #         1) A CALL TO LOCSAM MUST BE MADE
033253,000485:                                                                                                 #         2) VEARTH = -UNIT(R) WHERE R HAS BEEN UPDATED TO APPROXIMATE TIME OF
033254,000486:                                                                                                 #                 SIGHTINGS.
033255,000487: 
033256,000488:                                                                                                 #  DEBRIS
033257,000489:                                                                                                 #         WORK AREA
033258,000490:                                                                                                 #         X,Y,ZNB
033259,000491:                                                                                                 #         SINCDU, COSCDU
033260,000492:                                                                                                 #         STARAD - STAR +5
033261,000493: 
033262,000494: 14,2425           77624                          CALL                                           
033263,000495: 14,2426           47530                                   CDUTRIG                               
033264,000496: 14,2427           45001                          SETPD    CALL                                  
033265,000497:                                                                                                 # # Page 751
033266,000498: 14,2430           00001                                   0                                     
033267,000499: 14,2431           34756                                   CALCSMSC                              
033268,000500: 14,2432           71214                          SET      DLOAD                                 #  VFLAG = 1
033269,000501: 14,2433           01465                                   VFLAG                                 
033270,000502: 14,2434           11762                                   DPZERO                                
033271,000503: 14,2435           24303                          STOVL    BESTI                                 
033272,000504: 14,2436           02714                                   XNB                                   
033273,000505: 14,2437           63361                          VXSC     PDVL                                  
033274,000506: 14,2440           30575                                   SIN33                                 
033275,000507: 14,2441           02730                                   ZNB                                   
033276,000508: 14,2442           74370                          AXT,1    VXSC                                  
033277,000509: 14,2443           00344                                   228D                                  #  X1 = 37 X 6 + 6
033278,000510: 14,2444           30577                                   COS33                                 
033279,000511: 14,2445           77655                          VAD                                            
033280,000512: 14,2446           53505                          VXM      UNIT                                  
033281,000513: 14,2447           01734                                   REFSMMAT                              
033282,000514: 14,2450           02760                          STORE    SAX                                   #  SAX = SHAFT AXIS
033283,000515: 14,2451           66331                          SSP      SSP                                   #  S1 = S2 = 6
033284,000516: 14,2452           00051                                   S1                                    
033285,000517: 14,2453           00006                                   6                                     
033286,000518: 14,2454           00052                                   S2                                    
033287,000519: 14,2455           00006                                   6                                     
033288,000520: 14,2456           52100        PIC1              TIX,1    GOTO                                  #  MAJOR STAR
033289,000521: 14,2457           30461                                   PIC2                                  
033290,000522: 14,2460           30606                                   PICEND                                
033291,000523: 14,2461           45173        PIC2              VLOAD*   CALL                                  
033292,000524: 14,2462           33776                                   CATLOG,1                              
033293,000525: 14,2463           30552                                   OCCULT                                
033294,000526: 14,2464           73014                          BON      LXA,2                                 
033295,000527: 14,2465           01710                                   CULTFLAG                              
033296,000528: 14,2466           30456                                   PIC1                                  
033297,000529: 14,2467           00046                                   X1                                    
033298,000530: 14,2470           52104        PIC3              TIX,2    GOTO                                  
033299,000531: 14,2471           30473                                   PIC4                                  
033300,000532: 14,2472           30456                                   PIC1                                  
033301,000533: 14,2473           45173        PIC4              VLOAD*   CALL                                  
033302,000534: 14,2474           44001                                   CATLOG,2                              
033303,000535: 14,2475           30552                                   OCCULT                                
033304,000536: 14,2476           76614                          BON      VLOAD*                                
033305,000537: 14,2477           01710                                   CULTFLAG                              
033306,000538: 14,2500           30470                                   PIC3                                  
033307,000539: 14,2501           33776                                   CATLOG,1                              
033308,000540: 14,2502           45237                          DOT*     DSU                                   
033309,000541: 14,2503           44001                                   CATLOG,2                              
033310,000542: 14,2504           30601                                   CSS66                                 #  SEPARATION LESS THAN 76 DEG.
033311,000543: 14,2505           43240                          BMN      DAD                                   
033312,000544: 14,2506           30470                                   PIC3                                  
033313,000545: 14,2507           30603                                   CSS6640                               #  SEPARATION MORE THAN 30 DEG.
033314,000546: 14,2510           77644                          BPL                                            
033315,000547: 14,2511           30470                                   PIC3                                  
033316,000548:                                                                                                 # # Page 752
033317,000549: 14,2512           50373                          VLOAD*   DOT                                   
033318,000550: 14,2513           33776                                   CATLOG,1                              
033319,000551: 14,2514           02760                                   SAX                                   
033320,000552: 14,2515           50025                          DSU      BMN                                   #  MAJOR STAR IN CONE
033321,000553: 14,2516           30605                                   CSS33                                 
033322,000554: 14,2517           30456                                   PIC1                                  
033323,000555: 14,2520           50373                          VLOAD*   DOT                                   
033324,000556: 14,2521           44001                                   CATLOG,2                              
033325,000557: 14,2522           02760                                   SAX                                   
033326,000558: 14,2523           50025                          DSU      BMN                                   
033327,000559: 14,2524           30605                                   CSS33                                 
033328,000560: 14,2525           30470                                   PIC3                                  
033329,000561: 14,2526           77614        STRATGY           BONCLR                                         
033330,000562: 14,2527           01605                                   VFLAG                                 
033331,000563: 14,2530           30545                                   NEWPAR                                
033332,000564: 14,2531           65120                 -3       XCHX,1   XCHX,2                                
033333,000565: 14,2532           00302                                   BESTI                                 
033334,000566: 14,2533           00303                                   BESTJ                                 
033335,000567: 14,2534           47773        STRAT             VLOAD*   DOT*                                  
033336,000568: 14,2535           33776                                   CATLOG,1                              
033337,000569: 14,2536           44001                                   CATLOG,2                              
033338,000570: 14,2537           43006                          PUSH     BOFINV                                
033339,000571: 14,2540           01545                                   VFLAG                                 
033340,000572: 14,2541           30531                                   STRAT      -3                         
033341,000573: 14,2542           45345                          DLOAD    DSU                                   
033342,000574: 14,2543           77644                          BPL                                            
033343,000575: 14,2544           30470                                   PIC3                                  
033344,000576: 14,2545           67130        NEWPAR            SXA,1    SXA,2                                 
033345,000577: 14,2546           00302                                   BESTI                                 
033346,000578: 14,2547           00303                                   BESTJ                                 
033347,000579: 14,2550           77650                          GOTO                                           
033348,000580: 14,2551           30470                                   PIC3                                  
033349,000581: 14,2552           51321        OCCULT            MXV      BVSU                                  
033350,000582: 14,2553           02736                                   CULTRIX                               
033351,000583: 14,2554           00017                                   CSS                                   
033352,000584: 14,2555           77654                          BZE                                            
033353,000585: 14,2556           30571                                   CULTED                                
033354,000586: 14,2557           75240                          BMN      SIGN                                  
033355,000587: 14,2560           30571                                   CULTED                                
033356,000588: 14,2561           00160                                   MPAC       +3                         
033357,000589: 14,2562           75240                          BMN      SIGN                                  
033358,000590: 14,2563           30571                                   CULTED                                
033359,000591: 14,2564           00162                                   MPAC       +5                         
033360,000592: 14,2565           43040                          BMN      CLRGO                                 
033361,000593: 14,2566           30571                                   CULTED                                
033362,000594: 14,2567           01630                                   CULTFLAG                              
033363,000595: 14,2570           00052                                   QPRET                                 
033364,000596: 14,2571           77614        CULTED            SETGO                                          
033365,000597: 14,2572           01430                                   CULTFLAG                              
033366,000598: 14,2573           00052                                   QPRET                                 
033367,000599:                                                                                                 # # Page 753
033368,000600: 14,2574  0000016               CSS               =        CEARTH                                
033369,000601: 14,2574           21150 25157  SIN33             2DEC     .5376381241                            
033370,000602: 
033371,000603: 14,2576           32766 22713  COS33             2DEC     .8431756920                            
033372,000604: 
033373,000605: 14,2600           01736 35137  CSS66             2DEC     .060480472                            #  (COS76)/4
033374,000606: 
033375,000607: 14,2602           73003 65403  CSS6640           2DEC     -.15602587                            #  (COS76 - COS30)/4
033376,000608: 
033377,000609: 14,2604           06233 26112  CSS33             2DEC     .197002688                            #  (COS(1/2(76))/4
033378,000610: 
033379,000611:                                                                                                 # V1              =       12D
033380,000612: 14,2606           77414        PICEND            BOF      EXIT                                  
033381,000613: 14,2607           01745                                   VFLAG                                 
033382,000614: 14,2610           30621                                   P52F                                  
033383,000615: 14,2611           05671        P52I              TC       ALARM                                 
033384,000616: 14,2612           00405                          OCT      405                                   
033385,000617: 14,2613           35023                          CAF      V05N09                                
033386,000618: 14,2614           04636                          TC       BANKCALL                              
033387,000619: 14,2615           20743                          CADR     GOFLASH                               
033388,000620: 14,2616           04103                          TC       GOTOPOOH                              
033389,000621: 14,2617           02622                          TC       R51                                   #  PROCEED - DO R51 FINE ALIGN
033390,000622: 14,2620           02407                          TC       P52C                                  #  RECYCLE - VEHICLE HAS BEEN MANEUVERED                  
033391,000623: 14,2621           77776        P52F              EXIT                                           
033392,000624: 
033393,000625:                                                                                                 # # Page 754
033394,000626: 
033395,000627:                                                                                                 #  NAME - R51     FINE ALIGN
033396,000628:                                                                                                 #  FUNCTION - TO ALIGN THE STABLE MEMBER TO REFSSMAT
033397,000629:                                                                                                 #  INPUT - BESTI, BESTJ (PAIR OF STAR NO)
033398,000630:                                                                                                 #  OUTPUT - GYRO TORQUE PULSES
033399,000631:                                                                                                 #  SUBROUTINES - R52, R54, R55 (SXTNB, NBSM, AXISGEN)
033400,000632: 
033401,000633: 14,2622                                          COUNT*   $$/R51                                
033402,000634: 14,2622           34770        R51               CAF      BIT1                                  
033403,000635: 14,2623           54304        R51.3             TS       STARIND                               
033404,000636: 14,2624           05561                          TC       DOWNFLAG                              
033405,000637: 14,2625           00025                          ADRES    TARG2FLG                              
033406,000638: 
033407,000639: 14,2626           05402                          TC       PHASCHNG                              
033408,000640: 14,2627           05024                          OCT      05024                                 #  RESTART  GR 4  FOR R52-R53
033409,000641: 14,2630           13000                          OCT      13000                                 
033410,000642: 14,2631           50304                          INDEX    STARIND                               
033411,000643: 14,2632           30302                          CA       BESTI                                 
033412,000644: 14,2633           00006                          EXTEND                                         
033413,000645: 14,2634           73004                          MP       1/6TH                                 
033414,000646: 14,2635           55140                          TS       STARCODE                              
033415,000647: 14,2636           06006                          TC       INTPRET                               
033416,000648: 14,2637           77624                          CALL                                           
033417,000649: 14,2640           30761                                   R51DSPA                               
033418,000650: 14,2641           72131                          SSP      LXA,1                                 
033419,000651: 14,2642           00051                                   S1                                    
033420,000652: 14,2643           00000                                   0                                     
033421,000653: 14,2644           00304                                   STARIND                               
033422,000654: 14,2645           77700                          TIX,1                                          
033423,000655: 14,2646           30651                                   R51ST                                 
033424,000656: 14,2647           36617                          STCALL   STARSAV2                              #  2ND STAR
033425,000657: 14,2650           30652                                   R51ST      +1                         
033426,000658: 14,2651           02611        R51ST             STORE    STARSAV1                              #  1ST STAR
033427,000659: 14,2652           54335                 +1       SLOAD    SL                                    #  IS THIS P54
033428,000660: 14,2653           01215                                   MODREG                                
033429,000661: 14,2654           20215                                   12D                                   
033430,000662: 14,2655           45030                          BHIZ     CALL                                  
033431,000663: 14,2656           30753                                   R51A                                  #  NO
033432,000664: 14,2657           36105                                   R56                                   
033433,000665: 14,2660           77624        R51B              CALL                                           
033434,000666: 14,2661           36052                                   SXTSM                                 
033435,000667: 14,2662           02617                          STORE    STARSAV2                              
033436,000668: 14,2663           45145                          DLOAD    CALL                                  
033437,000669: 14,2664           02607                                   TSIGHT                                
033438,000670: 14,2665           31651                                   PLANET                                
033439,000671: 14,2666           53521                          MXV      UNIT                                  
033440,000672: 14,2667           01734                                   REFSMMAT                              
033441,000673: 14,2670           77776                          EXIT                                           
033442,000674: 14,2671           10304                          CCS      STARIND                               
033443,000675: 14,2672           02744                          TC       R51.4                                 
033444,000676: 14,2673           06006                          TC       INTPRET                               
033445,000677: 14,2674           26736                          STOVL    STARAD                                
033446,000678:                                                                                                 # # Page 755
033447,000679: 14,2675           02617                                   STARSAV2                              
033448,000680: 14,2676           24007                          STOVL    6D                                    
033449,000681: 14,2677           02611                                   STARSAV1                              
033450,000682: 14,2700           24015                          STOVL    12D                                   
033451,000683: 14,2701           02601                                   PLANVEC                               
033452,000684: 14,2702           36744                          STCALL   STARAD     +6                         
033453,000685: 14,2703           34657                                   R54                                   #  STAR DATA TEST
033454,000686: 14,2704           45014                          BOFF     CALL                                  
033455,000687: 14,2705           00354                                   FREEFLAG                              
033456,000688: 14,2706           30757                                   R51K                                  
033457,000689: 14,2707           47432                                   AXISGEN                               
033458,000690: 
033459,000691:                                                                                                 #  NAME - R55     GYRO TORQUE
033460,000692:                                                                                                 #  FUNCTION - COMPUTE AND SEND GYRO PULSES
033461,000693:                                                                                                 #  INPUT - X,Y,ZDC - REFSMMAT WRT PRESENT STABLE MEMBER
033462,000694:                                                                                                 #  OUTPUT - GYRO PULSES
033463,000695:                                                                                                 #  SUBROUTINES - CALCGTA, GOFLASH, GODSPR, IMUFINE, IMUPULSE, GOPERF1
033464,000696: 
033465,000697: 14,2710                                          COUNT*   $$/R55                                
033466,000698: 14,2710           77624        R55               CALL                                           #  COMPUTE AND SEND GYRO PULSES
033467,000699: 14,2711           47240                                   CALCGTA                               
033468,000700: 14,2712           77776        PULSEM            EXIT                                           
033469,000701: 14,2713           35040        R55.1             CAF      V06N93                                
033470,000702: 14,2714           04636                          TC       BANKCALL                              
033471,000703: 14,2715           20743                          CADR     GOFLASH                               
033472,000704: 14,2716           04103                          TC       GOTOPOOH                              
033473,000705: 14,2717           02721                          TC       R55.2                                 
033474,000706: 14,2720           02734                          TC       R55RET                                
033475,000707: 14,2721           05402        R55.2             TC       PHASCHNG                              
033476,000708: 14,2722           00314                          OCT      00314                                 
033477,000709: 14,2723  01,2165               4P31SPT1          =        4.31SPOT                              
033478,000710: 14,2723           33002                          CA       R55CDR                                
033479,000711: 14,2724           04636                          TC       BANKCALL                              
033480,000712: 14,2725           17244                          CADR     IMUPULSE                              
033481,000713: 14,2726           04636                          TC       BANKCALL                              
033482,000714: 14,2727           17644                          CADR     IMUSTALL                              
033483,000715: 14,2730           03766                          TC       217ALARM                              #  BAD END
033484,000716: 14,2731           05402                          TC       PHASCHNG                              
033485,000717: 14,2732           05024                          OCT      05024                                 
033486,000718: 14,2733           13000                          OCT      13000                                 
033487,000719: 14,2734           05561        R55RET            TC       DOWNFLAG                              
033488,000720: 14,2735           00051                          ADRES    PFRATFLG                              
033489,000721: 14,2736                                          COUNT*   $$/R51                                
033490,000722: 14,2736           35775        R51KA             CAF      OCT14                                 
033491,000723: 14,2737           04636                          TC       BANKCALL                              
033492,000724: 14,2740           21067                          CADR     GOPERF1                               
033493,000725: 14,2741           04103                          TC       GOTOPOOH                              
033494,000726: 14,2742           02407                          TC       P52C                                  #  V33
033495,000727: 14,2743           04103                          TC       GOTOPOOH                              
033496,000728: 14,2744           06006        R51.4             TC       INTPRET                               
033497,000729: 14,2745           26601                          STOVL    PLANVEC                               
033498,000730:                                                                                                 # # Page 756
033499,000731: 14,2746           02617                                   STARSAV2                              
033500,000732: 14,2747           02611                          STORE    STARSAV1                              
033501,000733: 14,2750           77776                          EXIT                                           
033502,000734: 14,2751           34772                          CAF      ZERO                                  
033503,000735: 14,2752           12623                          TCF      R51.3                                 #  CLEAR STARIND
033504,000736: 14,2753           77624        R51A              CALL                                           
033505,000737: 14,2754           31005                                   R52                                   
033506,000738: 14,2755           77650                          GOTO                                           
033507,000739: 14,2756           30660                                   R51B                                  
033508,000740: 14,2757           77776        R51K              EXIT                                           
033509,000741: 14,2760           02736                          TC       R51KA                                 
033510,000742: 14,2761           77420        R51DSPA           STQ      EXIT                                  
033511,000743: 14,2762           02657                                   SRTEMP                                
033512,000744: 14,2763           33003        R51DSP            CAF      V01N70                                
033513,000745: 14,2764           05540                          TC       VNFLASHR                              
033514,000746: 14,2765           02771                          TC       +4                                    
033515,000747: 14,2766           36211                          CAF      SIX                                   
033516,000748: 14,2767           05516                          TC       BLANKET                               
033517,000749: 14,2770           15205                          TCF      ENDOFJOB                              
033518,000750: 14,2771           03636                          TC       CHKSCODE                              
033519,000751: 14,2772           04362                          TC       FALTON                                
033520,000752: 14,2773           02763                          TC       R51DSP                                
033521,000753: 14,2774           06006                          TC       INTPRET                               
033522,000754: 14,2775           45034                          RTB      CALL                                  
033523,000755: 14,2776           51751                                   LOADTIME                              
033524,000756: 14,2777           31651                                   PLANET                                
033525,000757: 14,3000           77650                          GOTO                                           
033526,000758: 14,3001           02657                                   SRTEMP                                
033527,000759: 14,3002           02757        R55CDR            ECADR    OGC                                   
033528,000760: 14,3003           00306        V01N70            VN       0170                                  
033529,000761: 14,3004           05253        1/6TH             DEC      .1666667                              
033530,000762: 
033531,000763:                                                                                                 #  NAME - R52     AUTOMATIC OPTICS POSITIONING ROUTINE
033532,000764: 
033533,000765:                                                                                                 #  FUNCTION-  (1) TO POINT THE STAR LOS OF THE OPTICS AT A STAR OR LANDMARK DEFINED BY THE PROGRAM OR BY DSKY INPUT.
033534,000766:                                                                                                 #              (2) TO POINT THE STAR LOS OF THE OPTICS AT THE LEM DURING RENDEZVOUS TRACKING OPERATIONS.
033535,000767: 
033536,000768:                                                                                                 #  CALLING SEQUENCE- CALL R52
033537,000769: 
033538,000770:                                                                                                 #  INPUT- 1. TARG1FLG AND TARG2FLG - PRESET BY CALLER
033539,000771:                                                                                                 #          2. RNDVZFLG AND TRACKFLG - PRESET BY CALLER
033540,000772:                                                                                                 #          3. STAR CODE - PRESET BY CALLER. ALSO INPUT THROUGH DSKY
033541,000773:                                                                                                 #          4. LAT, LONG, AND ALT OF LANDMARK - INPUT THROUGH DSKY
033542,000774:                                                                                                 #          5. NO. OF MARKS (MARKINDX) - PRESET BY CALLER
033543,000775: 
033544,000776:                                                                                                 #  OUTPUT- DRIVE SHAFT AND TRUNNION CDUS.
033545,000777: 
033546,000778:                                                                                                 #  SUBROUTINES:   1.  FIXDELAY            7.  CLEANDSP
033547,000779:                                                                                                 #                 2.  GOPERF1             8.  GODSPR
033548,000780:                                                                                                 #                 3.  GOFLASH             9.  REFLASHR
033549,000781:                                                                                                 #                 4.  R53                 10. R52.2
033550,000782:                                                                                                 # # Page 757
033551,000783:                                                                                                 #                 5.  ALARM               11. R52.3
033552,000784:                                                                                                 #                 6.  SR52.1
033553,000785: 
033554,000786: 14,3005                                          COUNT*   $$/R52                                
033555,000787: 14,3005           77614        R52               CLEAR                                          
033556,000788: 14,3006           04265                                   ADVTRK                                
033557,000789: 14,3007           77420        R52VRB            STQ      EXIT                                  
033558,000790: 14,3010           02576                                   SAVQR52                               
033559,000791: 14,3011           35043                          CAF      EBANK5                                #  CALLER NOT ALWAYS IN E5.
033560,000792: 14,3012           56003                          XCH      EBANK                                 
033561,000793: 14,3013           55577                          TS       R52BNKSV                              
033562,000794: 14,3014           00006                          EXTEND                                         
033563,000795: 14,3015           30036                          DCA      CDUT                                  
033564,000796: 14,3016           53313                          DXCH     DESOPTT                               
033565,000797: 14,3017           00006                          EXTEND                                         
033566,000798: 14,3020           30025                          DCA      TIME2                                 
033567,000799: 14,3021           52364                          DXCH     AOPOLD                                
033568,000800: 14,3022           06006                          TC       INTPRET                               
033569,000801: 14,3023           43131                          SSP      CLEAR                                 
033570,000802: 14,3024           01324                                   OPTIND                                
033571,000803: 14,3025           00000                                   0                                     
033572,000804: 14,3026           00271                                   R53FLAG                               
033573,000805: 14,3027           43014                          BON      CLEAR                                 
033574,000806: 14,3030           00705                                   TARG1FLG                              
033575,000807: 14,3031           31222                                   R52H                                  
033576,000808: 14,3032           03660                                   TERMIFLG                              
033577,000809: 14,3033           77776                          EXIT                                           
033578,000810: 14,3034           31354        R52C              CA       SWSAMPLE                              #  IS OPTICS MODE IN AGC
033579,000811: 14,3035           00006                          EXTEND                                         
033580,000812: 14,3036           63245                          BZMF     R52M                                  #  MANUAL
033581,000813: 14,3037           06006        R52D              TC       INTPRET                               #  THIS IS SR52.1 - NOW IN-LINE
033582,000814:                                                                                                 #  NAME - SR52.1
033583,000815: 
033584,000816:                                                                                                 #  FUNCTION
033585,000817:                                                                                                 #   TARG1 AND TARG2 FLAGS ARE LOOKED AT TO DETERMINE IF THE TARGET IS THE
033586,000818:                                                                                                 #   LEM, STAR, OR LANDMARK. IN CASE OF LEM OR LMK, THE PRESENT TIME PLUS
033587,000819:                                                                                                 #   2 SECONDS IS SAVED IN AOPTIME (ALIAS STARAD, +1). IF THE LEM IS 
033588,000820:                                                                                                 #   THE TARGET THEN CONIC UPDATES OF THE CSM AND LEM ARE MADE TO
033589,000821:                                                                                                 #   THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE OF LEM AND CSM
033590,000822:                                                                                                 #   POSITION VECTORS BECOMES THE REFERENCE SIGHTING VECTOR USED IN THE
033591,000823:                                                                                                 #   COMMON PART OF THE THIS PROGRAM.
033592,000824: 
033593,000825:                                                                                                 #   IN THE CASE OF LANDMARK, THE CSM IS UPDATED CONICALLY. THE RADIUS
033594,000826:                                                                                                 #   VECTOR FOR THE LANDMARK IS OBTAINED FROM LALOTORV. BOTH OF THESE ARE
033595,000827:                                                                                                 #   FOUND FOR THE TIME IN AOPTIME. THE UNIT OF THE DIFFERENCE BETWEEN
033596,000828:                                                                                                 #   THE LANDMARK AND CSM RADIUS VECTORS BECOMES THE REFERENCE SIGHTING
033597,000829:                                                                                                 #   VECTOR FOR THE COMMON PART OF THIS ROUTINE.
033598,000830: 
033599,000831:                                                                                                 #   IF A STAR IS THE TARGET, THE PROPER STAR IS OBTAINED FROM THE CATALOG
033600,000832:                                                                                                 #   AND THIS VECTOR BECOMES THE REFERENCE SIGHTING VECTOR.
033601,000833: 
033602,000834:                                                                                                 #   THE COMMON PART OF THIS PROGRAM TRANSFORMS THE REFERENCE SIGHTING
033603,000835:                                                                                                 # # Page 758
033604,000836:                                                                                                 #   VECTOR INTO STABLE MEMBER COORDINATES. IT READS THE IMU-CDUS AND USES
033605,000837:                                                                                                 #   THIS DATA IN A CALL TO CALCSXA. ON RETURN FROM CALCSXA A TEST IS
033606,000838:                                                                                                 #   MADE TO SEE IF THE TRUNNION ANGLE IS GREATER THAN 90DEG. OR 50DEG.
033607,000839: 
033608,000840:                                                                                                 #  OUTPUT
033609,000841:                                                                                                 #   SAC - SINGLE PREC, 2S COMP, SCALED AT HALF REVS - SHAFT ANGLE DESIRED
033610,000842:                                                                                                 #   PAC - SINGLE PREC, 2S COMP, SCALED AT EIGHTH REVS - TRUNNION ANGLE DESIRED
033611,000843: 
033612,000844:                                                                                                 #  INITIALIZATION
033613,000845:                                                                                                 #   IF TARG1FLG =1 THEN TARGET IS LEM - NO OTHER INPUT REQUIRED
033614,000846:                                                                                                 #   IF TARG1FLG =0 AND TARG2FLG =0 THE TARGET IS STAR, STARIND SHOULD
033615,000847:                                                                                                 #   0 OR 1 DENOTING BESTI OR BESTJ RESPECTIVELY AS STAR CODE. STAR CODES
033616,000848:                                                                                                 #   ARE 6 TIMES STAR NUMBER.
033617,000849:                                                                                                 #   IF TARG1FLG =0 AND TARG2FLG =1 THEN TARGET IS LANDMARK. SEE ROUTINE
033618,000850:                                                                                                 #   LALOTORV FOR INPUT REQUIREMENTS. HERE FIXERAD=1 FOR CONSTANT EARTH
033619,000851:                                                                                                 #   RADIUS
033620,000852: 
033621,000853:                                                                                                 #  DEBRIS
033622,000854:                                                                                                 #   WORK AREA
033623,000855:                                                                                                 #   STARAD - STAR+5 (STAR IS DESIRED LOS IN STABLE MEMBER COORDINATES)
033624,000856: 
033625,000857: 14,3040           43234                 +1       RTB      DAD                                   
033626,000858: 14,3041           51751                                   LOADTIME                              
033627,000859: 14,3042           31271                                   2.4SECDP                              
033628,000860: 14,3043           45214                          BOFF     DSU                                   
033629,000861: 14,3044           04741                                   P24FLAG                               
033630,000862: 14,3045           31047                                   +2                                    
033631,000863: 14,3046           31273                                   .5SECDP                               
033632,000864: 14,3047           02347                          STORE    AOPTIME                               
033633,000865: 14,3050           43014                          BON      BON                                   
033634,000866: 14,3051           00705                                   TARG1FLG                              
033635,000867: 14,3052           31066                                   LEM52                                 
033636,000868: 14,3053           00706                                   TARG2FLG                              
033637,000869: 14,3054           31075                                   LMK52                                 
033638,000870: 14,3055           72131                          SSP      LXA,1                                 
033639,000871: 14,3056           00051                                   S1                                    
033640,000872: 14,3057           00000                                   0                                     
033641,000873: 14,3060           00304                                   STARIND                               
033642,000874: 14,3061           77700                          TIX,1                                          
033643,000875: 14,3062           31116                                   ST52ST                                
033644,000876: 14,3063           52175                          VLOAD    GOTO                                  
033645,000877: 14,3064           02617                                   STARSAV2                              
033646,000878: 14,3065           31120                                   COM52                                 
033647,000879: 14,3066           77745        LEM52             DLOAD                                          
033648,000880: 14,3067           02347                                   AOPTIME                               
033649,000881: 14,3070           34041                          STCALL   TDEC1                                 
033650,000882: 14,3071           27202                                   LEMCONIC                              
033651,000883: 14,3072           52175                          VLOAD    GOTO                                  
033652,000884: 14,3073           00001                                   RATT                                  
033653,000885: 14,3074           31105                                   LMKLMCOM                              
033654,000886:                                                                                                 # # Page 759
033655,000887: 14,3075           71214        LMK52             BON      DLOAD                                 
033656,000888: 14,3076           04305                                   ADVTRK                                
033657,000889: 14,3077           54040                                   ADVTRACK                              
033658,000890: 14,3100           02347                                   AOPTIME                               
033659,000891: 14,3101           77624                          CALL                                           
033660,000892: 14,3102           26524                                   LALOTORV                              
033661,000893: 14,3103           77775                          VLOAD                                          
033662,000894: 14,3104           02152                                   ALPHAV                                
033663,000895: 14,3105           16766        LMKLMCOM          STODL    STAR                                  
033664,000896: 14,3106           02347                                   AOPTIME                               
033665,000897: 14,3107           34041                          STCALL   TDEC1                                 
033666,000898: 14,3110           27170                                   CSMCONIC                              
033667,000899: 14,3111           52375                          VLOAD    VSU                                   
033668,000900: 14,3112           02766                                   STAR                                  
033669,000901: 14,3113           00001                                   RATT                                  
033670,000902: 14,3114           52056                          UNIT     GOTO                                  
033671,000903: 14,3115           31120                                   COM52                                 
033672,000904: 14,3116           77775        ST52ST            VLOAD                                          
033673,000905: 14,3117           02611                                   STARSAV1                              
033674,000906: 14,3120           53521        COM52             MXV      UNIT                                  
033675,000907: 14,3121           01734                                   REFSMMAT                              
033676,000908: 14,3122           02766                          STORE    STAR                                  
033677,000909: 14,3123           45001                          SETPD    CALL                                  
033678,000910: 14,3124           00001                                   0                                     
033679,000911: 14,3125           47530                                   CDUTRIG                               #  COMPUTES SINES AND COSINES FOR CALCSXA
033680,000912: 14,3126           77624                          CALL                                           #         NOW EXPECT TO SEE THE CDU ANGLES.
033681,000913: 14,3127           46034                                   CALCSXA                               
033682,000914: 14,3130           71214                          BON      DLOAD                                 
033683,000915: 14,3131           01710                                   CULTFLAG                              
033684,000916: 14,3132           31276                                   R52L                                  #  GR 90 DEGREES
033685,000917: 14,3133           02776                                   PAC                                   
033686,000918: 14,3134           51025                          DSU      BPL                                   
033687,000919: 14,3135           31267                                   38TRDEG                               
033688,000920: 14,3136           31241                                   R52J                                  #  GR 50 DEGREES
033689,000921: 14,3137           45345                          DLOAD    DSU                                   
033690,000922: 14,3140           02776                                   PAC                                   
033691,000923: 14,3141           31275                                   20DEGSMN                              
033692,000924: 14,3142           77440                          BMN      EXIT                                  
033693,000925: 14,3143           31241                                   R52J                                  
033694,000926: 14,3144           31775                          CA       PAC                                   
033695,000927: 14,3145           54330                          TS       PACTEMP                               
033696,000928: 14,3146           06006        R52JA             TC       INTPRET                               
033697,000929: 14,3147           43014                          BON      BOFF                                  
033698,000930: 14,3150           00705                                   TARG1FLG                              
033699,000931: 14,3151           31170                                   R52E                                  
033700,000932: 14,3152           04741                                   P24FLAG                               
033701,000933: 14,3153           31161                                   R53CHK                                
033702,000934: 14,3154           71214                          BOFCLR   DLOAD                                 
033703,000935: 14,3155           04241                                   NEWLMFLG                              
033704,000936: 14,3156           16530                                   RATESUB                               
033705,000937:                                                                                                 # # Page 760
033706,000938: 14,3157           02347                                   AOPTIME                               
033707,000939: 14,3160           00364                          STORE    AOPOLD                                
033708,000940: 14,3161           77414        R53CHK            BON      EXIT                                  
033709,000941: 14,3162           00311                                   R53FLAG                               
033710,000942: 14,3163           31170                                   R52E                                  
033711,000943: 14,3164           33265                          CAF      V06N92                                #  NO
033712,000944: 14,3165           04636                          TC       BANKCALL                              
033713,000945: 14,3166           20710                          CADR     GODSPR                                
033714,000946: 14,3167           06006                          TC       INTPRET                               
033715,000947: 14,3170           77776        R52E              EXIT                                           
033716,000948: 14,3171           30330                          CA       PACTEMP                               
033717,000949: 14,3172           55312                          TS       DESOPTT                               
033718,000950: 14,3173           31773                          CA       SAC                                   
033719,000951: 14,3174           55313                          TS       DESOPTS                               
033720,000952: 14,3175           05354        R52F              TC       CHECKMM                               
033721,000953: 14,3176           00030                          MM       24         B-14                       
033722,000954: 14,3177           13202                          TCF      R52FA                                 #  NO
033723,000955: 14,3200           34773                          CAF      FIVE                                  #  YES DELAY .05 SEC
033724,000956: 14,3201           13203                          TCF      R52FA      +1                         
033725,000957: 14,3202           35011        R52FA             CAF      .5SEC                                 #  WAIT .5 SEC
033726,000958: 14,3203           04636                 +1       TC       BANKCALL                              
033727,000959: 14,3204           01731                          CADR     DELAYJOB                              
033728,000960: 14,3205           34757                          CAF      TARG1BIT                              
033729,000961: 14,3206           70075                          MASK     FLAGWRD1                              
033730,000962: 14,3207           10000                          CCS      A                                     
033731,000963: 14,3210           03223                          TC       R52HA                                 
033732,000964: 
033733,000965: 14,3211           34752                          CAF      TERMIBIT                              
033734,000966: 14,3212           70103                          MASK     FLAGWRD7                              
033735,000967: 14,3213           00006                          EXTEND                                         
033736,000968: 14,3214           13034                          BZF      R52C                                  
033737,000969: 
033738,000970: 14,3215           31577        R52Q              CA       R52BNKSV                              
033739,000971: 14,3216           54003                          TS       EBANK                                 
033740,000972: 
033741,000973: 14,3217           06006                          TC       INTPRET                               
033742,000974: 14,3220           77650                          GOTO                                           
033743,000975: 14,3221           02576                                   SAVQR52                               
033744,000976: 
033745,000977: 14,3222           77776        R52H              EXIT                                           #  LEM
033746,000978: 14,3223           04636        R52HA             TC       BANKCALL                              
033747,000979: 14,3224           76333                          CADR     R61CSM                                
033748,000980: 14,3225           34764                          CAF      TRACKBIT                              
033749,000981: 14,3226           70075                          MASK     FLAGWRD1                              
033750,000982: 14,3227           00006                          EXTEND                                         
033751,000983: 14,3230           13215                          BZF      R52Q                                  
033752,000984: 14,3231           06006                          TC       INTPRET                               
033753,000985: 14,3232           52014                          BOF      GOTO                                  
033754,000986: 14,3233           00750                                   UPDATFLG                              
033755,000987: 14,3234           31236                                   R52SYNC                               
033756,000988:                                                                                                 # # Page 761
033757,000989: 14,3235           31040                                   R52D       +1                         
033758,000990: 14,3236           77776        R52SYNC           EXIT                                           
033759,000991: 14,3237           33311                          CAF      1.8SEC                                
033760,000992: 14,3240           13203                          TCF      R52FA      +1                         
033761,000993: 14,3241           77776        R52J              EXIT                                           
033762,000994: 14,3242           33266                          CA       38TRDEG                               
033763,000995: 14,3243           54330                          TS       PACTEMP                               
033764,000996: 14,3244           03146                          TC       R52JA                                 
033765,000997: 14,3245           34763        R52M              CAF      R53FLBIT                              #  IS R53FLAG SET
033766,000998: 14,3246           70074                          MASK     FLAGWRD0                              
033767,000999: 14,3247           10000                          CCS      A                                     
033768,001000: 14,3250           03316                          TC       R52G                                  #  YES
033769,001001: 14,3251           00004                          INHINT                                         #  NO
033770,001002: 14,3252           37645                          CAF      PRIO24                                
033771,001003: 14,3253           05135                          TC       FINDVAC                               
033772,001004: 14,3254  E7,1722                                 EBANK=   MRKBUF1                               
033773,001005: 14,3254           03260 30067                    2CADR    R53JOB                                
033774,001006: 
033775,001007: 14,3256           00003                          RELINT                                         
033776,001008: 14,3257           03316                          TC       R52G                                  
033777,001009: 14,3260           06006        R53JOB            TC       INTPRET                               
033778,001010: 14,3261           77624                          CALL                                           
033779,001011: 14,3262           31571                                   R53                                   
033780,001012: 14,3263           77776        ENDPLAC           EXIT                                           #  INTERPRETER RETURN TO ENDOFJOB (R22 USES)
033781,001013: 14,3264           05205                          TC       ENDOFJOB                              
033782,001014: 14,3265           01534        V06N92            VN       00692                                 
033783,001015: 14,3266           25252 25254  38TRDEG           2DEC     .66666667                             #  CORRESPONDS TO 50 DEGS IN TRUNION
033784,001016: 
033785,001017: 14,3270           00000 00360  2.4SECDP          2DEC     240        B-28                       
033786,001018: 
033787,001019: 14,3272           00000 00062  .5SECDP           2DEC     50         B-28                       
033788,001020: 
033789,001021: 14,3274           61740        20DEGSMN          DEC      -07199     B-14                       
033790,001022: 14,3275           77777                          DEC      -0         B-14                       
033791,001023: 14,3276           77414        R52L              BON      EXIT                                  
033792,001024: 14,3277           00705                                   TARG1FLG                              
033793,001025: 14,3300           31241                                   R52J                                  
033794,001026: 14,3301           33310                          CAF      OCT404                                
033795,001027: 14,3302           04636                          TC       BANKCALL                              
033796,001028: 14,3303           21766                          CADR     PRIOLARM                              
033797,001029: 14,3304           13312                          TCF      TERM52                                #  TERMINATE
033798,001030: 14,3305           13175                          TCF      R52F                                  #  PROCEED
033799,001031: 14,3306           13175                          TCF      R52F                                  #  NO PROVISION FOR NEW DATA
033800,001032: 14,3307           15205                          TCF      ENDOFJOB                              
033801,001033: 
033802,001034: 14,3310           00404        OCT404            OCT      404                                   
033803,001035: 
033804,001036: 14,3311           00264        1.8SEC            DEC      180        B-14                       
033805,001037: 
033806,001038: 14,3312           04636        TERM52            TC       BANKCALL                              
033807,001039:                                                                                                 # # Page 762
033808,001040: 14,3313           20575                          CADR     KLEENEX                               
033809,001041: 
033810,001042: 14,3314           04655                          TC       POSTJUMP                              
033811,001043: 14,3315           16031                          CADR     TERMSXT                               
033812,001044: 
033813,001045: 14,3316           05354        R52G              TC       CHECKMM                               
033814,001046: 14,3317           00030                          MM       24         B-14                       
033815,001047: 14,3320           13202                          TCF      R52FA                                 #  NO
033816,001048: 14,3321           11131                          CCS      PASSCNT                               #  IS THIS THE NTH (N = NO. PASS) TIME THRU
033817,001049: 14,3322           13407                          TCF      NOT4TH                                #  NO
033818,001050: 14,3323           40076                          CS       FLAGWRD2                              #  HAS A NEW MARK BEEN TAKEN
033819,001051: 14,3324           74766                          MASK     P24MKBIT                              
033820,001052: 14,3325           10000                          CCS      A                                     
033821,001053: 14,3326           13037                          TCF      R52D                                  
033822,001054: 14,3327           06006                          TC       INTPRET                               #  YES OBTAIN ADDRESS OF LAST MARK
033823,001055: 14,3330           46135                          SLOAD    BHIZ                                  
033824,001056: 14,3331           03754                                   P22DEX                                
033825,001057: 14,3332           31411                                   LSTMRK                                
033826,001058: 14,3333           54160                          AXC,1    XSU,1                                 
033827,001059: 14,3334           03530                          ECADR    SVMRKDAT   -7                         
033828,001060: 14,3335           03753                                   P22DEX                                
033829,001061: 14,3336           70730        R52K              SXA,1    DLOAD*                                
033830,001062: 14,3337           01077                                   MARKDATA                              
033831,001063: 14,3340           00001                                   0,1                                   
033832,001064: 14,3341           47044                          BPL      RTB                                   
033833,001065: 14,3342           31344                                   +2                                    
033834,001066: 14,3343           31037                                   R52D                                  
033835,001067: 14,3344           03670                          STORE    S22TOFF                               
033836,001068: 14,3345           34041                          STCALL   TDEC1                                 #  INT TO TIME OF MARK
033837,001069: 14,3346           27170                                   CSMCONIC                              
033838,001070: 14,3347           77775                          VLOAD                                          
033839,001071: 14,3350           00017                                   RATT1                                 
033840,001072: 14,3351           01046                          STORE    CSMPOS                                #  EARTH B29 MOON B27
033841,001073: 14,3352           45150                          LXA,1    CALL                                  
033842,001074: 14,3353           01077                                   MARKDATA                              
033843,001075: 14,3354           47017                                   GETUM                                 
033844,001076: 14,3355           25072                          STOVL    UM                                    #  UNIT TIME OF SIGHT VECTOR
033845,001077: 14,3356           01046                                   CSMPOS                                
033846,001078: 14,3357           77656                          UNIT                                           
033847,001079: 14,3360           36152                          STCALL   ALPHAV                                #  ALPHAV +4 = SINL FOR SETRE
033848,001080: 14,3361           26654                                   SETRE                                 
033849,001081: 14,3362           43345                          DLOAD    DAD                                   #  CORRECT R0 FOR ALT OF LMK
033850,001082: 14,3363           02240                                   ERADM                                 
033851,001083: 14,3364           00753                                   ALT                                   
033852,001084: 14,3365           02240                          STORE    ERADM                                 
033853,001085: 14,3366           77624                          CALL                                           #  COMPUTE LANDMARK VECTOR
033854,001086: 14,3367           61331                                   S22F2410                              
033855,001087: 14,3370           70414                          BOFF     VSR2                                  
033856,001088: 14,3371           04343                                   CMOONFLG                              
033857,001089: 14,3372           31373                                   +1                                    
033858,001090:                                                                                                 # # Page 763
033859,001091: 14,3373           16152                          STODL    ALPHAV                                
033860,001092: 14,3374           03670                                   S22TOFF                               
033861,001093: 14,3375           77624                          CALL                                           #  COMPUTE LAT, LONG, ALT
033862,001094: 14,3376           26453                                   LAT-LONG                              
033863,001095: 14,3377           77624                          CALL                                           
033864,001096: 14,3400           62363                                   LLASRD                                
033865,001097: 14,3401           77414                          SET      EXIT                                  
033866,001098: 14,3402           04061                                   NEWLMFLG                              
033867,001099: 14,3403           05561                          TC       DOWNFLAG                              
033868,001100: 14,3404           00052                          ADRES    P24MKFLG                              
033869,001101: 14,3405           44770                          CS       ONE                                   
033870,001102: 14,3406           60737                          AD       NO.PASS                               
033871,001103: 14,3407           55131        NOT4TH            TS       PASSCNT                               
033872,001104: 14,3410           13037                          TCF      R52D                                  
033873,001105: 14,3411           52160        LSTMRK            AXC,1    GOTO                                  
033874,001106: 14,3412           03573                          ECADR    SVMRKDAT   +28D                       
033875,001107: 14,3413           31336                                   R52K                                  
033876,001108: 07,2000                                          SETLOC   RATEBNK                               
033877,001109: 07,2000                                          BANK                                           
033878,001110: 
033879,001111: 07,2530                                          COUNT*   $$/R52                                
033880,001112: 07,2530           45345        RATESUB           DLOAD    DSU                                   
033881,001113: 07,2531           02347                                   AOPTIME                               
033882,001114: 07,2532           00364                                   AOPOLD                                
033883,001115: 07,2533           77634                          RTB                                            
033884,001116: 07,2534           45636                                   SGNAGREE                              
033885,001117: 07,2535           77612                          SL4                                            
033886,001118: 07,2536           14772                          STODL    RATETEMP                              #  TIME DIF SCALLED B24
033887,001119: 07,2537           02347                                   AOPTIME                               
033888,001120: 07,2540           00364                          STORE    AOPOLD                                #  UPDATE OLD TIME REG
033889,001121: 07,2541           77545                          DLOAD    EXIT                                  #  LOAD SHAFT AND TRUNNION SCALE FACTORS
033890,001122: 07,2542           01771                                   TRUNSF                                
033891,001123: 07,2543           30772                          CA       RATETEMP   +1                         
033892,001124: 07,2544           56771                          XCH      RATETEMP                              #  TIME DIF SP SCALED B10
033893,001125: 07,2545           22007                          ZL                                             
033894,001126: 07,2546           30155                          CA       MPAC       +1                         #  SHAFTSF b25
033895,001127: 07,2547           00006                          EXTEND                                         
033896,001128: 07,2550           10771                          DV       RATETEMP                              #  B15
033897,001129: 07,2551           56001                          XCH      L                                     
033898,001130: 07,2552           31773                          CA       SAC                                   #  SHAFT
033899,001131: 07,2553           00006                          EXTEND                                         
033900,001132: 07,2554           21313                          MSU      DESOPTS                               #  B-1
033901,001133: 07,2555           00006                          EXTEND                                         
033902,001134: 07,2556           70001                          MP       L                                     #  B14
033903,001135: 07,2557           55657                          TS       SRTEMP                                
033904,001136: 07,2560           22007                          ZL                                             
033905,001137: 07,2561           30154                          CA       MPAC                                  #  TRUNSF B27
033906,001138: 07,2562           00006                          EXTEND                                         
033907,001139: 07,2563           10771                          DV       RATETEMP                              #  B17
033908,001140: 07,2564           56001                          XCH      L                                     
033909,001141:                                                                                                 # # Page 764
033910,001142: 07,2565           30330                          CA       PACTEMP                               #  TRUNNION
033911,001143: 07,2566           00006                          EXTEND                                         
033912,001144: 07,2567           21312                          MSU      DESOPTT                               #  B-3
033913,001145: 07,2570           00006                          EXTEND                                         
033914,001146: 07,2571           70001                          MP       L                                     #  B14
033915,001147: 07,2572           55656                          TS       TRTEMP                                
033916,001148: 07,2573           34770                          CAF      ONE                                   #  INITIALIZE FOR SHAFT RATE
033917,001149: 07,2574           54772        MAGCK             TS       RATETEMP   +1                         #  CHECK IF SHAFT,TRUN RATES GR THAN MAX
033918,001150: 07,2575           50772                          INDEX    RATETEMP   +1                         
033919,001151: 07,2576           31656                          CA       TRTEMP                                
033920,001152: 07,2577           00006                          EXTEND                                         
033921,001153: 07,2600           62610                          BZMF     NEGRATE                               
033922,001154: 07,2601           62626                          AD       -MAXSRT                               
033923,001155: 07,2602           00006                          EXTEND                                         
033924,001156: 07,2603           62617                          BZMF     CMDCMP                                
033925,001157: 07,2604           42626                          CS       -MAXSRT                               
033926,001158: 07,2605           50772                          INDEX    RATETEMP   +1                         
033927,001159: 07,2606           55656                          TS       TRTEMP                                #  SET RATE TO +MAX RATE
033928,001160: 07,2607           12617                          TCF      CMDCMP                                
033929,001161: 07,2610           40000        NEGRATE           COM                                            
033930,001162: 07,2611           62626                          AD       -MAXSRT                               
033931,001163: 07,2612           00006                          EXTEND                                         
033932,001164: 07,2613           62617                          BZMF     CMDCMP                                
033933,001165: 07,2614           32626                          CA       -MAXSRT                               
033934,001166: 07,2615           50772                          INDEX    RATETEMP   +1                         
033935,001167: 07,2616           55656                          TS       TRTEMP                                #  SET RATE TO -MAX RATE
033936,001168: 07,2617           10772        CMDCMP            CCS      RATETEMP   +1                         
033937,001169: 07,2620           12574                          TCF      MAGCK                                 #  GO DO TRUN RATE
033938,001170: 07,2621           06006                          TC       INTPRET                               
033939,001171: 07,2622           77745                          DLOAD                                          
033940,001172: 07,2623           02657                                   TRTEMP                                
033941,001173: 07,2624           34736                          STCALL   TRATE                                 
033942,001174: 07,2625           31161                                   R53CHK                                
033943,001175: 07,2626           77177        -MAXSRT           DEC      -384       B-14                       #  MAX PULSES
033944,001176: 
033945,001177:                                                                                                 # # Page 765
033946,001178:                                                                                                 #  NAME - LOCSAM ALIAS S50
033947,001179: 
033948,001180:                                                                                                 #  FUNCTION - TO COMPUTE QUATITIGS LISTED BELOW, USED IN THE
033949,001181:                                                                                                 #              IMU ALIGNMENT PROGRAMS.
033950,001182: 
033951,001183:                                                                                                 #  DEFINE:
033952,001184:                                                                                                 #         RATT    = POSITION VECTOR OF CM  WRT PRIMARY BODY
033953,001185:                                                                                                 #         VATT    = VELOCITY VECTOR OF CM  WRT PRIMARY BODY
033954,001186:                                                                                                 #         RE      = RADIUS OF EARTH
033955,001187:                                                                                                 #         RM      = RADIUS OF MOON
033956,001188:                                                                                                 #         ECLIPOL = POLE OF ECLIPTIC SCALED BY TANGENTIAL VELOCITY OF EARTH
033957,001189:                                                                                                 #                   WRT TO SUN  OVER  THE VELOCITY OF LIGHT
033958,001190:                                                                                                 #         REM     = POSITION OF MOON  WRT  EARTH
033959,001191:                                                                                                 #         RES     = POSITION OF SUN  WRT  EARTH
033960,001192:                                                                                                 #         C       = VELOCITY OF LIGHT
033961,001193: 
033962,001194: 
033963,001195:                                                                                                 #                 EARTH IS PRIMARY                        MOON IS PRIMARY
033964,001196:                                                                                                 #                         _                                       _
033965,001197:                                                                                                 #                 VEARTH=-1(RATT)                         VEARTH=-1(REM+RATT)
033966,001198:                                                                                                 #                         _                                       _
033967,001199:                                                                                                 #                 VMOON = 1(REM-RATT)                     VMOON =-1(RATT)
033968,001200:                                                                                                 #                         _                                       _
033969,001201:                                                                                                 #                 VSUN  = 1(RES)                          VSUN  = 1(RES-REM)
033970,001202:                                                                                                 #                               -1
033971,001203:                                                                                                 #                 CEARTH=COS(SIN  (RE/RATT)+5)            CEARTH=COS 5
033972,001204:                                                                                                 #                                                                       -1
033973,001205:                                                                                                 #                 CMOON =COS 5                            CMOON =COS(SIN  CRM/RATT)+5)
033974,001206: 
033975,001207:                                                                                                 #                 CSUN  =COS 15                           CSUN  =COS 15
033976,001208: 
033977,001209:                                                                                                 #                             VEL/C = VSUN x ECLIPOL + VATT/C
033978,001210: 
033979,001211: 
033980,001212:                                                                                                 #  CALL - DLOAD   CALL
033981,001213:                                                                                                 #                         DESIRED TIME
033982,001214:                                                                                                 #                         LOCSAM
033983,001215: 
033984,001216:                                                                                                 #  INPUTS - MPAC = TIME
033985,001217: 
033986,001218:                                                                                                 #  OUTPUTS- VEARTH,VMOON,VSUN,CEARTH,CMOON,CSUN,VEL/C
033987,001219: 
033988,001220:                                                                                                 #  SUBROUTINES- LSPOS,CSMCONIC
033989,001221: 
033990,001222:                                                                                                 #  DEBRIS - VAC AREA, SEE SUBROUTINES
033991,001223: 
033992,001224:                                                                                                 # # Page 766
033993,001225: 13,2000                                          SETLOC   SR52/1                                
033994,001226: 13,2000                                          BANK                                           
033995,001227: 
033996,001228: 13,2345                                          COUNT*   $$/S50                                
033997,001229: 
033998,001230: 13,2345  13,2345               LOCSAM            =        S50                                   
033999,001231: 13,2345           77620        S50               STQ                                            
034000,001232: 13,2346           00300                                   QMAJ                                  
034001,001233: 13,2347           36607                          STCALL   TSIGHT                                
034002,001234: 13,2350           54136                                   LSPOS                                 
034003,001235: 13,2351           26752                          STOVL    VMOON                                 
034004,001236: 13,2352           00003                                   2D                                    
034005,001237: 13,2353           16744                          STODL    VSUN                                  
034006,001238: 13,2354           02607                                   TSIGHT                                
034007,001239: 13,2355           34041                          STCALL   TDEC1                                 
034008,001240: 13,2356           27170                                   CSMCONIC                              
034009,001241: 13,2357           61131                          SSP      TIX,2                                 
034010,001242: 13,2360           00052                                   S2                                    
034011,001243: 13,2361           00000                                   0                                     
034012,001244: 13,2362           26405                                   MOONCNTR                              
034013,001245: 13,2363           52375        EARTCNTR          VLOAD    VSU                                   
034014,001246: 13,2364           02752                                   VMOON                                 
034015,001247: 13,2365           00001                                   RATT                                  
034016,001248: 13,2366           77656                          UNIT                                           
034017,001249: 13,2367           26752                          STOVL    VMOON                                 
034018,001250: 13,2370           00001                                   RATT                                  
034019,001251: 13,2371           57456                          UNIT     VCOMP                                 
034020,001252: 13,2372           16736                          STODL    VEARTH                                
034021,001253: 13,2373           34636                                   RSUBE                                 
034022,001254: 13,2374           77624                          CALL                                           
034023,001255: 13,2375           26445                                   OCCOS                                 
034024,001256: 13,2376           14017                          STODL    CEARTH                                
034025,001257: 13,2377           34654                                   CSS5                                  
034026,001258: 13,2400           24023                          STOVL    CMOON                                 
034027,001259: 13,2401           02744                                   VSUN                                  
034028,001260: 13,2402           77656                          UNIT                                           
034029,001261: 13,2403           36744                          STCALL   VSUN                                  
034030,001262: 13,2404           26432                                   ENDSAM                                
034031,001263: 13,2405           40575        MOONCNTR          VLOAD    VSR8                                  
034032,001264: 13,2406           02752                                   VMOON                                 
034033,001265: 13,2407           51362                          VSR1     BVSU                                  
034034,001266: 13,2410           02744                                   VSUN                                  
034035,001267: 13,2411           77656                          UNIT                                           
034036,001268: 13,2412           26744                          STOVL    VSUN                                  
034037,001269: 13,2413           02752                                   VMOON                                 
034038,001270: 13,2414           53455                          VAD      UNIT                                  
034039,001271: 13,2415           00001                                   RATT                                  
034040,001272: 13,2416           77676                          VCOMP                                          
034041,001273: 13,2417           26736                          STOVL    VEARTH                                
034042,001274:                                                                                                 # # Page 767
034043,001275: 13,2420           00001                                   RATT                                  
034044,001276: 13,2421           57456                          UNIT     VCOMP                                 
034045,001277: 13,2422           16752                          STODL    VMOON                                 
034046,001278: 13,2423           34634                                   RSUBM                                 
034047,001279: 13,2424           77624                          CALL                                           
034048,001280: 13,2425           26445                                   OCCOS                                 
034049,001281: 13,2426           14023                          STODL    CMOON                                 
034050,001282: 13,2427           34654                                   CSS5                                  
034051,001283: 13,2430           24017                          STOVL    CEARTH                                
034052,001284: 13,2431           02744                                   VSUN                                  
034053,001285: 13,2432           77635        ENDSAM            VXV                                            
034054,001286: 13,2433           34644                                   ECLIPOL                               
034055,001287: 13,2434           27452                          STOVL    VEL/C                                 
034056,001288: 13,2435           00007                                   VATT                                  
034057,001289: 13,2436           53361                          VXSC     VAD                                   
034058,001290: 13,2437           34642                                   1/C                                   
034059,001291: 13,2440           03452                                   VEL/C                                 
034060,001292: 13,2441           17452                          STODL    VEL/C                                 
034061,001293: 13,2442           34656                                   CSSUN                                 
034062,001294: 13,2443           34021                          STCALL   CSUN                                  
034063,001295: 13,2444           00300                                   QMAJ                                  
034064,001296: 13,2445           70471        OCCOS             DDV      SR1                                   
034065,001297: 13,2446           00045                                   36D                                   
034066,001298: 13,2447           43336                          ASIN     DAD                                   
034067,001299: 13,2450           34640                                   5DEGREES                              
034068,001300: 13,2451           70546                          COS      SR1                                   
034069,001301: 13,2452           77616                          RVQ                                            
034070,001302: 16,2000                                          SETLOC   P50S2                                 
034071,001303: 16,2000                                          BANK                                           
034072,001304: 16,2633                                          COUNT*   $$/S50                                
034073,001305: 16,2633           00065 01265  RSUBM             2DEC     1738090    B-29                       #  MOON RADIUS IN METERS
034074,001306: 
034075,001307: 16,2635           00302 24533  RSUBE             2DEC     6378166    B-29                       
034076,001308: 
034077,001309: 16,2637           00343 21616  5DEGREES          2DEC     .013888889                            #  SCALED IN REVS
034078,001310: 
034079,001311: 16,2641           00000 13143  1/C               2DEC     .000042696 B-1                        #  1/(9835712 FT/CS) SCALED CSEC/M B+7
034080,001312: 
034081,001313: 16,2643           00000 00000  ECLIPOL           2DEC     0          B-28                       #  POLE OF ECLIPTIC FOR B0=.409157363336 RAD
034082,001314: 
034083,001315: 16,2645           77777 53213                    2DEC     -.0000395319722                            #  AND CONST.AB = 20.496 ARC-SEC
034084,001316: 
034085,001317: 16,2647           00001 17630                    2DEC     +.0000911652662                            #  ECLIPOL = CONST.AB.(0, -SIN B0, COS B0)
034086,001318: 
034087,001319: 16,2651           00001 16700  TSIGHT1           2DEC     24000      B-28                       
034088,001320: 
034089,001321: 16,2653                        CEARTH            =        14D                                   
034090,001322: 16,2653                        CSUN              =        16D                                   
034091,001323: 16,2653                        CMOON             =        18D                                   
034092,001324: 16,2653           07760 14473  CSS5              2DEC     .2490475                              #  (COS 5)/4
034093,001325: 
034094,001326:                                                                                                 # # Page 768
034095,001327: 16,2655           07564 15042  CSSUN             2DEC     .24148                                #  COS 15 /4
034096,001328: 
034097,001329: 16,2657  16,2657               R54               =        CHKSDATA                              
034098,001330: 
034099,001331:                                                                                                 #  NAME - CHKSDATA
034100,001332: 
034101,001333:                                                                                                 #  FUNCTIONAL DESCRIPTION - CHECKS THE VALIDITY OF A PAIR OF STAR SIGHTINGS. WHEN A PAIR OF STAR SIGHTINGS ARE MADE
034102,001334:                                                                                                 #  BY THE ASTRONAUT THIS ROUTINE OPERATES AND CHECKS THE OBSERVED SIGHTINGS AGAINST STORED STAR VECTORS IN THE
034103,001335:                                                                                                 #  COMPUTER TO INSURE A PROPER SIGHTING WAS MADE. THE FOLLOWING COMPUTATIONS ARE PERFORMED -
034104,001336: 
034105,001337:                                                                                                 #         OS1 = OBSERVED STAR 1 VECTOR
034106,001338:                                                                                                 #         OS2 = OBSERVED STAR 2 VECTOR
034107,001339:                                                                                                 #         SS1 = STORED STAR 1 VECTOR
034108,001340:                                                                                                 #         SS2 = STORED STAR 2 VECTOR
034109,001341:                                                                                                 #          A1 = ARCCOS(OS1 - OS2)
034110,001342:                                                                                                 #          A2 = ARCCOS(SS1 - SS2)
034111,001343:                                                                                                 #           A = ABS(2(A1 - A2))
034112,001344: 
034113,001345:                                                                                                 #  THE ANGULAR DIFFERENCE IS DISPLAYED FOR ASTRONAUT ACCEPTANCE
034114,001346: 
034115,001347:                                                                                                 #  EXIT MODE 1. FREEFLAG SET  IMPLIES ASTRONAUT WANTS TO PROCEED
034116,001348:                                                                                                 #             2. FREEFLAG RESET IMPLIES ASTRONAUT WANTS TO RECYCLE
034117,001349: 
034118,001350:                                                                                                 #  OUTPUT - 1. VERB 6,NOUN 3 - DISPLAYS ANGULAR DIFFERENCE BETWEEN 2 SETS OF STARS.
034119,001351:                                                                                                 #            2. STAR VECTORS FROM STAR CATALOG ARE LEFT IN 6D AND 12D.
034120,001352: 
034121,001353:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED -
034122,001354:                                                                                                 #         1. MARK VECTORS ARE STORED IN STARAD AND STARAD +6.
034123,001355:                                                                                                 #         2. CATALOG VECTORS ARE STORED IN 6D AND 12D.
034124,001356: 
034125,001357:                                                                                                 #  DEBRIS -
034126,001358: 
034127,001359: 16,2657  0003777                                 EBANK=   WHOCARES                              
034128,001360: 16,2657                                          COUNT*   $$/R54                                
034129,001361: 16,2657           43020        CHKSDATA          STQ      SET                                   
034130,001362: 16,2660           02777                                   QMIN                                  
034131,001363: 16,2661           00074                                   FREEFLAG                              
034132,001364: 16,2662           77760        CHKSAB            AXC,1                                          #  SET X1 TO STORE EPHEMERIS DATA
034133,001365: 16,2663           02735                                   STARAD                                
034134,001366: 
034135,001367: 16,2664           47773        CHKSB             VLOAD*   DOT*                                  #  CAL. ANGLE THETA
034136,001368: 16,2665           00001                                   0,1                                   
034137,001369: 16,2666           00007                                   6,1                                   
034138,001370: 16,2667           65552                          SL1      ACOS                                  
034139,001371: 16,2670           00025                          STORE    THETA                                 
034140,001372: 16,2671           43014                          BOFF     INVERT                                #  BRANCH TO CHKSD IF THIS IS 2ND PASS
034141,001373: 16,2672           00354                                   FREEFLAG                              
034142,001374: 16,2673           34702                                   CHKSD                                 
034143,001375: 16,2674           00174                                   FREEFLAG                              #  CLEAR FREEFLAG
034144,001376: 16,2675           71360                          AXC,1    DLOAD                                 #  SET X1 TO MARK ANGLES
034145,001377: 16,2676           00006                                   6D                                    
034146,001378: 16,2677           00025                                   THETA                                 
034147,001379: 16,2700           34023                          STCALL   18D                                   
034148,001380: 16,2701           34664                                   CHKSB                                 
034149,001381:                                                                                                 # # Page 769
034150,001382: 16,2702           45345        CHKSD             DLOAD    DSU                                   
034151,001383: 16,2703           00025                                   THETA                                 
034152,001384: 16,2704           00023                                   18D                                   #  COMPUTE POS DIFF
034153,001385: 16,2705           47046                          ABS      RTB                                   
034154,001386: 16,2706           45636                                   SGNAGREE                              
034155,001387: 16,2707           01251                          STORE    NORMTEM1                              
034156,001388: 16,2710           77414                          SET      EXIT                                  
034157,001389: 16,2711           00074                                   FREEFLAG                              
034158,001390: 16,2712           34772                          CAF      ZERO                                  
034159,001391: 16,2713           04636                          TC       BANKCALL                              
034160,001392: 16,2714           20715                          CADR     CLEANDSP                              
034161,001393: 
034162,001394: 16,2715           32727                          CAF      VB6N5                                 
034163,001395: 16,2716           04636                          TC       BANKCALL                              
034164,001396: 16,2717           20743                          CADR     GOFLASH                               
034165,001397: 16,2720           14103                          TCF      GOTOPOOH                              
034166,001398: 16,2721           02724                          TC       CHKSDA                                #  PROCEED
034167,001399: 16,2722           05561                          TC       DOWNFLAG                              
034168,001400: 16,2723           00014                          ADRES    FREEFLAG                              
034169,001401: 16,2724           06006        CHKSDA            TC       INTPRET                               
034170,001402: 16,2725           77650                          GOTO                                           
034171,001403: 16,2726           02777                                   QMIN                                  
034172,001404: 16,2727           01405        VB6N5             VN       605                                   
034173,001405: 
034174,001406: 16,2730                                          COUNT*   $$/R50                                
034175,001407: 16,2730           77773        MATMOVE           VLOAD*                                         #  TRANSFER MATRIX
034176,001408: 16,2731           00001                                   0,1                                   
034177,001409: 16,2732           10001                          STORE    0,2                                   
034178,001410: 16,2733           77773                          VLOAD*                                         
034179,001411: 16,2734           00007                                   6D,1                                  
034180,001412: 16,2735           10007                          STORE    6D,2                                  
034181,001413: 16,2736           77773                          VLOAD*                                         
034182,001414: 16,2737           00015                                   12D,1                                 
034183,001415: 16,2740           10015                          STORE    12D,2                                 
034184,001416: 16,2741           77616                          RVQ                                            
034185,001417: 16,2742           00056        DEGREE1           DEC      46         B-14                       
034186,001418: 16,2743           37722        DEG359            DEC      16338      B-14                       
034187,001419: 16,2744           00004        RDCDUS            INHINT                                         #  READ CDUS
034188,001420: 16,2745           00006                          EXTEND                                         
034189,001421: 16,2746           30033                          DCA      CDUX                                  
034190,001422: 16,2747           50120                          INDEX    FIXLOC                                
034191,001423: 16,2750           52002                          DXCH     1                                     
034192,001424: 16,2751           30034                          CA       CDUZ                                  
034193,001425: 16,2752           50120                          INDEX    FIXLOC                                
034194,001426: 16,2753           54003                          TS       3                                     
034195,001427: 16,2754           00003                          RELINT                                         
034196,001428: 16,2755           06030                          TC       DANZIG                                
034197,001429: 
034198,001430:                                                                                                 #  NAME - CALCSMSC
034199,001431: 
034200,001432:                                                                                                 #  FUNCTION - DETERMINE AND COMPUTE THE DESIRED GIMBAL ANGLES TO BE USED FOR COARSE ALIGNMENT.
034201,001433:                                                                                                 # # Page 770
034202,001434: 
034203,001435:                                                                                                 #  CALLING SEQUENCE - CALL CALCSMSC
034204,001436: 
034205,001437:                                                                                                 #  INPUT - DESIRED IMU INERTIAL ORIENTATION VECTORS - XSMD, YSMD, ZSMD
034206,001438: 
034207,001439:                                                                                                 #  OUTPUT - GIMBAL ANGLES LEFT IN THETAD, +1, +2
034208,001440: 
034209,001441:                                                                                                 #  SUBROUTINES USED - 1.CDUTRIG 2.CALCSMSC 3.CALCGA
034210,001442: 
034211,001443: 16,2000                                          SETLOC   P50S2                                 
034212,001444: 16,2000                                          BANK                                           
034213,001445: 16,2756                                          COUNT*   $$/R51                                
034214,001446: 16,2756           41345        CALCSMSC          DLOAD    DMP                                   
034215,001447: 16,2757           01142                                   SINCDUY                               
034216,001448: 16,2760           01152                                   COSCDUZ                               
034217,001449: 16,2761           77676                          DCOMP                                          
034218,001450: 16,2762           70525                          PDDL     SR1                                   
034219,001451: 16,2763           01144                                   SINCDUZ                               
034220,001452: 16,2764           41325                          PDDL     DMP                                   
034221,001453: 16,2765           01150                                   COSCDUY                               
034222,001454: 16,2766           01152                                   COSCDUZ                               
034223,001455: 16,2767           76466                          VDEF     VSL1                                  
034224,001456: 16,2770           16714                          STODL    XNB                                   
034225,001457: 16,2771           01146                                   SINCDUX                               
034226,001458: 16,2772           72405                          DMP      SL1                                   
034227,001459: 16,2773           01144                                   SINCDUZ                               
034228,001460: 16,2774           00033                          STORE    26D                                   
034229,001461: 16,2775           65205                          DMP      PDDL                                  
034230,001462: 16,2776           01142                                   SINCDUY                               
034231,001463: 16,2777           01154                                   COSCDUX                               
034232,001464: 16,3000           45205                          DMP      DSU                                   
034233,001465: 16,3001           01150                                   COSCDUY                               
034234,001466: 16,3002           41325                          PDDL     DMP                                   
034235,001467: 16,3003           01146                                   SINCDUX                               
034236,001468: 16,3004           01152                                   COSCDUZ                               
034237,001469: 16,3005           65276                          DCOMP    PDDL                                  
034238,001470: 16,3006           01154                                   COSCDUX                               
034239,001471: 16,3007           65205                          DMP      PDDL                                  
034240,001472: 16,3010           01142                                   SINCDUY                               
034241,001473: 16,3011           01150                                   COSCDUY                               
034242,001474: 16,3012           43205                          DMP      DAD                                   
034243,001475: 16,3013           00033                                   26D                                   
034244,001476: 16,3014           76466                          VDEF     VSL1                                  
034245,001477: 16,3015           02730                          STORE    ZNB                                   
034246,001478: 16,3016           76435                          VXV      VSL1                                  
034247,001479: 16,3017           02714                                   XNB                                   
034248,001480: 16,3020           02722                          STORE    YNB                                   
034249,001481: 16,3021           77616                          RVQ                                            
034250,001482: 
034251,001483:                                                                                                 # # Page 771              
034252,001484:                                                                                                 #  PROGRAM NAME - P51 - IMU ORIENTATION DETERMINATION             DATE - AUGUST 1,1969
034253,001485:                                                                                                 #  MODIFICATION BY ALBERT,BARNERT,HASLAM                          LOG SECTION - P51-P5
034254,001486: 
034255,001487:                                                                                                 #  FUNCTION -
034256,001488: 
034257,001489:                                                                                                 #  DETERMINES THE INERTIAL ORIENTATION OF THE IMU. THE PROGRAM IS SELECTED BY DSKY ENTRY. THE SIGHTING
034258,001490:                                                                                                 #  ROUTINE IS CALLED TO COLLECT THE CDU COUNTERS AND SHAFT AND TRUNNION ANGLES FOR A SIGHTED STAR. THE DATA IS
034259,001491:                                                                                                 #  THEN PROCESSED AS FOLLOWS.
034260,001492: 
034261,001493:                                                                                                 #         1. SEXTANT ANGLES ARE COMPUTED IN TERMS OF NAVIGATIONAL BASE COORDINATES. LET SA AND TA BE THE SHAFT AND
034262,001494:                                                                                                 #         TRUNNION ANGLES, RESPECTIVELY. THEN,
034263,001495:                                                                                                 #                 _
034264,001496:                                                                                                 #                 V  = (SIN(TA)*COS(SA), SIN(TA)*SIN(SA), COS(TA))        (A COLUMN VECTOR)
034265,001497:                                                                                                 #          NB
034266,001498:                                                                                                 #         THE OUTPUT IS A HALF-UNIT VECTOR STORED IN STARM.
034267,001499: 
034268,001500:                                                                                                 #         2. THIS VECTOR IN NAV. BASE COORDS. IS THEN TRANSFORMED TO ONE IN STABLE MEMBER COORDINATES.
034269,001501: 
034270,001502:                                                                                                 #                 _    T  T  T _
034271,001503:                                                                                                 #                 V = Q *Q *Q *V  , WHERE
034272,001504:                                                                                                 #                      1  2  3  NB
034273,001505: 
034274,001506:                                                                                                 #                      ( COS(IG)   0    -SIN(IG) )
034275,001507:                                                                                                 #                      (                         )                                THE GIMBAL ANGLES ARE COMPUTED FROM
034276,001508:                                                                                                 #                 Q  = (   0       1       0     ), IG= INNER GIMBAL ANGLE        THE CDU COUNTERS AT NBSM (USING AXIS-
034277,001509:                                                                                                 #                  1   (                         )                                ROT AND CDULOGIC)
034278,001510:                                                                                                 #                      ( SIN(IG)   0     COS(IG) )
034279,001511: 
034280,001512: 
034281,001513:                                                                                                 #                      ( COS(MG) SIN(MG)   0     )
034282,001514:                                                                                                 #                      (                         )
034283,001515:                                                                                                 #                 Q  = (-SIN(MG) COS(MG)   0     ), MG= MIDDLE GIMBAL ANGLE
034284,001516:                                                                                                 #                  2   (                         )
034285,001517:                                                                                                 #                      (   0       0       1     )
034286,001518: 
034287,001519: 
034288,001520:                                                                                                 #                      (   1       0       0     )
034289,001521:                                                                                                 #                      (                         )
034290,001522:                                                                                                 #                 Q  = (   0     COS(OG) SIN(OG) ), OG= OUTER GIMBAL ANGLE
034291,001523:                                                                                                 #                  3   (                         )
034292,001524:                                                                                                 #                      (   0    -SIN(OG) COS(OG) )
034293,001525: 
034294,001526:                                                                                                 #         3. THE STAR NUMBER IS SAVED AND THE SECOND STAR IS THEN SIMILARLY PROCESSED.
034295,001527: 
034296,001528:                                                                                                 #         4. THE ANGLE BETWEEN THE TWO STARS IS THEN CHECKED AT CKSDATA.
034297,001529: 
034298,001530:                                                                                                 #         5. REFSMMAT IS THEN COMPUTED AT AXISGEN AS FOLLOWS.
034299,001531:                                                                                                 #                     _      _
034300,001532:                                                                                                 #            LET S  AND S  BE TWO STAR VECTORS EXPRESSED IN TWO COORDINATE SYSTEMS, A AND B (BASIC AND STABLE MEMBER).
034301,001533:                                                                                                 # # Page 772
034302,001534:                                                                                                 #                      1      2
034303,001535: 
034304,001536:                                                                                                 #            DEFINE,
034305,001537:                                                                                                 #                 _    _
034306,001538:                                                                                                 #                 U  = S
034307,001539:                                                                                                 #                  A    A1
034308,001540:                                                                                                 #                 _         _    _
034309,001541:                                                                                                 #                 V  = UNIT(S  x S  )
034310,001542:                                                                                                 #                  A         A1   A2
034311,001543:                                                                                                 #                 _    _   _
034312,001544:                                                                                                 #                 W  = U x V
034313,001545:                                                                                                 #                  A    A   A
034314,001546: 
034315,001547:                                                                                                 #            AND,
034316,001548:                                                                                                 #                 _    _
034317,001549:                                                                                                 #                 U  = S
034318,001550:                                                                                                 #                  B    B1
034319,001551:                                                                                                 #                 _         _    _
034320,001552:                                                                                                 #                 V  = UNIT(S  x S  )
034321,001553:                                                                                                 #                  B         B1   B2
034322,001554:                                                                                                 #                 _    _   _
034323,001555:                                                                                                 #                 W  = U x V
034324,001556:                                                                                                 #                  B    B   B
034325,001557: 
034326,001558:                                                                                                 #            THEN
034327,001559:                                                                                                 #                 _        _       _       _
034328,001560:                                                                                                 #                 X  = U  *U + V  *V + W  *W
034329,001561:                                                                                                 #                       B1  A   B1  A   B1  A
034330,001562:                                                                                                 #                 _        _       _       _
034331,001563:                                                                                                 #                 Y  = U  *U + V  *V + W  *W              (REFSMMAT)
034332,001564:                                                                                                 #                       B2  A   B2  A   B2  A
034333,001565:                                                                                                 #                 _        _       _       _
034334,001566:                                                                                                 #                 Z  = U  *U + V  *V + W  *W
034335,001567:                                                                                                 #                       B3  A   B3  A   B3  A
034336,001568: 
034337,001569:                                                                                                 #            THE INPUTS CONSIST OF THE FOUR HALF-UNIT VECTORS STORED AS FOLLOWS
034338,001570:                                                                                                 #                 _
034339,001571:                                                                                                 #                 S   IN 6-11 OF THE VAC AREA
034340,001572:                                                                                                 #                  A1
034341,001573:                                                                                                 #                 _
034342,001574:                                                                                                 #                 S   IN 12-17 OF THE VAC AREA
034343,001575:                                                                                                 #                  A2
034344,001576:                                                                                                 #                 _
034345,001577:                                                                                                 #                 S   IN STARAD
034346,001578:                                                                                                 # # Page 773
034347,001579:                                                                                                 #                  B1
034348,001580:                                                                                                 #                 _
034349,001581:                                                                                                 #                 S   IN STARAD +6
034350,001582:                                                                                                 #                  B2
034351,001583: 
034352,001584:                                                                                                 #  CALLING SEQUENCE
034353,001585: 
034354,001586:                                                                                                 #         THE PROGRAM IS CALLED BY THE ASTRONAUT BY DSKY ENTRY.
034355,001587: 
034356,001588:                                                                                                 #  SUBROUTINES CALLED.
034357,001589: 
034358,001590:                                                                                                 #         GOPERF3
034359,001591:                                                                                                 #         GOPERF1R
034360,001592:                                                                                                 #         GODSPR
034361,001593:                                                                                                 #         IMUCOARS
034362,001594:                                                                                                 #         IMUFIN20
034363,001595:                                                                                                 #         R53
034364,001596:                                                                                                 #         SXTNB
034365,001597:                                                                                                 #         NBSM
034366,001598:                                                                                                 #         MKRELEAS
034367,001599:                                                                                                 #         CHKSDATA
034368,001600:                                                                                                 #         MATMOVE
034369,001601: 
034370,001602:                                                                                                 #  ALARMS
034371,001603: 
034372,001604:                                                                                                 #         NONE
034373,001605: 
034374,001606:                                                                                                 #  ERASABLE INITIALIZATION
034375,001607: 
034376,001608:                                                                                                 #         IMU ZERO FLAG SHOULD BE SET.
034377,001609: 
034378,001610:                                                                                                 #  OUTPUT
034379,001611: 
034380,001612:                                                                                                 #         REFSMMAT
034381,001613:                                                                                                 #         REFSMFLG
034382,001614: 
034383,001615:                                                                                                 #  DEBRIS
034384,001616: 
034385,001617:                                                                                                 #         WORK AREA
034386,001618:                                                                                                 #         STARAD
034387,001619:                                                                                                 #         STARIND
034388,001620:                                                                                                 #         BESTI
034389,001621:                                                                                                 #         BESTJ
034390,001622: 
034391,001623: 14,2000                                          SETLOC   P50S1                                 
034392,001624: 14,2000                                          BANK                                           
034393,001625: 14,3414                                          COUNT*   $$/P5153                              
034394,001626: 14,3414  14,3414               P53               EQUALS   P51                                   
034395,001627: 14,3414           41333        P51               CS       IMODES30                              
034396,001628: 14,3415           74760                          MASK     IMUOPBIT                              
034397,001629:                                                                                                 # # Page 774
034398,001630: 14,3416           10000                          CCS      A                                     
034399,001631: 14,3417           03423                          TC       P51A                                  
034400,001632: 14,3420           05671                          TC       ALARM                                 
034401,001633: 14,3421           00210                          OCT      210                                   
034402,001634: 14,3422           04103                          TC       GOTOPOOH                              
034403,001635: 14,3423           04636        P51A              TC       BANKCALL                              
034404,001636: 14,3424           03745                          CADR     R02ZERO                               
034405,001637: 
034406,001638: 14,3425           34776        P51AA             CAF      PRFMSTAQ                              
034407,001639: 14,3426           04636                          TC       BANKCALL                              
034408,001640: 14,3427           21067                          CADR     GOPERF1                               
034409,001641: 14,3430           04103                          TC       GOTOPOOH                              #  TERM.
034410,001642: 14,3431           03454                          TC       P51B                                  #  V 33
034411,001643: 14,3432           05402                          TC       PHASCHNG                              
034412,001644: 14,3433           05024                          OCT      05024                                 
034413,001645: 14,3434           13000                          OCT      13000                                 
034414,001646: 14,3435           34772                          CAF      P51ZERO                               
034415,001647: 14,3436           55307                          TS       THETAD                                #  ZERO THE GIMBALS
034416,001648: 14,3437           55310                          TS       THETAD     +1                         
034417,001649: 14,3440           55311                          TS       THETAD     +2                         
034418,001650: 14,3441           35025                          CAF      V06N22                                
034419,001651: 14,3442           04636                          TC       BANKCALL                              
034420,001652: 14,3443           20705                          CADR     GODSPRET                              
034421,001653: 14,3444           33565                          CAF      V41K                                  #  NOW DISPLAY COARSE ALIGN VERB 41
034422,001654: 14,3445           04636                          TC       BANKCALL                              
034423,001655: 14,3446           20705                          CADR     GODSPRET                              
034424,001656: 14,3447           03742                          TC       COARSUB                               #  PERFORM ALIGNMENT
034425,001657: 14,3450           05402                          TC       PHASCHNG                              
034426,001658: 14,3451           05024                          OCT      05024                                 
034427,001659: 14,3452           13000                          OCT      13000                                 
034428,001660: 14,3453           13425                          TCF      P51AA                                 #  COARSE ALIGN DONE - RECYCLE FOR FINE
034429,001661: 
034430,001662:                                                                                                 # # Page 775
034431,001663: 
034432,001664:                                                                                                 #     DO STAR SIGHTING AND COMPUTE NEW REFSMMAT
034433,001665: 
034434,001666: 14,3454           06006        P51B              TC       INTPRET                               
034435,001667: 14,3455           40331                          SSP      SETPD                                 
034436,001668: 14,3456           00305                                   STARIND                               #  INDEX - STAR 1 OR 2
034437,001669: 14,3457           00000                                   0                                     
034438,001670: 14,3460           00001                                   0                                     
034439,001671: 14,3461           77234                          RTB      VLOAD                                 
034440,001672: 14,3462           31566                                   SET1/PDT                              
034441,001673: 14,3463           11762                                   ZEROVEC                               
034442,001674: 14,3464           01472                          STORE    GCOMP                                 
034443,001675: 14,3465           43014                          SET      CLEAR                                 
034444,001676: 14,3466           01060                                   DRIFTFLG                              #  ENABLE T4 COMPENSATION
034445,001677: 14,3467           00666                                   TARG2FLG                              #  SHOW MARK IS STAR - NOT LANDMARK
034446,001678: 14,3470           77776                          EXIT                                           
034447,001679: 14,3471           05402        P51C              TC       PHASCHNG                              
034448,001680: 14,3472           05024                          OCT      05024                                 
034449,001681: 14,3473           13000                          OCT      13000                                 
034450,001682: 14,3474           05354                          TC       CHECKMM                               
034451,001683: 14,3475           00065                          MM       53         B-14                       #  BACKUP PROGRAM
034452,001684: 14,3476           13504                          TCF      P51C.1                                #  NOT P53
034453,001685: 14,3477           06006                          TC       INTPRET                               
034454,001686: 14,3500           77624                          CALL                                           
034455,001687: 14,3501           36105                                   R56                                   
034456,001688: 14,3502           77650                          GOTO                                           
034457,001689: 14,3503           31507                                   P51C.2                                
034458,001690: 14,3504           06006        P51C.1            TC       INTPRET                               
034459,001691: 14,3505           77624                          CALL                                           
034460,001692: 14,3506           31571                                   R53                                   #  SIGHTING ROUTINE
034461,001693: 14,3507           77624        P51C.2            CALL                                           #  COMPUTE LOS IN SM FROM MARK DATA
034462,001694: 14,3510           36052                                   SXTSM                                 
034463,001695: 14,3511           77606                          PUSH                                           
034464,001696: 14,3512           53135                          SLOAD    BZE                                   
034465,001697: 14,3513           00305                                   STARIND                               
034466,001698: 14,3514           31520                                   P51D                                  
034467,001699: 14,3515           45575                          VLOAD    STADR                                 
034468,001700: 14,3516           41160                          STCALL   STARSAV2                              #  DOWNLINK
034469,001701: 14,3517           31526                                   P51E                                  
034470,001702: 14,3520           45575        P51D              VLOAD    STADR                                 
034471,001703: 14,3521           61166                          STODL    STARSAV1                              
034472,001704: 14,3522           02607                                   TSIGHT                                
034473,001705: 14,3523           77624                          CALL                                           
034474,001706: 14,3524           31651                                   PLANET                                
034475,001707: 14,3525           02601                          STORE    PLANVEC                               
034476,001708: 14,3526           77776        P51E              EXIT                                           
034477,001709: 14,3527           05402                          TC       PHASCHNG                              
034478,001710: 14,3530           05024                          OCT      05024                                 
034479,001711: 14,3531           13000                          OCT      13000                                 
034480,001712: 14,3532           10304                          CCS      STARIND                               
034481,001713: 14,3533           13542                          TCF      P51F                                  #  STAR 2
034482,001714:                                                                                                 # # Page 776
034483,001715: 14,3534           05402                          TC       PHASCHNG                              
034484,001716: 14,3535           05024                          OCT      05024                                 
034485,001717: 14,3536           13000                          OCT      13000                                 
034486,001718: 14,3537           34770                          CAF      BIT1                                  
034487,001719: 14,3540           54304                          TS       STARIND                               
034488,001720: 14,3541           13471                          TCF      P51C                                  #  GO DO SECOND STAR
034489,001721: 14,3542           05402        P51F              TC       PHASCHNG                              
034490,001722: 14,3543           05024                          OCT      05024                                 
034491,001723: 14,3544           13000                          OCT      13000                                 
034492,001724: 14,3545           06006                          TC       INTPRET                               
034493,001725: 14,3546           45145                          DLOAD    CALL                                  
034494,001726: 14,3547           02607                                   TSIGHT                                
034495,001727: 14,3550           31651                                   PLANET                                
034496,001728: 14,3551           24015                          STOVL    12D                                   
034497,001729: 14,3552           02601                                   PLANVEC                               
034498,001730: 14,3553           24007                          STOVL    6D                                    
034499,001731: 14,3554           02611                                   STARSAV1                              
034500,001732: 14,3555           26736                          STOVL    STARAD                                
034501,001733: 14,3556           02617                                   STARSAV2                              
034502,001734: 14,3557           36744                          STCALL   STARAD     +6                         
034503,001735: 14,3560           34657                                   CHKSDATA                              #  CHECK STAR ANGLES IN STARAD AND
034504,001736: 14,3561           77414                          BON      EXIT                                  
034505,001737: 14,3562           00314                                   FREEFLAG                              
034506,001738: 14,3563           11716                                   P51G                                  
034507,001739: 14,3564           03425                          TC       P51AA                                 
034508,001740: 04,2000                                          SETLOC   P50S4                                 
034509,001741: 04,2000                                          BANK                                           
034510,001742: 
034511,001743: 04,3716                                          COUNT*   $$/P5153                              
034512,001744: 04,3716           77624        P51G              CALL                                           
034513,001745: 04,3717           47432                                   AXISGEN                               #  COME BACK WITH REFSMMAT IN XDC
034514,001746: 04,3720           75160                          AXC,1    AXC,2                                 
034515,001747: 04,3721           02713                                   XDC                                   
034516,001748: 04,3722           01733                                   REFSMMAT                              
034517,001749: 04,3723           45014                          CLEAR    CALL                                  
034518,001750: 04,3724           01662                                   REFSMFLG                              
034519,001751: 04,3725           34730                                   MATMOVE                               
034520,001752: 04,3726           77414                          SET      EXIT                                  
034521,001753: 04,3727           01462                                   REFSMFLG                              
034522,001754: 04,3730           04103                          TC       GOTOPOOH                              
034523,001755: 14,2000                                          SETLOC   P50S1                                 
034524,001756: 14,2000                                          BANK                                           
034525,001757: 
034526,001758: 14,3565                                          COUNT*   $$/P5153                              
034527,001759: 14,3565     4776               PRFMSTAQ          =        OCT15                                 
034528,001760: 14,3565     4772               P51ZERO           =        ZERO                                  
034529,001761: 14,3565     4773               P51FIVE           =        FIVE                                  
034530,001762: 14,3565           12200        V41K              VN       4100                                  
034531,001763: 14,3566           30025        SET1/PDT          CA       TIME1                                 
034532,001764: 14,3567           55277                          TS       1/PIPADT                              
034533,001765:                                                                                                 # # Page 777
034534,001766: 14,3570           16030                          TCF      DANZIG                                
034535,001767: 
034536,001768:                                                                                                 # # Page 778
034537,001769:                                                                                                 #  SXTSM COMPUTES AN LOS VECTOR IN SM COORD FROM OCDU AND ICDU MARK DATA
034538,001770: 
034539,001771: 17,2000                                          SETLOC   P50S3                                 
034540,001772: 17,2000                                          BANK                                           
034541,001773: 17,2052                                          COUNT*   $$/R51                                
034542,001774: 17,2052           77745        SXTSM             DLOAD                                          
034543,001775: 17,2053           03723                                   MRKBUF1                               
034544,001776: 17,2054           02607                          STORE    TSIGHT                                
034545,001777: 17,2055           77760                          AXC,1                                          
034546,001778: 17,2056           03722                                   MRKBUF1                               #  ADDRESS OF MARK DATA FOR P50'S
034547,001779: 17,2057           77620        SXTSM1            STQ                                            #  CALLED HERE FROM GETUM (P20 AND P22)
034548,001780: 17,2060           00300                                   QMAJ                                  
034549,001781: 17,2061           66744                          LXC,2    SLOAD*                                
034550,001782: 17,2062           00304                                   STARIND                               
034551,001783: 17,2063           41673                                   MKDNCDR,2                             
034552,001784: 17,2064           76744                          LXC,2    VLOAD*                                
034553,001785: 17,2065           00154                                   MPAC                                  
034554,001786: 17,2066           00001                                   0,1                                   
034555,001787: 17,2067           10001                          STORE    0,2                                   
034556,001788: 17,2070           77743                          DLOAD*                                         
034557,001789: 17,2071           00006                                   5,1                                   
034558,001790: 17,2072           10006                          STORE    5,2                                   
034559,001791: 17,2073           77773        SXTSM2            VLOAD*                                         
034560,001792: 17,2074           00003                                   2,1                                   
034561,001793: 17,2075           35172                          STCALL   CDUSPOT                               
034562,001794: 17,2076           46000                                   SXTNB                                 
034563,001795: 17,2077           77624                          CALL                                           
034564,001796: 17,2100           47642                                   TRG*NBSM                              #  TRANSFER LOS TO SM
034565,001797: 17,2101           34041                          STCALL   32D                                   
034566,001798: 17,2102           00300                                   QMAJ                                  
034567,001799: 17,2103           03674        MKDNCDR           ECADR    MARKDOWN                              
034568,001800: 17,2104           03460                          ECADR    MARK2DWN                              
034569,001801: 
034570,001802:                                                                                                 # # Page 779
034571,001803:                                                                                                 #  NAME - R53 - SIGHTING MARK ROUTINE
034572,001804:                                                                                                 # # Page 780
034573,001805: 
034574,001806:                                                                                                 #  FUNCTION -
034575,001807:                                                                                                 #   TO PERFORM A SATISFACTORY NUMBER OF SIGHTING MARKS FOR THE REQUESTING PROGRAM (OR ROUTINE). SIGHTINGS
034576,001808:                                                                                                 #   CAN BE MADE ON A STAR OR LANDMARK. WHEN THE CMC ACCEPTS A MARK IT RECORDS AND STORES 5 ANGLES (3 ICDUS AND 2
034577,001809:                                                                                                 #   OCDUS) AND THE TIME OF THE MARK.
034578,001810: 
034579,001811:                                                                                                 #  CALLING SEQUENCE
034580,001812:                                                                                                 #   R53 IS CALLED AND RETURNS IN INTERPRETIVE CODE. RETURN IS VIA QPRET.
034581,001813:                                                                                                 #   THERE IS NO ERROR EXIT IN THIS ROUTINE ITSELF.
034582,001814: 
034583,001815:                                                                                                 #  SUBROUTINES CALLED     
034584,001816:                                                                                                 #   SXTMARK
034585,001817:                                                                                                 #   OPTSTALL
034586,001818:                                                                                                 #   GOFLASH
034587,001819: 
034588,001820:                                                                                                 #  ERASABLE INITIALIZATION
034589,001821:                                                                                                 #   TARGET FLAG - STAR OR LANDMARK
034590,001822:                                                                                                 #   MARKINDX - NUMBER OF MARKS WANTED
034591,001823:                                                                                                 #   STARIND - INDEX TO BESTI OR BESTJ (STAR NUMBER)
034592,001824: 
034593,001825:                                                                                                 #  OUTPUT
034594,001826:                                                                                                 #   MARKSTAT CONTAINS INDEX TO VACANT AREA WEHRE MARK DATA IS STORED
034595,001827:                                                                                                 #   BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER SIGHTED.
034596,001828: 
034597,001829:                                                                                                 #  DEBRIS
034598,001830:                                                                                                 #   MARKINDX CONTAINS NUMBER OF MARKS DESIRED
034599,001831: 
034600,001832: 14,2000                                          SETLOC   RT53                                  
034601,001833: 14,2000                                          BANK                                           
034602,001834: 
034603,001835: 14,3571                                          COUNT*   $$/R53                                
034604,001836: 14,3571           43020        R53               STQ      SET                                   #  SET SIGHTING MARK FLAG
034605,001837: 14,3572           03457                                   R53EXIT                               
034606,001838: 14,3573           00071                                   R53FLAG                               
034607,001839: 14,3574           77776                          EXIT                                           
034608,001840: 14,3575           04636        R53A              TC       BANKCALL                              
034609,001841: 14,3576           16000                          CADR     SXTMARK                               
034610,001842: 14,3577           05354                          TC       CHECKMM                               
034611,001843: 14,3600           00030                          MM       24         B-14                       
034612,001844: 14,3601           13603                          TCF      +2                                    
034613,001845: 14,3602           13612                          TCF      R53A1                                 
034614,001846: 14,3603           05354                          TC       CHECKMM                               
034615,001847: 14,3604           00026                          MM       22         B-14                       #  P22?
034616,001848: 14,3605           34766                          CAF      FOUR                                  #  NO, IS MARKINDX = 1
034617,001849: 14,3606           63650                          AD       MIN5                                  #  YES, IS MARKINDX = 5 (CHECKMM LEAVES 0)
034618,001850: 14,3607           60301                          AD       MARKINDX                              
034619,001851: 14,3610           00006                          EXTEND                                         
034620,001852: 14,3611           13575                          BZF      R53A                                  #  NO MARKS TAKEN.  DO AGAIN.
034621,001853: 14,3612           04636        R53A1             TC       BANKCALL                              
034622,001854: 14,3613           16073                          CADR     MKRELEAS                              
034623,001855: 14,3614           34772        R53C1             CAF      ZERO                                  
034624,001856: 14,3615           04636                          TC       BANKCALL                              
034625,001857: 14,3616           20715                          CADR     CLEANDSP                              
034626,001858:                                                                                                 # # Page 781
034627,001859: 14,3617           44763        R53B              CS       BIT6                                  #  CUT BETWEEN P20S AND P50S
034628,001860: 14,3620           61214                          AD       MODREG                                #  P22,P23 CALL           
034629,001861: 14,3621           00006                          EXTEND                                         
034630,001862: 14,3622           63631                          BZMF     R53D                                  #  YES
034631,001863: 14,3623           33635        R53C              CAF      V01N71                                
034632,001864: 14,3624           05535                          TC       VNFLASH                               
034633,001865: 14,3625           03636        R53Z              TC       CHKSCODE                              
034634,001866:                                                                                                 #  ROUTINE TO ALLOW ONLY +0 <= STARCODE <= +50, OTHERWISE 'OPERATOR ERROR'
034635,001867: 14,3626           04362                          TC       FALTON                                
034636,001868: 14,3627           03623                          TC       R53C                                  
034637,001869: 14,3630           03732                          TC       STORIJ                                #  SET BESTI(BESTJ) = 1ST(2ND) STARCODE
034638,001870: 14,3631           06006        R53D              TC       INTPRET                               
034639,001871: 14,3632           77614        R53OUT            SETGO                                          
034640,001872: 14,3633           03420                                   TERMIFLG                              #  SET TERMINATE FOR R52
034641,001873: 14,3634           03457                                   R53EXIT                               
034642,001874: 14,3635     6211               SIGHTSIX          =        SIX                                   
034643,001875: 14,3635           00307        V01N71            VN       0171                                  
034644,001876: 
034645,001877:                                                                                                 #  ****** KEEP IN SAME BANK AS R51 AND R53 ********
034646,001878: 14,3636           11140        CHKSCODE          CCS      STARCODE                              
034647,001879: 14,3637           13643                          TCF      SCPOS                                 #  > 0, CHECK IF <= 50
034648,001880: 14,3640           16710                          TCF      Q+2                                   #  = +0, OK
034649,001881: 14,3641           00002                          TC       Q                                     #  NEGATIVE STARCODE OF ANY
034650,001882: 14,3642           00002                          TC       Q                                     #  MAGNITUDE IS IMPROPER
034651,001883: 14,3643           63647        SCPOS             AD       NEG47                                 
034652,001884: 14,3644           00006                          EXTEND                                         
034653,001885: 14,3645           66710                          BZMF     Q+2                                   #  <= 50, OK
034654,001886: 14,3646           00002                          TC       Q                                     #  > 50, IMPROPER
034655,001887: 14,3647           77730        NEG47             OCT      77730                                 
034656,001888: 14,3650           77772        MIN5              DEC      -5         B-14                       
034657,001889: 
034658,001890:                                                                                                 # # Page 782
034659,001891:                                                                                                 #  NAME - S52.2
034660,001892:                                                                                                 #  FUNCTION - COMPUTE GIMBAL ANGLES FOR DESIRED SM AND PRESENT VEHICLE
034661,001893:                                                                                                 #  CALL - CALL S52.2
034662,001894:                                                                                                 #  INPUT - X,Y,ZSMD
034663,001895:                                                                                                 #  OUTPUT - OGC,IGC,MGC,THETAD,+1,+2
034664,001896:                                                                                                 #  SUBROUTINES - CDUTRIG, CALCSMSC, MATMOVE, CALCGA
034665,001897: 
034666,001898: 11,2000                                          SETLOC   S52/2                                 
034667,001899: 11,2000                                          BANK                                           
034668,001900: 
034669,001901: 11,2247                                          COUNT*   $$/S52.2                              
034670,001902: 11,2247           45020        S52.2             STQ      CALL                                  
034671,001903: 11,2250           00300                                   QMAJ                                  
034672,001904: 11,2251           47530                                   CDUTRIG                               
034673,001905: 11,2252           77624                          CALL                                           
034674,001906: 11,2253           34756                                   CALCSMSC                              
034675,001907: 11,2254           66370                          AXT,1    SSP                                   
034676,001908: 11,2255           00022                                   18D                                   
034677,001909: 11,2256           00051                                   S1                                    
034678,001910: 11,2257           00006                                   6D                                    
034679,001911: 11,2260           61373        S52.2A            VLOAD*   VXM                                   
034680,001912: 11,2261           02736                                   XNB        +18D,1                     
034681,001913: 11,2262           01734                                   REFSMMAT                              
034682,001914: 11,2263           77656                          UNIT                                           
034683,001915: 11,2264           06736                          STORE    XNB        +18D,1                     
034684,001916: 11,2265           77700                          TIX,1                                          
034685,001917: 11,2266           22260                                   S52.2A                                
034686,001918: 11,2267           75160        S52.2.1           AXC,1    AXC,2                                 
034687,001919: 11,2270           00306                                   XSMD                                  
034688,001920: 11,2271           02671                                   XSM                                   
034689,001921: 11,2272           77624                          CALL                                           
034690,001922: 11,2273           34730                                   MATMOVE                               
034691,001923: 11,2274           77624                          CALL                                           
034692,001924: 11,2275           47344                                   CALCGA                                
034693,001925: 11,2276           77650                          GOTO                                           
034694,001926: 11,2277           00300                                   QMAJ                                  
034695,001927: 
034696,001928:                                                                                                 # # Page 783
034697,001929: 
034698,001930:                                                                                                 #  THE ADVTRACK ROUTINE IS USED TO COMPUTE AN OPTICS LOS VECTOR TO
034699,001931:                                                                                                 #  A POINT ON THE GROUND TRACK 60 DEGREES FORWARD OF THE LOCAL VERTICAL
034700,001932:                                                                                                 #  OF AN ADVANCED ORBIT A SPECIFIED NUMBER OF REVOLUTIONS FROM NOW.
034701,001933: 
034702,001934: 26,2000                                          SETLOC   26P50S                                
034703,001935: 26,2000                                          BANK                                           
034704,001936: 26,2040                                          COUNT*   $$/R52                                
034705,001937: 26,2040           77601        ADVTRACK          SETPD                                          
034706,001938: 26,2041           00001                                   0                                     
034707,001939: 26,2042           41575                          VLOAD    PUSH                                  #  INITIALIZE FOR RP-TO-R
034708,001940: 26,2043           15330                                   UNITZ                                 #  UZ VEC IN PD 0-5
034709,001941: 26,2044           41434                          RTB      PUSH                                  #  TIME IN PD 6-7
034710,001942: 26,2045           51751                                   LOADTIME                              
034711,001943: 26,2046           36347                          STCALL   AOPTIME                               #  TIME ALSO IN AOPTIME FOR CSMCONIC
034712,001944: 26,2047           55345                                   RP-TO-R                               #  GET MOON ROTATION VEC IN REF
034713,001945: 26,2050           16766                          STODL    STAR                                  
034714,001946: 26,2051           02347                                   AOPTIME                               #  PICK UP TIME
034715,001947: 26,2052           34041                          STCALL   TDEC1                                 #  UPDATE STATE TO TIME
034716,001948: 26,2053           27170                                   CSMCONIC                              
034717,001949: 26,2054           47375                          VLOAD    VXV                                   
034718,001950: 26,2055           00007                                   VATT                                  
034719,001951: 26,2056           00001                                   RATT                                  
034720,001952: 26,2057           24031                          STOVL    24D                                   #  SAVE -UNIT(V x R) FOR 2ND ROTATION
034721,001953: 26,2060           00001                                   RATT                                  
034722,001954: 26,2061           57456                          UNIT     VCOMP                                 
034723,001955: 26,2062           41401                          SETPD    PUSH                                  #  PUSH LOS=-UNIT(RVEC)  PD 0-5
034724,001956: 26,2063           00001                                   0                                     
034725,001957: 26,2064           54335                          SLOAD    SL                                    
034726,001958: 26,2065           03752                                   LANDMARK                              
034727,001959: 26,2066           20214                                   11D                                   
034728,001960: 26,2067           41342                          SR1      DMP                                   
034729,001961: 26,2070           14135                                   MPERIOD                               
034730,001962: 26,2071           36347                          STCALL   AOPTIME                               #  ROTATE ANG ABOUT UR
034731,001963: 26,2072           54105                                   ROTA                                  
034732,001964: 26,2073           53575                          VLOAD    UNIT                                  
034733,001965: 26,2074           00031                                   24D                                   #  PICK UP 2ND ROTATION AXIS
034734,001966: 26,2075           16766                          STODL    STAR                                  
034735,001967: 26,2076           14133                                   DP1/6                                 
034736,001968: 26,2077           77625                          DSU                                            
034737,001969: 26,2100           02347                                   AOPTIME                               #  2ND RAT ANGLE = 60 - A
034738,001970: 26,2101           36347                          STCALL   AOPTIME                               
034739,001971: 26,2102           54105                                   ROTA                                  #  GO ROTATE 2ND TIME
034740,001972: 26,2103           36766                          STCALL   STAR                                  #  STORE FINAL LOS IN STAR
034741,001973: 26,2104           31120                                   COM52                                 #  RETURN TO SR52.1
034742,001974: 
034743,001975: 26,2105           73545        ROTA              DLOAD    SIN                                   
034744,001976: 26,2106           02347                                   AOPTIME                               
034745,001977: 26,2107           47315                          PDVL     VXV                                   #  PUSH 1/2SIN(A)  PD 6-7
034746,001978: 26,2110           02766                                   STAR                                  #    UR VEC
034747,001979: 26,2111           00001                                   0                                     #    LOS
034748,001980:                                                                                                 # # Page 784
034749,001981: 26,2112           72561                          VXSC     VSL2                                  #  1/2SIN(A)(UR X LOS)  PD 6-11
034750,001982: 26,2113           50315                          PDVL     DOT                                   
034751,001983: 26,2114           02766                                   STAR                                  
034752,001984: 26,2115           00001                                   0                                     
034753,001985: 26,2116           72561                          VXSC     VSL2                                  
034754,001986: 26,2117           02766                                   STAR                                  
034755,001987: 26,2120           71525                          PDDL     COS                                   #  1/2(UR . LOS)UR  12-17
034756,001988: 26,2121           02347                                   AOPTIME                               
034757,001989: 26,2122           51315                          PDVL     BVSU                                  #  PUSH 1/2COS(A)  18-19
034758,001990: 26,2123           00015                                   12D                                   
034759,001991: 26,2124           00001                                   0                                     
034760,001992: 26,2125           76561                          VXSC     VSL1                                  #  UP 18-19
034761,001993: 26,2126           53255                          VAD      VAD                                   #  UP 12-17  UP 6-11
034762,001994: 26,2127           40256                          UNIT     SETPD                                 
034763,001995: 26,2130           00001                                   0                                     
034764,001996: 26,2131           43406                          PUSH     RVQ                                   
034765,001997: 
034766,001998: 26,2132           05252 25251  DP1/6             2DEC     .16666666                             
034767,001999: 
034768,002000: 26,2134           01414 06044  MPERIOD           2DEC     .047619                               #  APPROX LUNAR ROT ANG IN 2HRS x 16
034769,002001: 
034770,002002:                                                                                                 # # Page 785
034771,002003: 
034772,002004:                                                                                                 #  NAME - R56 - ALTERNATE LOS SIGHTING MARK ROUTINE
034773,002005: 
034774,002006:                                                                                                 #  FUNCTIONAL DESCRIPTION
034775,002007:                                                                                                 #  TO PERFORM SIGHTING MARKS FOR THE BACK-UP ALIGNMENT PROGRAMS (P53,P54).  THE ASTRONAUT KNOWS THE
034776,002008:                                                                                                 #  COORDINATES (OPTICS) OF THE ALTERNATE LINE OF SIGHT HE MUST USE FOR THIS ROUTINE.  WHEN THE ASTRONAUT KEYS IN
034777,002009:                                                                                                 #  ENTER IN RESPONSE TO THE FLASHING V50 N25 R1-XXXXX THE CMC STORES THE THREE ICDU ANGLES AND TWO ANGLES DISPLAYED
034778,002010:                                                                                                 #  IN N92.
034779,002011: 
034780,002012:                                                                                                 #  CALLING SEQUENCE
034781,002013:                                                                                                 #         CALL
034782,002014:                                                                                                 #                 R56
034783,002015: 
034784,002016:                                                                                                 #  SUBROUTINES CALLED
034785,002017:                                                                                                 #         A PORTION OF SXTMARK (VAC.AREA SEARCH)
034786,002018:                                                                                                 #         GOFLASH
034787,002019:                                                                                                 #         GOPERF1
034788,002020: 
034789,002021:                                                                                                 #  ERASABLE INITIALIZATION
034790,002022:                                                                                                 #         STARIND - INDEX TO STAR NUMBER
034791,002023: 
034792,002024:                                                                                                 #  OUTPUT
034793,002025:                                                                                                 #         MARKSTAT - INDEX TO VAC.AREA WHERE OUTPUT IS STORED.
034794,002026:                                                                                                 #         BESTI (INDEXED BY STARIND) CONTAINS STAR NUMBER.
034795,002027:                                                                                                 #         ICDU AND OCDU ANGLES IN VAC. AREA AS FOLLOWS-
034796,002028:                                                                                                 #                 VAC +2  CDUY
034797,002029:                                                                                                 #                 VAC +3  CDUS
034798,002030:                                                                                                 #                 VAC +4  CDUZ
034799,002031:                                                                                                 #                 VAC +5  CDUT
034800,002032:                                                                                                 #                 VAC +6  CDUX
034801,002033: 
034802,002034: 17,2000                                          SETLOC   P50S3                                 
034803,002035: 17,2000                                          BANK                                           
034804,002036: 17,2105                                          COUNT*   $$/R56                                
034805,002037: 17,2105           77420        R56               STQ      EXIT                                  
034806,002038: 17,2106           03457                                   R53EXIT                               
034807,002039: 17,2107           32162                          CAF      V06N94B                               
034808,002040: 17,2110           05535                          TC       VNFLASH                               
034809,002041: 17,2111           04636        R56A              TC       BANKCALL                              
034810,002042: 17,2112           16062                          CADR     TESTMARK                              
034811,002043: 
034812,002044: 17,2113           34772                          CAF      ZERO                                  
034813,002045: 17,2114           04636                          TC       BANKCALL                              
034814,002046: 17,2115           20715                          CADR     CLEANDSP                              
034815,002047: 
034816,002048: 17,2116           32161        R56A1             CAF      VB53                                  #  DISPLAY V53 REQUESTING ALTERNATE MARK
034817,002049: 17,2117           04636                          TC       BANKCALL                              
034818,002050: 17,2120           20601                          CADR     GOMARK2                               
034819,002051: 17,2121           14103                          TCF      GOTOPOOH                              #  V34-TERMINATE
034820,002052: 17,2122           12116                          TCF      R56A1                                 #  V33-DONT PROCEED-JUST ENTER TO MARK
034821,002053: 17,2123           06006                          TC       INTPRET                               
034822,002054: 17,2124           77745                          DLOAD                                          
034823,002055:                                                                                                 # # Page 786
034824,002056: 17,2125           03726                                   MRKBUF1    +3                         
034825,002057: 17,2126           16774                          STODL    SAC                                   
034826,002058: 17,2127           03730                                   MRKBUF1    +5                         
034827,002059: 17,2130           02776                          STORE    PAC                                   
034828,002060: 17,2131           77776                          EXIT                                           
034829,002061: 17,2132           00004                          INHINT                                         
034830,002062: 17,2133           04606                          TC       E7SETTER                              
034831,002063: 
034832,002064: 17,2134  E7,1722                                 EBANK=   MRKBUF1                               
034833,002065: 17,2134           00006                          EXTEND                                         
034834,002066: 17,2135           30025                          DCA      TIME2                                 
034835,002067: 17,2136           53723                          DXCH     MRKBUF1                               
034836,002068: 17,2137           30033                          CA       CDUY                                  #  ENTER-THIS IS A BACKUP SYSTEM MARK
034837,002069: 17,2140           55724                          TS       MRKBUF1    +2                         
034838,002070: 17,2141           30034                          CA       CDUZ                                  
034839,002071: 17,2142           55726                          TS       MRKBUF1    +4                         
034840,002072: 17,2143           30032                          CA       CDUX                                  
034841,002073: 17,2144           55730                          TS       MRKBUF1    +6                         
034842,002074: 17,2145           00003                          RELINT                                         
034843,002075: 17,2146           35043                          CAF      EBANK5                                #  MAY NOT NEED TO DO THIS
034844,002076: 17,2147           54003                          TS       EBANK                                 
034845,002077: 
034846,002078: 17,2150  0002777                                 EBANK=   QMIN                                  
034847,002079: 
034848,002080: 17,2150           05527                          TC       CLEARMRK                              #  ENABLE EXTENDED VERBS
034849,002081: 17,2151           34321                          CAF      OCT16                                 
034850,002082: 17,2152           04636                          TC       BANKCALL                              
034851,002083: 17,2153           21067                          CADR     GOPERF1                               
034852,002084: 17,2154           04103                          TC       GOTOPOOH                              #  TERM.
034853,002085: 17,2155           12157                          TCF      R56B                                  #  PROCEED-MARK COMPLETED
034854,002086: 17,2156           12111                          TCF      R56A                                  #  RECYCLE - DO ANOTHER MARK - LIKE REJECT
034855,002087: 17,2157           04636        R56B              TC       BANKCALL                              
034856,002088: 17,2160           31614                          CADR     R53C1                                 
034857,002089: 17,2161           15200        VB53              VN       05300                                 #  ALTERNATE MARK VERB
034858,002090: 17,2162           01536        V06N94B           VN       00694                                 
034859,002091: 14,2000                                          SETLOC   P50S1                                 
034860,002092: 14,2000                                          BANK                                           
034861,002093: 
034862,002094: 14,3651                                          COUNT*   $$/PLNET                              
034863,002095: 14,3651           02607        PLANET            STORE    TSIGHT                                
034864,002096: 14,3652           45020                          STQ      CALL                                  
034865,002097: 14,3653           02777                                   QMIN                                  
034866,002098: 14,3654           26345                                   LOCSAM                                
034867,002099: 14,3655           77775                          VLOAD                                          
034868,002100: 14,3656           02736                                   VEARTH                                
034869,002101: 14,3657           24001                          STOVL    0D                                    
034870,002102: 14,3660           02744                                   VSUN                                  
034871,002103: 14,3661           26736                          STOVL    VEARTH                                
034872,002104: 14,3662           00001                                   0D                                    
034873,002105: 14,3663           02744                          STORE    VSUN                                  
034874,002106:                                                                                                 # # Page 787
034875,002107: 14,3664           77776        NOSAM             EXIT                                           
034876,002108: 14,3665           03732                          TC       STORIJ                                #  SET BESTI(BESTJ) = 1ST(2ND) STARCODE
034877,002109: 14,3666           10000                          CCS      A                                     
034878,002110: 14,3667           13700                          TCF      NOTPLAN                               
034879,002111: 14,3670           35035                          CAF      VNPLANV                               
034880,002112: 14,3671           05535                          TC       VNFLASH                               
034881,002113: 14,3672           06006                          TC       INTPRET                               
034882,002114: 14,3673           74375                          VLOAD    VXSC                                  
034883,002115: 14,3674           03705                                   STARSAV3                              
034884,002116: 14,3675           31731                                   1/SQR3                                
034885,002117: 14,3676           52056                          UNIT     GOTO                                  
034886,002118: 14,3677           31723                                   CORPLAN                               
034887,002119: 14,3700           40000        NOTPLAN           CS       A                                     
034888,002120: 14,3701           63727                          AD       DEC227                                
034889,002121: 14,3702           00006                          EXTEND                                         
034890,002122: 14,3703           63714                          BZMF     CALSAM1                               
034891,002123: 14,3704           50304                          INDEX    STARIND                               
034892,002124: 14,3705           30302                          CA       BESTI                                 
034893,002125: 14,3706           50120                          INDEX    FIXLOC                                
034894,002126: 14,3707           54046                          TS       X1                                    
034895,002127: 14,3710           06006                          TC       INTPRET                               
034896,002128: 14,3711           52173                          VLOAD*   GOTO                                  
034897,002129: 14,3712           33776                                   CATLOG,1                              
034898,002130: 14,3713           31723                                   CORPLAN                               
034899,002131: 14,3714           06006        CALSAM1           TC       INTPRET                               
034900,002132: 14,3715           70740                          LXC,1    DLOAD*                                
034901,002133: 14,3716           00304                                   STARIND                               
034902,002134: 14,3717           00303                                   BESTI,1                               
034903,002135: 14,3720           76740                          LXC,1    VLOAD*                                
034904,002136: 14,3721           00154                                   MPAC                                  
034905,002137: 14,3722           02372                                   STARAD     -228D,1                    
034906,002138: 14,3723           53455        CORPLAN           VAD      UNIT                                  
034907,002139: 14,3724           03452                                   VEL/C                                 
034908,002140: 14,3725           77650                          GOTO                                           
034909,002141: 14,3726           02777                                   QMIN                                  
034910,002142: 14,3727           00343        DEC227            DEC      227        B-14                       
034911,002143: 14,3730     5035               VNPLANV           =        V06N88                                
034912,002144: 14,3730           22363 11623  1/SQR3            2DEC     .57735021                             
034913,002145: 
034914,002146: 14,3732           47677        STORIJ            CS       HIGH9                                 #  CALLED AT R53Z, NOSAM(PLANET)
034915,002147: 14,3733           71140                          MASK     STARCODE                              
034916,002148: 14,3734           00006                          EXTEND                                         
034917,002149: 14,3735           76211                          MP       SIGHTSIX                              
034918,002150: 14,3736           56001                          XCH      L                                     
034919,002151: 14,3737           50304                          INDEX    STARIND                               
034920,002152: 14,3740           54302                          TS       BESTI                                 
034921,002153: 14,3741           00002                          TC       Q                                     #  RETURN TO CALLER
034922,002154: 14,3742                                          COUNT*   $$/R50                                
034923,002155: 14,3742           30002        COARSUB           CA       Q                                     
034924,002156: 14,3743           55777                          TS       QMIN                                  
034925,002157:                                                                                                 # # Page 788
034926,002158: 14,3744           31335        STALLOOP          CA       MODECADR                              #  IS IMU IN USE?
034927,002159: 14,3745           00006                          EXTEND                                         
034928,002160: 14,3746           13753                          BZF      CORSCALL                              #  NO, GO AHEAD WITH COARSE ALIGN
034929,002161: 14,3747           35016                          CAF      1SEC                                  #  YES, SO WAIT A SEC
034930,002162: 14,3750           04636                          TC       BANKCALL                              
034931,002163: 14,3751           01731                          CADR     DELAYJOB                              
034932,002164: 14,3752           03744                          TC       STALLOOP                              #                         AND TRY AGAIN
034933,002165: 14,3753           04636        CORSCALL          TC       BANKCALL                              
034934,002166: 14,3754           16724                          CADR     IMUCOARS                              #  PERFORM COARSE ALIGN
034935,002167: 14,3755           04636                          TC       BANKCALL                              
034936,002168: 14,3756           17644                          CADR     IMUSTALL                              
034937,002169: 14,3757           03766                          TC       217ALARM                              #  BAD END
034938,002170: 14,3760           04636                          TC       BANKCALL                              
034939,002171: 14,3761           17133                          CADR     IMUFIN20                              #  PERFORM FINE ALIGN
034940,002172: 14,3762           04636                          TC       BANKCALL                              
034941,002173: 14,3763           17644                          CADR     IMUSTALL                              
034942,002174: 14,3764           03766                          TC       217ALARM                              #  BAD END
034943,002175: 14,3765           01777                          TC       QMIN                                  
034944,002176: 14,3766           00004        217ALARM          INHINT                                         #  JUST LIKE 'CURTAINS', NOW DEPARTED
034945,002177: 14,3767           30002                          CA       Q                                     
034946,002178: 14,3770           05673                          TC       ALARM2                                
034947,002179: 14,3771           00217                          OCT      00217                                 
034948,002180: 14,3772           01363                          TC       ALMCADR                               #  RETURN TO USER

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