Source Code

These source-code files are part of a reconstructed copy of Comanche 72/3 (AKA Manche72 revision 3), the final, flown mission release of the Apollo Guidance Computer (AGC) Command Module (CM) software for Apollo 13.

The starting point was the source code of Comanche 72 (itself previously reconstructed). Comanche 72 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 72 and 72/3. The resulting code assembles to have identical memory-bank checksums as those specified in NASA drawing 2021153G; this gives reasonably high confidence that the changes that have been made are correct. In places where ambiguity exists, this ambiguity is discussed in "## Reconstruction:" comments.

Since no contemporary listings of Comanche 72/3 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.

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

Reconstruction: The following line gained the label P23.61 as part of the fix for anomaly COM-29, "N70 instead of N71 display in P23".

026751,002869: 31,2666           33463        P23.61             CAF      V05N71                                
026752,002870: 31,2667           04676                           TC       BANKCALL                              
026753,002871: 31,2670           20720                           CADR     GOFLASH                               
026754,002872: 31,2671           04106                           TC       GOTOPOOH                              #  TERMINATE
026755,002873: 31,2672           02674                           TC       P23.65                                #  STORE DATA
026756,002874: 31,2673           02666                           TC       -5                                    #  REDISPLAY
026757,002875: 31,2674           06006        P23.65             TC       INTPRET                               
026758,002876: 31,2675           77414                           SET      EXIT                                  
026759,002877: 31,2676           04465                                    SAVECFLG                              
026760,002878: 31,2677           02452                           TC       P23.15                                
026761,002879: 31,2700           45014        P23.85             CLEAR    CALL                                  
026762,002880: 31,2701           02676                                    RENDWFLG                              
026763,002881: 31,2702           62705                                    POINTAXS                              
026764,002882: 31,2703           77650                           GOTO                                           
026765,002883: 31,2704           62771                                    R23.55                                
026766,002884: 
026767,002885:                                                                                                  #  WE BEGIN CALCULATIONS HERE
026768,002886:                                                                                                  #  POINTAXIS SUBROUTINE
026769,002887: 
026770,002888: 31,2705           77620        POINTAXS           STQ                                            
026771,002889: 31,2706           01150                                    POINTEX                               
026772,002890: 31,2707           71214        R23.05             BON      DLOAD                                 
026773,002891: 31,2710           01711                                    ORBWFLAG                              
026774,002892: 31,2711           62715                                    R23.1                                 
026775,002893: 31,2712           03001                                    WMIDPOS                               
026776,002894: 31,2713           34001                           STCALL   0                                     
026777,002895: 31,2714           56566                                    INITIALW                              #  INITIALIZE W-MATRIX FIRST PASS IN P23
026778,002896: 31,2715           77624        R23.1              CALL                                           
026779,002897: 31,2716           56343                                    SETINTG                               #  SETUP FOR CSM INTEGRATION
026780,002898: 31,2717           43014                           BOF      SET                                   
026781,002899: 31,2720           01751                                    ORBWFLAG                              
026782,002900: 31,2721           62723                                    R23.2                                 
026783,002901: 31,2722           01476                                    DIM0FLAG                              
026784,002902: 31,2723           45014        R23.2              SET      CALL                                  
026785,002903: 31,2724           01471                                    ORBWFLAG                              
026786,002904: 31,2725           27171                                    INTEGRV                               #  INTEGRATE CSM STATE VEC. TO MARKTIME
026787,002905: 31,2726           77776                           EXIT                                           
026788,002906: 31,2727           05426                           TC       PHASCHNG                              
026789,002907: 31,2730           04022                           OCT      04022                                 
026790,002908: 31,2731           06006                           TC       INTPRET                               
026791,002909: 31,2732           77624                           CALL                                           
026792,002910: 31,2733           63402                                    RECT.1                                #  PICKUP CSM STATE VECTOR FROM PERM
026793,002911: 31,2734           77614                           BOFF                                           
026794,002912: 31,2735           00345                                    ZMEASURE                              #  IN SPHERE OF INFLUENCE OF PRIMARY BODY
026795,002913: 31,2736           62750                                    R23.3                                 
026796,002914: 31,2737           45145                           DLOAD    CALL                                  
026797,002915: 31,2740           01225                                    MARKTIME                              
026798,002916: 31,2741           54115                                    LUNPOS                                
026799,002917: 31,2742           57414                           BON      VCOMP                                 
026800,002918: 31,2743           04303                                    CMOONFLG                              
026801,002919: 31,2744           62745                                    +1                                    
026802,002920: 31,2745           77655                           VAD                                            
026803,002921: 31,2746           03627                                    RZC                                   
026804,002922: 31,2747           03627                           STORE    RZC                                   
026805,002923: 31,2750           46135        R23.3              SLOAD    BHIZ                                  
026806,002924: 31,2751           02752                                    LANDMARK                              #  IF LANDMARK = 0, USE HORIZ SUBR
026807,002925: 31,2752           62762                                    R23.4                                 
026808,002926: 31,2753           77614                           SET                                            
026809,002927: 31,2754           00462                                    ERADFLAG                              
026810,002928: 31,2755           45145                           DLOAD    CALL                                  
026811,002929: 31,2756           01225                                    MARKTIME                              
026812,002930: 31,2757           26447                                    LALOTORV                              
026813,002931: 31,2760           77650                           GOTO                                           
026814,002932: 31,2761           62764                                    R23.5                                 
026815,002933: 31,2762           77624        R23.4              CALL                                           
026816,002934: 31,2763           63142                                    HORIZ                                 
026817,002935: 31,2764           40251        R23.5              VSU      SETPD                                 
026818,002936: 31,2765           03627                                    RZC                                   
026819,002937: 31,2766           00001                                    0                                     
026820,002938: 31,2767           77650                           GOTO                                           
026821,002939: 31,2770           01150                                    POINTEX                               
026822,002940: 31,2771           41456        R23.55             UNIT     PUSH                                  #  RCLL IS IN MPAC
026823,002941: 31,2772           77775                           VLOAD                                          
026824,002942: 31,2773           00043                                    34D                                   #  RCLL * RCLL
026825,002943: 31,2774           24037                           STOVL    30D                                   #  PUSH 30-31 =RCLL*RCLL 32-33=ABVAL RCLL
026826,002944: 31,2775           03635                                    VZC                                   
026827,002945: 31,2776           54361                           VXSC     VSR                                   
026828,002946: 31,2777           23443                                    ONE/C                                 
026829,002947: 31,3000           20620                                    15D                                   
026830,002948: 31,3001           77655                           VAD                                            #  PUSH UP RCLL(UNIT)
026831,002949: 31,3002           77656                           UNIT                                           
026832,002950: 31,3003           27643                           STOVL    UCLSTAR                               
026833,002951: 31,3004           03635                                    VZC                                   
026834,002952: 31,3005           52342                           VSR2     VSU                                   
026835,002953: 31,3006           02141                                    VESO                                  
026836,002954: 31,3007           54361                           VXSC     VSR                                   
026837,002955: 31,3010           23443                                    ONE/C                                 
026838,002956: 31,3011           20616                                    13D                                   
026839,002957: 31,3012           53455                           VAD      UNIT                                  
026840,002958: 31,3013           02617                                    US                                    
026841,002959: 31,3014           03651                           STORE    USSTAR                                
026842,002960: 31,3015           72441                           DOT      SL1                                   
026843,002961: 31,3016           03643                                    UCLSTAR                               
026844,002962: 31,3017           77206                           PUSH     VLOAD                                 #  PD 0,1 = USSTAR(DOT)UCLSTAR
026845,002963: 31,3020           03643                                    UCLSTAR                               
026846,002964: 31,3021           57561                           VXSC     VCOMP                                 
026847,002965: 31,3022           53372                           VSL1     VAD                                   
026848,002966: 31,3023           03651                                    USSTAR                                
026849,002967: 31,3024           77656                           UNIT                                           
026850,002968: 31,3025           27502                           STOVL    BVECTOR                               #  USSTAR - COSQ(UCLSTAR
026851,002969: 31,3026           15334                                    ZEROVECS                              
026852,002970: 31,3027           03510                           STORE    BVECTOR    +6                         
026853,002971: 31,3030           17516                           STODL    BVECTOR    +12D                       
026854,002972: 31,3031           00001                                    0                                     
026855,002973: 31,3032           57526                           ACOS     DCOMP                                 
026856,002974: 31,3033           71206                           PUSH     DLOAD                                 
026857,002975: 31,3034           15334                                    ZEROVECS                              
026858,002976: 31,3035           77776                           EXIT                                           
026859,002977: 31,3036           33454                           CA       VARSUBL                               #  PUT FIXED INTO ERASABLE FOR MSU
026860,002978: 31,3037           54001                           TS       L                                     #  INSTRUCTION COMING UP
026861,002979: 31,3040           31754                           CA       TRUNION                               #  REQUIRED TO CHANGE 2:S COMPLEMENT
026862,002980: 31,3041           00006                           EXTEND                                         #  TRUNION TO 1:S COMPLEMENT
026863,002981: 31,3042           20001                           MSU      L                                     #  TRUNION (2'S)-00000 CONVERTS TRUNION TO
026864,002982: 31,3043           54154                           TS       MPAC                                  #  1:S.  VARSUBL=00000
026865,002983: 31,3044           06006                           TC       INTPRET                               
026866,002984: 31,3045           67206                           PUSH     SLOAD                                 #  PUSH IS DP.  WHEN BDSU IS EXECUTED, 2ND
026867,002985: 31,3046           01343                                    TRUNBIAS                              #  HALF OF PUSHLIST IS GUARANTEED ZERO FROM
026868,002986: 31,3047           77621                           BDSU                                           #  DLOAD ZEROVECS ABOVE
026869,002987: 31,3050           43242                           SR3      DAD                                   
026870,002988: 31,3051           41215                           DAD      DMP                                   
026871,002989: 31,3052           23451                                    TRUN19                                
026872,002990: 31,3053           00041                                    32D                                   
026873,002991: 31,3054           52405                           DMP      SL3                                   
026874,002992: 31,3055           07105                                    PI/4.0                                
026875,002993: 31,3056           62414                           BOFF     SL2                                   
026876,002994: 31,3057           04343                                    CMOONFLG                              
026877,002995: 31,3060           63061                                    R23.51                                
026878,002996: 31,3061           17524        R23.51             STODL    DELTAQ                                
026879,002997: 31,3062           00037                                    30D                                   #  RCLL * RCLL
026880,002998: 31,3063           47005                           DMP      RTB                                   
026881,002999: 31,3064           23460                                    TRUNVAR                               
026882,003000: 31,3065           45565                                    TPMODE                                
026883,003001: 31,3066           77771                           TAD                                            
026884,003002: 31,3067           23455                                    VARSUBL                               
026885,003003: 31,3070           03526                           STORE    VARIANCE                              
026886,003004: 31,3071           45014                           CLEAR    CALL                                  
026887,003005: 31,3072           02666                                    DMENFLG                               
026888,003006: 31,3073           75260                                    INCORP1                               
026889,003007: 31,3074           77624                           CALL                                           
026890,003008: 31,3075           56751                                    GRP2PC                                
026891,003009: 31,3076           51575                           VLOAD    ABVAL                                 
026892,003010: 31,3077           01265                                    DELTAX     +6                         
026893,003011: 31,3100           60414                           BOF      SR2                                   #  DISPLAY IS 2-27 IF IN LUNAR SPHERE
026894,003012: 31,3101           04343                                    CMOONFLG                              
026895,003013: 31,3102           63103                                    R23.52                                
026896,003014: 31,3103           27504        R23.52             STOVL    N49DISP    +2                         
026897,003015: 31,3104           01257                                    DELTAX                                
026898,003016: 31,3105           77646                           ABVAL                                          
026899,003017: 31,3106           60414                           BOF      SR2                                   
026900,003018: 31,3107           04343                                    CMOONFLG                              
026901,003019: 31,3110           63111                                    R23.53                                
026902,003020: 31,3111           03502        R23.53             STORE    N49DISP                               
026903,003021: 31,3112           77776                           EXIT                                           
026904,003022: 31,3113           33461        R23.6              CAF      V6N49                                 
026905,003023: 31,3114           04676                           TC       BANKCALL                              
026906,003024: 31,3115           21057                           CADR     GOFLASHR                              
026907,003025: 31,3116           04106                           TC       GOTOPOOH                              
026908,003026: 31,3117           03126                           TC       R23.7                                 #  INCORPORATE DATA
026909,003027: 31,3120           04106                           TC       GOTOPOOH                              
026910,003028: 31,3121           35031                           CAF      BIT3                                  #  BLANK OUT R3
026911,003029: 31,3122           05542                           TC       BLANKET                               
026912,003030: 31,3123           05426                           TC       PHASCHNG                              
026913,003031: 31,3124           00012                           OCT      00012                                 
026914,003032: 31,3125           05233                           TC       ENDOFJOB                              
026915,003033: 31,3126           06006        R23.7              TC       INTPRET                               
026916,003034: 31,3127           45014        R23.8              SET      CALL                                  
026917,003035: 31,3130           00467                                    VEHUPFLG                              
026918,003036: 31,3131           75472                                    INCORP2                               
026919,003037: 31,3132           77776                           EXIT                                           
026920,003038: 31,3133           04106        R23.END            TC       GOTOPOOH                              
026921,003039: 

