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.

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

Page 552

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

Page 553

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

Page 554

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

Page 555

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

Page 556

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

Page 557

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

Page 558

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

Page 559

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

Page 560

024820,000450: 36,2465           02454                           TC       R66CSM                                
024821,000451: 
024822,000452: 36,2466           74707 43433  35DEGANG           2DEC     -.097222222222                            
024823,000453: 36,2470           01516        V06N78UT           VN       0678                                  
024824,000454: 36,2471           00306        V01N70UT           VN       0170                                  
024825,000455: 36,2472     5035               V06N88UT           =        V06N88                                
024826,000456: 36,2472           01517        V06N79UT           VN       0679                                  
024827,000457: 36,2473     5027               V06N34UT           =        V06N34                                
024828,000458: 36,2473           14631 23146  TUFITS             2DEC     .4                                    
024829,000459: 36,2475           77730        NEG47UT            OCT      77730                                 
024830,000460: 

Page 561

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

Page 562

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

Page 563

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

Page 564

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

Page 565

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

Page 566

025077,000707: 13,2334           00004                           OCT      00004                                 
025078,000708: 13,2335           05022                           OCT      05022                                 
025079,000709: 13,2336           13000                           OCT      13000                                 
025080,000710: 13,2337           06006                           TC       INTPRET                               
025081,000711: 13,2340           45014                           SET      CALL                                  
025082,000712: 13,2341           00466                                    TARG2FLG                              
025083,000713: 13,2342           31005                                    R52                                   
025084,000714: 13,2343           77776                           EXIT                                           
025085,000715: 13,2344           04103                           TC       GOTOPOOH                              
025086,000716: 

Page 567

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

Page 568

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

Page 569

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

Page 570

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

Page 571

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

Page 572

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

Page 573

025371,001001: 23,2756  E7,1722                                  EBANK=   MRKBUF1                               
025372,001002: 

Page 574

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

Page 575

025426,001056: 23,3015           31103 36652  PI/4.0             2DEC     .785398164                            
025427,001057: 

Page 576

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

Page 577

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

Page 578

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

Page 579

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

Page 580

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

Page 581

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

Page 582

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

Page 583

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

Page 584

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

Page 585

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

Page 586

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

Page 587

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

Page 588

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

Page 589

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

Page 590

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

Page 591

026171,001801: 27,2623           56620                                    INITA                                 
026172,001802: 27,2624           00001                                    0                                     #  POSITION VALUE
026173,001803: 27,2625           02401                           STORE    W                                     #  INITIALIZE DIAGONAL W  POSITION
026174,001804: 27,2626           02411                           STORE    W          +8D                        
026175,001805: 27,2627           02421                           STORE    W          +16D                       
026176,001806: 27,2630           77735                           SLOAD                                          
026177,001807: 27,2631           00002                                    1                                     #  VELOCITY VALUE
026178,001808: 27,2632           02511                           STORE    W          +72D                       #  INITIALIZE DIAGONAL W VELOCITY
026179,001809: 27,2633           02521                           STORE    W          +80D                       
026180,001810: 27,2634           02531                           STORE    W          +88D                       
026181,001811: 27,2635           77616                           RVQ                                            
026182,001812: 

Page 592

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

Page 593

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

Page 594

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

Page 595

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

Page 596

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

Page 597

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

Page 598

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

Page 599

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

Page 600

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

Page 601

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

Page 602

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

Page 603

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

Page 604

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

Page 605

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

Page 606

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

Page 607

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

Page 608

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

Page 609

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

Page 610

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

Page 611

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

Page 612

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

Page 613

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

Page 614

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

Page 615

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

Page 616

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

Page 617

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

Page 618

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

Page 619

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

Page 620

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

Page 621

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

Page 622

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

Page 623

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

Page 624 Empty page.

027747,003377: 

Page 625

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

Page 626

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

Page 627

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

Page 628

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

Page 629

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

Page 630

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

Page 631

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

Page 632

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

Page 633

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

Page 634

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

Page 635

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

Page 636

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

Page 637

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

Page 638

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

Page 639

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

Page 640

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

Page 641

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

Page 642

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

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