Source Code

These source-code files were derived from scans of the Colossus 237 (Apollo 8 Command Module) program listing from the private collection of original AGC developer Fred Martin. Scanning was by Ron Burkey. Pre-existing Colossus 249 (Apollo 9 CM) source files were used as a template, and changes between Colossus 249 and Colossus 237 were manually transcribed by a team of volunteers. Note that the page images presented online are of reduced quality, and that additional images are 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 237 OF AGC PROGRAM COLOSSUS 
	BY NASA 2021111-031  1:17 AUG. 24, 1968
Note that the date is the date of the printout, not the date of the program revision.

024084,000002:                                                                                                  ## Copyright:   Public domain.
024085,000003:                                                                                                  ## Filename:    P20-P25.agc
024086,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus build 237.
024087,000005:                                                                                                  ##              This is for the Command Module's (CM) Apollo Guidance
024088,000006:                                                                                                  ##              Computer (AGC), for Apollo 8.
024089,000007:                                                                                                  ## Assembler:   yaYUL
024090,000008:                                                                                                  ## Contact:     Jim Lawton <jim DOT lawton AT gmail DOT com>
024091,000009:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
024092,000010:                                                                                                  ## Page Scans:  www.ibiblio.org/apollo/ScansForConversion/Colossus237/
024093,000011:                                                                                                  ## Mod history: 2011-02-16 JL   Adapted from corresponding Colossus 249 file.
024094,000012:                                                                                                  ##              2016-12-31 RSB  Proofed comment text using octopus/ProoferComments,
024095,000013:                                                                                                  ##                              and corrected errors found.
024096,000014:                                                                                                  ##              2017-01-16 RSB  Fixed comment-text errors noted while diff'ing
024097,000015:                                                                                                  ##                              vs Colossus 249.
024098,000016:                                                                                                  ##              2017-02-06 RSB  Fixed comment-text errors noted while proofing
024099,000017:                                                                                                  ##                              Artemis 72.
024100,000018:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified by 4-way diff'ing
024101,000019:                                                                                                  ##                              of Colossus 237 & 249, Comanche 55, and Artemis 72.
024102,000020: 

Page 550

024104,000022:                                                                                                  #  RENDEZVOUS NAVIGATION PROGRAM 20
024105,000023:                                                                                                  #  PROGRAM DESCRIPTION
024106,000024:                                                                                                  #  MOD NO -1
024107,000025:                                                                                                  #  MOD BY - N.BRODEUR
024108,000026:                                                                                                  #  FUNCTIONAL DESCRIPTION
024109,000027: 
024110,000028:                                                                                                  #  TO CONTROL THE CSM ATTITUDE AND OPTICS TO ACQUIRE THE LEM IN THE S+T
024111,000029:                                                                                                  #  FIELD AND TO POINT THE CSM TRANSPONDER AT THE LEM. TO UPDATE EITHER THE
024112,000030:                                                                                                  #  LEM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY THE DSKY
024113,000031:                                                                                                  #  ENTRY) ON THE BASIS OF OPTICAL TRACKING DATA (REQUESTED BY DSKY)
024114,000032:                                                                                                  #  CALLING SEQUENCE -
024115,000033: 
024116,000034:                                                                                                  #  ASTRONAUT REQUEST THROUGH DSKY V37E20E
024117,000035:                                                                                                  #  SUBROUTINES CALLED-
024118,000036:                                                                                                  #    R02BOTH (IMU STATUS CHECK)               BANKCALL
024119,000037:                                                                                                  #    FLAGUP             2PHSCHNG              LOADTIME
024120,000038:                                                                                                  #    R61CSM  (PREFERRED TRACKING ATTITUDE)    FLAGDOWN
024121,000039:                                                                                                  #    R52     (AUTO OPTICS POSITIONING ROUT)   SETINTG
024122,000040:                                                                                                  #    R22     (REND TRACK DATA PROC ROUT)      PRIOCHNG
024123,000041:                                                                                                  #    ENDOFJOB           INTEGRV               GRP2PC
024124,000042:                                                                                                  #    INTPRET            MKRLEES               FINDVAC
024125,000043:                                                                                                  #  NORMAL EXIT MODES-
024126,000044:                                                                                                  #    P20 MAY BE TERMINATED IN TWO WAYS-ASTRONAUT SELECTION OF IDLING
024127,000045:                                                                                                  #  PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
024128,000046:                                                                                                  #  ALARM OR ABORT EXIT MODES-
024129,000047:                                                                                                  #    NONE DIRECTLY FROM P20
024130,000048:                                                                                                  #  OUTPUT
024131,000049:                                                                                                  #    TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
024132,000050:                                                                                                  #    VHFCNT = NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
024133,000051:                                                                                                  #  FLAGS SET + RESET
024134,000052:                                                                                                  #    RNDVZFLG,VEHUPFLG,UPDATFLG,TRACKFLG,TARG1FLG
024135,000053:                                                                                                  #    HOLDFLAG,WBODY,WBODY1,WBODY2,DELCDUX,DELCDUY,DELCDUZ
024136,000054:                                                                                                  #    STIKFLAG,PRFTRKAT,VINTFLAG,DIM0FLAG,R60FLAG,R61CNTR
024137,000055: 33,3773                                           BANK     33                                    
024138,000056: 37,2000                                           SETLOC   P20S                                  
024139,000057: 37,2000                                           BANK                                           
024140,000058: 
024141,000059: 37,2207  E6,1412                                  EBANK=   ESTROKER                              
024142,000060: 37,2207                                           COUNT*   $$/P20                                
024143,000061: 
024144,000062: 37,2207           04555        PROG20             TC       BANKCALL                              
024145,000063: 37,2210           17573                           CADR     R02BOTH                               #  IMU STATUS CHECK
024146,000064:                                                                                                  #                                          BLOCKING OF UPLINK IS DONE BY UPLINK PRG
024147,000065: 37,2211           34714                           CAF      ZERO                                  
024148,000066: 37,2212           55126                           TS       TRKMKCNT                              #  ZERO REND TRACKING MARK COUNTER
024149,000067: 37,2213           55125                           TS       VHFCNT                                #  ZERO REND VHF RNG MRK COUNTER
024150,000068: 37,2214           05435                           TC       UPFLAG                                #  SET PREF TRACK ATT FLAG
024151,000069: 37,2215           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
024152,000070: 37,2216           05447                           TC       DOWNFLAG                              #  LEM TO BE UPDATED.  VEHUPFLG RESET.
024153,000071: 37,2217           00026                           ADRES    VEHUPFLG                              #  BIT 8 FLAG 1

Page 551

024155,000073: 37,2220           05435                           TC       UPFLAG                                #  SET TRACKFLAG
024156,000074: 37,2221           00031                           ADRES    TRACKFLG                              #  BIT 5  FLAG 1
024157,000075: 37,2222           05435                           TC       UPFLAG                                #  SET UPDATFLG
024158,000076: 37,2223           00027                           ADRES    UPDATFLG                              #  BIT 7  FLAG 1
024159,000077: 37,2224           05435                           TC       UPFLAG                                #  SET RNDVZFLG
024160,000078: 37,2225           00010                           ADRES    RNDVZFLG                              #  BIT 7  FLAG 0
024161,000079: 37,2226           05261                           TC       2PHSCHNG                              
024162,000080: 37,2227           00004                           OCT      4                                     
024163,000081: 37,2230           05022                           OCT      05022                                 
024164,000082: 37,2231           26000                           OCT      26000                                 
024165,000083: 37,2232           06006                           TC       INTPRET                               
024166,000084: 37,2233           77634                           RTB                                            
024167,000085: 37,2234           45505                                    LOADTIME                              
024168,000086: 37,2235           35225                           STCALL   MARKTIME                              
024169,000087: 37,2236           56343                                    SETINTG                               #  SET INTEGRATION FLAGS
024170,000088: 37,2237           43014                           BOFF     SET                                   
024171,000089: 37,2240           02756                                    RENDWFLG                              
024172,000090: 37,2241           76243                                    P20.1                                 
024173,000091: 37,2242           01476                                    DIM0FLAG                              #  SET TO INTEGRATE THE W MATRIX
024174,000092: 37,2243           43014        P20.1              BON      CLEAR                                 
024175,000093: 37,2244           00707                                    VEHUPFLG                              
024176,000094: 37,2245           76247                                    P20.2                                 
024177,000095: 37,2246           01674                                    VINTFLAG                              #  SET FOR LM INTEGRATION
024178,000096: 37,2247           77624        P20.2              CALL                                           
024179,000097: 37,2250           27113                                    INTEGRV                               
024180,000098: 37,2251           77624                           CALL                                           
024181,000099: 37,2252           56712                                    GRP2PC                                #  GROUP 2 PHASE CHANGE
024182,000100: 37,2253           77624                           CALL                                           
024183,000101: 37,2254           56343                                    SETINTG                               #  SET INTEGRATION FLAGS
024184,000102: 37,2255           43014                           BOFF     CLEAR                                 
024185,000103: 37,2256           00747                                    VEHUPFLG                              
024186,000104: 37,2257           76261                                    P20.3                                 
024187,000105: 37,2260           01674                                    VINTFLAG                              #  SET FOR LM INTEGRATION
024188,000106: 37,2261           77624        P20.3              CALL                                           
024189,000107: 37,2262           27113                                    INTEGRV                               
024190,000108: 37,2263           77776                           EXIT                                           
024191,000109: 37,2264           37663                           CAF      PRIO26                                
024192,000110: 37,2265           05042                           TC       FINDVAC                               
024193,000111: 37,2266  E7,1734                                  EBANK=   MRKBUF2                               
024194,000112: 37,2266           02512 70067                     2CADR    R22                                   
024195,000113: 37,2270           05261                           TC       2PHSCHNG                              
024196,000114: 37,2271           00072                           OCT      00072                                 
024197,000115: 37,2272           00111                           OCT      00111                                 
024198,000116: 37,2273           34761        PIKUP20            CAF      PRIO14                                #  ALLOW HIGHER PRIO THAN LAMBERT
024199,000117: 37,2274           05103                           TC       PRIOCHNG                              
024200,000118: 37,2275           34706                           CAF      BIT5                                  #  IS TRACK FLAG SET
024201,000119: 37,2276           70075                           MASK     STATE      +1                         
024202,000120: 37,2277           00006                           EXTEND                                         
024203,000121: 37,2300           15112                           BZF      ENDOFJOB                              #  NO

Page 552

024205,000123: 37,2301           34676                           CAF      BIT13                                 
024206,000124: 37,2302           70077                           MASK     STATE      +3                         #  IS REFSMFLG SET
024207,000125: 37,2303           00006                           EXTEND                                         
024208,000126: 37,2304           15112                           BZF      ENDOFJOB                              
024209,000127: 37,2305           34714                           CAF      ZERO                                  
024210,000128: 37,2306           55775                           TS       R61CNTR                               #  INITIALIZE R61 COUNTER
024211,000129: 37,2307           05435                           TC       UPFLAG                                #  SET R60FLAG
024212,000130: 37,2310           00126                           ADRES    R60FLAG                               #  BIT 4  FLAG 5
024213,000131: 37,2311           04555                           TC       BANKCALL                              
024214,000132: 37,2312           76536                           CADR     R61CSM                                
024215,000133: 37,2313           05447                           TC       DOWNFLAG                              #  RESET R60FLAG
024216,000134: 37,2314           00126                           ADRES    R60FLAG                               #  BIT 4  FLAG 5
024217,000135: 37,2315  E5,1777                                  EBANK=   QMIN                                  
024218,000136: 37,2315           34751                           CAF      EBANK5                                
024219,000137: 37,2316           54003                           TS       EBANK                                 
024220,000138: 37,2317           05435                           TC       UPFLAG                                #  SET TARGET FLAG TO LEM
024221,000139: 37,2320           00024                           ADRES    TARG1FLG                              #  BIT 10  FLAG 1
024222,000140: 37,2321           06006        P20R52JB           TC       INTPRET                               
024223,000141: 37,2322           77624                           CALL                                           
024224,000142: 37,2323           30002                                    R52                                   #  SET UP AUTO OPTICS JOB
024225,000143: 37,2324           77776                           EXIT                                           
024226,000144: 37,2325           04555                           TC       BANKCALL                              
024227,000145: 37,2326           16070                           CADR     MKRLEES                               
024228,000146: 37,2327           34712                           CAF      ONE                                   #  HOLD PRESENT ATTITUDE
024229,000147: 37,2330           55332                           TS       HOLDFLAG                              
024230,000148: 37,2331           05112                           TC       ENDOFJOB                              
024231,000149: 37,2332           00203        OCT203             OCT      00203                                 
024232,000150: 37,2333     7707               FIRST3             EQUALS   FURST3                                
024233,000151: 

Page 553

024235,000153:                                                                                                  #  ORBITAL NAVIGATION PROGRAM 22
024236,000154: 31,2021                                           BANK     31                                    
024237,000155: 30,2000                                           SETLOC   P20S1                                 
024238,000156: 30,2000                                           BANK                                           
024239,000157: 
024240,000158: 30,2000  E5,1751                                  EBANK=   LANDMARK                              
024241,000159: 30,2000                                           COUNT*   $$/P22                                
024242,000160: 
024243,000161: 30,2000           05447        PROG22             TC       DOWNFLAG                              #  RESET RNDVZFLG  BIT 7  FLAG 0
024244,000162: 30,2001           00010                           ADRES    RNDVZFLG                              
024245,000163: 30,2002           04555                           TC       BANKCALL                              
024246,000164: 30,2003           17573                           CADR     R02BOTH                               #  IMU STATUS CHECK
024247,000165: 30,2004           06006                           TC       INTPRET                               #  COMPUTE ANGLE BETWEEN Y AND VXR SM
024248,000166: 30,2005           77634                           RTB                                            
024249,000167: 30,2006           45505                                    LOADTIME                              
024250,000168: 30,2007           34041                           STCALL   TDEC1                                 
024251,000169: 30,2010           27045                                    CSMCONIC                              #  INTEGRATE TO PRESENT TIME
024252,000170: 30,2011           47375                           VLOAD    VXV                                   #  CROSS PRODUCT BETWEEN V AND R
024253,000171: 30,2012           00007                                    VATT                                  
024254,000172: 30,2013           00001                                    RATT                                  
024255,000173: 30,2014           50256                           UNIT     DOT                                   
024256,000174: 30,2015           01744                                    REFSMMAT   +6                         
024257,000175: 30,2016           77646                           ABS                                            
024258,000176: 30,2017           65552                           SL1      ARCCOS                                
024259,000177: 30,2020           03626                           STORE    +MGA                                  
024260,000178: 30,2021           77414                           CLEAR    EXIT                                  
024261,000179: 30,2022           02676                                    RENDWFLG                              
024262,000180: 30,2023           32162                           CAF      V06N45B                               
024263,000181: 30,2024           04555                           TC       BANKCALL                              
024264,000182: 30,2025           20763                           CADR     GOFLASHR                              
024265,000183: 30,2026           04106                           TC       GOTOPOOH                              #  TERM P22
024266,000184: 30,2027           02034                           TC       PROG22A                               #  PROC
024267,000185: 30,2030           02023                           TC       -5                                    #  ENTER
024268,000186: 30,2031           36214                           CAF      THREE                                 
024269,000187: 30,2032           05415                           TC       BLANKET                               #  BLANK OUT R1 + R2
024270,000188: 30,2033           05112                           TC       ENDOFJOB                              
024271,000189: 30,2034           42172        PROG22A            CS       OCTL7000                              #  SET OFFSET NO.=0
024272,000190: 30,2035           71751                           MASK     LANDMARK                              
024273,000191: 30,2036           55751                           TS       LANDMARK                              
024274,000192: 30,2037           06006                           TC       INTPRET                               
024275,000193: 30,2040           77614                           CLEAR                                          
024276,000194: 30,2041           01664                                    P22MKFLG                              
024277,000195: 30,2042           43014                           SET      BOFF                                  
024278,000196: 30,2043           00462                                    ERADFLAG                              
024279,000197: 30,2044           04343                                    CMOONFLG                              
024280,000198: 30,2045           60107                                    PROG22B                               #  EARTH
024281,000199: 30,2046           77614                           SET                                            #  MOON
024282,000200: 30,2047           01463                                    LUNAFLAG                              
024283,000201: 30,2050           77776                           EXIT                                           
024284,000202: 30,2051           32163                           CAF      V05N7022                              

Page 554

024286,000204: 30,2052           04555                           TC       BANKCALL                              
024287,000205: 30,2053           20763                           CADR     GOFLASHR                              
024288,000206: 30,2054           04106                           TC       GOTOPOOH                              #  TERMINATE
024289,000207: 30,2055           02062                           TC       +5                                    #  PROCEED   UNPACK ABCDE
024290,000208: 30,2056           02051                           TC       -5                                    #  RECYCLE
024291,000209: 30,2057           34715                           CAF      FIVE                                  #  IMMEDIATE RETURN BLANK OUT R1,R2
024292,000210: 30,2060           05415                           TC       BLANKET                               
024293,000211: 30,2061           05112                           TC       ENDOFJOB                              
024294,000212: 30,2062           06006                           TC       INTPRET                               
024295,000213: 30,2063           77624                           CALL                                           #  UNPACK ABCDE FROM LANDMARK
024296,000214: 30,2064           60234                                    UNPACKAE                              
024297,000215: 30,2065           45335                           SLOAD    DSU                                   
024298,000216: 30,2066           02745                                    22SUBSCL                              
024299,000217: 30,2067           20166                                    P22MAXDE                              
024300,000218: 30,2070           45044                           BPL      CALL                                  
024301,000219: 30,2071           60075                                    DE-GR-50                              #  DE GREATER THAN MAX
024302,000220: 30,2072           76333                                    P22SUBRA                              #  SUBROUTINE A SETS LAT/LONG/ALT
024303,000221: 30,2073           77650                           GOTO                                           
024304,000222: 30,2074           60114                                    CALLR52                               
024305,000223: 30,2075           77624        DE-GR-50           CALL                                           #  CALL ADVANCED ORBIT ROUTINE
024306,000224: 30,2076           30206                                    ADVORB                                
024307,000225: 30,2077           77776                           EXIT                                           
024308,000226: 30,2100           05261                           TC       2PHSCHNG                              
024309,000227: 30,2101           00004                           OCT      00004                                 
024310,000228: 30,2102           05022                           OCT      05022                                 
024311,000229: 30,2103           13000                           OCT      13000                                 
024312,000230: 30,2104           06006                           TC       INTPRET                               
024313,000231: 30,2105           77650                           GOTO                                           
024314,000232: 30,2106           60132                                    DOV5N71                               
024315,000233: 30,2107           43014        PROG22B            CLEAR    SET                                   #  EARTH ORBIT
024316,000234: 30,2110           01663                                    LUNAFLAG                              
024317,000235: 30,2111           03067                                    KNOWNFLG                              
024318,000236: 30,2112           77624                           CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024319,000237: 30,2113           60217                                    P22SUBRB                              
024320,000238: 30,2114           77776        CALLR52            EXIT                                           
024321,000239: 30,2115           05435                           TC       UPFLAG                                #  TARG2FLG = 1 = SIGHTING LANDMARK
024322,000240: 30,2116           00025                           ADRES    TARG2FLG                              #  BIT 9  FLAG 1
024323,000241: 30,2117           05447                           TC       DOWNFLAG                              #  TARG1FLG = 0 = NON-LEM
024324,000242: 30,2120           00024                           ADRES    TARG1FLG                              #  BIT 10  FLAG 1
024325,000243: 30,2121           05261                           TC       2PHSCHNG                              
024326,000244: 30,2122           00004                           OCT      00004                                 
024327,000245: 30,2123           05022                           OCT      05022                                 
024328,000246: 30,2124           13000                           OCT      13000                                 
024329,000247: 30,2125           34715                           CAF      FIVE                                  
024330,000248: 30,2126           54301                           TS       MARKINDX                              #  SET MARK INDEX=5 FOR R52
024331,000249: 30,2127           06006                           TC       INTPRET                               
024332,000250: 30,2130           77624                           CALL                                           
024333,000251: 30,2131           30002                                    R52                                   
024334,000252: 30,2132           77776        DOV5N71            EXIT                                           
024335,000253: 30,2133           32164                           CAF      V05N7122                              

Page 555

024337,000255: 30,2134           04555                           TC       BANKCALL                              
024338,000256: 30,2135           20763                           CADR     GOFLASHR                              
024339,000257: 30,2136           04106                           TC       GOTOPOOH                              #  TERMINATE
024340,000258: 30,2137           02144                           TC       +5                                    #  PROCEED    UNPACK ABCDE
024341,000259: 30,2140           02133                           TC       -5                                    #  RECYCLE
024342,000260: 30,2141           34715                           CAF      FIVE                                  #  IMMEDIATE ENTRY BLANK OUT R1,R3
024343,000261: 30,2142           05415                           TC       BLANKET                               
024344,000262: 30,2143           05112                           TC       ENDOFJOB                              
024345,000263: 30,2144           06006                           TC       INTPRET                               
024346,000264: 30,2145           77624                           CALL                                           
024347,000265: 30,2146           60234                                    UNPACKAE                              
024348,000266: 30,2147           77624                           CALL                                           #  SET LAT/LANG/ALT
024349,000267: 30,2150           76333                                    P22SUBRA                              
024350,000268: 30,2151           66744        PROG22C            LXC,2    SLOAD*                                
024351,000269: 30,2152           01330                                    MARKSTAT                              
024352,000270: 30,2153           77724                                    QPRET,2                               
024353,000271: 30,2154           36750                           STCALL   8NN                                   
024354,000272: 30,2155           60255                                    S22.1                                 #  ESTABLISH LANDMARK - COMPUTE ORBITAL
024355,000273: 30,2156           77776        P22OVER            EXIT                                           
024356,000274: 30,2157           05301                           TC       PHASCHNG                              
024357,000275: 30,2160           04022                           OCT      04022                                 
024358,000276: 30,2161           02034                           TC       PROG22A                               #  POINT A ON GSOP
024359,000277: 30,2162           01455        V06N45B            VN       0645                                  
024360,000278: 30,2163           01306        V05N7022           VN       00570                                 
024361,000279: 30,2164           01307        V05N7122           VN       00571                                 
024362,000280: 30,2165           00041 00000  P22MAXDE           2DEC     33         B-14                       
024363,000281: 30,2167           01531        V06N89             VN       00689                                 
024364,000282: 30,2170           00077        OCTL77             OCT      77                                    #  DE MASK OF ABCDE
024365,000283: 30,2171           00700        OCTL700            OCT      700                                   #   C MASK OF ABCDE
024366,000284: 30,2172           07000        OCTL7000           OCT      7000                                  #   B MASK OF ABCDE
024367,000285: 37,2000                                           SETLOC   P20S                                  
024368,000286: 37,2000                                           BANK                                           
024369,000287: 
024370,000288: 37,2333           43020        P22SUBRA           STQ      BOFF                                  #  SET LAT/LONG/ALT FOR KNOWN LANDMARK
024371,000289: 37,2334           03667                                    S22TOFF                               
024372,000290: 37,2335           03347                                    KNOWNFLG                              
024373,000291: 37,2336           03667                                    S22TOFF                               #  UNKNOWN LANKMARK,EXIT
024374,000292: 37,2337           46135                           SLOAD    BHIZ                                  
024375,000293: 37,2340           02745                                    22SUBSCL                              
024376,000294: 37,2341           60213                                    OBTAINLL                              #  GET LAT/LONG/ALT FROM ASTRO
024377,000295: 37,2342           50025                           DSU      BMN                                   
024378,000296: 37,2343           21646                                    9DWID                                 #  2 B-14
024379,000297: 37,2344           60173                                    S22LSITE                              #  GET LAT/LONG/ALT FROM RLS (LANDING SITE)
024380,000298: 37,2345           70152                           SL1      LXC,1                                 #  GET LAT/LONG/ALT FROM TABLES
024381,000299: 37,2346           00154                                    MPAC                                  
024382,000300: 37,2347           70601                           SETPD    DLOAD*                                
024383,000301: 37,2350           00001                                    0D                                    
024384,000302: 37,2351           23705                                    ALTTAB,1                              
024385,000303: 37,2352           64723                           PDDL*    PDDL*                                 

Page 556

024387,000305: 37,2353           23623                                    LONGTAB,1                             
024388,000306: 37,2354           23541                                    LATTAB,1                              
024389,000307: 37,2355           77666                           VDEF                                           
024390,000308: 37,2356           35104                           STCALL   LAT                                   
024391,000309: 37,2357           03667                                    S22TOFF                               #  EXIT
024392,000310: 30,2000                                           SETLOC   P20S1                                 
024393,000311: 30,2000                                           BANK                                           
024394,000312: 
024395,000313: 30,2173           77634        S22LSITE           RTB                                            #  CONVERT RLS FROM MOON-FIXED TO BASIC REF
024396,000314: 30,2174           45505                                    LOADTIME                              
024397,000315: 30,2175           24007                           STOVL    6D                                    #  6-7D= TIME
024398,000316: 30,2176           02026                                    RLS                                   
024399,000317: 30,2177           14001                           STODL    0D                                    #  0-5D= LANDING SITE VECTOR
024400,000318: 30,2200           15330                                    HIDPHALF                              #  MPAC= ANY NON-ZERO FOR MOON
024401,000319: 30,2201           77624                           CALL                                           
024402,000320: 30,2202           55341                                    RP-TO-R                               #  RLS IN BASIC REF B-27 IN MPAC
024403,000321: 30,2203           77742                           VSR2                                           #  LUNAFLAG AND ERADFLAG SET ABOVE
024404,000322: 30,2204           02152                           STORE    ALPHAV                                #  SCALE RLS B-29 FOR LAT-LONG
024405,000323: 30,2205           77634                           RTB                                            
024406,000324: 30,2206           45505                                    LOADTIME                              #  SET PRESENT TIME IN MPAC FOR LAT-LONG
024407,000325: 30,2207           77624                           CALL                                           
024408,000326: 30,2210           26322                                    LAT-LONG                              
024409,000327: 30,2211           77650                           GOTO                                           
024410,000328: 30,2212           03667                                    S22TOFF                               #  EXIT
024411,000329: 30,2213           77624        OBTAINLL           CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024412,000330: 30,2214           60217                                    P22SUBRB                              
024413,000331: 30,2215           77650                           GOTO                                           
024414,000332: 30,2216           03667                                    S22TOFF                               #  EXIT
024415,000333: 30,2217           77420        P22SUBRB           STQ      EXIT                                  #  GET LAT/LONG/ALT FROM ASTRO
024416,000334: 30,2220           03670                                    S22TOFF    +1                         
024417,000335: 30,2221           33656                           CAF      V06N89B                               
024418,000336: 30,2222           04555                           TC       BANKCALL                              
024419,000337: 30,2223           20624                           CADR     GOFLASH                               
024420,000338: 30,2224           04106                           TC       GOTOPOOH                              #  TERMINATE
024421,000339: 30,2225           02227                           TC       +2                                    #  PROCEED
024422,000340: 30,2226           02221                           TC       -5                                    #  ENTER OR RECYCLE
024423,000341: 30,2227           06006                           TC       INTPRET                               
024424,000342: 30,2230           77624                           CALL                                           
024425,000343: 30,2231           61345                                    LLASRDA                               
024426,000344: 30,2232           77650                           GOTO                                           
024427,000345: 30,2233           03670                                    S22TOFF    +1                         #  EXIT
024428,000346: 30,2234           77776        UNPACKAE           EXIT                                           #  UNPACK LANDMARK INTO ABCDE
024429,000347: 30,2235           31751                           CA       LANDMARK                              
024430,000348: 30,2236           72170                           MASK     OCTL77                                
024431,000349: 30,2237           55744                           TS       22SUBSCL                              #  DE=L=LMK ID NO. N  00,01, 02-26
024432,000350: 30,2240           31751                           CA       LANDMARK                              
024433,000351: 30,2241           72172                           MASK     OCTL7000                              
024434,000352: 30,2242           55745                           TS       CXOFF                                 #  B= OFFSET INDICATOR
024435,000353: 30,2243           05435                           TC       UPFLAG                                #  SET KNOWNFLG
024436,000354: 30,2244           00141                           ADRES    KNOWNFLG                              #  BIT 8  FLAG 6

Page 557

024438,000356: 30,2245           31751                           CA       LANDMARK                              
024439,000357: 30,2246           74675                           MASK     BIT14                                 #  IF BIT14 OF LANDMARK=1,A=2 OTHERWISE A=1
024440,000358: 30,2247           00006                           EXTEND                                         
024441,000359: 30,2250           12253                           BZF      +3                                    #  A=1 LEAVE KNOWNFLAG SET FOR KNOWN LMK
024442,000360: 30,2251           05447                           TC       DOWNFLAG                              #  A=2 CLEAR KNOWNFLG  (BIT 8  FLAG 6) FOR
024443,000361: 30,2252           00141                           ADRES    KNOWNFLG                              #      UNKNOWN LMK
024444,000362: 30,2253           06006                           TC       INTPRET                               
024445,000363: 30,2254           77616                           RVQ                                            
024446,000364: 

Page 558

024448,000366:                                                                                                  #  PROGRAM NAME- OPTICS CALIBRATION ROUTINE
024449,000367:                                                                                                  #  MOD NO- 1
024450,000368:                                                                                                  #  MOD BY- TOM KNATT
024451,000369: 
024452,000370:                                                                                                  #  FUNCTIONAL DESCRIPTION- TO MEASURE THE EFFECT OF SOLAR RADIATION ON
024453,000371:                                                                                                  #    THE SXT TRUNNION ANGLE AND TO STORE THE MEASURED TRUNNION BIAS FOR P23
024454,000372: 
024455,000373:                                                                                                  #  CALLING SEQUENCE- CALL
024456,000374:                                                                                                  #                          R57
024457,000375: 
024458,000376:                                                                                                  #  SUBROUTINES CALLED- DISPLAY ROUTINES
024459,000377: 
024460,000378:                                                                                                  #  NORMAL EXIT MODES-VIA EGRESS
024461,000379: 
024462,000380:                                                                                                  #  ALARMS- NONE
024463,000381: 
024464,000382:                                                                                                  #  ABORT MODES- P23ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE
024465,000383:                                                                                                  #  INPUT- NONE REQUIRED, NORMALLY CALLED BY P23
024466,000384:                                                                                                  #  OUTPUT- TRUNNION BIAS ANGLE- ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT
024467,000385:                                                                                                  #  (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED. THIS ANGLE
024468,000386:                                                                                                  #  MAY NOT BE EXACTLY ZERO BECAUSE OF UNEVEN HEATING OF THE OPTICS,FOR
024469,000387:                                                                                                  #  EXAMPLE.
024470,000388: 
024471,000389:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED- MRKBUF1, EXTVBACT
024472,000390: 
024473,000391:                                                                                                  #  DEBRIS- RUPTREGS USED BY MARKRUPT AND ERASABLES USED BY DISPLAYS
024474,000392: 33,3773                                           BANK     33                                    
024475,000393: 37,2000                                           SETLOC   P20S                                  
024476,000394: 37,2000                                           BANK                                           
024477,000395: 37,2360                                           COUNT*   $$/R57                                
024478,000396: 37,2360  E7,1725                                  EBANK=   MRKBUF1                               
024479,000397: 37,2360           77420        R57                STQ      EXIT                                  
024480,000398: 37,2361           02317                                    EGRESS                                
024481,000399: 37,2362           34753                           CAF      EBANK7                                
024482,000400: 37,2363           54003                           TS       EBANK                                 
024483,000401: 37,2364           36211                           CAF      SIX                                   #  BIT2 = MARKING SYSTEM IN USE
024484,000402: 37,2365           71044                           MASK     EXTVBACT                              #  BIT3 = EXTENDED VERB IN PROGRESS
024485,000403: 37,2366           10000                           CCS      A                                     
024486,000404: 37,2367           02437                           TC       P23ABRT                               #  SET, THEREFORE ABORT
024487,000405: 37,2370           34711                           CAF      BIT2                                  #  NOT SET
024488,000406: 37,2371           27044                           ADS      EXTVBACT                              #  SET IT
024489,000407: 37,2372           05435        R57A               TC       UPFLAG                                #  SET V59FLAG (BIT 12  FLAG 5) TO INDICATE
024490,000408: 37,2373           00116                           ADRES    V59FLAG                               #  CALIBRATION MARK
024491,000409: 37,2374           32442                           CAF      V59NB                                 
024492,000410: 37,2375           04555                           TC       BANKCALL                              
024493,000411: 37,2376           20504                           CADR     GOMARKFR                              
024494,000412: 37,2377           04106                           TC       GOTOPOOH                              #  TERMINATE
024495,000413: 37,2400           02424                           TC       ENDR57                                
024496,000414: 37,2401           02424                           TC       ENDR57                                
024497,000415: 37,2402           34716                           CAF      SEVEN                                 

