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.

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

Page 550

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

Page 551

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

Page 552

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

Page 553

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

Page 554

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

Page 555

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

Page 556

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

Page 557

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

Page 558

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

Page 559

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

Page 560

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

Page 561

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

Page 562

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

Page 563

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

Page 564

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

Page 565

024776,000683: 23,3105           02317                                    EGRESS                                
024777,000684: 23,3106           31103 36652  PI/4.0             2DEC     .785398164                            
024778,000685: 

Page 566

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

Page 567

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

Page 568

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

Page 569

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

Page 570

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

Page 571

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

Page 572

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

Page 573

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

Page 574

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

Page 575

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

Page 576

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

Page 577

025327,001234: 27,2566           00002                                    1                                     #  VELOCITY VALUE
025328,001235: 27,2567           02511                           STORE    W          +72D                       #  INITIALIZE DIAGONAL W VELOCITY
025329,001236: 27,2570           02521                           STORE    W          +80D                       
025330,001237: 27,2571           02531                           STORE    W          +88D                       
025331,001238: 27,2572           77616                           RVQ                                            
025332,001239: 

Page 578

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

Page 579

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

Page 580

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

Page 581

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

Page 582

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

Page 583

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

Page 584

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

Page 585

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

Page 586

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

Page 587

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

Page 588

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

Page 589

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

Page 590

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

Page 591

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

Page 592

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

Page 593

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

Page 594

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

Page 595

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

Page 596

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

Page 597

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

Page 598

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

Page 599

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

Page 600

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

Page 601

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

Page 602

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

Page 603

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

Page 604

026584,002491: 
026585,002492: 

Page 605

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

Page 606

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

Page 607

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

Page 608

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

Page 609

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

Page 610

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

Page 611

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

Page 612

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

Page 613

026958,002865: 31,2355           03665        R23.5              STORE    RL                                    
026959,002866: 31,2356           40251                           VSU      SETPD                                 
026960,002867: 31,2357           03627                                    RZC                                   
026961,002868: 31,2360           00001                                    0                                     
026962,002869: 31,2361           03657                           STORE    RCLL                                  
026963,002870: 31,2362           77650                           GOTO                                           
026964,002871: 31,2363           01150                                    POINTEX                               

Page 614

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

Page 615

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

Page 616

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

Page 617

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

Page 618

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

Page 619

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

Page 620

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

Page 621

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

Page 622

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

Page 623

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

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