Source Code

These source-code files were obtained by digitally photographing an Artemis 72 (Apollo 15-17 Command Module) program listing from a private collection and then modifying pre-existing Comanche 55 (Apollo 11) source files to incorporate changes. Photography was by Ron Burkey, and transcription was performed by a team of volunteers. 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
Note that the date is the date of the printout, not the date of the program revision.

024378,000002:                                                                                                  ## Copyright:   Public domain.
024379,000003:                                                                                                  ## Filename:    P20-P25.agc
024380,000004:                                                                                                  ## Purpose:     Part of the source code for Artemis (i.e., Colossus 3),
024381,000005:                                                                                                  ##              build 072.  This is for the Command Module's (CM)
024382,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for
024383,000007:                                                                                                  ##              Apollo 15-17.
024384,000008:                                                                                                  ## Assembler:   yaYUL
024385,000009:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
024386,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
024387,000011:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Artemis072/
024388,000012:                                                                                                  ## Mod history: 2010-01-26 JL   Started Artemis072 conversion based on Comanche055 
024389,000013:                                                                                                  ##                              module.
024390,000014:                                                                                                  ##              2010-01-31 JL   Finished Artemis072 conversion. Fixed build errors.
024391,000015:                                                                                                  ##              2010-02-01 JL   Fixed build errors.
024392,000016:                                                                                                  ##              2010-02-02 JL   Fixed page numbers. Removed duplicated code section
024393,000017:                                                                                                  ##                              on page 611.
024394,000018:                                                                                                  ##              2010-02-06 JL   Added missing "DEC 18" instruction. Added missing 
024395,000019:                                                                                                  ##                              code on page 618. Added missing line on page 601. 
024396,000020:                                                                                                  ##                              Fixed line 5 on p580, which is overprinted in the 
024397,000021:                                                                                                  ##                              scan. Fixed an EQUALS on p589. Removed spurious 
024398,000022:                                                                                                  ##                              PUSH on p598.
024399,000023:                                                                                                  ##              2010-02-13 JL   Fixed errors on pages 563, 589, 604, 619, 629.
024400,000024:                                                                                                  ##              2010-02-20 RSB  Un-##'d this header.
024401,000025:                                                                                                  ##              2017-02-05 RSB  Proofed comment text by diff'ing vs Comanche 55
024402,000026:                                                                                                  ##                              and corrected errors found, but only through about 
024403,000027:                                                                                                  ##                              p. 571 so far.  Note that while P20 is supposedly an 
024404,000028:                                                                                                  ##                              identical rev in the the two AGC versions, in fact
024405,000029:                                                                                                  ##                              the comments are rather  different, so that portion
024406,000030:                                                                                                  ##                              was proofed by traditional means, and the same is 
024407,000031:                                                                                                  ##                              true of a lesser degree to the  rest of it as well. 
024408,000032:                                                                                                  ##              2017-02-06 RSB  Completed comment-text proofing. In the end, half or
024409,000033:                                                                                                  ##                              more of the file was proofed "traditionally", which
024410,000034:                                                                                                  ##                              has proven to be a pretty hit-and-miss process, so
024411,000035:                                                                                                  ##                              I'd judge that it probably needs still more proofing.
024412,000036:                                                                                                  ##              2017-02-06 RSB  Re-proofed comment text using octopus/ProoferComments.
024413,000037:                                                                                                  ##                              The print- and/or scan-quality is so poor that it's 
024414,000038:                                                                                                  ##                              tough to feel much confidence in this method, but 
024415,000039:                                                                                                  ##                              combined with the manual proofing already-done, I 
024416,000040:                                                                                                  ##                              feel much more confident of the results now.
024417,000041:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified by 4-way diff'ing
024418,000042:                                                                                                  ##                              of Colossus 237 & 249, Comanche 55, and Artemis 72.
024419,000043:                                                                                                  ##              2021-05-30 ABS  NOUTINPT -> NDUTINPT
024420,000044:                                                                                                  ##              2021-10-06 RSB  RANGER0 -> RANGERD
024421,000045: 

Page 552

024423,000047: 
024424,000048:                                                                                                  #  RENDEZVOUS NAVIGATION PROGRAM 20
024425,000049:                                                                                                  #  PROGRAM DESCRIPTION
024426,000050:                                                                                                  #  MOD NO -1
024427,000051:                                                                                                  #  MOD BY - N.BRODEUR
024428,000052: 
024429,000053:                                                                                                  #  FUNCTIONAL DESCRIPTION
024430,000054: 
024431,000055:                                                                                                  #  TO INITIALIZE THE RENDEZVOUS NAVIGATION SUBROUTINES R22, R61CSM, AND
024432,000056:                                                                                                  #  R52, WHICH IN TURN CONTROL THE CSM ATTITUDE AND OPTICS POSITIONING,
024433,000057:                                                                                                  #  PROCESS BOTH OPTICS AND VHF TRACKING DATA, AND UPDATE EITHER THE LM
024434,000058:                                                                                                  #  OR THE CSM STATE VECTORS.
024435,000059: 
024436,000060:                                                                                                  #  CALLING SEQUENCE
024437,000061:                                                                                                  #    V37E20E
024438,000062: 
024439,000063:                                                                                                  #  SUBROUTINES CALLED
024440,000064:                                                                                                  #    R22 (RENDEZVOUS TRACK DATA PROCESSING)
024441,000065:                                                                                                  #    R52 (AUTO OPTICS POSITIONING)
024442,000066:                                                                                                  #    R61CSM (PREFERRED TRACKING ATTITUDE)
024443,000067:                                                                                                  #    R02BOTH            BANKCALL            UPFLAG
024444,000068:                                                                                                  #    DOWNFLAG           2PHSCHNG            LOADTIME
024445,000069:                                                                                                  #    PRIOCHNG           UPSTATE             INTPRET
024446,000070:                                                                                                  #    ENDOFJOB           MKRLEES             FINDVAC
024447,000071: 
024448,000072:                                                                                                  #  NORMAL EXIT MODES
024449,000073:                                                                                                  #    RENDEZVOUS NAVIGATION MAY BE TERMINATED BY THE SELECTION OF
024450,000074:                                                                                                  #    P00, P06, P22, P23, V34E FROM R60, AND V56E
024451,000075: 
024452,000076:                                                                                                  #  ALARM OR ABORT EXIT MODES
024453,000077:                                                                                                  #    NONE DIRECTLY FROM P20
024454,000078: 
024455,000079:                                                                                                  #  OUTPUT
024456,000080:                                                                                                  #    NONE DIRECTLY FROM P20
024457,000081: 
024458,000082:                                                                                                  #  FLAGS SET + RESET
024459,000083:                                                                                                  #    RNDVZFLG, VEHUPFLG, UPDATFLG, TRACKFLG, TARG1FLG
024460,000084:                                                                                                  #    PRFTRKAT, V50N18FL
024461,000085: 
024462,000086: 36,2000                                           SETLOC   P20S7                                 
024463,000087: 36,2000                                           BANK                                           
024464,000088: 
024465,000089: 36,2016  E6,1774                                  EBANK=   R61CNTR                               
024466,000090: 36,2016                                           COUNT*   $$/P20                                
024467,000091: 
024468,000092: 36,2016           04636        PROG20             TC       BANKCALL                              
024469,000093: 36,2017           03731                           CADR     R02BOTH                               #  IMU STATUS CHECK
024470,000094:                                                                                                  #  BLOCKING OF UPLINK IS DONE BY UPLINK PRG
024471,000095: 36,2020           31655                           CA       ADB                                   
024472,000096: 36,2021           55773                           TS       DBPTC                                 

Page 553

024474,000098: 36,2022           06006                           TC       INTPRET                               
024475,000099: 36,2023           43014                           CLEAR    SET                                   
024476,000100: 36,2024           00667                                    VEHUPFLG                              #  UPDATE LM
024477,000101: 36,2025           01460                                    V50N18FL                              
024478,000102: 36,2026           66214                           SET      SSP                                   
024479,000103: 36,2027           00472                                    TRACKFLG                              
024480,000104: 36,2030           00777                                    OPTION2                               
024481,000105: 36,2031           00000                                    0                                     
024482,000106: 36,2032           77414                           BON      EXIT                                  
024483,000107: 36,2033           05310                                    AUTOSEQ                               
024484,000108: 36,2034           74050                                    PRELOD78                              #  MINKEY  (PRELOAD N78)
024485,000109: 36,2035           34124                           CAF      OCT24                                 
024486,000110: 36,2036           04636                           TC       BANKCALL                              
024487,000111: 36,2037           21074                           CADR     GOPERF4                               
024488,000112: 36,2040           04103                           TC       GOTOPOOH                              
024489,000113: 36,2041           12043                           TCF      +2                                    
024490,000114: 36,2042           12035                           TCF      -5                                    
024491,000115: 
024492,000116: 36,2043           30776                           CA       OPTION2                               
024493,000117: 36,2044           76214                           MASK     THREE                                 
024494,000118: 36,2045           10000                           CCS      A                                     
024495,000119: 36,2046           02061                           TC       DOV6N78                               #  OPTIONS 1,2,5  (DO NOT PRELOAD N78)
024496,000120: 36,2047           06006                           TC       INTPRET                               #  OPTIONS 0,4           (PRELOAD N78)
024497,000121: 36,2050           77745        PRELOD78           DLOAD                                          
024498,000122: 36,2051           34467                                    35DEGANG                              
024499,000123: 36,2052           17740                           STODL    UTPIT                                 
024500,000124: 36,2053           15336                                    ZEROVECS                              
024501,000125: 36,2054           03742                           STORE    UTYAW                                 
024502,000126: 36,2055           01353                           STORE    AZIMANGL                              
024503,000127: 36,2056           77414                           BON      EXIT                                  
024504,000128: 36,2057           05310                                    AUTOSEQ                               
024505,000129: 36,2060           74104                                    P20OPT                                #  MINKEY, BYPASS V04N06 AND V06N78
024506,000130: 36,2061           32470        DOV6N78            CAF      V06N78UT                              
024507,000131: 36,2062           05535                           TC       VNFLASH                               
024508,000132: 36,2063           32472                           CAF      V06N79UT                              
024509,000133: 36,2064           05540                           TC       VNFLASHR                              
024510,000134: 
024511,000135: 36,2065           12075                           TCF      ENDV6N79                              
024512,000136: 
024513,000137: 36,2066           30776                           CA       OPTION2                               
024514,000138: 36,2067           74767                           MASK     BIT2                                  
024515,000139: 36,2070           10000                           CCS      A                                     
024516,000140: 36,2071           05205                           TC       ENDOFJOB                              #  OPTION 2, BLANK ONLY R31
024517,000141: 36,2072           34773                           CAF      FIVE                                  #  BLANK BOTH R1,R3
024518,000142: 36,2073           05516                           TC       BLANKET                               
024519,000143: 36,2074           05205                           TC       ENDOFJOB                              
024520,000144: 36,2075           30776        ENDV6N79           CA       OPTION2                               
024521,000145: 36,2076           74766                           MASK     BIT3                                  
024522,000146: 36,2077           00006                           EXTEND                                         
024523,000147: 36,2100           12105                           BZF      NOAZIM                                

Page 554

024525,000149: 36,2101           05547                           TC       UPFLAG                                
024526,000150: 36,2102           00254                           ADRES    AZIMFLAG                              
024527,000151: 
024528,000152: 36,2103           12107                           TCF      COMAZM                                
024529,000153: 
024530,000154: 36,2104           77776        P20OPT             EXIT                                           
024531,000155: 36,2105           05561        NOAZIM             TC       DOWNFLAG                              
024532,000156: 36,2106           00254                           ADRES    AZIMFLAG                              
024533,000157: 
024534,000158: 36,2107           30776        COMAZM             CA       OPTION2                               
024535,000159: 36,2110           76214                           MASK     THREE                                 
024536,000160: 36,2111           10000                           CCS      A                                     
024537,000161: 36,2112           12220                           TCF      UTKINPUT                              
024538,000162: 36,2113           05561                           TC       DOWNFLAG                              
024539,000163: 36,2114           00176                           ADRES    UTFLAG                                
024540,000164: 
024541,000165: 36,2115           05547                           TC       UPFLAG                                
024542,000166: 36,2116           00027                           ADRES    UPDATFLG                              
024543,000167: 
024544,000168: 36,2117           05362        NDUTINPT           TC       2PHSCHNG                              
024545,000169: 36,2120           00004                           OCT      00004                                 
024546,000170: 36,2121           05022                           OCT      05022                                 
024547,000171: 36,2122           26000                           OCT      26000                                 
024548,000172: 36,2123           34760                           CAF      UTBIT                                 
024549,000173: 36,2124           70104                           MASK     FLAGWRD8                              
024550,000174: 36,2125           10000                           CCS      A                                     
024551,000175: 36,2126           12150                           TCF      INTSETUP                              
024552,000176: 
024553,000177: 36,2127           06006                           TC       INTPRET                               
024554,000178: 36,2130           77634                           RTB                                            
024555,000179: 36,2131           51751                                    LOADTIME                              
024556,000180: 36,2132           35062                           STCALL   MARKTIME                              
024557,000181: 36,2133           60435                                    UPSTATE                               
024558,000182: 36,2134           77776                           EXIT                                           
024559,000183: 
024560,000184: 36,2135           05547                           TC       UPFLAG                                
024561,000185: 36,2136           00010                           ADRES    RNDVZFLG                              
024562,000186: 
024563,000187: 36,2137           37650                           CAF      PRIO26                                
024564,000188: 36,2140           05135                           TC       FINDVAC                               
024565,000189: 36,2141  E7,1722                                  EBANK=   MRKBUF1                               
024566,000190: 36,2141           02625 70067                     2CADR    R22                                   
024567,000191: 36,2143           05362                           TC       2PHSCHNG                              
024568,000192: 36,2144           00072                           OCT      00072                                 
024569,000193: 36,2145           00111                           OCT      00111                                 
024570,000194: 36,2146  01,2025               1P11SPT3           =        1.11SPOT                              
024571,000195: 36,2146  01,2041               2P7SPT1            =        2.7SPOT                               
024572,000196: 36,2146           04112                           TC       AUTOCHK                               

Page 555

024574,000198: 36,2147           12157                           TCF      PIKUP20                               
024575,000199: 
024576,000200: 36,2150           35047        INTSETUP           CAF      PRIO5                                 
024577,000201: 36,2151           05135                           TC       FINDVAC                               
024578,000202: 36,2152  E3,1554                                  EBANK=   RRECTCSM                              
024579,000203: 36,2152           02711 26063                     2CADR    STATINT1                              
024580,000204: 
024581,000205: 36,2154           05362                           TC       2PHSCHNG                              
024582,000206: 36,2155           00052                           OCT      0052                                  
024583,000207: 36,2156           00111                           OCT      00111                                 
024584,000208: 
024585,000209: 36,2157  01,2025               1P11SPT4           =        1.11SPOT                              
024586,000210: 36,2157  01,2036               2P5SPT3            =        2.5SPOT                               
024587,000211: 36,2157           35053        PIKUP20            CAF      PRIO14                                #  ALLOW HIGHER PRIO THAN LAMBERT
024588,000212: 36,2160           05176                           TC       PRIOCHNG                              
024589,000213: 36,2161           34764                           CAF      TRACKBIT                              
024590,000214: 36,2162           70075                           MASK     FLAGWRD1                              #  IS TRACK FLAG SET
024591,000215: 36,2163           00006                           EXTEND                                         
024592,000216: 36,2164           12416                           BZF      FIXDB                                 
024593,000217: 36,2165           34754                           CAF      REFSMBIT                              
024594,000218: 36,2166           70077                           MASK     FLAGWRD3                              #  IS REFSMFLAG SET
024595,000219: 36,2167           00006                           EXTEND                                         
024596,000220: 36,2170           12416                           BZF      FIXDB                                 
024597,000221: 
024598,000222: 36,2171           34772                           CAF      ZERO                                  
024599,000223: 36,2172           55774                           TS       R61CNTR                               #  INITIALIZE R61 COUNTER
024600,000224: 36,2173           30104                           CA       FLAGWRD8                              
024601,000225: 36,2174           74760                           MASK     UTBIT                                 
024602,000226: 36,2175           10000                           CCS      A                                     
024603,000227: 36,2176           02263                           TC       CALLR6X                               
024604,000228: 
024605,000229: 36,2177           05547                           TC       UPFLAG                                
024606,000230: 36,2200           00037                           ADRES    R21MARK                               
024607,000231: 36,2201           04636                           TC       BANKCALL                              
024608,000232: 36,2202           76333                           CADR     R61CSM                                
024609,000233: 36,2203           40106                           CS       FLGWRD10                              #  CHECK IF PC MANEUVER TO TRACK
024610,000234: 36,2204           74752                           MASK     PCMANBIT                              #       ATTITUDE
024611,000235: 36,2205           00006                           EXTEND                                         
024612,000236: 36,2206           14116                           BZF      AUTOCHK1                              
024613,000237: 36,2207           05547        P20TRACK           TC       UPFLAG                                #  SET TARG FLAG TO LEM FOR R52
024614,000238: 36,2210           00024                           ADRES    TARG1FLG                              #  BIT 10  FLAG 1
024615,000239: 36,2211           06006        P20R52JB           TC       INTPRET                               
024616,000240: 36,2212           77624                           CALL                                           
024617,000241: 36,2213           31005                                    R52                                   #  SET UP AUTO OPTICS JOB
024618,000242: 36,2214           77776                           EXIT                                           
024619,000243: 36,2215           04636                           TC       BANKCALL                              
024620,000244: 36,2216           16073                           CADR     MKRLEES                               
024621,000245: 36,2217           12416                           TCF      FIXDB                                 
024622,000246: 
024623,000247: 36,2220           55351        UTKINPUT           TS       OPTNTYPE                              

Page 556

024625,000249: 36,2221           05547                           TC       UPFLAG                                
024626,000250: 36,2222           00176                           ADRES    UTFLAG                                
024627,000251: 
024628,000252: 36,2223           05561                           TC       DOWNFLAG                              
024629,000253: 36,2224           00010                           ADRES    RNDVZFLG                              
024630,000254: 
024631,000255: 36,2225           11351                           CCS      OPTNTYPE                              
024632,000256: 36,2226           02255                           TC       TYPE2IN                               
024633,000257: 
024634,000258: 36,2227           32471        V1N70DSP           CAF      V01N70UT                              
024635,000259: 36,2230           05535                           TC       VNFLASH                               
024636,000260: 36,2231           11140                           CCS      STARCODE                              
024637,000261: 36,2232           62475                           AD       NEG47UT                               
024638,000262: 36,2233           10000                           CCS      A                                     
024639,000263: 36,2234           12253                           TCF      NOGOOD                                
024640,000264: 
024641,000265: 36,2235           12237                           TCF      +2                                    
024642,000266: 36,2236           12237                           TCF      +1                                    
024643,000267: 36,2237           31140                           CA       STARCODE                              
024644,000268: 36,2240           55355                           TS       UTSTARNO                              
024645,000269: 
024646,000270: 36,2241           10000                           CCS      A                                     
024647,000271: 36,2242           12117                           TCF      NDUTINPT                              
024648,000272: 
024649,000273: 36,2243           35035                           CAF      V06N88UT                              
024650,000274: 36,2244           05535                           TC       VNFLASH                               
024651,000275: 36,2245           06006                           TC       INTPRET                               
024652,000276: 36,2246           77775                           VLOAD                                          
024653,000277: 36,2247           03705                                    STARSAV3                              
024654,000278: 36,2250           03732                           STORE    PLANVCUT                              
024655,000279: 36,2251           77776                           EXIT                                           
024656,000280: 36,2252           02117                           TC       NDUTINPT                              
024657,000281: 
024658,000282: 36,2253           04362        NOGOOD             TC       FALTON                                
024659,000283: 36,2254           02227                           TC       V1N70DSP                              
024660,000284: 
024661,000285: 36,2255           35027        TYPE2IN            CAF      V06N34UT                              
024662,000286: 36,2256           05535                           TC       VNFLASH                               
024663,000287: 36,2257           00006                           EXTEND                                         
024664,000288: 36,2260           31251                           DCA      DSPTEM1                               
024665,000289: 36,2261           53356                           DXCH     R67TIME                               
024666,000290: 36,2262           12117                           TCF      NDUTINPT                              
024667,000291: 
024668,000292: 36,2263           05561        CALLR6X            TC       DOWNFLAG                              
024669,000293: 36,2264           00037                           ADRES    R21MARK                               
024670,000294: 
024671,000295: 36,2265           11351                           CCS      OPTNTYPE                              
024672,000296: 36,2266           12271                           TCF      TYPE2                                 
024673,000297: 
024674,000298: 36,2267           04655                           TC       POSTJUMP                              

Page 557

024676,000300: 36,2270           74454                           CADR     R66CSM                                
024677,000301: 
024678,000302: 36,2271           00006        TYPE2              EXTEND                                         
024679,000303: 36,2272           40025                           DCS      TIME2                                 
024680,000304: 36,2273           52155                           DXCH     MPAC                                  
024681,000305: 36,2274           00006                           EXTEND                                         
024682,000306: 36,2275           31356                           DCA      R67TIME                               
024683,000307: 36,2276           20155                           DAS      MPAC                                  
024684,000308: 36,2277           07224                           TC       DPAGREE                               
024685,000309: 36,2300           10154                           CCS      MPAC                                  
024686,000310: 36,2301           12314                           TCF      DODELAY                               
024687,000311: 
024688,000312: 36,2302           12305                           TCF      +3                                    
024689,000313: 36,2303           34772                           CAF      ZERO                                  
024690,000314: 36,2304           54155                           TS       MPAC       +1                         
024691,000315: 36,2305           10155                           CCS      MPAC       +1                         
024692,000316: 36,2306           12307                           TCF      +1                                    
024693,000317: 36,2307           64770                           AD       ONE                                   
024694,000318: 36,2310           05233                           TC       WAITLIST                              
024695,000319: 36,2311  E6,1774                                  EBANK=   R61CNTR                               
024696,000320: 36,2311           02320 74066                     2CADR    R67                                   
024697,000321: 
024698,000322: 36,2313           05205                           TC       ENDOFJOB                              
024699,000323: 
024700,000324: 36,2314           34750        DODELAY            CAF      POSMAX                                
024701,000325: 36,2315           04636                           TC       BANKCALL                              
024702,000326: 36,2316           01731                           CADR     DELAYJOB                              
024703,000327: 36,2317           12271                           TCF      TYPE2                                 
024704,000328: 
024705,000329: 36,2320           37650        R67                CAF      PRIO26                                
024706,000330: 36,2321           05135                           TC       FINDVAC                               
024707,000331: 36,2322  E6,1774                                  EBANK=   R61CNTR                               
024708,000332: 36,2322           02327 74066                     2CADR    R67START                              
024709,000333: 
024710,000334: 36,2324           05547                           TC       UPFLAG                                
024711,000335: 36,2325           00205                           ADRES    R67FLAG                               
024712,000336: 
024713,000337: 36,2326           05314                           TC       TASKOVER                              
024714,000338: 
024715,000339: 36,2327           06006        R67START           TC       INTPRET                               
024716,000340: 36,2330           47014                           BON      RTB                                   
024717,000341: 36,2331           00701                                    STIKFLAG                              
024718,000342: 36,2332           44717                                    NOGOM3                                
024719,000343: 36,2333           44370                                    READCDUK                              
024720,000344: 36,2334           37262                           STCALL   BCDU                                  
024721,000345: 36,2335           74437                                    UTPRFAX                               
024722,000346: 36,2336           03343                           STORE    COF                                   
024723,000347: 36,2337           77776                           EXIT                                           
024724,000348: 
024725,000349: 36,2340           00004                           INHINT                                         

Page 558

024727,000351: 36,2341           35007                           CAF      MINDB                                 
024728,000352: 36,2342           55655                           TS       ADB                                   
024729,000353: 36,2343           11773                           CCS      DBPTC                                 
024730,000354: 36,2344           64770                           AD       ONE                                   
024731,000355: 36,2345           02347                           TC       +2                                    
024732,000356: 36,2346           64770                           AD       ONE                                   
024733,000357: 36,2347           00006                           EXTEND                                         
024734,000358: 36,2350           12352                           BZF      +2                                    
024735,000359: 36,2351           55655                           TS       ADB                                   
024736,000360: 
024737,000361: 36,2352           06006                           TC       INTPRET                               
024738,000362: 36,2353           41335                           SLOAD    DMP                                   
024739,000363: 36,2354           03373                                    RATEPTC                               
024740,000364: 36,2355           34474                                    TUFITS                                #  SCALING FACTOR(.4 DEC)
024741,000365: 36,2356           45002                           SR4      CALL                                  #  COMPUTE THE INCREMENTAL ROTATION MATRIX
024742,000366: 36,2357           44522                                    DELCOMP                               #  DEL CORRESPONDING TO A  1 SEC ROTATION
024743,000367: 36,2360           41335                           SLOAD    DMP                                   #  ABOUT COF
024744,000368: 36,2361           03373                                    RATEPTC                               
024745,000369: 36,2362           34474                                    TUFITS                                
024746,000370: 36,2363           64361                           VXSC     MXV                                   
024747,000371: 36,2364           03343                                    COF                                   
024748,000372: 36,2365           05014                                    QUADROT                               
024749,000373: 36,2366           27311                           STOVL    BRATE                                 
024750,000374: 36,2367           15336                                    ZEROVECS                              
024751,000375: 36,2370           03275                           STORE    BIASTEMP                              
024752,000376: 36,2371           77776                           EXIT                                           
024753,000377: 
024754,000378: 36,2372           05402                           TC       PHASCHNG                              
024755,000379: 36,2373           00131                           OCT      00131                                 
024756,000380: 
024757,000381: 36,2374  01,2030               1P13SPT1           =        1.13SPOT                              
024758,000382: 36,2374           30075        R67RSTRT           CA       FLAGWRD1                              
024759,000383: 36,2375           74764                           MASK     TRACKBIT                              
024760,000384: 36,2376           00006                           EXTEND                                         
024761,000385: 36,2377           12416                           BZF      FIXDB                                 
024762,000386: 36,2400           34755                           CAF      BIT12                                 
024763,000387: 36,2401           55774                           TS       R61CNTR                               
024764,000388: 
024765,000389: 36,2402           37650                           CAF      PRIO26                                
024766,000390: 36,2403           05176                           TC       PRIOCHNG                              
024767,000391: 
024768,000392: 36,2404           06006                           TC       INTPRET                               
024769,000393: 36,2405           72364                           AXC,2    TLOAD                                 
024770,000394: 36,2406           03320                                    MIS                                   
024771,000395: 36,2407           03262                                    BCDU                                  
024772,000396: 36,2410           45014                           SET      CALL                                  
024773,000397: 36,2411           04075                                    R67FLAG                               
024774,000398: 36,2412           44377                                    CDUTODCM                              
024775,000399: 36,2413           77614                           SETGO                                          
024776,000400: 36,2414           01035                                    CALCMAN2                              #  SET CALCMAN2 TO START MANEUVER

Page 559

024778,000402: 36,2415           45053                                    NEWANGL    +1                         
024779,000403: 
024780,000404: 36,2416           30105        FIXDB              CA       FLAGWRD9                              #  RESTORE DAP DEADBAND
024781,000405: 36,2417           00004                           INHINT                                         
024782,000406: 36,2420           74755                           MASK     MAXDBBIT                              
024783,000407: 36,2421           10000                           CCS      A                                     
024784,000408: 36,2422           12426                           TCF      +4                                    
024785,000409: 
024786,000410: 36,2423           04636                           TC       BANKCALL                              
024787,000411: 36,2424           51203                           CADR     SETMINDB                              
024788,000412: 36,2425           12430                           TCF      +3                                    
024789,000413: 
024790,000414: 36,2426           04636                           TC       BANKCALL                              
024791,000415: 36,2427           51217                           CADR     SETMAXDB                              
024792,000416: 
024793,000417: 36,2430           05561                           TC       DOWNFLAG                              
024794,000418: 36,2431           00205                           ADRES    R67FLAG                               
024795,000419: 36,2432           05402                           TC       PHASCHNG                              
024796,000420: 36,2433           00111                           OCT      00111                                 
024797,000421: 36,2434  01,2025               1P11SPT5           =        1.11SPOT                              
024798,000422: 36,2434           00004        STOPVEH            INHINT                                         
024799,000423: 36,2435           04463                           TC       STOPRATE                              
024800,000424: 36,2436           15205                           TCF      ENDOFJOB                              
024801,000425: 
024802,000426: 36,2437           73545        UTPRFAX            DLOAD    SIN                                   #  COMPUTE PREFERRED UNIT VECTOR
024803,000427: 36,2440           03740                                    UTPIT                                 #                      MPAC   =COS(P)COS(Y)
024804,000428: 36,2441           65276                           DCOMP    PDDL                                  #  PDX=-SIN(P)         MPAC +2=COS(P)SIN(Y)
024805,000429: 36,2442           03740                                    UTPIT                                 #                      MPAC +4=-SIN(P)
024806,000430: 36,2443           41546                           COS      PUSH                                  #  PDX+2=COS(P) USED WITH SECOND DMP BELOW
024807,000431: 36,2444           73525                           PDDL     SIN                                   #  PDX+4=COS(P) USED WITH FIRST  DMP BELOW
024808,000432: 36,2445           03742                                    UTYAW                                 
024809,000433: 36,2446           72405                           DMP      SL1                                   #  MPAC=COS(P)SIN(Y)
024810,000434: 36,2447           77725                           PDDL                                           #  REPLACE PDX+2 WITH COS"P)SIN(Y)
024811,000435: 36,2450           71525                           PDDL     COS                                   #  REPLACE PDX+4 WITH COS(P) IN ORDER TO
024812,000436: 36,2451           03742                                    UTYAW                                 #   POSITION PD COUNTER FOR DMP
024813,000437: 36,2452           72405                           DMP      SL1                                   
024814,000438: 36,2453           43466                           VDEF     RVQ                                   #  PUSHUP FOR Y,Z COMPONENTS
024815,000439: 
024816,000440: 36,2454           40075        R66CSM             CS       FLAGWRD1                              #  R66 CONTROL
024817,000441: 36,2455           74764                           MASK     TRACKBIT                              
024818,000442: 36,2456           10000                           CCS      A                                     
024819,000443: 36,2457           12416                           TCF      FIXDB                                 
024820,000444: 
024821,000445: 36,2460           04636                           TC       BANKCALL                              #  TRACKFLG SET, CONTINUE R66
024822,000446: 36,2461           76333                           CADR     R61CSM                                #  CALL R61
024823,000447: 
024824,000448: 36,2462           35011                           CAF      .5SEC                                 
024825,000449: 36,2463           04636                           TC       BANKCALL                              #  WAIT .5 SEC AND REPEAT
024826,000450: 36,2464           01731                           CADR     DELAYJOB                              

Page 560

024828,000452: 36,2465           02454                           TC       R66CSM                                
024829,000453: 
024830,000454: 36,2466           74707 43433  35DEGANG           2DEC     -.097222222222                            
024831,000455: 36,2470           01516        V06N78UT           VN       0678                                  
024832,000456: 36,2471           00306        V01N70UT           VN       0170                                  
024833,000457: 36,2472     5035               V06N88UT           =        V06N88                                
024834,000458: 36,2472           01517        V06N79UT           VN       0679                                  
024835,000459: 36,2473     5027               V06N34UT           =        V06N34                                
024836,000460: 36,2473           14631 23146  TUFITS             2DEC     .4                                    
024837,000461: 36,2475           77730        NEG47UT            OCT      77730                                 
024838,000462: 

Page 561

024840,000464:                                                                                                  #  ORBITAL NAVIGATION PROGRAM 22
024841,000465: 30,2000                                           SETLOC   P20S1                                 
024842,000466: 30,2000                                           BANK                                           
024843,000467: 
024844,000468: 30,2153  E7,1751                                  EBANK=   LANDMARK                              
024845,000469: 30,2153                                           COUNT*   $$/P22                                
024846,000470: 
024847,000471: 30,2153           04636        PROG22             TC       BANKCALL                              
024848,000472: 30,2154           03731                           CADR     R02BOTH                               
024849,000473: 30,2155           06006                           TC       INTPRET                               
024850,000474: 30,2156           43014                           BOFF     SET                                   
024851,000475: 30,2157           04346                                    UTFLAG                                
024852,000476: 30,2160           60162                                    +2                                    
024853,000477: 30,2161           00472                                    TRACKFLG                              
024854,000478: 30,2162           47014                           CLEAR    RTB                                   
024855,000479: 30,2163           00270                                    RNDVZFLG                              
024856,000480: 30,2164           51751                                    LOADTIME                              
024857,000481: 30,2165           34041                           STCALL   TDEC1                                 
024858,000482: 30,2166           27170                                    CSMCONIC                              #  INTEGRATE TO PRESENT TIME
024859,000483: 30,2167           47375                           VLOAD    VXV                                   #  CROSS PRODUCT BETWEEN V AND R
024860,000484: 30,2170           00007                                    VATT                                  
024861,000485: 30,2171           00001                                    RATT                                  
024862,000486: 30,2172           50256                           UNIT     DOT                                   
024863,000487: 30,2173           01742                                    REFSMMAT   +6                         
024864,000488: 30,2174           77646                           ABS                                            
024865,000489: 30,2175           65552                           SL1      ARCCOS                                
024866,000490: 30,2176           03626                           STORE    +MGA                                  
024867,000491: 30,2177           77776                           EXIT                                           
024868,000492: 30,2200           32257                           CAF      V06N45B                               
024869,000493: 30,2201           05540                           TC       VNFLASHR                              
024870,000494: 30,2202           02206                           TC       PROG22A                               
024871,000495: 30,2203           36214                           CAF      THREE                                 
024872,000496: 30,2204           05516                           TC       BLANKET                               #  BLANK OUT R1 + R2
024873,000497: 30,2205           05205                           TC       ENDOFJOB                              
024874,000498: 30,2206           45051        PROG22A            CS       PRIO7                                 #  RESULT=70777  SET OFFSET NO.=0
024875,000499: 30,2207           71751                           MASK     LANDMARK                              
024876,000500: 30,2210           55751                           TS       LANDMARK                              
024877,000501: 30,2211           05362                           TC       2PHSCHNG                              
024878,000502: 30,2212           00004                           OCT      00004                                 
024879,000503: 30,2213           05022                           OCT      05022                                 
024880,000504: 30,2214           13000                           OCT      13000                                 
024881,000505: 30,2215           05547                           TC       UPFLAG                                
024882,000506: 30,2216           00025                           ADRES    TARG2FLG                              #  SET =1 FOR SIGHTING LMK
024883,000507: 30,2217           05547                           TC       UPFLAG                                
024884,000508: 30,2220           00026                           ADRES    VEHUPFLG                              #  VEH.=CSM
024885,000509: 30,2221           06006                           TC       INTPRET                               
024886,000510: 30,2222           43014                           CLEAR    CLEAR                                 
024887,000511: 30,2223           01663                                    LUNAFLAG                              
024888,000512: 30,2224           01664                                    P22MKFLG                              
024889,000513: 30,2225           43014                           SET      BOFF                                  

Page 562

024891,000515: 30,2226           00462                                    ERADFLAG                              
024892,000516: 30,2227           04343                                    CMOONFLG                              
024893,000517: 30,2230           60240                                    PROG22B                               #  EARTH
024894,000518: 30,2231           77614                           SET                                            #  MOON
024895,000519: 30,2232           01463                                    LUNAFLAG                              
024896,000520: 30,2233           45145                           DLOAD    CALL                                  #  MPAC=V05N70,MPAC+1=NONZERO FOR N70
024897,000521: 30,2234           23513                                    V05N7022                              
024898,000522: 30,2235           60332                                    S22N7071                              
024899,000523: 30,2236           77650                           GOTO                                           
024900,000524: 30,2237           60242                                    CALLR52                               
024901,000525: 30,2240           77624        PROG22B            CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024902,000526: 30,2241           60304                                    P22SUBRB                              
024903,000527: 30,2242           77624        CALLR52            CALL                                           
024904,000528: 30,2243           31005                                    R52                                   
024905,000529: 30,2244           45135        DOV5N71            SLOAD    CALL                                  #  MPAC=V05N71,MPAC+1=0 FOR N71
024906,000530: 30,2245           23514                                    V05N7122                              
024907,000531: 30,2246           60332                                    S22N7071                              
024908,000532: 30,2247           66214        PROG22C            SET      SSP                                   
024909,000533: 30,2250           01464                                    P22MKFLG                              #  FOR DOWNLINK
024910,000534: 30,2251           03746                                    8KK                                   
024911,000535: 30,2252           00001                           DEC      1          B-14                       
024912,000536: 30,2253           77531                           SSP      EXIT                                  
024913,000537: 30,2254           03751                                    S22LOC                                
024914,000538: 30,2255           03537                           ECADR    SVMRKDAT                              
024915,000539: 30,2256           02466                           TC       S22.1                                 
024916,000540: 
024917,000541: 30,2257           01455        V06N45B            VN       0645                                  
024918,000542: 30,2260  31,3512               V05N7022           =        V05N70                                
024919,000543: 30,2260  31,3513               V05N7122           =        V05N71                                
024920,000544: 30,2260           77634        S22LSITE           RTB                                            #  CONVERT RLS FROM MOON-FIXED TO BASIC REF
024921,000545: 30,2261           51751                                    LOADTIME                              
024922,000546: 30,2262           24007                           STOVL    6D                                    #  6-7D= TIME
024923,000547: 30,2263           02026                                    RLS                                   
024924,000548: 30,2264           14001                           STODL    0D                                    #  0-5D= LANDING SITE VECTOR
024925,000549: 30,2265           15334                                    HIDPHALF                              #  MPAC= ANY NON-ZERO FOR MOON
024926,000550: 30,2266           77624                           CALL                                           
024927,000551: 30,2267           55345                                    RP-TO-R                               #  RLS IN BASIC REF B-27 IN MPAC
024928,000552: 30,2270           77742                           VSR2                                           #  LUNAFLAG AND ERADFLAG SET ABOVE
024929,000553: 30,2271           02152                           STORE    ALPHAV                                #  SCALE RLS B-29 FOR LAT-LONG
024930,000554: 30,2272           77634                           RTB                                            
024931,000555: 30,2273           51751                                    LOADTIME                              #  SET PRESENT TIME IN MPAC FOR LAT-LONG
024932,000556: 30,2274           77624                           CALL                                           
024933,000557: 30,2275           26453                                    LAT-LONG                              
024934,000558: 30,2276           77650                           GOTO                                           
024935,000559: 30,2277           03667                                    S22TOFF                               #  EXIT
024936,000560: 30,2300           77624        OBTAINLL           CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024937,000561: 30,2301           60304                                    P22SUBRB                              
024938,000562: 30,2302           77650                           GOTO                                           
024939,000563: 30,2303           03667                                    S22TOFF                               #  EXIT
024940,000564: 30,2304           77420        P22SUBRB           STQ      EXIT                                  #  GET LAT/LONG/ALT FROM ASTRO