Page 559

024499,000417: 37,2403           05415                           TC       BLANKET                               #  BLANK OUT R1,R2,R3
024500,000418: 37,2404           05112                           TC       ENDOFJOB                              
024501,000419:                                                                                                  #  STORE TRUNNION ANGLE (OCDU)
024502,000420: 37,2405           32441        MARKDISP           CAF      V06N87NB                              
024503,000421: 37,2406           04555                           TC       BANKCALL                              
024504,000422: 37,2407           20504                           CADR     GOMARKFR                              
024505,000423: 37,2410           04106                           TC       GOTOPOOH                              #  TERMINATE
024506,000424: 37,2411           02416                           TC       R57B                                  #  PROCEED
024507,000425: 37,2412           02372                           TC       R57A                                  #  ENTER (RECYCLE)
024508,000426: 37,2413           34715                           CAF      FIVE                                  
024509,000427: 37,2414           05415                           TC       BLANKET                               #  BLANK OUT R1,R3
024510,000428: 37,2415           05112                           TC       ENDOFJOB                              
024511,000429: 37,2416           32444        R57B               CA       19.77DEG                              #  PUT FIXED INTO ERASABLE FOR MSU
024512,000430: 37,2417           54001                           TS       L                                     #  INSTRUCTION COMING UP
024513,000431: 37,2420           31732                           CA       MRKBUF1    +5                         #  CONTAINS TRUNNION
024514,000432: 37,2421           00006                           EXTEND                                         
024515,000433: 37,2422           20001                           MSU      L                                     #  CORRECTS TRUNBIAS FROM 2'S TO 1'S
024516,000434: 37,2423           55342                           TS       TRUNBIAS                              
024517,000435: 37,2424           05447        ENDR57             TC       DOWNFLAG                              #  RESET V59FLAG
024518,000436: 37,2425           00116                           ADRES    V59FLAG                               #  BIT 12  FLAG 5
024519,000437: 37,2426           34751                           CAF      EBANK5                                
024520,000438: 37,2427           54003                           TS       EBANK                                 
024521,000439: 37,2430           34761                           CAF      PRIO14                                
024522,000440: 37,2431           05027                           TC       NOVAC                                 #  THIS JOB CLEARS BIT IN
024523,000441: 37,2432     1330                                  EBANK=   MARKSTAT                              
024524,000442: 37,2432           05423 04062                     2CADR    ENDMARK                               #  MARKING  IN R57 SO R53 CAN TAKE OVER
024525,000443: 37,2434           06006                           TC       INTPRET                               
024526,000444: 37,2435           77650                           GOTO                                           
024527,000445: 37,2436           02317                                    EGRESS                                
024528,000446: 37,2437           05604        P23ABRT            TC       BAILOUT                               
024529,000447: 37,2440           01211                           OCT      01211                                 
024530,000448: 37,2441           01527        V06N87NB           VN       0687                                  
024531,000449: 37,2442           16600        V59NB              VN       5900                                  
024532,000450: 37,2443           14600        V51NB              VN       5100                                  
024533,000451: 37,2444           61740        19.77DEG           OCT      61740                                 
024534,000452: 

Page 560

024536,000454:                                                                                                  #  PROGRAM DESCRIPTION
024537,000455:                                                                                                  #  MOD NO - 1
024538,000456:                                                                                                  #  MOD BY - N.BRODEUR
024539,000457:                                                                                                  #  FUNCTIONAL DESCRIPTION
024540,000458: 
024541,000459:                                                                                                  #    TO PERFORM SIGHTING MARKS IN CONJUNCTION WITH THE RENDEZVOUS NAVIG-
024542,000460:                                                                                                  #  ATION PROGRAM. CALLED BY ASTRONAUT VIA EXTENDED VERB
024543,000461:                                                                                                  #  CALLING SEQUENCE -
024544,000462:                                                                                                  #          R21 VIA V 57
024545,000463:                                                                                                  #          R23 VIA V 54
024546,000464:                                                                                                  #  SUBROUTINES CALLED -
024547,000465:                                                                                                  #    FLAGUP        FLAGDOWN        BANKCALL
024548,000466:                                                                                                  #    ENDOFJOB      GOMARK2         GOMARKF
024549,000467:                                                                                                  #    INTPRET       GENTRAN         KLEENEX
024550,000468:                                                                                                  #    ENDMARK
024551,000469:                                                                                                  #  NORMAL EXIT MODES-
024552,000470:                                                                                                  #    MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARK IN MRKBUF2
024553,000471:                                                                                                  #  FOR USE BY R22. WHEN ASTRONAUT IS FINISHED TAKING MARKS, HE HITS AN
024554,000472:                                                                                                  #  PROCEED ,   R21 IS TERMINATED THUS CAUSING THE FINAL MARK TO BE TRANSFRD
024555,000473:                                                                                                  #  TO MRKBUF2 FOR PROCESSING BY R22
024556,000474:                                                                                                  #  ALARM OR ABORT EXIT MODES -
024557,000475:                                                                                                  #    NONE
024558,000476:                                                                                                  #  OUTPUT -
024559,000477:                                                                                                  #    7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y,
024560,000478:                                                                                                  #  CDUX.
024561,000479:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
024562,000480:                                                                                                  #  FLAGS SET AND RESET
024563,000481:                                                                                                  #    R21MARK   (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 + 2)
024564,000482:                                                                                                  #    R23FLG  INDICATES COAS MARKING
024565,000483:                                                                                                  #  DEBRIS
024566,000484: 37,2445  E7,1725                                  EBANK=   MRKBUF1                               
024567,000485: 37,2000                                           SETLOC   RENDEZ                                
024568,000486: 37,2000                                           BANK                                           
024569,000487: 
024570,000488: 37,2445                                           COUNT*   $$/R21                                
024571,000489: 
024572,000490: 37,2445           05435        R21CSM             TC       UPFLAG                                #  SET R21MARK
024573,000491: 37,2446           00037                           ADRES    R21MARK                               #  BIT 14  FLAG 2
024574,000492: 37,2447           37716        R23CSM             CA       NEGONE                                
024575,000493: 37,2450           55725                           TS       MRKBUF1                               
024576,000494: 37,2451           55734                           TS       MRKBUF2                               
024577,000495: 37,2452           30075                           CA       FLAGWRD1                              
024578,000496: 37,2453           74702                           MASK     BIT9                                  #  TEST R23FLG
024579,000497: 37,2454           00006                           EXTEND                                         
024580,000498: 37,2455           12510                           BZF      R21C1                                 #  NOT SET REGULAR R21 MARKING
024581,000499: 37,2456           32535                           CAF      V0694                                 #  R23 BACKUP MARKING
024582,000500: 37,2457           04555                           TC       BANKCALL                              #  DISPLAY SHAFT + TRUNNION
024583,000501: 37,2460           20465                           CADR     GOMARKF                               
024584,000502: 37,2461           02527                           TC       R21END                                #  TERM
024585,000503: 37,2462           02464                           TC       +2                                    #  PROC

Page 561

024587,000505: 37,2463           02456                           TC       -5                                    #  ENTER
024588,000506: 37,2464           32534        R23CSM1            CAF      V53                                   #  PERFORM ALT LOS SIGHT MARK
024589,000507: 37,2465           04555                           TC       BANKCALL                              
024590,000508: 37,2466           20470                           CADR     GOMARK2                               
024591,000509: 37,2467           02527                           TC       R21END                                #  V34-TERMINATE R23
024592,000510: 37,2470           12516                           TCF      R21CSMA                               #  PROCEED-END BACK UP MARKING (R23)
024593,000511: 37,2471           36211                           CAF      SIX                                   #  TRANSFER MRKBUF1 TO MRKBUF2
024594,000512: 37,2472           05475                           TC       GENTRAN                               
024595,000513: 37,2473           01725                           ADRES    MRKBUF1                               
024596,000514: 37,2474           01734                           ADRES    MRKBUF2                               
024597,000515: 37,2475           00006                           EXTEND                                         
024598,000516: 37,2476           30025                           DCA      TIME2                                 
024599,000517: 37,2477           53726                           DXCH     MRKBUF1                               #  READ TIME
024600,000518: 37,2500           30033                           CA       CDUY                                  #  READ CDU ANGLES
024601,000519: 37,2501           55727                           TS       MRKBUF1    +2                         
024602,000520: 37,2502           30034                           CA       CDUZ                                  
024603,000521: 37,2503           55731                           TS       MRKBUF1    +4                         
024604,000522: 37,2504           30032                           CA       CDUX                                  
024605,000523: 37,2505           55733                           TS       MRKBUF1    +6                         
024606,000524: 37,2506           00003                           RELINT                                         
024607,000525: 37,2507           02464                           TC       R23CSM1                               
024608,000526: 37,2510           32443        R21C1              CAF      V51NB                                 
024609,000527: 37,2511           04555                           TC       BANKCALL                              
024610,000528: 37,2512           20470                           CADR     GOMARK2                               
024611,000529: 37,2513           02527                           TC       R21END                                #  V34-TERMINATE R21
024612,000530: 37,2514           12516                           TCF      R21CSMA                               #  PROCEED-END R21
024613,000531: 37,2515           12510                           TCF      R21C1                                 #  RECYCLE
024614,000532: 
024615,000533: 37,2516           31725        R21CSMA            CA       MRKBUF1                               #  IF -1 NO MARK
024616,000534: 37,2517           64712                           AD       ONE                                   
024617,000535: 37,2520           00006                           EXTEND                                         
024618,000536: 37,2521           12527                           BZF      R21END                                #  ZERO = NO MARK
024619,000537: 37,2522           36211                           CAF      SIX                                   #  MARK THEREFORE TRANSFER IT TO MRKBUF2
024620,000538: 37,2523           05475        R21CSM1            TC       GENTRAN                               #  TRANSFER MRKBUF1 TO MRKBUF2
024621,000539: 37,2524           01725                           ADRES    MRKBUF1                               
024622,000540: 37,2525           01734                           ADRES    MRKBUF2                               
024623,000541: 37,2526           00003                           RELINT                                         
024624,000542: 37,2527           04555        R21END             TC       BANKCALL                              
024625,000543: 37,2530           20464                           CADR     KLEENEX                               
024626,000544: 37,2531           05447                           TC       DOWNFLAG                              #  RESET R21MARK
024627,000545: 37,2532           00037                           ADRES    R21MARK                               #  BIT 14  FLAG 2
024628,000546: 37,2533           05423                           TC       ENDMARK                               #  END MARKING AND ENDJOB
024629,000547: 37,2534           15200        V53                VN       5300                                  
024630,000548: 37,2535           01536        V0694              VN       0694                                  
024631,000549: 

Page 562

024633,000551:                                                                                                  #  PREFERRED TRACKING ATTITUDE ROUTINE R61CSM
024634,000552:                                                                                                  #  PROGRAM DESCRIPTION
024635,000553:                                                                                                  #  MOD NO - 2
024636,000554:                                                                                                  #  MOD BY - N.BRODEUR
024637,000555:                                                                                                  #  FUNCTIONAL DESCRIPTION-
024638,000556:                                                                                                  #    TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM TO ENABLE OPTICS
024639,000557:                                                                                                  #  TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED
024640,000558:                                                                                                  #  OR X-AXIS TRACKING ATTITUDE.
024641,000559:                                                                                                  #  CALLING SEQUENCE-
024642,000560:                                                                                                  #           TC     BANKCALL
024643,000561:                                                                                                  #           CADR   R61CSM
024644,000562:                                                                                                  #  SUBROUTINES CALLED
024645,000563:                                                                                                  #    MAKECADR         BANKCALL
024646,000564:                                                                                                  #    INTPRET      FLAGUP           FLAGDOWN
024647,000565:                                                                                                  #    BANKJUMP     CRS61.1          R60CSM
024648,000566:                                                                                                  #    PHASCHNG
024649,000567:                                                                                                  #  NORMAL EXIT MODES-
024650,000568:                                                                                                  #    NORMAL RETURN IS TO CALLER + 1
024651,000569:                                                                                                  #  OUTPUT -
024652,000570:                                                                                                  #    SEE OUTPUT FOR CRS61.1 & ATTITUDE MANEUVER ROUTINE (R60CSM)
024653,000571:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
024654,000572:                                                                                                  #    GENRET USED TO SAVE Q FOR RETURN
024655,000573:                                                                                                  #    R61CNTR MUST BE PRESET TO ZERO
024656,000574:                                                                                                  #  FLAGS SET + RESET
024657,000575:                                                                                                  #    3-AXIS FLAG
024658,000576:                                                                                                  #  DEBRIS
024659,000577:                                                                                                  #    SEE SUBROUTINES
024660,000578: 37,2536  E6,1770                                  EBANK=   GENRET                                
024661,000579: 37,2536                                           COUNT*   $$/R61                                #  ROUTINES - NAVIGATION - PREF. TR. 9TT=
024662,000580: 
024663,000581: 37,2536           34752        R61CSM             CAF      EBANK6                                #  SWITCH TO EBANK 6
024664,000582: 37,2537           56003                           XCH      EBANK                                 
024665,000583: 37,2540           55771                           TS       SAVBNK                                #  SAVE EBANK
024666,000584: 37,2541           04604                           TC       MAKECADR                              
024667,000585: 37,2542           55770                           TS       GENRET                                
024668,000586: 37,2543           11775                           CCS      R61CNTR                               #  TEST R61CNTR
024669,000587: 37,2544           02575                           TC       DECRM61                               #  NOT READY TO DO R61.
024670,000588: 37,2545           02547                           TC       +2                                    #  DO R61
024671,000589: 37,2546           02576                           TC       DECRM61    +1                         
024672,000590: 37,2547           06006                           TC       INTPRET                               
024673,000591: 37,2550           77624                           CALL                                           
024674,000592: 37,2551           71227                                    CRS61.1                               #  LOS DETERMINATION + VEH ATTITUDE
024675,000593: 37,2552           77776                           EXIT                                           
024676,000594: 37,2553           50154                           INDEX    MPAC                                  
024677,000595: 37,2554           02555                           TC       +1                                    
024678,000596: 37,2555           02574                           TC       R61END                                #  SUBROUTINE DRIVING DAP (EXIT R61)
024679,000597:                                                                                                  #                                          OR AUTO MODE NOT SET (EXIT R61)
024680,000598:                                                                                                  #                                          OR STIKFLAG SET      (EXIT R61)
024681,000599: 37,2556           05447        R61C1              TC       DOWNFLAG                              #  RESET 3-AXIS FLAG
024682,000600: 37,2557           00124                           ADRES    3AXISFLG                              #  BIT 6  FLAG 5

Page 563

024684,000602: 37,2560           44712                           CS       ONE                                   #  SET R61CNTR NEG. TO INDICATE KALCMANU
024685,000603: 37,2561           55775                           TS       R61CNTR                               
024686,000604: 
024687,000605: 37,2562           05435                           TC       UPFLAG                                #  SET FLAG FOR PROIRITY DISPLAYS FOR R60
024688,000606: 37,2563           00077                           ADRES    PDSPFLAG                              #  BIT 12  FLAG 4
024689,000607: 37,2564           04555                           TC       BANKCALL                              
024690,000608: 37,2565           56000                           CADR     R60CSM                                
024691,000609: 37,2566           05447                           TC       DOWNFLAG                              #  RESET FLAG FOR PRIORITY DISPLAYS IN R60
024692,000610: 37,2567           00077                           ADRES    PDSPFLAG                              #  BIT 12  FLAG 4
024693,000611: 37,2570           05301                           TC       PHASCHNG                              
024694,000612: 37,2571           00111                           OCT      00111                                 
024695,000613: 37,2572           34714                           CAF      ZERO                                  
024696,000614: 37,2573           02575                           TC       DECRM61                               
024697,000615: 37,2574           36214        R61END             CAF      THREE                                 
024698,000616: 
024699,000617: 37,2575           55775        DECRM61            TS       R61CNTR                               
024700,000618: 
024701,000619: 37,2576           31770                           CAE      GENRET                                
024702,000620: 37,2577           22000                           LXCH     A                                     #  RETURN IS IN L
024703,000621: 37,2600           31771                           CA       SAVBNK                                #  RESTORE EBANK
024704,000622: 37,2601           56003                           XCH      EBANK                                 
024705,000623: 37,2602           22000                           LXCH     A                                     #  RETURN IS NOW BACK IN A
024706,000624: 37,2603           04577                           TC       BANKJUMP                              #  EXIT R61
024707,000625: 13,2176                                           BANK     13                                    
024708,000626: 23,2000                                           SETLOC   P20S2                                 
024709,000627: 23,2000                                           BANK                                           
024710,000628: 
024711,000629: 23,3047  E7,1725                                  EBANK=   MRKBUF1                               
024712,000630: 

Page 564

024714,000632:                                                                                                  #   BVECTOR PERFORMS COMPUTATIONS FOR
024715,000633:                                                                                                  #  DELTAQ,THE MEASURED DEVIATION BASED ON THE DIFFERENCE BETWEEN THE CSM-LE
024716,000634:                                                                                                  #  M STATE VECTOR ESTIMATES AND THE ACTUAL TRACKING MEASUREMENT.
024717,000635:                                                                                                  #  US,THE MODIFIED FICTITIOUS STAR DIRECTION VECTOR
024718,000636:                                                                                                  #  GEOMETRY VECTOR B ASSOCIATED WITH EACH TRACKING MEASUREMENT.
024719,000637:                                                                                                  #  INPUT
024720,000638:                                                                                                  #    UM,1/2 UNIT VECTOR ALONG THE CSM-LM LINE OF SIGHT (BASIC REF.SYSTEM)
024721,000639:                                                                                                  #    USTAR,FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
024722,000640:                                                                                                  #    RCLP,RELATIVE CSM TO LM POSITION VECTOR
024723,000641:                                                                                                  #  OUTPUT
024724,000642:                                                                                                  #    USTAR,MODIFIED FICTITOUS STAR DIRECTION (1/2 UNIT VECTOR)
024725,000643:                                                                                                  #    BVECTOR = 9 DIMENSIONAL BVECTOR (1/2 UNIT VEC.)
024726,000644:                                                                                                  #    DELTAQ = MEASURED DEVIATION
024727,000645:                                                                                                  #  CALLING SEQUENCE
024728,000646:                                                                                                  #     L  CALL BVECTORS
024729,000647:                                                                                                  #  NORMAL EXIT
024730,000648:                                                                                                  #     L+1 OF CALLING SEQUENCE
024731,000649: 
024732,000650: 23,3047                                           COUNT    23/20SUB                              
024733,000651: 
024734,000652: 23,3047           77620        BVECTORS           STQ                                            
024735,000653: 23,3050           02317                                    EGRESS                                
024736,000654: 23,3051           53575                           VLOAD    UNIT                                  
024737,000655: 23,3052           03531                                    RCLP                                  #  RELATIVE POSITION VECTOR
024738,000656: 23,3053           14033                           STODL    26D                                   #  RCLP UNIT VEC
024739,000657: 23,3054           00045                                    36D                                   #  RCLP ABS VALUE
024740,000658: 23,3055           25301                           STOVL    TEMPOR1                               #  MOVE TO SAFE LOCATION
024741,000659: 23,3056           01245                                    USTAR                                 
024742,000660: 23,3057           53435                           VXV      UNIT                                  
024743,000661: 23,3060           00033                                    26D                                   #  USTAR = UNIT(US X UCL)
024744,000662: 23,3061           37502                           STCALL   BVECTOR                               
024745,000663: 23,3062           56712                                    GRP2PC                                #  PHASE CHANGE
024746,000664: 23,3063           77775                           VLOAD                                          
024747,000665: 23,3064           03502                                    BVECTOR                               
024748,000666: 23,3065           01245                           STORE    USTAR                                 
024749,000667: 23,3066           72441                           DOT      SL1                                   
024750,000668: 23,3067           01235                                    UM                                    #  USTAR DOT UM
024751,000669: 23,3070           45326                           ACOS     DSU                                   
024752,000670: 23,3071           15322                                    DP1/4TH                               
024753,000671: 23,3072           41301                           NORM     DMP                                   
024754,000672: 23,3073           00047                                    X1                                    
024755,000673: 23,3074           07107                                    PI/4.0                                
024756,000674: 23,3075           53605                           DMP      SRR*                                  
024757,000675: 23,3076           01301                                    TEMPOR1                               #  RCLP ABS VALUE
024758,000676: 23,3077           21576                                    0          -3,1                       #  ADJUST SCALING
024759,000677: 23,3100           27524                           STOVL    DELTAQ                                
024760,000678: 23,3101           15332                                    ZEROVECS                              
024761,000679: 23,3102           03510                           STORE    BVECTOR    +6                         
024762,000680: 23,3103           03516                           STORE    BVECTOR    +12D                       
024763,000681: 23,3104           77650                           GOTO                                           

Page 565

024765,000683: 23,3105           02317                                    EGRESS                                
024766,000684: 23,3106           31103 36652  PI/4.0             2DEC     .785398164                            
024767,000685: 

Page 566

024769,000687:                                                                                                  #   GETUM-DETERMINES THE LINE OF SIGHT UNIT VECTOR UM IN THE BASIC REFERENC
024770,000688:                                                                                                  #  E COORDINATE SYSTEM FROM THE OPTICS SHAFT AND TRUNNION ANGLES AND THE IM
024771,000689:                                                                                                  #  U GIMBAL ANGLES.
024772,000690:                                                                                                  #  INPUT
024773,000691:                                                                                                  #     MARKDATA,BASE ADDRESS OF MARK DATA
024774,000692:                                                                                                  #     REFSMMAT,ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF.COORD.SYSTEM
024775,000693: 
024776,000694:                                                                                                  #  SUBROUTINES CALLED-
024777,000695:                                                                                                  #        SXTNB - SEXT. ANGULAR READINGS TO NAV. BASE COOR.
024778,000696:                                                                                                  #        NBSM  - TRANSFORM FROM NAV. BASE TO STABLE MEMBER
024779,000697:                                                                                                  #  OUTPUT
024780,000698:                                                                                                  #     MPAC = LINE OF SIGHT 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM
024781,000699:                                                                                                  #  CALLING SEQUENCE
024782,000700:                                                                                                  #     L  CALL GETUM
024783,000701: 
024784,000702:                                                                                                  #  NORMAL EXIT
024785,000703:                                                                                                  #     L+1 OF CALLING SEQUENCE
024786,000704: 
024787,000705: 23,3110           40220        GETUM              STQ      SETPD                                 
024788,000706: 23,3111           02317                                    EGRESS                                
024789,000707: 23,3112           00001                                    0                                     
024790,000708: 23,3113           76740                           LXC,1    VLOAD*                                
024791,000709: 23,3114           01242                                    MARKDATA                              #  CONTAINS ADDRESS OF MARK DATA
024792,000710: 23,3115           00002                                    1,1                                   
024793,000711: 23,3116           23676                           STODL*   MARKDOWN   +1                         #  TRANSFER DATA FROM WORKING STORAGE
024794,000712: 23,3117           00001                                    0,1                                   #  TO MARKDOWN ARRAY FOR DOWNLINK
024795,000713: 23,3120           03675                           STORE    MARKDOWN                              
024796,000714: 23,3121           77774                           AXT,2                                          
024797,000715: 23,3122           00002                                    2                                     
024798,000716: 23,3123           67064                           XSU,2    SXA,2                                 
024799,000717: 23,3124           00046                                    X1                                    #  X1 = MARKDATA
024800,000718: 23,3125           00050                                    S1                                    #  S1 = MARKDATA(ADR) +2
024801,000719: 23,3126           77624                           CALL                                           
024802,000720: 23,3127           46000                                    SXTNB                                 #  SEXT. ANGULAR READINGS TO NAV.BASE COOR.
024803,000721: 23,3130           77624                           CALL                                           
024804,000722: 23,3131           47541                                    NBSM                                  #  TRANSFORM FROM NAV.BASE TO STABLE MEM.
024805,000723: 23,3132           76505                           VXM      VSL1                                  
024806,000724: 23,3133           01736                                    REFSMMAT                              
024807,000725: 23,3134           77650                           GOTO                                           #  MPAC =(UM)LINE OF SIGHT VECTOR
024808,000726: 23,3135           02317                                    EGRESS                                #  EXIT
024809,000727: 

Page 567

024811,000729:                                                                                                  #               RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
024812,000730: 
024813,000731:                                                                                                  #  PURPOSE      (1) TO PROCESS RENDEZVOUS SIGHTING MARK DATA TO UPDATE THE STATE VECTOR OF EITHER THE CSM OR LM AS
024814,000732:                                                                                                  #               DEFINED BY THE RENDEZVOUS NAVIGATION PROGRAM (P20).
024815,000733: 
024816,000734:                                                                                                  #  ASSUMPTIONS  (1) THIS ROUTINE IS MANUALLY SELECTED BY THE ASTRONAUT BY V55E WHENEVER RENDEZVOUS SIGHTING MARKS
024817,000735:                                                                                                  #               ARE DESIRED. ITS SELECTION HOWEVER IS LIMITED TO PERIODS WHEN THE CMC IS HOLDING FOR A V/N FLASHING
024818,000736:                                                                                                  #               DATA DISPLAY. THIS ROUTINE RETURNS TO THE ORIGINAL PROGRAM AT THE INTERRUPTED DISPLAY.
024819,000737: 34,2512                                           BANK     34                                    
024820,000738: 34,2000                                           SETLOC   P20S3                                 
024821,000739: 34,2000                                           BANK                                           
024822,000740: 
024823,000741: 34,2512                                           COUNT    34/R22                                
024824,000742: 
024825,000743: 34,2512           37663        R22                CAF      PRIO26                                
024826,000744: 34,2513           55056                           TS       PHSPRDT2                              
024827,000745: 34,2514           05103                           TC       PRIOCHNG                              
024828,000746: 34,2515           37714                           CA       NEG3                                  
024829,000747: 34,2516           55734                           TS       MRKBUF2                               
024830,000748: 34,2517           06006                           TC       INTPRET                               
024831,000749: 34,2520           77634                           RTB                                            
024832,000750: 34,2521           45505                                    LOADTIME                              
024833,000751: 34,2522           01152                           STORE    VHFTIME                               #  PRESENT TIME
024834,000752: 34,2523           77624        REND1              CALL                                           
024835,000753: 34,2524           56712                                    GRP2PC                                
024836,000754: 34,2525           77624                           CALL                                           
024837,000755: 34,2526           56404                                    WAITONE                               
024838,000756: 34,2527           77776        REND1A             EXIT                                           
024839,000757: 34,2530           33220                           CAF      MKBUFAD                               #  SET MARKSTAT FOR RESTART (CLEARED IN
024840,000758: 34,2531           55330                           TS       MARKSTAT                              #    FRESH START)
024841,000759: 34,2532           31734                           CA       MRKBUF2                               
024842,000760: 34,2533           00006                           EXTEND                                         
024843,000761: 34,2534           12537                           BZF      REND2                                 
024844,000762: 34,2535           00006                           EXTEND                                         
024845,000763: 34,2536           62556                           BZMF     REND3A                                
024846,000764: 34,2537           36211        REND2              CAF      SIX                                   
024847,000765: 34,2540           05475                           TC       GENTRAN                               
024848,000766: 34,2541           01734                           ADRES    MRKBUF2                               
024849,000767: 34,2542           01224                           ADRES    MARKTIME                              #  MARKTIME MUST BE CONTIGUOUS WITH VTEMP
024850,000768: 34,2543           37714                           CAF      NEG3                                  #  NEG VALUE TO INDICATE VALUES USED
024851,000769: 34,2544           55734                           TS       MRKBUF2                               
024852,000770: 34,2545           00003                           RELINT                                         
024853,000771: 34,2546           06006                           TC       INTPRET                               
024854,000772: 34,2547           45014                           CLEAR    CALL                                  
024855,000773: 34,2550           04667                                    SOURCFLG                              #  0 = OPTICS DATA
024856,000774: 34,2551           56712                                    GRP2PC                                #  PHASE CHANGE
024857,000775: 34,2552           52131                           SSP      GOTO                                  
024858,000776: 34,2553           01243                                    MARKDATA                              
024859,000777: 34,2554           01224                           ECADR    VTEMP      -2                         
024860,000778: 34,2555           70601                                    REND4                                 

Page 568

024862,000780: 34,2556           06006        REND3A             TC       INTPRET                               
024863,000781: 34,2557           77624        REND3              CALL                                           
024864,000782: 34,2560           56712                                    GRP2PC                                
024865,000783: 34,2561           77624                           CALL                                           
024866,000784: 34,2562           56404                                    WAITONE                               
024867,000785: 34,2563           77614                           BOFF                                           
024868,000786: 34,2564           04746                                    VHFRFLAG                              
024869,000787: 34,2565           70527                                    REND1A                                
024870,000788: 34,2566           77634                           RTB                                            
024871,000789: 34,2567           45505                                    LOADTIME                              #  PRESENT TIME
024872,000790: 34,2570           45225                           DSU      DSU                                   
024873,000791: 34,2571           14647                                    60SECDP                               #  1 MIN
024874,000792: 34,2572           01152                                    VHFTIME                               #  LAST READING OF RADAR
024875,000793: 34,2573           45040                           BMN      CALL                                  
024876,000794: 34,2574           70527                                    REND1A                                
024877,000795: 34,2575           56415                                    RANGERD                               #  READ RADAR RANGE
024878,000796: 34,2576           77745                           DLOAD                                          
024879,000797: 34,2577           01225                                    MARKTIME                              
024880,000798: 34,2600           01152                           STORE    VHFTIME                               #  FOR DOWNLINK
024881,000799: 34,2601           77624        REND4              CALL                                           
024882,000800: 34,2602           56343                                    SETINTG                               #  SET INTEGRV FLAGS
024883,000801: 34,2603           45014                           BON      CALL                                  
024884,000802: 34,2604           00707                                    VEHUPFLG                              
024885,000803: 34,2605           71035                                    CSMUPP                                #  BRANCH IF CSM UPDATE
024886,000804: 34,2606           27113                                    INTEGRV                               
024887,000805: 34,2607           77624                           CALL                                           
024888,000806: 34,2610           56712                                    GRP2PC                                #  PHASE CHANGE
024889,000807: 34,2611           77624                           CALL                                           
024890,000808: 34,2612           56343                                    SETINTG                               #  SET INTEGRV FLAGS
024891,000809: 34,2613           77614                           CLEAR                                          
024892,000810: 34,2614           01674                                    VINTFLAG                              #  SET INTEGRATION VEHICLE TO LM
024893,000811: 34,2615           43014        REND5              BOFF     SET                                   
024894,000812: 34,2616           02756                                    RENDWFLG                              
024895,000813: 34,2617           70621                                    REND5A                                #  DO NOT INTEGRATE W IF FLAG = 0
024896,000814: 34,2620           01476                                    DIM0FLAG                              
024897,000815: 34,2621           77624        REND5A             CALL                                           
024898,000816: 34,2622           27113                                    INTEGRV                               
024899,000817: 34,2623           77624                           CALL                                           
024900,000818: 34,2624           56526                                    SHIFTNDX                              #  SET EARTH MOON SCALING INDEX
024901,000819: 34,2625           77624                           CALL                                           
024902,000820: 34,2626           71124                                    CMPOS                                 #  SET CSM POSITION
024903,000821: 34,2627           45014                           SET      CALL                                  
024904,000822: 34,2630           02464                                    INCORFLG                              #  SET FOR 1ST PASS
024905,000823: 34,2631           71133                                    LMPOS                                 #  SET LM POSITION
024906,000824: 34,2632           43014                           CLEAR    BON                                   
024907,000825: 34,2633           01671                                    ORBWFLAG                              #  CLEAR FOR ORBITAL AND CISLUNAR
024908,000826: 34,2634           02716                                    RENDWFLG                              
024909,000827: 34,2635           70645                                    REND6                                 
024910,000828: 34,2636           77745                           DLOAD                                          
024911,000829: 34,2637           02001                                    WRENDPOS                              

