Source Code

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

They have been adapted from sources files created from a listing of Comanche 55. These source files were updated to match binary dumps of a set of Comanche 67 rope modules. They were then further modified by applying known changes between Comanche 67 and Comanche 72. A binary dump of module B2 of Comanche 72, part number 2010802-021, was also used to validate changes made to banks 05-13. 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 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.

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

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

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.

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

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