Page 563

024942,000566: 30,2305           03670                                    S22TOFF    +1                         
024943,000567: 30,2306           35036                 +2        CAF      V06N89B                               
024944,000568: 30,2307           05535                           TC       VNFLASH                               
024945,000569: 30,2310           06006                           TC       INTPRET                               
024946,000570: 30,2311           51545                           DLOAD    ABS                                   #  TEST LAT/LONG GREATER THAN 90
024947,000571: 30,2312           00747                                    LANDLAT                               
024948,000572: 30,2313           50021                           BDSU     BMN                                   #  1/4 REV - LAT
024949,000573: 30,2314           15326                                    DP1/4TH                               
024950,000574: 30,2315           60323                                    N89ERRX                               
024951,000575: 30,2316           51545                           DLOAD    ABS                                   
024952,000576: 30,2317           02351                                    LANDLONG                              
024953,000577: 30,2320           51021                           BDSU     BPL                                   
024954,000578: 30,2321           15326                                    DP1/4TH                               
024955,000579: 30,2322           60326                                    N89ERRX    +3                         
024956,000580: 30,2323           77776        N89ERRX            EXIT                                           
024957,000581: 30,2324           04362                           TC       FALTON                                
024958,000582: 30,2325           02306                           TC       P22SUBRB   +2                         #  LONG GR. THAN 90  REDISPLAY
024959,000583: 30,2326           77624                 +3        CALL                                           
024960,000584: 30,2327           62371                                    LLASRDA                               
024961,000585: 30,2330           77650                           GOTO                                           
024962,000586: 30,2331           03670                                    S22TOFF    +1                         #  EXIT
024963,000587: 30,2332           03746        S22N7071           STORE    8KK                                   #  8KK=V05N71,V05N70 8KK+1=0 N71,NOT 0 N70
024964,000588: 30,2333           77420                           STQ      EXIT                                  
024965,000589: 30,2334           03667                                    S22TOFF                               
024966,000590: 30,2335           31745        S22DSPPA           CA       8KK                                   #  V05N70 OR V05N71
024967,000591: 30,2336           05540                           TC       VNFLASHR                              
024968,000592: 30,2337           02343                           TC       +4                                    
024969,000593: 30,2340           34773                           CAF      FIVE                                  #  IMMEDIATE RETURN BLANK OUT R1,R3
024970,000594: 30,2341           05516                           TC       BLANKET                               
024971,000595: 30,2342           05205                           TC       ENDOFJOB                              
024972,000596: 30,2343           31751                           CA       LANDMARK                              
024973,000597: 30,2344           75051                           MASK     PRIO7                                 #  07000
024974,000598: 30,2345           00006                           EXTEND                                         
024975,000599: 30,2346           74763                           MP       BIT6                                  
024976,000600: 30,2347           55744                           TS       CXOFF                                 #  08000 = OFFSET INDICATOR
024977,000601: 30,2350           44773                           CS       FIVE                                  
024978,000602: 30,2351           61744                           AD       CXOFF                                 
024979,000603: 30,2352           00006                           EXTEND                                         
024980,000604: 30,2353           62355                           BZMF     +2                                    #  OFF=0 THRU 5 OK
024981,000605: 30,2354           02367                           TC       S22DSPP                               #  OFF=6,7 ILLEGAL REDISPLAY
024982,000606: 30,2355           05561                           TC       DOWNFLAG                              
024983,000607: 30,2356           00141                           ADRES    KNOWNFLG                              #  CLEAR KNOWNFLG
024984,000608: 30,2357           31751                           CA       LANDMARK                              #  MASK A FROM ABCDE
024985,000609: 30,2360           77673                           MASK     13,14,15                              
024986,000610: 30,2361           00006                           EXTEND                                         
024987,000611: 30,2362           62367                           BZMF     S22DSPP                               #  A=0,4,5,6,7  ILLEGAL REDISPLAY
024988,000612: 30,2363           55743                           TS       22SUBSCL                              #  TEMP
024989,000613: 30,2364           44753                           CS       BIT14                                 
024990,000614: 30,2365           61743                           AD       22SUBSCL                              
024991,000615: 30,2366           10000                           CCS      A                                     

Page 564

024993,000617: 30,2367           04362        S22DSPP            TC       FALTON                                #  +  A=3 ILLEGAL REDISPLAY
024994,000618: 30,2370           02335                           TC       S22DSPPA                              #  COMMON ERROR EXIT BACK TO DISPLAY
024995,000619: 30,2371           02373                           TC       +2                                    #  -   A=1 KNOWN LMK  CHECK DE
024996,000620: 30,2372           02417                           TC       S22ABDE                               #  -0  A=2 UNKNOWN LMK,DE MEANINGLESS
024997,000621: 30,2373           05547                           TC       UPFLAG                                
024998,000622: 30,2374           00141                           ADRES    KNOWNFLG                              #  SET KNOWNFLG
024999,000623: 30,2375           47677                           CS       HIGH9                                 #  RESULT= 00077
025000,000624: 30,2376           71751                           MASK     LANDMARK                              
025001,000625: 30,2377           55743                           TS       22SUBSCL                              #  000DE
025002,000626: 30,2400           44770                           CS       BIT1                                  
025003,000627: 30,2401           61743                           AD       22SUBSCL                              
025004,000628: 30,2402           00006                           EXTEND                                         
025005,000629: 30,2403           62417                           BZMF     S22ABDE                               #  DE=0,1 OK FOR BOTH N70,N71
025006,000630: 30,2404           31746                           CA       8KK        +1                         #  =0 FOR N71, NOT =0 FOR N70
025007,000631: 30,2405           00006                           EXTEND                                         
025008,000632: 30,2406           12367                           BZF      S22DSPP                               #  N71 REDISPLAY  DE MUST= 0 OR 1
025009,000633: 30,2407           34764                           CA       BIT5                                  #  N70 TEST DE= 50-57 OCTAL FOR ADV. ORBIT
025010,000634: 30,2410           65004                           AD       OCT50                                 #  SUM=00070
025011,000635: 30,2411           71743                           MASK     22SUBSCL                              #  00D0
025012,000636: 30,2412           40000                           CS       A                                     
025013,000637: 30,2413           65004                           AD       OCT50                                 
025014,000638: 30,2414           00006                           EXTEND                                         
025015,000639: 30,2415           12427                           BZF      DE-GR-50                              #  D=5 OR DE=50-57,OK FOR N70
025016,000640: 30,2416           02367                           TC       S22DSPP                               #  DE NOT 50-57  ILLEGAL,REDISPLAY
025017,000641: 30,2417           06006        S22ABDE            TC       INTPRET                               
025018,000642: 30,2420           67214                           BOFF     SLOAD                                 
025019,000643: 30,2421           03347                                    KNOWNFLG                              #  UNKNOWN LMK, DE MEANINGLESS
025020,000644: 30,2422           03667                                    S22TOFF                               
025021,000645: 30,2423           03744                                    22SUBSCL                              #  =0 GET LLA FROM ASTRO,NOT=0 USE RLS
025022,000646: 30,2424           52030                           BHIZ     GOTO                                  
025023,000647: 30,2425           60300                                    OBTAINLL                              #  GET LAT/LONG/ALT FROM ASTRO  N89
025024,000648: 30,2426           60260                                    S22LSITE                              #  GET LAT/LONG/ALT FROM RLS
025025,000649: 30,2427           06006        DE-GR-50           TC       INTPRET                               #  ADVANCED ORBIT OPTION IN R52
025026,000650: 30,2430           45014                           SET      CALL                                  #  ADVANCED ORBIT ENTRANCE TO R52
025027,000651: 30,2431           04065                                    ADVTRK                                
025028,000652: 30,2432           31007                                    R52VRB                                
025029,000653: 30,2433           77650                           GOTO                                           
025030,000654: 30,2434           60244                                    DOV5N71                               
025031,000655: 13,2000                                           SETLOC   P24PROG                               
025032,000656: 13,2000                                           BANK                                           
025033,000657: 

Page 565

025035,000659: 13,2254                                           COUNT*   $$/P24                                
025036,000660: 13,2254           30737        PROG24             CA       NO.PASS                               
025037,000661: 13,2255           55131                           TS       PASSCNT                               
025038,000662: 13,2256           05362                           TC       2PHSCHNG                              
025039,000663: 13,2257           00004                           OCT      00004                                 
025040,000664: 13,2260           05022                           OCT      05022                                 
025041,000665: 13,2261           13000                           OCT      13000                                 
025042,000666: 13,2262           04636                           TC       BANKCALL                              
025043,000667: 13,2263           03731                           CADR     R02BOTH                               #  IMU STATUS CHECK
025044,000668: 13,2264           06006                           TC       INTPRET                               
025045,000669: 13,2265           43014                           BOFF     SET                                   
025046,000670: 13,2266           04346                                    UTFLAG                                
025047,000671: 13,2267           26271                                    +2                                    
025048,000672: 13,2270           00472                                    TRACKFLG                              
025049,000673: 13,2271           43014                           CLEAR    CLEAR                                 
025050,000674: 13,2272           01274                                    P24MKFLG                              
025051,000675: 13,2273           04261                                    NEWLMFLG                              
025052,000676: 13,2274           43014                           CLEAR    CLEAR                                 
025053,000677: 13,2275           01671                                    ORBWFLAG                              
025054,000678: 13,2276           02676                                    RENDWFLG                              
025055,000679: 13,2277           76131                           SSP      AXT,1                                 #  ZERO P22 DOWNLIST MARK BUFFER
025056,000680: 13,2300           00051                                    S1                                    
025057,000681: 13,2301           00006                           DEC      6          B-14                       
025058,000682: 13,2302           00044                           DEC      36         B-14                       
025059,000683: 13,2303           77214                           SET      VLOAD                                 
025060,000684: 13,2304           04461                                    P24FLAG                               
025061,000685: 13,2305           11762                                    ZEROVEC                               
025062,000686: 13,2306           07604        ZERODNLK           STORE    SVMRKDAT   +36D,1                     
025063,000687: 13,2307           43100                           TIX,1    CLEAR                                 
025064,000688: 13,2310           26306                                    ZERODNLK                              
025065,000689: 13,2311           01664                                    P22MKFLG                              
025066,000690: 13,2312           47014                           CLEAR    RTB                                   
025067,000691: 13,2313           00270                                    RNDVZFLG                              
025068,000692: 13,2314           51751                                    LOADTIME                              
025069,000693: 13,2315           35062                           STCALL   MARKTIME                              
025070,000694: 13,2316           56462                                    SETINTG                               
025071,000695: 13,2317           77624                           CALL                                           
025072,000696: 13,2320           27236                                    INTEGRV                               #  UPDATE STATE VEC TO CURRENT TIME
025073,000697: 13,2321           43014                           SET      CLEAR                                 
025074,000698: 13,2322           00462                                    ERADFLAG                              
025075,000699: 13,2323           01663                                    LUNAFLAG                              
025076,000700: 13,2324           43014                           BOFF     SET                                   
025077,000701: 13,2325           04343                                    CMOONFLG                              
025078,000702: 13,2326           26330                                    +2                                    
025079,000703: 13,2327           01463                                    LUNAFLAG                              
025080,000704: 13,2330           77624                           CALL                                           
025081,000705: 13,2331           60304                                    P22SUBRB                              
025082,000706: 13,2332           77776                           EXIT                                           
025083,000707: 13,2333           05362                           TC       2PHSCHNG                              

Page 566

025085,000709: 13,2334           00004                           OCT      00004                                 
025086,000710: 13,2335           05022                           OCT      05022                                 
025087,000711: 13,2336           13000                           OCT      13000                                 
025088,000712: 13,2337           06006                           TC       INTPRET                               
025089,000713: 13,2340           45014                           SET      CALL                                  
025090,000714: 13,2341           00466                                    TARG2FLG                              
025091,000715: 13,2342           31005                                    R52                                   
025092,000716: 13,2343           77776                           EXIT                                           
025093,000717: 13,2344           04103                           TC       GOTOPOOH                              
025094,000718: 

Page 567

025096,000720: 
025097,000721:                                                                                                  #  PROGRAM NAME-  OPTICS CALIBRATION ROUTINE
025098,000722:                                                                                                  #  MOD NO- 1
025099,000723:                                                                                                  #  MOD BY- TOM KNATT
025100,000724: 
025101,000725:                                                                                                  #  FUNCTIONAL DESCRIPTION- TO MEASURE THE EFFECT OF SOLAR RADIATION ON
025102,000726:                                                                                                  #    THE SXT TRUNNION ANGLE AND TO STORE THE MEASURED TRUNNION BIAS FOR P23
025103,000727: 
025104,000728:                                                                                                  #  CALLING SEQUENCE- CALL
025105,000729:                                                                                                  #                          R57
025106,000730: 
025107,000731:                                                                                                  #  SUBROUTINES CALLED- DISPLAY ROUTINES
025108,000732: 
025109,000733:                                                                                                  #  NORMAL EXIT MODES-VIA EGRESS
025110,000734: 
025111,000735:                                                                                                  #  ALARMS- NONE
025112,000736: 
025113,000737:                                                                                                  #  ABORT MODES- P23ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE
025114,000738:                                                                                                  #  INPUT- NONE REQUIRED, NORMALLY CALLED BY P23
025115,000739:                                                                                                  #  OUTPUT- TRUNNION BIAS ANGLE- ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT
025116,000740:                                                                                                  #  (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED. THIS ANGLE
025117,000741:                                                                                                  #  MAY NOT BE EXACTLY ZERO BECAUSE OF UNEVEN HEATING OF THE OPTICS,FOR
025118,000742:                                                                                                  #  EXAMPLE.
025119,000743: 
025120,000744:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED- MRKBUF1, EXTVBACT
025121,000745: 
025122,000746:                                                                                                  #  DEBRIS- RUPTREGS USED BY MARKRUPT AND ERASABLES USED BY DISPLAYS
025123,000747: 37,2000                                           SETLOC   P20S                                  
025124,000748: 37,2000                                           BANK                                           
025125,000749: 37,2167                                           COUNT*   $$/R57                                
025126,000750: 37,2167  E7,1722                                  EBANK=   MRKBUF1                               
025127,000751: 37,2167           77420        R57                STQ      EXIT                                  
025128,000752: 37,2170           02310                                    EGRESS                                
025129,000753: 37,2171           40077        R57A               CS       FLAGWRD3                              #  IS THE IMU ALIGNED
025130,000754: 37,2172           74754                           MASK     REFSMBIT                              
025131,000755: 37,2173           10000                           CCS      A                                     
025132,000756: 37,2174           12213                           TCF      R57C                                  #  NO
025133,000757: 37,2175           34776                           CAF      ALRM15                                #  YES SHOULD AUTO ACQUISITION OF STAR
025134,000758: 37,2176           04636                           TC       BANKCALL                              #      BE PERFORMED
025135,000759: 37,2177           21067                           CADR     GOPERF1                               
025136,000760: 37,2200           04103                           TC       GOTOPOOH                              #  TERM
025137,000761: 37,2201           02203                           TC       +2                                    #  PRO YES
025138,000762: 37,2202           02213                           TC       R57C                                  #  ENTER NO
025139,000763: 37,2203           06006                           TC       INTPRET                               
025140,000764: 37,2204           77624                           CALL                                           
025141,000765: 37,2205           30761                                    R51DSPA                               
025142,000766: 37,2206           77624                           CALL                                           
025143,000767: 37,2207           62756                                    DOR60                                 
025144,000768: 37,2210           77776                           EXIT                                           
025145,000769: 37,2211           05402                           TC       PHASCHNG                              
025146,000770: 37,2212           04022                           OCT      04022                                 

Page 568

025148,000772: 37,2213           04636        R57C               TC       BANKCALL                              
025149,000773: 37,2214           16062                           CADR     TESTMARK                              
025150,000774: 37,2215           05547                           TC       UPFLAG                                #  SET V59FLAG(BIT 12 FLAG 5) TO INDICATE
025151,000775: 37,2216           00116                           ADRES    V59FLAG                               #  CALIBRATION MARK
025152,000776: 37,2217           32260                           CAF      V59NB                                 
025153,000777: 37,2220           04636                           TC       BANKCALL                              
025154,000778: 37,2221           20607                           CADR     GOMARKFR                              
025155,000779: 37,2222           04103                           TC       GOTOPOOH                              #  TERMINATE
025156,000780: 37,2223           02247                           TC       ENDR57                                
025157,000781: 37,2224           02247                           TC       ENDR57                                
025158,000782: 37,2225           34774                           CAF      SEVEN                                 
025159,000783: 37,2226           05516                           TC       BLANKET                               #  BLANK OUT R1,R2,R3
025160,000784: 37,2227           05205                           TC       ENDOFJOB                              
025161,000785:                                                                                                  #  STORE TRUNNION ANGLE (OCDU)
025162,000786: 37,2230           32257        MARKDISP           CAF      V06N87NB                              
025163,000787: 37,2231           04636                           TC       BANKCALL                              
025164,000788: 37,2232           20607                           CADR     GOMARKFR                              
025165,000789: 37,2233           04103                           TC       GOTOPOOH                              #  TERMINATE
025166,000790: 37,2234           02241                           TC       R57B                                  #  PROCEED
025167,000791: 37,2235           02255                           TC       R57D                                  #  RECYCLE
025168,000792: 37,2236           34773                           CAF      FIVE                                  
025169,000793: 37,2237           05516                           TC       BLANKET                               #  BLANK OUT R1,R3
025170,000794: 37,2240           05205                           TC       ENDOFJOB                              
025171,000795: 37,2241           32262        R57B               CA       19.77DEG                              #  PUT FIXED INTO ERASABLE FOR MSU
025172,000796: 37,2242           54001                           TS       L                                     #  INSTRUCTION COMING UP
025173,000797: 37,2243           31727                           CA       MRKBUF1    +5                         #  CONTAINS TRUNNION
025174,000798: 37,2244           00006                           EXTEND                                         
025175,000799: 37,2245           20001                           MSU      L                                     #  CORRECTS TRUNBIAS FROM 2'S TO 1'S
025176,000800: 37,2246           55024                           TS       TRUNBIAS                              
025177,000801: 37,2247           05561        ENDR57             TC       DOWNFLAG                              #  RESET V59FLAG
025178,000802: 37,2250           00116                           ADRES    V59FLAG                               #  BIT 12  FLAG 5
025179,000803: 37,2251           05527                           TC       CLEARMRK                              #  ALLOW R53 IN
025180,000804: 
025181,000805: 37,2252           06006                           TC       INTPRET                               
025182,000806: 37,2253           77650                           GOTO                                           
025183,000807: 37,2254           02310                                    EGRESS                                
025184,000808: 37,2255           05527        R57D               TC       CLEARMRK                              
025185,000809: 37,2256           12171                           TCF      R57A                                  
025186,000810: 37,2257           01527        V06N87NB           VN       0687                                  
025187,000811: 37,2260           16600        V59NB              VN       5900                                  
025188,000812: 37,2261           14655        V51N45             VN       5145                                  
025189,000813: 37,2262           61740        19.77DEG           OCT      61740                                 
025190,000814: 

Page 569

025192,000816: 
025193,000817:                                                                                                  #  RENDEZVOUS TRACKING SIGHTING MARK ROUTINE (R21)
025194,000818:                                                                                                  #  AND BACKUP SIGHTING MARK ROUTINE (R23)
025195,000819: 
025196,000820:                                                                                                  #  PROGRAM DESCRIPTION
025197,000821:                                                                                                  #  MOD NO - 1
025198,000822:                                                                                                  #  MOD BY - N.BRODEUR
025199,000823:                                                                                                  #  FUNCTIONAL DESCRIPTION
025200,000824: 
025201,000825:                                                                                                  #    TO PERFORM SIGHTING MARKS IN CONJUNCTION WITH THE RENDEZVOUS NAVIG-
025202,000826:                                                                                                  #  ATION PROGRAM. CALLED BY ASTRONAUT VIA EXTENDED VERB
025203,000827:                                                                                                  #  CALLING SEQUENCE -
025204,000828:                                                                                                  #          R21 VIA V 57
025205,000829:                                                                                                  #          R23 VIA V 54
025206,000830:                                                                                                  #  SUBROUTINES CALLED -
025207,000831:                                                                                                  #    FLAGUP        FLAGDOWN        BANKCALL
025208,000832:                                                                                                  #    ENDOFJOB      GOMARK2         GOMARKF
025209,000833:                                                                                                  #    INTPRET       GENTRAN         KLEENEX
025210,000834:                                                                                                  #    ENDMARK
025211,000835:                                                                                                  #  NORMAL EXIT MODES-
025212,000836:                                                                                                  #    MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARK IN MRKBUF2
025213,000837:                                                                                                  #  FOR USE BY R22. WHEN ASTRONAUT IS FINISHED TAKING MARKS, HE HITS AN
025214,000838:                                                                                                  #  PROCEED ,   R21 IS TERMINATED THUS CAUSING THE FINAL MARK TO BE TRANSFRD
025215,000839:                                                                                                  #  TO MRKBUF2 FOR PROCESSING BY R22
025216,000840:                                                                                                  #  ALARM OR ABORT EXIT MODES -
025217,000841:                                                                                                  #    NONE
025218,000842:                                                                                                  #  OUTPUT -
025219,000843:                                                                                                  #    7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y,
025220,000844:                                                                                                  #  CDUX.
025221,000845:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
025222,000846:                                                                                                  #  FLAGS SET AND RESET
025223,000847:                                                                                                  #    R21MARK   (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 + 2)
025224,000848:                                                                                                  #    R23FLG  INDICATES COAS MARKING
025225,000849:                                                                                                  #  DEBRIS
025226,000850: 37,2263  E7,1722                                  EBANK=   MRKBUF1                               
025227,000851: 37,2000                                           SETLOC   RENDEZ                                
025228,000852: 37,2000                                           BANK                                           
025229,000853: 
025230,000854: 37,2263                                           COUNT*   $$/R23                                
025231,000855: 
025232,000856: 37,2263           05561        R23CSM             TC       DOWNFLAG                              
025233,000857: 37,2264           00037                           ADRES    R21MARK                               
025234,000858: 37,2265           37702                           CAF      NEGONE                                
025235,000859: 37,2266           55722                           TS       MRKBUF1                               
025236,000860: 37,2267           37651                           CAF      PRIO27                                
025237,000861: 37,2270           05176                           TC       PRIOCHNG                              #  HIGHER THAN R22
025238,000862: 
025239,000863: 37,2271           32332                           CAF      V0694                                 #  R23 BACKUP MARKING
025240,000864: 37,2272           04636                           TC       BANKCALL                              #  DISPLAY SHAFT + TRUNNION
025241,000865: 37,2273           20576                           CADR     GOMARKF                               
025242,000866: 37,2274           02320                           TC       R21END                                #  TERM
025243,000867: 37,2275           02277                           TC       +2                                    #  PROC

Page 570

025245,000869: 37,2276           02271                           TC       -5                                    #  ENTER
025246,000870: 37,2277           32331        R23CSM1            CAF      V53N45                                #  PERFORM ALT LOS SIGHT MARK
025247,000871: 37,2300           04636                           TC       BANKCALL                              
025248,000872: 37,2301           20612                           CADR     MARKMONR                              
025249,000873: 37,2302           02320                           TC       R21END                                #  V34-TERMINATE R23
025250,000874: 37,2303           12320                           TCF      R21END                                #  PRO END BACK-UP MARKING (R23)
025251,000875: 37,2304           00004                           INHINT                                         
025252,000876: 37,2305           00006                           EXTEND                                         
025253,000877: 37,2306           30025                           DCA      TIME2                                 
025254,000878: 37,2307           53723                           DXCH     MRKBUF1                               #  READ TIME
025255,000879: 37,2310           30033                           CA       CDUY                                  #  READ CDU ANGLES
025256,000880: 37,2311           55724                           TS       MRKBUF1    +2                         
025257,000881: 37,2312           30034                           CA       CDUZ                                  
025258,000882: 37,2313           55726                           TS       MRKBUF1    +4                         
025259,000883: 37,2314           30032                           CA       CDUX                                  
025260,000884: 37,2315           55730                           TS       MRKBUF1    +6                         
025261,000885: 37,2316           00003                           RELINT                                         
025262,000886: 37,2317           02277                           TC       R23CSM1                               
025263,000887: 37,2320           04636        R21END             TC       BANKCALL                              
025264,000888: 37,2321           20575                           CADR     KLEENEX                               
025265,000889: 37,2322           37702                           CA       NEGONE                                
025266,000890: 37,2323           55722                           TS       MRKBUF1                               #  CLEAR BUFFERS FOR REGULAR MARKING
025267,000891: 37,2324           35055                           CAF      PRIO16                                
025268,000892: 37,2325           05176                           TC       PRIOCHNG                              #  LOWER THAN R22
025269,000893: 
025270,000894: 37,2326           05547                           TC       UPFLAG                                #  SET R21MARK TO ALLOW REG OPTICS MARKING
025271,000895: 37,2327           00037                           ADRES    R21MARK                               #  BIT 14  FLAG 2
025272,000896: 37,2330           05524                           TC       ENDMARK                               #  END MARKING AND ENDJOB
025273,000897: 37,2331           15255        V53N45             VN       5345                                  
025274,000898: 37,2332           01536        V0694              VN       0694                                  
025275,000899: 

Page 571

025277,000901: 
025278,000902:                                                                                                  #  PREFERRED TRACKING ATTITUDE ROUTINE R61CSM
025279,000903:                                                                                                  #  PROGRAM DESCRIPTION
025280,000904:                                                                                                  #  MOD NO - 2
025281,000905:                                                                                                  #  MOD BY - N.BRODEUR
025282,000906:                                                                                                  #  FUNCTIONAL DESCRIPTION-
025283,000907:                                                                                                  #    TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM TO ENABLE OPTICS
025284,000908:                                                                                                  #  TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED
025285,000909:                                                                                                  #  OR X-AXIS TRACKING ATTITUDE.
025286,000910:                                                                                                  #  CALLING SEQUENCE-
025287,000911:                                                                                                  #           TC     BANKCALL
025288,000912:                                                                                                  #           CADR   R61CSM
025289,000913:                                                                                                  #  SUBROUTINES CALLED
025290,000914:                                                                                                  #    MAKECADR         BANKCALL
025291,000915:                                                                                                  #    INTPRET       FLAGUP          FLAGDOWN
025292,000916:                                                                                                  #    BANKJUMP      CRS61.1         R60CSM
025293,000917:                                                                                                  #    PHASCHNG
025294,000918:                                                                                                  #  NORMAL EXIT MODES-
025295,000919:                                                                                                  #    NORMAL RETURN IS TO CALLER + 1
025296,000920:                                                                                                  #  OUTPUT -
025297,000921:                                                                                                  #    SEE OUTPUT FOR CRS61.1 & ATTITUDE MANEUVER ROUTINE (R60CSM)
025298,000922:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
025299,000923:                                                                                                  #    GENRET USED TO SAVE Q FOR RETURN
025300,000924:                                                                                                  #    R61CNTR MUST BE PRESET TO ZERO
025301,000925:                                                                                                  #  FLAGS SET + RESET
025302,000926:                                                                                                  #    3-AXIS FLAG
025303,000927:                                                                                                  #  DEBRIS
025304,000928:                                                                                                  #    SEE SUBROUTINES
025305,000929: 37,2333  E6,1770                                  EBANK=   GENRET                                
025306,000930: 37,2333                                           COUNT*   $$/R61                                #  ROUTINES - NAVIGATION - PREF. TR. 9TT=
025307,000931: 
025308,000932: 37,2333           04611        R61CSM             TC       E6SETTER                              #  SWITCH TO E6 - RETURNS WITH OLD SETTING
025309,000933: 37,2334           55771                           TS       SAVBNK                                #  SAVE EBANK
025310,000934: 37,2335           04665                           TC       MAKECADR                              
025311,000935: 37,2336           55770                           TS       GENRET                                
025312,000936: 37,2337           11774                           CCS      R61CNTR                               #  TEST R61CNTR
025313,000937: 37,2340           02416                           TC       DECRM61                               #  NOT READY TO DO R61.
025314,000938: 37,2341           02343                           TC       +2                                    #  DO R61
025315,000939: 37,2342           02417                           TC       DECRM61    +1                         
025316,000940: 37,2343           00004                           INHINT                                         
025317,000941: 37,2344           35007                           CAF      MINDB                                 
025318,000942: 37,2345           55655                           TS       ADB                                   
025319,000943: 37,2346           11773                           CCS      DBPTC                                 
025320,000944: 37,2347           64770                           AD       ONE                                   
025321,000945: 37,2350           12352                           TCF      +2                                    
025322,000946: 37,2351           64770                           AD       ONE                                   
025323,000947: 37,2352           00006                           EXTEND                                         
025324,000948: 37,2353           12355                           BZF      +2                                    #  IGNOR ZERO DEADBAND
025325,000949: 37,2354           55655                           TS       ADB                                   
025326,000950: 
025327,000951: 37,2355           06006                           TC       INTPRET                               

Page 572

025329,000953: 37,2356           77624                           CALL                                           
025330,000954: 37,2357           71432                                    CRS61.1                               #  LOS DETERMINATION + VEH ATTITUDE
025331,000955: 37,2360           77776        R61DMPTG           EXIT                                           #  DEFINE TAG FOR P20 EDIT DUMP
025332,000956: 37,2361           05561                           TC       DOWNFLAG                              #  RESET FLAG TO INHIBIT FURTHER R60
025333,000957: 37,2362           00055                           ADRES    V50N18FL                              #     ATTITUDE MANEUVERS
025334,000958: 37,2363           50154                           INDEX    MPAC                                  
025335,000959: 37,2364           02365                           TC       +1                                    
025336,000960: 37,2365           02415                           TC       R61END                                #  SUBROUTINE DRIVING DAP (EXIT R61)
025337,000961:                                                                                                  #  OR AUTO MODE NOT SET (EXIT R61)
025338,000962:                                                                                                  #  OR STIKFLAG SET      (EXIT R61)
025339,000963: 37,2366           05561        R61C1              TC       DOWNFLAG                              #  RESET 3-AXIS FLAG
025340,000964: 37,2367           00124                           ADRES    3AXISFLG                              #  BIT 6  FLAG 5
025341,000965: 37,2370           40107                           CS       FLGWRD11                              
025342,000966: 37,2371           74761                           MASK     AZIMBIT                               
025343,000967: 37,2372           10000                           CCS      A                                     
025344,000968: 37,2373           02376                           TC       +3                                    #  AZIMFLAG NOT SET,CLEAR 3AXISFLA7
025345,000969: 
025346,000970: 37,2374           05547                           TC       UPFLAG                                #  AZIMFLAG SET    ,SET   3AXISFLAG
025347,000971: 37,2375           00124                           ADRES    3AXISFLG                              
025348,000972: 
025349,000973: 37,2376           44770                           CS       ONE                                   #  SET R61CNTR NEG. TO INDICATE KALCMANU
025350,000974: 37,2377           55774                           TS       R61CNTR                               
025351,000975: 
025352,000976: 37,2400           05547                           TC       UPFLAG                                #  SET FLAG FOR PROIRITY DISPLAYS FOR R60
025353,000977: 37,2401           00077                           ADRES    PDSPFLAG                              #  BIT 12  FLAG 4
025354,000978: 37,2402           04636                           TC       BANKCALL                              
025355,000979: 37,2403           56074                           CADR     R60CSM                                
025356,000980: 37,2404           05561                           TC       DOWNFLAG                              #  RESET FLAG FOR PRIORITY DISPLAYS IN R60
025357,000981: 37,2405           00077                           ADRES    PDSPFLAG                              #  BIT 12  FLAG 4
025358,000982: 37,2406           34772                           CAF      ZERO                                  
025359,000983: 37,2407           04636                           TC       BANKCALL                              
025360,000984: 37,2410           20753                           CADR     PRIODSP                               #  RELEASE DISPLAY
025361,000985: 37,2411           05402                           TC       PHASCHNG                              
025362,000986: 37,2412           00111                           OCT      00111                                 
025363,000987: 37,2413  01,2025               1P11SPT6           =        1.11SPOT                              
025364,000988: 37,2413           34772                           CAF      ZERO                                  
025365,000989: 37,2414           02416                           TC       DECRM61                               
025366,000990: 37,2415           36214        R61END             CAF      THREE                                 
025367,000991: 
025368,000992: 37,2416           55774        DECRM61            TS       R61CNTR                               
025369,000993: 
025370,000994: 37,2417           31770                 +1        CAE      GENRET                                
025371,000995: 37,2420           22000                           LXCH     A                                     #  RETURN IS IN L
025372,000996: 37,2421           31771                           CA       SAVBNK                                #  RESTORE EBANK
025373,000997: 37,2422           56003                           XCH      EBANK                                 
025374,000998: 37,2423           22000                           LXCH     A                                     #  RETURN IS NOW BACK IN A
025375,000999: 37,2424           04660                           TC       BANKJUMP                              #  EXIT R61
025376,001000: 23,2000                                           SETLOC   P20S2                                 
025377,001001: 23,2000                                           BANK                                           

Page 573

025379,001003: 23,2756  E7,1722                                  EBANK=   MRKBUF1                               
025380,001004: 

Page 574

025382,001006: 
025383,001007:                                                                                                  #   BVECTOR PERFORMS COMPUTATIONS FOR
025384,001008:                                                                                                  #  DELTAQ,THE MEASURED DEVIATION BASED ON THE DIFFERENCE BETWEEN THE CSM-LE
025385,001009:                                                                                                  #  M STATE VECTOR ESTIMATES AND THE ACTUAL TRACKING MEASUREMENT.
025386,001010:                                                                                                  #  US,THE MODIFIED FICTITIOUS STAR DIRECTION VECTOR
025387,001011:                                                                                                  #  GEOMETRY VECTOR B ASSOCIATED WITH EACH TRACKING MEASUREMENT.
025388,001012:                                                                                                  #  INPUT
025389,001013:                                                                                                  #     UM,1/2 UNIT VECTOR ALONG THE CSM-LM LINE OF SIGHT (BASIC REF.SYSTEM)
025390,001014:                                                                                                  #     USTAR,FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
025391,001015:                                                                                                  #     RCLP,RELATIVE CSM TO LM POSITION VECTOR
025392,001016:                                                                                                  #  OUTPUT
025393,001017:                                                                                                  #     USTAR,MODIFIED FICTITOUS STAR DIRECTION (1/2 UNIT VECTOR)
025394,001018:                                                                                                  #     BVECTOR = 9 DIMENSIONAL BVECTOR (1/2 UNIT VEC.)
025395,001019:                                                                                                  #     DELTAQ = MEASURED DEVIATION
025396,001020:                                                                                                  #  CALLING SEQUENCE
025397,001021:                                                                                                  #     L  CALL BVECTORS
025398,001022:                                                                                                  #  NORMAL EXIT
025399,001023:                                                                                                  #     L+1 OF CALLING SEQUENCE
025400,001024: 
025401,001025: 23,2756                                           COUNT*   $$/INCOR                              
025402,001026: 23,2756           77620        BVECTORS           STQ                                            
025403,001027: 23,2757           02310                                    EGRESS                                
025404,001028: 23,2760           53575                           VLOAD    UNIT                                  
025405,001029: 23,2761           03531                                    RCLP                                  #  RELATIVE POSITION VECTOR
025406,001030: 23,2762           14033                           STODL    26D                                   #  RCLP UNIT VEC
025407,001031: 23,2763           00045                                    36D                                   #  RCLP ABS VALUE
025408,001032: 23,2764           25136                           STOVL    TEMPOR1                               #  MOVE TO SAFE LOCATION
025409,001033: 23,2765           01102                                    USTAR                                 
025410,001034: 23,2766           53435                           VXV      UNIT                                  
025411,001035: 23,2767           00033                                    26D                                   #  USTAR = UNIT(US X UCL)
025412,001036: 23,2770           37502                           STCALL   BVECTOR                               
025413,001037: 23,2771           22327                                    GRP2PC                                #  PHASE CHANGE
025414,001038: 23,2772           77775                           VLOAD                                          
025415,001039: 23,2773           03502                                    BVECTOR                               
025416,001040: 23,2774           01102                           STORE    USTAR                                 
025417,001041: 23,2775           72441                           DOT      SL1                                   
025418,001042: 23,2776           01072                                    UM                                    #  USTAR DOT UM
025419,001043: 23,2777           45326                           ACOS     DSU                                   
025420,001044: 23,3000           15326                                    DP1/4TH                               
025421,001045: 23,3001           41301                           NORM     DMP                                   
025422,001046: 23,3002           00047                                    X1                                    
025423,001047: 23,3003           07016                                    PI/4.0                                
025424,001048: 23,3004           53605                           DMP      SRR*                                  
025425,001049: 23,3005           01136                                    TEMPOR1                               #  RCLP ABS VALUE
025426,001050: 23,3006           21576                                    0          -3,1                       #  ADJUST SCALING
025427,001051: 23,3007           27524                           STOVL    DELTAQ                                
025428,001052: 23,3010           15336                                    ZEROVECS                              
025429,001053: 23,3011           03510                           STORE    BVECTOR    +6                         
025430,001054: 23,3012           03516                           STORE    BVECTOR    +12D                       
025431,001055: 23,3013           77650                           GOTO                                           
025432,001056: 23,3014           02310                                    EGRESS                                

Page 575

025434,001058: 23,3015           31103 36652  PI/4.0             2DEC     .785398164                            
025435,001059: 

Page 576