Page 569

024913,000831: 34,2640           34001                           STCALL   0                                     #  0 = WRENDPOS   1= WRENDVEL
024914,000832: 34,2641           56544                                    INITIALW                              #  INITIALIZE W MATRIX
024915,000833: 34,2642           77745                           DLOAD                                          
024916,000834: 34,2643           15332                                    ZEROVECS                              
024917,000835: 34,2644           01126                           STORE    VHFCNT                                #  ZERO OUT VHFCNT AND TRKMKCNT
024918,000836: 34,2645           77614        REND6              SET                                            
024919,000837: 34,2646           02476                                    RENDWFLG                              
024920,000838: 34,2647           52375                           VLOAD    VSU                                   
024921,000839: 34,2650           01215                                    LEMPOS                                
024922,000840: 34,2651           01207                                    CSMPOS                                
024923,000841: 34,2652           03531                           STORE    RCLP                                  #  LM - CSM
024924,000842: 34,2653           43056        REND7              UNIT     BON                                   
024925,000843: 34,2654           04707                                    SOURCFLG                              
024926,000844: 34,2655           71046                                    REND14                                #  BRANCH IF DATA IS RADAR
024927,000845: 34,2656           01273                           STORE    UCL                                   
024928,000846: 34,2657           45014                           BOFF     CALL                                  
024929,000847: 34,2660           02744                                    INCORFLG                              
024930,000848: 34,2661           70673                                    REND9                                 
024931,000849: 34,2662           47110                                    GETUM                                 #  CALCULATE UM LINE OF SIGHT
024932,000850: 34,2663           25235                           STOVL    UM                                    
024933,000851: 34,2664           01273                                    UCL                                   
024934,000852: 34,2665           40035                           VXV      BOV                                   
024935,000853: 34,2666           01235                                    UM                                    #  UCL X UM
024936,000854: 34,2667           70670                                    REND8                                 
024937,000855: 34,2670           40056        REND8              UNIT     BOV                                   
024938,000856: 34,2671           70557                                    REND3                                 #  BRANCH IF OVERFLOW IGNORE MARK
024939,000857: 34,2672           01245                           STORE    USTAR                                 
024940,000858: 34,2673           77624        REND9              CALL                                           
024941,000859: 34,2674           47047                                    BVECTORS                              
024942,000860: 34,2675           77214                           BON      VLOAD                                 
024943,000861: 34,2676           00707                                    VEHUPFLG                              
024944,000862: 34,2677           70703                                    REND9A                                
024945,000863: 34,2700           03502                                    BVECTOR                               
024946,000864: 34,2701           77676                           VCOMP                                          
024947,000865: 34,2702           03502                           STORE    BVECTOR                               
024948,000866: 34,2703           77624        REND9A             CALL                                           
024949,000867: 34,2704           56712                                    GRP2PC                                
024950,000868: 34,2705           77614                           BON                                            
024951,000869: 34,2706           00706                                    R23FLG                                
024952,000870: 34,2707           71077                                    REND15                                #  BRANCH IF BACKUP OPTICS (R23 WORKING)
024953,000871: 34,2710           43345                           DLOAD    DAD                                   
024954,000872: 34,2711           31222                                    SXTVAR                                
024955,000873: 34,2712           31224                                    IMUVAR                                
024956,000874: 34,2713           27526        REND10             STOVL    VARIANCE                              #  TEMP STORAGE FOR VARIANCE CALC.
024957,000875: 34,2714           03531                                    RCLP                                  
024958,000876: 34,2715           60246                           ABVAL    NORM                                  
024959,000877: 34,2716           00047                                    X1                                    
024960,000878: 34,2717           41316                           DSQ      DMP                                   
024961,000879: 34,2720           03526                                    VARIANCE                              
024962,000880: 34,2721           45070                           XAD,1    CALL                                  

Page 570

024964,000882: 34,2722           00046                                    X1                                    
024965,000883: 34,2723           56526                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
024966,000884: 34,2724           56070                           XAD,1    XAD,1                                 
024967,000885: 34,2725           00047                                    X2                                    
024968,000886: 34,2726           00047                                    X2                                    
024969,000887: 34,2727           72257                           SR*      TLOAD                                 
024970,000888: 34,2730           20577                                    0          -2,1                       #  ADJUST SCALING TO B-40
024971,000889: 34,2731           00155                                    MPAC                                  
024972,000890: 34,2732           03526                           STORE    VARIANCE                              
024973,000891: 34,2733           54335                           SLOAD    SR                                    
024974,000892: 34,2734           02400                                    INTVAR                                #  INTEGRATION VARIANCE SCALED B-15
024975,000893: 34,2735           20632                                    25D                                   #  SCALE IT B-40
024976,000894: 34,2736           77771                           TAD                                            
024977,000895: 34,2737           03526                                    VARIANCE                              
024978,000896: 34,2740           03526                           STORE    VARIANCE                              
024979,000897: 34,2741           76214                           BOFF     TAD                                   
024980,000898: 34,2742           04747                                    SOURCFLG                              #  BRANCH IF NOT VHF RADAR
024981,000899: 34,2743           70752                                    REND10A                               
024982,000900: 34,2744           03005                                    RVARMIN                               #  VHF RADAR MIN. VARIANCE
024983,000901: 34,2745           72244                           BPL      TLOAD                                 
024984,000902: 34,2746           70752                                    REND10A                               
024985,000903: 34,2747           03005                                    RVARMIN                               
024986,000904: 34,2750           77646                           ABS                                            #  MIN. VALUE WAS STORED AS NEG.
024987,000905: 34,2751           03526                           STORE    VARIANCE                              #  STORE MIN. VALUE
024988,000906: 34,2752           45014        REND10A            CLEAR    CALL                                  
024989,000907: 34,2753           02666                                    DMENFLG                               #  CLEAR FOR 6 X 6 W MATRIX
024990,000908: 34,2754           75250                                    INCORP1                               #  CALCULATE UPDATE
024991,000909: 34,2755           77624                           CALL                                           
024992,000910: 34,2756           56712                                    GRP2PC                                
024993,000911: 34,2757           45014                           BOFF     CALL                                  
024994,000912: 34,2760           02744                                    INCORFLG                              
024995,000913: 34,2761           71007                                    REND12                                
024996,000914: 34,2762           56526                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
024997,000915: 34,2763           51575                           VLOAD    ABVAL                                 
024998,000916: 34,2764           01265                                    DELTAX     +6                         
024999,000917: 34,2765           77657                           SR*                                            
025000,000918: 34,2766           57176                                    0,2                                   
025001,000919: 34,2767           27504                           STOVL    N49DISP    +2                         
025002,000920: 34,2770           01257                                    DELTAX                                
025003,000921: 34,2771           53646                           ABVAL    SR*                                   
025004,000922: 34,2772           57176                                    0,2                                   
025005,000923: 34,2773           03502                           STORE    N49DISP                               
025006,000924: 34,2774           77735                           SLOAD                                          
025007,000925: 34,2775           02003                                    RMAX                                  
025008,000926: 34,2776           45261                           SR       DSU                                   
025009,000927: 34,2777           20613                                    10D                                   
025010,000928: 34,3000           03502                                    N49DISP                               
025011,000929: 34,3001           67240                           BMN      SLOAD                                 
025012,000930: 34,3002           71142                                    RENDISP                               #  BRANCH IF POS UP.GREATER THAN MAX.
025013,000931: 34,3003           02004                                    VMAX                                  

Page 571

025015,000933: 34,3004           50025                           DSU      BMN                                   
025016,000934: 34,3005           03504                                    N49DISP    +2                         
025017,000935: 34,3006           71142                                    RENDISP                               #  BRANCH IF VEL.UPDATE GREATER THAN MAX.
025018,000936: 34,3007           77624        REND12             CALL                                           
025019,000937: 34,3010           75460                                    INCORP2                               #  INCORPORATE UPDATE VALUES INTO STATE VEC
025020,000938: 34,3011           43014                           BON      BOFF                                  
025021,000939: 34,3012           04707                                    SOURCFLG                              
025022,000940: 34,3013           71104                                    REND16                                #  BRANCH IF DATA IS RADAR
025023,000941: 34,3014           02744                                    INCORFLG                              
025024,000942: 34,3015           71112                                    REND17                                
025025,000943: 34,3016           77624                           CALL                                           
025026,000944: 34,3017           56526                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025027,000945: 34,3020           45014                           BON      CALL                                  
025028,000946: 34,3021           00707                                    VEHUPFLG                              
025029,000947: 34,3022           71120                                    REND18                                #  BRANCH IF CSM UPDATE
025030,000948: 34,3023           71133                                    LMPOS                                 #  GET LM POSITION
025031,000949: 34,3024           77624        REND13             CALL                                           
025032,000950: 34,3025           56712                                    GRP2PC                                #  PHASE CHANGE
025033,000951: 34,3026           52375                           VLOAD    VSU                                   
025034,000952: 34,3027           01215                                    LEMPOS                                
025035,000953: 34,3030           01207                                    CSMPOS                                
025036,000954: 34,3031           03531                           STORE    RCLP                                  #  LM - CSM
025037,000955: 34,3032           77614                           CLRGO                                          
025038,000956: 34,3033           02624                                    INCORFLG                              
025039,000957: 34,3034           70653                                    REND7                                 #  BRANCH FOR 2ND PASS THIS OPTICS MARK
025040,000958: 34,3035           45014        CSMUPP             CLEAR    CALL                                  
025041,000959: 34,3036           01674                                    VINTFLAG                              #  SET INTEGRATION VEHICLE EQ LM
025042,000960: 34,3037           27113                                    INTEGRV                               
025043,000961: 34,3040           77624                           CALL                                           
025044,000962: 34,3041           56712                                    GRP2PC                                #  PHASE CHANGE
025045,000963: 34,3042           77624                           CALL                                           
025046,000964: 34,3043           56343                                    SETINTG                               #  SET FLAGS FOR INTEGRATION
025047,000965: 34,3044           77650                           GOTO                                           
025048,000966: 34,3045           70615                                    REND5                                 
025049,000967: 34,3046           27502        REND14             STOVL    BVECTOR                               #  VHF RADAR BVECTOR
025050,000968: 34,3047           15332                                    ZEROVECS                              
025051,000969: 34,3050           03510                           STORE    BVECTOR    +6                         
025052,000970: 34,3051           27516                           STOVL    BVECTOR    +12D                       
025053,000971: 34,3052           03531                                    RCLP                                  
025054,000972: 34,3053           71256                           UNIT     DLOAD                                 
025055,000973: 34,3054           01257                                    VHFRANGE                              #  VHFRANGE SCALED B-27
025056,000974: 34,3055           60414                           BON      SR2                                   
025057,000975: 34,3056           04303                                    MOONTHIS                              
025058,000976: 34,3057           71060                                    +1                                    
025059,000977: 34,3060           43025                           DSU      SET                                   
025060,000978: 34,3061           00045                                    36D                                   #  ABVAL (RCLP)
025061,000979: 34,3062           02464                                    INCORFLG                              
025062,000980: 34,3063           03524                           STORE    DELTAQ                                
025063,000981: 34,3064           77214                           BOFF     VLOAD                                 
025064,000982: 34,3065           00747                                    VEHUPFLG                              

Page 572

025066,000984: 34,3066           71072                                    REND14A                               
025067,000985: 34,3067           03502                                    BVECTOR                               
025068,000986: 34,3070           77676                           VCOMP                                          
025069,000987: 34,3071           03502                           STORE    BVECTOR                               
025070,000988: 34,3072           77624        REND14A            CALL                                           
025071,000989: 34,3073           56712                                    GRP2PC                                
025072,000990: 34,3074           52145                           DLOAD    GOTO                                  
025073,000991: 34,3075           03003                                    RVAR                                  
025074,000992: 34,3076           70713                                    REND10                                
025075,000993: 34,3077           43335        REND15             SLOAD    DAD                                   #  GET ALT LOS VARIANCE
025076,000994: 34,3100           01357                                    ALTVAR                                #  BACKUP OPTICS
025077,000995: 34,3101           31224                                    IMUVAR                                #  IMU VARIANCE
025078,000996: 34,3102           77650                           GOTO                                           
025079,000997: 34,3103           70713                                    REND10                                
025080,000998: 34,3104           62150        REND16             LXA,1    INCR,1                                
025081,000999: 34,3105           01125                                    VHFCNT                                #  VHF RADAR UPDATE COUNT
025082,001000: 34,3106           00001                           DEC      1          B-14                       
025083,001001: 34,3107           52130                           SXA,1    GOTO                                  
025084,001002: 34,3110           01125                                    VHFCNT                                #  UPDATE COUNT
025085,001003: 34,3111           70523                                    REND1                                 
025086,001004: 34,3112           62150        REND17             LXA,1    INCR,1                                
025087,001005: 34,3113           01126                                    TRKMKCNT                              #  OPTICS MARK COUNT
025088,001006: 34,3114           00001                           DEC      1          B-14                       
025089,001007: 34,3115           52130                           SXA,1    GOTO                                  
025090,001008: 34,3116           01126                                    TRKMKCNT                              #  UPDATE COUNT
025091,001009: 34,3117           70557                                    REND3                                 
025092,001010: 34,3120           77624        REND18             CALL                                           
025093,001011: 34,3121           71124                                    CMPOS                                 #  GET CSM POSITION
025094,001012: 34,3122           77650                           GOTO                                           
025095,001013: 34,3123           71024                                    REND13                                
025096,001014: 34,3124           53775        CMPOS              VLOAD    VSR*                                  
025097,001015: 34,3125           01573                                    DELTACSM                              
025098,001016: 34,3126           57167                                    7,2                                   
025099,001017: 34,3127           77655                           VAD                                            
025100,001018: 34,3130           01607                                    RCVCSM                                
025101,001019: 34,3131           01207                           STORE    CSMPOS                                #  CSM POSITION SCALED B-27 OR B-29
025102,001020: 34,3132           77616                           RVQ                                            
025103,001021: 34,3133           53775        LMPOS              VLOAD    VSR*                                  
025104,001022: 34,3134           01645                                    DELTALEM                              
025105,001023: 34,3135           57167                                    7,2                                   
025106,001024: 34,3136           77655                           VAD                                            
025107,001025: 34,3137           01661                                    RCVLEM                                
025108,001026: 34,3140           01215                           STORE    LEMPOS                                #  LM POSITION SCALED B-27 OR B-29
025109,001027: 34,3141           77616                           RVQ                                            
025110,001028: 34,3142           77776        RENDISP            EXIT                                           
025111,001029: 34,3143           30105                           CA       FLAGWRD9                              
025112,001030: 34,3144           74703                           MASK     BIT8                                  
025113,001031: 34,3145           00006                           EXTEND                                         
025114,001032: 34,3146           13151                           BZF      +3                                    
025115,001033: 34,3147           34711                           CA       BIT2                                  

Page 573

025117,001035: 34,3150           03152                           TC       +2                                    
025118,001036: 34,3151           34712                           CA       BIT1                                  
025119,001037: 34,3152           55505                           TS       N49DISP    +4                         
025120,001038: 34,3153           34714                           CAF      ZERO                                  #  SET TEMPOR1 > ZERO TO INDICATE
025121,001039: 34,3154           55300                           TS       TEMPOR1                               #  V06 N49 DISPLAY HASNT BEEN ANSWERED
025122,001040: 34,3155           05301                           TC       PHASCHNG                              
025123,001041: 34,3156           04022                           OCT      04022                                 
025124,001042: 34,3157           37664                           CAF      PRIO27                                #  SET UP DISPLAY JOB WITH HIGHER PRIORITY
025125,001043: 34,3160           05027                           TC       NOVAC                                 
025126,001044: 34,3161  E7,1725                                  EBANK=   MRKBUF1                               #  THAN PRESENT JOB
025127,001045: 34,3161           03173 70067                     2CADR    RENDISP2                              
025128,001046: 34,3163           06006        RENDISP7           TC       INTPRET                               
025129,001047: 34,3164           00155                           STORE    MPAC                                  
025130,001048: 34,3165           53135                           SLOAD    BZE                                   
025131,001049: 34,3166           01301                                    TEMPOR1                               
025132,001050: 34,3167           71164                                    RENDISP7   +1                         #  DISPLAY HAS NOT BEEN ANSWERED YET
025133,001051: 34,3170           52040                           BMN      GOTO                                  
025134,001052: 34,3171           71007                                    REND12                                #  NEG INDICATES PROCEED
025135,001053: 34,3172           71202                                    RENDISP3                              #  POS INDICATES RECYCLE
025136,001054: 34,3173           33225        RENDISP2           CAF      V06N49                                
025137,001055: 34,3174           04555                           TC       BANKCALL                              
025138,001056: 34,3175           20635                           CADR     PRIODSP                               
025139,001057: 34,3176           04550                           TC       GOTOV56                               #  TERM EXIT P20 VIA V56
025140,001058: 34,3177           44712                           CS       ONE                                   #  NEG INDICATES PROCEED RENDISP7 JOB
025141,001059: 34,3200           55300                           TS       TEMPOR1                               #  POS INDICATES RECYCLE RENDISP7 JOB
025142,001060: 34,3201           05112                           TC       ENDOFJOB                              #  GO COMPLETE ABOVE JOB
025143,001061: 34,3202           77614        RENDISP3           BON                                            
025144,001062: 34,3203           04707                                    SOURCFLG                              
025145,001063: 34,3204           70523                                    REND1                                 #  DATA WAS RADAR GO LOOK FOR OPTICS NEXT
025146,001064: 34,3205           77776                           EXIT                                           
025147,001065: 34,3206  E7,1725                                  EBANK=   MRKBUF1                               
025148,001066: 34,3206           00004                           INHINT                                         
025149,001067: 34,3207           33226                           CAF      BUFBANK                               
025150,001068: 34,3210           54006                           TS       BBANK                                 
025151,001069: 34,3211           37716                           CA       NEGONE                                
025152,001070: 34,3212           55725                           TS       MRKBUF1                               #  ERASE MARK ONE BUFFER
025153,001071: 34,3213           55734                           TS       MRKBUF2                               #  ERASE MARK TWO BUFFER
025154,001072: 34,3214           00003                           RELINT                                         
025155,001073: 34,3215           06006        RENDISP4           TC       INTPRET                               
025156,001074: 34,3216           77650                           GOTO                                           
025157,001075: 34,3217           70557                                    REND3                                 
025158,001076: 34,3220           03734        MKBUFAD            ECADR    MRKBUF2                               
025159,001077: 34,3221           00052 36307  SXTVAR             2DEC     0.04       E-6        B+16            #  SXT ERROR VARIANCE = .04 (MR)SQ
025160,001078: 34,3223           00052 36307  IMUVAR             2DEC     0.04       E-6        B+16            #  IMU ERROR VARIANCE = .04 (MR)SQ
025161,001079: 34,3225           01461        V06N49             VN       0649                                  
025162,001080: 34,3226  E7,1725                                  EBANK=   MRKBUF1                               
025163,001081: 34,3226           70067        BUFBANK            BBCON    RENDISP3                              

Page 574

025165,001083: 31,2021                                           BANK     31                                    
025166,001084: 27,2000                                           SETLOC   R22S1                                 
025167,001085: 27,2000                                           BANK                                           
025168,001086: 27,2343           45020        SETINTG            STQ      CALL                                  
025169,001087: 27,2344           02317                                    EGRESS                                
025170,001088: 27,2345           27371                                    INTSTALL                              #  RESERVE INTEGRATION
025171,001089: 27,2346           43145                           DLOAD    SET                                   
025172,001090: 27,2347           01225                                    MARKTIME                              
025173,001091: 27,2350           01472                                    STATEFLG                              
025174,001092: 27,2351           00041                           STORE    TDEC1                                 #  MARKTIME
025175,001093: 27,2352           43014                           CLEAR    CLEAR                                 
025176,001094: 27,2353           01673                                    INTYPFLG                              #  PRECISION INTEGRATION
025177,001095: 27,2354           01676                                    DIM0FLAG                              
025178,001096: 27,2355           43014                           SET      CLRGO                                 
025179,001097: 27,2356           01474                                    VINTFLAG                              #  SET VEHICLE EQ. CSM
025180,001098: 27,2357           01635                                    D6OR9FLG                              #  SET W MATRIX DIM. EQ 6
025181,001099: 27,2360           02317                                    EGRESS                                #  EXIT
025182,001100: 27,2361           77620        CNTCHK             STQ                                            
025183,001101: 27,2362           01150                                    POINTEX                               
025184,001102: 27,2363           77614        CONTCHK            BOFF                                           
025185,001103: 27,2364           01742                                    REFSMFLG                              #  BRANCH TO END OF JOB IF REFSMMAT NO GOOD
025186,001104: 27,2365           30147                                    ENDPLAC                               
025187,001105: 27,2366           50135                           SLOAD    BMN                                   
025188,001106: 27,2367           03376                                    R61CNTR                               
025189,001107: 27,2370           56406                                    WAITONE1                              
025190,001108: 27,2371           43014                           BON      BOFF                                  #  IS TRACK FLAG SET
025191,001109: 27,2372           00710                                    UPDATFLG                              
025192,001110: 27,2373           01150                                    POINTEX                               
025193,001111: 27,2374           00752                                    TRACKFLG                              
025194,001112: 27,2375           30147                                    ENDPLAC                               
025195,001113: 27,2376           77776                           EXIT                                           
025196,001114: 27,2377           05301        REDOR22            TC       PHASCHNG                              
025197,001115: 27,2400           00132                           OCT      00132                                 
025198,001116: 27,2401           37663                           CAF      PRIO26                                
025199,001117: 27,2402           05103                           TC       PRIOCHNG                              
025200,001118: 27,2403           02407                           TC       WAITONE    +3                         
025201,001119: 27,2404           77620        WAITONE            STQ                                            
025202,001120: 27,2405           01150                                    POINTEX                               
025203,001121: 27,2406           77776        WAITONE1           EXIT                                           
025204,001122: 27,2407           34740                           CAF      4SECS                                 #  WAIT 4 SECS.
025205,001123: 27,2410           04555                           TC       BANKCALL                              
025206,001124: 27,2411           01730                           CADR     DELAYJOB                              
025207,001125: 27,2412           06006                           TC       INTPRET                               
025208,001126: 27,2413           77650                           GOTO                                           
025209,001127: 27,2414           56363                                    CONTCHK                               #  CHECK AGAIN NOW
025210,001128: 27,2415           77776        RANGERD            EXIT                                           
025211,001129: 27,2416           00004                           INHINT                                         
025212,001130: 27,2417           42472                           CS       OCT17                                 
025213,001131: 27,2420           00006                           EXTEND                                         
025214,001132: 27,2421           03013                           WAND     CHAN13                                #  ZERO OUT BITS 1-4 OF CHANNEL 13

Page 575

025216,001134: 27,2422           34334                           CAF      OCT11                                 
025217,001135: 27,2423           00006                           EXTEND                                         
025218,001136: 27,2424           05013                           WOR      CHAN13                                #  GENERATE SHIFT PULSES TO RADR,SET R.BIT
025219,001137: 27,2425           00003                           RELINT                                         
025220,001138: 27,2426           00006                           EXTEND                                         
025221,001139: 27,2427           30025                           DCA      TIME2                                 
025222,001140: 27,2430           53225                           DXCH     MARKTIME                              #  READ PRESENT TIME
025223,001141: 27,2431           04555                           TC       BANKCALL                              
025224,001142: 27,2432           17514                           CADR     RADSTALL                              #  WAIT FOR RANGE COMPLETE
025225,001143: 27,2433           02461                           TC       LIGHTON                               #  BAD DATA GOOD BIT
025226,001144: 27,2434           05520                           TC       TRFAILOF                              #  TURN TRACKER LIGHT OFF
025227,001145: 27,2435           06006        RANGERD1           TC       INTPRET                               
025228,001146: 27,2436           50135                           SLOAD    BMN                                   
025229,001147: 27,2437           03704                                    RM                                    
025230,001148: 27,2440           56447                                    RANGERD3                              
025231,001149: 27,2441           77605                           DMP                                            
025232,001150: 27,2442           16475                                    CONVRNGE                              #  CONVERT RANGE TO METERS B-27
025233,001151: 27,2443           77614        RANGERD2           SET                                            
025234,001152: 27,2444           04467                                    SOURCFLG                              #  SOURCE OF DATA TO VHF RADAR
025235,001153: 27,2445           01257                           STORE    VHFRANGE                              
025236,001154: 27,2446           77616                           RVQ                                            
025237,001155: 27,2447           77776        RANGERD3           EXIT                                           
025238,001156: 27,2450           30154                           CA       MPAC                                  
025239,001157: 27,2451           74672                           MASK     POSMAX                                
025240,001158: 27,2452           54154                           TS       MPAC                                  #  MASK OUT NEG. SIGN BIT
025241,001159: 27,2453           06006                           TC       INTPRET                               
025242,001160: 27,2454           77605                           DMP                                            
025243,001161: 27,2455           16475                                    CONVRNGE                              #  CONVERT FROM NM TO METERS AND SCALE B-27
025244,001162: 27,2456           52015                           DAD      GOTO                                  
025245,001163: 27,2457           16471                                    RANGEB14                              #  VALUE IN METERS OF SIGN BIT SCALED B-27
025246,001164: 27,2460           56443                                    RANGERD2                              
025247,001165: 27,2461           05532        LIGHTON            TC       TRFAILON                              #  TURN TRACKER LIGHT ON
025248,001166: 27,2462           06006                           TC       INTPRET                               
025249,001167: 27,2463           77745                           DLOAD                                          
025250,001168: 27,2464           01225                                    MARKTIME                              
025251,001169: 27,2465           01152                           STORE    VHFTIME                               
025252,001170: 27,2466           77650                           GOTO                                           
025253,001171: 27,2467           70523                                    REND1                                 
025254,001172: 27,2470           00045 01217  RANGEB14           2DEC     303431.7   B-27                       #  16384 X 18.52 SCALED B-27
025255,001173: 27,2472           00017        OCT17              OCT      00017                                 
025256,001174: 27,2473           40200        OC40200            OCT      40200                                 
025257,001175: 27,2474           00045 01217  CONVRNGE           2DEC     18.52      B-13                       #  VHF INPUT RANGE CONV.FROM.01 NM TO M
025258,001176: 27,2476           00006        VHFREAD            EXTEND                                         
025259,001177: 27,2477           04007                           ROR      SUPERBNK                              #  MUST SAVE SBANK BECAUSE OF RUPT
025260,001178: 27,2500           54016                           TS       BANKRUPT                              #  EXITS VIA TASKOVER BADEND OR GOODEND
025261,001179: 27,2501           44714                           CS       ZERO                                  
025262,001180: 27,2502           54734                           TS       RUPTAGN                               
025263,001181: 27,2503           00006                           EXTEND                                         

Page 576

025265,001183: 27,2504           22012                           QXCH     QRUPT                                 
025266,001184: 27,2505           34704                           CAF      BIT7                                  
025267,001185: 27,2506           70075                           MASK     STATE      +1                         #  UPDATE FLAG
025268,001186: 27,2507           00006                           EXTEND                                         
025269,001187: 27,2510           12520                           BZF      BYPASS                                
025270,001188: 27,2511           30046                           CA       RNRAD                                 
025271,001189: 27,2512           55703                           TS       RM                                    #  SAVE RANGE
025272,001190: 27,2513           34711                           CAF      BIT2                                  
025273,001191: 27,2514           00006                           EXTEND                                         
025274,001192: 27,2515           02033                           RAND     CHAN33                                #  READ DATA GOOD BIT
025275,001193: 27,2516           00006                           EXTEND                                         
025276,001194: 27,2517           12523                           BZF      VHFGOOD                               #  BRANCH IF DATA GOOD BIT EQUALS GOOD
025277,001195: 27,2520           34711        BYPASS             CAF      TWO                                   
025278,001196: 27,2521           04574                           TC       POSTJUMP                              
025279,001197: 27,2522           17464                           CADR     BADEND                                
025280,001198: 27,2523           34711        VHFGOOD            CAF      TWO                                   
025281,001199: 27,2524           04574                           TC       POSTJUMP                              
025282,001200: 27,2525           17467                           CADR     GOODEND                               
025283,001201: 27,2526           43174        SHIFTNDX           AXT,2    BON                                   
025284,001202: 27,2527           00000                                    0                                     
025285,001203: 27,2530           00707                                    VEHUPFLG                              
025286,001204: 27,2531           56537                                    SHIFTA                                #  VEHICLE IS CSM
025287,001205: 27,2532           43414                           BON      RVQ                                   
025288,001206: 27,2533           04304                                    LMOONFLG                              
025289,001207: 27,2534           56535                                    +1                                    
025290,001208: 27,2535           43514                           INCR,2   RVQ                                   
025291,001209: 27,2536           77775                           DEC      -2         B-14                       
025292,001210: 27,2537           43414        SHIFTA             BON      RVQ                                   
025293,001211: 27,2540           04303                                    CMOONFLG                              
025294,001212: 27,2541           56542                                    +1                                    #  MOON ORB.
025295,001213: 27,2542           43514                           INCR,2   RVQ                                   
025296,001214: 27,2543           77775                           DEC      -2         B-14                       
025297,001215: 27,2544           66370        INITIALW           AXT,1    SSP                                   
025298,001216: 27,2545           00044                                    36D                                   
025299,001217: 27,2546           00051                                    S1                                    
025300,001218: 27,2547           00006                                    6                                     
025301,001219: 27,2550           77775                           VLOAD                                          
025302,001220: 27,2551           15332                                    ZEROVECS                              
025303,001221: 27,2552           06445        INITA              STORE    W          +36D,1                     #  CLEAR 0 - 35
025304,001222: 27,2553           76100                           TIX,1    AXT,1                                 
025305,001223: 27,2554           56552                                    INITA                                 
025306,001224: 27,2555           00044                                    36D                                   
025307,001225: 27,2556           06533        INITB              STORE    W          +90D,1                     #  CLEAR 54 - 89
025308,001226: 27,2557           67300                           TIX,1    SLOAD                                 
025309,001227: 27,2560           56556                                    INITB                                 
025310,001228: 27,2561           00001                                    0                                     #  POSITION VALUE
025311,001229: 27,2562           02401                           STORE    W                                     #  INITIALIZE DIAGONAL W  POSITION
025312,001230: 27,2563           02411                           STORE    W          +8D                        
025313,001231: 27,2564           02421                           STORE    W          +16D                       
025314,001232: 27,2565           77735                           SLOAD                                          

Page 577