Reconstruction: In Comanche 67 and earlier, R23.10 unconditionally transfers to P23.06. It was changed to check SAVECBIT and jump to the new label P23.61 if it is set in order to fix anomaly COM-29, "N70 instead of N71 display in P23". Unfortunately,
   CA    SAVECBIT
   MASK  FLAGWRD9
is an equally valid way to check the flag, and results in an identical memory bank checksum. It is therefore not possible for us to know the true order without finding more detailed original sources.

026933,003051: 31,3134           04400        R23.10             TC       FALTON                                
026934,003052: 31,3135           30105                           CA       FLAGWRD9                              
026935,003053: 31,3136           75022                           MASK     SAVECBIT                              
026936,003054: 31,3137           10000                           CCS      A                                     
026937,003055: 31,3140           12666                           TCF      P23.61                                
026938,003056: 31,3141           02444                           TC       P23.06                                
026939,003057: 31,3142           40220        HORIZ              STQ      SETPD                                 
026940,003058: 31,3143           03656                                    SRRETURN                              
026941,003059: 31,3144           00001                                    0                                     
026942,003060: 31,3145           65345                           DLOAD    PDDL                                  #  PUSH 0-1 = -AYO SCALED B0
026943,003061: 31,3146           01714                                    -AYO                                  
026944,003062: 31,3147           01716                                    AXO                                   
026945,003063: 31,3150           63325                           PDDL     PDVL                                  #  PUSH 2-3 = +AX SCALED B0
026946,003064: 31,3151           15342                                    DPPOSMAX                              
026947,003065: 31,3152           02617                                    US                                    
026948,003066: 31,3153           53435                           VXV      UNIT                                  
026949,003067: 31,3154           03627                                    RZC                                   
026950,003068: 31,3155           27621                           STOVL    UBAR2                                 
026951,003069: 31,3156           53435                           VXV      UNIT                                  #  PUSH UP
026952,003070: 31,3157           03621                                    UBAR2                                 
026953,003071: 31,3160           27605                           STOVL    UBAR0                                 
026954,003072: 31,3161           03621                                    UBAR2                                 
026955,003073: 31,3162           53435                           VXV      UNIT                                  
026956,003074: 31,3163           03605                                    UBAR0                                 
026957,003075: 31,3164           03613                           STORE    UBAR1                                 
026958,003076: 31,3165           50214                           BON      DOT                                   
026959,003077: 31,3166           01703                                    LUNAFLAG                              
026960,003078: 31,3167           63365                                    HORIZ.6                               
026961,003079: 31,3170           00001                                    0                                     #  UBAR1 DOT UZ
026962,003080: 31,3171           36156                           STCALL   ALPHAV     +4                         
026963,003081: 31,3172           26513                                    GETERAD                               
026964,003082: 31,3173           65215                           DAD      PDDL                                  #  MPAC HAS RADIUS OF FISHER SLLIPSOID
026965,003083: 31,3174           01351                                    HORIZALT                              #  PUSH 0-1 = BH SCALED B29
026966,003084: 31,3175           23445                                    AEARTH                                
026967,003085: 31,3176           41415                           DAD      PUSH                                  #  PUSH 2-3 = AH B29
026968,003086: 31,3177           01351                                    HORIZALT                              
026969,003087: 31,3200           64375        HORIZ.1            VLOAD    MXV                                   
026970,003088: 31,3201           03627                                    RZC                                   #  B29
026971,003089: 31,3202           03605                                    UBAR0                                 #  B1
026972,003090: 31,3203           63372                           VSL1     PDVL                                  #  PUSH 4-9 = RH(XH,YH,ZH) B29
026973,003091: 31,3204           02617                                    US                                    
026974,003092: 31,3205           76521                           MXV      VSL1                                  
026975,003093: 31,3206           03605                                    UBAR0                                 
026976,003094: 31,3207           77725                           PDDL                                           #  PUSH 10-15 = USH B1
026977,003095: 31,3210           00003                                    2                                     #  AH
026978,003096: 31,3211           14043                           STODL    34D                                   
026979,003097: 31,3212           00005                                    4                                     #  XH
026980,003098: 31,3213           77624                           CALL                                           
026981,003099: 31,3214           63371                                    DIVIDE                                
026982,003100: 31,3215           41257                           SR*      DMP                                   
026983,003101: 31,3216           20611                                    8D,1                                  #  NOW SCALED B9
026984,003102: 31,3217           00155                                    MPAC                                  
026985,003103: 31,3220           14037                           STODL    30D                                   
026986,003104: 31,3221           00001                                    0                                     
026987,003105: 31,3222           14043                           STODL    34D                                   
026988,003106: 31,3223           00007                                    6                                     #  YH
026989,003107: 31,3224           77624                           CALL                                           
026990,003108: 31,3225           63371                                    DIVIDE                                
026991,003109: 31,3226           41257                           SR*      DMP                                   
026992,003110: 31,3227           20611                                    8D,1                                  #  B9
026993,003111: 31,3230           00155                                    MPAC                                  #  B18
026994,003112: 31,3231           41415                           DAD      PUSH                                  #  PUSH 16-17 =A SCALED B18
026995,003113: 31,3232           00037                                    30D                                   
026996,003114: 31,3233           75425                           DSU      SQRT                                  
026997,003115: 31,3234           23453                                    1.0B18                                
026998,003116: 31,3235           77725                           PDDL                                           #  PUSH 18-19 SQRT(A-1) B9
026999,003117: 31,3236           00021                                    16D                                   
027000,003118: 31,3237           14043                           STODL    34D                                   
027001,003119: 31,3240           00005                                    4                                     #  XH
027002,003120: 31,3241           77624                           CALL                                           
027003,003121: 31,3242           63371                                    DIVIDE                                
027004,003122: 31,3243           65257                           SR*      PDDL                                  
027005,003123: 31,3244           20622                                    17D,1                                 #  PUSH 20-21 = XH/A B29
027006,003124: 31,3245           00007                                    6                                     #  YH
027007,003125: 31,3246           77624                           CALL                                           
027008,003126: 31,3247           63371                                    DIVIDE                                
027009,003127: 31,3250           65257                           SR*      PDDL                                  
027010,003128: 31,3251           20622                                    17D,1                                 #  PUSH 22-23 = YH/A B29
027011,003129: 31,3252           00021                                    16D                                   #  A
027012,003130: 31,3253           14043                           STODL    34D                                   
027013,003131: 31,3254           00023                                    18D                                   #  SQRT(A-1)
027014,003132: 31,3255           77624                           CALL                                           
027015,003133: 31,3256           63371                                    DIVIDE                                
027016,003134: 31,3257           77657                           SR*                                            
027017,003135: 31,3260           20611                                    8D,1                                  
027018,003136: 31,3261           14035                           STODL    28D                                   
027019,003137: 31,3262           00001                                    0                                     #  BH
027020,003138: 31,3263           14043                           STODL    34D                                   
027021,003139: 31,3264           00003                                    2                                     #  AH
027022,003140: 31,3265           77624                           CALL                                           
027023,003141: 31,3266           63371                                    DIVIDE                                
027024,003142: 31,3267           41257                           SR*      DMP                                   #  AH/BH SCALED B1
027025,003143: 31,3270           20601                                    0,1                                   
027026,003144: 31,3271           00035                                    28D                                   #  SQRT(A-1)/A
027027,003145: 31,3272           72405                           DMP      SL1                                   
027028,003146: 31,3273           00007                                    6                                     #  YH
027029,003147: 31,3274           77725                           PDDL                                           
027030,003148: 31,3275           00003                                    2                                     #  AH
027031,003149: 31,3276           14043                           STODL    34D                                   
027032,003150: 31,3277           00001                                    0                                     
027033,003151: 31,3300           77624                           CALL                                           
027034,003152: 31,3301           63371                                    DIVIDE                                
027035,003153: 31,3302           41257                           SR*      DMP                                   #  BH/AH SCALED B1
027036,003154: 31,3303           20601                                    0,1                                   
027037,003155: 31,3304           00035                                    28D                                   #  SQRT (A-1)/A
027038,003156: 31,3305           72405                           DMP      SL1                                   
027039,003157: 31,3306           00005                                    4                                     #  XH
027040,003158: 31,3307           43325                           PDDL     DAD                                   
027041,003159: 31,3310           00025                                    20D                                   #  XH/A
027042,003160: 31,3311           00031                                    24D                                   #  ALPHA
027043,003161: 31,3312           45325                           PDDL     DSU                                   
027044,003162: 31,3313           00027                                    22D                                   #  YH/A
027045,003163: 31,3314           00033                                    26D                                   #  BETA
027046,003164: 31,3315           40206                           PUSH     SETPD                                 
027047,003165: 31,3316           00021                                    16D                                   
027048,003166: 31,3317           45345                           DLOAD    DSU                                   
027049,003167: 31,3320           00025                                    20D                                   #  XH/A
027050,003168: 31,3321           00031                                    24D                                   #  ALPHA
027051,003169: 31,3322           43325                           PDDL     DAD                                   
027052,003170: 31,3323           00027                                    22D                                   #  YH/A
027053,003171: 31,3324           00033                                    26D                                   #  BETA
027054,003172: 31,3325           41525                           PDDL     PUSH                                  
027055,003173: 31,3326           15334                                    ZEROVECS                              
027056,003174: 31,3327           24041                           STOVL    32D                                   #  ZERO THIRD COMP. OF T-0 VECTOR
027057,003175: 31,3330           00035                                    28D                                   
027058,003176: 31,3331           53451                           VSU      UNIT                                  
027059,003177: 31,3332           00005                                    4                                     #  RH VECTOR
027060,003178: 31,3333           63241                           DOT      PDVL                                  #  PUSH 22-23 A-SUB-ZERO
027061,003179: 31,3334           00013                                    10D                                   #  USH VECTOR
027062,003180: 31,3335           00021                                    16D                                   #  T1 VECTOR
027063,003181: 31,3336           53451                           VSU      UNIT                                  
027064,003182: 31,3337           00005                                    4                                     #  RH VECTOR
027065,003183: 31,3340           41441                           DOT      PUSH                                  #  PUSH 24-25 A-SUB-ONE
027066,003184: 31,3341           00013                                    10D                                   
027067,003185: 31,3342           50021                           BDSU     BMN                                   
027068,003186: 31,3343           00027                                    22D                                   #  A-SUB-ZERO
027069,003187: 31,3344           63353                                    HORIZ.3                               
027070,003188: 31,3345           77614                           BON                                            
027071,003189: 31,3346           00304                                    NORFHOR                               
027072,003190: 31,3347           63357                                    HORIZ.4                               
027073,003191: 31,3350           52175        HORIZ.2            VLOAD    GOTO                                  
027074,003192: 31,3351           00035                                    28D                                   #  T-0 VECTOR
027075,003193: 31,3352           63361                                    HORIZ.5                               
027076,003194: 31,3353           52014        HORIZ.3            BON      GOTO                                  
027077,003195: 31,3354           00304                                    NORFHOR                               
027078,003196: 31,3355           63350                                    HORIZ.2                               
027079,003197: 31,3356           63357                                    HORIZ.4                               
027080,003198: 31,3357           77775        HORIZ.4            VLOAD                                          
027081,003199: 31,3360           00021                                    16D                                   #  T1 VECTOR
027082,003200: 31,3361           76505        HORIZ.5            VXM      VSL1                                  
027083,003201: 31,3362           03605                                    UBAR0                                 
027084,003202: 31,3363           77650                           GOTO                                           
027085,003203: 31,3364           03656                                    SRRETURN                              
027086,003204: 31,3365           41545        HORIZ.6            DLOAD    PUSH                                  
027087,003205: 31,3366           23447                                    RADMOON                               
027088,003206: 31,3367           52006                           PUSH     GOTO                                  
027089,003207: 31,3370           63200                                    HORIZ.1                               
027090,003208: 31,3371           70501        DIVIDE             NORM     SR1                                   
027091,003209: 31,3372           00047                                    X1                                    
027092,003210: 31,3373           14045                           STODL    36D                                   
027093,003211: 31,3374           00043                                    34D                                   
027094,003212: 31,3375           55301                           NORM     BDDV                                  
027095,003213: 31,3376           00051                                    S1                                    
027096,003214: 31,3377           00045                                    36D                                   
027097,003215: 31,3400           43460                           XSU,1    RVQ                                   
027098,003216: 31,3401           00050                                    S1                                    
027099,003217: 31,3402           77014        RECT.1             BOFF     AXT,2                                 #  SR TO SET ZMEASURE = 0 IF MEASUREMENT
027100,003218: 31,3403           04343                                    CMOONFLG                              #    PLANET AND PRIMARY PLANET ARE THE SAME
027101,003219: 31,3404           63414                                    RECT.3                                #      OTHERWISE = 1
027102,003220: 31,3405           77775                           DEC      -2         B-14                       
027103,003221: 31,3406           77614                           BOFF                                           #        VEC. AND SCALE B29 AND B7
027104,003222: 31,3407           01743                                    LUNAFLAG                              
027105,003223: 31,3410           63420                                    RECT.4                                
027106,003224: 31,3411           52014        RECT.2             CLEAR    GOTO                                  
027107,003225: 31,3412           00265                                    ZMEASURE                              
027108,003226: 31,3413           63422                                    RECT.5                                
027109,003227: 31,3414           43174        RECT.3             AXT,2    BOFF                                  
027110,003228: 31,3415           00000                                    0                                     
027111,003229: 31,3416           01743                                    LUNAFLAG                              
027112,003230: 31,3417           63411                                    RECT.2                                
027113,003231: 31,3420           77614        RECT.4             SET                                            
027114,003232: 31,3421           00065                                    ZMEASURE                              
027115,003233: 31,3422           44575        RECT.5             VLOAD    VSR7                                  
027116,003234: 31,3423           01573                                    DELTACSM                              #  SCALED B22 OR B18
027117,003235: 31,3424           53257                           VSR*     VAD                                   
027118,003236: 31,3425           57176                                    0,2                                   
027119,003237: 31,3426           01607                                    RCVCSM                                #  SCALED B29 OR B27
027120,003238: 31,3427           77657                           VSR*                                           
027121,003239: 31,3430           57176                                    0,2                                   
027122,003240: 31,3431           27627                           STOVL    RZC                                   #  NOW SCALED B29
027123,003241: 31,3432           01601                                    NUVCSM                                #  SCALED B3 OR B-1
027124,003242: 31,3433           53702                           VSR4     VSR*                                  
027125,003243: 31,3434           57176                                    0,2                                   
027126,003244: 31,3435           53655                           VAD      VSR*                                  
027127,003245: 31,3436           01615                                    VCVCSM                                #  SCALED B7 OR B5
027128,003246: 31,3437           57176                                    0,2                                   
027129,003247: 31,3440           03635                           STORE    VZC                                   #  NOW SCALED B7
027130,003248: 31,3441           77616                           RVQ                                            
027131,003249: 31,3442           26305 05432  ONE/C              2DEC*    .333564049 E-6        B+21*           
027132,003250: 31,3444           00302 24533  AEARTH             2DEC     6378166    B-29                       #  A AXIS OF EARTH (METERS B-29)
027133,003251: 31,3446           00065 01265  RADMOON            2DEC     1738090    B-29                       #  RADIUS OF MOON IN METERS
027134,003252: 
027135,003253: 
027136,003254: 31,3450           01604        TRUN19             OCT      01604                                 
027137,003255: 31,3451           00000        TRUN19A            OCT      00000                                 
027138,003256: 31,3452           00000 02000  1.0B18             2DEC     1.0        B-18                       
027139,003257: 31,3454           00000        VARSUBL            DEC      0          B-14                       
027140,003258: 31,3455           01505 14100  VARSUBL3           2DEC*    3.4299040  E+6        B-26*           
027141,003259: 31,3457           00012 27462  TRUNVAR            2DEC     2.5        E-9        B+18            
027142,003260: 31,3461           01461        V6N49              VN       0649                                  
027143,003261: 31,3462           01306        V05N70             VN       0570                                  
027144,003262: 31,3463           01307        V05N71             VN       0571                                  
027145,003263: 31,3464           00077        OCT00077           OCT      00077                                 
027146,003264: 31,3465           00202        V50N25P            OCT      00202                                 
027147,003265: 31,3466           00006        SPSIX              OCT      00006                                 
027148,003266: 31,3467           10464 12467  JCAXIS             2DEC     .2688190620                            #  1/2(SIN 32.523 DEG)  TRACK AXIS
027149,003267: 31,3471           00000 00000                     2DEC     0          B-28                       
027150,003268: 31,3473           15373 11346                     2DEC     .4215878460                            #  1/2(COS 32.523 DEG)
027151,003269: 31,3475           62622        R60ADRS            CADR     R60CALL    +3                         
027152,003270: 31,3476           77732        NEG37              DEC      -37        B-14                       
027153,003271: 31,3477           00700        BITS7-9            OCT      700                                   
027154,003272: 31,3500           00070        BITS4-6            OCT      70                                    
027155,003273: 14,2000                                           SETLOC   RT53                                  
027156,003274: 14,2000                                           BANK                                           
027157,003275: 14,2000           43573        LOWMEMRY           VLOAD*   RVQ                                   
027158,003276: 14,2001           31765                                    CATLOG,1                              
027159,003277: 37,2640                                           BANK     37                                    
027160,003278: 16,2000                                           SETLOC   P23S1                                 
027161,003279: 16,2000                                           BANK                                           
027162,003280: 16,2000           77776        LDPLANET           EXIT                                           #  KEEP THIS OPEN SUBROUTINE IN EBANK=5
027163,003281: 16,2001           32017                           CAF      VNPLAN23                              #  BECAUSE STAR IS EBANK=5
027164,003282: 16,2002           04676                           TC       BANKCALL                              #  LDPLANET ALLOWS VECTOR TO PLANET TO BE
027165,003283: 16,2003           20720                           CADR     GOFLASH                               #  STORED IN STARSAV2 IF STORED STARS ARE
027166,003284: 16,2004           04106                           TC       GOTOPOOH                              #  NOT VISIBLE.
027167,003285: 16,2005           02007                           TC       +2                                    
027168,003286: 16,2006           02001                           TC       -5                                    
027169,003287: 16,2007           06006                           TC       INTPRET                               
027170,003288: 16,2010           77775                           VLOAD                                          
027171,003289: 16,2011           03705                                    STARSAV3                              
027172,003290: 16,2012           53561                           VXSC     UNIT                                  
027173,003291: 16,2013           32433                                    1/SQR3                                
027174,003292: 16,2014           02617                           STORE    STARSAV2                              
027175,003293: 16,2015           77650                           GOTO                                           
027176,003294: 16,2016           62563                                    P23.31                                
027177,003295: 16,2017           01530        VNPLAN23           VN       0688                                  
027178,003296:    4622                                           BLOCK    02                                    
027179,003297:    4622           00006        GOTOV56            EXTEND                                         #  P20 TERMINATES BY GOTOV56 INSTEAD OF
027180,003298:    4623           34626                           DCA      VB56CADR                              #        GOTOPOOH
027181,003299:    4624           15243                           TCF      SUPDXCHZ                              
027182,003300:    4625  E7,1777                                  EBANK=   WHOCARES                              
027183,003301:    4625           02652 66107  VB56CADR           2CADR    TRACKTRM                              
027184,003302: 
027185,003303:    4000                                           SETLOC   FFTAG2                                
027186,003304:    4000                                           BANK                                           
027187,003305:    4627                                           COUNT*   $$/P20                                
027188,003306: 40,3632                                           BANK     40                                    
027189,003307: 40,3606                                           SETLOC   ENDPINS1                              
027190,003308: 40,3606                                           BANK                                           
027191,003309: 40,3632                                           COUNT*   $$/EXTVB                              
027192,003310: 40,3632           06006        V67CALL            TC       INTPRET                               
027193,003311: 40,3633           77624                           CALL                                           
027194,003312: 40,3634           61707                                    V67WW                                 
027195,003313: 40,3635           77776                           EXIT                                           
027196,003314: 40,3636           33771        V06N99DS           CAF      V06N99A                               
027197,003315: 40,3637           04676                           TC       BANKCALL                              
027198,003316: 40,3640           20561                           CADR     GOXDSPF                               
027199,003317: 40,3641           15550                           TCF      ENDEXT                                
027200,003318: 40,3642           03644                           TC       V06N9933                              
027201,003319: 40,3643           03636                           TC       V06N99DS                              
027202,003320: 40,3644           06006        V06N9933           TC       INTPRET                               
027203,003321: 40,3645           46135                           SLOAD    BHIZ                                  #  IF R3 OF V67 = 0 EXIT
027204,003322: 40,3646           02325                                    WWOPT                                 
027205,003323: 40,3647           61652                                    +3                                    
027206,003324: 40,3650           77650                           GOTO                                           
027207,003325: 40,3651           61654                                    V6N99INP                              
027208,003326: 40,3652           77776                           EXIT                                           
027209,003327: 40,3653           15550                           TCF      ENDEXT                                
027210,003328: 40,3654           73150        V6N99INP           LXA,1    LXA,2                                 
027211,003329: 40,3655           02320                                    WWPOS                                 
027212,003330: 40,3656           02322                                    WWVEL                                 
027213,003331: 40,3657           45335                           SLOAD    DSU                                   
027214,003332: 40,3660           02325                                    WWOPT                                 
027215,003333: 40,3661           21775                                    V67DEC2                               
027216,003334: 40,3662           51030                           BHIZ     BPL                                   
027217,003335: 40,3663           61672                                    V67WORB                               
027218,003336: 40,3664           61677                                    V67WMID                               
027219,003337: 40,3665           67130                           SXA,1    SXA,2                                 
027220,003338: 40,3666           02000                                    WRENDPOS                              
027221,003339: 40,3667           02001                                    WRENDVEL                              
027222,003340: 40,3670           77650                           GOTO                                           
027223,003341: 40,3671           61702                                    V67EXITX                              
027224,003342: 40,3672           67130        V67WORB            SXA,1    SXA,2                                 
027225,003343: 40,3673           02004                                    WORBPOS                               
027226,003344: 40,3674           02005                                    WORBVEL                               
027227,003345: 40,3675           77650                           GOTO                                           
027228,003346: 40,3676           61702                                    V67EXITX                              
027229,003347: 40,3677           67130        V67WMID            SXA,1    SXA,2                                 
027230,003348: 40,3700           03000                                    WMIDPOS                               
027231,003349: 40,3701           03001                                    WMIDVEL                               
027232,003350: 40,3702           43014        V67EXITX           CLEAR    CLEAR                                 
027233,003351: 40,3703           01671                                    ORBWFLAG                              
027234,003352: 40,3704           02676                                    RENDWFLG                              
027235,003353: 40,3705           77776                           EXIT                                           
027236,003354: 40,3706           15550                           TCF      ENDEXT                                
027237,003355: 40,3707           40020        V67WW              STQ      BOV                                   
027238,003356: 40,3710           00051                                    S2                                    
027239,003357: 40,3711           61712                                    +1                                    
027240,003358: 40,3712           77624                           CALL                                           
027241,003359: 40,3713           27446                                    INTSTALL                              
027242,003360: 40,3714           71331                           SSP      DLOAD                                 
027243,003361: 40,3715           00051                                    S1                                    
027244,003362: 40,3716           00006                           DEC      6          B-14                       
027245,003363: 40,3717           15334                                    ZEROVECS                              
027246,003364: 40,3720           02321                           STORE    WWPOS                                 
027247,003365: 40,3721           02323                           STORE    WWVEL                                 
027248,003366: 40,3722           02325                           STORE    WWOPT                                 
027249,003367: 40,3723           77770                           AXT,1                                          
027250,003368: 40,3724           00044                           DEC      36         B-14                       
027251,003369: 40,3725           47573        NXPOSVEL           VLOAD*   VSQ                                   
027252,003370: 40,3726           02445                                    W          +36D,1                     
027253,003371: 40,3727           77615                           DAD                                            
027254,003372: 40,3730           02321                                    WWPOS                                 
027255,003373: 40,3731           02321                           STORE    WWPOS                                 
027256,003374: 40,3732           47573                           VLOAD*   VSQ                                   
027257,003375: 40,3733           02533                                    W          +90D,1                     
027258,003376: 40,3734           77615                           DAD                                            
027259,003377: 40,3735           02323                                    WWVEL                                 
027260,003378: 40,3736           02323                           STORE    WWVEL                                 
027261,003379: 40,3737           75500                           TIX,1    SQRT                                  
027262,003380: 40,3740           61725                                    NXPOSVEL                              
027263,003381: 40,3741           16323                           STODL    WWVEL                                 
027264,003382: 40,3742           02321                                    WWPOS                                 
027265,003383: 40,3743           77766                           SQRT                                           
027266,003384: 40,3744           02321                           STORE    WWPOS                                 
027267,003385: 40,3745           52000                           BOV      GOTO                                  
027268,003386: 40,3746           61750                                    +2                                    
027269,003387: 40,3747           61754                                    V67XXX                                
027270,003388: 40,3750           77745                           DLOAD                                          
027271,003389: 40,3751           15342                                    DPPOSMAX                              
027272,003390: 40,3752           02321                           STORE    WWPOS                                 
027273,003391: 40,3753           02323                           STORE    WWVEL                                 
027274,003392: 40,3754           45345        V67XXX             DLOAD    DSU                                   
027275,003393: 40,3755           02321                                    WWPOS                                 
027276,003394: 40,3756           21773                                    FT99999                               
027277,003395: 40,3757           71240                           BMN      DLOAD                                 
027278,003396: 40,3760           61763                                    +3                                    
027279,003397: 40,3761           21773                                    FT99999                               
027280,003398: 40,3762           02321                           STORE    WWPOS                                 
027281,003399: 40,3763           66150                           LXA,1    SXA,1                                 
027282,003400: 40,3764           00051                                    S2                                    
027283,003401: 40,3765           00052                                    QPRET                                 
027284,003402: 40,3766           77776                           EXIT                                           
027285,003403: 40,3767           04715                           TC       POSTJUMP                              
027286,003404: 40,3770           27463                           CADR     INTWAKE                               
027287,003405: 40,3771  E4,1720               WWPOS              =        RANGE                                 
027288,003406: 40,3771  E4,1722               WWVEL              =        RRATE                                 
027289,003407: 40,3771  E4,1724               WWOPT              =        RTHETA                                
027290,003408: 40,3771           01543        V06N99A            VN       0699                                  
027291,003409: 40,3772           01670 17000  FT99999            2DEC     30479      B-19                       
027292,003410: 40,3774           00002 00000  V67DEC2            2DEC     2          B-14                       
027293,003411: 40,3776  30,2000                                  SBANK=   LOWSUPER                              

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