025437,001061: 
025438,001062:                                                                                                  #   GETUM-DETERMINES THE LINE OF SIGHT UNIT VECTOR UM IN THE BASIC REFERENC
025439,001063:                                                                                                  #  E COORDINATE SYSTEM FROM THE OPTICS SHAFT AND TRUNNION ANGLES AND THE IM
025440,001064:                                                                                                  #  U GIMBAL ANGLES.
025441,001065:                                                                                                  #  INPUT
025442,001066:                                                                                                  #     MARKDATA,BASE ADDRESS OF MARK DATA
025443,001067:                                                                                                  #     REFSMMAT,ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF.COORD.SYSTEM
025444,001068: 
025445,001069:                                                                                                  #  SUBROUTINES CALLED-
025446,001070:                                                                                                  #     SXTNB - SEXT. ANGULAR READINGS TO NAV. BASE COOR.
025447,001071:                                                                                                  #     NBSM  - TRANSFORM FROM NAV. BASE TO STABLE MEMBER
025448,001072:                                                                                                  #  OUTPUT
025449,001073:                                                                                                  #     MPAC = LINE OF SIGHT 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM
025450,001074:                                                                                                  #  CALLING SEQUENCE
025451,001075:                                                                                                  #     L  CALL GETUM
025452,001076: 
025453,001077:                                                                                                  #  NORMAL EXIT
025454,001078:                                                                                                  #     L+1 OF CALLING SEQUENCE
025455,001079: 
025456,001080: 23,3017           40220        GETUM              STQ      SETPD                                 
025457,001081: 23,3020           02310                                    EGRESS                                
025458,001082: 23,3021           00001                                    0                                     
025459,001083: 23,3022           77624                           CALL                                           
025460,001084: 23,3023           36057                                    SXTSM1                                
025461,001085: 23,3024           76505                           VXM      VSL1                                  
025462,001086: 23,3025           01734                                    REFSMMAT                              
025463,001087: 23,3026           77650                           GOTO                                           #  MPAC = (UM)LINE OF SIGHT VECTOR
025464,001088: 23,3027           02310                                    EGRESS                                #  EXIT
025465,001089: 

Page 577

025467,001091: 
025468,001092:                                                                                                  #  RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
025469,001093: 
025470,001094:                                                                                                  #  FUNCTIONAL DESCRIPTION
025471,001095: 
025472,001096:                                                                                                  #  TO PROCESS RENDEZVOUS SIGHTING MARK AND VHF RANGING DATA TO UPDATE 
025473,001097:                                                                                                  #  THE STATE VECTOR OF EITHER THE CSM OR LM AS DEFINED BY VEHUPFLG.
025474,001098:                                                                                                  #  (VEHUPFLG IS SET TO LM BY P20, CSM BY V81E, AND LM BY V80E.)
025475,001099: 
025476,001100:                                                                                                  #  CALLING SEQUENCE
025477,001101:                                                                                                  #    AUTOMATICALLY SELECTED BY P20
025478,001102: 
025479,001103:                                                                                                  #  SUBROUTINES CALLED
025480,001104:                                                                                                  #    PRIOCHNG           INTPRET             GRP2PC
025481,001105:                                                                                                  #    GETUM              BVECTORS            INCORP1
025482,001106:                                                                                                  #    INCORP2            INTEGRV             PHASCHNG
025483,001107:                                                                                                  #    NOVAC              BANKCALL            GOTOV56
025484,001108:                                                                                                  #    ENDOFJOB           INSTALL             DOWNFLAG
025485,001109:                                                                                                  #    TRFAILOF           TRFAILON            TASKOVER
025486,001110:                                                                                                  #    POSTJUMP
025487,001111: 
025488,001112:                                                                                                  #  NORMAL EXIT MODES
025489,001113:                                                                                                  #    RENDEZVOUS NAVIGATION MAY BE TERMINATED BY THE SELECTION OF
025490,001114:                                                                                                  #    P00, P06, P22, P23, V34E FROM R60, AND V56E
025491,001115: 
025492,001116:                                                                                                  #  ALARMS OR ABORT EXIT MODES
025493,001117:                                                                                                  #    NONE
025494,001118: 
025495,001119:                                                                                                  #  INPUT
025496,001120:                                                                                                  #    MARK DATA, SEE R21 AND R23
025497,001121:                                                                                                  #    VHF RANGING DATA
025498,001122: 
025499,001123:                                                                                                  #  OUTPUT
025500,001124:                                                                                                  #    TRKMKCNT, NO OF RENDEZVOUS TRACKING MARKS INCORPORATED (COUNTER)
025501,001125:                                                                                                  #    VHFCNT, NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
025502,001126:                                                                                                  #    V06N49, EXCESSIVE UPDATE PARAMETERS-DELTA R AND DELTA V
025503,001127: 
025504,001128:                                                                                                  #  FLAGS SET + RESET
025505,001129:                                                                                                  #    SOURCFLG, VINTFLAG, DIM0FLAG, INCORFLG, ORBWFLAG, RENDWFLG
025506,001130:                                                                                                  #    STATEFLG, D6OR9FLG, SKIPVHF, DMENFLG                                 AT THE INTERRUPTED DISPLAY.
025507,001131: 
025508,001132: 34,2000                                           SETLOC   P20S3                                 
025509,001133: 34,2000                                           BANK                                           
025510,001134: 
025511,001135: 34,2625                                           COUNT*   $$/R22                                
025512,001136: 34,2625           37650        R22                CAF      PRIO26                                
025513,001137: 34,2626           55262                           TS       PHSPRDT2                              
025514,001138: 34,2627           05176                           TC       PRIOCHNG                              
025515,001139: 34,2630           37700                           CA       NEG3                                  
025516,001140: 34,2631           55722                           TS       MRKBUF1                               
025517,001141: 34,2632           06006                           TC       INTPRET                               

Page 578

025519,001143: 34,2633           77634                           RTB                                            
025520,001144: 34,2634           51751                                    LOADTIME                              
025521,001145: 34,2635           01010                           STORE    VHFTIME                               #  PRESENT TIME
025522,001146: 34,2636           77624        REND1              CALL                                           
025523,001147: 34,2637           22327                                    GRP2PC                                
025524,001148: 34,2640           77624                           CALL                                           
025525,001149: 34,2641           56523                                    WAITONE                               
025526,001150: 34,2642           77776        REND1A             EXIT                                           
025527,001151: 34,2643           31722                           CA       MRKBUF1                               
025528,001152: 34,2644           00006                           EXTEND                                         
025529,001153: 34,2645           12650                           BZF      REND2                                 
025530,001154: 34,2646           00006                           EXTEND                                         
025531,001155: 34,2647           62666                           BZMF     REND3A                                
025532,001156: 34,2650           36211        REND2              CAF      SIX                                   
025533,001157: 34,2651           05607                           TC       GENTRAN                               
025534,001158: 34,2652           01722                           ADRES    MRKBUF1                               
025535,001159: 34,2653           01061                           ADRES    MARKTIME                              #  MARKTIME MUST BE CONTIGUOUS WITH VTEMP
025536,001160: 34,2654           37700                           CAF      NEG3                                  #  NEG VALUE TO INDICATE VALUES USED
025537,001161: 34,2655           55722                           TS       MRKBUF1                               
025538,001162: 34,2656           05547                           TC       UPFLAG                                #  SET FLAG TO INDICATE THAT OPTICS MARK IS
025539,001163: 34,2657           00217                           ADRES    R22CAFLG                              #    BEING PROCESSED (TESTED IN MARK REJCT)
025540,001164: 34,2660           06006                           TC       INTPRET                               
025541,001165: 34,2661           45014                           CLEAR    CALL                                  
025542,001166: 34,2662           04667                                    SOURCFLG                              #  0 = OPTICS DATA
025543,001167: 34,2663           22327                                    GRP2PC                                #  PHASE CHANGE
025544,001168: 34,2664           77650                           GOTO                                           
025545,001169: 34,2665           70761                                    REND4                                 
025546,001170: 34,2666           06006        REND3A             TC       INTPRET                               
025547,001171: 34,2667           77624        REND3              CALL                                           
025548,001172: 34,2670           22327                                    GRP2PC                                
025549,001173: 34,2671           77624                           CALL                                           
025550,001174: 34,2672           56523                                    WAITONE                               
025551,001175: 34,2673           43014                           BOFF     BOFF                                  
025552,001176: 34,2674           04746                                    VHFRFLAG                              
025553,001177: 34,2675           70642                                    REND1A                                
025554,001178: 34,2676           05346                                    RANGFLAG                              #  RANGE > 200 N.M. DONT READ
025555,001179: 34,2677           70642                                    REND1A                                
025556,001180: 34,2700           77634                           RTB                                            
025557,001181: 34,2701           51751                                    LOADTIME                              #  PRESENT TIME
025558,001182: 34,2702           45225                           DSU      DSU                                   
025559,001183: 34,2703           14651                                    60SECDP                               #  1 MIN
025560,001184: 34,2704           01010                                    VHFTIME                               #  LAST READING OF RADAR
025561,001185: 34,2705           77440                           BMN      EXIT                                  
025562,001186: 34,2706           70642                                    REND1A                                
025563,001187: 34,2707           00004        RANGERD            INHINT                                         #  READ RADAR RANGE
025564,001188: 34,2710           44777                           CS       OCT17                                 
025565,001189: 34,2711           00006                           EXTEND                                         
025566,001190: 34,2712           03013                           WAND     CHAN13                                #  ZERO OUT BITS 1-4 OF CHANNEL 13
025567,001191: 34,2713           00006        RADSTART           EXTEND                                         
025568,001192: 34,2714           00004                           READ     LOSCALAR                              #  READ PRESENT TIME

Page 579

025570,001194: 34,2715           54001                           TS       L                                     
025571,001195: 
025572,001196: 34,2716           74342                           MASK     LOW5                                  #  ONLY THE 5 BITS MATTER
025573,001197: 34,2717           40000                           COM                                            
025574,001198: 34,2720           64763                           AD       BIT6                                  #  COMPUTE DELTA TIME TO NEXT T5 TICK
025575,001199: 34,2721           74342                           MASK     LOW5                                  
025576,001200: 
025577,001201: 34,2722           55064                           TS       RADDEL                                
025578,001202: 34,2723           67701                           AD       NEG2                                  #  IF A TICK OF T5 IS NEAR, WAIT TILL IT
025579,001203: 34,2724           00006                           EXTEND                                         #  HAS TICKED.  MAX DELAY HERE IS
025580,001204: 34,2725           62713                           BZMF     RADSTART                              #  937.5 MICROSEC.
025581,001205: 
025582,001206: 34,2726           34322                           CA       OCT11                                 #  SET RADAD BITS NOW
025583,001207: 34,2727           00006                           EXTEND                                         
025584,001208: 34,2730           05013                           WOR      CHAN13                                
025585,001209: 34,2731           40001                           CS       L                                     
025586,001210: 34,2732           55063                           TS       RADTIME                               #  SAVE NEG TIME OF READ
025587,001211: 
025588,001212: 34,2733           00003                           RELINT                                         
025589,001213: 34,2734           00006                           EXTEND                                         
025590,001214: 34,2735           30025                           DCA      TIME2                                 
025591,001215: 34,2736           53062                           DXCH     MARKTIME                              #  READ PRESENT TIME
025592,001216: 34,2737           05561                           TC       DOWNFLAG                              
025593,001217: 34,2740           00043                           ADRES    SKIPVHF                               #  CLEAR VHF RESTART FLAG
025594,001218: 34,2741           05205                           TC       ENDOFJOB                              #  WAIT FOR RADAR READ
025595,001219: 34,2742           05632        RANGERD1           TC       TRFAILOF                              #  TURN TRACKER LIGHT OFF
025596,001220: 34,2743           11703                           CCS      RM                                    #  15 BIT UNSIGNED RANGE
025597,001221: 34,2744           02750                           TC       RANGERD4                              #  GR + 0
025598,001222: 34,2745           03424                           TC       LIGHTON    +4                         #  =  + 0
025599,001223: 34,2746           03406                           TC       RANGERD3                              #  L  - 0
025600,001224: 34,2747           03406                           TC       RANGERD3                              #  =  - 0
025601,001225: 34,2750           06006        RANGERD4           TC       INTPRET                               
025602,001226: 34,2751           41335                           SLOAD    DMP                                   
025603,001227: 34,2752           03704                                    RM                                    
025604,001228: 34,2753           16535                                    CONVRNGE                              #  CONVERT RANGE TO METERS B-27
025605,001229: 34,2754           01114        RANGERD2           STORE    VHFRANGE                              
025606,001230: 34,2755           71214                           SET      DLOAD                                 
025607,001231: 34,2756           04467                                    SOURCFLG                              #  SOURCE OF DATA TO VHF RADAR
025608,001232: 34,2757           01062                                    MARKTIME                              
025609,001233: 34,2760           01010                           STORE    VHFTIME                               #  FOR DOWNLINK
025610,001234: 34,2761           77624        REND4              CALL                                           
025611,001235: 34,2762           60435                                    UPSTATE                               #  INTEGRATE CSM,LM,W MATRIX
025612,001236: 34,2763           77624                           CALL                                           
025613,001237: 34,2764           56603                                    SHIFTNDX                              #  SET EARTH MOON SCALING INDEX
025614,001238: 34,2765           45014                           CLEAR    CALL                                  
025615,001239: 34,2766           01671                                    ORBWFLAG                              #  CLEAR FOR P22 AND P23
025616,001240: 34,2767           71327                                    CMPOS                                 #  SET CSM POSITION
025617,001241: 34,2770           45014                           SET      CALL                                  
025618,001242: 34,2771           02464                                    INCORFLG                              #  SET FOR FIRST PASS
025619,001243: 34,2772           71336                                    LMPOS                                 #  SET LM POSITION

Page 580

025621,001245: 34,2773           77614                           BON                                            
025622,001246: 34,2774           05310                                    AUTOSEQ                               
025623,001247: 34,2775           47030                                    AUTOW                                 #  AUTOMATIC W MATRIX REINITIALIZATION
025624,001248: 34,2776           77614        REND5B             BON                                            
025625,001249: 34,2777           02716                                    RENDWFLG                              
025626,001250: 34,3000           71017                                    REND6                                 
025627,001251: 34,3001           77745        REND5C             DLOAD                                          
025628,001252: 34,3002           15336                                    ZEROVECS                              
025629,001253: 34,3003           14772                           STODL    VHFCNT                                #  ZERO OUT VHFCNT AND TRKMKCNT
025630,001254: 34,3004           02001                                    WRENDPOS                              
025631,001255: 34,3005           34001                           STCALL   0                                     #  0=WRENDPOS  1=WRENDVEL
025632,001256: 34,3006           56612                                    INITIALW                              #  INITIALIZE W MATRIX
025633,001257: 34,3007           71214                           CLEAR    DLOAD                                 
025634,001258: 34,3010           05267                                    P35FLAG                               
025635,001259: 34,3011           01062                                    MARKTIME                              
025636,001260: 34,3012           03736                           STORE    AGEOFW                                
025637,001261: 34,3013           66214                           CLEAR    SSP                                   
025638,001262: 34,3014           05273                                    PTV93FLG                              
025639,001263: 34,3015           02551                                    COUNT3MK                              
025640,001264: 34,3016           00001                                    1                                     
025641,001265: 34,3017           77614        REND6              SET                                            
025642,001266: 34,3020           02476                                    RENDWFLG                              
025643,001267: 34,3021           52375        REND7              VLOAD    VSU                                   
025644,001268: 34,3022           01054                                    LEMPOS                                
025645,001269: 34,3023           01046                                    CSMPOS                                
025646,001270: 34,3024           03531                           STORE    RCLP                                  #  LM - CSM
025647,001271: 34,3025           43056                           UNIT     BON                                   
025648,001272: 34,3026           04707                                    SOURCFLG                              
025649,001273: 34,3027           71251                                    REND14                                #  BRANCH IF DATA IS RADAR
025650,001274: 34,3030           01130                           STORE    UCL                                   
025651,001275: 34,3031           74014                           BOFF     AXC,1                                 
025652,001276: 34,3032           02744                                    INCORFLG                              
025653,001277: 34,3033           71047                                    REND9                                 
025654,001278: 34,3034           01061                                    MARKTIME                              
025655,001279: 34,3035           77624                           CALL                                           
025656,001280: 34,3036           47017                                    GETUM                                 #  CALCULATE UM LINE OF SIGHT
025657,001281: 34,3037           25072                           STOVL    UM                                    
025658,001282: 34,3040           01130                                    UCL                                   
025659,001283: 34,3041           40035                           VXV      BOV                                   
025660,001284: 34,3042           01072                                    UM                                    #  UCL X UM
025661,001285: 34,3043           71044                                    REND8                                 
025662,001286: 34,3044           40056        REND8              UNIT     BOV                                   
025663,001287: 34,3045           71375                                    RENDISP3                              #  IGNORE MARK RESET FLAGS FOR REJECT
025664,001288: 34,3046           01102                           STORE    USTAR                                 
025665,001289: 34,3047           77624        REND9              CALL                                           
025666,001290: 34,3050           46756                                    BVECTORS                              
025667,001291: 34,3051           77214                           BON      VLOAD                                 
025668,001292: 34,3052           00707                                    VEHUPFLG                              
025669,001293: 34,3053           71057                                    REND9A                                
025670,001294: 34,3054           03502                                    BVECTOR                               

Page 581

025672,001296: 34,3055           77676                           VCOMP                                          
025673,001297: 34,3056           03502                           STORE    BVECTOR                               
025674,001298: 34,3057           77624        REND9A             CALL                                           
025675,001299: 34,3060           22327                                    GRP2PC                                
025676,001300: 34,3061           77614                           BOFF                                           
025677,001301: 34,3062           01341                                    R21MARK                               
025678,001302: 34,3063           71302                                    REND15                                #  BRANCH IF BACKUP OPTICS (R23 WORKING)
025679,001303: 34,3064           43345                           DLOAD    DAD                                   
025680,001304: 34,3065           16457                                    SXTVAR                                
025681,001305: 34,3066           16461                                    IMUVAR                                
025682,001306: 34,3067           27526        REND10             STOVL    VARIANCE                              #  TEMP STORAGE FOR VARIANCE CALC.
025683,001307: 34,3070           03531                                    RCLP                                  
025684,001308: 34,3071           60246                           ABVAL    NORM                                  
025685,001309: 34,3072           00047                                    X1                                    
025686,001310: 34,3073           41316                           DSQ      DMP                                   
025687,001311: 34,3074           03526                                    VARIANCE                              
025688,001312: 34,3075           45070                           XAD,1    CALL                                  
025689,001313: 34,3076           00046                                    X1                                    
025690,001314: 34,3077           56603                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025691,001315: 34,3100           56070                           XAD,1    XAD,1                                 
025692,001316: 34,3101           00047                                    X2                                    
025693,001317: 34,3102           00047                                    X2                                    
025694,001318: 34,3103           72257                           SR*      TLOAD                                 
025695,001319: 34,3104           20577                                    0          -2,1                       #  ADJUST SCALING TO B-40
025696,001320: 34,3105           00155                                    MPAC                                  
025697,001321: 34,3106           03526                           STORE    VARIANCE                              
025698,001322: 34,3107           54335                           SLOAD    SR                                    
025699,001323: 34,3110           02400                                    INTVAR                                #  INTEGRATION VARIANCE SCALED B-15
025700,001324: 34,3111           20632                                    25D                                   #  SCALE IT B-40
025701,001325: 34,3112           47171                           TAD      RTB                                   
025702,001326: 34,3113           03526                                    VARIANCE                              
025703,001327: 34,3114           45657                                    TPMODE                                
025704,001328: 34,3115           03526                           STORE    VARIANCE                              
025705,001329: 34,3116           76214                           BOFF     TAD                                   
025706,001330: 34,3117           04747                                    SOURCFLG                              #  BRANCH IF NOT VHF RADAR
025707,001331: 34,3120           71127                                    REND10A                               
025708,001332: 34,3121           03005                                    RVARMIN                               #  VHF RADAR MIN. VARIANCE
025709,001333: 34,3122           72244                           BPL      TLOAD                                 
025710,001334: 34,3123           71127                                    REND10A                               
025711,001335: 34,3124           03005                                    RVARMIN                               
025712,001336: 34,3125           77646                           ABS                                            #  MIN. VALUE WAS STORED AS NEG.
025713,001337: 34,3126           03526                           STORE    VARIANCE                              #  STORE MIN. VALUE
025714,001338: 34,3127           45014        REND10A            CLEAR    CALL                                  
025715,001339: 34,3130           02666                                    DMENFLG                               #  CLEAR FOR 6 X 6 W MATRIX
025716,001340: 34,3131           75260                                    INCORP1                               #  CALCULATE UPDATE
025717,001341: 34,3132           77624                           CALL                                           
025718,001342: 34,3133           22327                                    GRP2PC                                
025719,001343: 34,3134           45014                           BOFF     CALL                                  
025720,001344: 34,3135           02744                                    INCORFLG                              
025721,001345: 34,3136           71176                                    REND12                                

Page 582

025723,001347: 34,3137           56603                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025724,001348: 34,3140           51575                           VLOAD    ABVAL                                 
025725,001349: 34,3141           01122                                    DELTAX     +6                         
025726,001350: 34,3142           77657                           SR*                                            
025727,001351: 34,3143           57176                                    0,2                                   
025728,001352: 34,3144           27504                           STOVL    N49DISP    +2                         
025729,001353: 34,3145           01114                                    DELTAX                                
025730,001354: 34,3146           53646                           ABVAL    SR*                                   
025731,001355: 34,3147           57176                                    0,2                                   
025732,001356: 34,3150           03502                           STORE    N49DISP                               
025733,001357: 34,3151           43131                           SSP      BON                                   
025734,001358: 34,3152           03506                                    N49DISP    +4                         
025735,001359: 34,3153           00002                           OCT      2                                     
025736,001360: 34,3154           04707                                    SOURCFLG                              
025737,001361: 34,3155           71163                                    REND10B                               #  VHF MARK CODE
025738,001362: 34,3156           66214                           BON      SSP                                   
025739,001363: 34,3157           05303                                    REJCTFLG                              
025740,001364: 34,3160           71375                                    RENDISP3                              
025741,001365: 34,3161           03506                                    N49DISP    +4                         #  OPTICS MARK CODE
025742,001366: 34,3162           00001                           OCT      1                                     
025743,001367: 34,3163           77735        REND10B            SLOAD                                          
025744,001368: 34,3164           02003                                    RMAX                                  
025745,001369: 34,3165           45261                           SR       DSU                                   
025746,001370: 34,3166           20613                                    10D                                   
025747,001371: 34,3167           03502                                    N49DISP                               
025748,001372: 34,3170           67240                           BMN      SLOAD                                 
025749,001373: 34,3171           71345                                    RENDISP                               #  BRANCH IF POS UP.GREATER THAN MAX.
025750,001374: 34,3172           02004                                    VMAX                                  
025751,001375: 34,3173           50025                           DSU      BMN                                   
025752,001376: 34,3174           03504                                    N49DISP    +2                         
025753,001377: 34,3175           71345                                    RENDISP                               #  BRANCH IF VEL.UPDATE GREATER THAN MAX.
025754,001378: 34,3176           77624        REND12             CALL                                           
025755,001379: 34,3177           75472                                    INCORP2                               #  INCORPORATE UPDATE VALUES INTO STATE VEC
025756,001380: 34,3200           71214                           BOFF     DLOAD                                 
025757,001381: 34,3201           02744                                    INCORFLG                              
025758,001382: 34,3202           71217                                    REND12A                               #  BRANCH IF 1ST PASS OPTICS
025759,001383: 34,3203           01062                                    MARKTIME                              
025760,001384: 34,3204           03734                           STORE    OLDMKTME                              #  SAVE OLD MARK TIME
025761,001385: 34,3205           67214                           CLEAR    SLOAD                                 
025762,001386: 34,3206           05272                                    MANEUFLG                              #  CLEAR MANEUVER FLAG
025763,001387: 34,3207           02551                                    COUNT3MK                              
025764,001388: 34,3210           45254                           BZE      DSU                                   
025765,001389: 34,3211           71217                                    REND12A                               
025766,001390: 34,3212           07142                                    HIGH3                                 #  CHECK IF 3 MARKS TAKEN
025767,001391: 34,3213           66240                           BMN      SSP                                   
025768,001392: 34,3214           71237                                    REND13A                               #  BRANCH IF NOT 3 YET
025769,001393: 34,3215           02551                                    COUNT3MK                              #  SET COUNT EQUAL TO 0
025770,001394: 34,3216           00000                           DEC      0          B-14                       
025771,001395: 34,3217           43014        REND12A            BON      BOFF                                  
025772,001396: 34,3220           04707                                    SOURCFLG                              

Page 583

025774,001398: 34,3221           71307                                    REND16                                #  BRANCH IF DATA IS RADAR
025775,001399: 34,3222           02744                                    INCORFLG                              
025776,001400: 34,3223           71315                                    REND17                                
025777,001401: 34,3224           77624                           CALL                                           
025778,001402: 34,3225           56603                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025779,001403: 34,3226           45014                           BON      CALL                                  
025780,001404: 34,3227           00707                                    VEHUPFLG                              
025781,001405: 34,3230           71323                                    REND18                                #  BRANCH IF CSM UPDATE
025782,001406: 34,3231           71336                                    LMPOS                                 #  GET LM POSITION
025783,001407: 34,3232           77624        REND13             CALL                                           
025784,001408: 34,3233           22327                                    GRP2PC                                #  PHASE CHANGE
025785,001409: 34,3234           77614                           CLRGO                                          
025786,001410: 34,3235           02624                                    INCORFLG                              
025787,001411: 34,3236           71021                                    REND7                                 #  BRANCH FOR 2ND PASS THIS OPTICS MARK
025788,001412: 34,3237           77735        REND13A            SLOAD                                          
025789,001413: 34,3240           02551                                    COUNT3MK                              
025790,001414: 34,3241           37732                           STCALL   CNT3TEMP                              
025791,001415: 34,3242           22327                                    GRP2PC                                
025792,001416: 34,3243           62150                           LXA,1    INCR,1                                
025793,001417: 34,3244           03731                                    CNT3TEMP                              
025794,001418: 34,3245           00001                           DEC      1          B-14                       #  ADD ONE TO MARK COUNT
025795,001419: 34,3246           52130                           SXA,1    GOTO                                  
025796,001420: 34,3247           02550                                    COUNT3MK                              
025797,001421: 34,3250           71217                                    REND12A                               
025798,001422: 30,2000                                           SETLOC   P20S1                                 
025799,001423: 30,2000                                           BANK                                           
025800,001424: 
025801,001425: 30,2435                                           COUNT*   $$/R22                                
025802,001426: 30,2435           45020        UPSTATE            STQ      CALL                                  #  INTEGRATE NON-UPDATED VEHICLE STATE
025803,001427: 30,2436           01006                                    POINTEX                               #    VECTOR
025804,001428: 30,2437           56462                                    SETINTG                               #  SET INTEGRV FLAGS   VINTFLAG=1 FOR CSM
025805,001429: 30,2440           43014                           BOFF     CLEAR                                 
025806,001430: 30,2441           00747                                    VEHUPFLG                              #  0=LM 1=CSM FOR UPDATE VEHICLE
025807,001431: 30,2442           60444                                    REND4A                                #  INTEGRATE CSM
025808,001432: 30,2443           01674                                    VINTFLAG                              #  INTEGRATE LM
025809,001433: 30,2444           77624        REND4A             CALL                                           
025810,001434: 30,2445           27236                                    INTEGRV                               
025811,001435: 30,2446           77624                           CALL                                           
025812,001436: 30,2447           22327                                    GRP2PC                                #  PHASE CHANGE
025813,001437: 30,2450           77624                           CALL                                           #  INTEGRATE UPDATED VEHICLE
025814,001438: 30,2451           56462                                    SETINTG                               #  SET INTEGRV FLAGS   VINTFLAG=1 FOR CSM
025815,001439: 30,2452           43014                           BOFF     SET                                   
025816,001440: 30,2453           02756                                    RENDWFLG                              
025817,001441: 30,2454           60456                                    REND5                                 #  IF FLAG=0 DO NOT INTEGRATE W MATRIX
025818,001442: 30,2455           01476                                    DIM0FLAG                              #  INTEGRATE VALID W MATRIX
025819,001443: 30,2456           43014        REND5              BON      CLEAR                                 
025820,001444: 30,2457           00707                                    VEHUPFLG                              
025821,001445: 30,2460           60462                                    REND5A                                #  INTEGRATE CSM
025822,001446: 30,2461           01674                                    VINTFLAG                              #  INTEGRATE LM
025823,001447: 30,2462           77624        REND5A             CALL                                           

Page 584

025825,001449: 30,2463           27236                                    INTEGRV                               
025826,001450: 30,2464           77650                           GOTO                                           
025827,001451: 30,2465           01006                                    POINTEX                               
025828,001452: 34,2000                                           SETLOC   P20S3                                 
025829,001453: 34,2000                                           BANK                                           
025830,001454: 
025831,001455: 34,3251                                           COUNT*   $$/R22                                
025832,001456: 34,3251           27502        REND14             STOVL    BVECTOR                               #  VHF RADAR BVECTOR
025833,001457: 34,3252           15336                                    ZEROVECS                              
025834,001458: 34,3253           03510                           STORE    BVECTOR    +6                         
025835,001459: 34,3254           27516                           STOVL    BVECTOR    +12D                       
025836,001460: 34,3255           03531                                    RCLP                                  
025837,001461: 34,3256           71256                           UNIT     DLOAD                                 
025838,001462: 34,3257           01114                                    VHFRANGE                              #  VHFRANGE SCALED B-27
025839,001463: 34,3260           60414                           BON      SR2                                   
025840,001464: 34,3261           04303                                    MOONTHIS                              
025841,001465: 34,3262           71263                                    +1                                    
025842,001466: 34,3263           43025                           DSU      SET                                   
025843,001467: 34,3264           00045                                    36D                                   #  ABVAL (RCLP)
025844,001468: 34,3265           02464                                    INCORFLG                              
025845,001469: 34,3266           03524                           STORE    DELTAQ                                
025846,001470: 34,3267           77214                           BOFF     VLOAD                                 
025847,001471: 34,3270           00747                                    VEHUPFLG                              
025848,001472: 34,3271           71275                                    REND14A                               
025849,001473: 34,3272           03502                                    BVECTOR                               
025850,001474: 34,3273           77676                           VCOMP                                          
025851,001475: 34,3274           03502                           STORE    BVECTOR                               
025852,001476: 34,3275           77624        REND14A            CALL                                           
025853,001477: 34,3276           22327                                    GRP2PC                                
025854,001478: 34,3277           52145                           DLOAD    GOTO                                  
025855,001479: 34,3300           03003                                    RVAR                                  
025856,001480: 34,3301           71067                                    REND10                                
025857,001481: 34,3302           43335        REND15             SLOAD    DAD                                   #  GET ALT LOS VARIANCE
025858,001482: 34,3303           01350                                    ALTVAR                                #  BACKUP OPTICS
025859,001483: 34,3304           16461                                    IMUVAR                                #  IMU VARIANCE
025860,001484: 34,3305           77650                           GOTO                                           
025861,001485: 34,3306           71067                                    REND10                                
025862,001486: 34,3307           62150        REND16             LXA,1    INCR,1                                
025863,001487: 34,3310           00771                                    VHFCNT                                #  VHF RADAR UPDATE COUNT
025864,001488: 34,3311           00001                           DEC      1          B-14                       
025865,001489: 34,3312           52130                           SXA,1    GOTO                                  
025866,001490: 34,3313           00771                                    VHFCNT                                #  UPDATE COUNT
025867,001491: 34,3314           71375                                    RENDISP3                              
025868,001492: 34,3315           62150        REND17             LXA,1    INCR,1                                
025869,001493: 34,3316           00772                                    TRKMKCNT                              #  OPTICS MARK COUNT
025870,001494: 34,3317           00001                           DEC      1          B-14                       
025871,001495: 34,3320           52130                           SXA,1    GOTO                                  
025872,001496: 34,3321           00772                                    TRKMKCNT                              #  UPDATE COUNT
025873,001497: 34,3322           71375                                    RENDISP3                              
025874,001498: 34,3323           77624        REND18             CALL                                           

Page 585

025876,001500: 34,3324           71327                                    CMPOS                                 #  GET CSM POSITION
025877,001501: 34,3325           77650                           GOTO                                           
025878,001502: 34,3326           71232                                    REND13                                
025879,001503: 34,2000                                           SETLOC   P20S3                                 
025880,001504: 34,2000                                           BANK                                           
025881,001505: 
025882,001506: 34,3327                                           COUNT*   $$/R22                                
025883,001507: 34,3327           53775        CMPOS              VLOAD    VSR*                                  
025884,001508: 34,3330           01573                                    DELTACSM                              
025885,001509: 34,3331           57167                                    7,2                                   
025886,001510: 34,3332           77655                           VAD                                            
025887,001511: 34,3333           01607                                    RCVCSM                                
025888,001512: 34,3334           01046                           STORE    CSMPOS                                #  CSM POSITION SCALED B-27 OR B-29
025889,001513: 34,3335           77616                           RVQ                                            
025890,001514: 34,3336           53775        LMPOS              VLOAD    VSR*                                  
025891,001515: 34,3337           01645                                    DELTALEM                              
025892,001516: 34,3340           57167                                    7,2                                   
025893,001517: 34,3341           77655                           VAD                                            
025894,001518: 34,3342           01661                                    RCVLEM                                
025895,001519: 34,3343           01054                           STORE    LEMPOS                                #  LM POSITION SCALED B-27 OR B-29
025896,001520: 34,3344           77616                           RVQ                                            
025897,001521: 34,2000                                           SETLOC   P20S3                                 
025898,001522: 34,2000                                           BANK                                           
025899,001523: 
025900,001524: 34,3345                                           COUNT*   $$/R22                                
025901,001525: 34,3345           77776        RENDISP            EXIT                                           
025902,001526: 34,3346           34772                           CAF      ZERO                                  #  SET TEMPOR1 > ZERO TO INDICATE
025903,001527: 34,3347           55135                           TS       TEMPOR1                               #  V06 N49 DISPLAY HASNT BEEN ANSWERED
025904,001528: 34,3350           05402                           TC       PHASCHNG                              
025905,001529: 34,3351           04022                           OCT      04022                                 
025906,001530: 34,3352           37651                           CAF      PRIO27                                #  SET UP DISPLAY JOB WITH HIGHER PRIORITY
025907,001531: 34,3353           05121                           TC       NOVAC                                 
025908,001532: 34,3354  E7,1722                                  EBANK=   MRKBUF1                               #  THAN PRESENT JOB
025909,001533: 34,3354           03366 70067                     2CADR    RENDISP2                              
025910,001534: 
025911,001535: 34,3356           06006        RENDISP7           TC       INTPRET                               
025912,001536: 34,3357           00155                           STORE    MPAC                                  
025913,001537: 34,3360           53135                           SLOAD    BZE                                   
025914,001538: 34,3361           01136                                    TEMPOR1                               
025915,001539: 34,3362           71357                                    RENDISP7   +1                         #  DISPLAY HAS NOT BEEN ANSWERED YET
025916,001540: 34,3363           52040                           BMN      GOTO                                  
025917,001541: 34,3364           71176                                    REND12                                #  NEG INDICATES PROCEED
025918,001542: 34,3365           71375                                    RENDISP3                              #  POS INDICATES RECYCLE
025919,001543: 34,3366           35030        RENDISP2           CAF      V06N49                                
025920,001544: 34,3367           04636                           TC       BANKCALL                              
025921,001545: 34,3370           20753                           CADR     PRIODSP                               
025922,001546: 34,3371           04546                           TC       GOTOV56                               #  TERM EXIT P20 VIA V56
025923,001547: 34,3372           44770                           CS       ONE                                   #  NEG INDICATES PROCEED RENDISP7 JOB
025924,001548: 34,3373           55135                           TS       TEMPOR1                               #  POS INDICATES RECYCLE RENDISP7 JOB
025925,001549: 34,3374           05205                           TC       ENDOFJOB                              #  GO COMPLETE ABOVE JOB

Page 586

025927,001551: 34,3375           77624        RENDISP3           CALL                                           
025928,001552: 34,3376           22327                                    GRP2PC                                
025929,001553: 34,3377           43014                           CLEAR    CLEAR                                 #  RESET FLAGS
025930,001554: 34,3400           04670                                    R22CAFLG                              
025931,001555: 34,3401           05263                                    REJCTFLG                              
025932,001556: 34,3402           52014                           BON      GOTO                                  
025933,001557: 34,3403           04707                                    SOURCFLG                              
025934,001558: 34,3404           70636                                    REND1                                 #  DATA WAS RADAR GO LOOK FOR OPTICS NEXT
025935,001559: 34,3405           70667                                    REND3                                 
025936,001560: 23,2000                                           SETLOC   P20S2                                 
025937,001561: 23,2000                                           BANK                                           
025938,001562: 
025939,001563: 23,3030                                           COUNT*   $$/R22                                
025940,001564: 
025941,001565: 23,3030           67214        AUTOW              BON      SLOAD                                 
025942,001566: 23,3031           05312                                    MANEUFLG                              #  MANEUVER DONE IF SET
025943,001567: 23,3032           50104                                    AUTOW3                                
025944,001568: 23,3033           02551                                    COUNT3MK                              #  COUNT OF MARKS SINCE W REINITIALIZED
025945,001569: 23,3034           52054                           BZE      GOTO                                  
025946,001570: 23,3035           47037                                    AUTOW1A                               
025947,001571: 23,3036           47133                                    AUTOW2                                
025948,001572: 23,3037           77614        AUTOW1A            BOFF                                           
025949,001573: 23,3040           05354                                    TPIMNFLG                              #  NOT AFTER TPI
025950,001574: 23,3041           47046                                    AUTOW1                                #  NOT AFTER TPI
025951,001575: 23,3042           52014                           BOFF     GOTO                                  
025952,001576: 23,3043           05347                                    P35FLAG                               
025953,001577: 23,3044           47133                                    AUTOW2                                
025954,001578: 23,3045           71001                                    REND5C                                
025955,001579: 23,3046           71201        AUTOW1             SETPD    DLOAD                                 #  PUT TIG
025956,001580: 23,3047           00001                                    0                                     #         OR
025957,001581: 23,3050           03413                                    TIG                                   #           TCDH IF P. C.
025958,001582: 23,3051           71214                           BOFF     DLOAD                                 
025959,001583: 23,3052           05356                                    PCFLAG                                #                   PUSH LIST 0
025960,001584: 23,3053           47055                                    AUTOW11                               
025961,001585: 23,3054           02461                                    TCDH                                  
025962,001586: 23,3055           67206        AUTOW11            PUSH     SLOAD                                 #  PD 0,1 = TIG OR TCDH IF P C
025963,001587: 23,3056           02372                                    WRDTIME                               
025964,001588: 23,3057           67206                           PUSH     SLOAD                                 #  PD 2,3 = WRDTIME
025965,001589: 23,3060           02373                                    MINBLKTM                              
025966,001590: 23,3061           67206                           PUSH     SLOAD                                 #  PD 4,5 = MINBLKTM
025967,001591: 23,3062           02374                                    TBEFCOMP                              
025968,001592: 23,3063           67206                           PUSH     SLOAD                                 #  PD 6,7 = TBEFCOMP
025969,001593: 23,3064           02375                                    BRNBLKTM                              
025970,001594: 23,3065           67206                           PUSH     SLOAD                                 #  PD 8,9 = BRNBLKTM
025971,001595: 23,3066           02376                                    MAXWTIME                              
025972,001596: 23,3067           67206                           PUSH     SLOAD                                 #  PD 10,11 == MAXWTIME
025973,001597: 23,3070           02377                                    FINCMPTM                              
025974,001598: 23,3071           71206                           PUSH     DLOAD                                 #  PD 12,13 = FINCMPTM
025975,001599: 23,3072           01062                                    MARKTIME                              
025976,001600: 23,3073           45225                           DSU      DSU                                   
025977,001601: 23,3074           00003                                    2                                     #  WRDTIME

