Source Code

024162,000001: # Copyright: Public domain. 024163,000002: # Filename: Template.agc 024164,000003: # Purpose: Part of the source code for Colossus, build 249. 024165,000004: # It is part of the source code for the Command Module's (CM) 024166,000005: # Apollo Guidance Computer (AGC), possibly for Apollo 8 and 9. 024167,000006: # Assembler: yaYUL 024168,000007: # Reference: pp. 556-629 of 1701.pdf. 024169,000008: # Contact: Ron Burkey <info@sandroid.org>. 024170,000009: # Website: www.ibiblio.org/apollo. 024171,000010: # Mod history: 08/14/04 RSB Began transcribing. (While there is a somewhat- 024172,000011: # similar source file for Luminary131, there is 024173,000012: # almost useful overlap between the two.) 024174,000013: # 2010-10-24 JL Fixed page number. 024175,000014: # 2011-05-07 JL Flag SBANK= workarounds for future removal. 024176,000015: 024177,000016: # The contents of the "Colossus249" files, in general, are transcribed 024178,000017: # from a scanned document obtained from MIT's website, 024179,000018: # http://hrst.mit.edu/hrs/apollo/public/archive/1701.pdf. Notations on this 024180,000019: # document read, in part: 024181,000020: 024182,000021: # Assemble revision 249 of AGC program Colossus by NASA 024183,000022: # 2021111-041. October 28, 1968. 024184,000023: 024185,000024: # This AGC program shall also be referred to as 024186,000025: # Colossus 1A 024187,000026: 024188,000027: # Prepared by 024189,000028: # Massachusetts Institute of Technology 024190,000029: # 75 Cambridge Parkway 024191,000030: # Cambridge, Massachusetts 024192,000031: # under NASA contract NAS 9-4065. 024193,000032: 024194,000033: # Refer directly to the online document mentioned above for further information. 024195,000034: # Please report any errors (relative to 1701.pdf) to info@sandroid.org. 024196,000035: 024197,000036: # In some cases, where the source code for Luminary 131 overlaps that of 024198,000037: # Colossus 249, this code is instead copied from the corresponding Luminary 131 024199,000038: # source file, and then is proofed to incorporate any changes. 024200,000039: 024201,000040: # Page 556 024202,000041: # RENDEZVOUS NAVIGATION PROGRAM 20 024203,000042: 024204,000043: # PROGRAM DESCRIPTION 024205,000044: 024206,000045: # MOD NO -- 1 024207,000046: # MOD BY -- N. BRODEUR 024208,000047: 024209,000048: # FUNCTIONAL DESCRIPTION 024210,000049: 024211,000050: # TO CONTROL THE CSM ATTITUDE AND OPTICS TO ACQUIRE THE LEM IN THE S+T 024212,000051: # FIELD AND TO POINT THE CSM TRANSPONDER AT THE LEM. TO UPDATE EITHER THE 024213,000052: # LEM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY THE DSKY 024214,000053: # ENTRY) ON THE BASIS OF OPTICAL TRACKING DATA (REQUESTED BY DSKY) 024215,000054: 024216,000055: # CALLING SEQUENCE -- 024217,000056: 024218,000057: # ASTRONAUT REQUEST THROUGH DSKY V37E20E 024219,000058: 024220,000059: # SUBROUTINES CALLED 024221,000060: 024222,000061: # R02BOTH (IMU STATUS CHECK) BANKCALL 024223,000062: # FLAGUP 2PHCHNG LOADTIME 024224,000063: # R61CSM (PREFERRED TRACKING ATTITUDE) FLAGDOWN 024225,000064: # R52 (AUTO OPTICS POSITIONING ROUT) SETINTG 024226,000065: # R22 (REND TRACK DATA PROC ROUT) PRIOCHNG 024227,000066: # ENDOFJOB INTEGRV GRP2PC 024228,000067: # INTPRET MKRLEES FINDVAC 024229,000068: 024230,000069: # NORMAL EXIT MODES -- 024231,000070: 024232,000071: # P20 MAY BE TERMINATED IN TWO WAYS -- ASTRONAUT SELECTION OF IDLING 024233,000072: # PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E 024234,000073: 024235,000074: # ALARM OR ABORT EXIT MODES -- 024236,000075: 024237,000076: # NONE DIRECTLY FROM P20 024238,000077: 024239,000078: # OUTPUT 024240,000079: 024241,000080: # TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER) 024242,000081: # VHFCNT = NO OF VHF RANGING MARKS INCORPORATED (COUNTER) 024243,000082: 024244,000083: # FLAGS SET + RESET 024245,000084: 024246,000085: # RNDVZFLG,VEHUPFLG,UPDATFLG,TRACKFLG,TARG1FLG 024247,000086: # HOLDFLAG,WBODY,WBODY1,WBODY2,DELCDUX,DELCDUY,DELCDUZ 024248,000087: # STIKFLAG,PRFTRKAT,VINTFLAG,DIM0FLAG,R60FLAG,R61CNTR 024249,000088: 024250,000089: 33,3772 BANK 33 024251,000090: 37,2000 SETLOC P20S 024252,000091: 37,2000 BANK 024253,000092: 024254,000093: 37,2207 E6,1412 EBANK= ESTROKER 024255,000094: 37,2207 COUNT* $$/P20 024256,000095: 024257,000096: 37,2207 04555 PROG20 TC BANKCALL 024258,000097: 37,2210 17573 CADR R02BOTH # IMU STATUS CHECK 024259,000098: # BLOCKING OF UPLINK IS DONE BY UPLINK PRG 024260,000099: 37,2211 34714 CAF ZERO 024261,000100: 37,2212 55126 TS TRKMKCNT # ZERO REND TRACKING MARK COUNTER 024262,000101: 37,2213 55125 TS VHFCNT # ZERO REND VHF RNG MRK COUNTER 024263,000102: 37,2214 05435 TC UPFLAG # SET PREF TRACK ATT FLAG 024264,000103: 37,2215 00120 ADRES PRFTRKAT # BIT 10 FLAG 5 024265,000104: 37,2216 05447 TC DOWNFLAG # LEM TO BE UPDATED. VEHUPFLG RESET. 024266,000105: 37,2217 00026 ADRES VEHUPFLG # BIT 8 FLAG 1 024267,000106: # Page 557 024268,000107: 37,2220 05435 TC UPFLAG # SET TRACKFLAG 024269,000108: 37,2221 00031 ADRES TRACKFLG # BIT 5 FLAG 1 024270,000109: 37,2222 05435 TC UPFLAG # SET UPDATFLG 024271,000110: 37,2223 00027 ADRES UPDATFLG # BIT 7 FLAG 1 024272,000111: 37,2224 05435 TC UPFLAG # SET RNDVZFLG 024273,000112: 37,2225 00010 ADRES RNDVZFLG # BIT 7 FLAG 0 024274,000113: 37,2226 05261 TC 2PHSCHNG 024275,000114: 37,2227 00004 OCT 4 024276,000115: 37,2230 05022 OCT 05022 024277,000116: 37,2231 26000 OCT 26000 024278,000117: 37,2232 06006 TC INTPRET 024279,000118: 37,2233 77634 RTB 024280,000119: 37,2234 45505 LOADTIME 024281,000120: 37,2235 35225 STCALL MARKTIME 024282,000121: 37,2236 56343 SETINTG # SET INTEGRATION FLAGS 024283,000122: 37,2237 43014 BOFF SET 024284,000123: 37,2240 02756 RENDWFLG 024285,000124: 37,2241 76243 P20.1 024286,000125: 37,2242 01476 DIM0FLAG # SET TO INTEGRATE THE W MATRIX 024287,000126: 37,2243 43014 P20.1 BON CLEAR 024288,000127: 37,2244 00707 VEHUPFLG 024289,000128: 37,2245 76247 P20.2 024290,000129: 37,2246 01674 VINTFLAG # SET FOR LM INTEGRATION 024291,000130: 37,2247 77624 P20.2 CALL 024292,000131: 37,2250 27113 INTEGRV 024293,000132: 37,2251 77624 CALL 024294,000133: 37,2252 56741 GRP2PC # GROUP 2 PHASE CHANGE 024295,000134: 37,2253 77624 CALL 024296,000135: 37,2254 56343 SETINTG # SET INTEGRATION FLAGS 024297,000136: 37,2255 43014 BOFF CLEAR 024298,000137: 37,2256 00747 VEHUPFLG 024299,000138: 37,2257 76261 P20.3 024300,000139: 37,2260 01674 VINTFLAG # SET FOR LM INTEGRATION 024301,000140: 37,2261 77624 P20.3 CALL 024302,000141: 37,2262 27113 INTEGRV 024303,000142: 37,2263 77776 EXIT 024304,000143: 37,2264 37663 CAF PRIO26 024305,000144: 37,2265 05042 TC FINDVAC

[WORKAROUND] RSB 2004

024307,000146: 37,2266  30,2000                                 SBANK=   LOWSUPER                              

[WORKAROUND]