025316,001234: 27,2566           00002                                    1                                     #  VELOCITY VALUE
025317,001235: 27,2567           02511                           STORE    W          +72D                       #  INITIALIZE DIAGONAL W VELOCITY
025318,001236: 27,2570           02521                           STORE    W          +80D                       
025319,001237: 27,2571           02531                           STORE    W          +88D                       
025320,001238: 27,2572           77616                           RVQ                                            
025321,001239: 

Page 578

025323,001241: 
025324,001242:                                                                                                  #  CRS61.1  4/10/68
025325,001243:                                                                                                  #    TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025326,001244:                                                                                                  #  OPTICS  TRACKING OF THE LM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
025327,001245:                                                                                                  #  AND TO COMPUTE THE &X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025328,001246:                                                                                                  #  COAS TRACKING OF THE LM.
025329,001247:                                                                                                  #    TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE 
025330,001248:                                                                                                  #  MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
025331,001249:                                                                                                  #  GREATER THAN 10 DEGREES OR IF THE R60FLAG IS SET.
025332,001250:                                                                                                  #           (1) EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
025333,001251:                                                                                                  #               CONIC EQUATIONS.
025334,001252: 
025335,001253:                                                                                                  #           (2) CALCULATE LOS FROM CSM TO LM = RL - RC.
025336,001254: 
025337,001255:                                                                                                  #           (3) THE PREFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
025338,001256:                                                                                                  #               THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM. THE
025339,001257:                                                                                                  #               TRACK AXIS (I) IS DEFINED AS:
025340,001258: 
025341,001259:                                                                                                  #               UNIT(I)=UNIT(Z  )COS55 &UNIT(X  )SIN55
025342,001260:                                                                                                  #                    -       -SC             -SC
025343,001261:                                                                                                  #           (4) COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
025344,001262:                                                                                                  #           (7) FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS.
025345,001263:                                                                                                  #               IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES,
025346,001264:                                                                                                  #               GROSS MANEUVER IS REQUIRED. SIGNAL R61 (SET MPAC=1) TO
025347,001265:                                                                                                  #               OPERATE KALCMANU AND EXIT CRS61.1.
025348,001266:                                                                                                  #               IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE.
025349,001267: 
025350,001268:                                                                                                  #           (8) CALCULATE ORTHOGONAL LOS RATE IN REF COORDS AS
025351,001269: 
025352,001270:                                                                                                  #               OMEGATH = (UNITLOS(B1) X UNITDV(B1))(ABSDV(B7)/ABSLOS(B29))
025353,001271:                                                                                                  #               CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS
025354,001272:                                                                                                  #               APPLIED TO YIELD UNITS OF REVS/SEC. SCALE IS CARRIED AS
025355,001273:                                                                                                  #               B+1+1+7-29+4+1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS.
025356,001274:                                                                                                  #               THE EXTRA B+1 RESULTS FROM RESCALING ABSDV B8 AFTER NORM
025357,001275:                                                                                                  #               TO AVOID OVFLOW ON DIVIDE.
025358,001276: 
025359,001277:                                                                                                  #               UNITLOS = UNIT( RL - RC) B1.
025360,001278:                                                                                                  #               UNITDY  = UNIT( VL - VC) B1.
025361,001279:                                                                                                  #               ABSLOS  = LENGTH OF LOS, METERS B29.
025362,001280:                                                                                                  #               ABSDV   = LENGTH OF DV , METERS/CSEC B7.
025363,001281: 
025364,001282:                                                                                                  #           (9) OBTAIN RATE IN SM COORDS.
025365,001283: 
025366,001284:                                                                                                  #               OMEGATHSM = (REFSMMAT)(OMEGATH).
025367,001285: 
025368,001286:                                                                                                  #           (10)OBTAIN GIMBAL ANGLE INCREMENTS FOR 0.1 SECOND.
025369,001287: 
025370,001288:                                                                                                  #               DTHETASM = (0.1)(OMEGATHSM)
025371,001289: 
025372,001290:                                                                                                  #           (11)OBTAIN DELCDUX,Y,Z USING SUBR SMCDURES.

Page 579

025374,001292:                                                                                                  #               INPUT CONSISTS OF
025375,001293: 
025376,001294:                                                                                                  #               (A) VECTOR OF ANGULAR INCREMENTS, DTHETASM, STORED
025377,001295:                                                                                                  #                   IN V(DTHETASM).
025378,001296: 
025379,001297:                                                                                                  #               (B) SIN,COS CDUX,Y,Z FROM  SUBR CDUTRIG.
025380,001298: 
025381,001299:                                                                                                  #               TRANSFER OUTPUT OF SMCDURES FROM V(DCDU) TO VAC14D.
025382,001300: 
025383,001301:                                                                                                  #           (12)CALCULATE ANG LOS RATE IN BODY(NB) COORDS USING SUBR SMNB.
025384,001302: 
025385,001303:                                                                                                  #               OMEGANB = (SMNB)(OMEGATHSM)
025386,001304: 
025387,001305:                                                                                                  #               SUBR SMNB REQUIRES  OMEGATHSM IN V(VAC32D) AND ACTUAL CDUS
025388,001306:                                                                                                  #               (Y,X,Z ORDER) IN V(VAC20D) WITH S1 OF VAC = BASE ADDRESS
025389,001307:                                                                                                  #               OF CDUS (FIXLOC + 20D).
025390,001308: 
025391,001309:                                                                                                  #           (13)CALCULATE ANG LOS RATE IN CONTROL COORDS AS FOLLOWS
025392,001310: 
025393,001311:                                                                                                  #               WBODY = (MBDYTCTL)(OMEGANB)   UNITS=REVS/SEC(B0).
025394,001312: 
025395,001313:                                                                                                  #                              ( 0.5       0              0     ) BODY TO
025396,001314:                                                                                                  #               MBDYTCTL(B1) = (  0   COS(7.25)B1  -SIN(7.25)B1 )=CONTROL
025397,001315:                                                                                                  #                              (  0   SIN(7.25)B1   COS(7.25)B1 ) AXES
025398,001316:                                                                                                  #                                                                CONVERSION
025399,001317:                                                                                                  #                                                                 MATRIX
025400,001318: 
025401,001319:                                                                                                  #           (14)RESCALE WBODY TO UNITS OF 450 DEG/SEC BY APPLYING FACTOR
025402,001320:                                                                                                  #               OF 0.8 TO REVS/SEC.
025403,001321: 
025404,001322:                                                                                                  #           (15)ADDRESS LIVE AUTOPILOT REGISTERS IN BASIC (UNDER INHINT).
025405,001323: 
025406,001324:                                                                                                  #               TRANSFER DESIRED CDUS, SCALED 180 DEGREES,FROM T(SAVEDCDU)
025407,001325:                                                                                                  #               TO V(CDUXD).
025408,001326:                                                                                                  #               TRANSFER DELCDUS, SCALED 180 DEG, FROM V(VAC14D)
025409,001327:                                                                                                  #               TO V(DELCDUX).
025410,001328:                                                                                                  #               TRANSFER OMEGA CONTROL, SCALED 450 DEG/SEC,FROM V(MPAC)
025411,001329:                                                                                                  #               TO V(WBODY).
025412,001330:                                                                                                  #               RELINT, SET MPAC=0, EXIT CRS61.1
025413,001331: 
025414,001332:                                                                                                  #  CALL     L  CALL CRS61.1
025415,001333: 
025416,001334:                                                                                                  #  RETURNS  ALL TO L+1.
025417,001335: 
025418,001336:                                                                                                  #           (1) S(MPAC)=0. NORMAL EXIT. 3 SETS OF INPUTS FED TO DAP.
025419,001337:                                                                                                  #           (2) S(MPAC)=1. CALCULATED DESIRED CDUS,SP, SET IN T(CPHI)
025420,001338:                                                                                                  #               FOR KALCMANU. ABS(ACDU - DCDU) EXCEEDS 10 DEGREES.
025421,001339:                                                                                                  #           (3) S(MPAC)=2. GNCS AUTO MODE NOT SELECTED (BIT10=1).
025422,001340:                                                                                                  #           (4) S(MPAC)=3. DAP HOLD FLAG (HOLDFLAG) NOT EQUAL -1.

Page 580

025424,001342:                                                                                                  #  INPUT    (1) TIME2,TIME1. COMPUTER CLOCK TIME,DP, CENTISEC B28.
025425,001343:                                                                                                  #           (2) CDUX,Y,Z. PRESENT CDU ANGLES,SP,2S COMPL HALF-REVS B0.
025426,001344:                                                                                                  #           (3) M(REFSMMAT),STABLE MEMBER COORDS B1.
025427,001345: 
025428,001346:                                                                                                  #  OUTPUT   NORMAL. EXIT WITH S(MPAC) = 0.
025429,001347: 
025430,001348:                                                                                                  #           (1) CDUXD,CDUYD,CDUZD, DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025431,001349:                                                                                                  #               DP, 1S COMPL, SCALED 180 DEGREES (HALF-REVS B0).
025432,001350:                                                                                                  #           (2) DELCDUX,DELCDUY,DELCDUZ. 0.1 SEC DCU ANGULAR INCREMENTS,
025433,001351:                                                                                                  #               DP, 1S COMPL, SCALED 180 DEG.
025434,001352:                                                                                                  #           (3) WBODY,WBODY1,WBODY2. LOS ANGULAR RATE IN CONTROL COORDS,
025435,001353:                                                                                                  #               DP, 1S COMPL, SCALED 450 DEG/SEC.
025436,001354: 
025437,001355:                                                                                                  #           SPECIAL. EXIT WITH S(MPAC) = 1.
025438,001356: 
025439,001357:                                                                                                  #           (1) CPHI,CTHETA,CPSI. DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025440,001358:                                                                                                  #               SP, 2S COMPL, SCALED 180 DEGREES.
025441,001359: 
025442,001360:                                                                                                  #  EXTERNAL SUBROUTINES USED   (B)=BASIC
025443,001361: 
025444,001362:                                                                                                  #           (1) CALCGA    (5) LOADTIME(B)  (9) SMNB
025445,001363:                                                                                                  #           (2) CDUTRIG   (6) MATMOVE
025446,001364:                                                                                                  #           (3) CSMCONIC  (7) RDCDUS(B)
025447,001365:                                                                                                  #           (4) LEMCONIC  (8) SMCDURES
025448,001366: 
025449,001367:                                                                                                  #  ERASABLE (1) S(Q611),EBANK7  CRS61.1 EXIT .
025450,001368:                                                                                                  #           (2) S(Q6111)EBANK7  CALCDCDU EXIT.
025451,001369:                                                                                                  #           (3) T(SAVEDCDU) E6  SP VECTOR OF CDUDS.
025452,001370:                                                                                                  #           (4) V(SAVEPOS)  E7  CSM POS VEC AND  D(SAVEPOS)= LENGTH OF LOS.
025453,001371:                                                                                                  #           (5) V(SAVEVEL) E7  CSM VEL VEC.
025454,001372: 
025455,001373:                                                                                                  #  FLAGWDS  HOLDFLAG. USED, NOT SET.
025456,001374: 
025457,001375:                                                                                                  #  MISC     (1) ERASABLE ITEMP1 USED TO TEMP STORE EBANK UNDER INHINT.
025458,001376:                                                                                                  #           (2) ERASABLE P21TIME USED AS TEMP STORE DURING CRS61.1
025459,001377:                                                                                                  #           (3) ERAS DTHETASM USED AS TEMP STORE DURING EARLY CRS61.1
025460,001378: 
025461,001379:                                                                                                  #  DEBRIS - CURRENT VAC AREA, CRS61.1 ERASABLES, ITEMP1, P21TIME
025462,001380: 
025463,001381: 24,2002                                           BANK     24                                    
025464,001382: 34,2000                                           SETLOC   P20S4                                 
025465,001383: 34,2000                                           BANK                                           
025466,001384: 
025467,001385: 34,3227  E6,1646                                  EBANK=   CDUXD                                 
025468,001386: 34,3227                                           COUNT*   $/CRS61                               
025469,001387: 
025470,001388: 34,3227           40220        CRS61.1            STQ      SETPD                                 
025471,001389: 34,3230           03704                                    Q611                                  
025472,001390: 34,3231           00001                                    0                                     
025473,001391: 34,3232           77634                           RTB                                            

Page 581

025475,001393: 34,3233           45505                                    LOADTIME                              #  LOAD CLOCK TIME2,1 INTO MPAC.
025476,001394: 
025477,001395: 34,3234           36316        STORT              STCALL   P21TIME                               #  STORE CLOCK TIME FOR SUBR R63
025478,001396: 34,3235           71463                                    R63                                   #  SUBR TO CALC DCDU(T=PRESENT,PASS1)
025479,001397: 34,3236           77751                           TLOAD                                          
025480,001398: 34,3237           01156                                    THETAD                                #  SAVE DCDU(T) FROM CALCDCDU FOR STEP4.
025481,001399: 34,3240           03373                           STORE    SAVEDCDU                              
025482,001400: 
025483,001401: 34,3241           77776                           EXIT                                           
025484,001402: 34,3242           03263                           TC       STEP2CK                               
025485,001403: 34,3243           34371        AUTOCK             CAF      PRIO30                                
025486,001404: 34,3244           00006                           EXTEND                                         
025487,001405: 34,3245           06031                           RXOR     CHAN31                                
025488,001406: 34,3246           77707                           MASK     FURST3                                
025489,001407: 34,3247           00006                           EXTEND                                         #  AUTO MODE SELECTED (BITS 15-13=011)
025490,001408: 34,3250           13252                           BZF      DAPCK                                 #     YES-CONTINUE.
025491,001409: 34,3251           03256                           TC       ASET                                  
025492,001410: 
025493,001411: 34,3252           40075        DAPCK              CS       FLAGWRD1                              #  IS STIKFLAG SET (I.E. IS SOMEONE ON RHC)
025494,001412: 34,3253           74675                           MASK     BIT14                                 
025495,001413: 34,3254           10000                           CCS      A                                     
025496,001414: 34,3255           03322                           TC       STEP3CK                               
025497,001415: 34,3256           34714        ASET               CAF      ZERO                                  
025498,001416: 34,3257           54154                           TS       MPAC                                  
025499,001417: 34,3260           06006                           TC       INTPRET                               #  EXIT CRS61.1
025500,001418: 34,3261           77650                           GOTO                                           
025501,001419: 34,3262           03704                                    Q611                                  
025502,001420: 
025503,001421: 34,3263           40101        STEP2CK            CS       FLAGWRD5                              #  IS R60FLAG SET
025504,001422: 34,3264           74707                           MASK     BIT4                                  
025505,001423: 34,3265           00006                           EXTEND                                         
025506,001424: 34,3266           13454                           BZF      MANUEXIS                              #  YES, DO R60
025507,001425: 34,3267           04555                           TC       BANKCALL                              
025508,001426: 34,3270           57721                           CADR     UPACTOFF                              
025509,001427: 
025510,001428: 34,3271           34711                           CAF      TWO                                   #  SET TEMPORARY INDEX DTHETASM = 2
025511,001429: 34,3272           55611        CDULOOP            TS       DTHETASM                              
025512,001430: 34,3273           51611                           INDEX    DTHETASM                              
025513,001431: 34,3274           30032                           CA       CDUX                                  #  SET A = ACTUAL CDU (ACDU).
025514,001432: 34,3275           00006                           EXTEND                                         
025515,001433: 34,3276           51611                           INDEX    DTHETASM                              #  SET INDEX TO ACCESS DESIRED CDU (DCDU).
025516,001434: 34,3277           21155                           MSU      THETAD                                #  A = DIFF = ACDU - DCDU.
025517,001435: 34,3300           54154                           TS       MPAC                                  #  RETURN TO INTERPRETER FOR 10 DEGREE CK.
025518,001436: 34,3301           06006                           TC       INTPRET                               #  (DP APPROX SP OK FOR ROUGH CHECK)
025519,001437: 34,3302           45246                           ABS      DSU                                   
025520,001438: 34,3303           31552                                    DEGREE10                              #  IS (ACDU - DCDU) MORE THAN 10 DEGREES.
025521,001439: 34,3304           77444                           BPL      EXIT                                  #  NO - OK, CONTINUE CHECKING OTHER ANGLES.
025522,001440: 34,3305           71311                                    STKTEST                               #  TEST STICK FLAG
025523,001441: 34,3306           11611                           CCS      DTHETASM                              #  HAVE ALL 3 ANGLE DIFFS BEEN CHECKED.
025524,001442: 34,3307           03272                           TC       CDULOOP                               #  NO - DIM COUNT, CHECK NEXT ANGLE DIFF.

Page 582

025526,001444: 34,3310           03243                           TC       AUTOCK                                
025527,001445: 34,3311           77776        STKTEST            EXIT                                           
025528,001446: 34,3312           40075                           CS       FLAGWRD1                              
025529,001447: 34,3313           74675                           MASK     BIT14                                 
025530,001448: 34,3314           10000                           CCS      A                                     
025531,001449: 34,3315           03454                           TC       MANUEXIS                              #  STIKFLAG IS NOT SET (DO R63)
025532,001450: 34,3316           34710                           CAF      BIT3                                  
025533,001451: 34,3317           00006                           EXTEND                                         #  STIKFLG IS SET
025534,001452: 34,3320           05011                           WOR      DSALMOUT                              #  TURN ON UPACTY LIGHT
025535,001453: 
025536,001454: 34,3321           03256                           TC       ASET                                  #  EXIT AND SET R61CNTR
025537,001455: 34,3322           06006        STEP3CK            TC       INTPRET                               
025538,001456: 34,3323           77601                           SETPD                                          
025539,001457: 34,3324           00001                                    0                                     #  *
025540,001458:                                                                                                  #                                          NOW HAVE DCDUS STORED IN T(SAVEDCDU).
025541,001459:                                                                                                  #                                          GO CALC OTHER DAP INPUTS (DELCDU,WBODY)
025542,001460: 34,3325           52375        CRS61.2            VLOAD    VSU                                   
025543,001461: 34,3326           03204                                    DCDU                                  
025544,001462: 34,3327           03715                                    SAVEVEL                               #  DV = VL - VC
025545,001463: 34,3330           57456                           UNIT     VCOMP                                 #  V(MPAC)=-UNITDV.VAC36D=ABSDV.
025546,001464: 34,3331           74235                           VXV      VXSC                                  #  (-UNITDV)CROSS(UNITLOS).
025547,001465: 34,3332           03707                                    SAVEPOS                               
025548,001466: 34,3333           31553                                    RVCS/RDS                              #  (UNITLOS B1)(UNITDV B1)(CONST B4)=CROSS.
025549,001467: 34,3334           77606                           PUSH                                           #  HOLD CROSS IN PUSHLIST0. SCALED B6.
025550,001468: 34,3335           60345                           DLOAD    NORM                                  #  OBTAIN ABS VALUE OF LOS.
025551,001469: 34,3336           02316                                    P21TIME                               #  P21TIME IS TEMP STORE FOR ABSLOS.
025552,001470: 34,3337           00047                                    X1                                    
025553,001471: 34,3340           77606                           PUSH                                           #  NORM ABSLOS(DENOM) AND HOLD IN PUSH1.
025554,001472: 
025555,001473: 34,3341           60345                           DLOAD    NORM                                  
025556,001474: 34,3342           00045                                    36D                                   #  NORM ABS VALUE OF DV(NUM).
025557,001475: 34,3343           00051                                    S1                                    
025558,001476: 
025559,001477: 34,3344           70460                           XSU,1    SR1                                   #  X1 = X1(N DENOM)-S1(N NUM).
025560,001478: 34,3345           00050                                    S1                                    #  SR1 TO AVOID OFLOW ON DDV.
025561,001479: 34,3346           74271                           DDV      VXSC                                  #  ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
025562,001480: 34,3347           77730                           SXA,1                                          #  QUOT(MPAC) X CROSS(PUSH0)
025563,001481: 34,3350           03705                                    Q6111                                 #  SAVE SCALE OF RESULT (R-15,1X).
025564,001482:                                                                                                  #                                          X1= NORM OF QUOT. QUOT SCALE B7-B29=B-22
025565,001483:                                                                                                  #                                          CROSS IS SCALED B6. NEED SL1 TO RECOVER
025566,001484:                                                                                                  #                                          SR1 SO THAT -22+6+1=-15. MPAC NOW HOLDS
025567,001485:                                                                                                  #                                          ORTHO LOS RATE (OMEGA TH, B-15,X1).
025568,001486: 34,3351           76521                           MXV      VSL1                                  #  OBTAIN RATE IN SM COORDS (OMEGTHSM) AND
025569,001487: 34,3352           01736                                    REFSMMAT                              #  ADJUST FOR REFSMMAT SCALE OF B1.
025570,001488: 34,3353           00025                           STORE    20D                                   #  OMEGTHSM = VAC20D
025571,001489:                                                                                                  #                                          DELTA THETA SM = OMEGTHSM * .1B-3.
025572,001490: 34,3354           77761                           VXSC                                           
025573,001491: 34,3355           31555                                    TENTH                                 
025574,001492: 34,3356           03212                           STORE    DTHETASM                              #  STORE SM INCREM ANGLES FOR SMCDURES.
025575,001493: 34,3357           77624                           CALL                                           

Page 583

025577,001495: 34,3360           47432                                    CDUTRIG                               #  OBTAIN SIN,COSCDUS FOR SMCDURES.
025578,001496: 34,3361           45001                           SETPD    CALL                                  #  SMCDURES USES PUSH
025579,001497: 34,3362           00001                                    0                                     
025580,001498: 34,3363           47675                                    SMCDURES                              #  OBTAIN DELCDU IN V(DCDU).
025581,001499: 34,3364           77750                           LXA,1                                          #  RELOAD X1
025582,001500: 34,3365           03705                                    Q6111                                 
025583,001501: 34,3366           53775                           VLOAD    VSL*                                  #  RECOVER SCALE.
025584,001502: 34,3367           03204                                    DCDU                                  #  (B-15,X1) + TENTH(B-3) + HALFREVS(B1)
025585,001503: 34,3370           20160                                    0          -17D,1                     #  EQUALS B-17D,1 TO OBTAIN HALFREVS B0.
025586,001504: 34,3371           00017                           STORE    14D                                   #  HOLD DELS IN V(VAC14D) FOR AUTOPILOT.
025587,001505: 
025588,001506: 34,3372           77624                           CALL                                           #  COMPUTES SINES AND COSINES FOR *SMNB*
025589,001507: 34,3373           47432                                    CDUTRIG                               
025590,001508: 34,3374           45175                           VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
025591,001509: 34,3375           00025                                    20D                                   #  VECTOR FOR TRG*SMNB INTO MPAC
025592,001510: 34,3376           47577                                    *SMNB*                                #  OBTAIN ANG. RATE REFERRED TO NB (BODY)
025593,001511: 34,3377           77721                           MXV                                            
025594,001512: 34,3400           31561                                    MBDYTCTL                              #  CONVERT RATE(OMEGA) TO CONTROL COORDS.
025595,001513: 34,3401           77761                           VXSC                                           #  MULT. BY 0.8 TO RESCALE REVS TO 450 DEG.
025596,001514: 34,3402           15270                                    POINT8                                #  RECOVER SCALE.
025597,001515: 34,3403           53750                           LXA,1    VSL*                                  #  RELOAD X1 TO RECOVER NORMALIZ.
025598,001516: 34,3404           03705                                    Q6111                                 #  (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO
025599,001517: 34,3405           20163                                    0          -14D,1                     #  OBTAIN REVS SCALED AT 450 DEGREES.
025600,001518: 
025601,001519: 34,3406           77776        CRS61.2A           EXIT                                           
025602,001520: 34,3407           00004                           INHINT                                         
025603,001521: 34,3410           34714                           CAF      ZERO                                  #  TRANSFER DESIRED GIMBAL ANGLES
025604,001522: 34,3411           55647                           TS       CDUXD      +1                         #  FROM T(SAVEDCDU) TO V(CDUXD).
025605,001523: 34,3412           55651                           TS       CDUYD      +1                         
025606,001524: 34,3413           55653                           TS       CDUZD      +1                         
025607,001525: 34,3414           31772                           CA       SAVEDCDU                              
025608,001526: 34,3415           55646                           TS       CDUXD                                 
025609,001527: 34,3416           31773                           CA       SAVEDCDU   +1                         
025610,001528: 34,3417           55650                           TS       CDUYD                                 
025611,001529: 34,3420           31774                           CA       SAVEDCDU   +2                         
025612,001530: 34,3421           55652                           TS       CDUZD                                 
025613,001531: 
025614,001532: 34,3422           00006                           EXTEND                                         #  TRANSFER OMEGA CONTROL (ANG.LOS RATE)
025615,001533: 34,3423           30155                           DCA      MPAC                                  #  FROM V(MPAC) TO V(WBODY ).
025616,001534: 34,3424           53526                           DXCH     WBODY                                 
025617,001535: 34,3425           00006                           EXTEND                                         
025618,001536: 34,3426           30160                           DCA      MPAC       +3                         
025619,001537: 34,3427           53530                           DXCH     WBODY1                                
025620,001538: 34,3430           00006                           EXTEND                                         
025621,001539: 34,3431           30162                           DCA      MPAC       +5                         
025622,001540: 34,3432           53532                           DXCH     WBODY2                                
025623,001541: 
025624,001542: 34,3433           00006                           EXTEND                                         #  TRANSFER CDU INCREMENTS
025625,001543: 34,3434           50120                           INDEX    FIXLOC                                #  FROM V(VAC14D) TO V(DELCDUX).
025626,001544: 34,3435           30017                           DCA      14D                                   

Page 584

025628,001546: 34,3436           53576                           DXCH     DELCDUX                               
025629,001547: 34,3437           00006                           EXTEND                                         
025630,001548: 34,3440           50120                           INDEX    FIXLOC                                
025631,001549: 34,3441           30021                           DCA      16D                                   
025632,001550: 34,3442           53600                           DXCH     DELCDUY                               
025633,001551: 34,3443           00006                           EXTEND                                         
025634,001552: 34,3444           50120                           INDEX    FIXLOC                                
025635,001553: 34,3445           30023                           DCA      18D                                   
025636,001554: 34,3446           53602                           DXCH     DELCDUZ                               
025637,001555: 34,3447           44712                           CS       ONE                                   #  NOW DAP VARIABLES LOADED. SET HOLDFLAG.
025638,001556: 34,3450           55332                           TS       HOLDFLAG                              #  TO -1.
025639,001557: 34,3451           00003                           RELINT                                         
025640,001558: 34,3452           34714                           CAF      ZERO                                  #  NORMAL RETURN (MPAC = 0)
025641,001559: 34,3453           03256                           TC       ASET                                  
025642,001560: 34,3454           06006        MANUEXIS           TC       INTPRET                               
025643,001561: 34,3455           77751        MANUEXIT           TLOAD                                          #  ENTER FROM STEP2. ACDU-DCDU EXCEEDS
025644,001562: 34,3456           03373                                    SAVEDCDU                              #  10 DEG. STORE DCDU(T) IN CPHI,CTHETA,
025645,001563: 34,3457           01156                           STORE    CPHI                                  #  CPSI FOR KALCMANU.
025646,001564: 34,3460           52135                           SLOAD    GOTO                                  #  SPECIAL RETURN (MPAC+0 = 1
025647,001565: 34,3461           31603                                    LOONE                                 #  OCTAL 00001
025648,001566: 34,3462           03704                                    Q611                                  
025649,001567: 
025650,001568: 34,3463           71220        R63                STQ      DLOAD                                 #  SUBR TO CALC DCDUS(T)
025651,001569: 34,3464           03705                                    Q6111                                 
025652,001570: 34,3465           02316                                    P21TIME                               
025653,001571: 34,3466           34041                           STCALL   TDEC1                                 
025654,001572: 34,3467           27045                                    CSMCONIC                              
025655,001573: 34,3470           77775        HOLDATT            VLOAD                                          #  HOLD EXTRAPOLATED CSM POSITION AND
025656,001574: 34,3471           00001                                    RATT                                  #  VELOCITY
025657,001575: 34,3472           27707                           STOVL    SAVEPOS                               
025658,001576: 34,3473           00007                                    VATT                                  
025659,001577: 34,3474           03715                           STORE    SAVEVEL                               
025660,001578: 34,3475           77745        CALCLEM            DLOAD                                          #  EXTRAPOLATE LEM STATE VECTOR TO SAME
025661,001579: 34,3476           02316                                    P21TIME                               #  TIME AS CSM USING LEMCONIC.
025662,001580: 34,3477           34041                           STCALL   TDEC1                                 
025663,001581: 34,3500           27057                                    LEMCONIC                              
025664,001582: 34,3501           77775                           VLOAD                                          
025665,001583: 34,3502           00007                                    VATT                                  
025666,001584: 34,3503           27204                           STOVL    DCDU                                  #  STORE VATT IN DCDU TEMPORARILY
025667,001585: 34,3504           00001                                    RATT                                  #  LOS = RL  RC
025668,001586: 34,3505           53451                           VSU      UNIT                                  
025669,001587: 34,3506           03707                                    SAVEPOS                               
025670,001588: 34,3507           03707                           STORE    SAVEPOS                               #  SAVE UNITLOS FOR CRS61.2 RATE CALC.
025671,001589: 34,3510           76521                           MXV      VSL1                                  
025672,001590: 34,3511           01736                                    REFSMMAT                              #  CONVERT TO STABLE MEMBER
025673,001591: 34,3512           17357                           STODL    POINTVSM                              
025674,001592: 34,3513           00045                                    36D                                   #  HOLD ABS VAL OF LOS (VAC 36D)
025675,001593: 34,3514           02316                           STORE    P21TIME                               #  IN D(P21TIME) FOR CRS61.2 RATE CALC.
025676,001594: 34,3515           77775                           VLOAD                                          
025677,001595: 34,3516           15330                                    UNITX                                 

Page 585

025679,001597: 34,3517           37351                           STCALL   SCAXIS                                #  TRACK AXIS UNIT VECTOR
025680,001598: 34,3520           56126                                    VECPOINT                              #  FOR +X-AXIS TRACKING ATTITUDE
025681,001599: 34,3521           01334                           STORE    CPHIX                                 #  STORE ANGLES FOR N96 DISPLAY
025682,001600: 34,3522           77775                           VLOAD                                          
025683,001601: 34,3523           31544                                    PRFUNIT                               
025684,001602: 34,3524           37351                           STCALL   SCAXIS                                
025685,001603: 34,3525           56126                                    VECPOINT                              
025686,001604: 34,3526           03723                           STORE    PRAXIS                                #  STORE ANGLES FOR N95 DISPLAY
025687,001605: 34,3527           77614                           BOFF                                           
025688,001606: 34,3530           02745                                    PRFTRKAT                              
025689,001607: 34,3531           71535                                    CRSTOR1                               
025690,001608: 34,3532           01156        CRSTOR             STORE    THETAD                                #  STORE ANGLES FOR N18 DISPLAY
025691,001609: 34,3533           77650                           GOTO                                           
025692,001610: 34,3534           03705                                    Q6111                                 
025693,001611: 34,3535           77775        CRSTOR1            VLOAD                                          
025694,001612: 34,3536           15330                                    UNITX                                 
025695,001613: 34,3537           03351                           STORE    SCAXIS                                
025696,001614: 34,3540           52151                           TLOAD    GOTO                                  
025697,001615: 34,3541           01334                                    CPHIX                                 
025698,001616: 34,3542           71532                                    CRSTOR                                
025699,001617: 34,3543           15066 17626  PRFUNIT            2DEC     .40957602                             #  55 DEG TRACK AXIS UNIT VECTOR
025700,001618: 34,3545           00000 00000                     2DEC     0.0                                   #   FOR USE WITH VECPOINT
025701,001619: 34,3547           11132 27477                     2DEC     .28678822                             
025702,001620: 34,3551           01616        DEGREE10           DEC      .05556                                #  10 DEG IN REVS                 STEP2
025703,001621: 34,3552           37651 16721  RVCS/RDS           2DEC     15.915494  B-4                        #  100/2PI REV-CSEC/RAD-SEC.
025704,001622: 34,3554           31463 06315  TENTH              2DEC     .1         B+3                        #  .1 B-3 (TO SCALE ANG.RATE TO .1 INREMS)
025705,001623: 34,3556           20000 00000  MAT1B1             2DEC     1.0        B-1                        
025706,001624: 34,3560           20000 00000  MBDYTCTL           2DEC     .5                                    #                  7.25 DEG NEGATIVE
025707,001625: 34,3562           00000 00000                     2DEC     0          B-28                       #                  X-AXIS ROTATION MATRIX
025708,001626: 34,3564           00000 00000                     2DEC     0          B-28                       #                  CONVERTS BODY TO CTL
025709,001627: 34,3566           00000 00000                     2DEC     0          B-28                       #                  AXES. SAME AS QUADROT
025710,001628: 34,3570           17676 20113                     2DEC     .99200495  B-1                        #  COS7.25 B1     BUT SCALED B1
025711,001629: 34,3572           75766 45544                     2DEC     -.12619897 B-1                        #  -SIN7.25 B1
025712,001630: 34,3574           00000 00000                     2DEC     0          B-28                       
025713,001631: 34,3576           02011 32233                     2DEC     .12619897  B-1                        #  SIN7.25 B1
025714,001632: 34,3600           17676 20113                     2DEC     .99200495  B-1                        #  COS7.25 B1

