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.

024254,000002:                                                                                                 #  Copyright:     Public domain.
024255,000003:                                                                                                 #  Filename:      P20-P25.agc
024256,000004:                                                                                                 #  Purpose:       Part of the source code for Artemis (i.e., Colossus 3),
024257,000005:                                                                                                 #                 build 072.  This is for the Command Module's (CM)
024258,000006:                                                                                                 #                 Apollo Guidance Computer (AGC), we believe for
024259,000007:                                                                                                 #                 Apollo 15-17.
024260,000008:                                                                                                 #  Assembler:     yaYUL
024261,000009:                                                                                                 #  Contact:       Jim Lawton <jim DOT lawton AT gmail DOT com>
024262,000010:                                                                                                 #  Website:       www.ibiblio.org/apollo/index.html
024263,000011:                                                                                                 #  Page scans:    www.ibiblio.org/apollo/ScansForConversion/Artemis072/
024264,000012:                                                                                                 #  Mod history:   2010-01-26 JL   Started Artemis072 conversion based on Comanche055 module.
024265,000013:                                                                                                 #                 2010-01-31 JL   Finished Artemis072 conversion. Fixed build errors.
024266,000014:                                                                                                 #                 2010-02-01 JL   Fixed build errors.
024267,000015:                                                                                                 #                 2010-02-02 JL   Fixed page numbers. Removed duplicated code section on page 611.
024268,000016:                                                                                                 #                 2010-02-06 JL   Added missing "DEC 18" instruction. Added missing code on page 618. Added missing line 
024269,000017:                                                                                                 #                                 on page 601. Fixed line 5 on p580, which is overprinted in the scan. Fixed an EQUALS on
024270,000018:                                                                                                 #                                 p589. Removed spurious PUSH on p598.
024271,000019:                                                                                                 #                 2010-02-13 JL   Fixed errors on pages 563, 589, 604, 619, 629.
024272,000020:                                                                                                 #                 2010-02-20 RSB  Un-##'d this header.
024273,000021: 
024274,000022:                                                                                                 # # Page 552
024275,000023: 
024276,000024:                                                                                                 #  RENDEZVOUS NAVIGATION PROGRAM 20
024277,000025:                                                                                                 #  PROGRAM DESCRIPTION
024278,000026:                                                                                                 #  MOD NO -1
024279,000027:                                                                                                 #  MOD BY - N. BRODEUR
024280,000028: 
024281,000029:                                                                                                 #  FUNCTIONAL DESCRIPTION
024282,000030: 
024283,000031:                                                                                                 #  TO INITIALIZE THE RENDEZVOUS NAVIGATION SUBROUTINES R22, R61CSM, AND
024284,000032:                                                                                                 #  R52, WHICH IN TURN CONTROL THE CSM ATTITUDE AND OPTICS POSITIONING.
024285,000033:                                                                                                 #  PROCESS BOTH OPTICS AND VHF TRACKING DATA, AND UPDATE EITHER THE LM
024286,000034:                                                                                                 #  OR THE CSM STATE VECTOR.
024287,000035: 
024288,000036:                                                                                                 #  CALLING SEQUENCE
024289,000037:                                                                                                 #    V37E20E
024290,000038: 
024291,000039:                                                                                                 #  SUBROUTINES CALLED
024292,000040:                                                                                                 #    R22 (RENDEZVOUS TRACK DATA PROCESSING)
024293,000041:                                                                                                 #    R52 (AUTO OPTICS POSITIONING)
024294,000042:                                                                                                 #    R61CSM (PREFERRED TRACKING ATTITUDE)
024295,000043:                                                                                                 #    R02BOTH             BANKCALL            UPFLAG
024296,000044:                                                                                                 #    DOWNFLAG            2PHSCHNG            LOADTIME
024297,000045:                                                                                                 #    PRIOCHNG            UPSTATE             INTPRET
024298,000046:                                                                                                 #    ENDOFJOB            MKRLEES             FINDVAC
024299,000047: 
024300,000048:                                                                                                 #  NORMAL EXIT MODES
024301,000049:                                                                                                 #    RENDEZVOUS BAVIGATION MAY BE TERMINATED BY THE SELECTION OF
024302,000050:                                                                                                 #    P00, P06, P22, P23, V34E FROM R60, AND V56E
024303,000051: 
024304,000052:                                                                                                 #  ALARM OR ABORT EXIT MODES
024305,000053:                                                                                                 #    NONE DIRECTLY FROM P20
024306,000054: 
024307,000055:                                                                                                 #  OUTPUT
024308,000056:                                                                                                 #    NONE DIRECTLY FROM P20
024309,000057: 
024310,000058:                                                                                                 #  FLAGS SET + RESET
024311,000059:                                                                                                 #    RNDVZFLG, VEHUPFLG, UPDATFLG, TRACKFLG, TARG1FLG
024312,000060:                                                                                                 #    PRFTRKAT, V50N18FL
024313,000061: 
024314,000062: 36,2000                                          SETLOC   P20S7                                 
024315,000063: 36,2000                                          BANK                                           
024316,000064: 
024317,000065: 36,2016  E6,1774                                 EBANK=   R61CNTR                               
024318,000066: 36,2016                                          COUNT*   $$/P20                                
024319,000067: 
024320,000068: 36,2016           04636        PROG20            TC       BANKCALL                              
024321,000069: 36,2017           03731                          CADR     R02BOTH                               #  IMU STATUS CHECK
024322,000070:                                                                                                 #  BLOCKING OF UPLINK IS DONE BY UPLINK PRG
024323,000071: 36,2020           31655                          CA       ADB                                   
024324,000072: 36,2021           55773                          TS       DBPTC                                 
024325,000073:                                                                                                 # # Page 553
024326,000074: 36,2022           06006                          TC       INTPRET                               
024327,000075: 36,2023           43014                          CLEAR    SET                                   
024328,000076: 36,2024           00667                                   VEHUPFLG                              #  UPDATE LM
024329,000077: 36,2025           01460                                   V50N18FL                              
024330,000078: 36,2026           66214                          SET      SSP                                   
024331,000079: 36,2027           00472                                   TRACKFLG                              
024332,000080: 36,2030           00777                                   OPTION2                               
024333,000081: 36,2031           00000                                   0                                     
024334,000082: 36,2032           77414                          BON      EXIT                                  
024335,000083: 36,2033           05310                                   AUTOSEQ                               
024336,000084: 36,2034           74050                                   PRELOD78                              #  MINKEY  (PRELOAD N78)
024337,000085: 36,2035           34124                          CAF      OCT24                                 
024338,000086: 36,2036           04636                          TC       BANKCALL                              
024339,000087: 36,2037           21074                          CADR     GOPERF4                               
024340,000088: 36,2040           04103                          TC       GOTOPOOH                              
024341,000089: 36,2041           12043                          TCF      +2                                    
024342,000090: 36,2042           12035                          TCF      -5                                    
024343,000091: 
024344,000092: 36,2043           30776                          CA       OPTION2                               
024345,000093: 36,2044           76214                          MASK     THREE                                 
024346,000094: 36,2045           10000                          CCS      A                                     
024347,000095: 36,2046           02061                          TC       DOV6N78                               #  OPTIONS 1,2,5  (DO NOT PRELOAD N78)
024348,000096: 36,2047           06006                          TC       INTPRET                               #  OPTIONS 0,4           (PRELOAD N78)
024349,000097: 36,2050           77745        PRELOD78          DLOAD                                          
024350,000098: 36,2051           34467                                   35DEGANG                              
024351,000099: 36,2052           17740                          STODL    UTPIT                                 
024352,000100: 36,2053           15336                                   ZEROVECS                              
024353,000101: 36,2054           03742                          STORE    UTYAW                                 
024354,000102: 36,2055           01353                          STORE    AZIMANGL                              
024355,000103: 36,2056           77414                          BON      EXIT                                  
024356,000104: 36,2057           05310                                   AUTOSEQ                               
024357,000105: 36,2060           74104                                   P20OPT                                #  MINKEY, BYPASS V04N06 AND V06N78
024358,000106: 36,2061           32470        DOV6N78           CAF      V06N78UT                              
024359,000107: 36,2062           05535                          TC       VNFLASH                               
024360,000108: 36,2063           32472                          CAF      V06N79UT                              
024361,000109: 36,2064           05540                          TC       VNFLASHR                              
024362,000110: 
024363,000111: 36,2065           12075                          TCF      ENDV6N79                              
024364,000112: 
024365,000113: 36,2066           30776                          CA       OPTION2                               
024366,000114: 36,2067           74767                          MASK     BIT2                                  
024367,000115: 36,2070           10000                          CCS      A                                     
024368,000116: 36,2071           05205                          TC       ENDOFJOB                              #  OPTION 2, BLANK ONLY R31
024369,000117: 36,2072           34773                          CAF      FIVE                                  #  BLANK BOTH R1,R3
024370,000118: 36,2073           05516                          TC       BLANKET                               
024371,000119: 36,2074           05205                          TC       ENDOFJOB                              
024372,000120: 36,2075           30776        ENDV6N79          CA       OPTION2                               
024373,000121: 36,2076           74766                          MASK     BIT3                                  
024374,000122: 36,2077           00006                          EXTEND                                         
024375,000123: 36,2100           12105                          BZF      NOAZIM                                
024376,000124:                                                                                                 # # Page 554
024377,000125: 36,2101           05547                          TC       UPFLAG                                
024378,000126: 36,2102           00254                          ADRES    AZIMFLAG                              
024379,000127: 
024380,000128: 36,2103           12107                          TCF      COMAZM                                
024381,000129: 
024382,000130: 36,2104           77776        P20OPT            EXIT                                           
024383,000131: 36,2105           05561        NOAZIM            TC       DOWNFLAG                              
024384,000132: 36,2106           00254                          ADRES    AZIMFLAG                              
024385,000133: 
024386,000134: 36,2107           30776        COMAZM            CA       OPTION2                               
024387,000135: 36,2110           76214                          MASK     THREE                                 
024388,000136: 36,2111           10000                          CCS      A                                     
024389,000137: 36,2112           12220                          TCF      UTKINPUT                              
024390,000138: 36,2113           05561                          TC       DOWNFLAG                              
024391,000139: 36,2114           00176                          ADRES    UTFLAG                                
024392,000140: 
024393,000141: 36,2115           05547                          TC       UPFLAG                                
024394,000142: 36,2116           00027                          ADRES    UPDATFLG                              
024395,000143: 
024396,000144: 36,2117           05362        NOUTINPT          TC       2PHSCHNG                              
024397,000145: 36,2120           00004                          OCT      00004                                 
024398,000146: 36,2121           05022                          OCT      05022                                 
024399,000147: 36,2122           26000                          OCT      26000                                 
024400,000148: 36,2123           34760                          CAF      UTBIT                                 
024401,000149: 36,2124           70104                          MASK     FLAGWRD8                              
024402,000150: 36,2125           10000                          CCS      A                                     
024403,000151: 36,2126           12150                          TCF      INTSETUP                              
024404,000152: 
024405,000153: 36,2127           06006                          TC       INTPRET                               
024406,000154: 36,2130           77634                          RTB                                            
024407,000155: 36,2131           51751                                   LOADTIME                              
024408,000156: 36,2132           35062                          STCALL   MARKTIME                              
024409,000157: 36,2133           60435                                   UPSTATE                               
024410,000158: 36,2134           77776                          EXIT                                           
024411,000159: 
024412,000160: 36,2135           05547                          TC       UPFLAG                                
024413,000161: 36,2136           00010                          ADRES    RNDVZFLG                              
024414,000162: 
024415,000163: 36,2137           37650                          CAF      PRIO26                                
024416,000164: 36,2140           05135                          TC       FINDVAC                               
024417,000165: 36,2141  E7,1722                                 EBANK=   MRKBUF1                               
024418,000166: 36,2141           02625 70067                    2CADR    R22                                   
024419,000167: 36,2143           05362                          TC       2PHSCHNG                              
024420,000168: 36,2144           00072                          OCT      00072                                 
024421,000169: 36,2145           00111                          OCT      00111                                 
024422,000170: 36,2146  01,2025               1P11SPT3          =        1.11SPOT                              
024423,000171: 36,2146  01,2041               2P7SPT1           =        2.7SPOT                               
024424,000172: 36,2146           04112                          TC       AUTOCHK                               
024425,000173:                                                                                                 # # Page 555
024426,000174: 36,2147           12157                          TCF      PIKUP20                               
024427,000175: 
024428,000176: 36,2150           35047        INTSETUP          CAF      PRIO5                                 
024429,000177: 36,2151           05135                          TC       FINDVAC                               
024430,000178: 36,2152  E3,1554                                 EBANK=   RRECTCSM                              
024431,000179: 36,2152           02711 26063                    2CADR    STATINT1                              
024432,000180: 
024433,000181: 36,2154           05362                          TC       2PHSCHNG                              
024434,000182: 36,2155           00052                          OCT      0052                                  
024435,000183: 36,2156           00111                          OCT      00111                                 
024436,000184: 
024437,000185: 36,2157  01,2025               1P11SPT4          =        1.11SPOT                              
024438,000186: 36,2157  01,2036               2P5SPT3           =        2.5SPOT                               
024439,000187: 36,2157           35053        PIKUP20           CAF      PRIO14                                #  ALLOW HIGHER PRIO THAN LAMBERT
024440,000188: 36,2160           05176                          TC       PRIOCHNG                              
024441,000189: 36,2161           34764                          CAF      TRACKBIT                              
024442,000190: 36,2162           70075                          MASK     FLAGWRD1                              #  IS TRACK FLAG SET
024443,000191: 36,2163           00006                          EXTEND                                         
024444,000192: 36,2164           12416                          BZF      FIXDB                                 
024445,000193: 36,2165           34754                          CAF      REFSMBIT                              
024446,000194: 36,2166           70077                          MASK     FLAGWRD3                              #  IS REFSMFLAG SET
024447,000195: 36,2167           00006                          EXTEND                                         
024448,000196: 36,2170           12416                          BZF      FIXDB                                 
024449,000197: 
024450,000198: 36,2171           34772                          CAF      ZERO                                  
024451,000199: 36,2172           55774                          TS       R61CNTR                               #  INITIALIZE R61 COUNTER
024452,000200: 36,2173           30104                          CA       FLAGWRD8                              
024453,000201: 36,2174           74760                          MASK     UTBIT                                 
024454,000202: 36,2175           10000                          CCS      A                                     
024455,000203: 36,2176           02263                          TC       CALLR6X                               
024456,000204: 
024457,000205: 36,2177           05547                          TC       UPFLAG                                
024458,000206: 36,2200           00037                          ADRES    R21MARK                               
024459,000207: 36,2201           04636                          TC       BANKCALL                              
024460,000208: 36,2202           76333                          CADR     R61CSM                                
024461,000209: 36,2203           40106                          CS       FLGWRD10                              #  CHECK IF PC MANEUVER TO TRACK
024462,000210: 36,2204           74752                          MASK     PCMANBIT                              #       ATTITUDE
024463,000211: 36,2205           00006                          EXTEND                                         
024464,000212: 36,2206           14116                          BZF      AUTOCHK1                              
024465,000213: 36,2207           05547        P20TRACK          TC       UPFLAG                                #  SET TARG FLAG TO LEM FOR R52
024466,000214: 36,2210           00024                          ADRES    TARG1FLG                              #  BIT 10  FLAG 1
024467,000215: 36,2211           06006        P20R52JB          TC       INTPRET                               
024468,000216: 36,2212           77624                          CALL                                           
024469,000217: 36,2213           31005                                   R52                                   #  SET UP AUTO OPTICS JOB
024470,000218: 36,2214           77776                          EXIT                                           
024471,000219: 36,2215           04636                          TC       BANKCALL                              
024472,000220: 36,2216           16073                          CADR     MKRLEES                               
024473,000221: 36,2217           12416                          TCF      FIXDB                                 
024474,000222: 
024475,000223: 36,2220           55351        UTKINPUT          TS       OPTNTYPE                              
024476,000224:                                                                                                 # # Page 556
024477,000225: 36,2221           05547                          TC       UPFLAG                                
024478,000226: 36,2222           00176                          ADRES    UTFLAG                                
024479,000227: 
024480,000228: 36,2223           05561                          TC       DOWNFLAG                              
024481,000229: 36,2224           00010                          ADRES    RNDVZFLG                              
024482,000230: 
024483,000231: 36,2225           11351                          CCS      OPTNTYPE                              
024484,000232: 36,2226           02255                          TC       TYPE2IN                               
024485,000233: 
024486,000234: 36,2227           32471        V1N70DSP          CAF      V01N70UT                              
024487,000235: 36,2230           05535                          TC       VNFLASH                               
024488,000236: 36,2231           11140                          CCS      STARCODE                              
024489,000237: 36,2232           62475                          AD       NEG47UT                               
024490,000238: 36,2233           10000                          CCS      A                                     
024491,000239: 36,2234           12253                          TCF      NOGOOD                                
024492,000240: 
024493,000241: 36,2235           12237                          TCF      +2                                    
024494,000242: 36,2236           12237                          TCF      +1                                    
024495,000243: 36,2237           31140                          CA       STARCODE                              
024496,000244: 36,2240           55355                          TS       UTSTARNO                              
024497,000245: 
024498,000246: 36,2241           10000                          CCS      A                                     
024499,000247: 36,2242           12117                          TCF      NOUTINPT                              
024500,000248: 
024501,000249: 36,2243           35035                          CAF      V06N88UT                              
024502,000250: 36,2244           05535                          TC       VNFLASH                               
024503,000251: 36,2245           06006                          TC       INTPRET                               
024504,000252: 36,2246           77775                          VLOAD                                          
024505,000253: 36,2247           03705                                   STARSAV3                              
024506,000254: 36,2250           03732                          STORE    PLANVCUT                              
024507,000255: 36,2251           77776                          EXIT                                           
024508,000256: 36,2252           02117                          TC       NOUTINPT                              
024509,000257: 
024510,000258: 36,2253           04362        NOGOOD            TC       FALTON                                
024511,000259: 36,2254           02227                          TC       V1N70DSP                              
024512,000260: 
024513,000261: 36,2255           35027        TYPE2IN           CAF      V06N34UT                              
024514,000262: 36,2256           05535                          TC       VNFLASH                               
024515,000263: 36,2257           00006                          EXTEND                                         
024516,000264: 36,2260           31251                          DCA      DSPTEM1                               
024517,000265: 36,2261           53356                          DXCH     R67TIME                               
024518,000266: 36,2262           12117                          TCF      NOUTINPT                              
024519,000267: 
024520,000268: 36,2263           05561        CALLR6X           TC       DOWNFLAG                              
024521,000269: 36,2264           00037                          ADRES    R21MARK                               
024522,000270: 
024523,000271: 36,2265           11351                          CCS      OPTNTYPE                              
024524,000272: 36,2266           12271                          TCF      TYPE2                                 
024525,000273: 
024526,000274: 36,2267           04655                          TC       POSTJUMP                              
024527,000275:                                                                                                 # # Page 557
024528,000276: 36,2270           74454                          CADR     R66CSM                                
024529,000277: 
024530,000278: 36,2271           00006        TYPE2             EXTEND                                         
024531,000279: 36,2272           40025                          DCS      TIME2                                 
024532,000280: 36,2273           52155                          DXCH     MPAC                                  
024533,000281: 36,2274           00006                          EXTEND                                         
024534,000282: 36,2275           31356                          DCA      R67TIME                               
024535,000283: 36,2276           20155                          DAS      MPAC                                  
024536,000284: 36,2277           07224                          TC       DPAGREE                               
024537,000285: 36,2300           10154                          CCS      MPAC                                  
024538,000286: 36,2301           12314                          TCF      DODELAY                               
024539,000287: 
024540,000288: 36,2302           12305                          TCF      +3                                    
024541,000289: 36,2303           34772                          CAF      ZERO                                  
024542,000290: 36,2304           54155                          TS       MPAC       +1                         
024543,000291: 36,2305           10155                          CCS      MPAC       +1                         
024544,000292: 36,2306           12307                          TCF      +1                                    
024545,000293: 36,2307           64770                          AD       ONE                                   
024546,000294: 36,2310           05233                          TC       WAITLIST                              
024547,000295: 36,2311  E6,1774                                 EBANK=   R61CNTR                               
024548,000296: 36,2311           02320 74066                    2CADR    R67                                   
024549,000297: 
024550,000298: 36,2313           05205                          TC       ENDOFJOB                              
024551,000299: 
024552,000300: 36,2314           34750        DODELAY           CAF      POSMAX                                
024553,000301: 36,2315           04636                          TC       BANKCALL                              
024554,000302: 36,2316           01731                          CADR     DELAYJOB                              
024555,000303: 36,2317           12271                          TCF      TYPE2                                 
024556,000304: 
024557,000305: 36,2320           37650        R67               CAF      PRIO26                                
024558,000306: 36,2321           05135                          TC       FINDVAC                               
024559,000307: 36,2322  E6,1774                                 EBANK=   R61CNTR                               
024560,000308: 36,2322           02327 74066                    2CADR    R67START                              
024561,000309: 
024562,000310: 36,2324           05547                          TC       UPFLAG                                
024563,000311: 36,2325           00205                          ADRES    R67FLAG                               
024564,000312: 
024565,000313: 36,2326           05314                          TC       TASKOVER                              
024566,000314: 
024567,000315: 36,2327           06006        R67START          TC       INTPRET                               
024568,000316: 36,2330           47014                          BON      RTB                                   
024569,000317: 36,2331           00701                                   STIKFLAG                              
024570,000318: 36,2332           44717                                   NOGOM3                                
024571,000319: 36,2333           44370                                   READCDUK                              
024572,000320: 36,2334           37262                          STCALL   BCDU                                  
024573,000321: 36,2335           74437                                   UTPRFAX                               
024574,000322: 36,2336           03343                          STORE    COF                                   
024575,000323: 36,2337           77776                          EXIT                                           
024576,000324: 
024577,000325: 36,2340           00004                          INHINT                                         
024578,000326:                                                                                                 # # Page 558
024579,000327: 36,2341           35007                          CAF      MINDB                                 
024580,000328: 36,2342           55655                          TS       ADB                                   
024581,000329: 36,2343           11773                          CCS      DBPTC                                 
024582,000330: 36,2344           64770                          AD       ONE                                   
024583,000331: 36,2345           02347                          TC       +2                                    
024584,000332: 36,2346           64770                          AD       ONE                                   
024585,000333: 36,2347           00006                          EXTEND                                         
024586,000334: 36,2350           12352                          BZF      +2                                    
024587,000335: 36,2351           55655                          TS       ADB                                   
024588,000336: 
024589,000337: 36,2352           06006                          TC       INTPRET                               
024590,000338: 36,2353           41335                          SLOAD    DMP                                   
024591,000339: 36,2354           03373                                   RATEPTC                               
024592,000340: 36,2355           34474                                   TUFITS                                #  SCALING FACTOR(.4 DEC)
024593,000341: 36,2356           45002                          SR4      CALL                                  #  COMPUTE THE INCREMENTAL ROTATION MATRIX
024594,000342: 36,2357           44522                                   DELCOMP                               #  DEL CORRESPONDING TO A  1 SEC ROTATION
024595,000343: 36,2360           41335                          SLOAD    DMP                                   #  ABOUT COF
024596,000344: 36,2361           03373                                   RATEPTC                               
024597,000345: 36,2362           34474                                   TUFITS                                
024598,000346: 36,2363           64361                          VXSC     MXV                                   
024599,000347: 36,2364           03343                                   COF                                   
024600,000348: 36,2365           05014                                   QUADROT                               
024601,000349: 36,2366           27311                          STOVL    BRATE                                 
024602,000350: 36,2367           15336                                   ZEROVECS                              
024603,000351: 36,2370           03275                          STORE    BIASTEMP                              
024604,000352: 36,2371           77776                          EXIT                                           
024605,000353: 
024606,000354: 36,2372           05402                          TC       PHASCHNG                              
024607,000355: 36,2373           00131                          OCT      00131                                 
024608,000356: 
024609,000357: 36,2374  01,2030               1P13SPT1          =        1.13SPOT                              
024610,000358: 36,2374           30075        R67RSTRT          CA       FLAGWRD1                              
024611,000359: 36,2375           74764                          MASK     TRACKBIT                              
024612,000360: 36,2376           00006                          EXTEND                                         
024613,000361: 36,2377           12416                          BZF      FIXDB                                 
024614,000362: 36,2400           34755                          CAF      BIT12                                 
024615,000363: 36,2401           55774                          TS       R61CNTR                               
024616,000364: 
024617,000365: 36,2402           37650                          CAF      PRIO26                                
024618,000366: 36,2403           05176                          TC       PRIOCHNG                              
024619,000367: 
024620,000368: 36,2404           06006                          TC       INTPRET                               
024621,000369: 36,2405           72364                          AXC,2    TLOAD                                 
024622,000370: 36,2406           03320                                   MIS                                   
024623,000371: 36,2407           03262                                   BCDU                                  
024624,000372: 36,2410           45014                          SET      CALL                                  
024625,000373: 36,2411           04075                                   R67FLAG                               
024626,000374: 36,2412           44377                                   CDUTODCM                              
024627,000375: 36,2413           77614                          SETGO                                          
024628,000376: 36,2414           01035                                   CALCMAN2                              #  SET CALCMAN2 TO START MANEUVER
024629,000377:                                                                                                 # # Page 559
024630,000378: 36,2415           45053                                   NEWANGL    +1                         
024631,000379: 
024632,000380: 36,2416           30105        FIXDB             CA       FLAGWRD9                              #  RESTORE DAP DEADBAND
024633,000381: 36,2417           00004                          INHINT                                         
024634,000382: 36,2420           74755                          MASK     MAXDBBIT                              
024635,000383: 36,2421           10000                          CCS      A                                     
024636,000384: 36,2422           12426                          TCF      +4                                    
024637,000385: 
024638,000386: 36,2423           04636                          TC       BANKCALL                              
024639,000387: 36,2424           51203                          CADR     SETMINDB                              
024640,000388: 36,2425           12430                          TCF      +3                                    
024641,000389: 
024642,000390: 36,2426           04636                          TC       BANKCALL                              
024643,000391: 36,2427           51217                          CADR     SETMAXDB                              
024644,000392: 
024645,000393: 36,2430           05561                          TC       DOWNFLAG                              
024646,000394: 36,2431           00205                          ADRES    R67FLAG                               
024647,000395: 36,2432           05402                          TC       PHASCHNG                              
024648,000396: 36,2433           00111                          OCT      00111                                 
024649,000397: 36,2434  01,2025               1P11SPT5          =        1.11SPOT                              
024650,000398: 36,2434           00004        STOPVEH           INHINT                                         
024651,000399: 36,2435           04463                          TC       STOPRATE                              
024652,000400: 36,2436           15205                          TCF      ENDOFJOB                              
024653,000401: 
024654,000402: 36,2437           73545        UTPRFAX           DLOAD    SIN                                   #  COMPUTE PREFERRED UNIT VECTOR
024655,000403: 36,2440           03740                                   UTPIT                                 #                       MPAC   =COS(P)COS(Y)
024656,000404: 36,2441           65276                          DCOMP    PDDL                                  #  PDX=-SIN(P)          MPAC +2=COS(P)SIN(Y)
024657,000405: 36,2442           03740                                   UTPIT                                 #                       MPAC +4=-SIN(P)
024658,000406: 36,2443           41546                          COS      PUSH                                  #  PDX+2=COS(P) USED WITH SECOND DMP BELOW
024659,000407: 36,2444           73525                          PDDL     SIN                                   #  PDX+4=COS(P) USED WITH FIRST  DMP BELOW
024660,000408: 36,2445           03742                                   UTYAW                                 
024661,000409: 36,2446           72405                          DMP      SL1                                   #  MPAC=COS(P)SIN(Y)
024662,000410: 36,2447           77725                          PDDL                                           #  REPLACE PDX+2 WITH COS(P)SIN(Y)
024663,000411: 36,2450           71525                          PDDL     COS                                   #  REPLACE PDX+4 WITH COS(P) IN ORDER TO
024664,000412: 36,2451           03742                                   UTYAW                                 #   POSITION PD COUNTER FOR DMP
024665,000413: 36,2452           72405                          DMP      SL1                                   
024666,000414: 36,2453           43466                          VDEF     RVQ                                   #  PUSHUP FOR Y,Z COMPONENTS
024667,000415: 
024668,000416: 36,2454           40075        R66CSM            CS       FLAGWRD1                              #  R66 CONTROL
024669,000417: 36,2455           74764                          MASK     TRACKBIT                              
024670,000418: 36,2456           10000                          CCS      A                                     
024671,000419: 36,2457           12416                          TCF      FIXDB                                 
024672,000420: 
024673,000421: 36,2460           04636                          TC       BANKCALL                              #  TRACKFLG SET, CONTINUE R66
024674,000422: 36,2461           76333                          CADR     R61CSM                                #  CALL R61
024675,000423: 
024676,000424: 36,2462           35011                          CAF      .5SEC                                 
024677,000425: 36,2463           04636                          TC       BANKCALL                              #  WAIT .5 SEC AND REPEAT
024678,000426: 36,2464           01731                          CADR     DELAYJOB                              
024679,000427:                                                                                                 # # Page 560
024680,000428: 36,2465           02454                          TC       R66CSM                                
024681,000429: 
024682,000430: 36,2466           74707 43433  35DEGANG          2DEC     -.097222222222                            
024683,000431: 36,2470           01516        V06N78UT          VN       0678                                  
024684,000432: 36,2471           00306        V01N70UT          VN       0170                                  
024685,000433: 36,2472     5035               V06N88UT          =        V06N88                                
024686,000434: 36,2472           01517        V06N79UT          VN       0679                                  
024687,000435: 36,2473     5027               V06N34UT          =        V06N34                                
024688,000436: 36,2473           14631 23146  TUFITS            2DEC     .4                                    
024689,000437: 36,2475           77730        NEG47UT           OCT      77730                                 
024690,000438: 
024691,000439:                                                                                                 # # Page 561
024692,000440:                                                                                                 #  ORBITAL NAVIGATION PROGRAM 22
024693,000441: 30,2000                                          SETLOC   P20S1                                 
024694,000442: 30,2000                                          BANK                                           
024695,000443: 
024696,000444: 30,2153  E7,1751                                 EBANK=   LANDMARK                              
024697,000445: 30,2153                                          COUNT*   $$/P22                                
024698,000446: 
024699,000447: 30,2153           04636        PROG22            TC       BANKCALL                              
024700,000448: 30,2154           03731                          CADR     R02BOTH                               
024701,000449: 30,2155           06006                          TC       INTPRET                               
024702,000450: 30,2156           43014                          BOFF     SET                                   
024703,000451: 30,2157           04346                                   UTFLAG                                
024704,000452: 30,2160           60162                                   +2                                    
024705,000453: 30,2161           00472                                   TRACKFLG                              
024706,000454: 30,2162           47014                          CLEAR    RTB                                   
024707,000455: 30,2163           00270                                   RNDVZFLG                              
024708,000456: 30,2164           51751                                   LOADTIME                              
024709,000457: 30,2165           34041                          STCALL   TDEC1                                 
024710,000458: 30,2166           27170                                   CSMCONIC                              #  INTEGRATE TO PRESENT TIME
024711,000459: 30,2167           47375                          VLOAD    VXV                                   #  CROSS PRODUCT BETWEEN V AND R
024712,000460: 30,2170           00007                                   VATT                                  
024713,000461: 30,2171           00001                                   RATT                                  
024714,000462: 30,2172           50256                          UNIT     DOT                                   
024715,000463: 30,2173           01742                                   REFSMMAT   +6                         
024716,000464: 30,2174           77646                          ABS                                            
024717,000465: 30,2175           65552                          SL1      ARCCOS                                
024718,000466: 30,2176           03626                          STORE    +MGA                                  
024719,000467: 30,2177           77776                          EXIT                                           
024720,000468: 30,2200           32257                          CAF      V06N45B                               
024721,000469: 30,2201           05540                          TC       VNFLASHR                              
024722,000470: 30,2202           02206                          TC       PROG22A                               
024723,000471: 30,2203           36214                          CAF      THREE                                 
024724,000472: 30,2204           05516                          TC       BLANKET                               #  BLANK OUT R1 + R2
024725,000473: 30,2205           05205                          TC       ENDOFJOB                              
024726,000474: 30,2206           45051        PROG22A           CS       PRIO7                                 #  RESULT=70777  SET OFFSET NO.=0
024727,000475: 30,2207           71751                          MASK     LANDMARK                              
024728,000476: 30,2210           55751                          TS       LANDMARK                              
024729,000477: 30,2211           05362                          TC       2PHSCHNG                              
024730,000478: 30,2212           00004                          OCT      00004                                 
024731,000479: 30,2213           05022                          OCT      05022                                 
024732,000480: 30,2214           13000                          OCT      13000                                 
024733,000481: 30,2215           05547                          TC       UPFLAG                                
024734,000482: 30,2216           00025                          ADRES    TARG2FLG                              #  SET =1 FOR SIGHTING LMK
024735,000483: 30,2217           05547                          TC       UPFLAG                                
024736,000484: 30,2220           00026                          ADRES    VEHUPFLG                              #  VEH.=CSM
024737,000485: 30,2221           06006                          TC       INTPRET                               
024738,000486: 30,2222           43014                          CLEAR    CLEAR                                 
024739,000487: 30,2223           01663                                   LUNAFLAG                              
024740,000488: 30,2224           01664                                   P22MKFLG                              
024741,000489: 30,2225           43014                          SET      BOFF                                  
024742,000490:                                                                                                 # # Page 562
024743,000491: 30,2226           00462                                   ERADFLAG                              
024744,000492: 30,2227           04343                                   CMOONFLG                              
024745,000493: 30,2230           60240                                   PROG22B                               #  EARTH
024746,000494: 30,2231           77614                          SET                                            #  MOON
024747,000495: 30,2232           01463                                   LUNAFLAG                              
024748,000496: 30,2233           45145                          DLOAD    CALL                                  #  MPAC=V05N70,MPAC+1=NONZERO FOR N70
024749,000497: 30,2234           23513                                   V05N7022                              
024750,000498: 30,2235           60332                                   S22N7071                              
024751,000499: 30,2236           77650                          GOTO                                           
024752,000500: 30,2237           60242                                   CALLR52                               
024753,000501: 30,2240           77624        PROG22B           CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024754,000502: 30,2241           60304                                   P22SUBRB                              
024755,000503: 30,2242           77624        CALLR52           CALL                                           
024756,000504: 30,2243           31005                                   R52                                   
024757,000505: 30,2244           45135        DOV5N71           SLOAD    CALL                                  #  MPAC=V05N71,MPAC+1=0 FOR N71
024758,000506: 30,2245           23514                                   V05N7122                              
024759,000507: 30,2246           60332                                   S22N7071                              
024760,000508: 30,2247           66214        PROG22C           SET      SSP                                   
024761,000509: 30,2250           01464                                   P22MKFLG                              #  FOR DOWNLINK
024762,000510: 30,2251           03746                                   8KK                                   
024763,000511: 30,2252           00001                          DEC      1          B-14                       
024764,000512: 30,2253           77531                          SSP      EXIT                                  
024765,000513: 30,2254           03751                                   S22LOC                                
024766,000514: 30,2255           03537                          ECADR    SVMRKDAT                              
024767,000515: 30,2256           02466                          TC       S22.1                                 
024768,000516: 
024769,000517: 30,2257           01455        V06N45B           VN       0645                                  
024770,000518: 30,2260  31,3512               V05N7022          =        V05N70                                
024771,000519: 30,2260  31,3513               V05N7122          =        V05N71                                
024772,000520: 30,2260           77634        S22LSITE          RTB                                            #  CONVERT RLS FROM MOON-FIXED TO BASIC REF
024773,000521: 30,2261           51751                                   LOADTIME                              
024774,000522: 30,2262           24007                          STOVL    6D                                    #  6-7D= TIME
024775,000523: 30,2263           02026                                   RLS                                   
024776,000524: 30,2264           14001                          STODL    0D                                    #  0-5D= LANDING SITE VECTOR
024777,000525: 30,2265           15334                                   HIDPHALF                              #  MPAC= ANY NON-ZERO FOR MOON
024778,000526: 30,2266           77624                          CALL                                           
024779,000527: 30,2267           55345                                   RP-TO-R                               #  RLS IN BASIC REF B-27 IN MPAC
024780,000528: 30,2270           77742                          VSR2                                           #  LUNAFLAG AND ERADFLAG SET ABOVE
024781,000529: 30,2271           02152                          STORE    ALPHAV                                #  SCALE RLS B-29 FOR LAT-LONG
024782,000530: 30,2272           77634                          RTB                                            
024783,000531: 30,2273           51751                                   LOADTIME                              #  SET PRESENT TIME IN MPAC FOR LAT-LONG
024784,000532: 30,2274           77624                          CALL                                           
024785,000533: 30,2275           26453                                   LAT-LONG                              
024786,000534: 30,2276           77650                          GOTO                                           
024787,000535: 30,2277           03667                                   S22TOFF                               #  EXIT
024788,000536: 30,2300           77624        OBTAINLL          CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024789,000537: 30,2301           60304                                   P22SUBRB                              
024790,000538: 30,2302           77650                          GOTO                                           
024791,000539: 30,2303           03667                                   S22TOFF                               #  EXIT
024792,000540: 30,2304           77420        P22SUBRB          STQ      EXIT                                  #  GET LAT/LONG/ALT FROM ASTRO
024793,000541:                                                                                                 # # Page 563
024794,000542: 30,2305           03670                                   S22TOFF    +1                         
024795,000543: 30,2306           35036                 +2       CAF      V06N89B                               
024796,000544: 30,2307           05535                          TC       VNFLASH                               
024797,000545: 30,2310           06006                          TC       INTPRET                               
024798,000546: 30,2311           51545                          DLOAD    ABS                                   #  TEST LAT/LONG GREATER THAN 90
024799,000547: 30,2312           00747                                   LANDLAT                               
024800,000548: 30,2313           50021                          BDSU     BMN                                   #  1/4 REV - LAT
024801,000549: 30,2314           15326                                   DP1/4TH                               
024802,000550: 30,2315           60323                                   N89ERRX                               
024803,000551: 30,2316           51545                          DLOAD    ABS                                   
024804,000552: 30,2317           02351                                   LANDLONG                              
024805,000553: 30,2320           51021                          BDSU     BPL                                   
024806,000554: 30,2321           15326                                   DP1/4TH                               
024807,000555: 30,2322           60326                                   N89ERRX    +3                         
024808,000556: 30,2323           77776        N89ERRX           EXIT                                           
024809,000557: 30,2324           04362                          TC       FALTON                                
024810,000558: 30,2325           02306                          TC       P22SUBRB   +2                         #  LONG GR. THAN 90  REDISPLAY
024811,000559: 30,2326           77624                 +3       CALL                                           
024812,000560: 30,2327           62371                                   LLASRDA                               
024813,000561: 30,2330           77650                          GOTO                                           
024814,000562: 30,2331           03670                                   S22TOFF    +1                         #  EXIT
024815,000563: 30,2332           03746        S22N7071          STORE    8KK                                   #  8KK=V05N71,V05N70 8KK+1=0 N71,NOT 0 N70
024816,000564: 30,2333           77420                          STQ      EXIT                                  
024817,000565: 30,2334           03667                                   S22TOFF                               
024818,000566: 30,2335           31745        S22DSPPA          CA       8KK                                   #  V05N70 OR V05N71
024819,000567: 30,2336           05540                          TC       VNFLASHR                              
024820,000568: 30,2337           02343                          TC       +4                                    
024821,000569: 30,2340           34773                          CAF      FIVE                                  #  IMMEDIATE RETURN BLANK OUT R1,R3
024822,000570: 30,2341           05516                          TC       BLANKET                               
024823,000571: 30,2342           05205                          TC       ENDOFJOB                              
024824,000572: 30,2343           31751                          CA       LANDMARK                              
024825,000573: 30,2344           75051                          MASK     PRIO7                                 #  07000
024826,000574: 30,2345           00006                          EXTEND                                         
024827,000575: 30,2346           74763                          MP       BIT6                                  
024828,000576: 30,2347           55744                          TS       CXOFF                                 #  08000 = OFFSET INDICATOR
024829,000577: 30,2350           44773                          CS       FIVE                                  
024830,000578: 30,2351           61744                          AD       CXOFF                                 
024831,000579: 30,2352           00006                          EXTEND                                         
024832,000580: 30,2353           62355                          BZMF     +2                                    #  OFF=0 THRU 5 OK
024833,000581: 30,2354           02367                          TC       S22DSPP                               #  OFF=6.7 ILLEGAL REDISPLAY
024834,000582: 30,2355           05561                          TC       DOWNFLAG                              
024835,000583: 30,2356           00141                          ADRES    KNOWNFLG                              #  CLEAR KNOWNFLG
024836,000584: 30,2357           31751                          CA       LANDMARK                              #  MASK A FROM ABCDE
024837,000585: 30,2360           77673                          MASK     13,14,15                              
024838,000586: 30,2361           00006                          EXTEND                                         
024839,000587: 30,2362           62367                          BZMF     S22DSPP                               #  A=0,4,5,6,7  ILLEGAL REDISPLAY
024840,000588: 30,2363           55743                          TS       22SUBSCL                              #  TEMP
024841,000589: 30,2364           44753                          CS       BIT14                                 
024842,000590: 30,2365           61743                          AD       22SUBSCL                              
024843,000591: 30,2366           10000                          CCS      A                                     
024844,000592:                                                                                                 # # Page 564
024845,000593: 30,2367           04362        S22DSPP           TC       FALTON                                #  +  A=3 ILLEGAL REDISPLAY
024846,000594: 30,2370           02335                          TC       S22DSPPA                              #  COMMON ERROR EXIT BACK TO DISPLAY
024847,000595: 30,2371           02373                          TC       +2                                    #  -   A=1 KNOWN LMK  CHECK DE
024848,000596: 30,2372           02417                          TC       S22ABDE                               #  -0  A=2 UNKNOWN LMK,DE MEANINGLESS
024849,000597: 30,2373           05547                          TC       UPFLAG                                
024850,000598: 30,2374           00141                          ADRES    KNOWNFLG                              #  SET KNOWNFLG
024851,000599: 30,2375           47677                          CS       HIGH9                                 #  RESULT= 00077
024852,000600: 30,2376           71751                          MASK     LANDMARK                              
024853,000601: 30,2377           55743                          TS       22SUBSCL                              #  000DE
024854,000602: 30,2400           44770                          CS       BIT1                                  
024855,000603: 30,2401           61743                          AD       22SUBSCL                              
024856,000604: 30,2402           00006                          EXTEND                                         
024857,000605: 30,2403           62417                          BZMF     S22ABDE                               #  DE=0,1 OK FOR BOTH N70,N71
024858,000606: 30,2404           31746                          CA       8KK        +1                         #  =0 FOR N71, NOT =0 FOR N70
024859,000607: 30,2405           00006                          EXTEND                                         
024860,000608: 30,2406           12367                          BZF      S22DSPP                               #  N71 REDISPLAY  DE MUST= 0 OR 1
024861,000609: 30,2407           34764                          CA       BIT5                                  #  N70 TEST DE= 50-57 OCTAL FOR ADV. ORBIT
024862,000610: 30,2410           65004                          AD       OCT50                                 #  SUM=00070
024863,000611: 30,2411           71743                          MASK     22SUBSCL                              #  00D0
024864,000612: 30,2412           40000                          CS       A                                     
024865,000613: 30,2413           65004                          AD       OCT50                                 
024866,000614: 30,2414           00006                          EXTEND                                         
024867,000615: 30,2415           12427                          BZF      DE-GR-50                              #  D=5 OR DE=50-57,OK FOR N70
024868,000616: 30,2416           02367                          TC       S22DSPP                               #  DE NOT 50-57  ILLEGAL,REDISPLAY
024869,000617: 30,2417           06006        S22ABDE           TC       INTPRET                               
024870,000618: 30,2420           67214                          BOFF     SLOAD                                 
024871,000619: 30,2421           03347                                   KNOWNFLG                              #  UNKNOWN LMK, DE MEANINGLESS
024872,000620: 30,2422           03667                                   S22TOFF                               
024873,000621: 30,2423           03744                                   22SUBSCL                              #  =0 GET LLA FROM ASTRO,NOT=0 USE RLS
024874,000622: 30,2424           52030                          BHIZ     GOTO                                  
024875,000623: 30,2425           60300                                   OBTAINLL                              #  GET LAT/LONG/ALT FROM ASTRO  N89
024876,000624: 30,2426           60260                                   S22LSITE                              #  GET LAT/LONG/ALT FROM RLS
024877,000625: 30,2427           06006        DE-GR-50          TC       INTPRET                               #  ADVANCED ORBIT OPTION IN R52
024878,000626: 30,2430           45014                          SET      CALL                                  #  ADVANCED ORBIT ENTRANCE TO R52
024879,000627: 30,2431           04065                                   ADVTRK                                
024880,000628: 30,2432           31007                                   R52VRB                                
024881,000629: 30,2433           77650                          GOTO                                           
024882,000630: 30,2434           60244                                   DOV5N71                               
024883,000631: 13,2000                                          SETLOC   P24PROG                               
024884,000632: 13,2000                                          BANK                                           
024885,000633: 
024886,000634:                                                                                                 # # Page 565
024887,000635: 13,2254                                          COUNT*   $$/P24                                
024888,000636: 13,2254           30737        PROG24            CA       NO.PASS                               
024889,000637: 13,2255           55131                          TS       PASSCNT                               
024890,000638: 13,2256           05362                          TC       2PHSCHNG                              
024891,000639: 13,2257           00004                          OCT      00004                                 
024892,000640: 13,2260           05022                          OCT      05022                                 
024893,000641: 13,2261           13000                          OCT      13000                                 
024894,000642: 13,2262           04636                          TC       BANKCALL                              
024895,000643: 13,2263           03731                          CADR     R02BOTH                               #  IMU STATUS CHECK
024896,000644: 13,2264           06006                          TC       INTPRET                               
024897,000645: 13,2265           43014                          BOFF     SET                                   
024898,000646: 13,2266           04346                                   UTFLAG                                
024899,000647: 13,2267           26271                                   +2                                    
024900,000648: 13,2270           00472                                   TRACKFLG                              
024901,000649: 13,2271           43014                          CLEAR    CLEAR                                 
024902,000650: 13,2272           01274                                   P24MKFLG                              
024903,000651: 13,2273           04261                                   NEWLMFLG                              
024904,000652: 13,2274           43014                          CLEAR    CLEAR                                 
024905,000653: 13,2275           01671                                   ORBWFLAG                              
024906,000654: 13,2276           02676                                   RENDWFLG                              
024907,000655: 13,2277           76131                          SSP      AXT,1                                 #  ZERO P22 DOWNLIST MARK BUFFER
024908,000656: 13,2300           00051                                   S1                                    
024909,000657: 13,2301           00006                          DEC      6          B-14                       
024910,000658: 13,2302           00044                          DEC      36         B-14                       
024911,000659: 13,2303           77214                          SET      VLOAD                                 
024912,000660: 13,2304           04461                                   P24FLAG                               
024913,000661: 13,2305           11762                                   ZEROVEC                               
024914,000662: 13,2306           07604        ZERODNLK          STORE    SVMRKDAT   +36D,1                     
024915,000663: 13,2307           43100                          TIX,1    CLEAR                                 
024916,000664: 13,2310           26306                                   ZERODNLK                              
024917,000665: 13,2311           01664                                   P22MKFLG                              
024918,000666: 13,2312           47014                          CLEAR    RTB                                   
024919,000667: 13,2313           00270                                   RNDVZFLG                              
024920,000668: 13,2314           51751                                   LOADTIME                              
024921,000669: 13,2315           35062                          STCALL   MARKTIME                              
024922,000670: 13,2316           56462                                   SETINTG                               
024923,000671: 13,2317           77624                          CALL                                           
024924,000672: 13,2320           27236                                   INTEGRV                               #  UPDATE STATE VEC TO CURRENT TIME
024925,000673: 13,2321           43014                          SET      CLEAR                                 
024926,000674: 13,2322           00462                                   ERADFLAG                              
024927,000675: 13,2323           01663                                   LUNAFLAG                              
024928,000676: 13,2324           43014                          BOFF     SET                                   
024929,000677: 13,2325           04343                                   CMOONFLG                              
024930,000678: 13,2326           26330                                   +2                                    
024931,000679: 13,2327           01463                                   LUNAFLAG                              
024932,000680: 13,2330           77624                          CALL                                           
024933,000681: 13,2331           60304                                   P22SUBRB                              
024934,000682: 13,2332           77776                          EXIT                                           
024935,000683: 13,2333           05362                          TC       2PHSCHNG                              
024936,000684:                                                                                                 # # Page 566
024937,000685: 13,2334           00004                          OCT      00004                                 
024938,000686: 13,2335           05022                          OCT      05022                                 
024939,000687: 13,2336           13000                          OCT      13000                                 
024940,000688: 13,2337           06006                          TC       INTPRET                               
024941,000689: 13,2340           45014                          SET      CALL                                  
024942,000690: 13,2341           00466                                   TARG2FLG                              
024943,000691: 13,2342           31005                                   R52                                   
024944,000692: 13,2343           77776                          EXIT                                           
024945,000693: 13,2344           04103                          TC       GOTOPOOH                              
024946,000694: 
024947,000695:                                                                                                 # # Page 567
024948,000696: 
024949,000697:                                                                                                 #  PROGRAM NAME-  OPTICS CALIBRATION ROUTINE
024950,000698:                                                                                                 #  MOD NO- 1
024951,000699:                                                                                                 #  MOD BY- TOM KNATT
024952,000700: 
024953,000701:                                                                                                 #  FUNCTIONAL DESCRIPTION- TO MEASURE THE EFFECT OF SOLAR RADIATION ON
024954,000702:                                                                                                 #    THE SXT TRUNNION ANGLE AND STORE THE MEASURED TRUNNION BIAS FOR P23
024955,000703: 
024956,000704:                                                                                                 #  CALLING SEQUENCE- CALL
024957,000705:                                                                                                 #                           R57
024958,000706: 
024959,000707:                                                                                                 #  SUBROUTINES CALLED- DISPLAY ROUTINES
024960,000708: 
024961,000709:                                                                                                 #  NORMAL EXIT MODES-VIA EGRESS
024962,000710: 
024963,000711:                                                                                                 #  ALARMS- NONE
024964,000712: 
024965,000713:                                                                                                 #  ABORT MODES- P23ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE
024966,000714:                                                                                                 #  INPUT- NONE REQUIRED, NORMALLY CALLED BY P23
024967,000715:                                                                                                 #  OUTPUT- TRUNNION BIAS ANGLE- ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT
024968,000716:                                                                                                 #  (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED. THIS ANGLE
024969,000717:                                                                                                 #  MAY NOT BE EXACTLY ZERO BECAUSE OF UNEVEN HEATING OF THE OPTICS,FOR
024970,000718:                                                                                                 #  EXAMPLE.
024971,000719: 
024972,000720:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED- MRKBUF1, EXTVBACT
024973,000721: 
024974,000722:                                                                                                 #  DEBRIS- RUPTREGS USED BY MARKRUPT AND ERASABLES USED BY DISPLAYS
024975,000723: 37,2000                                          SETLOC   P20S                                  
024976,000724: 37,2000                                          BANK                                           
024977,000725: 37,2167                                          COUNT*   $$/R57                                
024978,000726: 37,2167  E7,1722                                 EBANK=   MRKBUF1                               
024979,000727: 37,2167           77420        R57               STQ      EXIT                                  
024980,000728: 37,2170           02310                                   EGRESS                                
024981,000729: 37,2171           40077        R57A              CS       FLAGWRD3                              #  IS THE IMU ALIGNED
024982,000730: 37,2172           74754                          MASK     REFSMBIT                              
024983,000731: 37,2173           10000                          CCS      A                                     
024984,000732: 37,2174           12213                          TCF      R57C                                  #  NO
024985,000733: 37,2175           34776                          CAF      ALRM15                                #  YES SHOULD AUTO ACQUISITION OF STAR
024986,000734: 37,2176           04636                          TC       BANKCALL                              #      BE PERFORMED
024987,000735: 37,2177           21067                          CADR     GOPERF1                               
024988,000736: 37,2200           04103                          TC       GOTOPOOH                              #  TERM
024989,000737: 37,2201           02203                          TC       +2                                    #  PRO YES
024990,000738: 37,2202           02213                          TC       R57C                                  #  ENTER NO
024991,000739: 37,2203           06006                          TC       INTPRET                               
024992,000740: 37,2204           77624                          CALL                                           
024993,000741: 37,2205           30761                                   R51DSPA                               
024994,000742: 37,2206           77624                          CALL                                           
024995,000743: 37,2207           62756                                   DOR60                                 
024996,000744: 37,2210           77776                          EXIT                                           
024997,000745: 37,2211           05402                          TC       PHASCHNG                              
024998,000746: 37,2212           04022                          OCT      04022                                 
024999,000747:                                                                                                 # # Page 568
025000,000748: 37,2213           04636        R57C              TC       BANKCALL                              
025001,000749: 37,2214           16062                          CADR     TESTMARK                              
025002,000750: 37,2215           05547                          TC       UPFLAG                                #  SET V59FLAG (BIT 12 FLAG 5 TO INDICATE
025003,000751: 37,2216           00116                          ADRES    V59FLAG                               #  CALIBRATION MARK
025004,000752: 37,2217           32260                          CAF      V59NB                                 
025005,000753: 37,2220           04636                          TC       BANKCALL                              
025006,000754: 37,2221           20607                          CADR     GOMARKFR                              
025007,000755: 37,2222           04103                          TC       GOTOPOOH                              #  TERMINATE
025008,000756: 37,2223           02247                          TC       ENDR57                                
025009,000757: 37,2224           02247                          TC       ENDR57                                
025010,000758: 37,2225           34774                          CAF      SEVEN                                 
025011,000759: 37,2226           05516                          TC       BLANKET                               #  BLANK OUT R1,R2,R3
025012,000760: 37,2227           05205                          TC       ENDOFJOB                              
025013,000761:                                                                                                 #  STORE TRUNNION ANGLE (OCDU)
025014,000762: 37,2230           32257        MARKDISP          CAF      V06N87NB                              
025015,000763: 37,2231           04636                          TC       BANKCALL                              
025016,000764: 37,2232           20607                          CADR     GOMARKFR                              
025017,000765: 37,2233           04103                          TC       GOTOPOOH                              #  TERMINATE
025018,000766: 37,2234           02241                          TC       R57B                                  #  PROCEED
025019,000767: 37,2235           02255                          TC       R57D                                  #  RECYCLE
025020,000768: 37,2236           34773                          CAF      FIVE                                  
025021,000769: 37,2237           05516                          TC       BLANKET                               #  BLANK OUT R1,R3
025022,000770: 37,2240           05205                          TC       ENDOFJOB                              
025023,000771: 37,2241           32262        R57B              CA       19.77DEG                              #  PUT FIXED INTO ERASABLE FOR MSU
025024,000772: 37,2242           54001                          TS       L                                     #  INSTRUCTION COMING UP
025025,000773: 37,2243           31727                          CA       MRKBUF1    +5                         #  CONTAINS TRUNNION
025026,000774: 37,2244           00006                          EXTEND                                         
025027,000775: 37,2245           20001                          MSU      L                                     #  CORRECTS TRUNBIAS FROM 2'S TO 1'S
025028,000776: 37,2246           55024                          TS       TRUNBIAS                              
025029,000777: 37,2247           05561        ENDR57            TC       DOWNFLAG                              #  RESET V59FLAG
025030,000778: 37,2250           00116                          ADRES    V59FLAG                               #  BIT 12  FLAG 5
025031,000779: 37,2251           05527                          TC       CLEARMRK                              #  ALLOW R53 IN
025032,000780: 
025033,000781: 37,2252           06006                          TC       INTPRET                               
025034,000782: 37,2253           77650                          GOTO                                           
025035,000783: 37,2254           02310                                   EGRESS                                
025036,000784: 37,2255           05527        R57D              TC       CLEARMRK                              
025037,000785: 37,2256           12171                          TCF      R57A                                  
025038,000786: 37,2257           01527        V06N87NB          VN       0687                                  
025039,000787: 37,2260           16600        V59NB             VN       5900                                  
025040,000788: 37,2261           14655        V51N45            VN       5145                                  
025041,000789: 37,2262           61740        19.77DEG          OCT      61740                                 
025042,000790: 
025043,000791:                                                                                                 # # Page 569
025044,000792: 
025045,000793:                                                                                                 #  RENDEZVOUS TRACKING SIGHTING MARK ROUTINE (R21)
025046,000794:                                                                                                 #  AND BACKUP SIGHTING MARK ROUTINE (R23)
025047,000795: 
025048,000796:                                                                                                 #  PROGRAM DESCRIPTION
025049,000797:                                                                                                 #  MOD NO - 1
025050,000798:                                                                                                 #  MOD BY - N.BRODEUR
025051,000799:                                                                                                 #  FUNCTIONAL DESCRIPTION
025052,000800: 
025053,000801:                                                                                                 #    TO PERFORM SIGHTING MARKS IN CONJUNCTION WITH THE RENDEZVOUS NAVIG-
025054,000802:                                                                                                 #  ATION PROGRAM. CALLED BY ASTRONAUT VIA EXTENDED VERB.
025055,000803:                                                                                                 #  CALLING SEQUENCE -
025056,000804:                                                                                                 #           R21 VIA V 57
025057,000805:                                                                                                 #           R23 VIA V 54
025058,000806:                                                                                                 #  SUBROUTINES CALLED -
025059,000807:                                                                                                 #    FLAGUP         FLAGDOWN        BANKCALL
025060,000808:                                                                                                 #    ENDOFJOB       GOMARK2         GOMARKF
025061,000809:                                                                                                 #    INTPRET        GENTRAN         KLEENEX
025062,000810:                                                                                                 #    ENDMARK
025063,000811:                                                                                                 #  NORMAL EXIT MODES-
025064,000812:                                                                                                 #    MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARK IN MRKBUF2
025065,000813:                                                                                                 #  FOR USE BY R22. WHEN ASTRONAUT IS FINISHED TAKING MARKS, HE HITS AN
025066,000814:                                                                                                 #  PROCEED ,   R21 IS TERMINATED THUS CAUSING THE FINAL MARK TO BE TRANSFRD
025067,000815:                                                                                                 #  TO MRKBUF2 FOR PROCESSING BY R22
025068,000816:                                                                                                 #  ALARM OR ABORT EXIT MODES -
025069,000817:                                                                                                 #    NONE
025070,000818:                                                                                                 #  OUTPUT -
025071,000819:                                                                                                 #    7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y,
025072,000820:                                                                                                 #  CDUX.
025073,000821:                                                                                                 #  ERASABLE INTIALIZATION REQUIRED
025074,000822:                                                                                                 #  FLAGS SET AND RESET
025075,000823:                                                                                                 #    R21MARK   (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 + 2)
025076,000824:                                                                                                 #    R23FLG  INDICATES COAS MARKING
025077,000825:                                                                                                 #  DEBRIS
025078,000826: 37,2263  E7,1722                                 EBANK=   MRKBUF1                               
025079,000827: 37,2000                                          SETLOC   RENDEZ                                
025080,000828: 37,2000                                          BANK                                           
025081,000829: 
025082,000830: 37,2263                                          COUNT*   $$/R23                                
025083,000831: 
025084,000832: 37,2263           05561        R23CSM            TC       DOWNFLAG                              
025085,000833: 37,2264           00037                          ADRES    R21MARK                               
025086,000834: 37,2265           37702                          CAF      NEGONE                                
025087,000835: 37,2266           55722                          TS       MRKBUF1                               
025088,000836: 37,2267           37651                          CAF      PRIO27                                
025089,000837: 37,2270           05176                          TC       PRIOCHNG                              #  HIGHER THAN R22
025090,000838: 
025091,000839: 37,2271           32332                          CAF      V0694                                 #  R23 BACKUP MARKING
025092,000840: 37,2272           04636                          TC       BANKCALL                              #  DISPLAY SHAFT + TRUNNION
025093,000841: 37,2273           20576                          CADR     GOMARKF                               
025094,000842: 37,2274           02320                          TC       R21END                                #  TERM
025095,000843: 37,2275           02277                          TC       +2                                    #  PROC
025096,000844:                                                                                                 # # Page 570
025097,000845: 37,2276           02271                          TC       -5                                    #  ENTER
025098,000846: 37,2277           32331        R23CSM1           CAF      V53N45                                #  PERFORM ALT LOS SIGHT MARK
025099,000847: 37,2300           04636                          TC       BANKCALL                              
025100,000848: 37,2301           20612                          CADR     MARKMONR                              
025101,000849: 37,2302           02320                          TC       R21END                                #  V34-TERMINATE R23
025102,000850: 37,2303           12320                          TCF      R21END                                #  PRO END BACK-UP MARKING (R23)
025103,000851: 37,2304           00004                          INHINT                                         
025104,000852: 37,2305           00006                          EXTEND                                         
025105,000853: 37,2306           30025                          DCA      TIME2                                 
025106,000854: 37,2307           53723                          DXCH     MRKBUF1                               #  READ TIME
025107,000855: 37,2310           30033                          CA       CDUY                                  #  READ CDU ANGLES
025108,000856: 37,2311           55724                          TS       MRKBUF1    +2                         
025109,000857: 37,2312           30034                          CA       CDUZ                                  
025110,000858: 37,2313           55726                          TS       MRKBUF1    +4                         
025111,000859: 37,2314           30032                          CA       CDUX                                  
025112,000860: 37,2315           55730                          TS       MRKBUF1    +6                         
025113,000861: 37,2316           00003                          RELINT                                         
025114,000862: 37,2317           02277                          TC       R23CSM1                               
025115,000863: 37,2320           04636        R21END            TC       BANKCALL                              
025116,000864: 37,2321           20575                          CADR     KLEENEX                               
025117,000865: 37,2322           37702                          CA       NEGONE                                
025118,000866: 37,2323           55722                          TS       MRKBUF1                               #  CLEAR BUFFERS FOR REGULAR MARKING
025119,000867: 37,2324           35055                          CAF      PRIO16                                
025120,000868: 37,2325           05176                          TC       PRIOCHNG                              #  LOWER THAN R22
025121,000869: 
025122,000870: 37,2326           05547                          TC       UPFLAG                                #  SET R21MARK TO ALLOW REG OPTICS MARKING
025123,000871: 37,2327           00037                          ADRES    R21MARK                               #  BIT 14  FLAG 2
025124,000872: 37,2330           05524                          TC       ENDMARK                               #  END MARKING AND ENDJOB
025125,000873: 37,2331           15255        V53N45            VN       5345                                  
025126,000874: 37,2332           01536        V0694             VN       0694                                  
025127,000875: 
025128,000876:                                                                                                 # # Page 571
025129,000877: 
025130,000878:                                                                                                 #  PREFERRED TRACKING ATTITUDE ROUTINE R61CSM
025131,000879:                                                                                                 #  PROGRAM DESCRIPTION
025132,000880:                                                                                                 #  MOD NO - 2
025133,000881:                                                                                                 #  MOD BY - N.BRODEUR
025134,000882:                                                                                                 #  FUNCTIONAL DESCRIPTION-
025135,000883:                                                                                                 #    TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM TO ENABLE OPTICS
025136,000884:                                                                                                 #  TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED
025137,000885:                                                                                                 #  OR X-AXIS TRACKING ATTITUDE.
025138,000886:                                                                                                 #  CALLING SEQUENCE-
025139,000887:                                                                                                 #            TC     BANKCALL
025140,000888:                                                                                                 #            CADR   R61CSM
025141,000889:                                                                                                 #  SUBROUTINES CALLED
025142,000890:                                                                                                 #    MAKECADR          BANKCALL
025143,000891:                                                                                                 #    INTPRET        FLAGUP          FLAGDOWN
025144,000892:                                                                                                 #    BANKJUMP       CRS61.1         R60CSM
025145,000893:                                                                                                 #    PHASCHNG
025146,000894:                                                                                                 #  NORMAL EXIT MODES-
025147,000895:                                                                                                 #    NORMAL RETURN IS TO CALLER + 1
025148,000896:                                                                                                 #  OUTPUT -
025149,000897:                                                                                                 #    SEE OUTPUT FOR CRS61.1 & ATTITUDE MANEUVER ROUTINE (R60CSM)
025150,000898:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
025151,000899:                                                                                                 #    GENRET USED TO SAVE Q FOR RETURN
025152,000900:                                                                                                 #    R61CNTR MUST BE PRESET TO ZERO
025153,000901:                                                                                                 #  FLAGS SET + RESET
025154,000902:                                                                                                 #    3-AXIS FLAG
025155,000903:                                                                                                 #  DEBRIS
025156,000904:                                                                                                 #    SEE SUBROUTINES
025157,000905: 37,2333  E6,1770                                 EBANK=   GENRET                                
025158,000906: 37,2333                                          COUNT*   $$/R61                                #  ROUTINES - NAVIGATION - PREF. TR. 9TT=
025159,000907: 
025160,000908: 37,2333           04611        R61CSM            TC       E6SETTER                              #  SWITCH TO E6 - RETURNS WITH OLD SETTING
025161,000909: 37,2334           55771                          TS       SAVBNK                                #  SAVE EBANK
025162,000910: 37,2335           04665                          TC       MAKECADR                              
025163,000911: 37,2336           55770                          TS       GENRET                                
025164,000912: 37,2337           11774                          CCS      R61CNTR                               #  TEST R61CNTR
025165,000913: 37,2340           02416                          TC       DECRM61                               #  NOT READY TO DO R61.
025166,000914: 37,2341           02343                          TC       +2                                    #  DO R61
025167,000915: 37,2342           02417                          TC       DECRM61    +1                         
025168,000916: 37,2343           00004                          INHINT                                         
025169,000917: 37,2344           35007                          CAF      MINDB                                 
025170,000918: 37,2345           55655                          TS       ADB                                   
025171,000919: 37,2346           11773                          CCS      DBPTC                                 
025172,000920: 37,2347           64770                          AD       ONE                                   
025173,000921: 37,2350           12352                          TCF      +2                                    
025174,000922: 37,2351           64770                          AD       ONE                                   
025175,000923: 37,2352           00006                          EXTEND                                         
025176,000924: 37,2353           12355                          BZF      +2                                    #  IGNOR ZERO DEADBAND
025177,000925: 37,2354           55655                          TS       ADB                                   
025178,000926: 
025179,000927: 37,2355           06006                          TC       INTPRET                               
025180,000928:                                                                                                 # # Page 572
025181,000929: 37,2356           77624                          CALL                                           
025182,000930: 37,2357           71432                                   CRS61.1                               #  LOS DETERMINATION + VEH ATTITUDE
025183,000931: 37,2360           77776        R61DMPTG          EXIT                                           #  DEFINE TAG FOR P20 EDIT DUMP
025184,000932: 37,2361           05561                          TC       DOWNFLAG                              #  RESET FLAG TO INHIBIT FURTHER R60
025185,000933: 37,2362           00055                          ADRES    V50N18FL                              #     ATTITUDE MANEUVERS
025186,000934: 37,2363           50154                          INDEX    MPAC                                  
025187,000935: 37,2364           02365                          TC       +1                                    
025188,000936: 37,2365           02415                          TC       R61END                                #  SUBROUTINE DRIVING DAP (EXIT R61)
025189,000937:                                                                                                 #  OR AUTO MODE NOT SET (EXIT R61)
025190,000938:                                                                                                 #  OR SKIKFLAG SET      (EXIT R61)
025191,000939: 37,2366           05561        R61C1             TC       DOWNFLAG                              #  RESET 3-AXIS FLAG
025192,000940: 37,2367           00124                          ADRES    3AXISFLG                              #  BIT 6  FLAG 5
025193,000941: 37,2370           40107                          CS       FLGWRD11                              
025194,000942: 37,2371           74761                          MASK     AZIMBIT                               
025195,000943: 37,2372           10000                          CCS      A                                     
025196,000944: 37,2373           02376                          TC       +3                                    #  AZIMFLAG NOT SET,CLEAR 3AXISFLA7
025197,000945: 
025198,000946: 37,2374           05547                          TC       UPFLAG                                #  AZIMFLAG SET    ,SET   3AXISFLAG
025199,000947: 37,2375           00124                          ADRES    3AXISFLG                              
025200,000948: 
025201,000949: 37,2376           44770                          CS       ONE                                   #  SET R61CNTR NEG. TO INDICATE KALCMANU
025202,000950: 37,2377           55774                          TS       R61CNTR                               
025203,000951: 
025204,000952: 37,2400           05547                          TC       UPFLAG                                #  SET FLAG FOR PROIRITY DISPLAYS FOR R60
025205,000953: 37,2401           00077                          ADRES    PDSPFLAG                              #  BIT 12  FLAG 4
025206,000954: 37,2402           04636                          TC       BANKCALL                              
025207,000955: 37,2403           56074                          CADR     R60CSM                                
025208,000956: 37,2404           05561                          TC       DOWNFLAG                              #  RESET FLAG FOR PRIORITY DISPLAYS IN R60
025209,000957: 37,2405           00077                          ADRES    PDSPFLAG                              #  BIT 12  FLAG 4
025210,000958: 37,2406           34772                          CAF      ZERO                                  
025211,000959: 37,2407           04636                          TC       BANKCALL                              
025212,000960: 37,2410           20753                          CADR     PRIODSP                               #  RELEASE DISPLAY
025213,000961: 37,2411           05402                          TC       PHASCHNG                              
025214,000962: 37,2412           00111                          OCT      00111                                 
025215,000963: 37,2413  01,2025               1P11SPT6          =        1.11SPOT                              
025216,000964: 37,2413           34772                          CAF      ZERO                                  
025217,000965: 37,2414           02416                          TC       DECRM61                               
025218,000966: 37,2415           36214        R61END            CAF      THREE                                 
025219,000967: 
025220,000968: 37,2416           55774        DECRM61           TS       R61CNTR                               
025221,000969: 
025222,000970: 37,2417           31770                 +1       CAE      GENRET                                
025223,000971: 37,2420           22000                          LXCH     A                                     #  RETURN IS IN L
025224,000972: 37,2421           31771                          CA       SAVBNK                                #  RESTORE EBANK
025225,000973: 37,2422           56003                          XCH      EBANK                                 
025226,000974: 37,2423           22000                          LXCH     A                                     #  RETURN IS NOW BACK IN A
025227,000975: 37,2424           04660                          TC       BANKJUMP                              #  EXIT R61
025228,000976: 23,2000                                          SETLOC   P20S2                                 
025229,000977: 23,2000                                          BANK                                           
025230,000978:                                                                                                 # # Page 573
025231,000979: 23,2756  E7,1722                                 EBANK=   MRKBUF1                               
025232,000980: 
025233,000981:                                                                                                 # # Page 574
025234,000982: 
025235,000983:                                                                                                 #   BVECTOR PERFORMS COMPUTATIONS FOR
025236,000984:                                                                                                 #  DELTAQ,THE MEASURED DEVIATION BASED ON THE DIFFERENCE BETWEEN THE CSM-LE
025237,000985:                                                                                                 #  M STATE VECTOR ESTIMATES AND THE ACTUAL TRACKING MEASUREMENT.
025238,000986:                                                                                                 #  US,THE MODIFIED FICTITIOUS STAR DIRECTION VECTOR
025239,000987:                                                                                                 #  GEOMETRY VECTORY B ASSOCIATED WITH EACH TRACKING MEASUREMENT.
025240,000988:                                                                                                 #  INPUT
025241,000989:                                                                                                 #     UM,1/2 UNIT VECTOR ALONG THE CSM-LM LINE-OF-SIGHT (BASIC REF.SYSTEM)
025242,000990:                                                                                                 #     USTAR,FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
025243,000991:                                                                                                 #     RCLP,RELATIVE CSM TO LM POSITION VECTOR
025244,000992:                                                                                                 #  OUTPUT
025245,000993:                                                                                                 #     USTAR,MODIFIED FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
025246,000994:                                                                                                 #     BVECTOR = 9 DIMENTIONAL BVECTOR (1/2 UNIT VEC.)
025247,000995:                                                                                                 #     DELTAQ = MEASURED DEVIATION
025248,000996:                                                                                                 #  CALLING SEQUENCE
025249,000997:                                                                                                 #     L  CALL BVECTORS
025250,000998:                                                                                                 #  NORMAL EXIT
025251,000999:                                                                                                 #     L+1 OF CALLING SEQUENCE
025252,001000: 
025253,001001: 23,2756                                          COUNT*   $$/INCOR                              
025254,001002: 23,2756           77620        BVECTORS          STQ                                            
025255,001003: 23,2757           02310                                   EGRESS                                
025256,001004: 23,2760           53575                          VLOAD    UNIT                                  
025257,001005: 23,2761           03531                                   RCLP                                  #  RELATIVE POSITION VECTOR
025258,001006: 23,2762           14033                          STODL    26D                                   #  RCLP UNIT VEC
025259,001007: 23,2763           00045                                   36D                                   #  RCLP ABS VALUE
025260,001008: 23,2764           25136                          STOVL    TEMPOR1                               #  MOVE TO SAFE LOCATION
025261,001009: 23,2765           01102                                   USTAR                                 
025262,001010: 23,2766           53435                          VXV      UNIT                                  
025263,001011: 23,2767           00033                                   26D                                   #  USTAR = UNIT(US X UCL)
025264,001012: 23,2770           37502                          STCALL   BVECTOR                               
025265,001013: 23,2771           22327                                   GRP2PC                                #  PHASE CHANGE
025266,001014: 23,2772           77775                          VLOAD                                          
025267,001015: 23,2773           03502                                   BVECTOR                               
025268,001016: 23,2774           01102                          STORE    USTAR                                 
025269,001017: 23,2775           72441                          DOT      SL1                                   
025270,001018: 23,2776           01072                                   UM                                    #  USTAR DOT UM
025271,001019: 23,2777           45326                          ACOS     DSU                                   
025272,001020: 23,3000           15326                                   DP1/4TH                               
025273,001021: 23,3001           41301                          NORM     DMP                                   
025274,001022: 23,3002           00047                                   X1                                    
025275,001023: 23,3003           07016                                   PI/4.0                                
025276,001024: 23,3004           53605                          DMP      SRR*                                  
025277,001025: 23,3005           01136                                   TEMPOR1                               #  RCLP ABS VALUE
025278,001026: 23,3006           21576                                   0          -3,1                       #  ADJUST SCALING
025279,001027: 23,3007           27524                          STOVL    DELTAQ                                
025280,001028: 23,3010           15336                                   ZEROVECS                              
025281,001029: 23,3011           03510                          STORE    BVECTOR    +6                         
025282,001030: 23,3012           03516                          STORE    BVECTOR    +12D                       
025283,001031: 23,3013           77650                          GOTO                                           
025284,001032: 23,3014           02310                                   EGRESS                                
025285,001033:                                                                                                 # # Page 575
025286,001034: 23,3015           31103 36652  PI/4.0            2DEC     .785398164                            
025287,001035: 
025288,001036:                                                                                                 # # Page 576
025289,001037: 
025290,001038:                                                                                                 #   GETUM-DETERMINES THE LINE OF SIGHT UNIT VECTOR UM IN THE BASIC REFERENC
025291,001039:                                                                                                 #  E COORDINATE SYSTEM FROM THE OPTICS SHAFT AND TRUNNION ANGLES AND THE IM
025292,001040:                                                                                                 #  U GIMBAL ANGLES.
025293,001041:                                                                                                 #  INPUT
025294,001042:                                                                                                 #     MARKDATA,BASE ADDRESS OF MARK DATA
025295,001043:                                                                                                 #     REFSMMAT,ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF.COORD.SYSTEM
025296,001044: 
025297,001045:                                                                                                 #  SUROUTINES CALLED-
025298,001046:                                                                                                 #     SXTNB - SEXT. ANGULAR READINGS TO NAV. BASE COOR.
025299,001047:                                                                                                 #     NBSM  - TRANSFORM FROM NAV. BASE TO STABLE MEMBER
025300,001048:                                                                                                 #  OUTPUT
025301,001049:                                                                                                 #     MPAC = LINE OF SIGHT 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM
025302,001050:                                                                                                 #  CALLING SEQUENCE
025303,001051:                                                                                                 #     L  CALL GETUM
025304,001052: 
025305,001053:                                                                                                 #  NORMAL EXIT
025306,001054:                                                                                                 #     L+1 OF CALLING SEQUENCE
025307,001055: 
025308,001056: 23,3017           40220        GETUM             STQ      SETPD                                 
025309,001057: 23,3020           02310                                   EGRESS                                
025310,001058: 23,3021           00001                                   0                                     
025311,001059: 23,3022           77624                          CALL                                           
025312,001060: 23,3023           36057                                   SXTSM1                                
025313,001061: 23,3024           76505                          VXM      VSL1                                  
025314,001062: 23,3025           01734                                   REFSMMAT                              
025315,001063: 23,3026           77650                          GOTO                                           #  MPAC = (UM)LINE OF SIGHT VECTOR
025316,001064: 23,3027           02310                                   EGRESS                                #  EXIT
025317,001065: 
025318,001066:                                                                                                 # # Page 577
025319,001067: 
025320,001068:                                                                                                 #  RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
025321,001069: 
025322,001070:                                                                                                 #  FUNCTIONAL DESCRIPTION
025323,001071: 
025324,001072:                                                                                                 #  TO PROCESS RENDEZVOUS SIGHTING MARK AND VHF RANGING DATA TO UPDATE 
025325,001073:                                                                                                 #  THE STATE VECTOR OF EITHER THE CSM OR LM AS DEFINED BY VEHUPFLG.
025326,001074:                                                                                                 #  (VEHUPFLG IS SET TO LM BY P20, CSM BY V81E, AND LM BY V80E.)
025327,001075: 
025328,001076:                                                                                                 #  CALLING SEQUENCE
025329,001077:                                                                                                 #    AUTOMATICALLY SELECTED BY P20
025330,001078: 
025331,001079:                                                                                                 #  SUBROUTINES CALLED
025332,001080:                                                                                                 #    PRIOCHNG            INTPRET             GRP2PC
025333,001081:                                                                                                 #    GETUM               BVECTORS            INCORP1
025334,001082:                                                                                                 #    INCORP2             INTEGRV             PHASCHNG
025335,001083:                                                                                                 #    NOVAC               BANKCALL            GOTOV56
025336,001084:                                                                                                 #    ENDOFJOB            INSTALL             DOWNFLAG
025337,001085:                                                                                                 #    TRFAILOF            TRFAILON            TASKOVER
025338,001086:                                                                                                 #    POSTJUMP
025339,001087: 
025340,001088:                                                                                                 #  NORMAL EXIT MODES
025341,001089:                                                                                                 #    RENDEZVOUS NAVIGATION MAY BE TERMINATED BY THE SELECTION OF
025342,001090:                                                                                                 #    P00, P06, P22, P23, V34E FROM R60, AND V56E
025343,001091: 
025344,001092:                                                                                                 #  ALARMS OR ABORT EXIT MODES
025345,001093:                                                                                                 #    NONE
025346,001094: 
025347,001095:                                                                                                 #  INPUT
025348,001096:                                                                                                 #    MARK DATA. SEE R21 AND R23
025349,001097:                                                                                                 #    VHF RANGING DATA
025350,001098: 
025351,001099:                                                                                                 #  OUTPUT
025352,001100:                                                                                                 #    TRKMKCNT, NO OF RENDEZVOUS TRACKING MARKS INCORPORATED (COUNTER)
025353,001101:                                                                                                 #    VHFCNT, NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
025354,001102:                                                                                                 #    V06N49, EXCESSIVE UPDATE PARAMETERS-DELTA R AND DELTA V
025355,001103: 
025356,001104:                                                                                                 #  FLAGS SET + RESET
025357,001105:                                                                                                 #    SOURCFLG, VINTFLAG, DIM0FLAG, INCORFLG, ORBWFLAG, RENDWFLG
025358,001106:                                                                                                 #    STATEFLG, D6OR9FLG, SKIPVHF, DMENFLG                          AT THE INTERRUPTED DISPLAY.
025359,001107: 
025360,001108: 34,2000                                          SETLOC   P20S3                                 
025361,001109: 34,2000                                          BANK                                           
025362,001110: 
025363,001111: 34,2625                                          COUNT*   $$/R22                                
025364,001112: 34,2625           37650        R22               CAF      PRIO26                                
025365,001113: 34,2626           55262                          TS       PHSPRDT2                              
025366,001114: 34,2627           05176                          TC       PRIOCHNG                              
025367,001115: 34,2630           37700                          CA       NEG3                                  
025368,001116: 34,2631           55722                          TS       MRKBUF1                               
025369,001117: 34,2632           06006                          TC       INTPRET                               
025370,001118:                                                                                                 # # Page 578
025371,001119: 34,2633           77634                          RTB                                            
025372,001120: 34,2634           51751                                   LOADTIME                              
025373,001121: 34,2635           01010                          STORE    VHFTIME                               #  PRESENT TIME
025374,001122: 34,2636           77624        REND1             CALL                                           
025375,001123: 34,2637           22327                                   GRP2PC                                
025376,001124: 34,2640           77624                          CALL                                           
025377,001125: 34,2641           56523                                   WAITONE                               
025378,001126: 34,2642           77776        REND1A            EXIT                                           
025379,001127: 34,2643           31722                          CA       MRKBUF1                               
025380,001128: 34,2644           00006                          EXTEND                                         
025381,001129: 34,2645           12650                          BZF      REND2                                 
025382,001130: 34,2646           00006                          EXTEND                                         
025383,001131: 34,2647           62666                          BZMF     REND3A                                
025384,001132: 34,2650           36211        REND2             CAF      SIX                                   
025385,001133: 34,2651           05607                          TC       GENTRAN                               
025386,001134: 34,2652           01722                          ADRES    MRKBUF1                               
025387,001135: 34,2653           01061                          ADRES    MARKTIME                              #  MARKTIME MUST BE CONTIGUOUS WITH VTEMP
025388,001136: 34,2654           37700                          CAF      NEG3                                  #  NEG VALUE TO INDICATE VALUES USED
025389,001137: 34,2655           55722                          TS       MRKBUF1                               
025390,001138: 34,2656           05547                          TC       UPFLAG                                #  SET FLAG TO INDICATE THAT OPTICS MARK IS
025391,001139: 34,2657           00217                          ADRES    R22CAFLG                              #    BEING PROCESSED (TESTED IN MARK REJCT)
025392,001140: 34,2660           06006                          TC       INTPRET                               
025393,001141: 34,2661           45014                          CLEAR    CALL                                  
025394,001142: 34,2662           04667                                   SOURCFLG                              #  0 = OPTICS DATA
025395,001143: 34,2663           22327                                   GRP2PC                                
025396,001144: 34,2664           77650                          GOTO                                           
025397,001145: 34,2665           70761                                   REND4                                 
025398,001146: 34,2666           06006        REND3A            TC       INTPRET                               
025399,001147: 34,2667           77624        REND3             CALL                                           
025400,001148: 34,2670           22327                                   GRP2PC                                
025401,001149: 34,2671           77624                          CALL                                           
025402,001150: 34,2672           56523                                   WAITONE                               
025403,001151: 34,2673           43014                          BOFF     BOFF                                  
025404,001152: 34,2674           04746                                   VHFRFLAG                              
025405,001153: 34,2675           70642                                   REND1A                                
025406,001154: 34,2676           05346                                   RANGFLAG                              #  RANGE > 200 N.M. DONT READ
025407,001155: 34,2677           70642                                   REND1A                                
025408,001156: 34,2700           77634                          RTB                                            
025409,001157: 34,2701           51751                                   LOADTIME                              #  PRESENT TIME
025410,001158: 34,2702           45225                          DSU      DSU                                   
025411,001159: 34,2703           14651                                   60SECDP                               #  1 MIN
025412,001160: 34,2704           01010                                   VHFTIME                               #  LAST READING OF RADAR
025413,001161: 34,2705           77440                          BMN      EXIT                                  
025414,001162: 34,2706           70642                                   REND1A                                
025415,001163: 34,2707           00004        RANGER0           INHINT                                         #  READ RADAR RANGE
025416,001164: 34,2710           44777                          CS       OCT17                                 
025417,001165: 34,2711           00006                          EXTEND                                         
025418,001166: 34,2712           03013                          WAND     CHAN13                                #  ZERO OUT BITS 1-4 OF CHANNEL 13
025419,001167: 34,2713           00006        RADSTART          EXTEND                                         
025420,001168: 34,2714           00004                          READ     LOSCALAR                              #  READ PRESENT TIME
025421,001169:                                                                                                 # # Page 579
025422,001170: 34,2715           54001                          TS       L                                     
025423,001171: 
025424,001172: 34,2716           74342                          MASK     LOW5                                  #  ONLY THE 5 BITS MATTER
025425,001173: 34,2717           40000                          COM                                            
025426,001174: 34,2720           64763                          AD       BIT6                                  #  COMPUTE DELTA TIME TO NEXT T5 TICK
025427,001175: 34,2721           74342                          MASK     LOW5                                  
025428,001176: 
025429,001177: 34,2722           55064                          TS       RADDEL                                
025430,001178: 34,2723           67701                          AD       NEG2                                  #  IF A TICK OF T5 IS NEAR, WAIT TILL IT
025431,001179: 34,2724           00006                          EXTEND                                         #  HAS TICKED.  MAX DELAY HERE IS
025432,001180: 34,2725           62713                          BZMF     RADSTART                              #  937.5 MICROSEC.
025433,001181: 
025434,001182: 34,2726           34322                          CA       OCT11                                 #  SET RADAD BITS NOW
025435,001183: 34,2727           00006                          EXTEND                                         
025436,001184: 34,2730           05013                          WOR      CHAN13                                
025437,001185: 34,2731           40001                          CS       L                                     
025438,001186: 34,2732           55063                          TS       RADTIME                               #  SAVE NEG TIME OF READ
025439,001187: 
025440,001188: 34,2733           00003                          RELINT                                         
025441,001189: 34,2734           00006                          EXTEND                                         
025442,001190: 34,2735           30025                          DCA      TIME2                                 
025443,001191: 34,2736           53062                          DXCH     MARKTIME                              #  READ PRESENT TIME
025444,001192: 34,2737           05561                          TC       DOWNFLAG                              
025445,001193: 34,2740           00043                          ADRES    SKIPVHF                               #  CLEAR VHF RESTART FLAG
025446,001194: 34,2741           05205                          TC       ENDOFJOB                              #  WAIT FOR RADAR READ
025447,001195: 34,2742           05632        RANGERD1          TC       TRFAILOF                              #  TURN TRACKER LIGHT OFF
025448,001196: 34,2743           11703                          CCS      RM                                    #  15 BIT UNSIGNED RANGE
025449,001197: 34,2744           02750                          TC       RANGERD4                              #  GR + 0
025450,001198: 34,2745           03424                          TC       LIGHTON    +4                         #  =  + 0
025451,001199: 34,2746           03406                          TC       RANGERD3                              #  L  - 0
025452,001200: 34,2747           03406                          TC       RANGERD3                              #  =  - 0
025453,001201: 34,2750           06006        RANGERD4          TC       INTPRET                               
025454,001202: 34,2751           41335                          SLOAD    DMP                                   
025455,001203: 34,2752           03704                                   RM                                    
025456,001204: 34,2753           16535                                   CONVRNGE                              #  CONVERT RANGE TO METERS B-27
025457,001205: 34,2754           01114        RANGERD2          STORE    VHFRANGE                              
025458,001206: 34,2755           71214                          SET      DLOAD                                 
025459,001207: 34,2756           04467                                   SOURCFLG                              #  SOURCE OF DATA TO VHF RADAR
025460,001208: 34,2757           01062                                   MARKTIME                              
025461,001209: 34,2760           01010                          STORE    VHFTIME                               #  FOR DOWNLINK
025462,001210: 34,2761           77624        REND4             CALL                                           
025463,001211: 34,2762           60435                                   UPSTATE                               #  INTEGRATE CSM,LM,W MATRIX
025464,001212: 34,2763           77624                          CALL                                           
025465,001213: 34,2764           56603                                   SHIFTNDX                              #  SET EARTH MOON SCALING INDEX
025466,001214: 34,2765           45014                          CLEAR    CALL                                  
025467,001215: 34,2766           01671                                   ORBWFLAG                              #  CLEAR FOR P22 AND P23
025468,001216: 34,2767           71327                                   CMPOS                                 #  SET CSM POSITION
025469,001217: 34,2770           45014                          SET      CALL                                  
025470,001218: 34,2771           02464                                   INCORFLG                              #  SET FOR FIRST PASS
025471,001219: 34,2772           71336                                   LMPOS                                 #  SET LM POSITION
025472,001220:                                                                                                 # # Page 580
025473,001221: 34,2773           77614                          BON                                            
025474,001222: 34,2774           05310                                   AUTOSEQ                               
025475,001223: 34,2775           47030                                   AUTOW                                 #  AUTOMATIC W MATRIX REINITIALIZATION
025476,001224: 34,2776           77614        REND5B            BON                                            
025477,001225: 34,2777           02716                                   RENDWFLG                              
025478,001226: 34,3000           71017                                   REND6                                 
025479,001227: 34,3001           77745        REND5C            DLOAD                                          
025480,001228: 34,3002           15336                                   ZEROVECS                              
025481,001229: 34,3003           14772                          STODL    VHFCNT                                #  ZERO OUT VHFCNT AND TRKMKCNT
025482,001230: 34,3004           02001                                   WRENDPOS                              
025483,001231: 34,3005           34001                          STCALL   0                                     #  0=WRENDPOS  1=WRENDVEL
025484,001232: 34,3006           56612                                   INITIALW                              #  INITIALIZE W MATRIX
025485,001233: 34,3007           71214                          CLEAR    DLOAD                                 
025486,001234: 34,3010           05267                                   P35FLAG                               
025487,001235: 34,3011           01062                                   MARKTIME                              
025488,001236: 34,3012           03736                          STORE    AGEOFW                                
025489,001237: 34,3013           66214                          CLEAR    SSP                                   
025490,001238: 34,3014           05273                                   PTV93FLG                              
025491,001239: 34,3015           02551                                   COUNT3MK                              
025492,001240: 34,3016           00001                                   1                                     
025493,001241: 34,3017           77614        REND6             SET                                            
025494,001242: 34,3020           02476                                   RENDWFLG                              
025495,001243: 34,3021           52375        REND7             VLOAD    VSU                                   
025496,001244: 34,3022           01054                                   LEMPOS                                
025497,001245: 34,3023           01046                                   CSMPOS                                
025498,001246: 34,3024           03531                          STORE    RCLP                                  #  LM - CSM
025499,001247: 34,3025           43056                          UNIT     BON                                   
025500,001248: 34,3026           04707                                   SOURCFLG                              
025501,001249: 34,3027           71251                                   REND14                                #  BRANCH IF DATA IS RADAR
025502,001250: 34,3030           01130                          STORE    UCL                                   
025503,001251: 34,3031           74014                          BOFF     AXC,1                                 
025504,001252: 34,3032           02744                                   INCORFLG                              
025505,001253: 34,3033           71047                                   REND9                                 
025506,001254: 34,3034           01061                                   MARKTIME                              
025507,001255: 34,3035           77624                          CALL                                           
025508,001256: 34,3036           47017                                   GETUM                                 #  CALCULATE UM LINE OF SIGHT
025509,001257: 34,3037           25072                          STOVL    UM                                    
025510,001258: 34,3040           01130                                   UCL                                   
025511,001259: 34,3041           40035                          VXV      BOV                                   
025512,001260: 34,3042           01072                                   UM                                    #  UCL X UM
025513,001261: 34,3043           71044                                   REND8                                 
025514,001262: 34,3044           40056        REND8             UNIT     BOV                                   
025515,001263: 34,3045           71375                                   RENDISP3                              #  IGNORE MARK RESET FLAGS FOR REJECT
025516,001264: 34,3046           01102                          STORE    USTAR                                 
025517,001265: 34,3047           77624        REND9             CALL                                           
025518,001266: 34,3050           46756                                   BVECTORS                              
025519,001267: 34,3051           77214                          BON      VLOAD                                 
025520,001268: 34,3052           00707                                   VEHUPFLG                              
025521,001269: 34,3053           71057                                   REND9A                                
025522,001270: 34,3054           03502                                   BVECTOR                               
025523,001271:                                                                                                 # # Page 581
025524,001272: 34,3055           77676                          VCOMP                                          
025525,001273: 34,3056           03502                          STORE    BVECTOR                               
025526,001274: 34,3057           77624        REND9A            CALL                                           
025527,001275: 34,3060           22327                                   GRP2PC                                
025528,001276: 34,3061           77614                          BOFF                                           
025529,001277: 34,3062           01341                                   R21MARK                               
025530,001278: 34,3063           71302                                   REND15                                #  BRANCH IF BACKUP OPTICS (R23 WORKING)
025531,001279: 34,3064           43345                          DLOAD    DAD                                   
025532,001280: 34,3065           16457                                   SXTVAR                                
025533,001281: 34,3066           16461                                   IMUVAR                                
025534,001282: 34,3067           27526        REND10            STOVL    VARIANCE                              #  TEMP STORAGE FOR VARIANCE CALC.
025535,001283: 34,3070           03531                                   RCLP                                  
025536,001284: 34,3071           60246                          ABVAL    NORM                                  
025537,001285: 34,3072           00047                                   X1                                    
025538,001286: 34,3073           41316                          DSQ      DMP                                   
025539,001287: 34,3074           03526                                   VARIANCE                              
025540,001288: 34,3075           45070                          XAD,1    CALL                                  
025541,001289: 34,3076           00046                                   X1                                    
025542,001290: 34,3077           56603                                   SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025543,001291: 34,3100           56070                          XAD,1    XAD,1                                 
025544,001292: 34,3101           00047                                   X2                                    
025545,001293: 34,3102           00047                                   X2                                    
025546,001294: 34,3103           72257                          SR*      TLOAD                                 
025547,001295: 34,3104           20577                                   0          -2,1                       #  ADJUST SCALING TO B-40
025548,001296: 34,3105           00155                                   MPAC                                  
025549,001297: 34,3106           03526                          STORE    VARIANCE                              
025550,001298: 34,3107           54335                          SLOAD    SR                                    
025551,001299: 34,3110           02400                                   INTVAR                                #  INTEGRATION VARIANCE SCALED B-15
025552,001300: 34,3111           20632                                   25D                                   #  SCALE IT B-40
025553,001301: 34,3112           47171                          TAD      RTB                                   
025554,001302: 34,3113           03526                                   VARIANCE                              
025555,001303: 34,3114           45657                                   TPMODE                                
025556,001304: 34,3115           03526                          STORE    VARIANCE                              
025557,001305: 34,3116           76214                          BOFF     TAD                                   
025558,001306: 34,3117           04747                                   SOURCFLG                              #  BRANCH IF NOT VHF RADAR
025559,001307: 34,3120           71127                                   REND10A                               
025560,001308: 34,3121           03005                                   RVARMIN                               #  VHF RADAR MIN. VARIANCE
025561,001309: 34,3122           72244                          BPL      TLOAD                                 
025562,001310: 34,3123           71127                                   REND10A                               
025563,001311: 34,3124           03005                                   RVARMIN                               
025564,001312: 34,3125           77646                          ABS                                            #  MIN. VALUE WAS STORED AS NEG.
025565,001313: 34,3126           03526                          STORE    VARIANCE                              #  STORE MIN. VALUE
025566,001314: 34,3127           45014        REND10A           CLEAR    CALL                                  
025567,001315: 34,3130           02666                                   DMENFLG                               #  CLEAR FOR 6 X 6 W MATRIX
025568,001316: 34,3131           75260                                   INCORP1                               #  CALCULATE UPDATE
025569,001317: 34,3132           77624                          CALL                                           
025570,001318: 34,3133           22327                                   GRP2PC                                
025571,001319: 34,3134           45014                          BOFF     CALL                                  
025572,001320: 34,3135           02744                                   INCORFLG                              
025573,001321: 34,3136           71176                                   REND12                                
025574,001322:                                                                                                 # # Page 582
025575,001323: 34,3137           56603                                   SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025576,001324: 34,3140           51575                          VLOAD    ABVAL                                 
025577,001325: 34,3141           01122                                   DELTAX     +6                         
025578,001326: 34,3142           77657                          SR*                                            
025579,001327: 34,3143           57176                                   0,2                                   
025580,001328: 34,3144           27504                          STOVL    N49DISP    +2                         
025581,001329: 34,3145           01114                                   DELTAX                                
025582,001330: 34,3146           53646                          ABVAL    SR*                                   
025583,001331: 34,3147           57176                                   0,2                                   
025584,001332: 34,3150           03502                          STORE    N49DISP                               
025585,001333: 34,3151           43131                          SSP      BON                                   
025586,001334: 34,3152           03506                                   N49DISP    +4                         
025587,001335: 34,3153           00002                          OCT      2                                     
025588,001336: 34,3154           04707                                   SOURCFLG                              
025589,001337: 34,3155           71163                                   REND10B                               #  VHF MARK CODE
025590,001338: 34,3156           66214                          BON      SSP                                   
025591,001339: 34,3157           05303                                   REJCTFLG                              
025592,001340: 34,3160           71375                                   RENDISP3                              
025593,001341: 34,3161           03506                                   N49DISP    +4                         #  OPTICS MARK CODE
025594,001342: 34,3162           00001                          OCT      1                                     
025595,001343: 34,3163           77735        REND10B           SLOAD                                          
025596,001344: 34,3164           02003                                   RMAX                                  
025597,001345: 34,3165           45261                          SR       DSU                                   
025598,001346: 34,3166           20613                                   10D                                   
025599,001347: 34,3167           03502                                   N49DISP                               
025600,001348: 34,3170           67240                          BMN      SLOAD                                 
025601,001349: 34,3171           71345                                   RENDISP                               #  BRANCH IF POS UP.GREATER THAN MAX.
025602,001350: 34,3172           02004                                   VMAX                                  
025603,001351: 34,3173           50025                          DSU      BMN                                   
025604,001352: 34,3174           03504                                   N49DISP    +2                         
025605,001353: 34,3175           71345                                   RENDISP                               #  BRANCH IF VEL.UPDATE GREATER THAN MAX.
025606,001354: 34,3176           77624        REND12            CALL                                           
025607,001355: 34,3177           75472                                   INCORP2                               #  INCORPORATE UPDATE VALUES INTO STATE VEC
025608,001356: 34,3200           71214                          BOFF     DLOAD                                 
025609,001357: 34,3201           02744                                   INCORFLG                              
025610,001358: 34,3202           71217                                   REND12A                               #  BRANCH IF 1ST PASS OPTICS
025611,001359: 34,3203           01062                                   MARKTIME                              
025612,001360: 34,3204           03734                          STORE    OLDMKTME                              #  SAVE OLD MARK TIME
025613,001361: 34,3205           67214                          CLEAR    SLOAD                                 
025614,001362: 34,3206           05272                                   MANEUFLG                              #  CLEAR MANEUVER FLAG
025615,001363: 34,3207           02551                                   COUNT3MK                              
025616,001364: 34,3210           45254                          BZE      DSU                                   
025617,001365: 34,3211           71217                                   REND12A                               
025618,001366: 34,3212           07142                                   HIGH3                                 #  CHECK IF 3 MARKS TAKEN
025619,001367: 34,3213           66240                          BMN      SSP                                   
025620,001368: 34,3214           71237                                   REND13A                               #  BRANCH IF NOT 3 YET
025621,001369: 34,3215           02551                                   COUNT3MK                              #  SET COUNT EQUAL TO 0
025622,001370: 34,3216           00000                          DEC      0          B-14                       
025623,001371: 34,3217           43014        REND12A           BON      BOFF                                  
025624,001372: 34,3220           04707                                   SOURCFLG                              
025625,001373:                                                                                                 # # Page 583
025626,001374: 34,3221           71307                                   REND16                                #  BRANCH IF DATA IS RADAR
025627,001375: 34,3222           02744                                   INCORFLG                              
025628,001376: 34,3223           71315                                   REND17                                
025629,001377: 34,3224           77624                          CALL                                           
025630,001378: 34,3225           56603                                   SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025631,001379: 34,3226           45014                          BON      CALL                                  
025632,001380: 34,3227           00707                                   VEHUPFLG                              
025633,001381: 34,3230           71323                                   REND18                                #  BRANCH IF CSM UPDATE
025634,001382: 34,3231           71336                                   LMPOS                                 #  GET LM POSITION
025635,001383: 34,3232           77624        REND13            CALL                                           
025636,001384: 34,3233           22327                                   GRP2PC                                #  PHASE CHANGE
025637,001385: 34,3234           77614                          CLRGO                                          
025638,001386: 34,3235           02624                                   INCORFLG                              
025639,001387: 34,3236           71021                                   REND7                                 #  BRANCH FOR 2ND PASS THIS OPTICS MARK
025640,001388: 34,3237           77735        REND13A           SLOAD                                          
025641,001389: 34,3240           02551                                   COUNT3MK                              
025642,001390: 34,3241           37732                          STCALL   CNT3TEMP                              
025643,001391: 34,3242           22327                                   GRP2PC                                #  PHASE CHANGE
025644,001392: 34,3243           62150                          LXA,1    INCR,1                                
025645,001393: 34,3244           03731                                   CNT3TEMP                              
025646,001394: 34,3245           00001                          DEC      1          B-14                       #  ADD ONE TO MARK COUNT
025647,001395: 34,3246           52130                          SXA,1    GOTO                                  
025648,001396: 34,3247           02550                                   COUNT3MK                              
025649,001397: 34,3250           71217                                   REND12A                               
025650,001398: 30,2000                                          SETLOC   P20S1                                 
025651,001399: 30,2000                                          BANK                                           
025652,001400: 
025653,001401: 30,2435                                          COUNT*   $$/R22                                
025654,001402: 30,2435           45020        UPSTATE           STQ      CALL                                  #  INTEGRATE NON-UPDATED VEHICLE STATE
025655,001403: 30,2436           01006                                   POINTEX                               #    VECTOR
025656,001404: 30,2437           56462                                   SETINTG                               #  SET INTEGRV FLAGS   VINTFLAG=1 FOR CSM
025657,001405: 30,2440           43014                          BOFF     CLEAR                                 
025658,001406: 30,2441           00747                                   VEHUPFLG                              #  0=LM 1=CSM FOR UPDATE VEHICLE
025659,001407: 30,2442           60444                                   REND4A                                #  INTEGRATE CSM
025660,001408: 30,2443           01674                                   VINTFLAG                              #  INTEGRATE LM
025661,001409: 30,2444           77624        REND4A            CALL                                           
025662,001410: 30,2445           27236                                   INTEGRV                               
025663,001411: 30,2446           77624                          CALL                                           
025664,001412: 30,2447           22327                                   GRP2PC                                #  PHASE CHANGE
025665,001413: 30,2450           77624                          CALL                                           #  INTEGRATE UPDATED VEHICLE
025666,001414: 30,2451           56462                                   SETINTG                               #  SET INTEGRV FLAGS   VINTFLAG=1 FOR CSM
025667,001415: 30,2452           43014                          BOFF     SET                                   
025668,001416: 30,2453           02756                                   RENDWFLG                              
025669,001417: 30,2454           60456                                   REND5                                 #  IF FLAG=0 DO NOT INTEGRATE W MATRIX
025670,001418: 30,2455           01476                                   DIM0FLAG                              #  INTEGRATE VALID W MATRIX
025671,001419: 30,2456           43014        REND5             BON      CLEAR                                 
025672,001420: 30,2457           00707                                   VEHUPFLG                              
025673,001421: 30,2460           60462                                   REND5A                                #  INTEGRATE CSM
025674,001422: 30,2461           01674                                   VINTFLAG                              #  INTEGRATE LM
025675,001423: 30,2462           77624        REND5A            CALL                                           
025676,001424:                                                                                                 # # Page 584
025677,001425: 30,2463           27236                                   INTEGRV                               
025678,001426: 30,2464           77650                          GOTO                                           
025679,001427: 30,2465           01006                                   POINTEX                               
025680,001428: 34,2000                                          SETLOC   P20S3                                 
025681,001429: 34,2000                                          BANK                                           
025682,001430: 
025683,001431: 34,3251                                          COUNT*   $$/R22                                
025684,001432: 34,3251           27502        REND14            STOVL    BVECTOR                               #  VHF RADAR BVECTOR
025685,001433: 34,3252           15336                                   ZEROVECS                              
025686,001434: 34,3253           03510                          STORE    BVECTOR    +6                         
025687,001435: 34,3254           27516                          STOVL    BVECTOR    +12D                       
025688,001436: 34,3255           03531                                   RCLP                                  
025689,001437: 34,3256           71256                          UNIT     DLOAD                                 
025690,001438: 34,3257           01114                                   VHFRANGE                              #  VHFRANGE SCALED B-27
025691,001439: 34,3260           60414                          BON      SR2                                   
025692,001440: 34,3261           04303                                   MOONTHIS                              
025693,001441: 34,3262           71263                                   +1                                    
025694,001442: 34,3263           43025                          DSU      SET                                   
025695,001443: 34,3264           00045                                   36D                                   #  ABVAL (RCLP)
025696,001444: 34,3265           02464                                   INCORFLG                              
025697,001445: 34,3266           03524                          STORE    DELTAQ                                
025698,001446: 34,3267           77214                          BOFF     VLOAD                                 
025699,001447: 34,3270           00747                                   VEHUPFLG                              
025700,001448: 34,3271           71275                                   REND14A                               
025701,001449: 34,3272           03502                                   BVECTOR                               
025702,001450: 34,3273           77676                          VCOMP                                          
025703,001451: 34,3274           03502                          STORE    BVECTOR                               
025704,001452: 34,3275           77624        REND14A           CALL                                           
025705,001453: 34,3276           22327                                   GRP2PC                                
025706,001454: 34,3277           52145                          DLOAD    GOTO                                  
025707,001455: 34,3300           03003                                   RVAR                                  
025708,001456: 34,3301           71067                                   REND10                                
025709,001457: 34,3302           43335        REND15            SLOAD    DAD                                   #  GET ALT LOS VARIANCE
025710,001458: 34,3303           01350                                   ALTVAR                                #  BACKUP OPTICS
025711,001459: 34,3304           16461                                   IMUVAR                                #  IMU VARIANCE
025712,001460: 34,3305           77650                          GOTO                                           
025713,001461: 34,3306           71067                                   REND10                                
025714,001462: 34,3307           62150        REND16            LXA,1    INCR,1                                
025715,001463: 34,3310           00771                                   VHFCNT                                #  VHF RADAR UPDATE COUNT
025716,001464: 34,3311           00001                          DEC      1          B-14                       
025717,001465: 34,3312           52130                          SXA,1    GOTO                                  
025718,001466: 34,3313           00771                                   VHFCNT                                #  UPDATE COUNT
025719,001467: 34,3314           71375                                   RENDISP3                              
025720,001468: 34,3315           62150        REND17            LXA,1    INCR,1                                
025721,001469: 34,3316           00772                                   TRKMKCNT                              #  OPTICS MARK COUNT
025722,001470: 34,3317           00001                          DEC      1          B-14                       
025723,001471: 34,3320           52130                          SXA,1    GOTO                                  
025724,001472: 34,3321           00772                                   TRKMKCNT                              #  UPDATE COUNT
025725,001473: 34,3322           71375                                   RENDISP3                              
025726,001474: 34,3323           77624        REND18            CALL                                           
025727,001475:                                                                                                 # # Page 585
025728,001476: 34,3324           71327                                   CMPOS                                 #  GET CSM POSITION
025729,001477: 34,3325           77650                          GOTO                                           
025730,001478: 34,3326           71232                                   REND13                                
025731,001479: 34,2000                                          SETLOC   P20S3                                 
025732,001480: 34,2000                                          BANK                                           
025733,001481: 
025734,001482: 34,3327                                          COUNT*   $$/R22                                
025735,001483: 34,3327           53775        CMPOS             VLOAD    VSR*                                  
025736,001484: 34,3330           01573                                   DELTACSM                              
025737,001485: 34,3331           57167                                   7,2                                   
025738,001486: 34,3332           77655                          VAD                                            
025739,001487: 34,3333           01607                                   RCVCSM                                
025740,001488: 34,3334           01046                          STORE    CSMPOS                                #  CSM POSITION SCALED B-27 OR B-29
025741,001489: 34,3335           77616                          RVQ                                            
025742,001490: 34,3336           53775        LMPOS             VLOAD    VSR*                                  
025743,001491: 34,3337           01645                                   DELTALEM                              
025744,001492: 34,3340           57167                                   7,2                                   
025745,001493: 34,3341           77655                          VAD                                            
025746,001494: 34,3342           01661                                   RCVLEM                                
025747,001495: 34,3343           01054                          STORE    LEMPOS                                #  LM POSITION SCALED B-27 OR B-29
025748,001496: 34,3344           77616                          RVQ                                            
025749,001497: 34,2000                                          SETLOC   P20S3                                 
025750,001498: 34,2000                                          BANK                                           
025751,001499: 
025752,001500: 34,3345                                          COUNT*   $$/R22                                
025753,001501: 34,3345           77776        RENDISP           EXIT                                           
025754,001502: 34,3346           34772                          CAF      ZERO                                  #  SET TEMPOR1 > ZERO TO INDICATE
025755,001503: 34,3347           55135                          TS       TEMPOR1                               #  V06 N49 DISPLAY HASNT BEEN ANSWERED
025756,001504: 34,3350           05402                          TC       PHASCHNG                              
025757,001505: 34,3351           04022                          OCT      04022                                 
025758,001506: 34,3352           37651                          CAF      PRIO27                                #  SET UP DISPLAY JOB WITH HIGHER PRIORITY
025759,001507: 34,3353           05121                          TC       NOVAC                                 
025760,001508: 34,3354  E7,1722                                 EBANK=   MRKBUF1                               #  THAN PRESENT JOB
025761,001509: 34,3354           03366 70067                    2CADR    RENDISP2                              
025762,001510: 
025763,001511: 34,3356           06006        RENDISP7          TC       INTPRET                               
025764,001512: 34,3357           00155                          STORE    MPAC                                  
025765,001513: 34,3360           53135                          SLOAD    BZE                                   
025766,001514: 34,3361           01136                                   TEMPOR1                               
025767,001515: 34,3362           71357                                   RENDISP7   +1                         #  DISPLAY HAS NOT BEEN ANSWERED YET
025768,001516: 34,3363           52040                          BMN      GOTO                                  
025769,001517: 34,3364           71176                                   REND12                                #  NEG INDICATES PROCEED
025770,001518: 34,3365           71375                                   RENDISP3                              #  POS INDICATES RECYCLE
025771,001519: 34,3366           35030        RENDISP2          CAF      V06N49                                
025772,001520: 34,3367           04636                          TC       BANKCALL                              
025773,001521: 34,3370           20753                          CADR     PRIODSP                               
025774,001522: 34,3371           04546                          TC       GOTOV56                               #  TERM EXIT P20 VIA V56
025775,001523: 34,3372           44770                          CS       ONE                                   #  NEG INDICATES PROCEED RENDISP7 JOB
025776,001524: 34,3373           55135                          TS       TEMPOR1                               #  POS INDICATES RECYCLE RENDISP7 JOB
025777,001525: 34,3374           05205                          TC       ENDOFJOB                              #  GO COMPLETE ABOVE JOB
025778,001526:                                                                                                 # # Page 586
025779,001527: 34,3375           77624        RENDISP3          CALL                                           
025780,001528: 34,3376           22327                                   GRP2PC                                
025781,001529: 34,3377           43014                          CLEAR    CLEAR                                 #  RESET FLAGS
025782,001530: 34,3400           04670                                   R22CAFLG                              
025783,001531: 34,3401           05263                                   REJCTFLG                              
025784,001532: 34,3402           52014                          BON      GOTO                                  
025785,001533: 34,3403           04707                                   SOURCFLG                              
025786,001534: 34,3404           70636                                   REND1                                 #  DATA WAS RADAR GO LOOK FOR OPTICS NEXT
025787,001535: 34,3405           70667                                   REND3                                 
025788,001536: 23,2000                                          SETLOC   P20S2                                 
025789,001537: 23,2000                                          BANK                                           
025790,001538: 
025791,001539: 23,3030                                          COUNT*   $$/R22                                
025792,001540: 
025793,001541: 23,3030           67214        AUTOW             BON      SLOAD                                 
025794,001542: 23,3031           05312                                   MANEUFLG                              #  MANEUVER DONE IF SET
025795,001543: 23,3032           50104                                   AUTOW3                                
025796,001544: 23,3033           02551                                   COUNT3MK                              #  COUNT OF MARKS SINCE W REINITIALIZED
025797,001545: 23,3034           52054                          BZE      GOTO                                  
025798,001546: 23,3035           47037                                   AUTOW1A                               
025799,001547: 23,3036           47133                                   AUTOW2                                
025800,001548: 23,3037           77614        AUTOW1A           BOFF                                           
025801,001549: 23,3040           05354                                   TPIMNFLG                              #  NOT AFTER TPI
025802,001550: 23,3041           47046                                   AUTOW1                                #  NOT AFTER TPI
025803,001551: 23,3042           52014                          BOFF     GOTO                                  
025804,001552: 23,3043           05347                                   P35FLAG                               
025805,001553: 23,3044           47133                                   AUTOW2                                
025806,001554: 23,3045           71001                                   REND5C                                
025807,001555: 23,3046           71201        AUTOW1            SETPD    DLOAD                                 #  PUT TIG
025808,001556: 23,3047           00001                                   0                                     #          OR
025809,001557: 23,3050           03413                                   TIG                                   #            TCDH IF P. C.
025810,001558: 23,3051           71214                          BOFF     DLOAD                                 
025811,001559: 23,3052           05356                                   PCFLAG                                #                    PUSH LIST 0
025812,001560: 23,3053           47055                                   AUTOW11                               
025813,001561: 23,3054           02461                                   TCDH                                  
025814,001562: 23,3055           67206        AUTOW11           PUSH     SLOAD                                 #  PD 0,1 = TIG OR TCDH IF P C
025815,001563: 23,3056           02372                                   WRDTIME                               
025816,001564: 23,3057           67206                          PUSH     SLOAD                                 #  PD 2,3 = WRDTIME
025817,001565: 23,3060           02373                                   MINBLKTM                              
025818,001566: 23,3061           67206                          PUSH     SLOAD                                 #  PD 4,5 = MINBLKTM
025819,001567: 23,3062           02374                                   TBEFCOMP                              
025820,001568: 23,3063           67206                          PUSH     SLOAD                                 #  PD 6,7 = TBEFCOMP
025821,001569: 23,3064           02375                                   BRNBLKTM                              
025822,001570: 23,3065           67206                          PUSH     SLOAD                                 #  PD 8,9 = BRNBLKTM
025823,001571: 23,3066           02376                                   MAXWTIME                              
025824,001572: 23,3067           67206                          PUSH     SLOAD                                 #  PD 10,11 == MAXWTIME
025825,001573: 23,3070           02377                                   FINCMPTM                              
025826,001574: 23,3071           71206                          PUSH     DLOAD                                 #  PD 12,13 = FINCMPTM
025827,001575: 23,3072           01062                                   MARKTIME                              
025828,001576: 23,3073           45225                          DSU      DSU                                   
025829,001577: 23,3074           00003                                   2                                     #  WRDTIME
025830,001578:                                                                                                 # # Page 587
025831,001579: 23,3075           03736                                   AGEOFW                                
025832,001580: 23,3076           71240                          BMN      DLOAD                                 
025833,001581: 23,3077           47133                                   AUTOW2                                #  AGEOFW GR WRDTIME
025834,001582: 23,3100           03734                                   OLDMKTME                              
025835,001583: 23,3101           43225                          DSU      DAD                                   
025836,001584: 23,3102           01062                                   MARKTIME                              #  MARK TIME
025837,001585: 23,3103           00005                                   4                                     #  MINBLKTM
025838,001586: 23,3104           71240                          BMN      DLOAD                                 
025839,001587: 23,3105           50114                                   AUTOW4                                #  (TIME - OLDMKTME) GR MIN
025840,001588: 23,3106           01062                                   MARKTIME                              
025841,001589: 23,3107           51025                          DSU      BPL                                   
025842,001590: 23,3110           00001                                   0D                                    #  TIG
025843,001591: 23,3111           50120                                   AUTOW5                                #  REINITIALIZE - TIG IS IN THE PAST
025844,001592: 23,3112           77615                          DAD                                            
025845,001593: 23,3113           00015                                   12D                                   #  FINCMPTM
025846,001594: 23,3114           50015                          DAD      BMN                                   
025847,001595: 23,3115           00007                                   6D                                    #  TBEFCOMP
025848,001596: 23,3116           50120                                   AUTOW5                                #  (FINCMPTM - TIME) GR TBEFCOMP
025849,001597: 23,3117           43345                          DLOAD    DAD                                   
025850,001598: 23,3120           00001                                   0                                     
025851,001599: 23,3121           07137                                   3MINCON                               #  3 MIN CONSTANT (APPROX)
025852,001600: 23,3122           43225                          DSU      DAD                                   
025853,001601: 23,3123           00015                                   12D                                   #  FINCMPTM
025854,001602: 23,3124           00011                                   8D                                    #  BRNBLKTM
025855,001603: 23,3125           45225                          DSU      DSU                                   
025856,001604: 23,3126           03736                                   AGEOFW                                
025857,001605: 23,3127           00013                                   10D                                   #  MAXWTIME
025858,001606: 23,3130           43040                          BMN      SET                                   
025859,001607: 23,3131           47133                                   AUTOW2                                #  FINCOM + BRNBLK+3MIN+AGE GR MAXWTIME
025860,001608: 23,3132           05073                                   PTV93FLG                              #  POST BURN V93 REQUEST FLAG
025861,001609: 23,3133           52014        AUTOW2            CLEAR    GOTO                                  
025862,001610: 23,3134           01671                                   ORBWFLAG                              #  P22 W MATRIX FLAG
025863,001611: 23,3135           70776                                   REND5B                                
025864,001612: 23,3136           00001        3MINCON           DEC      1.0        B-14                       #  2.74 MIN
025865,001613: 23,3137           00002 00000  HIGH2             2DEC     2.0        B-14                       
025866,001614: 23,3141           00003 00000  HIGH3             2DEC     3.0        B-14                       
025867,001615: 
025868,001616: 24,2000                                          SETLOC   P20S5                                 
025869,001617: 24,2000                                          BANK                                           
025870,001618: 
025871,001619: 24,2104                                          COUNT*   $$/R22                                
025872,001620: 24,2104           43014        AUTOW3            BON      BOFF                                  
025873,001621: 24,2105           05313                                   PTV93FLG                              
025874,001622: 24,2106           71001                                   REND5C                                
025875,001623: 24,2107           05354                                   TPIMNFLG                              
025876,001624: 24,2110           50114                                   AUTOW4                                
025877,001625: 24,2111           77614                          BOFF                                           
025878,001626: 24,2112           05355                                   FULTKFLG                              
025879,001627: 24,2113           71001                                   REND5C                                #  BRANCH IF VHF AND OPTICS MARKING
025880,001628:                                                                                                 # # Page 588
025881,001629: 24,2114           52131        AUTOW4            SSP      GOTO                                  
025882,001630: 24,2115           02551                                   COUNT3MK                              #  SET 3 MARK COUNTER EQ 1
025883,001631: 24,2116           00001                          DEC      1          B-14                       
025884,001632: 24,2117           47133                                   AUTOW2                                #  BYPASS REINITIALIZING W MATRIX
025885,001633: 24,2120           52014        AUTOW5            CLEAR    GOTO                                  
025886,001634: 24,2121           05273                                   PTV93FLG                              
025887,001635: 24,2122           71001                                   REND5C                                
025888,001636: 
025889,001637: 27,2000                                          SETLOC   R22S1                                 
025890,001638: 27,2000                                          BANK                                           
025891,001639: 
025892,001640: 27,2456                                          COUNT*   $$/R22                                
025893,001641: 27,2456           00052 36307  SXTVAR            2DEC     0.04       E-6        B+16            #  SXT ERROR VARIANCE = .04 (MR)SQ
025894,001642: 27,2460           00052 36307  IMUVAR            2DEC     0.04       E-6        B+16            #  IMU ERROR VARIANCE = .04 (MR)SQ
025895,001643: 27,2462           45020        SETINTG           STQ      CALL                                  
025896,001644: 27,2463           02310                                   EGRESS                                
025897,001645: 27,2464           27516                                   INTSTALL                              #  RESERVE INTEGRATION
025898,001646: 27,2465           43145                          DLOAD    SET                                   
025899,001647: 27,2466           01062                                   MARKTIME                              
025900,001648: 27,2467           01472                                   STATEFLG                              
025901,001649: 27,2470           00041                          STORE    TDEC1                                 #  MARKTIME
025902,001650: 27,2471           43014                          CLEAR    CLEAR                                 
025903,001651: 27,2472           01673                                   INTYPFLG                              #  PRECISION INTEGRATION
025904,001652: 27,2473           01676                                   DIM0FLAG                              
025905,001653: 27,2474           43014                          SET      CLRGO                                 
025906,001654: 27,2475           01474                                   VINTFLAG                              #  SET VEHICLE EQ. CSM
025907,001655: 27,2476           01635                                   D6OR9FLG                              #  SET W MATRIX DIM. EQ 6
025908,001656: 27,2477           02310                                   EGRESS                                #  EXIT
025909,001657: 27,2500           43014        CONTCHK           BOFF     BOFF                                  
025910,001658: 27,2501           00350                                   RNDVZFLG                              
025911,001659: 27,2502           31263                                   ENDPLAC                               
025912,001660: 
025913,001661: 27,2503           01742                                   REFSMFLG                              #  BRANCH TO END OF JOB IF REFSMMAT NO GOOD
025914,001662: 27,2504           31263                                   ENDPLAC                               
025915,001663: 27,2505           50135                          SLOAD    BMN                                   
025916,001664: 27,2506           03375                                   R61CNTR                               
025917,001665: 27,2507           56525                                   WAITONE1                              
025918,001666: 27,2510           43014                          BON      BOFF                                  #  IS TRACK FLAG SET
025919,001667: 27,2511           00710                                   UPDATFLG                              
025920,001668: 27,2512           01006                                   POINTEX                               
025921,001669: 27,2513           00752                                   TRACKFLG                              
025922,001670: 27,2514           31263                                   ENDPLAC                               
025923,001671: 27,2515           77776                          EXIT                                           
025924,001672: 27,2516           05402        REDOR22           TC       PHASCHNG                              
025925,001673: 27,2517           00132                          OCT      00132                                 
025926,001674: 27,2520  01,2047               2P13SPT1          =        2.13SPOT                              
025927,001675: 27,2520           37650                          CAF      PRIO26                                
025928,001676: 27,2521           05176                          TC       PRIOCHNG                              
025929,001677:                                                                                                 # # Page 589
025930,001678: 27,2522           12526                          TCF      WAITONE1   +1                         
025931,001679: 
025932,001680: 27,2523           77620        WAITONE           STQ                                            
025933,001681: 27,2524           01006                                   POINTEX                               
025934,001682: 27,2525           77776        WAITONE1          EXIT                                           
025935,001683: 27,2526           35020                 +1       CAF      4SECS                                 #  WAIT 4 SECS.
025936,001684: 27,2527           04636                          TC       BANKCALL                              
025937,001685: 27,2530           01731                          CADR     DELAYJOB                              
025938,001686: 27,2531           06006                          TC       INTPRET                               
025939,001687: 27,2532           77650                          GOTO                                           
025940,001688: 27,2533           56500                                   CONTCHK                               #  CHECK AGAIN NOW
025941,001689: 34,2000                                          SETLOC   P20S3                                 
025942,001690: 34,2000                                          BANK                                           
025943,001691: 
025944,001692: 34,3406                                          COUNT*   $$/R22                                
025945,001693: 34,3406           31703        RANGERD3          CA       RM                                    
025946,001694: 34,3407           74750                          MASK     POSMAX                                
025947,001695: 34,3410           54154                          TS       MPAC                                  #  MASK OUT NEG. SIGN BIT
025948,001696: 34,3411           06006                          TC       INTPRET                               
025949,001697: 34,3412           41335                          SLOAD    DMP                                   
025950,001698: 34,3413           00155                                   MPAC                                  #  CLEAR MPAC +1
025951,001699: 34,3414           16535                                   CONVRNGE                              #  CONVERT FROM NM TO METERS AND SCALE B-27
025952,001700: 34,3415           52015                          DAD      GOTO                                  
025953,001701: 34,3416           16535                                   CONVRNGE                              #  VALUE IN METERS OF SIGN BIT SCALED B-27
025954,001702: 34,3417           70754                                   RANGERD2                              
025955,001703: 34,3420           31113        LIGHTON           CA       VHFRANGE                              
025956,001704: 34,3421           00006                          EXTEND                                         
025957,001705: 34,3422           13424                          BZF      +2                                    
025958,001706: 34,3423           05644                          TC       TRFAILON                              
025959,001707: 34,3424           06006                 +4       TC       INTPRET                               
025960,001708: 34,3425           77745                          DLOAD                                          
025961,001709: 34,3426           01062                                   MARKTIME                              
025962,001710: 34,3427           01010                          STORE    VHFTIME                               
025963,001711: 34,3430           77650                          GOTO                                           
025964,001712: 34,3431           70636                                   REND1                                 
025965,001713: 34,3432     4777               OCT17             EQUALS   LOW4                                  
025966,001714: 27,2000                                          SETLOC   R22S1                                 
025967,001715: 27,2000                                          BANK                                           
025968,001716: 
025969,001717: 27,2534                                          COUNT*   $$/R22                                
025970,001718: 27,2534           00045 01217  CONVRNGE          2DEC     18.52      B-13                       #  VHF INPUT RANGE CONV.FROM.01 NM TO M
025971,001719:                                                                                                 #                                 AND 16384 X 18.52 = METERS FOR SIGN BIT
025972,001720: 27,2536           00006        VHFREAD           EXTEND                                         
025973,001721: 27,2537           04007                          ROR      SUPERBNK                              #  MUST SAVE SBANK BECAUSE OF RUPT
025974,001722: 27,2540           54016                          TS       BANKRUPT                              #  EXITS VIA RESUME, LIGHTON, RANGERD1
025975,001723: 27,2541           00006                          EXTEND                                         
025976,001724: 27,2542           22012                          QXCH     QRUPT                                 
025977,001725: 27,2543           40076                          CS       FLAGWRD2                              
025978,001726: 27,2544           74757                          MASK     SKIPVBIT                              #  SKIPVHF FLAG
025979,001727:                                                                                                 # # Page 590
025980,001728: 27,2545           00006                          EXTEND                                         
025981,001729: 27,2546           15323                          BZF      RESUME                                #  BRANCH IF VHF RESTART BIT SET
025982,001730: 27,2547           34762                          CAF      UPDATBIT                              
025983,001731: 27,2550           70075                          MASK     FLAGWRD1                              #  UPDATEFLG
025984,001732: 27,2551           00006                          EXTEND                                         
025985,001733: 27,2552           12574                          BZF      BYPASS1                               
025986,001734: 27,2553           40100                          CS       FLAGWRD4                              
025987,001735: 27,2554           74755                          MASK     PDSPFBIT                              #  PDSPFLAG
025988,001736: 27,2555           00006                          EXTEND                                         
025989,001737: 27,2556           12574                          BZF      BYPASS1                               
025990,001738: 27,2557           30046                          CA       RNRAD                                 
025991,001739: 27,2560           55703                          TS       RM                                    #  SAVE RANGE
025992,001740: 27,2561           34767                          CAF      BIT2                                  
025993,001741: 27,2562           00006                          EXTEND                                         
025994,001742: 27,2563           02033                          RAND     CHAN33                                #  READ DATA GOOD BIT
025995,001743: 27,2564           00006                          EXTEND                                         
025996,001744: 27,2565           12576                          BZF      VHFGOOD                               #  BRANCH IF DATA GOOD BIT EQUALS GOOD
025997,001745: 27,2566           55113        BYPASS            TS       VHFRANGE                              #  STORE NON ZERO VALUE
025998,001746: 27,2567           37650                          CAF      PRIO26                                
025999,001747: 27,2570           05135                          TC       FINDVAC                               
026000,001748: 27,2571  E7,1722                                 EBANK=   MRKBUF1                               
026001,001749: 27,2571           03420 70067                    2CADR    LIGHTON                               
026002,001750: 
026003,001751: 27,2573           05323                          TC       RESUME                                
026004,001752: 
026005,001753: 27,2574           34772        BYPASS1           CAF      ZERO                                  
026006,001754: 27,2575           02566                          TC       BYPASS                                
026007,001755: 27,2576           37650        VHFGOOD           CAF      PRIO26                                
026008,001756: 27,2577           05135                          TC       FINDVAC                               
026009,001757: 27,2600  E7,1722                                 EBANK=   MRKBUF1                               
026010,001758: 27,2600           02742 70067                    2CADR    RANGERD1                              
026011,001759: 
026012,001760: 27,2602           05323                          TC       RESUME                                
026013,001761: 
026014,001762: 27,2603           77774        SHIFTNDX          AXT,2                                          
026015,001763: 27,2604           00000                                   0                                     
026016,001764: 27,2605           43414                          BON      RVQ                                   
026017,001765: 27,2606           04303                                   CMOONFLG                              #  MOON ORB.
026018,001766: 27,2607           56610                                   +1                                    
026019,001767: 27,2610           43514                          INCR,2   RVQ                                   
026020,001768: 27,2611           77775                          DEC      -2         B-14                       
026021,001769: 27,2612           66370        INITIALW          AXT,1    SSP                                   
026022,001770: 27,2613           00044                                   36D                                   
026023,001771: 27,2614           00051                                   S1                                    
026024,001772: 27,2615           00006                                   6                                     
026025,001773: 27,2616           77775                          VLOAD                                          
026026,001774: 27,2617           15336                                   ZEROVECS                              
026027,001775: 27,2620           06445        INITA             STORE    W          +36D,1                     #  CLEAR 0 - 35
026028,001776: 27,2621           06533                          STORE    W          +90D,1                     #  CLEAR 54-89
026029,001777: 27,2622           67300                          TIX,1    SLOAD                                 
026030,001778:                                                                                                 # # Page 591
026031,001779: 27,2623           56620                                   INITA                                 
026032,001780: 27,2624           00001                                   0                                     #  POSITION VALUE
026033,001781: 27,2625           02401                          STORE    W                                     #  INITIALIZE DIAGONAL W  POSITION
026034,001782: 27,2626           02411                          STORE    W          +8D                        
026035,001783: 27,2627           02421                          STORE    W          +16D                       
026036,001784: 27,2630           77735                          SLOAD                                          
026037,001785: 27,2631           00002                                   1                                     #  VELOCITY VALUE
026038,001786: 27,2632           02511                          STORE    W          +72D                       #  INITIALIZE DIAGONAL W VELOCITY
026039,001787: 27,2633           02521                          STORE    W          +80D                       
026040,001788: 27,2634           02531                          STORE    W          +88D                       
026041,001789: 27,2635           77616                          RVQ                                            
026042,001790: 
026043,001791:                                                                                                 # # Page 592
026044,001792: 
026045,001793:                                                                                                 #         STALL ROUTINE FOR USERS OF CHANNEL 13.
026046,001794: 
026047,001795: 
026048,001796:    4000                                          SETLOC   FFTAG12                               
026049,001797:    4000                                          BANK                                           
026050,001798: 
026051,001799:    4542                                          COUNT*   $$/CHN13                              
026052,001800:    4542           34754        C13STALL          CAF      PRIO10                                #  = BANK 04
026053,001801:    4543           56004                          XCH      FBANK                                 
026054,001802:    4544           54071                          TS       RUPTREG2                              
026055,001803:    4545           13251                          TCF      C13STAL1                              
026056,001804: 04,2000                                          SETLOC   C13BANK                               
026057,001805: 04,2000                                          BANK                                           
026058,001806: 
026059,001807: 04,3251                                          COUNT*   $$/CHN13                              
026060,001808: 04,3251           34765        C13STAL1          CAF      BIT4                                  
026061,001809: 04,3252           00006                          EXTEND                                         
026062,001810: 04,3253           02013                          RAND     CHAN13                                
026063,001811: 04,3254           00006                          EXTEND                                         
026064,001812: 04,3255           13276                          BZF      TCQSTAL                               #  NO RADAR ACTIVITY. OK TO WRITE.
026065,001813: 
026066,001814: 04,3256           13257        C13SLOOP          NOOP                                           #  TO PREVENT TC TRAP
026067,001815: 04,3257           00006                          EXTEND                                         
026068,001816: 04,3260           00004                          READ     LOSCALAR                              
026069,001817: 04,3261           61063                          AD       RADTIME                               #  COMPUTE DELTA T SINCE LAST RADAR READ
026070,001818: 04,3262           64753                          AD       HALF                                  
026071,001819: 04,3263           64753                          AD       HALF                                  #  FOR OVERFLOW
026072,001820: 04,3264           56001                          XCH      L                                     
026073,001821: 
026074,001822: 04,3265           33301                          CA       90MSCALR                              
026075,001823: 04,3266           61064                          AD       RADDEL                                
026076,001824: 04,3267           00006                          EXTEND                                         
026077,001825: 04,3270           60001                          SU       L                                     
026078,001826: 
026079,001827: 04,3271           00006                          EXTEND                                         
026080,001828: 04,3272           63276                          BZMF     TCQSTAL                               #  GR THAN 90 MS.  OK
026081,001829: 
026082,001830: 04,3273           63302                          AD       -DTSCALR                              
026083,001831: 04,3274           00006                          EXTEND                                         
026084,001832: 04,3275           63256                          BZMF     C13SLOOP                              #  IN FORBIDDEN PERIOD.  LOOP UNTIL OK
026085,001833: 
026086,001834: 04,3276           30071        TCQSTAL           CA       RUPTREG2                              
026087,001835: 04,3277           22002                          LXCH     Q                                     
026088,001836: 04,3300           52005                          DTCF                                           
026089,001837: 
026090,001838: 04,3301           00440        90MSCALR          OCT      440                                   #  90 MILLISEC IN SCALAR
026091,001839: 04,3302           77754        -DTSCALR          OCT      77754                                 #  -5.9375 MS IN SCALAR
026092,001840: 
026093,001841:                                                                                                 #  CRS61.1        R/10/68
026094,001842:                                                                                                 #    TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES
026095,001843:                                                                                                 # # Page 593
026096,001844:                                                                                                 #  OPTICS TRACKING OF THE LM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
026097,001845:                                                                                                 #  AND TO COMPUTE THE &X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
026098,001846:                                                                                                 #  COAS TRACKING OF THE LM.
026099,001847:                                                                                                 #    TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE 
026100,001848:                                                                                                 #  MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
026101,001849:                                                                                                 #  GREATER THAN 10 DEGREES OR IF THE R60FLAG IS SET.
026102,001850:                                                                                                 #            (1) EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
026103,001851:                                                                                                 #                CONIC EQUATIONS.
026104,001852: 
026105,001853:                                                                                                 #            (2) CALCULATE LOS FROM CSM TO LM = RL - RC.
026106,001854: 
026107,001855:                                                                                                 #            (3) THE PRERFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
026108,001856:                                                                                                 #                THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM. THE
026109,001857:                                                                                                 #                TRACK AXIS (I) IS DEFINED AS:
026110,001858: 
026111,001859:                                                                                                 #                UNIT(I)=UNIT(Z  )COS55 &UNIT(X  )SIN55
026112,001860:                                                                                                 #                      -       -SC             -SC
026113,001861:                                                                                                 #            (4) COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
026114,001862:                                                                                                 #            (7) FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS.
026115,001863:                                                                                                 #                IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES,
026116,001864:                                                                                                 #                GROSS MANEUVER IS REQUIRED. SIGNAL R61 (SET MPAC=1) TO
026117,001865:                                                                                                 #                OPERATE KALCMANU AND EXIT CRS61.1.
026118,001866:                                                                                                 #                IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE.
026119,001867: 
026120,001868:                                                                                                 #            (8) CALCULATE ORTHOGONAL LOS RATE IN REF COORDS AS
026121,001869: 
026122,001870:                                                                                                 #                OMEGATH = (UNITLOS(B1) X UNITDV(B1))(ABSDV(B7)/ABSLOS(B29))
026123,001871:                                                                                                 #                CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS
026124,001872:                                                                                                 #                APPLIED TO YIELD UNITS OF REVS/SEC. SCALE IS CARRIED AS
026125,001873:                                                                                                 #                B+1+1+7-29+4+1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS.
026126,001874:                                                                                                 #                THE EXTRA B+1 RESULTS FROM RESCALING ABSDV B8 AFTER NORM
026127,001875:                                                                                                 #                TO AVOID OVFLOW ON DIVIDE.
026128,001876: 
026129,001877:                                                                                                 #                UNITLOS = UNIT( RL - RC) B1.
026130,001878:                                                                                                 #                UNITDY  = UNIT( VL - VC) B1.
026131,001879:                                                                                                 #                ABSLOS  = LENGTH OF LOS, METERS B29.
026132,001880:                                                                                                 #                ABSDV   = LENGTH OF DV , METERS/CSEC B7.
026133,001881: 
026134,001882:                                                                                                 #            (9) OBTAIN RATE IN SM COORDS.
026135,001883: 
026136,001884:                                                                                                 #                OMETATHSM = (REFSMMAT)(OMEGATH).
026137,001885: 
026138,001886:                                                                                                 #            (10)OBTAIN GIMBAL ANGLE INCREMETNS FOR 0.1 SECOND.
026139,001887: 
026140,001888:                                                                                                 #                DTHETASM = (0.1)(OMEGATHSM)
026141,001889: 
026142,001890:                                                                                                 #            (11)OBTAIN DELCDUX,Y,Z USING SUBR SMCDURES.
026143,001891:                                                                                                 #                INPUT CONSISTS OF
026144,001892: 
026145,001893:                                                                                                 #                (A) VECTOR OF ANGULAR INCREMENTS, DTHETASM, STORED
026146,001894:                                                                                                 # # Page 594
026147,001895:                                                                                                 #                    IN V(DTHETASM).
026148,001896: 
026149,001897:                                                                                                 #                (B) SIN,COS CDUX,Y,Z FROM  SUBR CDUTRIG.
026150,001898: 
026151,001899:                                                                                                 #                TRANSFER OUTPUT OF SMCDURES FROM V(DCDU) TO VAC14D.
026152,001900: 
026153,001901:                                                                                                 #            (12)CALCULATE ANG LOS RATE IN BODY(NB) COORDS USING SUBR SMNB.
026154,001902: 
026155,001903:                                                                                                 #                OMEGANB = (SMNB)(OMETATHSM)
026156,001904: 
026157,001905:                                                                                                 #                SUBR SMNB REQUIRES  OMEGATHSM IN V(VAC32D) AND ACTUAL CDUS
026158,001906:                                                                                                 #                (Y,X,Z ORDER) IN V(VAC20D) WITH S1 OF VAC = BASE ADDRESS
026159,001907:                                                                                                 #                OF CDUS (FIXLOC + 20D).
026160,001908: 
026161,001909:                                                                                                 #            (13)CALCULATE ANG LOS RATE IN CONTROL COORDS AS FOLLOWS
026162,001910: 
026163,001911:                                                                                                 #                WBODY = (MBDYTCTL)(OMEGANB)   UNITS=REVS/SEC(B0).
026164,001912: 
026165,001913:                                                                                                 #                               ( 0.5       0             0      ) BODY TO
026166,001914:                                                                                                 #                MBDYTCTL(B1) = (  0   COS(7.25)B1  -SIN(7.25)B1 )=CONTROL
026167,001915:                                                                                                 #                               (  0   SIN(7.25)B1   COS(7.25)B1 ) AXES
026168,001916:                                                                                                 #                                                                 CONVERSION
026169,001917:                                                                                                 #                                                                  MATRIX
026170,001918: 
026171,001919:                                                                                                 #            (14)RESCALE WBODY TO UNITS OF 450 DEG/SEC BY APPLYING FACTOR
026172,001920:                                                                                                 #                OF 0.8 TO REVS/SEC.
026173,001921: 
026174,001922:                                                                                                 #            (15)ADDRESS LIVE AUTOPILOT REGISTERS IN BASIC (UNDER INHINT).
026175,001923: 
026176,001924:                                                                                                 #                TRANSFER DESIRED CDUS, SCALED 180 DEGREES, FROM T(SAVEDCDU)
026177,001925:                                                                                                 #                TO V(CDUXD).
026178,001926:                                                                                                 #                TRANSFER DELCDUS, SCALED 180 DEG, FROM V(VAC14D)
026179,001927:                                                                                                 #                TO V(DELCDUX).
026180,001928:                                                                                                 #                TRANSFER OMEGA CONTROL, SCALED 450 DEG/SEC, FROM V(MPAC)
026181,001929:                                                                                                 #                TO V(WBODY).
026182,001930:                                                                                                 #                RELINT, SET MPAC=0, EXIT CRS61.1
026183,001931: 
026184,001932:                                                                                                 #  CALL:     L  CALL CRS61.1
026185,001933: 
026186,001934:                                                                                                 #  RETURNS  ALL TO L+1.
026187,001935: 
026188,001936:                                                                                                 #            (1) S(MPAC)=0. NORMAL EXIT. 3 SETS OF INPUTS FED TO DAP.
026189,001937:                                                                                                 #            (2) S(MPAC)=1. CALCULATED DESIRED CDUS,SP, SET IN T(CPHI)
026190,001938:                                                                                                 #                FOR KALCMANU. ABS(ACDU - DCDU) EXCEEDS 10 DEGREES.
026191,001939:                                                                                                 #            (3) S(MPAC)=2. GNCS AUTO MODE NOT SELECTED (BIT10=1).
026192,001940:                                                                                                 #            (4) S(MPAC)=3. DAP HOLD FLAG (HOLDFLAG) NOT EQUAL -1.
026193,001941: 
026194,001942:                                                                                                 #  INPUT     (1) TIME2,TIME1. COMPUTER CLOCK TIME,DP, CENTISEC B28.
026195,001943:                                                                                                 #            (2) CDUX,Y,Z. PRESENT CDU ANGLES,SP,2S COMPL HALF-REVS B0.
026196,001944:                                                                                                 #            (3) M(REFSMMAT),STABLE MEMBER COORDS B1.
026197,001945:                                                                                                 # # Page 595
026198,001946: 
026199,001947:                                                                                                 #  OUTPUT   NORMAL. EXIT WITH S(MPAC) = 0.
026200,001948: 
026201,001949:                                                                                                 #            (1) CDUXD,CDUYD,CDUZD, DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
026202,001950:                                                                                                 #                DP, 1S COMPL, SCALED 180 DEGREES (HALF-REVS B0).
026203,001951:                                                                                                 #            (2) DELCDUX,DELCDUY,DELCDUZ. 0.1 SEC DCU ANGULAR INCREMENTS,
026204,001952:                                                                                                 #                DP, 1S COMPL, SCALED 180 DEG.
026205,001953:                                                                                                 #            (3) WBODY,WBODY1,WBODY2. LOS ANGULAR RATE IN CONTROL COORDS,
026206,001954:                                                                                                 #                DP, 1S COMPL, SCALED 450 DEG/SEC.
026207,001955: 
026208,001956:                                                                                                 #                SPECIAL. EXIT WITH S(MPAC) = 1.
026209,001957: 
026210,001958:                                                                                                 #            (1) CPHI,CTHETA,CPSI. DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
026211,001959:                                                                                                 #                SP, 2S COMPL, SCALED 180 DEGREES.
026212,001960: 
026213,001961:                                                                                                 #  EXTERNAL SUBROUTINES USED   (B)=BASIC
026214,001962: 
026215,001963:                                                                                                 #            (1) CALCGA    (5) LOADTIME(B)  (9) SMNB
026216,001964:                                                                                                 #            (2) CDUTRIG   (6) MATMOVE
026217,001965:                                                                                                 #            (3) CSMCONIC  (7) RCDUS(B)
026218,001966:                                                                                                 #            (4) LEMCONIC  (8) SMCDURES
026219,001967: 
026220,001968:                                                                                                 #  ERASABLE (1) S(Q611),EBANK7  CRS61.1 EXIT .
026221,001969:                                                                                                 #            (2) S(Q6111)EBANK7  CALCDCDU EXIT.
026222,001970:                                                                                                 #            (3) T(SAVEDCDU) E6  SP VECTOR OF CDUDS.
026223,001971:                                                                                                 #            (4) V(SAVEPOS)  E7  CSM POS VEC AND  D(SAVEPOS)= LENGTH OF LOS.
026224,001972:                                                                                                 #            (5) V(SAVEVEL) E7  CSM VEL VEC.
026225,001973: 
026226,001974:                                                                                                 #  FLAGWDS  HOLDFLAG. USED, NOT SET.
026227,001975: 
026228,001976:                                                                                                 #  MISC     (1) ERASABLE ITEMP1 USED TO TEMP STORE EBANK UNDER INHINT.
026229,001977:                                                                                                 #           (2) ERASABLE P21TIME USED AS TEMP STORE DURING CRS61.1
026230,001978:                                                                                                 #           (3) ERAS DTHETASM USED AS TEMP STORE DURING EARLY CRS61.1
026231,001979: 
026232,001980:                                                                                                 #  DEBRIS - CURRENT VAC AREA, CRS61.1 ERASABLES, ITEMP1, P21TIME
026233,001981: 
026234,001982: 34,2000                                          SETLOC   P20S4                                 
026235,001983: 34,2000                                          BANK                                           
026236,001984: 
026237,001985: 34,3432  E6,1646                                 EBANK=   CDUXD                                 
026238,001986: 34,3432                                          COUNT*   $$/CRS61                              
026239,001987: 
026240,001988: 34,3432           40220        CRS61.1           STQ      SETPD                                 
026241,001989: 34,3433           03704                                   Q611                                  
026242,001990: 34,3434           00001                                   0                                     
026243,001991: 34,3435           77634                          RTB                                            
026244,001992: 34,3436           51751                                   LOADTIME                              #  LOAD CLOCK TIME2,1 INTO MPAC.
026245,001993: 
026246,001994: 34,3437           36307        STORT             STCALL   R63TIME                               #  STORE CLOCK TIME FOR SUBR R63
026247,001995: 34,3440           73171                                   R63                                   #  SUBR TO CALC DCDU(T=PRESENT,PASS1)
026248,001996: 34,3441           71214                          CLEAR    DLOAD                                 
026249,001997:                                                                                                 # # Page 596
026250,001998: 34,3442           05266                                   RANGFLAG                              
026251,001999: 34,3443           02307                                   R63TIME                               
026252,002000: 34,3444           51025                          DSU      BPL                                   
026253,002001: 34,3445           33161                                   328NM                                 
026254,002002: 34,3446           71451                                   +3                                    
026255,002003: 34,3447           77614                          SET                                            
026256,002004: 34,3450           05066                                   RANGFLAG                              
026257,002005: 34,3451           77776                 +3       EXIT                                           
026258,002006: 34,3452           05354        STEP2CK           TC       CHECKMM                               #  CHECK MAJOR MODE = 27 (UPDATE PROG)
026259,002007: 34,3453           00033                          MM       27         B-14                       
026260,002008: 34,3454           04415                          TC       UPACTOFF                              #  NO TURN OFF UPLINK LITE
026261,002009:                                                                                                 #  YES  LEAVE UPLINK AS IS
026262,002010: 34,3455           11340                          CCS      HOLDFLAG                              
026263,002011: 34,3456           03560                          TC       ASET                                  #  EXIT IF HOLDFLAG IS + NONZERO
026264,002012: 34,3457           03461                          TC       +2                                    
026265,002013: 34,3460           03461                          TC       +1                                    
026266,002014: 34,3461           40107                          CS       FLGWRD11                              
026267,002015: 34,3462           74761                          MASK     AZIMBIT                               
026268,002016: 34,3463           10000                          CCS      A                                     
026269,002017: 34,3464           03505                          TC       NOAZFLG1                              #  AZIMFLAG NOT SET
026270,002018: 
026271,002019: 34,3465           34767                          CAF      TWO                                   #  AZIMFLAG SET
026272,002020: 34,3466           55611        CDULOOP           TS       DTHETASM                              
026273,002021: 34,3467           51611                          INDEX    DTHETASM                              
026274,002022: 34,3470           30032                          CA       CDUX                                  
026275,002023: 34,3471           00006                          EXTEND                                         
026276,002024: 34,3472           51611                          INDEX    DTHETASM                              
026277,002025: 34,3473           21307                          MSU      THETAD                                
026278,002026: 34,3474           54154                          TS       MPAC                                  
026279,002027: 
026280,002028: 34,3475           06006                          TC       INTPRET                               
026281,002029: 34,3476           45246                          ABS      DSU                                   
026282,002030: 34,3477           16645                                   DEGREE10                              
026283,002031: 34,3500           77444                          BPL      EXIT                                  
026284,002032: 34,3501           71566                                   STKTEST                               
026285,002033: 
026286,002034: 34,3502           11611                          CCS      DTHETASM                              
026287,002035: 34,3503           03466                          TC       CDULOOP                               
026288,002036: 
026289,002037: 34,3504           03545                          TC       AUTOCK                                
026290,002038: 
026291,002039: 34,3505           31572        NOAZFLG1          CA       THETADX                               
026292,002040: 34,3506           55175                          TS       CDUSPOT    +4                         
026293,002041: 34,3507           31573                          CA       THETADY                               
026294,002042: 34,3510           55171                          TS       CDUSPOT                               
026295,002043: 34,3511           31574                          CA       THETADZ                               
026296,002044: 34,3512           55173                          TS       CDUSPOT    +2                         #  STORE IN CDUSPOT FOR TRG*NBSM
026297,002045: 34,3513           06006                          TC       INTPRET                               
026298,002046: 34,3514           45175                          VLOAD    CALL                                  
026299,002047: 34,3515           03351                                   SCAXIS                                
026300,002048:                                                                                                 # # Page 597
026301,002049: 34,3516           47642                                   TRG*NBSM                              
026302,002050: 34,3517           50206                          PUSH     DOT                                   #  PD 0-5
026303,002051: 34,3520           03357                                   POINTVSM                              
026304,002052: 34,3521           50025                          DSU      BMN                                   #  BRANCH IF GR. 10 DEG.
026305,002053: 34,3522           16641                                   COSTEN                                
026306,002054: 34,3523           71566                                   STKTEST                               
026307,002055: 34,3524           47375                          VLOAD    VXV                                   
026308,002056: 34,3525           00001                                   0                                     #  SCAXIS IN S.M.
026309,002057: 34,3526           03357                                   POINTVSM                              
026310,002058: 34,3527           41561                          VXSC     PUSH                                  #  PD 6-11 B2
026311,002059: 34,3530           16644                                   DELTYME                               #  1/(DELTA TIME) B-2
026312,002060: 34,3531           45246                          ABVAL    DSU                                   
026313,002061: 34,3532           16642                                   MAXRATE                               #  .1 DEG. / SEC. B0
026314,002062: 34,3533           77240                          BMN      VLOAD                                 #  PUSH UP 6-11
026315,002063: 34,3534           71540                                   STEP2CKB                              #  BRANCH IF LESS .1 DEG./SEC.
026316,002064: 34,3535           74256                          UNIT     VXSC                                  
026317,002065: 34,3536           16642                                   MAXRATE                               
026318,002066: 34,3537           41572                          VSL1     PUSH                                  #  PD 6-11 .1 DEG./SEC DISTRIBUTED
026319,002067: 34,3540           74375        STEP2CKB          VLOAD    VXSC                                  
026320,002068: 34,3541           00007                                   6                                     
026321,002069: 34,3542           16637                                   RADTOREV                              #  RAD. TO REV. B0
026322,002070: 34,3543           03212                          STORE    DTHETASM                              #  B0
026323,002071: 34,3544           77776                          EXIT                                           
026324,002072: 34,3545           37673        AUTOCK            CAF      FURST3                                #  BITS 15,14,13 OF CHAN31 = 011
026325,002073: 34,3546           05654                          TC       C31BTCHK                              #  FOR AUTO AND G&N CONTROL
026326,002074: 34,3547           13550                          TCF      +1                                    
026327,002075: 34,3550           67671                          AD       NEG30000                              
026328,002076: 34,3551           00006                          EXTEND                                         #  AUTO MODE SELECTED (BITS 15-13=011)
026329,002077: 34,3552           13554                          BZF      DAPCK                                 #     YES-CONTINUE.
026330,002078: 34,3553           03560                          TC       ASET                                  
026331,002079: 34,3554           40075        DAPCK             CS       FLAGWRD1                              #  IS STIKFLAG SET (I.E. IS SOMEONE ON RHC)
026332,002080: 34,3555           74753                          MASK     STIKBIT                               
026333,002081: 34,3556           10000                          CCS      A                                     
026334,002082: 34,3557           03600                          TC       STEP3CK                               
026335,002083: 34,3560           06006        ASET              TC       INTPRET                               
026336,002084: 34,3561           77614                          CLEAR                                          
026337,002085: 34,3562           00273                                   CYC61FLG                              
026338,002086: 34,3563           52135                          SLOAD    GOTO                                  
026339,002087: 34,3564           15336                                   ZEROVECS                              
026340,002088: 34,3565           03704                                   Q611                                  
026341,002089: 34,3566           77614        STKTEST           BOFINV                                         
026342,002090: 34,3567           00153                                   CYC61FLG                              
026343,002091: 34,3570           44001                                   KALCMAN3   +1                         
026344,002092: 34,3571           77414                          BON      EXIT                                  
026345,002093: 34,3572           01700                                   V50N18FL                              
026346,002094: 34,3573           73166                                   MANUEXIT                              
026347,002095: 34,3574           34766                          CAF      BIT3                                  
026348,002096: 34,3575           00006                          EXTEND                                         #  STIKFLG IS SET
026349,002097: 34,3576           05011                          WOR      DSALMOUT                              #  TURN ON UPACTY LIGHT
026350,002098:                                                                                                 # # Page 598
026351,002099: 34,3577           03560                          TC       ASET                                  #  EXIT AND SET R61CNTR
026352,002100: 34,3600           06006        STEP3CK           TC       INTPRET                               
026353,002101: 34,3601           43001                          SETPD    BOFF                                  
026354,002102: 34,3602           00001                                   0D                                    
026355,002103: 34,3603           04346                                   UTFLAG                                
026356,002104: 34,3604           71610                                   CRS61.2                               #  NORMAL P-20 (OPTION 0) IF UTFLAG NOT SET
026357,002105: 
026358,002106: 34,3605           53145                          DLOAD    BZE                                   #  OPTION 1,TEST FOR STAR OR PLANET
026359,002107: 34,3606           02307                                   R63TIME                               #  =0 IF STAR
026360,002108: 34,3607           73162                                   UTSTAR1                               
026361,002109:                                                                                                 #  USE NORMAL P20 PATH FOR PLANET
026362,002110:                                                                                                 #  WITH VL AND RL = 0
026363,002111:                                                                                                 #  NOW HAVE DCDUS STORED IN T(SAVEDCDU).
026364,002112:                                                                                                 #  GO CALC OTHER DAP INPUTS (DELCDU,WBODY)
026365,002113: 34,3610           52375        CRS61.2           VLOAD    VSU                                   
026366,002114: 34,3611           03204                                   DCDU                                  
026367,002115: 34,3612           03715                                   SAVEVEL                               #  DV = VL - VC
026368,002116: 34,3613           57456                          UNIT     VCOMP                                 #  V(MPAC)=-UNITDV.VAC36D=ABSDV.
026369,002117: 34,3614           74235                          VXV      VXSC                                  #  (-UNITDV)CROSS(UNITLOS).
026370,002118: 34,3615           03707                                   SAVEPOS                               
026371,002119: 34,3616           16646                                   RVCS/RDS                              #  (UNITLOS B1)(UNITDV B1)(CONST B4)=CROSS.
026372,002120: 34,3617           60325                          PDDL     NORM                                  
026373,002121: 34,3620           02307                                   R63TIME                               #  R63TIME IS TEMP STORE FOR ABS(LOS)
026374,002122: 34,3621           00047                                   X1                                    
026375,002123: 34,3622           60325                          PDDL     NORM                                  
026376,002124: 34,3623           00045                                   36D                                   #  NORM ABS VALUE OF DV(NUM).
026377,002125: 34,3624           00051                                   S1                                    
026378,002126: 
026379,002127: 34,3625           70460                          XSU,1    SR1                                   #  X1 = X1(N DENOM)-S1(N NUM).
026380,002128: 34,3626           00050                                   S1                                    #  SR1 TO AVOID OFLOW ON DDV.
026381,002129: 34,3627           74271                          DDV      VXSC                                  #  ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
026382,002130: 34,3630           53721                          MXV      VSL*                                  
026383,002131: 34,3631           01734                                   REFSMMAT                              
026384,002132: 34,3632           20163                                   0          -14D,1                     #  UNNORMALIZE,ADJUST FOR REF. AND SCALE B0
026385,002133: 34,3633           53214                          BON      VAD                                   
026386,002134: 34,3634           05707                                   AZIMFLAG                              
026387,002135: 34,3635           71637                                   +2                                    
026388,002136: 34,3636           03212                                   DTHETASM                              #  SCALED B0
026389,002137: 34,3637           00025                          STORE    20D                                   
026390,002138: 34,3640           77761                          VXSC                                           
026391,002139: 34,3641           16650                                   TENTH                                 
026392,002140: 34,3642           37212                          STCALL   DTHETASM                              #  STORE SM INCREM. ANGLES FOR SMCDURES
026393,002141: 34,3643           47530                                   CDUTRIG                               #  OBTAIN SIN,COSCDUS FOR SMCDURES.
026394,002142: 34,3644           45001                          SETPD    CALL                                  #  SMCDURES USES PUSH
026395,002143: 34,3645           00001                                   0                                     
026396,002144: 34,3646           47743                                   SMCDURES                              #  OBTAIN DELCDU IN V(DCDU).
026397,002145: 34,3647           70575                          VLOAD    VSR2                                  
026398,002146: 34,3650           03204                                   DCDU                                  
026399,002147: 34,3651           34017                          STCALL   14D                                   
026400,002148: 34,3652           47530                                   CDUTRIG                               
026401,002149:                                                                                                 # # Page 599
026402,002150: 34,3653           45175                          VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
026403,002151: 34,3654           00025                                   20D                                   #  VECTOR FOR TRG*SMNB INTO MPAC
026404,002152: 34,3655           47633                                   *SMNB*                                #  OBTAIN ANG. RATE REFERRED TO NB (BODY)
026405,002153: 34,3656           77721                          MXV                                            
026406,002154: 34,3657           16652                                   MBDYTCTL                              #  CONVERT RATE(OMEGA) TO CONTROL COORDS.
026407,002155: 34,3660           76561                          VXSC     VSL1                                  #  MULT. BY 0.8 TO RESCALE REVS TO 450 DEG.
026408,002156: 34,3661           15272                                   POINT8                                
026409,002157: 
026410,002158: 34,3662           77776        CRS61.2A          EXIT                                           
026411,002159: 34,3663           00004                          INHINT                                         
026412,002160: 34,3664           40107                          CS       FLGWRD11                              
026413,002161: 34,3665           74761                          MASK     AZIMBIT                               
026414,002162: 34,3666           10000                          CCS      A                                     
026415,002163: 34,3667           03710                          TC       THTDXYZ                               #  AZIMFLAG NOT SET,USE THETADX,Y,Z
026416,002164: 
026417,002165: 34,3670           34767                          CAF      TWO                                   #  AZIMFLAG SET, MODIFY DELCDUS
026418,002166: 34,3671           55611        DCDULOOP          TS       DTHETASM                              
026419,002167: 34,3672           60000                          DOUBLE                                         
026420,002168: 34,3673           60120                          AD       FIXLOC                                
026421,002169: 34,3674           55612                          TS       DTHETASM   +1                         
026422,002170: 34,3675           51611                          INDEX    DTHETASM                              
026423,002171: 34,3676           31307                          CA       THETAD                                
026424,002172: 34,3677           00006                          EXTEND                                         
026425,002173: 34,3700           51611                          INDEX    DTHETASM                              
026426,002174: 34,3701           21572                          MSU      THETADX                               
026427,002175: 34,3702           00006                          EXTEND                                         
026428,002176: 34,3703           73755                          MP       1/200                                 
026429,002177: 34,3704           51612                          INDEX    DTHETASM   +1                         
026430,002178: 34,3705           20017                          DAS      14D                                   
026431,002179: 34,3706           11611                          CCS      DTHETASM                              
026432,002180: 34,3707           13671                          TCF      DCDULOOP                              
026433,002181: 34,3710           31572        THTDXYZ           CA       THETADX                               
026434,002182: 34,3711           55646                          TS       CDUXD                                 
026435,002183: 34,3712           31573                          CA       THETADY                               
026436,002184: 34,3713           55650                          TS       CDUYD                                 
026437,002185: 34,3714           31574                          CA       THETADZ                               
026438,002186: 34,3715           55652                          TS       CDUZD                                 
026439,002187: 
026440,002188: 34,3716           00006        THTD123           EXTEND                                         #  TRANSFER OMEGA CONTROL (ANG LOS RATE)
026441,002189: 34,3717           30155                          DCA      MPAC                                  #  FROM V(MPAC) TO V(WBODY ).
026442,002190: 34,3720           53526                          DXCH     WBODY                                 
026443,002191: 34,3721           00006                          EXTEND                                         
026444,002192: 34,3722           30160                          DCA      MPAC       +3                         
026445,002193: 34,3723           53530                          DXCH     WBODY1                                
026446,002194: 34,3724           00006                          EXTEND                                         
026447,002195: 34,3725           30162                          DCA      MPAC       +5                         
026448,002196: 34,3726           53532                          DXCH     WBODY2                                
026449,002197: 
026450,002198: 34,3727           00006                          EXTEND                                         #  TRANSFER CDU INCREMENTS
026451,002199: 34,3730           50120                          INDEX    FIXLOC                                #  FROM V(VAC14D) TO V(DELCDUX).
026452,002200:                                                                                                 # # Page 600
026453,002201: 34,3731           30017                          DCA      14D                                   
026454,002202: 34,3732           53576                          DXCH     DELCDUX                               
026455,002203: 34,3733           00006                          EXTEND                                         
026456,002204: 34,3734           50120                          INDEX    FIXLOC                                
026457,002205: 34,3735           30021                          DCA      16D                                   
026458,002206: 34,3736           53600                          DXCH     DELCDUY                               
026459,002207: 34,3737           00006                          EXTEND                                         
026460,002208: 34,3740           50120                          INDEX    FIXLOC                                
026461,002209: 34,3741           30023                          DCA      18D                                   
026462,002210: 34,3742           53602                          DXCH     DELCDUZ                               
026463,002211: 34,3743           44770                          CS       ONE                                   #  NOW DAP VARIABLES LOADED. SET HOLDFLAG.
026464,002212: 34,3744           55340                          TS       HOLDFLAG                              #  TO -1.
026465,002213: 34,3745           00003                          RELINT                                         
026466,002214: 34,3746           03560                          TC       ASET                                  
026467,002215: 
026468,002216: 34,3747           43234        RCYCLR61          RTB      DAD                                   
026469,002217: 34,3750           51751                                   LOADTIME                              
026470,002218: 34,3751           33574                                   20.48SEC                              
026471,002219: 34,3752           52015                          DAD      GOTO                                  
026472,002220: 34,3753           03317                                   TM                                    
026473,002221: 34,3754           71437                                   STORT                                 
026474,002222: 34,3755  35,3573               20.48SEC          EQUALS   1RTEB17                               
026475,002223: 34,3755           00122        1/200             DEC      .005                                  
026476,002224: 35,2000                                          SETLOC   P20S8                                 
026477,002225: 35,2000                                          BANK                                           
026478,002226: 
026479,002227: 35,3160                                          COUNT*   $$/CRS61                              
026480,002228: 35,3160           00022 20476  328NM             2DEC     606844.84  B-29                       #  327.67 N.M.
026481,002229: 35,3162           77775        UTSTAR1           VLOAD                                          #  STAR, N88 PATH SET WCA, DELTA GA = 0
026482,002230: 35,3163           15336                                   ZEROVECS                              
026483,002231: 35,3164           34017                          STCALL   14D                                   #  DELTA GA AT PD1J (INCR GIMB CHANGES)
026484,002232: 35,3165           71662                                   CRS61.2A                              #  WCA IS IN MPAC (LOS RATE). SET RCS DAP
026485,002233: 
026486,002234: 35,3166           52135        MANUEXIT          SLOAD    GOTO                                  
026487,002235: 35,3167           16674                                   LOONE                                 #  OCTAL 00001
026488,002236: 35,3170           03704                                   Q611                                  
026489,002237: 
026490,002238: 35,3171           71220        R63               STQ      DLOAD                                 #  SUBR TO CALL DESIRED CDUS(T)
026491,002239: 35,3172           03705                                   Q6111                                 
026492,002240: 35,3173           02307                                   R63TIME                               
026493,002241: 35,3174           34041                          STCALL   TDEC1                                 
026494,002242: 35,3175           27170                                   CSMCONIC                              
026495,002243: 35,3176           77775                          VLOAD                                          #  SAVE CSM POSITION AND VEL
026496,002244: 35,3177           00001                                   RATT                                  #  RC B-29
026497,002245: 35,3200           27707                          STOVL    SAVEPOS                               
026498,002246: 35,3201           00007                                   VATT                                  #  VC B-7
026499,002247: 35,3202           03715                          STORE    SAVEVEL                               
026500,002248: 35,3203           77635                          VXV                                            
026501,002249: 35,3204           03707                                   SAVEPOS                               
026502,002250:                                                                                                 # # Page 601
026503,002251: 35,3205           03357                          STORE    POINTVSM                              #  SAVE VXR
026504,002252: 35,3206           71214                          BON      DLOAD                                 
026505,002253: 35,3207           04306                                   UTFLAG                                
026506,002254: 35,3210           76425                                   UTAREA1                               #  UT OPTION 1 PROCESSING
026507,002255: 35,3211           02307                                   R63TIME                               #  NORMAL P-20 PATH
026508,002256: 35,3212           34041                          STCALL   TDEC1                                 
026509,002257: 35,3213           27202                                   LEMCONIC                              
026510,002258: 35,3214           77775                          VLOAD                                          #  SAVE LM VEL
026511,002259: 35,3215           00007                                   VATT                                  #  VL B-7
026512,002260: 35,3216           27204                          STOVL    DCDU                                  
026513,002261: 35,3217           00001                                   RATT                                  #  RL B-29
026514,002262: 35,3220           53451                          VSU      UNIT                                  
026515,002263: 35,3221           03707                                   SAVEPOS                               
026516,002264: 35,3222           17707                          STODL    SAVEPOS                               #  SAVE UNITLOS FOR CRS61.2 RATE CALC.
026517,002265: 35,3223           00045                                   36D                                   
026518,002266: 35,3224           26307                          STOVL    R63TIME                               #  SAVE ABS VAL OF LOS FOR CRS61.2
026519,002267: 35,3225           03707                                   SAVEPOS                               
026520,002268: 35,3226           77614        R63COM1           BON                                            
026521,002269: 35,3227           05707                                   AZIMFLAG                              
026522,002270: 35,3230           76462                                   UTOPT45                               #  OPTIONS 4,5
026523,002271: 35,3231           76521                          MXV      VSL1                                  #  COMMON PATH NORMAL P20,OPTION 1
026524,002272: 35,3232           01734                                   REFSMMAT                              
026525,002273: 35,3233           37357                          STCALL   POINTVSM                              #  ULOS IN STABLE MEM
026526,002274: 35,3234           74437                                   UTPRFAX                               #  COMPUTE UNIT PREFERRED VECTOR
026527,002275: 35,3235           37351                          STCALL   SCAXIS                                
026528,002276: 35,3236           56225                                   VECPOINT                              
026529,002277: 35,3237           01310                          STORE    THETAD                                #  DESIRED GIMBALS
026530,002278: 35,3240           77650                          GOTO                                           
026531,002279: 35,3241           03705                                   Q6111                                 
026532,002280: 
026533,002281: 37,2000                                          SETLOC   P20S                                  
026534,002282: 37,2000                                          BANK                                           
026535,002283: 
026536,002284: 37,2425                                          COUNT*   $$/CRS61                              
026537,002285: 37,2425           45145        UTAREA1           DLOAD    CALL                                  #  UT OPTION 1 PATH
026538,002286: 37,2426           02307                                   R63TIME                               
026539,002287: 37,2427           54136                                   LSPOS                                 
026540,002288: 37,2430           00017                          STORE    14D                                   #  RM B-29
026541,002289: 37,2431           52214                          BON      VSU                                   
026542,002290: 37,2432           04303                                   CMOONFLG                              
026543,002291: 37,2433           76445                                   UTMNCNTR                              
026544,002292: 37,2434           03707                                   SAVEPOS                               #  RC B-29
026545,002293: 37,2435           77656                          UNIT                                           
026546,002294: 37,2436           27351                          STOVL    SCAXIS                                #  VMOON = UNIT(RM-RC)
026547,002295: 37,2437           03707                                   SAVEPOS                               
026548,002296: 37,2440           57456                          UNIT     VCOMP                                 
026549,002297: 37,2441           24011                          STOVL    8D                                    #  VEARTH=-UNIT(RC)
026550,002298: 37,2442           00003                                   2D                                    #  RS B-38
026551,002299: 37,2443           52056                          UNIT     GOTO                                  
026552,002300: 37,2444           76460                                   SAVEVSUN                              #  VSUN = UNIT(RS)
026553,002301:                                                                                                 # # Page 602
026554,002302: 37,2445           53455        UTMNCNTR          VAD      UNIT                                  #  MOON PATH
026555,002303: 37,2446           03707                                   SAVEPOS                               
026556,002304: 37,2447           77676                          VCOMP                                          
026557,002305: 37,2450           24011                          STOVL    8D                                    #  VEARTH = -UNIT(RM+RC)
026558,002306: 37,2451           03707                                   SAVEPOS                               
026559,002307: 37,2452           57456                          UNIT     VCOMP                                 
026560,002308: 37,2453           27351                          STOVL    SCAXIS                                #  VMOON = -UNIT(RC)
026561,002309: 37,2454           00017                                   14D                                   #  RM B-29
026562,002310: 37,2455           74402                          VSR8     VSR1                                  #  SCALE RM B-38
026563,002311: 37,2456           53445                          BVSU     UNIT                                  #  VSUN = UNIT(RS-RM)
026564,002312: 37,2457           00003                                   2D                                    
026565,002313: 37,2460           34003        SAVEVSUN          STCALL   2D                                    
026566,002314: 37,2461           32000                                   SAVESTAR                              
026567,002315: 
026568,002316: 15,2000                                          SETLOC   STARTAB                               
026569,002317: 15,2000                                          BANK                                           
026570,002318: 
026571,002319: 15,2000                                          COUNT*   $$/CRS61                              
026572,002320: 15,2000           47201        SAVESTAR          SETPD    VXV                                   
026573,002321: 15,2001           00001                                   0D                                    
026574,002322: 15,2002           34644                                   ECLIPOL                               
026575,002323: 15,2003           27452                          STOVL    VEL/C                                 
026576,002324: 15,2004           03715                                   SAVEVEL                               
026577,002325: 15,2005           53361                          VXSC     VAD                                   
026578,002326: 15,2006           34642                                   1/C                                   
026579,002327: 15,2007           03452                                   VEL/C                                 
026580,002328: 15,2010           27452                          STOVL    VEL/C                                 
026581,002329: 15,2011           11762                                   ZEROVEC                               
026582,002330: 15,2012           27204                          STOVL    DCDU                                  #  VL=0  FOR STAR AND PLANET
026583,002331: 15,2013           03707                                   SAVEPOS                               
026584,002332: 15,2014           53476                          VCOMP    UNIT                                  
026585,002333: 15,2015           17707                          STODL    SAVEPOS                               #  UNIT(0-RC))  FOR PLANET
026586,002334: 15,2016           00045                                   36D                                   
026587,002335: 15,2017           02307                          STORE    R63TIME                               #  ABS(O-RC) FOR PLANET
026588,002336: 15,2020           41535                          SLOAD    PUSH                                  #  PD0= STARCODE
026589,002337: 15,2021           01356                                   UTSTARNO                              #  STARCODE
026590,002338: 15,2022           67254                          BZE      SLOAD                                 
026591,002339: 15,2023           73257                                   UTVIAN88                              #  UNITLOS WAS VIA N88
026592,002340: 15,2024           32050                                   UTSP46                                
026593,002341: 15,2025           77621                          BDSU                                           #  STARCODE-46(OCTAL)
026594,002342: 15,2026           77244                          BPL      VLOAD                                 #  BRANCH IF STARCODE=46,47,50 OCTAL
026595,002343: 15,2027           73242                                   UTST4650                              
026596,002344: 15,2030           11762                                   ZEROVEC                               
026597,002345: 15,2031           17715                          STODL    SAVEVEL                               #  VC=0 FOR STAR
026598,002346: 15,2032           11762                                   ZEROVEC                               
026599,002347: 15,2033           02307                          STORE    R63TIME                               #  STAR INDICATOR USED LATER IN CRS61.2
026600,002348: 15,2034           41335                          SLOAD    DMP                                   
026601,002349: 15,2035           32047                                   UTSP6                                 
026602,002350: 15,2036           00001                                   0D                                    #  0D STILL = STARCODE
026603,002351: 15,2037           76750                          LXA,1    VLOAD*                                
026604,002352:                                                                                                 # # Page 603
026605,002353: 15,2040           00155                                   MPAC       +1                         #  STARCODE*6
026606,002354: 15,2041           33776                                   CATLOG,1                              #  MPAC= UNIT STAR VECTOR
026607,002355: 15,2042           53455        UTABERR           VAD      UNIT                                  #  CORRECT FOR ABERRATION
026608,002356: 15,2043           03452                                   VEL/C                                 
026609,002357: 15,2044           77650                          GOTO                                           #  GOTO COMMON AREA
026610,002358: 15,2045           73226                                   R63COM1                               
026611,002359: 
026612,002360: 15,2046           00006        UTSP6             OCT      6                                     #  SINGLE PRE 6 FOR MULT STARCODE
026613,002361: 15,2047           00046        UTSP46            OCT      46                                    #  SINGLE PRE 46 FOR DETERMINING PLANET
026614,002362: 
026615,002363: 35,2000                                          SETLOC   P20S8                                 
026616,002364: 35,2000                                          BANK                                           
026617,002365: 
026618,002366: 35,3242                                          COUNT*   $$/CRS61                              
026619,002367: 35,3242           70454        UTST4650          BZE      SR1                                   #  SUN,EARTH,MOON  OR PLANET PATH
026620,002368: 35,3243           73251                                   UTSUN                                 #  STARCODE=46 OCTAL (SUN)
026621,002369: 35,3244           77230                          BHIZ     VLOAD                                 
026622,002370: 35,3245           73254                                   UTEARTH                               #  STARCODE=47 OCTAL (EARTH)
026623,002371: 35,3246           03351                                   SCAXIS                                #  VMOON     STARCODE= 50 OCTAL
026624,002372: 35,3247           77650                          GOTO                                           
026625,002373: 35,3250           32042                                   UTABERR                               
026626,002374: 
026627,002375: 35,3251           52175        UTSUN             VLOAD    GOTO                                  
026628,002376: 35,3252           00003                                   2D                                    #  VSUN
026629,002377: 35,3253           32042                                   UTABERR                               
026630,002378: 
026631,002379: 35,3254           52175        UTEARTH           VLOAD    GOTO                                  
026632,002380: 35,3255           00011                                   8D                                    #  VEARTH
026633,002381: 35,3256           32042                                   UTABERR                               
026634,002382: 
026635,002383: 35,3257           77775        UTVIAN88          VLOAD                                          #  UNITLOS IN STARSAV3 VIA N88
026636,002384: 35,3260           15336                                   ZEROVECS                              
026637,002385: 35,3261           17715                          STODL    SAVEVEL                               #  VC = 0 FOR N88 VECTOR
026638,002386: 35,3262           15336                                   ZEROVECS                              
026639,002387: 35,3263           26307                          STOVL    R63TIME                               #  STAR INDICATOR USED LATER IN CRS61.2
026640,002388: 35,3264           03732                                   PLANVCUT                              #  N88 UNIT VECTOR BAS REF
026641,002389: 35,3265           53561                          VXSC     UNIT                                  
026642,002390: 35,3266           33272                                   1/SQRT3                               
026643,002391: 35,3267           77650                          GOTO                                           
026644,002392: 35,3270           32042                                   UTABERR                               
026645,002393: 
026646,002394: 35,3271           22363 11623  1/SQRT3           2DEC     .57735021                             #  1/SQUARE ROOT 3  B-0
026647,002395: 
026648,002396: 
026649,002397: 37,2000                                          SETLOC   P20S                                  
026650,002398: 37,2000                                          BANK                                           
026651,002399: 
026652,002400: 37,2462                                          COUNT*   $$/CRS61                              
026653,002401: 37,2462  23,3526               UT166             EQUALS   .166...                               
026654,002402:                                                                                                 # # Page 604
026655,002403: 37,2462                        UTSAP             =        0D                                    #  SA PRIME
026656,002404: 37,2462                        UTSBP             =        6D                                    #  SB PRIME
026657,002405: 37,2462                        UTSA              =        18D                                   #  SA
026658,002406: 37,2462                        UTSB              =        24D                                   #  SB
026659,002407: 37,2462                        UTUXP             =        0D                                    #  UX PRIME
026660,002408: 37,2462                        UTUYP             =        6D                                    #  UY PRIME
026661,002409: 37,2462                        UTUZP             =        12D                                   #  UZ PRIME
026662,002410: 37,2462                        UTUX              =        18D                                   #  UX
026663,002411: 37,2462                        UTUY              =        24D                                   #  UY
026664,002412: 37,2462                        UTUZ              =        30D                                   #  UZ
026665,002413:                                                                                                 # UTX             =       SCAXIS          # X
026666,002414:                                                                                                 # UTY             =       POINTVSM        # Y
026667,002415: 37,2462                        UTZ               =        0D                                    #  Z AFTER UNIT
026668,002416: 37,2462                        UTZINIT           =        36D                                   #  Z BEFORE UNIT
026669,002417: 37,2462                        UTAMG             =        6D                                    #  AMG
026670,002418: 37,2462                        UTOGA             =        24D                                   #  OGA REVS B-0
026671,002419: 37,2462  0000032               UTIGA             =        UTOGA      +2                         #  IGA REVS B-0
026672,002420: 37,2462  0000034               UTMGA             =        UTOGA      +4                         #  MGA REVS B-0
026673,002421: 
026674,002422: 37,2462           34031        UTOPT45           STCALL   UTSB                                  #  SB= ULOS BASIC REF. IN MPAC B-1
026675,002423: 37,2463           74437                                   UTPRFAX                               
026676,002424: 37,2464           00007                          STORE    UTSBP                                 #  SB PRIME NAV BASE B-1
026677,002425: 
026678,002426: 37,2465           53435                          VXV      UNIT                                  
026679,002427: 37,2466           15332                                   UNITY                                 
026680,002428: 37,2467           24001                          STOVL    UTSAP                                 #  SA PRIME=(SB PRIME)X(0,1,0) B-1 NAV B
026681,002429: 37,2470           00031                                   UTSB                                  
026682,002430: 37,2471           53435                          VXV      UNIT                                  
026683,002431: 37,2472           03357                                   POINTVSM                              #  VXR   SAVED ABOVE
026684,002432: 37,2473           17357                          STODL    POINTVSM                              #  ULOS X (VXR) B-1
026685,002433: 37,2474           01353                                   AZIMANGL                              
026686,002434: 37,2475           74346                          COS      VXSC                                  
026687,002435: 37,2476           03357                                   POINTVSM                              
026688,002436: 37,2477           27351                          STOVL    SCAXIS                                #  B-2
026689,002437: 37,2500           00031                                   UTSB                                  
026690,002438: 37,2501           53435                          VXV      UNIT                                  
026691,002439: 37,2502           03357                                   POINTVSM                              
026692,002440: 37,2503           17357                          STODL    POINTVSM                              #  ULOS X (ULOS X (VXR)) B-1
026693,002441: 37,2504           01353                                   AZIMANGL                              
026694,002442: 37,2505           74356                          SIN      VXSC                                  #  B-2
026695,002443: 37,2506           03357                                   POINTVSM                              
026696,002444: 37,2507           76455                          VAD      VSL1                                  
026697,002445: 37,2510           03351                                   SCAXIS                                
026698,002446: 37,2511           24023                          STOVL    UTSA                                  #  SA B-1
026699,002447: 37,2512           00001                                   UTSAP                                 #                           START AXISGEN
026700,002448: 37,2513           53435                          VXV      UNIT                                  #  UX PRIME ALREADY IN UTUXP B-1
026701,002449: 37,2514           00007                                   UTSBP                                 #  UY       ALREADY IN UTUX  B-1
026702,002450: 37,2515           24007                          STOVL    UTUYP                                 #  UZ PRIME B-1
026703,002451: 37,2516           00001                                   UTUXP                                 
026704,002452: 37,2517           76435                          VXV      VSL1                                  
026705,002453:                                                                                                 # # Page 605
026706,002454: 37,2520           00007                                   UTUYP                                 
026707,002455: 37,2521           24015                          STOVL    UTUZP                                 #  UZ PRIME B-1
026708,002456: 37,2522           00023                                   UTSA                                  
026709,002457: 37,2523           53435                          VXV      UNIT                                  
026710,002458: 37,2524           00031                                   UTSB                                  
026711,002459: 37,2525           24031                          STOVL    UTUY                                  #  UY B-1
026712,002460: 37,2526           00023                                   UTUX                                  
026713,002461: 37,2527           76435                          VXV      VSL1                                  
026714,002462: 37,2530           00031                                   UTUY                                  
026715,002463: 37,2531           24037                          STOVL    UTUZ                                  #  UZ B-1
026716,002464: 37,2532           00023                                   UTUX                                  
026717,002465: 37,2533           77761                          VXSC                                           
026718,002466: 37,2534           00001                                   UTUXP                                 
026719,002467: 37,2535           37351                          STCALL   UTX                                   
026720,002468: 37,2536           73273                                   UTOPT45A                              
026721,002469: 
026722,002470: 35,2000                                          SETLOC   P20S8                                 
026723,002471: 35,2000                                          BANK                                           
026724,002472: 
026725,002473: 35,3273                                          COUNT*   $$/CRS61                              
026726,002474: 35,3273           77775        UTOPT45A          VLOAD                                          
026727,002475: 35,3274           00031                                   UTUY                                  
026728,002476: 35,3275           53361                          VXSC     VAD                                   
026729,002477: 35,3276           00007                                   UTUYP                                 
026730,002478: 35,3277           03351                                   UTX                                   
026731,002479: 35,3300           27351                          STOVL    UTX                                   
026732,002480: 35,3301           00037                                   UTUZ                                  
026733,002481: 35,3302           53361                          VXSC     VAD                                   
026734,002482: 35,3303           00015                                   UTUZP                                 
026735,002483: 35,3304           03351                                   UTX                                   
026736,002484: 35,3305           27351                          STOVL    UTX                                   #  UX NOT UNIT YET
026737,002485: 35,3306           00023                                   UTUX                                  
026738,002486: 35,3307           77761                          VXSC                                           
026739,002487: 35,3310           00003                                   UTUXP      +2                         
026740,002488: 35,3311           27357                          STOVL    UTY                                   
026741,002489: 35,3312           00031                                   UTUY                                  
026742,002490: 35,3313           53361                          VXSC     VAD                                   
026743,002491: 35,3314           00011                                   UTUYP      +2                         
026744,002492: 35,3315           03357                                   UTY                                   
026745,002493: 35,3316           27357                          STOVL    UTY                                   
026746,002494: 35,3317           00037                                   UTUZ                                  
026747,002495: 35,3320           53361                          VXSC     VAD                                   
026748,002496: 35,3321           00017                                   UTUZP      +2                         
026749,002497: 35,3322           03357                                   UTY                                   
026750,002498: 35,3323           27357                          STOVL    UTY                                   #  UY NOT UNIT YET
026751,002499: 35,3324           00023                                   UTUX                                  
026752,002500: 35,3325           77761                          VXSC                                           
026753,002501: 35,3326           00005                                   UTUXP      +4                         
026754,002502: 35,3327           24045                          STOVL    UTZINIT                               
026755,002503: 35,3330           00031                                   UTUY                                  
026756,002504:                                                                                                 # # Page 606
026757,002505: 35,3331           53361                          VXSC     VAD                                   
026758,002506: 35,3332           00013                                   UTUYP      +4                         
026759,002507: 35,3333           00045                                   UTZINIT                               
026760,002508: 35,3334           24045                          STOVL    UTZINIT                               
026761,002509: 35,3335           00037                                   UTUZ                                  
026762,002510: 35,3336           53361                          VXSC     VAD                                   
026763,002511: 35,3337           00021                                   UTUZP      +4                         
026764,002512: 35,3340           00045                                   UTZINIT                               
026765,002513: 35,3341           77656                          UNIT                                           #  UTUZ AND UTZINIT ARE CLOBBERED BY UNIT
026766,002514: 35,3342           24001                          STOVL    UTZ                                   #  UZ B-1
026767,002515: 35,3343           03357                                   UTY                                   
026768,002516: 35,3344           77656                          UNIT                                           
026769,002517: 35,3345           27357                          STOVL    UTY                                   #  UY B-1
026770,002518: 35,3346           03351                                   UTX                                   
026771,002519: 35,3347           77656                          UNIT                                           
026772,002520: 35,3350           03351                          STORE    UTX                                   #  UX B-1    END AXISGEN
026773,002521: 35,3351           53435                          VXV      UNIT                                  #             STATR CALCGA
026774,002522: 35,3352           01742                                   REFSMMAT   +6                         #  YSM
026775,002523: 35,3353           00007                          STORE    UTAMG                                 #  AMG B-1
026776,002524: 35,3354           77641                          DOT                                            
026777,002525: 35,3355           00001                                   UTZ                                   
026778,002526: 35,3356           24021                          STOVL    COSTH                                 #  COS(OGA)= AMG.ZNB B-2
026779,002527: 35,3357           00007                                   UTAMG                                 
026780,002528: 35,3360           77641                          DOT                                            
026781,002529: 35,3361           03357                                   UTY                                   
026782,002530: 35,3362           34023                          STCALL   SINTH                                 #  SIN(OGA)= AMG.YNB B-2
026783,002531: 35,3363           47311                                   ARCTRIG                               
026784,002532: 35,3364           24031                          STOVL    UTOGA                                 #  OGA REVS B-0
026785,002533: 35,3365           00007                                   UTAMG                                 
026786,002534: 35,3366           50235                          VXV      DOT                                   
026787,002535: 35,3367           03351                                   UTX                                   
026788,002536: 35,3370           01742                                   REFSMMAT   +6                         
026789,002537: 35,3371           77752                          SL1                                            
026790,002538: 35,3372           24021                          STOVL    COSTH                                 #  COS(MGA)= YSM.(AMG X XNB) B-2
026791,002539: 35,3373           01742                                   REFSMMAT   +6                         
026792,002540: 35,3374           77641                          DOT                                            
026793,002541: 35,3375           03351                                   UTX                                   
026794,002542: 35,3376           34023                          STCALL   SINTH                                 #  SIN(MGS)= YSM.XNB B-2
026795,002543: 35,3377           47311                                   ARCTRIG                               
026796,002544: 35,3400           00035                          STORE    UTMGA                                 #  MGA REVS B-0
026797,002545: 35,3401           45246                          ABS      DSU                                   
026798,002546: 35,3402           07527                                   UT166                                 
026799,002547: 35,3403           77644                          BPL                                            
026800,002548: 35,3404           73425                                   UTGMLOCK                              
026801,002549: 35,3405           50375        UTCGA1            VLOAD    DOT                                   
026802,002550: 35,3406           01750                                   REFSMMAT   +12D                       
026803,002551: 35,3407           00007                                   UTAMG                                 
026804,002552: 35,3410           24021                          STOVL    COSTH                                 #  COS(IGA)= AMG.ZSM B-2
026805,002553: 35,3411           01734                                   REFSMMAT                              
026806,002554: 35,3412           77641                          DOT                                            
026807,002555:                                                                                                 # # Page 607
026808,002556: 35,3413           00007                                   UTAMG                                 
026809,002557: 35,3414           34023                          STCALL   SINTH                                 #  SIN(IGA)= ANG.XSM B-2
026810,002558: 35,3415           47311                                   ARCTRIG                               
026811,002559: 35,3416           00033                          STORE    UTIGA                                 #  IGA REVS B-0
026812,002560: 35,3417           47175                          VLOAD    RTB                                   
026813,002561: 35,3420           00031                                   UTOGA                                 #  CONVERT TO 2S COMP
026814,002562: 35,3421           45644                                   V1STO2S                               #  ORDER IS OGA,IGA,MGA
026815,002563: 35,3422           01310                          STORE    THETAD                                #  TRIPLE PREC
026816,002564: 35,3423           77650                          GOTO                                           
026817,002565: 35,3424           03705                                   Q6111                                 #  EXIT R63
026818,002566: 
026819,002567: 35,3425           77776        UTGMLOCK          EXIT                                           #  GIMBAL LOCK HAS OCCURED
026820,002568: 35,3426           05671                          TC       ALARM                                 
026821,002569: 35,3427           00401                          OCT      00401                                 
026822,002570: 
026823,002571: 35,3430           06006                          TC       INTPRET                               
026824,002572: 35,3431           77650                          GOTO                                           
026825,002573: 35,3432           73405                                   UTCGA1                                
026826,002574: 
026827,002575: 27,2000                                          SETLOC   R22S1                                 
026828,002576: 27,2000                                          BANK                                           
026829,002577: 
026830,002578: 27,2636                                          COUNT*   $$/CRS61                              
026831,002579: 27,2636           05057 23015  RADTOREV          2DEC     0.15915494                            #  RADIANS TO REV
026832,002580: 27,2640           07702        COSTEN            DEC      0.98481    B-2                        #  COSINE OF 10 DEG.
026833,002581: 27,2641           00034 20206  MAXRATE           2DEC     0.00174                               #  .1 DEG./SEC. RATE
026834,002582: 27,2643           06315        DELTYME           DEC      0.05       B2                         #  1/DELTA TIME  = 1/20 SEC
026835,002583: 27,2644           01616        DEGREE10          DEC      .05556                                #  10 DEG IN REV
026836,002584: 27,2645           37651 16721  RVCS/RDS          2DEC     15.915494  B-4                        #  100/2PI REV-CSEC/RAD-SEC.
026837,002585: 27,2647           31463 06315  TENTH             2DEC     .1         B+3                        #  .1 B-3 (TO SCALE ANG.RATE TO .1 INREMS)
026838,002586: 27,2651           20000 00000  MBDYTCTL          2DEC     .5                                    #                   7.25 DEG NEGATIVE
026839,002587: 27,2653           00000 00000                    2DEC     0          B-28                       #                   X-AXIS ROTATION MATRIX
026840,002588: 27,2655           00000 00000                    2DEC     0          B-28                       #                   CONVERTS BODY TO CTL
026841,002589: 27,2657           00000 00000                    2DEC     0          B-28                       #                   AXES. SAME AS QUADROT
026842,002590: 27,2661           17676 20113                    2DEC     .99200495  B-1                        #  COS7.25 B1      BUT SCALED B1
026843,002591: 27,2663           75766 45544                    2DEC     -.12619897 B-1                        #  -SIN7.25 B1
026844,002592: 27,2665           00000 00000                    2DEC     0          B-28                       
026845,002593: 27,2667           02011 32233                    2DEC     .12619897  B-1                        #  SIN7.25 B1
026846,002594:                                                                                                 # # Page 608
026847,002595: 27,2671           17676 20113                    2DEC     .99200495  B-1                        #  COS7.25 B1
026848,002596: 27,2673           00001        LOONE             OCT      00001                                 #  TO SET MPAC = 00001 FOR SPECIAL EXIT.
026849,002597: 27,2674     7673               FURST3            EQUALS   13,14,15                              #  CONSTANT FOR AUTOCK (OCT 70000).
026850,002598: 
026851,002599:                                                                                                 # # Page 609
026852,002600: 
026853,002601:                                                                                                 #  ..... S22.1 ORBITAL NAVIGATION ROUTINE
026854,002602:                                                                                                 #  MOD 1
026855,002603: 
026856,002604:                                                                                                 #  FUNCTONAL DESCRIPTION
026857,002605:                                                                                                 #   1. UPDATE CSM STATE VECTOR
026858,002606:                                                                                                 #   2. UPDATE LANDMARK POSITION
026859,002607:                                                                                                 #   3. CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS
026860,002608: 
026861,002609:                                                                                                 #  SUBROUTINES CALLED
026862,002610:                                                                                                 #   INTSTALL,INTEGRV,GETNUM,SETRE,R-TO-TP,RP-TO-R,BVECTORS,INCORP1,INCORP2
026863,002611:                                                                                                 #   LALOTORV,S22F2410,LAT-LONG,ROWDOT
026864,002612: 
026865,002613:                                                                                                 #  ERASABLE INITIALIZATION
026866,002614:                                                                                                 #   W=9X9 MATRIX
026867,002615:                                                                                                 #   ORBWFLAG=0 FOR INVALID W MATRIX,=1 FOR VALID W MATRIX
026868,002616:                                                                                                 #   ASTRONAUT ENTRY OF KNOWN,L,OFF
026869,002617:                                                                                                 #   8NN= NUMBER OF MARKS  DECIMAL INTEGER B-14
026870,002618:                                                                                                 #   REFSMMAT= TRANSFORMATION MATRIX
026871,002619:                                                                                                 #   MARKSTAT= ADDRESS OF START OF MARK DATA (MARK DATA OF EACH MARK IS
026872,002620:                                                                                                 #              STORED AS FOLLOWS,  TIME,AIG,SA,AMG,PA,AOG) TIME IS IN DOUBLE
026873,002621:                                                                                                 #              PRECISION,ALL OTHERS ARE IN SINGLE PRECISION
026874,002622:                                                                                                 #   CSM STATE VECTOR
026875,002623: 
026876,002624:                                                                                                 #  OUTPUT
026877,002625:                                                                                                 #   UPDATED CSM STATE VECTOR
026878,002626:                                                                                                 #   UPDATED LANDMARK POSITION
026879,002627:                                                                                                 #   NEW 6 DIMENSIONAL W MATRIX
026880,002628: 
026881,002629:                                                                                                 #  DEBRIS
026882,002630:                                                                                                 #   PUSH LIST,CSMPOS,ALPHAV,ERADM,UM,RCLP,USTAR,VARIANCE,X789,BVECTOR,8KK,
026883,002631:                                                                                                 #   S22LOC,SVMRKDAT TABLE,22SUBSCL,LANDMARK,CXOFF,S22C,LAT,LOG,ALT,
026884,002632:                                                                                                 #   TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
026885,002633: 
026886,002634: 30,2000                                          SETLOC   P20S6                                 
026887,002635: 30,2000                                          BANK                                           
026888,002636: 
026889,002637: 30,2466  E7,1751                                 EBANK=   LANDMARK                              
026890,002638: 30,2466                                          COUNT*   $$/P22                                
026891,002639: 30,2466           05362        S22.1             TC       2PHSCHNG                              
026892,002640: 30,2467           00004                          OCT      00004                                 
026893,002641: 30,2470           05022                          OCT      05022                                 
026894,002642: 30,2471           13000                          OCT      13000                                 
026895,002643: 30,2472           06006                          TC       INTPRET                               
026896,002644: 30,2473           45001                          SETPD    CALL                                  
026897,002645: 30,2474           00001                                   0D                                    
026898,002646: 30,2475           56603                                   SHIFTNDX                              
026899,002647: 30,2476           45134        FIG2EXIT          SXA,2    CALL                                  
026900,002648: 30,2477           03673                                   S22EORM                               #  SET =0 EARTH,=2 MOON FOR SHIFTING
026901,002649: 30,2500           56462                                   SETINTG                               
026902,002650:                                                                                                 #                 FLOWCHART D=0   THEN DIM0FLAG=0  D6OR9FLG NOT TESTED
026903,002651:                                                                                                 # # Page 610
026904,002652:                                                                                                 #                 FLOWCHART D=6   THEN DIM0FLAG=1  D6OR9FLG=0
026905,002653:                                                                                                 #                 FLOWCHART D=9   THEN DIM0FLAG=1  D6OR9FLG=1
026906,002654: 
026907,002655: 30,2501           43014                          BOFF     SETGO                                 
026908,002656: 30,2502           01751                                   ORBWFLAG                              
026909,002657: 30,2503           60506                                   SETWW5D                               #  BRANCH TO SET W0-W5,ORBWFLAG,D
026910,002658: 30,2504           01436                                   DIM0FLAG                              #  FLOWCHART D=6 PATH
026911,002659: 30,2505           60513                                   SETVANDI                              
026912,002660: 30,2506           71214        SETWW5D           CLEAR    DLOAD                                 
026913,002661: 30,2507           02676                                   RENDWFLG                              #  FLOWCHART D=0 PATH
026914,002662: 30,2510           02005                                   WORBPOS                               
026915,002663: 30,2511           34001                          STCALL   0                                     
026916,002664: 30,2512           56612                                   INITIALW                              
026917,002665: 30,2513           77370        SETVANDI          AXT,1    VLOAD                                 
026918,002666: 30,2514           00022                          DEC      18         B-14                       
026919,002667: 30,2515           15336                                   ZEROVECS                              
026920,002668: 30,2516           77731                          SSP                                            
026921,002669: 30,2517           00051                                   S1                                    
026922,002670: 30,2520           00006                          DEC      6          B-14                       
026923,002671: 30,2521           06467        NEXTW2W8          STORE    W          +54D,1                     #  CLEAR W2
026924,002672: 30,2522           06555                          STORE    W          +108D,1                    #         W5
026925,002673: 30,2523           06577                          STORE    W          +126D,1                    #         W6
026926,002674: 30,2524           06621                          STORE    W          +144D,1                    #         W7
026927,002675: 30,2525           06643                          STORE    W          +162D,1                    #         W8
026928,002676: 30,2526           43100                          TIX,1    CLEAR                                 
026929,002677: 30,2527           60521                                   NEXTW2W8                              
026930,002678: 30,2530           02666                                   DMENFLG                               #  0=6X6W, 1=9X9W
026931,002679: 30,2531           77624        S22NXTIN          CALL                                           
026932,002680: 30,2532           62357                                   GETTF                                 
026933,002681: 30,2533           34041                          STCALL   TDEC1                                 
026934,002682: 30,2534           27236                                   INTEGRV                               
026935,002683: 30,2535           45154                          LXA,2    CALL                                  
026936,002684: 30,2536           03673                                   S22EORM                               
026937,002685: 30,2537           71327                                   CMPOS                                 
026938,002686: 30,2540           45140                          LXC,1    CALL                                  
026939,002687: 30,2541           03750                                   S22LOC                                #  SETUP ADDR. OF MARK DATA FOR GETUM SUBR.
026940,002688: 30,2542           47017        S2GETUM                    GETUM                                 
026941,002689: 30,2543           01072                          STORE    UM                                    
026942,002690: 30,2544           41535        DMPINTEG          SLOAD    PUSH                                  #  TEST OFF=I
026943,002691: 30,2545           03746                                   8KK                                   
026944,002692: 30,2546           45335                          SLOAD    DSU                                   
026945,002693: 30,2547           03745                                   CXOFF                                 #  BEFORE SUBT.
026946,002694: 30,2550           43030                          BHIZ     BON                                   
026947,002695: 30,2551           61042                                   S22OFF=I                              #  BRANCH HERE IF OFF=I
026948,002696: 30,2552           02706                                   DMENFLG                               #  0=6X6W, 1=9X9W
026949,002697: 30,2553           61050                                   S22D=9                                
026950,002698: 30,2554           77624                          CALL                                           
026951,002699: 30,2555           22327                                   GRP2PC                                
026952,002700: 30,2556           77614                          SET                                            
026953,002701: 30,2557           01471                                   ORBWFLAG                              
026954,002702:                                                                                                 # # Page 611
026955,002703: 30,2560           43014                          SET      SET                                   
026956,002704: 30,2561           02466                                   DMENFLG                               #  =0 ON FIRST PASS THRU HERE FOR D=0,OR6
026957,002705: 30,2562           01062                                   22DSPFLG                              #  =1 TO DISPLAY DR,DV ON FIRST PASS
026958,002706: 30,2563           77614                          BON                                            
026959,002707: 30,2564           03307                                   KNOWNFLG                              
026960,002708: 30,2565           61204                                   S22BOX22                              
026961,002709: 30,2566           53575                          VLOAD    UNIT                                  #  UNIT ALSO PUTS ABVAL(RC) IN 36D
026962,002710: 30,2567           01046                                   CSMPOS                                
026963,002711: 30,2570           36152                          STCALL   ALPHAV                                #  ALPHAV +4=SINL FOR SETRE
026964,002712: 30,2571           26654                                   SETRE                                 #  ERADM= R0 METERS B-29 BOTH EARTH/MOON
026965,002713: 30,2572           77624                          CALL                                           #  COMPUTE RL FROM EQUATION 2.4.10
026966,002714: 30,2573           61331                                   S22F2410                              #  STORED IN X789,MPAC  B-27,B-29
026967,002715: 30,2574           70414                          BOFF     VSR2                                  #  SCALE RL B-29 FOR BOTH EARTH/MOON
026968,002716: 30,2575           04343                                   CMOONFLG                              
026969,002717: 30,2576           60577                                   +1                                    
026970,002718: 30,2577           02555                          STORE    S22RL                                 
026971,002719: 30,2600           72441                          DOT      SL1                                   
026972,002720: 30,2601           01072                                   UM                                    
026973,002721: 30,2602           24037                          STOVL    S22D                                  #  D= UM.RL B-29
026974,002722: 30,2603           15336                                   ZEROVECS                              
026975,002723: 30,2604           41401                          SETPD    PUSH                                  
026976,002724: 30,2605           00001                                   0D                                    
026977,002725: 30,2606           65206                          PUSH     PDDL                                  #  SET 0-18D = I BACKWARDS
026978,002726: 30,2607           15334                                   HIDPHALF                              #  PD 18
026979,002727: 30,2610           77702                          SR2                                            #  B-3
026980,002728: 30,2611           00005                          STORE    4D                                    
026981,002729: 30,2612           00011                          STORE    8D                                    
026982,002730: 30,2613           24015                          STOVL    12D                                   
026983,002731: 30,2614           01072                                   UM                                    #  B-1
026984,002732: 30,2615           24023                          STOVL    S223X1                                
026985,002733: 30,2616           02555                                   S22RL                                 #  B-29
026986,002734: 30,2617           77624                          CALL                                           #  (UM)(RL T) B-30 STORED IN S22UMRL THRU
026987,002735: 30,2620           62340                                   S2231X13                              #  S22UMRL +17D
026988,002736: 30,2621           66370                          AXT,1    SSP                                   
026989,002737: 30,2622           00022                          DEC      18         B-14                       
026990,002738: 30,2623           00051                                   S1                                    
026991,002739: 30,2624           00006                          DEC      6          B-14                       
026992,002740: 30,2625           70573        S22NXTU           VLOAD*   VSR2                                  #  (UM)(RL T) B-32
026993,002741: 30,2626           03524                                   S22UMRL    +18D,1                     
026994,002742: 30,2627           77741                          V/SC                                           
026995,002743: 30,2630           00037                                   S22D                                  #  D B-29
026996,002744: 30,2631           45445                          BVSU     STADR                                 #  SUBTRACT FROM I B-3
026997,002745: 30,2632           70253                          STORE    S22UMRL    +18D,1                     #  U MATRIX B-3
026998,002746: 30,2633           76100                          TIX,1    AXT,1                                 #  PD 0 AFTER TIX
026999,002747: 30,2634           60625                                   S22NXTU                               
027000,002748: 30,2635           00044                          DEC      36         B-14                       #  S1 STILL 6 FROM ABOVE
027001,002749: 30,2636           64373        S22NXTWI          VLOAD*   MXV                                   
027002,002750: 30,2637           02445                                   W          +36D,1                     #  B-19
027003,002751: 30,2640           03502                                   S22UMRL                               #  B-3
027004,002752: 30,2641           77732                          VSL3                                           
027005,002753:                                                                                                 # # Page 612
027006,002754: 30,2642           06621                          STORE    W          +144D,1                    #  W(I+18)= UW(I) B-19
027007,002755: 30,2643           71300                          TIX,1    DLOAD                                 
027008,002756: 30,2644           60636                                   S22NXTWI                              
027009,002757: 30,2645           00041                                   S22RHO                                #  B-28,B-30
027010,002758: 30,2646           60414                          BOFF     SR2                                   #  MAKE RHO B-30
027011,002759: 30,2647           04343                                   CMOONFLG                              
027012,002760: 30,2650           60651                                   +1                                    
027013,002761: 30,2651           57101                          NORM     XAD,2                                 
027014,002762: 30,2652           00050                                   X2                                    
027015,002763: 30,2653           00047                                   X2                                    
027016,002764: 30,2654           41316                          DSQ      DMP                                   
027017,002765: 30,2655           24024                                   SCTVAR                                #  B+18
027018,002766: 30,2656           76142                          SR1      AXT,1                                 #  ACCOUNTS FOR 1/2 IN NEXT FORMULA
027019,002767: 30,2657           00022                          DEC      18         B-14                       
027020,002768: 30,2660           00041                          STORE    S22RHO                                #  1/2(RHO SQ)(VARSCT)
027021,002769: 30,2661           64373        S22NXXA           VLOAD*   MXV                                   
027022,002770: 30,2662           03524                                   S22UMRL    +18D,1                     #  B-3
027023,002771: 30,2663           03502                                   S22UMRL                               #  B-3
027024,002772: 30,2664           53761                          VXSC     VSR*                                  
027025,002773: 30,2665           00041                                   S22RHO                                
027026,002774: 30,2666           57212                                   0          -12D,2                     #  WITH VARRP SCALED B-28
027027,002775: 30,2667           05136                          STORE    S22UUT     +18D,1                     #  1/2(RHO SQ)(VARSCT)(U)(U T)
027028,002776: 30,2670           77300                          TIX,1    VLOAD                                 
027029,002777: 30,2671           60661                                   S22NXXA                               
027030,002778: 30,2672           01072                                   UM                                    
027031,002779: 30,2673           34023                          STCALL   S223X1                                #  UM ALSO IN MPAC FOR S2231X13 SUBR.
027032,002780: 30,2674           62340                                   S2231X13                              #  (UM)(UM T) B-2 IN S22UMRL,P17D
027033,002781: 30,2675           50545                          DLOAD    SR3                                   
027034,002782: 30,2676           02240                                   ERADM                                 #  B0 B-29
027035,002783: 30,2677           63471                          DDV      DSQ                                   
027036,002784: 30,2700           00037                                   S22D                                  #  B-29
027037,002785: 30,2701           76005                          DMP      AXT,1                                 
027038,002786: 30,2702           02010                                   RPVAR                                 #  ***** METERS SQ
027039,002787: 30,2703           00022                          DEC      18         B-14                       
027040,002788: 30,2704           00041                          STORE    S22RHO                                #  TEMP (VARRP)(R0/D)
027041,002789: 30,2705           74373        S22NXXB           VLOAD*   VXSC                                  
027042,002790: 30,2706           03524                                   S22UMRL    +18D,1                     #  (UM)(UM T) B-2
027043,002791: 30,2707           00041                                   S22RHO                                
027044,002792: 30,2710           77653                          VAD*                                           
027045,002793: 30,2711           01136                                   S22UUT     +18D,1                     
027046,002794: 30,2712           05136                          STORE    S22UUT     +18D,1                     #  SMALL E MATRIX
027047,002795: 30,2713           40100                          TIX,1    BOV                                   
027048,002796: 30,2714           60705                                   S22NXXB                               
027049,002797: 30,2715           60716                                   +1                                    
027050,002798: 30,2716           50145                          DLOAD    BMN                                   
027051,002799: 30,2717           01134                                   S22UUT     +16D                       #  E5
027052,002800: 30,2720           60741                                   S22W76X                               
027053,002801: 30,2721           53166                          SQRT     BZE                                   
027054,002802: 30,2722           60741                                   S22W76X                               
027055,002803: 30,2723           77742                          SR1                                            #  B-19
027056,002804:                                                                                                 # # Page 613
027057,002805: 30,2724           16625                          STODL    W          +148D                      #  W74= SQ ROOT E5
027058,002806: 30,2725           01132                                   S22UUT     +14D                       #  E4
027059,002807: 30,2726           40071                          DDV      BOV                                   
027060,002808: 30,2727           02625                                   W          +148D                      
027061,002809: 30,2730           60733                                   S22W72X                               
027062,002810: 30,2731           77702                          SR2                                            #  B-19
027063,002811: 30,2732           02623                          STORE    W          +146D                      #  W73= E4/W74
027064,002812: 30,2733           56345        S22W72X           DLOAD    DDV                                   
027065,002813: 30,2734           01130                                   S22UUT     +12D                       #  E3
027066,002814: 30,2735           02625                                   W          +148D                      
027067,002815: 30,2736           40102                          SR2      BOV                                   #  B-19
027068,002816: 30,2737           60741                                   S22W76X                               
027069,002817: 30,2740           02621                          STORE    W          +144D                      #  W72= E4/W74
027070,002818: 30,2741           63545        S22W76X           DLOAD    DSQ                                   
027071,002819: 30,2742           02623                                   W          +146D                      
027072,002820: 30,2743           44312                          SL2      BDSU                                  
027073,002821: 30,2744           01124                                   S22UUT     +8D                        #  E2
027074,002822: 30,2745           75440                          BMN      SQRT                                  
027075,002823: 30,2746           60763                                   S22W78X                               
027076,002824: 30,2747           70454                          BZE      SR1                                   #  B-19
027077,002825: 30,2750           60763                                   S22W78X                               
027078,002826: 30,2751           16631                          STODL    W          +152D                      #  W76= SQ ROOT (E2-W73 SQ)
027079,002827: 30,2752           02621                                   W          +144D                      #  W72
027080,002828: 30,2753           62405                          DMP      SL2                                   
027081,002829: 30,2754           02623                                   W          +146D                      #  W73
027082,002830: 30,2755           56221                          BDSU     DDV                                   
027083,002831: 30,2756           01122                                   S22UUT     +6D                        #  E1
027084,002832: 30,2757           02631                                   W          +152D                      #  W76
027085,002833: 30,2760           60400                          BOV      SR2                                   #  B-19
027086,002834: 30,2761           60763                                   S22W78X                               
027087,002835: 30,2762           02627                          STORE    W          +150D                      #  W75= (E1-W72W73)/W76
027088,002836: 30,2763           63545        S22W78X           DLOAD    DSQ                                   
027089,002837: 30,2764           02627                                   W          +150D                      
027090,002838: 30,2765           63525                          PDDL     DSQ                                   
027091,002839: 30,2766           02621                                   W          +144D                      #  W72
027092,002840: 30,2767           62415                          DAD      SL2                                   
027093,002841: 30,2770           50021                          BDSU     BMN                                   
027094,002842: 30,2771           01114                                   S22UUT                                #  E0
027095,002843: 30,2772           60775                                   S22SAVET                              
027096,002844: 30,2773           70566                          SQRT     SR1                                   #  B-19
027097,002845: 30,2774           02635                          STORE    W          +156D                      #  W78= SQ RT(E0-W72 SQ-W75 SQ)
027098,002846: 30,2775           77624        S22SAVET          CALL                                           
027099,002847: 30,2776           62357                                   GETTF                                 
027100,002848: 30,2777           03672                          STORE    S22TPRIM                              #  SAVE PRESENT TIME FOR PIOS
027101,002849: 30,3000           77776        S22I=N            EXIT                                           #  TEST I=N
027102,002850: 30,3001           05402                          TC       PHASCHNG                              
027103,002851: 30,3002           04022                          OCT      04022                                 
027104,002852: 30,3003           41745                          CS       8KK                                   
027105,002853: 30,3004           61747                          AD       8NN                                   
027106,002854: 30,3005           00006                          EXTEND                                         
027107,002855:                                                                                                 # # Page 614
027108,002856: 30,3006           63222                          BZMF     S22F244X                              #  EXIT TO FIGURE 2.4-4
027109,002857: 30,3007           31745                          CA       8KK                                   #  I=I+1
027110,002858: 30,3010           64770                          AD       ONE                                   
027111,002859: 30,3011           55135                          TS       TEMPOR1                               
027112,002860: 30,3012           31750                          CA       S22LOC                                #  ADD 7 TO LOC TO GET ADDR. OF NEXT MARK
027113,002861: 30,3013           64774                          AD       SEVEN                                 
027114,002862: 30,3014           55136                          TS       TEMPOR1    +1                         
027115,002863: 30,3015           05402                          TC       PHASCHNG                              
027116,002864: 30,3016           04022                          OCT      04022                                 
027117,002865: 30,3017           31135                          CA       TEMPOR1                               
027118,002866: 30,3020           55745                          TS       8KK                                   
027119,002867: 30,3021           31136                          CA       TEMPOR1    +1                         
027120,002868: 30,3022           55750                          TS       S22LOC                                
027121,002869: 30,3023           06006                          TC       INTPRET                               
027122,002870: 30,3024           77624                          CALL                                           #  FOR ALL INTEGRATIONS OTHER THAN FIRST
027123,002871: 30,3025           56462        S2INTS1                    SETINTG                               
027124,002872: 30,3026           43014                          BOFF     SET                                   
027125,002873: 30,3027           02746                                   DMENFLG                               #  =0 D=0 OR 6, =1 D=9
027126,002874: 30,3030           61035                                   S22D6Z                                
027127,002875: 30,3031           01476                                   DIM0FLAG                              
027128,002876: 30,3032           77614                          SETGO                                          #  D=9 PATH
027129,002877: 30,3033           01435                                   D6OR9FLG                              
027130,002878: 30,3034           60531                                   S22NXTIN                              #  RETURN ALWAYS EXCEPT OFFSET POINT MARK 1
027131,002879: 30,3035           43014        S22D6Z            BOFF     SETGO                                 
027132,002880: 30,3036           01751                                   ORBWFLAG                              
027133,002881: 30,3037           60531                                   S22NXTIN                              #  D=0,OFFSET MARK 1,NO W INTEGRATION
027134,002882: 30,3040           01436                                   DIM0FLAG                              
027135,002883: 30,3041           60531                                   S22NXTIN                              #  D=6,OFFSET MARK 1, INTEGRATE W 6X6
027136,002884: 30,3042           77624        S22OFF=I          CALL                                           
027137,002885: 30,3043           62357                                   GETTF                                 
027138,002886: 30,3044           27670                          STOVL    S22TOFF                               #  TIME SUB OFF
027139,002887: 30,3045           01072                                   UM                                    
027140,002888: 30,3046           35054                          STCALL   S22UOFF                               #  U SUB OFF
027141,002889: 30,3047           61000                                   S22I=N                                #  TEST I=N
027142,002890: 30,3050           77775        S22D=9            VLOAD                                          #  D=9 PATH
027143,002891: 30,3051           01701                                   X789                                  
027144,002892: 30,3052           14001                          STODL    0D                                    #  CALL PIOS TWICE TO TRANSFORM RL TO TIME
027145,002893: 30,3053           03672                                   S22TPRIM                              #  T(SUB F) FROM TIME T PRIME
027146,002894: 30,3054           00007                          STORE    6D                                    
027147,002895: 30,3055           45135                          SLOAD    CALL                                  
027148,002896: 30,3056           03674                                   S22EORM                               #  0=EARTH, NON-ZERO=MOON
027149,002897: 30,3057           55370        S2RTRP                     R-TO-RP                               
027150,002898: 30,3060           45006                          PUSH     CALL                                  #  R-TO-RP LEAVES PUSHLOC AT 0
027151,002899: 30,3061           62357                                   GETTF                                 
027152,002900: 30,3062           00007                          STORE    6D                                    
027153,002901: 30,3063           45135                          SLOAD    CALL                                  
027154,002902: 30,3064           03674                                   S22EORM                               
027155,002903: 30,3065           55345        S2RPTR                     RP-TO-R                               
027156,002904: 30,3066           01701        S22BOX32          STORE    X789                                  
027157,002905: 30,3067           40014                          SET      BOV                                   
027158,002906:                                                                                                 # # Page 615
027159,002907: 30,3070           02464                                   INCORFLG                              #  FLAG=1
027160,002908: 30,3071           61072                                   +1                                    #  CLEAR OVERFLOW
027161,002909: 30,3072           77651                          VSU                                            
027162,002910: 30,3073           01046                                   CSMPOS                                
027163,002911: 30,3074           03531                          STORE    RCLP                                  #  RCL=RL-RC
027164,002912: 30,3075           47256                          UNIT     VXV                                   #  USTAR=UNIT(UNIT(RCL)XUM)
027165,002913: 30,3076           01072                                   UM                                    
027166,002914: 30,3077           40056                          UNIT     BOV                                   
027167,002915: 30,3100           60775                                   S22SAVET                              #  COMPUTATION OVERFLOW,SAVE TF
027168,002916: 30,3101           01102                          STORE    USTAR                                 
027169,002917: 30,3102           43345        S22BOX12          DLOAD    DAD                                   
027170,002918: 30,3103           24024                                   SCTVAR                                #  B+18
027171,002919: 30,3104           24026                                   IMUVARR                               #   B+18
027172,002920: 30,3105           27526                          STOVL    VARIANCE                              
027173,002921: 30,3106           03531                                   RCLP                                  #   B-29 OR B-27
027174,002922: 30,3107           60246                          ABVAL    NORM                                  
027175,002923: 30,3110           00047                                   X1                                    
027176,002924: 30,3111           41316                          DSQ      DMP                                   
027177,002925: 30,3112           03526                                   VARIANCE                              
027178,002926: 30,3113           56070                          XAD,1    XAD,1                                 
027179,002927: 30,3114           00046                                   X1                                    #  DOUBLE NORM SHIFT SINCE RCLP WAS SQUARED
027180,002928: 30,3115           03673                                   S22EORM                               #  DOUBLE EARTH OR MOON SHIFT,SAME REASON
027181,002929: 30,3116           53670                          XAD,1    SR*                                   
027182,002930: 30,3117           03673                                   S22EORM                               
027183,002931: 30,3120           20601                                   0,1                                   #  SCALE VARIANCE B-40 FOR BOTH EARTH,MOON
027184,002932: 30,3121           77751                          TLOAD                                          #  CHANGE MODE TO TRIPLE
027185,002933: 30,3122           00155                                   MPAC                                  
027186,002934: 30,3123           37526                          STCALL   VARIANCE                              #  CALC B0,B1,DELTAQ, NEW USTAR
027187,002935: 30,3124           46756        S2BVTRS                    BVECTORS                              
027188,002936: 30,3125           57575                          VLOAD    VCOMP                                 
027189,002937: 30,3126           03502                                   BVECTOR                               
027190,002938: 30,3127           37516                          STCALL   BVECTOR    +12D                       #  B2=-B0
027191,002939: 30,3130           75260        S2INCP1                    INCORP1                               
027192,002940: 30,3131           77624                          CALL                                           
027193,002941: 30,3132           22327                                   GRP2PC                                
027194,002942: 30,3133           45014                          BOFCLR   CALL                                  
027195,002943: 30,3134           01242                                   22DSPFLG                              #  =1 DISPLAY DELTA R,V  =0 DO NOT
027196,002944: 30,3135           61164                                   S22BOX42                              
027197,002945: 30,3136           22327                                   GRP2PC                                
027198,002946: 30,3137           51575                          VLOAD    ABVAL                                 
027199,002947: 30,3140           01114                                   DELTAX                                #  DELTA R
027200,002948: 30,3141           53750                          LXA,1    SR*                                   
027201,002949: 30,3142           03673                                   S22EORM                               #  SCALE DELTA R ALWAYS METERS B-29
027202,002950: 30,3143           20601                                   0,1                                   
027203,002951: 30,3144           27502                          STOVL    N49DISP                               
027204,002952: 30,3145           01122                                   DELTAX     +6                         #  DELTA V
027205,002953: 30,3146           53646                          ABVAL    SR*                                   #  DELTA V=METERS/CSEC B-7 ALWAYS
027206,002954: 30,3147           20601                                   0,1                                   
027207,002955: 30,3150           03504                          STORE    N49DISP    +2                         
027208,002956: 30,3151           77776                          EXIT                                           
027209,002957:                                                                                                 # # Page 616
027210,002958: 30,3152           35030                          CAF      V06N49EE                              
027211,002959: 30,3153           04636                          TC       BANKCALL                              
027212,002960: 30,3154           21101                          CADR     GOFLASHR                              
027213,002961: 30,3155           04103                          TC       GOTOPOOH                              #  V34E TERMINATE
027214,002962: 30,3156           03163                          TC       +5                                    #  INCORPORATE CHANGES
027215,002963: 30,3157           03321                          TC       P22OVER    +1                         #  V32E RECYCLE WITHOUT CONVERTING W
027216,002964: 30,3160           34766                          CAF      BIT3                                  
027217,002965: 30,3161           05516                          TC       BLANKET                               
027218,002966: 30,3162           05205                          TC       ENDOFJOB                              
027219,002967: 30,3163           06006                          TC       INTPRET                               
027220,002968: 30,3164           77624        S22BOX42          CALL                                           
027221,002969: 30,3165           75472                                   INCORP2                               
027222,002970: 30,3166           45154                          LXA,2    CALL                                  
027223,002971: 30,3167           03673                                   S22EORM                               
027224,002972: 30,3170           71327                                   CMPOS                                 
027225,002973: 30,3171           45014        DMPINCP2          BOFF     CALL                                  
027226,002974: 30,3172           02744                                   INCORFLG                              
027227,002975: 30,3173           60775                                   S22SAVET                              #  SAVE TF AND TEST I=N
027228,002976: 30,3174           22327                                   GRP2PC                                
027229,002977: 30,3175           77214                          CLEAR    VLOAD                                 
027230,002978: 30,3176           02664                                   INCORFLG                              #  FLAG=0
027231,002979: 30,3177           01701                                   X789                                  
027232,002980: 30,3200           77651                          VSU                                            
027233,002981: 30,3201           01046                                   CSMPOS                                
027234,002982: 30,3202           37531                          STCALL   RCLP                                  #  RCL=RL-RC
027235,002983: 30,3203           61102                                   S22BOX12                              
027236,002984: 30,3204           77735        S22BOX22          SLOAD                                          
027237,002985: 30,3205           02007                                   S22WSUBL                              
027238,002986: 30,3206           02621                          STORE    W          +144D                      
027239,002987: 30,3207           02631                          STORE    W          +152D                      
027240,002988: 30,3210           36641                          STCALL   W          +160D                      
027241,002989: 30,3211           62357                                   GETTF                                 
027242,002990: 30,3212           77624                          CALL                                           #  COMPUTE RL
027243,002991: 30,3213           26524                                   LALOTORV                              
027244,002992: 30,3214           43175                          VLOAD    BOFF                                  
027245,002993: 30,3215           02152                                   ALPHAV                                #  RL B-29
027246,002994: 30,3216           04343                                   CMOONFLG                              
027247,002995: 30,3217           61066                                   S22BOX32                              
027248,002996: 30,3220           52152                          VSL2     GOTO                                  #  SCALE RL B-27 FOR MOON
027249,002997: 30,3221           61066                                   S22BOX32                              
027250,002998: 30,3222           06006        S22F244X          TC       INTPRET                               
027251,002999: 30,3223           46135        S22F244           SLOAD    BHIZ                                  #  FIG 2.4-4   TEST OFF=0
027252,003000: 30,3224           03745                                   CXOFF                                 
027253,003001: 30,3225           61256                                   S22BOX44                              
027254,003002: 30,3226           67206                          PUSH     SLOAD                                 
027255,003003: 30,3227           03750                                   8NN                                   
027256,003004: 30,3230           77625                          DSU                                            
027257,003005: 30,3231           45040                          BMN      CALL                                  #  OFFSET GR. NO. MARKS, FORGET IT
027258,003006: 30,3232           61256                                   S22BOX44                              
027259,003007: 30,3233           22327                                   GRP2PC                                #  GROUP 2 PHASE CHANGE
027260,003008:                                                                                                 # # Page 617
027261,003009: 30,3234           77745                          DLOAD                                          
027262,003010: 30,3235           03670                                   S22TOFF                               
027263,003011: 30,3236           34041                          STCALL   TDEC1                                 #  CALC RC AT OFFSET TIME
027264,003012: 30,3237           27145                                   CSMPREC                               
027265,003013: 30,3240           77775                          VLOAD                                          
027266,003014: 30,3241           00017                                   RATT1                                 #  RC METERS B-29 OR B-27
027267,003015: 30,3242           25046                          STOVL    CSMPOS                                
027268,003016: 30,3243           01054                                   S22UOFF                               
027269,003017: 30,3244           25072                          STOVL    UM                                    #  U=UOFF
027270,003018: 30,3245           01701                                   X789                                  
027271,003019: 30,3246           43046                          ABVAL    BOFF                                  
027272,003020: 30,3247           04343                                   CMOONFLG                              
027273,003021: 30,3250           61252                                   +2                                    
027274,003022: 30,3251           77702                          SR2                                            #  SCALE MOON R0 B-29 FOR S22F2410 SUBR
027275,003023: 30,3252           36240                          STCALL   ERADM                                 
027276,003024: 30,3253           61331                                   S22F2410                              
027277,003025: 30,3254           77650                          GOTO                                           
027278,003026: 30,3255           61261                                   S22BX44A                              
027279,003027: 30,3256           77624        S22BOX44          CALL                                           
027280,003028: 30,3257           62357                                   GETTF                                 
027281,003029: 30,3260           03670                          STORE    S22TOFF                               #  PRESENT TIME FOR LAT-LONG SETUP
027282,003030: 30,3261           43175        S22BX44A          VLOAD    BOFF                                  
027283,003031: 30,3262           01701                                   X789                                  
027284,003032: 30,3263           04343                                   CMOONFLG                              
027285,003033: 30,3264           61266                                   S22BX44B                              
027286,003034: 30,3265           77742                          VSR2                                           #  SCALE RL MOON B-29 FOR LAT-LONG
027287,003035: 30,3266           16152        S22BX44B          STODL    ALPHAV                                #  RL SCALED B-29 FOR LAT-LONG
027288,003036: 30,3267           03670                                   S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
027289,003037: 30,3270           77624                          CALL                                           
027290,003038: 30,3271           26453                                   LAT-LONG                              #  **** ALT OUTPUT ALWAYS B-29
027291,003039: 30,3272           77624                          CALL                                           #  DISPLAY LAT/LONG/ALT
027292,003040: 30,3273           62363                                   LLASRD                                
027293,003041: 30,3274           77776                          EXIT                                           
027294,003042: 30,3275           35036                          CAF      V06N89B                               
027295,003043: 30,3276           04636                          TC       BANKCALL                              
027296,003044: 30,3277           20743                          CADR     GOFLASH                               
027297,003045: 30,3300           03324                          TC       S22GTP                                #  V34E TERMINATE
027298,003046: 30,3301           03315                          TC       S22.981X                              #  PROCEED POINT  A IN GSOP
027299,003047: 30,3302           06006                          TC       INTPRET                               #  RECYCLE SAVE LANDING SITE COORD
027300,003048: 30,3303           77745                          DLOAD                                          
027301,003049: 30,3304           03670                                   S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
027302,003050: 30,3305           24007                          STOVL    6D                                    #  6-7D= LANDING SITE TIME FOR R-TO-RP
027303,003051: 30,3306           01701                                   X789                                  
027304,003052: 30,3307           00001                          STORE    0D                                    #  0-5D= LANDING SITE VEC  FOR R-TO-RP
027305,003053: 30,3310           45135                          SLOAD    CALL                                  
027306,003054: 30,3311           15334                                   HIDPHALF                              #  ANY NON-ZERO FOR MOON
027307,003055: 30,3312           55370                                   R-TO-RP                               #  CONVERT RLS TO MOON-FIXED COORD
027308,003056: 30,3313           02026                          STORE    RLS                                   #  LANDING SITE VECTOR
027309,003057: 30,3314           77776                          EXIT                                           
027310,003058: 30,3315           06006        S22.981X          TC       INTPRET                               
027311,003059:                                                                                                 # # Page 618
027312,003060: 30,3316           77624                          CALL                                           
027313,003061: 30,3317           61363                                   9DWTO6DW                              
027314,003062: 30,3320           77776        P22OVER           EXIT                                           
027315,003063: 30,3321           05402                          TC       PHASCHNG                              
027316,003064: 30,3322           04022                          OCT      04022                                 
027317,003065: 30,3323           02206                          TC       PROG22A                               
027318,003066: 30,3324           06006        S22GTP            TC       INTPRET                               #  CONVERT W BEFORE TC GOTOPOOH
027319,003067: 30,3325           77624                          CALL                                           
027320,003068: 30,3326           61363                                   9DWTO6DW                              
027321,003069: 30,3327           77776                          EXIT                                           
027322,003070: 30,3330           04103                          TC       GOTOPOOH                              
027323,003071: 30,3331           77201        S22F2410          SETPD    VLOAD                                 #  COMPUTE FORMULA 2.4.10
027324,003072: 30,3332           00001                                   0D                                    
027325,003073: 30,3333           01046                                   CSMPOS                                #  RC B-29 EARTH,B-27 MOON
027326,003074: 30,3334           50256                          UNIT     DOT                                   #  UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
027327,003075: 30,3335           01072                                   UM                                    
027328,003076: 30,3336           57552                          SL1      DCOMP                                 #  GSOP CHANGE 8/18/67
027329,003077: 30,3337           63406                          PUSH     DSQ                                   #  PD 2D 0D=COSA=-(UM.RC)/ABVAL(RC) B-1
027330,003078: 30,3340           65221                          BDSU     PDDL                                  #  PD 4D 2D=1-COSA SQ=SINA SQ B-2
027331,003079: 30,3341           15326                                   DEC1B2                                
027332,003080: 30,3342           02240                                   ERADM                                 #  R0 ALWAYS B-29 FROM SETRE
027333,003081: 30,3343           62414                          BOFF     SL2                                   #  SCALE R0 B-27 FOR MOON
027334,003082: 30,3344           04343                                   CMOONFLG                              
027335,003083: 30,3345           61346                                   +1                                    
027336,003084: 30,3346           56362                          SR1R     DDV                                   #  (R0/RC) B-1
027337,003085: 30,3347           00045                                   36D                                   
027338,003086: 30,3350           45316                          DSQ      DSU                                   #  PD 2D (R0/RC) SQ - SINA SQ  B-2
027339,003087: 30,3351           44366                          SQRT     BDSU                                  #  PD 0D COSA-SQRT((R0/RC)SQ-SINA SQ) B-1
027340,003088: 30,3352           77605                          DMP                                            #  DMP RESULT B-28 MOON,B-30 EARTH
027341,003089: 30,3353           00045                                   36D                                   #  VXSC RESULT B-29 MOON, B-31 EARTH
027342,003090: 30,3354           00041                          STORE    S22RHO                                #  RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
027343,003091: 30,3355           77761                          VXSC                                           
027344,003092: 30,3356           01072                                   UM                                    
027345,003093: 30,3357           53352                          VSL2     VAD                                   #  SCALE B-27 MOON,B-29 EARTH AND ADD RC
027346,003094: 30,3360           01046                                   CSMPOS                                
027347,003095: 30,3361           01701                          STORE    X789                                  
027348,003096: 30,3362           77616                          RVQ                                            #  B-27 FOR EARTH OR B-29 FOR MOON
027349,003097: 31,2000                                          SETLOC   P22S                                  
027350,003098: 31,2000                                          BANK                                           
027351,003099: 
027352,003100: 31,2340                                          COUNT*   $$/P22                                
027353,003101: 31,2340           00031        S2231X13          STORE    S221X3                                #  MULT 3X1 BY 1X3,STORE RESULTING 3X3 IN
027354,003102: 31,2341           77131                          SSP      AXT,2                                 #  S22UMRL- S22UMRL +17D
027355,003103: 31,2342           00052                                   S2                                    
027356,003104: 31,2343           00002                          DEC      2          B-14                       
027357,003105: 31,2344           00006                          DEC      6          B-14                       
027358,003106: 31,2345           77770                          AXT,1                                          
027359,003107: 31,2346           00022                          DEC      18         B-14                       
027360,003108: 31,2347           73775        S2231NXT          VLOAD    VXSC*                                 
027361,003109: 31,2350           00031                                   S221X3                                
027362,003110:                                                                                                 # # Page 619
027363,003111: 31,2351           77746                                   S223X1     +6,2                       
027364,003112: 31,2352           07524                          STORE    S22UMRL    +18D,1                     
027365,003113: 31,2353           61110                          INCR,1   TIX,2                                 
027366,003114: 31,2354           77771                          DEC      -6         B-14                       
027367,003115: 31,2355           62347                                   S2231NXT                              
027368,003116: 31,2356           77616                          RVQ                                            
027369,003117: 31,2357           70740        GETTF             LXC,1    DLOAD*                                #  SET MPAC= TF
027370,003118: 31,2360           03750                                   S22LOC                                
027371,003119: 31,2361           00001                                   0,1                                   
027372,003120: 31,2362           77616                          RVQ                                            
027373,003121: 
027374,003122:                                                                                                 #  SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
027375,003123:                                                                                                 #  PRIOR TO DISPLAY.
027376,003124: 
027377,003125: 31,2363           70545        LLASRD            DLOAD    SR1                                   
027378,003126: 31,2364           00751                                   LONG                                  
027379,003127: 31,2365           16351                          STODL    LANDLONG                              
027380,003128: 31,2366           00753                                   ALT                                   
027381,003129: 31,2367           02353                          STORE    LANDALT                               
027382,003130: 31,2370           77616                          RVQ                                            
027383,003131:                                                                                                 #  SUBROUTINE TO MODIFY LANDALT AND STORE LANDALT TO LANDALT+5 IN LAT TO
027384,003132:                                                                                                 #  LAT+5 AFTER LMK DATA LOADED BY ASTRONAUT.
027385,003133: 
027386,003134: 31,2371           72545        LLASRDA           DLOAD    SL1                                   
027387,003135: 31,2372           02351                                   LANDLONG                              
027388,003136: 31,2373           14751                          STODL    LONG                                  
027389,003137: 31,2374           02353                                   LANDALT                               
027390,003138: 31,2375           00753                          STORE    ALT                                   
027391,003139: 31,2376           77616                          RVQ                                            
027392,003140: 30,2000                                          SETLOC   P20S6                                 
027393,003141: 30,2000                                          BANK                                           
027394,003142: 
027395,003143: 30,3363                                          COUNT*   $$/P22                                
027396,003144: 30,3363           40220        9DWTO6DW          STQ      SETPD                                 
027397,003145: 30,3364           01053                                   9DWXX                                 
027398,003146: 30,3365           00001                                   0D                                    
027399,003147: 30,3366           41575                          VLOAD    PUSH                                  #  CLEAR WORKING AREA OF PUSHLIST
027400,003148: 30,3367           15336                                   HI6ZEROS                              #  INCLUDING P
027401,003149: 30,3370           41406                          PUSH     PUSH                                  #  PD 18D
027402,003150: 30,3371           77731                          SSP                                            
027403,003151: 30,3372           00017                                   9DWJ                                  #  J=29   USE 2*29 FOR DP WORDS
027404,003152: 30,3373           00072                          DEC      58         B-14                       
027405,003153: 30,3374           66150        9DWI=J            LXA,1    SXA,1                                 #  SET I=J
027406,003154: 30,3375           00016                                   9DWJ                                  
027407,003155: 30,3376           00012                                   9DWI                                  
027408,003156: 30,3377           77624        9DWEPCAL          CALL                                           
027409,003157: 30,3400           61613                                   ROWDOT                                
027410,003158: 30,3401           77750                          LXA,1                                          #  P VARIES 0-20 INSTEAD OF 20-0
027411,003159: 30,3402           00010                                   9DWP                                  
027412,003160: 30,3403           06641                          STORE    EMATRIX    +40D,1                     
027413,003161:                                                                                                 # # Page 620
027414,003162: 30,3404           66110                          INCR,1   SXA,1                                 
027415,003163: 30,3405           00002                          DEC      2          B-14                       
027416,003164: 30,3406           00010                                   9DWP                                  
027417,003165: 30,3407           46135                          SLOAD    BHIZ                                  #  TEST I=0
027418,003166: 30,3410           00013                                   9DWI                                  
027419,003167: 30,3411           61426                                   9DWTESTJ                              
027420,003168: 30,3412           77625                          DSU                                            #  I=I-1
027421,003169: 30,3413           24022                                   9DWID                                 
027422,003170: 30,3414           00013                          STORE    9DWI                                  
027423,003171: 30,3415           46025                          DSU      BHIZ                                  #  TEST I=26
027424,003172: 30,3416           24020                                   9DW26D                                
027425,003173: 30,3417           61422                                   9DWSETI2                              
027426,003174: 30,3420           77650                          GOTO                                           #  NEXT E SUB P
027427,003175: 30,3421           61377                                   9DWEPCAL                              
027428,003176: 30,3422           52131        9DWSETI2          SSP      GOTO                                  #  I=2
027429,003177: 30,3423           00013                                   9DWI                                  
027430,003178: 30,3424           00004                          DEC      4          B-14                       
027431,003179: 30,3425           61377                                   9DWEPCAL                              
027432,003180: 30,3426           46135        9DWTESTJ          SLOAD    BHIZ                                  #  TEST J=0
027433,003181: 30,3427           00017                                   9DWJ                                  
027434,003182: 30,3430           61445                                   9DWFIG6                               
027435,003183: 30,3431           77625                          DSU                                            
027436,003184: 30,3432           24022                                   9DWID                                 
027437,003185: 30,3433           00017                          STORE    9DWJ                                  #  J=J-1
027438,003186: 30,3434           46025                          DSU      BHIZ                                  #  TEST J=26
027439,003187: 30,3435           24020                                   9DW26D                                
027440,003188: 30,3436           61441                                   9DWSETJ2                              
027441,003189: 30,3437           77650                          GOTO                                           
027442,003190: 30,3440           61374                                   9DWI=J                                
027443,003191: 30,3441           52131        9DWSETJ2          SSP      GOTO                                  #  SET J=2
027444,003192: 30,3442           00017                                   9DWJ                                  
027445,003193: 30,3443           00004                          DEC      4          B-14                       
027446,003194: 30,3444           61374                                   9DWI=J                                
027447,003195: 30,3445           77624        9DWFIG6           CALL                                           
027448,003196: 30,3446           22327                                   GRP2PC                                
027449,003197: 30,3447           77331                          SSP      VLOAD                                 #  START OF FIGURE 2.4-6
027450,003198: 30,3450           00017                                   9DWJ                                  #  J=29
027451,003199: 30,3451           00072                          DEC      58         B-14                       
027452,003200: 30,3452           15336                                   HI6ZEROS                              
027453,003201: 30,3453           00011                          STORE    9DWP                                  #  P,N,I=0
027454,003202: 30,3454           66370                          AXT,1    SSP                                   
027455,003203: 30,3455           00154                          DEC      108        B-14                       #  CLEAR WO TO W54
027456,003204: 30,3456           00051                                   S1                                    
027457,003205: 30,3457           00006                                   6                                     
027458,003206: 30,3460           06555        CLEARW54          STORE    W          +108D,1                    
027459,003207: 30,3461           77700                          TIX,1                                          
027460,003208: 30,3462           61460                                   CLEARW54                              
027461,003209: 30,3463           66150        9DWI=JA           LXA,1    SXA,1                                 #  I=J
027462,003210: 30,3464           00016                                   9DWJ                                  
027463,003211: 30,3465           00012                                   9DWI                                  
027464,003212:                                                                                                 # # Page 621
027465,003213: 30,3466           77624                          CALL                                           
027466,003214: 30,3467           61613                                   ROWDOT                                
027467,003215: 30,3470           43750                          LXA,1    BDSU*                                 
027468,003216: 30,3471           00010                                   9DWP                                  
027469,003217: 30,3472           02641                                   EMATRIX    +40D,1                     
027470,003218: 30,3473           66110                          INCR,1   SXA,1                                 #  -(P+1)
027471,003219: 30,3474           00002                                   2                                     
027472,003220: 30,3475           00010                                   9DWP                                  
027473,003221: 30,3476           54140                          LXC,1    XSU,1                                 #  -(I+N)
027474,003222: 30,3477           00012                                   9DWI                                  
027475,003223: 30,3500           00014                                   9DWN                                  
027476,003224: 30,3501           71244                          BPL      DLOAD                                 #  TEST WSQ LTE 0
027477,003225: 30,3502           61504                                   9DWAAA                                
027478,003226: 30,3503           15336                                   HI6ZEROS                              #  W=0
027479,003227: 30,3504           77766        9DWAAA            SQRT                                           #  W= SQRT(WSQ)
027480,003228: 30,3505           06401        9DWAAB            STORE    W,1                                   
027481,003229: 30,3506           14001                          STODL    WORKW                                 
027482,003230: 30,3507           00017                                   9DWJ                                  #  TEST J=0
027483,003231: 30,3510           77630                          BHIZ                                           
027484,003232: 30,3511           61577                                   9DWEXITX                              #  EXIT
027485,003233: 30,3512           46135        TST2I=0           SLOAD    BHIZ                                  #  TEST I=0
027486,003234: 30,3513           00013                                   9DWI                                  
027487,003235: 30,3514           61555                                   9DWN=N+3                              
027488,003236: 30,3515           77625                          DSU                                            
027489,003237: 30,3516           24022                                   9DWID                                 
027490,003238: 30,3517           00013                          STORE    9DWI                                  #  I=I-1
027491,003239: 30,3520           46025                          DSU      BHIZ                                  #  TEST I=26
027492,003240: 30,3521           24020                                   9DW26D                                
027493,003241: 30,3522           61525                                   9DWAAC                                
027494,003242: 30,3523           77650                          GOTO                                           
027495,003243: 30,3524           61530                                   9DWNEXEP                              
027496,003244: 30,3525           77731        9DWAAC            SSP                                            #  I=2
027497,003245: 30,3526           00013                                   9DWI                                  
027498,003246: 30,3527           00004                                   4                                     
027499,003247: 30,3530           77624        9DWNEXEP          CALL                                           
027500,003248: 30,3531           61613                                   ROWDOT                                
027501,003249: 30,3532           43750                          LXA,1    BDSU*                                 #  (EP-ROWI*ROWJ)/W
027502,003250: 30,3533           00010                                   9DWP                                  
027503,003251: 30,3534           02641                                   EMATRIX    +40D,1                     
027504,003252: 30,3535           62071                          DDV      INCR,1                                #  P=P+1
027505,003253: 30,3536           00001                                   WORKW                                 
027506,003254: 30,3537           00002                                   2                                     
027507,003255: 30,3540           70130                          SXA,1    LXC,1                                 
027508,003256: 30,3541           00010                                   9DWP                                  
027509,003257: 30,3542           00012                                   9DWI                                  
027510,003258: 30,3543           40060                          XSU,1    BOV                                   #  -(I+N)
027511,003259: 30,3544           00014                                   9DWN                                  
027512,003260: 30,3545           61550                                   SETWIN=0                              
027513,003261: 30,3546           77650                          GOTO                                           
027514,003262: 30,3547           61552                                   9DWSETWX                              
027515,003263:                                                                                                 # # Page 622
027516,003264: 30,3550           77745        SETWIN=0          DLOAD                                          #  W(I+N)=0
027517,003265: 30,3551           15336                                   HI6ZEROS                              
027518,003266: 30,3552           06401        9DWSETWX          STORE    W,1                                   
027519,003267: 30,3553           77650                          GOTO                                           
027520,003268: 30,3554           61512                                   TST2I=0                               
027521,003269: 30,3555           62150        9DWN=N+3          LXA,1    INCR,1                                #  N=N+3
027522,003270: 30,3556           00014                                   9DWN                                  
027523,003271: 30,3557           00006                                   6                                     
027524,003272: 30,3560           67330                          SXA,1    SLOAD                                 #  J=J-1
027525,003273: 30,3561           00014                                   9DWN                                  
027526,003274: 30,3562           00017                                   9DWJ                                  
027527,003275: 30,3563           77625                          DSU                                            
027528,003276: 30,3564           24022                                   9DWID                                 
027529,003277: 30,3565           00017                          STORE    9DWJ                                  
027530,003278: 30,3566           46025                          DSU      BHIZ                                  #  TEST J=26
027531,003279: 30,3567           24020                                   9DW26D                                
027532,003280: 30,3570           61573                                   SETJ=2A                               
027533,003281: 30,3571           77650                          GOTO                                           
027534,003282: 30,3572           61463                                   9DWI=JA                               
027535,003283: 30,3573           52131        SETJ=2A           SSP      GOTO                                  #  J=2
027536,003284: 30,3574           00017                                   9DWJ                                  
027537,003285: 30,3575           00004                                   4                                     
027538,003286: 30,3576           61463                                   9DWI=JA                               
027539,003287: 30,3577           77624        9DWEXITX          CALL                                           
027540,003288: 30,3600           22327                                   GRP2PC                                
027541,003289: 30,3601           66370                          AXT,1    SSP                                   #  CLEAR W6,W7,W8 USED TEMP FOR EMATRIX
027542,003290: 30,3602           00066                          DEC      54         B-14                       
027543,003291: 30,3603           00051                                   S1                                    
027544,003292: 30,3604           00006                                   6                                     
027545,003293: 30,3605           77775                          VLOAD                                          
027546,003294: 30,3606           15336                                   HI6ZEROS                              
027547,003295: 30,3607           06643        9DWEXXXA          STORE    W          +162D,1                    
027548,003296: 30,3610           52100                          TIX,1    GOTO                                  
027549,003297: 30,3611           61607                                   9DWEXXXA                              
027550,003298: 30,3612           01053                                   9DWXX                                 
027551,003299: 30,3613           40131        ROWDOT            SSP      BOV                                   
027552,003300: 30,3614           00007                                   XTMP1                                 
027553,003301: 30,3615           00377                          OCT      377                                   
027554,003302: 30,3616           61617                                   +1                                    
027555,003303: 30,3617           71140                          LXC,1    LXC,2                                 
027556,003304: 30,3620           00012                                   9DWI                                  
027557,003305: 30,3621           00016                                   9DWJ                                  
027558,003306: 30,3622           41545                          DLOAD    PUSH                                  
027559,003307: 30,3623           15336                                   HI6ZEROS                              
027560,003308: 30,3624           56743        ROWDOT1           DLOAD*   DMPR*                                 
027561,003309: 30,3625           02401                                   W,1                                   
027562,003310: 30,3626           75376                                   W,2                                   
027563,003311: 30,3627           41415                          DAD      PUSH                                  
027564,003312: 30,3630           62000                          BOV      INCR,1                                
027565,003313: 30,3631           61645                                   ROWDOT3                               
027566,003314:                                                                                                 # # Page 623
027567,003315: 30,3632           77771                          DEC      -6         B-14                       
027568,003316: 30,3633           67314                          INCR,2   SLOAD                                 
027569,003317: 30,3634           77771                          DEC      -6         B-14                       
027570,003318: 30,3635           00007                                   XTMP1                                 
027571,003319: 30,3636           70430                          BHIZ     SR1                                   
027572,003320: 30,3637           61643                                   ROWDOT2                               
027573,003321: 30,3640           00007                          STORE    XTMP1                                 
027574,003322: 30,3641           77650                          GOTO                                           
027575,003323: 30,3642           61624                                   ROWDOT1                               
027576,003324: 30,3643           77745        ROWDOT2           DLOAD                                          
027577,003325: 30,3644           77616                          RVQ                                            
027578,003326: 30,3645           77614        ROWDOT3           CLRGO                                          
027579,003327: 30,3646           01631                                   ORBWFLAG                              
027580,003328: 30,3647           61643                                   ROWDOT2                               
027581,003329: 30,3650                        WORKW             =        0D                                    
027582,003330: 30,3650                        XTMP1             =        6D                                    
027583,003331: 30,3650                        9DWP              =        8D                                    #  P
027584,003332: 30,3650                        9DWI              =        10D                                   #  I
027585,003333: 30,3650                        9DWN              =        12D                                   #  N
027586,003334: 30,3650                        9DWJ              =        14D                                   #  J
027587,003335: 30,3650                        S223X1            =        18D                                   #  6
027588,003336: 30,3650                        S221X3            =        24D                                   #  6
027589,003337: 30,3650                        S22D              =        30D                                   #  2
027590,003338: 30,3650                        S22RHO            =        32D                                   #  2
027591,003339: 32,2000                                          SETLOC   P20S9                                 
027592,003340: 32,2000                                          BANK                                           
027593,003341: 
027594,003342: 32,2017                                          COUNT*   $$/P22                                
027595,003343: 32,2017           00064 00000  9DW26D            2DEC     52         B-14                       
027596,003344: 32,2021           00002 00000  9DWID             2DEC     2          B-14                       
027597,003345: 32,2023           10306 36750  SCTVAR            2DEC     1.0        E-6        B+18            
027598,003346: 32,2025           00253 31436  IMUVARR           2DEC     0.04       E-6        B+18            
027599,003347: 32,2027  26,3325               DEC1B2            =        DP1/4TH                               #  1 B-2
027600,003348: 32,2027     5030               V06N49EE          =        V06N49                                
027601,003349: 32,2027     5036               V06N89B           =        V06N89                                
027602,003350: 23,2000                                          SETLOC   P20S2                                 
027603,003351: 23,2000                                          BANK                                           
027604,003352: 23,3143                                          COUNT*   $$/R63                                
027605,003353:                                                                                                 # # Page 624