024309,000148: 37,2266  E7,1734                                 EBANK=   MRKBUF2                               
024310,000149: 37,2266           02512 70067                    2CADR    R22                                   
024311,000150: 
024312,000151: 37,2270           05261                          TC       2PHSCHNG                              
024313,000152: 37,2271           00072                          OCT      00072                                 
024314,000153: 37,2272           00111                          OCT      00111                                 
024315,000154: 37,2273           34761        PIKUP20           CAF      PRIO14                                #  ALLOW HIGHER PRIO THAN LAMBERT
024316,000155: 37,2274           05103                          TC       PRIOCHNG                              
024317,000156: 37,2275           34706                          CAF      BIT5                                  #  IS TRACK FLAG SET
024318,000157: 37,2276           70075                          MASK     STATE      +1                         
024319,000158: 37,2277           00006                          EXTEND                                         
024320,000159: 37,2300           15112                          BZF      ENDOFJOB                              #  NO
024321,000160:                                                                                                 #  Page 558
024322,000161: 37,2301           34676                          CAF      BIT13                                 
024323,000162: 37,2302           70077                          MASK     STATE      +3                         #  IS REFSMFLG SET
024324,000163: 37,2303           00006                          EXTEND                                         
024325,000164: 37,2304           15112                          BZF      ENDOFJOB                              
024326,000165: 37,2305           34714                          CAF      ZERO                                  
024327,000166: 37,2306           55775                          TS       R61CNTR                               #  INITIALIZE R61 COUNTER
024328,000167: 37,2307           05435                          TC       UPFLAG                                #  SET R60FLAG
024329,000168: 37,2310           00126                          ADRES    R60FLAG                               #  BIT 4 FLAG 5
024330,000169: 37,2311           04555                          TC       BANKCALL                              
024331,000170: 37,2312           76536                          CADR     R61CSM                                
024332,000171: 37,2313           05447                          TC       DOWNFLAG                              #  RESET R60FLAG
024333,000172: 37,2314           00126                          ADRES    R60FLAG                               #  BIT 4 FLAG 5
024334,000173: 37,2315  0002777                                 EBANK=   QMIN                                  
024335,000174: 37,2315           34751                          CAF      EBANK5                                
024336,000175: 37,2316           54003                          TS       EBANK                                 
024337,000176: 37,2317           05435                          TC       UPFLAG                                #  SET TARGET FLAG TO LEM
024338,000177: 37,2320           00024                          ADRES    TARG1FLG                              #  BIT 10 FLAG 1
024339,000178: 37,2321           06006        P20R52JB          TC       INTPRET                               
024340,000179: 37,2322           77624                          CALL                                           
024341,000180: 37,2323           30002                                   R52                                   #  SET UP AUTO OPTICS JOB
024342,000181: 37,2324           77776                          EXIT                                           
024343,000182: 37,2325           04555                          TC       BANKCALL                              
024344,000183: 37,2326           16070                          CADR     MKRLEES                               
024345,000184: 37,2327           34712                          CAF      ONE                                   #  HOLD PRESENT ATTITUDE
024346,000185: 37,2330           55332                          TS       HOLDFLAG                              
024347,000186: 37,2331           05112                          TC       ENDOFJOB                              
024348,000187: 37,2332           00203        OCT203            OCT      00203                                 
024349,000188: 37,2333     7707               FIRST3            EQUALS   FURST3                                
024350,000189: 
024351,000190:                                                                                                 #  Page 559
024352,000191:                                                                                                 #  ORBITAL NAVIGATION PROGRAM 22
024353,000192: 
024354,000193: 31,2021                                          BANK     31                                    
024355,000194: 30,2000                                          SETLOC   P20S1                                 
024356,000195: 30,2000                                          BANK                                           
024357,000196: 
024358,000197: 30,2000  0002751                                 EBANK=   LANDMARK                              
024359,000198: 30,2000                                          COUNT*   $$/P22                                
024360,000199: 
024361,000200: 30,2000           05447        PROG22            TC       DOWNFLAG                              #  RESET RNDVZFLG BIT 7 FLAG 0
024362,000201: 30,2001           00010                          ADRES    RNDVZFLG                              
024363,000202: 30,2002           05435                          TC       UPFLAG                                
024364,000203: 30,2003           00025                          ADRES    TARG2FLG                              
024365,000204: 30,2004           04555                          TC       BANKCALL                              
024366,000205: 30,2005           17573                          CADR     R02BOTH                               #  IMU STATUS CHECK
024367,000206: 30,2006           06006                          TC       INTPRET                               #  COMPUTE ANGLE BETWEEN Y AND VXR SM
024368,000207: 30,2007           77634                          RTB                                            
024369,000208: 30,2010           45505                                   LOADTIME                              
024370,000209: 30,2011           34041                          STCALL   TDEC1                                 
024371,000210: 30,2012           27045                                   CSMCONIC                              #  INTEGRATE TO PRESENT TIME
024372,000211: 30,2013           47375                          VLOAD    VXV                                   #  CROSS PRODUCT BETWEEN V AND R
024373,000212: 30,2014           00007                                   VATT                                  
024374,000213: 30,2015           00001                                   RATT                                  
024375,000214: 30,2016           50256                          UNIT     DOT                                   
024376,000215: 30,2017           01744                                   REFSMMAT   +6                         
024377,000216: 30,2020           77646                          ABS                                            
024378,000217: 30,2021           65552                          SL1      ARCCOS                                
024379,000218: 30,2022           03626                          STORE    +MGA                                  
024380,000219: 30,2023           77414                          CLEAR    EXIT                                  
024381,000220: 30,2024           02676                                   RENDWFLG                              
024382,000221: 30,2025           32162                          CAF      V06N45B                               
024383,000222: 30,2026           04555                          TC       BANKCALL                              
024384,000223: 30,2027           20763                          CADR     GOFLASHR                              
024385,000224: 30,2030           04106                          TC       GOTOP00H                              #  TERM P22
024386,000225: 30,2031           02036                          TC       PROG22A                               #  PROC
024387,000226: 30,2032           02025                          TC       -5                                    #  ENTER
024388,000227: 30,2033           36214                          CAF      THREE                                 
024389,000228: 30,2034           05415                          TC       BLANKET                               #  BLANK OUT R1 + R2
024390,000229: 30,2035           05112                          TC       ENDOFJOB                              
024391,000230: 30,2036           42172        PROG22A           CS       OCTL7000                              #  SET OFFSET NO.=0
024392,000231: 30,2037           71751                          MASK     LANDMARK                              
024393,000232: 30,2040           55751                          TS       LANDMARK                              
024394,000233: 30,2041           06006                          TC       INTPRET                               
024395,000234: 30,2042           77614                          CLEAR                                          
024396,000235: 30,2043           01664                                   P22MKFLG                              
024397,000236: 30,2044           43014                          SET      BOFF                                  
024398,000237: 30,2045           00462                                   ERADFLAG                              
024399,000238: 30,2046           04343                                   CMOONFLG                              
024400,000239: 30,2047           60113                                   PROG22B                               #  EARTH
024401,000240: 30,2050           77614                          SET                                            #  MOON
024402,000241: 30,2051           01463                                   LUNAFLAG                              
024403,000242:                                                                                                 #  Page 560
024404,000243: 30,2052           77776                          EXIT                                           
024405,000244: 30,2053           32163                          CAF      V05N7022                              
024406,000245: 30,2054           04555                          TC       BANKCALL                              
024407,000246: 30,2055           20763                          CADR     GOFLASHR                              
024408,000247: 30,2056           04106                          TC       GOTOP00H                              #  TERMINATE
024409,000248: 30,2057           02064                          TC       +5                                    #  PROCEED        UNPACK ABCDE
024410,000249: 30,2060           02053                          TC       -5                                    #  RECYCLE
024411,000250: 30,2061           34715                          CAF      FIVE                                  #  IMMEDIATE RETURN BLANK OUT R1,R2
024412,000251: 30,2062           05415                          TC       BLANKET                               
024413,000252: 30,2063           05112                          TC       ENDOFJOB                              
024414,000253: 30,2064           34715                          CAF      FIVE                                  
024415,000254: 30,2065           54301                          TS       MARKINDX                              
024416,000255: 30,2066           06006                          TC       INTPRET                               
024417,000256: 30,2067           77624                          CALL                                           #  UNPACK ABCDE FROM LANDMARK
024418,000257: 30,2070           60234                                   UNPACKAE                              
024419,000258: 30,2071           45335                          SLOAD    DSU                                   
024420,000259: 30,2072           02745                                   22SUBSCL                              
024421,000260: 30,2073           20166                                   P22MAXDE                              
024422,000261: 30,2074           45044                          BPL      CALL                                  
024423,000262: 30,2075           60101                                   DE-GR-50                              #  DE GREATER THAN MAX
024424,000263: 30,2076           76333                                   P22SUBRA                              #  SUBROUTINE A SETS LAT/LONG/ALT
024425,000264: 30,2077           77650                          GOTO                                           
024426,000265: 30,2100           60120                                   CALLR52                               
024427,000266: 30,2101           77624        DE-GR-50          CALL                                           #  CALL ADVANCED ORBIT ROUTINE
024428,000267: 30,2102           30206                                   ADVORB                                
024429,000268: 30,2103           77776                          EXIT                                           
024430,000269: 30,2104           05261                          TC       2PHSCHNG                              
024431,000270: 30,2105           00004                          OCT      00004                                 
024432,000271: 30,2106           05022                          OCT      05022                                 
024433,000272: 30,2107           13000                          OCT      13000                                 
024434,000273: 30,2110           06006                          TC       INTPRET                               
024435,000274: 30,2111           77650                          GOTO                                           
024436,000275: 30,2112           60132                                   DOV5N71                               
024437,000276: 30,2113           43014        PROG22B           CLEAR    SET                                   #  EARTH ORBIT
024438,000277: 30,2114           01663                                   LUNAFLAG                              
024439,000278: 30,2115           03067                                   KNOWNFLG                              
024440,000279: 30,2116           77624                          CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024441,000280: 30,2117           60217                                   P22SUBRB                              
024442,000281: 30,2120           77776        CALLR52           EXIT                                           
024443,000282: 30,2121           05261                          TC       2PHSCHNG                              
024444,000283: 30,2122           00004                          OCT      00004                                 
024445,000284: 30,2123           05022                          OCT      05022                                 
024446,000285: 30,2124           13000                          OCT      13000                                 
024447,000286: 30,2125           34715                          CAF      FIVE                                  
024448,000287: 30,2126           54301                          TS       MARKINDX                              #  SET MARK INDEX=5 FOR P52
024449,000288: 30,2127           06006                          TC       INTPRET                               
024450,000289: 30,2130           77624                          CALL                                           
024451,000290: 30,2131           30002                                   R52                                   
024452,000291: 30,2132           77776        DOV5N71           EXIT                                           
024453,000292: 30,2133           32164                          CAF      V05N7122                              
024454,000293:                                                                                                 #  Page 561
024455,000294: 30,2134           04555                          TC       BANKCALL                              
024456,000295: 30,2135           20763                          CADR     GOFLASHR                              
024457,000296: 30,2136           04106                          TC       GOTOP00H                              #  TERMINATE
024458,000297: 30,2137           02144                          TC       +5                                    #  PROCEED        UNPACK ABCDE
024459,000298: 30,2140           02133                          TC       -5                                    #  RECYCLE
024460,000299: 30,2141           34715                          CAF      FIVE                                  #  IMMEDIATE ENTRY BLANK OUT R1,R3
024461,000300: 30,2142           05415                          TC       BLANKET                               
024462,000301: 30,2143           05112                          TC       ENDOFJOB                              
024463,000302: 30,2144           06006                          TC       INTPRET                               
024464,000303: 30,2145           77624                          CALL                                           
024465,000304: 30,2146           60234                                   UNPACKAE                              
024466,000305: 30,2147           77624                          CALL                                           #  SET LAT/LANG/ALT
024467,000306: 30,2150           76333                                   P22SUBRA                              
024468,000307: 30,2151           66744        PROG22C           LXC,2    SLOAD*                                
024469,000308: 30,2152           01330                                   MARKSTAT                              
024470,000309: 30,2153           77724                                   QPRET,2                               
024471,000310: 30,2154           36750                          STCALL   8NN                                   
024472,000311: 30,2155           60255                                   S22.1                                 #  ESTABLISH LANDMARK -- COMPUTE ORBITAL
024473,000312: 30,2156           77776        P22OVER           EXIT                                           
024474,000313: 30,2157           05301                          TC       PHASCHNG                              
024475,000314: 30,2160           04022                          OCT      04022                                 
024476,000315: 30,2161           02036                          TC       PROG22A                               #  POINT A ON GSOP
024477,000316: 30,2162           01455        V06N45B           VN       0645                                  
024478,000317: 30,2163           01306        V05N7022          VN       00570                                 
024479,000318: 30,2164           01307        V05N7122          VN       00571                                 
024480,000319: 30,2165           00033 00000  P22MAXDE          2DEC     27         B-14                       
024481,000320: 
024482,000321: 30,2167           01531        V06N89            VN       00689                                 
024483,000322: 30,2170           00077        OCTL77            OCT      77                                    #  DE MASK OF ABCDE
024484,000323: 30,2171           00700        OCTL700           OCT      700                                   #   C MASK OF ABCDE
024485,000324: 30,2172           07000        OCTL7000          OCT      7000                                  #   B MASK OF ABCDE
024486,000325: 37,2000                                          SETLOC   P20S                                  
024487,000326: 37,2000                                          BANK                                           
024488,000327: 
024489,000328: 37,2333           43020        P22SUBRA          STQ      BOFF                                  #  SET LAT/LONG/ALT FOR KNOWN LANDMARK
024490,000329: 37,2334           03667                                   S22TOFF                               
024491,000330: 37,2335           03347                                   KNOWNFLG                              
024492,000331: 37,2336           03667                                   S22TOFF                               #  UNKNOWN LANDMARK, EXIT
024493,000332: 37,2337           46135                          SLOAD    BHIZ                                  
024494,000333: 37,2340           02745                                   22SUBSCL                              
024495,000334: 37,2341           60213                                   OBTAINLL                              #  GET LAT/LONG/ALT FROM ASTRO
024496,000335: 37,2342           50025                          DSU      BMN                                   
024497,000336: 37,2343           21646                                   9DWID                                 #  2 B-14
024498,000337: 37,2344           60173                                   S22LSITE                              #  GET LAT/LONG/ALT FROM RLS (LANDING SITE)
024499,000338: 37,2345           70152                          SL1      LXC,1                                 #  GET LAT/LONG/ALT FROM TABLES
024500,000339: 37,2346           00154                                   MPAC                                  
024501,000340: 37,2347           70601                          SETPD    DLOAD*                                
024502,000341: 37,2350           00001                                   0D                                    
024503,000342: 37,2351           23705                                   ALTTAB,1                              
024504,000343: 37,2352           64723                          PDDL*    PDDL*                                 
024505,000344:                                                                                                 #  Page 562
024506,000345: 37,2353           23623                                   LONGTAB,1                             
024507,000346: 37,2354           23541                                   LATTAB,1                              
024508,000347: 37,2355           77666                          VDEF                                           
024509,000348: 37,2356           35104                          STCALL   LAT                                   
024510,000349: 37,2357           03667                                   S22TOFF                               #  EXIT
024511,000350: 30,2000                                          SETLOC   P20S1                                 
024512,000351: 30,2000                                          BANK                                           
024513,000352: 
024514,000353: 30,2173           77634        S22LSITE          RTB                                            #  CONVERT RLS FROM MOON-FIXED TO BASIC REF
024515,000354: 30,2174           45505                                   LOADTIME                              
024516,000355: 30,2175           24007                          STOVL    6D                                    #  6-7D= TIME
024517,000356: 30,2176           02026                                   RLS                                   
024518,000357: 30,2177           14001                          STODL    0D                                    #  0-5D= LANDING SITE VECTOR
024519,000358: 30,2200           15330                                   HIDPHALF                              #  MPAC= ANY NON-ZERO FOR MOON
024520,000359: 30,2201           77624                          CALL                                           
024521,000360: 30,2202           55341                                   RP-TO-R                               #  RLS IN BASIC REF B-27 IN MPAC
024522,000361: 30,2203           77742                          VSR2                                           #  LUNAFLAG AND ERADFLAG SET ABOVE
024523,000362: 30,2204           02152                          STORE    ALPHAV                                #  SCALE RLS B-29 FOR LAT-LONG
024524,000363: 30,2205           77634                          RTB                                            
024525,000364: 30,2206           45505                                   LOADTIME                              #  SET PRESENT TIME IN MPAC FOR LAT-LONG
024526,000365: 30,2207           77624                          CALL                                           
024527,000366: 30,2210           26322                                   LAT-LONG                              
024528,000367: 30,2211           77650                          GOTO                                           
024529,000368: 30,2212           03667                                   S22TOFF                               #  EXIT
024530,000369: 30,2213           77624        OBTAINLL          CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024531,000370: 30,2214           60217                                   P22SUBRB                              
024532,000371: 30,2215           77650                          GOTO                                           
024533,000372: 30,2216           03667                                   S22TOFF                               #  EXIT
024534,000373: 30,2217           77420        P22SUBRB          STQ      EXIT                                  #  GET LAT/LONG/ALT FROM ASTRO
024535,000374: 30,2220           03670                                   S22TOFF    +1                         
024536,000375: 30,2221           33656                          CAF      V06N89B                               
024537,000376: 30,2222           04555                          TC       BANKCALL                              
024538,000377: 30,2223           20624                          CADR     GOFLASH                               
024539,000378: 30,2224           04106                          TC       GOTOP00H                              #  TERMINATE
024540,000379: 30,2225           02227                          TC       +2                                    #  PROCEED
024541,000380: 30,2226           02221                          TC       -5                                    #  ENTER OR RECYCLE
024542,000381: 30,2227           06006                          TC       INTPRET                               
024543,000382: 30,2230           77624                          CALL                                           
024544,000383: 30,2231           61345                                   LLASRDA                               
024545,000384: 30,2232           77650                          GOTO                                           
024546,000385: 30,2233           03670                                   S22TOFF    +1                         #  EXIT
024547,000386: 30,2234           77776        UNPACKAE          EXIT                                           #  UNPACK LANDMARK INTO ABCDE
024548,000387: 30,2235           31751                          CA       LANDMARK                              
024549,000388: 30,2236           72170                          MASK     OCTL77                                
024550,000389: 30,2237           55744                          TS       22SUBSCL                              #  DE=L=LMK ID NO. N 00,01,02-26
024551,000390: 30,2240           31751                          CA       LANDMARK                              
024552,000391: 30,2241           72172                          MASK     OCTL7000                              
024553,000392: 30,2242           55745                          TS       CXOFF                                 #  B= OFFSET INDICATOR
024554,000393: 30,2243           05435                          TC       UPFLAG                                #  SET KNOWNFLG
024555,000394: 30,2244           00141                          ADRES    KNOWNFLG                              #  BIT 8 FLAG 6
024556,000395:                                                                                                 #  Page 563
024557,000396: 30,2245           31751                          CA       LANDMARK                              
024558,000397: 30,2246           74675                          MASK     BIT14                                 #  IF BIT14 OF LANDMARK=1, A=2.  OTHERWISE A=1
024559,000398: 30,2247           00006                          EXTEND                                         
024560,000399: 30,2250           12253                          BZF      +3                                    #  A=1    LEAVE KNOWNFLAG SET FOR KNOWN LMK
024561,000400: 30,2251           05447                          TC       DOWNFLAG                              #  A=2    CLEAR KNOWNFLG (BIT 8 FLAG 6) FOR
024562,000401: 30,2252           00141                          ADRES    KNOWNFLG                              #         UNKNOWN LMK.
024563,000402: 30,2253           06006                          TC       INTPRET                               
024564,000403: 30,2254           77616                          RVQ                                            
024565,000404: 
024566,000405:                                                                                                 #  Page 564
024567,000406:                                                                                                 #  PROGRAM NAME:  OPTICS CALIBRATION ROUTINE
024568,000407:                                                                                                 #  MOD NO:  1
024569,000408:                                                                                                 #  MOD BY:  TOM KNATT
024570,000409: 
024571,000410:                                                                                                 #  FUNCTIONAL DESCRIPTION:  TO MEASURE THE EFFECT OF SOLAR RADIATION ON
024572,000411:                                                                                                 #         THE SXT TRUNNON ANGLE AND STORE THE MEASURED TRUNNION BIAS FOR P23
024573,000412: 
024574,000413:                                                                                                 #  CALLING SEQUENCE:      CALL
024575,000414:                                                                                                 #                                 R57
024576,000415: 
024577,000416:                                                                                                 #  SUBROUTINES CALLED:  DISPLAY ROUTINES
024578,000417: 
024579,000418:                                                                                                 #  NORMAL EXIT MODES:  VIA EGRESS
024580,000419: 
024581,000420:                                                                                                 #  ALARMS:  NONE
024582,000421: 
024583,000422:                                                                                                 #  ABORT MODES:  P23 ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE
024584,000423: 
024585,000424:                                                                                                 #  INPUT:  NONE REQURIES, NORMALLY CALLED BY P23
024586,000425: 
024587,000426:                                                                                                 #  OUTPUT:  TRUNNION BIAS ANGLE: ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT
024588,000427:                                                                                                 #         (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED.  THIS ANGLE
024589,000428:                                                                                                 #         MAY NOT BE EXACTLY ZERO BECAUSE OF UNEVEN HEATING OF THE OPTICS, FOR
024590,000429:                                                                                                 #         EXAMPLE.
024591,000430: 
024592,000431:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED:  MRKBUF1, EXTVBACT
024593,000432: 
024594,000433:                                                                                                 #  DEBRIS:  RUPTREGS USED BY MARKRUPT AND ERASABLES USED BY DISPLAYS.
024595,000434: 
024596,000435: 33,3772                                          BANK     33                                    
024597,000436: 37,2000                                          SETLOC   P20S                                  
024598,000437: 37,2000                                          BANK                                           
024599,000438: 37,2360                                          COUNT*   $$/R57                                
024600,000439: 37,2360  E7,1725                                 EBANK=   MRKBUF1                               
024601,000440: 37,2360           77420        R57               STQ      EXIT                                  
024602,000441: 37,2361           02317                                   EGRESS                                
024603,000442: 37,2362           34753                          CAF      EBANK7                                
024604,000443: 37,2363           54003                          TS       EBANK                                 
024605,000444: 37,2364           36211                          CAF      SIX                                   #  BIT2 = MARKING SYSTEM IN USE
024606,000445: 37,2365           71044                          MASK     EXTVBACT                              #  BIT3 = EXTENDED VERB IN PROGRESS
024607,000446: 37,2366           10000                          CCS      A                                     
024608,000447: 37,2367           02437                          TC       P23ABRT                               #  SET, THEREFORE ABORT
024609,000448: 37,2370           34711                          CAF      BIT2                                  #  NOT SET
024610,000449: 37,2371           27044                          ADS      EXTVBACT                              #  SET IT
024611,000450: 37,2372           05435        R57A              TC       UPFLAG                                #  SET V59FLAG (BIT 12 FLAG 5 TO INDICATE
024612,000451: 37,2373           00116                          ADRES    V59FLAG                               #  CALIBRATION MARK
024613,000452: 37,2374           32442                          CAF      V59NB                                 
024614,000453: 37,2375           04555                          TC       BANKCALL                              
024615,000454: 37,2376           20504                          CADR     GOMARKFR                              
024616,000455: 37,2377           04106                          TC       GOTOP00H                              #  TERMINATE
024617,000456: 37,2400           02424                          TC       ENDR57                                
024618,000457: 37,2401           02424                          TC       ENDR57                                
024619,000458: 37,2402           34716                          CAF      SEVEN                                 
024620,000459:                                                                                                 #  Page 565
024621,000460: 37,2403           05415                          TC       BLANKET                               #  BLANK OUT R1,R2,R3
024622,000461: 37,2404           05112                          TC       ENDOFJOB                              
024623,000462:                                                                                                 #  STORE TRUNNION ANGLE (OCDU)
024624,000463: 37,2405           32441        MARKDISP          CAF      V06N87NB                              
024625,000464: 37,2406           04555                          TC       BANKCALL                              
024626,000465: 37,2407           20504                          CADR     GOMARKFR                              
024627,000466: 37,2410           04106                          TC       GOTOP00H                              #  TERMINATE
024628,000467: 37,2411           02416                          TC       R57B                                  #  PROCEED
024629,000468: 37,2412           02372                          TC       R57A                                  #  ENTER (RECYCLE)
024630,000469: 37,2413           34715                          CAF      FIVE                                  
024631,000470: 37,2414           05415                          TC       BLANKET                               #  BLANK OUT R1,R3
024632,000471: 37,2415           05112                          TC       ENDOFJOB                              
024633,000472: 37,2416           32444        R57B              CA       19.77DEG                              #  PUT FIXED INTO ERASABLE FOR MSU
024634,000473: 37,2417           54001                          TS       L                                     #  INSTRUCTION COMING UP
024635,000474: 37,2420           31732                          CA       MRKBUF1    +5                         #  CONTAINS TRUNNION\
024636,000475: 37,2421           00006                          EXTEND                                         
024637,000476: 37,2422           20001                          MSU      L                                     #  CONNECTS TRUNBIAS FROM 2'S TO 1'S
024638,000477: 37,2423           55342                          TS       TRUNBIAS                              
024639,000478: 37,2424           05447        ENDR57            TC       DOWNFLAG                              #  RESET V59FLAG
024640,000479: 37,2425           00116                          ADRES    V59FLAG                               #  BIT 12 FLAG 5
024641,000480: 37,2426           34751                          CAF      EBANK5                                
024642,000481: 37,2427           54003                          TS       EBANK                                 
024643,000482: 37,2430           34761                          CAF      PRIO14                                
024644,000483: 37,2431           05027                          TC       NOVAC                                 #  THIS JOB CLEARS BIT IN
024645,000484: 37,2432     1330                                 EBANK=   MARKSTAT                              
024646,000485: 37,2432           05423 04062                    2CADR    ENDMARK                               #  MARKING IN R57 SO R53 CAN TAKE OVER
024647,000486: 
024648,000487: 37,2434           06006                          TC       INTPRET                               
024649,000488: 37,2435           77650                          GOTO                                           
024650,000489: 37,2436           02317                                   EGRESS                                
024651,000490: 37,2437           05604        P23ABRT           TC       BAILOUT                               
024652,000491: 37,2440           01211                          OCT      01211                                 
024653,000492: 37,2441           01527        V06N87NB          VN       0687                                  
024654,000493: 37,2442           16600        V59NB             VN       5900                                  
024655,000494: 37,2443           14600        V51NB             VN       5100                                  
024656,000495: 37,2444           61740        19.77DEG          OCT      61740                                 
024657,000496: 
024658,000497:                                                                                                 #  Page 566
024659,000498:                                                                                                 #  PROGRAM DESCRIPTION
024660,000499:                                                                                                 #  MOD NO:  1
024661,000500:                                                                                                 #  MOD BY:  N. BRODEUR
024662,000501: 
024663,000502:                                                                                                 #  FUNCTIONAL DESCRIPTION
024664,000503: 
024665,000504:                                                                                                 #  TO PERFORM SIGHTING MARKS IN CONJUNCTION WITH THE RENDEZVOUS NAVIG-
024666,000505:                                                                                                 #  ATION PROGRAM.  CALLED BY ASTRONAUT VIA EXTENDED VERB.
024667,000506: 
024668,000507:                                                                                                 #  CALLING SEQUENCE:
024669,000508: 
024670,000509:                                                                                                 #         R21 VIA V57
024671,000510:                                                                                                 #         R23 VIA V 54
024672,000511: 
024673,000512:                                                                                                 #  SUBROUTINES CALLED:
024674,000513: 
024675,000514:                                                                                                 #         FLAGUP          FLAGDOWN        BANKCALL
024676,000515:                                                                                                 #         ENDOFJOB        GOMARK2         GOMARKF
024677,000516:                                                                                                 #         INTPRET         GENTRAN         KLEENEX
024678,000517:                                                                                                 #         ENDMARK
024679,000518: 
024680,000519:                                                                                                 #  NORMAL EXIT MODES:
024681,000520: 
024682,000521:                                                                                                 #  MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARK IN MRKBUF2
024683,000522:                                                                                                 #  FOR USE BY R22.  WHEN ASTRONAUT IS FINISHED TAKING MARKS, HE HITS AN
024684,000523:                                                                                                 #  PROCEED, R21 IS TERMINATED THUS CAUSING THE FINAL MARK TO BE TRANSFRD
024685,000524:                                                                                                 #  TO MRKBUF2 FOR PROCESSING BY R22
024686,000525: 
024687,000526:                                                                                                 #  ALARM OR ABORT EXIT MODES:
024688,000527: 
024689,000528:                                                                                                 #         NONE
024690,000529: 
024691,000530:                                                                                                 #  OUTPUT:
024692,000531: 
024693,000532:                                                                                                 #         7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y,
024694,000533:                                                                                                 #         CDUX.
024695,000534: 
024696,000535:                                                                                                 #  ERASABLE INTIALIZATION REQUIRED
024697,000536: 
024698,000537:                                                                                                 #         FLAGS SET AND RESET
024699,000538:                                                                                                 #                 R21MARK         (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 +2)
024700,000539:                                                                                                 #                 R23FLG          INDICATES COAS MARKING
024701,000540: 
024702,000541:                                                                                                 #  DEBRIS
024703,000542: 
024704,000543: 37,2445  E7,1725                                 EBANK=   MRKBUF1                               
024705,000544: 37,2000                                          SETLOC   RENDEZ                                
024706,000545: 37,2000                                          BANK                                           
024707,000546: 
024708,000547: 37,2445                                          COUNT*   $$/R21                                
024709,000548: 
024710,000549: 37,2445           05435        R21CSM            TC       UPFLAG                                #  SET R21MARK
024711,000550: 37,2446           00037                          ADRES    R21MARK                               #  BIT 14 FLAG 2
024712,000551: 37,2447           37716        R23CSM            CA       NEGONE                                
024713,000552: 37,2450           55725                          TS       MRKBUF1                               
024714,000553: 37,2451           55734                          TS       MRKBUF2                               
024715,000554: 37,2452           30075                          CA       FLAGWRD1                              
024716,000555: 37,2453           74702                          MASK     BIT9                                  #  TEST R23FLG
024717,000556: 37,2454           00006                          EXTEND                                         
024718,000557: 37,2455           12510                          BZF      R21C1                                 #  NOT SET REGULAR R21 MARKING
024719,000558: 37,2456           32535                          CAF      V0694                                 #  R23 BACKUP MARKING
024720,000559: 37,2457           04555                          TC       BANKCALL                              #  DISPLAY SHAFT + TRUNNION
024721,000560: 37,2460           20465                          CADR     GOMARKF                               
024722,000561: 37,2461           02527                          TC       R21END                                #  TERM
024723,000562: 37,2462           02464                          TC       +2                                    #  PROC
024724,000563:                                                                                                 #  Page 567
024725,000564: 37,2463           02456                          TC       -5                                    #  ENTER
024726,000565: 37,2464           32534        R23CSM1           CAF      V53                                   #  PERFORM ALT LOST SIGHT MARK
024727,000566: 37,2465           04555                          TC       BANKCALL                              
024728,000567: 37,2466           20470                          CADR     GOMARK2                               
024729,000568: 37,2467           02527                          TC       R21END                                #  V34: TERMINATE R23
024730,000569: 37,2470           12516                          TCF      R21CSMA                               #  PROCEED: END BACK UP MARKING (R23)
024731,000570: 37,2471           36211                          CAF      SIX                                   #  TRANSFER MRKBUF1 TO MRKBUF2
024732,000571: 37,2472           05475                          TC       GENTRAN                               
024733,000572: 37,2473           01725                          ADRES    MRKBUF1                               
024734,000573: 37,2474           01734                          ADRES    MRKBUF2                               
024735,000574: 37,2475           00006                          EXTEND                                         
024736,000575: 37,2476           30025                          DCA      TIME2                                 
024737,000576: 37,2477           53726                          DXCH     MRKBUF1                               #  READ TIME
024738,000577: 37,2500           30033                          CA       CDUY                                  #  READ CDU ANGLES
024739,000578: 37,2501           55727                          TS       MRKBUF1    +2                         
024740,000579: 37,2502           30034                          CA       CDUZ                                  
024741,000580: 37,2503           55731                          TS       MRKBUF1    +4                         
024742,000581: 37,2504           30032                          CA       CDUX                                  
024743,000582: 37,2505           55733                          TS       MRKBUF1    +6                         
024744,000583: 37,2506           00003                          RELINT                                         
024745,000584: 37,2507           02464                          TC       R23CSM1                               
024746,000585: 37,2510           32443        R21C1             CAF      V51NB                                 
024747,000586: 37,2511           04555                          TC       BANKCALL                              
024748,000587: 37,2512           20470                          CADR     GOMARK2                               
024749,000588: 37,2513           02527                          TC       R21END                                #  V34: TERMINATE R21
024750,000589: 37,2514           12516                          TCF      R21CSMA                               #  PROCEED: END R21
024751,000590: 37,2515           12510                          TCF      R21C1                                 #  RECYCLE
024752,000591: 
024753,000592: 37,2516           31725        R21CSMA           CA       MRKBUF1                               #  IF -1 NO MARK
024754,000593: 37,2517           64712                          AD       ONE                                   
024755,000594: 37,2520           00006                          EXTEND                                         
024756,000595: 37,2521           12527                          BZF      R21END                                #  ZERO = NO MARK
024757,000596: 37,2522           36211                          CAF      SIX                                   #  MARK THEREFORE TRANSFER IT TO MRKBUF2
024758,000597: 37,2523           05475        R21CSM1           TC       GENTRAN                               #  TRANSFER MRKBUF1 TO MRKBUF2
024759,000598: 37,2524           01725                          ADRES    MRKBUF1                               
024760,000599: 37,2525           01734                          ADRES    MRKBUF2                               
024761,000600: 37,2526           00003                          RELINT                                         
024762,000601: 37,2527           04555        R21END            TC       BANKCALL                              
024763,000602: 37,2530           20464                          CADR     KLEENEX                               
024764,000603: 37,2531           05447                          TC       DOWNFLAG                              #  RESET R21MARK
024765,000604: 37,2532           00037                          ADRES    R21MARK                               #  BIT 14 FLAG 2
024766,000605: 37,2533           05423                          TC       ENDMARK                               #  END MARKING AND ENDJOB
024767,000606: 37,2534           15200        V53               VN       5300                                  
024768,000607: 37,2535           01536        V0694             VN       0694                                  
024769,000608: 
024770,000609:                                                                                                 #  Page 568
024771,000610:                                                                                                 #  PREFERRED TRACKING ATTITUDE ROUTINE R61CSM
024772,000611: 
024773,000612:                                                                                                 #  PROGRAM DESCRIPTION
024774,000613:                                                                                                 #         MOD NO:  2
024775,000614:                                                                                                 #         MOD BY:  N. BRODEUR
024776,000615: 
024777,000616:                                                                                                 #  FUNCTIONAL DESCRIPTION:
024778,000617: 
024779,000618:                                                                                                 #         TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM TO ENABLE OPTICS
024780,000619:                                                                                                 #         TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED
024781,000620:                                                                                                 #         OR X-AXIS TRACKING ATTITUDE.
024782,000621: 
024783,000622:                                                                                                 #  CALLING SEQUENCE:
024784,000623: 
024785,000624:                                                                                                 #         TC      BANKCALL
024786,000625:                                                                                                 #         CADR    R61CSM
024787,000626: 
024788,000627:                                                                                                 #  SUBROUTINE CALLED
024789,000628: 
024790,000629:                                                                                                 #         MAKECADR        BANKCALL
024791,000630:                                                                                                 #         INTPRET         FLAGUP          FLAGDOWN
024792,000631:                                                                                                 #         BANKJUMP        CRS61.1         R60CSM
024793,000632:                                                                                                 #         PHASCHNG
024794,000633: 
024795,000634:                                                                                                 #  NORMAL EXIT MODES:
024796,000635: 
024797,000636:                                                                                                 #         NORMAL RETURN TO CALLER + 1
024798,000637: 
024799,000638:                                                                                                 #  OUTPUT:
024800,000639: 
024801,000640:                                                                                                 #         SEE OUTPUT FOR CRS61.1 & ATTITUDE MANEUVER ROUTINE (R60CSM)
024802,000641: 
024803,000642:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED
024804,000643: 
024805,000644:                                                                                                 #         GENRET USED TO SAVE Q FOR RETURN
024806,000645:                                                                                                 #         R61CNTR MUST BE PRESET TO ZERO
024807,000646: 
024808,000647:                                                                                                 #  FLAGS SET + RESET
024809,000648: 
024810,000649:                                                                                                 #         3-AXIS FLAG
024811,000650: 
024812,000651:                                                                                                 #  DEBRIS
024813,000652: 
024814,000653:                                                                                                 #         SEE SUBROUTINES
024815,000654: 
024816,000655: 37,2536  E6,1770                                 EBANK=   GENRET                                
024817,000656: 37,2536                                          COUNT*   $$/R61                                #  ROUTINES -- NAVIGATION -- PREF. TR. 9TT=
024818,000657: 
024819,000658: 37,2536           34752        R61CSM            CAF      EBANK6                                #  SWITCH TO EBANK 6
024820,000659: 37,2537           56003                          XCH      EBANK                                 
024821,000660: 37,2540           55771                          TS       SAVBNK                                #  SAVE EBANK
024822,000661: 37,2541           04604                          TC       MAKECADR                              
024823,000662: 37,2542           55770                          TS       GENRET                                
024824,000663: 37,2543           11775                          CCS      R61CNTR                               #  TEST R61DNTR
024825,000664: 37,2544           02575                          TC       DECRM61                               #  NOT READY TO DO R61
024826,000665: 37,2545           02547                          TC       +2                                    #  DO R61
024827,000666: 37,2546           02576                          TC       DECRM61    +1                         
024828,000667: 37,2547           06006                          TC       INTPRET                               
024829,000668: 37,2550           77624                          CALL                                           
024830,000669: 37,2551           71225                                   CRS61.1                               #  LOS DETERMINATION + VEH ATTITUDE
024831,000670: 37,2552           77776                          EXIT                                           
024832,000671: 37,2553           50154                          INDEX    MPAC                                  
024833,000672: 37,2554           02555                          TC       +1                                    
024834,000673: 37,2555           02574                          TC       R61END                                #  SUBROUTINE DRIVING DAP (EXIT R61)
024835,000674:                                                                                                 #  OR AUTO MODE NOT SET           (EXIT R61)
024836,000675:                                                                                                 #  OR SKIKFLAG SET                (EXIT R61)
024837,000676: 37,2556           05447        R61C1             TC       DOWNFLAG                              #  RESET 3-AXIS FLAG
024838,000677: 37,2557           00124                          ADRES    3AXISFLG                              #  BIT 6 FLAG 5
024839,000678:                                                                                                 #  Page 569
024840,000679: 37,2560           44712                          CS       ONE                                   #  SET R61CNTR NEG. TO INDICATE KALCMANU
024841,000680: 37,2561           55775                          TS       R61CNTR                               
024842,000681: 
024843,000682: 37,2562           05435                          TC       UPFLAG                                #  SET FLAG FOR PRIORITY DISPLAYS FOR R60
024844,000683: 37,2563           00077                          ADRES    PDSPFLAG                              #  BIT 12 FLAG 4
024845,000684: 37,2564           04555                          TC       BANKCALL                              
024846,000685: 37,2565           56000                          CADR     R60CSM                                
024847,000686: 37,2566           05447                          TC       DOWNFLAG                              #  RESET FLAG FOR PRIORITY DISPLAYS IN R60
024848,000687: 37,2567           00077                          ADRES    PDSPFLAG                              #  BIT 12 FLAG 4
024849,000688: 37,2570           05301                          TC       PHASCHNG                              
024850,000689: 37,2571           00111                          OCT      00111                                 
024851,000690: 37,2572           34714                          CAF      ZERO                                  
024852,000691: 37,2573           02575                          TC       DECRM61                               
024853,000692: 37,2574           36214        R61END            CAF      THREE                                 
024854,000693: 
024855,000694: 37,2575           55775        DECRM61           TS       R61CNTR                               
024856,000695: 
024857,000696: 37,2576           31770                          CAE      GENRET                                
024858,000697: 37,2577           22000                          LXCH     A                                     #  RETURN IS IN L
024859,000698: 37,2600           31771                          CA       SAVBNK                                #  RESTORE EBANK
024860,000699: 37,2601           56003                          XCH      EBANK                                 
024861,000700: 37,2602           22000                          LXCH     A                                     #  RETURN IS NOW BACK IN A
024862,000701: 37,2603           04577                          TC       BANKJUMP                              #  EXIT R61
024863,000702: 13,2176                                          BANK     13                                    
024864,000703: 23,2000                                          SETLOC   P20S2                                 
024865,000704: 23,2000                                          BANK                                           
024866,000705: 
024867,000706: 23,3047  E7,1725                                 EBANK=   MRKBUF1                               
024868,000707:                                                                                                 #  Page 570
024869,000708:                                                                                                 #  BVECTOR PERFORMS COMPUTATIONS FOR
024870,000709: 
024871,000710:                                                                                                 #         DELTAQ, THE MEASURED DEVIATION BASED ON THE DIFFERENCE BETWEEN THE CSM-LEM
024872,000711:                                                                                                 #         STATE VECTOR ESTIMATES AND THE ACTUAL TRACKING MEASUREMENT.
024873,000712: 
024874,000713:                                                                                                 #         US, THE MODIFIED FICTITIOUS STAR DIRECTION VECTOR
024875,000714:                                                                                                 #         GEOMETRY VECTORY B ASSOCIATED WITH EACH TRACKING MEASUREMENT.
024876,000715: 
024877,000716:                                                                                                 #  INPUT
024878,000717: 
024879,000718:                                                                                                 #         UM, 1/2 UNIT VECTOR ALONG THE CSM-LM LINE-OF-SIGHT (BASIC REF. SYSTEM)
024880,000719: 
024881,000720:                                                                                                 #         USTAR, FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
024882,000721: 
024883,000722:                                                                                                 #         RCLP, RELATIVE CSM TO LM POSITION VECTOR
024884,000723: 
024885,000724:                                                                                                 #  OUTPUT
024886,000725: 
024887,000726:                                                                                                 #         USTAR, MODIFIED FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
024888,000727: 
024889,000728:                                                                                                 #         BVECTOR = 9 DIMENTIONAL EVECTOR (1/2 UNIT VEC.)
024890,000729: 
024891,000730:                                                                                                 #         DELTAQ = MEASURED DEVIATION
024892,000731: 
024893,000732:                                                                                                 #  CALLING SEQUENCE
024894,000733: 
024895,000734:                                                                                                 #         L       CALL BVECTORS
024896,000735: 
024897,000736:                                                                                                 #  NORMAL EXIT
024898,000737: 
024899,000738:                                                                                                 #         L+1 OF CALLING SEQUENCE
024900,000739: 
024901,000740: 23,3047                                          COUNT    23/20SUB                              
024902,000741: 
024903,000742: 23,3047           77620        BVECTORS          STQ                                            
024904,000743: 23,3050           02317                                   EGRESS                                
024905,000744: 23,3051           53575                          VLOAD    UNIT                                  
024906,000745: 23,3052           03531                                   RCLP                                  #  RELATIVE POSITION VECTOR
024907,000746: 23,3053           14033                          STODL    26D                                   #  RCLP UNIT VEC
024908,000747: 23,3054           00045                                   36D                                   #  RCLP ABS VALUE
024909,000748: 23,3055           25301                          STOVL    TEMPOR1                               #  MOVE TO SAFE LOCATION
024910,000749: 23,3056           01245                                   USTAR                                 
024911,000750: 23,3057           53435                          VXV      UNIT                                  
024912,000751: 23,3060           00033                                   26D                                   #  USTAR = UNIT(US X UCL)
024913,000752: 23,3061           37502                          STCALL   BVECTOR                               
024914,000753: 23,3062           56741                                   GRP2PC                                #  PHASE CHANGE
024915,000754: 23,3063           77775                          VLOAD                                          
024916,000755: 23,3064           03502                                   BVECTOR                               
024917,000756: 23,3065           01245                          STORE    USTAR                                 
024918,000757: 23,3066           72441                          DOT      SL1                                   
024919,000758: 23,3067           01235                                   UM                                    #  USTAR DOT UM
024920,000759: 23,3070           45326                          ACOS     DSU                                   
024921,000760: 23,3071           15322                                   DP1/4TH                               
024922,000761: 23,3072           41301                          NORM     DMP                                   
024923,000762: 23,3073           00047                                   X1                                    
024924,000763: 23,3074           07107                                   PI/4.0                                
024925,000764: 23,3075           53605                          DMP      SRR*                                  
024926,000765: 23,3076           01301                                   TEMPOR1                               #  RCLP ABS VALUE
024927,000766: 23,3077           21576                                   0          -3,1                       #  ADJUST SCALING
024928,000767: 23,3100           27524                          STOVL    DELTAQ                                
024929,000768: 23,3101           15332                                   ZEROVECS                              
024930,000769: 23,3102           03510                          STORE    BVECTOR    +6                         
024931,000770: 23,3103           03516                          STORE    BVECTOR    +12D                       
024932,000771: 23,3104           77650                          GOTO                                           
024933,000772:                                                                                                 #  Page 571
024934,000773: 23,3105           02317                                   EGRESS                                
024935,000774: 23,3106           31103 36652  PI/4.0            2DEC     .785398164                            
024936,000775: 
024937,000776:                                                                                                 #  Page 572
024938,000777:                                                                                                 #  GETUM:  DETERMINES THE LINE OF SIGHT UNIT VECTOR UM IN THE BASIC REFERENCE
024939,000778:                                                                                                 #  COORDINATE SYSTEM FROM THE OPTICS SHAFT AND TRUNNION ANGLES AND THE IMU
024940,000779:                                                                                                 #  GIMBAL ANGLES.
024941,000780: 
024942,000781:                                                                                                 #  INPUT
024943,000782: 
024944,000783:                                                                                                 #         MARKDATA, BASE ADDRESS OF MARK DATA
024945,000784: 
024946,000785:                                                                                                 #         REFSMMAT, ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF. COORD. SYSTEM
024947,000786: 
024948,000787:                                                                                                 #  SUROUTINES CALLED:
024949,000788: 
024950,000789:                                                                                                 #         SXTNB -- SEXT. ANGULAR READINGS TO NAV. BASE COOR.
024951,000790: 
024952,000791:                                                                                                 #         NBSM -- TRANSFORM FROM NAV. BASE TO STABLE MEMBER
024953,000792: 
024954,000793:                                                                                                 #  OUTPUT
024955,000794: 
024956,000795:                                                                                                 #         MPAC = LINE OF SIGNT 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM
024957,000796: 
024958,000797:                                                                                                 #  CALLING SEQUENCE
024959,000798: 
024960,000799:                                                                                                 #         L       CALL GETUM
024961,000800: 
024962,000801:                                                                                                 #  NORMAL EXIT
024963,000802: 
024964,000803:                                                                                                 #         L+1 OF CALLING SEQUENCE
024965,000804: 
024966,000805: 23,3110           40220        GETUM             STQ      SETPD                                 
024967,000806: 23,3111           02317                                   EGRESS                                
024968,000807: 23,3112           00001                                   0                                     
024969,000808: 23,3113           76740                          LXC,1    VLOAD*                                
024970,000809: 23,3114           01242                                   MARKDATA                              #  CONTAINS ADDRESS OF MARK DATA
024971,000810: 23,3115           00002                                   1,1                                   
024972,000811: 23,3116           23676                          STODL*   MARKDOWN   +1                         #  TRANSFER DATA FROM WORKING STORAGE
024973,000812: 23,3117           00001                                   0,1                                   #  TO MARKDOWN ARRAY FOR DOWNLINK
024974,000813: 23,3120           03675                          STORE    MARKDOWN                              
024975,000814: 23,3121           77774                          AXT,2                                          
024976,000815: 23,3122           00002                                   2                                     
024977,000816: 23,3123           67064                          XSU,2    SXA,2                                 
024978,000817: 23,3124           00046                                   X1                                    #  X1 = MARKDATA
024979,000818: 23,3125           00050                                   S1                                    #  S1 = MARKDATA(ADR) +2
024980,000819: 23,3126           77624                          CALL                                           
024981,000820: 23,3127           46000                                   SXTNB                                 #  SEXT. ANGULAR READINGS TO NAV. BASE COOR.
024982,000821: 23,3130           77624                          CALL                                           
024983,000822: 23,3131           47541                                   NBSM                                  #  TRANSFORM FROM NAV. BASE TO STABLE MEM.
024984,000823: 23,3132           76505                          VXM      VSL1                                  
024985,000824: 23,3133           01736                                   REFSMMAT                              
024986,000825: 23,3134           77650                          GOTO                                           #  MPAC = (UM) LINE OF SIGHT VECTOR
024987,000826: 23,3135           02317                                   EGRESS                                #  EXIT
024988,000827: 
024989,000828:                                                                                                 #  Page 573
024990,000829:                                                                                                 #  RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
024991,000830: 
024992,000831:                                                                                                 #  PURPOSE        (1) TO PROCESS RENDEZVOUS SIGHTING MARK DATA TO UPDATE THE STATE VECTOR OF EITHER THE CSM OR LM AS
024993,000832:                                                                                                 #                 DEFINED BY THE RENDEZVOUS NAVIGATION PROGRAM (P20).
024994,000833: 
024995,000834:                                                                                                 #  ASSUMPTIONS    (1) THIS ROUTINE IS MANUALLY SELECTED BY THE ASTRONAUT BY V55E WHENEVER RENDEZVOUS SIGHTING MARKS
024996,000835:                                                                                                 #                 ARE DESIRED.  ITS SELECTION, HOWEVER, IS LIMITED TO PERIODS WHEN THE CMC IS HOLDING FOR A V/N FLASHING
024997,000836:                                                                                                 #                 DFATA DISPLAY.  THIS ROUTINE RETURNS TO THE ORIGINAL PROGRAM AT THE INTERRUPTED DISPLAY.
024998,000837: 
024999,000838: 34,2512                                          BANK     34                                    
025000,000839: 34,2000                                          SETLOC   P20S3                                 
025001,000840: 34,2000                                          BANK                                           
025002,000841: 
025003,000842: 34,2512                                          COUNT    34/R22                                
025004,000843: 
025005,000844: 34,2512           37663        R22               CAF      PRIO26                                
025006,000845: 34,2513           55056                          TS       PHSPRDT2                              
025007,000846: 34,2514           05103                          TC       PRIOCHNG                              
025008,000847: 34,2515           37714                          CA       NEG3                                  
025009,000848: 34,2516           55734                          TS       MRKBUF2                               
025010,000849: 34,2517           06006                          TC       INTPRET                               
025011,000850: 34,2520           77634                          RTB                                            
025012,000851: 34,2521           45505                                   LOADTIME                              
025013,000852: 34,2522           01152                          STORE    VHFTIME                               #  PRESENT TIME
025014,000853: 34,2523           77624        REND1             CALL                                           
025015,000854: 34,2524           56741                                   GRP2PC                                
025016,000855: 34,2525           77624                          CALL                                           
025017,000856: 34,2526           56404                                   WAITONE                               
025018,000857: 34,2527           77776        REND1A            EXIT                                           
025019,000858: 34,2530           31734                          CA       MRKBUF2                               
025020,000859: 34,2531           00006                          EXTEND                                         
025021,000860: 34,2532           12535                          BZF      REND2                                 
025022,000861: 34,2533           00006                          EXTEND                                         
025023,000862: 34,2534           62554                          BZMF     REND3A                                
025024,000863: 34,2535           36211        REND2             CAF      SIX                                   
025025,000864: 34,2536           05475                          TC       GENTRAN                               
025026,000865: 34,2537           01734                          ADRES    MRKBUF2                               
025027,000866: 34,2540           01224                          ADRES    MARKTIME                              #  MARKTIME MUST BE CONTIGUOUS WITH VTEMP
025028,000867: 34,2541           37714                          CAF      NEG3                                  #  NEG VALUE TO INDICATE VALUES USED
025029,000868: 34,2542           55734                          TS       MRKBUF2                               
025030,000869: 34,2543           00003                          RELINT                                         
025031,000870: 34,2544           06006                          TC       INTPRET                               
025032,000871: 34,2545           45014                          CLEAR    CALL                                  
025033,000872: 34,2546           04667                                   SOURCFLG                              #  0 = OPTICS DATA
025034,000873: 34,2547           56741                                   GRP2PC                                
025035,000874: 34,2550           52131                          SSP      GOTO                                  
025036,000875: 34,2551           01243                                   MARKDATA                              
025037,000876: 34,2552           01224                          ECADR    VTEMP      -2                         
025038,000877: 34,2553           70577                                   REND4                                 
025039,000878: 34,2554           06006        REND3A            TC       INTPRET                               
025040,000879: 34,2555           77624        REND3             CALL                                           
025041,000880:                                                                                                 #  Page 574
025042,000881: 34,2556           56741                                   GRP2PC                                
025043,000882: 34,2557           77624                          CALL                                           
025044,000883: 34,2560           56404                                   WAITONE                               
025045,000884: 34,2561           77614                          BOFF                                           
025046,000885: 34,2562           04746                                   VHFRFLAG                              
025047,000886: 34,2563           70527                                   REND1A                                
025048,000887: 34,2564           77634                          RTB                                            
025049,000888: 34,2565           45505                                   LOADTIME                              #  PRESENT TIME
025050,000889: 34,2566           45225                          DSU      DSU                                   
025051,000890: 34,2567           14647                                   60SECDP                               #  1 MIN
025052,000891: 34,2570           01152                                   VHFTIME                               #  LAST READING OF RADAR
025053,000892: 34,2571           45040                          BMN      CALL                                  
025054,000893: 34,2572           70527                                   REND1A                                
025055,000894: 34,2573           56415                                   RANGERD                               #  READ RADAR RANGE
025056,000895: 34,2574           77745                          DLOAD                                          
025057,000896: 34,2575           01225                                   MARKTIME                              
025058,000897: 34,2576           01152                          STORE    VHFTIME                               #  FOR DOWNLINK
025059,000898: 34,2577           77624        REND4             CALL                                           
025060,000899: 34,2600           56343                                   SETINTG                               #  SET INTEGRV FLAGS
025061,000900: 34,2601           45014                          BON      CALL                                  
025062,000901: 34,2602           00707                                   VEHUPFLG                              
025063,000902: 34,2603           71034                                   CSMUPP                                #  BRANCH IF CSM UPDATE
025064,000903: 34,2604           27113                                   INTEGRV                               
025065,000904: 34,2605           77624                          CALL                                           
025066,000905: 34,2606           56741                                   GRP2PC                                #  PHASE CHANGE
025067,000906: 34,2607           77624                          CALL                                           
025068,000907: 34,2610           56343                                   SETINTG                               #  SET INTEGRV FLAGS
025069,000908: 34,2611           77614                          CLEAR                                          
025070,000909: 34,2612           01674                                   VINTFLAG                              #  SET INTEGRATION VEHICLE TO LM
025071,000910: 34,2613           43014        REND5             BOFF     SET                                   
025072,000911: 34,2614           02756                                   RENDWFLG                              
025073,000912: 34,2615           70617                                   REND5A                                #  DO NOT INTEGRATE W IF FLAG = 0
025074,000913: 34,2616           01476                                   DIM0FLAG                              
025075,000914: 34,2617           77624        REND5A            CALL                                           
025076,000915: 34,2620           27113                                   INTEGRV                               
025077,000916: 34,2621           77624                          CALL                                           
025078,000917: 34,2622           56526                                   SHIFTNDX                              #  SET EARTH MOON SCALING INDEX
025079,000918: 34,2623           77624                          CALL                                           
025080,000919: 34,2624           71123                                   CMPOS                                 #  SET CSM POSITION
025081,000920: 34,2625           45014                          SET      CALL                                  
025082,000921: 34,2626           02464                                   INCORFLG                              #  SET FOR 1ST PASS
025083,000922: 34,2627           71132                                   LMPOS                                 #  SET LM POSITION
025084,000923: 34,2630           43014                          CLEAR    BON                                   
025085,000924: 34,2631           01671                                   ORBWFLAG                              #  CLEAR FOR ORBITAL AND CISLUNAR
025086,000925: 34,2632           02716                                   RENDWFLG                              
025087,000926: 34,2633           70643                                   REND6                                 
025088,000927: 34,2634           77745                          DLOAD                                          
025089,000928: 34,2635           02001                                   WRENDPOS                              
025090,000929: 34,2636           34001                          STCALL   0                                     #  0 = WRENDPOS   1 = WRENDVEL
025091,000930: 34,2637           56544                                   INITIALW                              #  INTIIALIZE W MATRIX
025092,000931:                                                                                                 #  Page 575
025093,000932: 34,2640           77745                          DLOAD                                          
025094,000933: 34,2641           15332                                   ZEROVECS                              
025095,000934: 34,2642           01126                          STORE    VHFCNT                                #  ZEO OUT VHFCNT AND TRKMKCNT
025096,000935: 34,2643           77614        REND6             SET                                            
025097,000936: 34,2644           02476                                   RENDWFLG                              
025098,000937: 34,2645           52375                          VLOAD    VSU                                   
025099,000938: 34,2646           01215                                   LEMPOS                                
025100,000939: 34,2647           01207                                   CSMPOS                                
025101,000940: 34,2650           03531                          STORE    RCLP                                  #  LM - CSM
025102,000941: 34,2651           43056        REND7             UNIT     BON                                   
025103,000942: 34,2652           04707                                   SOURCFLG                              
025104,000943: 34,2653           71045                                   REND14                                #  BRANCH IF DATA IS RADAR
025105,000944: 34,2654           01273                          STORE    UCL                                   
025106,000945: 34,2655           45014                          BOFF     CALL                                  
025107,000946: 34,2656           02744                                   INCORFLG                              
025108,000947: 34,2657           70671                                   REND9                                 
025109,000948: 34,2660           47110                                   GETUM                                 #  CALCULATE UM LINE OF SIGHT
025110,000949: 34,2661           25235                          STOVL    UM                                    
025111,000950: 34,2662           01273                                   UCL                                   
025112,000951: 34,2663           40035                          VXV      BOV                                   
025113,000952: 34,2664           01235                                   UM                                    #  UCL X UM
025114,000953: 34,2665           70666                                   REND8                                 
025115,000954: 34,2666           40056        REND8             UNIT     BOV                                   
025116,000955: 34,2667           70555                                   REND3                                 #  BRANCH IF OVERFLOW IGNORE MARK
025117,000956: 34,2670           01245                          STORE    USTAR                                 
025118,000957: 34,2671           77624        REND9             CALL                                           
025119,000958: 34,2672           47047                                   BVECTORS                              
025120,000959: 34,2673           77214                          BON      VLOAD                                 
025121,000960: 34,2674           00707                                   VEHUPFLG                              
025122,000961: 34,2675           70701                                   REND9A                                
025123,000962: 34,2676           03502                                   BVECTOR                               
025124,000963: 34,2677           77676                          VCOMP                                          
025125,000964: 34,2700           03502                          STORE    BVECTOR                               
025126,000965: 34,2701           77624        REND9A            CALL                                           
025127,000966: 34,2702           56741                                   GRP2PC                                
025128,000967: 34,2703           77614                          BON                                            
025129,000968: 34,2704           00706                                   R23FLG                                
025130,000969: 34,2705           71076                                   REND15                                #  BRANCH IF BACKUP OPTICS (R23 WORKING)
025131,000970: 34,2706           43345                          DLOAD    DAD                                   
025132,000971: 34,2707           31220                                   SXTVAR                                
025133,000972: 34,2710           31222                                   IMUVAR                                
025134,000973: 34,2711           27526        REND10            STOVL    VARIANCE                              #  TEMP STORAGE FOR VARIANCE CALC.
025135,000974: 34,2712           03531                                   RCLP                                  
025136,000975: 34,2713           60246                          ABVAL    NORM                                  
025137,000976: 34,2714           00047                                   X1                                    
025138,000977: 34,2715           41316                          DSQ      DMP                                   
025139,000978: 34,2716           03526                                   VARIANCE                              
025140,000979: 34,2717           45070                          XAD,1    CALL                                  
025141,000980: 34,2720           00046                                   X1                                    
025142,000981: 34,2721           56526                                   SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025143,000982:                                                                                                 #  Page 576
025144,000983: 34,2722           56070                          XAD,1    XAD,1                                 
025145,000984: 34,2723           00047                                   X2                                    
025146,000985: 34,2724           00047                                   X2                                    
025147,000986: 34,2725           72257                          SR*      TLOAD                                 
025148,000987: 34,2726           20577                                   0          -2,1                       #  ADJUST SCALING TO B-40
025149,000988: 34,2727           00155                                   MPAC                                  
025150,000989: 34,2730           03526                          STORE    VARIANCE                              
025151,000990: 34,2731           54335                          SLOAD    SR                                    
025152,000991: 34,2732           02400                                   INTVAR                                #  INTEGRATION VARIANCE SCALED B-15
025153,000992: 34,2733           20632                                   25D                                   #  SCALE IT B-40
025154,000993: 34,2734           47171                          TAD      RTB                                   
025155,000994: 34,2735           03526                                   VARIANCE                              
025156,000995: 34,2736           45562                                   TPMODE                                
025157,000996: 34,2737           03526                          STORE    VARIANCE                              
025158,000997: 34,2740           76214                          BOFF     TAD                                   
025159,000998: 34,2741           04747                                   SOURCFLG                              #  BRANCH IF NOT VHF RADAR
025160,000999: 34,2742           70751                                   REND10A                               
025161,001000: 34,2743           03005                                   RVARMIN                               #  VHF RADAR MIN. VARIANCE
025162,001001: 34,2744           72244                          BPL      TLOAD                                 
025163,001002: 34,2745           70751                                   REND10A                               
025164,001003: 34,2746           03005                                   RVARMIN                               
025165,001004: 34,2747           77646                          ABS                                            #  MIN. VARLUE WAS STORED AS NEG.
025166,001005: 34,2750           03526                          STORE    VARIANCE                              #  STORE MIN. VALUE
025167,001006: 34,2751           45014        REND10A           CLEAR    CALL                                  
025168,001007: 34,2752           02666                                   DMENFLG                               #  CLEAR FOR 6 X 6 W MATRIX
025169,001008: 34,2753           75250                                   INCORP1                               #  CALCULATE UPDATE
025170,001009: 34,2754           77624                          CALL                                           
025171,001010: 34,2755           56741                                   GRP2PC                                
025172,001011: 34,2756           45014                          BOFF     CALL                                  
025173,001012: 34,2757           02744                                   INCORFLG                              
025174,001013: 34,2760           71006                                   REND12                                
025175,001014: 34,2761           56526                                   SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025176,001015: 34,2762           51575                          VLOAD    ABVAL                                 
025177,001016: 34,2763           01265                                   DELTAX     +6                         
025178,001017: 34,2764           77657                          SR*                                            
025179,001018: 34,2765           57176                                   0,2                                   
025180,001019: 34,2766           27504                          STOVL    N49DISP    +2                         
025181,001020: 34,2767           01257                                   DELTAX                                
025182,001021: 34,2770           53646                          ABVAL    SR*                                   
025183,001022: 34,2771           57176                                   0,2                                   
025184,001023: 34,2772           03502                          STORE    N49DISP                               
025185,001024: 34,2773           77735                          SLOAD                                          
025186,001025: 34,2774           02003                                   RMAX                                  
025187,001026: 34,2775           45261                          SR       DSU                                   
025188,001027: 34,2776           20613                                   10D                                   
025189,001028: 34,2777           03502                                   N49DISP                               
025190,001029: 34,3000           67240                          BMN      SLOAD                                 
025191,001030: 34,3001           71141                                   RENDISP                               #  BRANCH IF POS UP. GREATER THAN MAX.
025192,001031: 34,3002           02004                                   VMAX                                  
025193,001032: 34,3003           50025                          DSU      BMN                                   
025194,001033:                                                                                                 #  Page 577
025195,001034: 34,3004           03504                                   N49DISP    +2                         
025196,001035: 34,3005           71141                                   RENDISP                               #  BRANCH IF VEL. UPDATE GREATER THAN MAX.
025197,001036: 34,3006           77624        REND12            CALL                                           
025198,001037: 34,3007           75462                                   INCORP2                               #  INCORPORATE UPDATE VALUES INTO STATE VEC
025199,001038: 34,3010           43014                          BON      BOFF                                  
025200,001039: 34,3011           04707                                   SOURCFLG                              
025201,001040: 34,3012           71103                                   REND16                                #  BRANCH IF DATA IS RADAR
025202,001041: 34,3013           02744                                   INCORFLG                              
025203,001042: 34,3014           71111                                   REND17                                
025204,001043: 34,3015           77624                          CALL                                           
025205,001044: 34,3016           56526                                   SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025206,001045: 34,3017           45014                          BON      CALL                                  
025207,001046: 34,3020           00707                                   VEHUPFLG                              
025208,001047: 34,3021           71117                                   REND18                                #  BRANCH IF CSM UPDATE
025209,001048: 34,3022           71132                                   LMPOS                                 #  GET LM POSITION
025210,001049: 34,3023           77624        REND13            CALL                                           
025211,001050: 34,3024           56741                                   GRP2PC                                #  PHASE CHANGE
025212,001051: 34,3025           52375                          VLOAD    VSU                                   
025213,001052: 34,3026           01215                                   LEMPOS                                
025214,001053: 34,3027           01207                                   CSMPOS                                
025215,001054: 34,3030           03531                          STORE    RCLP                                  #  LM - CSM
025216,001055: 34,3031           77614                          CLRGO                                          
025217,001056: 34,3032           02624                                   INCORFLG                              
025218,001057: 34,3033           70651                                   REND7                                 #  BRANCH FOR 2ND PASS THIS OPTICS MARK
025219,001058: 34,3034           45014        CSMUPP            CLEAR    CALL                                  
025220,001059: 34,3035           01674                                   VINTFLAG                              #  SET INTEGRATION VEHICLE EQ LM
025221,001060: 34,3036           27113                                   INTEGRV                               
025222,001061: 34,3037           77624                          CALL                                           
025223,001062: 34,3040           56741                                   GRP2PC                                #  PHASE CHANGE
025224,001063: 34,3041           77624                          CALL                                           
025225,001064: 34,3042           56343                                   SETINTG                               #  SET FLAGS FOR INTEGRATION
025226,001065: 34,3043           77650                          GOTO                                           
025227,001066: 34,3044           70613                                   REND5                                 
025228,001067: 34,3045           27502        REND14            STOVL    BVECTOR                               #  VHF RADAR BVECTOR
025229,001068: 34,3046           15332                                   ZEROVECS                              
025230,001069: 34,3047           03510                          STORE    BVECTOR    +6                         
025231,001070: 34,3050           27516                          STOVL    BVECTOR    +12D                       
025232,001071: 34,3051           03531                                   RCLP                                  
025233,001072: 34,3052           71256                          UNIT     DLOAD                                 
025234,001073: 34,3053           01257                                   VHFRANGE                              #  VHFRANGE SCALED B-27
025235,001074: 34,3054           60414                          BON      SR2                                   
025236,001075: 34,3055           04303                                   MOONTHIS                              
025237,001076: 34,3056           71057                                   +1                                    
025238,001077: 34,3057           43025                          DSU      SET                                   
025239,001078: 34,3060           00045                                   36D                                   #  ABVAL (RCLP)
025240,001079: 34,3061           02464                                   INCORFLG                              
025241,001080: 34,3062           03524                          STORE    DELTAQ                                
025242,001081: 34,3063           77214                          BOFF     VLOAD                                 
025243,001082: 34,3064           00747                                   VEHUPFLG                              
025244,001083: 34,3065           71071                                   REND14A                               
025245,001084:                                                                                                 #  Page 578
025246,001085: 34,3066           03502                                   BVECTOR                               
025247,001086: 34,3067           77676                          VCOMP                                          
025248,001087: 34,3070           03502                          STORE    BVECTOR                               
025249,001088: 34,3071           77624        REND14A           CALL                                           
025250,001089: 34,3072           56741                                   GRP2PC                                
025251,001090: 34,3073           52145                          DLOAD    GOTO                                  
025252,001091: 34,3074           03003                                   RVAR                                  
025253,001092: 34,3075           70711                                   REND10                                
025254,001093: 34,3076           43335        REND15            SLOAD    DAD                                   #  GET ALT LOS VARIANCE
025255,001094: 34,3077           01357                                   ALTVAR                                #  BACKUP OPTICS
025256,001095: 34,3100           31222                                   IMUVAR                                #  IMU VARIANCE
025257,001096: 34,3101           77650                          GOTO                                           
025258,001097: 34,3102           70711                                   REND10                                
025259,001098: 34,3103           62150        REND16            LXA,1    INCR,1                                
025260,001099: 34,3104           01125                                   VHFCNT                                #  VHF RADAR UPDATE COUNT
025261,001100: 34,3105           00001                          DEC      1          B-14                       
025262,001101: 34,3106           52130                          SXA,1    GOTO                                  
025263,001102: 34,3107           01125                                   VHFCNT                                #  UPDATE COUNT
025264,001103: 34,3110           70523                                   REND1                                 
025265,001104: 34,3111           62150        REND17            LXA,1    INCR,1                                
025266,001105: 34,3112           01126                                   TRKMKCNT                              #  OPTICS MARK COUNT
025267,001106: 34,3113           00001                          DEC      1          B-14                       
025268,001107: 34,3114           52130                          SXA,1    GOTO                                  
025269,001108: 34,3115           01126                                   TRKMKCNT                              #  UPDATE COUNT
025270,001109: 34,3116           70555                                   REND3                                 
025271,001110: 34,3117           77624        REND18            CALL                                           
025272,001111: 34,3120           71123                                   CMPOS                                 #  GET CSM POSITION
025273,001112: 34,3121           77650                          GOTO                                           
025274,001113: 34,3122           71023                                   REND13                                
025275,001114: 34,3123           53775        CMPOS             VLOAD    VSR*                                  
025276,001115: 34,3124           01573                                   DELTACSM                              
025277,001116: 34,3125           57167                                   7,2                                   
025278,001117: 34,3126           77655                          VAD                                            
025279,001118: 34,3127           01607                                   RCVCSM                                
025280,001119: 34,3130           01207                          STORE    CSMPOS                                #  CSM POSITION SCALED B-27 OR B-29
025281,001120: 34,3131           77616                          RVQ                                            
025282,001121: 34,3132           53775        LMPOS             VLOAD    VSR*                                  
025283,001122: 34,3133           01645                                   DELTALEM                              
025284,001123: 34,3134           57167                                   7,2                                   
025285,001124: 34,3135           77655                          VAD                                            
025286,001125: 34,3136           01661                                   RCVLEM                                
025287,001126: 34,3137           01215                          STORE    LEMPOS                                #  LM POSITION SCALED B-27 OR B-29
025288,001127: 34,3140           77616                          RVQ                                            
025289,001128: 34,3141           77776        RENDISP           EXIT                                           
025290,001129: 34,3142           30105                          CA       FLAGWRD9                              
025291,001130: 34,3143           74703                          MASK     BIT8                                  
025292,001131: 34,3144           00006                          EXTEND                                         
025293,001132: 34,3145           13150                          BZF      +3                                    
025294,001133: 34,3146           34711                          CA       BIT2                                  
025295,001134: 34,3147           03151                          TC       +2                                    
025296,001135:                                                                                                 #  Page 579
025297,001136: 34,3150           34712                          CA       BIT1                                  
025298,001137: 34,3151           55505                          TS       N49DISP    +4                         
025299,001138: 34,3152           34714                          CAF      ZERO                                  #  SET TEMPOR1 ZERO TO INDICATE
025300,001139: 34,3153           55300                          TS       TEMPOR1                               #  V06 N49 DISPLAY HASN'T BEEN ANSWERED
025301,001140: 34,3154           05301                          TC       PHASCHNG                              
025302,001141: 34,3155           04022                          OCT      04022                                 
025303,001142: 34,3156           37664                          CAF      PRIO27                                #  SET UP DISPLAY JOB WITH HIGHER PRIORITY
025304,001143: 34,3157           05027                          TC       NOVAC                                 