Page 586

025716,001634: 34,3602           00001        LOONE              OCT      00001                                 #  TO SET MPAC = 00001 FOR SPECIAL EXIT.
025717,001635: 34,3603     7707               FURST3             EQUALS   13,14,15                              #  CONSTANT FOR AUTOCK (OCT 70000).
025718,001636: 

Page 587

025720,001638:                                                                                                  #  ..... S22.1 ORBITAL NAVIGATION ROUTINE
025721,001639:                                                                                                  #  MOD 1
025722,001640: 
025723,001641:                                                                                                  #  FUNCTIONAL DESCRIPTION
025724,001642:                                                                                                  #   1. UPDATE CSM STATE VECTOR
025725,001643:                                                                                                  #   2. UPDATE LANDMARK POSITION
025726,001644:                                                                                                  #   3. CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS
025727,001645: 
025728,001646:                                                                                                  #  SUBROUTINES CALLED
025729,001647:                                                                                                  #   INTSTALL,INTEGRV,GETUM,SETRE,R-TO-TP,RP-TO-R,BVECTORS,INCORP1,INCORP2
025730,001648:                                                                                                  #   LALOTORV,S22F2410,LAT-LONG,ROWDOT
025731,001649: 
025732,001650:                                                                                                  #  ERASABLE INITIALIZATION
025733,001651:                                                                                                  #   W=9X9 MATRIX
025734,001652:                                                                                                  #   ORBWFLAG=0 FOR INVALID W MATRIX,=1 FOR VALID W MATRIX
025735,001653:                                                                                                  #   ASTRONAUT ENTRY OF KNOWN,L,OFF
025736,001654:                                                                                                  #   8NN= NUMBER OF MARKS  DECIMAL INTEGER B-14
025737,001655:                                                                                                  #   REFSMMAT= TRANSFORMATION MATRIX
025738,001656:                                                                                                  #   MARKSTAT= ADDRESS OF START OF MARK DATA (MARK DATA OF EACH MARK IS
025739,001657:                                                                                                  #             STORED AS FOLLOWS,  TIME,AIG,SA,AMG,PA,AOG) TIME IS IN DOUBLE
025740,001658:                                                                                                  #             PRECISION,ALL OTHERS ARE IN SINGLE PRECISION
025741,001659:                                                                                                  #   CSM STATE VECTOR
025742,001660: 
025743,001661:                                                                                                  #  OUTPUT
025744,001662:                                                                                                  #   UPDATED CSM STATE VECTOR
025745,001663:                                                                                                  #   UPDATED LANDMARK POSITION
025746,001664:                                                                                                  #   NEW 6 DIMENSIONAL W MATRIX
025747,001665: 
025748,001666:                                                                                                  #  DEBRIS
025749,001667:                                                                                                  #   PUSH LIST,CSMPOS,ALPHAV,ERADM,UM,RCLP,USTAR,VARIANCE,X789,BVECTOR,8KK,
025750,001668:                                                                                                  #   S22LOC, SVMRKDAT TABLE,22SUBSCL,LANDMARK,CXOFF,S22C,LAT,LONG,ALT,
025751,001669:                                                                                                  #   TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
025752,001670: 
025753,001671: 13,2176                                           BANK     13                                    
025754,001672: 
025755,001673: 30,2000                                           SETLOC   P20S6                                 
025756,001674: 30,2000                                           BANK                                           
025757,001675: 
025758,001676: 30,2255  E5,1751                                  EBANK=   LANDMARK                              
025759,001677: 30,2255                                           COUNT    35/LUORB                              
025760,001678: 
025761,001679: 30,2255           66220        S22.1              STQ      SSP                                   
025762,001680: 30,2256           03703                                    S22RTNEX                              
025763,001681: 30,2257           00051                                    S1                                    
025764,001682: 30,2260           00006                           DEC      6          B-14                       
025765,001683: 30,2261           66331                           SSP      SSP                                   #  SET I=1  ITEM 8KK IS I
025766,001684: 30,2262           02747                                    8KK                                   
025767,001685: 30,2263           00001                           DEC      1          B-14                       
025768,001686: 30,2264           02751                                    S22LOC                                
025769,001687: 30,2265           03537                           ECADR    SVMRKDAT                              #  SET MARK DATA ADDRESS INTO S22LOC

Page 588

025771,001689: 30,2266           76144                           LXC,2    AXT,1                                 
025772,001690: 30,2267           01330                                    MARKSTAT                              
025773,001691: 30,2270           00044                           DEC      36         B-14                       
025774,001692: 30,2271           77773        S22.111            VLOAD*                                         #  MOVE MARK DATA (5 SETS) FROM ADDR. IN
025775,001693: 30,2272           77776                                    0,2                                   #  MARKSTAT TO SVMRKDAT TABLE TO AVOID LOSS
025776,001694: 30,2273           07604                           STORE    SVMRKDAT   +36D,1                     #  IF RESTART OCCURS
025777,001695: 30,2274           60114                           INCR,2   TIX,1                                 
025778,001696: 30,2275           77771                           DEC      -6         B-14                       
025779,001697: 30,2276           60271                                    S22.111                               
025780,001698: 30,2277           77414                           SET      EXIT                                  
025781,001699: 30,2300           01464                                    P22MKFLG                              #  DOWNLINKED SVMRKDAT HOLDS PRESENT MARKS
025782,001700: 30,2301           04555                           TC       BANKCALL                              #  RELEASE VAC AREA WHERE MARK DATA WAS
025783,001701: 30,2302           16063                           CADR     MKRELEAS                              
025784,001702: 30,2303           05261                           TC       2PHSCHNG                              
025785,001703: 30,2304           00004                           OCT      00004                                 
025786,001704: 30,2305           05022                           OCT      05022                                 
025787,001705: 30,2306           13000                           OCT      13000                                 
025788,001706: 30,2307           06006                           TC       INTPRET                               
025789,001707: 30,2310           43170                           AXT,1    BOFF                                  
025790,001708: 30,2311           00000                                    0D                                    
025791,001709: 30,2312           04343                                    CMOONFLG                              #  =0 EARTH,=1 MOON
025792,001710: 30,2313           60316                                    S22SHIFT                              
025793,001711: 30,2314           77710                           INCR,1                                         
025794,001712: 30,2315           77775                           DEC      -2         B-14                       
025795,001713: 30,2316           40330        S22SHIFT           SXA,1    SETPD                                 
025796,001714: 30,2317           03673                                    S22EORM                               #  SET =0 EARTH,=-2 MOON FOR SHIFTING
025797,001715: 30,2320           00001                                    0D                                    
025798,001716: 30,2321           77624        FIG2EXIT           CALL                                           
025799,001717: 30,2322           27371                                    INTSTALL                              
025800,001718: 30,2323           77624                           CALL                                           
025801,001719: 30,2324           61326                                    S22FLGS                               
025802,001720:                                                                                                  #                  FLOWCHART D=0   THEN DIM0FLAG=0  D6OR9FLG NOT TESTED
025803,001721:                                                                                                  #                  FLOWCHART D=6   THEN DIM0FLAG=1  D6OR9FLG=0
025804,001722:                                                                                                  #                  FLOWCHART D=9   THEN DIM0FLAG=1  D6OR9FLG=1
025805,001723: 
025806,001724: 30,2325           43014                           BOFF     CLRGO                                 
025807,001725: 30,2326           01751                                    ORBWFLAG                              
025808,001726: 30,2327           60332                                    SETWW5D                               #  BRANCH TO SET W0-W5,ORBWFLAG,D
025809,001727: 30,2330           01635                                    D6OR9FLG                              #  FLOWCHART D=6 PATH
025810,001728: 30,2331           60357                                    SETVANDI                              
025811,001729: 30,2332           77614        SETWW5D            CLEAR                                          
025812,001730: 30,2333           01676                                    DIM0FLAG                              #  FLOWCHART D=0 PATH
025813,001731: 30,2334           66370                           AXT,1    SSP                                   
025814,001732: 30,2335           00154                           DEC      108        B-14                       
025815,001733: 30,2336           00051                                    S1                                    
025816,001734: 30,2337           00006                           DEC      6          B-14                       
025817,001735: 30,2340           77214                           CLEAR    VLOAD                                 
025818,001736: 30,2341           02676                                    RENDWFLG                              #  GSOP CHANGE 8/18/67
025819,001737: 30,2342           15332                                    ZEROVECS                              
025820,001738: 30,2343           06555        CLEARWW5           STORE    W          +108D,1                    

Page 589

025822,001740: 30,2344           67300                           TIX,1    SLOAD                                 
025823,001741: 30,2345           60343                                    CLEARWW5                              
025824,001742: 30,2346           02005                                    WORBPOS                               
025825,001743: 30,2347           02401                           STORE    W                                     #  SET DIAGONALS OF W0
025826,001744: 30,2350           02411                           STORE    W          +8D                        
025827,001745: 30,2351           02421                           STORE    W          +16D                       
025828,001746: 30,2352           77735                           SLOAD                                          
025829,001747: 30,2353           02006                                    WORBVEL                               
025830,001748: 30,2354           02511                           STORE    W          +72D                       #  SET DIAGONALS OF W4
025831,001749: 30,2355           02521                           STORE    W          +80D                       
025832,001750: 30,2356           02531                           STORE    W          +88D                       
025833,001751: 30,2357           77614        SETVANDI           CLEAR                                          
025834,001752: 30,2360           02666                                    DMENFLG                               #  0=6X6W, 1=9X9W
025835,001753: 30,2361           77624        S22NXTIN           CALL                                           
025836,001754: 30,2362           61322                                    GETTF                                 
025837,001755: 30,2363           34041                           STCALL   TDEC1                                 
025838,001756: 30,2364           27113                                    INTEGRV                               
025839,001757: 30,2365           77624                           CALL                                           
025840,001758: 30,2366           61273                                    S22CALRC                              #  CALC. RC  B-29 OR B-27 (CSMPOS)
025841,001759: 30,2367           66150                           LXA,1    SXA,1                                 
025842,001760: 30,2370           02750                                    S22LOC                                #  SETUP ADDR. OF MARK DATA FOR GETUM SUBR.
025843,001761: 30,2371           01242                                    MARKDATA                              
025844,001762: 30,2372           77624                           CALL                                           #  COMPUTE UM
025845,001763: 30,2373           47110        S2GETUM                     GETUM                                 
025846,001764: 30,2374           01235                           STORE    UM                                    
025847,001765: 30,2375           41535        DMPINTEG           SLOAD    PUSH                                  #  TEST OFF=I
025848,001766: 30,2376           02747                                    8KK                                   
025849,001767: 30,2377           50535                           SLOAD    SR3                                   #  CXOFF SCALED B-5, MUST MOVE TO B-14
025850,001768: 30,2400           02746                                    CXOFF                                 #  BEFORE SUBT.
025851,001769: 30,2401           50442                           SR3      SR3                                   
025852,001770: 30,2402           77625                           DSU                                            
025853,001771: 30,2403           43030                           BHIZ     BON                                   
025854,001772: 30,2404           60720                                    S22OFF=I                              #  BRANCH HERE IF OFF=I
025855,001773: 30,2405           02706                                    DMENFLG                               #  0=6X6W, 1=9X9W
025856,001774: 30,2406           60726                                    S22D=9                                
025857,001775: 30,2407           77624                           CALL                                           
025858,001776: 30,2410           56712                                    GRP2PC                                
025859,001777: 30,2411           77614                           SET                                            
025860,001778: 30,2412           01471                                    ORBWFLAG                              
025861,001779: 30,2413           43014                           SET      SET                                   
025862,001780: 30,2414           02466                                    DMENFLG                               #  =0 ON FIRST PASS THRU HERE FOR D=0,OR 6
025863,001781: 30,2415           01062                                    22DSPFLG                              #  =1 TO DISPLAY DR,DV ON FIRST PASS
025864,001782: 30,2416           43014                           SET      BON                                   
025865,001783: 30,2417           00462                                    ERADFLAG                              #  =1 TO COMPUTE FISCHER RADIUS
025866,001784: 30,2420           03307                                    KNOWNFLG                              
025867,001785: 30,2421           61070                                    S22BOX22                              
025868,001786: 30,2422           53575                           VLOAD    UNIT                                  #  UNIT ALSO PUTS ABVAL(RC) IN 36D
025869,001787: 30,2423           01207                                    CSMPOS                                
025870,001788: 30,2424           02152                           STORE    ALPHAV                                #  ALPHAV +4=SINL FOR SETRE
025871,001789: 30,2425           43014                           CLEAR    BOFF                                  

Page 590

025873,001791: 30,2426           01663                                    LUNAFLAG                              
025874,001792: 30,2427           04343                                    CMOONFLG                              
025875,001793: 30,2430           60433                                    S22C=I                                
025876,001794: 30,2431           77614                           SET                                            
025877,001795: 30,2432           01463                                    LUNAFLAG                              
025878,001796: 30,2433           77624        S22C=I             CALL                                           #  ERADM= R0 METERS B-29 BOTH EARTH/MOON
025879,001797: 30,2434           26533                                    SETRE                                 
025880,001798: 30,2435           77624                           CALL                                           #  COMPUTE RL FROM EQUATION 2.4.10
025881,001799: 30,2436           61240                                    S22F2410                              #  STORED IN X789,MPAC  B-27,B-29
025882,001800: 30,2437           70414                           BOFF     VSR2                                  #  SCALE RL B-29 FOR BOTH EARTH/MOON
025883,001801: 30,2440           04343                                    CMOONFLG                              
025884,001802: 30,2441           60442                                    +1                                    
025885,001803: 30,2442           02635                           STORE    S22RL                                 
025886,001804: 30,2443           72441                           DOT      SL1                                   
025887,001805: 30,2444           01235                                    UM                                    
025888,001806: 30,2445           24037                           STOVL    S22D                                  #  D= UM.RL B-29
025889,001807: 30,2446           15332                                    ZEROVECS                              
025890,001808: 30,2447           41401                           SETPD    PUSH                                  
025891,001809: 30,2450           00001                                    0D                                    
025892,001810: 30,2451           65206                           PUSH     PDDL                                  #  SET 0-18D = I BACKWARDS
025893,001811: 30,2452           15330                                    HIDPHALF                              #  PD 18
025894,001812: 30,2453           77702                           SR2                                            #  B-3
025895,001813: 30,2454           00005                           STORE    4D                                    
025896,001814: 30,2455           00011                           STORE    8D                                    
025897,001815: 30,2456           24015                           STOVL    12D                                   
025898,001816: 30,2457           01235                                    UM                                    #  B-1
025899,001817: 30,2460           24023                           STOVL    S223X1                                
025900,001818: 30,2461           02635                                    S22RL                                 #  B-29
025901,001819: 30,2462           77624                           CALL                                           #  (UM)(RL T) B-30 STORED IN S22UMRL THRU
025902,001820: 30,2463           61303                                    S2231X13                              #  S22UMRL +17D
025903,001821: 30,2464           66370                           AXT,1    SSP                                   
025904,001822: 30,2465           00022                           DEC      18         B-14                       
025905,001823: 30,2466           00051                                    S1                                    
025906,001824: 30,2467           00006                           DEC      6          B-14                       
025907,001825: 30,2470           70573        S22NXTU            VLOAD*   VSR2                                  #  (UM)(RL T) B-32
025908,001826: 30,2471           03524                                    S22UMRL    +18D,1                     
025909,001827: 30,2472           77741                           V/SC                                           
025910,001828: 30,2473           00037                                    S22D                                  #  D B-29
025911,001829: 30,2474           45445                           BVSU     STADR                                 #  SUBTRACT FROM I B-3
025912,001830: 30,2475           70253                           STORE    S22UMRL    +18D,1                     #  U MATRIX B-3
025913,001831: 30,2476           76100                           TIX,1    AXT,1                                 #  PD 0 AFTER TIX
025914,001832: 30,2477           60470                                    S22NXTU                               
025915,001833: 30,2500           00044                           DEC      36         B-14                       #  S1 STILL 6 FROM ABOVE
025916,001834: 30,2501           64373        S22NXTWI           VLOAD*   MXV                                   
025917,001835: 30,2502           02445                                    W          +36D,1                     #  B-19
025918,001836: 30,2503           03502                                    S22UMRL                               #  B-3
025919,001837: 30,2504           77732                           SL2R                                           
025920,001838: 30,2505           06621                           STORE    W          +144D,1                    #  W(I+18)= UW(I) B-19
025921,001839: 30,2506           71300                           TIX,1    DLOAD                                 
025922,001840: 30,2507           60501                                    S22NXTWI                              

Page 591

025924,001842: 30,2510           00041                                    S22RHO                                #  B-28,B-30
025925,001843: 30,2511           60414                           BOFF     SR2                                   #  MAKE RHO B-30
025926,001844: 30,2512           04343                                    CMOONFLG                              
025927,001845: 30,2513           60514                                    +1                                    
025928,001846: 30,2514           57101                           NORM     XAD,2                                 
025929,001847: 30,2515           00050                                    X2                                    
025930,001848: 30,2516           00047                                    X2                                    
025931,001849: 30,2517           41316                           DSQ      DMP                                   
025932,001850: 30,2520           21650                                    SCTVAR                                #  B+18
025933,001851: 30,2521           77742                           SR1                                            #  ACCOUNTS FOR 1/2 IN NEXT FORMULA
025934,001852: 30,2522           00041                           STORE    S22RHO                                #  1/2(RHO SQ)(VARSCT)
025935,001853: 30,2523           77770                           AXT,1                                          
025936,001854: 30,2524           00022                           DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
025937,001855: 30,2525           64373        S22NXXA            VLOAD*   MXV                                   
025938,001856: 30,2526           03524                                    S22UMRL    +18D,1                     #  B-3
025939,001857: 30,2527           03502                                    S22UMRL                               #  B-3
025940,001858: 30,2530           53761                           VXSC     VSR*                                  
025941,001859: 30,2531           00041                                    S22RHO                                
025942,001860: 30,2532           57212                                    0          -12D,2                     #  WITH VARRP SCALED B-28
025943,001861: 30,2533           05301                           STORE    S22UUT     +18D,1                     #  1/2(RHO SQ)(VARSCT)(U)(U T)
025944,001862: 30,2534           77300                           TIX,1    VLOAD                                 
025945,001863: 30,2535           60525                                    S22NXXA                               
025946,001864: 30,2536           01235                                    UM                                    
025947,001865: 30,2537           34023                           STCALL   S223X1                                #  UM ALSO IN MPAC FOR S2231X13 SUBR.
025948,001866: 30,2540           61303                                    S2231X13                              #  (UM)(UM T) B-2 IN S22UMRL,P17D
025949,001867: 30,2541           50545                           DLOAD    SR3                                   
025950,001868: 30,2542           02241                                    ERADM                                 #  R0 B-29
025951,001869: 30,2543           63471                           DDV      DSQ                                   
025952,001870: 30,2544           00037                                    S22D                                  #  B-29
025953,001871: 30,2545           77605                           DMP                                            
025954,001872: 30,2546           02010                                    RPVAR                                 #  ***** METERS SQ
025955,001873: 30,2547           00041                           STORE    S22RHO                                #  TEMP (VARRP)(R0/D)
025956,001874: 30,2550           77770                           AXT,1                                          
025957,001875: 30,2551           00022                           DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
025958,001876: 30,2552           74373        S22NXXB            VLOAD*   VXSC                                  
025959,001877: 30,2553           03524                                    S22UMRL    +18D,1                     #  (UM)(UM T) B-2
025960,001878: 30,2554           00041                                    S22RHO                                
025961,001879: 30,2555           77653                           VAD*                                           
025962,001880: 30,2556           01301                                    S22UUT     +18D,1                     
025963,001881: 30,2557           05301                           STORE    S22UUT     +18D,1                     #  SMALL E MATRIX
025964,001882: 30,2560           77775                           VLOAD                                          
025965,001883: 30,2561           15332                                    ZEROVECS                              
025966,001884: 30,2562           06643                           STORE    W          +162D,1                    #  CLEAR W8
025967,001885: 30,2563           40100                           TIX,1    BOV                                   
025968,001886: 30,2564           60552                                    S22NXXB                               
025969,001887: 30,2565           60566                                    +1                                    
025970,001888: 30,2566           50145                           DLOAD    BMN                                   
025971,001889: 30,2567           01277                                    S22UUT     +16D                       #  E5
025972,001890: 30,2570           60607                                    S22W76X                               
025973,001891: 30,2571           53166                           SQRT     BZE                                   

Page 592

025975,001893: 30,2572           60607                                    S22W76X                               
025976,001894: 30,2573           16625                           STODL    W          +148D                      #  W74= SQ ROOT E5
025977,001895: 30,2574           01275                                    S22UUT     +14D                       #  E4
025978,001896: 30,2575           40071                           DDV      BOV                                   
025979,001897: 30,2576           02625                                    W          +148D                      
025980,001898: 30,2577           60601                                    S22W72X                               
025981,001899: 30,2600           02623                           STORE    W          +146D                      #  W73= E4/W74
025982,001900: 30,2601           56345        S22W72X            DLOAD    DDV                                   
025983,001901: 30,2602           01273                                    S22UUT     +12D                       #  E3
025984,001902: 30,2603           02625                                    W          +148D                      
025985,001903: 30,2604           77600                           BOV                                            
025986,001904: 30,2605           60607                                    S22W76X                               
025987,001905: 30,2606           02621                           STORE    W          +144D                      #  W72= E4/W74
025988,001906: 30,2607           63545        S22W76X            DLOAD    DSQ                                   
025989,001907: 30,2610           02623                                    W          +146D                      #  W73
025990,001908: 30,2611           50021                           BDSU     BMN                                   
025991,001909: 30,2612           01267                                    S22UUT     +8D                        #  E2
025992,001910: 30,2613           60627                                    S22W78X                               
025993,001911: 30,2614           53166                           SQRT     BZE                                   
025994,001912: 30,2615           60627                                    S22W78X                               
025995,001913: 30,2616           16631                           STODL    W          +152D                      #  W76= SQ ROOT (E2-W73 SQ)
025996,001914: 30,2617           02621                                    W          +144D                      #  W72
025997,001915: 30,2620           44205                           DMP      BDSU                                  
025998,001916: 30,2621           02623                                    W          +146D                      #  W73
025999,001917: 30,2622           01265                                    S22UUT     +6D                        #  E1
026000,001918: 30,2623           40071                           DDV      BOV                                   
026001,001919: 30,2624           02631                                    W          +152D                      #  W76
026002,001920: 30,2625           60627                                    S22W78X                               
026003,001921: 30,2626           02627                           STORE    W          +150D                      #  W75= (E1-W72W73)/W76
026004,001922: 30,2627           63545        S22W78X            DLOAD    DSQ                                   
026005,001923: 30,2630           02627                                    W          +150D                      
026006,001924: 30,2631           63525                           PDDL     DSQ                                   
026007,001925: 30,2632           02621                                    W          +144D                      #  W72
026008,001926: 30,2633           77615                           DAD                                            
026009,001927: 30,2634           50021                           BDSU     BMN                                   
026010,001928: 30,2635           01257                                    S22UUT                                #  E0
026011,001929: 30,2636           60641                                    S22SCLW                               
026012,001930: 30,2637           77766                           SQRT                                           
026013,001931: 30,2640           02635                           STORE    W          +156D                      #  W78= SQ RT(E0-W72 SQ-W75 SQ)
026014,001932: 30,2641           74575        S22SCLW            VLOAD    VSR1                                  #  SCALE W6 METERS B-19
026015,001933: 30,2642           02621                                    W          +144D                      
026016,001934: 30,2643           26621                           STOVL    W          +144D                      
026017,001935: 30,2644           02627                                    W          +150D                      
026018,001936: 30,2645           77762                           VSR1                                           
026019,001937: 30,2646           26627                           STOVL    W          +150D                      
026020,001938: 30,2647           02635                                    W          +156D                      
026021,001939: 30,2650           77762                           VSR1                                           
026022,001940: 30,2651           02635                           STORE    W          +156D                      
026023,001941: 30,2652           77624        S22SAVET           CALL                                           
026024,001942: 30,2653           61322                                    GETTF                                 

Page 593

026026,001944: 30,2654           03672                           STORE    S22TPRIM                              #  SAVE PRESENT TIME FOR PIOS
026027,001945: 30,2655           77776        S22I=N             EXIT                                           #  TEST I=N
026028,001946: 30,2656           05301                           TC       PHASCHNG                              
026029,001947: 30,2657           04022                           OCT      04022                                 
026030,001948: 30,2660           41746                           CS       8KK                                   
026031,001949: 30,2661           61747                           AD       8NN                                   
026032,001950: 30,2662           00006                           EXTEND                                         
026033,001951: 30,2663           63126                           BZMF     S22F244X                              #  EXIT TO FIGURE 2.4-4
026034,001952: 30,2664           31746                           CA       8KK                                   #  I=I+1
026035,001953: 30,2665           64712                           AD       ONE                                   
026036,001954: 30,2666           55300                           TS       TEMPOR1                               
026037,001955: 30,2667           31750                           CA       S22LOC                                #  ADD 7 TO LOC TO GET ADDR. OF NEXT MARK
026038,001956: 30,2670           64716                           AD       SEVEN                                 
026039,001957: 30,2671           55301                           TS       TEMPOR1    +1                         
026040,001958: 30,2672           05301                           TC       PHASCHNG                              
026041,001959: 30,2673           04022                           OCT      04022                                 
026042,001960: 30,2674           31300                           CA       TEMPOR1                               
026043,001961: 30,2675           55746                           TS       8KK                                   
026044,001962: 30,2676           31301                           CA       TEMPOR1    +1                         
026045,001963: 30,2677           55750                           TS       S22LOC                                
026046,001964: 30,2700           06006                           TC       INTPRET                               
026047,001965: 30,2701           77624                           CALL                                           #  FOR ALL INTEGRATIONS OTHER THAN FIRST
026048,001966: 30,2702           27371        S2INTS1                     INTSTALL                              
026049,001967: 30,2703           77624                           CALL                                           
026050,001968: 30,2704           61326                                    S22FLGS                               
026051,001969: 30,2705           43014                           BON      CLEAR                                 
026052,001970: 30,2706           02706                                    DMENFLG                               
026053,001971: 30,2707           60361                                    S22NXTIN                              #  RETURN ALWAYS EXCEPT OFFSET POINT MARK 1
026054,001972: 30,2710           01676                                    DIM0FLAG                              
026055,001973: 30,2711           43014                           BOFF     SET                                   
026056,001974: 30,2712           01751                                    ORBWFLAG                              
026057,001975: 30,2713           60361                                    S22NXTIN                              #  OFFSET POINT MARK 1,NO W INTEGRATION
026058,001976: 30,2714           01476                                    DIM0FLAG                              
026059,001977: 30,2715           77614                           CLRGO                                          
026060,001978: 30,2716           01635                                    D6OR9FLG                              
026061,001979: 30,2717           60361                                    S22NXTIN                              #  OFFSET POINT MARK 1,INTEGRATE W 6X6
026062,001980: 30,2720           77624        S22OFF=I           CALL                                           
026063,001981: 30,2721           61322                                    GETTF                                 
026064,001982: 30,2722           27670                           STOVL    S22TOFF                               #  TIME SUB OFF
026065,001983: 30,2723           01235                                    UM                                    
026066,001984: 30,2724           35215                           STCALL   S22UOFF                               #  U SUB OFF
026067,001985: 30,2725           60655                                    S22I=N                                #  TEST I=N
026068,001986: 30,2726           77775        S22D=9             VLOAD                                          #  D=9 PATH
026069,001987: 30,2727           01701                                    X789                                  
026070,001988: 30,2730           14001                           STODL    0D                                    #  CALL PIOS TWICE TO TRANSFORM RL TO TIME
026071,001989: 30,2731           03672                                    S22TPRIM                              #  T(SUB F) FROM TIME T PRIME
026072,001990: 30,2732           00007                           STORE    6D                                    
026073,001991: 30,2733           45135                           SLOAD    CALL                                  
026074,001992: 30,2734           03674                                    S22EORM                               #  0=EARTH,NON-ZERO=MOON
026075,001993: 30,2735           55366        S2RTRP                      R-TO-RP                               

Page 594

026077,001995: 30,2736           45006                           PUSH     CALL                                  #  R-TO-RP LEAVES PUSHLOC AT 0
026078,001996: 30,2737           61322                                    GETTF                                 
026079,001997: 30,2740           00007                           STORE    6D                                    
026080,001998: 30,2741           45135                           SLOAD    CALL                                  
026081,001999: 30,2742           03674                                    S22EORM                               
026082,002000: 30,2743           55341        S2RPTR                      RP-TO-R                               
026083,002001: 30,2744           01701        S22BOX32           STORE    X789                                  
026084,002002: 30,2745           40014                           SET      BOV                                   
026085,002003: 30,2746           02464                                    INCORFLG                              #  FLAG=1
026086,002004: 30,2747           60750                                    +1                                    #  CLEAR OVERFLOW
026087,002005: 30,2750           77651                           VSU                                            
026088,002006: 30,2751           01207                                    CSMPOS                                
026089,002007: 30,2752           03531                           STORE    RCLP                                  #  RCL=RL-RC
026090,002008: 30,2753           47256                           UNIT     VXV                                   #  USTAR=UNIT(UNIT(RCL)XUM)
026091,002009: 30,2754           01235                                    UM                                    
026092,002010: 30,2755           40056                           UNIT     BOV                                   
026093,002011: 30,2756           60652                                    S22SAVET                              #  COMPUTATION OVERFLOW,SAVE TF
026094,002012: 30,2757           01245                           STORE    USTAR                                 
026095,002013: 30,2760           43014        S22BOX12           SET      SET                                   
026096,002014: 30,2761           02466                                    DMENFLG                               #  =1 FOR 9X9 W
026097,002015: 30,2762           00467                                    VEHUPFLG                              #  =1 FOR CSM
026098,002016: 30,2763           43345                           DLOAD    DAD                                   
026099,002017: 30,2764           21650                                    SCTVAR                                #  B+18
026100,002018: 30,2765           21652                                    IMUVARR                               #   B+18
026101,002019: 30,2766           27526                           STOVL    VARIANCE                              
026102,002020: 30,2767           03531                                    RCLP                                  #   B-29 OR B-27
026103,002021: 30,2770           60246                           ABVAL    NORM                                  
026104,002022: 30,2771           00047                                    X1                                    
026105,002023: 30,2772           41316                           DSQ      DMP                                   
026106,002024: 30,2773           03526                                    VARIANCE                              
026107,002025: 30,2774           56070                           XAD,1    XAD,1                                 
026108,002026: 30,2775           00046                                    X1                                    #  DOUBLE NORM SHIFT SINCE RCLP WAS SQUARED
026109,002027: 30,2776           03673                                    S22EORM                               #  DOUBLE EARTH OR MOON SHIFT,SAME REASON
026110,002028: 30,2777           53670                           XAD,1    SR*                                   
026111,002029: 30,3000           03673                                    S22EORM                               
026112,002030: 30,3001           20601                                    0,1                                   #  SCALE VARIANCE B-40 FOR BOTH EARTH,MOON
026113,002031: 30,3002           77751                           TLOAD                                          #  CHANGE MODE TO TRIPLE
026114,002032: 30,3003           00155                                    MPAC                                  
026115,002033: 30,3004           37526                           STCALL   VARIANCE                              #  CALC B0,B1,DELTAQ, NEW USTAR
026116,002034: 30,3005           47047        S2BVTRS                     BVECTORS                              
026117,002035: 30,3006           57575                           VLOAD    VCOMP                                 
026118,002036: 30,3007           03502                                    BVECTOR                               
026119,002037: 30,3010           37516                           STCALL   BVECTOR    +12D                       #  B2=-B0
026120,002038: 30,3011           75250        S2INCP1                     INCORP1                               
026121,002039: 30,3012           77624                           CALL                                           
026122,002040: 30,3013           56712                                    GRP2PC                                
026123,002041: 30,3014           43014                           BOFF     CLEAR                                 
026124,002042: 30,3015           01342                                    22DSPFLG                              #  =1 DISPLAY DELTA R,V  =0 DO NOT
026125,002043: 30,3016           61047                                    S22BOX42                              
026126,002044: 30,3017           01262                                    22DSPFLG                              