Page 587

025979,001603: 23,3075           03736                                    AGEOFW                                
025980,001604: 23,3076           71240                           BMN      DLOAD                                 
025981,001605: 23,3077           47133                                    AUTOW2                                #  AGEOFW GR WRDTIME
025982,001606: 23,3100           03734                                    OLDMKTME                              
025983,001607: 23,3101           43225                           DSU      DAD                                   
025984,001608: 23,3102           01062                                    MARKTIME                              #  MARK TIME
025985,001609: 23,3103           00005                                    4                                     #  MINBLKTM
025986,001610: 23,3104           71240                           BMN      DLOAD                                 
025987,001611: 23,3105           50114                                    AUTOW4                                #  (TIME - OLDMKTME) GR MIN
025988,001612: 23,3106           01062                                    MARKTIME                              
025989,001613: 23,3107           51025                           DSU      BPL                                   
025990,001614: 23,3110           00001                                    0D                                    #  TIG
025991,001615: 23,3111           50120                                    AUTOW5                                #  REINITIALIZE - TIG IS IN THE PAST
025992,001616: 23,3112           77615                           DAD                                            
025993,001617: 23,3113           00015                                    12D                                   #  FINCMPTM
025994,001618: 23,3114           50015                           DAD      BMN                                   
025995,001619: 23,3115           00007                                    6D                                    #  TBEFCOMP
025996,001620: 23,3116           50120                                    AUTOW5                                #  (FINCMPTM - TIME) GR TBEFCOMP
025997,001621: 23,3117           43345                           DLOAD    DAD                                   
025998,001622: 23,3120           00001                                    0                                     
025999,001623: 23,3121           07137                                    3MINCON                               #  3 MIN CONSTANT (APPROX)
026000,001624: 23,3122           43225                           DSU      DAD                                   
026001,001625: 23,3123           00015                                    12D                                   #  FINCMPTM
026002,001626: 23,3124           00011                                    8D                                    #  BRNBLKTM
026003,001627: 23,3125           45225                           DSU      DSU                                   
026004,001628: 23,3126           03736                                    AGEOFW                                
026005,001629: 23,3127           00013                                    10D                                   #  MAXWTIME
026006,001630: 23,3130           43040                           BMN      SET                                   
026007,001631: 23,3131           47133                                    AUTOW2                                #  FINCOM + BRNBLK+3MIN+AGE GR MAXWTIME
026008,001632: 23,3132           05073                                    PTV93FLG                              #  POST BURN V93 REQUEST FLAG
026009,001633: 23,3133           52014        AUTOW2             CLEAR    GOTO                                  
026010,001634: 23,3134           01671                                    ORBWFLAG                              #  P22 W MATRIX FLAG
026011,001635: 23,3135           70776                                    REND5B                                
026012,001636: 23,3136           00001        3MINCON            DEC      1.0        B-14                       #  2.74 MIN
026013,001637: 23,3137           00002 00000  HIGH2              2DEC     2.0        B-14                       
026014,001638: 23,3141           00003 00000  HIGH3              2DEC     3.0        B-14                       
026015,001639: 
026016,001640: 24,2000                                           SETLOC   P20S5                                 
026017,001641: 24,2000                                           BANK                                           
026018,001642: 
026019,001643: 24,2104                                           COUNT*   $$/R22                                
026020,001644: 24,2104           43014        AUTOW3             BON      BOFF                                  
026021,001645: 24,2105           05313                                    PTV93FLG                              
026022,001646: 24,2106           71001                                    REND5C                                
026023,001647: 24,2107           05354                                    TPIMNFLG                              
026024,001648: 24,2110           50114                                    AUTOW4                                
026025,001649: 24,2111           77614                           BOFF                                           
026026,001650: 24,2112           05355                                    FULTKFLG                              
026027,001651: 24,2113           71001                                    REND5C                                #  BRANCH IF VHF AND OPTICS MARKING

Page 588

026029,001653: 24,2114           52131        AUTOW4             SSP      GOTO                                  
026030,001654: 24,2115           02551                                    COUNT3MK                              #  SET 3 MARK COUNTER EQ 1
026031,001655: 24,2116           00001                           DEC      1          B-14                       
026032,001656: 24,2117           47133                                    AUTOW2                                #  BYPASS REINITIALIZING W MATRIX
026033,001657: 24,2120           52014        AUTOW5             CLEAR    GOTO                                  
026034,001658: 24,2121           05273                                    PTV93FLG                              
026035,001659: 24,2122           71001                                    REND5C                                
026036,001660: 
026037,001661: 27,2000                                           SETLOC   R22S1                                 
026038,001662: 27,2000                                           BANK                                           
026039,001663: 
026040,001664: 27,2456                                           COUNT*   $$/R22                                
026041,001665: 27,2456           00052 36307  SXTVAR             2DEC     0.04       E-6        B+16            #  SXT ERROR VARIANCE = .04 (MR)SQ
026042,001666: 27,2460           00052 36307  IMUVAR             2DEC     0.04       E-6        B+16            #  IMU ERROR VARIANCE = .04 (MR)SQ
026043,001667: 27,2462           45020        SETINTG            STQ      CALL                                  
026044,001668: 27,2463           02310                                    EGRESS                                
026045,001669: 27,2464           27516                                    INTSTALL                              #  RESERVE INTEGRATION
026046,001670: 27,2465           43145                           DLOAD    SET                                   
026047,001671: 27,2466           01062                                    MARKTIME                              
026048,001672: 27,2467           01472                                    STATEFLG                              
026049,001673: 27,2470           00041                           STORE    TDEC1                                 #  MARKTIME
026050,001674: 27,2471           43014                           CLEAR    CLEAR                                 
026051,001675: 27,2472           01673                                    INTYPFLG                              #  PRECISION INTEGRATION
026052,001676: 27,2473           01676                                    DIM0FLAG                              
026053,001677: 27,2474           43014                           SET      CLRGO                                 
026054,001678: 27,2475           01474                                    VINTFLAG                              #  SET VEHICLE EQ. CSM
026055,001679: 27,2476           01635                                    D6OR9FLG                              #  SET W MATRIX DIM. EQ 6
026056,001680: 27,2477           02310                                    EGRESS                                #  EXIT
026057,001681: 27,2500           43014        CONTCHK            BOFF     BOFF                                  
026058,001682: 27,2501           00350                                    RNDVZFLG                              
026059,001683: 27,2502           31263                                    ENDPLAC                               
026060,001684: 
026061,001685: 27,2503           01742                                    REFSMFLG                              #  BRANCH TO END OF JOB IF REFSMMAT NO GOOD
026062,001686: 27,2504           31263                                    ENDPLAC                               
026063,001687: 27,2505           50135                           SLOAD    BMN                                   
026064,001688: 27,2506           03375                                    R61CNTR                               
026065,001689: 27,2507           56525                                    WAITONE1                              
026066,001690: 27,2510           43014                           BON      BOFF                                  #  IS TRACK FLAG SET
026067,001691: 27,2511           00710                                    UPDATFLG                              
026068,001692: 27,2512           01006                                    POINTEX                               
026069,001693: 27,2513           00752                                    TRACKFLG                              
026070,001694: 27,2514           31263                                    ENDPLAC                               
026071,001695: 27,2515           77776                           EXIT                                           
026072,001696: 27,2516           05402        REDOR22            TC       PHASCHNG                              
026073,001697: 27,2517           00132                           OCT      00132                                 
026074,001698: 27,2520  01,2047               2P13SPT1           =        2.13SPOT                              
026075,001699: 27,2520           37650                           CAF      PRIO26                                
026076,001700: 27,2521           05176                           TC       PRIOCHNG                              

Page 589

026078,001702: 27,2522           12526                           TCF      WAITONE1   +1                         
026079,001703: 
026080,001704: 27,2523           77620        WAITONE            STQ                                            
026081,001705: 27,2524           01006                                    POINTEX                               
026082,001706: 27,2525           77776        WAITONE1           EXIT                                           
026083,001707: 27,2526           35020                 +1        CAF      4SECS                                 #  WAIT 4 SECS.
026084,001708: 27,2527           04636                           TC       BANKCALL                              
026085,001709: 27,2530           01731                           CADR     DELAYJOB                              
026086,001710: 27,2531           06006                           TC       INTPRET                               
026087,001711: 27,2532           77650                           GOTO                                           
026088,001712: 27,2533           56500                                    CONTCHK                               #  CHECK AGAIN NOW
026089,001713: 34,2000                                           SETLOC   P20S3                                 
026090,001714: 34,2000                                           BANK                                           
026091,001715: 
026092,001716: 34,3406                                           COUNT*   $$/R22                                
026093,001717: 34,3406           31703        RANGERD3           CA       RM                                    
026094,001718: 34,3407           74750                           MASK     POSMAX                                
026095,001719: 34,3410           54154                           TS       MPAC                                  #  MASK OUT NEG. SIGN BIT
026096,001720: 34,3411           06006                           TC       INTPRET                               
026097,001721: 34,3412           41335                           SLOAD    DMP                                   
026098,001722: 34,3413           00155                                    MPAC                                  #  CLEAR MPAC +1
026099,001723: 34,3414           16535                                    CONVRNGE                              #  CONVERT FROM NM TO METERS AND SCALE B-27
026100,001724: 34,3415           52015                           DAD      GOTO                                  
026101,001725: 34,3416           16535                                    CONVRNGE                              #  VALUE IN METERS OF SIGN BIT SCALED B-27
026102,001726: 34,3417           70754                                    RANGERD2                              
026103,001727: 34,3420           31113        LIGHTON            CA       VHFRANGE                              
026104,001728: 34,3421           00006                           EXTEND                                         
026105,001729: 34,3422           13424                           BZF      +2                                    
026106,001730: 34,3423           05644                           TC       TRFAILON                              
026107,001731: 34,3424           06006                 +4        TC       INTPRET                               
026108,001732: 34,3425           77745                           DLOAD                                          
026109,001733: 34,3426           01062                                    MARKTIME                              
026110,001734: 34,3427           01010                           STORE    VHFTIME                               
026111,001735: 34,3430           77650                           GOTO                                           
026112,001736: 34,3431           70636                                    REND1                                 
026113,001737: 34,3432     4777               OCT17              EQUALS   LOW4                                  
026114,001738: 27,2000                                           SETLOC   R22S1                                 
026115,001739: 27,2000                                           BANK                                           
026116,001740: 
026117,001741: 27,2534                                           COUNT*   $$/R22                                
026118,001742: 27,2534           00045 01217  CONVRNGE           2DEC     18.52      B-13                       #  VHF INPUT RANGE CONV.FROM.01 NM TO M
026119,001743:                                                                                                  #                                AND 16384 X 18.52 = METERS FOR SIGN BIT
026120,001744: 27,2536           00006        VHFREAD            EXTEND                                         
026121,001745: 27,2537           04007                           ROR      SUPERBNK                              #  MUST SAVE SBANK BECAUSE OF RUPT
026122,001746: 27,2540           54016                           TS       BANKRUPT                              #  EXITS VIA RESUME, LIGHTON, RANGERD1
026123,001747: 27,2541           00006                           EXTEND                                         
026124,001748: 27,2542           22012                           QXCH     QRUPT                                 
026125,001749: 27,2543           40076                           CS       FLAGWRD2                              
026126,001750: 27,2544           74757                           MASK     SKIPVBIT                              #  SKIPVHF FLAG

Page 590

026128,001752: 27,2545           00006                           EXTEND                                         
026129,001753: 27,2546           15323                           BZF      RESUME                                #  BRANCH IF VHF RESTART BIT SET
026130,001754: 27,2547           34762                           CAF      UPDATBIT                              
026131,001755: 27,2550           70075                           MASK     FLAGWRD1                              #  UPDATFLG
026132,001756: 27,2551           00006                           EXTEND                                         
026133,001757: 27,2552           12574                           BZF      BYPASS1                               
026134,001758: 27,2553           40100                           CS       FLAGWRD4                              
026135,001759: 27,2554           74755                           MASK     PDSPFBIT                              #  PDSPFLAG
026136,001760: 27,2555           00006                           EXTEND                                         
026137,001761: 27,2556           12574                           BZF      BYPASS1                               
026138,001762: 27,2557           30046                           CA       RNRAD                                 
026139,001763: 27,2560           55703                           TS       RM                                    #  SAVE RANGE
026140,001764: 27,2561           34767                           CAF      BIT2                                  
026141,001765: 27,2562           00006                           EXTEND                                         
026142,001766: 27,2563           02033                           RAND     CHAN33                                #  READ DATA GOOD BIT
026143,001767: 27,2564           00006                           EXTEND                                         
026144,001768: 27,2565           12576                           BZF      VHFGOOD                               #  BRANCH IF DATA GOOD BIT EQUALS GOOD
026145,001769: 27,2566           55113        BYPASS             TS       VHFRANGE                              #  STORE NON ZERO VALUE
026146,001770: 27,2567           37650                           CAF      PRIO26                                
026147,001771: 27,2570           05135                           TC       FINDVAC                               
026148,001772: 27,2571  E7,1722                                  EBANK=   MRKBUF1                               
026149,001773: 27,2571           03420 70067                     2CADR    LIGHTON                               
026150,001774: 
026151,001775: 27,2573           05323                           TC       RESUME                                
026152,001776: 
026153,001777: 27,2574           34772        BYPASS1            CAF      ZERO                                  
026154,001778: 27,2575           02566                           TC       BYPASS                                
026155,001779: 27,2576           37650        VHFGOOD            CAF      PRIO26                                
026156,001780: 27,2577           05135                           TC       FINDVAC                               
026157,001781: 27,2600  E7,1722                                  EBANK=   MRKBUF1                               
026158,001782: 27,2600           02742 70067                     2CADR    RANGERD1                              
026159,001783: 
026160,001784: 27,2602           05323                           TC       RESUME                                
026161,001785: 
026162,001786: 27,2603           77774        SHIFTNDX           AXT,2                                          
026163,001787: 27,2604           00000                                    0                                     
026164,001788: 27,2605           43414                           BON      RVQ                                   
026165,001789: 27,2606           04303                                    CMOONFLG                              #  MOON ORB.
026166,001790: 27,2607           56610                                    +1                                    
026167,001791: 27,2610           43514                           INCR,2   RVQ                                   
026168,001792: 27,2611           77775                           DEC      -2         B-14                       
026169,001793: 27,2612           66370        INITIALW           AXT,1    SSP                                   
026170,001794: 27,2613           00044                                    36D                                   
026171,001795: 27,2614           00051                                    S1                                    
026172,001796: 27,2615           00006                                    6                                     
026173,001797: 27,2616           77775                           VLOAD                                          
026174,001798: 27,2617           15336                                    ZEROVECS                              
026175,001799: 27,2620           06445        INITA              STORE    W          +36D,1                     #  CLEAR 0 - 35
026176,001800: 27,2621           06533                           STORE    W          +90D,1                     #  CLEAR 54-89
026177,001801: 27,2622           67300                           TIX,1    SLOAD                                 

Page 591

026179,001803: 27,2623           56620                                    INITA                                 
026180,001804: 27,2624           00001                                    0                                     #  POSITION VALUE
026181,001805: 27,2625           02401                           STORE    W                                     #  INITIALIZE DIAGONAL W  POSITION
026182,001806: 27,2626           02411                           STORE    W          +8D                        
026183,001807: 27,2627           02421                           STORE    W          +16D                       
026184,001808: 27,2630           77735                           SLOAD                                          
026185,001809: 27,2631           00002                                    1                                     #  VELOCITY VALUE
026186,001810: 27,2632           02511                           STORE    W          +72D                       #  INITIALIZE DIAGONAL W VELOCITY
026187,001811: 27,2633           02521                           STORE    W          +80D                       
026188,001812: 27,2634           02531                           STORE    W          +88D                       
026189,001813: 27,2635           77616                           RVQ                                            
026190,001814: 

Page 592

026192,001816: 
026193,001817:                                                                                                  #        STALL ROUTINE FOR USERS OF CHANNEL 13.
026194,001818: 
026195,001819: 
026196,001820:    4000                                           SETLOC   FFTAG12                               
026197,001821:    4000                                           BANK                                           
026198,001822: 
026199,001823:    4542                                           COUNT*   $$/CHN13                              
026200,001824:    4542           34754        C13STALL           CAF      PRIO10                                #  = BANK 04
026201,001825:    4543           56004                           XCH      FBANK                                 
026202,001826:    4544           54071                           TS       RUPTREG2                              
026203,001827:    4545           13251                           TCF      C13STAL1                              
026204,001828: 04,2000                                           SETLOC   C13BANK                               
026205,001829: 04,2000                                           BANK                                           
026206,001830: 
026207,001831: 04,3251                                           COUNT*   $$/CHN13                              
026208,001832: 04,3251           34765        C13STAL1           CAF      BIT4                                  
026209,001833: 04,3252           00006                           EXTEND                                         
026210,001834: 04,3253           02013                           RAND     CHAN13                                
026211,001835: 04,3254           00006                           EXTEND                                         
026212,001836: 04,3255           13276                           BZF      TCQSTAL                               #  NO RADAR ACTIVITY. OK TO WRITE.
026213,001837: 
026214,001838: 04,3256           13257        C13SLOOP           NOOP                                           #  TO PREVENT TC TRAP
026215,001839: 04,3257           00006                           EXTEND                                         
026216,001840: 04,3260           00004                           READ     LOSCALAR                              
026217,001841: 04,3261           61063                           AD       RADTIME                               #  COMPUTE DELTA T SINCE LAST RADAR READ
026218,001842: 04,3262           64753                           AD       HALF                                  
026219,001843: 04,3263           64753                           AD       HALF                                  #  FOR OVERFLOW
026220,001844: 04,3264           56001                           XCH      L                                     
026221,001845: 
026222,001846: 04,3265           33301                           CA       90MSCALR                              
026223,001847: 04,3266           61064                           AD       RADDEL                                
026224,001848: 04,3267           00006                           EXTEND                                         
026225,001849: 04,3270           60001                           SU       L                                     
026226,001850: 
026227,001851: 04,3271           00006                           EXTEND                                         
026228,001852: 04,3272           63276                           BZMF     TCQSTAL                               #  GR THAN 90 MS.  OK
026229,001853: 
026230,001854: 04,3273           63302                           AD       -DTSCALR                              
026231,001855: 04,3274           00006                           EXTEND                                         
026232,001856: 04,3275           63256                           BZMF     C13SLOOP                              #  IN FORBIDDEN PERIOD.  LOOP UNTIL OK
026233,001857: 
026234,001858: 04,3276           30071        TCQSTAL            CA       RUPTREG2                              
026235,001859: 04,3277           22002                           LXCH     Q                                     
026236,001860: 04,3300           52005                           DTCF                                           
026237,001861: 
026238,001862: 04,3301           00440        90MSCALR           OCT      440                                   #  90 MILLISEC IN SCALAR
026239,001863: 04,3302           77754        -DTSCALR           OCT      77754                                 #  -5.9375 MS IN SCALAR
026240,001864: 
026241,001865:                                                                                                  #  CRS61.1       4/10/68
026242,001866:                                                                                                  #    TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES

Page 593

026244,001868:                                                                                                  #  OPTICS TRACKING OF THE LM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
026245,001869:                                                                                                  #  AND TO COMPUTE THE &X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
026246,001870:                                                                                                  #  COAS TRACKING OF THE LM.
026247,001871:                                                                                                  #    TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE 
026248,001872:                                                                                                  #  MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
026249,001873:                                                                                                  #  GREATER THAN 10 DEGREES OR IF THE R60FLAG IS SET.
026250,001874:                                                                                                  #           (1) EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
026251,001875:                                                                                                  #               CONIC EQUATIONS.
026252,001876: 
026253,001877:                                                                                                  #           (2) CALCULATE LOS FROM CSM TO LM = RL - RC.
026254,001878: 
026255,001879:                                                                                                  #           (3) THE PREFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
026256,001880:                                                                                                  #               THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM. THE
026257,001881:                                                                                                  #               TRACK AXIS (I) IS DEFINED AS:
026258,001882: 
026259,001883:                                                                                                  #               UNIT(I)=UNIT(Z  )COS55 &UNIT(X  )SIN55
026260,001884:                                                                                                  #                     -       -SC             -SC
026261,001885:                                                                                                  #           (4) COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
026262,001886:                                                                                                  #           (7) FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS.
026263,001887:                                                                                                  #               IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES,
026264,001888:                                                                                                  #               GROSS MANEUVER IS REQUIRED. SIGNAL R61 (SET MPAC=1) TO
026265,001889:                                                                                                  #               OPERATE KALCMANU AND EXIT CRS61.1.
026266,001890:                                                                                                  #               IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE.
026267,001891: 
026268,001892:                                                                                                  #           (8) CALCULATE ORTHOGONAL LOS RATE IN REF COORDS AS
026269,001893: 
026270,001894:                                                                                                  #               OMEGATH = (UNITLOS(B1) X UNITDV(B1))(ABSDV(B7)/ABSLOS(B29))
026271,001895:                                                                                                  #               CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS
026272,001896:                                                                                                  #               APPLIED TO YIELD UNITS OF REVS/SEC. SCALE IS CARRIED AS
026273,001897:                                                                                                  #               B+1+1+7-29+4+1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS.
026274,001898:                                                                                                  #               THE EXTRA B+1 RESULTS FROM RESCALING ABSDV B8 AFTER NORM
026275,001899:                                                                                                  #               TO AVOID OVFLOW ON DIVIDE.
026276,001900: 
026277,001901:                                                                                                  #               UNITLOS = UNIT( RL - RC) B1.
026278,001902:                                                                                                  #               UNITDY  = UNIT( VL - VC) B1.
026279,001903:                                                                                                  #               ABSLOS  = LENGTH OF LOS, METERS B29.
026280,001904:                                                                                                  #               ABSDV   = LENGTH OF DV , METERS/CSEC B7.
026281,001905: 
026282,001906:                                                                                                  #           (9) OBTAIN RATE IN SM COORDS.
026283,001907: 
026284,001908:                                                                                                  #               OMEGATHSM = (REFSMMAT)(OMEGATH).
026285,001909: 
026286,001910:                                                                                                  #           (10)OBTAIN GIMBAL ANGLE INCREMENTS FOR 0.1 SECOND.
026287,001911: 
026288,001912:                                                                                                  #               DTHETASM = (0.1)(OMEGATHSM)
026289,001913: 
026290,001914:                                                                                                  #           (11)OBTAIN DELCDUX,Y,Z USING SUBR SMCDURES.
026291,001915:                                                                                                  #               INPUT CONSISTS OF
026292,001916: 
026293,001917:                                                                                                  #               (A) VECTOR OF ANGULAR INCREMENTS, DTHETASM, STORED

Page 594

026295,001919:                                                                                                  #                   IN V(DTHETASM).
026296,001920: 
026297,001921:                                                                                                  #               (B) SIN,COS CDUX,Y,Z FROM  SUBR CDUTRIG.
026298,001922: 
026299,001923:                                                                                                  #               TRANSFER OUTPUT OF SMCDURES FROM V(DCDU) TO VAC14D.
026300,001924: 
026301,001925:                                                                                                  #           (12)CALCULATE ANG LOS RATE IN BODY(NB) COORDS USING SUBR SMNB.
026302,001926: 
026303,001927:                                                                                                  #               OMEGANB = (SMNB)(OMEGATHSM)
026304,001928: 
026305,001929:                                                                                                  #               SUBR SMNB REQUIRES  OMEGATHSM IN V(VAC32D) AND ACTUAL CDUS
026306,001930:                                                                                                  #               (Y,X,Z ORDER) IN V(VAC20D) WITH S1 OF VAC = BASE ADDRESS
026307,001931:                                                                                                  #               OF CDUS (FIXLOC + 20D).
026308,001932: 
026309,001933:                                                                                                  #           (13)CALCULATE ANG LOS RATE IN CONTROL COORDS AS FOLLOWS
026310,001934: 
026311,001935:                                                                                                  #               WBODY = (MBDYTCTL)(OMEGANB)   UNITS=REVS/SEC(B0).
026312,001936: 
026313,001937:                                                                                                  #                              ( 0.5       0             0      ) BODY TO
026314,001938:                                                                                                  #               MBDYTCTL(B1) = (  0   COS(7.25)B1  -SIN(7.25)B1 )=CONTROL
026315,001939:                                                                                                  #                              (  0   SIN(7.25)B1   COS(7.25)B1 ) AXES
026316,001940:                                                                                                  #                                                                CONVERSION
026317,001941:                                                                                                  #                                                                 MATRIX
026318,001942: 
026319,001943:                                                                                                  #           (14)RESCALE WBODY TO UNITS OF 450 DEG/SEC BY APPLYING FACTOR
026320,001944:                                                                                                  #               OF 0.8 TO REVS/SEC.
026321,001945: 
026322,001946:                                                                                                  #           (15)ADDRESS LIVE AUTOPILOT REGISTERS IN BASIC (UNDER INHINT).
026323,001947: 
026324,001948:                                                                                                  #               TRANSFER DESIRED CDUS, SCALED 180 DEGREES, FROM T(SAVEDCDU)
026325,001949:                                                                                                  #               TO V(CDUXD).
026326,001950:                                                                                                  #               TRANSFER DELCDUS, SCALED 180 DEG, FROM V(VAC14D)
026327,001951:                                                                                                  #               TO V(DELCDUX).
026328,001952:                                                                                                  #               TRANSFER OMEGA CONTROL, SCALED 450 DEG/SEC, FROM V(MPAC)
026329,001953:                                                                                                  #               TO V(WBODY).
026330,001954:                                                                                                  #               RELINT, SET MPAC=0, EXIT CRS61.1
026331,001955: 
026332,001956:                                                                                                  #  CALL     L  CALL CRS61.1
026333,001957: 
026334,001958:                                                                                                  #  RETURNS  ALL TO L+1.
026335,001959: 
026336,001960:                                                                                                  #           (1) S(MPAC)=0. NORMAL EXIT. 3 SETS OF INPUTS FED TO DAP.
026337,001961:                                                                                                  #           (2) S(MPAC)=1. CALCULATED DESIRED CDUS,SP, SET IN T(CPHI)
026338,001962:                                                                                                  #               FOR KALCMANU. ABS(ACDU - DCDU) EXCEEDS 10 DEGREES.
026339,001963:                                                                                                  #           (3) S(MPAC)=2. GNCS AUTO MODE NOT SELECTED (BIT10=1).
026340,001964:                                                                                                  #           (4) S(MPAC)=3. DAP HOLD FLAG (HOLDFLAG) NOT EQUAL -1.
026341,001965: 
026342,001966:                                                                                                  #  INPUT    (1) TIME2,TIME1. COMPUTER CLOCK TIME,DP, CENTISEC B28.
026343,001967:                                                                                                  #           (2) CDUX,Y,Z. PRESENT CDU ANGLES,SP,2S COMPL HALF-REVS B0.
026344,001968:                                                                                                  #           (3) M(REFSMMAT),STABLE MEMBER COORDS B1.

Page 595

026346,001970: 
026347,001971:                                                                                                  #  OUTPUT   NORMAL. EXIT WITH S(MPAC) = 0.
026348,001972: 
026349,001973:                                                                                                  #           (1) CDUXD,CDUYD,CDUZD, DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
026350,001974:                                                                                                  #               DP, 1S COMPL, SCALED 180 DEGREES (HALF-REVS B0).
026351,001975:                                                                                                  #           (2) DELCDUX,DELCDUY,DELCDUZ. 0.1 SEC DCU ANGULAR INCREMENTS,
026352,001976:                                                                                                  #               DP, 1S COMPL, SCALED 180 DEG.
026353,001977:                                                                                                  #           (3) WBODY,WBODY1,WBODY2. LOS ANGULAR RATE IN CONTROL COORDS,
026354,001978:                                                                                                  #               DP, 1S COMPL, SCALED 450 DEG/SEC.
026355,001979: 
026356,001980:                                                                                                  #               SPECIAL. EXIT WITH S(MPAC) = 1.
026357,001981: 
026358,001982:                                                                                                  #           (1) CPHI,CTHETA,CPSI. DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
026359,001983:                                                                                                  #               SP, 2S COMPL, SCALED 180 DEGREES.
026360,001984: 
026361,001985:                                                                                                  #  EXTERNAL SUBROUTINES USED   (B)=BASIC
026362,001986: 
026363,001987:                                                                                                  #           (1) CALCGA    (5) LOADTIME(B)  (9) SMNB
026364,001988:                                                                                                  #           (2) CDUTRIG   (6) MATMOVE
026365,001989:                                                                                                  #           (3) CSMCONIC  (7) RDCDUS(B)
026366,001990:                                                                                                  #           (4) LEMCONIC  (8) SMCDURES
026367,001991: 
026368,001992:                                                                                                  #  ERASABLE (1) S(Q611),EBANK7  CRS61.1 EXIT .
026369,001993:                                                                                                  #           (2) S(Q6111)EBANK7  CALCDCDU EXIT.
026370,001994:                                                                                                  #           (3) T(SAVEDCDU) E6  SP VECTOR OF CDUDS.
026371,001995:                                                                                                  #           (4) V(SAVEPOS)  E7  CSM POS VEC AND  D(SAVEPOS)= LENGTH OF LOS.
026372,001996:                                                                                                  #           (5) V(SAVEVEL) E7  CSM VEL VEC.
026373,001997: 
026374,001998:                                                                                                  #  FLAGWDS  HOLDFLAG. USED, NOT SET.
026375,001999: 
026376,002000:                                                                                                  #  MISC     (1) ERASABLE ITEMP1 USED TO TEMP STORE EBANK UNDER INHINT.
026377,002001:                                                                                                  #           (2) ERASABLE P21TIME USED AS TEMP STORE DURING CRS61.1
026378,002002:                                                                                                  #           (3) ERAS DTHETASM USED AS TEMP STORE DURING EARLY CRS61.1
026379,002003: 
026380,002004:                                                                                                  #  DEBRIS - CURRENT VAC AREA, CRS61.1 ERASABLES, ITEMP1, P21TIME
026381,002005: 
026382,002006: 34,2000                                           SETLOC   P20S4                                 
026383,002007: 34,2000                                           BANK                                           
026384,002008: 
026385,002009: 34,3432  E6,1646                                  EBANK=   CDUXD                                 
026386,002010: 34,3432                                           COUNT*   $$/CRS61                              
026387,002011: 
026388,002012: 34,3432           40220        CRS61.1            STQ      SETPD                                 
026389,002013: 34,3433           03704                                    Q611                                  
026390,002014: 34,3434           00001                                    0                                     
026391,002015: 34,3435           77634                           RTB                                            
026392,002016: 34,3436           51751                                    LOADTIME                              #  LOAD CLOCK TIME2,1 INTO MPAC.
026393,002017: 
026394,002018: 34,3437           36307        STORT              STCALL   R63TIME                               #  STORE CLOCK TIME FOR SUBR R63
026395,002019: 34,3440           73171                                    R63                                   #  SUBR TO CALC DCDU(T=PRESENT,PASS1)
026396,002020: 34,3441           71214                           CLEAR    DLOAD                                 

Page 596

026398,002022: 34,3442           05266                                    RANGFLAG                              
026399,002023: 34,3443           02307                                    R63TIME                               
026400,002024: 34,3444           51025                           DSU      BPL                                   
026401,002025: 34,3445           33161                                    328NM                                 
026402,002026: 34,3446           71451                                    +3                                    
026403,002027: 34,3447           77614                           SET                                            
026404,002028: 34,3450           05066                                    RANGFLAG                              
026405,002029: 34,3451           77776                 +3        EXIT                                           
026406,002030: 34,3452           05354        STEP2CK            TC       CHECKMM                               #  CHECK MAJOR MODE = 27 (UPDATE PROG)
026407,002031: 34,3453           00033                           MM       27         B-14                       
026408,002032: 34,3454           04415                           TC       UPACTOFF                              #  NO TURN OFF UPLINK LITE
026409,002033:                                                                                                  #  YES  LEAVE UPLINK AS IS
026410,002034: 34,3455           11340                           CCS      HOLDFLAG                              
026411,002035: 34,3456           03560                           TC       ASET                                  #  EXIT IF HOLDFLAG IS + NONZERO
026412,002036: 34,3457           03461                           TC       +2                                    
026413,002037: 34,3460           03461                           TC       +1                                    
026414,002038: 34,3461           40107                           CS       FLGWRD11                              
026415,002039: 34,3462           74761                           MASK     AZIMBIT                               
026416,002040: 34,3463           10000                           CCS      A                                     
026417,002041: 34,3464           03505                           TC       NOAZFLG1                              #  AZIMFLAG NOT SET
026418,002042: 
026419,002043: 34,3465           34767                           CAF      TWO                                   #  AZIMFLAG SET
026420,002044: 34,3466           55611        CDULOOP            TS       DTHETASM                              
026421,002045: 34,3467           51611                           INDEX    DTHETASM                              
026422,002046: 34,3470           30032                           CA       CDUX                                  
026423,002047: 34,3471           00006                           EXTEND                                         
026424,002048: 34,3472           51611                           INDEX    DTHETASM                              
026425,002049: 34,3473           21307                           MSU      THETAD                                
026426,002050: 34,3474           54154                           TS       MPAC                                  
026427,002051: 
026428,002052: 34,3475           06006                           TC       INTPRET                               
026429,002053: 34,3476           45246                           ABS      DSU                                   
026430,002054: 34,3477           16645                                    DEGREE10                              
026431,002055: 34,3500           77444                           BPL      EXIT                                  
026432,002056: 34,3501           71566                                    STKTEST                               
026433,002057: 
026434,002058: 34,3502           11611                           CCS      DTHETASM                              
026435,002059: 34,3503           03466                           TC       CDULOOP                               
026436,002060: 
026437,002061: 34,3504           03545                           TC       AUTOCK                                
026438,002062: 
026439,002063: 34,3505           31572        NOAZFLG1           CA       THETADX                               
026440,002064: 34,3506           55175                           TS       CDUSPOT    +4                         
026441,002065: 34,3507           31573                           CA       THETADY                               
026442,002066: 34,3510           55171                           TS       CDUSPOT                               
026443,002067: 34,3511           31574                           CA       THETADZ                               
026444,002068: 34,3512           55173                           TS       CDUSPOT    +2                         #  STORE IN CDUSPOT FOR TRG*NBSM
026445,002069: 34,3513           06006                           TC       INTPRET                               
026446,002070: 34,3514           45175                           VLOAD    CALL                                  
026447,002071: 34,3515           03351                                    SCAXIS                                

Page 597

026449,002073: 34,3516           47642                                    TRG*NBSM                              
026450,002074: 34,3517           50206                           PUSH     DOT                                   #  PD 0-5
026451,002075: 34,3520           03357                                    POINTVSM                              
026452,002076: 34,3521           50025                           DSU      BMN                                   #  BRANCH IF GR. 10 DEG.
026453,002077: 34,3522           16641                                    COSTEN                                
026454,002078: 34,3523           71566                                    STKTEST                               
026455,002079: 34,3524           47375                           VLOAD    VXV                                   
026456,002080: 34,3525           00001                                    0                                     #  SCAXIS IN S.M.
026457,002081: 34,3526           03357                                    POINTVSM                              
026458,002082: 34,3527           41561                           VXSC     PUSH                                  #  PD 6-11 B2
026459,002083: 34,3530           16644                                    DELTYME                               #  1/(DELTA TIME) B-2
026460,002084: 34,3531           45246                           ABVAL    DSU                                   
026461,002085: 34,3532           16642                                    MAXRATE                               #  .1 DEG. / SEC. B0
026462,002086: 34,3533           77240                           BMN      VLOAD                                 #  PUSH UP 6-11
026463,002087: 34,3534           71540                                    STEP2CKB                              #  BRANCH IF LESS .1 DEG./SEC.
026464,002088: 34,3535           74256                           UNIT     VXSC                                  
026465,002089: 34,3536           16642                                    MAXRATE                               
026466,002090: 34,3537           41572                           VSL1     PUSH                                  #  PD 6-11 .1 DEG./SEC DISTRIBUTED
026467,002091: 34,3540           74375        STEP2CKB           VLOAD    VXSC                                  
026468,002092: 34,3541           00007                                    6                                     
026469,002093: 34,3542           16637                                    RADTOREV                              #  RAD. TO REV. B0
026470,002094: 34,3543           03212                           STORE    DTHETASM                              #  B0
026471,002095: 34,3544           77776                           EXIT                                           
026472,002096: 34,3545           37673        AUTOCK             CAF      FURST3                                #  BITS 15,14,13 OF CHAN31 = 011
026473,002097: 34,3546           05654                           TC       C31BTCHK                              #  FOR AUTO AND G&N CONTROL
026474,002098: 34,3547           13550                           TCF      +1                                    
026475,002099: 34,3550           67671                           AD       NEG30000                              
026476,002100: 34,3551           00006                           EXTEND                                         #  AUTO MODE SELECTED (BITS 15-13=011)
026477,002101: 34,3552           13554                           BZF      DAPCK                                 #     YES-CONTINUE.
026478,002102: 34,3553           03560                           TC       ASET                                  
026479,002103: 34,3554           40075        DAPCK              CS       FLAGWRD1                              #  IS STIKFLAG SET (I.E. IS SOMEONE ON RHC)
026480,002104: 34,3555           74753                           MASK     STIKBIT                               
026481,002105: 34,3556           10000                           CCS      A                                     
026482,002106: 34,3557           03600                           TC       STEP3CK                               
026483,002107: 34,3560           06006        ASET               TC       INTPRET                               
026484,002108: 34,3561           77614                           CLEAR                                          
026485,002109: 34,3562           00273                                    CYC61FLG                              
026486,002110: 34,3563           52135                           SLOAD    GOTO                                  
026487,002111: 34,3564           15336                                    ZEROVECS                              
026488,002112: 34,3565           03704                                    Q611                                  
026489,002113: 34,3566           77614        STKTEST            BOFINV                                         
026490,002114: 34,3567           00153                                    CYC61FLG                              
026491,002115: 34,3570           44001                                    KALCMAN3   +1                         
026492,002116: 34,3571           77414                           BON      EXIT                                  
026493,002117: 34,3572           01700                                    V50N18FL                              
026494,002118: 34,3573           73166                                    MANUEXIT                              
026495,002119: 34,3574           34766                           CAF      BIT3                                  
026496,002120: 34,3575           00006                           EXTEND                                         #  STIKFLG IS SET
026497,002121: 34,3576           05011                           WOR      DSALMOUT                              #  TURN ON UPACTY LIGHT