[WORKAROUND] RSB 2004

025306,001145: 34,3160  30,2000                                 SBANK=   LOWSUPER                              

[WORKAROUND]

025308,001147: 34,3160  E7,1725                                 EBANK=   MRKBUF1                               #  THAN PRESENT JOB
025309,001148: 34,3160           03172 70067                    2CADR    RENDISP2                              
025310,001149: 
025311,001150: 34,3162           06006        RENDISP7          TC       INTPRET                               
025312,001151: 34,3163           00155                          STORE    MPAC                                  
025313,001152: 34,3164           53135                          SLOAD    BZE                                   
025314,001153: 34,3165           01301                                   TEMPOR1                               
025315,001154: 34,3166           71163                                   RENDISP7   +1                         #  DISPLAY HAS NOT BEEN ANSWERED YET
025316,001155: 34,3167           52040                          BMN      GOTO                                  
025317,001156: 34,3170           71006                                   REND12                                #  NEG INDICATES PROCEED
025318,001157: 34,3171           71201                                   RENDISP3                              #  POS INDICATES RECYCLE
025319,001158: 34,3172           33223        RENDISP2          CAF      V06N49                                
025320,001159: 34,3173           04555                          TC       BANKCALL                              
025321,001160: 34,3174           20635                          CADR     PRIODSP                               
025322,001161: 34,3175           04550                          TC       GOTOV56                               #  TERM EXIT P20 VIA V56
025323,001162: 34,3176           44712                          CS       ONE                                   #  NEG INDICATES PROCEED RENDISP7 JOB
025324,001163: 34,3177           55300                          TS       TEMPOR1                               #  POS INDICATES RECYCLE RENDISP7 JOB
025325,001164: 34,3200           05112                          TC       ENDOFJOB                              #  GO COMPLETE ABOVE JOB
025326,001165: 34,3201           77614        RENDISP3          BON                                            
025327,001166: 34,3202           04707                                   SOURCFLG                              
025328,001167: 34,3203           70523                                   REND1                                 #  DATA WAS RADAR GO LOOK FOR OPTICS NEXT
025329,001168: 34,3204           77776                          EXIT                                           
025330,001169: 34,3205  E7,1725                                 EBANK=   MRKBUF1                               
025331,001170: 34,3205           00004                          INHINT                                         
025332,001171: 34,3206           33224                          CAF      BUFBANK                               
025333,001172: 34,3207           54006                          TS       BBANK                                 
025334,001173: 34,3210           37716                          CA       NEGONE                                
025335,001174: 34,3211           55725                          TS       MRKBUF1                               #  ERASE MARK ONE BUFFER
025336,001175: 34,3212           55734                          TS       MRKBUF2                               #  ERASE MARK TWO BUFFER
025337,001176: 34,3213           00003                          RELINT                                         
025338,001177: 34,3214           06006        RENDISP4          TC       INTPRET                               
025339,001178: 34,3215           77650                          GOTO                                           
025340,001179: 34,3216           70555                                   REND3                                 
025341,001180: 34,3217           00052 36307  SXTVAR            2DEC     0.04       E-6        B+16            #  EXT ERROR VARIANCE = .04 (MR)SQ
025342,001181: 34,3221           00052 36307  IMUVAR            2DEC     0.04       E-6        B+16            #  IMU ERROR VARIANCE = .04 (MR)SQ
025343,001182: 34,3223           01461        V06N49            VN       0649                                  
025344,001183: 34,3224  E7,1725                                 EBANK=   MRKBUF1                               
025345,001184: 34,3224           70067        BUFBANK           BBCON    RENDISP3                              
025346,001185: 31,2021                                          BANK     31                                    
025347,001186: 27,2000                                          SETLOC   R22S1                                 
025348,001187:                                                                                                 #  Page 580
025349,001188: 27,2000                                          BANK                                           
025350,001189: 27,2343           45020        SETINTG           STQ      CALL                                  
025351,001190: 27,2344           02317                                   EGRESS                                
025352,001191: 27,2345           27371                                   INTSTALL                              #  RESERVE INTEGRATION
025353,001192: 27,2346           43145                          DLOAD    SET                                   
025354,001193: 27,2347           01225                                   MARKTIME                              
025355,001194: 27,2350           01472                                   STATEFLG                              
025356,001195: 27,2351           00041                          STORE    TDEC1                                 #  MARKTIME
025357,001196: 27,2352           43014                          CLEAR    CLEAR                                 
025358,001197: 27,2353           01673                                   INTYPFLG                              #  PRECISION INTEGRATION
025359,001198: 27,2354           01676                                   DIM0FLAG                              
025360,001199: 27,2355           43014                          SET      CLRGO                                 
025361,001200: 27,2356           01474                                   VINTFLAG                              #  SET VEHICLE EQ. CSM
025362,001201: 27,2357           01635                                   D6OR9FLG                              #  SET W MATRIX DIM. EQ 6
025363,001202: 27,2360           02317                                   EGRESS                                #  EXIT
025364,001203: 27,2361           77620        CNTCHK            STQ                                            
025365,001204: 27,2362           01150                                   POINTEX                               
025366,001205: 27,2363           77614        CONTCHK           BOFF                                           
025367,001206: 27,2364           01742                                   REFSMFLG                              #  BRANCH TO END OF JOB IF REFSMMAT NO GOOD
025368,001207: 27,2365           30147                                   ENDPLAC                               
025369,001208: 27,2366           50135                          SLOAD    BMN                                   
025370,001209: 27,2367           03376                                   R61CNTR                               
025371,001210: 27,2370           56406                                   WAITONE1                              
025372,001211: 27,2371           43014                          BON      BOFF                                  #  IS TRACK FLAG SET
025373,001212: 27,2372           00710                                   UPDATFLG                              
025374,001213: 27,2373           01150                                   POINTEX                               
025375,001214: 27,2374           00752                                   TRACKFLG                              
025376,001215: 27,2375           30147                                   ENDPLAC                               
025377,001216: 27,2376           77776                          EXIT                                           
025378,001217: 27,2377           05301        REDOR22           TC       PHASCHNG                              
025379,001218: 27,2400           00132                          OCT      00132                                 
025380,001219: 27,2401           37663                          CAF      PRIO26                                
025381,001220: 27,2402           05103                          TC       PRIOCHNG                              
025382,001221: 27,2403           02407                          TC       WAITONE    +3                         
025383,001222: 27,2404           77620        WAITONE           STQ                                            
025384,001223: 27,2405           01150                                   POINTEX                               
025385,001224: 27,2406           77776        WAITONE1          EXIT                                           
025386,001225: 27,2407           34740                          CAF      4SECS                                 #  WAIT 4 SECS.
025387,001226: 27,2410           04555                          TC       BANKCALL                              
025388,001227: 27,2411           01732                          CADR     DELAYJOB                              
025389,001228: 27,2412           06006                          TC       INTPRET                               
025390,001229: 27,2413           77650                          GOTO                                           
025391,001230: 27,2414           56363                                   CONTCHK                               #  CHECK AGAIN NOW
025392,001231: 27,2415           77776        RANGERD           EXIT                                           
025393,001232: 27,2416           00004                          INHINT                                         
025394,001233: 27,2417           42472                          CS       OCT17                                 
025395,001234: 27,2420           00006                          EXTEND                                         
025396,001235: 27,2421           03013                          WAND     CHAN13                                #  ZERO OUT BITS 1-4 OF CHANNEL 13
025397,001236: 27,2422           34334                          CAF      OCT11                                 
025398,001237: 27,2423           00006                          EXTEND                                         
025399,001238:                                                                                                 #  Page 581
025400,001239: 27,2424           05013                          WOR      CHAN13                                #  GENERAGE SHIFT PULSES TO RADR, SET R. BIT
025401,001240: 27,2425           00003                          RELINT                                         
025402,001241: 27,2426           00006                          EXTEND                                         
025403,001242: 27,2427           30025                          DCA      TIME2                                 
025404,001243: 27,2430           53225                          DXCH     MARKTIME                              #  READ PRESENT TIME
025405,001244: 27,2431           04555                          TC       BANKCALL                              
025406,001245: 27,2432           17514                          CADR     RADSTALL                              #  WAIT FOR RANGE COMPLETE
025407,001246: 27,2433           02461                          TC       LIGHTON                               #  BAD DATA GOOD BIT
025408,001247: 27,2434           05520                          TC       TRFAILOF                              #  TURN TRACKER LIGHT OFF
025409,001248: 27,2435           06006        RANGERD1          TC       INTPRET                               
025410,001249: 27,2436           50135                          SLOAD    BMN                                   
025411,001250: 27,2437           03704                                   RM                                    
025412,001251: 27,2440           56447                                   RANGERD3                              
025413,001252: 27,2441           77605                          DMP                                            
025414,001253: 27,2442           16475                                   CONVRNGE                              #  CONVERT RANGE TO METERS B-27
025415,001254: 27,2443           77614        RANGERD2          SET                                            
025416,001255: 27,2444           04467                                   SOURCFLG                              #  SOURCE OF DATA TO VHF RADAR
025417,001256: 27,2445           01257                          STORE    VHFRANGE                              
025418,001257: 27,2446           77616                          RVQ                                            
025419,001258: 27,2447           77776        RANGERD3          EXIT                                           
025420,001259: 27,2450           30154                          CA       MPAC                                  
025421,001260: 27,2451           74672                          MASK     POSMAX                                
025422,001261: 27,2452           54154                          TS       MPAC                                  #  MASK OUT NEG. SIGN BIT
025423,001262: 27,2453           06006                          TC       INTPRET                               
025424,001263: 27,2454           77605                          DMP                                            
025425,001264: 27,2455           16475                                   CONVRNGE                              #  CONVERT FROM NM TO METERS AND SCALE B-27
025426,001265: 27,2456           52015                          DAD      GOTO                                  
025427,001266: 27,2457           16471                                   RANGEB14                              #  VALUE IN METERS OF SIGN BIT SCALED B-27
025428,001267: 27,2460           56443                                   RANGERD2                              
025429,001268: 27,2461           05532        LIGHTON           TC       TRFAILON                              #  TURN TRACKER LIGHT ON
025430,001269: 27,2462           06006                          TC       INTPRET                               
025431,001270: 27,2463           77745                          DLOAD                                          
025432,001271: 27,2464           01225                                   MARKTIME                              
025433,001272: 27,2465           01152                          STORE    VHFTIME                               
025434,001273: 27,2466           77650                          GOTO                                           
025435,001274: 27,2467           70523                                   REND1                                 
025436,001275: 27,2470           00045 01217  RANGEB14          2DEC     303431.7   B-27                       #  16384 X 18.52 SCALED B-27
025437,001276: 
025438,001277: 27,2472           00017        OCT17             OCT      00017                                 
025439,001278: 27,2473           40200        OC40200           OCT      40200                                 
025440,001279: 27,2474           00045 01217  CONVRNGE          2DEC     18.52      B-13                       #  VHF INPUT RANGE CONV. FROM 01 NM TO M
025441,001280: 
025442,001281: 27,2476           00006        VHFREAD           EXTEND                                         
025443,001282: 27,2477           04007                          ROR      SUPERBNK                              #  MUST SAVE SBANK BECAUSE OF RUPT
025444,001283: 27,2500           54016                          TS       BANKRUPT                              #  EXITS VIA TASKOVER BADEND OR GOODEND
025445,001284: 27,2501           44714                          CS       ZERO                                  
025446,001285: 27,2502           54734                          TS       RUPTAGN                               
025447,001286: 27,2503           00006                          EXTEND                                         
025448,001287: 27,2504           22012                          QXCH     QRUPT                                 
025449,001288: 27,2505           34704                          CAF      BIT7                                  
025450,001289:                                                                                                 #  Page 582
025451,001290: 27,2506           70075                          MASK     STATE      +1                         #  UPDATE FLAG
025452,001291: 27,2507           00006                          EXTEND                                         
025453,001292: 27,2510           12520                          BZF      BYPASS                                
025454,001293: 27,2511           30046                          CA       RNRAD                                 
025455,001294: 27,2512           55703                          TS       RM                                    #  SAVE RANGE
025456,001295: 27,2513           34711                          CAF      BIT2                                  
025457,001296: 27,2514           00006                          EXTEND                                         
025458,001297: 27,2515           02033                          RAND     CHAN33                                #  READ DATA GOOD BIT
025459,001298: 27,2516           00006                          EXTEND                                         
025460,001299: 27,2517           12523                          BZF      VHFGOOD                               #  BRANCH IF DATA GOOD BIT EQUALS GOOD
025461,001300: 27,2520           34711        BYPASS            CAF      TWO                                   
025462,001301: 27,2521           04574                          TC       POSTJUMP                              
025463,001302: 27,2522           17464                          CADR     BADEND                                
025464,001303: 27,2523           34711        VHFGOOD           CAF      TWO                                   
025465,001304: 27,2524           04574                          TC       POSTJUMP                              
025466,001305: 27,2525           17467                          CADR     GOODEND                               
025467,001306: 27,2526           43174        SHIFTNDX          AXT,2    BON                                   
025468,001307: 27,2527           00000                                   0                                     
025469,001308: 27,2530           00707                                   VEHUPFLG                              
025470,001309: 27,2531           56537                                   SHIFTA                                #  VEHICLE IS CSM
025471,001310: 27,2532           43414                          BON      RVQ                                   
025472,001311: 27,2533           04304                                   LMOONFLG                              
025473,001312: 27,2534           56535                                   +1                                    
025474,001313: 27,2535           43514                          INCR,2   RVQ                                   
025475,001314: 27,2536           77775                          DEC      -2         B-14                       
025476,001315: 27,2537           43414        SHIFTA            BON      RVQ                                   
025477,001316: 27,2540           04303                                   CMOONFLG                              
025478,001317: 27,2541           56542                                   +1                                    #  MOON ORB.
025479,001318: 27,2542           43514                          INCR,2   RVQ                                   
025480,001319: 27,2543           77775                          DEC      -2         B-14                       
025481,001320: 27,2544           66370        INITIALW          AXT,1    SSP                                   
025482,001321: 27,2545           00044                                   36D                                   
025483,001322: 27,2546           00051                                   S1                                    
025484,001323: 27,2547           00006                                   6                                     
025485,001324: 27,2550           77775                          VLOAD                                          
025486,001325: 27,2551           15332                                   ZEROVECS                              
025487,001326: 27,2552           06445        INITA             STORE    W          +36D,1                     #  CLEAR 0 - 35
025488,001327: 27,2553           76100                          TIX,1    AXT,1                                 
025489,001328: 27,2554           56552                                   INITA                                 
025490,001329: 27,2555           00044                                   36D                                   
025491,001330: 27,2556           06533        INITB             STORE    W          +90D,1                     #  CLEAR 54 - 89
025492,001331: 27,2557           67300                          TIX,1    SLOAD                                 
025493,001332: 27,2560           56556                                   INITB                                 
025494,001333: 27,2561           00001                                   0                                     #  POSITION VALUE
025495,001334: 27,2562           02401                          STORE    W                                     #  INITIALIZE DIAGONAL W POSITION
025496,001335: 27,2563           02411                          STORE    W          +8D                        
025497,001336: 27,2564           02421                          STORE    W          +16D                       
025498,001337: 27,2565           77735                          SLOAD                                          
025499,001338: 27,2566           00002                                   1                                     #  VELOCITY VALUE
025500,001339: 27,2567           02511                          STORE    W          +72D                       #  INITIALIZE DIAGONAL W VELOCITY
025501,001340:                                                                                                 #  Page 583
025502,001341: 27,2570           02521                          STORE    W          +80D                       
025503,001342: 27,2571           02531                          STORE    W          +88D                       
025504,001343: 27,2572           77616                          RVQ                                            
025505,001344:                                                                                                 #  Page 584
025506,001345:                                                                                                 #  CRS61.1        R/10/68
025507,001346: 
025508,001347:                                                                                                 #  TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025509,001348:                                                                                                 #  OPTICS TRACKING OF THE LEM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
025510,001349:                                                                                                 #  AND TO COMPUTE THE X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025511,001350:                                                                                                 #  COAS TRACKING OF THE LM.
025512,001351: 
025513,001352:                                                                                                 #  TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE 
025514,001353:                                                                                                 #  MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
025515,001354:                                                                                                 #  GREATER THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
025516,001355:                                                                                                 #  GREATER THAN 10 DEGREES OR IF THE R60 FLAG IS SET.
025517,001356: 
025518,001357:                                                                                                 #         (1)     EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
025519,001358:                                                                                                 #                 CONIC EQUATIONS.
025520,001359: 
025521,001360:                                                                                                 #         (2)     CALCULATE LOS FROM CSM TO LM = RL - RC.
025522,001361: 
025523,001362:                                                                                                 #         (3)     THE PRERFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
025524,001363:                                                                                                 #                 THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM.  THE
025525,001364:                                                                                                 #                 TRACK AXIS (I) IS DEFINED AS:
025526,001365: 
025527,001366:                                                                                                 #                 UNIT(I)=UNIT(Z  )COS55  &  UNIT(X  )SIN55
025528,001367:                                                                                                 #                      -       -SC                -SC
025529,001368: 
025530,001369:                                                                                                 #         (4)     COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
025531,001370: 
025532,001371:                                                                                                 #  (Sorry, I don't know where (5) and (6) are. --- RSB 2004.)
025533,001372:                                                                                                 #         (7)     FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS.
025534,001373:                                                                                                 #                 IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES,
025535,001374:                                                                                                 #                 GROSS MANEUVER IS REQUIRED.  SIGNAL R61 (SET MPAC=1) TO
025536,001375:                                                                                                 #                 OPERATE KALCMANU AND EXIT CRS61.1.
025537,001376:                                                                                                 #                 IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE.
025538,001377: 
025539,001378:                                                                                                 #         (8)     CALCULATE ORTHOGONAL LOS RATE IN REF COORDS AS
025540,001379: 
025541,001380:                                                                                                 #                 OMEGATH = (UNITLOS(B1) X UNITDV(B1))(ABSDV(B7)/ABSLOS(B29))
025542,001381: 
025543,001382:                                                                                                 #                 CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS
025544,001383:                                                                                                 #                 APPLIED TO YIELD UNITS OF REVS/SEC.  SCALE IS CARRIED AS
025545,001384:                                                                                                 #                 B+1+1+7-29+4+1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS.
025546,001385:                                                                                                 #                 THE EXTRA B+1 RESULTS FROM RESCALING ABSDV B8 AFTER NORM
025547,001386:                                                                                                 #                 TO AVOID OVFLOW ON DIVIDE.
025548,001387: 
025549,001388:                                                                                                 #                 UNITLOS = UNIT( RL - RC ) B1.
025550,001389:                                                                                                 #                 UNITDY  = UNIT( VL - VC ) B1.
025551,001390:                                                                                                 #                 ABSLOS  = LENGTH OF LOS, METERS B29.
025552,001391:                                                                                                 #                 ABSDV   = LENGTH OF DV, METERS/CSEC B7.
025553,001392: 
025554,001393:                                                                                                 #         (9)     OBTAIN RATE IN SM COORDS.
025555,001394: 
025556,001395:                                                                                                 #                 OMETATHSM = (REFSMMAT)(OMEGATH).
025557,001396: 
025558,001397:                                                                                                 #         (10)    OBTAIN GIMBAL ANGLE INCREMETNS FOR 0.1 SECOND.
025559,001398: 
025560,001399:                                                                                                 #                 DTHETASM = (0.1)(OMEGATHSM)
025561,001400: 
025562,001401:                                                                                                 #         (11)    OBTAIN DELCDUX,Y,Z USING SUBR SMCDURES.
025563,001402:                                                                                                 #  Page 585
025564,001403:                                                                                                 #                 INPUT CONSISTS OF
025565,001404: 
025566,001405:                                                                                                 #                 (A)     VECTOR OF ANGULAR INCREMENTS, DTHETASM, STORED
025567,001406:                                                                                                 #                         IN V(DTHETASM).
025568,001407:                                                                                                 #                 (B)     SIN,COS CDUX,Y,Z FROM SUBR CDUTRIG.
025569,001408: 
025570,001409:                                                                                                 #                 TRANSFER OUTPUT OF SMCDURES FROM V(DCDU) TO VAC14D.
025571,001410: 
025572,001411:                                                                                                 #         (12)    CALCULATE ANG LOS RATE IN BODY(NB) COORDS USING SUBR SMNB.
025573,001412: 
025574,001413:                                                                                                 #                 OMEGANB = (SMNB)(OMETATHSM)
025575,001414: 
025576,001415:                                                                                                 #                 SUBR SMNB REQUIRES OMEGATHSM IN V(VAC32D) AND ACTUAL CDUS
025577,001416:                                                                                                 #                 (Y,X,Z ORDER) IN V(VAC20D) WITH S1 OF VAC = BASE ADDRESS
025578,001417:                                                                                                 #                 OF CDUS (FIXLOC + 20D).
025579,001418: 
025580,001419:                                                                                                 #         (13)    CALCULATE ANG LOS RATE IN CONTROL COORDS AS FOLLOWS
025581,001420: 
025582,001421:                                                                                                 #                 WBODY = (MBDYTCTL)(OMEGANB)     UNITS=REVS/SEC(B0) (?).
025583,001422: 
025584,001423:                                                                                                 #                                ( 0.5       0              0      )   BODY TO
025585,001424:                                                                                                 #                 MBDYTCTL(B1) = (  0   COS(7.25)B1   -SIN(7.25)B1 ) = CONTROL
025586,001425:                                                                                                 #                                (  0   SIN(7.25)B1    COS(7.25)B1 )   AXES
025587,001426:                                                                                                 #                                                                      CONVERSION
025588,001427:                                                                                                 #                                                                      MATRIX
025589,001428: 
025590,001429:                                                                                                 #         (14)    RESCALE WBODY TO UNITS OF 460 DEG/SEC BY APPLYING FACTOR
025591,001430:                                                                                                 #                 OF 0.8 TO REVS/SEC.
025592,001431: 
025593,001432:                                                                                                 #         (15)    ADDRESS LIVE AUTOPILOT REGISTERS IN BASIC (UNDER INHINT).
025594,001433: 
025595,001434:                                                                                                 #                 TRANSFER DESIRED CDUS, SCALED 180 DEGREES, FROM T(SAVEDCDU)
025596,001435:                                                                                                 #                 TO V(CDUXD).
025597,001436: 
025598,001437:                                                                                                 #                 TRANSFER DELCDUS, SCALED 180 DEG, FROM V(VAC14D)
025599,001438:                                                                                                 #                 TO V(DELCDUX).
025600,001439: 
025601,001440:                                                                                                 #                 TRANSFER OMEGA CONTROL, SCALED 450 DEG/SEC, FROM V(MPAC)
025602,001441:                                                                                                 #                 TO V(WBODY).
025603,001442: 
025604,001443:                                                                                                 #                 RELINT, SET MPAC=0, EXIT CRS61.1.
025605,001444: 
025606,001445:                                                                                                 #  CALL:          L       CALL    CRS61.1
025607,001446: 
025608,001447:                                                                                                 #  RETURNS:       ALL TO L+1.
025609,001448: 
025610,001449:                                                                                                 #                 (1)     S(MPAC)=0.  NORMAL EXIT.  3 SETS OF INPUTS FED TO DAP.
025611,001450:                                                                                                 #                 (2)     S(MPAC)=1.  CALCULATED DESIRED CDUS,SP, SET IN T(CPHI)
025612,001451:                                                                                                 #                         FOR KALCMANU.  ABS(ACDU - DCDU) EXCEEDS 10 DEGREES.
025613,001452:                                                                                                 #                 (3)     S(MPAC)=2.  GNCS AUTO MODE NOT SELECTED (BIT10=1).
025614,001453:                                                                                                 #                 (4)     S(MPAC)=3.  DAP HOLD FLAG (HOLDFLAG) NOT EQUAL -1.
025615,001454:                                                                                                 #  Page 586
025616,001455: 
025617,001456:                                                                                                 #  INPUT: (1)     TIME2,TIME1.  COMPUTER CLOCK TIME,DP, CENTISEC B28.
025618,001457:                                                                                                 #                 (2)     CDUX,Y,Z.  PRESENT CDU ANGLES,SP,2S COMPL HALF-REVS B0.
025619,001458:                                                                                                 #                 (3)     M(REFSMMAT), STABLE MEMBER COORDS B1.
025620,001459: 
025621,001460:                                                                                                 #  OUTPUT:        NORMAL.  EXIT WITH S(MPAC) = 0.
025622,001461: 
025623,001462:                                                                                                 #                 (1)     CDUXD,CDUYD,CDUZD, DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025624,001463:                                                                                                 #                         DP, IS COMPL, SCALED 180 DEGREES (HALF-REVS B0).
025625,001464:                                                                                                 #                 (2)     DELCDUX,DELCDUY,DELCDUZ.  0.1 SEC DCU ANGULAR INCREMENTS,
025626,001465:                                                                                                 #                         DP, IS COMPL, SCALED 180 DEG.
025627,001466:                                                                                                 #                 (3)     WBODY,WBODY1,WBODY2.  LOS ANGULAR RATE IN CONTROL COORDS,
025628,001467:                                                                                                 #                         DP, IS COMPL, SCALED 450 DEG/SEC.
025629,001468: 
025630,001469:                                                                                                 #                 SPECIAL.  EXIT WITH S(MPAC) = 1.
025631,001470: 
025632,001471:                                                                                                 #                 (1)     CPHI,CTHETA,CPSI.  DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025633,001472:                                                                                                 #                         SP, 2'S COMPL, SCALED 180 DEGREES.
025634,001473: 
025635,001474:                                                                                                 #  EXTERNAL SUBROUTINES USED      (B)=BASIC
025636,001475: 
025637,001476:                                                                                                 #         (1) CALCGA              (5) LOADTIME(B)         (9) SMNB
025638,001477:                                                                                                 #         (2) CDUTRIG             (6) MATMOVE
025639,001478:                                                                                                 #         (3) CSMCONIC            (7) RCDUS(B)
025640,001479:                                                                                                 #         (4) LEMCONIC            (8) SMCDURES
025641,001480: 
025642,001481:                                                                                                 #  FLAGWDS:       HOLDFLAG.  USED, NOT SET.
025643,001482: 
025644,001483:                                                                                                 #  MISC:  (1) ERASABLE ITEMP1 USED TO TEMP STORE EBANK UNDER INHINT.
025645,001484:                                                                                                 #         (2) ERASABLE P21TIME USED AS TEMP STORE DURING CRS61.1
025646,001485:                                                                                                 #         (3) ERAS DTHETASM USED AS TEMP STORE DURING EARLY CRS61.1
025647,001486: 
025648,001487:                                                                                                 #  DEBRIS -- CURRENT VAC AREA, CRS61.1 ERASABLES, ITEMP1, P21TIME
025649,001488: 
025650,001489: 24,2002                                          BANK     24                                    
025651,001490: 34,2000                                          SETLOC   P20S4                                 
025652,001491: 34,2000                                          BANK                                           
025653,001492: 
025654,001493: 34,3225  E6,1646                                 EBANK=   CDUXD                                 
025655,001494: 34,3225                                          COUNT*   $/CRS61                               
025656,001495: 
025657,001496: 34,3225           40220        CRS61.1           STQ      SETPD                                 
025658,001497: 34,3226           03704                                   Q611                                  
025659,001498: 34,3227           00001                                   0                                     
025660,001499: 34,3230           77634                          RTB                                            
025661,001500:                                                                                                 #  Page 587
025662,001501: 34,3231           45505                                   LOADTIME                              #  LOAD CLOCK TIME2,1 INTO MPAC.
025663,001502: 
025664,001503: 34,3232           36316        STORT             STCALL   P21TIME                               #  STORE CLOCK TIME FOR SUBR R63
025665,001504: 34,3233           71461                                   R63                                   #  SUBR TO CALC DCDU (T=PRESENT,PASS1)
025666,001505: 34,3234           77751                          TLOAD                                          
025667,001506: 34,3235           01156                                   THETAD                                #  SAVE DCDU(T) FROM CALCDCDU FOR STEP4.
025668,001507: 34,3236           03373                          STORE    SAVEDCDU                              
025669,001508: 
025670,001509: 34,3237           77776                          EXIT                                           
025671,001510: 34,3240           03265                          TC       STEP2CK    +4                         #  ELIMINATE FORCED R60 MANEUVER
025672,001511: 34,3241           34371        AUTOCK            CAF      PRIO30                                
025673,001512: 34,3242           00006                          EXTEND                                         
025674,001513: 34,3243           06031                          RXOR     CHAN31                                
025675,001514: 34,3244           77707                          MASK     FURST3                                
025676,001515: 34,3245           00006                          EXTEND                                         #  AUTO MODE SELECTED (BITS 15-13=011)
025677,001516: 34,3246           13250                          BZF      DAPCK                                 #         YES -- CONTINUE.
025678,001517: 34,3247           03254                          TC       ASET                                  
025679,001518: 
025680,001519: 34,3250           40075        DAPCK             CS       FLAGWRD1                              #  IS STIKFLAG SET (I.E., IS SOMEONE ON RHC)
025681,001520: 34,3251           74675                          MASK     BIT14                                 
025682,001521: 34,3252           10000                          CCS      A                                     
025683,001522: 34,3253           03320                          TC       STEP3CK                               
025684,001523: 34,3254           34714        ASET              CAF      ZERO                                  
025685,001524: 34,3255           54154                          TS       MPAC                                  
025686,001525: 34,3256           06006                          TC       INTPRET                               #  EXIT CRS61.1
025687,001526: 34,3257           77650                          GOTO                                           
025688,001527: 34,3260           03704                                   Q611                                  
025689,001528: 
025690,001529: 34,3261           40101        STEP2CK           CS       FLAGWRD5                              #  IS R60FLAG SET
025691,001530: 34,3262           74707                          MASK     BIT4                                  
025692,001531: 34,3263           00006                          EXTEND                                         
025693,001532: 34,3264           13452                          BZF      MANUEXIS                              #  YES, DO R60
025694,001533: 34,3265           04555                          TC       BANKCALL                              
025695,001534: 34,3266           57750                          CADR     UPACTOFF                              
025696,001535: 
025697,001536: 34,3267           34711                          CAF      TWO                                   #  SET TEMPORARY INDEX DTHETASM = 2
025698,001537: 34,3270           55611        CDULOOP           TS       DTHETASM                              
025699,001538: 34,3271           51611                          INDEX    DTHETASM                              
025700,001539: 34,3272           30032                          CA       CDUX                                  #  SET A = ACTUAL CDU (ACDU).
025701,001540: 34,3273           00006                          EXTEND                                         
025702,001541: 34,3274           51611                          INDEX    DTHETASM                              #  SET INDEX TO ACCESS DESIRED CDU (DCDU).
025703,001542: 34,3275           21155                          MSU      THETAD                                #  A = DIFF = ACDU - DCDU.
025704,001543: 34,3276           54154                          TS       MPAC                                  #  RETURN TO INTERPRETER FOR 10 DEGREE CK.
025705,001544: 34,3277           06006                          TC       INTPRET                               #  (DP APPROX SP OK FOR ROUGH CHECK)
025706,001545: 34,3300           45246                          ABS      DSU                                   
025707,001546: 34,3301           31550                                   DEGREE10                              #  IS (ACDU - DCDU) MORE THAN 10 DEGREES.
025708,001547: 34,3302           77444                          BPL      EXIT                                  #  NO -- OK, CONTINUE CHECKING OTHER ANGLES.
025709,001548: 34,3303           71307                                   STKTEST                               #  TEST STICK FLAG
025710,001549: 34,3304           11611                          CCS      DTHETASM                              #  HAVE ALL 3 ANGLE DIFFS BEEN CHECKED.
025711,001550: 34,3305           03270                          TC       CDULOOP                               #  NO -- DIM COUNT, CHECK NEXT ANGLE DIFF.
025712,001551:                                                                                                 #  Page 588
025713,001552: 34,3306           03241                          TC       AUTOCK                                
025714,001553: 34,3307           77776        STKTEST           EXIT                                           
025715,001554: 34,3310           40075                          CS       FLAGWRD1                              
025716,001555: 34,3311           74675                          MASK     BIT14                                 
025717,001556: 34,3312           10000                          CCS      A                                     
025718,001557: 34,3313           03452                          TC       MANUEXIS                              #  STIKFLAG IS NOT SET (DO R63)
025719,001558: 34,3314           34710                          CAF      BIT3                                  
025720,001559: 34,3315           00006                          EXTEND                                         #  STIKFLG IS SET
025721,001560: 34,3316           05011                          WOR      DSALMOUT                              #  TURN ON UPACTY LIGHT
025722,001561: 
025723,001562: 34,3317           03254                          TC       ASET                                  #  EXIT AND SET R61CNTR
025724,001563: 34,3320           06006        STEP3CK           TC       INTPRET                               
025725,001564: 34,3321           77601                          SETPD                                          
025726,001565: 34,3322           00001                                   0                                     #  *
025727,001566:                                                                                                 #  NOW HAVE DCDUS STORED IN T(SAVEDCDU).
025728,001567:                                                                                                 #  GO CALC OTHER DAP INPUTS (DELCDU,WBODY)
025729,001568: 34,3323           52375        CRS61.2           VLOAD    VSU                                   
025730,001569: 34,3324           03204                                   DCDU                                  
025731,001570: 34,3325           03715                                   SAVEVEL                               #  DV = VL - VC
025732,001571: 34,3326           57456                          UNIT     VCOMP                                 #  V(MPAC)=-UNITDV. VAC36D=ABSDV.
025733,001572: 34,3327           74235                          VXV      VXSC                                  #  (-UNITDV)CROSS(UNITLOS).
025734,001573: 34,3330           03707                                   SAVEPOS                               
025735,001574: 34,3331           31551                                   RVCS/RDS                              #  (UNITLOS B1)(UNITDV B1)(CONST B4)=CROSS.
025736,001575: 34,3332           77606                          PUSH                                           #  HOLD CROSS IN PUSHLIST0.  SCALED B6.
025737,001576: 34,3333           60345                          DLOAD    NORM                                  #  OBTAIN ABS VALUE OF LOS.
025738,001577: 34,3334           02316                                   P21TIME                               #  P21TIME IS TEMP STORE FOR ABSLOS.
025739,001578: 34,3335           00047                                   X1                                    
025740,001579: 34,3336           77606                          PUSH                                           #  NORM ABSLOS(DENOM) AND HOLD IN PUSH1.
025741,001580: 
025742,001581: 34,3337           60345                          DLOAD    NORM                                  
025743,001582: 34,3340           00045                                   36D                                   #  NORM ABS VALUE OF DV(NUM).
025744,001583: 34,3341           00051                                   S1                                    
025745,001584: 
025746,001585: 34,3342           70460                          XSU,1    SR1                                   #  X1 = X1(N DENOM)-S1(N NUM).
025747,001586: 34,3343           00050                                   S1                                    #  SR1 TO AVOID OFLOW ON DOV.
025748,001587: 34,3344           74271                          DDV      VXSC                                  #  ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
025749,001588: 34,3345           77730                          SXA,1                                          #  QUOT(MPAC) X CROSS(PUSH0)
025750,001589: 34,3346           03705                                   Q6111                                 #  SAVE SCALE OF RESULT (R-15,1X).
025751,001590:                                                                                                 #  X1= NORM OF QUOT. QTUOT SCALE B7-B29=B-22
025752,001591:                                                                                                 #  CROSS IS SCALED B6.  NEED SL1 TO RECOVER
025753,001592:                                                                                                 #  SR1 SO THAT -22+6+1=-15.  MPAC NOW HOLDS
025754,001593:                                                                                                 #  ORTHO LOS RATE (OMEGA TH, B-15,X1).
025755,001594: 34,3347           76521                          MXV      VSL1                                  #  OBTAIN RATE IN SM COORDS (OMEGTHSM) AND
025756,001595: 34,3350           01736                                   REFSMMAT                              #  ADJUST FOR REFSMMAT SCALE OF B1.
025757,001596: 34,3351           00025                          STORE    20D                                   #  OMEGTHSM = VAC20D
025758,001597:                                                                                                 #  DELTA THETA SM = OMEGTHSM * .1B-3.
025759,001598: 34,3352           77761                          VXSC                                           
025760,001599: 34,3353           31553                                   TENTH                                 
025761,001600: 34,3354           03212                          STORE    DTHETASM                              #  STORE SM INCREM ANGLES FOR SMCDURES.
025762,001601: 34,3355           77624                          CALL                                           
025763,001602:                                                                                                 #  Page 589
025764,001603: 34,3356           47432                                   CDUTRIG                               #  OBTAIN SIN,COSCDUS FOR SMCDURES.
025765,001604: 34,3357           45001                          SETPD    CALL                                  #  SMCDURES USES PUSH
025766,001605: 34,3360           00001                                   0                                     
025767,001606: 34,3361           47675                                   SMCDURES                              #  OBTAIN DELCDU IN V(DCDU).
025768,001607: 34,3362           77750                          LXA,1                                          #  RELOAD X1
025769,001608: 34,3363           03705                                   Q6111                                 
025770,001609: 34,3364           53775                          VLOAD    VSL*                                  #  RECOVER SCALE.
025771,001610: 34,3365           03204                                   DCDU                                  #  (B-15,X1) + TENTH(B-3) + HALFREVS(B1)
025772,001611: 34,3366           20160                                   0          -17D,1                     #  EQUALS B-17D,1 TO OBTAIN HALFREVS B0.
025773,001612: 34,3367           00017                          STORE    14D                                   #  HOLD DELS IN V(VAC14D) FOR AUTOPILOT.
025774,001613: 
025775,001614: 34,3370           77624                          CALL                                           #  COMPUTES SINES AND COSINES FOR *SMNB*
025776,001615: 34,3371           47432                                   CDUTRIG                               
025777,001616: 34,3372           45175                          VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
025778,001617: 34,3373           00025                                   20D                                   #  VECTOR FOR TRG*SMNB INTO MPAC
025779,001618: 34,3374           47577                                   *SMNB*                                #  OBTAIN ANG. RATE REFERRED TO NB (BODY)
025780,001619: 34,3375           77721                          MXV                                            
025781,001620: 34,3376           31557                                   MBDYTCTL                              #  CONVERT RATE(OMEGA) TO CONTROL COORDS.
025782,001621: 34,3377           77761                          VXSC                                           #  MULT. BY 0.8 TO RESCALE REVS TO 450 DEG.
025783,001622: 34,3400           15270                                   POINT8                                #  RECOVER SCALE.
025784,001623: 34,3401           53750                          LXA,1    VSL*                                  #  RELOAD X1 TO RECOVER NORMALIZ.
025785,001624: 34,3402           03705                                   Q6111                                 #  (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO
025786,001625: 34,3403           20163                                   0          -14D,1                     #  OBTAIN REVS SCALED AT 450 DEGREES.
025787,001626: 
025788,001627: 34,3404           77776        CRS61.2A          EXIT                                           
025789,001628: 34,3405           00004                          INHINT                                         
025790,001629: 34,3406           34714                          CAF      ZERO                                  #  TRANSFER DESIRED GIMBAL ANGLES
025791,001630: 34,3407           55647                          TS       CDUXD      +1                         #  FROM T(SAVEDCDU) TO V(CDUXD).
025792,001631: 34,3410           55651                          TS       CDUYD      +1                         
025793,001632: 34,3411           55653                          TS       CDUZD      +1                         
025794,001633: 34,3412           31772                          CA       SAVEDCDU                              
025795,001634: 34,3413           55646                          TS       CDUXD                                 
025796,001635: 34,3414           31773                          CA       SAVEDCDU   +1                         
025797,001636: 34,3415           55650                          TS       CDUYD                                 
025798,001637: 34,3416           31774                          CA       SAVEDCDU   +2                         
025799,001638: 34,3417           55652                          TS       CDUZD                                 
025800,001639: 
025801,001640: 34,3420           00006                          EXTEND                                         #  TRANSFER OMEGA CONTROL (ANG LOS RATE)
025802,001641: 34,3421           30155                          DCA      MPAC                                  #  FROM V(MPAC) TO V(WBODY)
025803,001642: 34,3422           53526                          DXCH     WBODY                                 
025804,001643: 34,3423           00006                          EXTEND                                         
025805,001644: 34,3424           30160                          DCA      MPAC       +3                         
025806,001645: 34,3425           53530                          DXCH     WBODY1                                
025807,001646: 34,3426           00006                          EXTEND                                         
025808,001647: 34,3427           30162                          DCA      MPAC       +5                         
025809,001648: 34,3430           53532                          DXCH     WBODY2                                
025810,001649: 
025811,001650: 34,3431           00006                          EXTEND                                         #  TRANSFER CDU INCREMENTS
025812,001651: 34,3432           50120                          INDEX    FIXLOC                                #  FROM V(VAC14D) TO V(DELCDUX)
025813,001652: 34,3433           30017                          DCA      14D                                   
025814,001653:                                                                                                 #  Page 590
025815,001654: 34,3434           53576                          DXCH     DELCDUX                               
025816,001655: 34,3435           00006                          EXTEND                                         
025817,001656: 34,3436           50120                          INDEX    FIXLOC                                
025818,001657: 34,3437           30021                          DCA      16D                                   
025819,001658: 34,3440           53600                          DXCH     DELCDUY                               
025820,001659: 34,3441           00006                          EXTEND                                         
025821,001660: 34,3442           50120                          INDEX    FIXLOC                                
025822,001661: 34,3443           30023                          DCA      18D                                   
025823,001662: 34,3444           53602                          DXCH     DELCDUZ                               
025824,001663: 34,3445           44712                          CS       ONE                                   #  NOW DAP VARIABLES LOADED.  SET HOLDFLAG.
025825,001664: 34,3446           55332                          TS       HOLDFLAG                              #  TO -1.
025826,001665: 34,3447           00003                          RELINT                                         
025827,001666: 34,3450           34714                          CAF      ZERO                                  #  NORMAL RETURN (MPAC = 0)
025828,001667: 34,3451           03254                          TC       ASET                                  
025829,001668: 34,3452           06006        MANUEXIS          TC       INTPRET                               
025830,001669: 34,3453           77751        MANUEXIT          TLOAD                                          #  ENTER FROM STEP2.  ACDU-DCDU EXCEEDS
025831,001670: 34,3454           03373                                   SAVEDCDU                              #  10 DEG. STORE DCDU(T) IN CPHI,CTHETA,
025832,001671: 34,3455           01156                          STORE    CPHI                                  #  CPSI FOR KALCMANU.
025833,001672: 34,3456           52135                          SLOAD    GOTO                                  #  SPECIAL RETURN (MPAC+0 = 1)
025834,001673: 34,3457           31601                                   LOONE                                 #  OCTAL 00001
025835,001674: 34,3460           03704                                   Q611                                  
025836,001675: 
025837,001676: 34,3461           71220        R63               STQ      DLOAD                                 #  SUBR TO CALC DCDUS(T)
025838,001677: 34,3462           03705                                   Q6111                                 
025839,001678: 34,3463           02316                                   P21TIME                               
025840,001679: 34,3464           34041                          STCALL   TDEC1                                 
025841,001680: 34,3465           27045                                   CSMCONIC                              
025842,001681: 34,3466           77775        HOLDATT           VLOAD                                          #  HOLD EXTRAPOLATED CSM POSITION AND
025843,001682: 34,3467           00001                                   RATT                                  #  VELOCITY
025844,001683: 34,3470           27707                          STOVL    SAVEPOS                               
025845,001684: 34,3471           00007                                   VATT                                  
025846,001685: 34,3472           03715                          STORE    SAVEVEL                               
025847,001686: 34,3473           77745        CALCLEM           DLOAD                                          #  EXTRAPOLATE LEM STATE VECTOR TO SAVE
025848,001687: 34,3474           02316                                   P21TIME                               #  TIME AS CSM USING LEMCONIC
025849,001688: 34,3475           34041                          STCALL   TDEC1                                 
025850,001689: 34,3476           27057                                   LEMCONIC                              
025851,001690: 34,3477           77775                          VLOAD                                          
025852,001691: 34,3500           00007                                   VATT                                  
025853,001692: 34,3501           27204                          STOVL    DCDU                                  #  STORE VATT IN DCDU TEMPORARILY
025854,001693: 34,3502           00001                                   RATT                                  #  LOS = RL RC
025855,001694: 34,3503           53451                          VSU      UNIT                                  
025856,001695: 34,3504           03707                                   SAVEPOS                               
025857,001696: 34,3505           03707                          STORE    SAVEPOS                               #  SAVE UNITLOS FOR CRS61.2 RATE CALC.
025858,001697: 34,3506           76521                          MXV      VSL1                                  
025859,001698: 34,3507           01736                                   REFSMMAT                              #  CONVERT TO STABLE MEMBER
025860,001699: 34,3510           17357                          STODL    POINTVSM                              
025861,001700: 34,3511           00045                                   36D                                   #  HOLD ABS VAL OF LOS (VAC 36D)
025862,001701: 34,3512           02316                          STORE    P21TIME                               #  IN D(P21TIME) FOR CRS61.2 RATE CALC.
025863,001702: 34,3513           77775                          VLOAD                                          
025864,001703: 34,3514           15330                                   UNITX                                 
025865,001704:                                                                                                 #  Page 591
025866,001705: 34,3515           37351                          STCALL   SCAXIS                                #  TRACK AXIS UNIT VECTOR
025867,001706: 34,3516           56126                                   VECPOINT                              #  FOR +X-AXIS TRACKING ATTITUDE
025868,001707: 34,3517           01334                          STORE    CPHIX                                 #  STORE ANGLES FOR N96 DISPLAY
025869,001708: 34,3520           77775                          VLOAD                                          
025870,001709: 34,3521           31542                                   PRFUNIT                               
025871,001710: 34,3522           37351                          STCALL   SCAXIS                                
025872,001711: 34,3523           56126                                   VECPOINT                              
025873,001712: 34,3524           03723                          STORE    PRAXIS                                #  STORE ANGLES FOR N95 DISPLAY
025874,001713: 34,3525           77614                          BOFF                                           
025875,001714: 34,3526           02745                                   PRFTRKAT                              
025876,001715: 34,3527           71533                                   CRSTOR1                               
025877,001716: 34,3530           01156        CRSTOR            STORE    THETAD                                #  STORE ANGLES FOR N18 DISPLAY
025878,001717: 34,3531           77650                          GOTO                                           
025879,001718: 34,3532           03705                                   Q6111                                 
025880,001719: 34,3533           77775        CRSTOR1           VLOAD                                          
025881,001720: 34,3534           15330                                   UNITX                                 
025882,001721: 34,3535           03351                          STORE    SCAXIS                                
025883,001722: 34,3536           52151                          TLOAD    GOTO                                  
025884,001723: 34,3537           01334                                   CPHIX                                 
025885,001724: 34,3540           71530                                   CRSTOR                                
025886,001725: 
025887,001726: 34,3541           15066 17626  PRFUNIT           2DEC     .40957602                             #  55 DEG TRACK AXIS UNIT VECTOR
025888,001727: 34,3543           00000 00000                    2DEC     0.0                                   #  FOR USE WITH VECPOINT
025889,001728: 34,3545           11132 27477                    2DEC     .28678822                             
025890,001729: 34,3547           01616        DEGREE10          DEC      .05556                                #  10 DEG IN REVS         STEP2
025891,001730: 34,3550           37651 16721  RVCS/RDS          2DEC     15.915494  B-4                        #  100/2PI REV-CSEC/RAD-SEC.
025892,001731: 34,3552           31463 06315  TENTH             2DEC     .1         B+3                        #  .1 B-3 (TO SCALE ANG. RATE TO .1 INREMS)
025893,001732: 34,3554           20000 00000  MAT1B1            2DEC     1.0        B-1                        
025894,001733: 34,3556           20000 00000  MBDYTCTL          2DEC     .5                                    #                 7.25 DEG NEGATIVE
025895,001734: 34,3560           00000 00000                    2DEC     0          B-28                       #                 X-AXIS ROTATION MATRIX
025896,001735: 34,3562           00000 00000                    2DEC     0          B-28                       #                 CONVERTS BODY TO CTL
025897,001736: 34,3564           00000 00000                    2DEC     0          B-28                       #                 AXES.  CAME AS QUADROT
025898,001737: 34,3566           17676 20113                    2DEC     .99200495  B-1                        #  COS7.25 B1     BUT SCALED B
025899,001738: 34,3570           75766 45544                    2DEC     -.12619897 B-1                        #  -SIN7.25 B1
025900,001739: 34,3572           00000 00000                    2DEC     0          B-28                       
025901,001740: 34,3574           02011 32233                    2DEC     .12619897  B-1                        #  SIN7.25 B1
025902,001741: 34,3576           17676 20113                    2DEC     .99200495  B-1                        #  COS7.25 B1
025903,001742:                                                                                                 #  Page 592
025904,001743: 34,3600           00001        LOONE             OCT      00001                                 #  TO SET MPAC = 00001 FOR SPECIAL EXIT.
025905,001744: 34,3601     7707               FURST3            EQUALS   13,14,15                              #  CONSTANT FOR AUTOCK (OCT 70000).
025906,001745: 
025907,001746:                                                                                                 #  Page 593
025908,001747:                                                                                                 #  ..... S22.1 ORBITAL NAVIGATION ROUTINE
025909,001748:                                                                                                 #  MOD 1
025910,001749: 
025911,001750:                                                                                                 #  FUNCTONAL DESCRIPTION
025912,001751:                                                                                                 #         1.  UPDATE CSM STATE VECTOR
025913,001752:                                                                                                 #         2.  UPDATE LANDMARK POSITION
025914,001753:                                                                                                 #         3.  CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS
025915,001754: 
025916,001755:                                                                                                 #  SUBROUTINES CALLED
025917,001756:                                                                                                 #         INTSTALL,INTEGRV,GETNUM,SETRE,R-TO-TP,RP-TO-R,BVECTORS,INCORP1,INCORP2
025918,001757:                                                                                                 #         LALOTORV,S22F2410,LAT-LONG,ROWDOT
025919,001758: 
025920,001759:                                                                                                 #  ERASABLE INITIALIZATION
025921,001760:                                                                                                 #         W=9X9 MATRIX
025922,001761:                                                                                                 #         ORBWFLAG=0 FOR INVALID W MATRIX, =1 FOR VALID W MATRIX
025923,001762:                                                                                                 #         ASTRONAUT ENTRY OF KNOWN,L,OFF
025924,001763:                                                                                                 #         8NN= NUMBER OF MARKS, DECIMAL INTEGER B-14
025925,001764:                                                                                                 #         REFSMMAT= TRANSFORMATION MATRIX
025926,001765:                                                                                                 #         MARKSTAT= ADDRESS OF START OF MARK DATA (MARK DATA OF EACH MARK IS
025927,001766:                                                                                                 #                   STORED AS FOLLOWS: TIME,AIG,SA,AMG,PA,AOG) TIME IS IN DOUBLE
025928,001767:                                                                                                 #                   PRECISION, ALL OTHERS ARE IN SINGLE PRECISION
025929,001768:                                                                                                 #         CSM STATE VECTOR
025930,001769: 
025931,001770:                                                                                                 #  OUTPUT
025932,001771:                                                                                                 #         UPDATED CSM STATE VECTOR
025933,001772:                                                                                                 #         UPDATED LANDMARK POSITION
025934,001773:                                                                                                 #         NEW 6 DIMENSIONAL W MATRIX
025935,001774: 
025936,001775:                                                                                                 #  DEBRIS
025937,001776:                                                                                                 #         PUSH LIST,CSMPOS,ALPHAV,ERADM,UM,RCLP,USTAR,VARIANCE,X789,BVECTOR,8KK,
025938,001777:                                                                                                 #         S22LOC,SVMRKDAT TABLE,22SUBSCL,LANDMARK,CXOFF,S22C,LAT,LOG,ALT,
025939,001778:                                                                                                 #         TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
025940,001779: 
025941,001780: 13,2176                                          BANK     13                                    
025942,001781: 
025943,001782: 30,2000                                          SETLOC   P20S6                                 
025944,001783: 30,2000                                          BANK                                           
025945,001784: 
025946,001785: 30,2255  0002751                                 EBANK=   LANDMARK                              
025947,001786: 30,2255                                          COUNT    35/LUORB                              
025948,001787: 
025949,001788: 30,2255           66220        S22.1             STQ      SSP                                   
025950,001789: 30,2256           03703                                   S22RTNEX                              
025951,001790: 30,2257           00051                                   S1                                    
025952,001791: 30,2260           00006                          DEC      6          B-14                       
025953,001792: 30,2261           66331                          SSP      SSP                                   #  SET I=1        ITEM 8KK IS I
025954,001793: 30,2262           02747                                   8KK                                   
025955,001794: 30,2263           00001                          DEC      1          B-14                       
025956,001795: 30,2264           02751                                   S22LOC                                
025957,001796: 30,2265           03537                          ECADR    SVMRKDAT                              #  SET MARK DATA ADDRESS INTO S22LOC
025958,001797:                                                                                                 #  Page 594
025959,001798: 30,2266           76144                          LXC,2    AXT,1                                 
025960,001799: 30,2267           01330                                   MARKSTAT                              
025961,001800: 30,2270           00044                          DEC      36         B-14                       
025962,001801: 30,2271           77773        S22.111           VLOAD*                                         #  MOVE MARK DATA (5 SETS FROM ADDR. IN
025963,001802: 30,2272           77776                                   0,2                                   #  MARKSTAT TO SVMRKDAT TABLE TO AVOID LOSS
025964,001803: 30,2273           07604                          STORE    SVMRKDAT   +36D,1                     #  IF RESTART OCCURS
025965,001804: 30,2274           60114                          INCR,2   TIX,1                                 
025966,001805: 30,2275           77771                          DEC      -6         B-14                       
025967,001806: 30,2276           60271                                   S22.111                               
025968,001807: 30,2277           77414                          SET      EXIT                                  
025969,001808: 30,2300           01464                                   P22MKFLG                              #  DOWNLINKED SVMRKDAT HOLDS PRESENT MARKS
025970,001809: 30,2301           04555                          TC       BANKCALL                              #  RELEASE VAC AREA WHERE MARK DATA WAS
025971,001810: 30,2302           16063                          CADR     MKRELEAS                              
025972,001811: 30,2303           05261                          TC       2PHSCHNG                              
025973,001812: 30,2304           00004                          OCT      00004                                 
025974,001813: 30,2305           05022                          OCT      05022                                 
025975,001814: 30,2306           13000                          OCT      13000                                 
025976,001815: 30,2307           06006                          TC       INTPRET                               
025977,001816: 30,2310           43170                          AXT,1    BOFF                                  
025978,001817: 30,2311           00000                                   0D                                    
025979,001818: 30,2312           04343                                   CMOONFLG                              #  =0 EARTH, =1 MOON
025980,001819: 30,2313           60316                                   S22SHIFT                              
025981,001820: 30,2314           77710                          INCR,1                                         
025982,001821: 30,2315           77775                          DEC      -2         B-14                       
025983,001822: 30,2316           40330        S22SHIFT          SXA,1    SETPD                                 
025984,001823: 30,2317           03673                                   S22EORM                               #  SET =0 EARTH, =-2 MOON FOR SHIFTING
025985,001824: 30,2320           00001                                   0D                                    
025986,001825: 30,2321           77624        FIG2EXIT          CALL                                           
025987,001826: 30,2322           27371                                   INTSTALL                              
025988,001827: 30,2323           77624                          CALL                                           
025989,001828: 30,2324           61326                                   S22FLGS                               
025990,001829:                                                                                                 #         FLOWCHART D=0   THEN DIM0FLAG=0, D6O9FLG NOT TESTED
025991,001830:                                                                                                 #         FLOWCHART D=6   THEN DIM0FLAG=1, D60R9FLG=0
025992,001831:                                                                                                 #         FLOWCHART D=9   THEN DIM0FLAG=1, D6OR9FLG=1
025993,001832: 
025994,001833: 30,2325           43014                          BOFF     CLRGO                                 
025995,001834: 30,2326           01751                                   ORBWFLAG                              
025996,001835: 30,2327           60332                                   SETWW5D                               #  BRANCH TO SET W0-W5, ORBWFLAG,D
025997,001836: 30,2330           01635                                   D6OR9FLG                              #  FLOWCHART D=6 PATH
025998,001837: 30,2331           60357                                   SETVANDI                              
025999,001838: 30,2332           77614        SETWW5D           CLEAR                                          
026000,001839: 30,2333           01676                                   DIM0FLAG                              #  FLOWCHART D=0 PATH
026001,001840: 30,2334           66370                          AXT,1    SSP                                   
026002,001841: 30,2335           00154                          DEC      108        B-14                       
026003,001842: 30,2336           00051                                   S1                                    
026004,001843: 30,2337           00006                          DEC      6          B-14                       
026005,001844: 30,2340           77214                          CLEAR    VLOAD                                 
026006,001845: 30,2341           02676                                   RENDWFLG                              #  GSOP CHANGE 8/18/67
026007,001846: 30,2342           15332                                   ZEROVECS                              
026008,001847: 30,2343           06555        CLEARWW5          STORE    W          +108D,1                    
026009,001848:                                                                                                 #  Page 595
026010,001849: 30,2344           67300                          TIX,1    SLOAD                                 
026011,001850: 30,2345           60343                                   CLEARWW5                              
026012,001851: 30,2346           02005                                   WORBPOS                               
026013,001852: 30,2347           02401                          STORE    W                                     #  SET DIAGONALS OF W0
026014,001853: 30,2350           02411                          STORE    W          +8D                        
026015,001854: 30,2351           02421                          STORE    W          +16D                       
026016,001855: 30,2352           77735                          SLOAD                                          
026017,001856: 30,2353           02006                                   WORBVEL                               
026018,001857: 30,2354           02511                          STORE    W          +72D                       #  SET DIAGONALS OF W4
026019,001858: 30,2355           02521                          STORE    W          +80D                       
026020,001859: 30,2356           02531                          STORE    W          +88D                       
026021,001860: 30,2357           77614        SETVANDI          CLEAR                                          
026022,001861: 30,2360           02666                                   DMENFLG                               #  0=6X6W, 1=9X9W
026023,001862: 30,2361           77624        S22NXTIN          CALL                                           
026024,001863: 30,2362           61322                                   GETTF                                 
026025,001864: 30,2363           34041                          STCALL   TDEC1                                 
026026,001865: 30,2364           27113                                   INTEGRV                               
026027,001866: 30,2365           77624                          CALL                                           
026028,001867: 30,2366           61273                                   S22CALRC                              #  CALC. RC B-29 OR B-27 (CSMPOS)
026029,001868: 30,2367           66150                          LXA,1    SXA,1                                 
026030,001869: 30,2370           02750                                   S22LOC                                #  SETUP ADDR. OF MARK ATA FOR GETUM SUBR.
026031,001870: 30,2371           01242                                   MARKDATA                              
026032,001871: 30,2372           77624                          CALL                                           #  COMPUTE UM
026033,001872: 30,2373           47110        S2GETUM                    GETUM                                 
026034,001873: 30,2374           01235                          STORE    UM                                    
026035,001874: 30,2375           41535        DMPINTEG          SLOAD    PUSH                                  #  TEST OFF=I
026036,001875: 30,2376           02747                                   8KK                                   
026037,001876: 30,2377           50535                          SLOAD    SR3                                   #  CXOFF SCALED B-5, MUST MOVE TO B-14
026038,001877: 30,2400           02746                                   CXOFF                                 #  BEFORE SUBT.
026039,001878: 30,2401           50442                          SR3      SR3                                   
026040,001879: 30,2402           77625                          DSU                                            
026041,001880: 30,2403           43030                          BHIZ     BON                                   
026042,001881: 30,2404           60720                                   S22OFF=I                              #  BRANCH HERE IF OFF=I
026043,001882: 30,2405           02706                                   DMENFLG                               #  0=6X6W, 1=9X9W
026044,001883: 30,2406           60726                                   S22D=9                                
026045,001884: 30,2407           77624                          CALL                                           
026046,001885: 30,2410           56741                                   GRP2PC                                
026047,001886: 30,2411           77614                          SET                                            
026048,001887: 30,2412           01471                                   ORBWFLAG                              
026049,001888: 30,2413           43014                          SET      SET                                   
026050,001889: 30,2414           02466                                   DMENFLG                               #  =0 ON FIRST PASS THRU HERE FOR D=0, OR 6
026051,001890: 30,2415           01062                                   22DSPFLG                              #  =1 TO DISPLAY DR,DV ON FIRST PASS
026052,001891: 30,2416           43014                          SET      BON                                   
026053,001892: 30,2417           00462                                   ERADFLAG                              #  =1 TO COMPUTE FISCHER RADIUS
026054,001893: 30,2420           03307                                   KNOWNFLG                              
026055,001894: 30,2421           61070                                   S22BOX22                              
026056,001895: 30,2422           53575                          VLOAD    UNIT                                  #  UNIT ALSO PUTS ABVAL(RC) IN 36D
026057,001896: 30,2423           01207                                   CSMPOS                                
026058,001897: 30,2424           02152                          STORE    ALPHAV                                #  ALPHAV +4=SINL FOR SETRE
026059,001898: 30,2425           43014                          CLEAR    BOFF                                  
026060,001899:                                                                                                 #  Page 596
026061,001900: 30,2426           01663                                   LUNAFLAG                              
026062,001901: 30,2427           04343                                   CMOONFLG                              
026063,001902: 30,2430           60433                                   S22C=I                                
026064,001903: 30,2431           77614                          SET                                            
026065,001904: 30,2432           01463                                   LUNAFLAG                              
026066,001905: 30,2433           77624        S22C=I            CALL                                           #  ERADM= R0 METERS B-29 BOTH EARTH/MOON
026067,001906: 30,2434           26533                                   SETRE                                 
026068,001907: 30,2435           77624                          CALL                                           #  COMPUTE RL FROM EQUATION 2.4.10
026069,001908: 30,2436           61240                                   S22F2410                              #  STORED IN X789,MPAC B-27,B-29
026070,001909: 30,2437           70414                          BOFF     VSR2                                  #  SCALE RL B-29 FOR BOTH EARTH/MOON
026071,001910: 30,2440           04343                                   CMOONFLG                              
026072,001911: 30,2441           60442                                   +1                                    
026073,001912: 30,2442           02635                          STORE    S22RL                                 
026074,001913: 30,2443           72441                          DOT      SL1                                   
026075,001914: 30,2444           01235                                   UM                                    
026076,001915: 30,2445           24037                          STOVL    S22D                                  #  D=UM RL B-29
026077,001916: 30,2446           15332                                   ZEROVECS                              
026078,001917: 30,2447           41401                          SETPD    PUSH                                  
026079,001918: 30,2450           00001                                   0D                                    
026080,001919: 30,2451           65206                          PUSH     PDDL                                  #  SET 0-18D = I BACKWARDS
026081,001920: 30,2452           15330                                   HIDPHALF                              #  PD 18
026082,001921: 30,2453           77702                          SR2                                            #  B-3
026083,001922: 30,2454           00005                          STORE    4D                                    
026084,001923: 30,2455           00011                          STORE    8D                                    
026085,001924: 30,2456           24015                          STOVL    12D                                   
026086,001925: 30,2457           01235                                   UM                                    #  B-1
026087,001926: 30,2460           24023                          STOVL    S223X1                                
026088,001927: 30,2461           02635                                   S22RL                                 #  B-29
026089,001928: 30,2462           77624                          CALL                                           #  (UM)(RL T) B-30 STORED IN S22UMRL THRU
026090,001929: 30,2463           61303                                   S2231X13                              #  S22UMRL +17D
026091,001930: 30,2464           66370                          AXT,1    SSP                                   
026092,001931: 30,2465           00022                          DEC      18         B-14                       
026093,001932: 30,2466           00051                                   S1                                    
026094,001933: 30,2467           00006                          DEC      6          B-14                       
026095,001934: 30,2470           70573        S22NXTU           VLOAD*   VSR2                                  #  (UM)(RL T) B-32
026096,001935: 30,2471           03524                                   S22UMRL    +18D,1                     
026097,001936: 30,2472           77741                          V/SC                                           
026098,001937: 30,2473           00037                                   S22D                                  #  D B-29
026099,001938: 30,2474           45445                          BVSU     STADR                                 #  SUBTRACT FROM I B-3
026100,001939: 30,2475           70253                          STORE    S22UMRL    +18D,1                     #  U MATRIX B-3
026101,001940: 30,2476           76100                          TIX,1    AXT,1                                 #  PD 0 AFTER TIX
026102,001941: 30,2477           60470                                   S22NXTU                               
026103,001942: 30,2500           00044                          DEC      36         B-14                       #  S1 STILL 6 FROM ABOVE
026104,001943: 30,2501           64373        S22NXTWI          VLOAD*   MXV                                   
026105,001944: 30,2502           02445                                   W          +36D,1                     #  B-19
026106,001945: 30,2503           03502                                   S22UMRL                               #  B-3
026107,001946: 30,2504           77732                          SL2R                                           
026108,001947: 30,2505           06621                          STORE    W          +144D,1                    #  W(I+18)= UW(I) B-19
026109,001948: 30,2506           71300                          TIX,1    DLOAD                                 
026110,001949: 30,2507           60501                                   S22NXTWI                              
026111,001950:                                                                                                 #  Page 597
026112,001951: 30,2510           00041                                   S22RHO                                #  B-28,B-30
026113,001952: 30,2511           60414                          BOFF     SR2                                   #  MAKE RHO B-30 (?)
026114,001953: 30,2512           04343                                   CMOONFLG                              
026115,001954: 30,2513           60514                                   +1                                    
026116,001955: 30,2514           57101                          NORM     XAD,2                                 
026117,001956: 30,2515           00050                                   X2                                    
026118,001957: 30,2516           00047                                   X2                                    
026119,001958: 30,2517           41316                          DSQ      DMP                                   
026120,001959: 30,2520           21650                                   SCTVAR                                #  B+16
026121,001960: 30,2521           77742                          SR1                                            #  ACCOUNTS FOR 1/2 IN DEXT FORMULA
026122,001961: 30,2522           00041                          STORE    S22RHO                                #  1/2(RHO SQ)(VARSCT)
026123,001962: 30,2523           77770                          AXT,1                                          
026124,001963: 30,2524           00022                          DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
026125,001964: 30,2525           64373        S22NXXA           VLOAD*   MXV                                   
026126,001965: 30,2526           03524                                   S22UMRL    +18D,1                     #  B-3
026127,001966: 30,2527           03502                                   S22UMRL                               #  B-3
026128,001967: 30,2530           53761                          VXSC     VSR*                                  
026129,001968: 30,2531           00041                                   S22RHO                                
026130,001969: 30,2532           57212                                   0          -12D,2                     #  WITH VARRP SCALED B-28
026131,001970: 30,2533           05301                          STORE    S22UUT     +18D,1                     #  1/2(RHO SQ)(VARSCT)(U)(U T)
026132,001971: 30,2534           77300                          TIX,1    VLOAD                                 
026133,001972: 30,2535           60525                                   S22NXXA                               
026134,001973: 30,2536           01235                                   UM                                    
026135,001974: 30,2537           34023                          STCALL   S223X1                                #  UM ALSO IN MPAC FOR S2231X13 SUBR.
026136,001975: 30,2540           61303                                   S2231X13                              #  (UM)(UM T) B-2 IN S22UMRL,P17D
026137,001976: 30,2541           50545                          DLOAD    SR3                                   
026138,001977: 30,2542           02241                                   ERADM                                 #  B0 B-29
026139,001978: 30,2543           63471                          DDV      DSQ                                   
026140,001979: 30,2544           00037                                   S22D                                  #  B-29
026141,001980: 30,2545           77605                          DMP                                            
026142,001981: 30,2546           02010                                   RPVAR                                 #  ***** METERS SQ
026143,001982: 30,2547           00041                          STORE    S22RHO                                #  TEMP (VARRP)(R0/D)
026144,001983: 30,2550           77770                          AXT,1                                          
026145,001984: 30,2551           00022                          DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
026146,001985: 30,2552           74373        S22NXXB           VLOAD*   VXSC                                  
026147,001986: 30,2553           03524                                   S22UMRL    +18D,1                     #  (UM)(UM T) B-2
026148,001987: 30,2554           00041                                   S22RHO                                
026149,001988: 30,2555           77653                          VAD*                                           
026150,001989: 30,2556           01301                                   S22UUT     +18D,1                     
026151,001990: 30,2557           05301                          STORE    S22UUT     +18D,1                     #  SMALL E MATRIX
026152,001991: 30,2560           77775                          VLOAD                                          
026153,001992: 30,2561           15332                                   ZEROVECS                              
026154,001993: 30,2562           06643                          STORE    W          +162D,1                    #  CLEAR W8
026155,001994: 30,2563           40100                          TIX,1    BOV                                   
026156,001995: 30,2564           60552                                   S22NXXB                               
026157,001996: 30,2565           60566                                   +1                                    
026158,001997: 30,2566           50145                          DLOAD    BMN                                   
026159,001998: 30,2567           01277                                   S22UUT     +16D                       #  E5
026160,001999: 30,2570           60607                                   S22W76X                               
026161,002000: 30,2571           53166                          SQRT     BZE                                   
026162,002001:                                                                                                 #  Page 598
026163,002002: 30,2572           60607                                   S22W76X                               
026164,002003: 30,2573           16625                          STODL    W          +148D                      #  W74= SQ ROOT E5
026165,002004: 30,2574           01275                                   S22UUT     +14D                       #  E4
026166,002005: 30,2575           40071                          DDV      BOV                                   
026167,002006: 30,2576           02625                                   W          +148D                      
026168,002007: 30,2577           60601                                   S22W72X                               
026169,002008: 30,2600           02623                          STORE    W          +146D                      #  W73= E4/W74
026170,002009: 30,2601           56345        S22W72X           DLOAD    DDV                                   
026171,002010: 30,2602           01273                                   S22UUT     +12D                       #  E3
026172,002011: 30,2603           02625                                   W          +148D                      
026173,002012: 30,2604           77600                          BOV                                            
026174,002013: 30,2605           60607                                   S22W76X                               
026175,002014: 30,2606           02621                          STORE    W          +144D                      #  W72= E4/W74
026176,002015: 30,2607           63545        S22W76X           DLOAD    DSQ                                   
026177,002016: 30,2610           02623                                   W          +146D                      #  W73
026178,002017: 30,2611           50021                          BDSU     BMN                                   
026179,002018: 30,2612           01267                                   S22UUT     +8D                        #  E2
026180,002019: 30,2613           60627                                   S22W78X                               
026181,002020: 30,2614           53166                          SQRT     BZE                                   
026182,002021: 30,2615           60627                                   S22W78X                               
026183,002022: 30,2616           16631                          STODL    W          +152D                      #  W76= SQ ROOT (E2-W73 SQ)
026184,002023: 30,2617           02621                                   W          +144D                      #  W72
026185,002024: 30,2620           44205                          DMP      BDSU                                  
026186,002025: 30,2621           02623                                   W          +146D                      #  W73
026187,002026: 30,2622           01265                                   S22UUT     +6D                        #  E1
026188,002027: 30,2623           40071                          DDV      BOV                                   
026189,002028: 30,2624           02631                                   W          +152D                      #  W76
026190,002029: 30,2625           60627                                   S22W78X                               
026191,002030: 30,2626           02627                          STORE    W          +150D                      #  W75= (E1-W72W73)/W76
026192,002031: 30,2627           63545        S22W78X           DLOAD    DSQ                                   
026193,002032: 30,2630           02627                                   W          +150D                      
026194,002033: 30,2631           63525                          PDDL     DSQ                                   
026195,002034: 30,2632           02621                                   W          +144D                      #  W72
026196,002035: 30,2633           77615                          DAD                                            
026197,002036: 30,2634           50021                          BDSU     BMN                                   
026198,002037: 30,2635           01257                                   S22UUT                                #  E0
026199,002038: 30,2636           60641                                   S22SCLW                               
026200,002039: 30,2637           77766                          SQRT                                           
026201,002040: 30,2640           02635                          STORE    W          +156D                      #  W78= SQ RT(E0-W72 SQ-W75 SQ)
026202,002041: 30,2641           74575        S22SCLW           VLOAD    VSR1                                  #  SCALE W6 METERS B-19
026203,002042: 30,2642           02621                                   W          +144D                      
026204,002043: 30,2643           26621                          STOVL    W          +144D                      
026205,002044: 30,2644           02627                                   W          +150D                      
026206,002045: 30,2645           77762                          VSR1                                           
026207,002046: 30,2646           26627                          STOVL    W          +150D                      
026208,002047: 30,2647           02635                                   W          +156D                      
026209,002048: 30,2650           77762                          VSR1                                           
026210,002049: 30,2651           02635                          STORE    W          +156D                      
026211,002050: 30,2652           77624        S22SAVET          CALL                                           
026212,002051: 30,2653           61322                                   GETTF                                 
026213,002052:                                                                                                 #  Page 599
026214,002053: 30,2654           03672                          STORE    S22TPRIM                              #  SAVE PRESENT TIME FOR PIOS
026215,002054: 30,2655           77776        S22I=N            EXIT                                           #  TEST I=N
026216,002055: 30,2656           05301                          TC       PHASCHNG                              
026217,002056: 30,2657           04022                          OCT      04022                                 
026218,002057: 30,2660           41746                          CS       8KK                                   
026219,002058: 30,2661           61747                          AD       8NN                                   
026220,002059: 30,2662           00006                          EXTEND                                         
026221,002060: 30,2663           63126                          BZMF     S22F244X                              #  EXIT TO FIGURE 2.4-4
026222,002061: 30,2664           31746                          CA       8KK                                   #  I=I+1
026223,002062: 30,2665           64712                          AD       ONE                                   
026224,002063: 30,2666           55300                          TS       TEMPOR1                               
026225,002064: 30,2667           31750                          CA       S22LOC                                #  ADD 7 TO LOC TO GET ADDR. OF NEXT MARK
026226,002065: 30,2670           64716                          AD       SEVEN                                 
026227,002066: 30,2671           55301                          TS       TEMPOR1    +1                         
026228,002067: 30,2672           05301                          TC       PHASCHNG                              
026229,002068: 30,2673           04022                          OCT      04022                                 
026230,002069: 30,2674           31300                          CA       TEMPOR1                               
026231,002070: 30,2675           55746                          TS       8KK                                   
026232,002071: 30,2676           31301                          CA       TEMPOR1    +1                         
026233,002072: 30,2677           55750                          TS       S22LOC                                
026234,002073: 30,2700           06006                          TC       INTPRET                               
026235,002074: 30,2701           77624                          CALL                                           #  FOR ALL INTEGRATIONS OTHER THAN FIRST
026236,002075: 30,2702           27371        S2INTS1                    INTSTALL                              
026237,002076: 30,2703           77624                          CALL                                           
026238,002077: 30,2704           61326                                   S22FLGS                               
026239,002078: 30,2705           43014                          BON      CLEAR                                 
026240,002079: 30,2706           02706                                   DMENFLG                               
026241,002080: 30,2707           60361                                   S22NXTIN                              #  RETURN ALWAYS EXCEPT OFFSET POINT MARK
026242,002081: 30,2710           01676                                   DIM0FLAG                              
026243,002082: 30,2711           43014                          BOFF     SET                                   
026244,002083: 30,2712           01751                                   ORBWFLAG                              
026245,002084: 30,2713           60361                                   S22NXTIN                              #  OFFSET POINT MARK 1, NO W INTEGRATION
026246,002085: 30,2714           01476                                   DIM0FLAG                              
026247,002086: 30,2715           77614                          CLRGO                                          
026248,002087: 30,2716           01635                                   D6OR9FLG                              
026249,002088: 30,2717           60361                                   S22NXTIN                              #  OFFSET POINT MARK 1, INTEGRATE W 6X6
026250,002089: 30,2720           77624        S22OFF=I          CALL                                           
026251,002090: 30,2721           61322                                   GETTF                                 
026252,002091: 30,2722           27670                          STOVL    S22TOFF                               #  TIME SUB OFF
026253,002092: 30,2723           01235                                   UM                                    
026254,002093: 30,2724           35215                          STCALL   S22UOFF                               #  U SUB OFF
026255,002094: 30,2725           60655                                   S22I=N                                #  TEST I=N
026256,002095: 30,2726           77775        S22D=9            VLOAD                                          #  D=9 PATH
026257,002096: 30,2727           01701                                   X789                                  
026258,002097: 30,2730           14001                          STODL    0D                                    #  CALL PIOS TWICE TO TRANSFORM RL TO TIME
026259,002098: 30,2731           03672                                   S22TPRIM                              #  T(SUB F) FROM TIME T PRIME
026260,002099: 30,2732           00007                          STORE    6D                                    
026261,002100: 30,2733           45135                          SLOAD    CALL                                  
026262,002101: 30,2734           03674                                   S22EORM                               #  0=EARTH, NON-ZERO=MOON
026263,002102: 30,2735           55366        S2RTRP                     R-TO-RP                               
026264,002103:                                                                                                 #  Page 600
026265,002104: 30,2736           45006                          PUSH     CALL                                  #  R-TO-RP LEAVES PUSHLOC AT 0
026266,002105: 30,2737           61322                                   GETTF                                 
026267,002106: 30,2740           00007                          STORE    6D                                    
026268,002107: 30,2741           45135                          SLOAD    CALL                                  
026269,002108: 30,2742           03674                                   S22EORM                               
026270,002109: 30,2743           55341        S2RPTR                     RP-TO-R                               
026271,002110: 30,2744           01701        S22BOX32          STORE    X789                                  
026272,002111: 30,2745           40014                          SET      BOV                                   
026273,002112: 30,2746           02464                                   INCORFLG                              #  FLAG=1
026274,002113: 30,2747           60750                                   +1                                    #  CLEAR OVERFLOW
026275,002114: 30,2750           77651                          VSU                                            
026276,002115: 30,2751           01207                                   CSMPOS                                
026277,002116: 30,2752           03531                          STORE    RCLP                                  #  RCL=RL-RC
026278,002117: 30,2753           47256                          UNIT     VXV                                   #  USTAR=UNIT(UNIT(RCL)XUM)
026279,002118: 30,2754           01235                                   UM                                    
026280,002119: 30,2755           40056                          UNIT     BOV                                   
026281,002120: 30,2756           60652                                   S22SAVET                              #  COMPUTATION OVERFLOW, SAVE TF
026282,002121: 30,2757           01245                          STORE    USTAR                                 
026283,002122: 30,2760           43014        S22BOX12          SET      SET                                   
026284,002123: 30,2761           02466                                   DMENFLG                               #  =1 FOR 9X9 W
026285,002124: 30,2762           00467                                   VEHUPFLG                              #  =1 FOR CSM
026286,002125: 30,2763           43345                          DLOAD    DAD                                   
026287,002126: 30,2764           21650                                   SCTVAR                                #  B+18
026288,002127: 30,2765           21652                                   IMUVARR                               #  B+18
026289,002128: 30,2766           27526                          STOVL    VARIANCE                              
026290,002129: 30,2767           03531                                   RCLP                                  #  B-29 OR B-27
026291,002130: 30,2770           60246                          ABVAL    NORM                                  
026292,002131: 30,2771           00047                                   X1                                    
026293,002132: 30,2772           41316                          DSQ      DMP                                   
026294,002133: 30,2773           03526                                   VARIANCE                              
026295,002134: 30,2774           56070                          XAD,1    XAD,1                                 
026296,002135: 30,2775           00046                                   X1                                    #  DOUBLE NORM SHIFT SINCE RCLP WAS SQUARED
026297,002136: 30,2776           03673                                   S22EORM                               #  DOUBLE EARTH OR MOON SHIFT, SAME REASON
026298,002137: 30,2777           53670                          XAD,1    SR*                                   
026299,002138: 30,3000           03673                                   S22EORM                               
026300,002139: 30,3001           20601                                   0,1                                   #  SCALE VARIANCE B-40 FOR BOTH EARTH, MOON
026301,002140: 30,3002           77751                          TLOAD                                          #  CHANGE MODE TO TRIPLE
026302,002141: 30,3003           00155                                   MPAC                                  
026303,002142: 30,3004           37526                          STCALL   VARIANCE                              #  CALC B0,B1,DELTAQ, NEW USTAR
026304,002143: 30,3005           47047        S2BVTRS                    BVECTORS                              
026305,002144: 30,3006           57575                          VLOAD    VCOMP                                 
026306,002145: 30,3007           03502                                   BVECTOR                               
026307,002146: 30,3010           37516                          STCALL   BVECTOR    +12D                       #  B2=-B0
026308,002147: 30,3011           75250        S2INCP1                    INCORP1                               
026309,002148: 30,3012           77624                          CALL                                           
026310,002149: 30,3013           56741                                   GRP2PC                                
026311,002150: 30,3014           43014                          BOFF     CLEAR                                 
026312,002151: 30,3015           01342                                   22DSPFLG                              #  =1 DISPLAY DELTA R,V     =0 DO NOT
026313,002152: 30,3016           61047                                   S22BOX42                              
026314,002153: 30,3017           01262                                   22DSPFLG                              
026315,002154:                                                                                                 #  Page 601
026316,002155: 30,3020           77624                          CALL                                           
026317,002156: 30,3021           56741                                   GRP2PC                                
026318,002157: 30,3022           51575                          VLOAD    ABVAL                                 
026319,002158: 30,3023           01257                                   DELTAX                                #  DELTA R
026320,002159: 30,3024           53750                          LXA,1    SR*                                   
026321,002160: 30,3025           03673                                   S22EORM                               #  SCALE DELTA R ALWAYS METERS B-29
026322,002161: 30,3026           20601                                   0,1                                   
026323,002162: 30,3027           27502                          STOVL    N49DISP                               
026324,002163: 30,3030           01265                                   DELTAX     +6                         #  DELTA V
026325,002164: 30,3031           53646                          ABVAL    SR*                                   #  DELTA V=METERS/CSEC B-7 ALWAYS
026326,002165: 30,3032           20601                                   0,1                                   
026327,002166: 30,3033           03504                          STORE    N49DISP    +2                         
026328,002167: 30,3034           77776                          EXIT                                           
026329,002168: 30,3035           33655                          CAF      V06N49EE                              
026330,002169: 30,3036           04555                          TC       BANKCALL                              
026331,002170: 30,3037           20763                          CADR     GOFLASHR                              
026332,002171: 30,3040           04106                          TC       GOTOP00H                              #  V34E TERMINATE
026333,002172: 30,3041           03046                          TC       +5                                    #  INCORPORATE CHANGES
026334,002173: 30,3042           03230                          TC       S22EXEX                               #  V32E RECYCLE
026335,002174: 30,3043           34710                          CAF      BIT3                                  
026336,002175: 30,3044           05415                          TC       BLANKET                               
026337,002176: 30,3045           05112                          TC       ENDOFJOB                              
026338,002177: 30,3046           06006                          TC       INTPRET                               
026339,002178: 30,3047           77624        S22BOX42          CALL                                           
026340,002179: 30,3050           75462                                   INCORP2                               
026341,002180: 30,3051           77624                          CALL                                           #  CSMPOS=RC B-29 OR B-27
026342,002181: 30,3052           61273                                   S22CALRC                              
026343,002182: 30,3053           77414        DMPINCP2          BOFF     EXIT                                  
026344,002183: 30,3054           02744                                   INCORFLG                              
026345,002184: 30,3055           60652                                   S22SAVET                              #  SAVE TF AND TEST I=N
026346,002185: 30,3056           05301                          TC       PHASCHNG                              
026347,002186: 30,3057           04022                          OCT      04022                                 
026348,002187: 30,3060           06006                          TC       INTPRET                               
026349,002188: 30,3061           77214                          CLEAR    VLOAD                                 
026350,002189: 30,3062           02664                                   INCORFLG                              #  FLAG=0
026351,002190: 30,3063           01701                                   X789                                  
026352,002191: 30,3064           77651                          VSU                                            
026353,002192: 30,3065           01207                                   CSMPOS                                
026354,002193: 30,3066           37531                          STCALL   RCLP                                  #  RCL=RL-RC
026355,002194: 30,3067           60760                                   S22BOX12                              
026356,002195: 30,3070           66370        S22BOX22          AXT,1    SSP                                   #  CLEAR W6,W7,W8.  (27 ELEMENTS 54 REGS)
026357,002196: 30,3071           00066                          DEC      54         B-14                       
026358,002197: 30,3072           00051                                   S1                                    
026359,002198: 30,3073           00006                          DEC      6          B-14                       
026360,002199: 30,3074           77775                          VLOAD                                          
026361,002200: 30,3075           15332                                   ZEROVECS                              
026362,002201: 30,3076           06643        CLRW678           STORE    W          +162D,1                    
026363,002202: 30,3077           67300                          TIX,1    SLOAD                                 
026364,002203: 30,3100           61076                                   CLRW678                               
026365,002204: 30,3101           02007                                   S22WSUBL                              
026366,002205:                                                                                                 #  Page 602
026367,002206: 30,3102           02621                          STORE    W          +144D                      
026368,002207: 30,3103           02631                          STORE    W          +152D                      
026369,002208: 30,3104           02641                          STORE    W          +160D                      
026370,002209: 30,3105           43014                          CLEAR    BOFF                                  #  SET LUNAFLAG, TIME FOR LALOTORV
026371,002210: 30,3106           01663                                   LUNAFLAG                              #  ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY
026372,002211: 30,3107           04343                                   CMOONFLG                              #  CHECK SCALING OF ITEMS,ALT INPUT AND
026373,002212: 30,3110           61113                                   S22BX22A                              #  RL OUTPUT IN ALPHAV BOTH B-29
026374,002213: 30,3111           77614                          SET                                            
026375,002214: 30,3112           01463                                   LUNAFLAG                              
026376,002215: 30,3113           77624        S22BX22A          CALL                                           
026377,002216: 30,3114           61322                                   GETTF                                 
026378,002217: 30,3115           77624                          CALL                                           #  COMPUTE RL
026379,002218: 30,3116           26373                                   LALOTORV                              
026380,002219: 30,3117           43175                          VLOAD    BOFF                                  
026381,002220: 30,3120           02152                                   ALPHAV                                #  RL B-29
026382,002221: 30,3121           04343                                   CMOONFLG                              
026383,002222: 30,3122           61124                                   S22BX22B                              
026384,002223: 30,3123           77752                          VSL2                                           #  SCALE RL B-27 FOR MOON
026385,002224: 30,3124           77650        S22BX22B          GOTO                                           
026386,002225: 30,3125           60744                                   S22BOX32                              
026387,002226: 30,3126           06006        S22F244X          TC       INTPRET                               
026388,002227: 30,3127           46135        S22F244           SLOAD    BHIZ                                  #  FIG 2.4-4      TEST OFF=0
026389,002228: 30,3130           02746                                   CXOFF                                 
026390,002229: 30,3131           61160                                   S22BOX44                              
026391,002230: 30,3132           77776                          EXIT                                           
026392,002231: 30,3133           05301                          TC       PHASCHNG                              
026393,002232: 30,3134           04022                          OCT      04022                                 
026394,002233: 30,3135           06006                          TC       INTPRET                               
026395,002234: 30,3136           77745                          DLOAD                                          
026396,002235: 30,3137           03670                                   S22TOFF                               
026397,002236: 30,3140           34041                          STCALL   TDEC1                                 #  CALC RC AT OFFSET TIME
026398,002237: 30,3141           27022                                   CSMPREC                               
026399,002238: 30,3142           77775                          VLOAD                                          
026400,002239: 30,3143           00017                                   RATT1                                 #  RC METERS B-29 OR B-27
026401,002240: 30,3144           25207                          STOVL    CSMPOS                                
026402,002241: 30,3145           01215                                   S22UOFF                               
026403,002242: 30,3146           25235                          STOVL    UM                                    #  U=UOFF
026404,002243: 30,3147           01701                                   X789                                  
026405,002244: 30,3150           43046                          ABVAL    BOFF                                  
026406,002245: 30,3151           04343                                   CMOONFLG                              
026407,002246: 30,3152           61154                                   +2                                    
026408,002247: 30,3153           77702                          SR2                                            #  SCALE MOON R0 B-29 FOR S22F2410 SUBR
026409,002248: 30,3154           36241                          STCALL   ERADM                                 
026410,002249: 30,3155           61240                                   S22F2410                              
026411,002250: 30,3156           77650                          GOTO                                           
026412,002251: 30,3157           61163                                   S22BX44A                              
026413,002252: 30,3160           77624        S22BOX44          CALL                                           
026414,002253: 30,3161           61322                                   GETTF                                 
026415,002254: 30,3162           03670                          STORE    S22TOFF                               #  PRESENT TIME FOR LAT-LONG SETUP
026416,002255: 30,3163           77214        S22BX44A          CLEAR    VLOAD                                 
026417,002256:                                                                                                 #  Page 603
026418,002257: 30,3164           01663                                   LUNAFLAG                              
026419,002258: 30,3165           01701                                   X789                                  
026420,002259: 30,3166           43014                          BOFF     SET                                   
026421,002260: 30,3167           04343                                   CMOONFLG                              
026422,002261: 30,3170           61173                                   S22BX44B                              
026423,002262: 30,3171           01463                                   LUNAFLAG                              #  SET = 1 FOR LAT-LONG
026424,002263: 30,3172           77742                          VSR2                                           #  SCALE RL MOON B-29 FOR LAT-LONG
026425,002264: 30,3173           16152        S22BX44B          STODL    ALPHAV                                #  RL SCALED B-29 FOR LAT-LONG
026426,002265: 30,3174           03670                                   S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
026427,002266: 30,3175           77624                          CALL                                           
026428,002267: 30,3176           26322                                   LAT-LONG                              #  **** ALT OUTPUT ALWAYS B-29
026429,002268: 30,3177           77624                          CALL                                           #  DISPLAY LAT/LONG/ALT
026430,002269: 30,3200           61336                                   LLASRD                                
026431,002270: 30,3201           77776                          EXIT                                           
026432,002271: 30,3202           33656                          CAF      V06N89B                               
026433,002272: 30,3203           04555                          TC       BANKCALL                              
026434,002273: 30,3204           20624                          CADR     GOFLASH                               
026435,002274: 30,3205           03233                          TC       S22GTP                                #  V34E TERMINATE
026436,002275: 30,3206           03210                          TC       +2                                    #  PROCEED        SAVE LANDING SITE COORD
026437,002276: 30,3207           03224                          TC       S22.981X                              #  RECYCLE        POINT A IN GSOP
026438,002277: 30,3210           06006                          TC       INTPRET                               
026439,002278: 30,3211           70740                          LXC,1    DLOAD*                                
026440,002279: 30,3212           02750                                   S22LOC                                
026441,002280: 30,3213           00001                                   0,1                                   
026442,002281: 30,3214           24007                          STOVL    6D                                    #  6-7D= LANDING SITE TIME FOR R-TO-RP
026443,002282: 30,3215           01701                                   X789                                  
026444,002283: 30,3216           00001                          STORE    0D                                    #  0-5D= LANDING SITE VEC FOR R-TO-RP
026445,002284: 30,3217           45135                          SLOAD    CALL                                  
026446,002285: 30,3220           15330                                   HIDPHALF                              #  ANY NON-ZERO FOR MOON
026447,002286: 30,3221           55366                                   R-TO-RP                               #  CONVERT RLS TO MOON-FIXED COORD
026448,002287: 30,3222           02026                          STORE    RLS                                   #  LANDING SITE VECTOR
026449,002288: 30,3223           77776                          EXIT                                           
026450,002289: 30,3224           06006        S22.981X          TC       INTPRET                               
026451,002290: 30,3225           77624                          CALL                                           
026452,002291: 30,3226           61354                                   9DWTO6DW                              
026453,002292: 30,3227           77776                          EXIT                                           #  GO TO POINT A IN CHAPTER 5
026454,002293: 30,3230           06006        S22EXEX           TC       INTPRET                               #  WITHOUT CONVERTING W
026455,002294: 30,3231           77650                          GOTO                                           
026456,002295: 30,3232           03703                                   S22RTNEX                              
026457,002296: 
026458,002297: 30,3233           06006        S22GTP            TC       INTPRET                               #  CONVERT W BEFORE TC GOTOP00H
026459,002298: 30,3234           77624                          CALL                                           
026460,002299: 30,3235           61354                                   9DWTO6DW                              
026461,002300: 30,3236           77776                          EXIT                                           
026462,002301: 30,3237           04106                          TC       GOTOP00H                              
026463,002302: 30,3240           77201        S22F2410          SETPD    VLOAD                                 #  COMPUTE FORMULA 2.4.10
026464,002303: 30,3241           00001                                   0D                                    
026465,002304: 30,3242           01207                                   CSMPOS                                #  RC B-29 EARTH, B-27 MOON
026466,002305: 30,3243           50256                          UNIT     DOT                                   #  UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
026467,002306: 30,3244           01235                                   UM                                    
026468,002307:                                                                                                 #  Page 604
026469,002308: 30,3245           57552                          SL1      DCOMP                                 #  GSOP CHANGE 8/18/67
026470,002309: 30,3246           77606                          PUSH                                           #  PD 2D 8D=COSA=-(UM.RC)/ABVAL(RC)       B-1
026471,002310: 30,3247           44316                          DSQ      BDSU                                  
026472,002311: 30,3250           21654                                   DEC1B2                                
026473,002312: 30,3251           43125                          PDDL     BOFF                                  #  PD 4D 2D=1-COSA SQ=SINA SQ             B-2
026474,002313: 30,3252           02241                                   ERADM                                 #  R0 ALWAYS B-29 FROM SETRE
026475,002314: 30,3253           04343                                   CMOONFLG                              
026476,002315: 30,3254           61256                                   +2                                    
026477,002316: 30,3255           77712                          SL2                                            #  SCALE R0 B-27 FOR MOON
026478,002317: 30,3256           56362                          SR1R     DDV                                   #  (R0/RC)        B-1
026479,002318: 30,3257           00045                                   36D                                   
026480,002319: 30,3260           45316                          DSQ      DSU                                   #  PD 2D (RP/RC) SQ - SINA SQ             B-2
026481,002320: 30,3261           44366                          SQRT     BDSU                                  #  PD 0D COSA-SQRT((R0/RC)SQ-SINA SQ)     B-1
026482,002321: 30,3262           77605                          DMP                                            #  DMP RESULT B-28 MOON, B-30 EARTH
026483,002322: 30,3263           00045                                   36D                                   #  VXSC RESULT B-29 MOON, B-31 EARTH
026484,002323: 30,3264           00041                          STORE    S22RHO                                #  RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
026485,002324: 30,3265           77761                          VXSC                                           
026486,002325: 30,3266           01235                                   UM                                    
026487,002326: 30,3267           53352                          VSL2     VAD                                   #  SCALE B-27 MOON, B-29 EARTH AND ADD RC
026488,002327: 30,3270           01207                                   CSMPOS                                
026489,002328: 30,3271           01701                          STORE    X789                                  
026490,002329: 30,3272           77616                          RVQ                                            #  B-27 FOR EARTH OR B-29 FOR MOON
026491,002330: 30,3273           77350        S22CALRC          LXA,1    VLOAD                                 #  COMPUTE RC B-29 OR B-27
026492,002331: 30,3274           03673                                   S22EORM                               #  =0 FOR EARTH, -2 FOR MOON
026493,002332: 30,3275           01573                                   DELTACSM                              
026494,002333: 30,3276           53257                          VSR*     VAD                                   
026495,002334: 30,3277           20610                                   7,1                                   
026496,002335: 30,3300           01607                                   RCVCSM                                
026497,002336: 30,3301           01207                          STORE    CSMPOS                                
026498,002337: 30,3302           77616                          RVQ                                            
026499,002338: 30,3303           00031        S2231X13          STORE    S221X3                                #  MULT 3X1 BY 1X3, STORE RESULTING 3X3 IN
026500,002339: 30,3304           77131                          SSP      AXT,2                                 #  S22UMRL - S22UMRL+17D
026501,002340: 30,3305           00052                                   S2                                    
026502,002341: 30,3306           00002                          DEC      2          B-14                       
026503,002342: 30,3307           00006                          DEC      6          B-14                       
026504,002343: 30,3310           77770                          AXT,1                                          
026505,002344: 30,3311           00022                          DEC      18         B-14                       
026506,002345: 30,3312           73775        S2231NXT          VLOAD    VXSC*                                 
026507,002346: 30,3313           00031                                   S221X3                                
026508,002347: 30,3314           77746                                   S223X1     +6,2                       
026509,002348: 30,3315           07524                          STORE    S22UMRL    +18D,1                     
026510,002349: 30,3316           61110                          INCR,1   TIX,2                                 
026511,002350: 30,3317           77771                          DEC      -6         B-14                       
026512,002351: 30,3320           61312                                   S2231NXT                              
026513,002352: 30,3321           77616                          RVQ                                            
026514,002353: 30,3322           70740        GETTF             LXC,1    DLOAD*                                #  SET MPAC= TF
026515,002354: 30,3323           02750                                   S22LOC                                
026516,002355: 30,3324           00001                                   0,1                                   
026517,002356: 30,3325           77616                          RVQ                                            
026518,002357:                                                                                                 #  Page 605
026519,002358: 30,3326           43014        S22FLGS           SET      SET                                   #  INTEGRATION FLAGS
026520,002359: 30,3327           01476                                   DIM0FLAG                              
026521,002360: 30,3330           01475                                   D6OR9FLG                              
026522,002361: 30,3331           43014                          SET      SET                                   
026523,002362: 30,3332           01474                                   VINTFLAG                              
026524,002363: 30,3333           01472                                   STATEFLG                              
026525,002364: 30,3334           43414                          CLEAR    RVQ                                   
026526,002365: 30,3335           01673                                   INTYPFLG                              
026527,002366: 
026528,002367:                                                                                                 #  SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
026529,002368:                                                                                                 #  PRIOR TO DISPLAY.
026530,002369: 
026531,002370: 30,3336           77745        LLASRD            DLOAD                                          #  ALT, LANDALT METERS B-29
026532,002371: 30,3337           01110                                   ALT                                   
026533,002372: 30,3340           16362                          STODL    LANDALT                               
026534,002373: 30,3341           01106                                   LONG                                  
026535,002374: 30,3342           77742                          SR1                                            
026536,002375: 30,3343           02360                          STORE    LANDLONG                              
026537,002376: 30,3344           77616                          RVQ                                            
026538,002377: 
026539,002378:                                                                                                 #  SUBROUTINE TO MODIFY LANDALT AND STORE LANDALT TO LANDALT+5 IN LAT TO
026540,002379:                                                                                                 #  LAT+5 AFTER LMK DATA LOADED BY ASTRONAUT.
026541,002380: 
026542,002381: 30,3345           77745        LLASRDA           DLOAD                                          #  ALT, LANDALT METERS B-29
026543,002382: 30,3346           02362                                   LANDALT                               
026544,002383: 30,3347           15110                          STODL    ALT                                   
026545,002384: 30,3350           02360                                   LANDLONG                              
026546,002385: 30,3351           77752                          SL1                                            
026547,002386: 30,3352           01106                          STORE    LONG                                  
026548,002387: 30,3353           77616                          RVQ                                            
026549,002388: 30,3354           40220        9DWTO6DW          STQ      SETPD                                 
026550,002389: 30,3355           01214                                   9DWXX                                 
026551,002390: 30,3356           00001                                   0D                                    
026552,002391: 30,3357           41575                          VLOAD    PUSH                                  #  CLEAR WORKING AREA OF PUSHLIST
026553,002392: 30,3360           15332                                   HI6ZEROS                              #  INCLUDING P
026554,002393: 30,3361           41406                          PUSH     PUSH                                  #  PD 18D
026555,002394: 30,3362           77731                          SSP                                            
026556,002395: 30,3363           00017                                   9DWJ                                  #  J=29   USE 2*29 FOR DP WORDS
026557,002396: 30,3364           00072                          DEC      58         B-14                       
026558,002397: 30,3365           66150        9DWI=J            LXA,1    SXA,1                                 #  SET I=J
026559,002398: 30,3366           00016                                   9DWJ                                  
026560,002399: 30,3367           00012                                   9DWI                                  
026561,002400: 30,3370           77624        9DWEPCAL          CALL                                           
026562,002401: 30,3371           61606                                   ROWDOT                                
026563,002402: 30,3372           77750                          LXA,1                                          #  P VARIES 0-20 INSTEAD OF 20-0
026564,002403: 30,3373           00010                                   9DWP                                  
026565,002404: 30,3374           06641                          STORE    EMATRIX    +40D,1                     
026566,002405: 30,3375           66110                          INCR,1   SXA,1                                 
026567,002406: 30,3376           00002                          DEC      2          B-14                       
026568,002407: 30,3377           00010                                   9DWP                                  
026569,002408: 30,3400           46135                          SLOAD    BHIZ                                  #  TEST I=0
026570,002409:                                                                                                 #  Page 606
026571,002410: 30,3401           00013                                   9DWI                                  
026572,002411: 30,3402           61417                                   9DWTESTJ                              
026573,002412: 30,3403           77625                          DSU                                            #  I=I-1
026574,002413: 30,3404           21646                                   9DWID                                 
026575,002414: 30,3405           00013                          STORE    9DWI                                  
026576,002415: 30,3406           46025                          DSU      BHIZ                                  #  TEST I=26
026577,002416: 30,3407           21644                                   9DW26D                                
026578,002417: 30,3410           61413                                   9DWSETI2                              
026579,002418: 30,3411           77650                          GOTO                                           #  NEXT E SUB P
026580,002419: 30,3412           61370                                   9DWEPCAL                              
026581,002420: 30,3413           52131        9DWSETI2          SSP      GOTO                                  #  I=2
026582,002421: 30,3414           00013                                   9DWI                                  
026583,002422: 30,3415           00004                          DEC      4          B-14                       
026584,002423: 30,3416           61370                                   9DWEPCAL                              
026585,002424: 30,3417           46135        9DWTESTJ          SLOAD    BHIZ                                  #  TEST J=0
026586,002425: 30,3420           00017                                   9DWJ                                  
026587,002426: 30,3421           61436                                   9DWFIG6                               
026588,002427: 30,3422           77625                          DSU                                            
026589,002428: 30,3423           21646                                   9DWID                                 
026590,002429: 30,3424           00017                          STORE    9DWJ                                  #  J=J-1
026591,002430: 30,3425           46025                          DSU      BHIZ                                  #  TEST J=26
026592,002431: 30,3426           21644                                   9DW26D                                
026593,002432: 30,3427           61432                                   9DWSETJ2                              
026594,002433: 30,3430           77650                          GOTO                                           
026595,002434: 30,3431           61365                                   9DWI=J                                
026596,002435: 30,3432           52131        9DWSETJ2          SSP      GOTO                                  #  SET J=2
026597,002436: 30,3433           00017                                   9DWJ                                  
026598,002437: 30,3434           00004                          DEC      4          B-14                       
026599,002438: 30,3435           61365                                   9DWI=J                                
026600,002439: 30,3436           77624        9DWFIG6           CALL                                           
026601,002440: 30,3437           56741                                   GRP2PC                                
026602,002441: 30,3440           77331                          SSP      VLOAD                                 #  START OF FIGURE 2.4-6
026603,002442: 30,3441           00017                                   9DWJ                                  #  J=29
026604,002443: 30,3442           00072                          DEC      58         B-14                       
026605,002444: 30,3443           15332                                   HI6ZEROS                              
026606,002445: 30,3444           00011                          STORE    9DWP                                  #  P,N,I=0
026607,002446: 30,3445           66370                          AXT,1    SSP                                   
026608,002447: 30,3446           00154                          DEC      108        B-14                       #  CLEAR W0 TO W54
026609,002448: 30,3447           00051                                   S1                                    
026610,002449: 30,3450           00006                                   6                                     
026611,002450: 30,3451           06555        CLEARW54          STORE    W          +108D,1                    
026612,002451: 30,3452           77700                          TIX,1                                          
026613,002452: 30,3453           61451                                   CLEARW54                              
026614,002453: 30,3454           66150        9DWI=JA           LXA,1    SXA,1                                 #  I=J
026615,002454: 30,3455           00016                                   9DWJ                                  
026616,002455: 30,3456           00012                                   9DWI                                  
026617,002456: 30,3457           77624                          CALL                                           
026618,002457: 30,3460           61606                                   ROWDOT                                
026619,002458: 30,3461           43750                          LXA,1    BDSU*                                 
026620,002459: 30,3462           00010                                   9DWP                                  
026621,002460:                                                                                                 #  Page 607
026622,002461: 30,3463           02641                                   EMATRIX    +40D,1                     
026623,002462: 30,3464           66110                          INCR,1   SXA,1                                 #  -(P+1)
026624,002463: 30,3465           00002                                   2                                     
026625,002464: 30,3466           00010                                   9DWP                                  
026626,002465: 30,3467           54140                          LXC,1    XSU,1                                 #  -(I+N)
026627,002466: 30,3470           00012                                   9DWI                                  
026628,002467: 30,3471           00014                                   9DWN                                  
026629,002468: 30,3472           71244                          BPL      DLOAD                                 #  TEST WSQ LTE 0
026630,002469: 30,3473           61477                                   9DWAAA                                
026631,002470: 30,3474           15332                                   HI6ZEROS                              #  W=0
026632,002471: 30,3475           77650                          GOTO                                           
026633,002472: 30,3476           61500                                   9DWAAB                                
026634,002473: 30,3477           77766        9DWAAA            SQRT                                           #  W= SQRT(WSQ)
026635,002474: 30,3500           06401        9DWAAB            STORE    W,1                                   
026636,002475: 30,3501           14001                          STODL    WORKW                                 
026637,002476: 30,3502           00017                                   9DWJ                                  #  TEST J=0
026638,002477: 30,3503           77630                          BHIZ                                           
026639,002478: 30,3504           61572                                   9DWEXITX                              #  EXIT
026640,002479: 30,3505           46135        TST2I=0           SLOAD    BHIZ                                  #  TEST I=0
026641,002480: 30,3506           00013                                   9DWI                                  
026642,002481: 30,3507           61550                                   9DWN=N+3                              
026643,002482: 30,3510           77625                          DSU                                            
026644,002483: 30,3511           21646                                   9DWID                                 
026645,002484: 30,3512           00013                          STORE    9DWI                                  #  I=I-1
026646,002485: 30,3513           46025                          DSU      BHIZ                                  #  TEST I=26
026647,002486: 30,3514           21644                                   9DW26D                                
026648,002487: 30,3515           61520                                   9DWAAC                                
026649,002488: 30,3516           77650                          GOTO                                           
026650,002489: 30,3517           61523                                   9DWNEXEP                              
026651,002490: 30,3520           77731        9DWAAC            SSP                                            #  I=2
026652,002491: 30,3521           00013                                   9DWI                                  
026653,002492: 30,3522           00004                                   4                                     
026654,002493: 30,3523           77624        9DWNEXEP          CALL                                           
026655,002494: 30,3524           61606                                   ROWDOT                                
026656,002495: 30,3525           43750                          LXA,1    BDSU*                                 #  (EP-ROWI*ROWJ)/W
026657,002496: 30,3526           00010                                   9DWP                                  
026658,002497: 30,3527           02641                                   EMATRIX    +40D,1                     
026659,002498: 30,3530           62071                          DDV      INCR,1                                #  P=P+1
026660,002499: 30,3531           00001                                   WORKW                                 
026661,002500: 30,3532           00002                                   2                                     
026662,002501: 30,3533           70130                          SXA,1    LXC,1                                 
026663,002502: 30,3534           00010                                   9DWP                                  
026664,002503: 30,3535           00012                                   9DWI                                  
026665,002504: 30,3536           40060                          XSU,1    BOV                                   #  -(I+N)
026666,002505: 30,3537           00014                                   9DWN                                  
026667,002506: 30,3540           61543                                   SETWIN=0                              
026668,002507: 30,3541           77650                          GOTO                                           
026669,002508: 30,3542           61545                                   9DWSETWX                              
026670,002509: 30,3543           77745        SETWIN=0          DLOAD                                          #  W(I+N)=0
026671,002510: 30,3544           15332                                   HI6ZEROS                              
026672,002511:                                                                                                 #  Page 608
026673,002512: 30,3545           06401        9DWSETWX          STORE    W,1                                   
026674,002513: 30,3546           77650                          GOTO                                           
026675,002514: 30,3547           61505                                   TST2I=0                               
026676,002515: 30,3550           62150        9DWN=N+3          LXA,1    INCR,1                                #  N=N+3
026677,002516: 30,3551           00014                                   9DWN                                  
026678,002517: 30,3552           00006                                   6                                     
026679,002518: 30,3553           67330                          SXA,1    SLOAD                                 #  J=J-1
026680,002519: 30,3554           00014                                   9DWN                                  
026681,002520: 30,3555           00017                                   9DWJ                                  
026682,002521: 30,3556           77625                          DSU                                            
026683,002522: 30,3557           21646                                   9DWID                                 
026684,002523: 30,3560           00017                          STORE    9DWJ                                  
026685,002524: 30,3561           46025                          DSU      BHIZ                                  #  TEST J=26
026686,002525: 30,3562           21644                                   9DW26D                                
026687,002526: 30,3563           61566                                   SETJ=2A                               
026688,002527: 30,3564           77650                          GOTO                                           
026689,002528: 30,3565           61454                                   9DWI=JA                               
026690,002529: 30,3566           52131        SETJ=2A           SSP      GOTO                                  #  J=2
026691,002530: 30,3567           00017                                   9DWJ                                  
026692,002531: 30,3570           00004                                   4                                     
026693,002532: 30,3571           61454                                   9DWI=JA                               
026694,002533: 30,3572           77624        9DWEXITX          CALL                                           
026695,002534: 30,3573           56741                                   GRP2PC                                
026696,002535: 30,3574           66370                          AXT,1    SSP                                   #  CLEAR W6,W7,W8 USED TEMP FOR EMATRIX
026697,002536: 30,3575           00066                          DEC      54         B-14                       
026698,002537: 30,3576           00051                                   S1                                    
026699,002538: 30,3577           00006                                   6                                     
026700,002539: 30,3600           77775                          VLOAD                                          
026701,002540: 30,3601           15332                                   HI6ZEROS                              
026702,002541: 30,3602           06643        9DWEXXXA          STORE    W          +162D,1                    
026703,002542: 30,3603           52100                          TIX,1    GOTO                                  
026704,002543: 30,3604           61602                                   9DWEXXXA                              
026705,002544: 30,3605           01214                                   9DWXX                                 
026706,002545: 30,3606           40131        ROWDOT            SSP      BOV                                   
026707,002546: 30,3607           00007                                   XTMP1                                 
026708,002547: 30,3610           00377                          OCT      377                                   
026709,002548: 30,3611           61612                                   +1                                    
026710,002549: 30,3612           71140                          LXC,1    LXC,2                                 
026711,002550: 30,3613           00012                                   9DWI                                  
026712,002551: 30,3614           00016                                   9DWJ                                  
026713,002552: 30,3615           41545                          DLOAD    PUSH                                  
026714,002553: 30,3616           15332                                   HI6ZEROS                              
026715,002554: 30,3617           56743        ROWDOT1           DLOAD*   DMPR*                                 
026716,002555: 30,3620           02401                                   W,1                                   
026717,002556: 30,3621           75376                                   W,2                                   
026718,002557: 30,3622           41415                          DAD      PUSH                                  
026719,002558: 30,3623           62000                          BOV      INCR,1                                
026720,002559: 30,3624           61640                                   ROWDOT3                               
026721,002560: 30,3625           77771                          DEC      -6         B-14                       
026722,002561: 30,3626           67314                          INCR,2   SLOAD                                 
026723,002562:                                                                                                 #  Page 609
026724,002563: 30,3627           77771                          DEC      -6         B-14                       
026725,002564: 30,3630           00007                                   XTMP1                                 
026726,002565: 30,3631           70430                          BHIZ     SR1                                   
026727,002566: 30,3632           61636                                   ROWDOT2                               
026728,002567: 30,3633           00007                          STORE    XTMP1                                 
026729,002568: 30,3634           77650                          GOTO                                           
026730,002569: 30,3635           61617                                   ROWDOT1                               
026731,002570: 30,3636           77745        ROWDOT2           DLOAD                                          
026732,002571: 30,3637           77616                          RVQ                                            
026733,002572: 30,3640           77614        ROWDOT3           CLRGO                                          
026734,002573: 30,3641           01631                                   ORBWFLAG                              
026735,002574: 30,3642           61636                                   ROWDOT2                               
026736,002575: 30,3643                        WORKW             =        0D                                    
026737,002576: 30,3643                        XTMP1             =        6D                                    
026738,002577: 30,3643                        9DWP              =        8D                                    #  P
026739,002578: 30,3643                        9DWI              =        10D                                   #  I
026740,002579: 30,3643                        9DWN              =        12D                                   #  N
026741,002580: 30,3643                        9DWJ              =        14D                                   #  J
026742,002581: 30,3643     1214               9DWXX             =        S22UOFF                               
026743,002582: 30,3643  E7,1501               S22UMRL           =        BVECTOR                               #  18
026744,002583: 30,3643     1256               S22UUT            =        DELTAX                                #  18
026745,002584: 30,3643                        S223X1            =        18D                                   #  6
026746,002585: 30,3643                        S221X3            =        24D                                   #  6
026747,002586: 30,3643                        S22D              =        30D                                   #  2
026748,002587: 30,3643                        S22RHO            =        32D                                   #  2
026749,002588: 30,3643  0002634               S22RL             =        W          +156D                      #  6
026750,002589: 
026751,002590: 30,3643           00064 00000  9DW26D            2DEC     52         B-14                       
026752,002591: 30,3645           00002 00000  9DWID             2DEC     2          B-14                       
026753,002592: 30,3647           10306 36750  SCTVAR            2DEC     1.0        E-6        B+18            
026754,002593: 30,3651           00253 31436  IMUVARR           2DEC     0.04       E-6        B+18            
026755,002594: 30,3653           10000 00000  DEC1B2            2DEC     1          B-2                        
026756,002595: 
026757,002596: 30,3655           01461        V06N49EE          VN       00649                                 
026758,002597: 30,3656           01531        V06N89B           VN       00689                                 
026759,002598: 30,3657     1214               S22UOFF           =        LEMPOS                                #  6      U SUB OFF
026760,002599: 23,2000                                          SETLOC   P20S2                                 
026761,002600: 23,2000                                          BANK                                           
026762,002601:                                                                                                 #  Page 610
026763,002602:                                                                                                 #  Nothing on this page. --- RSB 2004.
026764,002603: 
026765,002604:                                                                                                 #  Page 611
026766,002605:                                                                                                 #  SUBROUTINE NAME:  V69CALL
026767,002606:                                                                                                 #  MOD NO:  0                                     DATE: 6 FEB 1968
026768,002607:                                                                                                 #  MOD BY:  DIGITAL DEVEL GROUP                   LOG SECTION:  P20-P25
026769,002608: 
026770,002609:                                                                                                 #  FUNCTIONAL DESCRIPTION:
026771,002610: 
026772,002611:                                                                                                 #  CALLED BY VERB 69 ENTER DURING P00.  PRIO 10 USED.  CALCULATES AND
026773,002612:                                                                                                 #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
026774,002613:                                                                                                 #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
026775,002614: 
026776,002615:                                                                                                 #  1. KEY IN V69 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
026777,002616:                                                                                                 #  EXIT R63, OTHERWISE CONTINUE.
026778,002617: 
026779,002618:                                                                                                 #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH).  IF IMU ON AND ITS
026780,002619:                                                                                                 #  ORIENTATION KNOWN TO CGC, CONTINUE.
026781,002620: 
026782,002621:                                                                                                 #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
026783,002622:                                                                                                 #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS.  (R2=1).
026784,002623:                                                                                                 #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V22 E 2 E.  CONTINUE
026785,002624:                                                                                                 #  AFTER KEYING IN PROCEED.
026786,002625: 
026787,002626:                                                                                                 #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED.  SET FLAG
026788,002627:                                                                                                 #  FOR PREFERRED AXIS.  RESET FLAG FOR X AXIS.
026789,002628: 
026790,002629:                                                                                                 #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
026791,002630: 
026792,002631:                                                                                                 #         R63COMP JOB:
026793,002632:                                                                                                 #         
026794,002633:                                                                                                 #                 UPDATE CSM AND LM STATE VECTORS USING CONIC EQUATIONS
026795,002634: 
026796,002635:                                                                                                 #                 CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 35M TO LM.
026797,002636: 
026798,002637:                                                                                                 #                 DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
026799,002638:                                                                                                 #                 ARE STORED FOR LATER R60CSM CALL.
026800,002639: 
026801,002640:                                                                                                 #  6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
026802,002641: 
026803,002642:                                                                                                 #  7. RECYCLE: RETURN TO STEP 5.
026804,002643:                                                                                                 #     TERMINATE: EXIT R63 ROUTINE
026805,002644:                                                                                                 #     PROCEED:  RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
026806,002645: 
026807,002646:                                                                                                 #  CALLING SEQUENCE:      V 69 E
026808,002647: 
026809,002648:                                                                                                 #  SUBROUTINES CALLED:  CHKP00H, R02BOTH, GOXDSPF, R63COMP, R60CSM
026810,002649: 
026811,002650:                                                                                                 #  ALARMS 1.  OPERATOR ERROR IF NOT IN P00
026812,002651:                                                                                                 #                 2.  PROGRAM ALARM IF IMU IS OFF
026813,002652:                                                                                                 #                 3.  PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN
026814,002653:                                                                                                 #  Page 612
026815,002654: 
026816,002655:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED:  NONE
026817,002656: 
026818,002657:                                                                                                 #  DEBRIS:  OPTION1, OPTION1+1, PRFTEXAT(PREF ATT FLAG), P21TIME, 3AXISFLG
026819,002658: 
026820,002659: 23,3136           00000 13560  DP1MIN            2DEC     6000       B-28                       
026821,002660: 
026822,002661: 23,3140  E4,1715                                 EBANK=   P21TIME                               
026823,002662: 34,3601                                          BANK     34                                    
026824,002663: 34,2000                                          SETLOC   P20S4                                 
026825,002664: 34,2000                                          BANK                                           
026826,002665: 34,3601                                          COUNT*   $$/R63                                
026827,002666: 34,3601           04555        V89CALL           TC       BANKCALL                              #  IMU STATUS CHECK. RETURNS IF ORIENTATION
026828,002667: 34,3602           17573                          CADR     R02BOTH                               #  KNOWN.  ALARMS IF NOT.
026829,002668: 34,3603           36214                          CAF      THREE                                 #  ALLOW ASTRONAUT TO SELECT DESURED
026830,002669: 34,3604           55131                          TS       OPTION1                               #  TRACKING ATTITUDE AXIS
026831,002670: 34,3605           34712                          CAF      ONE                                   
026832,002671: 34,3606           55132                          TS       OPTION1    +1                         
026833,002672: 34,3607           33650                          CAF      VB04N06                               #  V 04 N 06
026834,002673: 34,3610           04555                          TC       BANKCALL                              
026835,002674: 34,3611           20624                          CADR     GOFLASH                               
026836,002675: 34,3612           05423                          TC       ENDEXT                                #  TERMINATE
026837,002676: 34,3613           03615                          TC       +2                                    #  PROCEED
026838,002677: 34,3614           03607                          TC       -5                                    #  DATA IN.  OPTION1 +1 = 1 FOR PREF AXIS
026839,002678:                                                                                                 #                        = 2 FOR X AXIS
026840,002679: 34,3615           41132                          CS       OPTION1    +1                         #  1 FOR PREF AXIS.  2 FOR X AXIS.
026841,002680: 34,3616           64712                          AD       ONE                                   
026842,002681: 34,3617           00006                          EXTEND                                         
026843,002682: 34,3620           13645                          BZF      SETPAF                                
026844,002683: 34,3621           05447        RSTPAF            TC       DOWNFLAG                              #  RESET PREF ATT FLAG FOR R63COMP
026845,002684: 34,3622           00120                          ADRES    RNGSCFLG                              #  TO DO X AXIS.  RESET BIT 10 FLAG 5
026846,002685: 34,3623           06006        V89RECL           TC       INTPRET                               
026847,002686: 34,3624           43234                          RTB      DAD                                   
026848,002687: 34,3625           45505                                   LOADTIME                              #  READ PRESENT TIME
026849,002688: 34,3626           07137                                   DP1MIN                                #  INTEGRATE TO 1 MIN FROM NOW
026850,002689: 34,3627           36316                          STCALL   P21TIME                               #  STORE TIME FOR CALL TO R63COMP.  R63COMP
026851,002690: 34,3630           71461                                   R63COMP                               #  LEAVES DESIRED GIM ANGS IN THETAD, LOS IN
026852,002691: 34,3631           77776                          EXIT                                           #  POINTVSM, AND SELECTED AXIS IN SCAXIS.
026853,002692: 34,3632           33651                          CAF      VB06N18                               #  V 06 N 18
026854,002693: 34,3633           04555                          TC       BANKCALL                              #  NOUN 18 REFERS TO THE DESIRED GIMBAL
026855,002694: 34,3634           20624                          CADR     GOFLASH                               
026856,002695: 34,3635           05423                          TC       ENDEXT                                #  TERMINATE
026857,002696: 34,3636           03640                          TC       +2                                    #  PROCEED
026858,002697: 34,3637           03623                          TC       V89RECL                               #  RECYCLE
026859,002698: 34,3640           05447                          TC       DOWNFLAG                              #  RESET 3 AXIS FLAG
026860,002699: 34,3641           00124                          ADRES    3AXISFLG                              #  RESET BIT 6 FLAG 5
026861,002700:                                                                                                 #  Page 613
026862,002701: 34,3642           04555                          TC       BANKCALL                              #  PERFORMS CSM MANEUVER TO ALIGN SELECTED
026863,002702: 34,3643           56000                          CADR     R60CSM                                #  SPACECRAFT AXIS TO LOS.
026864,002703: 34,3644           15423                          TCF      ENDEXT                                
026865,002704: 34,3645           05435        SETPAF            TC       UPFLAG                                #  SET PREFERRED ATT FLAG FOR R63COMP
026866,002705: 34,3646           00120                          ADRES    RNGSCFLG                              #  TO DO PREF AXIS.  SET BIT 10 FLAG 5.
026867,002706: 34,3647           03623                          TC       V89RECL                               
026868,002707: 34,3650           01006        VB04N06           VN       0406                                  
026869,002708: 34,3651           01422        VB06N18           VN       0618                                  
026870,002709: 
026871,002710: 34,3652  34,3461               R63COMP           EQUALS   R63                                   
026872,002711: 
026873,002712:                                                                                                 #  Page 614
026874,002713:                                                                                                 #  PROGRAM NAME:  P23 CISLUNAR MIDCOURSE NAVIGATION
026875,002714:                                                                                                 #  MOD NO:
026876,002715:                                                                                                 #  MOD BY:  TOM KNATT
026877,002716: 
026878,002717:                                                                                                 #  FUNCTIONAL DESCRIPTION:  DO MIDCOURSE NAVIGATION BY INCORPORATION OF 
026879,002718:                                                                                                 #  STAR/EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
026880,002719: 
026881,002720:                                                                                                 #  CALLING SEQUENCE:  ASTRONAUT OPERATED
026882,002721: 
026883,002722:                                                                                                 #  SUBROUTINES CALLED:  R52,R53,R57,R30,ORBITAL INTEGRATION (INTEGRV)
026884,002723:                                                                                                 #  INCORP1,INCORP2,LALOTORV,LUNLMKLD, AND DISPLAY INTERFACE ROTINES.
026885,002724: 
026886,002725:                                                                                                 #  N0RMAL EXIT MODES:  VIA R00
026887,002726: 
026888,002727:                                                                                                 #  ALARMS:  NONE
026889,002728: 
026890,002729:                                                                                                 #  ABORT MODES:  NONE
026891,002730: 
026892,002731:                                                                                                 #  ERASABLE INITIALIZATION REQUIRED:  PAD-LOADED ERASABLES, ORBWFLAG RESET,
026893,002732:                                                                                                 #  REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ONE
026894,002733: 
026895,002734:                                                                                                 #  INPUTS BY USER REQUIRED:  STAR NUMBER, LANDMARK LAT, LONG/2, ALT OR ID NUMB.
026896,002735:                                                                                                 #  IF LANDMARK IS USED; NEAR OR FAR HORISON IF HORIZON IS USED, AND 
026897,002736:                                                                                                 #  BODY TO BE MARKED ON (EARTH OR MOON).  SEE GSOP CHAPT 4.
026898,002737: 
026899,002738:                                                                                                 #  OUTPUT:  UPDATED CMC STATE VECTOR.  VECTOR FROM S/C TO HORIZON OR LANDMARK
026900,002739:                                                                                                 #  IN POINTAXS.  POINTAXS CAN BE USED TO GENERATE THIS VECTOR APART FROM
026901,002740:                                                                                                 #  P23 IF DESIRED.
026902,002741: 
026903,002742:                                                                                                 #  DEBRIS:  NO USABLE DEBRIS IS GENERATED.  RENDWFLG IS RESET FOR P20 UPON
026904,002743:                                                                                                 #  COMPLETION OF P23.  REUPTREGS AND ERASABLES USED BY DISPLAYS ARE DEBRIS.
026905,002744: 
026906,002745: 31,2021                                          BANK     31                                    
026907,002746: 31,2000                                          SETLOC   RT23                                  
026908,002747: 31,2000                                          BANK                                           
026909,002748: 31,2021                                          COUNT    31/S23                                
026910,002749: 31,2021  0002400                                 EBANK=   W                                     
026911,002750: 31,2021           05447        P23               TC       DOWNFLAG                              
026912,002751: 31,2022           00010                          ADRES    RNDVZFLG                              
026913,002752: 
026914,002753: 31,2023           05261                          TC       2PHSCHNG                              
026915,002754: 31,2024           00004                          OCT      00004                                 #  LEAVE GROUP 4
026916,002755: 31,2025           00012                          OCT      00012                                 #  ENTER GROUP 2
026917,002756: 31,2026           34760                          CAF      PRIO13                                
026918,002757: 31,2027           55056                          TS       PHSPRDT2                              
026919,002758: 31,2030           06006                          TC       INTPRET                               
026920,002759: 31,2031           43131                          SSP      CLEAR                                 
026921,002760: 31,2032           00302                                   MARKINDX                              
026922,002761: 31,2033           00001                                   1                                     
026923,002762: 31,2034           00666                                   TARG2FLG                              #  TARGET FLAG USED R52 AND R53
026924,002763: 31,2035           66214                          CLEAR    SSP                                   
026925,002764: 31,2036           00665                                   TARG1FLG                              
026926,002765: 31,2037           00305                                   STARIND                               
026927,002766: 31,2040           00000                                   0                                     
026928,002767: 31,2041           43131                          SSP      CLEAR                                 
026929,002768: 31,2042           00303                                   BESTI                                 
026930,002769: 31,2043           00000                                   0                                     
026931,002770: 31,2044           03267                                   R57FLAG                               #  SET = DO NOT REPERFORM R57
026932,002771: 31,2045           77414                          CLEAR    EXIT                                  
026933,002772: 31,2046           04664                                   V94FLAG                               #  SET = ALLOW V94
026934,002773: 31,2047           06006        P23.00            TC       INTPRET                               
026935,002774:                                                                                                 #  Page 615
026936,002775: 31,2050           45014                          BON      CALL                                  
026937,002776: 31,2051           01702                                   REFSMFLG                              #  SET NOW AS INPUT, NORMALLY EXTERNAL CONT
026938,002777: 31,2052           62060                                   P23.05                                #  WHEN ALIGNED, PERFORM MEASUREMENT
026939,002778: 31,2053           76360                                   R57                                   #  DO OPTICS CALIBRATION IF IMU NOT ALIGNED.
026940,002779: 31,2054           77624                          CALL                                           
026941,002780: 31,2055           31322                                   R53                                   
026942,002781: 31,2056           77650                          GOTO                                           
026943,002782: 31,2057           62236                                   P23.60                                
026944,002783: 31,2060           77414        P23.05            CLEAR    EXIT                                  
026945,002784: 31,2061           04665                                   SAVECFLG                              #  USED TO SAVE SPACE IN P23.05
026946,002785: 31,2062           33050                          CAF      V05N70                                #  REQUEST RESPONSE AND DISPLAY MEASUREMENT
026947,002786: 31,2063           04555                          TC       BANKCALL                              #  IDENTIFICATION:  STAR, LMK, HOR  IDENT.
026948,002787: 31,2064           20624                          CADR     GOFLASH                               
026949,002788: 31,2065           04106                          TC       GOTOP00H                              #  TERMINATE
026950,002789: 31,2066           02070                          TC       P23.15                                
026951,002790: 31,2067           02062                          TC       -5                                    #  REDISPLAY
026952,002791: 31,2070           31751        P23.15            CA       LANDMARK                              #  IF C=2, LUNAFLAG=1.  IF C=1, LUNAFLAG=0
026953,002792: 31,2071           00006                          EXTEND                                         
026954,002793: 31,2072           12074                          BZF      +2                                    
026955,002794: 31,2073           02075                          TC       +2                                    
026956,002795: 31,2074           31752                          CA       HORIZON                               #  SET LUNAFLAG FROM HORIZON OR LANDMARK
026957,002796: 31,2075           74703                          MASK     BIT8                                  
026958,002797: 31,2076           00006                          EXTEND                                         
026959,002798: 31,2077           12104                          BZF      P23.16                                
026960,002799: 31,2100           06006                          TC       INTPRET                               
026961,002800: 31,2101           52014                          SET      GOTO                                  
026962,002801: 31,2102           01463                                   LUNAFLAG                              
026963,002802: 31,2103           62107                                   P23.17                                
026964,002803: 31,2104           06006        P23.16            TC       INTPRET                               
026965,002804: 31,2105           77614                          CLEAR                                          
026966,002805: 31,2106           01663                                   LUNAFLAG                              
026967,002806: 31,2107           41535        P23.17            SLOAD    PUSH                                  
026968,002807: 31,2110           00736                                   STARCODE                              
026969,002808: 31,2111           41335                          SLOAD    DMP                                   
026970,002809: 31,2112           23055                                   SPSIX                                 
026971,002810: 31,2113           66150                          LXA,1    SXA,1                                 
026972,002811: 31,2114           00155                                   MPAC       +1                         
026973,002812: 31,2115           00302                                   BESTI                                 #  BESTI = 6 X STAR NUMBER
026974,002813: 31,2116           77624                          CALL                                           
026975,002814: 31,2117           30000                                   LOWMEMRY                              #  NEEDED TO RETRIEVE STAR VECTOR FROM LOW
026976,002815: 31,2120           02617                          STORE    STARSAV2                              #  STORE FOR R53,P23.  US(IN P23)=STARSAV2
026977,002816: 31,2121           77776                          EXIT                                           
026978,002817: 31,2122           31751                          CA       LANDMARK                              
026979,002818: 31,2123           73052                          MASK     OCT00077                              
026980,002819: 31,2124           55753                          TS       IDOFLMK                               #  FOR RE(DE) LUNAFLAG ALREADY SET
026981,002820: 31,2125           31752                          CA       HORIZON                               
026982,002821: 31,2126           00006                          EXTEND                                         
026983,002822: 31,2127           12144                          BZF      P23.12                                
026984,002823: 31,2130           74706                          MASK     BIT5                                  #  IF D=1,NORFHOR=0(NEAR).  D=2,NORFHOR=1,FAR.
026985,002824: 31,2131           00006                          EXTEND                                         
026986,002825:                                                                                                 #  Page 616
026987,002826: 31,2132           12137                          BZF      P23.18                                
026988,002827: 31,2133           06006                          TC       INTPRET                               
026989,002828: 31,2134           52014                          SET      GOTO                                  
026990,002829: 31,2135           00064                                   NORFHOR                               
026991,002830: 31,2136           62142                                   P23.19                                
026992,002831: 31,2137           06006        P23.18            TC       INTPRET                               
026993,002832: 31,2140           77614                          CLEAR                                          
026994,002833: 31,2141           00264                                   NORFHOR                               
026995,002834: 31,2142           77776        P23.19            EXIT                                           
026996,002835: 31,2143           02156                          TC       P23.30                                
026997,002836: 31,2144           31753        P23.12            CA       IDOFLMK                               #  IF R2(DE) NONZERO, LMK IS IDENTIFIED
026998,002837: 31,2145           00006                          EXTEND                                         
026999,002838: 31,2146           12150                          BZF      P23.20                                #  LANDMARK NOT IDENTIFIED
027000,002839: 31,2147           02156                          TC       P23.30                                #  LANDMARK IS IDENTIFIED
027001,002840: 31,2150           33047        P23.20            CAF      V6N89                                 #  REQUEST RESPONSE AND DISPLAY LMK DATA
027002,002841: 31,2151           04555                          TC       BANKCALL                              #  R1=LAT,R2=LONG/2,R3=ALT
027003,002842: 31,2152           20624                          CADR     GOFLASH                               
027004,002843: 31,2153           04106                          TC       GOTOP00H                              #  TERMINATE
027005,002844: 31,2154           02156                          TC       P23.30                                
027006,002845: 31,2155           02150                          TC       P23.20                                #  STORE NEW DATA AND REDISPLAY
027007,002846: 31,2156           06006        P23.30            TC       INTPRET                               
027008,002847: 31,2157           77414                          BON      EXIT                                  
027009,002848: 31,2160           04705                                   SAVECFLG                              
027010,002849: 31,2161           62265                                   P23.85                                
027011,002850: 31,2162           33053                          CAF      V50N25P                               
027012,002851: 31,2163           04555                          TC       BANKCALL                              
027013,002852: 31,2164           20751                          CADR     GOPERF1                               #  GOPERF1 BLANKS OUT R2 AND R3
027014,002853: 31,2165           04106                          TC       GOTOP00H                              
027015,002854: 31,2166           02173                          TC       V94ENTER                              #  PROCEED.  AUTOCONTROL CMC
027016,002855: 31,2167           02170                          TC       P23.55                                #  ENTER.  MANUAL CONTROL
027017,002856: 31,2170           06006        P23.55            TC       INTPRET                               
027018,002857: 31,2171           77650                          GOTO                                           
027019,002858: 31,2172           62224                                   P23.56                                
027020,002859: 
027021,002860:                                                                                                 #  VERB 94 BEGINS HERE
027022,002861: 31,2173           06006        V94ENTER          TC       INTPRET                               
027023,002862: 31,2174           77634                          RTB                                            
027024,002863: 31,2175           45505                                   LOADTIME                              #  READ CLOCK
027025,002864: 31,2176           35225                          STCALL   MARKTIME                              
027026,002865: 31,2177           62272                                   POINTAXS                              #  RETURN LOS IN RCLL AND MPAC
027027,002866: 31,2200           53521                          MXV      UNIT                                  
027028,002867: 31,2201           01736                                   REFSMMAT                              
027029,002868: 31,2202           27357                          STOVL    POINTVSM                              
027030,002869: 31,2203           23056                                   JCAXIS                                
027031,002870: 31,2204           03351                          STORE    SCAXIS                                
027032,002871: 31,2205           77776                          EXIT                                           
027033,002872: 31,2206           05447                          TC       DOWNFLAG                              #  CLEAR AND GO TO VECPOINT IN R60
027034,002873: 31,2207           00124                          ADRES    3AXISFLG                              #  BIT 6 FLAG 5
027035,002874: 31,2210           33063                          CAF      R60ADRS                               
027036,002875: 31,2211           54374                          TS       TEMPFLSH                              
027037,002876: 31,2212           05301                          TC       PHASCHNG                              
027038,002877:                                                                                                 #  Page 617
027039,002878: 31,2213           00012                          OCT      00012                                 
027040,002879: 31,2214           04555        R60CALL           TC       BANKCALL                              
027041,002880: 31,2215           56000                          CADR     R60CSM                                
027042,002881: 31,2216           05301                          TC       PHASCHNG                              
027043,002882: 31,2217           04022                          OCT      04022                                 
027044,002883: 31,2220           06006                          TC       INTPRET                               
027045,002884: 31,2221           77614                          BON                                            
027046,002885: 31,2222           03307                                   R57FLAG                               
027047,002886: 31,2223           62226                                   P23.57                                #  DO NOT REPERFORM R57
027048,002887: 31,2224           77624        P23.56            CALL                                           
027049,002888: 31,2225           76360                                   R57                                   
027050,002889: 31,2226           43014        P23.57            SET      SET                                   
027051,002890: 31,2227           04464                                   V94FLAG                               
027052,002891: 31,2230           03067                                   R57FLAG                               
027053,002892: 31,2231           77624                          CALL                                           
027054,002893: 31,2232           30002                                   R52                                   
027055,002894: 31,2233           43014                          CLEAR    CLEAR                                 
027056,002895: 31,2234           04664                                   V94FLAG                               
027057,002896: 31,2235           03267                                   R57FLAG                               
027058,002897: 31,2236           77776        P23.60            EXIT                                           
027059,002898: 31,2237           00004                          INHINT                                         
027060,002899: 31,2240           31330                          CA       MARKSTAT                              
027061,002900: 31,2241           74747                          MASK     LOW10                                 
027062,002901: 31,2242           55242                          TS       MARKDATA                              
027063,002902: 31,2243           00006                          EXTEND                                         
027064,002903: 31,2244           51242                          INDEX    MARKDATA                              
027065,002904: 31,2245           30001                          DCA      0                                     
027066,002905: 31,2246           53225                          DXCH     MARKTIME                              
027067,002906: 31,2247           51242                          INDEX    MARKDATA                              
027068,002907: 31,2250           30005                          CA       5                                     
027069,002908: 31,2251           57754                          XCH      TRUNION                               
027070,002909: 31,2252           00003                          RELINT                                         
027071,002910: 31,2253           33051                          CAF      V05N71                                
027072,002911: 31,2254           04555                          TC       BANKCALL                              
027073,002912: 31,2255           20624                          CADR     GOFLASH                               
027074,002913: 31,2256           04106                          TC       GOTOP00H                              #  TERMINATE
027075,002914: 31,2257           02261                          TC       P23.65                                #  STORE DATA
027076,002915: 31,2260           02253                          TC       -5                                    #  REDISPLAY
027077,002916: 31,2261           06006        P23.65            TC       INTPRET                               
027078,002917: 31,2262           77414                          SET      EXIT                                  
027079,002918: 31,2263           04465                                   SAVECFLG                              
027080,002919: 31,2264           02070                          TC       P23.15                                
027081,002920: 31,2265           45014        P23.85            CLEAR    CALL                                  
027082,002921: 31,2266           02676                                   RENDWFLG                              
027083,002922: 31,2267           62272                                   POINTAXS                              
027084,002923: 31,2270           77650                          GOTO                                           
027085,002924: 31,2271           62364                                   R23.55                                
027086,002925: 
027087,002926:                                                                                                 #  Garbled comment line here, possibly "WE BEGIN CALCULATIONS HERE". --- RSB 2004
027088,002927:                                                                                                 #  POINTAXIS SUBROUTINE
027089,002928: 
027090,002929: 31,2272           67220        POINTAXS          STQ      SLOAD                                 
027091,002930:                                                                                                 #  Page 618
027092,002931: 31,2273           01150                                   POINTEX                               
027093,002932: 31,2274           02752                                   LANDMARK                              #  IF LANDMARK=0 HORIZON IS DESIRED.
027094,002933: 31,2275           67230                          BHIZ     SLOAD                                 #  DO NOT PICK UP LMK VALUES FROM TABLE
027095,002934: 31,2276           62307                                   R23.05                                #  OR DISPLAY IN HORIZON CASE
027096,002935: 31,2277           02754                                   IDOFLMK                               
027097,002936: 31,2300           45030                          BHIZ     CALL                                  
027098,002937: 31,2301           62305                                   R23.0                                 
027099,002938: 31,2302           63064                                   LUNLMKLD                              
027100,002939: 31,2303           77650                          GOTO                                           
027101,002940: 31,2304           62307                                   R23.05                                
027102,002941: 31,2305           77624        R23.0             CALL                                           #  MUST BE DONE 2ND TIME, TO ALLOW CHANGES
027103,002942: 31,2306           61345                                   LLASRDA                               
027104,002943: 31,2307           71214        R23.05            BON      DLOAD                                 
027105,002944: 31,2310           01711                                   ORBWFLAG                              
027106,002945: 31,2311           62315                                   R23.1                                 
027107,002946: 31,2312           03001                                   WMIDPOS                               
027108,002947: 31,2313           34001                          STCALL   0                                     
027109,002948: 31,2314           56544                                   INITIALW                              #  INITIALIZE W-MATRIX FIRST PASS IN P23
027110,002949: 31,2315           77624        R23.1             CALL                                           
027111,002950: 31,2316           56343                                   SETINTG                               #  SETUP FOR CSM INTEGRATION
027112,002951: 31,2317           43014                          BOF      SET                                   
027113,002952: 31,2320           01751                                   ORBWFLAG                              
027114,002953: 31,2321           62323                                   R23.2                                 
027115,002954: 31,2322           01476                                   DIM0FLAG                              
027116,002955: 31,2323           45014        R23.2             SET      CALL                                  
027117,002956: 31,2324           01471                                   ORBWFLAG                              
027118,002957: 31,2325           27113                                   INTEGRV                               #  INTEGRATE CSM STATE VEC. TO MARKTIME
027119,002958: 31,2326           77776                          EXIT                                           
027120,002959: 31,2327           05301                          TC       PHASCHNG                              
027121,002960: 31,2330           04022                          OCT      04022                                 
027122,002961: 31,2331           06006                          TC       INTPRET                               
027123,002962: 31,2332           77624                          CALL                                           
027124,002963: 31,2333           62767                                   RECT.1                                #  PICKUP CSM STATE VECTOR FROM PRM
027125,002964: 31,2334           77214                          BOFF     VLOAD                                 
027126,002965: 31,2335           00345                                   ZMEASURE                              #  IN SPHERE OF INFLUENCE OF PRIMARY BODY
027127,002966: 31,2336           62341                                   R23.3                                 
027128,002967: 31,2337           02272                                   RQVV                                  #  CALCULATED BY INTEGRATION B29
027129,002968: 31,2340           03627                          STORE    RZC                                   
027130,002969: 31,2341           46135        R23.3             SLOAD    BHIZ                                  
027131,002970: 31,2342           02752                                   LANDMARK                              #  IF LANDMARK = 0, USE HORIZ SUBR
027132,002971: 31,2343           62353                                   R23.4                                 
027133,002972: 31,2344           77614                          SET                                            
027134,002973: 31,2345           00462                                   ERADFLAG                              
027135,002974: 31,2346           45145                          DLOAD    CALL                                  
027136,002975: 31,2347           01225                                   MARKTIME                              
027137,002976: 31,2350           26373                                   LALOTORV                              
027138,002977: 31,2351           77650                          GOTO                                           
027139,002978: 31,2352           62355                                   R23.5                                 
027140,002979: 31,2353           77624        R23.4             CALL                                           
027141,002980: 31,2354           62527                                   HORIZ                                 
027142,002981:                                                                                                 #  Page 619
027143,002982: 31,2355           03665        R23.5             STORE    RL                                    
027144,002983: 31,2356           40251                          VSU      SETPD                                 
027145,002984: 31,2357           03627                                   RZC                                   
027146,002985: 31,2360           00001                                   0                                     
027147,002986: 31,2361           03657                          STORE    RCLL                                  
027148,002987: 31,2362           77650                          GOTO                                           
027149,002988: 31,2363           01150                                   POINTEX                               
027150,002989:                                                                                                 #  Page 620
027151,002990: 31,2364           41456        R23.55            UNIT     PUSH                                  #  RCLL IS IN MPAC
027152,002991: 31,2365           77775                          VLOAD                                          
027153,002992: 31,2366           00043                                   34D                                   #  RCLL * RCLL
027154,002993: 31,2367           24037                          STOVL    30D                                   #  PUSH 30-31 =RCLL*RCLL 32-33=ABVAL RCLL
027155,002994: 31,2370           03635                                   VZC                                   
027156,002995: 31,2371           54361                          VXSC     VSR                                   
027157,002996: 31,2372           23030                                   ONE/C                                 
027158,002997: 31,2373           20620                                   15D                                   
027159,002998: 31,2374           77655                          VAD                                            #  PUSH UP RCLL(UNIT)
027160,002999: 31,2375           77656                          UNIT                                           
027161,003000: 31,2376           27643                          STOVL    UCLSTAR                               
027162,003001: 31,2377           03635                                   VZC                                   
027163,003002: 31,2400           52342                          VSR2     VSU                                   
027164,003003: 31,2401           02141                                   VESO                                  
027165,003004: 31,2402           54361                          VXSC     VSR                                   
027166,003005: 31,2403           23030                                   ONE/C                                 
027167,003006: 31,2404           20616                                   13D                                   
027168,003007: 31,2405           53455                          VAD      UNIT                                  
027169,003008: 31,2406           02617                                   US                                    
027170,003009: 31,2407           03651                          STORE    USSTAR                                
027171,003010: 31,2410           72441                          DOT      SL1                                   
027172,003011: 31,2411           03643                                   UCLSTAR                               
027173,003012: 31,2412           77206                          PUSH     VLOAD                                 #  PD 0,1 = USSTAR(DOT)UCLSTAR
027174,003013: 31,2413           03643                                   UCLSTAR                               
027175,003014: 31,2414           57561                          VXSC     VCOMP                                 
027176,003015: 31,2415           53372                          VSL1     VAD                                   
027177,003016: 31,2416           03651                                   USSTAR                                
027178,003017: 31,2417           77656                          UNIT                                           
027179,003018: 31,2420           27502                          STOVL    BVECTOR                               #  USSTAR - COSQ(UCLSTAR)
027180,003019: 31,2421           15332                                   ZEROVECS                              
027181,003020: 31,2422           03510                          STORE    BVECTOR    +6                         
027182,003021: 31,2423           17516                          STODL    BVECTOR    +12D                       
027183,003022: 31,2424           00001                                   0                                     
027184,003023: 31,2425           57526                          ACOS     DCOMP                                 
027185,003024: 31,2426           71206                          PUSH     DLOAD                                 
027186,003025: 31,2427           15332                                   ZEROVECS                              
027187,003026: 31,2430           77776                          EXIT                                           
027188,003027: 31,2431           33041                          CA       VARSUBL                               #  PUT FIXED INTO ERASABLE FOR MSU
027189,003028: 31,2432           54001                          TS       L                                     #  INSTRUCTION COMING UP
027190,003029: 31,2433           31754                          CA       TRUNION                               #  REQUIRED TO CHANGE 2'S COMPLEMENT
027191,003030: 31,2434           00006                          EXTEND                                         #  TRUNION TO 1'S COMPLEMENT
027192,003031: 31,2435           20001                          MSU      L                                     #  TRUNION (2'S)-00000 CONVERTS TRUNION TO
027193,003032: 31,2436           54154                          TS       MPAC                                  #  1'S.  VARSUBL=00000.
027194,003033: 31,2437           06006                          TC       INTPRET                               
027195,003034: 31,2440           67206                          PUSH     SLOAD                                 #  PUSH IS DP.  WHEN BDSU IS EXECUTED, 2ND
027196,003035: 31,2441           01343                                   TRUNBIAS                              #  HALF OF PUSHLIST IS GUARANTEED ZERO FROM
027197,003036: 31,2442           77621                          BDSU                                           #  DLOAD ZEROVECS ABOVE
027198,003037: 31,2443           43242                          SR3      DAD                                   
027199,003038: 31,2444           41215                          DAD      DMP                                   
027200,003039:                                                                                                 #  Page 621
027201,003040: 31,2445           23036                                   TRUN19                                
027202,003041: 31,2446           00041                                   32D                                   
027203,003042: 31,2447           52405                          DMP      SL3                                   
027204,003043: 31,2450           07107                                   PI/4.0                                
027205,003044: 31,2451           62414                          BOFF     SL2                                   
027206,003045: 31,2452           04343                                   CMOONFLG                              
027207,003046: 31,2453           62454                                   R23.51                                
027208,003047: 31,2454           17524        R23.51            STODL    DELTAQ                                
027209,003048: 31,2455           00037                                   30D                                   #  RCLL * RCLL
027210,003049: 31,2456           47005                          DMP      RTB                                   
027211,003050: 31,2457           23045                                   TRUNVAR                               
027212,003051: 31,2460           45562                                   TPMODE                                
027213,003052: 31,2461           77771                          TAD                                            
027214,003053: 31,2462           23042                                   VARSUBL                               
027215,003054: 31,2463           03526                          STORE    VARIANCE                              
027216,003055: 31,2464           45014                          CLEAR    CALL                                  
027217,003056: 31,2465           02666                                   DMENFLG                               
027218,003057: 31,2466           75250                                   INCORP1                               
027219,003058: 31,2467           77624                          CALL                                           
027220,003059: 31,2470           56741                                   GRP2PC                                
027221,003060: 31,2471           51575                          VLOAD    ABVAL                                 
027222,003061: 31,2472           01265                                   DELTAX     +6                         
027223,003062: 31,2473           60414                          BOF      SR2                                   #  DISPLAY IS 2-27 IF IN LUNAR SPHERE.
027224,003063: 31,2474           04343                                   CMOONFLG                              
027225,003064: 31,2475           62476                                   R23.52                                
027226,003065: 31,2476           27504        R23.52            STOVL    N49DISP    +2                         
027227,003066: 31,2477           01257                                   DELTAX                                
027228,003067: 31,2500           77646                          ABVAL                                          
027229,003068: 31,2501           60414                          BOF      SR2                                   
027230,003069: 31,2502           04343                                   CMOONFLG                              
027231,003070: 31,2503           62504                                   R23.53                                
027232,003071: 31,2504           03502        R23.53            STORE    N49DISP                               
027233,003072: 31,2505           77776                          EXIT                                           
027234,003073: 31,2506           33046        R23.6             CAF      V6N49                                 
027235,003074: 31,2507           04555                          TC       BANKCALL                              
027236,003075: 31,2510           20763                          CADR     GOFLASHR                              
027237,003076: 31,2511           02506                          TC       R23.6                                 #  DON'T ALLOW
027238,003077: 31,2512           02521                          TC       R23.7                                 #  INCORPORATE DATA
027239,003078: 31,2513           02047                          TC       P23.00                                #  RECYCLE FOR ANOTHER MARK
027240,003079: 31,2514           34710                          CAF      BIT3                                  #  BLAN OUT R3
027241,003080: 31,2515           05415                          TC       BLANKET                               
027242,003081: 31,2516           05301                          TC       PHASCHNG                              
027243,003082: 31,2517           00012                          OCT      00012                                 
027244,003083: 31,2520           05112                          TC       ENDOFJOB                              
027245,003084: 31,2521           06006        R23.7             TC       INTPRET                               
027246,003085: 31,2522           45014        R23.8             SET      CALL                                  
027247,003086: 31,2523           00467                                   VEHUPFLG                              
027248,003087: 31,2524           75462                                   INCORP2                               
027249,003088: 31,2525           77776                          EXIT                                           
027250,003089: 31,2526           04106        R23.END           TC       GOTOP00H                              
027251,003090: 
027252,003091:                                                                                                 #  Page 622
027253,003092: 31,2527           40220        HORIZ             STQ      SETPD                                 
027254,003093: 31,2530           03672                                   SRRETURN                              
027255,003094: 31,2531           00001                                   0                                     
027256,003095: 31,2532           65345                          DLOAD    PDDL                                  #  PUSH 0-1 = -AYO SCALED B0
027257,003096: 31,2533           01714                                   -AYO                                  
027258,003097: 31,2534           01716                                   AXO                                   
027259,003098: 31,2535           63325                          PDDL     PDVL                                  #  PUSH 2-3 = +AX SCALED B0
027260,003099: 31,2536           15340                                   DPPOSMAX                              
027261,003100: 31,2537           02617                                   US                                    
027262,003101: 31,2540           53435                          VXV      UNIT                                  
027263,003102: 31,2541           03627                                   RZC                                   
027264,003103: 31,2542           27621                          STOVL    UBAR2                                 
027265,003104: 31,2543           53435                          VXV      UNIT                                  #  PUSH UP
027266,003105: 31,2544           03621                                   UBAR2                                 
027267,003106: 31,2545           27605                          STOVL    UBAR0                                 
027268,003107: 31,2546           03621                                   UBAR2                                 
027269,003108: 31,2547           53435                          VXV      UNIT                                  
027270,003109: 31,2550           03605                                   UBAR0                                 
027271,003110: 31,2551           03613                          STORE    UBAR1                                 
027272,003111: 31,2552           50214                          BON      DOT                                   
027273,003112: 31,2553           01703                                   LUNAFLAG                              
027274,003113: 31,2554           62752                                   HORIZ.6                               
027275,003114: 31,2555           00001                                   0                                     #  UBAR1 DOT UZ
027276,003115: 31,2556           36156                          STCALL   ALPHAV     +4                         
027277,003116: 31,2557           26437                                   GETERAD                               
027278,003117: 31,2560           65215                          DAD      PDDL                                  #  MPAC HAS RADIUS OF FISCHER ELLIPSOID
027279,003118: 31,2561           01355                                   HORIZALT                              #  PUSH 0-1 = BH SCALED B29
027280,003119: 31,2562           23032                                   AEARTH                                
027281,003120: 31,2563           41415                          DAD      PUSH                                  #  PUSH 2-3 = AH B29
027282,003121: 31,2564           01355                                   HORIZALT                              
027283,003122: 31,2565           64375        HORIZ.1           VLOAD    MXV                                   
027284,003123: 31,2566           03627                                   RZC                                   #  B29
027285,003124: 31,2567           03605                                   UBAR0                                 #  B1
027286,003125: 31,2570           63372                          VSL1     PDVL                                  #  PUSH 4-9 = RH(XH,YH,ZH) B29
027287,003126: 31,2571           02617                                   US                                    
027288,003127: 31,2572           76521                          MXV      VSL1                                  
027289,003128: 31,2573           03605                                   UBAR0                                 
027290,003129: 31,2574           77725                          PDDL                                           #  PUSH 10-15 = USH B1
027291,003130: 31,2575           00003                                   2                                     #  AH
027292,003131: 31,2576           14043                          STODL    34D                                   
027293,003132: 31,2577           00005                                   4                                     #  XH
027294,003133: 31,2600           77624                          CALL                                           
027295,003134: 31,2601           62756                                   DIVIDE                                
027296,003135: 31,2602           41257                          SR*      DMP                                   
027297,003136: 31,2603           20611                                   8D,1                                  #  NOW SCALED B9
027298,003137: 31,2604           00155                                   MPAC                                  
027299,003138: 31,2605           14037                          STODL    30D                                   
027300,003139: 31,2606           00001                                   0                                     
027301,003140: 31,2607           14043                          STODL    34D                                   
027302,003141: 31,2610           00007                                   6                                     #  YH
027303,003142:                                                                                                 #  Page 623
027304,003143: 31,2611           77624                          CALL                                           
027305,003144: 31,2612           62756                                   DIVIDE                                
027306,003145: 31,2613           41257                          SR*      DMP                                   
027307,003146: 31,2614           20611                                   8D,1                                  #  B9
027308,003147: 31,2615           00155                                   MPAC                                  #  B18
027309,003148: 31,2616           41415                          DAD      PUSH                                  #  PUSH 16-17 =A SCALED B18
027310,003149: 31,2617           00037                                   30D                                   
027311,003150: 31,2620           75425                          DSU      SQRT                                  
027312,003151: 31,2621           23040                                   1.0B18                                
027313,003152: 31,2622           77725                          PDDL                                           #  PUSH 18-19 SQRT(A-1) B9
027314,003153: 31,2623           00021                                   16D                                   
027315,003154: 31,2624           14043                          STODL    34D                                   
027316,003155: 31,2625           00005                                   4                                     #  XH
027317,003156: 31,2626           77624                          CALL                                           
027318,003157: 31,2627           62756                                   DIVIDE                                
027319,003158: 31,2630           65257                          SR*      PDDL                                  
027320,003159: 31,2631           20622                                   17D,1                                 #  PUSH 20-21 = XH/A B29
027321,003160: 31,2632           00007                                   6                                     #  YH
027322,003161: 31,2633           77624                          CALL                                           
027323,003162: 31,2634           62756                                   DIVIDE                                
027324,003163: 31,2635           65257                          SR*      PDDL                                  
027325,003164: 31,2636           20622                                   17D,1                                 #  PUSH 22-23 = YH/A B29
027326,003165: 31,2637           00021                                   16D                                   #  A
027327,003166: 31,2640           14043                          STODL    34D                                   
027328,003167: 31,2641           00023                                   18D                                   #  SQRT(A-1)
027329,003168: 31,2642           77624                          CALL                                           
027330,003169: 31,2643           62756                                   DIVIDE                                
027331,003170: 31,2644           77657                          SR*                                            
027332,003171: 31,2645           20611                                   8D,1                                  
027333,003172: 31,2646           14035                          STODL    28D                                   
027334,003173: 31,2647           00001                                   0                                     #  BH
027335,003174: 31,2650           14043                          STODL    34D                                   
027336,003175: 31,2651           00003                                   2                                     #  AH
027337,003176: 31,2652           77624                          CALL                                           
027338,003177: 31,2653           62756                                   DIVIDE                                
027339,003178: 31,2654           41257                          SR*      DMP                                   #  AH/BH SCALED B1
027340,003179: 31,2655           20601                                   0,1                                   
027341,003180: 31,2656           00035                                   28D                                   #  SQRT(A-1)/A
027342,003181: 31,2657           72405                          DMP      SL1                                   
027343,003182: 31,2660           00007                                   6                                     #  YH
027344,003183: 31,2661           77725                          PDDL                                           
027345,003184: 31,2662           00003                                   2                                     #  AH
027346,003185: 31,2663           14043                          STODL    34D                                   
027347,003186: 31,2664           00001                                   0                                     
027348,003187: 31,2665           77624                          CALL                                           
027349,003188: 31,2666           62756                                   DIVIDE                                
027350,003189: 31,2667           41257                          SR*      DMP                                   #  BH/AH SCALED B1
027351,003190: 31,2670           20601                                   0,1                                   
027352,003191: 31,2671           00035                                   28D                                   #  SQRT (A-1)/A
027353,003192: 31,2672           72405                          DMP      SL1                                   
027354,003193:                                                                                                 #  Page 624
027355,003194: 31,2673           00005                                   4                                     #  XH
027356,003195: 31,2674           43325                          PDDL     DAD                                   
027357,003196: 31,2675           00025                                   20D                                   #  XH/A
027358,003197: 31,2676           00031                                   24D                                   #  ALPHA
027359,003198: 31,2677           45325                          PDDL     DSU                                   
027360,003199: 31,2700           00027                                   22D                                   #  YH/A
027361,003200: 31,2701           00033                                   26D                                   #  BETA
027362,003201: 31,2702           40206                          PUSH     SETPD                                 
027363,003202: 31,2703           00021                                   16D                                   
027364,003203: 31,2704           45345                          DLOAD    DSU                                   
027365,003204: 31,2705           00025                                   20D                                   #  XH/A
027366,003205: 31,2706           00031                                   24D                                   #  ALPHA
027367,003206: 31,2707           43325                          PDDL     DAD                                   
027368,003207: 31,2710           00027                                   22D                                   #  YH/A
027369,003208: 31,2711           00033                                   26D                                   #  BETA
027370,003209: 31,2712           41525                          PDDL     PUSH                                  
027371,003210: 31,2713           15332                                   ZEROVECS                              
027372,003211: 31,2714           24041                          STOVL    32D                                   #  ZERO THIRD COMP. OF T-0 VECTOR
027373,003212: 31,2715           00035                                   28D                                   
027374,003213: 31,2716           53451                          VSU      UNIT                                  
027375,003214: 31,2717           00005                                   4                                     #  RH VECTOR
027376,003215: 31,2720           63241                          DOT      PDVL                                  #  PUSH 22-23 A-SUB-ZERO
027377,003216: 31,2721           00013                                   10D                                   #  USH VECTOR
027378,003217: 31,2722           00021                                   16D                                   #  T1 VECTOR
027379,003218: 31,2723           53451                          VSU      UNIT                                  
027380,003219: 31,2724           00005                                   4                                     #  RH VECTOR
027381,003220: 31,2725           41441                          DOT      PUSH                                  #  PUSH 24-25 A-SUB-ONE
027382,003221: 31,2726           00013                                   10D                                   
027383,003222: 31,2727           50021                          BDSU     BMN                                   
027384,003223: 31,2730           00027                                   22D                                   #  A-SUB-ZERO
027385,003224: 31,2731           62740                                   HORIZ.3                               
027386,003225: 31,2732           77614                          BON                                            
027387,003226: 31,2733           00304                                   NORFHOR                               
027388,003227: 31,2734           62744                                   HORIZ.4                               
027389,003228: 31,2735           52175        HORIZ.2           VLOAD    GOTO                                  
027390,003229: 31,2736           00035                                   28D                                   #  T-0 VECTOR
027391,003230: 31,2737           62746                                   HORIZ.5                               
027392,003231: 31,2740           52014        HORIZ.3           BON      GOTO                                  
027393,003232: 31,2741           00304                                   NORFHOR                               
027394,003233: 31,2742           62735                                   HORIZ.2                               
027395,003234: 31,2743           62744                                   HORIZ.4                               
027396,003235: 31,2744           77775        HORIZ.4           VLOAD                                          
027397,003236: 31,2745           00021                                   16D                                   #  T1 VECTOR
027398,003237: 31,2746           76505        HORIZ.5           VXM      VSL1                                  
027399,003238: 31,2747           03605                                   UBAR0                                 
027400,003239: 31,2750           77650                          GOTO                                           
027401,003240: 31,2751           03672                                   SRRETURN                              
027402,003241: 31,2752           41545        HORIZ.6           DLOAD    PUSH                                  
027403,003242: 31,2753           23034                                   RADMOON                               
027404,003243: 31,2754           52006                          PUSH     GOTO                                  
027405,003244:                                                                                                 #  Page 625
027406,003245: 31,2755           62565                                   HORIZ.1                               
027407,003246: 31,2756           70501        DIVIDE            NORM     SR1                                   
027408,003247: 31,2757           00047                                   X1                                    
027409,003248: 31,2760           14045                          STODL    36D                                   
027410,003249: 31,2761           00043                                   34D                                   
027411,003250: 31,2762           55301                          NORM     BDDV                                  
027412,003251: 31,2763           00051                                   S1                                    
027413,003252: 31,2764           00045                                   36D                                   
027414,003253: 31,2765           43460                          XSU,1    RVQ                                   
027415,003254: 31,2766           00050                                   S1                                    
027416,003255: 31,2767           77014        RECT.1            BOFF     AXT,2                                 #  SR TO SET ZMEASURE = 0 IF MEASUREMENT
027417,003256: 31,2770           04343                                   CMOONFLG                              #    PLANET AND PRIMARY PLANET ARE THE SAME.
027418,003257: 31,2771           63001                                   RECT.3                                #      OTHERWISE = 1
027419,003258: 31,2772           77775                          DEC      -2         B-14                       
027420,003259: 31,2773           77614                          BOFF                                           #        VEC. AND SCALE B29 AND B7
027421,003260: 31,2774           01743                                   LUNAFLAG                              
027422,003261: 31,2775           63005                                   RECT.4                                
027423,003262: 31,2776           52014        RECT.2            CLEAR    GOTO                                  
027424,003263: 31,2777           00265                                   ZMEASURE                              
027425,003264: 31,3000           63007                                   RECT.5                                
027426,003265: 31,3001           43174        RECT.3            AXT,2    BOFF                                  
027427,003266: 31,3002           00000                                   0                                     
027428,003267: 31,3003           01743                                   LUNAFLAG                              
027429,003268: 31,3004           62776                                   RECT.2                                
027430,003269: 31,3005           77614        RECT.4            SET                                            
027431,003270: 31,3006           00065                                   ZMEASURE                              
027432,003271: 31,3007           44575        RECT.5            VLOAD    VSR7                                  
027433,003272: 31,3010           01573                                   DELTACSM                              #  SCALED B22 OR B18
027434,003273: 31,3011           53257                          VSR*     VAD                                   
027435,003274: 31,3012           57176                                   0,2                                   
027436,003275: 31,3013           01607                                   RCVCSM                                #  SCALED B29 OR B27
027437,003276: 31,3014           77657                          VSR*                                           
027438,003277: 31,3015           57176                                   0,2                                   
027439,003278: 31,3016           27627                          STOVL    RZC                                   #  NOW SCALED B29
027440,003279: 31,3017           01601                                   NUVCSM                                #  SCALED B3 OR B-1
027441,003280: 31,3020           53702                          VSR4     VSR*                                  
027442,003281: 31,3021           57176                                   0,2                                   
027443,003282: 31,3022           53655                          VAD      VSR*                                  
027444,003283: 31,3023           01615                                   VCVCSM                                #  SCALED B7 OR B5
027445,003284: 31,3024           57176                                   0,2                                   
027446,003285: 31,3025           03635                          STORE    VZC                                   #  NOW SCALED B7
027447,003286: 31,3026           77616                          RVQ                                            
027448,003287: 
027449,003288: 31,3027           26305 05432  ONE/C             2DEC*    .333564049 E-6        B+21*           
027450,003289: 31,3031           00302 24533  AEARTH            2DEC     6378166    B-29                       #  A AXIS OF EARTH (METERS B-29)
027451,003290: 31,3033           00065 01265  RADMOON           2DEC     1738090    B-29                       #  RADIUS MOON IN METERS
027452,003291: 31,3035           01604        TRUN19            OCT      01604                                 
027453,003292: 31,3036           00000        TRUN19A           OCT      00000                                 
027454,003293:                                                                                                 #  Page 626
027455,003294: 31,3037           00000 02000  1.0B18            2DEC     1.0        B-18                       
027456,003295: 31,3041           00000        VARSUBL           DEC      0          B-14                       
027457,003296: 31,3042           01505 14100  VARSUBL3          2DEC*    3.4299040  E+6        B-26*           
027458,003297: 31,3044           00012 27462  TRUNVAR           2DEC     2.5        E-9        B+18            
027459,003298: 31,3046           01461        V6N49             VN       0649                                  
027460,003299: 31,3047           01531        V6N89             VN       0689                                  
027461,003300: 31,3050           01306        V05N70            VN       0570                                  
027462,003301: 31,3051           01307        V05N71            VN       0571                                  
027463,003302: 31,3052           00077        OCT00077          OCT      00077                                 
027464,003303: 31,3053           00202        V50N25P           OCT      00202                                 
027465,003304: 31,3054           00006        SPSIX             OCT      00006                                 
027466,003305: 31,3055           10461 21675  JCAXIS            2DEC     .268649805                            #  TRACK AXIS
027467,003306: 31,3057           00000 00000                    2DEC     0          B-28                       
027468,003307: 31,3061           15375 02004                    2DEC     .421695725                            
027469,003308: 
027470,003309: 31,3063           62217        R60ADRS           CADR     R60CALL    +3                         
027471,003310: 31,3064           77735        LUNLMKLD          SLOAD                                          
027472,003311: 31,3065           02754                                   IDOFLMK                               
027473,003312: 31,3066           45230                          BHIZ     DSU                                   
027474,003313: 31,3067           63101                                   LNLMKEND                              
027475,003314: 31,3070           21646                                   9DWID                                 
027476,003315: 31,3071           70152                          SL1      LXC,1                                 
027477,003316: 31,3072           00154                                   MPAC                                  
027478,003317: 31,3073           64743                          DLOAD*   PDDL*                                 
027479,003318: 31,3074           23705                                   ALTTAB,1                              
027480,003319: 31,3075           23623                                   LONGTAB,1                             
027481,003320: 31,3076           55523                          PDDL*    VDEF                                  
027482,003321: 31,3077           23541                                   LATTAB,1                              
027483,003322: 31,3100           01104                          STORE    LAT                                   
027484,003323: 31,3101           77616        LNLMKEND          RVQ                                            
027485,003324: 14,2000                                          SETLOC   RT53                                  
027486,003325: 14,2000                                          BANK                                           
027487,003326: 14,2000           43573        LOWMEMRY          VLOAD*   RVQ                                   
027488,003327: 14,2001           31744                                   CATLOG,1                              
027489,003328:    4550                                          BLOCK    02                                    
027490,003329:    4550           00006        GOTOV56           EXTEND                                         #  P20 TERMINATES BY GOTOV56 INSTEAD OF
027491,003330:    4551           34554                          DCA      VB56CADR                              #         GOTOP00H
027492,003331:    4552           15122                          TCF      SUPDXCHZ                              
027493,003332:    4553  0003777                                 EBANK=   WHOCARES                              
027494,003333:    4553           02637 66107  VB56CADR          2CADR    TRACKTRM                              
027495,003334: 
027496,003335:    4000                                          SETLOC   FFTAG2                                
027497,003336:    4000                                          BANK                                           
027498,003337:    4555                                          COUNT*   $$/P20                                
027499,003338: 40,3574                                          BANK     40                                    
027500,003339:                                                                                                 #  Page 627
027501,003340: 40,3574                                          SETLOC   ENDPINS1                              
027502,003341: 40,3574                                          BANK                                           
027503,003342: 40,3574                                          COUNT*   $$/EXTVB                              
027504,003343: 40,3574           06006        V67CALL           TC       INTPRET                               
027505,003344: 40,3575           77624                          CALL                                           
027506,003345: 40,3576           61656                                   V67WW                                 
027507,003346: 40,3577           77776                          EXIT                                           
027508,003347: 40,3600           33732        V06N99DS          CAF      V06N99A                               
027509,003348: 40,3601           04555                          TC       BANKCALL                              
027510,003349: 40,3602           20465                          CADR     GOXDSPF                               
027511,003350: 40,3603           15423                          TCF      ENDEXT                                
027512,003351: 40,3604           03610                          TC       V06N9933                              
027513,003352: 40,3605           05435                          TC       UPFLAG                                
027514,003353: 40,3606           00210                          ADRES    V67FLAG                               
027515,003354: 40,3607           03600                          TC       V06N99DS                              
027516,003355: 40,3610           06006        V06N9933          TC       INTPRET                               
027517,003356: 40,3611           77414                          BON      EXIT                                  
027518,003357: 40,3612           04701                                   V67FLAG                               
027519,003358: 40,3613           61615                                   +2                                    
027520,003359: 40,3614           15423                          TCF      ENDEXT                                
027521,003360: 40,3615           41345                          DLOAD    DMP                                   
027522,003361: 40,3616           02321                                   WWPOS                                 
027523,003362: 40,3617           21734                                   1/SQRT3                               
027524,003363: 40,3620           71350                          LXA,1    DLOAD                                 
027525,003364: 40,3621           00154                                   MPAC                                  
027526,003365: 40,3622           02323                                   WWVEL                                 
027527,003366: 40,3623           73005                          DMP      LXA,2                                 
027528,003367: 40,3624           21734                                   1/SQRT3                               
027529,003368: 40,3625           00154                                   MPAC                                  
027530,003369: 40,3626           45335                          SLOAD    DSU                                   
027531,003370: 40,3627           02325                                   WWOPT                                 
027532,003371: 40,3630           21736                                   V67DEC2                               
027533,003372: 40,3631           51030                          BHIZ     BPL                                   
027534,003373: 40,3632           61641                                   V67WORB                               
027535,003374: 40,3633           61646                                   V67WMID                               
027536,003375: 40,3634           67130                          SXA,1    SXA,2                                 
027537,003376: 40,3635           02000                                   WRENDPOS                              
027538,003377: 40,3636           02001                                   WRENDVEL                              
027539,003378: 40,3637           77650                          GOTO                                           
027540,003379: 40,3640           61651                                   V67EXITX                              
027541,003380: 40,3641           67130        V67WORB           SXA,1    SXA,2                                 
027542,003381: 40,3642           02004                                   WORBPOS                               
027543,003382: 40,3643           02005                                   WORBVEL                               
027544,003383: 40,3644           77650                          GOTO                                           
027545,003384: 40,3645           61651                                   V67EXITX                              
027546,003385: 40,3646           67130        V67WMID           SXA,1    SXA,2                                 
027547,003386: 40,3647           03000                                   WMIDPOS                               
027548,003387: 40,3650           03001                                   WMIDVEL                               
027549,003388: 40,3651           43014        V67EXITX          CLEAR    CLEAR                                 
027550,003389: 40,3652           01671                                   ORBWFLAG                              
027551,003390:                                                                                                 #  Page 628
027552,003391: 40,3653           02676                                   RENDWFLG                              
027553,003392: 40,3654           77776                          EXIT                                           
027554,003393: 40,3655           15423                          TCF      ENDEXT                                
027555,003394: 40,3656           40020        V67WW             STQ      BOV                                   
027556,003395: 40,3657           00051                                   S2                                    
027557,003396: 40,3660           61661                                   +1                                    
027558,003397: 40,3661           45014                          CLEAR    CALL                                  
027559,003398: 40,3662           04661                                   V67FLAG                               
027560,003399: 40,3663           27371                                   INTSTALL                              
027561,003400: 40,3664           71331                          SSP      DLOAD                                 
027562,003401: 40,3665           00051                                   S1                                    
027563,003402: 40,3666           00006                          DEC      6          B-14                       
027564,003403: 40,3667           15332                                   ZEROVECS                              
027565,003404: 40,3670           02321                          STORE    WWPOS                                 
027566,003405: 40,3671           02323                          STORE    WWVEL                                 
027567,003406: 40,3672           02325                          STORE    WWOPT                                 
027568,003407: 40,3673           77770                          AXT,1                                          
027569,003408: 40,3674           00044                          DEC      36         B-14                       
027570,003409: 40,3675           47573        NXPOSVEL          VLOAD*   VSQ                                   
027571,003410: 40,3676           02445                                   W          +36D,1                     
027572,003411: 40,3677           77615                          DAD                                            
027573,003412: 40,3700           02321                                   WWPOS                                 
027574,003413: 40,3701           02321                          STORE    WWPOS                                 
027575,003414: 40,3702           47573                          VLOAD*   VSQ                                   
027576,003415: 40,3703           02533                                   W          +90D,1                     
027577,003416: 40,3704           77615                          DAD                                            
027578,003417: 40,3705           02323                                   WWVEL                                 
027579,003418: 40,3706           02323                          STORE    WWVEL                                 
027580,003419: 40,3707           75500                          TIX,1    SQRT                                  
027581,003420: 40,3710           61675                                   NXPOSVEL                              
027582,003421: 40,3711           16323                          STODL    WWVEL                                 
027583,003422: 40,3712           02321                                   WWPOS                                 
027584,003423: 40,3713           77766                          SQRT                                           
027585,003424: 40,3714           02321                          STORE    WWPOS                                 
027586,003425: 40,3715           52000                          BOV      GOTO                                  
027587,003426: 40,3716           61720                                   +2                                    
027588,003427: 40,3717           61724                                   V67XXX                                
027589,003428: 40,3720           77745                          DLOAD                                          
027590,003429: 40,3721           15340                                   DPPOSMAX                              
027591,003430: 40,3722           02321                          STORE    WWPOS                                 
027592,003431: 40,3723           02323                          STORE    WWVEL                                 
027593,003432: 40,3724           66150        V67XXX            LXA,1    SXA,1                                 
027594,003433: 40,3725           00051                                   S2                                    
027595,003434: 40,3726           00052                                   QPRET                                 
027596,003435: 40,3727           77776                          EXIT                                           
027597,003436: 40,3730           04574                          TC       POSTJUMP                              
027598,003437: 40,3731           27406                          CADR     INTWAKE                               
027599,003438: 40,3732  E4,1720               WWPOS             =        RANGE                                 
027600,003439: 40,3732  E4,1722               WWVEL             =        RRATE                                 
027601,003440: 40,3732  E4,1724               WWOPT             =        RTHETA                                
027602,003441:                                                                                                 #  Page 629
027603,003442: 40,3732           01543        V06N99A           VN       0699                                  
027604,003443: 40,3733           22363 11620  1/SQRT3           2DEC     0.5773502                             
027605,003444: 40,3735           00002 00000  V67DEC2           2DEC     2          B-14                       
027606,003445: 

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