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: 

Page 552

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

Page 553

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

Page 554

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

Page 555

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

Page 556

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

Page 557

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

Page 558

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

Page 559

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

Page 560

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

Page 561

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

Page 562

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

Page 563

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

Page 564

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

Page 565

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

Page 566

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

Page 567

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

Page 568

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

Page 569

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

Page 570

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

Page 571

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

Page 572

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

Page 573

025378,001002: 23,2756  E7,1722                                  EBANK=   MRKBUF1                               
025379,001003: 

Page 574

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

Page 575

025433,001057: 23,3015           31103 36652  PI/4.0             2DEC     .785398164                            
025434,001058: 

Page 576

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

Page 577

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

Page 578

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

Page 579

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

Page 580

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

Page 581

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

Page 582

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

Page 583

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

Page 584

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

Page 585

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

Page 586

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

Page 587

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

Page 588

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

Page 589

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

Page 590

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

Page 591

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

Page 592

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

Page 593

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

Page 594

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

Page 595

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

Page 596

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

Page 597

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

Page 598

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

Page 599

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

Page 600

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

Page 601

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

Page 602

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

Page 603

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

Page 604

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

Page 605

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

Page 606

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

Page 607

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

Page 608

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

Page 609

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

Page 610

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

Page 611

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

Page 612

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

Page 613

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

Page 614

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

Page 615

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

Page 616

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

Page 617

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

Page 618

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

Page 619

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

Page 620

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

Page 621

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

Page 622

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

Page 623

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

Page 624 Empty page.

027754,003378: 

Page 625

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

Page 626

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

Page 627

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

Page 628

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

Page 629

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

Page 630

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

Page 631

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

Page 632

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

Page 633

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

Page 634

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

Page 635

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

Page 636

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

Page 637

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

Page 638

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

Page 639

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

Page 640

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

Page 641

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

Page 642

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

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