Page 595

026128,002046: 30,3020           77624                           CALL                                           
026129,002047: 30,3021           56712                                    GRP2PC                                
026130,002048: 30,3022           51575                           VLOAD    ABVAL                                 
026131,002049: 30,3023           01257                                    DELTAX                                #  DELTA R
026132,002050: 30,3024           53750                           LXA,1    SR*                                   
026133,002051: 30,3025           03673                                    S22EORM                               #  SCALE DELTA R ALWAYS METERS B-29
026134,002052: 30,3026           20601                                    0,1                                   
026135,002053: 30,3027           27502                           STOVL    N49DISP                               
026136,002054: 30,3030           01265                                    DELTAX     +6                         #  DELTA V
026137,002055: 30,3031           53646                           ABVAL    SR*                                   #  DELTA V=METERS/CSEC B-7 ALWAYS
026138,002056: 30,3032           20601                                    0,1                                   
026139,002057: 30,3033           03504                           STORE    N49DISP    +2                         
026140,002058: 30,3034           77776                           EXIT                                           
026141,002059: 30,3035           33655                           CAF      V06N49EE                              
026142,002060: 30,3036           04555                           TC       BANKCALL                              
026143,002061: 30,3037           20763                           CADR     GOFLASHR                              
026144,002062: 30,3040           04106                           TC       GOTOPOOH                              #  V34E TERMINATE
026145,002063: 30,3041           03046                           TC       +5                                    #  INCORPORATE CHANGES
026146,002064: 30,3042           03230                           TC       S22EXEX                               #  V32E RECYCLE
026147,002065: 30,3043           34710                           CAF      BIT3                                  
026148,002066: 30,3044           05415                           TC       BLANKET                               
026149,002067: 30,3045           05112                           TC       ENDOFJOB                              
026150,002068: 30,3046           06006                           TC       INTPRET                               
026151,002069: 30,3047           77624        S22BOX42           CALL                                           
026152,002070: 30,3050           75460                                    INCORP2                               
026153,002071: 30,3051           77624                           CALL                                           #  CSMPOS=RC B-29 OR B-27
026154,002072: 30,3052           61273                                    S22CALRC                              
026155,002073: 30,3053           77414        DMPINCP2           BOFF     EXIT                                  
026156,002074: 30,3054           02744                                    INCORFLG                              
026157,002075: 30,3055           60652                                    S22SAVET                              #  SAVE TF AND TEST I=N
026158,002076: 30,3056           05301                           TC       PHASCHNG                              
026159,002077: 30,3057           04022                           OCT      04022                                 
026160,002078: 30,3060           06006                           TC       INTPRET                               
026161,002079: 30,3061           77214                           CLEAR    VLOAD                                 
026162,002080: 30,3062           02664                                    INCORFLG                              #  FLAG=0
026163,002081: 30,3063           01701                                    X789                                  
026164,002082: 30,3064           77651                           VSU                                            
026165,002083: 30,3065           01207                                    CSMPOS                                
026166,002084: 30,3066           37531                           STCALL   RCLP                                  #  RCL=RL-RC
026167,002085: 30,3067           60760                                    S22BOX12                              
026168,002086: 30,3070           66370        S22BOX22           AXT,1    SSP                                   #  CLEAR W6,W7,W8  (27 ELEMENTS 54 REGS)
026169,002087: 30,3071           00066                           DEC      54         B-14                       
026170,002088: 30,3072           00051                                    S1                                    
026171,002089: 30,3073           00006                           DEC      6          B-14                       
026172,002090: 30,3074           77775                           VLOAD                                          
026173,002091: 30,3075           15332                                    ZEROVECS                              
026174,002092: 30,3076           06643        CLRW678            STORE    W          +162D,1                    
026175,002093: 30,3077           67300                           TIX,1    SLOAD                                 
026176,002094: 30,3100           61076                                    CLRW678                               
026177,002095: 30,3101           02007                                    S22WSUBL                              

Page 596

026179,002097: 30,3102           02621                           STORE    W          +144D                      
026180,002098: 30,3103           02631                           STORE    W          +152D                      
026181,002099: 30,3104           02641                           STORE    W          +160D                      
026182,002100: 30,3105           43014                           CLEAR    BOFF                                  #  SET LUNAFLAG, TIME FOR LALOTORV
026183,002101: 30,3106           01663                                    LUNAFLAG                              #  ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY
026184,002102: 30,3107           04343                                    CMOONFLG                              #  CHECK SCALING OF ITEMS,ALT INPUT AND
026185,002103: 30,3110           61113                                    S22BX22A                              #  RL OUTPUT IN ALPHAV BOTH B-29
026186,002104: 30,3111           77614                           SET                                            
026187,002105: 30,3112           01463                                    LUNAFLAG                              
026188,002106: 30,3113           77624        S22BX22A           CALL                                           
026189,002107: 30,3114           61322                                    GETTF                                 
026190,002108: 30,3115           77624                           CALL                                           #  COMPUTE RL
026191,002109: 30,3116           26373                                    LALOTORV                              
026192,002110: 30,3117           43175                           VLOAD    BOFF                                  
026193,002111: 30,3120           02152                                    ALPHAV                                #  RL B-29
026194,002112: 30,3121           04343                                    CMOONFLG                              
026195,002113: 30,3122           61124                                    S22BX22B                              
026196,002114: 30,3123           77752                           VSL2                                           #  SCALE RL B-27 FOR MOON
026197,002115: 30,3124           77650        S22BX22B           GOTO                                           
026198,002116: 30,3125           60744                                    S22BOX32                              
026199,002117: 30,3126           06006        S22F244X           TC       INTPRET                               
026200,002118: 30,3127           46135        S22F244            SLOAD    BHIZ                                  #  FIG 2.4-4   TEST OFF=0
026201,002119: 30,3130           02746                                    CXOFF                                 
026202,002120: 30,3131           61160                                    S22BOX44                              
026203,002121: 30,3132           77776                           EXIT                                           
026204,002122: 30,3133           05301                           TC       PHASCHNG                              
026205,002123: 30,3134           04022                           OCT      04022                                 
026206,002124: 30,3135           06006                           TC       INTPRET                               
026207,002125: 30,3136           77745                           DLOAD                                          
026208,002126: 30,3137           03670                                    S22TOFF                               
026209,002127: 30,3140           34041                           STCALL   TDEC1                                 #  CALC RC AT OFFSET TIME
026210,002128: 30,3141           27022                                    CSMPREC                               
026211,002129: 30,3142           77775                           VLOAD                                          
026212,002130: 30,3143           00017                                    RATT1                                 #  RC METERS B-29 OR B-27
026213,002131: 30,3144           25207                           STOVL    CSMPOS                                
026214,002132: 30,3145           01215                                    S22UOFF                               
026215,002133: 30,3146           25235                           STOVL    UM                                    #  U=UOFF
026216,002134: 30,3147           01701                                    X789                                  
026217,002135: 30,3150           43046                           ABVAL    BOFF                                  
026218,002136: 30,3151           04343                                    CMOONFLG                              
026219,002137: 30,3152           61154                                    +2                                    
026220,002138: 30,3153           77702                           SR2                                            #  SCALE MOON R0 B-29 FOR S22F2410 SUBR
026221,002139: 30,3154           36241                           STCALL   ERADM                                 
026222,002140: 30,3155           61240                                    S22F2410                              
026223,002141: 30,3156           77650                           GOTO                                           
026224,002142: 30,3157           61163                                    S22BX44A                              
026225,002143: 30,3160           77624        S22BOX44           CALL                                           
026226,002144: 30,3161           61322                                    GETTF                                 
026227,002145: 30,3162           03670                           STORE    S22TOFF                               #  PRESENT TIME FOR LAT-LONG SETUP
026228,002146: 30,3163           77214        S22BX44A           CLEAR    VLOAD                                 

Page 597

026230,002148: 30,3164           01663                                    LUNAFLAG                              
026231,002149: 30,3165           01701                                    X789                                  
026232,002150: 30,3166           43014                           BOFF     SET                                   
026233,002151: 30,3167           04343                                    CMOONFLG                              
026234,002152: 30,3170           61173                                    S22BX44B                              
026235,002153: 30,3171           01463                                    LUNAFLAG                              #  SET = 1 FOR LAT-LONG
026236,002154: 30,3172           77742                           VSR2                                           #  SCALE RL MOON B-29 FOR LAT-LONG
026237,002155: 30,3173           16152        S22BX44B           STODL    ALPHAV                                #  RL SCALED B-29 FOR LAT-LONG
026238,002156: 30,3174           03670                                    S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
026239,002157: 30,3175           77624                           CALL                                           
026240,002158: 30,3176           26322                                    LAT-LONG                              #  **** ALT OUTPUT ALWAYS B-29
026241,002159: 30,3177           77624                           CALL                                           #  DISPLAY LAT/LONG/ALT
026242,002160: 30,3200           61336                                    LLASRD                                
026243,002161: 30,3201           77776                           EXIT                                           
026244,002162: 30,3202           33656                           CAF      V06N89B                               
026245,002163: 30,3203           04555                           TC       BANKCALL                              
026246,002164: 30,3204           20624                           CADR     GOFLASH                               
026247,002165: 30,3205           03233                           TC       S22GTP                                #  V34E TERMINATE
026248,002166: 30,3206           03210                           TC       +2                                    #  PROCEED   SAVE LANDING SITE COORD
026249,002167: 30,3207           03224                           TC       S22.981X                              #  RECYCLE   POINT A IN GSOP
026250,002168: 30,3210           06006                           TC       INTPRET                               
026251,002169: 30,3211           70740                           LXC,1    DLOAD*                                
026252,002170: 30,3212           02750                                    S22LOC                                
026253,002171: 30,3213           00001                                    0,1                                   
026254,002172: 30,3214           24007                           STOVL    6D                                    #  6-7D= LANDING SITE TIME FOR R-TO-RP
026255,002173: 30,3215           01701                                    X789                                  
026256,002174: 30,3216           00001                           STORE    0D                                    #  0-5D= LANDING SITE VEC  FOR R-TO-RP
026257,002175: 30,3217           45135                           SLOAD    CALL                                  
026258,002176: 30,3220           15330                                    HIDPHALF                              #  ANY NON-ZERO FOR MOON
026259,002177: 30,3221           55366                                    R-TO-RP                               #  CONVERT RLS TO MOON-FIXED COORD
026260,002178: 30,3222           02026                           STORE    RLS                                   #  LANDING SITE VECTOR
026261,002179: 30,3223           77776                           EXIT                                           
026262,002180: 30,3224           06006        S22.981X           TC       INTPRET                               
026263,002181: 30,3225           77624                           CALL                                           
026264,002182: 30,3226           61354                                    9DWTO6DW                              
026265,002183: 30,3227           77776                           EXIT                                           #  GO TO POINT A IN CHAPTER 5
026266,002184: 30,3230           06006        S22EXEX            TC       INTPRET                               #  WITHOUT CONVERTING W
026267,002185: 30,3231           77650                           GOTO                                           
026268,002186: 30,3232           03703                                    S22RTNEX                              
026269,002187: 
026270,002188: 30,3233           06006        S22GTP             TC       INTPRET                               #  CONVERT W BEFORE TC GOTOPOOH
026271,002189: 30,3234           77624                           CALL                                           
026272,002190: 30,3235           61354                                    9DWTO6DW                              
026273,002191: 30,3236           77776                           EXIT                                           
026274,002192: 30,3237           04106                           TC       GOTOPOOH                              
026275,002193: 30,3240           77201        S22F2410           SETPD    VLOAD                                 #  COMPUTE FORMULA 2.4.10
026276,002194: 30,3241           00001                                    0D                                    
026277,002195: 30,3242           01207                                    CSMPOS                                #  RC B-29 EARTH,B-27 MOON
026278,002196: 30,3243           50256                           UNIT     DOT                                   #  UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
026279,002197: 30,3244           01235                                    UM                                    

Page 598

026281,002199: 30,3245           57552                           SL1      DCOMP                                 #  GSOP CHANGE 8/18/67
026282,002200: 30,3246           77606                           PUSH                                           #  PD 2D 0D=COSA=-(UM.RC)/ABVAL(RC) B-1
026283,002201: 30,3247           44316                           DSQ      BDSU                                  
026284,002202: 30,3250           21654                                    DEC1B2                                
026285,002203: 30,3251           43125                           PDDL     BOFF                                  #  PD 4D  2D=1-COSA SQ=SINA SQ  B-2
026286,002204: 30,3252           02241                                    ERADM                                 #  R0 ALWAYS B-29 FROM SETRE
026287,002205: 30,3253           04343                                    CMOONFLG                              
026288,002206: 30,3254           61256                                    +2                                    
026289,002207: 30,3255           77712                           SL2                                            #  SCALE R0 B-27 FOR MOON
026290,002208: 30,3256           56362                           SR1R     DDV                                   #  (R0/RC) B-1
026291,002209: 30,3257           00045                                    36D                                   
026292,002210: 30,3260           45316                           DSQ      DSU                                   #  PD 2D (R0/RC) SQ - SINA SQ  B-2
026293,002211: 30,3261           44366                           SQRT     BDSU                                  #  PD 0D COSA-SQRT((R0/RC)SQ-SINA SQ) B-1
026294,002212: 30,3262           77605                           DMP                                            #  DMP RESULT B-28 MOON,B-30 EARTH
026295,002213: 30,3263           00045                                    36D                                   #  VXSC RESULT B-29 MOON, B-31 EARTH
026296,002214: 30,3264           00041                           STORE    S22RHO                                #  RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
026297,002215: 30,3265           77761                           VXSC                                           
026298,002216: 30,3266           01235                                    UM                                    
026299,002217: 30,3267           53352                           VSL2     VAD                                   #  SCALE B-27 MOON,B-29 EARTH AND ADD RC
026300,002218: 30,3270           01207                                    CSMPOS                                
026301,002219: 30,3271           01701                           STORE    X789                                  
026302,002220: 30,3272           77616                           RVQ                                            #  B-27 FOR EARTH OR B-29 FOR MOON
026303,002221: 30,3273           77350        S22CALRC           LXA,1    VLOAD                                 #  COMPUTE RC B-29 OR B-27
026304,002222: 30,3274           03673                                    S22EORM                               #  =0 FOR EARTH,-2 FOR MOON
026305,002223: 30,3275           01573                                    DELTACSM                              
026306,002224: 30,3276           53257                           VSR*     VAD                                   
026307,002225: 30,3277           20610                                    7,1                                   
026308,002226: 30,3300           01607                                    RCVCSM                                
026309,002227: 30,3301           01207                           STORE    CSMPOS                                
026310,002228: 30,3302           77616                           RVQ                                            
026311,002229: 30,3303           00031        S2231X13           STORE    S221X3                                #  MULT 3X1 BY 1X3,STORE RESULTING 3X3 IN
026312,002230: 30,3304           77131                           SSP      AXT,2                                 #  S22UMRL- S22UMRL +17D
026313,002231: 30,3305           00052                                    S2                                    
026314,002232: 30,3306           00002                           DEC      2          B-14                       
026315,002233: 30,3307           00006                           DEC      6          B-14                       
026316,002234: 30,3310           77770                           AXT,1                                          
026317,002235: 30,3311           00022                           DEC      18         B-14                       
026318,002236: 30,3312           73775        S2231NXT           VLOAD    VXSC*                                 
026319,002237: 30,3313           00031                                    S221X3                                
026320,002238: 30,3314           77746                                    S223X1     +6,2                       
026321,002239: 30,3315           07524                           STORE    S22UMRL    +18D,1                     
026322,002240: 30,3316           61110                           INCR,1   TIX,2                                 
026323,002241: 30,3317           77771                           DEC      -6         B-14                       
026324,002242: 30,3320           61312                                    S2231NXT                              
026325,002243: 30,3321           77616                           RVQ                                            
026326,002244: 30,3322           70740        GETTF              LXC,1    DLOAD*                                #  SET MPAC= TF
026327,002245: 30,3323           02750                                    S22LOC                                
026328,002246: 30,3324           00001                                    0,1                                   
026329,002247: 30,3325           77616                           RVQ                                            

Page 599

026331,002249: 30,3326           43014        S22FLGS            SET      SET                                   #  INTEGRATION FLAGS
026332,002250: 30,3327           01476                                    DIM0FLAG                              
026333,002251: 30,3330           01475                                    D6OR9FLG                              
026334,002252: 30,3331           43014                           SET      SET                                   
026335,002253: 30,3332           01474                                    VINTFLAG                              
026336,002254: 30,3333           01472                                    STATEFLG                              
026337,002255: 30,3334           43414                           CLEAR    RVQ                                   
026338,002256: 30,3335           01673                                    INTYPFLG                              
026339,002257: 
026340,002258:                                                                                                  #  SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
026341,002259:                                                                                                  #  PRIOR TO DISPLAY.
026342,002260: 
026343,002261: 30,3336           77745        LLASRD             DLOAD                                          #  ALT , LANDALT METERS B-29
026344,002262: 30,3337           01110                                    ALT                                   
026345,002263: 30,3340           16362                           STODL    LANDALT                               
026346,002264: 30,3341           01106                                    LONG                                  
026347,002265: 30,3342           77742                           SR1                                            
026348,002266: 30,3343           02360                           STORE    LANDLONG                              
026349,002267: 30,3344           77616                           RVQ                                            
026350,002268:                                                                                                  #  SUBROUTINE TO MODIFY LANDALT AND STORE LANDALT TO LANDALT+5 IN LAT TO
026351,002269:                                                                                                  #  LAT+5 AFTER LMK DATA LOADED BY ASTRONAUT.
026352,002270: 
026353,002271: 30,3345           77745        LLASRDA            DLOAD                                          #  ALT , LANDALT METERS B-29
026354,002272: 30,3346           02362                                    LANDALT                               
026355,002273: 30,3347           15110                           STODL    ALT                                   
026356,002274: 30,3350           02360                                    LANDLONG                              
026357,002275: 30,3351           77752                           SL1                                            
026358,002276: 30,3352           01106                           STORE    LONG                                  
026359,002277: 30,3353           77616                           RVQ                                            
026360,002278: 30,3354           40220        9DWTO6DW           STQ      SETPD                                 
026361,002279: 30,3355           01214                                    9DWXX                                 
026362,002280: 30,3356           00001                                    0D                                    
026363,002281: 30,3357           41575                           VLOAD    PUSH                                  #  CLEAR WORKING AREA OF PUSHLIST
026364,002282: 30,3360           15332                                    HI6ZEROS                              #  INCLUDING P
026365,002283: 30,3361           41406                           PUSH     PUSH                                  #  PD 18D
026366,002284: 30,3362           77731                           SSP                                            
026367,002285: 30,3363           00017                                    9DWJ                                  #  J=29   USE 2*29 FOR DP WORDS
026368,002286: 30,3364           00072                           DEC      58         B-14                       
026369,002287: 30,3365           66150        9DWI=J             LXA,1    SXA,1                                 #  SET I=J
026370,002288: 30,3366           00016                                    9DWJ                                  
026371,002289: 30,3367           00012                                    9DWI                                  
026372,002290: 30,3370           77624        9DWEPCAL           CALL                                           
026373,002291: 30,3371           61606                                    ROWDOT                                
026374,002292: 30,3372           77750                           LXA,1                                          #  P VARIES 0-20 INSTEAD OF 20-0
026375,002293: 30,3373           00010                                    9DWP                                  
026376,002294: 30,3374           06641                           STORE    EMATRIX    +40D,1                     
026377,002295: 30,3375           66110                           INCR,1   SXA,1                                 
026378,002296: 30,3376           00002                           DEC      2          B-14                       
026379,002297: 30,3377           00010                                    9DWP                                  
026380,002298: 30,3400           46135                           SLOAD    BHIZ                                  #  TEST I=0

Page 600

026382,002300: 30,3401           00013                                    9DWI                                  
026383,002301: 30,3402           61417                                    9DWTESTJ                              
026384,002302: 30,3403           77625                           DSU                                            #  I=I-1
026385,002303: 30,3404           21646                                    9DWID                                 
026386,002304: 30,3405           00013                           STORE    9DWI                                  
026387,002305: 30,3406           46025                           DSU      BHIZ                                  #  TEST I=26
026388,002306: 30,3407           21644                                    9DW26D                                
026389,002307: 30,3410           61413                                    9DWSETI2                              
026390,002308: 30,3411           77650                           GOTO                                           #  NEXT E SUB P
026391,002309: 30,3412           61370                                    9DWEPCAL                              
026392,002310: 30,3413           52131        9DWSETI2           SSP      GOTO                                  #  I=2
026393,002311: 30,3414           00013                                    9DWI                                  
026394,002312: 30,3415           00004                           DEC      4          B-14                       
026395,002313: 30,3416           61370                                    9DWEPCAL                              
026396,002314: 30,3417           46135        9DWTESTJ           SLOAD    BHIZ                                  #  TEST J=0
026397,002315: 30,3420           00017                                    9DWJ                                  
026398,002316: 30,3421           61436                                    9DWFIG6                               
026399,002317: 30,3422           77625                           DSU                                            
026400,002318: 30,3423           21646                                    9DWID                                 
026401,002319: 30,3424           00017                           STORE    9DWJ                                  #  J=J-1
026402,002320: 30,3425           46025                           DSU      BHIZ                                  #  TEST J=26
026403,002321: 30,3426           21644                                    9DW26D                                
026404,002322: 30,3427           61432                                    9DWSETJ2                              
026405,002323: 30,3430           77650                           GOTO                                           
026406,002324: 30,3431           61365                                    9DWI=J                                
026407,002325: 30,3432           52131        9DWSETJ2           SSP      GOTO                                  #  SET J=2
026408,002326: 30,3433           00017                                    9DWJ                                  
026409,002327: 30,3434           00004                           DEC      4          B-14                       
026410,002328: 30,3435           61365                                    9DWI=J                                
026411,002329: 30,3436           77624        9DWFIG6            CALL                                           
026412,002330: 30,3437           56712                                    GRP2PC                                
026413,002331: 30,3440           77331                           SSP      VLOAD                                 #  START OF FIGURE 2.4-6
026414,002332: 30,3441           00017                                    9DWJ                                  #  J=29
026415,002333: 30,3442           00072                           DEC      58         B-14                       
026416,002334: 30,3443           15332                                    HI6ZEROS                              
026417,002335: 30,3444           00011                           STORE    9DWP                                  #  P,N,I=0
026418,002336: 30,3445           66370                           AXT,1    SSP                                   
026419,002337: 30,3446           00154                           DEC      108        B-14                       #  CLEAR WO TO W54
026420,002338: 30,3447           00051                                    S1                                    
026421,002339: 30,3450           00006                                    6                                     
026422,002340: 30,3451           06555        CLEARW54           STORE    W          +108D,1                    
026423,002341: 30,3452           77700                           TIX,1                                          
026424,002342: 30,3453           61451                                    CLEARW54                              
026425,002343: 30,3454           66150        9DWI=JA            LXA,1    SXA,1                                 #  I=J
026426,002344: 30,3455           00016                                    9DWJ                                  
026427,002345: 30,3456           00012                                    9DWI                                  
026428,002346: 30,3457           77624                           CALL                                           
026429,002347: 30,3460           61606                                    ROWDOT                                
026430,002348: 30,3461           43750                           LXA,1    BDSU*                                 
026431,002349: 30,3462           00010                                    9DWP                                  

Page 601

026433,002351: 30,3463           02641                                    EMATRIX    +40D,1                     
026434,002352: 30,3464           66110                           INCR,1   SXA,1                                 #  -(P+1)
026435,002353: 30,3465           00002                                    2                                     
026436,002354: 30,3466           00010                                    9DWP                                  
026437,002355: 30,3467           54140                           LXC,1    XSU,1                                 #  -(I+N)
026438,002356: 30,3470           00012                                    9DWI                                  
026439,002357: 30,3471           00014                                    9DWN                                  
026440,002358: 30,3472           71244                           BPL      DLOAD                                 #  TEST WSQ LTE 0
026441,002359: 30,3473           61477                                    9DWAAA                                
026442,002360: 30,3474           15332                                    HI6ZEROS                              #  W=0
026443,002361: 30,3475           77650                           GOTO                                           
026444,002362: 30,3476           61500                                    9DWAAB                                
026445,002363: 30,3477           77766        9DWAAA             SQRT                                           #  W= SQRT(WSQ)
026446,002364: 30,3500           06401        9DWAAB             STORE    W,1                                   
026447,002365: 30,3501           14001                           STODL    WORKW                                 
026448,002366: 30,3502           00017                                    9DWJ                                  #  TEST J=0
026449,002367: 30,3503           77630                           BHIZ                                           
026450,002368: 30,3504           61572                                    9DWEXITX                              #  EXIT
026451,002369: 30,3505           46135        TST2I=0            SLOAD    BHIZ                                  #  TEST I=0
026452,002370: 30,3506           00013                                    9DWI                                  
026453,002371: 30,3507           61550                                    9DWN=N+3                              
026454,002372: 30,3510           77625                           DSU                                            
026455,002373: 30,3511           21646                                    9DWID                                 
026456,002374: 30,3512           00013                           STORE    9DWI                                  #  I=I-1
026457,002375: 30,3513           46025                           DSU      BHIZ                                  #  TEST I=26
026458,002376: 30,3514           21644                                    9DW26D                                
026459,002377: 30,3515           61520                                    9DWAAC                                
026460,002378: 30,3516           77650                           GOTO                                           
026461,002379: 30,3517           61523                                    9DWNEXEP                              
026462,002380: 30,3520           77731        9DWAAC             SSP                                            #  I=2
026463,002381: 30,3521           00013                                    9DWI                                  
026464,002382: 30,3522           00004                                    4                                     
026465,002383: 30,3523           77624        9DWNEXEP           CALL                                           
026466,002384: 30,3524           61606                                    ROWDOT                                
026467,002385: 30,3525           43750                           LXA,1    BDSU*                                 #  (EP-ROWI*ROWJ)/W
026468,002386: 30,3526           00010                                    9DWP                                  
026469,002387: 30,3527           02641                                    EMATRIX    +40D,1                     
026470,002388: 30,3530           62071                           DDV      INCR,1                                #  P=P+1
026471,002389: 30,3531           00001                                    WORKW                                 
026472,002390: 30,3532           00002                                    2                                     
026473,002391: 30,3533           70130                           SXA,1    LXC,1                                 
026474,002392: 30,3534           00010                                    9DWP                                  
026475,002393: 30,3535           00012                                    9DWI                                  
026476,002394: 30,3536           40060                           XSU,1    BOV                                   #  -(I+N)
026477,002395: 30,3537           00014                                    9DWN                                  
026478,002396: 30,3540           61543                                    SETWIN=0                              
026479,002397: 30,3541           77650                           GOTO                                           
026480,002398: 30,3542           61545                                    9DWSETWX                              
026481,002399: 30,3543           77745        SETWIN=0           DLOAD                                          #  W(I+N)=0
026482,002400: 30,3544           15332                                    HI6ZEROS                              

Page 602

026484,002402: 30,3545           06401        9DWSETWX           STORE    W,1                                   
026485,002403: 30,3546           77650                           GOTO                                           
026486,002404: 30,3547           61505                                    TST2I=0                               
026487,002405: 30,3550           62150        9DWN=N+3           LXA,1    INCR,1                                #  N=N+3
026488,002406: 30,3551           00014                                    9DWN                                  
026489,002407: 30,3552           00006                                    6                                     
026490,002408: 30,3553           67330                           SXA,1    SLOAD                                 #  J=J-1
026491,002409: 30,3554           00014                                    9DWN                                  
026492,002410: 30,3555           00017                                    9DWJ                                  
026493,002411: 30,3556           77625                           DSU                                            
026494,002412: 30,3557           21646                                    9DWID                                 
026495,002413: 30,3560           00017                           STORE    9DWJ                                  
026496,002414: 30,3561           46025                           DSU      BHIZ                                  #  TEST J=26
026497,002415: 30,3562           21644                                    9DW26D                                
026498,002416: 30,3563           61566                                    SETJ=2A                               
026499,002417: 30,3564           77650                           GOTO                                           
026500,002418: 30,3565           61454                                    9DWI=JA                               
026501,002419: 30,3566           52131        SETJ=2A            SSP      GOTO                                  #  J=2
026502,002420: 30,3567           00017                                    9DWJ                                  
026503,002421: 30,3570           00004                                    4                                     
026504,002422: 30,3571           61454                                    9DWI=JA                               
026505,002423: 30,3572           77624        9DWEXITX           CALL                                           
026506,002424: 30,3573           56712                                    GRP2PC                                
026507,002425: 30,3574           66370                           AXT,1    SSP                                   #  CLEAR W6,W7,W8 USED TEMP FOR EMATRIX
026508,002426: 30,3575           00066                           DEC      54         B-14                       
026509,002427: 30,3576           00051                                    S1                                    
026510,002428: 30,3577           00006                                    6                                     
026511,002429: 30,3600           77775                           VLOAD                                          
026512,002430: 30,3601           15332                                    HI6ZEROS                              
026513,002431: 30,3602           06643        9DWEXXXA           STORE    W          +162D,1                    
026514,002432: 30,3603           52100                           TIX,1    GOTO                                  
026515,002433: 30,3604           61602                                    9DWEXXXA                              
026516,002434: 30,3605           01214                                    9DWXX                                 
026517,002435: 30,3606           40131        ROWDOT             SSP      BOV                                   
026518,002436: 30,3607           00007                                    XTMP1                                 
026519,002437: 30,3610           00377                           OCT      377                                   
026520,002438: 30,3611           61612                                    +1                                    
026521,002439: 30,3612           71140                           LXC,1    LXC,2                                 
026522,002440: 30,3613           00012                                    9DWI                                  
026523,002441: 30,3614           00016                                    9DWJ                                  
026524,002442: 30,3615           41545                           DLOAD    PUSH                                  
026525,002443: 30,3616           15332                                    HI6ZEROS                              
026526,002444: 30,3617           56743        ROWDOT1            DLOAD*   DMPR*                                 
026527,002445: 30,3620           02401                                    W,1                                   
026528,002446: 30,3621           75376                                    W,2                                   
026529,002447: 30,3622           41415                           DAD      PUSH                                  
026530,002448: 30,3623           62000                           BOV      INCR,1                                
026531,002449: 30,3624           61640                                    ROWDOT3                               
026532,002450: 30,3625           77771                           DEC      -6         B-14                       
026533,002451: 30,3626           67314                           INCR,2   SLOAD                                 

