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.

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

Page 550

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

Page 551

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

Page 552

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

Page 553

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

Page 554

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

Page 555

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

Page 556

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

Page 557

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

Page 558

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

Page 559

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

Page 560

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

Page 561

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

Page 562

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

Page 563

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

Page 564

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

Page 565

024772,000684: 23,3105           02317                                    EGRESS                                
024773,000685: 23,3106           31103 36652  PI/4.0             2DEC     .785398164                            
024774,000686: 

Page 566

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

Page 567

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

Page 568

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

Page 569

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

Page 570

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

Page 571

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

Page 572

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

Page 573

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

Page 574

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

Page 575

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

Page 576

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

Page 577

025323,001235: 27,2566           00002                                    1                                     #  VELOCITY VALUE
025324,001236: 27,2567           02511                           STORE    W          +72D                       #  INITIALIZE DIAGONAL W VELOCITY
025325,001237: 27,2570           02521                           STORE    W          +80D                       
025326,001238: 27,2571           02531                           STORE    W          +88D                       
025327,001239: 27,2572           77616                           RVQ                                            
025328,001240: 

Page 578

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

Page 579

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

Page 580

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

Page 581

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

Page 582

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

Page 583

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

Page 584

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

Page 585

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

Page 586

025723,001635: 34,3602           00001        LOONE              OCT      00001                                 #  TO SET MPAC = 00001 FOR SPECIAL EXIT.
025724,001636: 34,3603     7707               FURST3             EQUALS   13,14,15                              #  CONSTANT FOR AUTOCK (OCT 70000).
025725,001637: 

Page 587

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

Page 588

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

Page 589

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

Page 590

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

Page 591

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

Page 592

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

Page 593

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

Page 594

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

Page 595

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

Page 596

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

Page 597

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

Page 598

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

Page 599

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

Page 600

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

Page 601

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

Page 602

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

Page 603

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

Page 604

026580,002492: 
026581,002493: 

Page 605

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

Page 606

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

Page 607

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

Page 608

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

Page 609

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

Page 610

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

Page 611

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

Page 612

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

Page 613

026954,002866: 31,2355           03665        R23.5              STORE    RL                                    
026955,002867: 31,2356           40251                           VSU      SETPD                                 
026956,002868: 31,2357           03627                                    RZC                                   
026957,002869: 31,2360           00001                                    0                                     
026958,002870: 31,2361           03657                           STORE    RCLL                                  
026959,002871: 31,2362           77650                           GOTO                                           
026960,002872: 31,2363           01150                                    POINTEX                               

Page 614

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

Page 615

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

Page 616

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

Page 617

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

Page 618

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

Page 619

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

Page 620

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

Page 621

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

Page 622

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

Page 623

027411,003323: 40,3727           01543        V06N99A            VN       0699                                  
027412,003324: 40,3730           22363 11620  1/SQRT3            2DEC     0.5773502                             
027413,003325: 40,3732           00002 00000  V67DEC2            2DEC     2          B-14                       

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