Page 598

026499,002123: 34,3577           03560                           TC       ASET                                  #  EXIT AND SET R61CNTR
026500,002124: 34,3600           06006        STEP3CK            TC       INTPRET                               
026501,002125: 34,3601           43001                           SETPD    BOFF                                  
026502,002126: 34,3602           00001                                    0D                                    
026503,002127: 34,3603           04346                                    UTFLAG                                
026504,002128: 34,3604           71610                                    CRS61.2                               #  NORMAL P-20 (OPTION 0) IF UTFLAG NOT SET
026505,002129: 
026506,002130: 34,3605           53145                           DLOAD    BZE                                   #  OPTION 1,TEST FOR STAR OR PLANET
026507,002131: 34,3606           02307                                    R63TIME                               #  =0 IF STAR
026508,002132: 34,3607           73162                                    UTSTAR1                               
026509,002133:                                                                                                  #  USE NORMAL P20 PATH FOR PLANET
026510,002134:                                                                                                  #  WITH VL AND RL = 0
026511,002135:                                                                                                  #  NOW HAVE DCDUS STORED IN T(SAVEDCDU).
026512,002136:                                                                                                  #  GO CALC OTHER DAP INPUTS (DELCDU,WBODY)
026513,002137: 34,3610           52375        CRS61.2            VLOAD    VSU                                   
026514,002138: 34,3611           03204                                    DCDU                                  
026515,002139: 34,3612           03715                                    SAVEVEL                               #  DV = VL - VC
026516,002140: 34,3613           57456                           UNIT     VCOMP                                 #  V(MPAC)=-UNITDV.VAC36D=ABSDV.
026517,002141: 34,3614           74235                           VXV      VXSC                                  #  (-UNITDV)CROSS(UNITLOS).
026518,002142: 34,3615           03707                                    SAVEPOS                               
026519,002143: 34,3616           16646                                    RVCS/RDS                              #  (UNITLOS B1)(UNITDV B1)(CONST B4)=CROSS.
026520,002144: 34,3617           60325                           PDDL     NORM                                  
026521,002145: 34,3620           02307                                    R63TIME                               #  R63TIME IS TEMP STORE FOR ABS(LOS)
026522,002146: 34,3621           00047                                    X1                                    
026523,002147: 34,3622           60325                           PDDL     NORM                                  
026524,002148: 34,3623           00045                                    36D                                   #  NORM ABS VALUE OF DV(NUM).
026525,002149: 34,3624           00051                                    S1                                    
026526,002150: 
026527,002151: 34,3625           70460                           XSU,1    SR1                                   #  X1 = X1(N DENOM)-S1(N NUM).
026528,002152: 34,3626           00050                                    S1                                    #  SR1 TO AVOID OFLOW ON DDV.
026529,002153: 34,3627           74271                           DDV      VXSC                                  #  ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
026530,002154: 34,3630           53721                           MXV      VSL*                                  
026531,002155: 34,3631           01734                                    REFSMMAT                              
026532,002156: 34,3632           20163                                    0          -14D,1                     #  UNNORMALIZE,ADJUST FOR REF. AND SCALE B0
026533,002157: 34,3633           53214                           BON      VAD                                   
026534,002158: 34,3634           05707                                    AZIMFLAG                              
026535,002159: 34,3635           71637                                    +2                                    
026536,002160: 34,3636           03212                                    DTHETASM                              #  SCALED B0
026537,002161: 34,3637           00025                           STORE    20D                                   
026538,002162: 34,3640           77761                           VXSC                                           
026539,002163: 34,3641           16650                                    TENTH                                 
026540,002164: 34,3642           37212                           STCALL   DTHETASM                              #  STORE SM INCREM. ANGLES FOR SMCDURES
026541,002165: 34,3643           47530                                    CDUTRIG                               #  OBTAIN SIN,COSCDUS FOR SMCDURES.
026542,002166: 34,3644           45001                           SETPD    CALL                                  #  SMCDURES USES PUSH
026543,002167: 34,3645           00001                                    0                                     
026544,002168: 34,3646           47743                                    SMCDURES                              #  OBTAIN DELCDU IN V(DCDU).
026545,002169: 34,3647           70575                           VLOAD    VSR2                                  
026546,002170: 34,3650           03204                                    DCDU                                  
026547,002171: 34,3651           34017                           STCALL   14D                                   
026548,002172: 34,3652           47530                                    CDUTRIG                               

Page 599

026550,002174: 34,3653           45175                           VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
026551,002175: 34,3654           00025                                    20D                                   #  VECTOR FOR TRG*SMNB INTO MPAC
026552,002176: 34,3655           47633                                    *SMNB*                                #  OBTAIN ANG. RATE REFERRED TO NB (BODY)
026553,002177: 34,3656           77721                           MXV                                            
026554,002178: 34,3657           16652                                    MBDYTCTL                              #  CONVERT RATE(OMEGA) TO CONTROL COORDS.
026555,002179: 34,3660           76561                           VXSC     VSL1                                  #  MULT. BY 0.8 TO RESCALE REVS TO 450 DEG.
026556,002180: 34,3661           15272                                    POINT8                                
026557,002181: 
026558,002182: 34,3662           77776        CRS61.2A           EXIT                                           
026559,002183: 34,3663           00004                           INHINT                                         
026560,002184: 34,3664           40107                           CS       FLGWRD11                              
026561,002185: 34,3665           74761                           MASK     AZIMBIT                               
026562,002186: 34,3666           10000                           CCS      A                                     
026563,002187: 34,3667           03710                           TC       THTDXYZ                               #  AZIMFLAG NOT SET,USE THETADX,Y,Z
026564,002188: 
026565,002189: 34,3670           34767                           CAF      TWO                                   #  AZIMFLAG SET, MODIFY DELCDUS
026566,002190: 34,3671           55611        DCDULOOP           TS       DTHETASM                              
026567,002191: 34,3672           60000                           DOUBLE                                         
026568,002192: 34,3673           60120                           AD       FIXLOC                                
026569,002193: 34,3674           55612                           TS       DTHETASM   +1                         
026570,002194: 34,3675           51611                           INDEX    DTHETASM                              
026571,002195: 34,3676           31307                           CA       THETAD                                
026572,002196: 34,3677           00006                           EXTEND                                         
026573,002197: 34,3700           51611                           INDEX    DTHETASM                              
026574,002198: 34,3701           21572                           MSU      THETADX                               
026575,002199: 34,3702           00006                           EXTEND                                         
026576,002200: 34,3703           73755                           MP       1/200                                 
026577,002201: 34,3704           51612                           INDEX    DTHETASM   +1                         
026578,002202: 34,3705           20017                           DAS      14D                                   
026579,002203: 34,3706           11611                           CCS      DTHETASM                              
026580,002204: 34,3707           13671                           TCF      DCDULOOP                              
026581,002205: 34,3710           31572        THTDXYZ            CA       THETADX                               
026582,002206: 34,3711           55646                           TS       CDUXD                                 
026583,002207: 34,3712           31573                           CA       THETADY                               
026584,002208: 34,3713           55650                           TS       CDUYD                                 
026585,002209: 34,3714           31574                           CA       THETADZ                               
026586,002210: 34,3715           55652                           TS       CDUZD                                 
026587,002211: 
026588,002212: 34,3716           00006        THTD123            EXTEND                                         #  TRANSFER OMEGA CONTROL (ANG LOS RATE)
026589,002213: 34,3717           30155                           DCA      MPAC                                  #  FROM V(MPAC) TO V(WBODY ).
026590,002214: 34,3720           53526                           DXCH     WBODY                                 
026591,002215: 34,3721           00006                           EXTEND                                         
026592,002216: 34,3722           30160                           DCA      MPAC       +3                         
026593,002217: 34,3723           53530                           DXCH     WBODY1                                
026594,002218: 34,3724           00006                           EXTEND                                         
026595,002219: 34,3725           30162                           DCA      MPAC       +5                         
026596,002220: 34,3726           53532                           DXCH     WBODY2                                
026597,002221: 
026598,002222: 34,3727           00006                           EXTEND                                         #  TRANSFER CDU INCREMENTS
026599,002223: 34,3730           50120                           INDEX    FIXLOC                                #  FROM V(VAC14D) TO V(DELCDUX).

Page 600

026601,002225: 34,3731           30017                           DCA      14D                                   
026602,002226: 34,3732           53576                           DXCH     DELCDUX                               
026603,002227: 34,3733           00006                           EXTEND                                         
026604,002228: 34,3734           50120                           INDEX    FIXLOC                                
026605,002229: 34,3735           30021                           DCA      16D                                   
026606,002230: 34,3736           53600                           DXCH     DELCDUY                               
026607,002231: 34,3737           00006                           EXTEND                                         
026608,002232: 34,3740           50120                           INDEX    FIXLOC                                
026609,002233: 34,3741           30023                           DCA      18D                                   
026610,002234: 34,3742           53602                           DXCH     DELCDUZ                               
026611,002235: 34,3743           44770                           CS       ONE                                   #  NOW DAP VARIABLES LOADED. SET HOLDFLAG.
026612,002236: 34,3744           55340                           TS       HOLDFLAG                              #  TO -1.
026613,002237: 34,3745           00003                           RELINT                                         
026614,002238: 34,3746           03560                           TC       ASET                                  
026615,002239: 
026616,002240: 34,3747           43234        RCYCLR61           RTB      DAD                                   
026617,002241: 34,3750           51751                                    LOADTIME                              
026618,002242: 34,3751           33574                                    20.48SEC                              
026619,002243: 34,3752           52015                           DAD      GOTO                                  
026620,002244: 34,3753           03317                                    TM                                    
026621,002245: 34,3754           71437                                    STORT                                 
026622,002246: 34,3755  35,3573               20.48SEC           EQUALS   1RTEB17                               
026623,002247: 34,3755           00122        1/200              DEC      .005                                  
026624,002248: 35,2000                                           SETLOC   P20S8                                 
026625,002249: 35,2000                                           BANK                                           
026626,002250: 
026627,002251: 35,3160                                           COUNT*   $$/CRS61                              
026628,002252: 35,3160           00022 20476  328NM              2DEC     606844.84  B-29                       #  327.67 N.M.
026629,002253: 35,3162           77775        UTSTAR1            VLOAD                                          #  STAR, N88 PATH SET WCA, DELTA GA = 0
026630,002254: 35,3163           15336                                    ZEROVECS                              
026631,002255: 35,3164           34017                           STCALL   14D                                   #  DELTA GA AT PD1J (INCR GIMB CHANGES)
026632,002256: 35,3165           71662                                    CRS61.2A                              #  WCA IS IN MPAC (LOS RATE). SET RCS DAP
026633,002257: 
026634,002258: 35,3166           52135        MANUEXIT           SLOAD    GOTO                                  
026635,002259: 35,3167           16674                                    LOONE                                 #  OCTAL 00001
026636,002260: 35,3170           03704                                    Q611                                  
026637,002261: 
026638,002262: 35,3171           71220        R63                STQ      DLOAD                                 #  SUBR TO CALL DESIRED CDUS(T)
026639,002263: 35,3172           03705                                    Q6111                                 
026640,002264: 35,3173           02307                                    R63TIME                               
026641,002265: 35,3174           34041                           STCALL   TDEC1                                 
026642,002266: 35,3175           27170                                    CSMCONIC                              
026643,002267: 35,3176           77775                           VLOAD                                          #  SAVE CSM POSITION AND VEL
026644,002268: 35,3177           00001                                    RATT                                  #  RC B-29
026645,002269: 35,3200           27707                           STOVL    SAVEPOS                               
026646,002270: 35,3201           00007                                    VATT                                  #  VC B-7
026647,002271: 35,3202           03715                           STORE    SAVEVEL                               
026648,002272: 35,3203           77635                           VXV                                            
026649,002273: 35,3204           03707                                    SAVEPOS                               

Page 601

026651,002275: 35,3205           03357                           STORE    POINTVSM                              #  SAVE VXR
026652,002276: 35,3206           71214                           BON      DLOAD                                 
026653,002277: 35,3207           04306                                    UTFLAG                                
026654,002278: 35,3210           76425                                    UTAREA1                               #  UT OPTION 1 PROCESSING
026655,002279: 35,3211           02307                                    R63TIME                               #  NORMAL P-20 PATH
026656,002280: 35,3212           34041                           STCALL   TDEC1                                 
026657,002281: 35,3213           27202                                    LEMCONIC                              
026658,002282: 35,3214           77775                           VLOAD                                          #  SAVE LM VEL
026659,002283: 35,3215           00007                                    VATT                                  #  VL B-7
026660,002284: 35,3216           27204                           STOVL    DCDU                                  
026661,002285: 35,3217           00001                                    RATT                                  #  RL B-29
026662,002286: 35,3220           53451                           VSU      UNIT                                  
026663,002287: 35,3221           03707                                    SAVEPOS                               
026664,002288: 35,3222           17707                           STODL    SAVEPOS                               #  SAVE UNITLOS FOR CRS61.2 RATE CALC.
026665,002289: 35,3223           00045                                    36D                                   
026666,002290: 35,3224           26307                           STOVL    R63TIME                               #  SAVE ABS VAL OF LOS FOR CRS61.2
026667,002291: 35,3225           03707                                    SAVEPOS                               
026668,002292: 35,3226           77614        R63COM1            BON                                            
026669,002293: 35,3227           05707                                    AZIMFLAG                              
026670,002294: 35,3230           76462                                    UTOPT45                               #  OPTIONS 4,5
026671,002295: 35,3231           76521                           MXV      VSL1                                  #  COMMON PATH NORMAL P20,OPTION 1
026672,002296: 35,3232           01734                                    REFSMMAT                              
026673,002297: 35,3233           37357                           STCALL   POINTVSM                              #  ULOS IN STABLE MEM
026674,002298: 35,3234           74437                                    UTPRFAX                               #  COMPUTE UNIT PREFERRED VECTOR
026675,002299: 35,3235           37351                           STCALL   SCAXIS                                
026676,002300: 35,3236           56225                                    VECPOINT                              
026677,002301: 35,3237           01310                           STORE    THETAD                                #  DESIRED GIMBALS
026678,002302: 35,3240           77650                           GOTO                                           
026679,002303: 35,3241           03705                                    Q6111                                 
026680,002304: 
026681,002305: 37,2000                                           SETLOC   P20S                                  
026682,002306: 37,2000                                           BANK                                           
026683,002307: 
026684,002308: 37,2425                                           COUNT*   $$/CRS61                              
026685,002309: 37,2425           45145        UTAREA1            DLOAD    CALL                                  #  UT OPTION 1 PATH
026686,002310: 37,2426           02307                                    R63TIME                               
026687,002311: 37,2427           54136                                    LSPOS                                 
026688,002312: 37,2430           00017                           STORE    14D                                   #  RM B-29
026689,002313: 37,2431           52214                           BON      VSU                                   
026690,002314: 37,2432           04303                                    CMOONFLG                              
026691,002315: 37,2433           76445                                    UTMNCNTR                              
026692,002316: 37,2434           03707                                    SAVEPOS                               #  RC B-29
026693,002317: 37,2435           77656                           UNIT                                           
026694,002318: 37,2436           27351                           STOVL    SCAXIS                                #  VMOON = UNIT(RM-RC)
026695,002319: 37,2437           03707                                    SAVEPOS                               
026696,002320: 37,2440           57456                           UNIT     VCOMP                                 
026697,002321: 37,2441           24011                           STOVL    8D                                    #  VEARTH=-UNIT(RC)
026698,002322: 37,2442           00003                                    2D                                    #  RS B-38
026699,002323: 37,2443           52056                           UNIT     GOTO                                  
026700,002324: 37,2444           76460                                    SAVEVSUN                              #  VSUN = UNIT(RS)

Page 602

026702,002326: 37,2445           53455        UTMNCNTR           VAD      UNIT                                  #  MOON PATH
026703,002327: 37,2446           03707                                    SAVEPOS                               
026704,002328: 37,2447           77676                           VCOMP                                          
026705,002329: 37,2450           24011                           STOVL    8D                                    #  VEARTH = -UNIT(RM+RC)
026706,002330: 37,2451           03707                                    SAVEPOS                               
026707,002331: 37,2452           57456                           UNIT     VCOMP                                 
026708,002332: 37,2453           27351                           STOVL    SCAXIS                                #  VMOON = -UNIT(RC)
026709,002333: 37,2454           00017                                    14D                                   #  RM B-29
026710,002334: 37,2455           74402                           VSR8     VSR1                                  #  SCALE RM B-38
026711,002335: 37,2456           53445                           BVSU     UNIT                                  #  VSUN = UNIT(RS-RM)
026712,002336: 37,2457           00003                                    2D                                    
026713,002337: 37,2460           34003        SAVEVSUN           STCALL   2D                                    
026714,002338: 37,2461           32000                                    SAVESTAR                              
026715,002339: 
026716,002340: 15,2000                                           SETLOC   STARTAB                               
026717,002341: 15,2000                                           BANK                                           
026718,002342: 
026719,002343: 15,2000                                           COUNT*   $$/CRS61                              
026720,002344: 15,2000           47201        SAVESTAR           SETPD    VXV                                   
026721,002345: 15,2001           00001                                    0D                                    
026722,002346: 15,2002           34644                                    ECLIPOL                               
026723,002347: 15,2003           27452                           STOVL    VEL/C                                 
026724,002348: 15,2004           03715                                    SAVEVEL                               
026725,002349: 15,2005           53361                           VXSC     VAD                                   
026726,002350: 15,2006           34642                                    1/C                                   
026727,002351: 15,2007           03452                                    VEL/C                                 
026728,002352: 15,2010           27452                           STOVL    VEL/C                                 
026729,002353: 15,2011           11762                                    ZEROVEC                               
026730,002354: 15,2012           27204                           STOVL    DCDU                                  #  VL=0  FOR STAR AND PLANET
026731,002355: 15,2013           03707                                    SAVEPOS                               
026732,002356: 15,2014           53476                           VCOMP    UNIT                                  
026733,002357: 15,2015           17707                           STODL    SAVEPOS                               #  UNIT(0-RC)  FOR PLANET
026734,002358: 15,2016           00045                                    36D                                   
026735,002359: 15,2017           02307                           STORE    R63TIME                               #  ABS(O-RC) FOR PLANET
026736,002360: 15,2020           41535                           SLOAD    PUSH                                  #  PD0= STARCODE
026737,002361: 15,2021           01356                                    UTSTARNO                              #  STARCODE
026738,002362: 15,2022           67254                           BZE      SLOAD                                 
026739,002363: 15,2023           73257                                    UTVIAN88                              #  UNITLOS WAS VIA N88
026740,002364: 15,2024           32050                                    UTSP46                                
026741,002365: 15,2025           77621                           BDSU                                           #  STARCODE-46(OCTAL)
026742,002366: 15,2026           77244                           BPL      VLOAD                                 #  BRANCH IF STARCODE=46,47,50 OCTAL
026743,002367: 15,2027           73242                                    UTST4650                              
026744,002368: 15,2030           11762                                    ZEROVEC                               
026745,002369: 15,2031           17715                           STODL    SAVEVEL                               #  VC=0 FOR STAR
026746,002370: 15,2032           11762                                    ZEROVEC                               
026747,002371: 15,2033           02307                           STORE    R63TIME                               #  STAR INDICATOR USED LATER IN CRS61.2
026748,002372: 15,2034           41335                           SLOAD    DMP                                   
026749,002373: 15,2035           32047                                    UTSP6                                 
026750,002374: 15,2036           00001                                    0D                                    #  0D STILL = STARCODE
026751,002375: 15,2037           76750                           LXA,1    VLOAD*                                

Page 603

026753,002377: 15,2040           00155                                    MPAC       +1                         #  STARCODE*6
026754,002378: 15,2041           33776                                    CATLOG,1                              #  MPAC= UNIT STAR VECTOR
026755,002379: 15,2042           53455        UTABERR            VAD      UNIT                                  #  CORRECT FOR ABERRATION
026756,002380: 15,2043           03452                                    VEL/C                                 
026757,002381: 15,2044           77650                           GOTO                                           #  GOTO COMMON AREA
026758,002382: 15,2045           73226                                    R63COM1                               
026759,002383: 
026760,002384: 15,2046           00006        UTSP6              OCT      6                                     #  SINGLE PRE 6 FOR MULT STARCODE
026761,002385: 15,2047           00046        UTSP46             OCT      46                                    #  SINGLE PRE 46 FOR DETERMINING PLANET
026762,002386: 
026763,002387: 35,2000                                           SETLOC   P20S8                                 
026764,002388: 35,2000                                           BANK                                           
026765,002389: 
026766,002390: 35,3242                                           COUNT*   $$/CRS61                              
026767,002391: 35,3242           70454        UTST4650           BZE      SR1                                   #  SUN,EARTH,MOON  OR PLANET PATH
026768,002392: 35,3243           73251                                    UTSUN                                 #  STARCODE=46 OCTAL (SUN)
026769,002393: 35,3244           77230                           BHIZ     VLOAD                                 
026770,002394: 35,3245           73254                                    UTEARTH                               #  STARCODE=47 OCTAL (EARTH)
026771,002395: 35,3246           03351                                    SCAXIS                                #  VMOON     STARCODE= 50 OCTAL
026772,002396: 35,3247           77650                           GOTO                                           
026773,002397: 35,3250           32042                                    UTABERR                               
026774,002398: 
026775,002399: 35,3251           52175        UTSUN              VLOAD    GOTO                                  
026776,002400: 35,3252           00003                                    2D                                    #  VSUN
026777,002401: 35,3253           32042                                    UTABERR                               
026778,002402: 
026779,002403: 35,3254           52175        UTEARTH            VLOAD    GOTO                                  
026780,002404: 35,3255           00011                                    8D                                    #  VEARTH
026781,002405: 35,3256           32042                                    UTABERR                               
026782,002406: 
026783,002407: 35,3257           77775        UTVIAN88           VLOAD                                          #  UNITLOS IN STARSAV3 VIA N88
026784,002408: 35,3260           15336                                    ZEROVECS                              
026785,002409: 35,3261           17715                           STODL    SAVEVEL                               #  VC = 0 FOR N88 VECTOR
026786,002410: 35,3262           15336                                    ZEROVECS                              
026787,002411: 35,3263           26307                           STOVL    R63TIME                               #  STAR INDICATOR USED LATER IN CRS61.2
026788,002412: 35,3264           03732                                    PLANVCUT                              #  N88 UNIT VECTOR BAS REF
026789,002413: 35,3265           53561                           VXSC     UNIT                                  
026790,002414: 35,3266           33272                                    1/SQRT3                               
026791,002415: 35,3267           77650                           GOTO                                           
026792,002416: 35,3270           32042                                    UTABERR                               
026793,002417: 
026794,002418: 35,3271           22363 11623  1/SQRT3            2DEC     .57735021                             #  1/SQUARE ROOT 3  B-0
026795,002419: 
026796,002420: 
026797,002421: 37,2000                                           SETLOC   P20S                                  
026798,002422: 37,2000                                           BANK                                           
026799,002423: 
026800,002424: 37,2462                                           COUNT*   $$/CRS61                              
026801,002425: 37,2462  23,3526               UT166              EQUALS   .166...                               

Page 604

026803,002427: 37,2462                        UTSAP              =        0D                                    #  SA PRIME
026804,002428: 37,2462                        UTSBP              =        6D                                    #  SB PRIME
026805,002429: 37,2462                        UTSA               =        18D                                   #  SA
026806,002430: 37,2462                        UTSB               =        24D                                   #  SB
026807,002431: 37,2462                        UTUXP              =        0D                                    #  UX PRIME
026808,002432: 37,2462                        UTUYP              =        6D                                    #  UY PRIME
026809,002433: 37,2462                        UTUZP              =        12D                                   #  UZ PRIME
026810,002434: 37,2462                        UTUX               =        18D                                   #  UX
026811,002435: 37,2462                        UTUY               =        24D                                   #  UY
026812,002436: 37,2462                        UTUZ               =        30D                                   #  UZ
026813,002437:                                                                                                  # UTX            =       SCAXIS          X
026814,002438:                                                                                                  # UTY            =       POINTVSM        Y
026815,002439: 37,2462                        UTZ                =        0D                                    #  Z AFTER UNIT
026816,002440: 37,2462                        UTZINIT            =        36D                                   #  Z BEFORE UNIT
026817,002441: 37,2462                        UTAMG              =        6D                                    #  AMG
026818,002442: 37,2462                        UTOGA              =        24D                                   #  OGA REVS B-0
026819,002443: 37,2462     0032               UTIGA              =        UTOGA      +2                         #  IGA REVS B-0
026820,002444: 37,2462     0034               UTMGA              =        UTOGA      +4                         #  MGA REVS B-0
026821,002445: 
026822,002446: 37,2462           34031        UTOPT45            STCALL   UTSB                                  #  SB= ULOS BASIC REF. IN MPAC B-1
026823,002447: 37,2463           74437                                    UTPRFAX                               
026824,002448: 37,2464           00007                           STORE    UTSBP                                 #  SB PRIME NAV BASE B-1
026825,002449: 
026826,002450: 37,2465           53435                           VXV      UNIT                                  
026827,002451: 37,2466           15332                                    UNITY                                 
026828,002452: 37,2467           24001                           STOVL    UTSAP                                 #  SA PRIME=(SB PRIME)X(0,1,0) B-1 NAV B
026829,002453: 37,2470           00031                                    UTSB                                  
026830,002454: 37,2471           53435                           VXV      UNIT                                  
026831,002455: 37,2472           03357                                    POINTVSM                              #  VXR   SAVED ABOVE
026832,002456: 37,2473           17357                           STODL    POINTVSM                              #  ULOS X (VXR) B-1
026833,002457: 37,2474           01353                                    AZIMANGL                              
026834,002458: 37,2475           74346                           COS      VXSC                                  
026835,002459: 37,2476           03357                                    POINTVSM                              
026836,002460: 37,2477           27351                           STOVL    SCAXIS                                #  B-2
026837,002461: 37,2500           00031                                    UTSB                                  
026838,002462: 37,2501           53435                           VXV      UNIT                                  
026839,002463: 37,2502           03357                                    POINTVSM                              
026840,002464: 37,2503           17357                           STODL    POINTVSM                              #  ULOS X (ULOS X (VXR)) B-1
026841,002465: 37,2504           01353                                    AZIMANGL                              
026842,002466: 37,2505           74356                           SIN      VXSC                                  #  B-2
026843,002467: 37,2506           03357                                    POINTVSM                              
026844,002468: 37,2507           76455                           VAD      VSL1                                  
026845,002469: 37,2510           03351                                    SCAXIS                                
026846,002470: 37,2511           24023                           STOVL    UTSA                                  #  SA B-1
026847,002471: 37,2512           00001                                    UTSAP                                 #                          START AXISGEN
026848,002472: 37,2513           53435                           VXV      UNIT                                  #  UX PRIME ALREADY IN UTUXP B-1
026849,002473: 37,2514           00007                                    UTSBP                                 #  UY       ALREADY IN UTUX  B-1
026850,002474: 37,2515           24007                           STOVL    UTUYP                                 #  UZ PRIME B-1
026851,002475: 37,2516           00001                                    UTUXP                                 
026852,002476: 37,2517           76435                           VXV      VSL1                                  

Page 605

026854,002478: 37,2520           00007                                    UTUYP                                 
026855,002479: 37,2521           24015                           STOVL    UTUZP                                 #  UZ PRIME B-1
026856,002480: 37,2522           00023                                    UTSA                                  
026857,002481: 37,2523           53435                           VXV      UNIT                                  
026858,002482: 37,2524           00031                                    UTSB                                  
026859,002483: 37,2525           24031                           STOVL    UTUY                                  #  UY B-1
026860,002484: 37,2526           00023                                    UTUX                                  
026861,002485: 37,2527           76435                           VXV      VSL1                                  
026862,002486: 37,2530           00031                                    UTUY                                  
026863,002487: 37,2531           24037                           STOVL    UTUZ                                  #  UZ B-1
026864,002488: 37,2532           00023                                    UTUX                                  
026865,002489: 37,2533           77761                           VXSC                                           
026866,002490: 37,2534           00001                                    UTUXP                                 
026867,002491: 37,2535           37351                           STCALL   UTX                                   
026868,002492: 37,2536           73273                                    UTOPT45A                              
026869,002493: 
026870,002494: 35,2000                                           SETLOC   P20S8                                 
026871,002495: 35,2000                                           BANK                                           
026872,002496: 
026873,002497: 35,3273                                           COUNT*   $$/CRS61                              
026874,002498: 35,3273           77775        UTOPT45A           VLOAD                                          
026875,002499: 35,3274           00031                                    UTUY                                  
026876,002500: 35,3275           53361                           VXSC     VAD                                   
026877,002501: 35,3276           00007                                    UTUYP                                 
026878,002502: 35,3277           03351                                    UTX                                   
026879,002503: 35,3300           27351                           STOVL    UTX                                   
026880,002504: 35,3301           00037                                    UTUZ                                  
026881,002505: 35,3302           53361                           VXSC     VAD                                   
026882,002506: 35,3303           00015                                    UTUZP                                 
026883,002507: 35,3304           03351                                    UTX                                   
026884,002508: 35,3305           27351                           STOVL    UTX                                   #  UX NOT UNIT YET
026885,002509: 35,3306           00023                                    UTUX                                  
026886,002510: 35,3307           77761                           VXSC                                           
026887,002511: 35,3310           00003                                    UTUXP      +2                         
026888,002512: 35,3311           27357                           STOVL    UTY                                   
026889,002513: 35,3312           00031                                    UTUY                                  
026890,002514: 35,3313           53361                           VXSC     VAD                                   
026891,002515: 35,3314           00011                                    UTUYP      +2                         
026892,002516: 35,3315           03357                                    UTY                                   
026893,002517: 35,3316           27357                           STOVL    UTY                                   
026894,002518: 35,3317           00037                                    UTUZ                                  
026895,002519: 35,3320           53361                           VXSC     VAD                                   
026896,002520: 35,3321           00017                                    UTUZP      +2                         
026897,002521: 35,3322           03357                                    UTY                                   
026898,002522: 35,3323           27357                           STOVL    UTY                                   #  UY NOT UNIT YET
026899,002523: 35,3324           00023                                    UTUX                                  
026900,002524: 35,3325           77761                           VXSC                                           
026901,002525: 35,3326           00005                                    UTUXP      +4                         
026902,002526: 35,3327           24045                           STOVL    UTZINIT                               
026903,002527: 35,3330           00031                                    UTUY                                  

Page 606

026905,002529: 35,3331           53361                           VXSC     VAD                                   
026906,002530: 35,3332           00013                                    UTUYP      +4                         
026907,002531: 35,3333           00045                                    UTZINIT                               
026908,002532: 35,3334           24045                           STOVL    UTZINIT                               
026909,002533: 35,3335           00037                                    UTUZ                                  
026910,002534: 35,3336           53361                           VXSC     VAD                                   
026911,002535: 35,3337           00021                                    UTUZP      +4                         
026912,002536: 35,3340           00045                                    UTZINIT                               
026913,002537: 35,3341           77656                           UNIT                                           #  UTUZ AND UTZINIT ARE CLOBBERED BY UNIT
026914,002538: 35,3342           24001                           STOVL    UTZ                                   #  UZ B-1
026915,002539: 35,3343           03357                                    UTY                                   
026916,002540: 35,3344           77656                           UNIT                                           
026917,002541: 35,3345           27357                           STOVL    UTY                                   #  UY B-1
026918,002542: 35,3346           03351                                    UTX                                   
026919,002543: 35,3347           77656                           UNIT                                           
026920,002544: 35,3350           03351                           STORE    UTX                                   #  UX B-1    END AXISGEN
026921,002545: 35,3351           53435                           VXV      UNIT                                  #            STATR CALCGA
026922,002546: 35,3352           01742                                    REFSMMAT   +6                         #  YSM
026923,002547: 35,3353           00007                           STORE    UTAMG                                 #  AMG B-1
026924,002548: 35,3354           77641                           DOT                                            
026925,002549: 35,3355           00001                                    UTZ                                   
026926,002550: 35,3356           24021                           STOVL    COSTH                                 #  COS(OGA)= AMG.ZNB B-2
026927,002551: 35,3357           00007                                    UTAMG                                 
026928,002552: 35,3360           77641                           DOT                                            
026929,002553: 35,3361           03357                                    UTY                                   
026930,002554: 35,3362           34023                           STCALL   SINTH                                 #  SIN(OGA)= AMG.YNB B-2
026931,002555: 35,3363           47311                                    ARCTRIG                               
026932,002556: 35,3364           24031                           STOVL    UTOGA                                 #  OGA REVS B-0
026933,002557: 35,3365           00007                                    UTAMG                                 
026934,002558: 35,3366           50235                           VXV      DOT                                   
026935,002559: 35,3367           03351                                    UTX                                   
026936,002560: 35,3370           01742                                    REFSMMAT   +6                         
026937,002561: 35,3371           77752                           SL1                                            
026938,002562: 35,3372           24021                           STOVL    COSTH                                 #  COS(MGA)= YSM.(AMG X XNB) B-2
026939,002563: 35,3373           01742                                    REFSMMAT   +6                         
026940,002564: 35,3374           77641                           DOT                                            
026941,002565: 35,3375           03351                                    UTX                                   
026942,002566: 35,3376           34023                           STCALL   SINTH                                 #  SIN(MGS)= YSM.XNB B-2
026943,002567: 35,3377           47311                                    ARCTRIG                               
026944,002568: 35,3400           00035                           STORE    UTMGA                                 #  MGA REVS B-0
026945,002569: 35,3401           45246                           ABS      DSU                                   
026946,002570: 35,3402           07527                                    UT166                                 
026947,002571: 35,3403           77644                           BPL                                            
026948,002572: 35,3404           73425                                    UTGMLOCK                              
026949,002573: 35,3405           50375        UTCGA1             VLOAD    DOT                                   
026950,002574: 35,3406           01750                                    REFSMMAT   +12D                       
026951,002575: 35,3407           00007                                    UTAMG                                 
026952,002576: 35,3410           24021                           STOVL    COSTH                                 #  COS(IGA)= AMG.ZSM B-2
026953,002577: 35,3411           01734                                    REFSMMAT                              
026954,002578: 35,3412           77641                           DOT                                            

Page 607

026956,002580: 35,3413           00007                                    UTAMG                                 
026957,002581: 35,3414           34023                           STCALL   SINTH                                 #  SIN(IGA)= ANG.XSM B-2
026958,002582: 35,3415           47311                                    ARCTRIG                               
026959,002583: 35,3416           00033                           STORE    UTIGA                                 #  IGA REVS B-0
026960,002584: 35,3417           47175                           VLOAD    RTB                                   
026961,002585: 35,3420           00031                                    UTOGA                                 #  CONVERT TO 2S COMP
026962,002586: 35,3421           45644                                    V1STO2S                               #  ORDER IS OGA,IGA,MGA
026963,002587: 35,3422           01310                           STORE    THETAD                                #  TRIPLE PREC
026964,002588: 35,3423           77650                           GOTO                                           
026965,002589: 35,3424           03705                                    Q6111                                 #  EXIT R63
026966,002590: 
026967,002591: 35,3425           77776        UTGMLOCK           EXIT                                           #  GIMBAL LOCK HAS OCCURED
026968,002592: 35,3426           05671                           TC       ALARM                                 
026969,002593: 35,3427           00401                           OCT      00401                                 
026970,002594: 
026971,002595: 35,3430           06006                           TC       INTPRET                               
026972,002596: 35,3431           77650                           GOTO                                           
026973,002597: 35,3432           73405                                    UTCGA1                                
026974,002598: 
026975,002599: 27,2000                                           SETLOC   R22S1                                 
026976,002600: 27,2000                                           BANK                                           
026977,002601: 
026978,002602: 27,2636                                           COUNT*   $$/CRS61                              
026979,002603: 27,2636           05057 23015  RADTOREV           2DEC     0.15915494                            #  RADIANS TO REV
026980,002604: 27,2640           07702        COSTEN             DEC      0.98481    B-2                        #  COSINE OF 10 DEG.
026981,002605: 27,2641           00034 20206  MAXRATE            2DEC     0.00174                               #  .1 DEG./SEC. RATE
026982,002606: 27,2643           06315        DELTYME            DEC      0.05       B2                         #  1/DELTA TIME  = 1/20 SEC
026983,002607: 27,2644           01616        DEGREE10           DEC      .05556                                #  10 DEG IN REV
026984,002608: 27,2645           37651 16721  RVCS/RDS           2DEC     15.915494  B-4                        #  100/2PI REV-CSEC/RAD-SEC.
026985,002609: 27,2647           31463 06315  TENTH              2DEC     .1         B+3                        #  .1 B-3 (TO SCALE ANG.RATE TO .1 INREMS)
026986,002610: 27,2651           20000 00000  MBDYTCTL           2DEC     .5                                    #                  7.25 DEG NEGATIVE
026987,002611: 27,2653           00000 00000                     2DEC     0          B-28                       #                  X-AXIS ROTATION MATRIX
026988,002612: 27,2655           00000 00000                     2DEC     0          B-28                       #                  CONVERTS BODY TO CTL
026989,002613: 27,2657           00000 00000                     2DEC     0          B-28                       #                  AXES. SAME AS QUADROT
026990,002614: 27,2661           17676 20113                     2DEC     .99200495  B-1                        #  COS7.25 B1     BUT SCALED B1
026991,002615: 27,2663           75766 45544                     2DEC     -.12619897 B-1                        #  -SIN7.25 B1
026992,002616: 27,2665           00000 00000                     2DEC     0          B-28                       
026993,002617: 27,2667           02011 32233                     2DEC     .12619897  B-1                        #  SIN7.25 B1

Page 608

026995,002619: 27,2671           17676 20113                     2DEC     .99200495  B-1                        #  COS7.25 B1
026996,002620: 27,2673           00001        LOONE              OCT      00001                                 #  TO SET MPAC = 00001 FOR SPECIAL EXIT.
026997,002621: 27,2674     7673               FURST3             EQUALS   13,14,15                              #  CONSTANT FOR AUTOCK (OCT 70000).
026998,002622: 

Page 609