Page 603

026535,002453: 30,3627           77771                           DEC      -6         B-14                       
026536,002454: 30,3630           00007                                    XTMP1                                 
026537,002455: 30,3631           70430                           BHIZ     SR1                                   
026538,002456: 30,3632           61636                                    ROWDOT2                               
026539,002457: 30,3633           00007                           STORE    XTMP1                                 
026540,002458: 30,3634           77650                           GOTO                                           
026541,002459: 30,3635           61617                                    ROWDOT1                               
026542,002460: 30,3636           77745        ROWDOT2            DLOAD                                          
026543,002461: 30,3637           77616                           RVQ                                            
026544,002462: 30,3640           77614        ROWDOT3            CLRGO                                          
026545,002463: 30,3641           01631                                    ORBWFLAG                              
026546,002464: 30,3642           61636                                    ROWDOT2                               
026547,002465: 30,3643                        WORKW              =        0D                                    
026548,002466: 30,3643                        XTMP1              =        6D                                    
026549,002467: 30,3643                        9DWP               =        8D                                    #  P
026550,002468: 30,3643                        9DWI               =        10D                                   #  I
026551,002469: 30,3643                        9DWN               =        12D                                   #  N
026552,002470: 30,3643                        9DWJ               =        14D                                   #  J
026553,002471: 30,3643     1214               9DWXX              =        S22UOFF                               
026554,002472: 30,3643  E7,1501               S22UMRL            =        BVECTOR                               #  18
026555,002473: 30,3643     1256               S22UUT             =        DELTAX                                #  18
026556,002474: 30,3643                        S223X1             =        18D                                   #  6
026557,002475: 30,3643                        S221X3             =        24D                                   #  6
026558,002476: 30,3643                        S22D               =        30D                                   #  2
026559,002477: 30,3643                        S22RHO             =        32D                                   #  2
026560,002478: 30,3643  E5,1634               S22RL              =        W          +156D                      #  6
026561,002479: 30,3643           00064 00000  9DW26D             2DEC     52         B-14                       
026562,002480: 30,3645           00002 00000  9DWID              2DEC     2          B-14                       
026563,002481: 30,3647           10306 36750  SCTVAR             2DEC     1.0        E-6        B+18            
026564,002482: 30,3651           00253 31436  IMUVARR            2DEC     0.04       E-6        B+18            
026565,002483: 30,3653           10000 00000  DEC1B2             2DEC     1          B-2                        
026566,002484: 30,3655           01461        V06N49EE           VN       00649                                 
026567,002485: 30,3656           01531        V06N89B            VN       00689                                 
026568,002486: 30,3657     1214               S22UOFF            =        LEMPOS                                #  6      U SUB OFF
026569,002487: 23,2000                                           SETLOC   P20S2                                 
026570,002488: 23,2000                                           BANK                                           
026571,002489: 

Page 604

026573,002491: 
026574,002492: 

Page 605

026576,002494:                                                                                                  #  SUBROUTINE NAME:   V89CALL
026577,002495:                                                                                                  #  MOD NO:  0                      DATE: 8 FEB 1968
026578,002496:                                                                                                  #  MOD BY:  DIGITAL DEVEL GROUP    LOG SECTION: P20-P25
026579,002497: 
026580,002498:                                                                                                  #  FUNCTIONAL DESCRIPTION:
026581,002499: 
026582,002500:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
026583,002501:                                                                                                  #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
026584,002502:                                                                                                  #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
026585,002503: 
026586,002504:                                                                                                  #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
026587,002505:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
026588,002506: 
026589,002507:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
026590,002508:                                                                                                  #  ORIENTATION KNOWN TO CGC, CONTINUE.
026591,002509: 
026592,002510:                                                                                                  #  3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
026593,002511:                                                                                                  #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
026594,002512:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V 22 E 2 E. CONTINUE
026595,002513:                                                                                                  #  AFTER KEYING IN PROCEED.
026596,002514: 
026597,002515:                                                                                                  #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
026598,002516:                                                                                                  #  FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
026599,002517: 
026600,002518:                                                                                                  #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
026601,002519: 
026602,002520:                                                                                                  #      R63COMP JOB:
026603,002521: 
026604,002522:                                                                                                  #        UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
026605,002523: 
026606,002524:                                                                                                  #        CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3SM TO LM.
026607,002525: 
026608,002526:                                                                                                  #        DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
026609,002527:                                                                                                  #        ARE STORED FOR LATER R60CSM CALL.
026610,002528: 
026611,002529:                                                                                                  #  6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
026612,002530: 
026613,002531:                                                                                                  #  7. RECYCLE- RETURN TO STEP 5.
026614,002532:                                                                                                  #     TERMINATE- EXIT R63 ROUTINE
026615,002533:                                                                                                  #     PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
026616,002534: 
026617,002535: 
026618,002536:                                                                                                  #  CALLING SEQUENCE: V 89 E
026619,002537: 
026620,002538:                                                                                                  #  SUBROUTINES CALLED: CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
026621,002539: 
026622,002540:                                                                                                  #  ALARMS   1. OPERATOR ERROR IF NOT IN P00
026623,002541:                                                                                                  #           2. PROGRAM ALARM IF IMU IS OFF
026624,002542:                                                                                                  #           3. PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN
026625,002543: 

Page 606

026627,002545:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED: NONE
026628,002546: 
026629,002547:                                                                                                  #  DEBRIS:  OPTION1, OPTION1+1, PRFTRKAT(PREF ATT FLAG),P21TIME, 3AXISFLG
026630,002548: 
026631,002549: 23,3136           00000 13560  DP1MIN             2DEC     6000       B-28                       
026632,002550: 
026633,002551: 
026634,002552: 23,3140  E4,1715                                  EBANK=   P21TIME                               
026635,002553: 34,3603                                           BANK     34                                    
026636,002554: 34,2000                                           SETLOC   P20S4                                 
026637,002555: 34,2000                                           BANK                                           
026638,002556: 34,3603                                           COUNT*   $$/R63                                
026639,002557: 
026640,002558: 
026641,002559: 34,3603           04555        V89CALL            TC       BANKCALL                              #  IMU STATUS CHECK. RETURNS IF ORIENTATION
026642,002560: 34,3604           17573                           CADR     R02BOTH                               #  KNOWN. ALARMS IF NOT.
026643,002561: 34,3605           36214                           CAF      THREE                                 #  ALLOW ASTRONAUT TO SELECT DESIRED
026644,002562: 34,3606           55131                           TS       OPTION1                               #  TRACKING ATTITUDE AXIS.
026645,002563: 34,3607           34712                           CAF      ONE                                   
026646,002564: 34,3610           55132                           TS       OPTION1    +1                         
026647,002565: 34,3611           33652                           CAF      VB04N06                               #  V 04 N 06
026648,002566: 34,3612           04555                           TC       BANKCALL                              
026649,002567: 34,3613           20624                           CADR     GOFLASH                               
026650,002568: 34,3614           05423                           TC       ENDEXT                                #  TERMINATE
026651,002569: 34,3615           03617                           TC       +2                                    #  PROCEED
026652,002570: 34,3616           03611                           TC       -5                                    #  DATA IN. OPTION1 +1 = 1 FOR PREF AXIS
026653,002571:                                                                                                  #                                                              = 2 FOR X AXIS
026654,002572: 34,3617           41132                           CS       OPTION1    +1                         #  1 FOR PREF AXIS. 2 FOR X AXIS.
026655,002573: 34,3620           64712                           AD       ONE                                   
026656,002574: 34,3621           00006                           EXTEND                                         
026657,002575: 34,3622           13647                           BZF      SETPAF                                
026658,002576: 34,3623           05447        RSTPAF             TC       DOWNFLAG                              #  RESET PREF ATT FLAG FOR R63COMP
026659,002577: 34,3624           00120                           ADRES    RNGSCFLG                              #  TO DO X AXIS. RESET BIT 10 FLAG 5
026660,002578: 34,3625           06006        V89RECL            TC       INTPRET                               
026661,002579: 34,3626           43234                           RTB      DAD                                   
026662,002580: 34,3627           45505                                    LOADTIME                              #  READ PRESENT TIME
026663,002581: 34,3630           07137                                    DP1MIN                                #  INTEGRATE TO 1 MIN FROM NOW
026664,002582: 34,3631           36316                           STCALL   P21TIME                               #  STORE TIME FOR CALL TO R63COMP.  R63COMP
026665,002583: 34,3632           71463                                    R63COMP                               #  LEAVES DESIRED GIM ANGS IN THETAD,LOS IN
026666,002584: 34,3633           77776                           EXIT                                           #  POINTVSM, AND SELECTED AXIS IN SCAXIS.
026667,002585: 34,3634           33653                           CAF      VB06N18                               #  V 06 N 18
026668,002586: 34,3635           04555                           TC       BANKCALL                              #  NOUN 18 REFERS TO THE DESIRED GIMBAL
026669,002587: 34,3636           20624                           CADR     GOFLASH                               
026670,002588: 34,3637           05423                           TC       ENDEXT                                #  TERMINATE
026671,002589: 34,3640           03642                           TC       +2                                    #  PROCEED
026672,002590: 34,3641           03625                           TC       V89RECL                               #  RECYCLE
026673,002591: 34,3642           05447                           TC       DOWNFLAG                              #  RESET 3 AXIS FLAG
026674,002592: 34,3643           00124                           ADRES    3AXISFLG                              #  RESET BIT 6 FLAG 5

Page 607

026676,002594: 34,3644           04555                           TC       BANKCALL                              #  PERFORMS CSM MANEUVER TO ALIGN SELECTED
026677,002595: 34,3645           56000                           CADR     R60CSM                                #  SPACECRAFT AXIS TO LOS.
026678,002596: 34,3646           15423                           TCF      ENDEXT                                
026679,002597: 
026680,002598: 
026681,002599: 34,3647           05435        SETPAF             TC       UPFLAG                                #  SET PREFERRED ATT FLAG FOR R63COMP
026682,002600: 34,3650           00120                           ADRES    RNGSCFLG                              #  TO DO PREF AXIS. SET BIT 10 FLAG 5.
026683,002601: 34,3651           03625                           TC       V89RECL                               
026684,002602: 
026685,002603: 
026686,002604: 34,3652           01006        VB04N06            VN       0406                                  
026687,002605: 34,3653           01422        VB06N18            VN       0618                                  
026688,002606: 
026689,002607: 34,3654  34,3463               R63COMP            EQUALS   R63                                   
026690,002608: 

Page 608

026692,002610:                                                                                                  #  PROGRAM NAME- P23 CISLUNAR MIDCOURSE NAVIGATION
026693,002611:                                                                                                  #  MOD NO
026694,002612:                                                                                                  #  MOD BY- TOM KNATT
026695,002613:                                                                                                  #  FUNCTIONAL DESCRIPTION- DO MIDCOURSE NAVIGATION BY INCORPORATION OF STAR 
026696,002614:                                                                                                  #  /EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
026697,002615:                                                                                                  #  CALLING SEQUENCE- ASTRONAUT OPERATED
026698,002616:                                                                                                  #  SUBROUTINES CALLED-R52,R53,R57,R60,ORBITAL INTEGRATION (INTEGRV)
026699,002617:                                                                                                  #  INCORP1,INCORP2,LALOTORV,LUNLMKLD,AND DISPLAY INTERFACE ROUTINES.
026700,002618:                                                                                                  #  NORMAL EXIT MODES- VIA ROO
026701,002619:                                                                                                  #  ALARMS- NONE
026702,002620:                                                                                                  #  ABORT MODES- NONE
026703,002621:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED- PAD-LOADED ERASABLES,ORBWFLAG RESET,
026704,002622:                                                                                                  #  REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ON
026705,002623:                                                                                                  #  INPUTS BY USER REQUIRED- STAR NUMBER,LANDMARK LAT,LONG/2, ALT OR ID NUMB.
026706,002624:                                                                                                  #  IF LANDMARK IS USED,        NEAR OR FAR HORIZON IF HORIZON IS USED, AND 
026707,002625:                                                                                                  #  BODY TO BE MARKED ON(EARTH OR MOON).  SEE GSOP CHAPT 4.
026708,002626:                                                                                                  #  OUTPUT-UPDATED CMC STATE VECTOR. VECTOR FROM S/C TO HORIZON OR LANDMARK
026709,002627:                                                                                                  #  IN POINTAXS. POINTAXS CAN BE USED TO GENERATE THIS VECTOR APART FROM
026710,002628:                                                                                                  #  P23 IF DESIRED.
026711,002629:                                                                                                  #  DEBRIS-NO USABLE DEBRIS IS GENERATED. RENDWFLG IS RESET FOR P20 UPON
026712,002630:                                                                                                  #  COMPLETION OF P23. RUPTREGS AND ERASABLES USED BY DISPLAYS ARE DEBRIS
026713,002631: 31,2021                                           BANK     31                                    
026714,002632: 31,2000                                           SETLOC   RT23                                  
026715,002633: 31,2000                                           BANK                                           
026716,002634: 31,2021                                           COUNT    31/S23                                
026717,002635: 31,2021  E5,1400                                  EBANK=   W                                     
026718,002636: 31,2021           05447        P23                TC       DOWNFLAG                              
026719,002637: 31,2022           00010                           ADRES    RNDVZFLG                              
026720,002638: 
026721,002639: 31,2023           05261                           TC       2PHSCHNG                              
026722,002640: 31,2024           00004                           OCT      00004                                 #  LEAVE GROUP 4
026723,002641: 31,2025           00012                           OCT      00012                                 #  ENTER GROUP 2
026724,002642: 31,2026           34760                           CAF      PRIO13                                
026725,002643: 31,2027           55056                           TS       PHSPRDT2                              
026726,002644: 31,2030           06006                           TC       INTPRET                               
026727,002645: 31,2031           43131                           SSP      CLEAR                                 
026728,002646: 31,2032           00302                                    MARKINDX                              
026729,002647: 31,2033           00001                                    1                                     
026730,002648: 31,2034           00666                                    TARG2FLG                              #  TARGET FLAG USED BY R52 AND R53
026731,002649: 31,2035           66214                           CLEAR    SSP                                   
026732,002650: 31,2036           00665                                    TARG1FLG                              
026733,002651: 31,2037           00305                                    STARIND                               
026734,002652: 31,2040           00000                                    0                                     
026735,002653: 31,2041           43131                           SSP      CLEAR                                 
026736,002654: 31,2042           00303                                    BESTI                                 
026737,002655: 31,2043           00000                                    0                                     
026738,002656: 31,2044           03267                                    R57FLAG                               #  SET = DO NOT REPERFORM R57
026739,002657: 31,2045           77414                           CLEAR    EXIT                                  
026740,002658: 31,2046           04664                                    V94FLAG                               #  SET = ALLOW V94
026741,002659: 31,2047           06006        P23.00             TC       INTPRET                               

Page 609

026743,002661: 31,2050           45014                           BON      CALL                                  
026744,002662: 31,2051           01702                                    REFSMFLG                              #  SET NOW AS INPUT, NORMALLY EXTERNAL CONT
026745,002663: 31,2052           62060                                    P23.05                                #  WHEN ALIGNED, PERFORM MEASUREMENT
026746,002664: 31,2053           76360                                    R57                                   #  DO OPTICS CALIBRATION IF IMU NOT ALIGNED
026747,002665: 31,2054           77624                           CALL                                           
026748,002666: 31,2055           31327                                    R53                                   
026749,002667: 31,2056           77650                           GOTO                                           
026750,002668: 31,2057           62236                                    P23.60                                
026751,002669: 31,2060           77414        P23.05             CLEAR    EXIT                                  
026752,002670: 31,2061           04665                                    SAVECFLG                              #  USED TO SAVE SPACE IN P23.65
026753,002671: 31,2062           33050                           CAF      V05N70                                #  REQUEST RESPONSE AND DISPLAY MEASUREMENT
026754,002672: 31,2063           04555                           TC       BANKCALL                              #  IDENTIFICATION- STAR,LMK,HOR  IDENT.
026755,002673: 31,2064           20624                           CADR     GOFLASH                               
026756,002674: 31,2065           04106                           TC       GOTOPOOH                              #  TERMINATE
026757,002675: 31,2066           02070                           TC       P23.15                                
026758,002676: 31,2067           02062                           TC       -5                                    #  REDISPLAY
026759,002677: 31,2070           31751        P23.15             CA       LANDMARK                              #  IF C=2,LUNAFLAG=1. IF C=1,LUNAFLAG=0
026760,002678: 31,2071           00006                           EXTEND                                         
026761,002679: 31,2072           12074                           BZF      +2                                    
026762,002680: 31,2073           02075                           TC       +2                                    
026763,002681: 31,2074           31752                           CA       HORIZON                               #  SET LUNAFLAG FROM HORIZON OR LANDMARK
026764,002682: 31,2075           74703                           MASK     BIT8                                  
026765,002683: 31,2076           00006                           EXTEND                                         
026766,002684: 31,2077           12104                           BZF      P23.16                                
026767,002685: 31,2100           06006                           TC       INTPRET                               
026768,002686: 31,2101           52014                           SET      GOTO                                  
026769,002687: 31,2102           01463                                    LUNAFLAG                              
026770,002688: 31,2103           62107                                    P23.17                                
026771,002689: 31,2104           06006        P23.16             TC       INTPRET                               
026772,002690: 31,2105           77614                           CLEAR                                          
026773,002691: 31,2106           01663                                    LUNAFLAG                              
026774,002692: 31,2107           41535        P23.17             SLOAD    PUSH                                  
026775,002693: 31,2110           00736                                    STARCODE                              
026776,002694: 31,2111           41335                           SLOAD    DMP                                   
026777,002695: 31,2112           23055                                    SPSIX                                 
026778,002696: 31,2113           66150                           LXA,1    SXA,1                                 
026779,002697: 31,2114           00155                                    MPAC       +1                         
026780,002698: 31,2115           00302                                    BESTI                                 #  BESTI = 6XSTAR NUMBER
026781,002699: 31,2116           77624                           CALL                                           
026782,002700: 31,2117           30000                                    LOWMEMRY                              #  NEEDED TO RETRIEVE STAR VECTOR FROM LOW
026783,002701: 31,2120           02617                           STORE    STARSAV2                              #  STORE FOR R53,P23. US(IN P23)=STARSAV2
026784,002702: 31,2121           77776                           EXIT                                           
026785,002703: 31,2122           31751                           CA       LANDMARK                              
026786,002704: 31,2123           73052                           MASK     OCT00077                              
026787,002705: 31,2124           55753                           TS       IDOFLMK                               #  FOR R3(DE) LUNAFLAG ALREADY SET
026788,002706: 31,2125           31752                           CA       HORIZON                               
026789,002707: 31,2126           00006                           EXTEND                                         
026790,002708: 31,2127           12144                           BZF      P23.12                                
026791,002709: 31,2130           74706                           MASK     BIT5                                  #  IF D=1,NORFHOR=0(NEAR).D=2,NORFHOR=1,FAR
026792,002710: 31,2131           00006                           EXTEND                                         

Page 610

026794,002712: 31,2132           12137                           BZF      P23.18                                
026795,002713: 31,2133           06006                           TC       INTPRET                               
026796,002714: 31,2134           52014                           SET      GOTO                                  
026797,002715: 31,2135           00064                                    NORFHOR                               
026798,002716: 31,2136           62142                                    P23.19                                
026799,002717: 31,2137           06006        P23.18             TC       INTPRET                               
026800,002718: 31,2140           77614                           CLEAR                                          
026801,002719: 31,2141           00264                                    NORFHOR                               
026802,002720: 31,2142           77776        P23.19             EXIT                                           
026803,002721: 31,2143           02156                           TC       P23.30                                
026804,002722: 31,2144           31753        P23.12             CA       IDOFLMK                               #  IF R2(DE) NONZERO, LMK IS IDENTIFIED
026805,002723: 31,2145           00006                           EXTEND                                         
026806,002724: 31,2146           12150                           BZF      P23.20                                #  LANDMARK NOT IDENTIFIED
026807,002725: 31,2147           02156                           TC       P23.30                                #  LANDMARK IS IDENTIFIED
026808,002726: 31,2150           33047        P23.20             CAF      V6N89                                 #  REQUEST RESPONSE AND DISPLAY LMK DATA
026809,002727: 31,2151           04555                           TC       BANKCALL                              #  R1=LAT,R2=LONG/2,R3=ALT
026810,002728: 31,2152           20624                           CADR     GOFLASH                               
026811,002729: 31,2153           04106                           TC       GOTOPOOH                              #  TERMINATE
026812,002730: 31,2154           02156                           TC       P23.30                                
026813,002731: 31,2155           02150                           TC       P23.20                                #  STORE NEW DATA AND REDISPLAY
026814,002732: 31,2156           06006        P23.30             TC       INTPRET                               
026815,002733: 31,2157           77414                           BON      EXIT                                  
026816,002734: 31,2160           04705                                    SAVECFLG                              
026817,002735: 31,2161           62265                                    P23.85                                
026818,002736: 31,2162           33053                           CAF      V50N25P                               
026819,002737: 31,2163           04555                           TC       BANKCALL                              
026820,002738: 31,2164           20751                           CADR     GOPERF1                               #  GOPERF1 BLANKS OUT R2 AND R3.
026821,002739: 31,2165           04106                           TC       GOTOPOOH                              
026822,002740: 31,2166           02173                           TC       V94ENTER                              #  PROCEED. AUTOCONTROL CMC
026823,002741: 31,2167           02170                           TC       P23.55                                #  ENTER. MANUAL CONTROL
026824,002742: 31,2170           06006        P23.55             TC       INTPRET                               
026825,002743: 31,2171           77650                           GOTO                                           
026826,002744: 31,2172           62224                                    P23.56                                
026827,002745:                                                                                                  #           VERB 94 BEGINS HERE
026828,002746: 31,2173           06006        V94ENTER           TC       INTPRET                               
026829,002747: 31,2174           77634                           RTB                                            
026830,002748: 31,2175           45505                                    LOADTIME                              #  READ CLOCK
026831,002749: 31,2176           35225                           STCALL   MARKTIME                              
026832,002750: 31,2177           62272                                    POINTAXS                              #  RETURN LOS IN RCLL AND MPAC
026833,002751: 31,2200           53521                           MXV      UNIT                                  
026834,002752: 31,2201           01736                                    REFSMMAT                              
026835,002753: 31,2202           27357                           STOVL    POINTVSM                              
026836,002754: 31,2203           23056                                    JCAXIS                                
026837,002755: 31,2204           03351                           STORE    SCAXIS                                
026838,002756: 31,2205           77776                           EXIT                                           
026839,002757: 31,2206           05447                           TC       DOWNFLAG                              #  CLEAR AND GO TO VECPOINT IN R60
026840,002758: 31,2207           00124                           ADRES    3AXISFLG                              #  BIT 6  FLAG 5
026841,002759: 31,2210           33063                           CAF      R60ADRS                               
026842,002760: 31,2211           54374                           TS       TEMPFLSH                              
026843,002761: 31,2212           05301                           TC       PHASCHNG                              

Page 611

026845,002763: 31,2213           00012                           OCT      00012                                 
026846,002764: 31,2214           04555        R60CALL            TC       BANKCALL                              
026847,002765: 31,2215           56000                           CADR     R60CSM                                
026848,002766: 31,2216           05301                           TC       PHASCHNG                              
026849,002767: 31,2217           04022                           OCT      04022                                 
026850,002768: 31,2220           06006                           TC       INTPRET                               
026851,002769: 31,2221           77614                           BON                                            
026852,002770: 31,2222           03307                                    R57FLAG                               
026853,002771: 31,2223           62226                                    P23.57                                #  DO NOT REPERFORM R57
026854,002772: 31,2224           77624        P23.56             CALL                                           
026855,002773: 31,2225           76360                                    R57                                   
026856,002774: 31,2226           43014        P23.57             SET      SET                                   
026857,002775: 31,2227           04464                                    V94FLAG                               
026858,002776: 31,2230           03067                                    R57FLAG                               
026859,002777: 31,2231           77624                           CALL                                           
026860,002778: 31,2232           30002                                    R52                                   
026861,002779: 31,2233           43014                           CLEAR    CLEAR                                 
026862,002780: 31,2234           04664                                    V94FLAG                               
026863,002781: 31,2235           03267                                    R57FLAG                               
026864,002782: 31,2236           77776        P23.60             EXIT                                           
026865,002783: 31,2237           00004                           INHINT                                         
026866,002784: 31,2240           31330                           CA       MARKSTAT                              
026867,002785: 31,2241           74747                           MASK     LOW10                                 
026868,002786: 31,2242           55242                           TS       MARKDATA                              
026869,002787: 31,2243           00006                           EXTEND                                         
026870,002788: 31,2244           51242                           INDEX    MARKDATA                              
026871,002789: 31,2245           30001                           DCA      0                                     
026872,002790: 31,2246           53225                           DXCH     MARKTIME                              
026873,002791: 31,2247           51242                           INDEX    MARKDATA                              
026874,002792: 31,2250           30005                           CA       5                                     
026875,002793: 31,2251           57754                           XCH      TRUNION                               
026876,002794: 31,2252           00003                           RELINT                                         
026877,002795: 31,2253           33051                           CAF      V05N71                                
026878,002796: 31,2254           04555                           TC       BANKCALL                              
026879,002797: 31,2255           20624                           CADR     GOFLASH                               
026880,002798: 31,2256           04106                           TC       GOTOPOOH                              #  TERMINATE
026881,002799: 31,2257           02261                           TC       P23.65                                #  STORE DATA
026882,002800: 31,2260           02253                           TC       -5                                    #  REDISPLAY
026883,002801: 31,2261           06006        P23.65             TC       INTPRET                               
026884,002802: 31,2262           77414                           SET      EXIT                                  
026885,002803: 31,2263           04465                                    SAVECFLG                              
026886,002804: 31,2264           02070                           TC       P23.15                                
026887,002805: 31,2265           45014        P23.85             CLEAR    CALL                                  
026888,002806: 31,2266           02676                                    RENDWFLG                              
026889,002807: 31,2267           62272                                    POINTAXS                              
026890,002808: 31,2270           77650                           GOTO                                           
026891,002809: 31,2271           62364                                    R23.55                                
026892,002810:                                                                                                  #  WE BEGIN CALCULATIONS HERE
026893,002811:                                                                                                  #  POINTAXIS SUBROUTINE
026894,002812: 31,2272           67220        POINTAXS           STQ      SLOAD                                 

Page 612

026896,002814: 31,2273           01150                                    POINTEX                               
026897,002815: 31,2274           02752                                    LANDMARK                              #  IF LANDMARK=0 HORIZON IS DESIRED.
026898,002816: 31,2275           67230                           BHIZ     SLOAD                                 #  DO NOT PICK UP LMK VALUES FROM TABLE
026899,002817: 31,2276           62307                                    R23.05                                #  OR DISPLAY IN HORIZON CASE
026900,002818: 31,2277           02754                                    IDOFLMK                               
026901,002819: 31,2300           45030                           BHIZ     CALL                                  
026902,002820: 31,2301           62305                                    R23.0                                 
026903,002821: 31,2302           63064                                    LUNLMKLD                              
026904,002822: 31,2303           77650                           GOTO                                           
026905,002823: 31,2304           62307                                    R23.05                                
026906,002824: 31,2305           77624        R23.0              CALL                                           #  MUST BE DONE 2ND TIME, TO ALLOW CHANGES
026907,002825: 31,2306           61345                                    LLASRDA                               
026908,002826: 31,2307           71214        R23.05             BON      DLOAD                                 
026909,002827: 31,2310           01711                                    ORBWFLAG                              
026910,002828: 31,2311           62315                                    R23.1                                 
026911,002829: 31,2312           03001                                    WMIDPOS                               
026912,002830: 31,2313           34001                           STCALL   0                                     
026913,002831: 31,2314           56544                                    INITIALW                              #  INITIALIZE W-MATRIX FIRST PASS IN P23
026914,002832: 31,2315           77624        R23.1              CALL                                           
026915,002833: 31,2316           56343                                    SETINTG                               #  SETUP FOR CSM INTEGRATION
026916,002834: 31,2317           43014                           BOF      SET                                   
026917,002835: 31,2320           01751                                    ORBWFLAG                              
026918,002836: 31,2321           62323                                    R23.2                                 
026919,002837: 31,2322           01476                                    DIM0FLAG                              
026920,002838: 31,2323           45014        R23.2              SET      CALL                                  
026921,002839: 31,2324           01471                                    ORBWFLAG                              
026922,002840: 31,2325           27113                                    INTEGRV                               #  INTEGRATE CSM STATE VEC. TO MARKTIME
026923,002841: 31,2326           77776                           EXIT                                           
026924,002842: 31,2327           05301                           TC       PHASCHNG                              
026925,002843: 31,2330           04022                           OCT      04022                                 
026926,002844: 31,2331           06006                           TC       INTPRET                               
026927,002845: 31,2332           77624                           CALL                                           
026928,002846: 31,2333           62767                                    RECT.1                                #  PICKUP CSM STATE VECTOR FROM PERM
026929,002847: 31,2334           77214                           BOFF     VLOAD                                 
026930,002848: 31,2335           00345                                    ZMEASURE                              #  IN SPHERE OF INFLUENCE OF PRIMARY BODY
026931,002849: 31,2336           62341                                    R23.3                                 
026932,002850: 31,2337           02272                                    RQVV                                  #  CALCULATED BY INTEGRATION  B29
026933,002851: 31,2340           03627                           STORE    RZC                                   
026934,002852: 31,2341           46135        R23.3              SLOAD    BHIZ                                  
026935,002853: 31,2342           02752                                    LANDMARK                              #  IF LANDMARK = 0, USE HORIZ SUBR
026936,002854: 31,2343           62353                                    R23.4                                 
026937,002855: 31,2344           77614                           SET                                            
026938,002856: 31,2345           00462                                    ERADFLAG                              
026939,002857: 31,2346           45145                           DLOAD    CALL                                  
026940,002858: 31,2347           01225                                    MARKTIME                              
026941,002859: 31,2350           26373                                    LALOTORV                              
026942,002860: 31,2351           77650                           GOTO                                           
026943,002861: 31,2352           62355                                    R23.5                                 
026944,002862: 31,2353           77624        R23.4              CALL                                           
026945,002863: 31,2354           62527                                    HORIZ                                 

Page 613

026947,002865: 31,2355           03665        R23.5              STORE    RL                                    
026948,002866: 31,2356           40251                           VSU      SETPD                                 
026949,002867: 31,2357           03627                                    RZC                                   
026950,002868: 31,2360           00001                                    0                                     
026951,002869: 31,2361           03657                           STORE    RCLL                                  
026952,002870: 31,2362           77650                           GOTO                                           
026953,002871: 31,2363           01150                                    POINTEX                               

Page 614

