Source Code

These source-code files are part of a reconstructed copy of Comanche 67, the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 12.

They have been adapted from sources files for Comanche 55, and updated via disassembly of binary dumps of original core rope memory modules, part numbers 2003972-1081, 2003972-1091, 2003972-1111, 2003972-1121, 2003972-1131, and 2003972-1141.

Since only binary dumps (rather than listings) of Comanche 67 are available as source material, all comments and labels are approximate. They have been taken from other AGC programs where possible, or, in some places, written from scratch to match what we believe would have been in the original listing.

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

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