027000,002624: 
027001,002625:                                                                                                  #  ..... S22.1 ORBITAL NAVIGATION ROUTINE
027002,002626:                                                                                                  #  MOD 1
027003,002627: 
027004,002628:                                                                                                  #  FUNCTIONAL DESCRIPTION
027005,002629:                                                                                                  #   1. UPDATE CSM STATE VECTOR
027006,002630:                                                                                                  #   2. UPDATE LANDMARK POSITION
027007,002631:                                                                                                  #   3. CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS
027008,002632: 
027009,002633:                                                                                                  #  SUBROUTINES CALLED
027010,002634:                                                                                                  #   INTSTALL,INTEGRV,GETUM,SETRE,R-TO-TP,RP-TO-R,BVECTORS,INCORP1,INCORP2
027011,002635:                                                                                                  #   LALOTORV,S22F2410,LAT-LONG,ROWDOT
027012,002636: 
027013,002637:                                                                                                  #  ERASABLE INITIALIZATION
027014,002638:                                                                                                  #   W=9X9 MATRIX
027015,002639:                                                                                                  #   ORBWFLAG=0 FOR INVALID W MATRIX,=1 FOR VALID W MATRIX
027016,002640:                                                                                                  #   ASTRONAUT ENTRY OF KNOWN,L,OFF
027017,002641:                                                                                                  #   8NN= NUMBER OF MARKS  DECIMAL INTEGER B-14
027018,002642:                                                                                                  #   REFSMMAT= TRANSFORMATION MATRIX
027019,002643:                                                                                                  #   MARKSTAT= ADDRESS OF START OF MARK DATA (MARK DATA OF EACH MARK IS
027020,002644:                                                                                                  #             STORED AS FOLLOWS,  TIME,AIG,SA,AMG,PA,AOG) TIME IS IN DOUBLE
027021,002645:                                                                                                  #             PRECISION,ALL OTHERS ARE IN SINGLE PRECISION
027022,002646:                                                                                                  #   CSM STATE VECTOR
027023,002647: 
027024,002648:                                                                                                  #  OUTPUT
027025,002649:                                                                                                  #   UPDATED CSM STATE VECTOR
027026,002650:                                                                                                  #   UPDATED LANDMARK POSITION
027027,002651:                                                                                                  #   NEW 6 DIMENSIONAL W MATRIX
027028,002652: 
027029,002653:                                                                                                  #  DEBRIS
027030,002654:                                                                                                  #   PUSH LIST,CSMPOS,ALPHAV,ERADM,UM,RCLP,USTAR,VARIANCE,X789,BVECTOR,8KK,
027031,002655:                                                                                                  #   S22LOC,SVMRKDAT TABLE,22SUBSCL,LANDMARK,CXOFF,S22C,LAT,LONG,ALT,
027032,002656:                                                                                                  #   TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
027033,002657: 
027034,002658: 30,2000                                           SETLOC   P20S6                                 
027035,002659: 30,2000                                           BANK                                           
027036,002660: 
027037,002661: 30,2466  E7,1751                                  EBANK=   LANDMARK                              
027038,002662: 30,2466                                           COUNT*   $$/P22                                
027039,002663: 30,2466           05362        S22.1              TC       2PHSCHNG                              
027040,002664: 30,2467           00004                           OCT      00004                                 
027041,002665: 30,2470           05022                           OCT      05022                                 
027042,002666: 30,2471           13000                           OCT      13000                                 
027043,002667: 30,2472           06006                           TC       INTPRET                               
027044,002668: 30,2473           45001                           SETPD    CALL                                  
027045,002669: 30,2474           00001                                    0D                                    
027046,002670: 30,2475           56603                                    SHIFTNDX                              
027047,002671: 30,2476           45134        FIG2EXIT           SXA,2    CALL                                  
027048,002672: 30,2477           03673                                    S22EORM                               #  SET =0 EARTH,=2 MOON FOR SHIFTING
027049,002673: 30,2500           56462                                    SETINTG                               
027050,002674:                                                                                                  #                FLOWCHART D=0   THEN DIM0FLAG=0  D6OR9FLG NOT TESTED

Page 610

027052,002676:                                                                                                  #                FLOWCHART D=6   THEN DIM0FLAG=1  D6OR9FLG=0
027053,002677:                                                                                                  #                FLOWCHART D=9   THEN DIM0FLAG=1  D6OR9FLG=1
027054,002678: 
027055,002679: 30,2501           43014                           BOFF     SETGO                                 
027056,002680: 30,2502           01751                                    ORBWFLAG                              
027057,002681: 30,2503           60506                                    SETWW5D                               #  BRANCH TO SET W0-W5,ORBWFLAG,D
027058,002682: 30,2504           01436                                    DIM0FLAG                              #  FLOWCHART D=6 PATH
027059,002683: 30,2505           60513                                    SETVANDI                              
027060,002684: 30,2506           71214        SETWW5D            CLEAR    DLOAD                                 
027061,002685: 30,2507           02676                                    RENDWFLG                              #  FLOWCHART D=0 PATH
027062,002686: 30,2510           02005                                    WORBPOS                               
027063,002687: 30,2511           34001                           STCALL   0                                     
027064,002688: 30,2512           56612                                    INITIALW                              
027065,002689: 30,2513           77370        SETVANDI           AXT,1    VLOAD                                 
027066,002690: 30,2514           00022                           DEC      18         B-14                       
027067,002691: 30,2515           15336                                    ZEROVECS                              
027068,002692: 30,2516           77731                           SSP                                            
027069,002693: 30,2517           00051                                    S1                                    
027070,002694: 30,2520           00006                           DEC      6          B-14                       
027071,002695: 30,2521           06467        NEXTW2W8           STORE    W          +54D,1                     #  CLEAR W2
027072,002696: 30,2522           06555                           STORE    W          +108D,1                    #        W5
027073,002697: 30,2523           06577                           STORE    W          +126D,1                    #        W6
027074,002698: 30,2524           06621                           STORE    W          +144D,1                    #        W7
027075,002699: 30,2525           06643                           STORE    W          +162D,1                    #        W8
027076,002700: 30,2526           43100                           TIX,1    CLEAR                                 
027077,002701: 30,2527           60521                                    NEXTW2W8                              
027078,002702: 30,2530           02666                                    DMENFLG                               #  0=6X6W, 1=9X9W
027079,002703: 30,2531           77624        S22NXTIN           CALL                                           
027080,002704: 30,2532           62357                                    GETTF                                 
027081,002705: 30,2533           34041                           STCALL   TDEC1                                 
027082,002706: 30,2534           27236                                    INTEGRV                               
027083,002707: 30,2535           45154                           LXA,2    CALL                                  
027084,002708: 30,2536           03673                                    S22EORM                               
027085,002709: 30,2537           71327                                    CMPOS                                 
027086,002710: 30,2540           45140                           LXC,1    CALL                                  
027087,002711: 30,2541           03750                                    S22LOC                                #  SETUP ADDR. OF MARK DATA FOR GETUM SUBR.
027088,002712: 30,2542           47017        S2GETUM                     GETUM                                 
027089,002713: 30,2543           01072                           STORE    UM                                    
027090,002714: 30,2544           41535        DMPINTEG           SLOAD    PUSH                                  #  TEST OFF=I
027091,002715: 30,2545           03746                                    8KK                                   
027092,002716: 30,2546           45335                           SLOAD    DSU                                   
027093,002717: 30,2547           03745                                    CXOFF                                 #  BEFORE SUBT.
027094,002718: 30,2550           43030                           BHIZ     BON                                   
027095,002719: 30,2551           61042                                    S22OFF=I                              #  BRANCH HERE IF OFF=I
027096,002720: 30,2552           02706                                    DMENFLG                               #  0=6X6W, 1=9X9W
027097,002721: 30,2553           61050                                    S22D=9                                
027098,002722: 30,2554           77624                           CALL                                           
027099,002723: 30,2555           22327                                    GRP2PC                                
027100,002724: 30,2556           77614                           SET                                            
027101,002725: 30,2557           01471                                    ORBWFLAG                              

Page 611

027103,002727: 30,2560           43014                           SET      SET                                   
027104,002728: 30,2561           02466                                    DMENFLG                               #  =0 ON FIRST PASS THRU HERE FOR D=0,OR6
027105,002729: 30,2562           01062                                    22DSPFLG                              #  =1 TO DISPLAY DR,DV ON FIRST PASS
027106,002730: 30,2563           77614                           BON                                            
027107,002731: 30,2564           03307                                    KNOWNFLG                              
027108,002732: 30,2565           61204                                    S22BOX22                              
027109,002733: 30,2566           53575                           VLOAD    UNIT                                  #  UNIT ALSO PUTS ABVAL(RC) IN 36D
027110,002734: 30,2567           01046                                    CSMPOS                                
027111,002735: 30,2570           36152                           STCALL   ALPHAV                                #  ALPHAV +4=SINL FOR SETRE
027112,002736: 30,2571           26654                                    SETRE                                 #  ERADM= R0 METERS B-29 BOTH EARTH/MOON
027113,002737: 30,2572           77624                           CALL                                           #  COMPUTE RL FROM EQUATION 2.4.10
027114,002738: 30,2573           61331                                    S22F2410                              #  STORED IN X789,MPAC  B-27,B-29
027115,002739: 30,2574           70414                           BOFF     VSR2                                  #  SCALE RL B-29 FOR BOTH EARTH/MOON
027116,002740: 30,2575           04343                                    CMOONFLG                              
027117,002741: 30,2576           60577                                    +1                                    
027118,002742: 30,2577           02555                           STORE    S22RL                                 
027119,002743: 30,2600           72441                           DOT      SL1                                   
027120,002744: 30,2601           01072                                    UM                                    
027121,002745: 30,2602           24037                           STOVL    S22D                                  #  D= UM.RL B-29
027122,002746: 30,2603           15336                                    ZEROVECS                              
027123,002747: 30,2604           41401                           SETPD    PUSH                                  
027124,002748: 30,2605           00001                                    0D                                    
027125,002749: 30,2606           65206                           PUSH     PDDL                                  #  SET 0-18D = I BACKWARDS
027126,002750: 30,2607           15334                                    HIDPHALF                              #  PD 18
027127,002751: 30,2610           77702                           SR2                                            #  B-3
027128,002752: 30,2611           00005                           STORE    4D                                    
027129,002753: 30,2612           00011                           STORE    8D                                    
027130,002754: 30,2613           24015                           STOVL    12D                                   
027131,002755: 30,2614           01072                                    UM                                    #  B-1
027132,002756: 30,2615           24023                           STOVL    S223X1                                
027133,002757: 30,2616           02555                                    S22RL                                 #  B-29
027134,002758: 30,2617           77624                           CALL                                           #  (UM)(RL T) B-30 STORED IN S22UMRL THRU
027135,002759: 30,2620           62340                                    S2231X13                              #  S22UMRL +17D
027136,002760: 30,2621           66370                           AXT,1    SSP                                   
027137,002761: 30,2622           00022                           DEC      18         B-14                       
027138,002762: 30,2623           00051                                    S1                                    
027139,002763: 30,2624           00006                           DEC      6          B-14                       
027140,002764: 30,2625           70573        S22NXTU            VLOAD*   VSR2                                  #  (UM)(RL T) B-32
027141,002765: 30,2626           03524                                    S22UMRL    +18D,1                     
027142,002766: 30,2627           77741                           V/SC                                           
027143,002767: 30,2630           00037                                    S22D                                  #  D B-29
027144,002768: 30,2631           45445                           BVSU     STADR                                 #  SUBTRACT FROM I B-3
027145,002769: 30,2632           70253                           STORE    S22UMRL    +18D,1                     #  U MATRIX B-3
027146,002770: 30,2633           76100                           TIX,1    AXT,1                                 #  PD 0 AFTER TIX
027147,002771: 30,2634           60625                                    S22NXTU                               
027148,002772: 30,2635           00044                           DEC      36         B-14                       #  S1 STILL 6 FROM ABOVE
027149,002773: 30,2636           64373        S22NXTWI           VLOAD*   MXV                                   
027150,002774: 30,2637           02445                                    W          +36D,1                     #  B-19
027151,002775: 30,2640           03502                                    S22UMRL                               #  B-3
027152,002776: 30,2641           77732                           VSL3                                           

Page 612

027154,002778: 30,2642           06621                           STORE    W          +144D,1                    #  W(I+18)= UW(I) B-19
027155,002779: 30,2643           71300                           TIX,1    DLOAD                                 
027156,002780: 30,2644           60636                                    S22NXTWI                              
027157,002781: 30,2645           00041                                    S22RHO                                #  B-28,B-30
027158,002782: 30,2646           60414                           BOFF     SR2                                   #  MAKE RHO B-30
027159,002783: 30,2647           04343                                    CMOONFLG                              
027160,002784: 30,2650           60651                                    +1                                    
027161,002785: 30,2651           57101                           NORM     XAD,2                                 
027162,002786: 30,2652           00050                                    X2                                    
027163,002787: 30,2653           00047                                    X2                                    
027164,002788: 30,2654           41316                           DSQ      DMP                                   
027165,002789: 30,2655           24024                                    SCTVAR                                #  B+18
027166,002790: 30,2656           76142                           SR1      AXT,1                                 #  ACCOUNTS FOR 1/2 IN NEXT FORMULA
027167,002791: 30,2657           00022                           DEC      18         B-14                       
027168,002792: 30,2660           00041                           STORE    S22RHO                                #  1/2(RHO SQ)(VARSCT)
027169,002793: 30,2661           64373        S22NXXA            VLOAD*   MXV                                   
027170,002794: 30,2662           03524                                    S22UMRL    +18D,1                     #  B-3
027171,002795: 30,2663           03502                                    S22UMRL                               #  B-3
027172,002796: 30,2664           53761                           VXSC     VSR*                                  
027173,002797: 30,2665           00041                                    S22RHO                                
027174,002798: 30,2666           57212                                    0          -12D,2                     #  WITH VARRP SCALED B-28
027175,002799: 30,2667           05136                           STORE    S22UUT     +18D,1                     #  1/2(RHO SQ)(VARSCT)(U)(U T)
027176,002800: 30,2670           77300                           TIX,1    VLOAD                                 
027177,002801: 30,2671           60661                                    S22NXXA                               
027178,002802: 30,2672           01072                                    UM                                    
027179,002803: 30,2673           34023                           STCALL   S223X1                                #  UM ALSO IN MPAC FOR S2231X13 SUBR.
027180,002804: 30,2674           62340                                    S2231X13                              #  (UM)(UM T) B-2 IN S22UMRL,P17D
027181,002805: 30,2675           50545                           DLOAD    SR3                                   
027182,002806: 30,2676           02240                                    ERADM                                 #  R0 B-29
027183,002807: 30,2677           63471                           DDV      DSQ                                   
027184,002808: 30,2700           00037                                    S22D                                  #  B-29
027185,002809: 30,2701           76005                           DMP      AXT,1                                 
027186,002810: 30,2702           02010                                    RPVAR                                 #  ***** METERS SQ
027187,002811: 30,2703           00022                           DEC      18         B-14                       
027188,002812: 30,2704           00041                           STORE    S22RHO                                #  TEMP (VARRP)(R0/D)
027189,002813: 30,2705           74373        S22NXXB            VLOAD*   VXSC                                  
027190,002814: 30,2706           03524                                    S22UMRL    +18D,1                     #  (UM)(UM T) B-2
027191,002815: 30,2707           00041                                    S22RHO                                
027192,002816: 30,2710           77653                           VAD*                                           
027193,002817: 30,2711           01136                                    S22UUT     +18D,1                     
027194,002818: 30,2712           05136                           STORE    S22UUT     +18D,1                     #  SMALL E MATRIX
027195,002819: 30,2713           40100                           TIX,1    BOV                                   
027196,002820: 30,2714           60705                                    S22NXXB                               
027197,002821: 30,2715           60716                                    +1                                    
027198,002822: 30,2716           50145                           DLOAD    BMN                                   
027199,002823: 30,2717           01134                                    S22UUT     +16D                       #  E5
027200,002824: 30,2720           60741                                    S22W76X                               
027201,002825: 30,2721           53166                           SQRT     BZE                                   
027202,002826: 30,2722           60741                                    S22W76X                               
027203,002827: 30,2723           77742                           SR1                                            #  B-19

Page 613

027205,002829: 30,2724           16625                           STODL    W          +148D                      #  W74= SQ ROOT E5
027206,002830: 30,2725           01132                                    S22UUT     +14D                       #  E4
027207,002831: 30,2726           40071                           DDV      BOV                                   
027208,002832: 30,2727           02625                                    W          +148D                      
027209,002833: 30,2730           60733                                    S22W72X                               
027210,002834: 30,2731           77702                           SR2                                            #  B-19
027211,002835: 30,2732           02623                           STORE    W          +146D                      #  W73= E4/W74
027212,002836: 30,2733           56345        S22W72X            DLOAD    DDV                                   
027213,002837: 30,2734           01130                                    S22UUT     +12D                       #  E3
027214,002838: 30,2735           02625                                    W          +148D                      
027215,002839: 30,2736           40102                           SR2      BOV                                   #  B-19
027216,002840: 30,2737           60741                                    S22W76X                               
027217,002841: 30,2740           02621                           STORE    W          +144D                      #  W72= E3/W74
027218,002842: 30,2741           63545        S22W76X            DLOAD    DSQ                                   
027219,002843: 30,2742           02623                                    W          +146D                      
027220,002844: 30,2743           44312                           SL2      BDSU                                  
027221,002845: 30,2744           01124                                    S22UUT     +8D                        #  E2
027222,002846: 30,2745           75440                           BMN      SQRT                                  
027223,002847: 30,2746           60763                                    S22W78X                               
027224,002848: 30,2747           70454                           BZE      SR1                                   #  B-19
027225,002849: 30,2750           60763                                    S22W78X                               
027226,002850: 30,2751           16631                           STODL    W          +152D                      #  W76= SQ ROOT (E2-W73 SQ)
027227,002851: 30,2752           02621                                    W          +144D                      #  W72
027228,002852: 30,2753           62405                           DMP      SL2                                   
027229,002853: 30,2754           02623                                    W          +146D                      #  W73
027230,002854: 30,2755           56221                           BDSU     DDV                                   
027231,002855: 30,2756           01122                                    S22UUT     +6D                        #  E1
027232,002856: 30,2757           02631                                    W          +152D                      #  W76
027233,002857: 30,2760           60400                           BOV      SR2                                   #  B-19
027234,002858: 30,2761           60763                                    S22W78X                               
027235,002859: 30,2762           02627                           STORE    W          +150D                      #  W75= (E1-W72W73)/W76
027236,002860: 30,2763           63545        S22W78X            DLOAD    DSQ                                   
027237,002861: 30,2764           02627                                    W          +150D                      
027238,002862: 30,2765           63525                           PDDL     DSQ                                   
027239,002863: 30,2766           02621                                    W          +144D                      #  W72
027240,002864: 30,2767           62415                           DAD      SL2                                   
027241,002865: 30,2770           50021                           BDSU     BMN                                   
027242,002866: 30,2771           01114                                    S22UUT                                #  E0
027243,002867: 30,2772           60775                                    S22SAVET                              
027244,002868: 30,2773           70566                           SQRT     SR1                                   #  B-19
027245,002869: 30,2774           02635                           STORE    W          +156D                      #  W78= SQ RT(E0-W72 SQ-W75 SQ)
027246,002870: 30,2775           77624        S22SAVET           CALL                                           
027247,002871: 30,2776           62357                                    GETTF                                 
027248,002872: 30,2777           03672                           STORE    S22TPRIM                              #  SAVE PRESENT TIME FOR PIOS
027249,002873: 30,3000           77776        S22I=N             EXIT                                           #  TEST I=N
027250,002874: 30,3001           05402                           TC       PHASCHNG                              
027251,002875: 30,3002           04022                           OCT      04022                                 
027252,002876: 30,3003           41745                           CS       8KK                                   
027253,002877: 30,3004           61747                           AD       8NN                                   
027254,002878: 30,3005           00006                           EXTEND                                         

Page 614

027256,002880: 30,3006           63222                           BZMF     S22F244X                              #  EXIT TO FIGURE 2.4-4
027257,002881: 30,3007           31745                           CA       8KK                                   #  I=I+1
027258,002882: 30,3010           64770                           AD       ONE                                   
027259,002883: 30,3011           55135                           TS       TEMPOR1                               
027260,002884: 30,3012           31750                           CA       S22LOC                                #  ADD 7 TO LOC TO GET ADDR. OF NEXT MARK
027261,002885: 30,3013           64774                           AD       SEVEN                                 
027262,002886: 30,3014           55136                           TS       TEMPOR1    +1                         
027263,002887: 30,3015           05402                           TC       PHASCHNG                              
027264,002888: 30,3016           04022                           OCT      04022                                 
027265,002889: 30,3017           31135                           CA       TEMPOR1                               
027266,002890: 30,3020           55745                           TS       8KK                                   
027267,002891: 30,3021           31136                           CA       TEMPOR1    +1                         
027268,002892: 30,3022           55750                           TS       S22LOC                                
027269,002893: 30,3023           06006                           TC       INTPRET                               
027270,002894: 30,3024           77624                           CALL                                           #  FOR ALL INTEGRATIONS OTHER THAN FIRST
027271,002895: 30,3025           56462        S2INTS1                     SETINTG                               
027272,002896: 30,3026           43014                           BOFF     SET                                   
027273,002897: 30,3027           02746                                    DMENFLG                               #  =0 D=0 OR 6, =1 D=9
027274,002898: 30,3030           61035                                    S22D6Z                                
027275,002899: 30,3031           01476                                    DIM0FLAG                              
027276,002900: 30,3032           77614                           SETGO                                          #  D=9 PATH
027277,002901: 30,3033           01435                                    D6OR9FLG                              
027278,002902: 30,3034           60531                                    S22NXTIN                              #  RETURN ALWAYS EXCEPT OFFSET POINT MARK 1
027279,002903: 30,3035           43014        S22D6Z             BOFF     SETGO                                 
027280,002904: 30,3036           01751                                    ORBWFLAG                              
027281,002905: 30,3037           60531                                    S22NXTIN                              #  D=0,OFFSET MARK 1,NO W INTEGRATION
027282,002906: 30,3040           01436                                    DIM0FLAG                              
027283,002907: 30,3041           60531                                    S22NXTIN                              #  D=6,OFFSET MARK 1, INTEGRATE W 6X6
027284,002908: 30,3042           77624        S22OFF=I           CALL                                           
027285,002909: 30,3043           62357                                    GETTF                                 
027286,002910: 30,3044           27670                           STOVL    S22TOFF                               #  TIME SUB OFF
027287,002911: 30,3045           01072                                    UM                                    
027288,002912: 30,3046           35054                           STCALL   S22UOFF                               #  U SUB OFF
027289,002913: 30,3047           61000                                    S22I=N                                #  TEST I=N
027290,002914: 30,3050           77775        S22D=9             VLOAD                                          #  D=9 PATH
027291,002915: 30,3051           01701                                    X789                                  
027292,002916: 30,3052           14001                           STODL    0D                                    #  CALL PIOS TWICE TO TRANSFORM RL TO TIME
027293,002917: 30,3053           03672                                    S22TPRIM                              #  T(SUB F) FROM TIME T PRIME
027294,002918: 30,3054           00007                           STORE    6D                                    
027295,002919: 30,3055           45135                           SLOAD    CALL                                  
027296,002920: 30,3056           03674                                    S22EORM                               #  0=EARTH, NON-ZERO=MOON
027297,002921: 30,3057           55370        S2RTRP                      R-TO-RP                               
027298,002922: 30,3060           45006                           PUSH     CALL                                  #  R-TO-RP LEAVES PUSHLOC AT 0
027299,002923: 30,3061           62357                                    GETTF                                 
027300,002924: 30,3062           00007                           STORE    6D                                    
027301,002925: 30,3063           45135                           SLOAD    CALL                                  
027302,002926: 30,3064           03674                                    S22EORM                               
027303,002927: 30,3065           55345        S2RPTR                      RP-TO-R                               
027304,002928: 30,3066           01701        S22BOX32           STORE    X789                                  
027305,002929: 30,3067           40014                           SET      BOV                                   

Page 615

027307,002931: 30,3070           02464                                    INCORFLG                              #  FLAG=1
027308,002932: 30,3071           61072                                    +1                                    #  CLEAR OVERFLOW
027309,002933: 30,3072           77651                           VSU                                            
027310,002934: 30,3073           01046                                    CSMPOS                                
027311,002935: 30,3074           03531                           STORE    RCLP                                  #  RCL=RL-RC
027312,002936: 30,3075           47256                           UNIT     VXV                                   #  USTAR=UNIT(UNIT(RCL)XUM)
027313,002937: 30,3076           01072                                    UM                                    
027314,002938: 30,3077           40056                           UNIT     BOV                                   
027315,002939: 30,3100           60775                                    S22SAVET                              #  COMPUTATION OVERFLOW,SAVE TF
027316,002940: 30,3101           01102                           STORE    USTAR                                 
027317,002941: 30,3102           43345        S22BOX12           DLOAD    DAD                                   
027318,002942: 30,3103           24024                                    SCTVAR                                #  B+18
027319,002943: 30,3104           24026                                    IMUVARR                               #   B+18
027320,002944: 30,3105           27526                           STOVL    VARIANCE                              
027321,002945: 30,3106           03531                                    RCLP                                  #   B-29 OR B-27
027322,002946: 30,3107           60246                           ABVAL    NORM                                  
027323,002947: 30,3110           00047                                    X1                                    
027324,002948: 30,3111           41316                           DSQ      DMP                                   
027325,002949: 30,3112           03526                                    VARIANCE                              
027326,002950: 30,3113           56070                           XAD,1    XAD,1                                 
027327,002951: 30,3114           00046                                    X1                                    #  DOUBLE NORM SHIFT SINCE RCLP WAS SQUARED
027328,002952: 30,3115           03673                                    S22EORM                               #  DOUBLE EARTH OR MOON SHIFT,SAME REASON
027329,002953: 30,3116           53670                           XAD,1    SR*                                   
027330,002954: 30,3117           03673                                    S22EORM                               
027331,002955: 30,3120           20601                                    0,1                                   #  SCALE VARIANCE B-40 FOR BOTH EARTH,MOON
027332,002956: 30,3121           77751                           TLOAD                                          #  CHANGE MODE TO TRIPLE
027333,002957: 30,3122           00155                                    MPAC                                  
027334,002958: 30,3123           37526                           STCALL   VARIANCE                              #  CALC B0,B1,DELTAQ, NEW USTAR
027335,002959: 30,3124           46756        S2BVTRS                     BVECTORS                              
027336,002960: 30,3125           57575                           VLOAD    VCOMP                                 
027337,002961: 30,3126           03502                                    BVECTOR                               
027338,002962: 30,3127           37516                           STCALL   BVECTOR    +12D                       #  B2=-B0
027339,002963: 30,3130           75260        S2INCP1                     INCORP1                               
027340,002964: 30,3131           77624                           CALL                                           
027341,002965: 30,3132           22327                                    GRP2PC                                
027342,002966: 30,3133           45014                           BOFCLR   CALL                                  
027343,002967: 30,3134           01242                                    22DSPFLG                              #  =1 DISPLAY DELTA R,V  =0 DO NOT
027344,002968: 30,3135           61164                                    S22BOX42                              
027345,002969: 30,3136           22327                                    GRP2PC                                
027346,002970: 30,3137           51575                           VLOAD    ABVAL                                 
027347,002971: 30,3140           01114                                    DELTAX                                #  DELTA R
027348,002972: 30,3141           53750                           LXA,1    SR*                                   
027349,002973: 30,3142           03673                                    S22EORM                               #  SCALE DELTA R ALWAYS METERS B-29
027350,002974: 30,3143           20601                                    0,1                                   
027351,002975: 30,3144           27502                           STOVL    N49DISP                               
027352,002976: 30,3145           01122                                    DELTAX     +6                         #  DELTA V
027353,002977: 30,3146           53646                           ABVAL    SR*                                   #  DELTA V=METERS/CSEC B-7 ALWAYS
027354,002978: 30,3147           20601                                    0,1                                   
027355,002979: 30,3150           03504                           STORE    N49DISP    +2                         
027356,002980: 30,3151           77776                           EXIT                                           

Page 616

027358,002982: 30,3152           35030                           CAF      V06N49EE                              
027359,002983: 30,3153           04636                           TC       BANKCALL                              
027360,002984: 30,3154           21101                           CADR     GOFLASHR                              
027361,002985: 30,3155           04103                           TC       GOTOPOOH                              #  V34E TERMINATE
027362,002986: 30,3156           03163                           TC       +5                                    #  INCORPORATE CHANGES
027363,002987: 30,3157           03321                           TC       P22OVER    +1                         #  V32E RECYCLE WITHOUT CONVERTING W
027364,002988: 30,3160           34766                           CAF      BIT3                                  
027365,002989: 30,3161           05516                           TC       BLANKET                               
027366,002990: 30,3162           05205                           TC       ENDOFJOB                              
027367,002991: 30,3163           06006                           TC       INTPRET                               
027368,002992: 30,3164           77624        S22BOX42           CALL                                           
027369,002993: 30,3165           75472                                    INCORP2                               
027370,002994: 30,3166           45154                           LXA,2    CALL                                  
027371,002995: 30,3167           03673                                    S22EORM                               
027372,002996: 30,3170           71327                                    CMPOS                                 
027373,002997: 30,3171           45014        DMPINCP2           BOFF     CALL                                  
027374,002998: 30,3172           02744                                    INCORFLG                              
027375,002999: 30,3173           60775                                    S22SAVET                              #  SAVE TF AND TEST I=N
027376,003000: 30,3174           22327                                    GRP2PC                                
027377,003001: 30,3175           77214                           CLEAR    VLOAD                                 
027378,003002: 30,3176           02664                                    INCORFLG                              #  FLAG=0
027379,003003: 30,3177           01701                                    X789                                  
027380,003004: 30,3200           77651                           VSU                                            
027381,003005: 30,3201           01046                                    CSMPOS                                
027382,003006: 30,3202           37531                           STCALL   RCLP                                  #  RCL=RL-RC
027383,003007: 30,3203           61102                                    S22BOX12                              
027384,003008: 30,3204           77735        S22BOX22           SLOAD                                          
027385,003009: 30,3205           02007                                    S22WSUBL                              
027386,003010: 30,3206           02621                           STORE    W          +144D                      
027387,003011: 30,3207           02631                           STORE    W          +152D                      
027388,003012: 30,3210           36641                           STCALL   W          +160D                      
027389,003013: 30,3211           62357                                    GETTF                                 
027390,003014: 30,3212           77624                           CALL                                           #  COMPUTE RL
027391,003015: 30,3213           26524                                    LALOTORV                              
027392,003016: 30,3214           43175                           VLOAD    BOFF                                  
027393,003017: 30,3215           02152                                    ALPHAV                                #  RL B-29
027394,003018: 30,3216           04343                                    CMOONFLG                              
027395,003019: 30,3217           61066                                    S22BOX32                              
027396,003020: 30,3220           52152                           VSL2     GOTO                                  #  SCALE RL B-27 FOR MOON
027397,003021: 30,3221           61066                                    S22BOX32                              
027398,003022: 30,3222           06006        S22F244X           TC       INTPRET                               
027399,003023: 30,3223           46135        S22F244            SLOAD    BHIZ                                  #  FIG 2.4-4   TEST OFF=0
027400,003024: 30,3224           03745                                    CXOFF                                 
027401,003025: 30,3225           61256                                    S22BOX44                              
027402,003026: 30,3226           67206                           PUSH     SLOAD                                 
027403,003027: 30,3227           03750                                    8NN                                   
027404,003028: 30,3230           77625                           DSU                                            
027405,003029: 30,3231           45040                           BMN      CALL                                  #  OFFSET GR. NO. MARKS, FORGET IT
027406,003030: 30,3232           61256                                    S22BOX44                              
027407,003031: 30,3233           22327                                    GRP2PC                                #  GROUP 2 PHASE CHANGE

Page 617

027409,003033: 30,3234           77745                           DLOAD                                          
027410,003034: 30,3235           03670                                    S22TOFF                               
027411,003035: 30,3236           34041                           STCALL   TDEC1                                 #  CALC RC AT OFFSET TIME
027412,003036: 30,3237           27145                                    CSMPREC                               
027413,003037: 30,3240           77775                           VLOAD                                          
027414,003038: 30,3241           00017                                    RATT1                                 #  RC METERS B-29 OR B-27
027415,003039: 30,3242           25046                           STOVL    CSMPOS                                
027416,003040: 30,3243           01054                                    S22UOFF                               
027417,003041: 30,3244           25072                           STOVL    UM                                    #  U=UOFF
027418,003042: 30,3245           01701                                    X789                                  
027419,003043: 30,3246           43046                           ABVAL    BOFF                                  
027420,003044: 30,3247           04343                                    CMOONFLG                              
027421,003045: 30,3250           61252                                    +2                                    
027422,003046: 30,3251           77702                           SR2                                            #  SCALE MOON R0 B-29 FOR S22F2410 SUBR
027423,003047: 30,3252           36240                           STCALL   ERADM                                 
027424,003048: 30,3253           61331                                    S22F2410                              
027425,003049: 30,3254           77650                           GOTO                                           
027426,003050: 30,3255           61261                                    S22BX44A                              
027427,003051: 30,3256           77624        S22BOX44           CALL                                           
027428,003052: 30,3257           62357                                    GETTF                                 
027429,003053: 30,3260           03670                           STORE    S22TOFF                               #  PRESENT TIME FOR LAT-LONG SETUP
027430,003054: 30,3261           43175        S22BX44A           VLOAD    BOFF                                  
027431,003055: 30,3262           01701                                    X789                                  
027432,003056: 30,3263           04343                                    CMOONFLG                              
027433,003057: 30,3264           61266                                    S22BX44B                              
027434,003058: 30,3265           77742                           VSR2                                           #  SCALE RL MOON B-29 FOR LAT-LONG
027435,003059: 30,3266           16152        S22BX44B           STODL    ALPHAV                                #  RL SCALED B-29 FOR LAT-LONG
027436,003060: 30,3267           03670                                    S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
027437,003061: 30,3270           77624                           CALL                                           
027438,003062: 30,3271           26453                                    LAT-LONG                              #  **** ALT OUTPUT ALWAYS B-29
027439,003063: 30,3272           77624                           CALL                                           #  DISPLAY LAT/LONG/ALT
027440,003064: 30,3273           62363                                    LLASRD                                
027441,003065: 30,3274           77776                           EXIT                                           
027442,003066: 30,3275           35036                           CAF      V06N89B                               
027443,003067: 30,3276           04636                           TC       BANKCALL                              
027444,003068: 30,3277           20743                           CADR     GOFLASH                               
027445,003069: 30,3300           03324                           TC       S22GTP                                #  V34E TERMINATE
027446,003070: 30,3301           03315                           TC       S22.981X                              #  PROCEED POINT  A IN IN GSOP
027447,003071: 30,3302           06006                           TC       INTPRET                               #  RECYCLE SAVE LANDING SITE COORD
027448,003072: 30,3303           77745                           DLOAD                                          
027449,003073: 30,3304           03670                                    S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
027450,003074: 30,3305           24007                           STOVL    6D                                    #  6-7D= LANDING SITE TIME FOR R-TO-RP
027451,003075: 30,3306           01701                                    X789                                  
027452,003076: 30,3307           00001                           STORE    0D                                    #  0-5D= LANDING SITE VEC  FOR R-TO-RP
027453,003077: 30,3310           45135                           SLOAD    CALL                                  
027454,003078: 30,3311           15334                                    HIDPHALF                              #  ANY NON-ZERO FOR MOON
027455,003079: 30,3312           55370                                    R-TO-RP                               #  CONVERT RLS TO MOON-FIXED COORD
027456,003080: 30,3313           02026                           STORE    RLS                                   #  LANDING SITE VECTOR
027457,003081: 30,3314           77776                           EXIT                                           
027458,003082: 30,3315           06006        S22.981X           TC       INTPRET                               

Page 618

027460,003084: 30,3316           77624                           CALL                                           
027461,003085: 30,3317           61363                                    9DWTO6DW                              
027462,003086: 30,3320           77776        P22OVER            EXIT                                           
027463,003087: 30,3321           05402                           TC       PHASCHNG                              
027464,003088: 30,3322           04022                           OCT      04022                                 
027465,003089: 30,3323           02206                           TC       PROG22A                               
027466,003090: 30,3324           06006        S22GTP             TC       INTPRET                               #  CONVERT W BEFORE TC GOTOPOOH
027467,003091: 30,3325           77624                           CALL                                           
027468,003092: 30,3326           61363                                    9DWTO6DW                              
027469,003093: 30,3327           77776                           EXIT                                           
027470,003094: 30,3330           04103                           TC       GOTOPOOH                              
027471,003095: 30,3331           77201        S22F2410           SETPD    VLOAD                                 #  COMPUTE FORMULA 2.4.10
027472,003096: 30,3332           00001                                    0D                                    
027473,003097: 30,3333           01046                                    CSMPOS                                #  RC B-29 EARTH,B-27 MOON
027474,003098: 30,3334           50256                           UNIT     DOT                                   #  UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
027475,003099: 30,3335           01072                                    UM                                    
027476,003100: 30,3336           57552                           SL1      DCOMP                                 #  GSOP CHANGE 8/18/67
027477,003101: 30,3337           63406                           PUSH     DSQ                                   #  PD 2D 0D=COSA=-(UM.RC)/ABVAL(RC) B-1
027478,003102: 30,3340           65221                           BDSU     PDDL                                  #  PD 4D 2D=1-COSA SQ=SINA SQ B-2
027479,003103: 30,3341           15326                                    DEC1B2                                
027480,003104: 30,3342           02240                                    ERADM                                 #  R0 ALWAYS B-29 FROM SETRE
027481,003105: 30,3343           62414                           BOFF     SL2                                   #  SCALE R0 B-27 FOR MOON
027482,003106: 30,3344           04343                                    CMOONFLG                              
027483,003107: 30,3345           61346                                    +1                                    
027484,003108: 30,3346           56362                           SR1R     DDV                                   #  (R0/RC) B-1
027485,003109: 30,3347           00045                                    36D                                   
027486,003110: 30,3350           45316                           DSQ      DSU                                   #  PD 2D (R0/RC) SQ - SINA SQ  B-2
027487,003111: 30,3351           44366                           SQRT     BDSU                                  #  PD 0D COSA-SQRT((R0/RC)SQ-SINA SQ) B-1
027488,003112: 30,3352           77605                           DMP                                            #  DMP RESULT B-28 MOON,B-30 EARTH
027489,003113: 30,3353           00045                                    36D                                   #  VXSC RESULT B-29 MOON, B-31 EARTH
027490,003114: 30,3354           00041                           STORE    S22RHO                                #  RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
027491,003115: 30,3355           77761                           VXSC                                           
027492,003116: 30,3356           01072                                    UM                                    
027493,003117: 30,3357           53352                           VSL2     VAD                                   #  SCALE B-27 MOON,B-29 EARTH AND ADD RC
027494,003118: 30,3360           01046                                    CSMPOS                                
027495,003119: 30,3361           01701                           STORE    X789                                  
027496,003120: 30,3362           77616                           RVQ                                            #  B-27 FOR EARTH OR B-29 FOR MOON
027497,003121: 31,2000                                           SETLOC   P22S                                  
027498,003122: 31,2000                                           BANK                                           
027499,003123: 
027500,003124: 31,2340                                           COUNT*   $$/P22                                
027501,003125: 31,2340           00031        S2231X13           STORE    S221X3                                #  MULT 3X1 BY 1X3,STORE RESULTING 3X3 IN
027502,003126: 31,2341           77131                           SSP      AXT,2                                 #  S22UMRL- S22UMRL +17D
027503,003127: 31,2342           00052                                    S2                                    
027504,003128: 31,2343           00002                           DEC      2          B-14                       
027505,003129: 31,2344           00006                           DEC      6          B-14                       
027506,003130: 31,2345           77770                           AXT,1                                          
027507,003131: 31,2346           00022                           DEC      18         B-14                       
027508,003132: 31,2347           73775        S2231NXT           VLOAD    VXSC*                                 
027509,003133: 31,2350           00031                                    S221X3                                