026955,002873: 
026956,002874: 31,2364           41456        R23.55             UNIT     PUSH                                  #  RCLL IS IN MPAC
026957,002875: 31,2365           77775                           VLOAD                                          
026958,002876: 31,2366           00043                                    34D                                   #  RCLL * RCLL
026959,002877: 31,2367           24037                           STOVL    30D                                   #  PUSH 30-31 =RCLL*RCLL 32-33=ABVAL RCLL
026960,002878: 31,2370           03635                                    VZC                                   
026961,002879: 31,2371           54361                           VXSC     VSR                                   
026962,002880: 31,2372           23030                                    ONE/C                                 
026963,002881: 31,2373           20620                                    15D                                   
026964,002882: 31,2374           77655                           VAD                                            #  PUSH UP RCLL(UNIT)
026965,002883: 31,2375           77656                           UNIT                                           
026966,002884: 31,2376           27643                           STOVL    UCLSTAR                               
026967,002885: 31,2377           03635                                    VZC                                   
026968,002886: 31,2400           52342                           VSR2     VSU                                   
026969,002887: 31,2401           02141                                    VESO                                  
026970,002888: 31,2402           54361                           VXSC     VSR                                   
026971,002889: 31,2403           23030                                    ONE/C                                 
026972,002890: 31,2404           20616                                    13D                                   
026973,002891: 31,2405           53455                           VAD      UNIT                                  
026974,002892: 31,2406           02617                                    US                                    
026975,002893: 31,2407           03651                           STORE    USSTAR                                
026976,002894: 31,2410           72441                           DOT      SL1                                   
026977,002895: 31,2411           03643                                    UCLSTAR                               
026978,002896: 31,2412           77206                           PUSH     VLOAD                                 #  PD 0,1 = USSTAR(DOT)UCLSTAR
026979,002897: 31,2413           03643                                    UCLSTAR                               
026980,002898: 31,2414           57561                           VXSC     VCOMP                                 
026981,002899: 31,2415           53372                           VSL1     VAD                                   
026982,002900: 31,2416           03651                                    USSTAR                                
026983,002901: 31,2417           77656                           UNIT                                           
026984,002902: 31,2420           27502                           STOVL    BVECTOR                               #  USSTAR - COSQ(UCLSTAR
026985,002903: 31,2421           15332                                    ZEROVECS                              
026986,002904: 31,2422           03510                           STORE    BVECTOR    +6                         
026987,002905: 31,2423           17516                           STODL    BVECTOR    +12D                       
026988,002906: 31,2424           00001                                    0                                     
026989,002907: 31,2425           57526                           ACOS     DCOMP                                 
026990,002908: 31,2426           71206                           PUSH     DLOAD                                 
026991,002909: 31,2427           15332                                    ZEROVECS                              
026992,002910: 31,2430           77776                           EXIT                                           
026993,002911: 31,2431           33041                           CA       VARSUBL                               #  PUT FIXED INTO ERASABLE FOR MSU
026994,002912: 31,2432           54001                           TS       L                                     #  INSTRUCTION COMING UP
026995,002913: 31,2433           31754                           CA       TRUNION                               #  REQUIRED TO CHANGE 2:S COMPLEMENT
026996,002914: 31,2434           00006                           EXTEND                                         #  TRUNION TO 1:S COMPLEMENT
026997,002915: 31,2435           20001                           MSU      L                                     #  TRUNION (2'S)-00000 CONVERTS TRUNION TO
026998,002916: 31,2436           54154                           TS       MPAC                                  #  1:S. VARSUBL=00000
026999,002917: 31,2437           06006                           TC       INTPRET                               
027000,002918: 31,2440           67206                           PUSH     SLOAD                                 #  PUSH IS DP. WHEN BDSU IS EXECUTED, 2ND
027001,002919: 31,2441           01343                                    TRUNBIAS                              #  HALF OF PUSHLIST IS GUARANTEED ZERO FROM
027002,002920: 31,2442           77621                           BDSU                                           #  DLOAD ZEROVECS ABOVE
027003,002921: 31,2443           43242                           SR3      DAD                                   
027004,002922: 31,2444           41215                           DAD      DMP                                   

Page 615

027006,002924: 31,2445           23036                                    TRUN19                                
027007,002925: 31,2446           00041                                    32D                                   
027008,002926: 31,2447           52405                           DMP      SL3                                   
027009,002927: 31,2450           07107                                    PI/4.0                                
027010,002928: 31,2451           62414                           BOFF     SL2                                   
027011,002929: 31,2452           04343                                    CMOONFLG                              
027012,002930: 31,2453           62454                                    R23.51                                
027013,002931: 31,2454           17524        R23.51             STODL    DELTAQ                                
027014,002932: 31,2455           00037                                    30D                                   #  RCLL * RCLL
027015,002933: 31,2456           47005                           DMP      RTB                                   
027016,002934: 31,2457           23045                                    TRUNVAR                               
027017,002935: 31,2460           45562                                    TPMODE                                
027018,002936: 31,2461           77771                           TAD                                            
027019,002937: 31,2462           23042                                    VARSUBL                               
027020,002938: 31,2463           03526                           STORE    VARIANCE                              
027021,002939: 31,2464           45014                           CLEAR    CALL                                  
027022,002940: 31,2465           02666                                    DMENFLG                               
027023,002941: 31,2466           75250                                    INCORP1                               
027024,002942: 31,2467           77624                           CALL                                           
027025,002943: 31,2470           56712                                    GRP2PC                                
027026,002944: 31,2471           51575                           VLOAD    ABVAL                                 
027027,002945: 31,2472           01265                                    DELTAX     +6                         
027028,002946: 31,2473           60414                           BOF      SR2                                   #  DISPLAY IS 2-27 IF IN LUNAR SPHERE
027029,002947: 31,2474           04343                                    CMOONFLG                              
027030,002948: 31,2475           62476                                    R23.52                                
027031,002949: 31,2476           27504        R23.52             STOVL    N49DISP    +2                         
027032,002950: 31,2477           01257                                    DELTAX                                
027033,002951: 31,2500           77646                           ABVAL                                          
027034,002952: 31,2501           60414                           BOF      SR2                                   
027035,002953: 31,2502           04343                                    CMOONFLG                              
027036,002954: 31,2503           62504                                    R23.53                                
027037,002955: 31,2504           03502        R23.53             STORE    N49DISP                               
027038,002956: 31,2505           77776                           EXIT                                           
027039,002957: 31,2506           33046        R23.6              CAF      V6N49                                 
027040,002958: 31,2507           04555                           TC       BANKCALL                              
027041,002959: 31,2510           20763                           CADR     GOFLASHR                              
027042,002960: 31,2511           02506                           TC       R23.6                                 #  DONT ALLOW
027043,002961: 31,2512           02521                           TC       R23.7                                 #  INCORPORATE DATA
027044,002962: 31,2513           02047                           TC       P23.00                                #  RECYCLE FOR ANOTHER MARK
027045,002963: 31,2514           34710                           CAF      BIT3                                  #  BLANK OUT R3
027046,002964: 31,2515           05415                           TC       BLANKET                               
027047,002965: 31,2516           05301                           TC       PHASCHNG                              
027048,002966: 31,2517           00012                           OCT      00012                                 
027049,002967: 31,2520           05112                           TC       ENDOFJOB                              
027050,002968: 31,2521           06006        R23.7              TC       INTPRET                               
027051,002969: 31,2522           45014        R23.8              SET      CALL                                  
027052,002970: 31,2523           00467                                    VEHUPFLG                              
027053,002971: 31,2524           75460                                    INCORP2                               
027054,002972: 31,2525           77776                           EXIT                                           
027055,002973: 31,2526           04106        R23.END            TC       GOTOPOOH                              

Page 616

027057,002975: 31,2527           40220        HORIZ              STQ      SETPD                                 
027058,002976: 31,2530           03672                                    SRRETURN                              
027059,002977: 31,2531           00001                                    0                                     
027060,002978: 31,2532           65345                           DLOAD    PDDL                                  #  PUSH 0-1 = -AYO SCALED B0
027061,002979: 31,2533           01714                                    -AYO                                  
027062,002980: 31,2534           01716                                    AXO                                   
027063,002981: 31,2535           63325                           PDDL     PDVL                                  #  PUSH 2-3 = +AX SCALED B0
027064,002982: 31,2536           15340                                    DPPOSMAX                              
027065,002983: 31,2537           02617                                    US                                    
027066,002984: 31,2540           53435                           VXV      UNIT                                  
027067,002985: 31,2541           03627                                    RZC                                   
027068,002986: 31,2542           27621                           STOVL    UBAR2                                 
027069,002987: 31,2543           53435                           VXV      UNIT                                  #  PUSH UP
027070,002988: 31,2544           03621                                    UBAR2                                 
027071,002989: 31,2545           27605                           STOVL    UBAR0                                 
027072,002990: 31,2546           03621                                    UBAR2                                 
027073,002991: 31,2547           53435                           VXV      UNIT                                  
027074,002992: 31,2550           03605                                    UBAR0                                 
027075,002993: 31,2551           03613                           STORE    UBAR1                                 
027076,002994: 31,2552           50214                           BON      DOT                                   
027077,002995: 31,2553           01703                                    LUNAFLAG                              
027078,002996: 31,2554           62752                                    HORIZ.6                               
027079,002997: 31,2555           00001                                    0                                     #  UBAR1 DOT UZ
027080,002998: 31,2556           36156                           STCALL   ALPHAV     +4                         
027081,002999: 31,2557           26437                                    GETERAD                               
027082,003000: 31,2560           65215                           DAD      PDDL                                  #  MPAC HAS RADIUS OF FISHER SLLIPSOID
027083,003001: 31,2561           01355                                    HORIZALT                              #  PUSH 0-1 = BH SCALED B29
027084,003002: 31,2562           23032                                    AEARTH                                
027085,003003: 31,2563           41415                           DAD      PUSH                                  #  PUSH 2-3 = AH B29
027086,003004: 31,2564           01355                                    HORIZALT                              
027087,003005: 31,2565           64375        HORIZ.1            VLOAD    MXV                                   
027088,003006: 31,2566           03627                                    RZC                                   #  B29
027089,003007: 31,2567           03605                                    UBAR0                                 #  B1
027090,003008: 31,2570           63372                           VSL1     PDVL                                  #  PUSH 4-9 = RH(XH,YH,ZH) B29
027091,003009: 31,2571           02617                                    US                                    
027092,003010: 31,2572           76521                           MXV      VSL1                                  
027093,003011: 31,2573           03605                                    UBAR0                                 
027094,003012: 31,2574           77725                           PDDL                                           #  PUSH 10-15 = USH B1
027095,003013: 31,2575           00003                                    2                                     #  AH
027096,003014: 31,2576           14043                           STODL    34D                                   
027097,003015: 31,2577           00005                                    4                                     #  XH
027098,003016: 31,2600           77624                           CALL                                           
027099,003017: 31,2601           62756                                    DIVIDE                                
027100,003018: 31,2602           41257                           SR*      DMP                                   
027101,003019: 31,2603           20611                                    8D,1                                  #  NOW SCALED B9
027102,003020: 31,2604           00155                                    MPAC                                  
027103,003021: 31,2605           14037                           STODL    30D                                   
027104,003022: 31,2606           00001                                    0                                     
027105,003023: 31,2607           14043                           STODL    34D                                   
027106,003024: 31,2610           00007                                    6                                     #  YH

Page 617

027108,003026: 31,2611           77624                           CALL                                           
027109,003027: 31,2612           62756                                    DIVIDE                                
027110,003028: 31,2613           41257                           SR*      DMP                                   
027111,003029: 31,2614           20611                                    8D,1                                  #  B9
027112,003030: 31,2615           00155                                    MPAC                                  #  B18
027113,003031: 31,2616           41415                           DAD      PUSH                                  #  PUSH 16-17 =A SCALED  B18
027114,003032: 31,2617           00037                                    30D                                   
027115,003033: 31,2620           75425                           DSU      SQRT                                  
027116,003034: 31,2621           23040                                    1.0B18                                
027117,003035: 31,2622           77725                           PDDL                                           #  PUSH 18-19  SQRT(A-1) B9
027118,003036: 31,2623           00021                                    16D                                   
027119,003037: 31,2624           14043                           STODL    34D                                   
027120,003038: 31,2625           00005                                    4                                     #  XH
027121,003039: 31,2626           77624                           CALL                                           
027122,003040: 31,2627           62756                                    DIVIDE                                
027123,003041: 31,2630           65257                           SR*      PDDL                                  
027124,003042: 31,2631           20622                                    17D,1                                 #  PUSH 20-21 = XH/A B29
027125,003043: 31,2632           00007                                    6                                     #  YH
027126,003044: 31,2633           77624                           CALL                                           
027127,003045: 31,2634           62756                                    DIVIDE                                
027128,003046: 31,2635           65257                           SR*      PDDL                                  
027129,003047: 31,2636           20622                                    17D,1                                 #  PUSH 22-23 = YH/A B29
027130,003048: 31,2637           00021                                    16D                                   #  A
027131,003049: 31,2640           14043                           STODL    34D                                   
027132,003050: 31,2641           00023                                    18D                                   #  SQRT(A-1)
027133,003051: 31,2642           77624                           CALL                                           
027134,003052: 31,2643           62756                                    DIVIDE                                
027135,003053: 31,2644           77657                           SR*                                            
027136,003054: 31,2645           20611                                    8D,1                                  
027137,003055: 31,2646           14035                           STODL    28D                                   
027138,003056: 31,2647           00001                                    0                                     #  BH
027139,003057: 31,2650           14043                           STODL    34D                                   
027140,003058: 31,2651           00003                                    2                                     #  AH
027141,003059: 31,2652           77624                           CALL                                           
027142,003060: 31,2653           62756                                    DIVIDE                                
027143,003061: 31,2654           41257                           SR*      DMP                                   #  AH/BH  SCALED  B1
027144,003062: 31,2655           20601                                    0,1                                   
027145,003063: 31,2656           00035                                    28D                                   #  SQRT(A-1)/A
027146,003064: 31,2657           72405                           DMP      SL1                                   
027147,003065: 31,2660           00007                                    6                                     #  YH
027148,003066: 31,2661           77725                           PDDL                                           
027149,003067: 31,2662           00003                                    2                                     #  AH
027150,003068: 31,2663           14043                           STODL    34D                                   
027151,003069: 31,2664           00001                                    0                                     
027152,003070: 31,2665           77624                           CALL                                           
027153,003071: 31,2666           62756                                    DIVIDE                                
027154,003072: 31,2667           41257                           SR*      DMP                                   #  BH/AH  SCALED  B1
027155,003073: 31,2670           20601                                    0,1                                   
027156,003074: 31,2671           00035                                    28D                                   #  SQRT (A-1)/A
027157,003075: 31,2672           72405                           DMP      SL1                                   

Page 618

027159,003077: 31,2673           00005                                    4                                     #  XH
027160,003078: 31,2674           43325                           PDDL     DAD                                   
027161,003079: 31,2675           00025                                    20D                                   #  XH/A
027162,003080: 31,2676           00031                                    24D                                   #  ALPHA
027163,003081: 31,2677           45325                           PDDL     DSU                                   
027164,003082: 31,2700           00027                                    22D                                   #  YH/A
027165,003083: 31,2701           00033                                    26D                                   #  BETA
027166,003084: 31,2702           40206                           PUSH     SETPD                                 
027167,003085: 31,2703           00021                                    16D                                   
027168,003086: 31,2704           45345                           DLOAD    DSU                                   
027169,003087: 31,2705           00025                                    20D                                   #  XH/A
027170,003088: 31,2706           00031                                    24D                                   #  ALPHA
027171,003089: 31,2707           43325                           PDDL     DAD                                   
027172,003090: 31,2710           00027                                    22D                                   #  YH/A
027173,003091: 31,2711           00033                                    26D                                   #  BETA
027174,003092: 31,2712           41525                           PDDL     PUSH                                  
027175,003093: 31,2713           15332                                    ZEROVECS                              
027176,003094: 31,2714           24041                           STOVL    32D                                   #  ZERO THIRD COMP. OF T-0 VECTOR
027177,003095: 31,2715           00035                                    28D                                   
027178,003096: 31,2716           53451                           VSU      UNIT                                  
027179,003097: 31,2717           00005                                    4                                     #  RH VECTOR
027180,003098: 31,2720           63241                           DOT      PDVL                                  #  PUSH 22-23 A-SUB-ZERO
027181,003099: 31,2721           00013                                    10D                                   #  USH VECTOR
027182,003100: 31,2722           00021                                    16D                                   #  T1 VECTOR
027183,003101: 31,2723           53451                           VSU      UNIT                                  
027184,003102: 31,2724           00005                                    4                                     #  RH VECTOR
027185,003103: 31,2725           41441                           DOT      PUSH                                  #  PUSH 24-25 A-SUB-ONE
027186,003104: 31,2726           00013                                    10D                                   
027187,003105: 31,2727           50021                           BDSU     BMN                                   
027188,003106: 31,2730           00027                                    22D                                   #  A-SUB-ZERO
027189,003107: 31,2731           62740                                    HORIZ.3                               
027190,003108: 31,2732           77614                           BON                                            
027191,003109: 31,2733           00304                                    NORFHOR                               
027192,003110: 31,2734           62744                                    HORIZ.4                               
027193,003111: 31,2735           52175        HORIZ.2            VLOAD    GOTO                                  
027194,003112: 31,2736           00035                                    28D                                   #  T-0 VECTOR
027195,003113: 31,2737           62746                                    HORIZ.5                               
027196,003114: 31,2740           52014        HORIZ.3            BON      GOTO                                  
027197,003115: 31,2741           00304                                    NORFHOR                               
027198,003116: 31,2742           62735                                    HORIZ.2                               
027199,003117: 31,2743           62744                                    HORIZ.4                               
027200,003118: 31,2744           77775        HORIZ.4            VLOAD                                          
027201,003119: 31,2745           00021                                    16D                                   #  T1 VECTOR
027202,003120: 31,2746           76505        HORIZ.5            VXM      VSL1                                  
027203,003121: 31,2747           03605                                    UBAR0                                 
027204,003122: 31,2750           77650                           GOTO                                           
027205,003123: 31,2751           03672                                    SRRETURN                              
027206,003124: 31,2752           41545        HORIZ.6            DLOAD    PUSH                                  
027207,003125: 31,2753           23034                                    RADMOON                               
027208,003126: 31,2754           52006                           PUSH     GOTO                                  

Page 619

027210,003128: 31,2755           62565                                    HORIZ.1                               
027211,003129: 31,2756           70501        DIVIDE             NORM     SR1                                   
027212,003130: 31,2757           00047                                    X1                                    
027213,003131: 31,2760           14045                           STODL    36D                                   
027214,003132: 31,2761           00043                                    34D                                   
027215,003133: 31,2762           55301                           NORM     BDDV                                  
027216,003134: 31,2763           00051                                    S1                                    
027217,003135: 31,2764           00045                                    36D                                   
027218,003136: 31,2765           43460                           XSU,1    RVQ                                   
027219,003137: 31,2766           00050                                    S1                                    
027220,003138: 31,2767           77014        RECT.1             BOFF     AXT,2                                 #  SR TO SET ZMEASURE = 0 IF MEASUREMENT
027221,003139: 31,2770           04343                                    CMOONFLG                              #   PLANET AND PRIMARY PLANET ARE THE SAME
027222,003140: 31,2771           63001                                    RECT.3                                #    OTHERWISE = 1
027223,003141: 31,2772           77775                           DEC      -2         B-14                       
027224,003142: 31,2773           77614                           BOFF                                           #      VEC. AND SCALE B29 AND B7
027225,003143: 31,2774           01743                                    LUNAFLAG                              
027226,003144: 31,2775           63005                                    RECT.4                                
027227,003145: 31,2776           52014        RECT.2             CLEAR    GOTO                                  
027228,003146: 31,2777           00265                                    ZMEASURE                              
027229,003147: 31,3000           63007                                    RECT.5                                
027230,003148: 31,3001           43174        RECT.3             AXT,2    BOFF                                  
027231,003149: 31,3002           00000                                    0                                     
027232,003150: 31,3003           01743                                    LUNAFLAG                              
027233,003151: 31,3004           62776                                    RECT.2                                
027234,003152: 31,3005           77614        RECT.4             SET                                            
027235,003153: 31,3006           00065                                    ZMEASURE                              
027236,003154: 31,3007           44575        RECT.5             VLOAD    VSR7                                  
027237,003155: 31,3010           01573                                    DELTACSM                              #  SCALED B22  OR  B18
027238,003156: 31,3011           53257                           VSR*     VAD                                   
027239,003157: 31,3012           57176                                    0,2                                   
027240,003158: 31,3013           01607                                    RCVCSM                                #  SCALED B29  OR  B27
027241,003159: 31,3014           77657                           VSR*                                           
027242,003160: 31,3015           57176                                    0,2                                   
027243,003161: 31,3016           27627                           STOVL    RZC                                   #  NOW SCALED B29
027244,003162: 31,3017           01601                                    NUVCSM                                #  SCALED B3  OR  B-1
027245,003163: 31,3020           53702                           VSR4     VSR*                                  
027246,003164: 31,3021           57176                                    0,2                                   
027247,003165: 31,3022           53655                           VAD      VSR*                                  
027248,003166: 31,3023           01615                                    VCVCSM                                #  SCALED B7  OR  B5
027249,003167: 31,3024           57176                                    0,2                                   
027250,003168: 31,3025           03635                           STORE    VZC                                   #  NOW SCALED B7
027251,003169: 31,3026           77616                           RVQ                                            
027252,003170: 31,3027           26305 05432  ONE/C              2DEC*    .333564049 E-6        B+21*           
027253,003171: 31,3031           00302 24533  AEARTH             2DEC     6378166    B-29                       #  A AXIS OF EARTH(METERS B-29)
027254,003172: 31,3033           00065 01265  RADMOON            2DEC     1738090    B-29                       #  RADIUS OF MOON IN METERS
027255,003173: 31,3035           01604        TRUN19             OCT      01604                                 
027256,003174: 31,3036           00000        TRUN19A            OCT      00000                                 

Page 620

027258,003176: 31,3037           00000 02000  1.0B18             2DEC     1.0        B-18                       
027259,003177: 31,3041           00000        VARSUBL            DEC      0          B-14                       
027260,003178: 31,3042           01505 14100  VARSUBL3           2DEC*    3.4299040  E+6        B-26*           
027261,003179: 31,3044           00012 27462  TRUNVAR            2DEC     2.5        E-9        B+18            
027262,003180: 31,3046           01461        V6N49              VN       0649                                  
027263,003181: 31,3047           01531        V6N89              VN       0689                                  
027264,003182: 31,3050           01306        V05N70             VN       0570                                  
027265,003183: 31,3051           01307        V05N71             VN       0571                                  
027266,003184: 31,3052           00077        OCT00077           OCT      00077                                 
027267,003185: 31,3053           00202        V50N25P            OCT      00202                                 
027268,003186: 31,3054           00006        SPSIX              OCT      00006                                 
027269,003187: 31,3055           10461 21675  JCAXIS             2DEC     .268649805                            #  TRACK AXIS
027270,003188: 31,3057           00000 00000                     2DEC     0          B-28                       
027271,003189: 31,3061           15375 02004                     2DEC     .421695725                            
027272,003190: 31,3063           62217        R60ADRS            CADR     R60CALL    +3                         
027273,003191: 31,3064           77735        LUNLMKLD           SLOAD                                          
027274,003192: 31,3065           02754                                    IDOFLMK                               
027275,003193: 31,3066           45230                           BHIZ     DSU                                   
027276,003194: 31,3067           63101                                    LNLMKEND                              
027277,003195: 31,3070           21646                                    9DWID                                 
027278,003196: 31,3071           70152                           SL1      LXC,1                                 
027279,003197: 31,3072           00154                                    MPAC                                  
027280,003198: 31,3073           64743                           DLOAD*   PDDL*                                 
027281,003199: 31,3074           23705                                    ALTTAB,1                              
027282,003200: 31,3075           23623                                    LONGTAB,1                             
027283,003201: 31,3076           55523                           PDDL*    VDEF                                  
027284,003202: 31,3077           23541                                    LATTAB,1                              
027285,003203: 31,3100           01104                           STORE    LAT                                   
027286,003204: 31,3101           77616        LNLMKEND           RVQ                                            
027287,003205: 14,2000                                           SETLOC   RT53                                  
027288,003206: 14,2000                                           BANK                                           
027289,003207: 14,2000           43573        LOWMEMRY           VLOAD*   RVQ                                   
027290,003208: 14,2001           31751                                    CATLOG,1                              
027291,003209:    4550                                           BLOCK    02                                    
027292,003210:    4550           00006        GOTOV56            EXTEND                                         #  P20 TERMINATES BY GOTOV56 INSTEAD OF
027293,003211:    4551           34554                           DCA      VB56CADR                              #   GOTOPOOH
027294,003212:    4552           15122                           TCF      SUPDXCHZ                              
027295,003213:    4553  0003777                                  EBANK=   WHOCARES                              
027296,003214:    4553           02642 66107  VB56CADR           2CADR    TRACKTRM                              
027297,003215:    4000                                           SETLOC   FFTAG2                                
027298,003216:    4000                                           BANK                                           
027299,003217:    4555                                           COUNT*   $$/P20                                
027300,003218: 40,3571                                           BANK     40                                    

Page 621

027302,003220: 40,3571                                           SETLOC   ENDPINS1                              
027303,003221: 40,3571                                           BANK                                           
027304,003222: 40,3571                                           COUNT*   $$/EXTVB                              
027305,003223: 40,3571           06006        V67CALL            TC       INTPRET                               
027306,003224: 40,3572           77624                           CALL                                           
027307,003225: 40,3573           61653                                    V67WW                                 
027308,003226: 40,3574           77776                           EXIT                                           
027309,003227: 40,3575           33727        V06N99DS           CAF      V06N99A                               
027310,003228: 40,3576           04555                           TC       BANKCALL                              
027311,003229: 40,3577           20465                           CADR     GOXDSPF                               
027312,003230: 40,3600           15423                           TCF      ENDEXT                                
027313,003231: 40,3601           03605                           TC       V06N9933                              
027314,003232: 40,3602           05435                           TC       UPFLAG                                
027315,003233: 40,3603           00210                           ADRES    V67FLAG                               
027316,003234: 40,3604           03575                           TC       V06N99DS                              
027317,003235: 40,3605           06006        V06N9933           TC       INTPRET                               
027318,003236: 40,3606           77414                           BON      EXIT                                  
027319,003237: 40,3607           04701                                    V67FLAG                               
027320,003238: 40,3610           61612                                    +2                                    
027321,003239: 40,3611           15423                           TCF      ENDEXT                                
027322,003240: 40,3612           41345                           DLOAD    DMP                                   
027323,003241: 40,3613           02321                                    WWPOS                                 
027324,003242: 40,3614           21731                                    1/SQRT3                               
027325,003243: 40,3615           71350                           LXA,1    DLOAD                                 
027326,003244: 40,3616           00154                                    MPAC                                  
027327,003245: 40,3617           02323                                    WWVEL                                 
027328,003246: 40,3620           73005                           DMP      LXA,2                                 
027329,003247: 40,3621           21731                                    1/SQRT3                               
027330,003248: 40,3622           00154                                    MPAC                                  
027331,003249: 40,3623           45335                           SLOAD    DSU                                   
027332,003250: 40,3624           02325                                    WWOPT                                 
027333,003251: 40,3625           21733                                    V67DEC2                               
027334,003252: 40,3626           51030                           BHIZ     BPL                                   
027335,003253: 40,3627           61636                                    V67WORB                               
027336,003254: 40,3630           61643                                    V67WMID                               
027337,003255: 40,3631           67130                           SXA,1    SXA,2                                 
027338,003256: 40,3632           02000                                    WRENDPOS                              
027339,003257: 40,3633           02001                                    WRENDVEL                              
027340,003258: 40,3634           77650                           GOTO                                           
027341,003259: 40,3635           61646                                    V67EXITX                              
027342,003260: 40,3636           67130        V67WORB            SXA,1    SXA,2                                 
027343,003261: 40,3637           02004                                    WORBPOS                               
027344,003262: 40,3640           02005                                    WORBVEL                               
027345,003263: 40,3641           77650                           GOTO                                           
027346,003264: 40,3642           61646                                    V67EXITX                              
027347,003265: 40,3643           67130        V67WMID            SXA,1    SXA,2                                 
027348,003266: 40,3644           03000                                    WMIDPOS                               
027349,003267: 40,3645           03001                                    WMIDVEL                               
027350,003268: 40,3646           43014        V67EXITX           CLEAR    CLEAR                                 
027351,003269: 40,3647           01671                                    ORBWFLAG                              

Page 622

027353,003271: 40,3650           02676                                    RENDWFLG                              
027354,003272: 40,3651           77776                           EXIT                                           
027355,003273: 40,3652           15423                           TCF      ENDEXT                                
027356,003274: 40,3653           40020        V67WW              STQ      BOV                                   
027357,003275: 40,3654           00051                                    S2                                    
027358,003276: 40,3655           61656                                    +1                                    
027359,003277: 40,3656           45014                           CLEAR    CALL                                  
027360,003278: 40,3657           04661                                    V67FLAG                               
027361,003279: 40,3660           27371                                    INTSTALL                              
027362,003280: 40,3661           71331                           SSP      DLOAD                                 
027363,003281: 40,3662           00051                                    S1                                    
027364,003282: 40,3663           00006                           DEC      6          B-14                       
027365,003283: 40,3664           15332                                    ZEROVECS                              
027366,003284: 40,3665           02321                           STORE    WWPOS                                 
027367,003285: 40,3666           02323                           STORE    WWVEL                                 
027368,003286: 40,3667           02325                           STORE    WWOPT                                 
027369,003287: 40,3670           77770                           AXT,1                                          
027370,003288: 40,3671           00066                           DEC      54         B-14                       
027371,003289: 40,3672           47573        NXPOSVEL           VLOAD*   VSQ                                   
027372,003290: 40,3673           02467                                    W          +54D,1                     
027373,003291: 40,3674           77615                           DAD                                            
027374,003292: 40,3675           02321                                    WWPOS                                 
027375,003293: 40,3676           02321                           STORE    WWPOS                                 
027376,003294: 40,3677           47573                           VLOAD*   VSQ                                   
027377,003295: 40,3700           02555                                    W          +108D,1                    
027378,003296: 40,3701           77615                           DAD                                            
027379,003297: 40,3702           02323                                    WWVEL                                 
027380,003298: 40,3703           02323                           STORE    WWVEL                                 
027381,003299: 40,3704           75500                           TIX,1    SQRT                                  
027382,003300: 40,3705           61672                                    NXPOSVEL                              
027383,003301: 40,3706           16323                           STODL    WWVEL                                 
027384,003302: 40,3707           02321                                    WWPOS                                 
027385,003303: 40,3710           77766                           SQRT                                           
027386,003304: 40,3711           02321                           STORE    WWPOS                                 
027387,003305: 40,3712           52000                           BOV      GOTO                                  
027388,003306: 40,3713           61715                                    +2                                    
027389,003307: 40,3714           61721                                    V67XXX                                
027390,003308: 40,3715           77745                           DLOAD                                          
027391,003309: 40,3716           15340                                    DPPOSMAX                              
027392,003310: 40,3717           02321                           STORE    WWPOS                                 
027393,003311: 40,3720           02323                           STORE    WWVEL                                 
027394,003312: 40,3721           66150        V67XXX             LXA,1    SXA,1                                 
027395,003313: 40,3722           00051                                    S2                                    
027396,003314: 40,3723           00052                                    QPRET                                 
027397,003315: 40,3724           77776                           EXIT                                           
027398,003316: 40,3725           04574                           TC       POSTJUMP                              
027399,003317: 40,3726           27406                           CADR     INTWAKE                               
027400,003318: 40,3727  E4,1720               WWPOS              =        RANGE                                 
027401,003319: 40,3727  E4,1722               WWVEL              =        RRATE                                 
027402,003320: 40,3727  E4,1724               WWOPT              =        RTHETA                                

Page 623

027404,003322: 40,3727           01543        V06N99A            VN       0699                                  
027405,003323: 40,3730           22363 11620  1/SQRT3            2DEC     0.5773502                             
027406,003324: 40,3732           00002 00000  V67DEC2            2DEC     2          B-14                       

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