Empty page.

027607,003355: 
027608,003356:                                                                                                 # # Page 625
027609,003357: 
027610,003358:                                                                                                 #  SUBROUTINE NAME:   V89CALL
027611,003359:                                                                                                 #  MOD NO:  0                       DATE: 8 FEB 1968
027612,003360:                                                                                                 #  MOD BY:  DIGITAL DEVEL GROUP    LOG SECTION:  P20-P25
027613,003361: 
027614,003362:                                                                                                 #  FUNCTIONAL DESCRIPTION:
027615,003363: 
027616,003364:                                                                                                 #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
027617,003365:                                                                                                 #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
027618,003366:                                                                                                 #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
027619,003367: 
027620,003368:                                                                                                 #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
027621,003369:                                                                                                 #  EXIT R63, OTHERWISE CONTINUE.
027622,003370: 
027623,003371:                                                                                                 #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
027624,003372:                                                                                                 #  ORIENTATION KNOWN TO CGC, CONTINUE.
027625,003373: 
027626,003374:                                                                                                 #  3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
027627,003375:                                                                                                 #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
027628,003376:                                                                                                 #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V22 E 2 E.  CONTINUE
027629,003377:                                                                                                 #  AFTER KEYING IN PROCEED.
027630,003378: 
027631,003379:                                                                                                 #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
027632,003380:                                                                                                 #  FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
027633,003381: 
027634,003382:                                                                                                 #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
027635,003383: 
027636,003384:                                                                                                 #      R63COMP JOB:
027637,003385:                                                                                                 #         
027638,003386:                                                                                                 #         UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
027639,003387: 
027640,003388:                                                                                                 #         CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3SM TO LM.
027641,003389: 
027642,003390:                                                                                                 #         DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
027643,003391:                                                                                                 #         ARE STORED FOR LATER R60CSM CALL.
027644,003392: 
027645,003393:                                                                                                 #  6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
027646,003394: 
027647,003395:                                                                                                 #  7. RECYCLE- RETURN TO STEP 5.
027648,003396:                                                                                                 #     TERMINATE- EXIT R63 ROUTINE
027649,003397:                                                                                                 #     PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
027650,003398: 
027651,003399: 
027652,003400:                                                                                                 #  CALLING SEQUENCE: V 89 E
027653,003401: 
027654,003402:                                                                                                 #  SUBROUTINES CALLED: CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
027655,003403: 
027656,003404:                                                                                                 #  ALARMS   1. OPERATOR ERROR IF NOT IN P00
027657,003405:                                                                                                 #            2. PROGRAM ALARM IF IMU IS OFF
027658,003406:                                                                                                 #            3. PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN
027659,003407:                                                                                                 # # Page 626
027660,003408: 
027661,003409:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED: NONE
027662,003410: 
027663,003411:                                                                                                 #  DEBRIS:  OPTION1, OPTION1+1, PRFTRKAT(PREF ATT FLAG),P21TIME, 3AXISFLG
027664,003412: 
027665,003413: 23,3143           00000 13560  DP1MIN            2DEC     6000       B-28                       
027666,003414: 
027667,003415: 23,3145  E4,1706                                 EBANK=   R63TIME                               
027668,003416: 31,2000                                          SETLOC   V89TAG                                
027669,003417: 31,2000                                          BANK                                           
027670,003418: 31,2377                                          COUNT*   $$/R63                                
027671,003419: 
027672,003420: 
027673,003421: 31,2377           04636        V89CALL           TC       BANKCALL                              #  IMU STATUS CHECK. RETURNS IF ORIENTATION
027674,003422: 31,2400           03731                          CADR     R02BOTH                               #  KNOWN. ALARMS IF NOT.
027675,003423: 31,2401           06006                          TC       INTPRET                               
027676,003424: 31,2402           71214                          CLEAR    DLOAD                                 
027677,003425: 31,2403           05667                                   AZIMFLAG                              
027678,003426: 31,2404           15336                                   ZEROVECS                              
027679,003427: 31,2405           03740                          STORE    UTPIT                                 
027680,003428: 31,2406           03742                          STORE    UTYAW                                 
027681,003429: 31,2407           77776                          EXIT                                           
027682,003430: 
027683,003431: 31,2410           32443                          CAF      VB06N78                               
027684,003432: 31,2411           04636                          TC       BANKCALL                              
027685,003433: 31,2412           21101                          CADR     GOFLASHR                              
027686,003434: 31,2413           05524                          TC       ENDEXT                                
027687,003435: 31,2414           12421                          TCF      V89RECL                               
027688,003436: 31,2415           02410                          TC       -5                                    
027689,003437: 
027690,003438: 31,2416           34766                          CAF      BIT3                                  
027691,003439: 31,2417           05516                          TC       BLANKET                               
027692,003440: 31,2420           05205                          TC       ENDOFJOB                              
027693,003441: 
027694,003442: 31,2421           06006        V89RECL           TC       INTPRET                               
027695,003443: 31,2422           43234                          RTB      DAD                                   
027696,003444: 31,2423           51751                                   LOADTIME                              #  READ PRESENT TIME
027697,003445: 31,2424           07144                                   DP1MIN                                #  INTEGRATE TO 1 MIN FROM NOW
027698,003446: 31,2425           36307                          STCALL   R63TIME                               #  STORE TIME FOR CALL TO R63COMP. R63COMP
027699,003447: 31,2426           73171                                   R63COMP                               #  LEAVES DESIRED GIM ANGS IN THETAD,LOS IN
027700,003448: 31,2427           77776                          EXIT                                           #  POINTVSM, AND SELECTED AXIS IN SCAXIS.
027701,003449: 31,2430           35031                          CAF      VB06N18                               #  V 06 N 18
027702,003450: 31,2431           04636                          TC       BANKCALL                              #  NOUN 18 REFERS TO THE DESIRED GIMBAL
027703,003451: 31,2432           20743                          CADR     GOFLASH                               
027704,003452: 31,2433           05524                          TC       ENDEXT                                #  TERMINATE
027705,003453: 31,2434           02436                          TC       +2                                    #  PROCEED
027706,003454: 31,2435           02421                          TC       V89RECL                               #  RECYCLE
027707,003455: 31,2436           05561                          TC       DOWNFLAG                              #  RESET 3 AXIS FLAG
027708,003456:                                                                                                 # # Page 627
027709,003457: 31,2437           00124                          ADRES    3AXISFLG                              #  RESET BIT 6 FLAG 5
027710,003458: 31,2440           04636                          TC       BANKCALL                              #  PERFORMS CSM MANEUVER TO ALIGN SELECTED
027711,003459: 31,2441           56074                          CADR     R60CSM                                #  SPACECRAFT AXIS TO LOS.
027712,003460: 31,2442           15524                          TCF      ENDEXT                                
027713,003461: 
027714,003462: 
027715,003463: 31,2443           01516        VB06N78           VN       0678                                  
027716,003464: 
027717,003465: 31,2444     5031               VB06N18           =        V06N18                                
027718,003466: 
027719,003467: 31,2444  35,3171               R63COMP           EQUALS   R63                                   
027720,003468: 
027721,003469:                                                                                                 # # Page 628
027722,003470: 
027723,003471:                                                                                                 #  PROGRAM NAME- P23 CISLUNAR MIDCOURSE NAVIGATION
027724,003472:                                                                                                 #  MOD NO
027725,003473:                                                                                                 #  MOD BY- TOM KNATT
027726,003474:                                                                                                 #  FUNCTIONAL DESCRIPTION- DO MIDCOURSE NAVIGATION BY INCORPORATION OF STAR 
027727,003475:                                                                                                 #  /EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
027728,003476:                                                                                                 #  CALLING SEQUENCE- ASTRONAUT OPERATED
027729,003477:                                                                                                 #  SUBROUTINES CALLED-R52,R53,R57,R60,ORBITAL INTEGRATION (INTEGRV)
027730,003478:                                                                                                 #  INCORP1,INCORP2,LALOTORV,LUNPOS  ,AND DISPLAY INTERFACE ROuTINES.
027731,003479:                                                                                                 #  N0RMAL EXIT MODES- VIA R00
027732,003480:                                                                                                 #  ALARMS- NONE
027733,003481:                                                                                                 #  ABORT MODES- NONE
027734,003482:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED- PAD-LOADED ERASABLES,ORBWFLAG RESET,
027735,003483:                                                                                                 #  REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ON
027736,003484:                                                                                                 #  INPUTS BY USER REQUIRED- STAR NUMBER,LANDMARK LAT,LONG/2,ALT
027737,003485:                                                                                                 #  IF LANDMARK IS USED,        NEAR OR FAR HORIZON IF HORIZON IS USED, AND 
027738,003486:                                                                                                 #  BODY TO BE MARKED ON (EARTH OR MOON).  SEE GSOP CHAPT 4.
027739,003487:                                                                                                 #  OUTPUT-UPDATED CMC STATE VECTOR. VECTOR FROM S/C TO HORIZON OR LANDMARK
027740,003488:                                                                                                 #  IN POINTAXS. POINTAXS CAN BE USED TO GENERATE THIS VECTOR APART FROM
027741,003489:                                                                                                 #  P23 IF DESIRED.
027742,003490:                                                                                                 #  DEBRIS-NO USABLE DEBRIS IS GENERATED. RENDWFLG IS RESET FOR P20 UPON
027743,003491:                                                                                                 #  ENTRY INTO P23.    RUPTREGS AND ERASABLES USED BY DISPLAYS ARE DEBRIS.
027744,003492: 31,2000                                          SETLOC   RT23                                  
027745,003493: 31,2000                                          BANK                                           
027746,003494: 31,2444                                          COUNT*   $$/P23                                
027747,003495: 31,2444  E7,1722                                 EBANK=   MRKBUF1                               
027748,003496: 31,2444           05561        P23               TC       DOWNFLAG                              
027749,003497: 31,2445           00010                          ADRES    RNDVZFLG                              
027750,003498: 
027751,003499: 31,2446           05362                          TC       2PHSCHNG                              
027752,003500: 31,2447           00004                          OCT      00004                                 #  LEAVE GROUP 4
027753,003501: 31,2450           00012                          OCT      00012                                 #  ENTER GROUP 2
027754,003502: 31,2451           35052                          CAF      PRIO13                                
027755,003503: 31,2452           55262                          TS       PHSPRDT2                              
027756,003504: 31,2453           05561                          TC       DOWNFLAG                              
027757,003505: 31,2454           00131                          ADRES    RENDWFLG                              
027758,003506: 31,2455           06006        P23.00            TC       INTPRET                               
027759,003507: 31,2456           45014                          BON      CALL                                  
027760,003508: 31,2457           01702                                   REFSMFLG                              #  SET NOW AS INPUT, NORMALLY EXTERNAL CONT
027761,003509: 31,2460           62466                                   P23.05                                #  WHEN ALIGNED,PERFORM MEASUREMENT
027762,003510: 31,2461           76167                                   R57                                   #  DO OPTICS CALIBRATION IF IMU NOT ALIGNED.
027763,003511: 31,2462           77624                          CALL                                           
027764,003512: 31,2463           31571                                   R53                                   
027765,003513: 31,2464           77650                          GOTO                                           
027766,003514: 31,2465           62567                                   P23.60                                
027767,003515: 31,2466           45014        P23.05            CLEAR    CALL                                  
027768,003516: 31,2467           04665                                   SAVECFLG                              
027769,003517: 31,2470           76167                                   R57                                   #  PERFORM MARK CALIBRATION
027770,003518: 31,2471           45135        P23.06            SLOAD    CALL                                  
027771,003519: 31,2472           23513                                   V05N70                                
027772,003520: 31,2473           63355                                   P23N7071                              
027773,003521:                                                                                                 # # Page 629
027774,003522: 31,2474           77634        V94ENTER          RTB                                            
027775,003523: 31,2475           51751                                   LOADTIME                              #  READ CLOCK
027776,003524: 31,2476           35062                          STCALL   MARKTIME                              
027777,003525: 31,2477           63002                                   POINTAXS                              #  RETURN LOS IN MPAC
027778,003526: 31,2500           03642                          STORE    UCLSTAR                               #  TEMP
027779,003527: 31,2501           77776                          EXIT                                           
027780,003528: 31,2502           33514                          CAF      V50N25P                               
027781,003529: 31,2503           04636                          TC       BANKCALL                              
027782,003530: 31,2504           21067                          CADR     GOPERF1                               #  GOPERF1 BLANKS OUT R2 AND R3.
027783,003531: 31,2505           04103                          TC       GOTOPOOH                              
027784,003532: 31,2506           02510                          TC       +2                                    #  PRO DO 3AXIS MANEUVER
027785,003533: 31,2507           02552                          TC       DOVECPT                               #  ENTER DO VECPOINT MANEUVER
027786,003534: 31,2510           06006                          TC       INTPRET                               
027787,003535: 31,2511           53575                          VLOAD    UNIT                                  
027788,003536: 31,2512           03642                                   UCLSTAR                               
027789,003537: 31,2513           36706                          STCALL   ZSM                                   #  UCL
027790,003538: 31,2514           62614                                   R23.55                                #  COMPUTE STAR VECTOR AND LEAVE IN MPAC
027791,003539: 
027792,003540: 31,2515           53435        OCCLCOMP          VXV      UNIT                                  #  COMPUTE CONSTRAINED BRSB MATRIX(SHAFT
027793,003541: 31,2516           02706                                   ZSM                                   #                                  =180)
027794,003542: 31,2517           02700                          STORE    YSM                                   #  UNIT(US* X UCL)
027795,003543: 31,2520           53435                          VXV      UNIT                                  
027796,003544: 31,2521           02706                                   ZSM                                   
027797,003545: 31,2522           02672                          STORE    XSM                                   #  UNIT(UNIT(US* X UCL) X UCL)
027798,003546: 31,2523           76131                          SSP      AXT,1                                 
027799,003547: 31,2524           00051                                   S1                                    
027800,003548: 31,2525           00006                                   6                                     
027801,003549: 31,2526           00022                                   18D                                   
027802,003550: 31,2527           61373        NEXTVEC1          VLOAD*   VXM                                   #  COMPUTE BRNB = (SBNB)(BRSB)
027803,003551: 31,2530           06322                                   NB1NB2     +18D,1                     
027804,003552: 31,2531           02672                                   XSM                                   
027805,003553: 31,2532           77656                          UNIT                                           
027806,003554: 31,2533           06736                          STORE    XNB        +18D,1                     #  STORE IN XNB FOR CALCGA
027807,003555: 31,2534           76100                          TIX,1    AXT,1                                 
027808,003556: 31,2535           62527                                   NEXTVEC1                              
027809,003557: 31,2536           00022                                   18D                                   
027810,003558: 31,2537           77773        NEXTVEC2          VLOAD*                                         #  LOAD REFSMMAT INTO XSM FOR CALCGA
027811,003559: 31,2540           01756                                   REFSMMAT   +18D,1                     
027812,003560: 31,2541           06714                          STORE    XSM        +18D,1                     
027813,003561: 31,2542           45100                          TIX,1    CALL                                  
027814,003562: 31,2543           62537                                   NEXTVEC2                              
027815,003563: 31,2544           47344                                   CALCGA                                #  COMPUTE DESIRED CDUS
027816,003564: 31,2545           45014                          SET      CALL                                  
027817,003565: 31,2546           02471                                   3AXISFLG                              
027818,003566: 31,2547           62765                                   DOR60B                                
027819,003567: 31,2550           77650                          GOTO                                           
027820,003568: 31,2551           62556                                   P23.57A                               
027821,003569: 31,2552           06006        DOVECPT           TC       INTPRET                               
027822,003570: 31,2553           45175                          VLOAD    CALL                                  
027823,003571: 31,2554           03642                                   UCLSTAR                               
027824,003572:                                                                                                 # # Page 630
027825,003573: 31,2555           62756                                   DOR60                                 
027826,003574: 31,2556           77624        P23.57A           CALL                                           
027827,003575: 31,2557           22327                                   GRP2PC                                
027828,003576: 31,2560           43014        P23.57            CLEAR    SET                                   
027829,003577: 31,2561           00666                                   TARG2FLG                              
027830,003578: 31,2562           04464                                   V94FLAG                               
027831,003579: 31,2563           77624                          CALL                                           
027832,003580: 31,2564           31005                                   R52                                   
027833,003581: 31,2565           77614                          CLEAR                                          
027834,003582: 31,2566           04664                                   V94FLAG                               
027835,003583: 31,2567           77776        P23.60            EXIT                                           
027836,003584: 31,2570           00004                          INHINT                                         
027837,003585: 31,2571           00006                          EXTEND                                         
027838,003586: 31,2572           31723                          DCA      MRKBUF1                               
027839,003587: 31,2573           53062                          DXCH     MARKTIME                              
027840,003588: 31,2574           31727                          CA       MRKBUF1    +5                         
027841,003589: 31,2575           57754                          XCH      TRUNION                               
027842,003590: 31,2576           00003                          RELINT                                         
027843,003591: 31,2577           36211                          CAF      SIX                                   
027844,003592: 31,2600           05607                          TC       GENTRAN                               
027845,003593: 31,2601           01722                          ADRES    MRKBUF1                               
027846,003594: 31,2602           01674                          ADRES    MARKDOWN                              
027847,003595: 31,2603           06006                          TC       INTPRET                               
027848,003596: 31,2604           45014                          SET      CALL                                  
027849,003597: 31,2605           04465                                   SAVECFLG                              
027850,003598: 31,2606           22327                                   GRP2PC                                
027851,003599: 31,2607           45135                          SLOAD    CALL                                  
027852,003600: 31,2610           23514                                   V05N71                                
027853,003601: 31,2611           63355                                   P23N7071                              
027854,003602: 31,2612           77624        P23.85            CALL                                           
027855,003603: 31,2613           63002                                   POINTAXS                              
027856,003604: 31,2614           63256        R23.55            UNIT     PDVL                                  #  RCLL IS IN MPAC
027857,003605: 31,2615           00043                                   34D                                   #  RCLL * RCLL
027858,003606: 31,2616           24037                          STOVL    30D                                   #  PUSH 30-31 =RCLL*RCLL 32-33=ABVAL RCLL
027859,003607: 31,2617           03634                                   VZC                                   
027860,003608: 31,2620           54361                          VXSC     VSR                                   
027861,003609: 31,2621           23475                                   ONE/C                                 
027862,003610: 31,2622           20620                                   15D                                   
027863,003611: 31,2623           77655                          VAD                                            #  PUSH UP RCLL(UNIT)
027864,003612: 31,2624           77656                          UNIT                                           
027865,003613: 31,2625           27642                          STOVL    UCLSTAR                               
027866,003614: 31,2626           03634                                   VZC                                   
027867,003615: 31,2627           52342                          VSR2     VSU                                   
027868,003616: 31,2630           02141                                   VESO                                  
027869,003617: 31,2631           54361                          VXSC     VSR                                   
027870,003618: 31,2632           23475                                   ONE/C                                 
027871,003619: 31,2633           20616                                   13D                                   
027872,003620: 31,2634           53455                          VAD      UNIT                                  
027873,003621: 31,2635           02617                                   US                                    
027874,003622: 31,2636           77614                          BOFF                                           
027875,003623:                                                                                                 # # Page 631
027876,003624: 31,2637           04745                                   SAVECFLG                              
027877,003625: 31,2640           62515                                   OCCLCOMP                              
027878,003626: 31,2641           03650                          STORE    USSTAR                                
027879,003627: 31,2642           72441                          DOT      SL1                                   
027880,003628: 31,2643           03642                                   UCLSTAR                               
027881,003629: 31,2644           74315                          PDVL     VXSC                                  #  PD 0,1 = USSTAR(DOT)UCLSTAR
027882,003630: 31,2645           03642                                   UCLSTAR                               
027883,003631: 31,2646           51372                          VSL1     BVSU                                  
027884,003632: 31,2647           03650                                   USSTAR                                
027885,003633: 31,2650           77656                          UNIT                                           
027886,003634: 31,2651           27502                          STOVL    BVECTOR                               #  USSTAR - COSQ(UCLSTAR
027887,003635: 31,2652           15336                                   ZEROVECS                              
027888,003636: 31,2653           03510                          STORE    BVECTOR    +6                         
027889,003637: 31,2654           17516                          STODL    BVECTOR    +12D                       
027890,003638: 31,2655           00001                                   0                                     
027891,003639: 31,2656           57526                          ACOS     DCOMP                                 
027892,003640: 31,2657           77525                          PDDL     EXIT                                  
027893,003641: 31,2660           15336                                   ZEROVECS                              
027894,003642: 31,2661           33505                          CA       VARSUBL                               #  PUT FIXED INTO ERASABLE FOR MSU
027895,003643: 31,2662           54001                          TS       L                                     #  INSTRUCTION COMING UP
027896,003644: 31,2663           31754                          CA       TRUNION                               #  REQUIRED TO CHANGE 2'S COMPLEMENT
027897,003645: 31,2664           00006                          EXTEND                                         #  TRUNION TO 1'S COMPLEMENT
027898,003646: 31,2665           20001                          MSU      L                                     #  TRUNION (2'S)-00000 CONVERTS TRUNION TO
027899,003647: 31,2666           54154                          TS       MPAC                                  #  1'S. VARSUBL=00000
027900,003648: 31,2667           06006                          TC       INTPRET                               
027901,003649: 31,2670           67206                          PUSH     SLOAD                                 #  PUSH IS DP. WHEN BDSU IS EXECUTED, 2ND
027902,003650: 31,2671           01025                                   TRUNBIAS                              #  HALF OF PUSHLIST IS GUARANTEED ZERO FROM
027903,003651: 31,2672           77621                          BDSU                                           #  DLOAD ZEROVECS ABOVE
027904,003652: 31,2673           43242                          SR3      DAD                                   
027905,003653: 31,2674           41215                          DAD      DMP                                   
027906,003654: 31,2675           23505                                   TRUN19                                
027907,003655: 31,2676           00041                                   32D                                   
027908,003656: 31,2677           52405                          DMP      SL3                                   
027909,003657: 31,2700           07016                                   PI/4.0                                
027910,003658: 31,2701           62414                          BOFF     SL2                                   
027911,003659: 31,2702           04343                                   CMOONFLG                              
027912,003660: 31,2703           62704                                   R23.51                                
027913,003661: 31,2704           17524        R23.51            STODL    DELTAQ                                
027914,003662: 31,2705           00037                                   30D                                   #  RCLL * RCLL
027915,003663: 31,2706           47005                          DMP      RTB                                   
027916,003664: 31,2707           23511                                   TRUNVAR                               
027917,003665: 31,2710           45657                                   TPMODE                                
027918,003666: 31,2711           43171                          TAD      CLEAR                                 
027919,003667: 31,2712           23506                                   VARSUBL                               
027920,003668: 31,2713           02666                                   DMENFLG                               
027921,003669: 31,2714           37526                          STCALL   VARIANCE                              
027922,003670: 31,2715           75260                                   INCORP1                               
027923,003671: 31,2716           77624                          CALL                                           
027924,003672: 31,2717           22327                                   GRP2PC                                
027925,003673: 31,2720           51575                          VLOAD    ABVAL                                 
027926,003674:                                                                                                 # # Page 632
027927,003675: 31,2721           01122                                   DELTAX     +6                         
027928,003676: 31,2722           60414                          BOF      SR2                                   #  DISPLAY IS 2-27 IF IN LUNAR SPHERE
027929,003677: 31,2723           04343                                   CMOONFLG                              
027930,003678: 31,2724           62725                                   R23.52                                
027931,003679: 31,2725           27504        R23.52            STOVL    N49DISP    +2                         
027932,003680: 31,2726           01114                                   DELTAX                                
027933,003681: 31,2727           77646                          ABVAL                                          
027934,003682: 31,2730           60414                          BOF      SR2                                   
027935,003683: 31,2731           04343                                   CMOONFLG                              
027936,003684: 31,2732           62733                                   R23.53                                
027937,003685: 31,2733           03502        R23.53            STORE    N49DISP                               
027938,003686: 31,2734           77776                          EXIT                                           
027939,003687: 31,2735           35030        R23.6             CAF      V06N49                                
027940,003688: 31,2736           04636                          TC       BANKCALL                              
027941,003689: 31,2737           21101                          CADR     GOFLASHR                              
027942,003690: 31,2740           04103                          TC       GOTOPOOH                              
027943,003691: 31,2741           02750                          TC       R23.7                                 #  INCORPORATE DATA
027944,003692: 31,2742           04103                          TC       GOTOPOOH                              
027945,003693: 31,2743           34766                          CAF      BIT3                                  #  BLAN OUT R3
027946,003694: 31,2744           05516                          TC       BLANKET                               
027947,003695: 31,2745           05402                          TC       PHASCHNG                              
027948,003696: 31,2746           00012                          OCT      00012                                 
027949,003697: 31,2747           05205                          TC       ENDOFJOB                              
027950,003698: 31,2750           06006        R23.7             TC       INTPRET                               
027951,003699: 31,2751           45014        R23.8             SET      CALL                                  
027952,003700: 31,2752           00467                                   VEHUPFLG                              
027953,003701: 31,2753           75472                                   INCORP2                               
027954,003702: 31,2754           77776                          EXIT                                           
027955,003703: 31,2755           04103        R23.END           TC       GOTOPOOH                              
027956,003704: 31,2756           53521        DOR60             MXV      UNIT                                  
027957,003705: 31,2757           01734                                   REFSMMAT                              
027958,003706: 31,2760           27357                          STOVL    POINTVSM                              
027959,003707: 31,2761           23517                                   JCAXIS                                
027960,003708: 31,2762           03351                          STORE    SCAXIS                                
027961,003709: 31,2763           77614                          CLEAR                                          
027962,003710: 31,2764           02671                                   3AXISFLG                              #  SET UP FOR VECPOINT IN R60
027963,003711: 31,2765           77420        DOR60B            STQ      EXIT                                  
027964,003712: 31,2766           02657                                   SRTEMP                                
027965,003713: 31,2767           33524                          CAF      R60ADRS                               
027966,003714: 31,2770           54373                          TS       TEMPFLSH                              
027967,003715: 31,2771           05402                          TC       PHASCHNG                              
027968,003716: 31,2772           00012                          OCT      00012                                 
027969,003717: 31,2773           04611        R60CALL           TC       E6SETTER                              
027970,003718: 31,2774           04636                          TC       BANKCALL                              
027971,003719: 31,2775           56074                          CADR     R60CSM                                
027972,003720: 31,2776           04606                 +3       TC       E7SETTER                              
027973,003721: 31,2777           06006                          TC       INTPRET                               
027974,003722: 31,3000           77650                          GOTO                                           
027975,003723: 31,3001           02657                                   SRTEMP                                
027976,003724:                                                                                                 # # Page 633
027977,003725: 
027978,003726:                                                                                                 #  POINTAXIS SUBROUTINE
027979,003727: 
027980,003728: 31,3002           77620        POINTAXS          STQ                                            
027981,003729: 31,3003           01006                                   POINTEX                               
027982,003730: 31,3004           71214        R23.05            BON      DLOAD                                 
027983,003731: 31,3005           01711                                   ORBWFLAG                              
027984,003732: 31,3006           63012                                   R23.1                                 
027985,003733: 31,3007           03001                                   WMIDPOS                               
027986,003734: 31,3010           34001                          STCALL   0                                     
027987,003735: 31,3011           56612                                   INITIALW                              #  INITIALIZE W-MATRIX FIRST PASS IN P23
027988,003736: 31,3012           77624        R23.1             CALL                                           
027989,003737: 31,3013           56462                                   SETINTG                               #  SETUP FOR CSM INTEGRATION
027990,003738: 31,3014           43014                          BOFSET   SET                                   
027991,003739: 31,3015           01451                                   ORBWFLAG                              
027992,003740: 31,3016           63020                                   R23.2                                 
027993,003741: 31,3017           01476                                   DIM0FLAG                              
027994,003742: 31,3020           77624        R23.2             CALL                                           
027995,003743: 31,3021           27236                                   INTEGRV                               #  INTEGRATE CSM STATE VEC. TO MARKTIME
027996,003744: 31,3022           77776                          EXIT                                           
027997,003745: 31,3023           05402                          TC       PHASCHNG                              
027998,003746: 31,3024           04022                          OCT      04022                                 
027999,003747: 31,3025           06006                          TC       INTPRET                               
028000,003748: 31,3026           77014        RECT.1            BOFF     AXT,2                                 #  SR TO SET ZMEASURE = 0 IF MEASUREMENT
028001,003749: 31,3027           04343                                   CMOONFLG                              #   PLANET AND PRIMARY PLANET ARE THE SAME
028002,003750: 31,3030           63040                                   RECT.3                                #    OTHERWISE = 1
028003,003751: 31,3031           77775                          DEC      -2         B-14                       
028004,003752: 31,3032           77614                          BOFF                                           #      VEC. AND SCALE B29 AND B7
028005,003753: 31,3033           01743                                   LUNAFLAG                              
028006,003754: 31,3034           63044                                   RECT.4                                
028007,003755: 31,3035           52014        RECT.2            CLEAR    GOTO                                  
028008,003756: 31,3036           00265                                   ZMEASURE                              
028009,003757: 31,3037           63046                                   RECT.5                                
028010,003758: 31,3040           43174        RECT.3            AXT,2    BOFF                                  
028011,003759: 31,3041           00000                                   0                                     
028012,003760: 31,3042           01743                                   LUNAFLAG                              
028013,003761: 31,3043           63035                                   RECT.2                                
028014,003762: 31,3044           77614        RECT.4            SET                                            
028015,003763: 31,3045           00065                                   ZMEASURE                              
028016,003764: 31,3046           44575        RECT.5            VLOAD    VSR7                                  
028017,003765: 31,3047           01573                                   DELTACSM                              #  SCALED B22  OR  B18
028018,003766: 31,3050           53257                          VSR*     VAD                                   
028019,003767: 31,3051           57176                                   0,2                                   
028020,003768: 31,3052           01607                                   RCVCSM                                #  SCALED B29  OR  B27
028021,003769: 31,3053           77657                          VSR*                                           
028022,003770: 31,3054           57176                                   0,2                                   
028023,003771: 31,3055           27626                          STOVL    RZC                                   #  NOW SCALED B29
028024,003772: 31,3056           01601                                   NUVCSM                                #  SCALED B3  OR  B-1
028025,003773: 31,3057           53702                          VSR4     VSR*                                  
028026,003774: 31,3060           57176                                   0,2                                   
028027,003775: 31,3061           53655                          VAD      VSR*                                  
028028,003776:                                                                                                 # # Page 634
028029,003777: 31,3062           01615                                   VCVCSM                                #  SCALED B7  OR  B5
028030,003778: 31,3063           57176                                   0,2                                   
028031,003779: 31,3064           03634                          STORE    VZC                                   #  NOW SCALED B7
028032,003780: 31,3065           77614                          BOFF                                           
028033,003781: 31,3066           00345                                   ZMEASURE                              #  IN SPHERE OF INFLUENCE OF PRIMARY BODY
028034,003782: 31,3067           63101                                   R23.3                                 
028035,003783: 31,3070           45145                          DLOAD    CALL                                  
028036,003784: 31,3071           01062                                   MARKTIME                              
028037,003785: 31,3072           54141                                   LUNPOS                                
028038,003786: 31,3073           57414                          BON      VCOMP                                 
028039,003787: 31,3074           04303                                   CMOONFLG                              
028040,003788: 31,3075           63076                                   +1                                    
028041,003789: 31,3076           77655                          VAD                                            
028042,003790: 31,3077           03626                                   RZC                                   
028043,003791: 31,3100           03626                          STORE    RZC                                   
028044,003792: 31,3101           67201        R23.3             SETPD    SLOAD                                 
028045,003793: 31,3102           00001                                   0                                     
028046,003794: 31,3103           03752                                   LANDMARK                              #  IF LANDMARK = 0, USE HORIZ SUBR
028047,003795: 31,3104           43030                          BHIZ     SET                                   
028048,003796: 31,3105           63114                                   R23.4                                 
028049,003797: 31,3106           00462                                   ERADFLAG                              
028050,003798: 31,3107           45145                          DLOAD    CALL                                  
028051,003799: 31,3110           01062                                   MARKTIME                              
028052,003800: 31,3111           26524                                   LALOTORV                              
028053,003801: 31,3112           77650                          GOTO                                           
028054,003802: 31,3113           63337                                   R23.5                                 
028055,003803: 31,3114           65345        R23.4             DLOAD    PDDL                                  #  PUSH 0-1 = -AYO SCALED B0
028056,003804: 31,3115           01712                                   -AYO                                  
028057,003805: 31,3116           01714                                   AXO                                   
028058,003806: 31,3117           63325                          PDDL     PDVL                                  #  PUSH 2-3 = +AX SCALED B0
028059,003807: 31,3120           15344                                   DPPOSMAX                              
028060,003808: 31,3121           02617                                   US                                    
028061,003809: 31,3122           53435                          VXV      UNIT                                  
028062,003810: 31,3123           03626                                   RZC                                   
028063,003811: 31,3124           27620                          STOVL    UBAR2                                 
028064,003812: 31,3125           53435                          VXV      UNIT                                  #  PUSH UP
028065,003813: 31,3126           03620                                   UBAR2                                 
028066,003814: 31,3127           27604                          STOVL    UBAR0                                 
028067,003815: 31,3130           03620                                   UBAR2                                 
028068,003816: 31,3131           53435                          VXV      UNIT                                  
028069,003817: 31,3132           03604                                   UBAR0                                 
028070,003818: 31,3133           03612                          STORE    UBAR1                                 
028071,003819: 31,3134           50214                          BON      DOT                                   
028072,003820: 31,3135           01703                                   LUNAFLAG                              
028073,003821: 31,3136           63324                                   HORIZ.6                               
028074,003822: 31,3137           00001                                   0                                     #  UBAR1 DOT UZ
028075,003823: 31,3140           26156                          STOVL    ALPHAV     +4                         
028076,003824: 31,3141           03626                                   RZC                                   
028077,003825: 31,3142           41246                          ABVAL    DMP                                   
028078,003826: 31,3143           03376                                   HORISLP                               
028079,003827:                                                                                                 # # Page 635
028080,003828: 31,3144           43276                          DCOMP    DAD                                   
028081,003829: 31,3145           01346                                   HORIZALT                              
028082,003830: 31,3146           34772                          STCALL   RATETEMP                              
028083,003831: 31,3147           26570                                   GETERAD                               
028084,003832: 31,3150           65215                          DAD      PDDL                                  #  MPAC HAS RADIUS OF FISHER ELLIPSOID
028085,003833: 31,3151           00772                                   RATETEMP                              #  PUSH 0-1 = BH SCALED B29
028086,003834: 31,3152           23477                                   AEARTH                                
028087,003835: 31,3153           41415                          DAD      PUSH                                  #  PUSH 2-3 = AH B29
028088,003836: 31,3154           00772                                   RATETEMP                              
028089,003837: 31,3155           64375        HORIZ.1           VLOAD    MXV                                   
028090,003838: 31,3156           03626                                   RZC                                   #  B29
028091,003839: 31,3157           03604                                   UBAR0                                 #  B1
028092,003840: 31,3160           63372                          VSL1     PDVL                                  #  PUSH 4-9 = RH(XH,YH,ZH) B29
028093,003841: 31,3161           02617                                   US                                    
028094,003842: 31,3162           76521                          MXV      VSL1                                  
028095,003843: 31,3163           03604                                   UBAR0                                 
028096,003844: 31,3164           77725                          PDDL                                           #  PUSH 10-15 = USH B1
028097,003845: 31,3165           00003                                   2                                     #  AH
028098,003846: 31,3166           14043                          STODL    34D                                   
028099,003847: 31,3167           00005                                   4                                     #  XH
028100,003848: 31,3170           77624                          CALL                                           
028101,003849: 31,3171           63344                                   DIVIDE                                
028102,003850: 31,3172           63457                          SR*      DSQ                                   
028103,003851: 31,3173           20611                                   8D,1                                  #  NOW SCALED B9
028104,003852: 31,3174           14037                          STODL    30D                                   
028105,003853: 31,3175           00001                                   0                                     
028106,003854: 31,3176           14043                          STODL    34D                                   
028107,003855: 31,3177           00007                                   6                                     #  YH
028108,003856: 31,3200           77624                          CALL                                           
028109,003857: 31,3201           63344                                   DIVIDE                                
028110,003858: 31,3202           63457                          SR*      DSQ                                   
028111,003859: 31,3203           20611                                   8D,1                                  #  B9
028112,003860: 31,3204           41415                          DAD      PUSH                                  #  PUSH 16-17 =A SCALED B18
028113,003861: 31,3205           00037                                   30D                                   
028114,003862: 31,3206           75425                          DSU      SQRT                                  
028115,003863: 31,3207           23503                                   1.0B18                                
028116,003864: 31,3210           77725                          PDDL                                           #  PUSH 18-19  SQRT(A-1) B9
028117,003865: 31,3211           00021                                   16D                                   
028118,003866: 31,3212           14043                          STODL    34D                                   
028119,003867: 31,3213           00005                                   4                                     #  XH
028120,003868: 31,3214           77624                          CALL                                           
028121,003869: 31,3215           63344                                   DIVIDE                                
028122,003870: 31,3216           65257                          SR*      PDDL                                  
028123,003871: 31,3217           20622                                   17D,1                                 #  PUSH 20-21 = XH/A B29
028124,003872: 31,3220           00007                                   6                                     #  YH
028125,003873: 31,3221           77624                          CALL                                           
028126,003874: 31,3222           63344                                   DIVIDE                                
028127,003875: 31,3223           65257                          SR*      PDDL                                  
028128,003876: 31,3224           20622                                   17D,1                                 #  PUSH 22-23 = YH/A B29
028129,003877: 31,3225           00023                                   18D                                   #  SQRT(A-1)
028130,003878:                                                                                                 # # Page 636
028131,003879: 31,3226           77624                          CALL                                           
028132,003880: 31,3227           63344                                   DIVIDE                                
028133,003881: 31,3230           77657                          SR*                                            
028134,003882: 31,3231           20611                                   8D,1                                  
028135,003883: 31,3232           14035                          STODL    28D                                   
028136,003884: 31,3233           00001                                   0                                     #  BH
028137,003885: 31,3234           14043                          STODL    34D                                   
028138,003886: 31,3235           00003                                   2                                     #  AH
028139,003887: 31,3236           77624                          CALL                                           
028140,003888: 31,3237           63344                                   DIVIDE                                
028141,003889: 31,3240           41257                          SR*      DMP                                   #  AH/BH  SCALED  B1
028142,003890: 31,3241           20601                                   0,1                                   
028143,003891: 31,3242           00035                                   28D                                   #  SQRT(A-1)/A
028144,003892: 31,3243           72405                          DMP      SL1                                   
028145,003893: 31,3244           00007                                   6                                     #  YH
028146,003894: 31,3245           77725                          PDDL                                           
028147,003895: 31,3246           00003                                   2                                     #  AH
028148,003896: 31,3247           14043                          STODL    34D                                   
028149,003897: 31,3250           00001                                   0                                     
028150,003898: 31,3251           77624                          CALL                                           
028151,003899: 31,3252           63344                                   DIVIDE                                
028152,003900: 31,3253           41257                          SR*      DMP                                   #  BH/AH  SCALED  B1
028153,003901: 31,3254           20601                                   0,1                                   
028154,003902: 31,3255           00035                                   28D                                   #  SQRT (A-1)/A
028155,003903: 31,3256           72405                          DMP      SL1                                   
028156,003904: 31,3257           00005                                   4                                     #  XH
028157,003905: 31,3260           43325                          PDDL     DAD                                   
028158,003906: 31,3261           00025                                   20D                                   #  XH/A
028159,003907: 31,3262           00031                                   24D                                   #  ALPHA
028160,003908: 31,3263           45325                          PDDL     DSU                                   
028161,003909: 31,3264           00027                                   22D                                   #  YH/A
028162,003910: 31,3265           00033                                   26D                                   #  BETA
028163,003911: 31,3266           40206                          PUSH     SETPD                                 
028164,003912: 31,3267           00021                                   16D                                   
028165,003913: 31,3270           45345                          DLOAD    DSU                                   
028166,003914: 31,3271           00025                                   20D                                   #  XH/A
028167,003915: 31,3272           00031                                   24D                                   #  ALPHA
028168,003916: 31,3273           43325                          PDDL     DAD                                   
028169,003917: 31,3274           00027                                   22D                                   #  YH/A
028170,003918: 31,3275           00033                                   26D                                   #  BETA
028171,003919: 31,3276           41525                          PDDL     PUSH                                  
028172,003920: 31,3277           15336                                   ZEROVECS                              
028173,003921: 31,3300           24041                          STOVL    32D                                   #  ZERO THIRD COMP. OF T-0 VECTOR
028174,003922: 31,3301           00035                                   28D                                   
028175,003923: 31,3302           53451                          VSU      UNIT                                  
028176,003924: 31,3303           00005                                   4                                     #  RH VECTOR
028177,003925: 31,3304           63241                          DOT      PDVL                                  #  PUSH 22-23 A-SUB-ZERO
028178,003926: 31,3305           00013                                   10D                                   #  USH VECTOR
028179,003927: 31,3306           00021                                   16D                                   #  T1 VECTOR
028180,003928: 31,3307           53451                          VSU      UNIT                                  
028181,003929:                                                                                                 # # Page 637
028182,003930: 31,3310           00005                                   4                                     #  RH VECTOR
028183,003931: 31,3311           41441                          DOT      PUSH                                  #  PUSH 24-25 A-SUB-ONE
028184,003932: 31,3312           00013                                   10D                                   
028185,003933: 31,3313           50021                          BDSU     BMN                                   
028186,003934: 31,3314           00027                                   22D                                   #  A-SUB-ZERO
028187,003935: 31,3315           63330                                   HORIZ.3                               
028188,003936: 31,3316           77614                          BON                                            
028189,003937: 31,3317           00304                                   NORFHOR                               
028190,003938: 31,3320           63333                                   HORIZ.4                               
028191,003939: 31,3321           52175        HORIZ.2           VLOAD    GOTO                                  
028192,003940: 31,3322           00035                                   28D                                   #  T-0 VECTOR
028193,003941: 31,3323           63335                                   HORIZ.5                               
028194,003942: 31,3324           41545        HORIZ.6           DLOAD    PUSH                                  
028195,003943: 31,3325           23501                                   RADMOON                               
028196,003944: 31,3326           52006                          PUSH     GOTO                                  
028197,003945: 31,3327           63155                                   HORIZ.1                               
028198,003946: 31,3330           77614        HORIZ.3           BON                                            
028199,003947: 31,3331           00304                                   NORFHOR                               
028200,003948: 31,3332           63321                                   HORIZ.2                               
028201,003949: 31,3333           77775        HORIZ.4           VLOAD                                          
028202,003950: 31,3334           00021                                   16D                                   #  T1 VECTOR
028203,003951: 31,3335           76505        HORIZ.5           VXM      VSL1                                  
028204,003952: 31,3336           03604                                   UBAR0                                 
028205,003953: 31,3337           40251        R23.5             VSU      SETPD                                 
028206,003954: 31,3340           03626                                   RZC                                   
028207,003955: 31,3341           00001                                   0                                     
028208,003956: 31,3342           77650                          GOTO                                           
028209,003957: 31,3343           01006                                   POINTEX                               
028210,003958: 31,3344           70501        DIVIDE            NORM     SR1                                   
028211,003959: 31,3345           00047                                   X1                                    
028212,003960: 31,3346           14045                          STODL    36D                                   
028213,003961: 31,3347           00043                                   34D                                   
028214,003962: 31,3350           55301                          NORM     BDDV                                  
028215,003963: 31,3351           00051                                   S1                                    
028216,003964: 31,3352           00045                                   36D                                   
028217,003965: 31,3353           43460                          XSU,1    RVQ                                   
028218,003966: 31,3354           00050                                   S1                                    
028219,003967: 31,3355           03744        P23N7071          STORE    22SUBSCL                              
028220,003968: 31,3356           77420                          STQ      EXIT                                  
028221,003969: 31,3357           01006                                   POINTEX                               
028222,003970: 31,3360           31743        DISP7071          CA       22SUBSCL                              
028223,003971: 31,3361           05535                          TC       VNFLASH                               
028224,003972: 31,3362           05547        P23.15            TC       UPFLAG                                
028225,003973: 31,3363           00060                          ADRES    LUNAFLAG                              
028226,003974: 31,3364           31751                          CA       LANDMARK                              #  IF C=2,LUNAFLAG=1. IF C=1,LUNAFLAG=0
028227,003975: 31,3365           00006                          EXTEND                                         
028228,003976: 31,3366           13375                          BZF      P23.151                               
028229,003977: 31,3367           31752                          CA       HORIZON                               
028230,003978: 31,3370           00006                          EXTEND                                         
028231,003979: 31,3371           13373                          BZF      +2                                    
028232,003980:                                                                                                 # # Page 638
028233,003981: 31,3372           03445                          TC       R23.10                                #  OPERATOR DSKY ERROR
028234,003982: 31,3373           31751                          CA       LANDMARK                              
028235,003983: 31,3374           03400                          TC       P23.152                               
028236,003984: 31,3375           31752        P23.151           CA       HORIZON                               
028237,003985: 31,3376           00006                          EXTEND                                         
028238,003986: 31,3377           13445                          BZF      R23.10                                
028239,003987: 31,3400           73526        P23.152           MASK     BITS7-9                               #  IS C EQUAL TO 1 OR 2
028240,003988: 31,3401           65221                          AD       NEG100                                
028241,003989: 31,3402           00006                          EXTEND                                         
028242,003990: 31,3403           13410                          BZF      P23.16                                
028243,003991: 31,3404           65221                          AD       NEG100                                
028244,003992: 31,3405           00006                          EXTEND                                         
028245,003993: 31,3406           13412                          BZF      P23.176                               
028246,003994: 31,3407           03445                          TC       R23.10                                
028247,003995: 31,3410           05561        P23.16            TC       DOWNFLAG                              
028248,003996: 31,3411           00060                          ADRES    LUNAFLAG                              
028249,003997: 31,3412           05547        P23.176           TC       UPFLAG                                
028250,003998: 31,3413           00004                          ADRES    NORFHOR                               
028251,003999: 31,3414           31752                          CA       HORIZON                               
028252,004000: 31,3415           00006                          EXTEND                                         
028253,004001: 31,3416           13427                          BZF      P23.20                                
028254,004002: 31,3417           73527                          MASK     BITS4-6                               
028255,004003: 31,3420           66171                          AD       -OCT10                                
028256,004004: 31,3421           00006                          EXTEND                                         
028257,004005: 31,3422           13433                          BZF      P23.18                                
028258,004006: 31,3423           66171                          AD       -OCT10                                
028259,004007: 31,3424           00006                          EXTEND                                         
028260,004008: 31,3425           13435                          BZF      P23.30                                
028261,004009: 31,3426           03445                          TC       R23.10                                
028262,004010: 31,3427           06006        P23.20            TC       INTPRET                               
028263,004011: 31,3430           77624                          CALL                                           
028264,004012: 31,3431           60304                                   P22SUBRB                              
028265,004013: 31,3432           77776                          EXIT                                           
028266,004014: 31,3433           05561        P23.18            TC       DOWNFLAG                              
028267,004015: 31,3434           00004                          ADRES    NORFHOR                               
028268,004016: 31,3435           31140        P23.30            CA       STARCODE                              #  IS STARCODE GREATER THAN OR
028269,004017: 31,3436           00006                          EXTEND                                         #  EQUAL TO 0 AND LESS THAN 37
028270,004018: 31,3437           13464                          BZF      LDPLANET                              
028271,004019: 31,3440           00006                          EXTEND                                         
028272,004020: 31,3441           63445                          BZMF     R23.10                                
028273,004021: 31,3442           63525                          AD       NEG37                                 
028274,004022: 31,3443           00006                          EXTEND                                         
028275,004023: 31,3444           63447                          BZMF     P23.170                               
028276,004024: 31,3445           04362        R23.10            TC       FALTON                                
028277,004025: 31,3446           03360                          TC       DISP7071                              
028278,004026: 31,3447           06006        P23.170           TC       INTPRET                               
028279,004027: 31,3450           41535        P23.17            SLOAD    PUSH                                  
028280,004028: 31,3451           01141                                   STARCODE                              
028281,004029: 31,3452           41335                          SLOAD    DMP                                   
028282,004030: 31,3453           23516                                   SPSIX                                 
028283,004031:                                                                                                 # # Page 639
028284,004032: 31,3454           66150                          LXA,1    SXA,1                                 
028285,004033: 31,3455           00155                                   MPAC       +1                         
028286,004034: 31,3456           00302                                   BESTI                                 #  BESTI = 6XSTAR NUMBER
028287,004035: 31,3457           77624                          CALL                                           
028288,004036: 31,3460           30000                                   LOWMEMRY                              #  NEEDED TO RETRIEVE STAR VECTOR FROM LOW
028289,004037: 31,3461           02617        P23.31            STORE    STARSAV2                              #  STORE FOR R53,P23. US(IN P23)=STARSAV2
028290,004038: 31,3462           77650                          GOTO                                           
028291,004039: 31,3463           01006                                   POINTEX                               
028292,004040: 31,3464           35035        LDPLANET          CAF      V06N88                                
028293,004041: 31,3465           05535                          TC       VNFLASH                               
028294,004042: 31,3466           06006                          TC       INTPRET                               
028295,004043: 31,3467           74375                          VLOAD    VXSC                                  
028296,004044: 31,3470           03705                                   STARSAV3                              
028297,004045: 31,3471           23531                                   1DSQR3                                
028298,004046: 31,3472           52056                          UNIT     GOTO                                  
028299,004047: 31,3473           63461                                   P23.31                                
028300,004048: 31,3474           26305 05432  ONE/C             2DEC*    .333564049 E-6        B+21*           
028301,004049: 31,3476           00302 24533  AEARTH            2DEC     6378166    B-29                       #  A AXIS OF EARTH(METERS B-29)
028302,004050: 31,3500           00065 01265  RADMOON           2DEC     1738090    B-29                       #  RADIUS MOON IN METERS
028303,004051: 31,3502           00000 02000  1.0B18            2DEC     1.0        B-18                       
028304,004052: 31,3504           01604        TRUN19            OCT      01604                                 
028305,004053: 31,3505           00000        VARSUBL           DEC      0          B-14                       
028306,004054: 31,3506           01505 14100  VARSUBL3          2DEC*    3.4299040  E+6        B-26*           
028307,004055: 31,3510           00012 27462  TRUNVAR           2DEC     2.5        E-9        B+18            
028308,004056: 31,3512           01306        V05N70            VN       0570                                  
028309,004057: 31,3513           01307        V05N71            VN       0571                                  
028310,004058: 31,3514           00202        V50N25P           OCT      00202                                 
028311,004059: 31,3515           00006        SPSIX             OCT      00006                                 
028312,004060: 31,3516           10464 12467  JCAXIS            2DEC     .2688190620                            #  1/2(SIN 32.523 DEG)  TRACK AXIS
028313,004061: 31,3520           00000 00000                    2DEC     0          B-28                       
028314,004062: 31,3522           15373 11346                    2DEC     .4215878460                            #  1/2(COS 32.523 DEG)
028315,004063: 31,3524           62776        R60ADRS           CADR     R60CALL    +3                         
028316,004064: 31,3525           77732        NEG37             DEC      -37        B-14                       
028317,004065: 31,3526           00700        BITS7-9           OCT      700                                   
028318,004066: 31,3527           00070        BITS4-6           OCT      70                                    
028319,004067: 31,3530           22363 11623  1DSQR3            2DEC     0.57735021                            
028320,004068: 
028321,004069: 31,3532           06006        V94NTR            TC       INTPRET                               
028322,004070: 31,3533           77650                          GOTO                                           
028323,004071: 31,3534           62474                                   V94ENTER                              
028324,004072: 14,2000                                          SETLOC   RT53                                  
028325,004073:                                                                                                 # # Page 640
028326,004074: 14,2000                                          BANK                                           
028327,004075: 14,2000                                          COUNT*   $$/STARS                              
028328,004076: 14,2000           43573        LOWMEMRY          VLOAD*   RVQ                                   
028329,004077: 14,2001           33776                                   CATLOG,1                              
028330,004078:    4000                                          SETLOC   FFTAG2                                
028331,004079:    4000                                          BANK                                           
028332,004080: 
028333,004081:    4546                                          COUNT*   $$/R22                                
028334,004082:    4546           00006        GOTOV56           EXTEND                                         #  P20 TERMINATES BY GOTOV56 INSTEAD OF
028335,004083:    4547           34552                          DCA      VB56CADR                              #   GOTOPOOH
028336,004084:    4550           15214                          TCF      SUPDXCHZ                              
028337,004085:    4551  0003777                                 EBANK=   WHOCARES                              
028338,004086:    4551           02641 66107  VB56CADR          2CADR    TRACKTRM                              
028339,004087: 
028340,004088: 40,2000                                          SETLOC   PINBALL1                              
028341,004089: 40,2000                                          BANK                                           
028342,004090: 40,3636                                          COUNT*   $$/EXTVB                              
028343,004091: 40,3636           06006        V67CALL           TC       INTPRET                               
028344,004092: 40,3637           77624                          CALL                                           
028345,004093: 40,3640           61706                                   V67WW                                 
028346,004094: 40,3641           77776                          EXIT                                           
028347,004095: 40,3642           33770        V06N99DS          CAF      V06N99A                               
028348,004096: 40,3643           04636                          TC       BANKCALL                              
028349,004097: 40,3644           20576                          CADR     GOXDSPF                               
028350,004098: 40,3645           15524                          TCF      ENDEXT                                
028351,004099: 40,3646           03650                          TC       V06N9933                              
028352,004100: 40,3647           03642                          TC       V06N99DS                              
028353,004101: 40,3650           06006        V06N9933          TC       INTPRET                               
028354,004102: 40,3651           46135                          SLOAD    BHIZ                                  #  IF R3 OF V67 = 0 EXIT
028355,004103: 40,3652           02316                                   WWOPT                                 
028356,004104: 40,3653           61704                                   V67COMEX                              
028357,004105: 40,3654           73150        V6N99INP          LXA,1    LXA,2                                 
028358,004106: 40,3655           02311                                   WWPOS                                 
028359,004107: 40,3656           02313                                   WWVEL                                 
028360,004108: 40,3657           45335                          SLOAD    DSU                                   
028361,004109: 40,3660           02316                                   WWOPT                                 
028362,004110: 40,3661           21774                                   V67DEC2                               
028363,004111: 40,3662           51030                          BHIZ     BPL                                   
028364,004112: 40,3663           61672                                   V67WORB                               
028365,004113: 40,3664           61677                                   V67WMID                               
028366,004114: 40,3665           67130                          SXA,1    SXA,2                                 
028367,004115: 40,3666           02000                                   WRENDPOS                              
028368,004116: 40,3667           02001                                   WRENDVEL                              
028369,004117: 40,3670           77650                          GOTO                                           
028370,004118: 40,3671           61702                                   V67EXITX                              
028371,004119: 40,3672           67130        V67WORB           SXA,1    SXA,2                                 
028372,004120: 40,3673           02004                                   WORBPOS                               
028373,004121: 40,3674           02005                                   WORBVEL                               
028374,004122: 40,3675           77650                          GOTO                                           
028375,004123: 40,3676           61702                                   V67EXITX                              
028376,004124:                                                                                                 # # Page 641
028377,004125: 40,3677           67130        V67WMID           SXA,1    SXA,2                                 
028378,004126: 40,3700           03000                                   WMIDPOS                               
028379,004127: 40,3701           03001                                   WMIDVEL                               
028380,004128: 40,3702           77614        V67EXITX          CLEAR                                          
028381,004129: 40,3703           01671                                   ORBWFLAG                              
028382,004130: 40,3704           77776        V67COMEX          EXIT                                           
028383,004131: 40,3705           15524                          TCF      ENDEXT                                
028384,004132: 40,3706           40020        V67WW             STQ      BOV                                   
028385,004133: 40,3707           00051                                   S2                                    
028386,004134: 40,3710           61711                                   +1                                    
028387,004135: 40,3711           77624                          CALL                                           
028388,004136: 40,3712           27516                                   INTSTALL                              
028389,004137: 40,3713           71331                          SSP      DLOAD                                 
028390,004138: 40,3714           00051                                   S1                                    
028391,004139: 40,3715           00006                          DEC      6          B-14                       
028392,004140: 40,3716           15336                                   ZEROVECS                              
028393,004141: 40,3717           02312                          STORE    WWPOS                                 
028394,004142: 40,3720           02314                          STORE    WWVEL                                 
028395,004143: 40,3721           02316                          STORE    WWOPT                                 
028396,004144: 40,3722           77770                          AXT,1                                          
028397,004145: 40,3723           00044                          DEC      36         B-14                       
028398,004146: 40,3724           47573        NXPOSVEL          VLOAD*   VSQ                                   
028399,004147: 40,3725           02445                                   W          +36D,1                     
028400,004148: 40,3726           77615                          DAD                                            
028401,004149: 40,3727           02312                                   WWPOS                                 
028402,004150: 40,3730           02312                          STORE    WWPOS                                 
028403,004151: 40,3731           47573                          VLOAD*   VSQ                                   
028404,004152: 40,3732           02533                                   W          +90D,1                     
028405,004153: 40,3733           77615                          DAD                                            
028406,004154: 40,3734           02314                                   WWVEL                                 
028407,004155: 40,3735           02314                          STORE    WWVEL                                 
028408,004156: 40,3736           75500                          TIX,1    SQRT                                  
028409,004157: 40,3737           61724                                   NXPOSVEL                              
028410,004158: 40,3740           16314                          STODL    WWVEL                                 
028411,004159: 40,3741           02312                                   WWPOS                                 
028412,004160: 40,3742           77766                          SQRT                                           
028413,004161: 40,3743           02312                          STORE    WWPOS                                 
028414,004162: 40,3744           52000                          BOV      GOTO                                  
028415,004163: 40,3745           61747                                   +2                                    
028416,004164: 40,3746           61753                                   V67XXX                                
028417,004165: 40,3747           77745                          DLOAD                                          
028418,004166: 40,3750           15344                                   DPPOSMAX                              
028419,004167: 40,3751           02312                          STORE    WWPOS                                 
028420,004168: 40,3752           02314                          STORE    WWVEL                                 
028421,004169: 40,3753           45345        V67XXX            DLOAD    DSU                                   
028422,004170: 40,3754           02312                                   WWPOS                                 
028423,004171: 40,3755           21772                                   FT99999                               
028424,004172: 40,3756           71240                          BMN      DLOAD                                 
028425,004173: 40,3757           61762                                   +3                                    
028426,004174: 40,3760           21772                                   FT99999                               
028427,004175:                                                                                                 # # Page 642
028428,004176: 40,3761           02312                          STORE    WWPOS                                 
028429,004177: 40,3762           66150                          LXA,1    SXA,1                                 
028430,004178: 40,3763           00051                                   S2                                    
028431,004179: 40,3764           00052                                   QPRET                                 
028432,004180: 40,3765           77776                          EXIT                                           
028433,004181: 40,3766           04655                          TC       POSTJUMP                              
028434,004182: 40,3767           27527                          CADR     INTWAKE                               
028435,004183: 40,3770           01543        V06N99A           VN       0699                                  
028436,004184: 40,3771           01670 17000  FT99999           2DEC     30479      B-19                       
028437,004185: 40,3773           00002 00000  V67DEC2           2DEC     2          B-14                       
028438,004186: 40,3775  30,2000                                 SBANK=   LOWSUPER                              

End of include-file P20-P25.agc.  Parent file is MAIN.agc