Page 619

027511,003135: 31,2351           77746                                    S223X1     +6,2                       
027512,003136: 31,2352           07524                           STORE    S22UMRL    +18D,1                     
027513,003137: 31,2353           61110                           INCR,1   TIX,2                                 
027514,003138: 31,2354           77771                           DEC      -6         B-14                       
027515,003139: 31,2355           62347                                    S2231NXT                              
027516,003140: 31,2356           77616                           RVQ                                            
027517,003141: 31,2357           70740        GETTF              LXC,1    DLOAD*                                #  SET MPAC= TF
027518,003142: 31,2360           03750                                    S22LOC                                
027519,003143: 31,2361           00001                                    0,1                                   
027520,003144: 31,2362           77616                           RVQ                                            
027521,003145: 
027522,003146:                                                                                                  #  SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
027523,003147:                                                                                                  #  PRIOR TO DISPLAY.
027524,003148: 
027525,003149: 31,2363           70545        LLASRD             DLOAD    SR1                                   
027526,003150: 31,2364           00751                                    LONG                                  
027527,003151: 31,2365           16351                           STODL    LANDLONG                              
027528,003152: 31,2366           00753                                    ALT                                   
027529,003153: 31,2367           02353                           STORE    LANDALT                               
027530,003154: 31,2370           77616                           RVQ                                            
027531,003155:                                                                                                  #  SUBROUTINE TO MODIFY LANDALT AND STORE LANDALT TO LANDALT+5 IN LAT TO
027532,003156:                                                                                                  #  LAT+5 AFTER LMK DATA LOADED BY ASTRONAUT.
027533,003157: 
027534,003158: 31,2371           72545        LLASRDA            DLOAD    SL1                                   
027535,003159: 31,2372           02351                                    LANDLONG                              
027536,003160: 31,2373           14751                           STODL    LONG                                  
027537,003161: 31,2374           02353                                    LANDALT                               
027538,003162: 31,2375           00753                           STORE    ALT                                   
027539,003163: 31,2376           77616                           RVQ                                            
027540,003164: 30,2000                                           SETLOC   P20S6                                 
027541,003165: 30,2000                                           BANK                                           
027542,003166: 
027543,003167: 30,3363                                           COUNT*   $$/P22                                
027544,003168: 30,3363           40220        9DWTO6DW           STQ      SETPD                                 
027545,003169: 30,3364           01053                                    9DWXX                                 
027546,003170: 30,3365           00001                                    0D                                    
027547,003171: 30,3366           41575                           VLOAD    PUSH                                  #  CLEAR WORKING AREA OF PUSHLIST
027548,003172: 30,3367           15336                                    HI6ZEROS                              #  INCLUDING P
027549,003173: 30,3370           41406                           PUSH     PUSH                                  #  PD 18D
027550,003174: 30,3371           77731                           SSP                                            
027551,003175: 30,3372           00017                                    9DWJ                                  #  J=29   USE 2*29 FOR DP WORDS
027552,003176: 30,3373           00072                           DEC      58         B-14                       
027553,003177: 30,3374           66150        9DWI=J             LXA,1    SXA,1                                 #  SET I=J
027554,003178: 30,3375           00016                                    9DWJ                                  
027555,003179: 30,3376           00012                                    9DWI                                  
027556,003180: 30,3377           77624        9DWEPCAL           CALL                                           
027557,003181: 30,3400           61613                                    ROWDOT                                
027558,003182: 30,3401           77750                           LXA,1                                          #  P VARIES 0-20 INSTEAD OF 20-0
027559,003183: 30,3402           00010                                    9DWP                                  
027560,003184: 30,3403           06641                           STORE    EMATRIX    +40D,1                     

Page 620

027562,003186: 30,3404           66110                           INCR,1   SXA,1                                 
027563,003187: 30,3405           00002                           DEC      2          B-14                       
027564,003188: 30,3406           00010                                    9DWP                                  
027565,003189: 30,3407           46135                           SLOAD    BHIZ                                  #  TEST I=0
027566,003190: 30,3410           00013                                    9DWI                                  
027567,003191: 30,3411           61426                                    9DWTESTJ                              
027568,003192: 30,3412           77625                           DSU                                            #  I=I-1
027569,003193: 30,3413           24022                                    9DWID                                 
027570,003194: 30,3414           00013                           STORE    9DWI                                  
027571,003195: 30,3415           46025                           DSU      BHIZ                                  #  TEST I=26
027572,003196: 30,3416           24020                                    9DW26D                                
027573,003197: 30,3417           61422                                    9DWSETI2                              
027574,003198: 30,3420           77650                           GOTO                                           #  NEXT E SUB P
027575,003199: 30,3421           61377                                    9DWEPCAL                              
027576,003200: 30,3422           52131        9DWSETI2           SSP      GOTO                                  #  I=2
027577,003201: 30,3423           00013                                    9DWI                                  
027578,003202: 30,3424           00004                           DEC      4          B-14                       
027579,003203: 30,3425           61377                                    9DWEPCAL                              
027580,003204: 30,3426           46135        9DWTESTJ           SLOAD    BHIZ                                  #  TEST J=0
027581,003205: 30,3427           00017                                    9DWJ                                  
027582,003206: 30,3430           61445                                    9DWFIG6                               
027583,003207: 30,3431           77625                           DSU                                            
027584,003208: 30,3432           24022                                    9DWID                                 
027585,003209: 30,3433           00017                           STORE    9DWJ                                  #  J=J-1
027586,003210: 30,3434           46025                           DSU      BHIZ                                  #  TEST J=26
027587,003211: 30,3435           24020                                    9DW26D                                
027588,003212: 30,3436           61441                                    9DWSETJ2                              
027589,003213: 30,3437           77650                           GOTO                                           
027590,003214: 30,3440           61374                                    9DWI=J                                
027591,003215: 30,3441           52131        9DWSETJ2           SSP      GOTO                                  #  SET J=2
027592,003216: 30,3442           00017                                    9DWJ                                  
027593,003217: 30,3443           00004                           DEC      4          B-14                       
027594,003218: 30,3444           61374                                    9DWI=J                                
027595,003219: 30,3445           77624        9DWFIG6            CALL                                           
027596,003220: 30,3446           22327                                    GRP2PC                                
027597,003221: 30,3447           77331                           SSP      VLOAD                                 #  START OF FIGURE 2.4-6
027598,003222: 30,3450           00017                                    9DWJ                                  #  J=29
027599,003223: 30,3451           00072                           DEC      58         B-14                       
027600,003224: 30,3452           15336                                    HI6ZEROS                              
027601,003225: 30,3453           00011                           STORE    9DWP                                  #  P,N,I=0
027602,003226: 30,3454           66370                           AXT,1    SSP                                   
027603,003227: 30,3455           00154                           DEC      108        B-14                       #  CLEAR WO TO W54
027604,003228: 30,3456           00051                                    S1                                    
027605,003229: 30,3457           00006                                    6                                     
027606,003230: 30,3460           06555        CLEARW54           STORE    W          +108D,1                    
027607,003231: 30,3461           77700                           TIX,1                                          
027608,003232: 30,3462           61460                                    CLEARW54                              
027609,003233: 30,3463           66150        9DWI=JA            LXA,1    SXA,1                                 #  I=J
027610,003234: 30,3464           00016                                    9DWJ                                  
027611,003235: 30,3465           00012                                    9DWI                                  

Page 621

027613,003237: 30,3466           77624                           CALL                                           
027614,003238: 30,3467           61613                                    ROWDOT                                
027615,003239: 30,3470           43750                           LXA,1    BDSU*                                 
027616,003240: 30,3471           00010                                    9DWP                                  
027617,003241: 30,3472           02641                                    EMATRIX    +40D,1                     
027618,003242: 30,3473           66110                           INCR,1   SXA,1                                 #  -(P+1)
027619,003243: 30,3474           00002                                    2                                     
027620,003244: 30,3475           00010                                    9DWP                                  
027621,003245: 30,3476           54140                           LXC,1    XSU,1                                 #  -(I+N)
027622,003246: 30,3477           00012                                    9DWI                                  
027623,003247: 30,3500           00014                                    9DWN                                  
027624,003248: 30,3501           71244                           BPL      DLOAD                                 #  TEST WSQ LTE 0
027625,003249: 30,3502           61504                                    9DWAAA                                
027626,003250: 30,3503           15336                                    HI6ZEROS                              #  W=0
027627,003251: 30,3504           77766        9DWAAA             SQRT                                           #  W= SQRT(WSQ)
027628,003252: 30,3505           06401        9DWAAB             STORE    W,1                                   
027629,003253: 30,3506           14001                           STODL    WORKW                                 
027630,003254: 30,3507           00017                                    9DWJ                                  #  TEST J=0
027631,003255: 30,3510           77630                           BHIZ                                           
027632,003256: 30,3511           61577                                    9DWEXITX                              #  EXIT
027633,003257: 30,3512           46135        TST2I=0            SLOAD    BHIZ                                  #  TEST I=0
027634,003258: 30,3513           00013                                    9DWI                                  
027635,003259: 30,3514           61555                                    9DWN=N+3                              
027636,003260: 30,3515           77625                           DSU                                            
027637,003261: 30,3516           24022                                    9DWID                                 
027638,003262: 30,3517           00013                           STORE    9DWI                                  #  I=I-1
027639,003263: 30,3520           46025                           DSU      BHIZ                                  #  TEST I=26
027640,003264: 30,3521           24020                                    9DW26D                                
027641,003265: 30,3522           61525                                    9DWAAC                                
027642,003266: 30,3523           77650                           GOTO                                           
027643,003267: 30,3524           61530                                    9DWNEXEP                              
027644,003268: 30,3525           77731        9DWAAC             SSP                                            #  I=2
027645,003269: 30,3526           00013                                    9DWI                                  
027646,003270: 30,3527           00004                                    4                                     
027647,003271: 30,3530           77624        9DWNEXEP           CALL                                           
027648,003272: 30,3531           61613                                    ROWDOT                                
027649,003273: 30,3532           43750                           LXA,1    BDSU*                                 #  (EP-ROWI*ROWJ)/W
027650,003274: 30,3533           00010                                    9DWP                                  
027651,003275: 30,3534           02641                                    EMATRIX    +40D,1                     
027652,003276: 30,3535           62071                           DDV      INCR,1                                #  P=P+1
027653,003277: 30,3536           00001                                    WORKW                                 
027654,003278: 30,3537           00002                                    2                                     
027655,003279: 30,3540           70130                           SXA,1    LXC,1                                 
027656,003280: 30,3541           00010                                    9DWP                                  
027657,003281: 30,3542           00012                                    9DWI                                  
027658,003282: 30,3543           40060                           XSU,1    BOV                                   #  -(I+N)
027659,003283: 30,3544           00014                                    9DWN                                  
027660,003284: 30,3545           61550                                    SETWIN=0                              
027661,003285: 30,3546           77650                           GOTO                                           
027662,003286: 30,3547           61552                                    9DWSETWX                              

Page 622

027664,003288: 30,3550           77745        SETWIN=0           DLOAD                                          #  W(I+N)=0
027665,003289: 30,3551           15336                                    HI6ZEROS                              
027666,003290: 30,3552           06401        9DWSETWX           STORE    W,1                                   
027667,003291: 30,3553           77650                           GOTO                                           
027668,003292: 30,3554           61512                                    TST2I=0                               
027669,003293: 30,3555           62150        9DWN=N+3           LXA,1    INCR,1                                #  N=N+3
027670,003294: 30,3556           00014                                    9DWN                                  
027671,003295: 30,3557           00006                                    6                                     
027672,003296: 30,3560           67330                           SXA,1    SLOAD                                 #  J=J-1
027673,003297: 30,3561           00014                                    9DWN                                  
027674,003298: 30,3562           00017                                    9DWJ                                  
027675,003299: 30,3563           77625                           DSU                                            
027676,003300: 30,3564           24022                                    9DWID                                 
027677,003301: 30,3565           00017                           STORE    9DWJ                                  
027678,003302: 30,3566           46025                           DSU      BHIZ                                  #  TEST J=26
027679,003303: 30,3567           24020                                    9DW26D                                
027680,003304: 30,3570           61573                                    SETJ=2A                               
027681,003305: 30,3571           77650                           GOTO                                           
027682,003306: 30,3572           61463                                    9DWI=JA                               
027683,003307: 30,3573           52131        SETJ=2A            SSP      GOTO                                  #  J=2
027684,003308: 30,3574           00017                                    9DWJ                                  
027685,003309: 30,3575           00004                                    4                                     
027686,003310: 30,3576           61463                                    9DWI=JA                               
027687,003311: 30,3577           77624        9DWEXITX           CALL                                           
027688,003312: 30,3600           22327                                    GRP2PC                                
027689,003313: 30,3601           66370                           AXT,1    SSP                                   #  CLEAR W6,W7,W8 USED TEMP FOR EMATRIX
027690,003314: 30,3602           00066                           DEC      54         B-14                       
027691,003315: 30,3603           00051                                    S1                                    
027692,003316: 30,3604           00006                                    6                                     
027693,003317: 30,3605           77775                           VLOAD                                          
027694,003318: 30,3606           15336                                    HI6ZEROS                              
027695,003319: 30,3607           06643        9DWEXXXA           STORE    W          +162D,1                    
027696,003320: 30,3610           52100                           TIX,1    GOTO                                  
027697,003321: 30,3611           61607                                    9DWEXXXA                              
027698,003322: 30,3612           01053                                    9DWXX                                 
027699,003323: 30,3613           40131        ROWDOT             SSP      BOV                                   
027700,003324: 30,3614           00007                                    XTMP1                                 
027701,003325: 30,3615           00377                           OCT      377                                   
027702,003326: 30,3616           61617                                    +1                                    
027703,003327: 30,3617           71140                           LXC,1    LXC,2                                 
027704,003328: 30,3620           00012                                    9DWI                                  
027705,003329: 30,3621           00016                                    9DWJ                                  
027706,003330: 30,3622           41545                           DLOAD    PUSH                                  
027707,003331: 30,3623           15336                                    HI6ZEROS                              
027708,003332: 30,3624           56743        ROWDOT1            DLOAD*   DMPR*                                 
027709,003333: 30,3625           02401                                    W,1                                   
027710,003334: 30,3626           75376                                    W,2                                   
027711,003335: 30,3627           41415                           DAD      PUSH                                  
027712,003336: 30,3630           62000                           BOV      INCR,1                                
027713,003337: 30,3631           61645                                    ROWDOT3                               

Page 623

027715,003339: 30,3632           77771                           DEC      -6         B-14                       
027716,003340: 30,3633           67314                           INCR,2   SLOAD                                 
027717,003341: 30,3634           77771                           DEC      -6         B-14                       
027718,003342: 30,3635           00007                                    XTMP1                                 
027719,003343: 30,3636           70430                           BHIZ     SR1                                   
027720,003344: 30,3637           61643                                    ROWDOT2                               
027721,003345: 30,3640           00007                           STORE    XTMP1                                 
027722,003346: 30,3641           77650                           GOTO                                           
027723,003347: 30,3642           61624                                    ROWDOT1                               
027724,003348: 30,3643           77745        ROWDOT2            DLOAD                                          
027725,003349: 30,3644           77616                           RVQ                                            
027726,003350: 30,3645           77614        ROWDOT3            CLRGO                                          
027727,003351: 30,3646           01631                                    ORBWFLAG                              
027728,003352: 30,3647           61643                                    ROWDOT2                               
027729,003353: 30,3650                        WORKW              =        0D                                    
027730,003354: 30,3650                        XTMP1              =        6D                                    
027731,003355: 30,3650                        9DWP               =        8D                                    #  P
027732,003356: 30,3650                        9DWI               =        10D                                   #  I
027733,003357: 30,3650                        9DWN               =        12D                                   #  N
027734,003358: 30,3650                        9DWJ               =        14D                                   #  J
027735,003359: 30,3650                        S223X1             =        18D                                   #  6
027736,003360: 30,3650                        S221X3             =        24D                                   #  6
027737,003361: 30,3650                        S22D               =        30D                                   #  2
027738,003362: 30,3650                        S22RHO             =        32D                                   #  2
027739,003363: 32,2000                                           SETLOC   P20S9                                 
027740,003364: 32,2000                                           BANK                                           
027741,003365: 
027742,003366: 32,2017                                           COUNT*   $$/P22                                
027743,003367: 32,2017           00064 00000  9DW26D             2DEC     52         B-14                       
027744,003368: 32,2021           00002 00000  9DWID              2DEC     2          B-14                       
027745,003369: 32,2023           10306 36750  SCTVAR             2DEC     1.0        E-6        B+18            
027746,003370: 32,2025           00253 31436  IMUVARR            2DEC     0.04       E-6        B+18            
027747,003371: 32,2027  26,3325               DEC1B2             =        DP1/4TH                               #  1 B-2
027748,003372: 32,2027     5030               V06N49EE           =        V06N49                                
027749,003373: 32,2027     5036               V06N89B            =        V06N89                                
027750,003374: 23,2000                                           SETLOC   P20S2                                 
027751,003375: 23,2000                                           BANK                                           
027752,003376: 23,3143                                           COUNT*   $$/R63                                

Page 624 Empty page.

027755,003379: 

Page 625

027757,003381: 
027758,003382:                                                                                                  #  SUBROUTINE NAME:   V89CALL
027759,003383:                                                                                                  #  MOD NO:  0                      DATE: 8 FEB 1968
027760,003384:                                                                                                  #  MOD BY:  DIGITAL DEVEL GROUP    LOG SECTION:  P20-P25
027761,003385: 
027762,003386:                                                                                                  #  FUNCTIONAL DESCRIPTION:
027763,003387: 
027764,003388:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
027765,003389:                                                                                                  #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
027766,003390:                                                                                                  #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
027767,003391: 
027768,003392:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
027769,003393:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
027770,003394: 
027771,003395:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
027772,003396:                                                                                                  #  ORIENTATION KNOWN TO CGC, CONTINUE.
027773,003397: 
027774,003398:                                                                                                  #  3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
027775,003399:                                                                                                  #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
027776,003400:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V22 E 2 E.  CONTINUE
027777,003401:                                                                                                  #  AFTER KEYING IN PROCEED.
027778,003402: 
027779,003403:                                                                                                  #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
027780,003404:                                                                                                  #  FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
027781,003405: 
027782,003406:                                                                                                  #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
027783,003407: 
027784,003408:                                                                                                  #      R63COMP JOB:
027785,003409:                                                                                                  #        
027786,003410:                                                                                                  #        UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
027787,003411: 
027788,003412:                                                                                                  #        CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3SM TO LM.
027789,003413: 
027790,003414:                                                                                                  #        DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
027791,003415:                                                                                                  #        ARE STORED FOR LATER R60CSM CALL.
027792,003416: 
027793,003417:                                                                                                  #  6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
027794,003418: 
027795,003419:                                                                                                  #  7. RECYCLE- RETURN TO STEP 5.
027796,003420:                                                                                                  #     TERMINATE- EXIT R63 ROUTINE
027797,003421:                                                                                                  #     PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
027798,003422: 
027799,003423: 
027800,003424:                                                                                                  #  CALLING SEQUENCE: V 89 E
027801,003425: 
027802,003426:                                                                                                  #  SUBROUTINES CALLED: CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
027803,003427: 
027804,003428:                                                                                                  #  ALARMS   1. OPERATOR ERROR IF NOT IN P00
027805,003429:                                                                                                  #           2. PROGRAM ALARM IF IMU IS OFF
027806,003430:                                                                                                  #           3. PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN

Page 626

027808,003432: 
027809,003433:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED: NONE
027810,003434: 
027811,003435:                                                                                                  #  DEBRIS:  OPTION1, OPTION1+1, PRFTRKAT(PREF ATT FLAG),P21TIME, 3AXISFLG
027812,003436: 
027813,003437: 23,3143           00000 13560  DP1MIN             2DEC     6000       B-28                       
027814,003438: 
027815,003439: 23,3145  E4,1706                                  EBANK=   R63TIME                               
027816,003440: 31,2000                                           SETLOC   V89TAG                                
027817,003441: 31,2000                                           BANK                                           
027818,003442: 31,2377                                           COUNT*   $$/R63                                
027819,003443: 
027820,003444: 
027821,003445: 31,2377           04636        V89CALL            TC       BANKCALL                              #  IMU STATUS CHECK. RETURNS IF ORIENTATION
027822,003446: 31,2400           03731                           CADR     R02BOTH                               #  KNOWN. ALARMS IF NOT.
027823,003447: 31,2401           06006                           TC       INTPRET                               
027824,003448: 31,2402           71214                           CLEAR    DLOAD                                 
027825,003449: 31,2403           05667                                    AZIMFLAG                              
027826,003450: 31,2404           15336                                    ZEROVECS                              
027827,003451: 31,2405           03740                           STORE    UTPIT                                 
027828,003452: 31,2406           03742                           STORE    UTYAW                                 
027829,003453: 31,2407           77776                           EXIT                                           
027830,003454: 
027831,003455: 31,2410           32443                           CAF      VB06N78                               
027832,003456: 31,2411           04636                           TC       BANKCALL                              
027833,003457: 31,2412           21101                           CADR     GOFLASHR                              
027834,003458: 31,2413           05524                           TC       ENDEXT                                
027835,003459: 31,2414           12421                           TCF      V89RECL                               
027836,003460: 31,2415           02410                           TC       -5                                    
027837,003461: 
027838,003462: 31,2416           34766                           CAF      BIT3                                  
027839,003463: 31,2417           05516                           TC       BLANKET                               
027840,003464: 31,2420           05205                           TC       ENDOFJOB                              
027841,003465: 
027842,003466: 31,2421           06006        V89RECL            TC       INTPRET                               
027843,003467: 31,2422           43234                           RTB      DAD                                   
027844,003468: 31,2423           51751                                    LOADTIME                              #  READ PRESENT TIME
027845,003469: 31,2424           07144                                    DP1MIN                                #  INTEGRATE TO 1 MIN FROM NOW
027846,003470: 31,2425           36307                           STCALL   R63TIME                               #  STORE TIME FOR CALL TO R63COMP. R63COMP
027847,003471: 31,2426           73171                                    R63COMP                               #  LEAVES DESIRED GIM ANGS IN THETAD,LOS IN
027848,003472: 31,2427           77776                           EXIT                                           #  POINTVSM, AND SELECTED AXIS IN SCAXIS.
027849,003473: 31,2430           35031                           CAF      VB06N18                               #  V 06 N 18
027850,003474: 31,2431           04636                           TC       BANKCALL                              #  NOUN 18 REFERS TO THE DESIRED GIMBAL
027851,003475: 31,2432           20743                           CADR     GOFLASH                               
027852,003476: 31,2433           05524                           TC       ENDEXT                                #  TERMINATE
027853,003477: 31,2434           02436                           TC       +2                                    #  PROCEED
027854,003478: 31,2435           02421                           TC       V89RECL                               #  RECYCLE
027855,003479: 31,2436           05561                           TC       DOWNFLAG                              #  RESET 3 AXIS FLAG

Page 627

027857,003481: 31,2437           00124                           ADRES    3AXISFLG                              #  RESET BIT 6 FLAG 5
027858,003482: 31,2440           04636                           TC       BANKCALL                              #  PERFORMS CSM MANEUVER TO ALIGN SELECTED
027859,003483: 31,2441           56074                           CADR     R60CSM                                #  SPACECRAFT AXIS TO LOS.
027860,003484: 31,2442           15524                           TCF      ENDEXT                                
027861,003485: 
027862,003486: 
027863,003487: 31,2443           01516        VB06N78            VN       0678                                  
027864,003488: 
027865,003489: 31,2444     5031               VB06N18            =        V06N18                                
027866,003490: 
027867,003491: 31,2444  35,3171               R63COMP            EQUALS   R63                                   
027868,003492: 

Page 628

027870,003494: 
027871,003495:                                                                                                  #  PROGRAM NAME- P23 CISLUNAR MIDCOURSE NAVIGATION
027872,003496:                                                                                                  #  MOD NO
027873,003497:                                                                                                  #  MOD BY- TOM KNATT
027874,003498:                                                                                                  #  FUNCTIONAL DESCRIPTION- DO MIDCOURSE NAVIGATION BY INCORPORATION OF STAR 
027875,003499:                                                                                                  #  /EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
027876,003500:                                                                                                  #  CALLING SEQUENCE- ASTRONAUT OPERATED
027877,003501:                                                                                                  #  SUBROUTINES CALLED-R52,R53,R57,R60,ORBITAL INTEGRATION (INTEGRV)
027878,003502:                                                                                                  #  INCORP1,INCORP2,LALOTORV,LUNPOS  ,AND DISPLAY INTERFACE ROUTINES.
027879,003503:                                                                                                  #  NORMAL EXIT MODES- VIA ROO
027880,003504:                                                                                                  #  ALARMS- NONE
027881,003505:                                                                                                  #  ABORT MODES- NONE
027882,003506:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED- PAD-LOADED ERASABLES,ORBWFLAG RESET,
027883,003507:                                                                                                  #  REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ON
027884,003508:                                                                                                  #  INPUTS BY USER REQUIRED- STAR NUMBER,LANDMARK LAT,LONG/2,ALT
027885,003509:                                                                                                  #  IF LANDMARK IS USED,        NEAR OR FAR HORIZON IF HORIZON IS USED, AND 
027886,003510:                                                                                                  #  BODY TO BE MARKED ON (EARTH OR MOON).  SEE GSOP CHAPT 4.
027887,003511:                                                                                                  #  OUTPUT-UPDATED CMC STATE VECTOR. VECTOR FROM S/C TO HORIZON OR LANDMARK
027888,003512:                                                                                                  #  IN POINTAXS. POINTAXS CAN BE USED TO GENERATE THIS VECTOR APART FROM
027889,003513:                                                                                                  #  P23 IF DESIRED.
027890,003514:                                                                                                  #  DEBRIS-NO USABLE DEBRIS IS GENERATED. RENDWFLG IS RESET FOR P20 UPON
027891,003515:                                                                                                  #  ENTRY INTO P23.    RUPTREGS AND ERASABLES USED BY DISPLAYS ARE DEBRIS
027892,003516: 31,2000                                           SETLOC   RT23                                  
027893,003517: 31,2000                                           BANK                                           
027894,003518: 31,2444                                           COUNT*   $$/P23                                
027895,003519: 31,2444  E7,1722                                  EBANK=   MRKBUF1                               
027896,003520: 31,2444           05561        P23                TC       DOWNFLAG                              
027897,003521: 31,2445           00010                           ADRES    RNDVZFLG                              
027898,003522: 
027899,003523: 31,2446           05362                           TC       2PHSCHNG                              
027900,003524: 31,2447           00004                           OCT      00004                                 #  LEAVE GROUP 4
027901,003525: 31,2450           00012                           OCT      00012                                 #  ENTER GROUP 2
027902,003526: 31,2451           35052                           CAF      PRIO13                                
027903,003527: 31,2452           55262                           TS       PHSPRDT2                              
027904,003528: 31,2453           05561                           TC       DOWNFLAG                              
027905,003529: 31,2454           00131                           ADRES    RENDWFLG                              
027906,003530: 31,2455           06006        P23.00             TC       INTPRET                               
027907,003531: 31,2456           45014                           BON      CALL                                  
027908,003532: 31,2457           01702                                    REFSMFLG                              #  SET NOW AS INPUT, NORMALLY EXTERNAL CONT
027909,003533: 31,2460           62466                                    P23.05                                #  WHEN ALIGNED,PERFORM MEASUREMENT
027910,003534: 31,2461           76167                                    R57                                   #  DO OPTICS CALIBRATION IF IMU NOT ALIGNED
027911,003535: 31,2462           77624                           CALL                                           
027912,003536: 31,2463           31571                                    R53                                   
027913,003537: 31,2464           77650                           GOTO                                           
027914,003538: 31,2465           62567                                    P23.60                                
027915,003539: 31,2466           45014        P23.05             CLEAR    CALL                                  
027916,003540: 31,2467           04665                                    SAVECFLG                              
027917,003541: 31,2470           76167                                    R57                                   #  PERFORM MARK CALIBRATION
027918,003542: 31,2471           45135        P23.06             SLOAD    CALL                                  
027919,003543: 31,2472           23513                                    V05N70                                
027920,003544: 31,2473           63355                                    P23N7071                              

Page 629

027922,003546: 31,2474           77634        V94ENTER           RTB                                            
027923,003547: 31,2475           51751                                    LOADTIME                              #  READ CLOCK
027924,003548: 31,2476           35062                           STCALL   MARKTIME                              
027925,003549: 31,2477           63002                                    POINTAXS                              #  RETURN LOS IN MPAC
027926,003550: 31,2500           03642                           STORE    UCLSTAR                               #  TEMP
027927,003551: 31,2501           77776                           EXIT                                           
027928,003552: 31,2502           33514                           CAF      V50N25P                               
027929,003553: 31,2503           04636                           TC       BANKCALL                              
027930,003554: 31,2504           21067                           CADR     GOPERF1                               #  GOPERF1 BLANKS OUT R2 AND R3.
027931,003555: 31,2505           04103                           TC       GOTOPOOH                              
027932,003556: 31,2506           02510                           TC       +2                                    #  PRO DO 3AXIS MANEUVER
027933,003557: 31,2507           02552                           TC       DOVECPT                               #  ENTER DO VECPOINT MANEUVER
027934,003558: 31,2510           06006                           TC       INTPRET                               
027935,003559: 31,2511           53575                           VLOAD    UNIT                                  
027936,003560: 31,2512           03642                                    UCLSTAR                               
027937,003561: 31,2513           36706                           STCALL   ZSM                                   #  UCL
027938,003562: 31,2514           62614                                    R23.55                                #  COMPUTE STAR VECTOR AND LEAVE IN MPAC
027939,003563: 
027940,003564: 31,2515           53435        OCCLCOMP           VXV      UNIT                                  #  COMPUTE CONSTRAINED BRSB MATRIX(SHAFT
027941,003565: 31,2516           02706                                    ZSM                                   #                                 =180)
027942,003566: 31,2517           02700                           STORE    YSM                                   #  UNIT(US* X UCL)
027943,003567: 31,2520           53435                           VXV      UNIT                                  
027944,003568: 31,2521           02706                                    ZSM                                   
027945,003569: 31,2522           02672                           STORE    XSM                                   #  UNIT(UNIT(US* X UCL) X UCL)
027946,003570: 31,2523           76131                           SSP      AXT,1                                 
027947,003571: 31,2524           00051                                    S1                                    
027948,003572: 31,2525           00006                                    6                                     
027949,003573: 31,2526           00022                                    18D                                   
027950,003574: 31,2527           61373        NEXTVEC1           VLOAD*   VXM                                   #  COMPUTE BRNB = (SBNB)(BRSB)
027951,003575: 31,2530           06322                                    NB1NB2     +18D,1                     
027952,003576: 31,2531           02672                                    XSM                                   
027953,003577: 31,2532           77656                           UNIT                                           
027954,003578: 31,2533           06736                           STORE    XNB        +18D,1                     #  STORE IN XNB FOR CALCGA
027955,003579: 31,2534           76100                           TIX,1    AXT,1                                 
027956,003580: 31,2535           62527                                    NEXTVEC1                              
027957,003581: 31,2536           00022                                    18D                                   
027958,003582: 31,2537           77773        NEXTVEC2           VLOAD*                                         #  LOAD REFSMMAT INTO XSM FOR CALCGA
027959,003583: 31,2540           01756                                    REFSMMAT   +18D,1                     
027960,003584: 31,2541           06714                           STORE    XSM        +18D,1                     
027961,003585: 31,2542           45100                           TIX,1    CALL                                  
027962,003586: 31,2543           62537                                    NEXTVEC2                              
027963,003587: 31,2544           47344                                    CALCGA                                #  COMPUTE DESIRED CDUS
027964,003588: 31,2545           45014                           SET      CALL                                  
027965,003589: 31,2546           02471                                    3AXISFLG                              
027966,003590: 31,2547           62765                                    DOR60B                                
027967,003591: 31,2550           77650                           GOTO                                           
027968,003592: 31,2551           62556                                    P23.57A                               
027969,003593: 31,2552           06006        DOVECPT            TC       INTPRET                               
027970,003594: 31,2553           45175                           VLOAD    CALL                                  
027971,003595: 31,2554           03642                                    UCLSTAR                               

Page 630

027973,003597: 31,2555           62756                                    DOR60                                 
027974,003598: 31,2556           77624        P23.57A            CALL                                           
027975,003599: 31,2557           22327                                    GRP2PC                                
027976,003600: 31,2560           43014        P23.57             CLEAR    SET                                   
027977,003601: 31,2561           00666                                    TARG2FLG                              
027978,003602: 31,2562           04464                                    V94FLAG                               
027979,003603: 31,2563           77624                           CALL                                           
027980,003604: 31,2564           31005                                    R52                                   
027981,003605: 31,2565           77614                           CLEAR                                          
027982,003606: 31,2566           04664                                    V94FLAG                               
027983,003607: 31,2567           77776        P23.60             EXIT                                           
027984,003608: 31,2570           00004                           INHINT                                         
027985,003609: 31,2571           00006                           EXTEND                                         
027986,003610: 31,2572           31723                           DCA      MRKBUF1                               
027987,003611: 31,2573           53062                           DXCH     MARKTIME                              
027988,003612: 31,2574           31727                           CA       MRKBUF1    +5                         
027989,003613: 31,2575           57754                           XCH      TRUNION                               
027990,003614: 31,2576           00003                           RELINT                                         
027991,003615: 31,2577           36211                           CAF      SIX                                   
027992,003616: 31,2600           05607                           TC       GENTRAN                               
027993,003617: 31,2601           01722                           ADRES    MRKBUF1                               
027994,003618: 31,2602           01674                           ADRES    MARKDOWN                              
027995,003619: 31,2603           06006                           TC       INTPRET                               
027996,003620: 31,2604           45014                           SET      CALL                                  
027997,003621: 31,2605           04465                                    SAVECFLG                              
027998,003622: 31,2606           22327                                    GRP2PC                                
027999,003623: 31,2607           45135                           SLOAD    CALL                                  
028000,003624: 31,2610           23514                                    V05N71                                
028001,003625: 31,2611           63355                                    P23N7071                              
028002,003626: 31,2612           77624        P23.85             CALL                                           
028003,003627: 31,2613           63002                                    POINTAXS                              
028004,003628: 31,2614           63256        R23.55             UNIT     PDVL                                  #  RCLL IS IN MPAC
028005,003629: 31,2615           00043                                    34D                                   #  RCLL * RCLL
028006,003630: 31,2616           24037                           STOVL    30D                                   #  PUSH 30-31 =RCLL*RCLL 32-33=ABVAL RCLL
028007,003631: 31,2617           03634                                    VZC                                   
028008,003632: 31,2620           54361                           VXSC     VSR                                   
028009,003633: 31,2621           23475                                    ONE/C                                 
028010,003634: 31,2622           20620                                    15D                                   
028011,003635: 31,2623           77655                           VAD                                            #  PUSH UP RCLL(UNIT)
028012,003636: 31,2624           77656                           UNIT                                           
028013,003637: 31,2625           27642                           STOVL    UCLSTAR                               
028014,003638: 31,2626           03634                                    VZC                                   
028015,003639: 31,2627           52342                           VSR2     VSU                                   
028016,003640: 31,2630           02141                                    VESO                                  
028017,003641: 31,2631           54361                           VXSC     VSR                                   
028018,003642: 31,2632           23475                                    ONE/C                                 
028019,003643: 31,2633           20616                                    13D                                   
028020,003644: 31,2634           53455                           VAD      UNIT                                  
028021,003645: 31,2635           02617                                    US                                    
028022,003646: 31,2636           77614                           BOFF                                           

Page 631

