Source Code

These source-code files were obtained by digitally photographing the Colossus 237 program listing from the private collection of original AGC developer Fred Martin, and then modifying pre-existing Colossus 249 (Apollo 9) source files to incorporate changes. 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

023964,000002:                                                                                                 #  Copyright:    Public domain.
023965,000003:                                                                                                 #  Filename:      P20-P25.agc
023966,000004:                                                                                                 #  Purpose:      Part of the source code for Colossus build 237.
023967,000005:                                                                                                 #                This is for the Command Module's (CM) Apollo Guidance
023968,000006:                                                                                                 #                Computer (AGC), we believe for Apollo 8.
023969,000007:                                                                                                 #  Assembler:    yaYUL
023970,000008:                                                                                                 #  Contact:      Jim Lawton <jim DOT lawton AT gmail DOT com>
023971,000009:                                                                                                 #  Website:      www.ibiblio.org/apollo/index.html
023972,000010:                                                                                                 #  Page scans:   www.ibiblio.org/apollo/ScansForConversion/Colossus237/
023973,000011:                                                                                                 #  Mod history:  2011-02-16 JL    Adapted from corresponding Colossus 249 file.
023974,000012: 
023975,000013:                                                                                                 # # Page 550
023976,000014:                                                                                                 #  RENDEZVOUS NAVIGATION PROGRAM 20
023977,000015:                                                                                                 #  PROGRAM DESCRIPTION
023978,000016:                                                                                                 #  MOD NO -1
023979,000017:                                                                                                 #  MOD BY - N.BRODEUR
023980,000018:                                                                                                 #  FUNCTIONAL DESCRIPTION
023981,000019: 
023982,000020:                                                                                                 #  TO CONTROL THE CSM ATTITUDE AND OPTICS TO ACQUIRE THE LEM IN THE S+T
023983,000021:                                                                                                 #  FIELD AND TO POINT THE CSM TRANSPONDER AT THE LEM. TO UPDATE EITHER THE
023984,000022:                                                                                                 #  LEM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY THE DSKY
023985,000023:                                                                                                 #  ENTRY) ON THE BASIS OF OPTICAL TRACKING DATA (REQUESTED BY DSKY)
023986,000024:                                                                                                 #  CALLING SEQUENCE -
023987,000025: 
023988,000026:                                                                                                 #  ASTRONAUT REQUEST THROUGH DSKY V37E20E
023989,000027:                                                                                                 #  SUBROUTINES CALLED-
023990,000028:                                                                                                 #    R02BOTH (IMU STATUS CHECK)               BANKCALL
023991,000029:                                                                                                 #    FLAGUP             2PHCHNG               LOADTIME
023992,000030:                                                                                                 #    R61CSM  (PREFERRED TRACKING ATTITUDE)    FLAGDOWN
023993,000031:                                                                                                 #    R52     (AUTO OPTICS POSITIONING ROUT)   SETINTG
023994,000032:                                                                                                 #    R22     (REND TRACK DATA PROC ROUT)      PRIOCHNG
023995,000033:                                                                                                 #    ENDOFJOB           INTEGRV               GRP2PC
023996,000034:                                                                                                 #    INTPRET            MKRLEES               FINDVAC
023997,000035:                                                                                                 #  NORMAL EXIT MODES-
023998,000036:                                                                                                 #    P20 MAY BE TERMINATED IN TWO WAYS-ASTRONAUT SELECTION OF IDLING
023999,000037:                                                                                                 #  PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
024000,000038:                                                                                                 #  ALARM OR ABORT EXIT MODES-
024001,000039:                                                                                                 #    NONE DIRECTLY FROM P20
024002,000040:                                                                                                 #  OUTPUT
024003,000041:                                                                                                 #    TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
024004,000042:                                                                                                 #    VHFCNT = NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
024005,000043:                                                                                                 #  FLAGS SET + RESET
024006,000044:                                                                                                 #    RNDVZFLG,VEHUPFLG,UPDATFLG,TRACKFLG,TARG1FLG
024007,000045:                                                                                                 #    HOLDFLAG,WBODY,WBODY1,WBODY2,DELCDUX,DELCDUY,DELCDUZ
024008,000046:                                                                                                 #    STIKFLAG,PRFTRKAT,VINTFLAG,DIM0FLAG,R60FLAG,R61CNTR
024009,000047: 33,3773                                          BANK     33                                    
024010,000048: 37,2000                                          SETLOC   P20S                                  
024011,000049: 37,2000                                          BANK                                           
024012,000050: 
024013,000051: 37,2207  E6,1412                                 EBANK=   ESTROKER                              
024014,000052: 37,2207                                          COUNT*   $$/P20                                
024015,000053: 
024016,000054: 37,2207           04555        PROG20            TC       BANKCALL                              
024017,000055: 37,2210           17573                          CADR     R02BOTH                               #  IMU STATUS CHECK
024018,000056:                                                                                                 #                                           BLOCKING OF UPLINK IS DONE BY UPLINK PRG
024019,000057: 37,2211           34714                          CAF      ZERO                                  
024020,000058: 37,2212           55126                          TS       TRKMKCNT                              #  ZERO REND TRACKING MARK COUNTER
024021,000059: 37,2213           55125                          TS       VHFCNT                                #  ZERO REND VHF RNG MRK COUNTER
024022,000060: 37,2214           05435                          TC       UPFLAG                                #  SET PREF TRACK ATT FLAG
024023,000061: 37,2215           00120                          ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
024024,000062: 37,2216           05447                          TC       DOWNFLAG                              #  LEM TO BE UPDATED.  VEHUPFLG RESET.
024025,000063: 37,2217           00026                          ADRES    VEHUPFLG                              #  BIT 8 FLAG 1
024026,000064:                                                                                                 # # Page 551
024027,000065: 37,2220           05435                          TC       UPFLAG                                #  SET TRACKFLAG
024028,000066: 37,2221           00031                          ADRES    TRACKFLG                              #  BIT 5  FLAG 1
024029,000067: 37,2222           05435                          TC       UPFLAG                                #  SET UPDATFLG
024030,000068: 37,2223           00027                          ADRES    UPDATFLG                              #  BIT 7  FLAG 1
024031,000069: 37,2224           05435                          TC       UPFLAG                                #  SET RNDVZFLG
024032,000070: 37,2225           00010                          ADRES    RNDVZFLG                              #  BIT 7  FLAG 0
024033,000071: 37,2226           05261                          TC       2PHSCHNG                              
024034,000072: 37,2227           00004                          OCT      4                                     
024035,000073: 37,2230           05022                          OCT      05022                                 
024036,000074: 37,2231           26000                          OCT      26000                                 
024037,000075: 37,2232           06006                          TC       INTPRET                               
024038,000076: 37,2233           77634                          RTB                                            
024039,000077: 37,2234           45505                                   LOADTIME                              
024040,000078: 37,2235           35225                          STCALL   MARKTIME                              
024041,000079: 37,2236           56343                                   SETINTG                               #  SET INTEGRATION FLAGS
024042,000080: 37,2237           43014                          BOFF     SET                                   
024043,000081: 37,2240           02756                                   RENDWFLG                              
024044,000082: 37,2241           76243                                   P20.1                                 
024045,000083: 37,2242           01476                                   DIM0FLAG                              #  SET TO INTEGRATE THE W MATRIX
024046,000084: 37,2243           43014        P20.1             BON      CLEAR                                 
024047,000085: 37,2244           00707                                   VEHUPFLG                              
024048,000086: 37,2245           76247                                   P20.2                                 
024049,000087: 37,2246           01674                                   VINTFLAG                              #  SET FOR LM INTEGRATION
024050,000088: 37,2247           77624        P20.2             CALL                                           
024051,000089: 37,2250           27113                                   INTEGRV                               
024052,000090: 37,2251           77624                          CALL                                           
024053,000091: 37,2252           56712                                   GRP2PC                                #  GROUP 2 PHASE CHANGE
024054,000092: 37,2253           77624                          CALL                                           
024055,000093: 37,2254           56343                                   SETINTG                               #  SET INTEGRATION FLAGS
024056,000094: 37,2255           43014                          BOFF     CLEAR                                 
024057,000095: 37,2256           00747                                   VEHUPFLG                              
024058,000096: 37,2257           76261                                   P20.3                                 
024059,000097: 37,2260           01674                                   VINTFLAG                              #  SET FOR LM INTEGRATION
024060,000098: 37,2261           77624        P20.3             CALL                                           
024061,000099: 37,2262           27113                                   INTEGRV                               
024062,000100: 37,2263           77776                          EXIT                                           
024063,000101: 37,2264           37663                          CAF      PRIO26                                
024064,000102: 37,2265           05042                          TC       FINDVAC                               
024065,000103: 37,2266  E7,1734                                 EBANK=   MRKBUF2                               
024066,000104: 37,2266           02512 70067                    2CADR    R22                                   
024067,000105: 37,2270           05261                          TC       2PHSCHNG                              
024068,000106: 37,2271           00072                          OCT      00072                                 
024069,000107: 37,2272           00111                          OCT      00111                                 
024070,000108: 37,2273           34761        PIKUP20           CAF      PRIO14                                #  ALLOW HIGHER PRIO THAN LAMBERT
024071,000109: 37,2274           05103                          TC       PRIOCHNG                              
024072,000110: 37,2275           34706                          CAF      BIT5                                  #  IS TRACK FLAG SET
024073,000111: 37,2276           70075                          MASK     STATE      +1                         
024074,000112: 37,2277           00006                          EXTEND                                         
024075,000113: 37,2300           15112                          BZF      ENDOFJOB                              #  NO
024076,000114:                                                                                                 # # Page 552
024077,000115: 37,2301           34676                          CAF      BIT13                                 
024078,000116: 37,2302           70077                          MASK     STATE      +3                         #  IS REFSMFLG SET
024079,000117: 37,2303           00006                          EXTEND                                         
024080,000118: 37,2304           15112                          BZF      ENDOFJOB                              
024081,000119: 37,2305           34714                          CAF      ZERO                                  
024082,000120: 37,2306           55775                          TS       R61CNTR                               #  INITIALIZE R61 COUNTER
024083,000121: 37,2307           05435                          TC       UPFLAG                                #  SET R60FLAG
024084,000122: 37,2310           00126                          ADRES    R60FLAG                               #  BIT 4  FLAG 5
024085,000123: 37,2311           04555                          TC       BANKCALL                              
024086,000124: 37,2312           76536                          CADR     R61CSM                                
024087,000125: 37,2313           05447                          TC       DOWNFLAG                              #  RESET R60FLAG
024088,000126: 37,2314           00126                          ADRES    R60FLAG                               #  BIT 4  FLAG 5
024089,000127: 37,2315  0002777                                 EBANK=   QMIN                                  
024090,000128: 37,2315           34751                          CAF      EBANK5                                
024091,000129: 37,2316           54003                          TS       EBANK                                 
024092,000130: 37,2317           05435                          TC       UPFLAG                                #  SET TARGET FLAG TO LEM
024093,000131: 37,2320           00024                          ADRES    TARG1FLG                              #  BIT 10  FLAG 1
024094,000132: 37,2321           06006        P20R52JB          TC       INTPRET                               
024095,000133: 37,2322           77624                          CALL                                           
024096,000134: 37,2323           30002                                   R52                                   #  SET UP AUTO OPTICS JOB
024097,000135: 37,2324           77776                          EXIT                                           
024098,000136: 37,2325           04555                          TC       BANKCALL                              
024099,000137: 37,2326           16070                          CADR     MKRLEES                               
024100,000138: 37,2327           34712                          CAF      ONE                                   #  HOLD PRESENT ATTITUDE
024101,000139: 37,2330           55332                          TS       HOLDFLAG                              
024102,000140: 37,2331           05112                          TC       ENDOFJOB                              
024103,000141: 37,2332           00203        OCT203            OCT      00203                                 
024104,000142: 37,2333     7707               FIRST3            EQUALS   FURST3                                
024105,000143: 
024106,000144:                                                                                                 # # Page 553
024107,000145:                                                                                                 #  ORBITAL NAVIGATION PROGRAM 22
024108,000146: 31,2021                                          BANK     31                                    
024109,000147: 30,2000                                          SETLOC   P20S1                                 
024110,000148: 30,2000                                          BANK                                           
024111,000149: 
024112,000150: 30,2000  0002751                                 EBANK=   LANDMARK                              
024113,000151: 30,2000                                          COUNT*   $$/P22                                
024114,000152: 
024115,000153: 30,2000           05447        PROG22            TC       DOWNFLAG                              #  RESET RNDVZFLG  BIT 7  FLAG 0
024116,000154: 30,2001           00010                          ADRES    RNDVZFLG                              
024117,000155: 30,2002           04555                          TC       BANKCALL                              
024118,000156: 30,2003           17573                          CADR     R02BOTH                               #  IMU STATUS CHECK
024119,000157: 30,2004           06006                          TC       INTPRET                               #  COMPUTE ANGLE BETWEEN Y AND VXR SM
024120,000158: 30,2005           77634                          RTB                                            
024121,000159: 30,2006           45505                                   LOADTIME                              
024122,000160: 30,2007           34041                          STCALL   TDEC1                                 
024123,000161: 30,2010           27045                                   CSMCONIC                              #  INTEGRATE TO PRESENT TIME
024124,000162: 30,2011           47375                          VLOAD    VXV                                   #  CROSS PRODUCT BETWEEN V AND R
024125,000163: 30,2012           00007                                   VATT                                  
024126,000164: 30,2013           00001                                   RATT                                  
024127,000165: 30,2014           50256                          UNIT     DOT                                   
024128,000166: 30,2015           01744                                   REFSMMAT   +6                         
024129,000167: 30,2016           77646                          ABS                                            
024130,000168: 30,2017           65552                          SL1      ARCCOS                                
024131,000169: 30,2020           03626                          STORE    +MGA                                  
024132,000170: 30,2021           77414                          CLEAR    EXIT                                  
024133,000171: 30,2022           02676                                   RENDWFLG                              
024134,000172: 30,2023           32162                          CAF      V06N45B                               
024135,000173: 30,2024           04555                          TC       BANKCALL                              
024136,000174: 30,2025           20763                          CADR     GOFLASHR                              
024137,000175: 30,2026           04106                          TC       GOTOPOOH                              #  TERM P22
024138,000176: 30,2027           02034                          TC       PROG22A                               #  PROC
024139,000177: 30,2030           02023                          TC       -5                                    #  ENTER
024140,000178: 30,2031           36214                          CAF      THREE                                 
024141,000179: 30,2032           05415                          TC       BLANKET                               #  BLANK OUT R1 + R2
024142,000180: 30,2033           05112                          TC       ENDOFJOB                              
024143,000181: 30,2034           42172        PROG22A           CS       OCTL7000                              #  SET OFFSET NO.=0
024144,000182: 30,2035           71751                          MASK     LANDMARK                              
024145,000183: 30,2036           55751                          TS       LANDMARK                              
024146,000184: 30,2037           06006                          TC       INTPRET                               
024147,000185: 30,2040           77614                          CLEAR                                          
024148,000186: 30,2041           01664                                   P22MKFLG                              
024149,000187: 30,2042           43014                          SET      BOFF                                  
024150,000188: 30,2043           00462                                   ERADFLAG                              
024151,000189: 30,2044           04343                                   CMOONFLG                              
024152,000190: 30,2045           60107                                   PROG22B                               #  EARTH
024153,000191: 30,2046           77614                          SET                                            #  MOON
024154,000192: 30,2047           01463                                   LUNAFLAG                              
024155,000193: 30,2050           77776                          EXIT                                           
024156,000194: 30,2051           32163                          CAF      V05N7022                              
024157,000195:                                                                                                 # # Page 554
024158,000196: 30,2052           04555                          TC       BANKCALL                              
024159,000197: 30,2053           20763                          CADR     GOFLASHR                              
024160,000198: 30,2054           04106                          TC       GOTOPOOH                              #  TERMINATE
024161,000199: 30,2055           02062                          TC       +5                                    #  PROCEED   UNPACK ABCDE
024162,000200: 30,2056           02051                          TC       -5                                    #  RECYCLE
024163,000201: 30,2057           34715                          CAF      FIVE                                  #  IMMEDIATE RETURN BLANK OUT R1,R2
024164,000202: 30,2060           05415                          TC       BLANKET                               
024165,000203: 30,2061           05112                          TC       ENDOFJOB                              
024166,000204: 30,2062           06006                          TC       INTPRET                               
024167,000205: 30,2063           77624                          CALL                                           #  UNPACK ABCDE FROM LANDMARK
024168,000206: 30,2064           60234                                   UNPACKAE                              
024169,000207: 30,2065           45335                          SLOAD    DSU                                   
024170,000208: 30,2066           02745                                   22SUBSCL                              
024171,000209: 30,2067           20166                                   P22MAXDE                              
024172,000210: 30,2070           45044                          BPL      CALL                                  
024173,000211: 30,2071           60075                                   DE-GR-50                              #  DE GREATER THAN MAX
024174,000212: 30,2072           76333                                   P22SUBRA                              #  SUBROUTINE A SETS LAT/LONG/ALT
024175,000213: 30,2073           77650                          GOTO                                           
024176,000214: 30,2074           60114                                   CALLR52                               
024177,000215: 30,2075           77624        DE-GR-50          CALL                                           #  CALL ADVANCED ORBIT ROUTINE
024178,000216: 30,2076           30206                                   ADVORB                                
024179,000217: 30,2077           77776                          EXIT                                           
024180,000218: 30,2100           05261                          TC       2PHSCHNG                              
024181,000219: 30,2101           00004                          OCT      00004                                 
024182,000220: 30,2102           05022                          OCT      05022                                 
024183,000221: 30,2103           13000                          OCT      13000                                 
024184,000222: 30,2104           06006                          TC       INTPRET                               
024185,000223: 30,2105           77650                          GOTO                                           
024186,000224: 30,2106           60132                                   DOV5N71                               
024187,000225: 30,2107           43014        PROG22B           CLEAR    SET                                   #  EARTH ORBIT
024188,000226: 30,2110           01663                                   LUNAFLAG                              
024189,000227: 30,2111           03067                                   KNOWNFLG                              
024190,000228: 30,2112           77624                          CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024191,000229: 30,2113           60217                                   P22SUBRB                              
024192,000230: 30,2114           77776        CALLR52           EXIT                                           
024193,000231: 30,2115           05435                          TC       UPFLAG                                #  TARG2FLG = 1 = SIGHTING LANDMARK
024194,000232: 30,2116           00025                          ADRES    TARG2FLG                              #  BIT 9  FLAG 1
024195,000233: 30,2117           05447                          TC       DOWNFLAG                              #  TARG1FLG = 0 = NON-LEM
024196,000234: 30,2120           00024                          ADRES    TARG1FLG                              #  BIT 10  FLAG 1
024197,000235: 30,2121           05261                          TC       2PHSCHNG                              
024198,000236: 30,2122           00004                          OCT      00004                                 
024199,000237: 30,2123           05022                          OCT      05022                                 
024200,000238: 30,2124           13000                          OCT      13000                                 
024201,000239: 30,2125           34715                          CAF      FIVE                                  
024202,000240: 30,2126           54301                          TS       MARKINDX                              #  SET MARK INDEX=5 FOR R52
024203,000241: 30,2127           06006                          TC       INTPRET                               
024204,000242: 30,2130           77624                          CALL                                           
024205,000243: 30,2131           30002                                   R52                                   
024206,000244: 30,2132           77776        DOV5N71           EXIT                                           
024207,000245: 30,2133           32164                          CAF      V05N7122                              
024208,000246:                                                                                                 # # Page 555
024209,000247: 30,2134           04555                          TC       BANKCALL                              
024210,000248: 30,2135           20763                          CADR     GOFLASHR                              
024211,000249: 30,2136           04106                          TC       GOTOPOOH                              #  TERMINATE
024212,000250: 30,2137           02144                          TC       +5                                    #  PROCEED    UNPACK ABCDE
024213,000251: 30,2140           02133                          TC       -5                                    #  RECYCLE
024214,000252: 30,2141           34715                          CAF      FIVE                                  #  IMMEDIATE ENTRY BLANK OUT R1,R3
024215,000253: 30,2142           05415                          TC       BLANKET                               
024216,000254: 30,2143           05112                          TC       ENDOFJOB                              
024217,000255: 30,2144           06006                          TC       INTPRET                               
024218,000256: 30,2145           77624                          CALL                                           
024219,000257: 30,2146           60234                                   UNPACKAE                              
024220,000258: 30,2147           77624                          CALL                                           #  SET LAT/LANG/ALT
024221,000259: 30,2150           76333                                   P22SUBRA                              
024222,000260: 30,2151           66744        PROG22C           LXC,2    SLOAD*                                
024223,000261: 30,2152           01330                                   MARKSTAT                              
024224,000262: 30,2153           77724                                   QPRET,2                               
024225,000263: 30,2154           36750                          STCALL   8NN                                   
024226,000264: 30,2155           60255                                   S22.1                                 #  ESTABLISH LANDMARK - COMPUTE ORBITAL
024227,000265: 30,2156           77776        P22OVER           EXIT                                           
024228,000266: 30,2157           05301                          TC       PHASCHNG                              
024229,000267: 30,2160           04022                          OCT      04022                                 
024230,000268: 30,2161           02034                          TC       PROG22A                               #  POINT A ON GSOP
024231,000269: 30,2162           01455        V06N45B           VN       0645                                  
024232,000270: 30,2163           01306        V05N7022          VN       00570                                 
024233,000271: 30,2164           01307        V05N7122          VN       00571                                 
024234,000272: 30,2165           00041 00000  P22MAXDE          2DEC     33         B-14                       
024235,000273: 30,2167           01531        V06N89            VN       00689                                 
024236,000274: 30,2170           00077        OCTL77            OCT      77                                    #  DE MASK OF ABCDE
024237,000275: 30,2171           00700        OCTL700           OCT      700                                   #   C MASK OF ABCDE
024238,000276: 30,2172           07000        OCTL7000          OCT      7000                                  #   B MASK OF ABCDE
024239,000277: 37,2000                                          SETLOC   P20S                                  
024240,000278: 37,2000                                          BANK                                           
024241,000279: 
024242,000280: 37,2333           43020        P22SUBRA          STQ      BOFF                                  #  SET LAT/LONG/ALT FOR KNOWN LANDMARK
024243,000281: 37,2334           03667                                   S22TOFF                               
024244,000282: 37,2335           03347                                   KNOWNFLG                              
024245,000283: 37,2336           03667                                   S22TOFF                               #  UNKNOWN LANDMARK,EXIT
024246,000284: 37,2337           46135                          SLOAD    BHIZ                                  
024247,000285: 37,2340           02745                                   22SUBSCL                              
024248,000286: 37,2341           60213                                   OBTAINLL                              #  GET LAT/LONG/ALT FROM ASTRO
024249,000287: 37,2342           50025                          DSU      BMN                                   
024250,000288: 37,2343           21646                                   9DWID                                 #  2 B-14
024251,000289: 37,2344           60173                                   S22LSITE                              #  GET LAT/LONG/ALT FROM RLS (LANDING SITE)
024252,000290: 37,2345           70152                          SL1      LXC,1                                 #  GET LAT/LONG/ALT FROM TABLES
024253,000291: 37,2346           00154                                   MPAC                                  
024254,000292: 37,2347           70601                          SETPD    DLOAD*                                
024255,000293: 37,2350           00001                                   0D                                    
024256,000294: 37,2351           23705                                   ALTTAB,1                              
024257,000295: 37,2352           64723                          PDDL*    PDDL*                                 
024258,000296:                                                                                                 # # Page 556
024259,000297: 37,2353           23623                                   LONGTAB,1                             
024260,000298: 37,2354           23541                                   LATTAB,1                              
024261,000299: 37,2355           77666                          VDEF                                           
024262,000300: 37,2356           35104                          STCALL   LAT                                   
024263,000301: 37,2357           03667                                   S22TOFF                               #  EXIT
024264,000302: 30,2000                                          SETLOC   P20S1                                 
024265,000303: 30,2000                                          BANK                                           
024266,000304: 
024267,000305: 30,2173           77634        S22LSITE          RTB                                            #  CONVERT RLS FROM MOON-FIXED TO BASIC REF
024268,000306: 30,2174           45505                                   LOADTIME                              
024269,000307: 30,2175           24007                          STOVL    6D                                    #  6-7D= TIME
024270,000308: 30,2176           02026                                   RLS                                   
024271,000309: 30,2177           14001                          STODL    0D                                    #  0-5D= LANDING SITE VECTOR
024272,000310: 30,2200           15330                                   HIDPHALF                              #  MPAC= ANY NON-ZERO FOR MOON
024273,000311: 30,2201           77624                          CALL                                           
024274,000312: 30,2202           55341                                   RP-TO-R                               #  RLS IN BASIC REF B-27 IN MPAC
024275,000313: 30,2203           77742                          VSR2                                           #  LUNAFLAG AND ERADFLAG SET ABOVE
024276,000314: 30,2204           02152                          STORE    ALPHAV                                #  SCALE RLS B-29 FOR LAT-LONG
024277,000315: 30,2205           77634                          RTB                                            
024278,000316: 30,2206           45505                                   LOADTIME                              #  SET PRESENT TIME IN MPAC FOR LAT-LONG
024279,000317: 30,2207           77624                          CALL                                           
024280,000318: 30,2210           26322                                   LAT-LONG                              
024281,000319: 30,2211           77650                          GOTO                                           
024282,000320: 30,2212           03667                                   S22TOFF                               #  EXIT
024283,000321: 30,2213           77624        OBTAINLL          CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024284,000322: 30,2214           60217                                   P22SUBRB                              
024285,000323: 30,2215           77650                          GOTO                                           
024286,000324: 30,2216           03667                                   S22TOFF                               #  EXIT
024287,000325: 30,2217           77420        P22SUBRB          STQ      EXIT                                  #  GET LAT/LONG/ALT FROM ASTRO
024288,000326: 30,2220           03670                                   S22TOFF    +1                         
024289,000327: 30,2221           33656                          CAF      V06N89B                               
024290,000328: 30,2222           04555                          TC       BANKCALL                              
024291,000329: 30,2223           20624                          CADR     GOFLASH                               
024292,000330: 30,2224           04106                          TC       GOTOPOOH                              #  TERMINATE
024293,000331: 30,2225           02227                          TC       +2                                    #  PROCEED
024294,000332: 30,2226           02221                          TC       -5                                    #  ENTER OR RECYCLE
024295,000333: 30,2227           06006                          TC       INTPRET                               
024296,000334: 30,2230           77624                          CALL                                           
024297,000335: 30,2231           61345                                   LLASRDA                               
024298,000336: 30,2232           77650                          GOTO                                           
024299,000337: 30,2233           03670                                   S22TOFF    +1                         #  EXIT
024300,000338: 30,2234           77776        UNPACKAE          EXIT                                           #  UNPACK LANDMARK INTO ABCDE
024301,000339: 30,2235           31751                          CA       LANDMARK                              
024302,000340: 30,2236           72170                          MASK     OCTL77                                
024303,000341: 30,2237           55744                          TS       22SUBSCL                              #  DE=L=LMK ID NO. N  00,01, 02-26
024304,000342: 30,2240           31751                          CA       LANDMARK                              
024305,000343: 30,2241           72172                          MASK     OCTL7000                              
024306,000344: 30,2242           55745                          TS       CXOFF                                 #  B= OFFSET INDICATOR
024307,000345: 30,2243           05435                          TC       UPFLAG                                #  SET KNOWNFLG
024308,000346: 30,2244           00141                          ADRES    KNOWNFLG                              #  BIT 8  FLAG 6
024309,000347:                                                                                                 # # Page 557
024310,000348: 30,2245           31751                          CA       LANDMARK                              
024311,000349: 30,2246           74675                          MASK     BIT14                                 #  IF BIT14 OF LANDMARK=1,A=2 OTHERWISE A=1
024312,000350: 30,2247           00006                          EXTEND                                         
024313,000351: 30,2250           12253                          BZF      +3                                    #  A=1 LEAVE KNOWNFLAG SET FOR KNOWN LMK
024314,000352: 30,2251           05447                          TC       DOWNFLAG                              #  A=2 CLEAR KNOWNFLG  (BIT 8  FLAG 6) FOR
024315,000353: 30,2252           00141                          ADRES    KNOWNFLG                              #      UNKNOWN LMK
024316,000354: 30,2253           06006                          TC       INTPRET                               
024317,000355: 30,2254           77616                          RVQ                                            
024318,000356: 
024319,000357:                                                                                                 # # Page 558
024320,000358:                                                                                                 #  PROGRAM NAME- OPTICS CALIBRATION ROUTINE
024321,000359:                                                                                                 #  MOD NO- 1
024322,000360:                                                                                                 #  MOD BY- TOM KNATT
024323,000361: 
024324,000362:                                                                                                 #  FUNCTIONAL DESCRIPTION- TO MEASURE THE EFFECT OF SOLAR RADIATION ON
024325,000363:                                                                                                 #    THE SXT TRUNNION ANGLE AND STORE THE MEASURED TRUNNION BIAS FOR P23
024326,000364: 
024327,000365:                                                                                                 #  CALLING SEQUENCE- CALL
024328,000366:                                                                                                 #                          R57
024329,000367: 
024330,000368:                                                                                                 #  SUBROUTINES CALLED- DISPLAY ROUTINES
024331,000369: 
024332,000370:                                                                                                 #  NORMAL EXIT MODES-VIA EGRESS
024333,000371: 
024334,000372:                                                                                                 #  ALARMS- NONE
024335,000373: 
024336,000374:                                                                                                 #  ABORT MODES- P23ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE
024337,000375:                                                                                                 #  INPUT- NONE REQURIED, NORMALLY CALLED BY P23
024338,000376:                                                                                                 #  OUTPUT- TRUNNION BIAS ANGLE- ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT
024339,000377:                                                                                                 #  (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED. THIS ANGLE
024340,000378:                                                                                                 #  MAY NOT BE EXACTLY ZERO BECAUSE OF UNEVEN HEATING OF THE OPTICS,FOR
024341,000379:                                                                                                 #  EXAMPLE.
024342,000380: 
024343,000381:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED- MRKBUF1, EXTVBACT
024344,000382: 
024345,000383:                                                                                                 #  DEBRIS- RUPTREGS USED BY MARKRUPT AND ERASABLES USED BY DISPLAYS
024346,000384: 33,3773                                          BANK     33                                    
024347,000385: 37,2000                                          SETLOC   P20S                                  
024348,000386: 37,2000                                          BANK                                           
024349,000387: 37,2360                                          COUNT*   $$/R57                                
024350,000388: 37,2360  E7,1725                                 EBANK=   MRKBUF1                               
024351,000389: 37,2360           77420        R57               STQ      EXIT                                  
024352,000390: 37,2361           02317                                   EGRESS                                
024353,000391: 37,2362           34753                          CAF      EBANK7                                
024354,000392: 37,2363           54003                          TS       EBANK                                 
024355,000393: 37,2364           36211                          CAF      SIX                                   #  BIT2 = MARKING SYSTEM IN USE
024356,000394: 37,2365           71044                          MASK     EXTVBACT                              #  BIT3 = EXTENDED VERB IN PROGRESS
024357,000395: 37,2366           10000                          CCS      A                                     
024358,000396: 37,2367           02437                          TC       P23ABRT                               #  SET, THEREFORE ABORT
024359,000397: 37,2370           34711                          CAF      BIT2                                  #  NOT SET
024360,000398: 37,2371           27044                          ADS      EXTVBACT                              #  SET IT
024361,000399: 37,2372           05435        R57A              TC       UPFLAG                                #  SET V59FLAG (BIT 12  FLAG 5 TO INDICATE
024362,000400: 37,2373           00116                          ADRES    V59FLAG                               #  CALIBRATION MARK
024363,000401: 37,2374           32442                          CAF      V59NB                                 
024364,000402: 37,2375           04555                          TC       BANKCALL                              
024365,000403: 37,2376           20504                          CADR     GOMARKFR                              
024366,000404: 37,2377           04106                          TC       GOTOPOOH                              #  TERMINATE
024367,000405: 37,2400           02424                          TC       ENDR57                                
024368,000406: 37,2401           02424                          TC       ENDR57                                
024369,000407: 37,2402           34716                          CAF      SEVEN                                 
024370,000408:                                                                                                 # # Page 559
024371,000409: 37,2403           05415                          TC       BLANKET                               #  BLANK OUT R1,R2,R3
024372,000410: 37,2404           05112                          TC       ENDOFJOB                              
024373,000411:                                                                                                 #  STORE TRUNNION ANGLE (OCDU)
024374,000412: 37,2405           32441        MARKDISP          CAF      V06N87NB                              
024375,000413: 37,2406           04555                          TC       BANKCALL                              
024376,000414: 37,2407           20504                          CADR     GOMARKFR                              
024377,000415: 37,2410           04106                          TC       GOTOPOOH                              #  TERMINATE
024378,000416: 37,2411           02416                          TC       R57B                                  #  PROCEED
024379,000417: 37,2412           02372                          TC       R57A                                  #  ENTER (RECYCLE)
024380,000418: 37,2413           34715                          CAF      FIVE                                  
024381,000419: 37,2414           05415                          TC       BLANKET                               #  BLANK OUT R1,R3
024382,000420: 37,2415           05112                          TC       ENDOFJOB                              
024383,000421: 37,2416           32444        R57B              CA       19.77DEG                              #  PUT FIXED INTO ERASABLE FOR MSU
024384,000422: 37,2417           54001                          TS       L                                     #  INSTRUCTION COMING UP
024385,000423: 37,2420           31732                          CA       MRKBUF1    +5                         #  CONTAINS TRUNNION
024386,000424: 37,2421           00006                          EXTEND                                         
024387,000425: 37,2422           20001                          MSU      L                                     #  CORRECTS TRUNBIAS FROM 2'S TO 1'S
024388,000426: 37,2423           55342                          TS       TRUNBIAS                              
024389,000427: 37,2424           05447        ENDR57            TC       DOWNFLAG                              #  RESET V59FLAG
024390,000428: 37,2425           00116                          ADRES    V59FLAG                               #  BIT 12  FLAG 5
024391,000429: 37,2426           34751                          CAF      EBANK5                                
024392,000430: 37,2427           54003                          TS       EBANK                                 
024393,000431: 37,2430           34761                          CAF      PRIO14                                
024394,000432: 37,2431           05027                          TC       NOVAC                                 #  THIS JOB CLEARS BIT IN
024395,000433: 37,2432     1330                                 EBANK=   MARKSTAT                              
024396,000434: 37,2432           05423 04062                    2CADR    ENDMARK                               #  MARKING  IN R57 SO R53 CAN TAKE OVER
024397,000435: 37,2434           06006                          TC       INTPRET                               
024398,000436: 37,2435           77650                          GOTO                                           
024399,000437: 37,2436           02317                                   EGRESS                                
024400,000438: 37,2437           05604        P23ABRT           TC       BAILOUT                               
024401,000439: 37,2440           01211                          OCT      01211                                 
024402,000440: 37,2441           01527        V06N87NB          VN       0687                                  
024403,000441: 37,2442           16600        V59NB             VN       5900                                  
024404,000442: 37,2443           14600        V51NB             VN       5100                                  
024405,000443: 37,2444           61740        19.77DEG          OCT      61740                                 
024406,000444: 
024407,000445:                                                                                                 # # Page 560
024408,000446:                                                                                                 #  PROGRAM DESCRIPTION
024409,000447:                                                                                                 #  MOD NO - 1
024410,000448:                                                                                                 #  MOD BY - N.BRODEUR
024411,000449:                                                                                                 #  FUNCTIONAL DESCRIPTION
024412,000450: 
024413,000451:                                                                                                 #    TO PERFORM SIGHTING MARKS IN CONJUNCTION WITH THE RENDEZVOUS NAVIG-
024414,000452:                                                                                                 #  ATION PROGRAM. CALLED BY ASTRONAUT VIA EXTENDED VERB
024415,000453:                                                                                                 #  CALLING SEQUENCE -
024416,000454:                                                                                                 #          R21 VIA V 57
024417,000455:                                                                                                 #          R23 VIA V 54
024418,000456:                                                                                                 #  SUBROUTINES CALLED -
024419,000457:                                                                                                 #    FLAGUP        FLAGDOWN        BANKCALL
024420,000458:                                                                                                 #    ENDOFJOB      GOMARK2         GOMARKF
024421,000459:                                                                                                 #    INTPRET       GENTRAN         KLEENEX
024422,000460:                                                                                                 #    ENDMARK
024423,000461:                                                                                                 #  NORMAL EXIT MODES-
024424,000462:                                                                                                 #    MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARK IN MRKBUF2
024425,000463:                                                                                                 #  FOR USE BY R22. WHEN ASTRONAUT IS FINISHED TAKING MARKS, HE HITS AN
024426,000464:                                                                                                 #  PROCEED ,   R21 IS TERMINATED THUS CAUSING THE FINAL MARK TO BE TRANSFRD
024427,000465:                                                                                                 #  TO MRKBUF2 FOR PROCESSING BY R22
024428,000466:                                                                                                 #  ALARM OR ABORT EXIT MODES -
024429,000467:                                                                                                 #    NONE
024430,000468:                                                                                                 #  OUTPUT -
024431,000469:                                                                                                 #    7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y,
024432,000470:                                                                                                 #  CDUX.
024433,000471:                                                                                                 #  ERASABLE INTIALIZATION REQUIRED
024434,000472:                                                                                                 #  FLAGS SET AND RESET
024435,000473:                                                                                                 #    R21MARK   (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 + 2)
024436,000474:                                                                                                 #    R23FLG  INDICATES COAS MARKING
024437,000475:                                                                                                 #  DEBRIS
024438,000476: 37,2445  E7,1725                                 EBANK=   MRKBUF1                               
024439,000477: 37,2000                                          SETLOC   RENDEZ                                
024440,000478: 37,2000                                          BANK                                           
024441,000479: 
024442,000480: 37,2445                                          COUNT*   $$/R21                                
024443,000481: 
024444,000482: 37,2445           05435        R21CSM            TC       UPFLAG                                #  SET R21MARK
024445,000483: 37,2446           00037                          ADRES    R21MARK                               #  BIT 14  FLAG 2
024446,000484: 37,2447           37716        R23CSM            CA       NEGONE                                
024447,000485: 37,2450           55725                          TS       MRKBUF1                               
024448,000486: 37,2451           55734                          TS       MRKBUF2                               
024449,000487: 37,2452           30075                          CA       FLAGWRD1                              
024450,000488: 37,2453           74702                          MASK     BIT9                                  #  TEST R23FLG
024451,000489: 37,2454           00006                          EXTEND                                         
024452,000490: 37,2455           12510                          BZF      R21C1                                 #  NOT SET REGULAR R21 MARKING
024453,000491: 37,2456           32535                          CAF      V0694                                 #  R23 BACKUP MARKING
024454,000492: 37,2457           04555                          TC       BANKCALL                              #  DISPLAY SHAFT + TRUNNION
024455,000493: 37,2460           20465                          CADR     GOMARKF                               
024456,000494: 37,2461           02527                          TC       R21END                                #  TERM
024457,000495: 37,2462           02464                          TC       +2                                    #  PROC
024458,000496:                                                                                                 # # Page 561
024459,000497: 37,2463           02456                          TC       -5                                    #  ENTER
024460,000498: 37,2464           32534        R23CSM1           CAF      V53                                   #  PERFORM ALT LOST SIGHT MARK
024461,000499: 37,2465           04555                          TC       BANKCALL                              
024462,000500: 37,2466           20470                          CADR     GOMARK2                               
024463,000501: 37,2467           02527                          TC       R21END                                #  V34-TERMINATE R23
024464,000502: 37,2470           12516                          TCF      R21CSMA                               #  PROCEED-END BACK UP MARKING (R23)
024465,000503: 37,2471           36211                          CAF      SIX                                   #  TRANSFER MRKBUF1 TO MRKBUF2
024466,000504: 37,2472           05475                          TC       GENTRAN                               
024467,000505: 37,2473           01725                          ADRES    MRKBUF1                               
024468,000506: 37,2474           01734                          ADRES    MRKBUF2                               
024469,000507: 37,2475           00006                          EXTEND                                         
024470,000508: 37,2476           30025                          DCA      TIME2                                 
024471,000509: 37,2477           53726                          DXCH     MRKBUF1                               #  READ TIME
024472,000510: 37,2500           30033                          CA       CDUY                                  #  READ CDU ANGLES
024473,000511: 37,2501           55727                          TS       MRKBUF1    +2                         
024474,000512: 37,2502           30034                          CA       CDUZ                                  
024475,000513: 37,2503           55731                          TS       MRKBUF1    +4                         
024476,000514: 37,2504           30032                          CA       CDUX                                  
024477,000515: 37,2505           55733                          TS       MRKBUF1    +6                         
024478,000516: 37,2506           00003                          RELINT                                         
024479,000517: 37,2507           02464                          TC       R23CSM1                               
024480,000518: 37,2510           32443        R21C1             CAF      V51NB                                 
024481,000519: 37,2511           04555                          TC       BANKCALL                              
024482,000520: 37,2512           20470                          CADR     GOMARK2                               
024483,000521: 37,2513           02527                          TC       R21END                                #  V34-TERMINATE R21
024484,000522: 37,2514           12516                          TCF      R21CSMA                               #  PROCEED-END R21
024485,000523: 37,2515           12510                          TCF      R21C1                                 #  RECYCLE
024486,000524: 
024487,000525: 37,2516           31725        R21CSMA           CA       MRKBUF1                               #  IF -1 NO MARK
024488,000526: 37,2517           64712                          AD       ONE                                   
024489,000527: 37,2520           00006                          EXTEND                                         
024490,000528: 37,2521           12527                          BZF      R21END                                #  ZERO = NO MARK
024491,000529: 37,2522           36211                          CAF      SIX                                   #  MARK THEREFORE TRANSFER IT TO MRKBUF2
024492,000530: 37,2523           05475        R21CSM1           TC       GENTRAN                               #  TRANSFER MRKBUF1 TO MRKBUF2
024493,000531: 37,2524           01725                          ADRES    MRKBUF1                               
024494,000532: 37,2525           01734                          ADRES    MRKBUF2                               
024495,000533: 37,2526           00003                          RELINT                                         
024496,000534: 37,2527           04555        R21END            TC       BANKCALL                              
024497,000535: 37,2530           20464                          CADR     KLEENEX                               
024498,000536: 37,2531           05447                          TC       DOWNFLAG                              #  RESET R21MARK
024499,000537: 37,2532           00037                          ADRES    R21MARK                               #  BIT 14  FLAG 2
024500,000538: 37,2533           05423                          TC       ENDMARK                               #  END MARKING AND ENDJOB
024501,000539: 37,2534           15200        V53               VN       5300                                  
024502,000540: 37,2535           01536        V0694             VN       0694                                  
024503,000541: 
024504,000542:                                                                                                 # # Page 562
024505,000543:                                                                                                 #  PREFERRED TRACKING ATTITUDE ROUTINE R61CSM
024506,000544:                                                                                                 #  PROGRAM DESCRIPTION
024507,000545:                                                                                                 #  MOD NO - 2
024508,000546:                                                                                                 #  MOD BY - N.BRODEUR
024509,000547:                                                                                                 #  FUNCTIONAL DESCRIPTION-
024510,000548:                                                                                                 #    TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM TO ENABLE OPTICS
024511,000549:                                                                                                 #  TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED
024512,000550:                                                                                                 #  OR X-AXIS TRACKING ATTITUDE.
024513,000551:                                                                                                 #  CALLING SEQUENCE-
024514,000552:                                                                                                 #           TC     BANKCALL
024515,000553:                                                                                                 #           CADR   R61CSM
024516,000554:                                                                                                 #  SUBROUTINE CALLED
024517,000555:                                                                                                 #    MAKECADR         BANKCALL
024518,000556:                                                                                                 #    INTPRET      FLAGUP           FLAGDOWN
024519,000557:                                                                                                 #    BANKJUMP     CRS61.1          R60CSM
024520,000558:                                                                                                 #    PHASCHNG
024521,000559:                                                                                                 #  NORMAL EXIT MODES-
024522,000560:                                                                                                 #    NORMAL RETURN TO CALLER + 1
024523,000561:                                                                                                 #  OUTPUT -
024524,000562:                                                                                                 #    SEE OUTPUT FOR CRS61.1 & ATTITUDE MANEUVER ROUTINE (R60CSM)
024525,000563:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
024526,000564:                                                                                                 #    GENRET USED TO SAVE Q FOR RETURN
024527,000565:                                                                                                 #    R61CNTR MUST BE PRESET TO ZERO
024528,000566:                                                                                                 #  FLAGS SET + RESET
024529,000567:                                                                                                 #    3-AXIS FLAG
024530,000568:                                                                                                 #  DEBRIS
024531,000569:                                                                                                 #    SEE SUBROUTINES
024532,000570: 37,2536  E6,1770                                 EBANK=   GENRET                                
024533,000571: 37,2536                                          COUNT*   $$/R61                                #  ROUTINES - NAVIGATION - PREF. TR. 9TT=
024534,000572: 
024535,000573: 37,2536           34752        R61CSM            CAF      EBANK6                                #  SWITCH TO EBANK 6
024536,000574: 37,2537           56003                          XCH      EBANK                                 
024537,000575: 37,2540           55771                          TS       SAVBNK                                #  SAVE EBANK
024538,000576: 37,2541           04604                          TC       MAKECADR                              
024539,000577: 37,2542           55770                          TS       GENRET                                
024540,000578: 37,2543           11775                          CCS      R61CNTR                               #  TEST R61CNTR
024541,000579: 37,2544           02575                          TC       DECRM61                               #  NOT READY TO DO R61.
024542,000580: 37,2545           02547                          TC       +2                                    #  DO R61
024543,000581: 37,2546           02576                          TC       DECRM61    +1                         
024544,000582: 37,2547           06006                          TC       INTPRET                               
024545,000583: 37,2550           77624                          CALL                                           
024546,000584: 37,2551           71227                                   CRS61.1                               #  LOS DETERMINATION + VEH ATTITUDE
024547,000585: 37,2552           77776                          EXIT                                           
024548,000586: 37,2553           50154                          INDEX    MPAC                                  
024549,000587: 37,2554           02555                          TC       +1                                    
024550,000588: 37,2555           02574                          TC       R61END                                #  SUBROUTINE DRIVING DAP (EXIT R61)
024551,000589:                                                                                                 #                                           OR AUTO MODE NOT SET (EXIT R61)
024552,000590:                                                                                                 #                                           OR SKIKFLAG SET      (EXIT R61)
024553,000591: 37,2556           05447        R61C1             TC       DOWNFLAG                              #  RESET 3-AXIS FLAG
024554,000592: 37,2557           00124                          ADRES    3AXISFLG                              #  BIT 6  FLAG 5
024555,000593:                                                                                                 # # Page 563
024556,000594: 37,2560           44712                          CS       ONE                                   #  SET R61CNTR NEG. TO INDICATE KALCMANU
024557,000595: 37,2561           55775                          TS       R61CNTR                               
024558,000596: 
024559,000597: 37,2562           05435                          TC       UPFLAG                                #  SET FLAG FOR PRIORITY DISPLAYS FOR R60
024560,000598: 37,2563           00077                          ADRES    PDSPFLAG                              #  BIT 12  FLAG 4
024561,000599: 37,2564           04555                          TC       BANKCALL                              
024562,000600: 37,2565           56000                          CADR     R60CSM                                
024563,000601: 37,2566           05447                          TC       DOWNFLAG                              #  RESET FLAG FOR PRIORITY DISPLAYS IN R60
024564,000602: 37,2567           00077                          ADRES    PDSPFLAG                              #  BIT 12  FLAG 4
024565,000603: 37,2570           05301                          TC       PHASCHNG                              
024566,000604: 37,2571           00111                          OCT      00111                                 
024567,000605: 37,2572           34714                          CAF      ZERO                                  
024568,000606: 37,2573           02575                          TC       DECRM61                               
024569,000607: 37,2574           36214        R61END            CAF      THREE                                 
024570,000608: 
024571,000609: 37,2575           55775        DECRM61           TS       R61CNTR                               
024572,000610: 
024573,000611: 37,2576           31770                          CAE      GENRET                                
024574,000612: 37,2577           22000                          LXCH     A                                     #  RETURN IS IN L
024575,000613: 37,2600           31771                          CA       SAVBNK                                #  RESTORE EBANK
024576,000614: 37,2601           56003                          XCH      EBANK                                 
024577,000615: 37,2602           22000                          LXCH     A                                     #  RETURN IS NOW BACK IN A
024578,000616: 37,2603           04577                          TC       BANKJUMP                              #  EXIT R61
024579,000617: 13,2176                                          BANK     13                                    
024580,000618: 23,2000                                          SETLOC   P20S2                                 
024581,000619: 23,2000                                          BANK                                           
024582,000620: 
024583,000621: 23,3047  E7,1725                                 EBANK=   MRKBUF1                               
024584,000622: 
024585,000623:                                                                                                 # # Page 564
024586,000624:                                                                                                 #   BVECTOR PERFORMS COMPUTATIONS FOR
024587,000625:                                                                                                 #  DELTAQ,THE MEASURED DEVIATION BASED ON THE DIFFERENCE BETWEEN THE CSM-LE
024588,000626:                                                                                                 #  M STATE VECTOR ESTIMATES AND THE ACTUAL TRACKING MEASUREMENT.
024589,000627:                                                                                                 #  US,THE MODIFIED FICTITIOUS STAR DIRECTION VECTOR
024590,000628:                                                                                                 #  GEOMETRY VECTORY B ASSOCIATED WITH EACH TRACKING MEASUREMENT.
024591,000629:                                                                                                 #  INPUT
024592,000630:                                                                                                 #    UM,1/2 UNIT VECTOR ALONG THE CSM-LM LINE-OF-SIGHT (BASIC REF.SYSTEM)
024593,000631:                                                                                                 #    USTAR,FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
024594,000632:                                                                                                 #    RCLP,RELATIVE CSM TO LM POSITION VECTOR
024595,000633:                                                                                                 #  OUTPUT
024596,000634:                                                                                                 #    USTAR,MODIFIED FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
024597,000635:                                                                                                 #    BVECTOR = 9 DIMENTIONAL BVECTOR (1/2 UNIT VEC.)
024598,000636:                                                                                                 #    DELTAQ = MEASURED DEVIATION
024599,000637:                                                                                                 #  CALLING SEQUENCE
024600,000638:                                                                                                 #     L  CALL BVECTORS
024601,000639:                                                                                                 #  NORMAL EXIT
024602,000640:                                                                                                 #     L+1 OF CALLING SEQUENCE
024603,000641: 
024604,000642: 23,3047                                          COUNT    23/20SUB                              
024605,000643: 
024606,000644: 23,3047           77620        BVECTORS          STQ                                            
024607,000645: 23,3050           02317                                   EGRESS                                
024608,000646: 23,3051           53575                          VLOAD    UNIT                                  
024609,000647: 23,3052           03531                                   RCLP                                  #  RELATIVE POSITION VECTOR
024610,000648: 23,3053           14033                          STODL    26D                                   #  RCLP UNIT VEC
024611,000649: 23,3054           00045                                   36D                                   #  RCLP ABS VALUE
024612,000650: 23,3055           25301                          STOVL    TEMPOR1                               #  MOVE TO SAFE LOCATION
024613,000651: 23,3056           01245                                   USTAR                                 
024614,000652: 23,3057           53435                          VXV      UNIT                                  
024615,000653: 23,3060           00033                                   26D                                   #  USTAR = UNIT(US X UCL)
024616,000654: 23,3061           37502                          STCALL   BVECTOR                               
024617,000655: 23,3062           56712                                   GRP2PC                                #  PHASE CHANGE
024618,000656: 23,3063           77775                          VLOAD                                          
024619,000657: 23,3064           03502                                   BVECTOR                               
024620,000658: 23,3065           01245                          STORE    USTAR                                 
024621,000659: 23,3066           72441                          DOT      SL1                                   
024622,000660: 23,3067           01235                                   UM                                    #  USTAR DOT UM
024623,000661: 23,3070           45326                          ACOS     DSU                                   
024624,000662: 23,3071           15322                                   DP1/4TH                               
024625,000663: 23,3072           41301                          NORM     DMP                                   
024626,000664: 23,3073           00047                                   X1                                    
024627,000665: 23,3074           07107                                   PI/4.0                                
024628,000666: 23,3075           53605                          DMP      SRR*                                  
024629,000667: 23,3076           01301                                   TEMPOR1                               #  RCLP ABS VALUE
024630,000668: 23,3077           21576                                   0          -3,1                       #  ADJUST SCALING
024631,000669: 23,3100           27524                          STOVL    DELTAQ                                
024632,000670: 23,3101           15332                                   ZEROVECS                              
024633,000671: 23,3102           03510                          STORE    BVECTOR    +6                         
024634,000672: 23,3103           03516                          STORE    BVECTOR    +12D                       
024635,000673: 23,3104           77650                          GOTO                                           
024636,000674:                                                                                                 # # Page 565
024637,000675: 23,3105           02317                                   EGRESS                                
024638,000676: 23,3106           31103 36652  PI/4.0            2DEC     .785398164                            
024639,000677: 
024640,000678:                                                                                                 # # Page 566
024641,000679:                                                                                                 #   GETUM-DETERMINES THE LINE OF SIGHT UNIT VECTOR UM IN THE BASIC REFERENC
024642,000680:                                                                                                 #  E COORDINATE SYSTEM FROM THE OPTICS SHAFT AND TRUNNION ANGLES AND THE IM
024643,000681:                                                                                                 #  U GIMBAL ANGLES.
024644,000682:                                                                                                 #  INPUT
024645,000683:                                                                                                 #     MARKDATA,BASE ADDRESS OF MARK DATA
024646,000684:                                                                                                 #     REFSMMAT,ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF.COORD.SYSTEM
024647,000685: 
024648,000686:                                                                                                 #  SUROUTINES CALLED-
024649,000687:                                                                                                 #         SXTNB - SEXT. ANGULAR READINGS TO NAV. BASE COOR.
024650,000688:                                                                                                 #         NBSM  - TRANSFORM FROM NAV. BASE TO STABLE MEMBER
024651,000689:                                                                                                 #  OUTPUT
024652,000690:                                                                                                 #     MPAC = LINE OF SIGHT 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM
024653,000691:                                                                                                 #  CALLING SEQUENCE
024654,000692:                                                                                                 #     L  CALL GETUM
024655,000693: 
024656,000694:                                                                                                 #  NORMAL EXIT
024657,000695:                                                                                                 #     L+1 OF CALLING SEQUENCE
024658,000696: 
024659,000697: 23,3110           40220        GETUM             STQ      SETPD                                 
024660,000698: 23,3111           02317                                   EGRESS                                
024661,000699: 23,3112           00001                                   0                                     
024662,000700: 23,3113           76740                          LXC,1    VLOAD*                                
024663,000701: 23,3114           01242                                   MARKDATA                              #  CONTAINS ADDRESS OF MARK DATA
024664,000702: 23,3115           00002                                   1,1                                   
024665,000703: 23,3116           23676                          STODL*   MARKDOWN   +1                         #  TRANSFER DATA FROM WORKING STORAGE
024666,000704: 23,3117           00001                                   0,1                                   #  TO MARKDOWN ARRAY FOR DOWNLINK
024667,000705: 23,3120           03675                          STORE    MARKDOWN                              
024668,000706: 23,3121           77774                          AXT,2                                          
024669,000707: 23,3122           00002                                   2                                     
024670,000708: 23,3123           67064                          XSU,2    SXA,2                                 
024671,000709: 23,3124           00046                                   X1                                    #  X1 = MARKDATA
024672,000710: 23,3125           00050                                   S1                                    #  S1 = MARKDATA(ADR) +2
024673,000711: 23,3126           77624                          CALL                                           
024674,000712: 23,3127           46000                                   SXTNB                                 #  SEXT. ANGULAR READINGS TO NAV.BASE COOR.
024675,000713: 23,3130           77624                          CALL                                           
024676,000714: 23,3131           47541                                   NBSM                                  #  TRANSFORM FROM NAV.BASE TO STABLE MEM.
024677,000715: 23,3132           76505                          VXM      VSL1                                  
024678,000716: 23,3133           01736                                   REFSMMAT                              
024679,000717: 23,3134           77650                          GOTO                                           #  MPAC =(UM)LINE OF SIGHT VECTOR
024680,000718: 23,3135           02317                                   EGRESS                                #  EXIT
024681,000719: 
024682,000720:                                                                                                 # # Page 567
024683,000721:                                                                                                 #               RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
024684,000722: 
024685,000723:                                                                                                 #  PURPOSE      (1) TO PROCESS RENDEZVOUS SIGHTING MARK DATA TO UPDATE THE STATE VECTOR OF EITHER THE CSM OR LM AS
024686,000724:                                                                                                 #               DEFINED BY THE RENDEZVOUS NAVIGATION PROGRAM (P20).
024687,000725: 
024688,000726:                                                                                                 #  ASSUMPTIONS  (1) THIS ROUTINE IS MANUALLY SELECTED BY THE ASTRONAUT BY V55E WHENEVER RENDEZVOUS SIGHTING MARKS
024689,000727:                                                                                                 #               ARE DESIRED. ITS SELECTION HOWEVER IS LIMITED TO PERIODS WHEN THE CMC IS HOLDING FOR A V/N FLASHING
024690,000728:                                                                                                 #               DATA DISPLAY. THIS ROUTINE RETURNS TO THE ORIGINAL PROGRAM AT THE INTERRUPTED DISPLAY.
024691,000729: 34,2512                                          BANK     34                                    
024692,000730: 34,2000                                          SETLOC   P20S3                                 
024693,000731: 34,2000                                          BANK                                           
024694,000732: 
024695,000733: 34,2512                                          COUNT    34/R22                                
024696,000734: 
024697,000735: 34,2512           37663        R22               CAF      PRIO26                                
024698,000736: 34,2513           55056                          TS       PHSPRDT2                              
024699,000737: 34,2514           05103                          TC       PRIOCHNG                              
024700,000738: 34,2515           37714                          CA       NEG3                                  
024701,000739: 34,2516           55734                          TS       MRKBUF2                               
024702,000740: 34,2517           06006                          TC       INTPRET                               
024703,000741: 34,2520           77634                          RTB                                            
024704,000742: 34,2521           45505                                   LOADTIME                              
024705,000743: 34,2522           01152                          STORE    VHFTIME                               #  PRESENT TIME
024706,000744: 34,2523           77624        REND1             CALL                                           
024707,000745: 34,2524           56712                                   GRP2PC                                
024708,000746: 34,2525           77624                          CALL                                           
024709,000747: 34,2526           56404                                   WAITONE                               
024710,000748: 34,2527           77776        REND1A            EXIT                                           
024711,000749: 34,2530           33220                          CAF      MKBUFAD                               #  SET MARKSTAT FOR RESTART (CLEARED IN)
024712,000750: 34,2531           55330                          TS       MARKSTAT                              #    FRESH START)
024713,000751: 34,2532           31734                          CA       MRKBUF2                               
024714,000752: 34,2533           00006                          EXTEND                                         
024715,000753: 34,2534           12537                          BZF      REND2                                 
024716,000754: 34,2535           00006                          EXTEND                                         
024717,000755: 34,2536           62556                          BZMF     REND3A                                
024718,000756: 34,2537           36211        REND2             CAF      SIX                                   
024719,000757: 34,2540           05475                          TC       GENTRAN                               
024720,000758: 34,2541           01734                          ADRES    MRKBUF2                               
024721,000759: 34,2542           01224                          ADRES    MARKTIME                              #  MARKTIME MUST BE CONTIGUOUS WITH VTEMP
024722,000760: 34,2543           37714                          CAF      NEG3                                  #  NEG VALUE TO INDICATE VALUES USED
024723,000761: 34,2544           55734                          TS       MRKBUF2                               
024724,000762: 34,2545           00003                          RELINT                                         
024725,000763: 34,2546           06006                          TC       INTPRET                               
024726,000764: 34,2547           45014                          CLEAR    CALL                                  
024727,000765: 34,2550           04667                                   SOURCFLG                              #  0 = OPTICS DATA
024728,000766: 34,2551           56712                                   GRP2PC                                #  PHASE CHANGE
024729,000767: 34,2552           52131                          SSP      GOTO                                  
024730,000768: 34,2553           01243                                   MARKDATA                              
024731,000769: 34,2554           01224                          ECADR    VTEMP      -2                         
024732,000770: 34,2555           70601                                   REND4                                 
024733,000771:                                                                                                 # # Page 568
024734,000772: 34,2556           06006        REND3A            TC       INTPRET                               
024735,000773: 34,2557           77624        REND3             CALL                                           
024736,000774: 34,2560           56712                                   GRP2PC                                
024737,000775: 34,2561           77624                          CALL                                           
024738,000776: 34,2562           56404                                   WAITONE                               
024739,000777: 34,2563           77614                          BOFF                                           
024740,000778: 34,2564           04746                                   VHFRFLAG                              
024741,000779: 34,2565           70527                                   REND1A                                
024742,000780: 34,2566           77634                          RTB                                            
024743,000781: 34,2567           45505                                   LOADTIME                              #  PRESENT TIME
024744,000782: 34,2570           45225                          DSU      DSU                                   
024745,000783: 34,2571           14647                                   60SECDP                               #  1 MIN
024746,000784: 34,2572           01152                                   VHFTIME                               #  LAST READING OF RADAR
024747,000785: 34,2573           45040                          BMN      CALL                                  
024748,000786: 34,2574           70527                                   REND1A                                
024749,000787: 34,2575           56415                                   RANGERD                               #  READ RADAR RANGE
024750,000788: 34,2576           77745                          DLOAD                                          
024751,000789: 34,2577           01225                                   MARKTIME                              
024752,000790: 34,2600           01152                          STORE    VHFTIME                               #  FOR DOWNLINK
024753,000791: 34,2601           77624        REND4             CALL                                           
024754,000792: 34,2602           56343                                   SETINTG                               #  SET INTEGRV FLAGS
024755,000793: 34,2603           45014                          BON      CALL                                  
024756,000794: 34,2604           00707                                   VEHUPFLG                              
024757,000795: 34,2605           71035                                   CSMUPP                                #  BRANCH IF CSM UPDATE
024758,000796: 34,2606           27113                                   INTEGRV                               
024759,000797: 34,2607           77624                          CALL                                           
024760,000798: 34,2610           56712                                   GRP2PC                                #  PHASE CHANGE
024761,000799: 34,2611           77624                          CALL                                           
024762,000800: 34,2612           56343                                   SETINTG                               #  SET INTEGRV FLAGS
024763,000801: 34,2613           77614                          CLEAR                                          
024764,000802: 34,2614           01674                                   VINTFLAG                              #  SET INTEGRATION VEHICLE TO LM
024765,000803: 34,2615           43014        REND5             BOFF     SET                                   
024766,000804: 34,2616           02756                                   RENDWFLG                              
024767,000805: 34,2617           70621                                   REND5A                                #  DO NOT INTEGRATE W IF FLAG = 0
024768,000806: 34,2620           01476                                   DIM0FLAG                              
024769,000807: 34,2621           77624        REND5A            CALL                                           
024770,000808: 34,2622           27113                                   INTEGRV                               
024771,000809: 34,2623           77624                          CALL                                           
024772,000810: 34,2624           56526                                   SHIFTNDX                              #  SET EARTH MOON SCALING INDEX
024773,000811: 34,2625           77624                          CALL                                           
024774,000812: 34,2626           71124                                   CMPOS                                 #  SET CSM POSITION
024775,000813: 34,2627           45014                          SET      CALL                                  
024776,000814: 34,2630           02464                                   INCORFLG                              #  SET FOR 1ST PASS
024777,000815: 34,2631           71133                                   LMPOS                                 #  SET LM POSITION
024778,000816: 34,2632           43014                          CLEAR    BON                                   
024779,000817: 34,2633           01671                                   ORBWFLAG                              #  CLEAR FOR ORBITAL AND CISLUNAR
024780,000818: 34,2634           02716                                   RENDWFLG                              
024781,000819: 34,2635           70645                                   REND6                                 
024782,000820: 34,2636           77745                          DLOAD                                          
024783,000821: 34,2637           02001                                   WRENDPOS                              
024784,000822:                                                                                                 # # Page 569
024785,000823: 34,2640           34001                          STCALL   0                                     #  0 = WRENDPOS   1= WRENDVEL
024786,000824: 34,2641           56544                                   INITIALW                              #  INTIIALIZE W MATRIX
024787,000825: 34,2642           77745                          DLOAD                                          
024788,000826: 34,2643           15332                                   ZEROVECS                              
024789,000827: 34,2644           01126                          STORE    VHFCNT                                #  ZEO OUT VHFCNT AND TRKMKCNT
024790,000828: 34,2645           77614        REND6             SET                                            
024791,000829: 34,2646           02476                                   RENDWFLG                              
024792,000830: 34,2647           52375                          VLOAD    VSU                                   
024793,000831: 34,2650           01215                                   LEMPOS                                
024794,000832: 34,2651           01207                                   CSMPOS                                
024795,000833: 34,2652           03531                          STORE    RCLP                                  #  LM - CSM
024796,000834: 34,2653           43056        REND7             UNIT     BON                                   
024797,000835: 34,2654           04707                                   SOURCFLG                              
024798,000836: 34,2655           71046                                   REND14                                #  BRANCH IF DATA IS RADAR
024799,000837: 34,2656           01273                          STORE    UCL                                   
024800,000838: 34,2657           45014                          BOFF     CALL                                  
024801,000839: 34,2660           02744                                   INCORFLG                              
024802,000840: 34,2661           70673                                   REND9                                 
024803,000841: 34,2662           47110                                   GETUM                                 #  CALCULATE UM LINE OF SIGHT
024804,000842: 34,2663           25235                          STOVL    UM                                    
024805,000843: 34,2664           01273                                   UCL                                   
024806,000844: 34,2665           40035                          VXV      BOV                                   
024807,000845: 34,2666           01235                                   UM                                    #  UCL X UM
024808,000846: 34,2667           70670                                   REND8                                 
024809,000847: 34,2670           40056        REND8             UNIT     BOV                                   
024810,000848: 34,2671           70557                                   REND3                                 #  BRANCH IF OVERFLOW IGNORE MARK
024811,000849: 34,2672           01245                          STORE    USTAR                                 
024812,000850: 34,2673           77624        REND9             CALL                                           
024813,000851: 34,2674           47047                                   BVECTORS                              
024814,000852: 34,2675           77214                          BON      VLOAD                                 
024815,000853: 34,2676           00707                                   VEHUPFLG                              
024816,000854: 34,2677           70703                                   REND9A                                
024817,000855: 34,2700           03502                                   BVECTOR                               
024818,000856: 34,2701           77676                          VCOMP                                          
024819,000857: 34,2702           03502                          STORE    BVECTOR                               
024820,000858: 34,2703           77624        REND9A            CALL                                           
024821,000859: 34,2704           56712                                   GRP2PC                                
024822,000860: 34,2705           77614                          BON                                            
024823,000861: 34,2706           00706                                   R23FLG                                
024824,000862: 34,2707           71077                                   REND15                                #  BRANCH IF BACKUP OPTICS (R23 WORKING)
024825,000863: 34,2710           43345                          DLOAD    DAD                                   
024826,000864: 34,2711           31222                                   SXTVAR                                
024827,000865: 34,2712           31224                                   IMUVAR                                
024828,000866: 34,2713           27526        REND10            STOVL    VARIANCE                              #  TEMP STORAGE FOR VARIANCE CALC.
024829,000867: 34,2714           03531                                   RCLP                                  
024830,000868: 34,2715           60246                          ABVAL    NORM                                  
024831,000869: 34,2716           00047                                   X1                                    
024832,000870: 34,2717           41316                          DSQ      DMP                                   
024833,000871: 34,2720           03526                                   VARIANCE                              
024834,000872: 34,2721           45070                          XAD,1    CALL                                  
024835,000873:                                                                                                 # # Page 570
024836,000874: 34,2722           00046                                   X1                                    
024837,000875: 34,2723           56526                                   SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
024838,000876: 34,2724           56070                          XAD,1    XAD,1                                 
024839,000877: 34,2725           00047                                   X2                                    
024840,000878: 34,2726           00047                                   X2                                    
024841,000879: 34,2727           72257                          SR*      TLOAD                                 
024842,000880: 34,2730           20577                                   0          -2,1                       #  ADJUST SCALING TO B-40
024843,000881: 34,2731           00155                                   MPAC                                  
024844,000882: 34,2732           03526                          STORE    VARIANCE                              
024845,000883: 34,2733           54335                          SLOAD    SR                                    
024846,000884: 34,2734           02400                                   INTVAR                                #  INTEGRATION VARIANCE SCALED B-15
024847,000885: 34,2735           20632                                   25D                                   #  SCALE IT B-40
024848,000886: 34,2736           77771                          TAD                                            
024849,000887: 34,2737           03526                                   VARIANCE                              
024850,000888: 34,2740           03526                          STORE    VARIANCE                              
024851,000889: 34,2741           76214                          BOFF     TAD                                   
024852,000890: 34,2742           04747                                   SOURCFLG                              #  BRANCH IF NOT VHF RADAR
024853,000891: 34,2743           70752                                   REND10A                               
024854,000892: 34,2744           03005                                   RVARMIN                               #  VHF RADAR MIN. VARIANCE
024855,000893: 34,2745           72244                          BPL      TLOAD                                 
024856,000894: 34,2746           70752                                   REND10A                               
024857,000895: 34,2747           03005                                   RVARMIN                               
024858,000896: 34,2750           77646                          ABS                                            #  MIN. VARLUE WAS STORED AS NEG.
024859,000897: 34,2751           03526                          STORE    VARIANCE                              #  STORE MIN. VALUE
024860,000898: 34,2752           45014        REND10A           CLEAR    CALL                                  
024861,000899: 34,2753           02666                                   DMENFLG                               #  CLEAR FOR 6 X 6 W MATRIX
024862,000900: 34,2754           75250                                   INCORP1                               #  CALCULATE UPDATE
024863,000901: 34,2755           77624                          CALL                                           
024864,000902: 34,2756           56712                                   GRP2PC                                
024865,000903: 34,2757           45014                          BOFF     CALL                                  
024866,000904: 34,2760           02744                                   INCORFLG                              
024867,000905: 34,2761           71007                                   REND12                                
024868,000906: 34,2762           56526                                   SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
024869,000907: 34,2763           51575                          VLOAD    ABVAL                                 
024870,000908: 34,2764           01265                                   DELTAX     +6                         
024871,000909: 34,2765           77657                          SR*                                            
024872,000910: 34,2766           57176                                   0,2                                   
024873,000911: 34,2767           27504                          STOVL    N49DISP    +2                         
024874,000912: 34,2770           01257                                   DELTAX                                
024875,000913: 34,2771           53646                          ABVAL    SR*                                   
024876,000914: 34,2772           57176                                   0,2                                   
024877,000915: 34,2773           03502                          STORE    N49DISP                               
024878,000916: 34,2774           77735                          SLOAD                                          
024879,000917: 34,2775           02003                                   RMAX                                  
024880,000918: 34,2776           45261                          SR       DSU                                   
024881,000919: 34,2777           20613                                   10D                                   
024882,000920: 34,3000           03502                                   N49DISP                               
024883,000921: 34,3001           67240                          BMN      SLOAD                                 
024884,000922: 34,3002           71142                                   RENDISP                               #  BRANCH IF POS UP.GREATER THAN MAX.
024885,000923: 34,3003           02004                                   VMAX                                  
024886,000924:                                                                                                 # # Page 571
024887,000925: 34,3004           50025                          DSU      BMN                                   
024888,000926: 34,3005           03504                                   N49DISP    +2                         
024889,000927: 34,3006           71142                                   RENDISP                               #  BRANCH IF VEL.UPDATE GREATER THAN MAX.
024890,000928: 34,3007           77624        REND12            CALL                                           
024891,000929: 34,3010           75460                                   INCORP2                               #  INCORPORATE UPDATE VALUES INTO STATE VEC
024892,000930: 34,3011           43014                          BON      BOFF                                  
024893,000931: 34,3012           04707                                   SOURCFLG                              
024894,000932: 34,3013           71104                                   REND16                                #  BRANCH IF DATA IS RADAR
024895,000933: 34,3014           02744                                   INCORFLG                              
024896,000934: 34,3015           71112                                   REND17                                
024897,000935: 34,3016           77624                          CALL                                           
024898,000936: 34,3017           56526                                   SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
024899,000937: 34,3020           45014                          BON      CALL                                  
024900,000938: 34,3021           00707                                   VEHUPFLG                              
024901,000939: 34,3022           71120                                   REND18                                #  BRANCH IF CSM UPDATE
024902,000940: 34,3023           71133                                   LMPOS                                 #  GET LM POSITION
024903,000941: 34,3024           77624        REND13            CALL                                           
024904,000942: 34,3025           56712                                   GRP2PC                                #  PHASE CHANGE
024905,000943: 34,3026           52375                          VLOAD    VSU                                   
024906,000944: 34,3027           01215                                   LEMPOS                                
024907,000945: 34,3030           01207                                   CSMPOS                                
024908,000946: 34,3031           03531                          STORE    RCLP                                  #  LM - CSM
024909,000947: 34,3032           77614                          CLRGO                                          
024910,000948: 34,3033           02624                                   INCORFLG                              
024911,000949: 34,3034           70653                                   REND7                                 #  BRANCH FOR 2ND PASS THIS OPTICS MARK
024912,000950: 34,3035           45014        CSMUPP            CLEAR    CALL                                  
024913,000951: 34,3036           01674                                   VINTFLAG                              #  SET INTEGRATION VEHICLE EQ LM
024914,000952: 34,3037           27113                                   INTEGRV                               
024915,000953: 34,3040           77624                          CALL                                           
024916,000954: 34,3041           56712                                   GRP2PC                                #  PHASE CHANGE
024917,000955: 34,3042           77624                          CALL                                           
024918,000956: 34,3043           56343                                   SETINTG                               #  SET FLAGS FOR INTEGRATION
024919,000957: 34,3044           77650                          GOTO                                           
024920,000958: 34,3045           70615                                   REND5                                 
024921,000959: 34,3046           27502        REND14            STOVL    BVECTOR                               #  VHF RADAR BVECTOR
024922,000960: 34,3047           15332                                   ZEROVECS                              
024923,000961: 34,3050           03510                          STORE    BVECTOR    +6                         
024924,000962: 34,3051           27516                          STOVL    BVECTOR    +12D                       
024925,000963: 34,3052           03531                                   RCLP                                  
024926,000964: 34,3053           71256                          UNIT     DLOAD                                 
024927,000965: 34,3054           01257                                   VHFRANGE                              #  VHFRANGE SCALED B-27
024928,000966: 34,3055           60414                          BON      SR2                                   
024929,000967: 34,3056           04303                                   MOONTHIS                              
024930,000968: 34,3057           71060                                   +1                                    
024931,000969: 34,3060           43025                          DSU      SET                                   
024932,000970: 34,3061           00045                                   36D                                   #  ABVAL (RCLP)
024933,000971: 34,3062           02464                                   INCORFLG                              
024934,000972: 34,3063           03524                          STORE    DELTAQ                                
024935,000973: 34,3064           77214                          BOFF     VLOAD                                 
024936,000974: 34,3065           00747                                   VEHUPFLG                              
024937,000975:                                                                                                 # # Page 572
024938,000976: 34,3066           71072                                   REND14A                               
024939,000977: 34,3067           03502                                   BVECTOR                               
024940,000978: 34,3070           77676                          VCOMP                                          
024941,000979: 34,3071           03502                          STORE    BVECTOR                               
024942,000980: 34,3072           77624        REND14A           CALL                                           
024943,000981: 34,3073           56712                                   GRP2PC                                
024944,000982: 34,3074           52145                          DLOAD    GOTO                                  
024945,000983: 34,3075           03003                                   RVAR                                  
024946,000984: 34,3076           70713                                   REND10                                
024947,000985: 34,3077           43335        REND15            SLOAD    DAD                                   #  GET ALT LOS VARIANCE
024948,000986: 34,3100           01357                                   ALTVAR                                #  BACKUP OPTICS
024949,000987: 34,3101           31224                                   IMUVAR                                #  IMU VARIANCE
024950,000988: 34,3102           77650                          GOTO                                           
024951,000989: 34,3103           70713                                   REND10                                
024952,000990: 34,3104           62150        REND16            LXA,1    INCR,1                                
024953,000991: 34,3105           01125                                   VHFCNT                                #  VHF RADAR UPDATE COUNT
024954,000992: 34,3106           00001                          DEC      1          B-14                       
024955,000993: 34,3107           52130                          SXA,1    GOTO                                  
024956,000994: 34,3110           01125                                   VHFCNT                                #  UPDATE COUNT
024957,000995: 34,3111           70523                                   REND1                                 
024958,000996: 34,3112           62150        REND17            LXA,1    INCR,1                                
024959,000997: 34,3113           01126                                   TRKMKCNT                              #  OPTICS MARK COUNT
024960,000998: 34,3114           00001                          DEC      1          B-14                       
024961,000999: 34,3115           52130                          SXA,1    GOTO                                  
024962,001000: 34,3116           01126                                   TRKMKCNT                              #  UPDATE COUNT
024963,001001: 34,3117           70557                                   REND3                                 
024964,001002: 34,3120           77624        REND18            CALL                                           
024965,001003: 34,3121           71124                                   CMPOS                                 #  GET CSM POSITION
024966,001004: 34,3122           77650                          GOTO                                           
024967,001005: 34,3123           71024                                   REND13                                
024968,001006: 34,3124           53775        CMPOS             VLOAD    VSR*                                  
024969,001007: 34,3125           01573                                   DELTACSM                              
024970,001008: 34,3126           57167                                   7,2                                   
024971,001009: 34,3127           77655                          VAD                                            
024972,001010: 34,3130           01607                                   RCVCSM                                
024973,001011: 34,3131           01207                          STORE    CSMPOS                                #  CSM POSITION SCALED B-27 OR B-29
024974,001012: 34,3132           77616                          RVQ                                            
024975,001013: 34,3133           53775        LMPOS             VLOAD    VSR*                                  
024976,001014: 34,3134           01645                                   DELTALEM                              
024977,001015: 34,3135           57167                                   7,2                                   
024978,001016: 34,3136           77655                          VAD                                            
024979,001017: 34,3137           01661                                   RCVLEM                                
024980,001018: 34,3140           01215                          STORE    LEMPOS                                #  LM POSITION SCALED B-27 OR B-29
024981,001019: 34,3141           77616                          RVQ                                            
024982,001020: 34,3142           77776        RENDISP           EXIT                                           
024983,001021: 34,3143           30105                          CA       FLAGWRD9                              
024984,001022: 34,3144           74703                          MASK     BIT8                                  
024985,001023: 34,3145           00006                          EXTEND                                         
024986,001024: 34,3146           13151                          BZF      +3                                    
024987,001025: 34,3147           34711                          CA       BIT2                                  
024988,001026:                                                                                                 # # Page 573
024989,001027: 34,3150           03152                          TC       +2                                    
024990,001028: 34,3151           34712                          CA       BIT1                                  
024991,001029: 34,3152           55505                          TS       N49DISP    +4                         
024992,001030: 34,3153           34714                          CAF      ZERO                                  #  SET TEMPOR1 > ZERO TO INDICATE
024993,001031: 34,3154           55300                          TS       TEMPOR1                               #  V06 N49 DISPLAY HASNT BEEN ANSWERED
024994,001032: 34,3155           05301                          TC       PHASCHNG                              
024995,001033: 34,3156           04022                          OCT      04022                                 
024996,001034: 34,3157           37664                          CAF      PRIO27                                #  SET UP DISPLAY JOB WITH HIGHER PRIORITY
024997,001035: 34,3160           05027                          TC       NOVAC                                 
024998,001036: 34,3161  E7,1725                                 EBANK=   MRKBUF1                               #  THAN PRESENT JOB
024999,001037: 34,3161           03173 70067                    2CADR    RENDISP2                              
025000,001038: 34,3163           06006        RENDISP7          TC       INTPRET                               
025001,001039: 34,3164           00155                          STORE    MPAC                                  
025002,001040: 34,3165           53135                          SLOAD    BZE                                   
025003,001041: 34,3166           01301                                   TEMPOR1                               
025004,001042: 34,3167           71164                                   RENDISP7   +1                         #  DISPLAY HAS NOT BEEN ANSWERED YET
025005,001043: 34,3170           52040                          BMN      GOTO                                  
025006,001044: 34,3171           71007                                   REND12                                #  NEG INDICATES PROCEED
025007,001045: 34,3172           71202                                   RENDISP3                              #  POS INDICATES RECYCLE
025008,001046: 34,3173           33225        RENDISP2          CAF      V06N49                                
025009,001047: 34,3174           04555                          TC       BANKCALL                              
025010,001048: 34,3175           20635                          CADR     PRIODSP                               
025011,001049: 34,3176           04550                          TC       GOTOV56                               #  TERM EXIT P20 VIA V56
025012,001050: 34,3177           44712                          CS       ONE                                   #  NEG INDICATES PROCEED RENDISP7 JOB
025013,001051: 34,3200           55300                          TS       TEMPOR1                               #  POS INDICATES RECYCLE RENDISP7 JOB
025014,001052: 34,3201           05112                          TC       ENDOFJOB                              #  GO COMPLETE ABOVE JOB
025015,001053: 34,3202           77614        RENDISP3          BON                                            
025016,001054: 34,3203           04707                                   SOURCFLG                              
025017,001055: 34,3204           70523                                   REND1                                 #  DATA WAS RADAR GO LOOK FOR OPTICS NEXT
025018,001056: 34,3205           77776                          EXIT                                           
025019,001057: 34,3206  E7,1725                                 EBANK=   MRKBUF1                               
025020,001058: 34,3206           00004                          INHINT                                         
025021,001059: 34,3207           33226                          CAF      BUFBANK                               
025022,001060: 34,3210           54006                          TS       BBANK                                 
025023,001061: 34,3211           37716                          CA       NEGONE                                
025024,001062: 34,3212           55725                          TS       MRKBUF1                               #  ERASE MARK ONE BUFFER
025025,001063: 34,3213           55734                          TS       MRKBUF2                               #  ERASE MARK TWO BUFFER
025026,001064: 34,3214           00003                          RELINT                                         
025027,001065: 34,3215           06006        RENDISP4          TC       INTPRET                               
025028,001066: 34,3216           77650                          GOTO                                           
025029,001067: 34,3217           70557                                   REND3                                 
025030,001068: 34,3220           03734        MKBUFAD           ECADR    MRKBUF2                               
025031,001069: 34,3221           00052 36307  SXTVAR            2DEC     0.04       E-6        B+16            #  EXT ERROR VARIANCE = .04 (MR)SQ
025032,001070: 34,3223           00052 36307  IMUVAR            2DEC     0.04       E-6        B+16            #  IMU ERROR VARIANCE = .04 (MR)SQ
025033,001071: 34,3225           01461        V06N49            VN       0649                                  
025034,001072: 34,3226  E7,1725                                 EBANK=   MRKBUF1                               
025035,001073: 34,3226           70067        BUFBANK           BBCON    RENDISP3                              
025036,001074:                                                                                                 # # Page 574
025037,001075: 31,2021                                          BANK     31                                    
025038,001076: 27,2000                                          SETLOC   R22S1                                 
025039,001077: 27,2000                                          BANK                                           
025040,001078: 27,2343           45020        SETINTG           STQ      CALL                                  
025041,001079: 27,2344           02317                                   EGRESS                                
025042,001080: 27,2345           27371                                   INTSTALL                              #  RESERVE INTEGRATION
025043,001081: 27,2346           43145                          DLOAD    SET                                   
025044,001082: 27,2347           01225                                   MARKTIME                              
025045,001083: 27,2350           01472                                   STATEFLG                              
025046,001084: 27,2351           00041                          STORE    TDEC1                                 #  MARKTIME
025047,001085: 27,2352           43014                          CLEAR    CLEAR                                 
025048,001086: 27,2353           01673                                   INTYPFLG                              #  PRECISION INTEGRATION
025049,001087: 27,2354           01676                                   DIM0FLAG                              
025050,001088: 27,2355           43014                          SET      CLRGO                                 
025051,001089: 27,2356           01474                                   VINTFLAG                              #  SET VEHICLE EQ. CSM
025052,001090: 27,2357           01635                                   D6OR9FLG                              #  SET W MATRIX DIM. EQ 6
025053,001091: 27,2360           02317                                   EGRESS                                #  EXIT
025054,001092: 27,2361           77620        CNTCHK            STQ                                            
025055,001093: 27,2362           01150                                   POINTEX                               
025056,001094: 27,2363           77614        CONTCHK           BOFF                                           
025057,001095: 27,2364           01742                                   REFSMFLG                              #  BRANCH TO END OF JOB IF REFSMMAT NO GOOD
025058,001096: 27,2365           30147                                   ENDPLAC                               
025059,001097: 27,2366           50135                          SLOAD    BMN                                   
025060,001098: 27,2367           03376                                   R61CNTR                               
025061,001099: 27,2370           56406                                   WAITONE1                              
025062,001100: 27,2371           43014                          BON      BOFF                                  #  IS TRACK FLAG SET
025063,001101: 27,2372           00710                                   UPDATFLG                              
025064,001102: 27,2373           01150                                   POINTEX                               
025065,001103: 27,2374           00752                                   TRACKFLG                              
025066,001104: 27,2375           30147                                   ENDPLAC                               
025067,001105: 27,2376           77776                          EXIT                                           
025068,001106: 27,2377           05301        REDOR22           TC       PHASCHNG                              
025069,001107: 27,2400           00132                          OCT      00132                                 
025070,001108: 27,2401           37663                          CAF      PRIO26                                
025071,001109: 27,2402           05103                          TC       PRIOCHNG                              
025072,001110: 27,2403           02407                          TC       WAITONE    +3                         
025073,001111: 27,2404           77620        WAITONE           STQ                                            
025074,001112: 27,2405           01150                                   POINTEX                               
025075,001113: 27,2406           77776        WAITONE1          EXIT                                           
025076,001114: 27,2407           34740                          CAF      4SECS                                 #  WAIT 4 SECS.
025077,001115: 27,2410           04555                          TC       BANKCALL                              
025078,001116: 27,2411           01730                          CADR     DELAYJOB                              
025079,001117: 27,2412           06006                          TC       INTPRET                               
025080,001118: 27,2413           77650                          GOTO                                           
025081,001119: 27,2414           56363                                   CONTCHK                               #  CHECK AGAIN NOW
025082,001120: 27,2415           77776        RANGERD           EXIT                                           
025083,001121: 27,2416           00004                          INHINT                                         
025084,001122: 27,2417           42472                          CS       OCT17                                 
025085,001123: 27,2420           00006                          EXTEND                                         
025086,001124: 27,2421           03013                          WAND     CHAN13                                #  ZERO OUT BITS 1-4 OF CHANNEL 13
025087,001125:                                                                                                 # # Page 575
025088,001126: 27,2422           34334                          CAF      OCT11                                 
025089,001127: 27,2423           00006                          EXTEND                                         
025090,001128: 27,2424           05013                          WOR      CHAN13                                #  GENERATE SHIFT PULSES TO RADR,SET R.BIT
025091,001129: 27,2425           00003                          RELINT                                         
025092,001130: 27,2426           00006                          EXTEND                                         
025093,001131: 27,2427           30025                          DCA      TIME2                                 
025094,001132: 27,2430           53225                          DXCH     MARKTIME                              #  READ PRESENT TIME
025095,001133: 27,2431           04555                          TC       BANKCALL                              
025096,001134: 27,2432           17514                          CADR     RADSTALL                              #  WAIT FOR RANGE COMPLETE
025097,001135: 27,2433           02461                          TC       LIGHTON                               #  BAD DATA GOOD BIT
025098,001136: 27,2434           05520                          TC       TRFAILOF                              #  TURN TRACKER LIGHT OFF
025099,001137: 27,2435           06006        RANGERD1          TC       INTPRET                               
025100,001138: 27,2436           50135                          SLOAD    BMN                                   
025101,001139: 27,2437           03704                                   RM                                    
025102,001140: 27,2440           56447                                   RANGERD3                              
025103,001141: 27,2441           77605                          DMP                                            
025104,001142: 27,2442           16475                                   CONVRNGE                              #  CONVERT RANGE TO METERS B-27
025105,001143: 27,2443           77614        RANGERD2          SET                                            
025106,001144: 27,2444           04467                                   SOURCFLG                              #  SOURCE OF DATA TO VHF RADAR
025107,001145: 27,2445           01257                          STORE    VHFRANGE                              
025108,001146: 27,2446           77616                          RVQ                                            
025109,001147: 27,2447           77776        RANGERD3          EXIT                                           
025110,001148: 27,2450           30154                          CA       MPAC                                  
025111,001149: 27,2451           74672                          MASK     POSMAX                                
025112,001150: 27,2452           54154                          TS       MPAC                                  #  MASK OUT NEG. SIGN BIT
025113,001151: 27,2453           06006                          TC       INTPRET                               
025114,001152: 27,2454           77605                          DMP                                            
025115,001153: 27,2455           16475                                   CONVRNGE                              #  CONVERT FROM NM TO METERS AND SCALE B-27
025116,001154: 27,2456           52015                          DAD      GOTO                                  
025117,001155: 27,2457           16471                                   RANGEB14                              #  VALUE IN METERS OF SIGN BIT SCALED B-27
025118,001156: 27,2460           56443                                   RANGERD2                              
025119,001157: 27,2461           05532        LIGHTON           TC       TRFAILON                              #  TURN TRACKER LIGHT ON
025120,001158: 27,2462           06006                          TC       INTPRET                               
025121,001159: 27,2463           77745                          DLOAD                                          
025122,001160: 27,2464           01225                                   MARKTIME                              
025123,001161: 27,2465           01152                          STORE    VHFTIME                               
025124,001162: 27,2466           77650                          GOTO                                           
025125,001163: 27,2467           70523                                   REND1                                 
025126,001164: 27,2470           00045 01217  RANGEB14          2DEC     303431.7   B-27                       #  16384 X 18.52 SCALED B-27
025127,001165: 27,2472           00017        OCT17             OCT      00017                                 
025128,001166: 27,2473           40200        OC40200           OCT      40200                                 
025129,001167: 27,2474           00045 01217  CONVRNGE          2DEC     18.52      B-13                       #  VHF INPUT RANGE CONV.FROM.01 NM TO M
025130,001168: 27,2476           00006        VHFREAD           EXTEND                                         
025131,001169: 27,2477           04007                          ROR      SUPERBNK                              #  MUST SAVE SBANK BECAUSE OF RUPT
025132,001170: 27,2500           54016                          TS       BANKRUPT                              #  EXITS VIA TASKOVER BADEND OR GOODEND
025133,001171: 27,2501           44714                          CS       ZERO                                  
025134,001172: 27,2502           54734                          TS       RUPTAGN                               
025135,001173: 27,2503           00006                          EXTEND                                         
025136,001174:                                                                                                 # # Page 576
025137,001175: 27,2504           22012                          QXCH     QRUPT                                 
025138,001176: 27,2505           34704                          CAF      BIT7                                  
025139,001177: 27,2506           70075                          MASK     STATE      +1                         #  UPDATE FLAG
025140,001178: 27,2507           00006                          EXTEND                                         
025141,001179: 27,2510           12520                          BZF      BYPASS                                
025142,001180: 27,2511           30046                          CA       RNRAD                                 
025143,001181: 27,2512           55703                          TS       RM                                    #  SAVE RANGE
025144,001182: 27,2513           34711                          CAF      BIT2                                  
025145,001183: 27,2514           00006                          EXTEND                                         
025146,001184: 27,2515           02033                          RAND     CHAN33                                #  READ DATA GOOD BIT
025147,001185: 27,2516           00006                          EXTEND                                         
025148,001186: 27,2517           12523                          BZF      VHFGOOD                               #  BRANCH IF DATA GOOD BIT EQUALS GOOD
025149,001187: 27,2520           34711        BYPASS            CAF      TWO                                   
025150,001188: 27,2521           04574                          TC       POSTJUMP                              
025151,001189: 27,2522           17464                          CADR     BADEND                                
025152,001190: 27,2523           34711        VHFGOOD           CAF      TWO                                   
025153,001191: 27,2524           04574                          TC       POSTJUMP                              
025154,001192: 27,2525           17467                          CADR     GOODEND                               
025155,001193: 27,2526           43174        SHIFTNDX          AXT,2    BON                                   
025156,001194: 27,2527           00000                                   0                                     
025157,001195: 27,2530           00707                                   VEHUPFLG                              
025158,001196: 27,2531           56537                                   SHIFTA                                #  VEHICLE IS CSM
025159,001197: 27,2532           43414                          BON      RVQ                                   
025160,001198: 27,2533           04304                                   LMOONFLG                              
025161,001199: 27,2534           56535                                   +1                                    
025162,001200: 27,2535           43514                          INCR,2   RVQ                                   
025163,001201: 27,2536           77775                          DEC      -2         B-14                       
025164,001202: 27,2537           43414        SHIFTA            BON      RVQ                                   
025165,001203: 27,2540           04303                                   CMOONFLG                              
025166,001204: 27,2541           56542                                   +1                                    #  MOON ORB.
025167,001205: 27,2542           43514                          INCR,2   RVQ                                   
025168,001206: 27,2543           77775                          DEC      -2         B-14                       
025169,001207: 27,2544           66370        INITIALW          AXT,1    SSP                                   
025170,001208: 27,2545           00044                                   36D                                   
025171,001209: 27,2546           00051                                   S1                                    
025172,001210: 27,2547           00006                                   6                                     
025173,001211: 27,2550           77775                          VLOAD                                          
025174,001212: 27,2551           15332                                   ZEROVECS                              
025175,001213: 27,2552           06445        INITA             STORE    W          +36D,1                     #  CLEAR 0 - 35
025176,001214: 27,2553           76100                          TIX,1    AXT,1                                 
025177,001215: 27,2554           56552                                   INITA                                 
025178,001216: 27,2555           00044                                   36D                                   
025179,001217: 27,2556           06533        INITB             STORE    W          +90D,1                     #  CLEAR 54 - 89
025180,001218: 27,2557           67300                          TIX,1    SLOAD                                 
025181,001219: 27,2560           56556                                   INITB                                 
025182,001220: 27,2561           00001                                   0                                     #  POSITION VALUE
025183,001221: 27,2562           02401                          STORE    W                                     #  INITIALIZE DIAGONAL W  POSITION
025184,001222: 27,2563           02411                          STORE    W          +8D                        
025185,001223: 27,2564           02421                          STORE    W          +16D                       
025186,001224: 27,2565           77735                          SLOAD                                          
025187,001225:                                                                                                 # # Page 577
025188,001226: 27,2566           00002                                   1                                     #  VELOCITY VALUE
025189,001227: 27,2567           02511                          STORE    W          +72D                       #  INITIALIZE DIAGONAL W VELOCITY
025190,001228: 27,2570           02521                          STORE    W          +80D                       
025191,001229: 27,2571           02531                          STORE    W          +88D                       
025192,001230: 27,2572           77616                          RVQ                                            
025193,001231: 
025194,001232:                                                                                                 # # Page 578
025195,001233: 
025196,001234:                                                                                                 #  CRS61.1  4/10/68
025197,001235:                                                                                                 #    TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025198,001236:                                                                                                 #  OPTICS  TRACKING OF THE LM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
025199,001237:                                                                                                 #  AND TO COMPUTE THE &X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025200,001238:                                                                                                 #  COAS TRACKING OF THE LM.
025201,001239:                                                                                                 #    TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE 
025202,001240:                                                                                                 #  MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
025203,001241:                                                                                                 #  GREATER THAN 10 DEGREES OR IF THE R60FLAG IS SET.
025204,001242:                                                                                                 #           (1) EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
025205,001243:                                                                                                 #               CONIC EQUATIONS.
025206,001244: 
025207,001245:                                                                                                 #           (2) CALCULATE LOS FROM CSM TO LM = RL - RC.
025208,001246: 
025209,001247:                                                                                                 #           (3) THE PREFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
025210,001248:                                                                                                 #               THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM. THE
025211,001249:                                                                                                 #               TRACK AXIS (I) IS DEFINED AS:
025212,001250: 
025213,001251:                                                                                                 #               UNIT(I)=UNIT(Z  )COS55 &UNIT(X  )SIN55
025214,001252:                                                                                                 #                    -       -SC             -SC
025215,001253:                                                                                                 #           (4) COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
025216,001254:                                                                                                 #           (7) FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS.
025217,001255:                                                                                                 #               IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES,
025218,001256:                                                                                                 #               GROSS MANEUVER IS REQUIRED. SIGNAL R61 (SET MPAC=1) TO
025219,001257:                                                                                                 #               OPERATE KALCMANU AND EXIT CRS61.1.
025220,001258:                                                                                                 #               IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE.
025221,001259: 
025222,001260:                                                                                                 #           (8) CALCULATE ORTHOGONAL LOS RATE IN REF COORDS AS
025223,001261: 
025224,001262:                                                                                                 #               OMEGATH = (UNITLOS(B1) X UNITDV(B1))(ABSDV(B7)/ABSLOS(B29))
025225,001263:                                                                                                 #               CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS
025226,001264:                                                                                                 #               APPLIED TO YIELD UNITS OF REVS/SEC. SCALE IS CARRIED AS
025227,001265:                                                                                                 #               B+1+1+7-29+4+1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS.
025228,001266:                                                                                                 #               THE EXTRA B+1 RESULTS FROM RESCALING ABSDV B8 AFTER NORM
025229,001267:                                                                                                 #               TO AVOID OVFLOW ON DIVIDE.
025230,001268: 
025231,001269:                                                                                                 #               UNITLOS = UNIT( RL - RC) B1.
025232,001270:                                                                                                 #               UNITDY  = UNIT( VL - VC) B1.
025233,001271:                                                                                                 #               ABSLOS  = LENGTH OF LOS, METERS B29.
025234,001272:                                                                                                 #               ABSDV   = LENGTH OF DV , METERS/CSEC B7.
025235,001273: 
025236,001274:                                                                                                 #           (9) OBTAIN RATE IN SM COORDS.
025237,001275: 
025238,001276:                                                                                                 #               OMETATHSM = (REFSMMAT)(OMEGATH).
025239,001277: 
025240,001278:                                                                                                 #           (10)OBTAIN GIMBAL ANGLE INCREMETNS FOR 0.1 SECOND.
025241,001279: 
025242,001280:                                                                                                 #               DTHETASM = (0.1)(OMEGATHSM)
025243,001281: 
025244,001282:                                                                                                 #           (11)OBTAIN DELCDUX,Y,Z USING SUBR SMCDURES.
025245,001283:                                                                                                 # # Page 579
025246,001284:                                                                                                 #               INPUT CONSISTS OF
025247,001285: 
025248,001286:                                                                                                 #               (A) VECTOR OF ANGULAR INCREMENTS, DTHETASM, STORED
025249,001287:                                                                                                 #                   IN V(DTHETASM).
025250,001288: 
025251,001289:                                                                                                 #               (B) SIN,COS CDUX,Y,Z FROM  SUBR CDUTRIG.
025252,001290: 
025253,001291:                                                                                                 #               TRANSFER OUTPUT OF SMCDURES FROM V(DCDU) TO VAC14D.
025254,001292: 
025255,001293:                                                                                                 #           (12)CALCULATE ANG LOS RATE IN BODY(NB) COORDS USING SUBR SMNB.
025256,001294: 
025257,001295:                                                                                                 #               OMEGANB = (SMNB)(OMETATHSM)
025258,001296: 
025259,001297:                                                                                                 #               SUBR SMNB REQUIRES  OMEGATHSM IN V(VAC32D) AND ACTUAL CDUS
025260,001298:                                                                                                 #               (Y,X,Z ORDER) IN V(VAC20D) WITH S1 OF VAC = BASE ADDRESS
025261,001299:                                                                                                 #               OF CDUS (FIXLOC + 20D).
025262,001300: 
025263,001301:                                                                                                 #           (13)CALCULATE ANG LOS RATE IN CONTROL COORDS AS FOLLOWS
025264,001302: 
025265,001303:                                                                                                 #               WBODY = (MBDYTCTL)(OMEGANB)   UNITS=REVS/SEC(B0).
025266,001304: 
025267,001305:                                                                                                 #                              ( 0.5       0              0     ) BODY TO
025268,001306:                                                                                                 #               MBDYTCTL(B1) = (  0   COS(7.25)B1  -SIN(7.25)B1 )=CONTROL
025269,001307:                                                                                                 #                              (  0   SIN(7.25)B1   COS(7.25)B1 ) AXES
025270,001308:                                                                                                 #                                                                CONVERSION
025271,001309:                                                                                                 #                                                                 MATRIX
025272,001310: 
025273,001311:                                                                                                 #           (14)RESCALE WBODY TO UNITS OF 460 DEG/SEC BY APPLYING FACTOR
025274,001312:                                                                                                 #               OF 0.8 TO REVS/SEC.
025275,001313: 
025276,001314:                                                                                                 #           (15)ADDRESS LIVE AUTOPILOT REGISTERS IN BASIC (UNDER INHINT).
025277,001315: 
025278,001316:                                                                                                 #               TRANSFER DESIRED CDUS, SCALED 180 DEGREES,FROM T(SAVEDCDU)
025279,001317:                                                                                                 #               TO V(CDUXD).
025280,001318:                                                                                                 #               TRANSFER DELCDUS, SCALED 180 DEG, FROM V(VAC14D)
025281,001319:                                                                                                 #               TO V(DELCDUX).
025282,001320:                                                                                                 #               TRANSFER OMEGA CONTROL, SCALED 450 DEG/SEC,FROM V(MPAC)
025283,001321:                                                                                                 #               TO V(WBODY).
025284,001322:                                                                                                 #               RELINT, SET MPAC=0, EXIT CRS61.1.
025285,001323: 
025286,001324:                                                                                                 #  CALL     L  CALL CRS61.1
025287,001325: 
025288,001326:                                                                                                 #  RETURNS  ALL TO L+1.
025289,001327: 
025290,001328:                                                                                                 #           (1) S(MPAC)=0. NORMAL EXIT. 3 SETS OF INPUTS FED TO DAP.
025291,001329:                                                                                                 #           (2) S(MPAC)=1. CALCULATED DESIRED CDUS,SP, SET IN T(CPHI)
025292,001330:                                                                                                 #               FOR KALCMANU. ABS(ACDU - DCDU) EXCEEDS 10 DEGREES.
025293,001331:                                                                                                 #           (3) S(MPAC)=2. GNCS AUTO MODE NOT SELECTED (BIT10=1).
025294,001332:                                                                                                 #           (4) S(MPAC)=3. DAP HOLD FLAG (HOLDFLAG) NOT EQUAL -1.
025295,001333:                                                                                                 # # Page 580
025296,001334:                                                                                                 #  INPUT    (1) TIME2,TIME1. COMPUTER CLOCK TIME,DP, CENTISEC B28.
025297,001335:                                                                                                 #           (2) CDUX,Y,Z. PRESENT CDU ANGLES,SP,2S COMPL HALF-REVS B0.
025298,001336:                                                                                                 #           (3) M(REFSMMAT),STABLE MEMBER COORDS B1.
025299,001337: 
025300,001338:                                                                                                 #  OUTPUT   NORMAL. EXIT WITH S(MPAC) = 0.
025301,001339: 
025302,001340:                                                                                                 #           (1) CDUXD,CDUYD,CDUZD, DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025303,001341:                                                                                                 #               DP, 1S COMPL, SCALED 180 DEGREES (HALF-REVS B0).
025304,001342:                                                                                                 #           (2) DELCDUX,DELCDUY,DELCDUZ. 0.1 SEC DCU ANGULAR INCREMENTS,
025305,001343:                                                                                                 #               DP, 1S COMPL, SCALED 180 DEG.
025306,001344:                                                                                                 #           (3) WBODY,WBODY1,WBODY2. LOS ANGULAR RATE IN CONTROL COORDS,
025307,001345:                                                                                                 #               DP, 1S COMPL, SCALED 450 DEG/SEC.
025308,001346: 
025309,001347:                                                                                                 #           SPECIAL. EXIT WITH S(MPAC) = 1.
025310,001348: 
025311,001349:                                                                                                 #           (1) CPHI,CTHETA,CPSI. DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025312,001350:                                                                                                 #               SP, 2S COMPL, SCALED 180 DEGREES.
025313,001351: 
025314,001352:                                                                                                 #  EXTERNAL SUBROUTINES USED   (B)=BASIC
025315,001353: 
025316,001354:                                                                                                 #           (1) CALCGA    (5) LOADTIME(B)  (9) SMNB
025317,001355:                                                                                                 #           (2) CDUTRIG   (6) MATMOVE
025318,001356:                                                                                                 #           (3) CSMCONIC  (7) RDCDUS(B)
025319,001357:                                                                                                 #           (4) LEMCONIC  (8) SMCDURES
025320,001358: 
025321,001359:                                                                                                 #  ERASABLE (1) S(Q611),EBANK7  CRS61.1 EXIT .
025322,001360:                                                                                                 #           (2) S(Q6111)EBANK7  CALCDCDU EXIT.
025323,001361:                                                                                                 #           (3) T(SAVEDCDU) E6  SP VECTOR OF CDUDS.
025324,001362:                                                                                                 #           (4) V(SAVEPOS)  E7  CSM POS VEC AND  D(SAVEPOS)= LENGTH OF LOS.
025325,001363:                                                                                                 #           (5) V(SAVEVEL) E7  CSM VEL VEC.
025326,001364: 
025327,001365:                                                                                                 #  FLAGWDS  HOLDFLAG. USED, NOT SET.
025328,001366: 
025329,001367:                                                                                                 #  MISC     (1) ERASABLE ITEMP1 USED TO TEMP STORE EBANK UNDER INHINT.
025330,001368:                                                                                                 #           (2) ERASABLE P21TIME USED AS TEMP STORE DURING CRS61.1
025331,001369:                                                                                                 #           (3) ERAS DTHETASM USED AS TEMP STORE DURING EARLY CRS61.1
025332,001370: 
025333,001371:                                                                                                 #  DEBRIS - CURRENT VAC AREA, CRS61.1 ERASABLES, ITEMP1, P21TIME
025334,001372: 
025335,001373: 24,2002                                          BANK     24                                    
025336,001374: 34,2000                                          SETLOC   P20S4                                 
025337,001375: 34,2000                                          BANK                                           
025338,001376: 
025339,001377: 34,3227  E6,1646                                 EBANK=   CDUXD                                 
025340,001378: 34,3227                                          COUNT*   $/CRS61                               
025341,001379: 
025342,001380: 34,3227           40220        CRS61.1           STQ      SETPD                                 
025343,001381: 34,3230           03704                                   Q611                                  
025344,001382: 34,3231           00001                                   0                                     
025345,001383: 34,3232           77634                          RTB                                            
025346,001384:                                                                                                 # # Page 581
025347,001385: 34,3233           45505                                   LOADTIME                              #  LOAD CLOCK TIME2,1 INTO MPAC.
025348,001386: 
025349,001387: 34,3234           36316        STORT             STCALL   P21TIME                               #  STORE CLOCK TIME FOR SUBR R63
025350,001388: 34,3235           71463                                   R63                                   #  SUBR TO CALC DCDU(T=PRESENT,PASS1)
025351,001389: 34,3236           77751                          TLOAD                                          
025352,001390: 34,3237           01156                                   THETAD                                #  SAVE DCDU(T) FROM CALCDCDU FOR STEP4.
025353,001391: 34,3240           03373                          STORE    SAVEDCDU                              
025354,001392: 
025355,001393: 34,3241           77776                          EXIT                                           
025356,001394: 34,3242           03263                          TC       STEP2CK                               
025357,001395: 34,3243           34371        AUTOCK            CAF      PRIO30                                
025358,001396: 34,3244           00006                          EXTEND                                         
025359,001397: 34,3245           06031                          RXOR     CHAN31                                
025360,001398: 34,3246           77707                          MASK     FURST3                                
025361,001399: 34,3247           00006                          EXTEND                                         #  AUTO MODE SELECTED (BITS 15-13=011)
025362,001400: 34,3250           13252                          BZF      DAPCK                                 #     YES-CONTINUE.
025363,001401: 34,3251           03256                          TC       ASET                                  
025364,001402: 
025365,001403: 34,3252           40075        DAPCK             CS       FLAGWRD1                              #  IS STIKFLAG SET (I.E. IS SOMEONE ON RHC)
025366,001404: 34,3253           74675                          MASK     BIT14                                 
025367,001405: 34,3254           10000                          CCS      A                                     
025368,001406: 34,3255           03322                          TC       STEP3CK                               
025369,001407: 34,3256           34714        ASET              CAF      ZERO                                  
025370,001408: 34,3257           54154                          TS       MPAC                                  
025371,001409: 34,3260           06006                          TC       INTPRET                               #  EXIT CRS61.1
025372,001410: 34,3261           77650                          GOTO                                           
025373,001411: 34,3262           03704                                   Q611                                  
025374,001412: 
025375,001413: 34,3263           40101        STEP2CK           CS       FLAGWRD5                              #  IS R60FLAG SET
025376,001414: 34,3264           74707                          MASK     BIT4                                  
025377,001415: 34,3265           00006                          EXTEND                                         
025378,001416: 34,3266           13454                          BZF      MANUEXIS                              #  YES, DO R60
025379,001417: 34,3267           04555                          TC       BANKCALL                              
025380,001418: 34,3270           57721                          CADR     UPACTOFF                              
025381,001419: 
025382,001420: 34,3271           34711                          CAF      TWO                                   #  SET TEMPORARY INDEX DTHETASM = 2
025383,001421: 34,3272           55611        CDULOOP           TS       DTHETASM                              
025384,001422: 34,3273           51611                          INDEX    DTHETASM                              
025385,001423: 34,3274           30032                          CA       CDUX                                  #  SET A = ACTUAL CDU (ACDU).
025386,001424: 34,3275           00006                          EXTEND                                         
025387,001425: 34,3276           51611                          INDEX    DTHETASM                              #  SET INDEX TO ACCESS DESIRED CDU (DCDU).
025388,001426: 34,3277           21155                          MSU      THETAD                                #  A = DIFF = ACDU - DCDU.
025389,001427: 34,3300           54154                          TS       MPAC                                  #  RETURN TO INTERPRETER FOR 10 DEGREE CK.
025390,001428: 34,3301           06006                          TC       INTPRET                               #  (DP APPROX SP OK FOR ROUGH CHECK)
025391,001429: 34,3302           45246                          ABS      DSU                                   
025392,001430: 34,3303           31552                                   DEGREE10                              #  IS (ACDU - DCDU) MORE THAN 10 DEGREES.
025393,001431: 34,3304           77444                          BPL      EXIT                                  #  NO - OK, CONTINUE CHECKING OTHER ANGLES.
025394,001432: 34,3305           71311                                   STKTEST                               #  TEST STICK FLAG
025395,001433: 34,3306           11611                          CCS      DTHETASM                              #  HAVE ALL 3 ANGLE DIFFS BEEN CHECKED.
025396,001434: 34,3307           03272                          TC       CDULOOP                               #  NO - DIM COUNT, CHECK NEXT ANGLE DIFF.
025397,001435:                                                                                                 # # Page 582
025398,001436: 34,3310           03243                          TC       AUTOCK                                
025399,001437: 34,3311           77776        STKTEST           EXIT                                           
025400,001438: 34,3312           40075                          CS       FLAGWRD1                              
025401,001439: 34,3313           74675                          MASK     BIT14                                 
025402,001440: 34,3314           10000                          CCS      A                                     
025403,001441: 34,3315           03454                          TC       MANUEXIS                              #  STIKFLAG IS NOT SET (DO R63)
025404,001442: 34,3316           34710                          CAF      BIT3                                  
025405,001443: 34,3317           00006                          EXTEND                                         #  STIKFLG IS SET
025406,001444: 34,3320           05011                          WOR      DSALMOUT                              #  TURN ON UPACTY LIGHT
025407,001445: 
025408,001446: 34,3321           03256                          TC       ASET                                  #  EXIT AND SET R61CNTR
025409,001447: 34,3322           06006        STEP3CK           TC       INTPRET                               
025410,001448: 34,3323           77601                          SETPD                                          
025411,001449: 34,3324           00001                                   0                                     #  *
025412,001450:                                                                                                 #                                           NOW HAVE DCDUS STORED IN T(SAVEDCDU).
025413,001451:                                                                                                 #                                           GO CALC OTHER DAP INPUTS (DELCDU,WBODY)
025414,001452: 34,3325           52375        CRS61.2           VLOAD    VSU                                   
025415,001453: 34,3326           03204                                   DCDU                                  
025416,001454: 34,3327           03715                                   SAVEVEL                               #  DV = VL - VC
025417,001455: 34,3330           57456                          UNIT     VCOMP                                 #  V(MPAC)=-UNITDV.VAC36D=ABSDV.
025418,001456: 34,3331           74235                          VXV      VXSC                                  #  (-UNITDV)CROSS(UNITLOS).
025419,001457: 34,3332           03707                                   SAVEPOS                               
025420,001458: 34,3333           31553                                   RVCS/RDS                              #  (UNITLOS B1)(UNITDV B1)(CONST B4)=CROSS.
025421,001459: 34,3334           77606                          PUSH                                           #  HOLD CROSS IN PUSHLIST0. SCALED B6.
025422,001460: 34,3335           60345                          DLOAD    NORM                                  #  OBTAIN ABS VALUE OF LOS.
025423,001461: 34,3336           02316                                   P21TIME                               #  P21TIME IS TEMP STORE FOR ABSLOS.
025424,001462: 34,3337           00047                                   X1                                    
025425,001463: 34,3340           77606                          PUSH                                           #  NORM ABSLOS(DENOM) AND HOLD IN PUSH1.
025426,001464: 
025427,001465: 34,3341           60345                          DLOAD    NORM                                  
025428,001466: 34,3342           00045                                   36D                                   #  NORM ABS VALUE OF DV(NUM).
025429,001467: 34,3343           00051                                   S1                                    
025430,001468: 
025431,001469: 34,3344           70460                          XSU,1    SR1                                   #  X1 = X1(N DENOM)-S1(N NUM).
025432,001470: 34,3345           00050                                   S1                                    #  SR1 TO AVOID OFLOW ON DDV.
025433,001471: 34,3346           74271                          DDV      VXSC                                  #  ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
025434,001472: 34,3347           77730                          SXA,1                                          #  QUOT(MPAC) X CROSS(PUSH0)
025435,001473: 34,3350           03705                                   Q6111                                 #  SAVE SCALE OF RESULT (R-15,1X).
025436,001474:                                                                                                 #                                           X1= NORM OF QUOT. QUOT SCALE B7-B29=B-22
025437,001475:                                                                                                 #                                           CROSS IS SCALED B6. NEED SL1 TO RECOVER
025438,001476:                                                                                                 #                                           SR1 SO THAT -22+6+1=-15. MPAC NOW HOLDS
025439,001477:                                                                                                 #                                           ORTHO LOS RATE (OMEGA TH, B-15,X1).
025440,001478: 34,3351           76521                          MXV      VSL1                                  #  OBTAIN RATE IN SM COORDS (OMEGTHSM) AND
025441,001479: 34,3352           01736                                   REFSMMAT                              #  ADJUST FOR REFSMMAT SCALE OF B1.
025442,001480: 34,3353           00025                          STORE    20D                                   #  OMEGTHSM = VAC20D
025443,001481:                                                                                                 #                                           DELTA THETA SM = OMEGTHSM * .1B-3.
025444,001482: 34,3354           77761                          VXSC                                           
025445,001483: 34,3355           31555                                   TENTH                                 
025446,001484: 34,3356           03212                          STORE    DTHETASM                              #  STORE SM INCREM ANGLES FOR SMCDURES.
025447,001485: 34,3357           77624                          CALL                                           
025448,001486:                                                                                                 # # Page 583
025449,001487: 34,3360           47432                                   CDUTRIG                               #  OBTAIN SIN,COSCDUS FOR SMCDURES.
025450,001488: 34,3361           45001                          SETPD    CALL                                  #  SMCDURES USES PUSH
025451,001489: 34,3362           00001                                   0                                     
025452,001490: 34,3363           47675                                   SMCDURES                              #  OBTAIN DELCDU IN V(DCDU).
025453,001491: 34,3364           77750                          LXA,1                                          #  RELOAD X1
025454,001492: 34,3365           03705                                   Q6111                                 
025455,001493: 34,3366           53775                          VLOAD    VSL*                                  #  RECOVER SCALE.
025456,001494: 34,3367           03204                                   DCDU                                  #  (B-15,X1) + TENTH(B-3) + HALFREVS(B1)
025457,001495: 34,3370           20160                                   0          -17D,1                     #  EQUALS B-17D,1 TO OBTAIN HALFREVS B0.
025458,001496: 34,3371           00017                          STORE    14D                                   #  HOLD DELS IN V(VAC14D) FOR AUTOPILOT.
025459,001497: 
025460,001498: 34,3372           77624                          CALL                                           #  COMPUTES SINES AND COSINES FOR *SMNB*
025461,001499: 34,3373           47432                                   CDUTRIG                               
025462,001500: 34,3374           45175                          VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
025463,001501: 34,3375           00025                                   20D                                   #  VECTOR FOR TRG*SMNB INTO MPAC
025464,001502: 34,3376           47577                                   *SMNB*                                #  OBTAIN ANG. RATE REFERRED TO NB (BODY)
025465,001503: 34,3377           77721                          MXV                                            
025466,001504: 34,3400           31561                                   MBDYTCTL                              #  CONVERT RATE(OMEGA) TO CONTROL COORDS.
025467,001505: 34,3401           77761                          VXSC                                           #  MULT. BY 0.8 TO RESCALE REVS TO 450 DEG.
025468,001506: 34,3402           15270                                   POINT8                                #  RECOVER SCALE.
025469,001507: 34,3403           53750                          LXA,1    VSL*                                  #  RELOAD X1 TO RECOVER NORMALIZ.
025470,001508: 34,3404           03705                                   Q6111                                 #  (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO
025471,001509: 34,3405           20163                                   0          -14D,1                     #  OBTAIN REVS SCALED AT 450 DEGREES.
025472,001510: 
025473,001511: 34,3406           77776        CRS61.2A          EXIT                                           
025474,001512: 34,3407           00004                          INHINT                                         
025475,001513: 34,3410           34714                          CAF      ZERO                                  #  TRANSFER DESIRED GIMBAL ANGLES
025476,001514: 34,3411           55647                          TS       CDUXD      +1                         #  FROM T(SAVEDCDU) TO V(CDUXD).
025477,001515: 34,3412           55651                          TS       CDUYD      +1                         
025478,001516: 34,3413           55653                          TS       CDUZD      +1                         
025479,001517: 34,3414           31772                          CA       SAVEDCDU                              
025480,001518: 34,3415           55646                          TS       CDUXD                                 
025481,001519: 34,3416           31773                          CA       SAVEDCDU   +1                         
025482,001520: 34,3417           55650                          TS       CDUYD                                 
025483,001521: 34,3420           31774                          CA       SAVEDCDU   +2                         
025484,001522: 34,3421           55652                          TS       CDUZD                                 
025485,001523: 
025486,001524: 34,3422           00006                          EXTEND                                         #  TRANSFER OMEGA CONTROL (ANG.LOS RATE)
025487,001525: 34,3423           30155                          DCA      MPAC                                  #  FROM V(MPAC) TO V(WBODY ).
025488,001526: 34,3424           53526                          DXCH     WBODY                                 
025489,001527: 34,3425           00006                          EXTEND                                         
025490,001528: 34,3426           30160                          DCA      MPAC       +3                         
025491,001529: 34,3427           53530                          DXCH     WBODY1                                
025492,001530: 34,3430           00006                          EXTEND                                         
025493,001531: 34,3431           30162                          DCA      MPAC       +5                         
025494,001532: 34,3432           53532                          DXCH     WBODY2                                
025495,001533: 
025496,001534: 34,3433           00006                          EXTEND                                         #  TRANSFER CDU INCREMENTS
025497,001535: 34,3434           50120                          INDEX    FIXLOC                                #  FROM V(VAC14D) TO V(DELCDUX).
025498,001536: 34,3435           30017                          DCA      14D                                   
025499,001537:                                                                                                 # # Page 584
025500,001538: 34,3436           53576                          DXCH     DELCDUX                               
025501,001539: 34,3437           00006                          EXTEND                                         
025502,001540: 34,3440           50120                          INDEX    FIXLOC                                
025503,001541: 34,3441           30021                          DCA      16D                                   
025504,001542: 34,3442           53600                          DXCH     DELCDUY                               
025505,001543: 34,3443           00006                          EXTEND                                         
025506,001544: 34,3444           50120                          INDEX    FIXLOC                                
025507,001545: 34,3445           30023                          DCA      18D                                   
025508,001546: 34,3446           53602                          DXCH     DELCDUZ                               
025509,001547: 34,3447           44712                          CS       ONE                                   #  NOW DAP VARIABLES LOADED. SET HOLDFLAG.
025510,001548: 34,3450           55332                          TS       HOLDFLAG                              #  TO -1.
025511,001549: 34,3451           00003                          RELINT                                         
025512,001550: 34,3452           34714                          CAF      ZERO                                  #  NORMAL RETURN (MPAC = 0)
025513,001551: 34,3453           03256                          TC       ASET                                  
025514,001552: 34,3454           06006        MANUEXIS          TC       INTPRET                               
025515,001553: 34,3455           77751        MANUEXIT          TLOAD                                          #  ENTER FROM STEP2. ACDU-DCDU EXCEEDS
025516,001554: 34,3456           03373                                   SAVEDCDU                              #  10 DEG. STORE DCDU(T) IN CPHI,CTHETA,
025517,001555: 34,3457           01156                          STORE    CPHI                                  #  CPSI FOR KALCMANU.
025518,001556: 34,3460           52135                          SLOAD    GOTO                                  #  SPECIAL RETURN (MPAC+0 = 1
025519,001557: 34,3461           31603                                   LOONE                                 #  OCTAL 00001
025520,001558: 34,3462           03704                                   Q611                                  
025521,001559: 
025522,001560: 34,3463           71220        R63               STQ      DLOAD                                 #  SUBR TO CALC DCDUS(T)
025523,001561: 34,3464           03705                                   Q6111                                 
025524,001562: 34,3465           02316                                   P21TIME                               
025525,001563: 34,3466           34041                          STCALL   TDEC1                                 
025526,001564: 34,3467           27045                                   CSMCONIC                              
025527,001565: 34,3470           77775        HOLDATT           VLOAD                                          #  HOLD EXTRAPOLATED CSM POSITION AND
025528,001566: 34,3471           00001                                   RATT                                  #  VELOCITY
025529,001567: 34,3472           27707                          STOVL    SAVEPOS                               
025530,001568: 34,3473           00007                                   VATT                                  
025531,001569: 34,3474           03715                          STORE    SAVEVEL                               
025532,001570: 34,3475           77745        CALCLEM           DLOAD                                          #  EXTRAPOLATE LEM STATE VECTOR TO SAVE
025533,001571: 34,3476           02316                                   P21TIME                               #  TIME AS CSM USING LEMCONIC
025534,001572: 34,3477           34041                          STCALL   TDEC1                                 
025535,001573: 34,3500           27057                                   LEMCONIC                              
025536,001574: 34,3501           77775                          VLOAD                                          
025537,001575: 34,3502           00007                                   VATT                                  
025538,001576: 34,3503           27204                          STOVL    DCDU                                  #  STORE VATT IN DCDU TEMPORARILY
025539,001577: 34,3504           00001                                   RATT                                  #  LOS = RL  RC
025540,001578: 34,3505           53451                          VSU      UNIT                                  
025541,001579: 34,3506           03707                                   SAVEPOS                               
025542,001580: 34,3507           03707                          STORE    SAVEPOS                               #  SAVE UNITLOS FOR CRS61.2 RATE CALC.
025543,001581: 34,3510           76521                          MXV      VSL1                                  
025544,001582: 34,3511           01736                                   REFSMMAT                              #  CONVERT TO STABLE MEMBER
025545,001583: 34,3512           17357                          STODL    POINTVSM                              
025546,001584: 34,3513           00045                                   36D                                   #  HOLD ABS VAL OF LOS (VAC 36D)
025547,001585: 34,3514           02316                          STORE    P21TIME                               #  IN D(P21TIME) FOR CRS61.2 RATE CALC.
025548,001586: 34,3515           77775                          VLOAD                                          
025549,001587: 34,3516           15330                                   UNITX                                 
025550,001588:                                                                                                 # # Page 585
025551,001589: 34,3517           37351                          STCALL   SCAXIS                                #  TRACK AXIS UNIT VECTOR
025552,001590: 34,3520           56126                                   VECPOINT                              #  FOR +X-AXIS TRACKING ATTITUDE
025553,001591: 34,3521           01334                          STORE    CPHIX                                 #  STORE ANGLES FOR N96 DISPLAY
025554,001592: 34,3522           77775                          VLOAD                                          
025555,001593: 34,3523           31544                                   PRFUNIT                               
025556,001594: 34,3524           37351                          STCALL   SCAXIS                                
025557,001595: 34,3525           56126                                   VECPOINT                              
025558,001596: 34,3526           03723                          STORE    PRAXIS                                #  STORE ANGLES FOR N95 DISPLAY
025559,001597: 34,3527           77614                          BOFF                                           
025560,001598: 34,3530           02745                                   PRFTRKAT                              
025561,001599: 34,3531           71535                                   CRSTOR1                               
025562,001600: 34,3532           01156        CRSTOR            STORE    THETAD                                #  STORE ANGLES FOR N18 DISPLAY
025563,001601: 34,3533           77650                          GOTO                                           
025564,001602: 34,3534           03705                                   Q6111                                 
025565,001603: 34,3535           77775        CRSTOR1           VLOAD                                          
025566,001604: 34,3536           15330                                   UNITX                                 
025567,001605: 34,3537           03351                          STORE    SCAXIS                                
025568,001606: 34,3540           52151                          TLOAD    GOTO                                  
025569,001607: 34,3541           01334                                   CPHIX                                 
025570,001608: 34,3542           71532                                   CRSTOR                                
025571,001609: 34,3543           15066 17626  PRFUNIT           2DEC     .40957602                             #  55 DEG TRACK AXIS UNIT VECTOR
025572,001610: 34,3545           00000 00000                    2DEC     0.0                                   #   FOR USE WITH VECPOINT
025573,001611: 34,3547           11132 27477                    2DEC     .28678822                             
025574,001612: 34,3551           01616        DEGREE10          DEC      .05556                                #  10 DEG IN REVS                 STEP2
025575,001613: 34,3552           37651 16721  RVCS/RDS          2DEC     15.915494  B-4                        #  100/2PI REV-CSEC/RAD-SEC.
025576,001614: 34,3554           31463 06315  TENTH             2DEC     .1         B+3                        #  .1 B-3 (TO SCALE ANG.RATE TO .1 INREMS)
025577,001615: 34,3556           20000 00000  MAT1B1            2DEC     1.0        B-1                        
025578,001616: 34,3560           20000 00000  MBDYTCTL          2DEC     .5                                    #                  7.25 DEG NEGATIVE
025579,001617: 34,3562           00000 00000                    2DEC     0          B-28                       #                  X-AXIS ROTATION MATRIX
025580,001618: 34,3564           00000 00000                    2DEC     0          B-28                       #                  CONVERTS BODY TO CTL
025581,001619: 34,3566           00000 00000                    2DEC     0          B-28                       #                  AXES. CAME AS QUADROT
025582,001620: 34,3570           17676 20113                    2DEC     .99200495  B-1                        #  COS7.25 B1     BUT SCALED B1
025583,001621: 34,3572           75766 45544                    2DEC     -.12619897 B-1                        #  -SIN7.25 B1
025584,001622: 34,3574           00000 00000                    2DEC     0          B-28                       
025585,001623: 34,3576           02011 32233                    2DEC     .12619897  B-1                        #  SIN7.25 B1
025586,001624: 34,3600           17676 20113                    2DEC     .99200495  B-1                        #  COS7.25 B1
025587,001625:                                                                                                 # # Page 586
025588,001626: 34,3602           00001        LOONE             OCT      00001                                 #  TO SET MPAC = 00001 FOR SPECIAL EXIT.
025589,001627: 34,3603     7707               FURST3            EQUALS   13,14,15                              #  CONSTANT FOR AUTOCK (OCT 70000).
025590,001628: 
025591,001629:                                                                                                 # # Page 587
025592,001630:                                                                                                 #  ..... S22.1 ORBITAL NAVIGATION ROUTINE
025593,001631:                                                                                                 #  MOD 1
025594,001632: 
025595,001633:                                                                                                 #  FUNCTONAL DESCRIPTION
025596,001634:                                                                                                 #   1. UPDATE CSM STATE VECTOR
025597,001635:                                                                                                 #   2. UPDATE LANDMARK POSITION
025598,001636:                                                                                                 #   3. CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS
025599,001637: 
025600,001638:                                                                                                 #  SUBROUTINES CALLED
025601,001639:                                                                                                 #   INTSTALL,INTEGRV,GETNUM,SETRE,R-TO-TP,RP-TO-R,BVECTORS,INCORP1,INCORP2
025602,001640:                                                                                                 #   LALOTORV,S22F2410,LAT-LONG,ROWDOT
025603,001641: 
025604,001642:                                                                                                 #  ERASABLE INITIALIZATION
025605,001643:                                                                                                 #   W=9X9 MATRIX
025606,001644:                                                                                                 #   ORBWFLAG=0 FOR INVALID W MATRIX,=1 FOR VALID W MATRIX
025607,001645:                                                                                                 #   ASTRONAUT ENTRY OF KNOWN,L,OFF
025608,001646:                                                                                                 #   8NN= NUMBER OF MARKS  DECIMAL INTEGER B-14
025609,001647:                                                                                                 #   REFSMMAT= TRANSFORMATION MATRIX
025610,001648:                                                                                                 #   MARKSTAT= ADDRESS OF START OF MARK DATA (MARK DATA OF EACH MARK IS
025611,001649:                                                                                                 #             STORED AS FOLLOWS,  TIME,AIG,SA,AMG,PA,AOG) TIME IS IN DOUBLE
025612,001650:                                                                                                 #             PRECISION,ALL OTHERS ARE IN SINGLE PRECISION
025613,001651:                                                                                                 #   CSM STATE VECTOR
025614,001652: 
025615,001653:                                                                                                 #  OUTPUT
025616,001654:                                                                                                 #   UPDATED CSM STATE VECTOR
025617,001655:                                                                                                 #   UPDATED LANDMARK POSITION
025618,001656:                                                                                                 #   NEW 6 DIMENSIONAL W MATRIX
025619,001657: 
025620,001658:                                                                                                 #  DEBRIS
025621,001659:                                                                                                 #   PUSH LIST,CSMPOS,ALPHAV,ERADM,UM,RCLP,USTAR,VARIANCE,X789,BVECTOR,8KK,
025622,001660:                                                                                                 #   S22LOC, SVMRKDAT TABLE,22SUBSCL,LANDMARK,CXOFF,S22C,LAT,LOG,ALT,
025623,001661:                                                                                                 #   TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
025624,001662: 
025625,001663: 13,2176                                          BANK     13                                    
025626,001664: 
025627,001665: 30,2000                                          SETLOC   P20S6                                 
025628,001666: 30,2000                                          BANK                                           
025629,001667: 
025630,001668: 30,2255  0002751                                 EBANK=   LANDMARK                              
025631,001669: 30,2255                                          COUNT    35/LUORB                              
025632,001670: 
025633,001671: 30,2255           66220        S22.1             STQ      SSP                                   
025634,001672: 30,2256           03703                                   S22RTNEX                              
025635,001673: 30,2257           00051                                   S1                                    
025636,001674: 30,2260           00006                          DEC      6          B-14                       
025637,001675: 30,2261           66331                          SSP      SSP                                   #  SET I=1  ITEM 8KK IS I
025638,001676: 30,2262           02747                                   8KK                                   
025639,001677: 30,2263           00001                          DEC      1          B-14                       
025640,001678: 30,2264           02751                                   S22LOC                                
025641,001679: 30,2265           03537                          ECADR    SVMRKDAT                              #  SET MARK DATA ADDRESS INTO S22LOC
025642,001680:                                                                                                 # # Page 588
025643,001681: 30,2266           76144                          LXC,2    AXT,1                                 
025644,001682: 30,2267           01330                                   MARKSTAT                              
025645,001683: 30,2270           00044                          DEC      36         B-14                       
025646,001684: 30,2271           77773        S22.111           VLOAD*                                         #  MOVE MARK DATA (5 SETS FROM ADDR. IN
025647,001685: 30,2272           77776                                   0,2                                   #  MARKSTAT TO SVMRKDAT TABLE TO AVOID LOSS
025648,001686: 30,2273           07604                          STORE    SVMRKDAT   +36D,1                     #  IF RESTART OCCURS
025649,001687: 30,2274           60114                          INCR,2   TIX,1                                 
025650,001688: 30,2275           77771                          DEC      -6         B-14                       
025651,001689: 30,2276           60271                                   S22.111                               
025652,001690: 30,2277           77414                          SET      EXIT                                  
025653,001691: 30,2300           01464                                   P22MKFLG                              #  DOWNLINKED SVMRKDAT HOLDS PRESENT MARKS
025654,001692: 30,2301           04555                          TC       BANKCALL                              #  RELEASE VAC AREA WHERE MARK DATA WAS
025655,001693: 30,2302           16063                          CADR     MKRELEAS                              
025656,001694: 30,2303           05261                          TC       2PHSCHNG                              
025657,001695: 30,2304           00004                          OCT      00004                                 
025658,001696: 30,2305           05022                          OCT      05022                                 
025659,001697: 30,2306           13000                          OCT      13000                                 
025660,001698: 30,2307           06006                          TC       INTPRET                               
025661,001699: 30,2310           43170                          AXT,1    BOFF                                  
025662,001700: 30,2311           00000                                   0D                                    
025663,001701: 30,2312           04343                                   CMOONFLG                              #  =0 EARTH,=1 MOON
025664,001702: 30,2313           60316                                   S22SHIFT                              
025665,001703: 30,2314           77710                          INCR,1                                         
025666,001704: 30,2315           77775                          DEC      -2         B-14                       
025667,001705: 30,2316           40330        S22SHIFT          SXA,1    SETPD                                 
025668,001706: 30,2317           03673                                   S22EORM                               #  SET =0 EARTH,=-2 MOON FOR SHIFTING
025669,001707: 30,2320           00001                                   0D                                    
025670,001708: 30,2321           77624        FIG2EXIT          CALL                                           
025671,001709: 30,2322           27371                                   INTSTALL                              
025672,001710: 30,2323           77624                          CALL                                           
025673,001711: 30,2324           61326                                   S22FLGS                               
025674,001712:                                                                                                 #                  FLOWCHART D=0   THEN DIM0FLAG=0  D6OR9FLG NOT TESTED
025675,001713:                                                                                                 #                  FLOWCHART D=6   THEN DIM0FLAG=1  D60R9FLG=0
025676,001714:                                                                                                 #                  FLOWCHART D=9   THEN DIM0FLAG=1  D6OR9FLG=1
025677,001715: 
025678,001716: 30,2325           43014                          BOFF     CLRGO                                 
025679,001717: 30,2326           01751                                   ORBWFLAG                              
025680,001718: 30,2327           60332                                   SETWW5D                               #  BRANCH TO SET W0-W5,ORBWFLAG,D
025681,001719: 30,2330           01635                                   D6OR9FLG                              #  FLOWCHART D=6 PATH
025682,001720: 30,2331           60357                                   SETVANDI                              
025683,001721: 30,2332           77614        SETWW5D           CLEAR                                          
025684,001722: 30,2333           01676                                   DIM0FLAG                              #  FLOWCHART D=0 PATH
025685,001723: 30,2334           66370                          AXT,1    SSP                                   
025686,001724: 30,2335           00154                          DEC      108        B-14                       
025687,001725: 30,2336           00051                                   S1                                    
025688,001726: 30,2337           00006                          DEC      6          B-14                       
025689,001727: 30,2340           77214                          CLEAR    VLOAD                                 
025690,001728: 30,2341           02676                                   RENDWFLG                              #  GSOP CHANGE 8/18/67
025691,001729: 30,2342           15332                                   ZEROVECS                              
025692,001730: 30,2343           06555        CLEARWW5          STORE    W          +108D,1                    
025693,001731:                                                                                                 # # Page 589
025694,001732: 30,2344           67300                          TIX,1    SLOAD                                 
025695,001733: 30,2345           60343                                   CLEARWW5                              
025696,001734: 30,2346           02005                                   WORBPOS                               
025697,001735: 30,2347           02401                          STORE    W                                     #  SET DIAGONALS OF W0
025698,001736: 30,2350           02411                          STORE    W          +8D                        
025699,001737: 30,2351           02421                          STORE    W          +16D                       
025700,001738: 30,2352           77735                          SLOAD                                          
025701,001739: 30,2353           02006                                   WORBVEL                               
025702,001740: 30,2354           02511                          STORE    W          +72D                       #  SET DIAGONALS OF W4
025703,001741: 30,2355           02521                          STORE    W          +80D                       
025704,001742: 30,2356           02531                          STORE    W          +88D                       
025705,001743: 30,2357           77614        SETVANDI          CLEAR                                          
025706,001744: 30,2360           02666                                   DMENFLG                               #  0=6X6W, 1=9X9W
025707,001745: 30,2361           77624        S22NXTIN          CALL                                           
025708,001746: 30,2362           61322                                   GETTF                                 
025709,001747: 30,2363           34041                          STCALL   TDEC1                                 
025710,001748: 30,2364           27113                                   INTEGRV                               
025711,001749: 30,2365           77624                          CALL                                           
025712,001750: 30,2366           61273                                   S22CALRC                              #  CALC. RC  B-29 OR B-27 (CSMPOS)
025713,001751: 30,2367           66150                          LXA,1    SXA,1                                 
025714,001752: 30,2370           02750                                   S22LOC                                #  SETUP ADDR. OF MARK DATA FOR GETUM SUBR.
025715,001753: 30,2371           01242                                   MARKDATA                              
025716,001754: 30,2372           77624                          CALL                                           #  COMPUTE UM
025717,001755: 30,2373           47110        S2GETUM                    GETUM                                 
025718,001756: 30,2374           01235                          STORE    UM                                    
025719,001757: 30,2375           41535        DMPINTEG          SLOAD    PUSH                                  #  TEST OFF=I
025720,001758: 30,2376           02747                                   8KK                                   
025721,001759: 30,2377           50535                          SLOAD    SR3                                   #  CXOFF SCALED B-5, MUST MOVE TO B-14
025722,001760: 30,2400           02746                                   CXOFF                                 #  BEFORE SUBT.
025723,001761: 30,2401           50442                          SR3      SR3                                   
025724,001762: 30,2402           77625                          DSU                                            
025725,001763: 30,2403           43030                          BHIZ     BON                                   
025726,001764: 30,2404           60720                                   S22OFF=I                              #  BRANCH HERE IF OFF=I
025727,001765: 30,2405           02706                                   DMENFLG                               #  0=6X6W, 1=9X9W
025728,001766: 30,2406           60726                                   S22D=9                                
025729,001767: 30,2407           77624                          CALL                                           
025730,001768: 30,2410           56712                                   GRP2PC                                
025731,001769: 30,2411           77614                          SET                                            
025732,001770: 30,2412           01471                                   ORBWFLAG                              
025733,001771: 30,2413           43014                          SET      SET                                   
025734,001772: 30,2414           02466                                   DMENFLG                               #  =0 ON FIRST PASS THRU HERE FOR D=0,OR 6
025735,001773: 30,2415           01062                                   22DSPFLG                              #  =1 TO DISPLAY DR,DV ON FIRST PASS
025736,001774: 30,2416           43014                          SET      BON                                   
025737,001775: 30,2417           00462                                   ERADFLAG                              #  =1 TO COMPUTE FISCHER RADIUS
025738,001776: 30,2420           03307                                   KNOWNFLG                              
025739,001777: 30,2421           61070                                   S22BOX22                              
025740,001778: 30,2422           53575                          VLOAD    UNIT                                  #  UNIT ALSO PUTS ABVAL(RC) IN 36D
025741,001779: 30,2423           01207                                   CSMPOS                                
025742,001780: 30,2424           02152                          STORE    ALPHAV                                #  ALPHAV +4=SINL FOR SETRE
025743,001781: 30,2425           43014                          CLEAR    BOFF                                  
025744,001782:                                                                                                 # # Page 590
025745,001783: 30,2426           01663                                   LUNAFLAG                              
025746,001784: 30,2427           04343                                   CMOONFLG                              
025747,001785: 30,2430           60433                                   S22C=I                                
025748,001786: 30,2431           77614                          SET                                            
025749,001787: 30,2432           01463                                   LUNAFLAG                              
025750,001788: 30,2433           77624        S22C=I            CALL                                           #  ERADM= R0 METERS B-29 BOTH EARTH/MOON
025751,001789: 30,2434           26533                                   SETRE                                 
025752,001790: 30,2435           77624                          CALL                                           #  COMPUTE RL FROM EQUATION 2.4.10
025753,001791: 30,2436           61240                                   S22F2410                              #  STORED IN X789,MPAC  B-27,B-29
025754,001792: 30,2437           70414                          BOFF     VSR2                                  #  SCALE RL B-29 FOR BOTH EARTH/MOON
025755,001793: 30,2440           04343                                   CMOONFLG                              
025756,001794: 30,2441           60442                                   +1                                    
025757,001795: 30,2442           02635                          STORE    S22RL                                 
025758,001796: 30,2443           72441                          DOT      SL1                                   
025759,001797: 30,2444           01235                                   UM                                    
025760,001798: 30,2445           24037                          STOVL    S22D                                  #  D= UM.RL B-29
025761,001799: 30,2446           15332                                   ZEROVECS                              
025762,001800: 30,2447           41401                          SETPD    PUSH                                  
025763,001801: 30,2450           00001                                   0D                                    
025764,001802: 30,2451           65206                          PUSH     PDDL                                  #  SET 0-18D = I BACKWARDS
025765,001803: 30,2452           15330                                   HIDPHALF                              #  PD 18
025766,001804: 30,2453           77702                          SR2                                            #  B-3
025767,001805: 30,2454           00005                          STORE    4D                                    
025768,001806: 30,2455           00011                          STORE    8D                                    
025769,001807: 30,2456           24015                          STOVL    12D                                   
025770,001808: 30,2457           01235                                   UM                                    #  B-1
025771,001809: 30,2460           24023                          STOVL    S223X1                                
025772,001810: 30,2461           02635                                   S22RL                                 #  B-29
025773,001811: 30,2462           77624                          CALL                                           #  (UM)(RL T) B-30 STORED IN S22UMRL THRU
025774,001812: 30,2463           61303                                   S2231X13                              #  S22UMRL +17D
025775,001813: 30,2464           66370                          AXT,1    SSP                                   
025776,001814: 30,2465           00022                          DEC      18         B-14                       
025777,001815: 30,2466           00051                                   S1                                    
025778,001816: 30,2467           00006                          DEC      6          B-14                       
025779,001817: 30,2470           70573        S22NXTU           VLOAD*   VSR2                                  #  (UM)(RL T) B-32
025780,001818: 30,2471           03524                                   S22UMRL    +18D,1                     
025781,001819: 30,2472           77741                          V/SC                                           
025782,001820: 30,2473           00037                                   S22D                                  #  D B-29
025783,001821: 30,2474           45445                          BVSU     STADR                                 #  SUBTRACT FROM I B-3
025784,001822: 30,2475           70253                          STORE    S22UMRL    +18D,1                     #  U MATRIX B-3
025785,001823: 30,2476           76100                          TIX,1    AXT,1                                 #  PD 0 AFTER TIX
025786,001824: 30,2477           60470                                   S22NXTU                               
025787,001825: 30,2500           00044                          DEC      36         B-14                       #  S1 STILL 6 FROM ABOVE
025788,001826: 30,2501           64373        S22NXTWI          VLOAD*   MXV                                   
025789,001827: 30,2502           02445                                   W          +36D,1                     #  B-19
025790,001828: 30,2503           03502                                   S22UMRL                               #  B-3
025791,001829: 30,2504           77732                          SL2R                                           
025792,001830: 30,2505           06621                          STORE    W          +144D,1                    #  W(I+18)= UW(I) B-19
025793,001831: 30,2506           71300                          TIX,1    DLOAD                                 
025794,001832: 30,2507           60501                                   S22NXTWI                              
025795,001833:                                                                                                 # # Page 591
025796,001834: 30,2510           00041                                   S22RHO                                #  B-28,B-30
025797,001835: 30,2511           60414                          BOFF     SR2                                   #  MAKE RHO B-30
025798,001836: 30,2512           04343                                   CMOONFLG                              
025799,001837: 30,2513           60514                                   +1                                    
025800,001838: 30,2514           57101                          NORM     XAD,2                                 
025801,001839: 30,2515           00050                                   X2                                    
025802,001840: 30,2516           00047                                   X2                                    
025803,001841: 30,2517           41316                          DSQ      DMP                                   
025804,001842: 30,2520           21650                                   SCTVAR                                #  B+18
025805,001843: 30,2521           77742                          SR1                                            #  ACCOUNTS FOR 1/2 IN DEXT FORMULA
025806,001844: 30,2522           00041                          STORE    S22RHO                                #  1/2(RHO SQ)(VARSCT)
025807,001845: 30,2523           77770                          AXT,1                                          
025808,001846: 30,2524           00022                          DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
025809,001847: 30,2525           64373        S22NXXA           VLOAD*   MXV                                   
025810,001848: 30,2526           03524                                   S22UMRL    +18D,1                     #  B-3
025811,001849: 30,2527           03502                                   S22UMRL                               #  B-3
025812,001850: 30,2530           53761                          VXSC     VSR*                                  
025813,001851: 30,2531           00041                                   S22RHO                                
025814,001852: 30,2532           57212                                   0          -12D,2                     #  WITH VARRP SCALED B-28
025815,001853: 30,2533           05301                          STORE    S22UUT     +18D,1                     #  1/2(RHO SQ)(VARSCT)(U)(U T)
025816,001854: 30,2534           77300                          TIX,1    VLOAD                                 
025817,001855: 30,2535           60525                                   S22NXXA                               
025818,001856: 30,2536           01235                                   UM                                    
025819,001857: 30,2537           34023                          STCALL   S223X1                                #  UM ALSO IN MPAC FOR S2231X13 SUBR.
025820,001858: 30,2540           61303                                   S2231X13                              #  (UM)(UM T) B-2 IN S22UMRL,P17D
025821,001859: 30,2541           50545                          DLOAD    SR3                                   
025822,001860: 30,2542           02241                                   ERADM                                 #  R0 B-29
025823,001861: 30,2543           63471                          DDV      DSQ                                   
025824,001862: 30,2544           00037                                   S22D                                  #  B-29
025825,001863: 30,2545           77605                          DMP                                            
025826,001864: 30,2546           02010                                   RPVAR                                 #  ***** METERS SQ
025827,001865: 30,2547           00041                          STORE    S22RHO                                #  TEMP (VARRP)(R0/D)
025828,001866: 30,2550           77770                          AXT,1                                          
025829,001867: 30,2551           00022                          DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
025830,001868: 30,2552           74373        S22NXXB           VLOAD*   VXSC                                  
025831,001869: 30,2553           03524                                   S22UMRL    +18D,1                     #  (UM)(UM T) B-2
025832,001870: 30,2554           00041                                   S22RHO                                
025833,001871: 30,2555           77653                          VAD*                                           
025834,001872: 30,2556           01301                                   S22UUT     +18D,1                     
025835,001873: 30,2557           05301                          STORE    S22UUT     +18D,1                     #  SMALL E MATRIX
025836,001874: 30,2560           77775                          VLOAD                                          
025837,001875: 30,2561           15332                                   ZEROVECS                              
025838,001876: 30,2562           06643                          STORE    W          +162D,1                    #  CLEAR W8
025839,001877: 30,2563           40100                          TIX,1    BOV                                   
025840,001878: 30,2564           60552                                   S22NXXB                               
025841,001879: 30,2565           60566                                   +1                                    
025842,001880: 30,2566           50145                          DLOAD    BMN                                   
025843,001881: 30,2567           01277                                   S22UUT     +16D                       #  E5
025844,001882: 30,2570           60607                                   S22W76X                               
025845,001883: 30,2571           53166                          SQRT     BZE                                   
025846,001884:                                                                                                 # # Page 592
025847,001885: 30,2572           60607                                   S22W76X                               
025848,001886: 30,2573           16625                          STODL    W          +148D                      #  W74= SQ ROOT E5
025849,001887: 30,2574           01275                                   S22UUT     +14D                       #  E4
025850,001888: 30,2575           40071                          DDV      BOV                                   
025851,001889: 30,2576           02625                                   W          +148D                      
025852,001890: 30,2577           60601                                   S22W72X                               
025853,001891: 30,2600           02623                          STORE    W          +146D                      #  W73= E4/W74
025854,001892: 30,2601           56345        S22W72X           DLOAD    DDV                                   
025855,001893: 30,2602           01273                                   S22UUT     +12D                       #  E3
025856,001894: 30,2603           02625                                   W          +148D                      
025857,001895: 30,2604           77600                          BOV                                            
025858,001896: 30,2605           60607                                   S22W76X                               
025859,001897: 30,2606           02621                          STORE    W          +144D                      #  W72= E4/W74
025860,001898: 30,2607           63545        S22W76X           DLOAD    DSQ                                   
025861,001899: 30,2610           02623                                   W          +146D                      #  W73
025862,001900: 30,2611           50021                          BDSU     BMN                                   
025863,001901: 30,2612           01267                                   S22UUT     +8D                        #  E2
025864,001902: 30,2613           60627                                   S22W78X                               
025865,001903: 30,2614           53166                          SQRT     BZE                                   
025866,001904: 30,2615           60627                                   S22W78X                               
025867,001905: 30,2616           16631                          STODL    W          +152D                      #  W76= SQ ROOT (E2-W73 SQ)
025868,001906: 30,2617           02621                                   W          +144D                      #  W72
025869,001907: 30,2620           44205                          DMP      BDSU                                  
025870,001908: 30,2621           02623                                   W          +146D                      #  W73
025871,001909: 30,2622           01265                                   S22UUT     +6D                        #  E1
025872,001910: 30,2623           40071                          DDV      BOV                                   
025873,001911: 30,2624           02631                                   W          +152D                      #  W76
025874,001912: 30,2625           60627                                   S22W78X                               
025875,001913: 30,2626           02627                          STORE    W          +150D                      #  W75= (E1-W72W73)/W76
025876,001914: 30,2627           63545        S22W78X           DLOAD    DSQ                                   
025877,001915: 30,2630           02627                                   W          +150D                      
025878,001916: 30,2631           63525                          PDDL     DSQ                                   
025879,001917: 30,2632           02621                                   W          +144D                      #  W72
025880,001918: 30,2633           77615                          DAD                                            
025881,001919: 30,2634           50021                          BDSU     BMN                                   
025882,001920: 30,2635           01257                                   S22UUT                                #  E0
025883,001921: 30,2636           60641                                   S22SCLW                               
025884,001922: 30,2637           77766                          SQRT                                           
025885,001923: 30,2640           02635                          STORE    W          +156D                      #  W78= SQ RT(E0-W72 SQ-W75 SQ)
025886,001924: 30,2641           74575        S22SCLW           VLOAD    VSR1                                  #  SCALE W6 METERS B-19
025887,001925: 30,2642           02621                                   W          +144D                      
025888,001926: 30,2643           26621                          STOVL    W          +144D                      
025889,001927: 30,2644           02627                                   W          +150D                      
025890,001928: 30,2645           77762                          VSR1                                           
025891,001929: 30,2646           26627                          STOVL    W          +150D                      
025892,001930: 30,2647           02635                                   W          +156D                      
025893,001931: 30,2650           77762                          VSR1                                           
025894,001932: 30,2651           02635                          STORE    W          +156D                      
025895,001933: 30,2652           77624        S22SAVET          CALL                                           
025896,001934: 30,2653           61322                                   GETTF                                 
025897,001935:                                                                                                 # # Page 593
025898,001936: 30,2654           03672                          STORE    S22TPRIM                              #  SAVE PRESENT TIME FOR PIOS
025899,001937: 30,2655           77776        S22I=N            EXIT                                           #  TEST I=N
025900,001938: 30,2656           05301                          TC       PHASCHNG                              
025901,001939: 30,2657           04022                          OCT      04022                                 
025902,001940: 30,2660           41746                          CS       8KK                                   
025903,001941: 30,2661           61747                          AD       8NN                                   
025904,001942: 30,2662           00006                          EXTEND                                         
025905,001943: 30,2663           63126                          BZMF     S22F244X                              #  EXIT TO FIGURE 2.4-4
025906,001944: 30,2664           31746                          CA       8KK                                   #  I=I+1
025907,001945: 30,2665           64712                          AD       ONE                                   
025908,001946: 30,2666           55300                          TS       TEMPOR1                               
025909,001947: 30,2667           31750                          CA       S22LOC                                #  ADD 7 TO LOC TO GET ADDR. OF NEXT MARK
025910,001948: 30,2670           64716                          AD       SEVEN                                 
025911,001949: 30,2671           55301                          TS       TEMPOR1    +1                         
025912,001950: 30,2672           05301                          TC       PHASCHNG                              
025913,001951: 30,2673           04022                          OCT      04022                                 
025914,001952: 30,2674           31300                          CA       TEMPOR1                               
025915,001953: 30,2675           55746                          TS       8KK                                   
025916,001954: 30,2676           31301                          CA       TEMPOR1    +1                         
025917,001955: 30,2677           55750                          TS       S22LOC                                
025918,001956: 30,2700           06006                          TC       INTPRET                               
025919,001957: 30,2701           77624                          CALL                                           #  FOR ALL INTEGRATIONS OTHER THAN FIRST
025920,001958: 30,2702           27371        S2INTS1                    INTSTALL                              
025921,001959: 30,2703           77624                          CALL                                           
025922,001960: 30,2704           61326                                   S22FLGS                               
025923,001961: 30,2705           43014                          BON      CLEAR                                 
025924,001962: 30,2706           02706                                   DMENFLG                               
025925,001963: 30,2707           60361                                   S22NXTIN                              #  RETURN ALWAYS EXCEPT OFFSET POINT MARK 1
025926,001964: 30,2710           01676                                   DIM0FLAG                              
025927,001965: 30,2711           43014                          BOFF     SET                                   
025928,001966: 30,2712           01751                                   ORBWFLAG                              
025929,001967: 30,2713           60361                                   S22NXTIN                              #  OFFSET POINT MARK 1,NO W INTEGRATION
025930,001968: 30,2714           01476                                   DIM0FLAG                              
025931,001969: 30,2715           77614                          CLRGO                                          
025932,001970: 30,2716           01635                                   D6OR9FLG                              
025933,001971: 30,2717           60361                                   S22NXTIN                              #  OFFSET POINT MARK 1,INTEGRATE W 6X6
025934,001972: 30,2720           77624        S22OFF=I          CALL                                           
025935,001973: 30,2721           61322                                   GETTF                                 
025936,001974: 30,2722           27670                          STOVL    S22TOFF                               #  TIME SUB OFF
025937,001975: 30,2723           01235                                   UM                                    
025938,001976: 30,2724           35215                          STCALL   S22UOFF                               #  U SUB OFF
025939,001977: 30,2725           60655                                   S22I=N                                #  TEST I=N
025940,001978: 30,2726           77775        S22D=9            VLOAD                                          #  D=9 PATH
025941,001979: 30,2727           01701                                   X789                                  
025942,001980: 30,2730           14001                          STODL    0D                                    #  CALL PIOS TWICE TO TRANSFORM RL TO TIME
025943,001981: 30,2731           03672                                   S22TPRIM                              #  T(SUB F) FROM TIME T PRIME
025944,001982: 30,2732           00007                          STORE    6D                                    
025945,001983: 30,2733           45135                          SLOAD    CALL                                  
025946,001984: 30,2734           03674                                   S22EORM                               #  0=EARTH,NON-ZERO=MOON
025947,001985: 30,2735           55366        S2RTRP                     R-TO-RP                               
025948,001986:                                                                                                 # # Page 594
025949,001987: 30,2736           45006                          PUSH     CALL                                  #  R-TO-RP LEAVES PUSHLOC AT 0
025950,001988: 30,2737           61322                                   GETTF                                 
025951,001989: 30,2740           00007                          STORE    6D                                    
025952,001990: 30,2741           45135                          SLOAD    CALL                                  
025953,001991: 30,2742           03674                                   S22EORM                               
025954,001992: 30,2743           55341        S2RPTR                     RP-TO-R                               
025955,001993: 30,2744           01701        S22BOX32          STORE    X789                                  
025956,001994: 30,2745           40014                          SET      BOV                                   
025957,001995: 30,2746           02464                                   INCORFLG                              #  FLAG=1
025958,001996: 30,2747           60750                                   +1                                    #  CLEAR OVERFLOW
025959,001997: 30,2750           77651                          VSU                                            
025960,001998: 30,2751           01207                                   CSMPOS                                
025961,001999: 30,2752           03531                          STORE    RCLP                                  #  RCL=RL-RC
025962,002000: 30,2753           47256                          UNIT     VXV                                   #  USTAR=UNIT(UNIT(RCL)XUM)
025963,002001: 30,2754           01235                                   UM                                    
025964,002002: 30,2755           40056                          UNIT     BOV                                   
025965,002003: 30,2756           60652                                   S22SAVET                              #  COMPUTATION OVERFLOW,SAVE TF
025966,002004: 30,2757           01245                          STORE    USTAR                                 
025967,002005: 30,2760           43014        S22BOX12          SET      SET                                   
025968,002006: 30,2761           02466                                   DMENFLG                               #  =1 FOR 9X9 W
025969,002007: 30,2762           00467                                   VEHUPFLG                              #  =1 FOR CSM
025970,002008: 30,2763           43345                          DLOAD    DAD                                   
025971,002009: 30,2764           21650                                   SCTVAR                                #  B+18
025972,002010: 30,2765           21652                                   IMUVARR                               #   B+18
025973,002011: 30,2766           27526                          STOVL    VARIANCE                              
025974,002012: 30,2767           03531                                   RCLP                                  #   B-29 OR B-27
025975,002013: 30,2770           60246                          ABVAL    NORM                                  
025976,002014: 30,2771           00047                                   X1                                    
025977,002015: 30,2772           41316                          DSQ      DMP                                   
025978,002016: 30,2773           03526                                   VARIANCE                              
025979,002017: 30,2774           56070                          XAD,1    XAD,1                                 
025980,002018: 30,2775           00046                                   X1                                    #  DOUBLE NORM SHIFT SINCE RCLP WAS SQUARED
025981,002019: 30,2776           03673                                   S22EORM                               #  DOUBLE EARTH OR MOON SHIFT,SAME REASON
025982,002020: 30,2777           53670                          XAD,1    SR*                                   
025983,002021: 30,3000           03673                                   S22EORM                               
025984,002022: 30,3001           20601                                   0,1                                   #  SCALE VARIANCE B-40 FOR BOTH EARTH,MOON
025985,002023: 30,3002           77751                          TLOAD                                          #  CHANGE MODE TO TRIPLE
025986,002024: 30,3003           00155                                   MPAC                                  
025987,002025: 30,3004           37526                          STCALL   VARIANCE                              #  CALC B0,B1,DELTAQ, NEW USTAR
025988,002026: 30,3005           47047        S2BVTRS                    BVECTORS                              
025989,002027: 30,3006           57575                          VLOAD    VCOMP                                 
025990,002028: 30,3007           03502                                   BVECTOR                               
025991,002029: 30,3010           37516                          STCALL   BVECTOR    +12D                       #  B2=-B0
025992,002030: 30,3011           75250        S2INCP1                    INCORP1                               
025993,002031: 30,3012           77624                          CALL                                           
025994,002032: 30,3013           56712                                   GRP2PC                                
025995,002033: 30,3014           43014                          BOFF     CLEAR                                 
025996,002034: 30,3015           01342                                   22DSPFLG                              #  =1 DISPLAY DELTA R,V  =0 DO NOT
025997,002035: 30,3016           61047                                   S22BOX42                              
025998,002036: 30,3017           01262                                   22DSPFLG                              
025999,002037:                                                                                                 # # Page 595
026000,002038: 30,3020           77624                          CALL                                           
026001,002039: 30,3021           56712                                   GRP2PC                                
026002,002040: 30,3022           51575                          VLOAD    ABVAL                                 
026003,002041: 30,3023           01257                                   DELTAX                                #  DELTA R
026004,002042: 30,3024           53750                          LXA,1    SR*                                   
026005,002043: 30,3025           03673                                   S22EORM                               #  SCALE DELTA R ALWAYS METERS B-29
026006,002044: 30,3026           20601                                   0,1                                   
026007,002045: 30,3027           27502                          STOVL    N49DISP                               
026008,002046: 30,3030           01265                                   DELTAX     +6                         #  DELTA V
026009,002047: 30,3031           53646                          ABVAL    SR*                                   #  DELTA V=METERS/CSEC B-7 ALWAYS
026010,002048: 30,3032           20601                                   0,1                                   
026011,002049: 30,3033           03504                          STORE    N49DISP    +2                         
026012,002050: 30,3034           77776                          EXIT                                           
026013,002051: 30,3035           33655                          CAF      V06N49EE                              
026014,002052: 30,3036           04555                          TC       BANKCALL                              
026015,002053: 30,3037           20763                          CADR     GOFLASHR                              
026016,002054: 30,3040           04106                          TC       GOTOPOOH                              #  V34E TERMINATE
026017,002055: 30,3041           03046                          TC       +5                                    #  INCORPORATE CHANGES
026018,002056: 30,3042           03230                          TC       S22EXEX                               #  V32E RECYCLE
026019,002057: 30,3043           34710                          CAF      BIT3                                  
026020,002058: 30,3044           05415                          TC       BLANKET                               
026021,002059: 30,3045           05112                          TC       ENDOFJOB                              
026022,002060: 30,3046           06006                          TC       INTPRET                               
026023,002061: 30,3047           77624        S22BOX42          CALL                                           
026024,002062: 30,3050           75460                                   INCORP2                               
026025,002063: 30,3051           77624                          CALL                                           #  CSMPOS=RC B-29 OR B-27
026026,002064: 30,3052           61273                                   S22CALRC                              
026027,002065: 30,3053           77414        DMPINCP2          BOFF     EXIT                                  
026028,002066: 30,3054           02744                                   INCORFLG                              
026029,002067: 30,3055           60652                                   S22SAVET                              #  SAVE TF AND TEST I=N
026030,002068: 30,3056           05301                          TC       PHASCHNG                              
026031,002069: 30,3057           04022                          OCT      04022                                 
026032,002070: 30,3060           06006                          TC       INTPRET                               
026033,002071: 30,3061           77214                          CLEAR    VLOAD                                 
026034,002072: 30,3062           02664                                   INCORFLG                              #  FLAG=0
026035,002073: 30,3063           01701                                   X789                                  
026036,002074: 30,3064           77651                          VSU                                            
026037,002075: 30,3065           01207                                   CSMPOS                                
026038,002076: 30,3066           37531                          STCALL   RCLP                                  #  RCL=RL-RC
026039,002077: 30,3067           60760                                   S22BOX12                              
026040,002078: 30,3070           66370        S22BOX22          AXT,1    SSP                                   #  CLEAR W6,W7,W8  (27 ELEMENTS 54 REGS)
026041,002079: 30,3071           00066                          DEC      54         B-14                       
026042,002080: 30,3072           00051                                   S1                                    
026043,002081: 30,3073           00006                          DEC      6          B-14                       
026044,002082: 30,3074           77775                          VLOAD                                          
026045,002083: 30,3075           15332                                   ZEROVECS                              
026046,002084: 30,3076           06643        CLRW678           STORE    W          +162D,1                    
026047,002085: 30,3077           67300                          TIX,1    SLOAD                                 
026048,002086: 30,3100           61076                                   CLRW678                               
026049,002087: 30,3101           02007                                   S22WSUBL                              
026050,002088:                                                                                                 # # Page 596
026051,002089: 30,3102           02621                          STORE    W          +144D                      
026052,002090: 30,3103           02631                          STORE    W          +152D                      
026053,002091: 30,3104           02641                          STORE    W          +160D                      
026054,002092: 30,3105           43014                          CLEAR    BOFF                                  #  SET LUNAFLAG, TIME FOR LALOTORV
026055,002093: 30,3106           01663                                   LUNAFLAG                              #  ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY
026056,002094: 30,3107           04343                                   CMOONFLG                              #  CHECK SCALING OF ITEMS,ALT INPUT AND
026057,002095: 30,3110           61113                                   S22BX22A                              #  RL OUTPUT IN ALPHAV BOTH B-29
026058,002096: 30,3111           77614                          SET                                            
026059,002097: 30,3112           01463                                   LUNAFLAG                              
026060,002098: 30,3113           77624        S22BX22A          CALL                                           
026061,002099: 30,3114           61322                                   GETTF                                 
026062,002100: 30,3115           77624                          CALL                                           #  COMPUTE RL
026063,002101: 30,3116           26373                                   LALOTORV                              
026064,002102: 30,3117           43175                          VLOAD    BOFF                                  
026065,002103: 30,3120           02152                                   ALPHAV                                #  RL B-29
026066,002104: 30,3121           04343                                   CMOONFLG                              
026067,002105: 30,3122           61124                                   S22BX22B                              
026068,002106: 30,3123           77752                          VSL2                                           #  SCALE RL B-27 FOR MOON
026069,002107: 30,3124           77650        S22BX22B          GOTO                                           
026070,002108: 30,3125           60744                                   S22BOX32                              
026071,002109: 30,3126           06006        S22F244X          TC       INTPRET                               
026072,002110: 30,3127           46135        S22F244           SLOAD    BHIZ                                  #  FIG 2.4-4   TEST OFF=0
026073,002111: 30,3130           02746                                   CXOFF                                 
026074,002112: 30,3131           61160                                   S22BOX44                              
026075,002113: 30,3132           77776                          EXIT                                           
026076,002114: 30,3133           05301                          TC       PHASCHNG                              
026077,002115: 30,3134           04022                          OCT      04022                                 
026078,002116: 30,3135           06006                          TC       INTPRET                               
026079,002117: 30,3136           77745                          DLOAD                                          
026080,002118: 30,3137           03670                                   S22TOFF                               
026081,002119: 30,3140           34041                          STCALL   TDEC1                                 #  CALC RC AT OFFSET TIME
026082,002120: 30,3141           27022                                   CSMPREC                               
026083,002121: 30,3142           77775                          VLOAD                                          
026084,002122: 30,3143           00017                                   RATT1                                 #  RC METERS B-29 OR B-27
026085,002123: 30,3144           25207                          STOVL    CSMPOS                                
026086,002124: 30,3145           01215                                   S22UOFF                               
026087,002125: 30,3146           25235                          STOVL    UM                                    #  U=UOFF
026088,002126: 30,3147           01701                                   X789                                  
026089,002127: 30,3150           43046                          ABVAL    BOFF                                  
026090,002128: 30,3151           04343                                   CMOONFLG                              
026091,002129: 30,3152           61154                                   +2                                    
026092,002130: 30,3153           77702                          SR2                                            #  SCALE MOON R0 B-29 FOR S22F2410 SUBR
026093,002131: 30,3154           36241                          STCALL   ERADM                                 
026094,002132: 30,3155           61240                                   S22F2410                              
026095,002133: 30,3156           77650                          GOTO                                           
026096,002134: 30,3157           61163                                   S22BX44A                              
026097,002135: 30,3160           77624        S22BOX44          CALL                                           
026098,002136: 30,3161           61322                                   GETTF                                 
026099,002137: 30,3162           03670                          STORE    S22TOFF                               #  PRESENT TIME FOR LAT-LONG SETUP
026100,002138: 30,3163           77214        S22BX44A          CLEAR    VLOAD                                 
026101,002139:                                                                                                 # # Page 597
026102,002140: 30,3164           01663                                   LUNAFLAG                              
026103,002141: 30,3165           01701                                   X789                                  
026104,002142: 30,3166           43014                          BOFF     SET                                   
026105,002143: 30,3167           04343                                   CMOONFLG                              
026106,002144: 30,3170           61173                                   S22BX44B                              
026107,002145: 30,3171           01463                                   LUNAFLAG                              #  SET = 1 FOR LAT-LONG
026108,002146: 30,3172           77742                          VSR2                                           #  SCALE RL MOON B-29 FOR LAT-LONG
026109,002147: 30,3173           16152        S22BX44B          STODL    ALPHAV                                #  RL SCALED B-29 FOR LAT-LONG
026110,002148: 30,3174           03670                                   S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
026111,002149: 30,3175           77624                          CALL                                           
026112,002150: 30,3176           26322                                   LAT-LONG                              #  **** ALT OUTPUT ALWAYS B-29
026113,002151: 30,3177           77624                          CALL                                           #  DISPLAY LAT/LONG/ALT
026114,002152: 30,3200           61336                                   LLASRD                                
026115,002153: 30,3201           77776                          EXIT                                           
026116,002154: 30,3202           33656                          CAF      V06N89B                               
026117,002155: 30,3203           04555                          TC       BANKCALL                              
026118,002156: 30,3204           20624                          CADR     GOFLASH                               
026119,002157: 30,3205           03233                          TC       S22GTP                                #  V34E TERMINATE
026120,002158: 30,3206           03210                          TC       +2                                    #  PROCEED   SAVE LANDING SITE COORD
026121,002159: 30,3207           03224                          TC       S22.981X                              #  RECYCLE   POINT A IN GSOP
026122,002160: 30,3210           06006                          TC       INTPRET                               
026123,002161: 30,3211           70740                          LXC,1    DLOAD*                                
026124,002162: 30,3212           02750                                   S22LOC                                
026125,002163: 30,3213           00001                                   0,1                                   
026126,002164: 30,3214           24007                          STOVL    6D                                    #  6-7D= LANDING SITE TIME FOR R-TO-RP
026127,002165: 30,3215           01701                                   X789                                  
026128,002166: 30,3216           00001                          STORE    0D                                    #  0-5D= LANDING SITE VEC  FOR R-TO-RP
026129,002167: 30,3217           45135                          SLOAD    CALL                                  
026130,002168: 30,3220           15330                                   HIDPHALF                              #  ANY NON-ZERO FOR MOON
026131,002169: 30,3221           55366                                   R-TO-RP                               #  CONVERT RLS TO MOON-FIXED COORD
026132,002170: 30,3222           02026                          STORE    RLS                                   #  LANDING SITE VECTOR
026133,002171: 30,3223           77776                          EXIT                                           
026134,002172: 30,3224           06006        S22.981X          TC       INTPRET                               
026135,002173: 30,3225           77624                          CALL                                           
026136,002174: 30,3226           61354                                   9DWTO6DW                              
026137,002175: 30,3227           77776                          EXIT                                           #  GO TO POINT A IN CHAPTER 5
026138,002176: 30,3230           06006        S22EXEX           TC       INTPRET                               #  WITHOUT CONVERTING W
026139,002177: 30,3231           77650                          GOTO                                           
026140,002178: 30,3232           03703                                   S22RTNEX                              
026141,002179: 
026142,002180: 30,3233           06006        S22GTP            TC       INTPRET                               #  CONVERT W BEFORE TC GOTOPOOH
026143,002181: 30,3234           77624                          CALL                                           
026144,002182: 30,3235           61354                                   9DWTO6DW                              
026145,002183: 30,3236           77776                          EXIT                                           
026146,002184: 30,3237           04106                          TC       GOTOPOOH                              
026147,002185: 30,3240           77201        S22F2410          SETPD    VLOAD                                 #  COMPUTE FORMULA 2.4.10
026148,002186: 30,3241           00001                                   0D                                    
026149,002187: 30,3242           01207                                   CSMPOS                                #  RC B-29 EARTH,B-27 MOON
026150,002188: 30,3243           50256                          UNIT     DOT                                   #  UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
026151,002189: 30,3244           01235                                   UM                                    
026152,002190:                                                                                                 # # Page 598
026153,002191: 30,3245           57552                          SL1      DCOMP                                 #  GSOP CHANGE 8/18/67
026154,002192: 30,3246           77606                          PUSH                                           #  PD 2D 0D=COSA=-(UM.RC)/ABVAL(RC) B-1
026155,002193: 30,3247           44316                          DSQ      BDSU                                  
026156,002194: 30,3250           21654                                   DEC1B2                                
026157,002195: 30,3251           43125                          PDDL     BOFF                                  #  PD 4D  2D=1-COSA SQ=SINA SQ  B-2
026158,002196: 30,3252           02241                                   ERADM                                 #  R0 ALWAYS B-29 FROM SETRE
026159,002197: 30,3253           04343                                   CMOONFLG                              
026160,002198: 30,3254           61256                                   +2                                    
026161,002199: 30,3255           77712                          SL2                                            #  SCALE R0 B-27 FOR MOON
026162,002200: 30,3256           56362                          SR1R     DDV                                   #  (R0/RC) B-1
026163,002201: 30,3257           00045                                   36D                                   
026164,002202: 30,3260           45316                          DSQ      DSU                                   #  PD 2D (RP/RC) SQ - SINA SQ  B-2
026165,002203: 30,3261           44366                          SQRT     BDSU                                  #  PD 0D COSA-SQRT((R0/RC)SQ-SINA SQ) B-1
026166,002204: 30,3262           77605                          DMP                                            #  DMP RESULT B-28 MOON,B-30 EARTH
026167,002205: 30,3263           00045                                   36D                                   #  VXSC RESULT B-29 MOON, B-31 EARTH
026168,002206: 30,3264           00041                          STORE    S22RHO                                #  RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
026169,002207: 30,3265           77761                          VXSC                                           
026170,002208: 30,3266           01235                                   UM                                    
026171,002209: 30,3267           53352                          VSL2     VAD                                   #  SCALE B-27 MOON,B-29 EARTH AND ADD RC
026172,002210: 30,3270           01207                                   CSMPOS                                
026173,002211: 30,3271           01701                          STORE    X789                                  
026174,002212: 30,3272           77616                          RVQ                                            #  B-27 FOR EARTH OR B-29 FOR MOON
026175,002213: 30,3273           77350        S22CALRC          LXA,1    VLOAD                                 #  COMPUTE RC B-29 OR B-27
026176,002214: 30,3274           03673                                   S22EORM                               #  =0 FOR EARTH,-2 FOR MOON
026177,002215: 30,3275           01573                                   DELTACSM                              
026178,002216: 30,3276           53257                          VSR*     VAD                                   
026179,002217: 30,3277           20610                                   7,1                                   
026180,002218: 30,3300           01607                                   RCVCSM                                
026181,002219: 30,3301           01207                          STORE    CSMPOS                                
026182,002220: 30,3302           77616                          RVQ                                            
026183,002221: 30,3303           00031        S2231X13          STORE    S221X3                                #  MULT 3X1 BY 1X3,STORE RESULTING 3X3 IN
026184,002222: 30,3304           77131                          SSP      AXT,2                                 #  S22UMRL- S22UMRL +17D
026185,002223: 30,3305           00052                                   S2                                    
026186,002224: 30,3306           00002                          DEC      2          B-14                       
026187,002225: 30,3307           00006                          DEC      6          B-14                       
026188,002226: 30,3310           77770                          AXT,1                                          
026189,002227: 30,3311           00022                          DEC      18         B-14                       
026190,002228: 30,3312           73775        S2231NXT          VLOAD    VXSC*                                 
026191,002229: 30,3313           00031                                   S221X3                                
026192,002230: 30,3314           77746                                   S223X1     +6,2                       
026193,002231: 30,3315           07524                          STORE    S22UMRL    +18D,1                     
026194,002232: 30,3316           61110                          INCR,1   TIX,2                                 
026195,002233: 30,3317           77771                          DEC      -6         B-14                       
026196,002234: 30,3320           61312                                   S2231NXT                              
026197,002235: 30,3321           77616                          RVQ                                            
026198,002236: 30,3322           70740        GETTF             LXC,1    DLOAD*                                #  SET MPAC= TF
026199,002237: 30,3323           02750                                   S22LOC                                
026200,002238: 30,3324           00001                                   0,1                                   
026201,002239: 30,3325           77616                          RVQ                                            
026202,002240:                                                                                                 # # Page 599
026203,002241: 30,3326           43014        S22FLGS           SET      SET                                   #  INTEGRATION FLAGS
026204,002242: 30,3327           01476                                   DIM0FLAG                              
026205,002243: 30,3330           01475                                   D6OR9FLG                              
026206,002244: 30,3331           43014                          SET      SET                                   
026207,002245: 30,3332           01474                                   VINTFLAG                              
026208,002246: 30,3333           01472                                   STATEFLG                              
026209,002247: 30,3334           43414                          CLEAR    RVQ                                   
026210,002248: 30,3335           01673                                   INTYPFLG                              
026211,002249: 
026212,002250:                                                                                                 #  SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
026213,002251:                                                                                                 #  PRIOR TO DISPLAY.
026214,002252: 
026215,002253: 30,3336           77745        LLASRD            DLOAD                                          #  ALT , LANDALT METERS B-29
026216,002254: 30,3337           01110                                   ALT                                   
026217,002255: 30,3340           16362                          STODL    LANDALT                               
026218,002256: 30,3341           01106                                   LONG                                  
026219,002257: 30,3342           77742                          SR1                                            
026220,002258: 30,3343           02360                          STORE    LANDLONG                              
026221,002259: 30,3344           77616                          RVQ                                            
026222,002260:                                                                                                 #  SUBROUTINE TO MODIFY LANDALT AND STORE LANDALT TO LANDALT+5 IN LAT TO
026223,002261:                                                                                                 #  LAT+5 AFTER LMK DATA LOADED BY ASTRONAUT.
026224,002262: 
026225,002263: 30,3345           77745        LLASRDA           DLOAD                                          #  ALT , LANDALT METERS B-29
026226,002264: 30,3346           02362                                   LANDALT                               
026227,002265: 30,3347           15110                          STODL    ALT                                   
026228,002266: 30,3350           02360                                   LANDLONG                              
026229,002267: 30,3351           77752                          SL1                                            
026230,002268: 30,3352           01106                          STORE    LONG                                  
026231,002269: 30,3353           77616                          RVQ                                            
026232,002270: 30,3354           40220        9DWTO6DW          STQ      SETPD                                 
026233,002271: 30,3355           01214                                   9DWXX                                 
026234,002272: 30,3356           00001                                   0D                                    
026235,002273: 30,3357           41575                          VLOAD    PUSH                                  #  CLEAR WORKING AREA OF PUSHLIST
026236,002274: 30,3360           15332                                   HI6ZEROS                              #  INCLUDING P
026237,002275: 30,3361           41406                          PUSH     PUSH                                  #  PD 18D
026238,002276: 30,3362           77731                          SSP                                            
026239,002277: 30,3363           00017                                   9DWJ                                  #  J=29   USE 2*29 FOR DP WORDS
026240,002278: 30,3364           00072                          DEC      58         B-14                       
026241,002279: 30,3365           66150        9DWI=J            LXA,1    SXA,1                                 #  SET I=J
026242,002280: 30,3366           00016                                   9DWJ                                  
026243,002281: 30,3367           00012                                   9DWI                                  
026244,002282: 30,3370           77624        9DWEPCAL          CALL                                           
026245,002283: 30,3371           61606                                   ROWDOT                                
026246,002284: 30,3372           77750                          LXA,1                                          #  P VARIES 0-20 INSTEAD OF 20-0
026247,002285: 30,3373           00010                                   9DWP                                  
026248,002286: 30,3374           06641                          STORE    EMATRIX    +40D,1                     
026249,002287: 30,3375           66110                          INCR,1   SXA,1                                 
026250,002288: 30,3376           00002                          DEC      2          B-14                       
026251,002289: 30,3377           00010                                   9DWP                                  
026252,002290: 30,3400           46135                          SLOAD    BHIZ                                  #  TEST I=0
026253,002291:                                                                                                 # # Page 600
026254,002292: 30,3401           00013                                   9DWI                                  
026255,002293: 30,3402           61417                                   9DWTESTJ                              
026256,002294: 30,3403           77625                          DSU                                            #  I=I-1
026257,002295: 30,3404           21646                                   9DWID                                 
026258,002296: 30,3405           00013                          STORE    9DWI                                  
026259,002297: 30,3406           46025                          DSU      BHIZ                                  #  TEST I=26
026260,002298: 30,3407           21644                                   9DW26D                                
026261,002299: 30,3410           61413                                   9DWSETI2                              
026262,002300: 30,3411           77650                          GOTO                                           #  NEXT E SUB P
026263,002301: 30,3412           61370                                   9DWEPCAL                              
026264,002302: 30,3413           52131        9DWSETI2          SSP      GOTO                                  #  I=2
026265,002303: 30,3414           00013                                   9DWI                                  
026266,002304: 30,3415           00004                          DEC      4          B-14                       
026267,002305: 30,3416           61370                                   9DWEPCAL                              
026268,002306: 30,3417           46135        9DWTESTJ          SLOAD    BHIZ                                  #  TEST J=0
026269,002307: 30,3420           00017                                   9DWJ                                  
026270,002308: 30,3421           61436                                   9DWFIG6                               
026271,002309: 30,3422           77625                          DSU                                            
026272,002310: 30,3423           21646                                   9DWID                                 
026273,002311: 30,3424           00017                          STORE    9DWJ                                  #  J=J-1
026274,002312: 30,3425           46025                          DSU      BHIZ                                  #  TEST J=26
026275,002313: 30,3426           21644                                   9DW26D                                
026276,002314: 30,3427           61432                                   9DWSETJ2                              
026277,002315: 30,3430           77650                          GOTO                                           
026278,002316: 30,3431           61365                                   9DWI=J                                
026279,002317: 30,3432           52131        9DWSETJ2          SSP      GOTO                                  #  SET J=2
026280,002318: 30,3433           00017                                   9DWJ                                  
026281,002319: 30,3434           00004                          DEC      4          B-14                       
026282,002320: 30,3435           61365                                   9DWI=J                                
026283,002321: 30,3436           77624        9DWFIG6           CALL                                           
026284,002322: 30,3437           56712                                   GRP2PC                                
026285,002323: 30,3440           77331                          SSP      VLOAD                                 #  START OF FIGURE 2.4-6
026286,002324: 30,3441           00017                                   9DWJ                                  #  J=29
026287,002325: 30,3442           00072                          DEC      58         B-14                       
026288,002326: 30,3443           15332                                   HI6ZEROS                              
026289,002327: 30,3444           00011                          STORE    9DWP                                  #  P,N,I=0
026290,002328: 30,3445           66370                          AXT,1    SSP                                   
026291,002329: 30,3446           00154                          DEC      108        B-14                       #  CLEAR W0 TO W54
026292,002330: 30,3447           00051                                   S1                                    
026293,002331: 30,3450           00006                                   6                                     
026294,002332: 30,3451           06555        CLEARW54          STORE    W          +108D,1                    
026295,002333: 30,3452           77700                          TIX,1                                          
026296,002334: 30,3453           61451                                   CLEARW54                              
026297,002335: 30,3454           66150        9DWI=JA           LXA,1    SXA,1                                 #  I=J
026298,002336: 30,3455           00016                                   9DWJ                                  
026299,002337: 30,3456           00012                                   9DWI                                  
026300,002338: 30,3457           77624                          CALL                                           
026301,002339: 30,3460           61606                                   ROWDOT                                
026302,002340: 30,3461           43750                          LXA,1    BDSU*                                 
026303,002341: 30,3462           00010                                   9DWP                                  
026304,002342:                                                                                                 # # Page 601
026305,002343: 30,3463           02641                                   EMATRIX    +40D,1                     
026306,002344: 30,3464           66110                          INCR,1   SXA,1                                 #  -(P+1)
026307,002345: 30,3465           00002                                   2                                     
026308,002346: 30,3466           00010                                   9DWP                                  
026309,002347: 30,3467           54140                          LXC,1    XSU,1                                 #  -(I+N)
026310,002348: 30,3470           00012                                   9DWI                                  
026311,002349: 30,3471           00014                                   9DWN                                  
026312,002350: 30,3472           71244                          BPL      DLOAD                                 #  TEST WSQ LTE 0
026313,002351: 30,3473           61477                                   9DWAAA                                
026314,002352: 30,3474           15332                                   HI6ZEROS                              #  W=0
026315,002353: 30,3475           77650                          GOTO                                           
026316,002354: 30,3476           61500                                   9DWAAB                                
026317,002355: 30,3477           77766        9DWAAA            SQRT                                           #  W= SQRT(WSQ)
026318,002356: 30,3500           06401        9DWAAB            STORE    W,1                                   
026319,002357: 30,3501           14001                          STODL    WORKW                                 
026320,002358: 30,3502           00017                                   9DWJ                                  #  TEST J=0
026321,002359: 30,3503           77630                          BHIZ                                           
026322,002360: 30,3504           61572                                   9DWEXITX                              #  EXIT
026323,002361: 30,3505           46135        TST2I=0           SLOAD    BHIZ                                  #  TEST I=0
026324,002362: 30,3506           00013                                   9DWI                                  
026325,002363: 30,3507           61550                                   9DWN=N+3                              
026326,002364: 30,3510           77625                          DSU                                            
026327,002365: 30,3511           21646                                   9DWID                                 
026328,002366: 30,3512           00013                          STORE    9DWI                                  #  I=I-1
026329,002367: 30,3513           46025                          DSU      BHIZ                                  #  TEST I=26
026330,002368: 30,3514           21644                                   9DW26D                                
026331,002369: 30,3515           61520                                   9DWAAC                                
026332,002370: 30,3516           77650                          GOTO                                           
026333,002371: 30,3517           61523                                   9DWNEXEP                              
026334,002372: 30,3520           77731        9DWAAC            SSP                                            #  I=2
026335,002373: 30,3521           00013                                   9DWI                                  
026336,002374: 30,3522           00004                                   4                                     
026337,002375: 30,3523           77624        9DWNEXEP          CALL                                           
026338,002376: 30,3524           61606                                   ROWDOT                                
026339,002377: 30,3525           43750                          LXA,1    BDSU*                                 #  (EP-ROWI*ROWJ)/W
026340,002378: 30,3526           00010                                   9DWP                                  
026341,002379: 30,3527           02641                                   EMATRIX    +40D,1                     
026342,002380: 30,3530           62071                          DDV      INCR,1                                #  P=P+1
026343,002381: 30,3531           00001                                   WORKW                                 
026344,002382: 30,3532           00002                                   2                                     
026345,002383: 30,3533           70130                          SXA,1    LXC,1                                 
026346,002384: 30,3534           00010                                   9DWP                                  
026347,002385: 30,3535           00012                                   9DWI                                  
026348,002386: 30,3536           40060                          XSU,1    BOV                                   #  -(I+N)
026349,002387: 30,3537           00014                                   9DWN                                  
026350,002388: 30,3540           61543                                   SETWIN=0                              
026351,002389: 30,3541           77650                          GOTO                                           
026352,002390: 30,3542           61545                                   9DWSETWX                              
026353,002391: 30,3543           77745        SETWIN=0          DLOAD                                          #  W(I+N)=0
026354,002392: 30,3544           15332                                   HI6ZEROS                              
026355,002393:                                                                                                 # # Page 602
026356,002394: 30,3545           06401        9DWSETWX          STORE    W,1                                   
026357,002395: 30,3546           77650                          GOTO                                           
026358,002396: 30,3547           61505                                   TST2I=0                               
026359,002397: 30,3550           62150        9DWN=N+3          LXA,1    INCR,1                                #  N=N+3
026360,002398: 30,3551           00014                                   9DWN                                  
026361,002399: 30,3552           00006                                   6                                     
026362,002400: 30,3553           67330                          SXA,1    SLOAD                                 #  J=J-1
026363,002401: 30,3554           00014                                   9DWN                                  
026364,002402: 30,3555           00017                                   9DWJ                                  
026365,002403: 30,3556           77625                          DSU                                            
026366,002404: 30,3557           21646                                   9DWID                                 
026367,002405: 30,3560           00017                          STORE    9DWJ                                  
026368,002406: 30,3561           46025                          DSU      BHIZ                                  #  TEST J=26
026369,002407: 30,3562           21644                                   9DW26D                                
026370,002408: 30,3563           61566                                   SETJ=2A                               
026371,002409: 30,3564           77650                          GOTO                                           
026372,002410: 30,3565           61454                                   9DWI=JA                               
026373,002411: 30,3566           52131        SETJ=2A           SSP      GOTO                                  #  J=2
026374,002412: 30,3567           00017                                   9DWJ                                  
026375,002413: 30,3570           00004                                   4                                     
026376,002414: 30,3571           61454                                   9DWI=JA                               
026377,002415: 30,3572           77624        9DWEXITX          CALL                                           
026378,002416: 30,3573           56712                                   GRP2PC                                
026379,002417: 30,3574           66370                          AXT,1    SSP                                   #  CLEAR W6,W7,W8 USED TEMP FOR EMATRIX
026380,002418: 30,3575           00066                          DEC      54         B-14                       
026381,002419: 30,3576           00051                                   S1                                    
026382,002420: 30,3577           00006                                   6                                     
026383,002421: 30,3600           77775                          VLOAD                                          
026384,002422: 30,3601           15332                                   HI6ZEROS                              
026385,002423: 30,3602           06643        9DWEXXXA          STORE    W          +162D,1                    
026386,002424: 30,3603           52100                          TIX,1    GOTO                                  
026387,002425: 30,3604           61602                                   9DWEXXXA                              
026388,002426: 30,3605           01214                                   9DWXX                                 
026389,002427: 30,3606           40131        ROWDOT            SSP      BOV                                   
026390,002428: 30,3607           00007                                   XTMP1                                 
026391,002429: 30,3610           00377                          OCT      377                                   
026392,002430: 30,3611           61612                                   +1                                    
026393,002431: 30,3612           71140                          LXC,1    LXC,2                                 
026394,002432: 30,3613           00012                                   9DWI                                  
026395,002433: 30,3614           00016                                   9DWJ                                  
026396,002434: 30,3615           41545                          DLOAD    PUSH                                  
026397,002435: 30,3616           15332                                   HI6ZEROS                              
026398,002436: 30,3617           56743        ROWDOT1           DLOAD*   DMPR*                                 
026399,002437: 30,3620           02401                                   W,1                                   
026400,002438: 30,3621           75376                                   W,2                                   
026401,002439: 30,3622           41415                          DAD      PUSH                                  
026402,002440: 30,3623           62000                          BOV      INCR,1                                
026403,002441: 30,3624           61640                                   ROWDOT3                               
026404,002442: 30,3625           77771                          DEC      -6         B-14                       
026405,002443: 30,3626           67314                          INCR,2   SLOAD                                 
026406,002444:                                                                                                 # # Page 603
026407,002445: 30,3627           77771                          DEC      -6         B-14                       
026408,002446: 30,3630           00007                                   XTMP1                                 
026409,002447: 30,3631           70430                          BHIZ     SR1                                   
026410,002448: 30,3632           61636                                   ROWDOT2                               
026411,002449: 30,3633           00007                          STORE    XTMP1                                 
026412,002450: 30,3634           77650                          GOTO                                           
026413,002451: 30,3635           61617                                   ROWDOT1                               
026414,002452: 30,3636           77745        ROWDOT2           DLOAD                                          
026415,002453: 30,3637           77616                          RVQ                                            
026416,002454: 30,3640           77614        ROWDOT3           CLRGO                                          
026417,002455: 30,3641           01631                                   ORBWFLAG                              
026418,002456: 30,3642           61636                                   ROWDOT2                               
026419,002457: 30,3643                        WORKW             =        0D                                    
026420,002458: 30,3643                        XTMP1             =        6D                                    
026421,002459: 30,3643                        9DWP              =        8D                                    #  P
026422,002460: 30,3643                        9DWI              =        10D                                   #  I
026423,002461: 30,3643                        9DWN              =        12D                                   #  N
026424,002462: 30,3643                        9DWJ              =        14D                                   #  J
026425,002463: 30,3643     1214               9DWXX             =        S22UOFF                               
026426,002464: 30,3643  E7,1501               S22UMRL           =        BVECTOR                               #  18
026427,002465: 30,3643     1256               S22UUT            =        DELTAX                                #  18
026428,002466: 30,3643                        S223X1            =        18D                                   #  6
026429,002467: 30,3643                        S221X3            =        24D                                   #  6
026430,002468: 30,3643                        S22D              =        30D                                   #  2
026431,002469: 30,3643                        S22RHO            =        32D                                   #  2
026432,002470: 30,3643  0002634               S22RL             =        W          +156D                      #  6
026433,002471: 30,3643           00064 00000  9DW26D            2DEC     52         B-14                       
026434,002472: 30,3645           00002 00000  9DWID             2DEC     2          B-14                       
026435,002473: 30,3647           10306 36750  SCTVAR            2DEC     1.0        E-6        B+18            
026436,002474: 30,3651           00253 31436  IMUVARR           2DEC     0.04       E-6        B+18            
026437,002475: 30,3653           10000 00000  DEC1B2            2DEC     1          B-2                        
026438,002476: 30,3655           01461        V06N49EE          VN       00649                                 
026439,002477: 30,3656           01531        V06N89B           VN       00689                                 
026440,002478: 30,3657     1214               S22UOFF           =        LEMPOS                                #  6      U SUB OFF
026441,002479: 23,2000                                          SETLOC   P20S2                                 
026442,002480: 23,2000                                          BANK                                           
026443,002481: 
026444,002482:                                                                                                 # # Page 604
026445,002483: 
026446,002484: 
026447,002485:                                                                                                 # # Page 605
026448,002486:                                                                                                 #  SUBROUTINE NAME:   V69CALL
026449,002487:                                                                                                 #  MOD NO:  0                      DATE: 8 FEB 1968
026450,002488:                                                                                                 #  MOD BY:  DIGITAL DEVEL GROUP    LOG SECTION: P20-P25
026451,002489: 
026452,002490:                                                                                                 #  FUNCTIONAL DESCRIPTION:
026453,002491: 
026454,002492:                                                                                                 #  CALLED BY VERB 69 ENTER DURING P00. PRIO 10 USED. CALCULATES AND
026455,002493:                                                                                                 #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
026456,002494:                                                                                                 #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
026457,002495: 
026458,002496:                                                                                                 #  1. KEY IN V 89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
026459,002497:                                                                                                 #  EXIT R63, OTHERWISE CONTINUE.
026460,002498: 
026461,002499:                                                                                                 #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH). IF IMU ON AND ITS
026462,002500:                                                                                                 #  ORIENTATION KNOWN TO CGC, CONTINUE.
026463,002501: 
026464,002502:                                                                                                 #  3. FLASH DISPLAY V 04 N 06. R2 INDICATES WHICH SPACECRAFT AXIS IS TO
026465,002503:                                                                                                 #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS. (R2=1).
026466,002504:                                                                                                 #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V 22 E 2 E. CONTINUE
026467,002505:                                                                                                 #  AFTER KEYING IN PROCEED.
026468,002506: 
026469,002507:                                                                                                 #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED. SET FLAG
026470,002508:                                                                                                 #  FOR PREFERRED AXIS. RESET FLAG FOR X AXIS.
026471,002509: 
026472,002510:                                                                                                 #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
026473,002511: 
026474,002512:                                                                                                 #      R63COMP JOB:
026475,002513: 
026476,002514:                                                                                                 #        UPDATE CSM AND LM STATE VECTORS USING CONIC EQUATIONS
026477,002515: 
026478,002516:                                                                                                 #        CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 35M TO LM.
026479,002517: 
026480,002518:                                                                                                 #        DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
026481,002519:                                                                                                 #        ARE STORED FOR LATER R60CSM CALL.
026482,002520: 
026483,002521:                                                                                                 #  6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
026484,002522: 
026485,002523:                                                                                                 #  7. RECYCLE- RETURN TO STEP 5.
026486,002524:                                                                                                 #     TERMINATE- EXIT R63 ROUTINE
026487,002525:                                                                                                 #     PROCEED- RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
026488,002526: 
026489,002527: 
026490,002528:                                                                                                 #  CALLING SEQUENCE: V 69 E
026491,002529: 
026492,002530:                                                                                                 #  SUBROUTINES CALLED: CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
026493,002531: 
026494,002532:                                                                                                 #  ALARMS   1. OPERATOR ERROR IF NOT IN P00
026495,002533:                                                                                                 #           2. PROGRAM ALARM IF IMU IS OFF
026496,002534:                                                                                                 #           3. PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN
026497,002535: 
026498,002536:                                                                                                 # # Page 606
026499,002537:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED: NONE
026500,002538: 
026501,002539:                                                                                                 #  DEBRIS:  OPTION1, OPTION1+1, PRFTRKAT(PREF ATT FLAG),P21TIME, 3AXISFLG
026502,002540: 
026503,002541: 23,3136           00000 13560  DP1MIN            2DEC     6000       B-28                       
026504,002542: 
026505,002543: 
026506,002544: 23,3140  E4,1715                                 EBANK=   P21TIME                               
026507,002545: 34,3603                                          BANK     34                                    
026508,002546: 34,2000                                          SETLOC   P20S4                                 
026509,002547: 34,2000                                          BANK                                           
026510,002548: 34,3603                                          COUNT*   $$/R63                                
026511,002549: 
026512,002550: 
026513,002551: 34,3603           04555        V89CALL           TC       BANKCALL                              #  IMU STATUS CHECK. RETURNS IF ORIENTATION
026514,002552: 34,3604           17573                          CADR     R02BOTH                               #  KNOWN. ALARMS IF NOT.
026515,002553: 34,3605           36214                          CAF      THREE                                 #  ALLOW ASTRONAUT TO SELECT DESURED
026516,002554: 34,3606           55131                          TS       OPTION1                               #  TRACKING ATTITUDE AXIS.
026517,002555: 34,3607           34712                          CAF      ONE                                   
026518,002556: 34,3610           55132                          TS       OPTION1    +1                         
026519,002557: 34,3611           33652                          CAF      VB04N06                               #  V 04 N 06
026520,002558: 34,3612           04555                          TC       BANKCALL                              
026521,002559: 34,3613           20624                          CADR     GOFLASH                               
026522,002560: 34,3614           05423                          TC       ENDEXT                                #  TERMINATE
026523,002561: 34,3615           03617                          TC       +2                                    #  PROCEED
026524,002562: 34,3616           03611                          TC       -5                                    #  DATA IN. OPTION1 +1 = 1 FOR PREF AXIS
026525,002563:                                                                                                 #                                                               = 2 FOR X AXIS
026526,002564: 34,3617           41132                          CS       OPTION1    +1                         #  1 FOR PREF AXIS. 2 FOR X AXIS.
026527,002565: 34,3620           64712                          AD       ONE                                   
026528,002566: 34,3621           00006                          EXTEND                                         
026529,002567: 34,3622           13647                          BZF      SETPAF                                
026530,002568: 34,3623           05447        RSTPAF            TC       DOWNFLAG                              #  RESET PREF ATT FLAG FOR R63COMP
026531,002569: 34,3624           00120                          ADRES    RNGSCFLG                              #  TO DO X AXIS. RESET BIT 10 FLAG 5
026532,002570: 34,3625           06006        V89RECL           TC       INTPRET                               
026533,002571: 34,3626           43234                          RTB      DAD                                   
026534,002572: 34,3627           45505                                   LOADTIME                              #  READ PRESENT TIME
026535,002573: 34,3630           07137                                   DP1MIN                                #  INTEGRATE TO 1 MIN FROM NOW
026536,002574: 34,3631           36316                          STCALL   P21TIME                               #  STORE TIME FOR CALL TO R63COMP.  R63COMP
026537,002575: 34,3632           71463                                   R63COMP                               #  LEAVES DESIRED GIM ANGS IN THETAD,LOS IN
026538,002576: 34,3633           77776                          EXIT                                           #  POINTVSM, AND SELECTED AXIS IN SCAXIS.
026539,002577: 34,3634           33653                          CAF      VB06N18                               #  V 06 N 18
026540,002578: 34,3635           04555                          TC       BANKCALL                              #  NOUN 18 REFERS TO THE DESIRED GIMBAL
026541,002579: 34,3636           20624                          CADR     GOFLASH                               
026542,002580: 34,3637           05423                          TC       ENDEXT                                #  TERMINATE
026543,002581: 34,3640           03642                          TC       +2                                    #  PROCEED
026544,002582: 34,3641           03625                          TC       V89RECL                               #  RECYCLE
026545,002583: 34,3642           05447                          TC       DOWNFLAG                              #  RESET 3 AXIS FLAG
026546,002584: 34,3643           00124                          ADRES    3AXISFLG                              #  RESET BIT 6 FLAG 5
026547,002585:                                                                                                 # # Page 607
026548,002586: 34,3644           04555                          TC       BANKCALL                              #  PERFORMS CSM MANEUVER TO ALIGN SELECTED
026549,002587: 34,3645           56000                          CADR     R60CSM                                #  SPACECRAFT AXIS TO LOS.
026550,002588: 34,3646           15423                          TCF      ENDEXT                                
026551,002589: 
026552,002590: 
026553,002591: 34,3647           05435        SETPAF            TC       UPFLAG                                #  SET PREFERRED ATT FLAG FOR R63COMP
026554,002592: 34,3650           00120                          ADRES    RNGSCFLG                              #  TO DO PREF AXIS. SET BIT 10 FLAG 5.
026555,002593: 34,3651           03625                          TC       V89RECL                               
026556,002594: 
026557,002595: 
026558,002596: 34,3652           01006        VB04N06           VN       0406                                  
026559,002597: 34,3653           01422        VB06N18           VN       0618                                  
026560,002598: 
026561,002599: 34,3654  34,3463               R63COMP           EQUALS   R63                                   
026562,002600: 
026563,002601:                                                                                                 # # Page 608
026564,002602:                                                                                                 #  PROGRAM NAME- P23 CISLUNAR MIDCOURSE NAVIGATION
026565,002603:                                                                                                 #  MOD NO
026566,002604:                                                                                                 #  MOD BY- TOM KNATT
026567,002605:                                                                                                 #  FUNCTIONAL DESCRIPTION- DO MIDCOURSE NAVIGATION BY INCORPORATION OF STAR 
026568,002606:                                                                                                 #  /EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
026569,002607:                                                                                                 #  CALLING SEQUENCE- ASTRONAUT OPERATED
026570,002608:                                                                                                 #  SUBROUTINES CALLED-R52,R53,R57,R30,ORBITAL INTEGRATION (INTEGRV)
026571,002609:                                                                                                 #  INCORP1,INCORP2,LALOTORV,LUNLMKLD,AND DISPLAY INTERFACE ROUTINES.
026572,002610:                                                                                                 #  N0RMAL EXIT MODES- VIA R00
026573,002611:                                                                                                 #  ALARMS- NONE
026574,002612:                                                                                                 #  ABORT MODES- NONE
026575,002613:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED- PAD-LOADED ERASABLES,ORBWFLAG RESET,
026576,002614:                                                                                                 #  REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ON
026577,002615:                                                                                                 #  INPUTS BY USER REQUIRED- STAR NUMBER,LANDMARK LAT,LONG/2, ALT OR ID NUMB.
026578,002616:                                                                                                 #  IF LANDMARK IS USED,        NEAR OR FAR HORIZON IF HORIZON IS USED, AND 
026579,002617:                                                                                                 #  BODY TO BE MARKED ON(EARTH OR MOON).  SEE GSOP CHAPT 4.
026580,002618:                                                                                                 #  OUTPUT-UPDATED CMC STATE VECTOR. VECTOR FROM S/C TO HORIZON OR LANDMARK
026581,002619:                                                                                                 #  IN POINTAXS. POINTAXS CAN BE USED TO GENERATE THIS VECTOR APART FROM
026582,002620:                                                                                                 #  P23 IF DESIRED.
026583,002621:                                                                                                 #  DEBRIS-NO USABLE DEBRIS IS GENERATED. RENDWFLG IS RESET FOR P20 UPON
026584,002622:                                                                                                 #  COMPLETION OF P23. RUPTREGS AND ERASABLES USED BY DISPLAYS ARE DEBRIS.
026585,002623: 31,2021                                          BANK     31                                    
026586,002624: 31,2000                                          SETLOC   RT23                                  
026587,002625: 31,2000                                          BANK                                           
026588,002626: 31,2021                                          COUNT    31/S23                                
026589,002627: 31,2021  0002400                                 EBANK=   W                                     
026590,002628: 31,2021           05447        P23               TC       DOWNFLAG                              
026591,002629: 31,2022           00010                          ADRES    RNDVZFLG                              
026592,002630: 
026593,002631: 31,2023           05261                          TC       2PHSCHNG                              
026594,002632: 31,2024           00004                          OCT      00004                                 #  LEAVE GROUP 4
026595,002633: 31,2025           00012                          OCT      00012                                 #  ENTER GROUP 2
026596,002634: 31,2026           34760                          CAF      PRIO13                                
026597,002635: 31,2027           55056                          TS       PHSPRDT2                              
026598,002636: 31,2030           06006                          TC       INTPRET                               
026599,002637: 31,2031           43131                          SSP      CLEAR                                 
026600,002638: 31,2032           00302                                   MARKINDX                              
026601,002639: 31,2033           00001                                   1                                     
026602,002640: 31,2034           00666                                   TARG2FLG                              #  TARGET FLAG USED R52 AND R53
026603,002641: 31,2035           66214                          CLEAR    SSP                                   
026604,002642: 31,2036           00665                                   TARG1FLG                              
026605,002643: 31,2037           00305                                   STARIND                               
026606,002644: 31,2040           00000                                   0                                     
026607,002645: 31,2041           43131                          SSP      CLEAR                                 
026608,002646: 31,2042           00303                                   BESTI                                 
026609,002647: 31,2043           00000                                   0                                     
026610,002648: 31,2044           03267                                   R57FLAG                               #  SET = DO NOT REPERFORM R57
026611,002649: 31,2045           77414                          CLEAR    EXIT                                  
026612,002650: 31,2046           04664                                   V94FLAG                               #  SET = ALLOW V94
026613,002651: 31,2047           06006        P23.00            TC       INTPRET                               
026614,002652:                                                                                                 # # Page 609
026615,002653: 31,2050           45014                          BON      CALL                                  
026616,002654: 31,2051           01702                                   REFSMFLG                              #  SET NOW AS INPUT, NORMALLY EXTERNAL CONT
026617,002655: 31,2052           62060                                   P23.05                                #  WHEN ALIGNED, PERFORM MEASUREMENT
026618,002656: 31,2053           76360                                   R57                                   #  DO OPTICS CALIBRATION IF IMU NOT ALIGNED
026619,002657: 31,2054           77624                          CALL                                           
026620,002658: 31,2055           31327                                   R53                                   
026621,002659: 31,2056           77650                          GOTO                                           
026622,002660: 31,2057           62236                                   P23.60                                
026623,002661: 31,2060           77414        P23.05            CLEAR    EXIT                                  
026624,002662: 31,2061           04665                                   SAVECFLG                              #  USED TO SAVE SPACE IN P23.65
026625,002663: 31,2062           33050                          CAF      V05N70                                #  REQUEST RESPONSE AND DISPLAY MEASUREMENT
026626,002664: 31,2063           04555                          TC       BANKCALL                              #  IDENTIFICATION- STAR,LMK,HOR  IDENT.
026627,002665: 31,2064           20624                          CADR     GOFLASH                               
026628,002666: 31,2065           04106                          TC       GOTOPOOH                              #  TERMINATE
026629,002667: 31,2066           02070                          TC       P23.15                                
026630,002668: 31,2067           02062                          TC       -5                                    #  REDISPLAY
026631,002669: 31,2070           31751        P23.15            CA       LANDMARK                              #  IF C=2,LUNAFLAG=1. IF C=1,LUNAFLAG=0
026632,002670: 31,2071           00006                          EXTEND                                         
026633,002671: 31,2072           12074                          BZF      +2                                    
026634,002672: 31,2073           02075                          TC       +2                                    
026635,002673: 31,2074           31752                          CA       HORIZON                               #  SET LUNAFLAG FROM HORIZON OR LANDMARK
026636,002674: 31,2075           74703                          MASK     BIT8                                  
026637,002675: 31,2076           00006                          EXTEND                                         
026638,002676: 31,2077           12104                          BZF      P23.16                                
026639,002677: 31,2100           06006                          TC       INTPRET                               
026640,002678: 31,2101           52014                          SET      GOTO                                  
026641,002679: 31,2102           01463                                   LUNAFLAG                              
026642,002680: 31,2103           62107                                   P23.17                                
026643,002681: 31,2104           06006        P23.16            TC       INTPRET                               
026644,002682: 31,2105           77614                          CLEAR                                          
026645,002683: 31,2106           01663                                   LUNAFLAG                              
026646,002684: 31,2107           41535        P23.17            SLOAD    PUSH                                  
026647,002685: 31,2110           00736                                   STARCODE                              
026648,002686: 31,2111           41335                          SLOAD    DMP                                   
026649,002687: 31,2112           23055                                   SPSIX                                 
026650,002688: 31,2113           66150                          LXA,1    SXA,1                                 
026651,002689: 31,2114           00155                                   MPAC       +1                         
026652,002690: 31,2115           00302                                   BESTI                                 #  BESTI = 6XSTAR NUMBER
026653,002691: 31,2116           77624                          CALL                                           
026654,002692: 31,2117           30000                                   LOWMEMRY                              #  NEEDED TO RETRIEVE STAR VECTOR FROM LOW
026655,002693: 31,2120           02617                          STORE    STARSAV2                              #  STORE FOR R53,P23. US(IN P23)=STARSAV2
026656,002694: 31,2121           77776                          EXIT                                           
026657,002695: 31,2122           31751                          CA       LANDMARK                              
026658,002696: 31,2123           73052                          MASK     OCT00077                              
026659,002697: 31,2124           55753                          TS       IDOFLMK                               #  FOR R3(DE) LUNAFLAG ALREADY SET
026660,002698: 31,2125           31752                          CA       HORIZON                               
026661,002699: 31,2126           00006                          EXTEND                                         
026662,002700: 31,2127           12144                          BZF      P23.12                                
026663,002701: 31,2130           74706                          MASK     BIT5                                  #  IF D=1,NORFHOR=0(NEAR).D=2,NORFHOR=1,FAR
026664,002702: 31,2131           00006                          EXTEND                                         
026665,002703:                                                                                                 # # Page 610
026666,002704: 31,2132           12137                          BZF      P23.18                                
026667,002705: 31,2133           06006                          TC       INTPRET                               
026668,002706: 31,2134           52014                          SET      GOTO                                  
026669,002707: 31,2135           00064                                   NORFHOR                               
026670,002708: 31,2136           62142                                   P23.19                                
026671,002709: 31,2137           06006        P23.18            TC       INTPRET                               
026672,002710: 31,2140           77614                          CLEAR                                          
026673,002711: 31,2141           00264                                   NORFHOR                               
026674,002712: 31,2142           77776        P23.19            EXIT                                           
026675,002713: 31,2143           02156                          TC       P23.30                                
026676,002714: 31,2144           31753        P23.12            CA       IDOFLMK                               #  IF R2(DE) NONZERO, LMK IS IDENTIFIED
026677,002715: 31,2145           00006                          EXTEND                                         
026678,002716: 31,2146           12150                          BZF      P23.20                                #  LANDMARK NOT IDENTIFIED
026679,002717: 31,2147           02156                          TC       P23.30                                #  LANDMARK IS IDENTIFIED
026680,002718: 31,2150           33047        P23.20            CAF      V6N89                                 #  REQUEST RESPONSE AND DISPLAY LMK DATA
026681,002719: 31,2151           04555                          TC       BANKCALL                              #  R1=LAT,R2=LONG/2,R3=ALT
026682,002720: 31,2152           20624                          CADR     GOFLASH                               
026683,002721: 31,2153           04106                          TC       GOTOPOOH                              #  TERMINATE
026684,002722: 31,2154           02156                          TC       P23.30                                
026685,002723: 31,2155           02150                          TC       P23.20                                #  STORE NEW DATA AND REDISPLAY
026686,002724: 31,2156           06006        P23.30            TC       INTPRET                               
026687,002725: 31,2157           77414                          BON      EXIT                                  
026688,002726: 31,2160           04705                                   SAVECFLG                              
026689,002727: 31,2161           62265                                   P23.85                                
026690,002728: 31,2162           33053                          CAF      V50N25P                               
026691,002729: 31,2163           04555                          TC       BANKCALL                              
026692,002730: 31,2164           20751                          CADR     GOPERF1                               #  GOPERF1 BLANKS OUT R2 AND R3.
026693,002731: 31,2165           04106                          TC       GOTOPOOH                              
026694,002732: 31,2166           02173                          TC       V94ENTER                              #  PROCEED. AUTOCONTROL CMC
026695,002733: 31,2167           02170                          TC       P23.55                                #  ENTER. MANUAL CONTROL
026696,002734: 31,2170           06006        P23.55            TC       INTPRET                               
026697,002735: 31,2171           77650                          GOTO                                           
026698,002736: 31,2172           62224                                   P23.56                                
026699,002737:                                                                                                 #           VERB 94 BEGINS HERE
026700,002738: 31,2173           06006        V94ENTER          TC       INTPRET                               
026701,002739: 31,2174           77634                          RTB                                            
026702,002740: 31,2175           45505                                   LOADTIME                              #  READ CLOCK
026703,002741: 31,2176           35225                          STCALL   MARKTIME                              
026704,002742: 31,2177           62272                                   POINTAXS                              #  RETURN LOS IN RCLL AND MPAC
026705,002743: 31,2200           53521                          MXV      UNIT                                  
026706,002744: 31,2201           01736                                   REFSMMAT                              
026707,002745: 31,2202           27357                          STOVL    POINTVSM                              
026708,002746: 31,2203           23056                                   JCAXIS                                
026709,002747: 31,2204           03351                          STORE    SCAXIS                                
026710,002748: 31,2205           77776                          EXIT                                           
026711,002749: 31,2206           05447                          TC       DOWNFLAG                              #  CLEAR AND GO TO VECPOINT IN R60
026712,002750: 31,2207           00124                          ADRES    3AXISFLG                              #  BIT 6  FLAG 5
026713,002751: 31,2210           33063                          CAF      R60ADRS                               
026714,002752: 31,2211           54374                          TS       TEMPFLSH                              
026715,002753: 31,2212           05301                          TC       PHASCHNG                              
026716,002754:                                                                                                 # # Page 611
026717,002755: 31,2213           00012                          OCT      00012                                 
026718,002756: 31,2214           04555        R60CALL           TC       BANKCALL                              
026719,002757: 31,2215           56000                          CADR     R60CSM                                
026720,002758: 31,2216           05301                          TC       PHASCHNG                              
026721,002759: 31,2217           04022                          OCT      04022                                 
026722,002760: 31,2220           06006                          TC       INTPRET                               
026723,002761: 31,2221           77614                          BON                                            
026724,002762: 31,2222           03307                                   R57FLAG                               
026725,002763: 31,2223           62226                                   P23.57                                #  DO NOT REPERFORM R57
026726,002764: 31,2224           77624        P23.56            CALL                                           
026727,002765: 31,2225           76360                                   R57                                   
026728,002766: 31,2226           43014        P23.57            SET      SET                                   
026729,002767: 31,2227           04464                                   V94FLAG                               
026730,002768: 31,2230           03067                                   R57FLAG                               
026731,002769: 31,2231           77624                          CALL                                           
026732,002770: 31,2232           30002                                   R52                                   
026733,002771: 31,2233           43014                          CLEAR    CLEAR                                 
026734,002772: 31,2234           04664                                   V94FLAG                               
026735,002773: 31,2235           03267                                   R57FLAG                               
026736,002774: 31,2236           77776        P23.60            EXIT                                           
026737,002775: 31,2237           00004                          INHINT                                         
026738,002776: 31,2240           31330                          CA       MARKSTAT                              
026739,002777: 31,2241           74747                          MASK     LOW10                                 
026740,002778: 31,2242           55242                          TS       MARKDATA                              
026741,002779: 31,2243           00006                          EXTEND                                         
026742,002780: 31,2244           51242                          INDEX    MARKDATA                              
026743,002781: 31,2245           30001                          DCA      0                                     
026744,002782: 31,2246           53225                          DXCH     MARKTIME                              
026745,002783: 31,2247           51242                          INDEX    MARKDATA                              
026746,002784: 31,2250           30005                          CA       5                                     
026747,002785: 31,2251           57754                          XCH      TRUNION                               
026748,002786: 31,2252           00003                          RELINT                                         
026749,002787: 31,2253           33051                          CAF      V05N71                                
026750,002788: 31,2254           04555                          TC       BANKCALL                              
026751,002789: 31,2255           20624                          CADR     GOFLASH                               
026752,002790: 31,2256           04106                          TC       GOTOPOOH                              #  TERMINATE
026753,002791: 31,2257           02261                          TC       P23.65                                #  STORE DATA
026754,002792: 31,2260           02253                          TC       -5                                    #  REDISPLAY
026755,002793: 31,2261           06006        P23.65            TC       INTPRET                               
026756,002794: 31,2262           77414                          SET      EXIT                                  
026757,002795: 31,2263           04465                                   SAVECFLG                              
026758,002796: 31,2264           02070                          TC       P23.15                                
026759,002797: 31,2265           45014        P23.85            CLEAR    CALL                                  
026760,002798: 31,2266           02676                                   RENDWFLG                              
026761,002799: 31,2267           62272                                   POINTAXS                              
026762,002800: 31,2270           77650                          GOTO                                           
026763,002801: 31,2271           62364                                   R23.55                                
026764,002802:                                                                                                 #  WE BEGIN CALCULATIONS HERE
026765,002803:                                                                                                 #  POINTAXIS SUBROUTINE
026766,002804: 31,2272           67220        POINTAXS          STQ      SLOAD                                 
026767,002805:                                                                                                 # # Page 612
026768,002806: 31,2273           01150                                   POINTEX                               
026769,002807: 31,2274           02752                                   LANDMARK                              #  IF LANDMARK=0 HORIZON IS DESIRED.
026770,002808: 31,2275           67230                          BHIZ     SLOAD                                 #  DO NOT PICK UP LMK VALUES FROM TABLE
026771,002809: 31,2276           62307                                   R23.05                                #  OR DISPLAY IN HORIZON CASE
026772,002810: 31,2277           02754                                   IDOFLMK                               
026773,002811: 31,2300           45030                          BHIZ     CALL                                  
026774,002812: 31,2301           62305                                   R23.0                                 
026775,002813: 31,2302           63064                                   LUNLMKLD                              
026776,002814: 31,2303           77650                          GOTO                                           
026777,002815: 31,2304           62307                                   R23.05                                
026778,002816: 31,2305           77624        R23.0             CALL                                           #  MUST BE DONE 2ND TIME, TO ALLOW CHANGES
026779,002817: 31,2306           61345                                   LLASRDA                               
026780,002818: 31,2307           71214        R23.05            BON      DLOAD                                 
026781,002819: 31,2310           01711                                   ORBWFLAG                              
026782,002820: 31,2311           62315                                   R23.1                                 
026783,002821: 31,2312           03001                                   WMIDPOS                               
026784,002822: 31,2313           34001                          STCALL   0                                     
026785,002823: 31,2314           56544                                   INITIALW                              #  INITIALIZE W-MATRIX FIRST PASS IN P23
026786,002824: 31,2315           77624        R23.1             CALL                                           
026787,002825: 31,2316           56343                                   SETINTG                               #  SETUP FOR CSM INTEGRATION
026788,002826: 31,2317           43014                          BOF      SET                                   
026789,002827: 31,2320           01751                                   ORBWFLAG                              
026790,002828: 31,2321           62323                                   R23.2                                 
026791,002829: 31,2322           01476                                   DIM0FLAG                              
026792,002830: 31,2323           45014        R23.2             SET      CALL                                  
026793,002831: 31,2324           01471                                   ORBWFLAG                              
026794,002832: 31,2325           27113                                   INTEGRV                               #  INTEGRATE CSM STATE VEC. TO MARKTIME
026795,002833: 31,2326           77776                          EXIT                                           
026796,002834: 31,2327           05301                          TC       PHASCHNG                              
026797,002835: 31,2330           04022                          OCT      04022                                 
026798,002836: 31,2331           06006                          TC       INTPRET                               
026799,002837: 31,2332           77624                          CALL                                           
026800,002838: 31,2333           62767                                   RECT.1                                #  PICKUP CSM STATE VECTOR FROM PERM
026801,002839: 31,2334           77214                          BOFF     VLOAD                                 
026802,002840: 31,2335           00345                                   ZMEASURE                              #  IN SPHERE OF INFLUENCE OF PRIMARY BODY
026803,002841: 31,2336           62341                                   R23.3                                 
026804,002842: 31,2337           02272                                   RQVV                                  #  CALCULATED BY INTEGRATION  B29
026805,002843: 31,2340           03627                          STORE    RZC                                   
026806,002844: 31,2341           46135        R23.3             SLOAD    BHIZ                                  
026807,002845: 31,2342           02752                                   LANDMARK                              #  IF LANDMARK = 0, USE HORIZ SUBR
026808,002846: 31,2343           62353                                   R23.4                                 
026809,002847: 31,2344           77614                          SET                                            
026810,002848: 31,2345           00462                                   ERADFLAG                              
026811,002849: 31,2346           45145                          DLOAD    CALL                                  
026812,002850: 31,2347           01225                                   MARKTIME                              
026813,002851: 31,2350           26373                                   LALOTORV                              
026814,002852: 31,2351           77650                          GOTO                                           
026815,002853: 31,2352           62355                                   R23.5                                 
026816,002854: 31,2353           77624        R23.4             CALL                                           
026817,002855: 31,2354           62527                                   HORIZ                                 
026818,002856:                                                                                                 # # Page 613
026819,002857: 31,2355           03665        R23.5             STORE    RL                                    
026820,002858: 31,2356           40251                          VSU      SETPD                                 
026821,002859: 31,2357           03627                                   RZC                                   
026822,002860: 31,2360           00001                                   0                                     
026823,002861: 31,2361           03657                          STORE    RCLL                                  
026824,002862: 31,2362           77650                          GOTO                                           
026825,002863: 31,2363           01150                                   POINTEX                               
026826,002864:                                                                                                 # # Page 614
026827,002865: 
026828,002866: 31,2364           41456        R23.55            UNIT     PUSH                                  #  RCLL IS IN MPAC
026829,002867: 31,2365           77775                          VLOAD                                          
026830,002868: 31,2366           00043                                   34D                                   #  RCLL * RCLL
026831,002869: 31,2367           24037                          STOVL    30D                                   #  PUSH 30-31 =RCLL*RCLL 32-33=ABVAL RCLL
026832,002870: 31,2370           03635                                   VZC                                   
026833,002871: 31,2371           54361                          VXSC     VSR                                   
026834,002872: 31,2372           23030                                   ONE/C                                 
026835,002873: 31,2373           20620                                   15D                                   
026836,002874: 31,2374           77655                          VAD                                            #  PUSH UP RCLL(UNIT)
026837,002875: 31,2375           77656                          UNIT                                           
026838,002876: 31,2376           27643                          STOVL    UCLSTAR                               
026839,002877: 31,2377           03635                                   VZC                                   
026840,002878: 31,2400           52342                          VSR2     VSU                                   
026841,002879: 31,2401           02141                                   VESO                                  
026842,002880: 31,2402           54361                          VXSC     VSR                                   
026843,002881: 31,2403           23030                                   ONE/C                                 
026844,002882: 31,2404           20616                                   13D                                   
026845,002883: 31,2405           53455                          VAD      UNIT                                  
026846,002884: 31,2406           02617                                   US                                    
026847,002885: 31,2407           03651                          STORE    USSTAR                                
026848,002886: 31,2410           72441                          DOT      SL1                                   
026849,002887: 31,2411           03643                                   UCLSTAR                               
026850,002888: 31,2412           77206                          PUSH     VLOAD                                 #  PD 0,1 = USSTAR(DOT)UCLSTAR
026851,002889: 31,2413           03643                                   UCLSTAR                               
026852,002890: 31,2414           57561                          VXSC     VCOMP                                 
026853,002891: 31,2415           53372                          VSL1     VAD                                   
026854,002892: 31,2416           03651                                   USSTAR                                
026855,002893: 31,2417           77656                          UNIT                                           
026856,002894: 31,2420           27502                          STOVL    BVECTOR                               #  USSTAR - COSQ(UCLSTAR
026857,002895: 31,2421           15332                                   ZEROVECS                              
026858,002896: 31,2422           03510                          STORE    BVECTOR    +6                         
026859,002897: 31,2423           17516                          STODL    BVECTOR    +12D                       
026860,002898: 31,2424           00001                                   0                                     
026861,002899: 31,2425           57526                          ACOS     DCOMP                                 
026862,002900: 31,2426           71206                          PUSH     DLOAD                                 
026863,002901: 31,2427           15332                                   ZEROVECS                              
026864,002902: 31,2430           77776                          EXIT                                           
026865,002903: 31,2431           33041                          CA       VARSUBL                               #  PUT FIXED INTO ERASABLE FOR MSU
026866,002904: 31,2432           54001                          TS       L                                     #  INSTRUCTION COMING UP
026867,002905: 31,2433           31754                          CA       TRUNION                               #  REQUIRED TO CHANGE 2:S COMPLEMENT
026868,002906: 31,2434           00006                          EXTEND                                         #  TRUNION TO 1:S COMPLEMENT
026869,002907: 31,2435           20001                          MSU      L                                     #  TRUNION (2'S)-00000 CONVERTS TRUNION TO
026870,002908: 31,2436           54154                          TS       MPAC                                  #  1:S. VARSUBL=00000
026871,002909: 31,2437           06006                          TC       INTPRET                               
026872,002910: 31,2440           67206                          PUSH     SLOAD                                 #  PUSH IS DP. WHEN BDSU IS EXECUTED, 2ND
026873,002911: 31,2441           01343                                   TRUNBIAS                              #  HALF OF PUSHLIST IS GUARANTEED ZERO FROM
026874,002912: 31,2442           77621                          BDSU                                           #  DLOAD ZEROVECS ABOVE
026875,002913: 31,2443           43242                          SR3      DAD                                   
026876,002914: 31,2444           41215                          DAD      DMP                                   
026877,002915:                                                                                                 # # Page 615
026878,002916: 31,2445           23036                                   TRUN19                                
026879,002917: 31,2446           00041                                   32D                                   
026880,002918: 31,2447           52405                          DMP      SL3                                   
026881,002919: 31,2450           07107                                   PI/4.0                                
026882,002920: 31,2451           62414                          BOFF     SL2                                   
026883,002921: 31,2452           04343                                   CMOONFLG                              
026884,002922: 31,2453           62454                                   R23.51                                
026885,002923: 31,2454           17524        R23.51            STODL    DELTAQ                                
026886,002924: 31,2455           00037                                   30D                                   #  RCLL * RCLL
026887,002925: 31,2456           47005                          DMP      RTB                                   
026888,002926: 31,2457           23045                                   TRUNVAR                               
026889,002927: 31,2460           45562                                   TPMODE                                
026890,002928: 31,2461           77771                          TAD                                            
026891,002929: 31,2462           23042                                   VARSUBL                               
026892,002930: 31,2463           03526                          STORE    VARIANCE                              
026893,002931: 31,2464           45014                          CLEAR    CALL                                  
026894,002932: 31,2465           02666                                   DMENFLG                               
026895,002933: 31,2466           75250                                   INCORP1                               
026896,002934: 31,2467           77624                          CALL                                           
026897,002935: 31,2470           56712                                   GRP2PC                                
026898,002936: 31,2471           51575                          VLOAD    ABVAL                                 
026899,002937: 31,2472           01265                                   DELTAX     +6                         
026900,002938: 31,2473           60414                          BOF      SR2                                   #  DISPLAY IS 2-27 IF IN LUNAR SPHERE
026901,002939: 31,2474           04343                                   CMOONFLG                              
026902,002940: 31,2475           62476                                   R23.52                                
026903,002941: 31,2476           27504        R23.52            STOVL    N49DISP    +2                         
026904,002942: 31,2477           01257                                   DELTAX                                
026905,002943: 31,2500           77646                          ABVAL                                          
026906,002944: 31,2501           60414                          BOF      SR2                                   
026907,002945: 31,2502           04343                                   CMOONFLG                              
026908,002946: 31,2503           62504                                   R23.53                                
026909,002947: 31,2504           03502        R23.53            STORE    N49DISP                               
026910,002948: 31,2505           77776                          EXIT                                           
026911,002949: 31,2506           33046        R23.6             CAF      V6N49                                 
026912,002950: 31,2507           04555                          TC       BANKCALL                              
026913,002951: 31,2510           20763                          CADR     GOFLASHR                              
026914,002952: 31,2511           02506                          TC       R23.6                                 #  DONT ALLOW
026915,002953: 31,2512           02521                          TC       R23.7                                 #  INCORPORATE DATA
026916,002954: 31,2513           02047                          TC       P23.00                                #  RECYCLE FOR ANOTHER MARK
026917,002955: 31,2514           34710                          CAF      BIT3                                  #  BLAN OUT R3
026918,002956: 31,2515           05415                          TC       BLANKET                               
026919,002957: 31,2516           05301                          TC       PHASCHNG                              
026920,002958: 31,2517           00012                          OCT      00012                                 
026921,002959: 31,2520           05112                          TC       ENDOFJOB                              
026922,002960: 31,2521           06006        R23.7             TC       INTPRET                               
026923,002961: 31,2522           45014        R23.8             SET      CALL                                  
026924,002962: 31,2523           00467                                   VEHUPFLG                              
026925,002963: 31,2524           75460                                   INCORP2                               
026926,002964: 31,2525           77776                          EXIT                                           
026927,002965: 31,2526           04106        R23.END           TC       GOTOPOOH                              
026928,002966:                                                                                                 # # Page 616
026929,002967: 31,2527           40220        HORIZ             STQ      SETPD                                 
026930,002968: 31,2530           03672                                   SRRETURN                              
026931,002969: 31,2531           00001                                   0                                     
026932,002970: 31,2532           65345                          DLOAD    PDDL                                  #  PUSH 0-1 = -AYO SCALED B0
026933,002971: 31,2533           01714                                   -AYO                                  
026934,002972: 31,2534           01716                                   AXO                                   
026935,002973: 31,2535           63325                          PDDL     PDVL                                  #  PUSH 2-3 = +AX SCALED B0
026936,002974: 31,2536           15340                                   DPPOSMAX                              
026937,002975: 31,2537           02617                                   US                                    
026938,002976: 31,2540           53435                          VXV      UNIT                                  
026939,002977: 31,2541           03627                                   RZC                                   
026940,002978: 31,2542           27621                          STOVL    UBAR2                                 
026941,002979: 31,2543           53435                          VXV      UNIT                                  #  PUSH UP
026942,002980: 31,2544           03621                                   UBAR2                                 
026943,002981: 31,2545           27605                          STOVL    UBAR0                                 
026944,002982: 31,2546           03621                                   UBAR2                                 
026945,002983: 31,2547           53435                          VXV      UNIT                                  
026946,002984: 31,2550           03605                                   UBAR0                                 
026947,002985: 31,2551           03613                          STORE    UBAR1                                 
026948,002986: 31,2552           50214                          BON      DOT                                   
026949,002987: 31,2553           01703                                   LUNAFLAG                              
026950,002988: 31,2554           62752                                   HORIZ.6                               
026951,002989: 31,2555           00001                                   0                                     #  UBAR1 DOT UZ
026952,002990: 31,2556           36156                          STCALL   ALPHAV     +4                         
026953,002991: 31,2557           26437                                   GETERAD                               
026954,002992: 31,2560           65215                          DAD      PDDL                                  #  MPAC HAS RADIUS OF FISCHER SLLIPSOID
026955,002993: 31,2561           01355                                   HORIZALT                              #  PUSH 0-1 = BH SCALED B29
026956,002994: 31,2562           23032                                   AEARTH                                
026957,002995: 31,2563           41415                          DAD      PUSH                                  #  PUSH 2-3 = AH B29
026958,002996: 31,2564           01355                                   HORIZALT                              
026959,002997: 31,2565           64375        HORIZ.1           VLOAD    MXV                                   
026960,002998: 31,2566           03627                                   RZC                                   #  B29
026961,002999: 31,2567           03605                                   UBAR0                                 #  B1
026962,003000: 31,2570           63372                          VSL1     PDVL                                  #  PUSH 4-9 = RH(XH,YH,ZH) B29
026963,003001: 31,2571           02617                                   US                                    
026964,003002: 31,2572           76521                          MXV      VSL1                                  
026965,003003: 31,2573           03605                                   UBAR0                                 
026966,003004: 31,2574           77725                          PDDL                                           #  PUSH 10-15 = USH B1
026967,003005: 31,2575           00003                                   2                                     #  AH
026968,003006: 31,2576           14043                          STODL    34D                                   
026969,003007: 31,2577           00005                                   4                                     #  XH
026970,003008: 31,2600           77624                          CALL                                           
026971,003009: 31,2601           62756                                   DIVIDE                                
026972,003010: 31,2602           41257                          SR*      DMP                                   
026973,003011: 31,2603           20611                                   8D,1                                  #  NOW SCALED B9
026974,003012: 31,2604           00155                                   MPAC                                  
026975,003013: 31,2605           14037                          STODL    30D                                   
026976,003014: 31,2606           00001                                   0                                     
026977,003015: 31,2607           14043                          STODL    34D                                   
026978,003016: 31,2610           00007                                   6                                     #  YH
026979,003017:                                                                                                 # # Page 617
026980,003018: 31,2611           77624                          CALL                                           
026981,003019: 31,2612           62756                                   DIVIDE                                
026982,003020: 31,2613           41257                          SR*      DMP                                   
026983,003021: 31,2614           20611                                   8D,1                                  #  B9
026984,003022: 31,2615           00155                                   MPAC                                  #  B18
026985,003023: 31,2616           41415                          DAD      PUSH                                  #  PUSH 16-17 =A SCALED  B18
026986,003024: 31,2617           00037                                   30D                                   
026987,003025: 31,2620           75425                          DSU      SQRT                                  
026988,003026: 31,2621           23040                                   1.0B18                                
026989,003027: 31,2622           77725                          PDDL                                           #  PUSH 18-19  SQRT(A-1) B9
026990,003028: 31,2623           00021                                   16D                                   
026991,003029: 31,2624           14043                          STODL    34D                                   
026992,003030: 31,2625           00005                                   4                                     #  XH
026993,003031: 31,2626           77624                          CALL                                           
026994,003032: 31,2627           62756                                   DIVIDE                                
026995,003033: 31,2630           65257                          SR*      PDDL                                  
026996,003034: 31,2631           20622                                   17D,1                                 #  PUSH 20-21 = XH/A B29
026997,003035: 31,2632           00007                                   6                                     #  YH
026998,003036: 31,2633           77624                          CALL                                           
026999,003037: 31,2634           62756                                   DIVIDE                                
027000,003038: 31,2635           65257                          SR*      PDDL                                  
027001,003039: 31,2636           20622                                   17D,1                                 #  PUSH 22-23 = YH/A B29
027002,003040: 31,2637           00021                                   16D                                   #  A
027003,003041: 31,2640           14043                          STODL    34D                                   
027004,003042: 31,2641           00023                                   18D                                   #  SQRT(A-1)
027005,003043: 31,2642           77624                          CALL                                           
027006,003044: 31,2643           62756                                   DIVIDE                                
027007,003045: 31,2644           77657                          SR*                                            
027008,003046: 31,2645           20611                                   8D,1                                  
027009,003047: 31,2646           14035                          STODL    28D                                   
027010,003048: 31,2647           00001                                   0                                     #  BH
027011,003049: 31,2650           14043                          STODL    34D                                   
027012,003050: 31,2651           00003                                   2                                     #  AH
027013,003051: 31,2652           77624                          CALL                                           
027014,003052: 31,2653           62756                                   DIVIDE                                
027015,003053: 31,2654           41257                          SR*      DMP                                   #  AH/BH  SCALED  B1
027016,003054: 31,2655           20601                                   0,1                                   
027017,003055: 31,2656           00035                                   28D                                   #  SQRT(A-1)/A
027018,003056: 31,2657           72405                          DMP      SL1                                   
027019,003057: 31,2660           00007                                   6                                     #  YH
027020,003058: 31,2661           77725                          PDDL                                           
027021,003059: 31,2662           00003                                   2                                     #  AH
027022,003060: 31,2663           14043                          STODL    34D                                   
027023,003061: 31,2664           00001                                   0                                     
027024,003062: 31,2665           77624                          CALL                                           
027025,003063: 31,2666           62756                                   DIVIDE                                
027026,003064: 31,2667           41257                          SR*      DMP                                   #  BH/AH  SCALED  B1
027027,003065: 31,2670           20601                                   0,1                                   
027028,003066: 31,2671           00035                                   28D                                   #  SQRT (A-1)/A
027029,003067: 31,2672           72405                          DMP      SL1                                   
027030,003068:                                                                                                 # # Page 618
027031,003069: 31,2673           00005                                   4                                     #  XH
027032,003070: 31,2674           43325                          PDDL     DAD                                   
027033,003071: 31,2675           00025                                   20D                                   #  XH/A
027034,003072: 31,2676           00031                                   24D                                   #  ALPHA
027035,003073: 31,2677           45325                          PDDL     DSU                                   
027036,003074: 31,2700           00027                                   22D                                   #  YH/A
027037,003075: 31,2701           00033                                   26D                                   #  BETA
027038,003076: 31,2702           40206                          PUSH     SETPD                                 
027039,003077: 31,2703           00021                                   16D                                   
027040,003078: 31,2704           45345                          DLOAD    DSU                                   
027041,003079: 31,2705           00025                                   20D                                   #  XH/A
027042,003080: 31,2706           00031                                   24D                                   #  ALPHA
027043,003081: 31,2707           43325                          PDDL     DAD                                   
027044,003082: 31,2710           00027                                   22D                                   #  YH/A
027045,003083: 31,2711           00033                                   26D                                   #  BETA
027046,003084: 31,2712           41525                          PDDL     PUSH                                  
027047,003085: 31,2713           15332                                   ZEROVECS                              
027048,003086: 31,2714           24041                          STOVL    32D                                   #  ZERO THIRD COMP. OF T-0 VECTOR
027049,003087: 31,2715           00035                                   28D                                   
027050,003088: 31,2716           53451                          VSU      UNIT                                  
027051,003089: 31,2717           00005                                   4                                     #  RH VECTOR
027052,003090: 31,2720           63241                          DOT      PDVL                                  #  PUSH 22-23 A-SUB-ZERO
027053,003091: 31,2721           00013                                   10D                                   #  USH VECTOR
027054,003092: 31,2722           00021                                   16D                                   #  T1 VECTOR
027055,003093: 31,2723           53451                          VSU      UNIT                                  
027056,003094: 31,2724           00005                                   4                                     #  RH VECTOR
027057,003095: 31,2725           41441                          DOT      PUSH                                  #  PUSH 24-25 A-SUB-ONE
027058,003096: 31,2726           00013                                   10D                                   
027059,003097: 31,2727           50021                          BDSU     BMN                                   
027060,003098: 31,2730           00027                                   22D                                   #  A-SUB-ZERO
027061,003099: 31,2731           62740                                   HORIZ.3                               
027062,003100: 31,2732           77614                          BON                                            
027063,003101: 31,2733           00304                                   NORFHOR                               
027064,003102: 31,2734           62744                                   HORIZ.4                               
027065,003103: 31,2735           52175        HORIZ.2           VLOAD    GOTO                                  
027066,003104: 31,2736           00035                                   28D                                   #  T-0 VECTOR
027067,003105: 31,2737           62746                                   HORIZ.5                               
027068,003106: 31,2740           52014        HORIZ.3           BON      GOTO                                  
027069,003107: 31,2741           00304                                   NORFHOR                               
027070,003108: 31,2742           62735                                   HORIZ.2                               
027071,003109: 31,2743           62744                                   HORIZ.4                               
027072,003110: 31,2744           77775        HORIZ.4           VLOAD                                          
027073,003111: 31,2745           00021                                   16D                                   #  T1 VECTOR
027074,003112: 31,2746           76505        HORIZ.5           VXM      VSL1                                  
027075,003113: 31,2747           03605                                   UBAR0                                 
027076,003114: 31,2750           77650                          GOTO                                           
027077,003115: 31,2751           03672                                   SRRETURN                              
027078,003116: 31,2752           41545        HORIZ.6           DLOAD    PUSH                                  
027079,003117: 31,2753           23034                                   RADMOON                               
027080,003118: 31,2754           52006                          PUSH     GOTO                                  
027081,003119:                                                                                                 # # Page 619
027082,003120: 31,2755           62565                                   HORIZ.1                               
027083,003121: 31,2756           70501        DIVIDE            NORM     SR1                                   
027084,003122: 31,2757           00047                                   X1                                    
027085,003123: 31,2760           14045                          STODL    36D                                   
027086,003124: 31,2761           00043                                   34D                                   
027087,003125: 31,2762           55301                          NORM     BDDV                                  
027088,003126: 31,2763           00051                                   S1                                    
027089,003127: 31,2764           00045                                   36D                                   
027090,003128: 31,2765           43460                          XSU,1    RVQ                                   
027091,003129: 31,2766           00050                                   S1                                    
027092,003130: 31,2767           77014        RECT.1            BOFF     AXT,2                                 #  SR TO SET ZMEASURE = 0 IF MEASUREMENT
027093,003131: 31,2770           04343                                   CMOONFLG                              #   PLANET AND PRIMARY PLANET ARE THE SAME
027094,003132: 31,2771           63001                                   RECT.3                                #    OTHERWISE = 1
027095,003133: 31,2772           77775                          DEC      -2         B-14                       
027096,003134: 31,2773           77614                          BOFF                                           #      VEC. AND SCALE B29 AND B7
027097,003135: 31,2774           01743                                   LUNAFLAG                              
027098,003136: 31,2775           63005                                   RECT.4                                
027099,003137: 31,2776           52014        RECT.2            CLEAR    GOTO                                  
027100,003138: 31,2777           00265                                   ZMEASURE                              
027101,003139: 31,3000           63007                                   RECT.5                                
027102,003140: 31,3001           43174        RECT.3            AXT,2    BOFF                                  
027103,003141: 31,3002           00000                                   0                                     
027104,003142: 31,3003           01743                                   LUNAFLAG                              
027105,003143: 31,3004           62776                                   RECT.2                                
027106,003144: 31,3005           77614        RECT.4            SET                                            
027107,003145: 31,3006           00065                                   ZMEASURE                              
027108,003146: 31,3007           44575        RECT.5            VLOAD    VSR7                                  
027109,003147: 31,3010           01573                                   DELTACSM                              #  SCALED B22  OR  B18
027110,003148: 31,3011           53257                          VSR*     VAD                                   
027111,003149: 31,3012           57176                                   0,2                                   
027112,003150: 31,3013           01607                                   RCVCSM                                #  SCALED B29  OR  B27
027113,003151: 31,3014           77657                          VSR*                                           
027114,003152: 31,3015           57176                                   0,2                                   
027115,003153: 31,3016           27627                          STOVL    RZC                                   #  NOW SCALED B29
027116,003154: 31,3017           01601                                   NUVCSM                                #  SCALED B3  OR  B-1
027117,003155: 31,3020           53702                          VSR4     VSR*                                  
027118,003156: 31,3021           57176                                   0,2                                   
027119,003157: 31,3022           53655                          VAD      VSR*                                  
027120,003158: 31,3023           01615                                   VCVCSM                                #  SCALED B7  OR  B5
027121,003159: 31,3024           57176                                   0,2                                   
027122,003160: 31,3025           03635                          STORE    VZC                                   #  NOW SCALED B7
027123,003161: 31,3026           77616                          RVQ                                            
027124,003162: 31,3027           26305 05432  ONE/C             2DEC*    .333564049 E-6        B+21*           
027125,003163: 31,3031           00302 24533  AEARTH            2DEC     6378166    B-29                       #  A AXIS OF EARTH(METERS B-29)
027126,003164: 31,3033           00065 01265  RADMOON           2DEC     1738090    B-29                       #  RADIUS MOON IN METERS
027127,003165: 31,3035           01604        TRUN19            OCT      01604                                 
027128,003166: 31,3036           00000        TRUN19A           OCT      00000                                 
027129,003167:                                                                                                 # # Page 620
027130,003168: 31,3037           00000 02000  1.0B18            2DEC     1.0        B-18                       
027131,003169: 31,3041           00000        VARSUBL           DEC      0          B-14                       
027132,003170: 31,3042           01505 14100  VARSUBL3          2DEC*    3.4299040  E+6        B-26*           
027133,003171: 31,3044           00012 27462  TRUNVAR           2DEC     2.5        E-9        B+18            
027134,003172: 31,3046           01461        V6N49             VN       0649                                  
027135,003173: 31,3047           01531        V6N89             VN       0689                                  
027136,003174: 31,3050           01306        V05N70            VN       0570                                  
027137,003175: 31,3051           01307        V05N71            VN       0571                                  
027138,003176: 31,3052           00077        OCT00077          OCT      00077                                 
027139,003177: 31,3053           00202        V50N25P           OCT      00202                                 
027140,003178: 31,3054           00006        SPSIX             OCT      00006                                 
027141,003179: 31,3055           10461 21675  JCAXIS            2DEC     .268649805                            #  TRACK AXIS
027142,003180: 31,3057           00000 00000                    2DEC     0          B-28                       
027143,003181: 31,3061           15375 02004                    2DEC     .421695725                            
027144,003182: 31,3063           62217        R60ADRS           CADR     R60CALL    +3                         
027145,003183: 31,3064           77735        LUNLMKLD          SLOAD                                          
027146,003184: 31,3065           02754                                   IDOFLMK                               
027147,003185: 31,3066           45230                          BHIZ     DSU                                   
027148,003186: 31,3067           63101                                   LNLMKEND                              
027149,003187: 31,3070           21646                                   9DWID                                 
027150,003188: 31,3071           70152                          SL1      LXC,1                                 
027151,003189: 31,3072           00154                                   MPAC                                  
027152,003190: 31,3073           64743                          DLOAD*   PDDL*                                 
027153,003191: 31,3074           23705                                   ALTTAB,1                              
027154,003192: 31,3075           23623                                   LONGTAB,1                             
027155,003193: 31,3076           55523                          PDDL*    VDEF                                  
027156,003194: 31,3077           23541                                   LATTAB,1                              
027157,003195: 31,3100           01104                          STORE    LAT                                   
027158,003196: 31,3101           77616        LNLMKEND          RVQ                                            
027159,003197: 14,2000                                          SETLOC   RT53                                  
027160,003198: 14,2000                                          BANK                                           
027161,003199: 14,2000           43573        LOWMEMRY          VLOAD*   RVQ                                   
027162,003200: 14,2001           31751                                   CATLOG,1                              
027163,003201:    4550                                          BLOCK    02                                    
027164,003202:    4550           00006        GOTOV56           EXTEND                                         #  P20 TERMINATES BY GOTOV56 INSTEAD OF
027165,003203:    4551           34554                          DCA      VB56CADR                              #   GOTOPOOH
027166,003204:    4552           15122                          TCF      SUPDXCHZ                              
027167,003205:    4553  0003777                                 EBANK=   WHOCARES                              
027168,003206:    4553           02642 66107  VB56CADR          2CADR    TRACKTRM                              
027169,003207:    4000                                          SETLOC   FFTAG2                                
027170,003208:    4000                                          BANK                                           
027171,003209:    4555                                          COUNT*   $$/P20                                
027172,003210: 40,3571                                          BANK     40                                    
027173,003211:                                                                                                 # # Page 621
027174,003212: 40,3571                                          SETLOC   ENDPINS1                              
027175,003213: 40,3571                                          BANK                                           
027176,003214: 40,3571                                          COUNT*   $$/EXTVB                              
027177,003215: 40,3571           06006        V67CALL           TC       INTPRET                               
027178,003216: 40,3572           77624                          CALL                                           
027179,003217: 40,3573           61653                                   V67WW                                 
027180,003218: 40,3574           77776                          EXIT                                           
027181,003219: 40,3575           33727        V06N99DS          CAF      V06N99A                               
027182,003220: 40,3576           04555                          TC       BANKCALL                              
027183,003221: 40,3577           20465                          CADR     GOXDSPF                               
027184,003222: 40,3600           15423                          TCF      ENDEXT                                
027185,003223: 40,3601           03605                          TC       V06N9933                              
027186,003224: 40,3602           05435                          TC       UPFLAG                                
027187,003225: 40,3603           00210                          ADRES    V67FLAG                               
027188,003226: 40,3604           03575                          TC       V06N99DS                              
027189,003227: 40,3605           06006        V06N9933          TC       INTPRET                               
027190,003228: 40,3606           77414                          BON      EXIT                                  
027191,003229: 40,3607           04701                                   V67FLAG                               
027192,003230: 40,3610           61612                                   +2                                    
027193,003231: 40,3611           15423                          TCF      ENDEXT                                
027194,003232: 40,3612           41345                          DLOAD    DMP                                   
027195,003233: 40,3613           02321                                   WWPOS                                 
027196,003234: 40,3614           21731                                   1/SQRT3                               
027197,003235: 40,3615           71350                          LXA,1    DLOAD                                 
027198,003236: 40,3616           00154                                   MPAC                                  
027199,003237: 40,3617           02323                                   WWVEL                                 
027200,003238: 40,3620           73005                          DMP      LXA,2                                 
027201,003239: 40,3621           21731                                   1/SQRT3                               
027202,003240: 40,3622           00154                                   MPAC                                  
027203,003241: 40,3623           45335                          SLOAD    DSU                                   
027204,003242: 40,3624           02325                                   WWOPT                                 
027205,003243: 40,3625           21733                                   V67DEC2                               
027206,003244: 40,3626           51030                          BHIZ     BPL                                   
027207,003245: 40,3627           61636                                   V67WORB                               
027208,003246: 40,3630           61643                                   V67WMID                               
027209,003247: 40,3631           67130                          SXA,1    SXA,2                                 
027210,003248: 40,3632           02000                                   WRENDPOS                              
027211,003249: 40,3633           02001                                   WRENDVEL                              
027212,003250: 40,3634           77650                          GOTO                                           
027213,003251: 40,3635           61646                                   V67EXITX                              
027214,003252: 40,3636           67130        V67WORB           SXA,1    SXA,2                                 
027215,003253: 40,3637           02004                                   WORBPOS                               
027216,003254: 40,3640           02005                                   WORBVEL                               
027217,003255: 40,3641           77650                          GOTO                                           
027218,003256: 40,3642           61646                                   V67EXITX                              
027219,003257: 40,3643           67130        V67WMID           SXA,1    SXA,2                                 
027220,003258: 40,3644           03000                                   WMIDPOS                               
027221,003259: 40,3645           03001                                   WMIDVEL                               
027222,003260: 40,3646           43014        V67EXITX          CLEAR    CLEAR                                 
027223,003261: 40,3647           01671                                   ORBWFLAG                              
027224,003262:                                                                                                 # # Page 622
027225,003263: 40,3650           02676                                   RENDWFLG                              
027226,003264: 40,3651           77776                          EXIT                                           
027227,003265: 40,3652           15423                          TCF      ENDEXT                                
027228,003266: 40,3653           40020        V67WW             STQ      BOV                                   
027229,003267: 40,3654           00051                                   S2                                    
027230,003268: 40,3655           61656                                   +1                                    
027231,003269: 40,3656           45014                          CLEAR    CALL                                  
027232,003270: 40,3657           04661                                   V67FLAG                               
027233,003271: 40,3660           27371                                   INTSTALL                              
027234,003272: 40,3661           71331                          SSP      DLOAD                                 
027235,003273: 40,3662           00051                                   S1                                    
027236,003274: 40,3663           00006                          DEC      6          B-14                       
027237,003275: 40,3664           15332                                   ZEROVECS                              
027238,003276: 40,3665           02321                          STORE    WWPOS                                 
027239,003277: 40,3666           02323                          STORE    WWVEL                                 
027240,003278: 40,3667           02325                          STORE    WWOPT                                 
027241,003279: 40,3670           77770                          AXT,1                                          
027242,003280: 40,3671           00066                          DEC      54         B-14                       
027243,003281: 40,3672           47573        NXPOSVEL          VLOAD*   VSQ                                   
027244,003282: 40,3673           02467                                   W          +54D,1                     
027245,003283: 40,3674           77615                          DAD                                            
027246,003284: 40,3675           02321                                   WWPOS                                 
027247,003285: 40,3676           02321                          STORE    WWPOS                                 
027248,003286: 40,3677           47573                          VLOAD*   VSQ                                   
027249,003287: 40,3700           02555                                   W          +108D,1                    
027250,003288: 40,3701           77615                          DAD                                            
027251,003289: 40,3702           02323                                   WWVEL                                 
027252,003290: 40,3703           02323                          STORE    WWVEL                                 
027253,003291: 40,3704           75500                          TIX,1    SQRT                                  
027254,003292: 40,3705           61672                                   NXPOSVEL                              
027255,003293: 40,3706           16323                          STODL    WWVEL                                 
027256,003294: 40,3707           02321                                   WWPOS                                 
027257,003295: 40,3710           77766                          SQRT                                           
027258,003296: 40,3711           02321                          STORE    WWPOS                                 
027259,003297: 40,3712           52000                          BOV      GOTO                                  
027260,003298: 40,3713           61715                                   +2                                    
027261,003299: 40,3714           61721                                   V67XXX                                
027262,003300: 40,3715           77745                          DLOAD                                          
027263,003301: 40,3716           15340                                   DPPOSMAX                              
027264,003302: 40,3717           02321                          STORE    WWPOS                                 
027265,003303: 40,3720           02323                          STORE    WWVEL                                 
027266,003304: 40,3721           66150        V67XXX            LXA,1    SXA,1                                 
027267,003305: 40,3722           00051                                   S2                                    
027268,003306: 40,3723           00052                                   QPRET                                 
027269,003307: 40,3724           77776                          EXIT                                           
027270,003308: 40,3725           04574                          TC       POSTJUMP                              
027271,003309: 40,3726           27406                          CADR     INTWAKE                               
027272,003310: 40,3727  E4,1720               WWPOS             =        RANGE                                 
027273,003311: 40,3727  E4,1722               WWVEL             =        RRATE                                 
027274,003312: 40,3727  E4,1724               WWOPT             =        RTHETA                                
027275,003313:                                                                                                 # # Page 623
027276,003314: 40,3727           01543        V06N99A           VN       0699                                  
027277,003315: 40,3730           22363 11620  1/SQRT3           2DEC     0.5773502                             
027278,003316: 40,3732           00002 00000  V67DEC2           2DEC     2          B-14                       

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