028024,003648: 31,2637           04745                                    SAVECFLG                              
028025,003649: 31,2640           62515                                    OCCLCOMP                              
028026,003650: 31,2641           03650                           STORE    USSTAR                                
028027,003651: 31,2642           72441                           DOT      SL1                                   
028028,003652: 31,2643           03642                                    UCLSTAR                               
028029,003653: 31,2644           74315                           PDVL     VXSC                                  #  PD 0,1 = USSTAR(DOT)UCLSTAR
028030,003654: 31,2645           03642                                    UCLSTAR                               
028031,003655: 31,2646           51372                           VSL1     BVSU                                  
028032,003656: 31,2647           03650                                    USSTAR                                
028033,003657: 31,2650           77656                           UNIT                                           
028034,003658: 31,2651           27502                           STOVL    BVECTOR                               #  USSTAR - COSQ(UCLSTAR
028035,003659: 31,2652           15336                                    ZEROVECS                              
028036,003660: 31,2653           03510                           STORE    BVECTOR    +6                         
028037,003661: 31,2654           17516                           STODL    BVECTOR    +12D                       
028038,003662: 31,2655           00001                                    0                                     
028039,003663: 31,2656           57526                           ACOS     DCOMP                                 
028040,003664: 31,2657           77525                           PDDL     EXIT                                  
028041,003665: 31,2660           15336                                    ZEROVECS                              
028042,003666: 31,2661           33505                           CA       VARSUBL                               #  PUT FIXED INTO ERASABLE FOR MSU
028043,003667: 31,2662           54001                           TS       L                                     #  INSTRUCTION COMING UP
028044,003668: 31,2663           31754                           CA       TRUNION                               #  REQUIRED TO CHANGE 2:S COMPLEMENT
028045,003669: 31,2664           00006                           EXTEND                                         #  TRUNION TO 1:S COMPLEMENT
028046,003670: 31,2665           20001                           MSU      L                                     #  TRUNION (2'S)-00000 CONVERTS TRUNION TO
028047,003671: 31,2666           54154                           TS       MPAC                                  #  1:S. VARSUBL=00000
028048,003672: 31,2667           06006                           TC       INTPRET                               
028049,003673: 31,2670           67206                           PUSH     SLOAD                                 #  PUSH IS DP. WHEN BDSU IS EXECUTED, 2ND
028050,003674: 31,2671           01025                                    TRUNBIAS                              #  HALF OF PUSHLIST IS GUARANTEED ZERO FROM
028051,003675: 31,2672           77621                           BDSU                                           #  DLOAD ZEROVECS ABOVE
028052,003676: 31,2673           43242                           SR3      DAD                                   
028053,003677: 31,2674           41215                           DAD      DMP                                   
028054,003678: 31,2675           23505                                    TRUN19                                
028055,003679: 31,2676           00041                                    32D                                   
028056,003680: 31,2677           52405                           DMP      SL3                                   
028057,003681: 31,2700           07016                                    PI/4.0                                
028058,003682: 31,2701           62414                           BOFF     SL2                                   
028059,003683: 31,2702           04343                                    CMOONFLG                              
028060,003684: 31,2703           62704                                    R23.51                                
028061,003685: 31,2704           17524        R23.51             STODL    DELTAQ                                
028062,003686: 31,2705           00037                                    30D                                   #  RCLL * RCLL
028063,003687: 31,2706           47005                           DMP      RTB                                   
028064,003688: 31,2707           23511                                    TRUNVAR                               
028065,003689: 31,2710           45657                                    TPMODE                                
028066,003690: 31,2711           43171                           TAD      CLEAR                                 
028067,003691: 31,2712           23506                                    VARSUBL                               
028068,003692: 31,2713           02666                                    DMENFLG                               
028069,003693: 31,2714           37526                           STCALL   VARIANCE                              
028070,003694: 31,2715           75260                                    INCORP1                               
028071,003695: 31,2716           77624                           CALL                                           
028072,003696: 31,2717           22327                                    GRP2PC                                
028073,003697: 31,2720           51575                           VLOAD    ABVAL                                 

Page 632

028075,003699: 31,2721           01122                                    DELTAX     +6                         
028076,003700: 31,2722           60414                           BOF      SR2                                   #  DISPLAY IS 2-27 IF IN LUNAR SPHERE
028077,003701: 31,2723           04343                                    CMOONFLG                              
028078,003702: 31,2724           62725                                    R23.52                                
028079,003703: 31,2725           27504        R23.52             STOVL    N49DISP    +2                         
028080,003704: 31,2726           01114                                    DELTAX                                
028081,003705: 31,2727           77646                           ABVAL                                          
028082,003706: 31,2730           60414                           BOF      SR2                                   
028083,003707: 31,2731           04343                                    CMOONFLG                              
028084,003708: 31,2732           62733                                    R23.53                                
028085,003709: 31,2733           03502        R23.53             STORE    N49DISP                               
028086,003710: 31,2734           77776                           EXIT                                           
028087,003711: 31,2735           35030        R23.6              CAF      V06N49                                
028088,003712: 31,2736           04636                           TC       BANKCALL                              
028089,003713: 31,2737           21101                           CADR     GOFLASHR                              
028090,003714: 31,2740           04103                           TC       GOTOPOOH                              
028091,003715: 31,2741           02750                           TC       R23.7                                 #  INCORPORATE DATA
028092,003716: 31,2742           04103                           TC       GOTOPOOH                              
028093,003717: 31,2743           34766                           CAF      BIT3                                  #  BLANK OUT R3
028094,003718: 31,2744           05516                           TC       BLANKET                               
028095,003719: 31,2745           05402                           TC       PHASCHNG                              
028096,003720: 31,2746           00012                           OCT      00012                                 
028097,003721: 31,2747           05205                           TC       ENDOFJOB                              
028098,003722: 31,2750           06006        R23.7              TC       INTPRET                               
028099,003723: 31,2751           45014        R23.8              SET      CALL                                  
028100,003724: 31,2752           00467                                    VEHUPFLG                              
028101,003725: 31,2753           75472                                    INCORP2                               
028102,003726: 31,2754           77776                           EXIT                                           
028103,003727: 31,2755           04103        R23.END            TC       GOTOPOOH                              
028104,003728: 31,2756           53521        DOR60              MXV      UNIT                                  
028105,003729: 31,2757           01734                                    REFSMMAT                              
028106,003730: 31,2760           27357                           STOVL    POINTVSM                              
028107,003731: 31,2761           23517                                    JCAXIS                                
028108,003732: 31,2762           03351                           STORE    SCAXIS                                
028109,003733: 31,2763           77614                           CLEAR                                          
028110,003734: 31,2764           02671                                    3AXISFLG                              #  SET UP FOR VECPOINT IN R60
028111,003735: 31,2765           77420        DOR60B             STQ      EXIT                                  
028112,003736: 31,2766           02657                                    SRTEMP                                
028113,003737: 31,2767           33524                           CAF      R60ADRS                               
028114,003738: 31,2770           54373                           TS       TEMPFLSH                              
028115,003739: 31,2771           05402                           TC       PHASCHNG                              
028116,003740: 31,2772           00012                           OCT      00012                                 
028117,003741: 31,2773           04611        R60CALL            TC       E6SETTER                              
028118,003742: 31,2774           04636                           TC       BANKCALL                              
028119,003743: 31,2775           56074                           CADR     R60CSM                                
028120,003744: 31,2776           04606                 +3        TC       E7SETTER                              
028121,003745: 31,2777           06006                           TC       INTPRET                               
028122,003746: 31,3000           77650                           GOTO                                           
028123,003747: 31,3001           02657                                    SRTEMP                                

Page 633

028125,003749: 
028126,003750:                                                                                                  #  POINTAXIS SUBROUTINE
028127,003751: 
028128,003752: 31,3002           77620        POINTAXS           STQ                                            
028129,003753: 31,3003           01006                                    POINTEX                               
028130,003754: 31,3004           71214        R23.05             BON      DLOAD                                 
028131,003755: 31,3005           01711                                    ORBWFLAG                              
028132,003756: 31,3006           63012                                    R23.1                                 
028133,003757: 31,3007           03001                                    WMIDPOS                               
028134,003758: 31,3010           34001                           STCALL   0                                     
028135,003759: 31,3011           56612                                    INITIALW                              #  INITIALIZE W-MATRIX FIRST PASS IN P23
028136,003760: 31,3012           77624        R23.1              CALL                                           
028137,003761: 31,3013           56462                                    SETINTG                               #  SETUP FOR CSM INTEGRATION
028138,003762: 31,3014           43014                           BOFSET   SET                                   
028139,003763: 31,3015           01451                                    ORBWFLAG                              
028140,003764: 31,3016           63020                                    R23.2                                 
028141,003765: 31,3017           01476                                    DIM0FLAG                              
028142,003766: 31,3020           77624        R23.2              CALL                                           
028143,003767: 31,3021           27236                                    INTEGRV                               #  INTEGRATE CSM STATE VEC. TO MARKTIME
028144,003768: 31,3022           77776                           EXIT                                           
028145,003769: 31,3023           05402                           TC       PHASCHNG                              
028146,003770: 31,3024           04022                           OCT      04022                                 
028147,003771: 31,3025           06006                           TC       INTPRET                               
028148,003772: 31,3026           77014        RECT.1             BOFF     AXT,2                                 #  SR TO SET ZMEASURE = 0 IF MEASUREMENT
028149,003773: 31,3027           04343                                    CMOONFLG                              #   PLANET AND PRIMARY PLANET ARE THE SAME
028150,003774: 31,3030           63040                                    RECT.3                                #    OTHERWISE = 1
028151,003775: 31,3031           77775                           DEC      -2         B-14                       
028152,003776: 31,3032           77614                           BOFF                                           #      VEC. AND SCALE B29 AND B7
028153,003777: 31,3033           01743                                    LUNAFLAG                              
028154,003778: 31,3034           63044                                    RECT.4                                
028155,003779: 31,3035           52014        RECT.2             CLEAR    GOTO                                  
028156,003780: 31,3036           00265                                    ZMEASURE                              
028157,003781: 31,3037           63046                                    RECT.5                                
028158,003782: 31,3040           43174        RECT.3             AXT,2    BOFF                                  
028159,003783: 31,3041           00000                                    0                                     
028160,003784: 31,3042           01743                                    LUNAFLAG                              
028161,003785: 31,3043           63035                                    RECT.2                                
028162,003786: 31,3044           77614        RECT.4             SET                                            
028163,003787: 31,3045           00065                                    ZMEASURE                              
028164,003788: 31,3046           44575        RECT.5             VLOAD    VSR7                                  
028165,003789: 31,3047           01573                                    DELTACSM                              #  SCALED B22  OR  B18
028166,003790: 31,3050           53257                           VSR*     VAD                                   
028167,003791: 31,3051           57176                                    0,2                                   
028168,003792: 31,3052           01607                                    RCVCSM                                #  SCALED B29  OR  B27
028169,003793: 31,3053           77657                           VSR*                                           
028170,003794: 31,3054           57176                                    0,2                                   
028171,003795: 31,3055           27626                           STOVL    RZC                                   #  NOW SCALED B29
028172,003796: 31,3056           01601                                    NUVCSM                                #  SCALED B3  OR  B-1
028173,003797: 31,3057           53702                           VSR4     VSR*                                  
028174,003798: 31,3060           57176                                    0,2                                   
028175,003799: 31,3061           53655                           VAD      VSR*                                  

Page 634

028177,003801: 31,3062           01615                                    VCVCSM                                #  SCALED B7  OR  B5
028178,003802: 31,3063           57176                                    0,2                                   
028179,003803: 31,3064           03634                           STORE    VZC                                   #  NOW SCALED B7
028180,003804: 31,3065           77614                           BOFF                                           
028181,003805: 31,3066           00345                                    ZMEASURE                              #  IN SPHERE OF INFLUENCE OF PRIMARY BODY
028182,003806: 31,3067           63101                                    R23.3                                 
028183,003807: 31,3070           45145                           DLOAD    CALL                                  
028184,003808: 31,3071           01062                                    MARKTIME                              
028185,003809: 31,3072           54141                                    LUNPOS                                
028186,003810: 31,3073           57414                           BON      VCOMP                                 
028187,003811: 31,3074           04303                                    CMOONFLG                              
028188,003812: 31,3075           63076                                    +1                                    
028189,003813: 31,3076           77655                           VAD                                            
028190,003814: 31,3077           03626                                    RZC                                   
028191,003815: 31,3100           03626                           STORE    RZC                                   
028192,003816: 31,3101           67201        R23.3              SETPD    SLOAD                                 
028193,003817: 31,3102           00001                                    0                                     
028194,003818: 31,3103           03752                                    LANDMARK                              #  IF LANDMARK = 0, USE HORIZ SUBR
028195,003819: 31,3104           43030                           BHIZ     SET                                   
028196,003820: 31,3105           63114                                    R23.4                                 
028197,003821: 31,3106           00462                                    ERADFLAG                              
028198,003822: 31,3107           45145                           DLOAD    CALL                                  
028199,003823: 31,3110           01062                                    MARKTIME                              
028200,003824: 31,3111           26524                                    LALOTORV                              
028201,003825: 31,3112           77650                           GOTO                                           
028202,003826: 31,3113           63337                                    R23.5                                 
028203,003827: 31,3114           65345        R23.4              DLOAD    PDDL                                  #  PUSH 0-1 = -AYO SCALED B0
028204,003828: 31,3115           01712                                    -AYO                                  
028205,003829: 31,3116           01714                                    AXO                                   
028206,003830: 31,3117           63325                           PDDL     PDVL                                  #  PUSH 2-3 = +AX SCALED B0
028207,003831: 31,3120           15344                                    DPPOSMAX                              
028208,003832: 31,3121           02617                                    US                                    
028209,003833: 31,3122           53435                           VXV      UNIT                                  
028210,003834: 31,3123           03626                                    RZC                                   
028211,003835: 31,3124           27620                           STOVL    UBAR2                                 
028212,003836: 31,3125           53435                           VXV      UNIT                                  #  PUSH UP
028213,003837: 31,3126           03620                                    UBAR2                                 
028214,003838: 31,3127           27604                           STOVL    UBAR0                                 
028215,003839: 31,3130           03620                                    UBAR2                                 
028216,003840: 31,3131           53435                           VXV      UNIT                                  
028217,003841: 31,3132           03604                                    UBAR0                                 
028218,003842: 31,3133           03612                           STORE    UBAR1                                 
028219,003843: 31,3134           50214                           BON      DOT                                   
028220,003844: 31,3135           01703                                    LUNAFLAG                              
028221,003845: 31,3136           63324                                    HORIZ.6                               
028222,003846: 31,3137           00001                                    0                                     #  UBAR1 DOT UZ
028223,003847: 31,3140           26156                           STOVL    ALPHAV     +4                         
028224,003848: 31,3141           03626                                    RZC                                   
028225,003849: 31,3142           41246                           ABVAL    DMP                                   
028226,003850: 31,3143           03376                                    HORISLP                               

Page 635

028228,003852: 31,3144           43276                           DCOMP    DAD                                   
028229,003853: 31,3145           01346                                    HORIZALT                              
028230,003854: 31,3146           34772                           STCALL   RATETEMP                              
028231,003855: 31,3147           26570                                    GETERAD                               
028232,003856: 31,3150           65215                           DAD      PDDL                                  #  MPAC HAS RADIUS OF FISHER SLLIPSOID
028233,003857: 31,3151           00772                                    RATETEMP                              #  PUSH 0-1 = BH SCALED B29
028234,003858: 31,3152           23477                                    AEARTH                                
028235,003859: 31,3153           41415                           DAD      PUSH                                  #  PUSH 2-3 = AH B29
028236,003860: 31,3154           00772                                    RATETEMP                              
028237,003861: 31,3155           64375        HORIZ.1            VLOAD    MXV                                   
028238,003862: 31,3156           03626                                    RZC                                   #  B29
028239,003863: 31,3157           03604                                    UBAR0                                 #  B1
028240,003864: 31,3160           63372                           VSL1     PDVL                                  #  PUSH 4-9 = RH(XH,YH,ZH) B29
028241,003865: 31,3161           02617                                    US                                    
028242,003866: 31,3162           76521                           MXV      VSL1                                  
028243,003867: 31,3163           03604                                    UBAR0                                 
028244,003868: 31,3164           77725                           PDDL                                           #  PUSH 10-15 = USH B1
028245,003869: 31,3165           00003                                    2                                     #  AH
028246,003870: 31,3166           14043                           STODL    34D                                   
028247,003871: 31,3167           00005                                    4                                     #  XH
028248,003872: 31,3170           77624                           CALL                                           
028249,003873: 31,3171           63344                                    DIVIDE                                
028250,003874: 31,3172           63457                           SR*      DSQ                                   
028251,003875: 31,3173           20611                                    8D,1                                  #  NOW SCALED B9
028252,003876: 31,3174           14037                           STODL    30D                                   
028253,003877: 31,3175           00001                                    0                                     
028254,003878: 31,3176           14043                           STODL    34D                                   
028255,003879: 31,3177           00007                                    6                                     #  YH
028256,003880: 31,3200           77624                           CALL                                           
028257,003881: 31,3201           63344                                    DIVIDE                                
028258,003882: 31,3202           63457                           SR*      DSQ                                   
028259,003883: 31,3203           20611                                    8D,1                                  #  B9
028260,003884: 31,3204           41415                           DAD      PUSH                                  #  PUSH 16-17 =A SCALED B18
028261,003885: 31,3205           00037                                    30D                                   
028262,003886: 31,3206           75425                           DSU      SQRT                                  
028263,003887: 31,3207           23503                                    1.0B18                                
028264,003888: 31,3210           77725                           PDDL                                           #  PUSH 18-19  SQRT(A-1) B9
028265,003889: 31,3211           00021                                    16D                                   
028266,003890: 31,3212           14043                           STODL    34D                                   
028267,003891: 31,3213           00005                                    4                                     #  XH
028268,003892: 31,3214           77624                           CALL                                           
028269,003893: 31,3215           63344                                    DIVIDE                                
028270,003894: 31,3216           65257                           SR*      PDDL                                  
028271,003895: 31,3217           20622                                    17D,1                                 #  PUSH 20-21 = XH/A B29
028272,003896: 31,3220           00007                                    6                                     #  YH
028273,003897: 31,3221           77624                           CALL                                           
028274,003898: 31,3222           63344                                    DIVIDE                                
028275,003899: 31,3223           65257                           SR*      PDDL                                  
028276,003900: 31,3224           20622                                    17D,1                                 #  PUSH 22-23 = YH/A B29
028277,003901: 31,3225           00023                                    18D                                   #  SQRT(A-1)

Page 636

028279,003903: 31,3226           77624                           CALL                                           
028280,003904: 31,3227           63344                                    DIVIDE                                
028281,003905: 31,3230           77657                           SR*                                            
028282,003906: 31,3231           20611                                    8D,1                                  
028283,003907: 31,3232           14035                           STODL    28D                                   
028284,003908: 31,3233           00001                                    0                                     #  BH
028285,003909: 31,3234           14043                           STODL    34D                                   
028286,003910: 31,3235           00003                                    2                                     #  AH
028287,003911: 31,3236           77624                           CALL                                           
028288,003912: 31,3237           63344                                    DIVIDE                                
028289,003913: 31,3240           41257                           SR*      DMP                                   #  AH/BH  SCALED  B1
028290,003914: 31,3241           20601                                    0,1                                   
028291,003915: 31,3242           00035                                    28D                                   #  SQRT(A-1)/A
028292,003916: 31,3243           72405                           DMP      SL1                                   
028293,003917: 31,3244           00007                                    6                                     #  YH
028294,003918: 31,3245           77725                           PDDL                                           
028295,003919: 31,3246           00003                                    2                                     #  AH
028296,003920: 31,3247           14043                           STODL    34D                                   
028297,003921: 31,3250           00001                                    0                                     
028298,003922: 31,3251           77624                           CALL                                           
028299,003923: 31,3252           63344                                    DIVIDE                                
028300,003924: 31,3253           41257                           SR*      DMP                                   #  BH/AH  SCALED  B1
028301,003925: 31,3254           20601                                    0,1                                   
028302,003926: 31,3255           00035                                    28D                                   #  SQRT (A-1)/A
028303,003927: 31,3256           72405                           DMP      SL1                                   
028304,003928: 31,3257           00005                                    4                                     #  XH
028305,003929: 31,3260           43325                           PDDL     DAD                                   
028306,003930: 31,3261           00025                                    20D                                   #  XH/A
028307,003931: 31,3262           00031                                    24D                                   #  ALPHA
028308,003932: 31,3263           45325                           PDDL     DSU                                   
028309,003933: 31,3264           00027                                    22D                                   #  YH/A
028310,003934: 31,3265           00033                                    26D                                   #  BETA
028311,003935: 31,3266           40206                           PUSH     SETPD                                 
028312,003936: 31,3267           00021                                    16D                                   
028313,003937: 31,3270           45345                           DLOAD    DSU                                   
028314,003938: 31,3271           00025                                    20D                                   #  XH/A
028315,003939: 31,3272           00031                                    24D                                   #  ALPHA
028316,003940: 31,3273           43325                           PDDL     DAD                                   
028317,003941: 31,3274           00027                                    22D                                   #  YH/A
028318,003942: 31,3275           00033                                    26D                                   #  BETA
028319,003943: 31,3276           41525                           PDDL     PUSH                                  
028320,003944: 31,3277           15336                                    ZEROVECS                              
028321,003945: 31,3300           24041                           STOVL    32D                                   #  ZERO THIRD COMP. OF T-0 VECTOR
028322,003946: 31,3301           00035                                    28D                                   
028323,003947: 31,3302           53451                           VSU      UNIT                                  
028324,003948: 31,3303           00005                                    4                                     #  RH VECTOR
028325,003949: 31,3304           63241                           DOT      PDVL                                  #  PUSH 22-23 A-SUB-ZERO
028326,003950: 31,3305           00013                                    10D                                   #  USH VECTOR
028327,003951: 31,3306           00021                                    16D                                   #  T1 VECTOR
028328,003952: 31,3307           53451                           VSU      UNIT                                  

Page 637

028330,003954: 31,3310           00005                                    4                                     #  RH VECTOR
028331,003955: 31,3311           41441                           DOT      PUSH                                  #  PUSH 24-25 A-SUB-ONE
028332,003956: 31,3312           00013                                    10D                                   
028333,003957: 31,3313           50021                           BDSU     BMN                                   
028334,003958: 31,3314           00027                                    22D                                   #  A-SUB-ZERO
028335,003959: 31,3315           63330                                    HORIZ.3                               
028336,003960: 31,3316           77614                           BON                                            
028337,003961: 31,3317           00304                                    NORFHOR                               
028338,003962: 31,3320           63333                                    HORIZ.4                               
028339,003963: 31,3321           52175        HORIZ.2            VLOAD    GOTO                                  
028340,003964: 31,3322           00035                                    28D                                   #  T-0 VECTOR
028341,003965: 31,3323           63335                                    HORIZ.5                               
028342,003966: 31,3324           41545        HORIZ.6            DLOAD    PUSH                                  
028343,003967: 31,3325           23501                                    RADMOON                               
028344,003968: 31,3326           52006                           PUSH     GOTO                                  
028345,003969: 31,3327           63155                                    HORIZ.1                               
028346,003970: 31,3330           77614        HORIZ.3            BON                                            
028347,003971: 31,3331           00304                                    NORFHOR                               
028348,003972: 31,3332           63321                                    HORIZ.2                               
028349,003973: 31,3333           77775        HORIZ.4            VLOAD                                          
028350,003974: 31,3334           00021                                    16D                                   #  T1 VECTOR
028351,003975: 31,3335           76505        HORIZ.5            VXM      VSL1                                  
028352,003976: 31,3336           03604                                    UBAR0                                 
028353,003977: 31,3337           40251        R23.5              VSU      SETPD                                 
028354,003978: 31,3340           03626                                    RZC                                   
028355,003979: 31,3341           00001                                    0                                     
028356,003980: 31,3342           77650                           GOTO                                           
028357,003981: 31,3343           01006                                    POINTEX                               
028358,003982: 31,3344           70501        DIVIDE             NORM     SR1                                   
028359,003983: 31,3345           00047                                    X1                                    
028360,003984: 31,3346           14045                           STODL    36D                                   
028361,003985: 31,3347           00043                                    34D                                   
028362,003986: 31,3350           55301                           NORM     BDDV                                  
028363,003987: 31,3351           00051                                    S1                                    
028364,003988: 31,3352           00045                                    36D                                   
028365,003989: 31,3353           43460                           XSU,1    RVQ                                   
028366,003990: 31,3354           00050                                    S1                                    
028367,003991: 31,3355           03744        P23N7071           STORE    22SUBSCL                              
028368,003992: 31,3356           77420                           STQ      EXIT                                  
028369,003993: 31,3357           01006                                    POINTEX                               
028370,003994: 31,3360           31743        DISP7071           CA       22SUBSCL                              
028371,003995: 31,3361           05535                           TC       VNFLASH                               
028372,003996: 31,3362           05547        P23.15             TC       UPFLAG                                
028373,003997: 31,3363           00060                           ADRES    LUNAFLAG                              
028374,003998: 31,3364           31751                           CA       LANDMARK                              #  IF C=2,LUNAFLAG=1. IF C=1,LUNAFLAG=0
028375,003999: 31,3365           00006                           EXTEND                                         
028376,004000: 31,3366           13375                           BZF      P23.151                               
028377,004001: 31,3367           31752                           CA       HORIZON                               
028378,004002: 31,3370           00006                           EXTEND                                         
028379,004003: 31,3371           13373                           BZF      +2                                    

Page 638

028381,004005: 31,3372           03445                           TC       R23.10                                #  OPERATOR DSKY ERROR
028382,004006: 31,3373           31751                           CA       LANDMARK                              
028383,004007: 31,3374           03400                           TC       P23.152                               
028384,004008: 31,3375           31752        P23.151            CA       HORIZON                               
028385,004009: 31,3376           00006                           EXTEND                                         
028386,004010: 31,3377           13445                           BZF      R23.10                                
028387,004011: 31,3400           73526        P23.152            MASK     BITS7-9                               #  IS C EQUAL TO 1 OR 2
028388,004012: 31,3401           65221                           AD       NEG100                                
028389,004013: 31,3402           00006                           EXTEND                                         
028390,004014: 31,3403           13410                           BZF      P23.16                                
028391,004015: 31,3404           65221                           AD       NEG100                                
028392,004016: 31,3405           00006                           EXTEND                                         
028393,004017: 31,3406           13412                           BZF      P23.176                               
028394,004018: 31,3407           03445                           TC       R23.10                                
028395,004019: 31,3410           05561        P23.16             TC       DOWNFLAG                              
028396,004020: 31,3411           00060                           ADRES    LUNAFLAG                              
028397,004021: 31,3412           05547        P23.176            TC       UPFLAG                                
028398,004022: 31,3413           00004                           ADRES    NORFHOR                               
028399,004023: 31,3414           31752                           CA       HORIZON                               
028400,004024: 31,3415           00006                           EXTEND                                         
028401,004025: 31,3416           13427                           BZF      P23.20                                
028402,004026: 31,3417           73527                           MASK     BITS4-6                               
028403,004027: 31,3420           66171                           AD       -OCT10                                
028404,004028: 31,3421           00006                           EXTEND                                         
028405,004029: 31,3422           13433                           BZF      P23.18                                
028406,004030: 31,3423           66171                           AD       -OCT10                                
028407,004031: 31,3424           00006                           EXTEND                                         
028408,004032: 31,3425           13435                           BZF      P23.30                                
028409,004033: 31,3426           03445                           TC       R23.10                                
028410,004034: 31,3427           06006        P23.20             TC       INTPRET                               
028411,004035: 31,3430           77624                           CALL                                           
028412,004036: 31,3431           60304                                    P22SUBRB                              
028413,004037: 31,3432           77776                           EXIT                                           
028414,004038: 31,3433           05561        P23.18             TC       DOWNFLAG                              
028415,004039: 31,3434           00004                           ADRES    NORFHOR                               
028416,004040: 31,3435           31140        P23.30             CA       STARCODE                              #  IS STARCODE GREATER THAN OR
028417,004041: 31,3436           00006                           EXTEND                                         #  EQUAL TO 0 AND LESS THAN 37
028418,004042: 31,3437           13464                           BZF      LDPLANET                              
028419,004043: 31,3440           00006                           EXTEND                                         
028420,004044: 31,3441           63445                           BZMF     R23.10                                
028421,004045: 31,3442           63525                           AD       NEG37                                 
028422,004046: 31,3443           00006                           EXTEND                                         
028423,004047: 31,3444           63447                           BZMF     P23.170                               
028424,004048: 31,3445           04362        R23.10             TC       FALTON                                
028425,004049: 31,3446           03360                           TC       DISP7071                              
028426,004050: 31,3447           06006        P23.170            TC       INTPRET                               
028427,004051: 31,3450           41535        P23.17             SLOAD    PUSH                                  
028428,004052: 31,3451           01141                                    STARCODE                              
028429,004053: 31,3452           41335                           SLOAD    DMP                                   
028430,004054: 31,3453           23516                                    SPSIX                                 

Page 639

028432,004056: 31,3454           66150                           LXA,1    SXA,1                                 
028433,004057: 31,3455           00155                                    MPAC       +1                         
028434,004058: 31,3456           00302                                    BESTI                                 #  BESTI = 6XSTAR NUMBER
028435,004059: 31,3457           77624                           CALL                                           
028436,004060: 31,3460           30000                                    LOWMEMRY                              #  NEEDED TO RETRIEVE STAR VECTOR FROM LOW
028437,004061: 31,3461           02617        P23.31             STORE    STARSAV2                              #  STORE FOR R53,P23. US(IN P23)=STARSAV2
028438,004062: 31,3462           77650                           GOTO                                           
028439,004063: 31,3463           01006                                    POINTEX                               
028440,004064: 31,3464           35035        LDPLANET           CAF      V06N88                                
028441,004065: 31,3465           05535                           TC       VNFLASH                               
028442,004066: 31,3466           06006                           TC       INTPRET                               
028443,004067: 31,3467           74375                           VLOAD    VXSC                                  
028444,004068: 31,3470           03705                                    STARSAV3                              
028445,004069: 31,3471           23531                                    1DSQR3                                
028446,004070: 31,3472           52056                           UNIT     GOTO                                  
028447,004071: 31,3473           63461                                    P23.31                                
028448,004072: 31,3474           26305 05432  ONE/C              2DEC*    .333564049 E-6        B+21*           
028449,004073: 31,3476           00302 24533  AEARTH             2DEC     6378166    B-29                       #  A AXIS OF EARTH(METERS B-29)
028450,004074: 31,3500           00065 01265  RADMOON            2DEC     1738090    B-29                       #  RADIUS OF MOON IN METERS
028451,004075: 31,3502           00000 02000  1.0B18             2DEC     1.0        B-18                       
028452,004076: 31,3504           01604        TRUN19             OCT      01604                                 
028453,004077: 31,3505           00000        VARSUBL            DEC      0          B-14                       
028454,004078: 31,3506           01505 14100  VARSUBL3           2DEC*    3.4299040  E+6        B-26*           
028455,004079: 31,3510           00012 27462  TRUNVAR            2DEC     2.5        E-9        B+18            
028456,004080: 31,3512           01306        V05N70             VN       0570                                  
028457,004081: 31,3513           01307        V05N71             VN       0571                                  
028458,004082: 31,3514           00202        V50N25P            OCT      00202                                 
028459,004083: 31,3515           00006        SPSIX              OCT      00006                                 
028460,004084: 31,3516           10464 12467  JCAXIS             2DEC     .2688190620                            #  1/2(SIN 32.523 DEG)  TRACK AXIS
028461,004085: 31,3520           00000 00000                     2DEC     0          B-28                       
028462,004086: 31,3522           15373 11346                     2DEC     .4215878460                            #  1/2(COS 32.523 DEG)
028463,004087: 31,3524           62776        R60ADRS            CADR     R60CALL    +3                         
028464,004088: 31,3525           77732        NEG37              DEC      -37        B-14                       
028465,004089: 31,3526           00700        BITS7-9            OCT      700                                   
028466,004090: 31,3527           00070        BITS4-6            OCT      70                                    
028467,004091: 31,3530           22363 11623  1DSQR3             2DEC     0.57735021                            
028468,004092: 
028469,004093: 31,3532           06006        V94NTR             TC       INTPRET                               
028470,004094: 31,3533           77650                           GOTO                                           
028471,004095: 31,3534           62474                                    V94ENTER                              
028472,004096: 14,2000                                           SETLOC   RT53                                  

Page 640

028474,004098: 14,2000                                           BANK                                           
028475,004099: 14,2000                                           COUNT*   $$/STARS                              
028476,004100: 14,2000           43573        LOWMEMRY           VLOAD*   RVQ                                   
028477,004101: 14,2001           33776                                    CATLOG,1                              
028478,004102:    4000                                           SETLOC   FFTAG2                                
028479,004103:    4000                                           BANK                                           
028480,004104: 
028481,004105:    4546                                           COUNT*   $$/R22                                
028482,004106:    4546           00006        GOTOV56            EXTEND                                         #  P20 TERMINATES BY GOTOV56 INSTEAD OF
028483,004107:    4547           34552                           DCA      VB56CADR                              #   GOTOPOOH
028484,004108:    4550           15214                           TCF      SUPDXCHZ                              
028485,004109:    4551  0003777                                  EBANK=   WHOCARES                              
028486,004110:    4551           02641 66107  VB56CADR           2CADR    TRACKTRM                              
028487,004111: 
028488,004112: 40,2000                                           SETLOC   PINBALL1                              
028489,004113: 40,2000                                           BANK                                           
028490,004114: 40,3636                                           COUNT*   $$/EXTVB                              
028491,004115: 40,3636           06006        V67CALL            TC       INTPRET                               
028492,004116: 40,3637           77624                           CALL                                           
028493,004117: 40,3640           61706                                    V67WW                                 
028494,004118: 40,3641           77776                           EXIT                                           
028495,004119: 40,3642           33770        V06N99DS           CAF      V06N99A                               
028496,004120: 40,3643           04636                           TC       BANKCALL                              
028497,004121: 40,3644           20576                           CADR     GOXDSPF                               
028498,004122: 40,3645           15524                           TCF      ENDEXT                                
028499,004123: 40,3646           03650                           TC       V06N9933                              
028500,004124: 40,3647           03642                           TC       V06N99DS                              
028501,004125: 40,3650           06006        V06N9933           TC       INTPRET                               
028502,004126: 40,3651           46135                           SLOAD    BHIZ                                  #  IF R3 OF V67 = 0 EXIT
028503,004127: 40,3652           02316                                    WWOPT                                 
028504,004128: 40,3653           61704                                    V67COMEX                              
028505,004129: 40,3654           73150        V6N99INP           LXA,1    LXA,2                                 
028506,004130: 40,3655           02311                                    WWPOS                                 
028507,004131: 40,3656           02313                                    WWVEL                                 
028508,004132: 40,3657           45335                           SLOAD    DSU                                   
028509,004133: 40,3660           02316                                    WWOPT                                 
028510,004134: 40,3661           21774                                    V67DEC2                               
028511,004135: 40,3662           51030                           BHIZ     BPL                                   
028512,004136: 40,3663           61672                                    V67WORB                               
028513,004137: 40,3664           61677                                    V67WMID                               
028514,004138: 40,3665           67130                           SXA,1    SXA,2                                 
028515,004139: 40,3666           02000                                    WRENDPOS                              
028516,004140: 40,3667           02001                                    WRENDVEL                              
028517,004141: 40,3670           77650                           GOTO                                           
028518,004142: 40,3671           61702                                    V67EXITX                              
028519,004143: 40,3672           67130        V67WORB            SXA,1    SXA,2                                 
028520,004144: 40,3673           02004                                    WORBPOS                               
028521,004145: 40,3674           02005                                    WORBVEL                               
028522,004146: 40,3675           77650                           GOTO                                           
028523,004147: 40,3676           61702                                    V67EXITX                              

Page 641

028525,004149: 40,3677           67130        V67WMID            SXA,1    SXA,2                                 
028526,004150: 40,3700           03000                                    WMIDPOS                               
028527,004151: 40,3701           03001                                    WMIDVEL                               
028528,004152: 40,3702           77614        V67EXITX           CLEAR                                          
028529,004153: 40,3703           01671                                    ORBWFLAG                              
028530,004154: 40,3704           77776        V67COMEX           EXIT                                           
028531,004155: 40,3705           15524                           TCF      ENDEXT                                
028532,004156: 40,3706           40020        V67WW              STQ      BOV                                   
028533,004157: 40,3707           00051                                    S2                                    
028534,004158: 40,3710           61711                                    +1                                    
028535,004159: 40,3711           77624                           CALL                                           
028536,004160: 40,3712           27516                                    INTSTALL                              
028537,004161: 40,3713           71331                           SSP      DLOAD                                 
028538,004162: 40,3714           00051                                    S1                                    
028539,004163: 40,3715           00006                           DEC      6          B-14                       
028540,004164: 40,3716           15336                                    ZEROVECS                              
028541,004165: 40,3717           02312                           STORE    WWPOS                                 
028542,004166: 40,3720           02314                           STORE    WWVEL                                 
028543,004167: 40,3721           02316                           STORE    WWOPT                                 
028544,004168: 40,3722           77770                           AXT,1                                          
028545,004169: 40,3723           00044                           DEC      36         B-14                       
028546,004170: 40,3724           47573        NXPOSVEL           VLOAD*   VSQ                                   
028547,004171: 40,3725           02445                                    W          +36D,1                     
028548,004172: 40,3726           77615                           DAD                                            
028549,004173: 40,3727           02312                                    WWPOS                                 
028550,004174: 40,3730           02312                           STORE    WWPOS                                 
028551,004175: 40,3731           47573                           VLOAD*   VSQ                                   
028552,004176: 40,3732           02533                                    W          +90D,1                     
028553,004177: 40,3733           77615                           DAD                                            
028554,004178: 40,3734           02314                                    WWVEL                                 
028555,004179: 40,3735           02314                           STORE    WWVEL                                 
028556,004180: 40,3736           75500                           TIX,1    SQRT                                  
028557,004181: 40,3737           61724                                    NXPOSVEL                              
028558,004182: 40,3740           16314                           STODL    WWVEL                                 
028559,004183: 40,3741           02312                                    WWPOS                                 
028560,004184: 40,3742           77766                           SQRT                                           
028561,004185: 40,3743           02312                           STORE    WWPOS                                 
028562,004186: 40,3744           52000                           BOV      GOTO                                  
028563,004187: 40,3745           61747                                    +2                                    
028564,004188: 40,3746           61753                                    V67XXX                                
028565,004189: 40,3747           77745                           DLOAD                                          
028566,004190: 40,3750           15344                                    DPPOSMAX                              
028567,004191: 40,3751           02312                           STORE    WWPOS                                 
028568,004192: 40,3752           02314                           STORE    WWVEL                                 
028569,004193: 40,3753           45345        V67XXX             DLOAD    DSU                                   
028570,004194: 40,3754           02312                                    WWPOS                                 
028571,004195: 40,3755           21772                                    FT99999                               
028572,004196: 40,3756           71240                           BMN      DLOAD                                 
028573,004197: 40,3757           61762                                    +3                                    
028574,004198: 40,3760           21772                                    FT99999                               

Page 642

028576,004200: 40,3761           02312                           STORE    WWPOS                                 
028577,004201: 40,3762           66150                           LXA,1    SXA,1                                 
028578,004202: 40,3763           00051                                    S2                                    
028579,004203: 40,3764           00052                                    QPRET                                 
028580,004204: 40,3765           77776                           EXIT                                           
028581,004205: 40,3766           04655                           TC       POSTJUMP                              
028582,004206: 40,3767           27527                           CADR     INTWAKE                               
028583,004207: 40,3770           01543        V06N99A            VN       0699                                  
028584,004208: 40,3771           01670 17000  FT99999            2DEC     30479      B-19                       
028585,004209: 40,3773           00002 00000  V67DEC2            2DEC     2          B-14                       
028586,004210: 40,3775  30,2000                                  SBANK=   LOWSUPER                              

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