Source Code

These source-code files are part of a reconstructed copy of Comanche 45/2 (AKA Manche45 revision 2), the final, flown mission release of the Apollo 10 Command Module (CM) Apollo Guidance Computer (AGC) software. Comanche 45/2 was preceded by Comanche 44 and Comanche 45. The reconstruction is believed to be exactly accurate, but in the absence of an actual Apollo-era listing of Comanche 45/2, some explanation of the reconstruction process is needed to insure confidence in that accuracy.

The starting point was the source code of Comanche 45 (itself previously accurately reconstructed). Comanche 45 source code was then modified by incorporating changes known from contemporary documentation to have been made between revisions 45 and 45/2. The now-reconstructed Comanche 45/2 source code was verified by assembling it and checking that the assembled code had the expected known-correct memory-bank checksums. Note that page numbers in the reconstructed code tend to match those in the Comanche 55, the most-similar revision of Comanche for which we have access to an actual non-reconstructed hardcopy; the source code would likely have different page numbers in a contemporary Comanche 45 listing.

Annotations that were not present in the contemporary source code have been added to the reconstructed code to justify each change relative to Comanche 44. Here's a guide to the Apollo documentation referenced in those annotations:
Comments expected to have been present in the original source code are prefixed with a single '#' symbol, whereas comments added later are prefixed by "##" or "###". Report any errors noted by creating an issue report at the Virtual AGC Project's GitHub repository.

024237,000002:                                                                                                  ## Copyright:   Public domain.
024238,000003:                                                                                                  ## Filename:    P20-P25.agc
024239,000004:                                                                                                  ## Purpose:     A section of Manche45 revision 2.
024240,000005:                                                                                                  ##              It is part of the reconstructed source code for the
024241,000006:                                                                                                  ##              final, flown release of the flight software for the Command
024242,000007:                                                                                                  ##              Module's (CM) Apollo Guidance Computer (AGC) for Apollo 10.
024243,000008:                                                                                                  ##              The code has been recreated from a copy of Comanche 055. It
024244,000009:                                                                                                  ##              has been adapted such that the resulting bugger words
024245,000010:                                                                                                  ##              exactly match those specified for Manche 45/2 in NASA drawing
024246,000011:                                                                                                  ##              2021153D, which gives relatively high confidence that the
024247,000012:                                                                                                  ##              reconstruction is correct.
024248,000013:                                                                                                  ## Assembler:   yaYUL
024249,000014:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
024250,000015:                                                                                                  ## Website:     www.ibiblio.org/apollo/index.html
024251,000016:                                                                                                  ## Mod history: 2020-12-24 MAS  Created from Comanche 45.
024252,000017:                                                                                                  ##              2021-05-30 ABS  $/CRS61 -> $$CRS/61
024253,000018: 

Page 562

024255,000020:                                                                                                  #  RENDEZVOUS NAVIGATION PROGRAM 20
024256,000021: 
024257,000022:                                                                                                  #  PROGRAM DESCRIPTION
024258,000023: 
024259,000024:                                                                                                  #        MOD NO -1
024260,000025:                                                                                                  #        MOD BY - N.BRODEUR
024261,000026: 
024262,000027:                                                                                                  #  FUNCTIONAL DESCRIPTION
024263,000028: 
024264,000029:                                                                                                  #        TO CONTROL THE CSM ATTITUDE AND OPTICS TO ACQUIRE THE LEM IN THE S+T
024265,000030:                                                                                                  #        FIELD AND TO POINT THE CSM TRANSPONDER AT THE LEM.  TO UPDATE EITHER THE
024266,000031:                                                                                                  #        LEM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY THE DSKY
024267,000032:                                                                                                  #        ENTRY) ON THE BASIS OF OPTICAL TRACKING DATA (REQUESTED BY DSKY)
024268,000033: 
024269,000034:                                                                                                  #  CALLING SEQUENCE -
024270,000035: 
024271,000036:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V37E20E
024272,000037: 
024273,000038:                                                                                                  #  SUBROUTINES CALLED-
024274,000039: 
024275,000040:                                                                                                  #        R02BOTH (IMU STATUS CHECK)                              BANKCALL
024276,000041:                                                                                                  #        FLAGUP                          2PHSCHNG                LOADTIME
024277,000042:                                                                                                  #        R61CSM (PREFERRED TRACKING ATTITUDE)                    FLAGDOWN
024278,000043:                                                                                                  #        R52 (AUTO OPTICS POSITIONING ROUT)                      SETINTG
024279,000044:                                                                                                  #        R22 (REND TRACK DATA PROC ROUT)                         PRIOCHNG
024280,000045:                                                                                                  #        ENDOFJOB                        INTEGRV                 GRP2PC
024281,000046:                                                                                                  #        INTPRET                         MKRLEES                 FINDVAC
024282,000047: 
024283,000048:                                                                                                  #  NORMAL EXIT MODES -
024284,000049: 
024285,000050:                                                                                                  #        P20 MAY BE TERMINATED IN TWO WAYS-ASTRONAUT SELECTION OF IDLING
024286,000051:                                                                                                  #        PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
024287,000052: 
024288,000053:                                                                                                  #  ALARM OR ABORT EXIT MODES -
024289,000054: 
024290,000055:                                                                                                  #        NONE DIRECTLY FROM P20
024291,000056: 
024292,000057:                                                                                                  #  OUTPUT
024293,000058: 
024294,000059:                                                                                                  #        TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
024295,000060:                                                                                                  #        VHFCNT = NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
024296,000061: 
024297,000062:                                                                                                  #  FLAGS SET + RESET
024298,000063: 
024299,000064:                                                                                                  #        RNDVZFLG,VEHUPFLG,UPDATFLG,TRACKFLG,TARG1FLG
024300,000065:                                                                                                  #        HOLDFLAG,WBODY,WBODY1,WBODY2,DELCDUX,DELCDUY,DELCDUZ
024301,000066:                                                                                                  #        STIKFLAG,PRFTRKAT,VINTFLAG,DIM0FLAG,R60FLAG,R61CNTR
024302,000067: 
024303,000068: 33,3776                                           BANK     33                                    
024304,000069: 37,2000                                           SETLOC   P20S                                  
024305,000070: 37,2000                                           BANK                                           
024306,000071: 
024307,000072: 37,2260  E6,1413                                  EBANK=   ESTROKER                              
024308,000073: 37,2260                                           COUNT*   $$/P20                                
024309,000074: 
024310,000075: 37,2260           04662        PROG20             TC       BANKCALL                              
024311,000076: 37,2261           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
024312,000077:                                                                                                  #  BLOCKING OF UPLINK IS DONE BY UPLINK PRG
024313,000078: 37,2262           35021                           CAF      ZERO                                  
024314,000079: 37,2263           55126                           TS       TRKMKCNT                              #  ZERO REND TRACKING MARK COUNTER
024315,000080: 37,2264           55125                           TS       VHFCNT                                #  ZERO REND VHF RNG MRK COUNTER
024316,000081: 37,2265           05546                           TC       UPFLAG                                #  SET PREF TRACK ATT FLAG
024317,000082: 37,2266           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
024318,000083: 37,2267           05560                           TC       DOWNFLAG                              #  LEM TO BE UPDATED.  VEHUPFLG RESET.
024319,000084: 37,2270           00026                           ADRES    VEHUPFLG                              #  BIT 8 FLAG 1

Page 563

024321,000086: 37,2271           05546                           TC       UPFLAG                                #  SET TRACKFLAG
024322,000087: 37,2272           00031                           ADRES    TRACKFLG                              #  BIT 5 FLAG 1
024323,000088: 37,2273           05546                           TC       UPFLAG                                #  SET UPDATFLG
024324,000089: 37,2274           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1
024325,000090: 37,2275           05546                           TC       UPFLAG                                #  SET RNDVZFLG
024326,000091: 37,2276           00010                           ADRES    RNDVZFLG                              #  BIT 7 FLAG 0
024327,000092: 37,2277           05372                           TC       2PHSCHNG                              
024328,000093: 37,2300           00004                           OCT      4                                     
024329,000094: 37,2301           05022                           OCT      05022                                 
024330,000095: 37,2302           26000                           OCT      26000                                 
024331,000096: 37,2303           06006                           TC       INTPRET                               
024332,000097: 37,2304           77634                           RTB                                            
024333,000098: 37,2305           45510                                    LOADTIME                              
024334,000099: 37,2306           35225                           STCALL   MARKTIME                              
024335,000100: 37,2307           56343                                    SETINTG                               #  SET INTEGRATION FLAGS
024336,000101: 37,2310           43014                           BOFF     SET                                   
024337,000102: 37,2311           02756                                    RENDWFLG                              
024338,000103: 37,2312           76314                                    P20.1                                 
024339,000104: 37,2313           01476                                    DIM0FLAG                              #  SET TO INTEGRATE THE W MATRIX
024340,000105: 37,2314           43014        P20.1              BON      CLEAR                                 
024341,000106: 37,2315           00707                                    VEHUPFLG                              
024342,000107: 37,2316           76320                                    P20.2                                 
024343,000108: 37,2317           01674                                    VINTFLAG                              #  SET FOR LM INTEGRATION
024344,000109: 37,2320           77624        P20.2              CALL                                           
024345,000110: 37,2321           27162                                    INTEGRV                               
024346,000111: 37,2322           77624                           CALL                                           
024347,000112: 37,2323           56750                                    GRP2PC                                #  GROUP 2 PHASE CHANGE
024348,000113: 37,2324           77624                           CALL                                           
024349,000114: 37,2325           56343                                    SETINTG                               #  SET INTEGRATION FLAGS
024350,000115: 37,2326           43014                           BOFF     CLEAR                                 
024351,000116: 37,2327           00747                                    VEHUPFLG                              
024352,000117: 37,2330           76332                                    P20.3                                 
024353,000118: 37,2331           01674                                    VINTFLAG                              #  SET FOR LM INTEGRATION
024354,000119: 37,2332           77624        P20.3              CALL                                           
024355,000120: 37,2333           27162                                    INTEGRV                               
024356,000121: 37,2334           77776                           EXIT                                           
024357,000122: 37,2335           37663                           CAF      PRIO26                                
024358,000123: 37,2336           05147                           TC       FINDVAC                               
024359,000124: 37,2337  E7,1734                                  EBANK=   MRKBUF2                               
024360,000125: 37,2337           02630 70067                     2CADR    R22                                   
024361,000126: 
024362,000127: 37,2341           05372                           TC       2PHSCHNG                              
024363,000128: 37,2342           00072                           OCT      00072                                 
024364,000129: 37,2343           00111                           OCT      00111                                 
024365,000130: 37,2344           35066        PIKUP20            CAF      PRIO14                                #  ALLOW HIGHER PRIO THAN LAMBERT
024366,000131: 37,2345           05210                           TC       PRIOCHNG                              
024367,000132: 37,2346           35013                           CAF      BIT5                                  #  IS TRACK FLAG SET
024368,000133: 37,2347           70075                           MASK     STATE      +1                         
024369,000134: 37,2350           00006                           EXTEND                                         
024370,000135: 37,2351           15217                           BZF      ENDOFJOB                              #  NO

Page 564

024372,000137: 37,2352           35003                           CAF      BIT13                                 
024373,000138: 37,2353           70077                           MASK     STATE      +3                         #  IS REFSMFLG SET
024374,000139: 37,2354           00006                           EXTEND                                         
024375,000140: 37,2355           15217                           BZF      ENDOFJOB                              
024376,000141: 37,2356           35021                           CAF      ZERO                                  
024377,000142: 37,2357           55775                           TS       R61CNTR                               #  INITIALIZE R61 COUNTER
024378,000143: 37,2360           04662                           TC       BANKCALL                              
024379,000144: 37,2361           76556                           CADR     R61CSM                                
024380,000145: 37,2362  E5,1777                                  EBANK=   QMIN                                  
024381,000146: 37,2362           35056                           CAF      EBANK5                                
024382,000147: 37,2363           54003                           TS       EBANK                                 
024383,000148: 37,2364           05546                           TC       UPFLAG                                #  SET TARGET FLAG TO LEM
024384,000149: 37,2365           00024                           ADRES    TARG1FLG                              #  BIT 10 FLAG 1
024385,000150: 37,2366           06006        P20R52JB           TC       INTPRET                               
024386,000151: 37,2367           77624                           CALL                                           
024387,000152: 37,2370           30011                                    R52                                   #  SET UP AUTO OPTICS JOB
024388,000153: 37,2371           77776                           EXIT                                           
024389,000154: 37,2372           04662                           TC       BANKCALL                              
024390,000155: 37,2373           16071                           CADR     MKRLEES                               
024391,000156: 37,2374           35017                           CAF      ONE                                   #  HOLD PRESENT ATTITUDE
024392,000157: 37,2375           55332                           TS       HOLDFLAG                              
024393,000158: 37,2376           05217                           TC       ENDOFJOB                              
024394,000159: 37,2377           00203        OCT203             OCT      00203                                 
024395,000160: 37,2400     7707               FIRST3             EQUALS   FURST3                                
024396,000161: 

Page 565

024398,000163:                                                                                                  #  ORBITAL NAVIGATION PROGRAM 22
024399,000164: 
024400,000165: 31,2332                                           BANK     31                                    
024401,000166: 30,2000                                           SETLOC   P20S1                                 
024402,000167: 30,2000                                           BANK                                           
024403,000168: 
024404,000169: 30,2000  E5,1751                                  EBANK=   LANDMARK                              
024405,000170: 30,2000                                           COUNT*   $$/P22                                
024406,000171: 
024407,000172: 30,2000           05560        PROG22             TC       DOWNFLAG                              #  RESET RNDVZFLG BIT 7 FLAG 0
024408,000173: 30,2001           00010                           ADRES    RNDVZFLG                              
024409,000174: 30,2002           04662                           TC       BANKCALL                              
024410,000175: 30,2003           17653                           CADR     R02BOTH                               #  IMU STATUS CHECK
024411,000176: 30,2004           06006                           TC       INTPRET                               #  COMPUTE ANGLE BETWEEN Y AND VXR SM
024412,000177: 30,2005           77634                           RTB                                            
024413,000178: 30,2006           45510                                    LOADTIME                              
024414,000179: 30,2007           34041                           STCALL   TDEC1                                 
024415,000180: 30,2010           27114                                    CSMCONIC                              #  INTEGRATE TO PRESENT TIME
024416,000181: 30,2011           47375                           VLOAD    VXV                                   #  CROSS PRODUCT BETWEEN V AND R
024417,000182: 30,2012           00007                                    VATT                                  
024418,000183: 30,2013           00001                                    RATT                                  
024419,000184: 30,2014           50256                           UNIT     DOT                                   
024420,000185: 30,2015           01744                                    REFSMMAT   +6                         
024421,000186: 30,2016           77646                           ABS                                            
024422,000187: 30,2017           65552                           SL1      ARCCOS                                
024423,000188: 30,2020           03626                           STORE    +MGA                                  
024424,000189: 30,2021           77414                           CLEAR    EXIT                                  
024425,000190: 30,2022           02676                                    RENDWFLG                              
024426,000191: 30,2023           32114                           CAF      V06N45B                               
024427,000192: 30,2024           04662                           TC       BANKCALL                              
024428,000193: 30,2025           21057                           CADR     GOFLASHR                              
024429,000194: 30,2026           04106                           TC       GOTOPOOH                              #  TERM P22
024430,000195: 30,2027           02034                           TC       PROG22A                               #  PROC
024431,000196: 30,2030           02023                           TC       -5                                    #  ENTER
024432,000197: 30,2031           36214                           CAF      THREE                                 
024433,000198: 30,2032           05526                           TC       BLANKET                               #  BLANK OUT R1 + R2
024434,000199: 30,2033           05217                           TC       ENDOFJOB                              
024435,000200: 30,2034           45063        PROG22A            CS       PRIO7                                 #  RESULT=70777  SET OFFSET NO.=0
024436,000201: 30,2035           71751                           MASK     LANDMARK                              
024437,000202: 30,2036           55751                           TS       LANDMARK                              
024438,000203: 30,2037           06006                           TC       INTPRET                               
024439,000204: 30,2040           77614                           CLEAR                                          
024440,000205: 30,2041           01664                                    P22MKFLG                              
024441,000206: 30,2042           43014                           SET      BOFF                                  
024442,000207: 30,2043           00462                                    ERADFLAG                              
024443,000208: 30,2044           04343                                    CMOONFLG                              
024444,000209: 30,2045           60055                                    PROG22B                               #  EARTH
024445,000210: 30,2046           77614                           SET                                            #  MOON
024446,000211: 30,2047           01463                                    LUNAFLAG                              
024447,000212: 30,2050           45145                           DLOAD    CALL                                  #  MPAC=V05N70,MPAC+1=NONZERO FOR N70
024448,000213: 30,2051           20116                                    V05N7022                              

Page 566

024450,000215: 30,2052           60175                                    S22N7071                              
024451,000216: 30,2053           77650                           GOTO                                           
024452,000217: 30,2054           60062                                    CALLR52                               
024453,000218: 30,2055           43014        PROG22B            CLEAR    SET                                   #  EARTH ORBIT
024454,000219: 30,2056           01663                                    LUNAFLAG                              
024455,000220: 30,2057           03067                                    KNOWNFLG                              
024456,000221: 30,2060           77624                           CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024457,000222: 30,2061           60143                                    P22SUBRB                              
024458,000223: 30,2062           77776        CALLR52            EXIT                                           
024459,000224: 30,2063           05372                           TC       2PHSCHNG                              
024460,000225: 30,2064           00004                           OCT      00004                                 
024461,000226: 30,2065           05022                           OCT      05022                                 
024462,000227: 30,2066           13000                           OCT      13000                                 
024463,000228: 30,2067           35022                           CAF      FIVE                                  
024464,000229: 30,2070           54301                           TS       MARKINDX                              #  SET MARK INDEX=5 FOR R52
024465,000230: 30,2071           05546                           TC       UPFLAG                                
024466,000231: 30,2072           00025                           ADRES    TARG2FLG                              #  SET FOR SIGHTING LMK
024467,000232: 30,2073           05560                           TC       DOWNFLAG                              
024468,000233: 30,2074           00024                           ADRES    TARG1FLG                              #  CLEAR FOR NON-LEM
024469,000234: 30,2075           06006                           TC       INTPRET                               
024470,000235: 30,2076           77624                           CALL                                           
024471,000236: 30,2077           30011                                    R52                                   
024472,000237: 30,2100           45135        DOV5N71            SLOAD    CALL                                  #  MPAC=V05N71,MPAC+1=0 FOR N71
024473,000238: 30,2101           20117                                    V05N7122                              
024474,000239: 30,2102           60175                                    S22N7071                              
024475,000240: 30,2103           66744        PROG22C            LXC,2    SLOAD*                                
024476,000241: 30,2104           01330                                    MARKSTAT                              
024477,000242: 30,2105           77724                                    QPRET,2                               
024478,000243: 30,2106           36750                           STCALL   8NN                                   
024479,000244: 30,2107           60312                                    S22.1                                 #  ESTABLISH LANDMARK - COMPUTE ORBITAL
024480,000245: 30,2110           77776        P22OVER            EXIT                                           
024481,000246: 30,2111           05412                           TC       PHASCHNG                              
024482,000247: 30,2112           04022                           OCT      04022                                 
024483,000248: 30,2113           02034                           TC       PROG22A                               #  POINT A ON GSOP
024484,000249: 30,2114           01455        V06N45B            VN       0645                                  
024485,000250: 30,2115           01306        V05N7022           VN       00570                                 
024486,000251: 30,2116           01307        V05N7122           VN       00571                                 
024487,000252: 37,2000                                           SETLOC   P20S                                  
024488,000253: 37,2000                                           BANK                                           
024489,000254: 
024490,000255: 30,2000                                           SETLOC   P20S1                                 
024491,000256: 30,2000                                           BANK                                           
024492,000257: 
024493,000258: 30,2117           77634        S22LSITE           RTB                                            #  CONVERT RLS FROM MOON-FIXED TO BASIC REF
024494,000259: 30,2120           45510                                    LOADTIME                              
024495,000260: 30,2121           24007                           STOVL    6D                                    #  6-7D= TIME
024496,000261: 30,2122           02026                                    RLS                                   
024497,000262: 30,2123           14001                           STODL    0D                                    #  0-5D= LANDING SITE VECTOR
024498,000263: 30,2124           15333                                    HIDPHALF                              #  MPAC= ANY NON-ZERO FOR MOON
024499,000264: 30,2125           77624                           CALL                                           

Page 567

024501,000266: 30,2126           55344                                    RP-TO-R                               #  RLS IN BASIC REF B-27 IN MPAC
024502,000267: 30,2127           77742                           VSR2                                           #  LUNAFLAG AND ERADFLAG SET ABOVE
024503,000268: 30,2130           02152                           STORE    ALPHAV                                #  SCALE RLS B-29 FOR LAT-LONG
024504,000269: 30,2131           77634                           RTB                                            
024505,000270: 30,2132           45510                                    LOADTIME                              #  SET PRESENT TIME IN MPAC FOR LAT-LONG
024506,000271: 30,2133           77624                           CALL                                           
024507,000272: 30,2134           26370                                    LAT-LONG                              
024508,000273: 30,2135           77650                           GOTO                                           
024509,000274: 30,2136           03667                                    S22TOFF                               #  EXIT
024510,000275: 30,2137           77624        OBTAINLL           CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024511,000276: 30,2140           60143                                    P22SUBRB                              
024512,000277: 30,2141           77650                           GOTO                                           
024513,000278: 30,2142           03667                                    S22TOFF                               #  EXIT
024514,000279: 30,2143           77420        P22SUBRB           STQ      EXIT                                  #  GET LAT/LONG/ALT FROM ASTRO
024515,000280: 30,2144           03670                                    S22TOFF    +1                         
024516,000281: 30,2145           33644                           CAF      V06N89B                               
024517,000282: 30,2146           04662                           TC       BANKCALL                              
024518,000283: 30,2147           20720                           CADR     GOFLASH                               
024519,000284: 30,2150           04106                           TC       GOTOPOOH                              #  TERMINATE
024520,000285: 30,2151           02153                           TC       +2                                    #  PROCEED
024521,000286: 30,2152           02145                           TC       -5                                    #  ENTER OR RECYCLE
024522,000287: 30,2153           06006                           TC       INTPRET                               
024523,000288: 30,2154           51545                           DLOAD    ABS                                   #  TEST LAT/LONG GREATER THAN 90
024524,000289: 30,2155           01104                                    LANDLAT                               
024525,000290: 30,2156           50021                           BDSU     BMN                                   #  1/4 REV - LAT
024526,000291: 30,2157           15325                                    DP1/4TH                               
024527,000292: 30,2160           60166                                    N89ERRX                               
024528,000293: 30,2161           51545                           DLOAD    ABS                                   
024529,000294: 30,2162           02360                                    LANDLONG                              
024530,000295: 30,2163           51021                           BDSU     BPL                                   
024531,000296: 30,2164           15325                                    DP1/4TH                               
024532,000297: 30,2165           60171                                    +4                                    
024533,000298: 
024534,000299: 30,2166           77776        N89ERRX            EXIT                                           
024535,000300: 30,2167           04400                           TC       FALTON                                
024536,000301: 30,2170           02145                           TC       P22SUBRB   +2                         #  LONG GR. THAN 90  REDISPLAY
024537,000302: 30,2171           77624                           CALL                                           
024538,000303: 30,2172           62374                                    LLASRDA                               
024539,000304: 30,2173           77650                           GOTO                                           
024540,000305: 30,2174           03670                                    S22TOFF    +1                         #  EXIT
024541,000306: 30,2175           02747        S22N7071           STORE    8KK                                   #  8KK=V05N71,V05N70 8KK+1=0 N71, NOT 0 N70
024542,000307: 30,2176           77420                           STQ      EXIT                                  
024543,000308: 30,2177           03667                                    S22TOFF                               
024544,000309: 30,2200           31746        S22DSPPA           CA       8KK                                   #  V05N70 OR V05N71
024545,000310: 30,2201           04662                           TC       BANKCALL                              
024546,000311: 30,2202           21057                           CADR     GOFLASHR                              
024547,000312: 30,2203           04106                           TC       GOTOPOOH                              #  V34E TERMINATE
024548,000313: 30,2204           02211                           TC       +5                                    #  V33E PROCEED
024549,000314: 30,2205           02200                           TC       -5                                    #  V32E RECYCLE
024550,000315: 30,2206           35022                           CAF      FIVE                                  #  IMMEDIATE RETURN BLANK OUT R1,R3
024551,000316: 30,2207           05526                           TC       BLANKET                               

Page 568

024553,000318: 30,2210           05217                           TC       ENDOFJOB                              
024554,000319: 30,2211           31751                           CA       LANDMARK                              
024555,000320: 30,2212           75063                           MASK     PRIO7                                 #  07000
024556,000321: 30,2213           55745                           TS       CXOFF                                 #  08000 = OFFSET INDICATOR
024557,000322: 30,2214           45061                           CS       PRIO5                                 #  5 8-5
024558,000323: 30,2215           61745                           AD       CXOFF                                 
024559,000324: 30,2216           00006                           EXTEND                                         
024560,000325: 30,2217           62221                           BZMF     +2                                    #  OFF=0 THRU 5 OK
024561,000326: 30,2220           02233                           TC       S22DSPP                               #  OFF=6,7 ILLEGAL REDISPLAY
024562,000327: 30,2221           05560                           TC       DOWNFLAG                              
024563,000328: 30,2222           00141                           ADRES    KNOWNFLG                              #  CLEAR KNOWNFLG
024564,000329: 30,2223           31751                           CA       LANDMARK                              #  MASK A FROM ABCDE
024565,000330: 30,2224           77707                           MASK     13,14,15                              
024566,000331: 30,2225           00006                           EXTEND                                         
024567,000332: 30,2226           62233                           BZMF     S22DSPP                               #  A=0,4,5,6,7  ILLEGAL REDISPLAY
024568,000333: 30,2227           55744                           TS       22SUBSCL                              #  TEMP
024569,000334: 30,2230           45002                           CS       BIT14                                 
024570,000335: 30,2231           61744                           AD       22SUBSCL                              
024571,000336: 30,2232           10000                           CCS      A                                     
024572,000337: 30,2233           04400        S22DSPP            TC       FALTON                                #  + A=3 ILLEGAL REDISPLAY
024573,000338: 30,2234           02200                           TC       S22DSPPA                              #  COMMON ERROR EXIT BACK TO DISPLAY
024574,000339: 30,2235           02237                           TC       +2                                    #  - A=1 KNOWN LMK  CHECK DE
024575,000340: 30,2236           02263                           TC       S22ABDE                               #  -0 A=2 UNKNOWN LMK, DE MEANINGLESS
024576,000341: 30,2237           05546                           TC       UPFLAG                                
024577,000342: 30,2240           00141                           ADRES    KNOWNFLG                              #  SET KNOWNFLG
024578,000343: 30,2241           47713                           CS       HIGH9                                 #  RESULT= 00077
024579,000344: 30,2242           71751                           MASK     LANDMARK                              
024580,000345: 30,2243           55744                           TS       22SUBSCL                              #  000DE
024581,000346: 30,2244           45017                           CS       BIT1                                  
024582,000347: 30,2245           61744                           AD       22SUBSCL                              
024583,000348: 30,2246           00006                           EXTEND                                         
024584,000349: 30,2247           62263                           BZMF     S22ABDE                               #  DE=0,1 OK FOR BOTH N70,N71
024585,000350: 30,2250           31747                           CA       8KK        +1                         #  =0 FOR N71, NOT =0 FOR N70
024586,000351: 30,2251           00006                           EXTEND                                         
024587,000352: 30,2252           12233                           BZF      S22DSPP                               #  N71 REDISPLAY  DE MUST= 0 OR 1
024588,000353: 30,2253           35013                           CA       BIT5                                  #  N70 TEST DE= 50-57 OCTAL FOR ADV. ORBIT
024589,000354: 30,2254           65033                           AD       OCT50                                 #  SUM=00070
024590,000355: 30,2255           71744                           MASK     22SUBSCL                              #  00D0
024591,000356: 30,2256           40000                           CS       A                                     
024592,000357: 30,2257           65033                           AD       OCT50                                 
024593,000358: 30,2260           00006                           EXTEND                                         
024594,000359: 30,2261           12273                           BZF      DE-GR-50                              #  D=5 OR DE=50-57, OK FOR N70
024595,000360: 30,2262           02233                           TC       S22DSPP                               #  DE NOT 50-57  ILLEGAL, REDISPLAY
024596,000361: 30,2263           06006        S22ABDE            TC       INTPRET                               
024597,000362: 30,2264           67214                           BOFF     SLOAD                                 
024598,000363: 30,2265           03347                                    KNOWNFLG                              #  UNKNOWN LMK, DE MEANINGLESS
024599,000364: 30,2266           03667                                    S22TOFF                               
024600,000365: 30,2267           02745                                    22SUBSCL                              #  =0 GET LLA FROM ASTRO, NOT=0 USE RLS
024601,000366: 30,2270           52030                           BHIZ     GOTO                                  
024602,000367: 30,2271           60137                                    OBTAINLL                              #  GET LAT/LONG/ALT FROM ASTRO  N89

Page 569

024604,000369: 30,2272           60117                                    S22LSITE                              #  GET LAT/LONG/ALT FROM RLS
024605,000370: 30,2273           05372        DE-GR-50           TC       2PHSCHNG                              
024606,000371: 30,2274           00004                           OCT      00004                                 
024607,000372: 30,2275           05022                           OCT      05022                                 
024608,000373: 30,2276           13000                           OCT      13000                                 
024609,000374: 30,2277           35022                           CA       FIVE                                  
024610,000375: 30,2300           54301                           TS       MARKINDX                              
024611,000376: 30,2301           05546                           TC       UPFLAG                                
024612,000377: 30,2302           00025                           ADRES    TARG2FLG                              
024613,000378: 30,2303           05560                           TC       DOWNFLAG                              
024614,000379: 30,2304           00024                           ADRES    TARG1FLG                              
024615,000380: 30,2305           06006                           TC       INTPRET                               
024616,000381: 30,2306           77624                           CALL                                           
024617,000382: 30,2307           30215                                    ADVORB                                
024618,000383: 30,2310           77650                           GOTO                                           
024619,000384: 30,2311           60100                                    DOV5N71                               
024620,000385: 

Page 570

024622,000387:                                                                                                  #  PROGRAM NAME-  OPTICS CALIBRATION ROUTINE
024623,000388:                                                                                                  #  MOD NO-  1
024624,000389:                                                                                                  #  MOD BY-  TOM KNATT
024625,000390: 
024626,000391:                                                                                                  #  FUNCTIONAL DESCRIPTION-  TO MEASURE THE EFFECT OF SOLAR RADIATION ON
024627,000392:                                                                                                  #        THE SXT TRUNNION ANGLE AND TO STORE THE MEASURED TRUNNION BIAS FOR P23
024628,000393: 
024629,000394:                                                                                                  #  CALLING SEQUENCE-     CALL
024630,000395:                                                                                                  #                                R57
024631,000396: 
024632,000397:                                                                                                  #  SUBROUTINES CALLED-  DISPLAY ROUTINES
024633,000398: 
024634,000399:                                                                                                  #  NORMAL EXIT MODES-  VIA EGRESS
024635,000400: 
024636,000401:                                                                                                  #  ALARMS-  NONE
024637,000402: 
024638,000403:                                                                                                  #  ABORT MODES-  P23 ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE
024639,000404: 
024640,000405:                                                                                                  #  INPUT-  NONE REQUIRED, NORMALLY CALLED BY P23
024641,000406: 
024642,000407:                                                                                                  #  OUTPUT-  TRUNNION BIAS ANGLE- ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT
024643,000408:                                                                                                  #        (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED.  THIS ANGLE
024644,000409:                                                                                                  #        MAY NOT BE EXACTLY ZERO BECAUSE OF UNEVEN HEATING OF THE OPTICS, FOR
024645,000410:                                                                                                  #        EXAMPLE.
024646,000411: 
024647,000412:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-  MRKBUF1, EXTVBACT
024648,000413: 
024649,000414:                                                                                                  #  DEBRIS-  RUPTREGS USED BY MARKRUPT AND ERASABLES USED BY DISPLAYS
024650,000415: 
024651,000416: 33,3776                                           BANK     33                                    
024652,000417: 37,2000                                           SETLOC   P20S                                  
024653,000418: 37,2000                                           BANK                                           
024654,000419: 37,2400                                           COUNT*   $$/R57                                
024655,000420: 37,2400  E7,1725                                  EBANK=   MRKBUF1                               
024656,000421: 37,2400           77420        R57                STQ      EXIT                                  
024657,000422: 37,2401           02317                                    EGRESS                                
024658,000423: 37,2402           35060                           CAF      EBANK7                                
024659,000424: 37,2403           54003                           TS       EBANK                                 
024660,000425: 37,2404           36211                           CAF      SIX                                   #  BIT2 = MARKING SYSTEM IN USE
024661,000426: 37,2405           71044                           MASK     EXTVBACT                              #  BIT3 = EXTENDED VERB IN PROGRESS
024662,000427: 37,2406           10000                           CCS      A                                     
024663,000428: 37,2407           02457                           TC       P23ABRT                               #  SET, THEREFORE ABORT
024664,000429: 37,2410           35016                           CAF      BIT2                                  #  NOT SET
024665,000430: 37,2411           27044                           ADS      EXTVBACT                              #  SET IT
024666,000431: 37,2412           05546        R57A               TC       UPFLAG                                #  SET V59FLAG (BIT 12 FLAG 5) TO INDICATE
024667,000432: 37,2413           00116                           ADRES    V59FLAG                               #  CALIBRATION MARK
024668,000433: 37,2414           32462                           CAF      V59NB                                 
024669,000434: 37,2415           04662                           TC       BANKCALL                              
024670,000435: 37,2416           20600                           CADR     GOMARKFR                              
024671,000436: 37,2417           04106                           TC       GOTOPOOH                              #  TERMINATE
024672,000437: 37,2420           02444                           TC       ENDR57                                
024673,000438: 37,2421           02444                           TC       ENDR57                                
024674,000439: 37,2422           35023                           CAF      SEVEN                                 

Page 571

024676,000441: 37,2423           05526                           TC       BLANKET                               #  BLANK OUT R1,R2,R3
024677,000442: 37,2424           05217                           TC       ENDOFJOB                              
024678,000443:                                                                                                  #  STORE TRUNNION ANGLE (OCDU)
024679,000444: 37,2425           32461        MARKDISP           CAF      V06N87NB                              
024680,000445: 37,2426           04662                           TC       BANKCALL                              
024681,000446: 37,2427           20600                           CADR     GOMARKFR                              
024682,000447: 37,2430           04106                           TC       GOTOPOOH                              #  TERMINATE
024683,000448: 37,2431           02436                           TC       R57B                                  #  PROCEED
024684,000449: 37,2432           02412                           TC       R57A                                  #  ENTER (RECYCLE)
024685,000450: 37,2433           35022                           CAF      FIVE                                  
024686,000451: 37,2434           05526                           TC       BLANKET                               #  BLANK OUT R1,R3
024687,000452: 37,2435           05217                           TC       ENDOFJOB                              
024688,000453: 37,2436           32464        R57B               CA       19.77DEG                              #  PUT FIXED INTO ERASABLE FOR MSU
024689,000454: 37,2437           54001                           TS       L                                     #  INSTRUCTION COMING UP
024690,000455: 37,2440           31732                           CA       MRKBUF1    +5                         #  CONTAINS TRUNNION
024691,000456: 37,2441           00006                           EXTEND                                         
024692,000457: 37,2442           20001                           MSU      L                                     #  CORRECTS TRUNBIAS FROM 2'S TO 1'S
024693,000458: 37,2443           55342                           TS       TRUNBIAS                              
024694,000459: 37,2444           05560        ENDR57             TC       DOWNFLAG                              #  RESET V59FLAG
024695,000460: 37,2445           00116                           ADRES    V59FLAG                               #  BIT 12 FLAG 5
024696,000461: 37,2446           35056                           CAF      EBANK5                                
024697,000462: 37,2447           54003                           TS       EBANK                                 
024698,000463: 37,2450           35066                           CAF      PRIO14                                
024699,000464: 37,2451           05134                           TC       NOVAC                                 #  THIS JOB CLEARS BIT IN
024700,000465: 37,2452     1330                                  EBANK=   MARKSTAT                              
024701,000466: 37,2452           05534 04062                     2CADR    ENDMARK                               #  MARKING IN R57 SO R53 CAN TAKE OVER
024702,000467: 
024703,000468: 37,2454           06006                           TC       INTPRET                               
024704,000469: 37,2455           77650                           GOTO                                           
024705,000470: 37,2456           02317                                    EGRESS                                
024706,000471: 37,2457           07755        P23ABRT            TC       BAILOUT                               
024707,000472: 37,2460           01211                           OCT      01211                                 
024708,000473: 37,2461           01527        V06N87NB           VN       0687                                  
024709,000474: 37,2462           16600        V59NB              VN       5900                                  
024710,000475: 37,2463           14600        V51NB              VN       5100                                  
024711,000476: 37,2464           61740        19.77DEG           OCT      61740                                 
024712,000477: 

Page 572

024714,000479:                                                                                                  #  PROGRAM DESCRIPTION
024715,000480:                                                                                                  #  MOD NO-  1
024716,000481:                                                                                                  #  MOD BY-  N. BRODEUR
024717,000482: 
024718,000483:                                                                                                  #  FUNCTIONAL DESCRIPTION
024719,000484: 
024720,000485:                                                                                                  #  TO PERFORM SIGHTING MARKS IN CONJUNCTION WITH THE RENDEZVOUS NAVIG-
024721,000486:                                                                                                  #  ATION PROGRAM.  CALLED BY ASTRONAUT VIA EXTENDED VERB
024722,000487: 
024723,000488:                                                                                                  #  CALLING SEQUENCE-
024724,000489: 
024725,000490:                                                                                                  #        R21 VIA V57
024726,000491:                                                                                                  #        R23 VIA V 54
024727,000492: 
024728,000493:                                                                                                  #  SUBROUTINES CALLED-
024729,000494: 
024730,000495:                                                                                                  #        FLAGUP          FLAGDOWN        BANKCALL
024731,000496:                                                                                                  #        ENDOFJOB        GOMARK2         GOMARKF
024732,000497:                                                                                                  #        INTPRET         GENTRAN         KLEENEX
024733,000498:                                                                                                  #        ENDMARK
024734,000499: 
024735,000500:                                                                                                  #  NORMAL EXIT MODES-
024736,000501: 
024737,000502:                                                                                                  #  MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARK IN MRKBUF2
024738,000503:                                                                                                  #  FOR USE BY R22.  WHEN ASTRONAUT IS FINISHED TAKING MARKS, HE HITS AN
024739,000504:                                                                                                  #  PROCEED, R21 IS TERMINATED THUS CAUSING THE FINAL MARK TO BE TRANSFRD
024740,000505:                                                                                                  #  TO MRKBUF2 FOR PROCESSING BY R22
024741,000506: 
024742,000507:                                                                                                  #  ALARM OR ABORT EXIT MODES-
024743,000508: 
024744,000509:                                                                                                  #        NONE
024745,000510: 
024746,000511:                                                                                                  #  OUTPUT-
024747,000512: 
024748,000513:                                                                                                  #        7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y,
024749,000514:                                                                                                  #        CDUX.
024750,000515: 
024751,000516:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
024752,000517: 
024753,000518:                                                                                                  #  FLAGS SET AND RESET
024754,000519:                                                                                                  #        R21MARK         (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 +2)
024755,000520:                                                                                                  #        R23FLG          INDICATES COAS MARKING
024756,000521: 
024757,000522:                                                                                                  #  DEBRIS
024758,000523: 
024759,000524: 37,2465  E7,1725                                  EBANK=   MRKBUF1                               
024760,000525: 37,2000                                           SETLOC   RENDEZ                                
024761,000526: 37,2000                                           BANK                                           
024762,000527: 
024763,000528: 37,2465                                           COUNT*   $$/R21                                
024764,000529: 
024765,000530: 37,2465           05546        R21CSM             TC       UPFLAG                                #  SET R21MARK
024766,000531: 37,2466           00037                           ADRES    R21MARK                               #  BIT 14 FLAG 2
024767,000532: 37,2467           37716        R23CSM             CA       NEGONE                                
024768,000533: 37,2470           55725                           TS       MRKBUF1                               
024769,000534: 37,2471           55734                           TS       MRKBUF2                               
024770,000535: 37,2472           30075                           CA       FLAGWRD1                              
024771,000536: 37,2473           75007                           MASK     R23BIT                                #  TEST R23FLG
024772,000537: 37,2474           00006                           EXTEND                                         
024773,000538: 37,2475           12530                           BZF      R21C1                                 #  NOT SET REGULAR R21 MARKING
024774,000539: 37,2476           32555                           CAF      V0694                                 #  R23 BACKUP MARKING
024775,000540: 37,2477           04662                           TC       BANKCALL                              #  DISPLAY SHAFT + TRUNNION
024776,000541: 37,2500           20561                           CADR     GOMARKF                               
024777,000542: 37,2501           02547                           TC       R21END                                #  TERM
024778,000543: 37,2502           02504                           TC       +2                                    #  PROC

Page 573

024780,000545: 37,2503           02476                           TC       -5                                    #  ENTER
024781,000546: 37,2504           32554        R23CSM1            CAF      V53                                   #  PERFORM ALT LOS SIGHT MARK
024782,000547: 37,2505           04662                           TC       BANKCALL                              
024783,000548: 37,2506           20564                           CADR     GOMARK2                               
024784,000549: 37,2507           02547                           TC       R21END                                #  V34- TERMINATE R23
024785,000550: 37,2510           12536                           TCF      R21CSMA                               #  PROCEED- END BACK UP MARKING (R23)
024786,000551: 37,2511           36211                           CAF      SIX                                   #  TRANSFER MRKBUF1 TO MRKBUF2
024787,000552: 37,2512           05606                           TC       GENTRAN                               
024788,000553: 37,2513           01725                           ADRES    MRKBUF1                               
024789,000554: 37,2514           01734                           ADRES    MRKBUF2                               
024790,000555: 37,2515           00006                           EXTEND                                         
024791,000556: 37,2516           30025                           DCA      TIME2                                 
024792,000557: 37,2517           53726                           DXCH     MRKBUF1                               #  READ TIME
024793,000558: 37,2520           30033                           CA       CDUY                                  #  READ CDU ANGLES
024794,000559: 37,2521           55727                           TS       MRKBUF1    +2                         
024795,000560: 37,2522           30034                           CA       CDUZ                                  
024796,000561: 37,2523           55731                           TS       MRKBUF1    +4                         
024797,000562: 37,2524           30032                           CA       CDUX                                  
024798,000563: 37,2525           55733                           TS       MRKBUF1    +6                         
024799,000564: 37,2526           00003                           RELINT                                         
024800,000565: 37,2527           02504                           TC       R23CSM1                               
024801,000566: 37,2530           32463        R21C1              CAF      V51NB                                 
024802,000567: 37,2531           04662                           TC       BANKCALL                              
024803,000568: 37,2532           20564                           CADR     GOMARK2                               
024804,000569: 37,2533           02547                           TC       R21END                                #  V34- TERMINATE R21
024805,000570: 37,2534           12536                           TCF      R21CSMA                               #  PROCEED- END R21
024806,000571: 37,2535           12530                           TCF      R21C1                                 #  RECYCLE
024807,000572: 
024808,000573: 37,2536           31725        R21CSMA            CA       MRKBUF1                               #  IF -1 NO MARK
024809,000574: 37,2537           65017                           AD       ONE                                   
024810,000575: 37,2540           00006                           EXTEND                                         
024811,000576: 37,2541           12547                           BZF      R21END                                #  ZERO = NO MARK
024812,000577: 37,2542           36211                           CAF      SIX                                   #  MARK THEREFORE TRANSFER IT TO MRKBUF2
024813,000578: 37,2543           05606        R21CSM1            TC       GENTRAN                               #  TRANSFER MRKBUF1 TO MRKBUF2
024814,000579: 37,2544           01725                           ADRES    MRKBUF1                               
024815,000580: 37,2545           01734                           ADRES    MRKBUF2                               
024816,000581: 37,2546           00003                           RELINT                                         
024817,000582: 37,2547           04662        R21END             TC       BANKCALL                              
024818,000583: 37,2550           20560                           CADR     KLEENEX                               
024819,000584: 37,2551           05560                           TC       DOWNFLAG                              #  RESET R21MARK
024820,000585: 37,2552           00037                           ADRES    R21MARK                               #  BIT 14 FLAG 2
024821,000586: 37,2553           05534                           TC       ENDMARK                               #  END MARKING AND ENDJOB
024822,000587: 37,2554           15200        V53                VN       5300                                  
024823,000588: 37,2555           01536        V0694              VN       0694                                  
024824,000589: 

Page 574

024826,000591:                                                                                                  #  PREFERRED TRACKING ATTITUDE ROUTINE R61CSM
024827,000592: 
024828,000593:                                                                                                  #  PROGRAM DESCRIPTION
024829,000594:                                                                                                  #        MOD NO-  2
024830,000595:                                                                                                  #        MOD BY-  N. BRODEUR
024831,000596: 
024832,000597:                                                                                                  #  FUNCTIONAL DESCRIPTION-
024833,000598: 
024834,000599:                                                                                                  #        TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM TO ENABLE OPTICS
024835,000600:                                                                                                  #        TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED
024836,000601:                                                                                                  #        OR X-AXIS TRACKING ATTITUDE.
024837,000602: 
024838,000603:                                                                                                  #  CALLING SEQUENCE-
024839,000604: 
024840,000605:                                                                                                  #        TC      BANKCALL
024841,000606:                                                                                                  #        CADR    R61CSM
024842,000607: 
024843,000608:                                                                                                  #  SUBROUTINES CALLED
024844,000609: 
024845,000610:                                                                                                  #        MAKECADR        BANKCALL
024846,000611:                                                                                                  #        INTPRET         FLAGUP          FLAGDOWN
024847,000612:                                                                                                  #        BANKJUMP        CRS61.1         R60CSM
024848,000613:                                                                                                  #        PHASCHNG
024849,000614: 
024850,000615:                                                                                                  #  NORMAL EXIT MODES-
024851,000616: 
024852,000617:                                                                                                  #        NORMAL RETURN IS TO CALLER + 1
024853,000618: 
024854,000619:                                                                                                  #  OUTPUT-
024855,000620: 
024856,000621:                                                                                                  #        SEE OUTPUT FOR CRS61.1 & ATTITUDE MANEUVER ROUTINE (R60CSM)
024857,000622: 
024858,000623:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
024859,000624: 
024860,000625:                                                                                                  #        GENRET USED TO SAVE Q FOR RETURN
024861,000626:                                                                                                  #        R61CNTR MUST BE PRESET TO ZERO
024862,000627: 
024863,000628:                                                                                                  #  FLAGS SET + RESET
024864,000629: 
024865,000630:                                                                                                  #        3-AXIS FLAG
024866,000631: 
024867,000632:                                                                                                  #  DEBRIS
024868,000633: 
024869,000634:                                                                                                  #        SEE SUBROUTINES
024870,000635: 
024871,000636: 37,2556  E6,1770                                  EBANK=   GENRET                                
024872,000637: 37,2556                                           COUNT*   $$/R61                                #  ROUTINES - NAVIGATION - PREF. TR. 9TT=
024873,000638: 
024874,000639: 37,2556           35057        R61CSM             CAF      EBANK6                                #  SWITCH TO EBANK 6
024875,000640: 37,2557           56003                           XCH      EBANK                                 
024876,000641: 37,2560           55771                           TS       SAVBNK                                #  SAVE EBANK
024877,000642: 37,2561           04711                           TC       MAKECADR                              
024878,000643: 37,2562           55770                           TS       GENRET                                
024879,000644: 37,2563           11775                           CCS      R61CNTR                               #  TEST R61CNTR
024880,000645: 37,2564           02615                           TC       DECRM61                               #  NOT READY TO DO R61.
024881,000646: 37,2565           02567                           TC       +2                                    #  DO R61
024882,000647: 37,2566           02616                           TC       DECRM61    +1                         
024883,000648: 37,2567           06006                           TC       INTPRET                               
024884,000649: 37,2570           77624                           CALL                                           
024885,000650: 37,2571           71343                                    CRS61.1                               #  LOS DETERMINATION + VEH ATTITUDE
024886,000651: 37,2572           77776                           EXIT                                           
024887,000652: 37,2573           50154                           INDEX    MPAC                                  
024888,000653: 37,2574           02575                           TC       +1                                    
024889,000654: 37,2575           02614                           TC       R61END                                #  SUBROUTINE DRIVING DAP        (EXIT R61)
024890,000655:                                                                                                  #  OR AUTO MODE NOT SET          (EXIT R61)
024891,000656:                                                                                                  #  OR STIKFLAG SET               (EXIT R61)
024892,000657: 37,2576           05560        R61C1              TC       DOWNFLAG                              #  RESET 3-AXIS FLAG
024893,000658: 37,2577           00124                           ADRES    3AXISFLG                              #  BIT 6 FLAG 5

Page 575

024895,000660: 37,2600           45017                           CS       ONE                                   #  SET R61CNTR NEG. TO INDICATE KALCMANU
024896,000661: 37,2601           55775                           TS       R61CNTR                               
024897,000662: 
024898,000663: 37,2602           05546                           TC       UPFLAG                                #  SET FLAG FOR PROIRITY DISPLAYS FOR R60
024899,000664: 37,2603           00077                           ADRES    PDSPFLAG                              #  BIT 12 FLAG 4
024900,000665: 37,2604           04662                           TC       BANKCALL                              
024901,000666: 37,2605           56000                           CADR     R60CSM                                
024902,000667: 37,2606           05560                           TC       DOWNFLAG                              #  RESET FLAG FOR PRIORITY DISPLAYS IN R60
024903,000668: 37,2607           00077                           ADRES    PDSPFLAG                              #  BIT 12 FLAG 4
024904,000669: 37,2610           05412                           TC       PHASCHNG                              
024905,000670: 37,2611           00111                           OCT      00111                                 
024906,000671: 37,2612           35021                           CAF      ZERO                                  
024907,000672: 37,2613           02615                           TC       DECRM61                               
024908,000673: 37,2614           36214        R61END             CAF      THREE                                 
024909,000674: 
024910,000675: 37,2615           55775        DECRM61            TS       R61CNTR                               
024911,000676: 
024912,000677: 37,2616           31770                           CAE      GENRET                                
024913,000678: 37,2617           22000                           LXCH     A                                     #  RETURN IS IN L
024914,000679: 37,2620           31771                           CA       SAVBNK                                #  RESTORE EBANK
024915,000680: 37,2621           56003                           XCH      EBANK                                 
024916,000681: 37,2622           22000                           LXCH     A                                     #  RETURN IS NOW BACK IN A
024917,000682: 37,2623           04704                           TC       BANKJUMP                              #  EXIT R61
024918,000683: 13,2231                                           BANK     13                                    
024919,000684: 23,2000                                           SETLOC   P20S2                                 
024920,000685: 23,2000                                           BANK                                           
024921,000686: 
024922,000687: 23,3043  E7,1725                                  EBANK=   MRKBUF1                               

Page 576

024924,000689:                                                                                                  #  BVECTOR PERFORMS COMPUTATIONS FOR
024925,000690: 
024926,000691:                                                                                                  #        DELTAQ, THE MEASURED DEVIATION BASED ON THE DIFFERENCE BETWEEN THE CSM-LE
024927,000692:                                                                                                  #        M STATE VECTOR ESTIMATES AND THE ACTUAL TRACKING MEASUREMENT.
024928,000693: 
024929,000694:                                                                                                  #        US, THE MODIFIED FICTITIOUS STAR DIRECTION VECTOR
024930,000695:                                                                                                  #        GEOMETRY VECTOR B ASSOCIATED WITH EACH TRACKING MEASUREMENT.
024931,000696: 
024932,000697:                                                                                                  #  INPUT
024933,000698: 
024934,000699:                                                                                                  #        UM, 1/2 UNIT VECTOR ALONG THE CSM-LM LINE OF SIGHT (BASIC REF. SYSTEM)
024935,000700: 
024936,000701:                                                                                                  #        USTAR, FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
024937,000702: 
024938,000703:                                                                                                  #        RCLP, RELATIVE CSM TO LM POSITION VECTOR
024939,000704: 
024940,000705:                                                                                                  #  OUTPUT
024941,000706: 
024942,000707:                                                                                                  #        USTAR, MODIFIED FICTITOUS STAR DIRECTION (1/2 UNIT VECTOR)
024943,000708: 
024944,000709:                                                                                                  #        BVECTOR = 9 DIMENSIONAL BVECTOR (1/2 UNIT VEC.)
024945,000710: 
024946,000711:                                                                                                  #        DELTAQ = MEASURED DEVIATION
024947,000712: 
024948,000713:                                                                                                  #  CALLING SEQUENCE
024949,000714: 
024950,000715:                                                                                                  #        L       CALL BVECTORS
024951,000716: 
024952,000717:                                                                                                  #  NORMAL EXIT
024953,000718: 
024954,000719:                                                                                                  #        L+1 OF CALLING SEQUENCE
024955,000720: 
024956,000721: 23,3043                                           COUNT    23/20SUB                              
024957,000722: 
024958,000723: 23,3043           77620        BVECTORS           STQ                                            
024959,000724: 23,3044           02317                                    EGRESS                                
024960,000725: 23,3045           53575                           VLOAD    UNIT                                  
024961,000726: 23,3046           03531                                    RCLP                                  #  RELATIVE POSITION VECTOR
024962,000727: 23,3047           14033                           STODL    26D                                   #  RCLP UNIT VEC
024963,000728: 23,3050           00045                                    36D                                   #  RCLP ABS VALUE
024964,000729: 23,3051           25301                           STOVL    TEMPOR1                               #  MOVE TO SAFE LOCATION
024965,000730: 23,3052           01245                                    USTAR                                 
024966,000731: 23,3053           53435                           VXV      UNIT                                  
024967,000732: 23,3054           00033                                    26D                                   #  USTAR = UNIT(US X UCL)
024968,000733: 23,3055           37502                           STCALL   BVECTOR                               
024969,000734: 23,3056           56750                                    GRP2PC                                #  PHASE CHANGE
024970,000735: 23,3057           77775                           VLOAD                                          
024971,000736: 23,3060           03502                                    BVECTOR                               
024972,000737: 23,3061           01245                           STORE    USTAR                                 
024973,000738: 23,3062           72441                           DOT      SL1                                   
024974,000739: 23,3063           01235                                    UM                                    #  USTAR DOT UM
024975,000740: 23,3064           45326                           ACOS     DSU                                   
024976,000741: 23,3065           15325                                    DP1/4TH                               
024977,000742: 23,3066           41301                           NORM     DMP                                   
024978,000743: 23,3067           00047                                    X1                                    
024979,000744: 23,3070           07103                                    PI/4.0                                
024980,000745: 23,3071           53605                           DMP      SRR*                                  
024981,000746: 23,3072           01301                                    TEMPOR1                               #  RCLP ABS VALUE
024982,000747: 23,3073           21576                                    0          -3,1                       #  ADJUST SCALING
024983,000748: 23,3074           27524                           STOVL    DELTAQ                                
024984,000749: 23,3075           15335                                    ZEROVECS                              
024985,000750: 23,3076           03510                           STORE    BVECTOR    +6                         
024986,000751: 23,3077           03516                           STORE    BVECTOR    +12D                       
024987,000752: 23,3100           77650                           GOTO                                           

Page 577

024989,000754: 23,3101           02317                                    EGRESS                                
024990,000755: 23,3102           31103 36652  PI/4.0             2DEC     .785398164                            
024991,000756: 

Page 578

024993,000758:                                                                                                  #   GETUM-DETERMINES THE LINE OF SIGHT UNIT VECTOR UM IN THE BASIC REFERENC
024994,000759:                                                                                                  #  E COORDINATE SYSTEM FROM THE OPTICS SHAFT AND TRUNNION ANGLES AND THE IM
024995,000760:                                                                                                  #  U GIMBAL ANGLES.
024996,000761: 
024997,000762:                                                                                                  #  INPUT
024998,000763: 
024999,000764:                                                                                                  #        MARKDATA, BASE ADDRESS OF MARK DATA
025000,000765:                                                                                                  #        REFSMMAT, ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF. COORD. SYSTEM
025001,000766: 
025002,000767:                                                                                                  #  SUBROUTINES CALLED-
025003,000768: 
025004,000769:                                                                                                  #        SXTNB - SEXT. ANGULAR READINGS TO NAV. BASE COOR.
025005,000770:                                                                                                  #        NBSM - TRANSFORM FROM NAV. BASE TO STABLE MEMBER
025006,000771: 
025007,000772:                                                                                                  #  OUTPUT
025008,000773: 
025009,000774:                                                                                                  #        MPAC = LINE OF SIGHT 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM
025010,000775: 
025011,000776:                                                                                                  #  CALLING SEQUENCE
025012,000777: 
025013,000778:                                                                                                  #        L       CALL GETUM
025014,000779: 
025015,000780:                                                                                                  #  NORMAL EXIT
025016,000781: 
025017,000782:                                                                                                  #        L+1 OF CALLING SEQUENCE
025018,000783: 
025019,000784: 23,3104           40220        GETUM              STQ      SETPD                                 
025020,000785: 23,3105           02317                                    EGRESS                                
025021,000786: 23,3106           00001                                    0                                     
025022,000787: 23,3107           76740                           LXC,1    VLOAD*                                
025023,000788: 23,3110           01242                                    MARKDATA                              #  CONTAINS ADDRESS OF MARK DATA
025024,000789: 23,3111           00002                                    1,1                                   
025025,000790: 23,3112           23676                           STODL*   MARKDOWN   +1                         #  TRANSFER DATA FROM WORKING STORAGE
025026,000791: 23,3113           00001                                    0,1                                   #  TO MARKDOWN ARRAY FOR DOWNLINK
025027,000792: 23,3114           03675                           STORE    MARKDOWN                              
025028,000793: 23,3115           77774                           AXT,2                                          
025029,000794: 23,3116           00002                                    2                                     
025030,000795: 23,3117           67064                           XSU,2    SXA,2                                 
025031,000796: 23,3120           00046                                    X1                                    #  X1 = MARKDATA
025032,000797: 23,3121           00050                                    S1                                    #  S1 = MARKDATA(ADR) +2
025033,000798: 23,3122           77624                           CALL                                           
025034,000799: 23,3123           46000                                    SXTNB                                 #  SEXT. ANGULAR READINGS TO NAV. BASE COOR.
025035,000800: 23,3124           77624                           CALL                                           
025036,000801: 23,3125           47606                                    NBSM                                  #  TRANSFORM FROM NAV. BASE TO STABLE MEM.
025037,000802: 23,3126           76505                           VXM      VSL1                                  
025038,000803: 23,3127           01736                                    REFSMMAT                              
025039,000804: 23,3130           77650                           GOTO                                           #  MPAC = (UM) LINE OF SIGHT VECTOR
025040,000805: 23,3131           02317                                    EGRESS                                #  EXIT
025041,000806: 

Page 579

025043,000808:                                                                                                  #  RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
025044,000809: 
025045,000810:                                                                                                  #  PURPOSE       (1) TO PROCESS RENDEZVOUS SIGHTING MARK DATA TO UPDATE THE STATE VECTOR OF EITHER THE CSM OR LM AS
025046,000811:                                                                                                  #                DEFINED BY THE RENDEZVOUS NAVIGATION PROGRAM (P20).
025047,000812: 
025048,000813:                                                                                                  #  ASSUMPTIONS   (1) THIS ROUTINE IS MANUALLY SELECTED BY THE ASTRONAUT BY V55E WHENEVER RENDEZVOUS SIGHTING MARKS
025049,000814:                                                                                                  #                ARE DESIRED.  ITS SELECTION HOWEVER IS LIMITED TO PERIODS WHEN THE CMC IS HOLDING FOR A V/N FLASHING
025050,000815:                                                                                                  #                DATA DISPLAY.  THIS ROUTINE RETURNS TO THE ORIGINAL PROGRAM AT THE INTERRUPTED DISPLAY.
025051,000816: 
025052,000817: 34,2630                                           BANK     34                                    
025053,000818: 34,2000                                           SETLOC   P20S3                                 
025054,000819: 34,2000                                           BANK                                           
025055,000820: 
025056,000821: 34,2630                                           COUNT    34/R22                                
025057,000822: 
025058,000823: 34,2630           37663        R22                CAF      PRIO26                                
025059,000824: 34,2631           55056                           TS       PHSPRDT2                              
025060,000825: 34,2632           05210                           TC       PRIOCHNG                              
025061,000826: 34,2633           37714                           CA       NEG3                                  
025062,000827: 34,2634           55734                           TS       MRKBUF2                               
025063,000828: 34,2635           06006                           TC       INTPRET                               
025064,000829: 34,2636           77634                           RTB                                            
025065,000830: 34,2637           45510                                    LOADTIME                              
025066,000831: 34,2640           01152                           STORE    VHFTIME                               #  PRESENT TIME
025067,000832: 34,2641           77624        REND1              CALL                                           
025068,000833: 34,2642           56750                                    GRP2PC                                
025069,000834: 34,2643           77624                           CALL                                           
025070,000835: 34,2644           56404                                    WAITONE                               
025071,000836: 34,2645           77776        REND1A             EXIT                                           
025072,000837: 34,2646           31734                           CA       MRKBUF2                               
025073,000838: 34,2647           00006                           EXTEND                                         
025074,000839: 34,2650           12653                           BZF      REND2                                 
025075,000840: 34,2651           00006                           EXTEND                                         
025076,000841: 34,2652           62672                           BZMF     REND3A                                
025077,000842: 34,2653           36211        REND2              CAF      SIX                                   
025078,000843: 34,2654           05606                           TC       GENTRAN                               
025079,000844: 34,2655           01734                           ADRES    MRKBUF2                               
025080,000845: 34,2656           01224                           ADRES    MARKTIME                              #  MARKTIME MUST BE CONTIGUOUS WITH VTEMP
025081,000846: 34,2657           37714                           CAF      NEG3                                  #  NEG VALUE TO INDICATE VALUES USED
025082,000847: 34,2660           55734                           TS       MRKBUF2                               
025083,000848: 34,2661           00003                           RELINT                                         
025084,000849: 34,2662           06006                           TC       INTPRET                               
025085,000850: 34,2663           45014                           CLEAR    CALL                                  
025086,000851: 34,2664           04667                                    SOURCFLG                              #  0 = OPTICS DATA
025087,000852: 34,2665           56750                                    GRP2PC                                #  PHASE CHANGE
025088,000853: 34,2666           52131                           SSP      GOTO                                  
025089,000854: 34,2667           01243                                    MARKDATA                              
025090,000855: 34,2670           01224                           ECADR    VTEMP      -2                         
025091,000856: 34,2671           70715                                    REND4                                 
025092,000857: 34,2672           06006        REND3A             TC       INTPRET                               
025093,000858: 34,2673           77624        REND3              CALL                                           

Page 580

025095,000860: 34,2674           56750                                    GRP2PC                                
025096,000861: 34,2675           77624                           CALL                                           
025097,000862: 34,2676           56404                                    WAITONE                               
025098,000863: 34,2677           77614                           BOFF                                           
025099,000864: 34,2700           04746                                    VHFRFLAG                              
025100,000865: 34,2701           70645                                    REND1A                                
025101,000866: 34,2702           77634                           RTB                                            
025102,000867: 34,2703           45510                                    LOADTIME                              #  PRESENT TIME
025103,000868: 34,2704           45225                           DSU      DSU                                   
025104,000869: 34,2705           14650                                    60SECDP                               #  1 MIN
025105,000870: 34,2706           01152                                    VHFTIME                               #  LAST READING OF RADAR
025106,000871: 34,2707           45040                           BMN      CALL                                  
025107,000872: 34,2710           70645                                    REND1A                                
025108,000873: 34,2711           56415                                    RANGERD                               #  READ RADAR RANGE
025109,000874: 34,2712           77745                           DLOAD                                          
025110,000875: 34,2713           01225                                    MARKTIME                              
025111,000876: 34,2714           01152                           STORE    VHFTIME                               #  FOR DOWNLINK
025112,000877: 34,2715           77624        REND4              CALL                                           
025113,000878: 34,2716           56343                                    SETINTG                               #  SET INTEGRV FLAGS
025114,000879: 34,2717           45014                           BON      CALL                                  
025115,000880: 34,2720           00707                                    VEHUPFLG                              
025116,000881: 34,2721           71152                                    CSMUPP                                #  BRANCH IF CSM UPDATE
025117,000882: 34,2722           27162                                    INTEGRV                               
025118,000883: 34,2723           77624                           CALL                                           
025119,000884: 34,2724           56750                                    GRP2PC                                #  PHASE CHANGE
025120,000885: 34,2725           77624                           CALL                                           
025121,000886: 34,2726           56343                                    SETINTG                               #  SET INTEGRV FLAGS
025122,000887: 34,2727           77614                           CLEAR                                          
025123,000888: 34,2730           01674                                    VINTFLAG                              #  SET INTEGRATION VEHICLE TO LM
025124,000889: 34,2731           43014        REND5              BOFF     SET                                   
025125,000890: 34,2732           02756                                    RENDWFLG                              
025126,000891: 34,2733           70735                                    REND5A                                #  DO NOT INTEGRATE W IF FLAG = 0
025127,000892: 34,2734           01476                                    DIM0FLAG                              
025128,000893: 34,2735           77624        REND5A             CALL                                           
025129,000894: 34,2736           27162                                    INTEGRV                               
025130,000895: 34,2737           77624                           CALL                                           
025131,000896: 34,2740           56547                                    SHIFTNDX                              #  SET EARTH MOON SCALING INDEX
025132,000897: 34,2741           77624                           CALL                                           
025133,000898: 34,2742           71241                                    CMPOS                                 #  SET CSM POSITION
025134,000899: 34,2743           45014                           SET      CALL                                  
025135,000900: 34,2744           02464                                    INCORFLG                              #  SET FOR 1ST PASS
025136,000901: 34,2745           71250                                    LMPOS                                 #  SET LM POSITION
025137,000902: 34,2746           43014                           CLEAR    BON                                   
025138,000903: 34,2747           01671                                    ORBWFLAG                              #  CLEAR FOR ORBITAL AND CISLUNAR
025139,000904: 34,2750           02716                                    RENDWFLG                              
025140,000905: 34,2751           70761                                    REND6                                 
025141,000906: 34,2752           77745                           DLOAD                                          
025142,000907: 34,2753           02001                                    WRENDPOS                              
025143,000908: 34,2754           34001                           STCALL   0                                     #  0 = WRENDPOS  1 = WRENDVEL
025144,000909: 34,2755           56565                                    INITIALW                              #  INITIALIZE W MATRIX

Page 581

025146,000911: 34,2756           77745                           DLOAD                                          
025147,000912: 34,2757           15335                                    ZEROVECS                              
025148,000913: 34,2760           01126                           STORE    VHFCNT                                #  ZERO OUT VHFCNT AND TRKMKCNT
025149,000914: 34,2761           77614        REND6              SET                                            
025150,000915: 34,2762           02476                                    RENDWFLG                              
025151,000916: 34,2763           52375                           VLOAD    VSU                                   
025152,000917: 34,2764           01215                                    LEMPOS                                
025153,000918: 34,2765           01207                                    CSMPOS                                
025154,000919: 34,2766           03531                           STORE    RCLP                                  #  LM - CSM
025155,000920: 34,2767           43056        REND7              UNIT     BON                                   
025156,000921: 34,2770           04707                                    SOURCFLG                              
025157,000922: 34,2771           71163                                    REND14                                #  BRANCH IF DATA IS RADAR
025158,000923: 34,2772           01273                           STORE    UCL                                   
025159,000924: 34,2773           45014                           BOFF     CALL                                  
025160,000925: 34,2774           02744                                    INCORFLG                              
025161,000926: 34,2775           71007                                    REND9                                 
025162,000927: 34,2776           47104                                    GETUM                                 #  CALCULATE UM LINE OF SIGHT
025163,000928: 34,2777           25235                           STOVL    UM                                    
025164,000929: 34,3000           01273                                    UCL                                   
025165,000930: 34,3001           40035                           VXV      BOV                                   
025166,000931: 34,3002           01235                                    UM                                    #  UCL X UM
025167,000932: 34,3003           71004                                    REND8                                 
025168,000933: 34,3004           40056        REND8              UNIT     BOV                                   
025169,000934: 34,3005           70673                                    REND3                                 #  BRANCH IF OVERFLOW IGNORE MARK
025170,000935: 34,3006           01245                           STORE    USTAR                                 
025171,000936: 34,3007           77624        REND9              CALL                                           
025172,000937: 34,3010           47043                                    BVECTORS                              
025173,000938: 34,3011           77214                           BON      VLOAD                                 
025174,000939: 34,3012           00707                                    VEHUPFLG                              
025175,000940: 34,3013           71017                                    REND9A                                
025176,000941: 34,3014           03502                                    BVECTOR                               
025177,000942: 34,3015           77676                           VCOMP                                          
025178,000943: 34,3016           03502                           STORE    BVECTOR                               
025179,000944: 34,3017           77624        REND9A             CALL                                           
025180,000945: 34,3020           56750                                    GRP2PC                                
025181,000946: 34,3021           77614                           BON                                            
025182,000947: 34,3022           00706                                    R23FLG                                
025183,000948: 34,3023           71214                                    REND15                                #  BRANCH IF BACKUP OPTICS (R23 WORKING)
025184,000949: 34,3024           43345                           DLOAD    DAD                                   
025185,000950: 34,3025           31336                                    SXTVAR                                
025186,000951: 34,3026           31340                                    IMUVAR                                
025187,000952: 34,3027           27526        REND10             STOVL    VARIANCE                              #  TEMP STORAGE FOR VARIANCE CALC.
025188,000953: 34,3030           03531                                    RCLP                                  
025189,000954: 34,3031           60246                           ABVAL    NORM                                  
025190,000955: 34,3032           00047                                    X1                                    
025191,000956: 34,3033           41316                           DSQ      DMP                                   
025192,000957: 34,3034           03526                                    VARIANCE                              
025193,000958: 34,3035           45070                           XAD,1    CALL                                  
025194,000959: 34,3036           00046                                    X1                                    
025195,000960: 34,3037           56547                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX

Page 582

025197,000962: 34,3040           56070                           XAD,1    XAD,1                                 
025198,000963: 34,3041           00047                                    X2                                    
025199,000964: 34,3042           00047                                    X2                                    
025200,000965: 34,3043           72257                           SR*      TLOAD                                 
025201,000966: 34,3044           20577                                    0          -2,1                       #  ADJUST SCALING TO B-40
025202,000967: 34,3045           00155                                    MPAC                                  
025203,000968: 34,3046           03526                           STORE    VARIANCE                              
025204,000969: 34,3047           54335                           SLOAD    SR                                    
025205,000970: 34,3050           02400                                    INTVAR                                #  INTEGRATION VARIANCE SCALED B-15
025206,000971: 34,3051           20632                                    25D                                   #  SCALE IT B-40
025207,000972: 34,3052           47171                           TAD      RTB                                   
025208,000973: 34,3053           03526                                    VARIANCE                              
025209,000974: 34,3054           45565                                    TPMODE                                
025210,000975: 34,3055           03526                           STORE    VARIANCE                              
025211,000976: 34,3056           76214                           BOFF     TAD                                   
025212,000977: 34,3057           04747                                    SOURCFLG                              #  BRANCH IF NOT VHF RADAR
025213,000978: 34,3060           71067                                    REND10A                               
025214,000979: 34,3061           03005                                    RVARMIN                               #  VHF RADAR MIN. VARIANCE
025215,000980: 34,3062           72244                           BPL      TLOAD                                 
025216,000981: 34,3063           71067                                    REND10A                               
025217,000982: 34,3064           03005                                    RVARMIN                               
025218,000983: 34,3065           77646                           ABS                                            #  MIN. VALUE WAS STORED AS NEG.
025219,000984: 34,3066           03526                           STORE    VARIANCE                              #  STORE MIN. VALUE
025220,000985: 34,3067           45014        REND10A            CLEAR    CALL                                  
025221,000986: 34,3070           02666                                    DMENFLG                               #  CLEAR FOR 6 X 6 W MATRIX
025222,000987: 34,3071           75242                                    INCORP1                               #  CALCULATE UPDATE
025223,000988: 34,3072           77624                           CALL                                           
025224,000989: 34,3073           56750                                    GRP2PC                                
025225,000990: 34,3074           45014                           BOFF     CALL                                  
025226,000991: 34,3075           02744                                    INCORFLG                              
025227,000992: 34,3076           71124                                    REND12                                
025228,000993: 34,3077           56547                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025229,000994: 34,3100           51575                           VLOAD    ABVAL                                 
025230,000995: 34,3101           01265                                    DELTAX     +6                         
025231,000996: 34,3102           77657                           SR*                                            
025232,000997: 34,3103           57176                                    0,2                                   
025233,000998: 34,3104           27504                           STOVL    N49DISP    +2                         
025234,000999: 34,3105           01257                                    DELTAX                                
025235,001000: 34,3106           53646                           ABVAL    SR*                                   
025236,001001: 34,3107           57176                                    0,2                                   
025237,001002: 34,3110           03502                           STORE    N49DISP                               
025238,001003: 34,3111           77735                           SLOAD                                          
025239,001004: 34,3112           02003                                    RMAX                                  
025240,001005: 34,3113           45261                           SR       DSU                                   
025241,001006: 34,3114           20613                                    10D                                   
025242,001007: 34,3115           03502                                    N49DISP                               
025243,001008: 34,3116           67240                           BMN      SLOAD                                 
025244,001009: 34,3117           71257                                    RENDISP                               #  BRANCH IF POS UP. GREATER THAN MAX.
025245,001010: 34,3120           02004                                    VMAX                                  
025246,001011: 34,3121           50025                           DSU      BMN                                   

Page 583

025248,001013: 34,3122           03504                                    N49DISP    +2                         
025249,001014: 34,3123           71257                                    RENDISP                               #  BRANCH IF VEL. UPDATE GREATER THAN MAX.
025250,001015: 34,3124           77624        REND12             CALL                                           
025251,001016: 34,3125           75454                                    INCORP2                               #  INCORPORATE UPDATE VALUES INTO STATE VEC
025252,001017: 34,3126           43014                           BON      BOFF                                  
025253,001018: 34,3127           04707                                    SOURCFLG                              
025254,001019: 34,3130           71221                                    REND16                                #  BRANCH IF DATA IS RADAR
025255,001020: 34,3131           02744                                    INCORFLG                              
025256,001021: 34,3132           71227                                    REND17                                
025257,001022: 34,3133           77624                           CALL                                           
025258,001023: 34,3134           56547                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025259,001024: 34,3135           45014                           BON      CALL                                  
025260,001025: 34,3136           00707                                    VEHUPFLG                              
025261,001026: 34,3137           71235                                    REND18                                #  BRANCH IF CSM UPDATE
025262,001027: 34,3140           71250                                    LMPOS                                 #  GET LM POSITION
025263,001028: 34,3141           77624        REND13             CALL                                           
025264,001029: 34,3142           56750                                    GRP2PC                                #  PHASE CHANGE
025265,001030: 34,3143           52375                           VLOAD    VSU                                   
025266,001031: 34,3144           01215                                    LEMPOS                                
025267,001032: 34,3145           01207                                    CSMPOS                                
025268,001033: 34,3146           03531                           STORE    RCLP                                  #  LM - CSM
025269,001034: 34,3147           77614                           CLRGO                                          
025270,001035: 34,3150           02624                                    INCORFLG                              
025271,001036: 34,3151           70767                                    REND7                                 #  BRANCH FOR 2ND PASS THIS OPTICS MARK
025272,001037: 34,3152           45014        CSMUPP             CLEAR    CALL                                  
025273,001038: 34,3153           01674                                    VINTFLAG                              #  SET INTEGRATION VEHICLE EQ LM
025274,001039: 34,3154           27162                                    INTEGRV                               
025275,001040: 34,3155           77624                           CALL                                           
025276,001041: 34,3156           56750                                    GRP2PC                                #  PHASE CHANGE
025277,001042: 34,3157           77624                           CALL                                           
025278,001043: 34,3160           56343                                    SETINTG                               #  SET FLAGS FOR INTEGRATION
025279,001044: 34,3161           77650                           GOTO                                           
025280,001045: 34,3162           70731                                    REND5                                 
025281,001046: 34,3163           27502        REND14             STOVL    BVECTOR                               #  VHF RADAR BVECTOR
025282,001047: 34,3164           15335                                    ZEROVECS                              
025283,001048: 34,3165           03510                           STORE    BVECTOR    +6                         
025284,001049: 34,3166           27516                           STOVL    BVECTOR    +12D                       
025285,001050: 34,3167           03531                                    RCLP                                  
025286,001051: 34,3170           71256                           UNIT     DLOAD                                 
025287,001052: 34,3171           01257                                    VHFRANGE                              #  VHFRANGE SCALED B-27
025288,001053: 34,3172           60414                           BON      SR2                                   
025289,001054: 34,3173           04303                                    MOONTHIS                              
025290,001055: 34,3174           71175                                    +1                                    
025291,001056: 34,3175           43025                           DSU      SET                                   
025292,001057: 34,3176           00045                                    36D                                   #  ABVAL (RCLP)
025293,001058: 34,3177           02464                                    INCORFLG                              
025294,001059: 34,3200           03524                           STORE    DELTAQ                                
025295,001060: 34,3201           77214                           BOFF     VLOAD                                 
025296,001061: 34,3202           00747                                    VEHUPFLG                              
025297,001062: 34,3203           71207                                    REND14A                               

Page 584

025299,001064: 34,3204           03502                                    BVECTOR                               
025300,001065: 34,3205           77676                           VCOMP                                          
025301,001066: 34,3206           03502                           STORE    BVECTOR                               
025302,001067: 34,3207           77624        REND14A            CALL                                           
025303,001068: 34,3210           56750                                    GRP2PC                                
025304,001069: 34,3211           52145                           DLOAD    GOTO                                  
025305,001070: 34,3212           03003                                    RVAR                                  
025306,001071: 34,3213           71027                                    REND10                                
025307,001072: 34,3214           43335        REND15             SLOAD    DAD                                   #  GET ALT LOS VARIANCE
025308,001073: 34,3215           01357                                    ALTVAR                                #  BACKUP OPTICS
025309,001074: 34,3216           31340                                    IMUVAR                                #  IMU VARIANCE
025310,001075: 34,3217           77650                           GOTO                                           
025311,001076: 34,3220           71027                                    REND10                                
025312,001077: 34,3221           62150        REND16             LXA,1    INCR,1                                
025313,001078: 34,3222           01125                                    VHFCNT                                #  VHF RADAR UPDATE COUNT
025314,001079: 34,3223           00001                           DEC      1          B-14                       
025315,001080: 34,3224           52130                           SXA,1    GOTO                                  
025316,001081: 34,3225           01125                                    VHFCNT                                #  UPDATE COUNT
025317,001082: 34,3226           70641                                    REND1                                 
025318,001083: 34,3227           62150        REND17             LXA,1    INCR,1                                
025319,001084: 34,3230           01126                                    TRKMKCNT                              #  OPTICS MARK COUNT
025320,001085: 34,3231           00001                           DEC      1          B-14                       
025321,001086: 34,3232           52130                           SXA,1    GOTO                                  
025322,001087: 34,3233           01126                                    TRKMKCNT                              #  UPDATE COUNT
025323,001088: 34,3234           70673                                    REND3                                 
025324,001089: 34,3235           77624        REND18             CALL                                           
025325,001090: 34,3236           71241                                    CMPOS                                 #  GET CSM POSITION
025326,001091: 34,3237           77650                           GOTO                                           
025327,001092: 34,3240           71141                                    REND13                                
025328,001093: 34,3241           53775        CMPOS              VLOAD    VSR*                                  
025329,001094: 34,3242           01573                                    DELTACSM                              
025330,001095: 34,3243           57167                                    7,2                                   
025331,001096: 34,3244           77655                           VAD                                            
025332,001097: 34,3245           01607                                    RCVCSM                                
025333,001098: 34,3246           01207                           STORE    CSMPOS                                #  CSM POSITION SCALED B-27 OR B-29
025334,001099: 34,3247           77616                           RVQ                                            
025335,001100: 34,3250           53775        LMPOS              VLOAD    VSR*                                  
025336,001101: 34,3251           01645                                    DELTALEM                              
025337,001102: 34,3252           57167                                    7,2                                   
025338,001103: 34,3253           77655                           VAD                                            
025339,001104: 34,3254           01661                                    RCVLEM                                
025340,001105: 34,3255           01215                           STORE    LEMPOS                                #  LM POSITION SCALED B-27 OR B-29
025341,001106: 34,3256           77616                           RVQ                                            
025342,001107: 34,3257           77776        RENDISP            EXIT                                           
025343,001108: 34,3260           30105                           CA       FLAGWRD9                              
025344,001109: 34,3261           75010                           MASK     SOURCBIT                              
025345,001110: 34,3262           00006                           EXTEND                                         
025346,001111: 34,3263           13266                           BZF      +3                                    
025347,001112: 34,3264           35016                           CA       BIT2                                  
025348,001113: 34,3265           03267                           TC       +2                                    

Page 585

025350,001115: 34,3266           35017                           CA       BIT1                                  
025351,001116: 34,3267           55505                           TS       N49DISP    +4                         
025352,001117: 34,3270           35021                           CAF      ZERO                                  #  SET TEMPOR1 > ZERO TO INDICATE
025353,001118: 34,3271           55300                           TS       TEMPOR1                               #  V06 N49 DISPLAY HASNT BEEN ANSWERED
025354,001119: 34,3272           05412                           TC       PHASCHNG                              
025355,001120: 34,3273           04022                           OCT      04022                                 
025356,001121: 34,3274           37664                           CAF      PRIO27                                #  SET UP DISPLAY JOB WITH HIGHER PRIORITY
025357,001122: 34,3275           05134                           TC       NOVAC                                 
025358,001123: 34,3276  E7,1725                                  EBANK=   MRKBUF1                               #  THAN PRESENT JOB
025359,001124: 34,3276           03310 70067                     2CADR    RENDISP2                              
025360,001125: 
025361,001126: 34,3300           06006        RENDISP7           TC       INTPRET                               
025362,001127: 34,3301           00155                           STORE    MPAC                                  
025363,001128: 34,3302           53135                           SLOAD    BZE                                   
025364,001129: 34,3303           01301                                    TEMPOR1                               
025365,001130: 34,3304           71301                                    RENDISP7   +1                         #  DISPLAY HAS NOT BEEN ANSWERED YET
025366,001131: 34,3305           52040                           BMN      GOTO                                  
025367,001132: 34,3306           71124                                    REND12                                #  NEG INDICATES PROCEED
025368,001133: 34,3307           71317                                    RENDISP3                              #  POS INDICATES RECYCLE
025369,001134: 34,3310           33341        RENDISP2           CAF      V06N49                                
025370,001135: 34,3311           04662                           TC       BANKCALL                              
025371,001136: 34,3312           20731                           CADR     PRIODSP                               
025372,001137: 34,3313           04622                           TC       GOTOV56                               #  TERM EXIT P20 VIA V56
025373,001138: 34,3314           45017                           CS       ONE                                   #  NEG INDICATES PROCEED RENDISP7 JOB
025374,001139: 34,3315           55300                           TS       TEMPOR1                               #  POS INDICATES RECYCLE RENDISP7 JOB
025375,001140: 34,3316           05217                           TC       ENDOFJOB                              #  GO COMPLETE ABOVE JOB
025376,001141: 34,3317           77614        RENDISP3           BON                                            
025377,001142: 34,3320           04707                                    SOURCFLG                              
025378,001143: 34,3321           70641                                    REND1                                 #  DATA WAS RADAR GO LOOK FOR OPTICS NEXT
025379,001144: 34,3322           77776                           EXIT                                           
025380,001145: 34,3323  E7,1725                                  EBANK=   MRKBUF1                               
025381,001146: 34,3323           00004                           INHINT                                         
025382,001147: 34,3324           33342                           CAF      BUFBANK                               
025383,001148: 34,3325           54006                           TS       BBANK                                 
025384,001149: 34,3326           37716                           CA       NEGONE                                
025385,001150: 34,3327           55725                           TS       MRKBUF1                               #  ERASE MARK ONE BUFFER
025386,001151: 34,3330           55734                           TS       MRKBUF2                               #  ERASE MARK TWO BUFFER
025387,001152: 34,3331           00003                           RELINT                                         
025388,001153: 34,3332           06006        RENDISP4           TC       INTPRET                               
025389,001154: 34,3333           77650                           GOTO                                           
025390,001155: 34,3334           70673                                    REND3                                 
025391,001156: 34,3335           00052 36307  SXTVAR             2DEC     0.04       E-6        B+16            #  SXT ERROR VARIANCE = .04 (MR)SQ
025392,001157: 34,3337           00052 36307  IMUVAR             2DEC     0.04       E-6        B+16            #  IMU ERROR VARIANCE = .04 (MR)SQ
025393,001158: 34,3341           01461        V06N49             VN       0649                                  
025394,001159: 34,3342  E7,1725                                  EBANK=   MRKBUF1                               
025395,001160: 34,3342           70067        BUFBANK            BBCON    RENDISP3                              
025396,001161: 31,2332                                           BANK     31                                    
025397,001162: 27,2000                                           SETLOC   R22S1                                 

Page 586

025399,001164: 27,2000                                           BANK                                           
025400,001165: 27,2343           45020        SETINTG            STQ      CALL                                  
025401,001166: 27,2344           02317                                    EGRESS                                
025402,001167: 27,2345           27442                                    INTSTALL                              #  RESERVE INTEGRATION
025403,001168: 27,2346           43145                           DLOAD    SET                                   
025404,001169: 27,2347           01225                                    MARKTIME                              
025405,001170: 27,2350           01472                                    STATEFLG                              
025406,001171: 27,2351           00041                           STORE    TDEC1                                 #  MARKTIME
025407,001172: 27,2352           43014                           CLEAR    CLEAR                                 
025408,001173: 27,2353           01673                                    INTYPFLG                              #  PRECISION INTEGRATION
025409,001174: 27,2354           01676                                    DIM0FLAG                              
025410,001175: 27,2355           43014                           SET      CLRGO                                 
025411,001176: 27,2356           01474                                    VINTFLAG                              #  SET VEHICLE EQ. CSM
025412,001177: 27,2357           01635                                    D6OR9FLG                              #  SET W MATRIX DIM. EQ 6
025413,001178: 27,2360           02317                                    EGRESS                                #  EXIT
025414,001179: 27,2361           77620        CNTCHK             STQ                                            
025415,001180: 27,2362           01150                                    POINTEX                               
025416,001181: 27,2363           77614        CONTCHK            BOFF                                           
025417,001182: 27,2364           01742                                    REFSMFLG                              #  BRANCH TO END OF JOB IF REFSMMAT NO GOOD
025418,001183: 27,2365           30156                                    ENDPLAC                               
025419,001184: 27,2366           50135                           SLOAD    BMN                                   
025420,001185: 27,2367           03376                                    R61CNTR                               
025421,001186: 27,2370           56406                                    WAITONE1                              
025422,001187: 27,2371           43014                           BON      BOFF                                  #  IS TRACK FLAG SET
025423,001188: 27,2372           00710                                    UPDATFLG                              
025424,001189: 27,2373           01150                                    POINTEX                               
025425,001190: 27,2374           00752                                    TRACKFLG                              
025426,001191: 27,2375           30156                                    ENDPLAC                               
025427,001192: 27,2376           77776                           EXIT                                           
025428,001193: 27,2377           05412        REDOR22            TC       PHASCHNG                              
025429,001194: 27,2400           00132                           OCT      00132                                 
025430,001195: 27,2401           37663                           CAF      PRIO26                                
025431,001196: 27,2402           05210                           TC       PRIOCHNG                              
025432,001197: 27,2403           02407                           TC       WAITONE    +3                         
025433,001198: 27,2404           77620        WAITONE            STQ                                            
025434,001199: 27,2405           01150                                    POINTEX                               
025435,001200: 27,2406           77776        WAITONE1           EXIT                                           
025436,001201: 27,2407           35045                           CAF      4SECS                                 #  WAIT 4 SECS.
025437,001202: 27,2410           04662                           TC       BANKCALL                              
025438,001203: 27,2411           01732                           CADR     DELAYJOB                              
025439,001204: 27,2412           06006                           TC       INTPRET                               
025440,001205: 27,2413           77650                           GOTO                                           
025441,001206: 27,2414           56363                                    CONTCHK                               #  CHECK AGAIN NOW
025442,001207: 27,2415           77776        RANGERD            EXIT                                           
025443,001208: 27,2416           00004                           INHINT                                         
025444,001209: 27,2417           42500                           CS       OCT17                                 
025445,001210: 27,2420           00006                           EXTEND                                         
025446,001211: 27,2421           03013                           WAND     CHAN13                                #  ZERO OUT BITS 1-4 OF CHANNEL 13
025447,001212: 27,2422           34334                           CAF      OCT11                                 
025448,001213: 27,2423           00006                           EXTEND                                         

Page 587

025450,001215: 27,2424           05013                           WOR      CHAN13                                #  GENERATE SHIFT PULSES TO RADR, SET R. BIT
025451,001216: 27,2425           00003                           RELINT                                         
025452,001217: 27,2426           00006                           EXTEND                                         
025453,001218: 27,2427           30025                           DCA      TIME2                                 
025454,001219: 27,2430           53225                           DXCH     MARKTIME                              #  READ PRESENT TIME
025455,001220: 27,2431           05560                           TC       DOWNFLAG                              
025456,001221: 27,2432           00043                           ADRES    SKIPVHF                               #  CLEAR VHF RESTART FLAG
025457,001222: 27,2433           04662                           TC       BANKCALL                              
025458,001223: 27,2434           17575                           CADR     RADSTALL                              #  WAIT FOR RANGE COMPLETE
025459,001224: 27,2435           02464                           TC       LIGHTON                               #  BAD DATA GOOD BIT
025460,001225: 27,2436           05631                           TC       TRFAILOF                              #  TURN TRACKER LIGHT OFF
025461,001226: 27,2437           11703        RANGERD1           CCS      RM                                    #  15 BIT UNSIGNED RANGE
025462,001227: 27,2440           02444                           TC       RANGERD4                              #  GR + 0
025463,001228: 27,2441           02470                           TC       LIGHTON    +4                         #  = + 0
025464,001229: 27,2442           02453                           TC       RANGERD3                              #  L - 0
025465,001230: 27,2443           02453                           TC       RANGERD3                              #  = - 0
025466,001231: 27,2444           06006        RANGERD4           TC       INTPRET                               
025467,001232: 27,2445           41335                           SLOAD    DMP                                   
025468,001233: 27,2446           03704                                    RM                                    
025469,001234: 27,2447           16503                                    CONVRNGE                              #  CONVERT RANGE TO METERS B-27
025470,001235: 27,2450           01257        RANGERD2           STORE    VHFRANGE                              
025471,001236: 27,2451           43414                           SET      RVQ                                   
025472,001237: 27,2452           04467                                    SOURCFLG                              #  SOURCE OF DATA TO VHF RADAR
025473,001238: 27,2453           31703        RANGERD3           CA       RM                                    
025474,001239: 27,2454           74777                           MASK     POSMAX                                
025475,001240: 27,2455           54154                           TS       MPAC                                  #  MASK OUT NEG. SIGN BIT
025476,001241: 27,2456           06006                           TC       INTPRET                               
025477,001242: 27,2457           77605                           DMP                                            
025478,001243: 27,2460           16503                                    CONVRNGE                              #  CONVERT FROM NM TO METERS AND SCALE B-27
025479,001244: 27,2461           52015                           DAD      GOTO                                  
025480,001245: 27,2462           16477                                    RANGEB14                              #  VALUE IN METERS OF SIGN BIT SCALED B-27
025481,001246: 27,2463           56450                                    RANGERD2                              
025482,001247: 27,2464           31256        LIGHTON            CA       VHFRANGE                              
025483,001248: 27,2465           00006                           EXTEND                                         
025484,001249: 27,2466           12470                           BZF      +2                                    
025485,001250: 27,2467           05643                           TC       TRFAILON                              
025486,001251: 27,2470           06006                           TC       INTPRET                               
025487,001252: 27,2471           77745                           DLOAD                                          
025488,001253: 27,2472           01225                                    MARKTIME                              
025489,001254: 27,2473           01152                           STORE    VHFTIME                               
025490,001255: 27,2474           77650                           GOTO                                           
025491,001256: 27,2475           70641                                    REND1                                 
025492,001257: 27,2476           00045 01217  RANGEB14           2DEC     303431.7   B-27                       #  16384 X 18.52 SCALED B-27
025493,001258: 27,2500           00017        OCT17              OCT      00017                                 
025494,001259: 27,2501           40200        OC40200            OCT      40200                                 
025495,001260: 27,2502           00045 01217  CONVRNGE           2DEC     18.52      B-13                       #  VHF INPUT RANGE CONV. FROM .01 NM TO M
025496,001261: 
025497,001262: 27,2504           00006        VHFREAD            EXTEND                                         
025498,001263: 27,2505           04007                           ROR      SUPERBNK                              #  MUST SAVE SBANK BECAUSE OF RUPT

Page 588

025500,001265: 27,2506           54016                           TS       BANKRUPT                              #  EXITS VIA TASKOVER BADEND OR GOODEND
025501,001266: 27,2507           45021                           CS       ZERO                                  
025502,001267: 27,2510           54734                           TS       RUPTAGN                               
025503,001268: 27,2511           00006                           EXTEND                                         
025504,001269: 27,2512           22012                           QXCH     QRUPT                                 
025505,001270: 27,2513           40076                           CS       STATE      +2                         
025506,001271: 27,2514           75006                           MASK     SKIPVBIT                              #  SKIPVHF FLAG
025507,001272: 27,2515           00006                           EXTEND                                         
025508,001273: 27,2516           15324                           BZF      TASKOVER                              #  BRANCH IF VHF RESTART BIT SET
025509,001274: 27,2517           35011                           CAF      UPDATBIT                              
025510,001275: 27,2520           70075                           MASK     STATE      +1                         #  UPDATEFLG
025511,001276: 27,2521           00006                           EXTEND                                         
025512,001277: 27,2522           12542                           BZF      BYPASS1                               
025513,001278: 27,2523           40100                           CS       STATE      +4                         
025514,001279: 27,2524           75004                           MASK     PDSPFBIT                              #  PDSPFLAG
025515,001280: 27,2525           00006                           EXTEND                                         
025516,001281: 27,2526           12542                           BZF      BYPASS1                               
025517,001282: 27,2527           30046                           CA       RNRAD                                 
025518,001283: 27,2530           55703                           TS       RM                                    #  SAVE RANGE
025519,001284: 27,2531           35016                           CAF      BIT2                                  
025520,001285: 27,2532           00006                           EXTEND                                         
025521,001286: 27,2533           02033                           RAND     CHAN33                                #  READ DATA GOOD BIT
025522,001287: 27,2534           00006                           EXTEND                                         
025523,001288: 27,2535           12544                           BZF      VHFGOOD                               #  BRANCH IF DATA GOOD BIT EQUALS GOOD
025524,001289: 27,2536           55256        BYPASS             TS       VHFRANGE                              #  STORE NON ZERO VALUE
025525,001290: 27,2537           35016                           CAF      TWO                                   
025526,001291: 27,2540           04701                           TC       POSTJUMP                              
025527,001292: 27,2541           17545                           CADR     BADEND                                
025528,001293: 27,2542           35021        BYPASS1            CAF      ZERO                                  
025529,001294: 27,2543           02536                           TC       BYPASS                                
025530,001295: 27,2544           35016        VHFGOOD            CAF      TWO                                   
025531,001296: 27,2545           04701                           TC       POSTJUMP                              
025532,001297: 27,2546           17550                           CADR     GOODEND                               
025533,001298: 27,2547           43174        SHIFTNDX           AXT,2    BON                                   
025534,001299: 27,2550           00000                                    0                                     
025535,001300: 27,2551           00707                                    VEHUPFLG                              
025536,001301: 27,2552           56560                                    SHIFTA                                #  VEHICLE IS CSM
025537,001302: 27,2553           43414                           BON      RVQ                                   
025538,001303: 27,2554           04304                                    LMOONFLG                              
025539,001304: 27,2555           56556                                    +1                                    
025540,001305: 27,2556           43514                           INCR,2   RVQ                                   
025541,001306: 27,2557           77775                           DEC      -2         B-14                       
025542,001307: 27,2560           43414        SHIFTA             BON      RVQ                                   
025543,001308: 27,2561           04303                                    CMOONFLG                              
025544,001309: 27,2562           56563                                    +1                                    #  MOON ORB.
025545,001310: 27,2563           43514                           INCR,2   RVQ                                   
025546,001311: 27,2564           77775                           DEC      -2         B-14                       
025547,001312: 27,2565           66370        INITIALW           AXT,1    SSP                                   
025548,001313: 27,2566           00044                                    36D                                   
025549,001314: 27,2567           00051                                    S1                                    

Page 589

025551,001316: 27,2570           00006                                    6                                     
025552,001317: 27,2571           77775                           VLOAD                                          
025553,001318: 27,2572           15335                                    ZEROVECS                              
025554,001319: 27,2573           06445        INITA              STORE    W          +36D,1                     #  CLEAR 0 - 35
025555,001320: 27,2574           76100                           TIX,1    AXT,1                                 
025556,001321: 27,2575           56573                                    INITA                                 
025557,001322: 27,2576           00044                                    36D                                   
025558,001323: 27,2577           06533        INITB              STORE    W          +90D,1                     #  CLEAR 54 - 89
025559,001324: 27,2600           67300                           TIX,1    SLOAD                                 
025560,001325: 27,2601           56577                                    INITB                                 
025561,001326: 27,2602           00001                                    0                                     #  POSITION VALUE
025562,001327: 27,2603           02401                           STORE    W                                     #  INITIALIZE DIAGONAL W POSITION
025563,001328: 27,2604           02411                           STORE    W          +8D                        
025564,001329: 27,2605           02421                           STORE    W          +16D                       
025565,001330: 27,2606           77735                           SLOAD                                          
025566,001331: 27,2607           00002                                    1                                     #  VELOCITY VALUE
025567,001332: 27,2610           02511                           STORE    W          +72D                       #  INITIALIZE DIAGONAL W VELOCITY
025568,001333: 27,2611           02521                           STORE    W          +80D                       
025569,001334: 27,2612           02531                           STORE    W          +88D                       
025570,001335: 27,2613           77616                           RVQ                                            

Page 590

025572,001337:                                                                                                  #  CRS61.1       4/10/68
025573,001338: 
025574,001339:                                                                                                  #  TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025575,001340:                                                                                                  #  OPTICS TRACKING OF THE LM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
025576,001341:                                                                                                  #  AND TO COMPUTE THE &X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025577,001342:                                                                                                  #  COAS TRACKING OF THE LM.
025578,001343: 
025579,001344:                                                                                                  #  TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE 
025580,001345:                                                                                                  #  MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
025581,001346:                                                                                                  #  GREATER THAN 10 DEGREES OR IF THE R60 FLAG IS SET.
025582,001347: 
025583,001348:                                                                                                  #        (1)     EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
025584,001349:                                                                                                  #                CONIC EQUATIONS.
025585,001350: 
025586,001351:                                                                                                  #        (2)     CALCULATE LOS FROM CSM TO LM = RL - RC.
025587,001352: 
025588,001353:                                                                                                  #        (3)     THE PREFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
025589,001354:                                                                                                  #                THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM.  THE
025590,001355:                                                                                                  #                TRACK AXIS (I) IS DEFINED AS:
025591,001356: 
025592,001357:                                                                                                  #                UNIT(I)=UNIT(Z  )COS55  &  UNIT(X  )SIN55
025593,001358:                                                                                                  #                     -       -SC                -SC
025594,001359: 
025595,001360:                                                                                                  #        (4)     COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
025596,001361: 

(Sorry, I don't know where (5) and (6) are. — RSB 2009.)

025598,001363:                                                                                                  #        (7)     FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS.
025599,001364:                                                                                                  #                IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES,
025600,001365:                                                                                                  #                GROSS MANEUVER IS REQUIRED.  SIGNAL R61 (SET MPAC=1) TO
025601,001366:                                                                                                  #                OPERATE KALCMANU AND EXIT CRS61.1.
025602,001367:                                                                                                  #                IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE.
025603,001368: 
025604,001369:                                                                                                  #        (8)     CALCULATE ORTHOGONAL LOS RATE IN REF COORDS AS
025605,001370: 
025606,001371:                                                                                                  #                OMEGATH = (UNITLOS(B1) X UNITDV(B1))(ABSDV(B7)/ABSLOS(B29))
025607,001372: 
025608,001373:                                                                                                  #                CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS
025609,001374:                                                                                                  #                APPLIED TO YIELD UNITS OF REVS/SEC.  SCALE IS CARRIED AS
025610,001375:                                                                                                  #                B+1+1+7-29+4+1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS.
025611,001376:                                                                                                  #                THE EXTRA B+1 RESULTS FROM RESCALING ABSDV B8 AFTER NORM
025612,001377:                                                                                                  #                TO AVOID OVFLOW ON DIVIDE.
025613,001378: 
025614,001379:                                                                                                  #                UNITLOS = UNIT( RL - RC ) B1.
025615,001380:                                                                                                  #                UNITDY  = UNIT( VL - VC ) B1.
025616,001381:                                                                                                  #                ABSLOS  = LENGTH OF LOS, METERS B29.
025617,001382:                                                                                                  #                ABSDV   = LENGTH OF DV, METERS/CSEC B7.
025618,001383: 
025619,001384:                                                                                                  #        (9)     OBTAIN RATE IN SM COORDS.
025620,001385: 
025621,001386:                                                                                                  #                OMEGATHSM = (REFSMMAT)(OMEGATH).
025622,001387: 
025623,001388:                                                                                                  #        (10)    OBTAIN GIMBAL ANGLE INCREMENTS FOR 0.1 SECOND.
025624,001389: 
025625,001390:                                                                                                  #                DTHETASM = (0.1)(OMEGATHSM)
025626,001391: 
025627,001392:                                                                                                  #        (11)    OBTAIN DELCDUX,Y,Z USING SUBR SMCDURES.

Page 591

025629,001394:                                                                                                  #                INPUT CONSISTS OF
025630,001395: 
025631,001396:                                                                                                  #                (A)     VECTOR OF ANGULAR INCREMENTS, DTHETASM, STORED
025632,001397:                                                                                                  #                        IN V(DTHETASM).
025633,001398:                                                                                                  #                (B)     SIN,COS CDUX,Y,Z FROM SUBR CDUTRIG.
025634,001399: 
025635,001400:                                                                                                  #                TRANSFER OUTPUT OF SMCDURES FROM V(DCDU) TO VAC14D.
025636,001401: 
025637,001402:                                                                                                  #        (12)    CALCULATE ANG LOS RATE IN BODY(NB) COORDS USING SUBR SMNB.
025638,001403: 
025639,001404:                                                                                                  #                OMEGANB = (SMNB)(OMEGATHSM)
025640,001405: 
025641,001406:                                                                                                  #                SUBR SMNB REQUIRES OMEGATHSM IN V(VAC32D) AND ACTUAL CDUS
025642,001407:                                                                                                  #                (Y,X,Z ORDER) IN V(VAC20D) WITH S1 OF VAC = BASE ADDRESS
025643,001408:                                                                                                  #                OF CDUS (FIXLOC + 20D).
025644,001409: 
025645,001410:                                                                                                  #        (13)    CALCULATE ANG LOS RATE IN CONTROL COORDS AS FOLLOWS
025646,001411: 
025647,001412:                                                                                                  #                WBODY = (MBDYTCTL)(OMEGANB)     UNITS=REVS/SEC(B0).
025648,001413: 
025649,001414:                                                                                                  #                               ( 0.5       0              0      )   BODY TO
025650,001415:                                                                                                  #                MBDYTCTL(B1) = (  0   COS(7.25)B1   -SIN(7.25)B1 ) = CONTROL
025651,001416:                                                                                                  #                               (  0   SIN(7.25)B1    COS(7.25)B1 )   AXES
025652,001417:                                                                                                  #                                                                     CONVERSION
025653,001418:                                                                                                  #                                                                     MATRIX
025654,001419: 
025655,001420:                                                                                                  #        (14)    RESCALE WBODY TO UNITS OF 450 DEG/SEC BY APPLYING FACTOR
025656,001421:                                                                                                  #                OF 0.8 TO REVS/SEC.
025657,001422: 
025658,001423:                                                                                                  #        (15)    ADDRESS LIVE AUTOPILOT REGISTERS IN BASIC (UNDER INHINT).
025659,001424: 
025660,001425:                                                                                                  #                TRANSFER DESIRED CDUS, SCALED 180 DEGREES, FROM T(SAVEDCDU)
025661,001426:                                                                                                  #                TO V(CDUXD).
025662,001427: 
025663,001428:                                                                                                  #                TRANSFER DELCDUS, SCALED 180 DEG, FROM V(VAC14D)
025664,001429:                                                                                                  #                TO V(DELCDUX).
025665,001430: 
025666,001431:                                                                                                  #                TRANSFER OMEGA CONTROL, SCALED 450 DEG/SEC, FROM V(MPAC)
025667,001432:                                                                                                  #                TO V(WBODY).
025668,001433: 
025669,001434:                                                                                                  #                RELINT, SET MPAC=0, EXIT CRS61.1
025670,001435: 
025671,001436:                                                                                                  #  CALL          L       CALL    CRS61.1
025672,001437: 
025673,001438:                                                                                                  #  RETURNS       ALL TO L+1.
025674,001439: 
025675,001440:                                                                                                  #                (1)     S(MPAC)=0.  NORMAL EXIT.  3 SETS OF INPUTS FED TO DAP.
025676,001441:                                                                                                  #                (2)     S(MPAC)=1.  CALCULATED DESIRED CDUS,SP, SET IN T(CPHI)
025677,001442:                                                                                                  #                        FOR KALCMANU.  ABS(ACDU - DCDU) EXCEEDS 10 DEGREES.
025678,001443:                                                                                                  #                (3)     S(MPAC)=2.  GNCS AUTO MODE NOT SELECTED (BIT10=1).
025679,001444:                                                                                                  #                (4)     S(MPAC)=3.  DAP HOLD FLAG (HOLDFLAG) NOT EQUAL -1.

Page 592

025681,001446: 
025682,001447:                                                                                                  #  INPUT         (1)     TIME2,TIME1.  COMPUTER CLOCK TIME,DP, CENTISEC B28.
025683,001448:                                                                                                  #                (2)     CDUX,Y,Z.  PRESENT CDU ANGLES,SP,2S COMPL HALF-REVS B0.
025684,001449:                                                                                                  #                (3)     M(REFSMMAT), STABLE MEMBER COORDS B1.
025685,001450: 
025686,001451:                                                                                                  #  OUTPUT        NORMAL.  EXIT WITH S(MPAC) = 0.
025687,001452: 
025688,001453:                                                                                                  #                (1)     CDUXD,CDUYD,CDUZD, DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025689,001454:                                                                                                  #                        DP, 1S COMPL, SCALED 180 DEGREES (HALF-REVS B0).
025690,001455:                                                                                                  #                (2)     DELCDUX,DELCDUY,DELCDUZ.  0.1 SEC DCU ANGULAR INCREMENTS,
025691,001456:                                                                                                  #                        DP, 1S COMPL, SCALED 180 DEG.
025692,001457:                                                                                                  #                (3)     WBODY,WBODY1,WBODY2.  LOS ANGULAR RATE IN CONTROL COORDS,
025693,001458:                                                                                                  #                        DP, 1S COMPL, SCALED 450 DEG/SEC.
025694,001459: 
025695,001460:                                                                                                  #                SPECIAL.  EXIT WITH S(MPAC) = 1.
025696,001461: 
025697,001462:                                                                                                  #                (1)     CPHI,CTHETA,CPSI.  DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025698,001463:                                                                                                  #                        SP, 2S COMPL, SCALED 180 DEGREES.
025699,001464: 
025700,001465:                                                                                                  #  EXTERNAL SUBROUTINES USED     (B)=BASIC
025701,001466: 
025702,001467:                                                                                                  #                (1) CALCGA              (5) LOADTIME(B)         (9) SMNB
025703,001468:                                                                                                  #                (2) CDUTRIG             (6) MATMOVE
025704,001469:                                                                                                  #                (3) CSMCONIC            (7) RDCDUS(B)
025705,001470:                                                                                                  #                (4) LEMCONIC            (8) SMCDURES
025706,001471: 
025707,001472:                                                                                                  #  ERASABLE      (1) S(Q611),EBANK7      CRS61.1 EXIT.
025708,001473:                                                                                                  #                (2) S(Q6111)EBANK7      CALCDCDU EXIT.
025709,001474:                                                                                                  #                (3) T(SAVEDCDU) E6      SP VECTOR OF CDUDS.
025710,001475:                                                                                                  #                (4) V(SAVEPOS)  E7      CSM POS VEC AND D(SAVEPOS)= LENGTH OF LOS.
025711,001476:                                                                                                  #                (5) V(SAVEVEL) E7       CSM VEL VEC.
025712,001477: 
025713,001478:                                                                                                  #  FLAGWDS       HOLDFLAG.  USED, NOT SET.
025714,001479: 
025715,001480:                                                                                                  #  MISC          (1) ERASABLE ITEMP1 USED TO TEMP STORE EBANK UNDER INHINT.
025716,001481:                                                                                                  #                (2) ERASABLE P21TIME USED AS TEMP STORE DURING CRS61.1
025717,001482:                                                                                                  #                (3) ERAS DTHETASM USED AS TEMP STORE DURING EARLY CRS61.1
025718,001483: 
025719,001484:                                                                                                  #  DEBRIS -      CURRENT VAC AREA, CRS61.1 ERASABLES, ITEMP1, P21TIME
025720,001485: 
025721,001486: 24,2002                                           BANK     24                                    
025722,001487: 34,2000                                           SETLOC   P20S4                                 
025723,001488: 34,2000                                           BANK                                           
025724,001489: 
025725,001490: 34,3343  E6,1646                                  EBANK=   CDUXD                                 
025726,001491: 34,3343                                           COUNT*   $$/CRS61                              
025727,001492: 
025728,001493: 34,3343           40220        CRS61.1            STQ      SETPD                                 
025729,001494: 34,3344           03704                                    Q611                                  
025730,001495: 34,3345           00001                                    0                                     
025731,001496: 34,3346           77634                           RTB                                            

Page 593

025733,001498: 34,3347           45510                                    LOADTIME                              #  LOAD CLOCK TIME2,1 INTO MPAC.
025734,001499: 
025735,001500: 34,3350           36316        STORT              STCALL   P21TIME                               #  STORE CLOCK TIME FOR SUBR R63
025736,001501: 34,3351           71572                                    R63                                   #  SUBR TO CALC DCDU (T=PRESENT,PASS1)
025737,001502: 34,3352           77751                           TLOAD                                          
025738,001503: 34,3353           01156                                    THETAD                                #  SAVE DCDU(T) FROM CALCDCDU FOR STEP4.
025739,001504: 34,3354           03373                           STORE    SAVEDCDU                              
025740,001505: 
025741,001506: 34,3355           77776                           EXIT                                           
025742,001507: 34,3356           03377                           TC       STEP2CK                               
025743,001508: 34,3357           34371        AUTOCK             CAF      PRIO30                                
025744,001509: 34,3360           00006                           EXTEND                                         
025745,001510: 34,3361           06031                           RXOR     CHAN31                                
025746,001511: 34,3362           77707                           MASK     FURST3                                
025747,001512: 34,3363           00006                           EXTEND                                         #  AUTO MODE SELECTED (BITS 15-13=011)
025748,001513: 34,3364           13366                           BZF      DAPCK                                 #        YES-CONTINUE.
025749,001514: 34,3365           03372                           TC       ASET                                  
025750,001515: 
025751,001516: 34,3366           40075        DAPCK              CS       FLAGWRD1                              #  IS STIKFLAG SET (I.E. IS SOMEONE ON RHC)
025752,001517: 34,3367           75002                           MASK     STIKBIT                               
025753,001518: 34,3370           10000                           CCS      A                                     
025754,001519: 34,3371           03432                           TC       STEP3CK                               
025755,001520: 34,3372           35021        ASET               CAF      ZERO                                  
025756,001521: 34,3373           54154                           TS       MPAC                                  
025757,001522: 34,3374           06006                           TC       INTPRET                               #  EXIT CRS61.1
025758,001523: 34,3375           77650                           GOTO                                           
025759,001524: 34,3376           03704                                    Q611                                  
025760,001525: 
025761,001526: 34,3377           04662        STEP2CK            TC       BANKCALL                              
025762,001527: 34,3400           57757                           CADR     UPACTOFF                              
025763,001528: 
025764,001529: 34,3401           35016                           CAF      TWO                                   #  SET TEMPORARY INDEX DTHETASM = 2
025765,001530: 34,3402           55611        CDULOOP            TS       DTHETASM                              
025766,001531: 34,3403           51611                           INDEX    DTHETASM                              
025767,001532: 34,3404           30032                           CA       CDUX                                  #  SET A = ACTUAL CDU (ACDU).
025768,001533: 34,3405           00006                           EXTEND                                         
025769,001534: 34,3406           51611                           INDEX    DTHETASM                              #  SET INDEX TO ACCESS DESIRED CDU (DCDU).
025770,001535: 34,3407           21155                           MSU      THETAD                                #  A = DIFF = ACDU - DCDU.
025771,001536: 34,3410           54154                           TS       MPAC                                  #  RETURN TO INTERPRETER FOR 10 DEGREE CK.
025772,001537: 34,3411           06006                           TC       INTPRET                               #  (DP APPROX SP OK FOR ROUGH CHECK)
025773,001538: 34,3412           45246                           ABS      DSU                                   
025774,001539: 34,3413           31661                                    DEGREE10                              #  IS (ACDU - DCDU) MORE THAN 10 DEGREES.
025775,001540: 34,3414           77444                           BPL      EXIT                                  #  NO - OK, CONTINUE CHECKING OTHER ANGLES.
025776,001541: 34,3415           71421                                    STKTEST                               #  TEST STICK FLAG
025777,001542: 34,3416           11611                           CCS      DTHETASM                              #  HAVE ALL 3 ANGLE DIFFS BEEN CHECKED.
025778,001543: 34,3417           03402                           TC       CDULOOP                               #  NO - DIM COUNT, CHECK NEXT ANGLE DIFF.
025779,001544: 34,3420           03357                           TC       AUTOCK                                
025780,001545: 34,3421           77776        STKTEST            EXIT                                           
025781,001546: 34,3422           40075                           CS       FLAGWRD1                              
025782,001547: 34,3423           75002                           MASK     STIKBIT                               

Page 594

025784,001549: 34,3424           10000                           CCS      A                                     
025785,001550: 34,3425           03563                           TC       MANUEXIS                              #  STIKFLAG IS NOT SET (DO R63)
025786,001551: 34,3426           35015                           CAF      BIT3                                  
025787,001552: 34,3427           00006                           EXTEND                                         #  STIKFLG IS SET
025788,001553: 34,3430           05011                           WOR      DSALMOUT                              #  TURN ON UPACTY LIGHT
025789,001554: 
025790,001555: 34,3431           03372                           TC       ASET                                  #  EXIT AND SET R61CNTR
025791,001556: 34,3432           06006        STEP3CK            TC       INTPRET                               
025792,001557: 34,3433           77601                           SETPD                                          
025793,001558: 34,3434           00001                                    0                                     #  *
025794,001559:                                                                                                  #  NOW HAVE DCDUS STORED IN T(SAVEDCDU).
025795,001560:                                                                                                  #  GO CALC OTHER DAP INPUTS (DELCDU,WBODY)
025796,001561: 34,3435           52375        CRS61.2            VLOAD    VSU                                   
025797,001562: 34,3436           03204                                    DCDU                                  
025798,001563: 34,3437           03715                                    SAVEVEL                               #  DV = VL - VC
025799,001564: 34,3440           57456                           UNIT     VCOMP                                 #  V(MPAC)=-UNITDV. VAC36D=ABSDV.
025800,001565: 34,3441           74235                           VXV      VXSC                                  #  (-UNITDV)CROSS(UNITLOS).
025801,001566: 34,3442           03707                                    SAVEPOS                               
025802,001567: 34,3443           31662                                    RVCS/RDS                              #  (UNITLOS B1)(UNITDV B1)(CONST B4)=CROSS.
025803,001568: 34,3444           77606                           PUSH                                           #  HOLD CROSS IN PUSHLIST0.  SCALED B6.
025804,001569: 34,3445           60345                           DLOAD    NORM                                  #  OBTAIN ABS VALUE OF LOS.
025805,001570: 34,3446           02316                                    P21TIME                               #  P21TIME IS TEMP STORE FOR ABSLOS.
025806,001571: 34,3447           00047                                    X1                                    
025807,001572: 34,3450           77606                           PUSH                                           #  NORM ABSLOS(DENOM) AND HOLD IN PUSH1.
025808,001573: 
025809,001574: 34,3451           60345                           DLOAD    NORM                                  
025810,001575: 34,3452           00045                                    36D                                   #  NORM ABS VALUE OF DV(NUM).
025811,001576: 34,3453           00051                                    S1                                    
025812,001577: 
025813,001578: 34,3454           70460                           XSU,1    SR1                                   #  X1 = X1(N DENOM)-S1(N NUM).
025814,001579: 34,3455           00050                                    S1                                    #  SR1 TO AVOID OFLOW ON DDV.
025815,001580: 34,3456           74271                           DDV      VXSC                                  #  ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
025816,001581: 34,3457           77730                           SXA,1                                          #  QUOT(MPAC) X CROSS(PUSH0)
025817,001582: 34,3460           03705                                    Q6111                                 #  SAVE SCALE OF RESULT (R-15,1X).
025818,001583:                                                                                                  #  X1= NORM OF QUOT. QUOT SCALE B7-B29=B-22
025819,001584:                                                                                                  #  CROSS IS SCALED B6.  NEED SL1 TO RECOVER
025820,001585:                                                                                                  #  SR1 SO THAT -22+6+1=-15.  MPAC NOW HOLDS
025821,001586:                                                                                                  #  ORTHO LOS RATE (OMEGA TH, B-15,X1).
025822,001587: 34,3461           76521                           MXV      VSL1                                  #  OBTAIN RATE IN SM COORDS (OMEGTHSM) AND
025823,001588: 34,3462           01736                                    REFSMMAT                              #  ADJUST FOR REFSMMAT SCALE OF B1.
025824,001589: 34,3463           00025                           STORE    20D                                   #  OMEGTHSM = VAC20D
025825,001590:                                                                                                  #  DELTA THETA SM = OMEGTHSM * .1B-3.
025826,001591: 34,3464           77761                           VXSC                                           
025827,001592: 34,3465           31664                                    TENTH                                 
025828,001593: 34,3466           03212                           STORE    DTHETASM                              #  STORE SM INCREM ANGLES FOR SMCDURES.
025829,001594: 34,3467           77624                           CALL                                           
025830,001595: 34,3470           47477                                    CDUTRIG                               #  OBTAIN SIN,COSCDUS FOR SMCDURES.
025831,001596: 34,3471           45001                           SETPD    CALL                                  #  SMCDURES USES PUSH
025832,001597: 34,3472           00001                                    0                                     
025833,001598: 34,3473           47742                                    SMCDURES                              #  OBTAIN DELCDU IN V(DCDU).

Page 595

025835,001600: 34,3474           77750                           LXA,1                                          #  RELOAD X1
025836,001601: 34,3475           03705                                    Q6111                                 
025837,001602: 34,3476           53775                           VLOAD    VSL*                                  #  RECOVER SCALE.
025838,001603: 34,3477           03204                                    DCDU                                  #  (B-15,X1) + TENTH(B-3) + HALFREVS(B1)
025839,001604: 34,3500           20160                                    0          -17D,1                     #  EQUALS B-17D,1 TO OBTAIN HALFREVS B0.
025840,001605: 34,3501           00017                           STORE    14D                                   #  HOLD DELS IN V(VAC14D) FOR AUTOPILOT.
025841,001606: 
025842,001607: 34,3502           77624                           CALL                                           #  COMPUTES SINES AND COSINES FOR *SMNB*
025843,001608: 34,3503           47477                                    CDUTRIG                               
025844,001609: 34,3504           45175                           VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
025845,001610: 34,3505           00025                                    20D                                   #  VECTOR FOR TRG*SMNB INTO MPAC
025846,001611: 34,3506           47644                                    *SMNB*                                #  OBTAIN ANG. RATE REFERRED TO NB (BODY)
025847,001612: 34,3507           77721                           MXV                                            
025848,001613: 34,3510           31670                                    MBDYTCTL                              #  CONVERT RATE(OMEGA) TO CONTROL COORDS.
025849,001614: 34,3511           77761                           VXSC                                           #  MULT. BY 0.8 TO RESCALE REVS TO 450 DEG.
025850,001615: 34,3512           15271                                    POINT8                                #  RECOVER SCALE.
025851,001616: 34,3513           53750                           LXA,1    VSL*                                  #  RELOAD X1 TO RECOVER NORMALIZ.
025852,001617: 34,3514           03705                                    Q6111                                 #  (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO
025853,001618: 34,3515           20163                                    0          -14D,1                     #  OBTAIN REVS SCALED AT 450 DEGREES.
025854,001619: 
025855,001620: 34,3516           77776        CRS61.2A           EXIT                                           
025856,001621: 34,3517           00004                           INHINT                                         
025857,001622: 34,3520           35021                           CAF      ZERO                                  #  TRANSFER DESIRED GIMBAL ANGLES
025858,001623: 34,3521           55647                           TS       CDUXD      +1                         #  FROM T(SAVEDCDU) TO V(CDUXD).
025859,001624: 34,3522           55651                           TS       CDUYD      +1                         
025860,001625: 34,3523           55653                           TS       CDUZD      +1                         
025861,001626: 34,3524           31772                           CA       SAVEDCDU                              
025862,001627: 34,3525           55646                           TS       CDUXD                                 
025863,001628: 34,3526           31773                           CA       SAVEDCDU   +1                         
025864,001629: 34,3527           55650                           TS       CDUYD                                 
025865,001630: 34,3530           31774                           CA       SAVEDCDU   +2                         
025866,001631: 34,3531           55652                           TS       CDUZD                                 
025867,001632: 
025868,001633: 34,3532           00006                           EXTEND                                         #  TRANSFER OMEGA CONTROL (ANG. LOS RATE)
025869,001634: 34,3533           30155                           DCA      MPAC                                  #  FROM V(MPAC) TO V(WBODY).
025870,001635: 34,3534           53526                           DXCH     WBODY                                 
025871,001636: 34,3535           00006                           EXTEND                                         
025872,001637: 34,3536           30160                           DCA      MPAC       +3                         
025873,001638: 34,3537           53530                           DXCH     WBODY1                                
025874,001639: 34,3540           00006                           EXTEND                                         
025875,001640: 34,3541           30162                           DCA      MPAC       +5                         
025876,001641: 34,3542           53532                           DXCH     WBODY2                                
025877,001642: 
025878,001643: 34,3543           00006                           EXTEND                                         #  TRANSFER CDU INCREMENTS
025879,001644: 34,3544           50120                           INDEX    FIXLOC                                #  FROM V(VAC14D) TO V(DELCDUX).
025880,001645: 34,3545           30017                           DCA      14D                                   
025881,001646: 34,3546           53576                           DXCH     DELCDUX                               
025882,001647: 34,3547           00006                           EXTEND                                         
025883,001648: 34,3550           50120                           INDEX    FIXLOC                                
025884,001649: 34,3551           30021                           DCA      16D                                   

Page 596

025886,001651: 34,3552           53600                           DXCH     DELCDUY                               
025887,001652: 34,3553           00006                           EXTEND                                         
025888,001653: 34,3554           50120                           INDEX    FIXLOC                                
025889,001654: 34,3555           30023                           DCA      18D                                   
025890,001655: 34,3556           53602                           DXCH     DELCDUZ                               
025891,001656: 34,3557           45017                           CS       ONE                                   #  NOW DAP VARIABLES LOADED.  SET HOLDFLAG.
025892,001657: 34,3560           55332                           TS       HOLDFLAG                              #  TO -1.
025893,001658: 34,3561           00003                           RELINT                                         
025894,001659: 34,3562           03372                           TC       ASET                                  
025895,001660: 34,3563           06006        MANUEXIS           TC       INTPRET                               
025896,001661: 34,3564           77751        MANUEXIT           TLOAD                                          #  ENTER FROM STEP2.  ACDU-DCDU EXCEEDS
025897,001662: 34,3565           03373                                    SAVEDCDU                              #  10 DEG. STORE DCDU(T) IN CPHI,CTHETA,
025898,001663: 34,3566           01156                           STORE    CPHI                                  #  CPSI FOR KALCMANU.
025899,001664: 34,3567           52135                           SLOAD    GOTO                                  #  SPECIAL RETURN (MPAC+0 = 1
025900,001665: 34,3570           31712                                    LOONE                                 #  OCTAL 00001
025901,001666: 34,3571           03704                                    Q611                                  
025902,001667: 
025903,001668: 34,3572           71220        R63                STQ      DLOAD                                 #  SUBR TO CALC DCDUS(T)
025904,001669: 34,3573           03705                                    Q6111                                 
025905,001670: 34,3574           02316                                    P21TIME                               
025906,001671: 34,3575           34041                           STCALL   TDEC1                                 
025907,001672: 34,3576           27114                                    CSMCONIC                              
025908,001673: 34,3577           77775        HOLDATT            VLOAD                                          #  HOLD EXTRAPOLATED CSM POSITION AND
025909,001674: 34,3600           00001                                    RATT                                  #  VELOCITY
025910,001675: 34,3601           27707                           STOVL    SAVEPOS                               
025911,001676: 34,3602           00007                                    VATT                                  
025912,001677: 34,3603           03715                           STORE    SAVEVEL                               
025913,001678: 34,3604           77745        CALCLEM            DLOAD                                          #  EXTRAPOLATE LEM STATE VECTOR TO SAME
025914,001679: 34,3605           02316                                    P21TIME                               #  TIME AS CSM USING LEMCONIC.
025915,001680: 34,3606           34041                           STCALL   TDEC1                                 
025916,001681: 34,3607           27126                                    LEMCONIC                              
025917,001682: 34,3610           77775                           VLOAD                                          
025918,001683: 34,3611           00007                                    VATT                                  
025919,001684: 34,3612           27204                           STOVL    DCDU                                  #  STORE VATT IN DCDU TEMPORARILY
025920,001685: 34,3613           00001                                    RATT                                  #  LOS = RL RC
025921,001686: 34,3614           53451                           VSU      UNIT                                  
025922,001687: 34,3615           03707                                    SAVEPOS                               
025923,001688: 34,3616           03707                           STORE    SAVEPOS                               #  SAVE UNITLOS FOR CRS61.2 RATE CALC.
025924,001689: 34,3617           76521                           MXV      VSL1                                  
025925,001690: 34,3620           01736                                    REFSMMAT                              #  CONVERT TO STABLE MEMBER
025926,001691: 34,3621           17357                           STODL    POINTVSM                              
025927,001692: 34,3622           00045                                    36D                                   #  HOLD ABS VAL OF LOS (VAC 36D)
025928,001693: 34,3623           02316                           STORE    P21TIME                               #  IN D(P21TIME) FOR CRS61.2 RATE CALC.
025929,001694: 34,3624           77775                           VLOAD                                          
025930,001695: 34,3625           15333                                    UNITX                                 
025931,001696: 34,3626           37351                           STCALL   SCAXIS                                #  TRACK AXIS UNIT VECTOR
025932,001697: 34,3627           56126                                    VECPOINT                              #  FOR +X-AXIS TRACKING ATTITUDE
025933,001698: 34,3630           01334                           STORE    CPHIX                                 #  STORE ANGLES FOR N96 DISPLAY
025934,001699: 34,3631           77775                           VLOAD                                          
025935,001700: 34,3632           31653                                    PRFUNIT                               

Page 597

025937,001702: 34,3633           37351                           STCALL   SCAXIS                                
025938,001703: 34,3634           56126                                    VECPOINT                              
025939,001704: 34,3635           03723                           STORE    PRAXIS                                #  STORE ANGLES FOR N95 DISPLAY
025940,001705: 34,3636           77614                           BOFF                                           
025941,001706: 34,3637           02745                                    PRFTRKAT                              
025942,001707: 34,3640           71644                                    CRSTOR1                               
025943,001708: 34,3641           01156        CRSTOR             STORE    THETAD                                #  STORE ANGLES FOR N18 DISPLAY
025944,001709: 34,3642           77650                           GOTO                                           
025945,001710: 34,3643           03705                                    Q6111                                 
025946,001711: 34,3644           77775        CRSTOR1            VLOAD                                          
025947,001712: 34,3645           15333                                    UNITX                                 
025948,001713: 34,3646           03351                           STORE    SCAXIS                                
025949,001714: 34,3647           52151                           TLOAD    GOTO                                  
025950,001715: 34,3650           01334                                    CPHIX                                 
025951,001716: 34,3651           71641                                    CRSTOR                                
025952,001717: 34,3652           15066 17626  PRFUNIT            2DEC     .40957602                             #  55 DEG TRACK AXIS UNIT VECTOR
025953,001718: 34,3654           00000 00000                     2DEC     0.0                                   #  FOR USE WITH VECPOINT
025954,001719: 34,3656           11132 27477                     2DEC     .28678822                             
025955,001720: 34,3660           01616        DEGREE10           DEC      .05556                                #  10 DEG IN REVS                STEP2
025956,001721: 34,3661           37651 16721  RVCS/RDS           2DEC     15.915494  B-4                        #  100/2PI REV-CSEC/RAD-SEC.
025957,001722: 34,3663           31463 06315  TENTH              2DEC     .1         B+3                        #  .1 B-3 (TO SCALE ANG. RATE TO .1 INREMS)
025958,001723: 34,3665           20000 00000  MAT1B1             2DEC     1.0        B-1                        
025959,001724: 34,3667           20000 00000  MBDYTCTL           2DEC     .5                                    #                7.25 DEG NEGATIVE
025960,001725: 34,3671           00000 00000                     2DEC     0          B-28                       #                X-AXIS ROTATION MATRIX
025961,001726: 34,3673           00000 00000                     2DEC     0          B-28                       #                CONVERTS BODY TO CTL
025962,001727: 34,3675           00000 00000                     2DEC     0          B-28                       #                AXES.  SAME AS QUADROT
025963,001728: 34,3677           17676 20113                     2DEC     .99200495  B-1                        #  COS7.25 B1    BUT SCALED B1
025964,001729: 34,3701           75766 45544                     2DEC     -.12619897 B-1                        #  -SIN7.25 B1
025965,001730: 34,3703           00000 00000                     2DEC     0          B-28                       
025966,001731: 34,3705           02011 32233                     2DEC     .12619897  B-1                        #  SIN7.25 B1
025967,001732: 34,3707           17676 20113                     2DEC     .99200495  B-1                        #  COS7.25 B1
025968,001733: 34,3711           00001        LOONE              OCT      00001                                 #  TO SET MPAC = 00001 FOR SPECIAL EXIT.
025969,001734: 34,3712     7707               FURST3             EQUALS   13,14,15                              #  CONSTANT FOR AUTOCK (OCT 70000).
025970,001735: 

Page 598

025972,001737:                                                                                                  #  ..... S22.1 ORBITAL NAVIGATION ROUTINE
025973,001738:                                                                                                  #  MOD 1
025974,001739: 
025975,001740:                                                                                                  #  FUNCTIONAL DESCRIPTION
025976,001741:                                                                                                  #        1.  UPDATE CSM STATE VECTOR
025977,001742:                                                                                                  #        2.  UPDATE LANDMARK POSITION
025978,001743:                                                                                                  #        3.  CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS
025979,001744: 
025980,001745:                                                                                                  #  SUBROUTINES CALLED
025981,001746:                                                                                                  #        INTSTALL,INTEGRV,GETUM,SETRE,R-TO-TP,RP-TO-R,BVECTORS,INCORP1,INCORP2
025982,001747:                                                                                                  #        LALOTORV,S22F2410,LAT-LONG,ROWDOT
025983,001748: 
025984,001749:                                                                                                  #  ERASABLE INITIALIZATION
025985,001750:                                                                                                  #        W=9X9 MATRIX
025986,001751:                                                                                                  #        ORBWFLAG=0 FOR INVALID W MATRIX, =1 FOR VALID W MATRIX
025987,001752:                                                                                                  #        ASTRONAUT ENTRY OF KNOWN,L,OFF
025988,001753:                                                                                                  #        8NN= NUMBER OF MARKS  DECIMAL INTEGER B-14
025989,001754:                                                                                                  #        REFSMMAT= TRANSFORMATION MATRIX
025990,001755:                                                                                                  #        MARKSTAT= ADDRESS OF START OF MARK DATA (MARK DATA OF EACH MARK IS
025991,001756:                                                                                                  #                  STORED AS FOLLOWS,  TIME,AIG,SA,AMG,PA,AOG) TIME IS IN DOUBLE
025992,001757:                                                                                                  #                  PRECISION, ALL OTHERS ARE IN SINGLE PRECISION
025993,001758:                                                                                                  #        CSM STATE VECTOR
025994,001759: 
025995,001760:                                                                                                  #  OUTPUT
025996,001761:                                                                                                  #        UPDATED CSM STATE VECTOR
025997,001762:                                                                                                  #        UPDATED LANDMARK POSITION
025998,001763:                                                                                                  #        NEW 6 DIMENSIONAL W MATRIX
025999,001764: 
026000,001765:                                                                                                  #  DEBRIS
026001,001766:                                                                                                  #        PUSH LIST,CSMPOS,ALPHAV,ERADM,UM,RCLP,USTAR,VARIANCE,X789,BVECTOR,8KK,
026002,001767:                                                                                                  #        S22LOC,SVMRKDAT TABLE,22SUBSCL,LANDMARK,CXOFF,S22C,LAT,LONG,ALT,
026003,001768:                                                                                                  #        TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
026004,001769: 
026005,001770: 13,2231                                           BANK     13                                    
026006,001771: 
026007,001772: 30,2000                                           SETLOC   P20S6                                 
026008,001773: 30,2000                                           BANK                                           
026009,001774: 
026010,001775: 30,2312  E5,1751                                  EBANK=   LANDMARK                              
026011,001776: 30,2312                                           COUNT    35/LUORB                              
026012,001777: 
026013,001778: 30,2312           66220        S22.1              STQ      SSP                                   
026014,001779: 30,2313           03703                                    S22RTNEX                              
026015,001780: 30,2314           00051                                    S1                                    
026016,001781: 30,2315           00006                           DEC      6          B-14                       
026017,001782: 30,2316           66331                           SSP      SSP                                   #  SET I=1       ITEM 8KK IS I
026018,001783: 30,2317           02747                                    8KK                                   
026019,001784: 30,2320           00001                           DEC      1          B-14                       
026020,001785: 30,2321           02751                                    S22LOC                                
026021,001786: 30,2322           03537                           ECADR    SVMRKDAT                              #  SET MARK DATA ADDRESS INTO S22LOC

Page 599

026023,001788: 30,2323           76144                           LXC,2    AXT,1                                 
026024,001789: 30,2324           01330                                    MARKSTAT                              
026025,001790: 30,2325           00044                           DEC      36         B-14                       
026026,001791: 30,2326           77773        S22.111            VLOAD*                                         #  MOVE MARK DATA (5 SETS) FROM ADDR. IN
026027,001792: 30,2327           77776                                    0,2                                   #  MARKSTAT TO SVMRKDAT TABLE TO AVOID LOSS
026028,001793: 30,2330           07604                           STORE    SVMRKDAT   +36D,1                     #  IF RESTART OCCURS
026029,001794: 30,2331           60114                           INCR,2   TIX,1                                 
026030,001795: 30,2332           77771                           DEC      -6         B-14                       
026031,001796: 30,2333           60326                                    S22.111                               
026032,001797: 30,2334           77414                           SET      EXIT                                  
026033,001798: 30,2335           01464                                    P22MKFLG                              #  DOWNLINKED SVMRKDAT HOLDS PRESENT MARKS
026034,001799: 30,2336           04662                           TC       BANKCALL                              #  RELEASE VAC AREA WHERE MARK DATA WAS
026035,001800: 30,2337           16063                           CADR     MKRELEAS                              
026036,001801: 30,2340           05372                           TC       2PHSCHNG                              
026037,001802: 30,2341           00004                           OCT      00004                                 
026038,001803: 30,2342           05022                           OCT      05022                                 
026039,001804: 30,2343           13000                           OCT      13000                                 
026040,001805: 30,2344           06006                           TC       INTPRET                               
026041,001806: 30,2345           43170                           AXT,1    BOFF                                  
026042,001807: 30,2346           00000                                    0D                                    
026043,001808: 30,2347           04343                                    CMOONFLG                              #  =0 EARTH, =1 MOON
026044,001809: 30,2350           60353                                    S22SHIFT                              
026045,001810: 30,2351           77710                           INCR,1                                         
026046,001811: 30,2352           77775                           DEC      -2         B-14                       
026047,001812: 30,2353           40330        S22SHIFT           SXA,1    SETPD                                 
026048,001813: 30,2354           03673                                    S22EORM                               #  SET =0 EARTH, =-2 MOON FOR SHIFTING
026049,001814: 30,2355           00001                                    0D                                    
026050,001815: 30,2356           77624        FIG2EXIT           CALL                                           
026051,001816: 30,2357           27442                                    INTSTALL                              
026052,001817: 30,2360           77624                           CALL                                           
026053,001818: 30,2361           62355                                    S22FLGS                               
026054,001819:                                                                                                  #        FLOWCHART D=0   THEN DIM0FLAG=0  D6OR9FLG NOT TESTED
026055,001820:                                                                                                  #        FLOWCHART D=6   THEN DIM0FLAG=1  D6OR9FLG=0
026056,001821:                                                                                                  #        FLOWCHART D=9   THEN DIM0FLAG=1  D6OR9FLG=1
026057,001822: 
026058,001823: 30,2362           43014                           BOFF     CLRGO                                 
026059,001824: 30,2363           01751                                    ORBWFLAG                              
026060,001825: 30,2364           60367                                    SETWW5D                               #  BRANCH TO SET W0-W5,ORBWFLAG,D
026061,001826: 30,2365           01635                                    D6OR9FLG                              #  FLOWCHART D=6 PATH
026062,001827: 30,2366           60414                                    SETVANDI                              
026063,001828: 30,2367           77614        SETWW5D            CLEAR                                          
026064,001829: 30,2370           01676                                    DIM0FLAG                              #  FLOWCHART D=0 PATH
026065,001830: 30,2371           66370                           AXT,1    SSP                                   
026066,001831: 30,2372           00154                           DEC      108        B-14                       
026067,001832: 30,2373           00051                                    S1                                    
026068,001833: 30,2374           00006                           DEC      6          B-14                       
026069,001834: 30,2375           77214                           CLEAR    VLOAD                                 
026070,001835: 30,2376           02676                                    RENDWFLG                              #  GSOP CHANGE 8/18/67
026071,001836: 30,2377           15335                                    ZEROVECS                              
026072,001837: 30,2400           06555        CLEARWW5           STORE    W          +108D,1                    

Page 600

026074,001839: 30,2401           67300                           TIX,1    SLOAD                                 
026075,001840: 30,2402           60400                                    CLEARWW5                              
026076,001841: 30,2403           02005                                    WORBPOS                               
026077,001842: 30,2404           02401                           STORE    W                                     #  SET DIAGONALS OF W0
026078,001843: 30,2405           02411                           STORE    W          +8D                        
026079,001844: 30,2406           02421                           STORE    W          +16D                       
026080,001845: 30,2407           77735                           SLOAD                                          
026081,001846: 30,2410           02006                                    WORBVEL                               
026082,001847: 30,2411           02511                           STORE    W          +72D                       #  SET DIAGONALS OF W4
026083,001848: 30,2412           02521                           STORE    W          +80D                       
026084,001849: 30,2413           02531                           STORE    W          +88D                       
026085,001850: 30,2414           77614        SETVANDI           CLEAR                                          
026086,001851: 30,2415           02666                                    DMENFLG                               #  0=6X6W, 1=9X9W
026087,001852: 30,2416           77624        S22NXTIN           CALL                                           
026088,001853: 30,2417           62351                                    GETTF                                 
026089,001854: 30,2420           34041                           STCALL   TDEC1                                 
026090,001855: 30,2421           27162                                    INTEGRV                               
026091,001856: 30,2422           77624                           CALL                                           
026092,001857: 30,2423           61332                                    S22CALRC                              #  CALC. RC B-29 OR B-27 (CSMPOS)
026093,001858: 30,2424           66150                           LXA,1    SXA,1                                 
026094,001859: 30,2425           02750                                    S22LOC                                #  SETUP ADDR. OF MARK DATA FOR GETUM SUBR.
026095,001860: 30,2426           01242                                    MARKDATA                              
026096,001861: 30,2427           77624                           CALL                                           #  COMPUTE UM
026097,001862: 30,2430           47104        S2GETUM                     GETUM                                 
026098,001863: 30,2431           01235                           STORE    UM                                    
026099,001864: 30,2432           41535        DMPINTEG           SLOAD    PUSH                                  #  TEST OFF=I
026100,001865: 30,2433           02747                                    8KK                                   
026101,001866: 30,2434           50535                           SLOAD    SR3                                   #  CXOFF SCALED B-5, MUST MOVE TO B-14
026102,001867: 30,2435           02746                                    CXOFF                                 #  BEFORE SUBT.
026103,001868: 30,2436           50442                           SR3      SR3                                   
026104,001869: 30,2437           77625                           DSU                                            
026105,001870: 30,2440           43030                           BHIZ     BON                                   
026106,001871: 30,2441           60755                                    S22OFF=I                              #  BRANCH HERE IF OFF=I
026107,001872: 30,2442           02706                                    DMENFLG                               #  0=6X6W, 1=9X9W
026108,001873: 30,2443           60763                                    S22D=9                                
026109,001874: 30,2444           77624                           CALL                                           
026110,001875: 30,2445           56750                                    GRP2PC                                
026111,001876: 30,2446           77614                           SET                                            
026112,001877: 30,2447           01471                                    ORBWFLAG                              
026113,001878: 30,2450           43014                           SET      SET                                   
026114,001879: 30,2451           02466                                    DMENFLG                               #  =0 ON FIRST PASS THRU HERE FOR D=0, OR 6
026115,001880: 30,2452           01062                                    22DSPFLG                              #  =1 TO DISPLAY DR,DV ON FIRST PASS
026116,001881: 30,2453           43014                           SET      BON                                   
026117,001882: 30,2454           00462                                    ERADFLAG                              #  =1 TO COMPUTE FISCHER RADIUS
026118,001883: 30,2455           03307                                    KNOWNFLG                              
026119,001884: 30,2456           61123                                    S22BOX22                              
026120,001885: 30,2457           53575                           VLOAD    UNIT                                  #  UNIT ALSO PUTS ABVAL(RC) IN 36D
026121,001886: 30,2460           01207                                    CSMPOS                                
026122,001887: 30,2461           02152                           STORE    ALPHAV                                #  ALPHAV +4=SINL FOR SETRE
026123,001888: 30,2462           43014                           CLEAR    BOFF                                  

Page 601

026125,001890: 30,2463           01663                                    LUNAFLAG                              
026126,001891: 30,2464           04343                                    CMOONFLG                              
026127,001892: 30,2465           60470                                    S22C=I                                
026128,001893: 30,2466           77614                           SET                                            
026129,001894: 30,2467           01463                                    LUNAFLAG                              
026130,001895: 30,2470           77624        S22C=I             CALL                                           #  ERADM= R0 METERS B-29 BOTH EARTH/MOON
026131,001896: 30,2471           26601                                    SETRE                                 
026132,001897: 30,2472           77624                           CALL                                           #  COMPUTE RL FROM EQUATION 2.4.10
026133,001898: 30,2473           61277                                    S22F2410                              #  STORED IN X789,MPAC B-27,B-29
026134,001899: 30,2474           70414                           BOFF     VSR2                                  #  SCALE RL B-29 FOR BOTH EARTH/MOON
026135,001900: 30,2475           04343                                    CMOONFLG                              
026136,001901: 30,2476           60477                                    +1                                    
026137,001902: 30,2477           02635                           STORE    S22RL                                 
026138,001903: 30,2500           72441                           DOT      SL1                                   
026139,001904: 30,2501           01235                                    UM                                    
026140,001905: 30,2502           24037                           STOVL    S22D                                  #  D= UM.RL B-29
026141,001906: 30,2503           15335                                    ZEROVECS                              
026142,001907: 30,2504           41401                           SETPD    PUSH                                  
026143,001908: 30,2505           00001                                    0D                                    
026144,001909: 30,2506           65206                           PUSH     PDDL                                  #  SET 0-18D = I BACKWARDS
026145,001910: 30,2507           15333                                    HIDPHALF                              #  PD 18
026146,001911: 30,2510           77702                           SR2                                            #  B-3
026147,001912: 30,2511           00005                           STORE    4D                                    
026148,001913: 30,2512           00011                           STORE    8D                                    
026149,001914: 30,2513           24015                           STOVL    12D                                   
026150,001915: 30,2514           01235                                    UM                                    #  B-1
026151,001916: 30,2515           24023                           STOVL    S223X1                                
026152,001917: 30,2516           02635                                    S22RL                                 #  B-29
026153,001918: 30,2517           77624                           CALL                                           #  (UM)(RL T) B-30 STORED IN S22UMRL THRU
026154,001919: 30,2520           62332                                    S2231X13                              #  S22UMRL +17D
026155,001920: 30,2521           66370                           AXT,1    SSP                                   
026156,001921: 30,2522           00022                           DEC      18         B-14                       
026157,001922: 30,2523           00051                                    S1                                    
026158,001923: 30,2524           00006                           DEC      6          B-14                       
026159,001924: 30,2525           70573        S22NXTU            VLOAD*   VSR2                                  #  (UM)(RL T) B-32
026160,001925: 30,2526           03524                                    S22UMRL    +18D,1                     
026161,001926: 30,2527           77741                           V/SC                                           
026162,001927: 30,2530           00037                                    S22D                                  #  D B-29
026163,001928: 30,2531           45445                           BVSU     STADR                                 #  SUBTRACT FROM I B-3
026164,001929: 30,2532           70253                           STORE    S22UMRL    +18D,1                     #  U MATRIX B-3
026165,001930: 30,2533           76100                           TIX,1    AXT,1                                 #  PD 0 AFTER TIX
026166,001931: 30,2534           60525                                    S22NXTU                               
026167,001932: 30,2535           00044                           DEC      36         B-14                       #  S1 STILL 6 FROM ABOVE
026168,001933: 30,2536           64373        S22NXTWI           VLOAD*   MXV                                   
026169,001934: 30,2537           02445                                    W          +36D,1                     #  B-19
026170,001935: 30,2540           03502                                    S22UMRL                               #  B-3
026171,001936: 30,2541           77732                           VSL3                                           
026172,001937: 30,2542           06621                           STORE    W          +144D,1                    #  W(I+18)= UW(I) B-19
026173,001938: 30,2543           71300                           TIX,1    DLOAD                                 
026174,001939: 30,2544           60536                                    S22NXTWI                              

Page 602

026176,001941: 30,2545           00041                                    S22RHO                                #  B-28,B-30
026177,001942: 30,2546           60414                           BOFF     SR2                                   #  MAKE RHO B-30
026178,001943: 30,2547           04343                                    CMOONFLG                              
026179,001944: 30,2550           60551                                    +1                                    
026180,001945: 30,2551           57101                           NORM     XAD,2                                 
026181,001946: 30,2552           00050                                    X2                                    
026182,001947: 30,2553           00047                                    X2                                    
026183,001948: 30,2554           41316                           DSQ      DMP                                   
026184,001949: 30,2555           21636                                    SCTVAR                                #  B+18
026185,001950: 30,2556           77742                           SR1                                            #  ACCOUNTS FOR 1/2 IN NEXT FORMULA
026186,001951: 30,2557           00041                           STORE    S22RHO                                #  1/2(RHO SQ)(VARSCT)
026187,001952: 30,2560           77770                           AXT,1                                          
026188,001953: 30,2561           00022                           DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
026189,001954: 30,2562           64373        S22NXXA            VLOAD*   MXV                                   
026190,001955: 30,2563           03524                                    S22UMRL    +18D,1                     #  B-3
026191,001956: 30,2564           03502                                    S22UMRL                               #  B-3
026192,001957: 30,2565           53761                           VXSC     VSR*                                  
026193,001958: 30,2566           00041                                    S22RHO                                
026194,001959: 30,2567           57212                                    0          -12D,2                     #  WITH VARRP SCALED B-28
026195,001960: 30,2570           05301                           STORE    S22UUT     +18D,1                     #  1/2(RHO SQ)(VARSCT)(U)(U T)
026196,001961: 30,2571           77300                           TIX,1    VLOAD                                 
026197,001962: 30,2572           60562                                    S22NXXA                               
026198,001963: 30,2573           01235                                    UM                                    
026199,001964: 30,2574           34023                           STCALL   S223X1                                #  UM ALSO IN MPAC FOR S2231X13 SUBR.
026200,001965: 30,2575           62332                                    S2231X13                              #  (UM)(UM T) B-2 IN S22UMRL,P17D
026201,001966: 30,2576           50545                           DLOAD    SR3                                   
026202,001967: 30,2577           02241                                    ERADM                                 #  R0 B-29
026203,001968: 30,2600           63471                           DDV      DSQ                                   
026204,001969: 30,2601           00037                                    S22D                                  #  B-29
026205,001970: 30,2602           77605                           DMP                                            
026206,001971: 30,2603           02010                                    RPVAR                                 #  ***** METERS SQ
026207,001972: 30,2604           00041                           STORE    S22RHO                                #  TEMP (VARRP)(R0/D)
026208,001973: 30,2605           77770                           AXT,1                                          
026209,001974: 30,2606           00022                           DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
026210,001975: 30,2607           74373        S22NXXB            VLOAD*   VXSC                                  
026211,001976: 30,2610           03524                                    S22UMRL    +18D,1                     #  (UM)(UM T) B-2
026212,001977: 30,2611           00041                                    S22RHO                                
026213,001978: 30,2612           77653                           VAD*                                           
026214,001979: 30,2613           01301                                    S22UUT     +18D,1                     
026215,001980: 30,2614           05301                           STORE    S22UUT     +18D,1                     #  SMALL E MATRIX
026216,001981: 30,2615           77775                           VLOAD                                          
026217,001982: 30,2616           15335                                    ZEROVECS                              
026218,001983: 30,2617           06643                           STORE    W          +162D,1                    #  CLEAR W8
026219,001984: 30,2620           40100                           TIX,1    BOV                                   
026220,001985: 30,2621           60607                                    S22NXXB                               
026221,001986: 30,2622           60623                                    +1                                    
026222,001987: 30,2623           50145                           DLOAD    BMN                                   
026223,001988: 30,2624           01277                                    S22UUT     +16D                       #  E5
026224,001989: 30,2625           60644                                    S22W76X                               
026225,001990: 30,2626           53166                           SQRT     BZE                                   

Page 603

026227,001992: 30,2627           60644                                    S22W76X                               
026228,001993: 30,2630           16625                           STODL    W          +148D                      #  W74= SQ ROOT E5
026229,001994: 30,2631           01275                                    S22UUT     +14D                       #  E4
026230,001995: 30,2632           40071                           DDV      BOV                                   
026231,001996: 30,2633           02625                                    W          +148D                      
026232,001997: 30,2634           60636                                    S22W72X                               
026233,001998: 30,2635           02623                           STORE    W          +146D                      #  W73= E4/W74
026234,001999: 30,2636           56345        S22W72X            DLOAD    DDV                                   
026235,002000: 30,2637           01273                                    S22UUT     +12D                       #  E3
026236,002001: 30,2640           02625                                    W          +148D                      
026237,002002: 30,2641           77600                           BOV                                            
026238,002003: 30,2642           60644                                    S22W76X                               
026239,002004: 30,2643           02621                           STORE    W          +144D                      #  W72= E4/W74
026240,002005: 30,2644           63545        S22W76X            DLOAD    DSQ                                   
026241,002006: 30,2645           02623                                    W          +146D                      #  W73
026242,002007: 30,2646           50021                           BDSU     BMN                                   
026243,002008: 30,2647           01267                                    S22UUT     +8D                        #  E2
026244,002009: 30,2650           60664                                    S22W78X                               
026245,002010: 30,2651           53166                           SQRT     BZE                                   
026246,002011: 30,2652           60664                                    S22W78X                               
026247,002012: 30,2653           16631                           STODL    W          +152D                      #  W76= SQ ROOT (E2-W73 SQ)
026248,002013: 30,2654           02621                                    W          +144D                      #  W72
026249,002014: 30,2655           44205                           DMP      BDSU                                  
026250,002015: 30,2656           02623                                    W          +146D                      #  W73
026251,002016: 30,2657           01265                                    S22UUT     +6D                        #  E1
026252,002017: 30,2660           40071                           DDV      BOV                                   
026253,002018: 30,2661           02631                                    W          +152D                      #  W76
026254,002019: 30,2662           60664                                    S22W78X                               
026255,002020: 30,2663           02627                           STORE    W          +150D                      #  W75= (E1-W72W73)/W76
026256,002021: 30,2664           63545        S22W78X            DLOAD    DSQ                                   
026257,002022: 30,2665           02627                                    W          +150D                      
026258,002023: 30,2666           63525                           PDDL     DSQ                                   
026259,002024: 30,2667           02621                                    W          +144D                      #  W72
026260,002025: 30,2670           77615                           DAD                                            
026261,002026: 30,2671           50021                           BDSU     BMN                                   
026262,002027: 30,2672           01257                                    S22UUT                                #  E0
026263,002028: 30,2673           60676                                    S22SCLW                               
026264,002029: 30,2674           77766                           SQRT                                           
026265,002030: 30,2675           02635                           STORE    W          +156D                      #  W78= SQ RT(E0-W72 SQ-W75 SQ)
026266,002031: 30,2676           74575        S22SCLW            VLOAD    VSR1                                  #  SCALE W6 METERS B-19
026267,002032: 30,2677           02621                                    W          +144D                      
026268,002033: 30,2700           26621                           STOVL    W          +144D                      
026269,002034: 30,2701           02627                                    W          +150D                      
026270,002035: 30,2702           77762                           VSR1                                           
026271,002036: 30,2703           26627                           STOVL    W          +150D                      
026272,002037: 30,2704           02635                                    W          +156D                      
026273,002038: 30,2705           77762                           VSR1                                           
026274,002039: 30,2706           02635                           STORE    W          +156D                      
026275,002040: 30,2707           77624        S22SAVET           CALL                                           
026276,002041: 30,2710           62351                                    GETTF                                 

Page 604

026278,002043: 30,2711           03672                           STORE    S22TPRIM                              #  SAVE PRESENT TIME FOR PIOS
026279,002044: 30,2712           77776        S22I=N             EXIT                                           #  TEST I=N
026280,002045: 30,2713           05412                           TC       PHASCHNG                              
026281,002046: 30,2714           04022                           OCT      04022                                 
026282,002047: 30,2715           41746                           CS       8KK                                   
026283,002048: 30,2716           61747                           AD       8NN                                   
026284,002049: 30,2717           00006                           EXTEND                                         
026285,002050: 30,2720           63161                           BZMF     S22F244X                              #  EXIT TO FIGURE 2.4-4
026286,002051: 30,2721           31746                           CA       8KK                                   #  I=I+1
026287,002052: 30,2722           65017                           AD       ONE                                   
026288,002053: 30,2723           55300                           TS       TEMPOR1                               
026289,002054: 30,2724           31750                           CA       S22LOC                                #  ADD 7 TO LOC TO GET ADDR. OF NEXT MARK
026290,002055: 30,2725           65023                           AD       SEVEN                                 
026291,002056: 30,2726           55301                           TS       TEMPOR1    +1                         
026292,002057: 30,2727           05412                           TC       PHASCHNG                              
026293,002058: 30,2730           04022                           OCT      04022                                 
026294,002059: 30,2731           31300                           CA       TEMPOR1                               
026295,002060: 30,2732           55746                           TS       8KK                                   
026296,002061: 30,2733           31301                           CA       TEMPOR1    +1                         
026297,002062: 30,2734           55750                           TS       S22LOC                                
026298,002063: 30,2735           06006                           TC       INTPRET                               
026299,002064: 30,2736           77624                           CALL                                           #  FOR ALL INTEGRATIONS OTHER THAN FIRST
026300,002065: 30,2737           27442        S2INTS1                     INTSTALL                              
026301,002066: 30,2740           77624                           CALL                                           
026302,002067: 30,2741           62355                                    S22FLGS                               
026303,002068: 30,2742           43014                           BON      CLEAR                                 
026304,002069: 30,2743           02706                                    DMENFLG                               
026305,002070: 30,2744           60416                                    S22NXTIN                              #  RETURN ALWAYS EXCEPT OFFSET POINT MARK 1
026306,002071: 30,2745           01676                                    DIM0FLAG                              
026307,002072: 30,2746           43014                           BOFF     SET                                   
026308,002073: 30,2747           01751                                    ORBWFLAG                              
026309,002074: 30,2750           60416                                    S22NXTIN                              #  OFFSET POINT MARK 1, NO W INTEGRATION
026310,002075: 30,2751           01476                                    DIM0FLAG                              
026311,002076: 30,2752           77614                           CLRGO                                          
026312,002077: 30,2753           01635                                    D6OR9FLG                              
026313,002078: 30,2754           60416                                    S22NXTIN                              #  OFFSET POINT MARK 1, INTEGRATE W 6X6
026314,002079: 30,2755           77624        S22OFF=I           CALL                                           
026315,002080: 30,2756           62351                                    GETTF                                 
026316,002081: 30,2757           27670                           STOVL    S22TOFF                               #  TIME SUB OFF
026317,002082: 30,2760           01235                                    UM                                    
026318,002083: 30,2761           35215                           STCALL   S22UOFF                               #  U SUB OFF
026319,002084: 30,2762           60712                                    S22I=N                                #  TEST I=N
026320,002085: 30,2763           77775        S22D=9             VLOAD                                          #  D=9 PATH
026321,002086: 30,2764           01701                                    X789                                  
026322,002087: 30,2765           14001                           STODL    0D                                    #  CALL PIOS TWICE TO TRANSFORM RL TO TIME
026323,002088: 30,2766           03672                                    S22TPRIM                              #  T(SUB F) FROM TIME T PRIME
026324,002089: 30,2767           00007                           STORE    6D                                    
026325,002090: 30,2770           45135                           SLOAD    CALL                                  
026326,002091: 30,2771           03674                                    S22EORM                               #  0=EARTH, NON-ZERO=MOON
026327,002092: 30,2772           55371        S2RTRP                      R-TO-RP                               

Page 605

026329,002094: 30,2773           45006                           PUSH     CALL                                  #  R-TO-RP LEAVES PUSHLOC AT 0
026330,002095: 30,2774           62351                                    GETTF                                 
026331,002096: 30,2775           00007                           STORE    6D                                    
026332,002097: 30,2776           45135                           SLOAD    CALL                                  
026333,002098: 30,2777           03674                                    S22EORM                               
026334,002099: 30,3000           55344        S2RPTR                      RP-TO-R                               
026335,002100: 30,3001           01701        S22BOX32           STORE    X789                                  
026336,002101: 30,3002           40014                           SET      BOV                                   
026337,002102: 30,3003           02464                                    INCORFLG                              #  FLAG=1
026338,002103: 30,3004           61005                                    +1                                    #  CLEAR OVERFLOW
026339,002104: 30,3005           77651                           VSU                                            
026340,002105: 30,3006           01207                                    CSMPOS                                
026341,002106: 30,3007           03531                           STORE    RCLP                                  #  RCL=RL-RC
026342,002107: 30,3010           47256                           UNIT     VXV                                   #  USTAR=UNIT(UNIT(RCL)XUM)
026343,002108: 30,3011           01235                                    UM                                    
026344,002109: 30,3012           40056                           UNIT     BOV                                   
026345,002110: 30,3013           60707                                    S22SAVET                              #  COMPUTATION OVERFLOW, SAVE TF
026346,002111: 30,3014           01245                           STORE    USTAR                                 
026347,002112: 30,3015           43014        S22BOX12           SET      SET                                   
026348,002113: 30,3016           02466                                    DMENFLG                               #  =1 FOR 9X9 W
026349,002114: 30,3017           00467                                    VEHUPFLG                              #  =1 FOR CSM
026350,002115: 30,3020           43345                           DLOAD    DAD                                   
026351,002116: 30,3021           21636                                    SCTVAR                                #  B+18
026352,002117: 30,3022           21640                                    IMUVARR                               #  B+18
026353,002118: 30,3023           27526                           STOVL    VARIANCE                              
026354,002119: 30,3024           03531                                    RCLP                                  #  B-29 OR B-27
026355,002120: 30,3025           60246                           ABVAL    NORM                                  
026356,002121: 30,3026           00047                                    X1                                    
026357,002122: 30,3027           41316                           DSQ      DMP                                   
026358,002123: 30,3030           03526                                    VARIANCE                              
026359,002124: 30,3031           56070                           XAD,1    XAD,1                                 
026360,002125: 30,3032           00046                                    X1                                    #  DOUBLE NORM SHIFT SINCE RCLP WAS SQUARED
026361,002126: 30,3033           03673                                    S22EORM                               #  DOUBLE EARTH OR MOON SHIFT, SAME REASON
026362,002127: 30,3034           53670                           XAD,1    SR*                                   
026363,002128: 30,3035           03673                                    S22EORM                               
026364,002129: 30,3036           20601                                    0,1                                   #  SCALE VARIANCE B-40 FOR BOTH EARTH, MOON
026365,002130: 30,3037           77751                           TLOAD                                          #  CHANGE MODE TO TRIPLE
026366,002131: 30,3040           00155                                    MPAC                                  
026367,002132: 30,3041           37526                           STCALL   VARIANCE                              #  CALC B0,B1,DELTAQ, NEW USTAR
026368,002133: 30,3042           47043        S2BVTRS                     BVECTORS                              
026369,002134: 30,3043           57575                           VLOAD    VCOMP                                 
026370,002135: 30,3044           03502                                    BVECTOR                               
026371,002136: 30,3045           37516                           STCALL   BVECTOR    +12D                       #  B2=-B0
026372,002137: 30,3046           75242        S2INCP1                     INCORP1                               
026373,002138: 30,3047           77624                           CALL                                           
026374,002139: 30,3050           56750                                    GRP2PC                                
026375,002140: 30,3051           43014                           BOFF     CLEAR                                 
026376,002141: 30,3052           01342                                    22DSPFLG                              #  =1 DISPLAY DELTA R,V    =0 DO NOT
026377,002142: 30,3053           61104                                    S22BOX42                              
026378,002143: 30,3054           01262                                    22DSPFLG                              

Page 606

026380,002145: 30,3055           77624                           CALL                                           
026381,002146: 30,3056           56750                                    GRP2PC                                
026382,002147: 30,3057           51575                           VLOAD    ABVAL                                 
026383,002148: 30,3060           01257                                    DELTAX                                #  DELTA R
026384,002149: 30,3061           53750                           LXA,1    SR*                                   
026385,002150: 30,3062           03673                                    S22EORM                               #  SCALE DELTA R ALWAYS METERS B-29
026386,002151: 30,3063           20601                                    0,1                                   
026387,002152: 30,3064           27502                           STOVL    N49DISP                               
026388,002153: 30,3065           01265                                    DELTAX     +6                         #  DELTA V
026389,002154: 30,3066           53646                           ABVAL    SR*                                   #  DELTA V=METERS/CSEC B-7 ALWAYS
026390,002155: 30,3067           20601                                    0,1                                   
026391,002156: 30,3070           03504                           STORE    N49DISP    +2                         
026392,002157: 30,3071           77776                           EXIT                                           
026393,002158: 30,3072           33643                           CAF      V06N49EE                              
026394,002159: 30,3073           04662                           TC       BANKCALL                              
026395,002160: 30,3074           21057                           CADR     GOFLASHR                              
026396,002161: 30,3075           04106                           TC       GOTOPOOH                              #  V34E TERMINATE
026397,002162: 30,3076           03103                           TC       +5                                    #  INCORPORATE CHANGES
026398,002163: 30,3077           03267                           TC       S22EXEX                               #  V32E RECYCLE
026399,002164: 30,3100           35015                           CAF      BIT3                                  
026400,002165: 30,3101           05526                           TC       BLANKET                               
026401,002166: 30,3102           05217                           TC       ENDOFJOB                              
026402,002167: 30,3103           06006                           TC       INTPRET                               
026403,002168: 30,3104           77624        S22BOX42           CALL                                           
026404,002169: 30,3105           75454                                    INCORP2                               
026405,002170: 30,3106           77624                           CALL                                           #  CSMPOS=RC B-29 OR B-27
026406,002171: 30,3107           61332                                    S22CALRC                              
026407,002172: 30,3110           45014        DMPINCP2           BOFF     CALL                                  
026408,002173: 30,3111           02744                                    INCORFLG                              
026409,002174: 30,3112           60707                                    S22SAVET                              #  SAVE TF AND TEST I=N
026410,002175: 30,3113           56750                                    GRP2PC                                
026411,002176: 30,3114           77214                           CLEAR    VLOAD                                 
026412,002177: 30,3115           02664                                    INCORFLG                              #  FLAG=0
026413,002178: 30,3116           01701                                    X789                                  
026414,002179: 30,3117           77651                           VSU                                            
026415,002180: 30,3120           01207                                    CSMPOS                                
026416,002181: 30,3121           37531                           STCALL   RCLP                                  #  RCL=RL-RC
026417,002182: 30,3122           61015                                    S22BOX12                              
026418,002183: 30,3123           66370        S22BOX22           AXT,1    SSP                                   #  CLEAR W6,W7,W8  (27 ELEMENTS 54 REGS)
026419,002184: 30,3124           00066                           DEC      54         B-14                       
026420,002185: 30,3125           00051                                    S1                                    
026421,002186: 30,3126           00006                           DEC      6          B-14                       
026422,002187: 30,3127           77775                           VLOAD                                          
026423,002188: 30,3130           15335                                    ZEROVECS                              
026424,002189: 30,3131           06643        CLRW678            STORE    W          +162D,1                    
026425,002190: 30,3132           67300                           TIX,1    SLOAD                                 
026426,002191: 30,3133           61131                                    CLRW678                               
026427,002192: 30,3134           02007                                    S22WSUBL                              
026428,002193: 30,3135           02621                           STORE    W          +144D                      
026429,002194: 30,3136           02631                           STORE    W          +152D                      

Page 607

026431,002196: 30,3137           02641                           STORE    W          +160D                      
026432,002197: 30,3140           43014                           CLEAR    BOFF                                  #  SET LUNAFLAG, TIME FOR LALOTORV
026433,002198: 30,3141           01663                                    LUNAFLAG                              #  ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY
026434,002199: 30,3142           04343                                    CMOONFLG                              #  CHECK SCALING OF ITEMS,ALT INPUT AND
026435,002200: 30,3143           61146                                    S22BX22A                              #  RL OUTPUT IN ALPHAV BOTH B-29
026436,002201: 30,3144           77614                           SET                                            
026437,002202: 30,3145           01463                                    LUNAFLAG                              
026438,002203: 30,3146           77624        S22BX22A           CALL                                           
026439,002204: 30,3147           62351                                    GETTF                                 
026440,002205: 30,3150           77624                           CALL                                           #  COMPUTE RL
026441,002206: 30,3151           26441                                    LALOTORV                              
026442,002207: 30,3152           43175                           VLOAD    BOFF                                  
026443,002208: 30,3153           02152                                    ALPHAV                                #  RL B-29
026444,002209: 30,3154           04343                                    CMOONFLG                              
026445,002210: 30,3155           61157                                    S22BX22B                              
026446,002211: 30,3156           77752                           VSL2                                           #  SCALE RL B-27 FOR MOON
026447,002212: 30,3157           77650        S22BX22B           GOTO                                           
026448,002213: 30,3160           61001                                    S22BOX32                              
026449,002214: 30,3161           06006        S22F244X           TC       INTPRET                               
026450,002215: 30,3162           46135        S22F244            SLOAD    BHIZ                                  #  FIG 2.4-4     TEST OFF=0
026451,002216: 30,3163           02746                                    CXOFF                                 
026452,002217: 30,3164           61220                                    S22BOX44                              
026453,002218: 30,3165           77661                           SR                                             #  SCALE OFFSET B-14 THEN TEST GR. 8NN
026454,002219: 30,3166           20612                                    9D                                    
026455,002220: 30,3167           02152                           STORE    ALPHAV                                #  TEMP
026456,002221: 30,3170           45335                           SLOAD    DSU                                   
026457,002222: 30,3171           02750                                    8NN                                   
026458,002223: 30,3172           02152                                    ALPHAV                                
026459,002224: 30,3173           45040                           BMN      CALL                                  #  OFFSET GR. NO. MARKS.  FORGET IT
026460,002225: 30,3174           61220                                    S22BOX44                              
026461,002226: 30,3175           56750                                    GRP2PC                                #  GROUP 2 PHASE CHANGE
026462,002227: 30,3176           77745                           DLOAD                                          
026463,002228: 30,3177           03670                                    S22TOFF                               
026464,002229: 30,3200           34041                           STCALL   TDEC1                                 #  CALC RC AT OFFSET TIME
026465,002230: 30,3201           27071                                    CSMPREC                               
026466,002231: 30,3202           77775                           VLOAD                                          
026467,002232: 30,3203           00017                                    RATT1                                 #  RC METERS B-29 OR B-27
026468,002233: 30,3204           25207                           STOVL    CSMPOS                                
026469,002234: 30,3205           01215                                    S22UOFF                               
026470,002235: 30,3206           25235                           STOVL    UM                                    #  U=UOFF
026471,002236: 30,3207           01701                                    X789                                  
026472,002237: 30,3210           43046                           ABVAL    BOFF                                  
026473,002238: 30,3211           04343                                    CMOONFLG                              
026474,002239: 30,3212           61214                                    +2                                    
026475,002240: 30,3213           77702                           SR2                                            #  SCALE MOON R0 B-29 FOR S22F2410 SUBR
026476,002241: 30,3214           36241                           STCALL   ERADM                                 
026477,002242: 30,3215           61277                                    S22F2410                              
026478,002243: 30,3216           77650                           GOTO                                           
026479,002244: 30,3217           61223                                    S22BX44A                              
026480,002245: 30,3220           77624        S22BOX44           CALL                                           

Page 608

026482,002247: 30,3221           62351                                    GETTF                                 
026483,002248: 30,3222           03670                           STORE    S22TOFF                               #  PRESENT TIME FOR LAT-LONG SETUP
026484,002249: 30,3223           77214        S22BX44A           CLEAR    VLOAD                                 
026485,002250: 30,3224           01663                                    LUNAFLAG                              
026486,002251: 30,3225           01701                                    X789                                  
026487,002252: 30,3226           43014                           BOFF     SET                                   
026488,002253: 30,3227           04343                                    CMOONFLG                              
026489,002254: 30,3230           61233                                    S22BX44B                              
026490,002255: 30,3231           01463                                    LUNAFLAG                              #  SET = 1 FOR LAT-LONG
026491,002256: 30,3232           77742                           VSR2                                           #  SCALE RL MOON B-29 FOR LAT-LONG
026492,002257: 30,3233           16152        S22BX44B           STODL    ALPHAV                                #  RL SCALED B-29 FOR LAT-LONG
026493,002258: 30,3234           03670                                    S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
026494,002259: 30,3235           77624                           CALL                                           
026495,002260: 30,3236           26370                                    LAT-LONG                              #  **** ALT OUTPUT ALWAYS B-29
026496,002261: 30,3237           77624                           CALL                                           #  DISPLAY LAT/LONG/ALT
026497,002262: 30,3240           62365                                    LLASRD                                
026498,002263: 30,3241           77776                           EXIT                                           
026499,002264: 30,3242           33644                           CAF      V06N89B                               
026500,002265: 30,3243           04662                           TC       BANKCALL                              
026501,002266: 30,3244           20720                           CADR     GOFLASH                               
026502,002267: 30,3245           03272                           TC       S22GTP                                #  V34E TERMINATE
026503,002268: 30,3246           03250                           TC       +2                                    #  PROCEED       SAVE LANDING SITE COORD
026504,002269: 30,3247           03263                           TC       S22.981X                              #  RECYCLE       POINT A IN GSOP
026505,002270: 30,3250           06006                           TC       INTPRET                               
026506,002271: 30,3251           77745                           DLOAD                                          
026507,002272: 30,3252           03670                                    S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
026508,002273: 30,3253           24007                           STOVL    6D                                    #  6-7D= LANDING SITE TIME FOR R-TO-RP
026509,002274: 30,3254           01701                                    X789                                  
026510,002275: 30,3255           00001                           STORE    0D                                    #  0-5D= LANDING SITE VEC FOR R-TO-RP
026511,002276: 30,3256           45135                           SLOAD    CALL                                  
026512,002277: 30,3257           15333                                    HIDPHALF                              #  ANY NON-ZERO FOR MOON
026513,002278: 30,3260           55371                                    R-TO-RP                               #  CONVERT RLS TO MOON-FIXED COORD
026514,002279: 30,3261           02026                           STORE    RLS                                   #  LANDING SITE VECTOR
026515,002280: 30,3262           77776                           EXIT                                           
026516,002281: 30,3263           06006        S22.981X           TC       INTPRET                               
026517,002282: 30,3264           77624                           CALL                                           
026518,002283: 30,3265           61342                                    9DWTO6DW                              
026519,002284: 30,3266           77776                           EXIT                                           #  GO TO POINT A IN CHAPTER 5
026520,002285: 30,3267           06006        S22EXEX            TC       INTPRET                               #  WITHOUT CONVERTING W
026521,002286: 30,3270           77650                           GOTO                                           
026522,002287: 30,3271           03703                                    S22RTNEX                              
026523,002288: 
026524,002289: 30,3272           06006        S22GTP             TC       INTPRET                               #  CONVERT W BEFORE TC GOTOPOOH
026525,002290: 30,3273           77624                           CALL                                           
026526,002291: 30,3274           61342                                    9DWTO6DW                              
026527,002292: 30,3275           77776                           EXIT                                           
026528,002293: 30,3276           04106                           TC       GOTOPOOH                              
026529,002294: 30,3277           77201        S22F2410           SETPD    VLOAD                                 #  COMPUTE FORMULA 2.4.10
026530,002295: 30,3300           00001                                    0D                                    
026531,002296: 30,3301           01207                                    CSMPOS                                #  RC B-29 EARTH, B-27 MOON

Page 609

026533,002298: 30,3302           50256                           UNIT     DOT                                   #  UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
026534,002299: 30,3303           01235                                    UM                                    
026535,002300: 30,3304           57552                           SL1      DCOMP                                 #  GSOP CHANGE 8/18/67
026536,002301: 30,3305           77606                           PUSH                                           #  PD 2D 0D=COSA=-(UM.RC)/ABVAL(RC)      B-1
026537,002302: 30,3306           44316                           DSQ      BDSU                                  
026538,002303: 30,3307           21642                                    DEC1B2                                
026539,002304: 30,3310           43125                           PDDL     BOFF                                  #  PD 4D 2D=1-COSA SQ=SINA SQ            B-2
026540,002305: 30,3311           02241                                    ERADM                                 #  R0 ALWAYS B-29 FROM SETRE
026541,002306: 30,3312           04343                                    CMOONFLG                              
026542,002307: 30,3313           61315                                    +2                                    
026543,002308: 30,3314           77712                           SL2                                            #  SCALE R0 B-27 FOR MOON
026544,002309: 30,3315           56362                           SR1R     DDV                                   #  (R0/RC)       B-1
026545,002310: 30,3316           00045                                    36D                                   
026546,002311: 30,3317           45316                           DSQ      DSU                                   #  PD 2D (R0/RC) SQ - SINA SQ            B-2
026547,002312: 30,3320           44366                           SQRT     BDSU                                  #  PD 0D COSA-SQRT((R0/RC)SQ-SINA SQ)    B-1
026548,002313: 30,3321           77605                           DMP                                            #  DMP RESULT B-28 MOON, B-30 EARTH
026549,002314: 30,3322           00045                                    36D                                   #  VXSC RESULT B-29 MOON, B-31 EARTH
026550,002315: 30,3323           00041                           STORE    S22RHO                                #  RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
026551,002316: 30,3324           77761                           VXSC                                           
026552,002317: 30,3325           01235                                    UM                                    
026553,002318: 30,3326           53352                           VSL2     VAD                                   #  SCALE B-27 MOON, B-29 EARTH AND ADD RC
026554,002319: 30,3327           01207                                    CSMPOS                                
026555,002320: 30,3330           01701                           STORE    X789                                  
026556,002321: 30,3331           77616                           RVQ                                            #  B-27 FOR EARTH OR B-29 FOR MOON
026557,002322: 30,3332           77350        S22CALRC           LXA,1    VLOAD                                 #  COMPUTE RC B-29 OR B-27
026558,002323: 30,3333           03673                                    S22EORM                               #  =0 FOR EARTH, -2 FOR MOON
026559,002324: 30,3334           01573                                    DELTACSM                              
026560,002325: 30,3335           53257                           VSR*     VAD                                   
026561,002326: 30,3336           20610                                    7,1                                   
026562,002327: 30,3337           01607                                    RCVCSM                                
026563,002328: 30,3340           01207                           STORE    CSMPOS                                
026564,002329: 30,3341           77616                           RVQ                                            
026565,002330: 31,2000                                           SETLOC   P22S                                  
026566,002331: 31,2000                                           BANK                                           
026567,002332: 
026568,002333: 31,2332           00031        S2231X13           STORE    S221X3                                #  MULT 3X1 BY 1X3, STORE RESULTING 3X3 IN
026569,002334: 31,2333           77131                           SSP      AXT,2                                 #  S22UMRL - S22UMRL+17D
026570,002335: 31,2334           00052                                    S2                                    
026571,002336: 31,2335           00002                           DEC      2          B-14                       
026572,002337: 31,2336           00006                           DEC      6          B-14                       
026573,002338: 31,2337           77770                           AXT,1                                          
026574,002339: 31,2340           00022                           DEC      18         B-14                       
026575,002340: 31,2341           73775        S2231NXT           VLOAD    VXSC*                                 
026576,002341: 31,2342           00031                                    S221X3                                
026577,002342: 31,2343           77746                                    S223X1     +6,2                       
026578,002343: 31,2344           07524                           STORE    S22UMRL    +18D,1                     
026579,002344: 31,2345           61110                           INCR,1   TIX,2                                 
026580,002345: 31,2346           77771                           DEC      -6         B-14                       
026581,002346: 31,2347           62341                                    S2231NXT                              
026582,002347: 31,2350           77616                           RVQ                                            

Page 610

026584,002349: 31,2351           70740        GETTF              LXC,1    DLOAD*                                #  SET MPAC= TF
026585,002350: 31,2352           02750                                    S22LOC                                
026586,002351: 31,2353           00001                                    0,1                                   
026587,002352: 31,2354           77616                           RVQ                                            
026588,002353: 31,2355           43014        S22FLGS            SET      SET                                   #  INTEGRATION FLAGS
026589,002354: 31,2356           01476                                    DIM0FLAG                              
026590,002355: 31,2357           01475                                    D6OR9FLG                              
026591,002356: 31,2360           43014                           SET      SET                                   
026592,002357: 31,2361           01474                                    VINTFLAG                              
026593,002358: 31,2362           01472                                    STATEFLG                              
026594,002359: 31,2363           43414                           CLEAR    RVQ                                   
026595,002360: 31,2364           01673                                    INTYPFLG                              
026596,002361: 
026597,002362:                                                                                                  #  SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
026598,002363:                                                                                                  #  PRIOR TO DISPLAY.
026599,002364: 
026600,002365: 31,2365           77745        LLASRD             DLOAD                                          #  ALT, LANDALT METERS B-29
026601,002366: 31,2366           01110                                    ALT                                   
026602,002367: 31,2367           16362                           STODL    LANDALT                               
026603,002368: 31,2370           01106                                    LONG                                  
026604,002369: 31,2371           77742                           SR1                                            
026605,002370: 31,2372           02360                           STORE    LANDLONG                              
026606,002371: 31,2373           77616                           RVQ                                            
026607,002372: 
026608,002373:                                                                                                  #  SUBROUTINE TO MODIFY LANDALT AND STORE LANDALT TO LANDALT+5 IN LAT TO
026609,002374:                                                                                                  #  LAT+5 AFTER LMK DATA LOADED BY ASTRONAUT.
026610,002375: 
026611,002376: 31,2374           77745        LLASRDA            DLOAD                                          #  ALT, LANDALT METERS B-29
026612,002377: 31,2375           02362                                    LANDALT                               
026613,002378: 31,2376           15110                           STODL    ALT                                   
026614,002379: 31,2377           02360                                    LANDLONG                              
026615,002380: 31,2400           77752                           SL1                                            
026616,002381: 31,2401           01106                           STORE    LONG                                  
026617,002382: 31,2402           77616                           RVQ                                            
026618,002383: 30,2000                                           SETLOC   P20S6                                 
026619,002384: 30,2000                                           BANK                                           
026620,002385: 
026621,002386: 30,3342           40220        9DWTO6DW           STQ      SETPD                                 
026622,002387: 30,3343           01214                                    9DWXX                                 
026623,002388: 30,3344           00001                                    0D                                    
026624,002389: 30,3345           41575                           VLOAD    PUSH                                  #  CLEAR WORKING AREA OF PUSHLIST
026625,002390: 30,3346           15335                                    HI6ZEROS                              #  INCLUDING P
026626,002391: 30,3347           41406                           PUSH     PUSH                                  #  PD 18D
026627,002392: 30,3350           77731                           SSP                                            
026628,002393: 30,3351           00017                                    9DWJ                                  #  J=29  USE 2*29 FOR DP WORDS
026629,002394: 30,3352           00072                           DEC      58         B-14                       
026630,002395: 30,3353           66150        9DWI=J             LXA,1    SXA,1                                 #  SET I=J
026631,002396: 30,3354           00016                                    9DWJ                                  
026632,002397: 30,3355           00012                                    9DWI                                  
026633,002398: 30,3356           77624        9DWEPCAL           CALL                                           

Page 611

026635,002400: 30,3357           61574                                    ROWDOT                                
026636,002401: 30,3360           77750                           LXA,1                                          #  P VARIES 0-20 INSTEAD OF 20-0
026637,002402: 30,3361           00010                                    9DWP                                  
026638,002403: 30,3362           06641                           STORE    EMATRIX    +40D,1                     
026639,002404: 30,3363           66110                           INCR,1   SXA,1                                 
026640,002405: 30,3364           00002                           DEC      2          B-14                       
026641,002406: 30,3365           00010                                    9DWP                                  
026642,002407: 30,3366           46135                           SLOAD    BHIZ                                  #  TEST I=0
026643,002408: 30,3367           00013                                    9DWI                                  
026644,002409: 30,3370           61405                                    9DWTESTJ                              
026645,002410: 30,3371           77625                           DSU                                            #  I=I-1
026646,002411: 30,3372           21634                                    9DWID                                 
026647,002412: 30,3373           00013                           STORE    9DWI                                  
026648,002413: 30,3374           46025                           DSU      BHIZ                                  #  TEST I=26
026649,002414: 30,3375           21632                                    9DW26D                                
026650,002415: 30,3376           61401                                    9DWSETI2                              
026651,002416: 30,3377           77650                           GOTO                                           #  NEXT E SUB P
026652,002417: 30,3400           61356                                    9DWEPCAL                              
026653,002418: 30,3401           52131        9DWSETI2           SSP      GOTO                                  #  I=2
026654,002419: 30,3402           00013                                    9DWI                                  
026655,002420: 30,3403           00004                           DEC      4          B-14                       
026656,002421: 30,3404           61356                                    9DWEPCAL                              
026657,002422: 30,3405           46135        9DWTESTJ           SLOAD    BHIZ                                  #  TEST J=0
026658,002423: 30,3406           00017                                    9DWJ                                  
026659,002424: 30,3407           61424                                    9DWFIG6                               
026660,002425: 30,3410           77625                           DSU                                            
026661,002426: 30,3411           21634                                    9DWID                                 
026662,002427: 30,3412           00017                           STORE    9DWJ                                  #  J=J-1
026663,002428: 30,3413           46025                           DSU      BHIZ                                  #  TEST J=26
026664,002429: 30,3414           21632                                    9DW26D                                
026665,002430: 30,3415           61420                                    9DWSETJ2                              
026666,002431: 30,3416           77650                           GOTO                                           
026667,002432: 30,3417           61353                                    9DWI=J                                
026668,002433: 30,3420           52131        9DWSETJ2           SSP      GOTO                                  #  SET J=2
026669,002434: 30,3421           00017                                    9DWJ                                  
026670,002435: 30,3422           00004                           DEC      4          B-14                       
026671,002436: 30,3423           61353                                    9DWI=J                                
026672,002437: 30,3424           77624        9DWFIG6            CALL                                           
026673,002438: 30,3425           56750                                    GRP2PC                                
026674,002439: 30,3426           77331                           SSP      VLOAD                                 #  START OF FIGURE 2.4-6
026675,002440: 30,3427           00017                                    9DWJ                                  #  J=29
026676,002441: 30,3430           00072                           DEC      58         B-14                       
026677,002442: 30,3431           15335                                    HI6ZEROS                              
026678,002443: 30,3432           00011                           STORE    9DWP                                  #  P,N,I=0
026679,002444: 30,3433           66370                           AXT,1    SSP                                   
026680,002445: 30,3434           00154                           DEC      108        B-14                       #  CLEAR WO TO W54
026681,002446: 30,3435           00051                                    S1                                    
026682,002447: 30,3436           00006                                    6                                     
026683,002448: 30,3437           06555        CLEARW54           STORE    W          +108D,1                    
026684,002449: 30,3440           77700                           TIX,1                                          

Page 612

026686,002451: 30,3441           61437                                    CLEARW54                              
026687,002452: 30,3442           66150        9DWI=JA            LXA,1    SXA,1                                 #  I=J
026688,002453: 30,3443           00016                                    9DWJ                                  
026689,002454: 30,3444           00012                                    9DWI                                  
026690,002455: 30,3445           77624                           CALL                                           
026691,002456: 30,3446           61574                                    ROWDOT                                
026692,002457: 30,3447           43750                           LXA,1    BDSU*                                 
026693,002458: 30,3450           00010                                    9DWP                                  
026694,002459: 30,3451           02641                                    EMATRIX    +40D,1                     
026695,002460: 30,3452           66110                           INCR,1   SXA,1                                 #  -(P+1)
026696,002461: 30,3453           00002                                    2                                     
026697,002462: 30,3454           00010                                    9DWP                                  
026698,002463: 30,3455           54140                           LXC,1    XSU,1                                 #  -(I+N)
026699,002464: 30,3456           00012                                    9DWI                                  
026700,002465: 30,3457           00014                                    9DWN                                  
026701,002466: 30,3460           71244                           BPL      DLOAD                                 #  TEST WSQ LTE 0
026702,002467: 30,3461           61465                                    9DWAAA                                
026703,002468: 30,3462           15335                                    HI6ZEROS                              #  W=0
026704,002469: 30,3463           77650                           GOTO                                           
026705,002470: 30,3464           61466                                    9DWAAB                                
026706,002471: 30,3465           77766        9DWAAA             SQRT                                           #  W= SQRT(WSQ)
026707,002472: 30,3466           06401        9DWAAB             STORE    W,1                                   
026708,002473: 30,3467           14001                           STODL    WORKW                                 
026709,002474: 30,3470           00017                                    9DWJ                                  #  TEST J=0
026710,002475: 30,3471           77630                           BHIZ                                           
026711,002476: 30,3472           61560                                    9DWEXITX                              #  EXIT
026712,002477: 30,3473           46135        TST2I=0            SLOAD    BHIZ                                  #  TEST I=0
026713,002478: 30,3474           00013                                    9DWI                                  
026714,002479: 30,3475           61536                                    9DWN=N+3                              
026715,002480: 30,3476           77625                           DSU                                            
026716,002481: 30,3477           21634                                    9DWID                                 
026717,002482: 30,3500           00013                           STORE    9DWI                                  #  I=I-1
026718,002483: 30,3501           46025                           DSU      BHIZ                                  #  TEST I=26
026719,002484: 30,3502           21632                                    9DW26D                                
026720,002485: 30,3503           61506                                    9DWAAC                                
026721,002486: 30,3504           77650                           GOTO                                           
026722,002487: 30,3505           61511                                    9DWNEXEP                              
026723,002488: 30,3506           77731        9DWAAC             SSP                                            #  I=2
026724,002489: 30,3507           00013                                    9DWI                                  
026725,002490: 30,3510           00004                                    4                                     
026726,002491: 30,3511           77624        9DWNEXEP           CALL                                           
026727,002492: 30,3512           61574                                    ROWDOT                                
026728,002493: 30,3513           43750                           LXA,1    BDSU*                                 #  (EP-ROWI*ROWJ)/W
026729,002494: 30,3514           00010                                    9DWP                                  
026730,002495: 30,3515           02641                                    EMATRIX    +40D,1                     
026731,002496: 30,3516           62071                           DDV      INCR,1                                #  P=P+1
026732,002497: 30,3517           00001                                    WORKW                                 
026733,002498: 30,3520           00002                                    2                                     
026734,002499: 30,3521           70130                           SXA,1    LXC,1                                 
026735,002500: 30,3522           00010                                    9DWP                                  

Page 613

026737,002502: 30,3523           00012                                    9DWI                                  
026738,002503: 30,3524           40060                           XSU,1    BOV                                   #  -(I+N)
026739,002504: 30,3525           00014                                    9DWN                                  
026740,002505: 30,3526           61531                                    SETWIN=0                              
026741,002506: 30,3527           77650                           GOTO                                           
026742,002507: 30,3530           61533                                    9DWSETWX                              
026743,002508: 30,3531           77745        SETWIN=0           DLOAD                                          #  W(I+N)=0
026744,002509: 30,3532           15335                                    HI6ZEROS                              
026745,002510: 30,3533           06401        9DWSETWX           STORE    W,1                                   
026746,002511: 30,3534           77650                           GOTO                                           
026747,002512: 30,3535           61473                                    TST2I=0                               
026748,002513: 30,3536           62150        9DWN=N+3           LXA,1    INCR,1                                #  N=N+3
026749,002514: 30,3537           00014                                    9DWN                                  
026750,002515: 30,3540           00006                                    6                                     
026751,002516: 30,3541           67330                           SXA,1    SLOAD                                 #  J=J-1
026752,002517: 30,3542           00014                                    9DWN                                  
026753,002518: 30,3543           00017                                    9DWJ                                  
026754,002519: 30,3544           77625                           DSU                                            
026755,002520: 30,3545           21634                                    9DWID                                 
026756,002521: 30,3546           00017                           STORE    9DWJ                                  
026757,002522: 30,3547           46025                           DSU      BHIZ                                  #  TEST J=26
026758,002523: 30,3550           21632                                    9DW26D                                
026759,002524: 30,3551           61554                                    SETJ=2A                               
026760,002525: 30,3552           77650                           GOTO                                           
026761,002526: 30,3553           61442                                    9DWI=JA                               
026762,002527: 30,3554           52131        SETJ=2A            SSP      GOTO                                  #  J=2
026763,002528: 30,3555           00017                                    9DWJ                                  
026764,002529: 30,3556           00004                                    4                                     
026765,002530: 30,3557           61442                                    9DWI=JA                               
026766,002531: 30,3560           77624        9DWEXITX           CALL                                           
026767,002532: 30,3561           56750                                    GRP2PC                                
026768,002533: 30,3562           66370                           AXT,1    SSP                                   #  CLEAR W6,W7,W8 USED TEMP FOR EMATRIX
026769,002534: 30,3563           00066                           DEC      54         B-14                       
026770,002535: 30,3564           00051                                    S1                                    
026771,002536: 30,3565           00006                                    6                                     
026772,002537: 30,3566           77775                           VLOAD                                          
026773,002538: 30,3567           15335                                    HI6ZEROS                              
026774,002539: 30,3570           06643        9DWEXXXA           STORE    W          +162D,1                    
026775,002540: 30,3571           52100                           TIX,1    GOTO                                  
026776,002541: 30,3572           61570                                    9DWEXXXA                              
026777,002542: 30,3573           01214                                    9DWXX                                 
026778,002543: 30,3574           40131        ROWDOT             SSP      BOV                                   
026779,002544: 30,3575           00007                                    XTMP1                                 
026780,002545: 30,3576           00377                           OCT      377                                   
026781,002546: 30,3577           61600                                    +1                                    
026782,002547: 30,3600           71140                           LXC,1    LXC,2                                 
026783,002548: 30,3601           00012                                    9DWI                                  
026784,002549: 30,3602           00016                                    9DWJ                                  
026785,002550: 30,3603           41545                           DLOAD    PUSH                                  
026786,002551: 30,3604           15335                                    HI6ZEROS                              

Page 614

026788,002553: 30,3605           56743        ROWDOT1            DLOAD*   DMPR*                                 
026789,002554: 30,3606           02401                                    W,1                                   
026790,002555: 30,3607           75376                                    W,2                                   
026791,002556: 30,3610           41415                           DAD      PUSH                                  
026792,002557: 30,3611           62000                           BOV      INCR,1                                
026793,002558: 30,3612           61626                                    ROWDOT3                               
026794,002559: 30,3613           77771                           DEC      -6         B-14                       
026795,002560: 30,3614           67314                           INCR,2   SLOAD                                 
026796,002561: 30,3615           77771                           DEC      -6         B-14                       
026797,002562: 30,3616           00007                                    XTMP1                                 
026798,002563: 30,3617           70430                           BHIZ     SR1                                   
026799,002564: 30,3620           61624                                    ROWDOT2                               
026800,002565: 30,3621           00007                           STORE    XTMP1                                 
026801,002566: 30,3622           77650                           GOTO                                           
026802,002567: 30,3623           61605                                    ROWDOT1                               
026803,002568: 30,3624           77745        ROWDOT2            DLOAD                                          
026804,002569: 30,3625           77616                           RVQ                                            
026805,002570: 30,3626           77614        ROWDOT3            CLRGO                                          
026806,002571: 30,3627           01631                                    ORBWFLAG                              
026807,002572: 30,3630           61624                                    ROWDOT2                               
026808,002573: 30,3631                        WORKW              =        0D                                    
026809,002574: 30,3631                        XTMP1              =        6D                                    
026810,002575: 30,3631                        9DWP               =        8D                                    #  P
026811,002576: 30,3631                        9DWI               =        10D                                   #  I
026812,002577: 30,3631                        9DWN               =        12D                                   #  N
026813,002578: 30,3631                        9DWJ               =        14D                                   #  J
026814,002579: 30,3631     1214               9DWXX              =        S22UOFF                               
026815,002580: 30,3631  E7,1501               S22UMRL            =        BVECTOR                               #  18
026816,002581: 30,3631     1256               S22UUT             =        DELTAX                                #  18
026817,002582: 30,3631                        S223X1             =        18D                                   #  6
026818,002583: 30,3631                        S221X3             =        24D                                   #  6
026819,002584: 30,3631                        S22D               =        30D                                   #  2
026820,002585: 30,3631                        S22RHO             =        32D                                   #  2
026821,002586: 30,3631  E5,1634               S22RL              =        W          +156D                      #  6
026822,002587: 30,3631           00064 00000  9DW26D             2DEC     52         B-14                       
026823,002588: 30,3633           00002 00000  9DWID              2DEC     2          B-14                       
026824,002589: 30,3635           10306 36750  SCTVAR             2DEC     1.0        E-6        B+18            
026825,002590: 30,3637           00253 31436  IMUVARR            2DEC     0.04       E-6        B+18            
026826,002591: 30,3641           10000 00000  DEC1B2             2DEC     1          B-2                        
026827,002592: 30,3643           01461        V06N49EE           VN       00649                                 
026828,002593: 30,3644           01531        V06N89B            VN       00689                                 
026829,002594: 30,3645     1214               S22UOFF            =        LEMPOS                                #  6     U SUB OFF
026830,002595: 23,2000                                           SETLOC   P20S2                                 
026831,002596: 23,2000                                           BANK                                           

Page 615 Nothing on this page. — RSB 2009.

026834,002599: 

Page 616

026836,002601:                                                                                                  #  SUBROUTINE NAME:  V89CALL
026837,002602:                                                                                                  #  MOD NO:  0                                    DATE: 8 FEB 1968
026838,002603:                                                                                                  #  MOD BY:  DIGITAL DEVEL GROUP                  LOG SECTION:  P20-P25
026839,002604: 
026840,002605:                                                                                                  #  FUNCTIONAL DESCRIPTION:
026841,002606: 
026842,002607:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 USED.  CALCULATES AND
026843,002608:                                                                                                  #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
026844,002609:                                                                                                  #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
026845,002610: 
026846,002611:                                                                                                  #  1. KEY IN V89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
026847,002612:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
026848,002613: 
026849,002614:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH).  IF IMU ON AND ITS
026850,002615:                                                                                                  #  ORIENTATION KNOWN TO CGC, CONTINUE.
026851,002616: 
026852,002617:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
026853,002618:                                                                                                  #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS.  (R2=1).
026854,002619:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V22 E 2 E.  CONTINUE
026855,002620:                                                                                                  #  AFTER KEYING IN PROCEED.
026856,002621: 
026857,002622:                                                                                                  #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED.  SET FLAG
026858,002623:                                                                                                  #  FOR PREFERRED AXIS.  RESET FLAG FOR X AXIS.
026859,002624: 
026860,002625:                                                                                                  #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
026861,002626: 
026862,002627:                                                                                                  #        R63COMP JOB:
026863,002628:                                                                                                  #        
026864,002629:                                                                                                  #                UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
026865,002630: 
026866,002631:                                                                                                  #                CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3SM TO LM.
026867,002632: 
026868,002633:                                                                                                  #                DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
026869,002634:                                                                                                  #                ARE STORED FOR LATER R60CSM CALL.
026870,002635: 
026871,002636:                                                                                                  #  6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
026872,002637: 
026873,002638:                                                                                                  #  7. RECYCLE-  RETURN TO STEP 5.
026874,002639:                                                                                                  #     TERMINATE- EXIT R63 ROUTINE
026875,002640:                                                                                                  #     PROCEED-  RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
026876,002641: 
026877,002642:                                                                                                  #  CALLING SEQUENCE:     V 89 E
026878,002643: 
026879,002644:                                                                                                  #  SUBROUTINES CALLED:  CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
026880,002645: 
026881,002646:                                                                                                  #  ALARMS        1.  OPERATOR ERROR IF NOT IN P00
026882,002647:                                                                                                  #                2.  PROGRAM ALARM IF IMU IS OFF
026883,002648:                                                                                                  #                3.  PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN

Page 617

026885,002650: 
026886,002651:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:  NONE
026887,002652: 
026888,002653:                                                                                                  #  DEBRIS:  OPTION1, OPTION1+1, PRFTRKAT(PREF ATT FLAG), P21TIME, 3AXISFLG
026889,002654: 
026890,002655: 23,3132           00000 13560  DP1MIN             2DEC     6000       B-28                       
026891,002656: 23,3134  E4,1715                                  EBANK=   P21TIME                               
026892,002657: 34,3712                                           BANK     34                                    
026893,002658: 34,2000                                           SETLOC   P20S4                                 
026894,002659: 34,2000                                           BANK                                           
026895,002660: 34,3712                                           COUNT*   $$/R63                                
026896,002661: 
026897,002662: 34,3712           04662        V89CALL            TC       BANKCALL                              #  IMU STATUS CHECK. RETURNS IF ORIENTATION
026898,002663: 34,3713           17653                           CADR     R02BOTH                               #  KNOWN.  ALARMS IF NOT.
026899,002664: 34,3714           36214                           CAF      THREE                                 #  ALLOW ASTRONAUT TO SELECT DESIRED
026900,002665: 34,3715           55131                           TS       OPTION1                               #  TRACKING ATTITUDE AXIS.
026901,002666: 34,3716           35017                           CAF      ONE                                   
026902,002667: 34,3717           55132                           TS       OPTION1    +1                         
026903,002668: 34,3720           33761                           CAF      VB04N06                               #  V 04 N 06
026904,002669: 34,3721           04662                           TC       BANKCALL                              
026905,002670: 34,3722           20720                           CADR     GOFLASH                               
026906,002671: 34,3723           05534                           TC       ENDEXT                                #  TERMINATE
026907,002672: 34,3724           03726                           TC       +2                                    #  PROCEED
026908,002673: 34,3725           03720                           TC       -5                                    #  DATA IN.  OPTION1 +1 = 1 FOR PREF AXIS
026909,002674:                                                                                                  #                       = 2 FOR X AXIS
026910,002675: 34,3726           41132                           CS       OPTION1    +1                         #  1 FOR PREF AXIS.  2 FOR X AXIS.
026911,002676: 34,3727           65017                           AD       ONE                                   
026912,002677: 34,3730           00006                           EXTEND                                         
026913,002678: 34,3731           13756                           BZF      SETPAF                                
026914,002679: 34,3732           05560        RSTPAF             TC       DOWNFLAG                              #  RESET PREF ATT FLAG FOR R63COMP
026915,002680: 34,3733           00120                           ADRES    RNGSCFLG                              #  TO DO X AXIS.  RESET BIT 10 FLAG 5
026916,002681: 34,3734           06006        V89RECL            TC       INTPRET                               
026917,002682: 34,3735           43234                           RTB      DAD                                   
026918,002683: 34,3736           45510                                    LOADTIME                              #  READ PRESENT TIME
026919,002684: 34,3737           07133                                    DP1MIN                                #  INTEGRATE TO 1 MIN FROM NOW
026920,002685: 34,3740           36316                           STCALL   P21TIME                               #  STORE TIME FOR CALL TO R63COMP.  R63COMP
026921,002686: 34,3741           71572                                    R63COMP                               #  LEAVES DESIRED GIM ANGS IN THETAD, LOS IN
026922,002687: 34,3742           77776                           EXIT                                           #  POINTVSM, AND SELECTED AXIS IN SCAXIS.
026923,002688: 34,3743           33762                           CAF      VB06N18                               #  V 06 N 18
026924,002689: 34,3744           04662                           TC       BANKCALL                              #  NOUN 18 REFERS TO THE DESIRED GIMBAL
026925,002690: 34,3745           20720                           CADR     GOFLASH                               
026926,002691: 34,3746           05534                           TC       ENDEXT                                #  TERMINATE
026927,002692: 34,3747           03751                           TC       +2                                    #  PROCEED
026928,002693: 34,3750           03734                           TC       V89RECL                               #  RECYCLE
026929,002694: 34,3751           05560                           TC       DOWNFLAG                              #  RESET 3 AXIS FLAG
026930,002695: 34,3752           00124                           ADRES    3AXISFLG                              #  RESET BIT 6 FLAG 5

Page 618

026932,002697: 34,3753           04662                           TC       BANKCALL                              #  PERFORMS CSM MANEUVER TO ALIGN SELECTED
026933,002698: 34,3754           56000                           CADR     R60CSM                                #  SPACECRAFT AXIS TO LOS.
026934,002699: 34,3755           15534                           TCF      ENDEXT                                
026935,002700: 
026936,002701: 34,3756           05546        SETPAF             TC       UPFLAG                                #  SET PREFERRED ATT FLAG FOR R63COMP
026937,002702: 34,3757           00120                           ADRES    RNGSCFLG                              #  TO DO PREF AXIS.  SET BIT 10 FLAG 5.
026938,002703: 34,3760           03734                           TC       V89RECL                               
026939,002704: 
026940,002705: 34,3761           01006        VB04N06            VN       0406                                  
026941,002706: 34,3762           01422        VB06N18            VN       0618                                  
026942,002707: 
026943,002708: 34,3763  34,3572               R63COMP            EQUALS   R63                                   
026944,002709: 

Page 619

026946,002711:                                                                                                  #  PROGRAM NAME-  P23 CISLUNAR MIDCOURSE NAVIGATION
026947,002712:                                                                                                  #  MOD NO
026948,002713:                                                                                                  #  MOD BY-  TOM KNATT
026949,002714:                                                                                                  #  FUNCTIONAL DESCRIPTION-  DO MIDCOURSE NAVIGATION BY INCORPORATION OF STAR
026950,002715:                                                                                                  #  /EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
026951,002716:                                                                                                  #  CALLING SEQUENCE-  ASTRONAUT OPERATED
026952,002717:                                                                                                  #  SUBROUTINES CALLED-  R52,R53,R57,R60,ORBITAL INTEGRATION (INTEGRV)
026953,002718:                                                                                                  #  INCORP1,INCORP2,LALOTORV,LUNLMKLD, AND DISPLAY INTERFACE ROUTINES.
026954,002719:                                                                                                  #  NORMAL EXIT MODES-  VIA ROO
026955,002720:                                                                                                  #  ALARMS-  NONE
026956,002721:                                                                                                  #  ABORT MODES-  NONE
026957,002722:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-  PAD-LOADED ERASABLES, ORBWFLAG RESET,
026958,002723:                                                                                                  #  REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ON
026959,002724:                                                                                                  #  INPUTS BY USER REQUIRED-  STAR NUMBER, LANDMARK LAT, LONG/2, ALT OR ID NUMB.
026960,002725:                                                                                                  #  IF LANDMARK IS USED, NEAR OR FAR HORIZON IF HORIZON IS USED, AND 
026961,002726:                                                                                                  #  BODY TO BE MARKED ON (EARTH OR MOON).  SEE GSOP CHAPT 4.
026962,002727:                                                                                                  #  OUTPUT-  UPDATED CMC STATE VECTOR.  VECTOR FROM S/C TO HORIZON OR LANDMARK
026963,002728:                                                                                                  #  IN POINTAXS.  POINTAXS CAN BE USED TO GENERATE THIS VECTOR APART FROM
026964,002729:                                                                                                  #  P23 IF DESIRED.
026965,002730:                                                                                                  #  DEBRIS-  NO USABLE DEBRIS IS GENERATED.  RENDWFLG IS RESET FOR P20 UPON
026966,002731:                                                                                                  #  COMPLETION OF P23.  RUPTREGS AND ERASABLES USED BY DISPLAYS ARE DEBRIS
026967,002732: 
026968,002733: 31,2403                                           BANK     31                                    
026969,002734: 31,2000                                           SETLOC   RT23                                  
026970,002735: 31,2000                                           BANK                                           
026971,002736: 31,2403                                           COUNT    31/S23                                
026972,002737: 31,2403  E5,1400                                  EBANK=   W                                     
026973,002738: 31,2403           05560        P23                TC       DOWNFLAG                              
026974,002739: 31,2404           00010                           ADRES    RNDVZFLG                              
026975,002740: 
026976,002741: 31,2405           05372                           TC       2PHSCHNG                              
026977,002742: 31,2406           00004                           OCT      00004                                 #  LEAVE GROUP 4
026978,002743: 31,2407           00012                           OCT      00012                                 #  ENTER GROUP 2
026979,002744: 31,2410           35065                           CAF      PRIO13                                
026980,002745: 31,2411           55056                           TS       PHSPRDT2                              
026981,002746: 31,2412           06006                           TC       INTPRET                               
026982,002747: 31,2413           43131                           SSP      CLEAR                                 
026983,002748: 31,2414           00302                                    MARKINDX                              
026984,002749: 31,2415           00001                                    1                                     
026985,002750: 31,2416           00666                                    TARG2FLG                              #  TARGET FLAG USED BY R52 AND R53
026986,002751: 31,2417           66214                           CLEAR    SSP                                   
026987,002752: 31,2420           00665                                    TARG1FLG                              
026988,002753: 31,2421           00305                                    STARIND                               
026989,002754: 31,2422           00000                                    0                                     
026990,002755: 31,2423           43131                           SSP      CLEAR                                 
026991,002756: 31,2424           00303                                    BESTI                                 
026992,002757: 31,2425           00000                                    0                                     
026993,002758: 31,2426           03267                                    R57FLAG                               #  SET = DO NOT REPERFORM R57
026994,002759: 31,2427           77414                           CLEAR    EXIT                                  
026995,002760: 31,2430           04664                                    V94FLAG                               #  SET = ALLOW V94
026996,002761: 31,2431           06006        P23.00             TC       INTPRET                               

Page 620

026998,002763: 31,2432           45014                           BON      CALL                                  
026999,002764: 31,2433           01702                                    REFSMFLG                              #  SET NOW AS INPUT, NORMALLY EXTERNAL CONT
027000,002765: 31,2434           62442                                    P23.05                                #  WHEN ALIGNED, PERFORM MEASUREMENT
027001,002766: 31,2435           76400                                    R57                                   #  DO OPTICS CALIBRATION IF IMU NOT ALIGNED
027002,002767: 31,2436           77624                           CALL                                           
027003,002768: 31,2437           31301                                    R53                                   
027004,002769: 31,2440           77650                           GOTO                                           
027005,002770: 31,2441           62641                                    P23.60                                
027006,002771: 31,2442           77414        P23.05             CLEAR    EXIT                                  
027007,002772: 31,2443           04665                                    SAVECFLG                              #  USED TO SAVE SPACE IN P23.65
027008,002773: 31,2444           33456        P23.06             CAF      V05N70                                
027009,002774: 31,2445           04662                           TC       BANKCALL                              #  IDENTIFICATION-STAR,HOR  IDENT.
027010,002775: 31,2446           20720                           CADR     GOFLASH                               
027011,002776: 31,2447           04106                           TC       GOTOPOOH                              #  TERMINATE
027012,002777: 31,2450           02452                           TC       P23.15                                
027013,002778: 31,2451           02444                           TC       -5                                    #  REDISPLAY
027014,002779: 31,2452           31751        P23.15             CA       LANDMARK                              #  IF C=2, LUNAFLAG=1.  IF C=1, LUNAFLAG=0
027015,002780: 31,2453           00006                           EXTEND                                         
027016,002781: 31,2454           12463                           BZF      P23.151                               
027017,002782: 31,2455           31752                           CA       HORIZON                               
027018,002783: 31,2456           00006                           EXTEND                                         
027019,002784: 31,2457           12461                           BZF      +2                                    
027020,002785: 31,2460           03134                           TC       R23.10                                #  OPERATOR DSKY ERROR
027021,002786: 31,2461           31751                           CA       LANDMARK                              
027022,002787: 31,2462           02466                           TC       P23.152                               
027023,002788: 31,2463           31752        P23.151            CA       HORIZON                               
027024,002789: 31,2464           00006                           EXTEND                                         
027025,002790: 31,2465           13134                           BZF      R23.10                                
027026,002791: 31,2466           73473        P23.152            MASK     BITS7-9                               #  IS C EQUAL TO 1 OR 2
027027,002792: 31,2467           65234                           AD       NEG100                                
027028,002793: 31,2470           00006                           EXTEND                                         
027029,002794: 31,2471           12501                           BZF      P23.16                                
027030,002795: 31,2472           65234                           AD       NEG100                                
027031,002796: 31,2473           00006                           EXTEND                                         
027032,002797: 31,2474           12476                           BZF      +2                                    
027033,002798: 31,2475           03134                           TC       R23.10                                
027034,002799: 31,2476           05546                           TC       UPFLAG                                
027035,002800: 31,2477           00060                           ADRES    LUNAFLAG                              
027036,002801: 31,2500           12503                           TCF      +3                                    
027037,002802: 31,2501           05560        P23.16             TC       DOWNFLAG                              
027038,002803: 31,2502           00060                           ADRES    LUNAFLAG                              
027039,002804: 31,2503           30735                           CA       STARCODE                              #  IS STARCODE GREATER THAN OR
027040,002805: 31,2504           00006                           EXTEND                                         #  EQUAL TO 0 AND LESS THAN 37
027041,002806: 31,2505           12532                           BZF      P23.176                               
027042,002807: 31,2506           00006                           EXTEND                                         
027043,002808: 31,2507           63134                           BZMF     R23.10                                
027044,002809: 31,2510           63472                           AD       NEG37                                 
027045,002810: 31,2511           00006                           EXTEND                                         
027046,002811: 31,2512           62514                           BZMF     +2                                    
027047,002812: 31,2513           03134                           TC       R23.10                                

Page 621

027049,002814: 
027050,002815: 31,2514           06006                           TC       INTPRET                               
027051,002816: 31,2515           53135        P23.17             SLOAD    BZE                                   
027052,002817: 31,2516           00736                                    STARCODE                              
027053,002818: 31,2517           62531                                    P23.175                               
027054,002819: 31,2520           77606                           PUSH                                           
027055,002820: 31,2521           41335                           SLOAD    DMP                                   
027056,002821: 31,2522           23463                                    SPSIX                                 
027057,002822: 31,2523           66150                           LXA,1    SXA,1                                 
027058,002823: 31,2524           00155                                    MPAC       +1                         
027059,002824: 31,2525           00302                                    BESTI                                 #  BESTI = 6 X STAR NUMBER
027060,002825: 31,2526           77624                           CALL                                           
027061,002826: 31,2527           30000                                    LOWMEMRY                              #  NEEDED TO RETRIEVE STAR VECTOR FROM LOW
027062,002827: 31,2530           02617                           STORE    STARSAV2                              #  STORE FOR R53,P23.  US(IN P23)=STARSAV2
027063,002828: 31,2531           77776        P23.175            EXIT                                           
027064,002829: 31,2532           31752        P23.176            CA       HORIZON                               
027065,002830: 31,2533           00006                           EXTEND                                         
027066,002831: 31,2534           12553                           BZF      P23.20                                
027067,002832: 31,2535           73474                           MASK     BITS4-6                               
027068,002833: 31,2536           66171                           AD       -OCT10                                
027069,002834: 31,2537           00006                           EXTEND                                         
027070,002835: 31,2540           12550                           BZF      P23.18                                
027071,002836: 31,2541           66171                           AD       -OCT10                                
027072,002837: 31,2542           00006                           EXTEND                                         
027073,002838: 31,2543           12545                           BZF      +2                                    
027074,002839: 31,2544           03134                           TC       R23.10                                
027075,002840: 31,2545           05546                           TC       UPFLAG                                
027076,002841: 31,2546           00004                           ADRES    NORFHOR                               
027077,002842: 31,2547           02557                           TC       P23.30                                
027078,002843: 31,2550           05560        P23.18             TC       DOWNFLAG                              
027079,002844: 31,2551           00004                           ADRES    NORFHOR                               
027080,002845: 31,2552           02557                           TC       P23.30                                
027081,002846: 31,2553           06006        P23.20             TC       INTPRET                               
027082,002847: 31,2554           77624                           CALL                                           
027083,002848: 31,2555           60143                                    P22SUBRB                              
027084,002849: 31,2556           77776                           EXIT                                           
027085,002850: 31,2557           06006        P23.30             TC       INTPRET                               
027086,002851: 31,2560           53135                           SLOAD    BZE                                   
027087,002852: 31,2561           00736                                    STARCODE                              
027088,002853: 31,2562           34000                                    LDPLANET                              
027089,002854: 31,2563           77414        P23.31             BON      EXIT                                  
027090,002855: 31,2564           04705                                    SAVECFLG                              
027091,002856: 31,2565           62700                                    P23.85                                
027092,002857: 31,2566           33461                           CAF      V50N25P                               
027093,002858: 31,2567           04662                           TC       BANKCALL                              
027094,002859: 31,2570           21045                           CADR     GOPERF1                               #  GOPERF1 BLANKS OUT R2 AND R3.
027095,002860: 31,2571           04106                           TC       GOTOPOOH                              
027096,002861: 31,2572           02576                           TC       V94ENTER                              #  PROCEED.  AUTOCONTROL CMC
027097,002862: 31,2573           06006        P23.55             TC       INTPRET                               
027098,002863: 31,2574           77650                           GOTO                                           
027099,002864: 31,2575           62627                                    P23.56                                

Page 622

027101,002866: 
027102,002867:                                                                                                  #  VERB 94 BEGINS HERE
027103,002868: 31,2576           06006        V94ENTER           TC       INTPRET                               
027104,002869: 31,2577           77634                           RTB                                            
027105,002870: 31,2600           45510                                    LOADTIME                              #  READ CLOCK
027106,002871: 31,2601           35225                           STCALL   MARKTIME                              
027107,002872: 31,2602           62705                                    POINTAXS                              #  RETURN LOS IN RCLL AND MPAC
027108,002873: 31,2603           53521                           MXV      UNIT                                  
027109,002874: 31,2604           01736                                    REFSMMAT                              
027110,002875: 31,2605           27357                           STOVL    POINTVSM                              
027111,002876: 31,2606           23464                                    JCAXIS                                
027112,002877: 31,2607           03351                           STORE    SCAXIS                                
027113,002878: 31,2610           77776                           EXIT                                           
027114,002879: 31,2611           05560                           TC       DOWNFLAG                              #  CLEAR AND GO TO VECPOINT IN R60
027115,002880: 31,2612           00124                           ADRES    3AXISFLG                              #  BIT 6 FLAG 5
027116,002881: 31,2613           33471                           CAF      R60ADRS                               
027117,002882: 31,2614           54374                           TS       TEMPFLSH                              
027118,002883: 31,2615           05412                           TC       PHASCHNG                              
027119,002884: 31,2616           00012                           OCT      00012                                 
027120,002885: 31,2617           04662        R60CALL            TC       BANKCALL                              
027121,002886: 31,2620           56000                           CADR     R60CSM                                
027122,002887: 31,2621           05412                           TC       PHASCHNG                              
027123,002888: 31,2622           04022                           OCT      04022                                 
027124,002889: 31,2623           06006                           TC       INTPRET                               
027125,002890: 31,2624           77614                           BON                                            
027126,002891: 31,2625           03307                                    R57FLAG                               
027127,002892: 31,2626           62631                                    P23.57                                #  DO NOT REPERFORM R57
027128,002893: 31,2627           77624        P23.56             CALL                                           
027129,002894: 31,2630           76400                                    R57                                   
027130,002895: 31,2631           43014        P23.57             SET      SET                                   
027131,002896: 31,2632           04464                                    V94FLAG                               
027132,002897: 31,2633           03067                                    R57FLAG                               
027133,002898: 31,2634           77624                           CALL                                           
027134,002899: 31,2635           30011                                    R52                                   
027135,002900: 31,2636           43014                           CLEAR    CLEAR                                 
027136,002901: 31,2637           04664                                    V94FLAG                               
027137,002902: 31,2640           03267                                    R57FLAG                               
027138,002903: 31,2641           77776        P23.60             EXIT                                           
027139,002904: 31,2642           00004                           INHINT                                         
027140,002905: 31,2643           31330                           CA       MARKSTAT                              
027141,002906: 31,2644           75054                           MASK     LOW10                                 
027142,002907: 31,2645           55242                           TS       MARKDATA                              
027143,002908: 31,2646           00006                           EXTEND                                         
027144,002909: 31,2647           51242                           INDEX    MARKDATA                              
027145,002910: 31,2650           30001                           DCA      0                                     
027146,002911: 31,2651           53225                           DXCH     MARKTIME                              
027147,002912: 31,2652           51242                           INDEX    MARKDATA                              
027148,002913: 31,2653           30005                           CA       5                                     
027149,002914: 31,2654           57754                           XCH      TRUNION                               
027150,002915: 31,2655           00003                           RELINT                                         
027151,002916: 31,2656           06006                           TC       INTPRET                               

Page 623

027153,002918: 31,2657           76740                           LXC,1    VLOAD*                                
027154,002919: 31,2660           01242                                    MARKDATA                              
027155,002920: 31,2661           00002                                    1,1                                   
027156,002921: 31,2662           23676                           STODL*   MARKDOWN   +1                         
027157,002922: 31,2663           00001                                    0,1                                   
027158,002923: 31,2664           03675                           STORE    MARKDOWN                              
027159,002924: 31,2665           77776                           EXIT                                           
027160,002925: 31,2666           33457                           CAF      V05N71                                
027161,002926: 31,2667           04662                           TC       BANKCALL                              
027162,002927: 31,2670           20720                           CADR     GOFLASH                               
027163,002928: 31,2671           04106                           TC       GOTOPOOH                              #  TERMINATE
027164,002929: 31,2672           02674                           TC       P23.65                                #  STORE DATA
027165,002930: 31,2673           02666                           TC       -5                                    #  REDISPLAY
027166,002931: 31,2674           06006        P23.65             TC       INTPRET                               
027167,002932: 31,2675           77414                           SET      EXIT                                  
027168,002933: 31,2676           04465                                    SAVECFLG                              
027169,002934: 31,2677           02452                           TC       P23.15                                
027170,002935: 31,2700           45014        P23.85             CLEAR    CALL                                  
027171,002936: 31,2701           02676                                    RENDWFLG                              
027172,002937: 31,2702           62705                                    POINTAXS                              
027173,002938: 31,2703           77650                           GOTO                                           
027174,002939: 31,2704           62771                                    R23.55                                
027175,002940: 
027176,002941:                                                                                                  #  WE BEGIN CALCULATIONS HERE
027177,002942:                                                                                                  #  POINTAXIS SUBROUTINE
027178,002943: 
027179,002944: 31,2705           77620        POINTAXS           STQ                                            
027180,002945: 31,2706           01150                                    POINTEX                               
027181,002946: 31,2707           71214        R23.05             BON      DLOAD                                 
027182,002947: 31,2710           01711                                    ORBWFLAG                              
027183,002948: 31,2711           62715                                    R23.1                                 
027184,002949: 31,2712           03001                                    WMIDPOS                               
027185,002950: 31,2713           34001                           STCALL   0                                     
027186,002951: 31,2714           56565                                    INITIALW                              #  INITIALIZE W-MATRIX FIRST PASS IN P23
027187,002952: 31,2715           77624        R23.1              CALL                                           
027188,002953: 31,2716           56343                                    SETINTG                               #  SETUP FOR CSM INTEGRATION
027189,002954: 31,2717           43014                           BOF      SET                                   
027190,002955: 31,2720           01751                                    ORBWFLAG                              
027191,002956: 31,2721           62723                                    R23.2                                 
027192,002957: 31,2722           01476                                    DIM0FLAG                              
027193,002958: 31,2723           45014        R23.2              SET      CALL                                  
027194,002959: 31,2724           01471                                    ORBWFLAG                              
027195,002960: 31,2725           27162                                    INTEGRV                               #  INTEGRATE CSM STATE VEC. TO MARKTIME
027196,002961: 31,2726           77776                           EXIT                                           
027197,002962: 31,2727           05412                           TC       PHASCHNG                              
027198,002963: 31,2730           04022                           OCT      04022                                 
027199,002964: 31,2731           06006                           TC       INTPRET                               
027200,002965: 31,2732           77624                           CALL                                           
027201,002966: 31,2733           63376                                    RECT.1                                #  PICKUP CSM STATE VECTOR FROM PERM
027202,002967: 31,2734           77614                           BOFF                                           
027203,002968: 31,2735           00345                                    ZMEASURE                              #  IN SPHERE OF INFLUENCE OF PRIMARY BODY
027204,002969: 31,2736           62750                                    R23.3                                 

Page 624

027206,002971: 31,2737           45145                           DLOAD    CALL                                  
027207,002972: 31,2740           01225                                    MARKTIME                              
027208,002973: 31,2741           54115                                    LUNPOS                                
027209,002974: 31,2742           57414                           BON      VCOMP                                 
027210,002975: 31,2743           04303                                    CMOONFLG                              
027211,002976: 31,2744           62745                                    +1                                    
027212,002977: 31,2745           77655                           VAD                                            
027213,002978: 31,2746           03627                                    RZC                                   
027214,002979: 31,2747           03627                           STORE    RZC                                   
027215,002980: 31,2750           46135        R23.3              SLOAD    BHIZ                                  
027216,002981: 31,2751           02752                                    LANDMARK                              #  IF LANDMARK = 0, USE HORIZ SUBR
027217,002982: 31,2752           62762                                    R23.4                                 
027218,002983: 31,2753           77614                           SET                                            
027219,002984: 31,2754           00462                                    ERADFLAG                              
027220,002985: 31,2755           45145                           DLOAD    CALL                                  
027221,002986: 31,2756           01225                                    MARKTIME                              
027222,002987: 31,2757           26441                                    LALOTORV                              
027223,002988: 31,2760           77650                           GOTO                                           
027224,002989: 31,2761           62764                                    R23.5                                 
027225,002990: 31,2762           77624        R23.4              CALL                                           
027226,002991: 31,2763           63136                                    HORIZ                                 
027227,002992: 31,2764           40251        R23.5              VSU      SETPD                                 
027228,002993: 31,2765           03627                                    RZC                                   
027229,002994: 31,2766           00001                                    0                                     
027230,002995: 31,2767           77650                           GOTO                                           
027231,002996: 31,2770           01150                                    POINTEX                               

Page 625

027233,002998: 31,2771           41456        R23.55             UNIT     PUSH                                  #  RCLL IS IN MPAC
027234,002999: 31,2772           77775                           VLOAD                                          
027235,003000: 31,2773           00043                                    34D                                   #  RCLL * RCLL
027236,003001: 31,2774           24037                           STOVL    30D                                   #  PUSH 30-31 =RCLL*RCLL 32-33=ABVAL RCLL
027237,003002: 31,2775           03635                                    VZC                                   
027238,003003: 31,2776           54361                           VXSC     VSR                                   
027239,003004: 31,2777           23437                                    ONE/C                                 
027240,003005: 31,3000           20620                                    15D                                   
027241,003006: 31,3001           77655                           VAD                                            #  PUSH UP RCLL(UNIT)
027242,003007: 31,3002           77656                           UNIT                                           
027243,003008: 31,3003           27643                           STOVL    UCLSTAR                               
027244,003009: 31,3004           03635                                    VZC                                   
027245,003010: 31,3005           52342                           VSR2     VSU                                   
027246,003011: 31,3006           02141                                    VESO                                  
027247,003012: 31,3007           54361                           VXSC     VSR                                   
027248,003013: 31,3010           23437                                    ONE/C                                 
027249,003014: 31,3011           20616                                    13D                                   
027250,003015: 31,3012           53455                           VAD      UNIT                                  
027251,003016: 31,3013           02617                                    US                                    
027252,003017: 31,3014           03651                           STORE    USSTAR                                
027253,003018: 31,3015           72441                           DOT      SL1                                   
027254,003019: 31,3016           03643                                    UCLSTAR                               
027255,003020: 31,3017           77206                           PUSH     VLOAD                                 #  PD 0,1 = USSTAR(DOT)UCLSTAR
027256,003021: 31,3020           03643                                    UCLSTAR                               
027257,003022: 31,3021           57561                           VXSC     VCOMP                                 
027258,003023: 31,3022           53372                           VSL1     VAD                                   
027259,003024: 31,3023           03651                                    USSTAR                                
027260,003025: 31,3024           77656                           UNIT                                           
027261,003026: 31,3025           27502                           STOVL    BVECTOR                               #  USSTAR - COSQ(UCLSTAR
027262,003027: 31,3026           15335                                    ZEROVECS                              
027263,003028: 31,3027           03510                           STORE    BVECTOR    +6                         
027264,003029: 31,3030           17516                           STODL    BVECTOR    +12D                       
027265,003030: 31,3031           00001                                    0                                     
027266,003031: 31,3032           57526                           ACOS     DCOMP                                 
027267,003032: 31,3033           71206                           PUSH     DLOAD                                 
027268,003033: 31,3034           15335                                    ZEROVECS                              
027269,003034: 31,3035           77776                           EXIT                                           
027270,003035: 31,3036           33450                           CA       VARSUBL                               #  PUT FIXED INTO ERASABLE FOR MSU
027271,003036: 31,3037           54001                           TS       L                                     #  INSTRUCTION COMING UP
027272,003037: 31,3040           31754                           CA       TRUNION                               #  REQUIRED TO CHANGE 2:S COMPLEMENT
027273,003038: 31,3041           00006                           EXTEND                                         #  TRUNION TO 1:S COMPLEMENT
027274,003039: 31,3042           20001                           MSU      L                                     #  TRUNION (2'S)-00000 CONVERTS TRUNION TO
027275,003040: 31,3043           54154                           TS       MPAC                                  #  1:S.  VARSUBL=00000
027276,003041: 31,3044           06006                           TC       INTPRET                               
027277,003042: 31,3045           67206                           PUSH     SLOAD                                 #  PUSH IS DP.  WHEN BDSU IS EXECUTED, 2ND
027278,003043: 31,3046           01343                                    TRUNBIAS                              #  HALF OF PUSHLIST IS GUARANTEED ZERO FROM
027279,003044: 31,3047           77621                           BDSU                                           #  DLOAD ZEROVECS ABOVE
027280,003045: 31,3050           43242                           SR3      DAD                                   
027281,003046: 31,3051           41215                           DAD      DMP                                   

Page 626

027283,003048: 31,3052           23445                                    TRUN19                                
027284,003049: 31,3053           00041                                    32D                                   
027285,003050: 31,3054           52405                           DMP      SL3                                   
027286,003051: 31,3055           07103                                    PI/4.0                                
027287,003052: 31,3056           62414                           BOFF     SL2                                   
027288,003053: 31,3057           04343                                    CMOONFLG                              
027289,003054: 31,3060           63061                                    R23.51                                
027290,003055: 31,3061           17524        R23.51             STODL    DELTAQ                                
027291,003056: 31,3062           00037                                    30D                                   #  RCLL * RCLL
027292,003057: 31,3063           47005                           DMP      RTB                                   
027293,003058: 31,3064           23454                                    TRUNVAR                               
027294,003059: 31,3065           45565                                    TPMODE                                
027295,003060: 31,3066           77771                           TAD                                            
027296,003061: 31,3067           23451                                    VARSUBL                               
027297,003062: 31,3070           03526                           STORE    VARIANCE                              
027298,003063: 31,3071           45014                           CLEAR    CALL                                  
027299,003064: 31,3072           02666                                    DMENFLG                               
027300,003065: 31,3073           75242                                    INCORP1                               
027301,003066: 31,3074           77624                           CALL                                           
027302,003067: 31,3075           56750                                    GRP2PC                                
027303,003068: 31,3076           51575                           VLOAD    ABVAL                                 
027304,003069: 31,3077           01265                                    DELTAX     +6                         
027305,003070: 31,3100           60414                           BOF      SR2                                   #  DISPLAY IS 2-27 IF IN LUNAR SPHERE
027306,003071: 31,3101           04343                                    CMOONFLG                              
027307,003072: 31,3102           63103                                    R23.52                                
027308,003073: 31,3103           27504        R23.52             STOVL    N49DISP    +2                         
027309,003074: 31,3104           01257                                    DELTAX                                
027310,003075: 31,3105           77646                           ABVAL                                          
027311,003076: 31,3106           60414                           BOF      SR2                                   
027312,003077: 31,3107           04343                                    CMOONFLG                              
027313,003078: 31,3110           63111                                    R23.53                                
027314,003079: 31,3111           03502        R23.53             STORE    N49DISP                               
027315,003080: 31,3112           77776                           EXIT                                           
027316,003081: 31,3113           33455        R23.6              CAF      V6N49                                 
027317,003082: 31,3114           04662                           TC       BANKCALL                              
027318,003083: 31,3115           21057                           CADR     GOFLASHR                              
027319,003084: 31,3116           04106                           TC       GOTOPOOH                              
027320,003085: 31,3117           03126                           TC       R23.7                                 #  INCORPORATE DATA
027321,003086: 31,3120           04106                           TC       GOTOPOOH                              
027322,003087: 31,3121           35015                           CAF      BIT3                                  #  BLANK OUT R3
027323,003088: 31,3122           05526                           TC       BLANKET                               
027324,003089: 31,3123           05412                           TC       PHASCHNG                              
027325,003090: 31,3124           00012                           OCT      00012                                 
027326,003091: 31,3125           05217                           TC       ENDOFJOB                              
027327,003092: 31,3126           06006        R23.7              TC       INTPRET                               
027328,003093: 31,3127           45014        R23.8              SET      CALL                                  
027329,003094: 31,3130           00467                                    VEHUPFLG                              
027330,003095: 31,3131           75454                                    INCORP2                               
027331,003096: 31,3132           77776                           EXIT                                           
027332,003097: 31,3133           04106        R23.END            TC       GOTOPOOH                              
027333,003098: 

Page 627

027335,003100: 31,3134           04400        R23.10             TC       FALTON                                
027336,003101: 31,3135           02444                           TC       P23.06                                
027337,003102: 31,3136           40220        HORIZ              STQ      SETPD                                 
027338,003103: 31,3137           03656                                    SRRETURN                              
027339,003104: 31,3140           00001                                    0                                     
027340,003105: 31,3141           65345                           DLOAD    PDDL                                  #  PUSH 0-1 = -AYO SCALED B0
027341,003106: 31,3142           01714                                    -AYO                                  
027342,003107: 31,3143           01716                                    AXO                                   
027343,003108: 31,3144           63325                           PDDL     PDVL                                  #  PUSH 2-3 = +AX SCALED B0
027344,003109: 31,3145           15343                                    DPPOSMAX                              
027345,003110: 31,3146           02617                                    US                                    
027346,003111: 31,3147           53435                           VXV      UNIT                                  
027347,003112: 31,3150           03627                                    RZC                                   
027348,003113: 31,3151           27621                           STOVL    UBAR2                                 
027349,003114: 31,3152           53435                           VXV      UNIT                                  #  PUSH UP
027350,003115: 31,3153           03621                                    UBAR2                                 
027351,003116: 31,3154           27605                           STOVL    UBAR0                                 
027352,003117: 31,3155           03621                                    UBAR2                                 
027353,003118: 31,3156           53435                           VXV      UNIT                                  
027354,003119: 31,3157           03605                                    UBAR0                                 
027355,003120: 31,3160           03613                           STORE    UBAR1                                 
027356,003121: 31,3161           50214                           BON      DOT                                   
027357,003122: 31,3162           01703                                    LUNAFLAG                              
027358,003123: 31,3163           63361                                    HORIZ.6                               
027359,003124: 31,3164           00001                                    0                                     #  UBAR1 DOT UZ
027360,003125: 31,3165           36156                           STCALL   ALPHAV     +4                         
027361,003126: 31,3166           26505                                    GETERAD                               
027362,003127: 31,3167           65215                           DAD      PDDL                                  #  MPAC HAS RADIUS OF FISHER SLLIPSOID
027363,003128: 31,3170           01355                                    HORIZALT                              #  PUSH 0-1 = BH SCALED B29
027364,003129: 31,3171           23441                                    AEARTH                                
027365,003130: 31,3172           41415                           DAD      PUSH                                  #  PUSH 2-3 = AH B29
027366,003131: 31,3173           01355                                    HORIZALT                              
027367,003132: 31,3174           64375        HORIZ.1            VLOAD    MXV                                   
027368,003133: 31,3175           03627                                    RZC                                   #  B29
027369,003134: 31,3176           03605                                    UBAR0                                 #  B1
027370,003135: 31,3177           63372                           VSL1     PDVL                                  #  PUSH 4-9 = RH(XH,YH,ZH) B29
027371,003136: 31,3200           02617                                    US                                    
027372,003137: 31,3201           76521                           MXV      VSL1                                  
027373,003138: 31,3202           03605                                    UBAR0                                 
027374,003139: 31,3203           77725                           PDDL                                           #  PUSH 10-15 = USH B1
027375,003140: 31,3204           00003                                    2                                     #  AH
027376,003141: 31,3205           14043                           STODL    34D                                   
027377,003142: 31,3206           00005                                    4                                     #  XH
027378,003143: 31,3207           77624                           CALL                                           
027379,003144: 31,3210           63365                                    DIVIDE                                
027380,003145: 31,3211           41257                           SR*      DMP                                   
027381,003146: 31,3212           20611                                    8D,1                                  #  NOW SCALED B9
027382,003147: 31,3213           00155                                    MPAC                                  
027383,003148: 31,3214           14037                           STODL    30D                                   
027384,003149: 31,3215           00001                                    0                                     

Page 628

027386,003151: 31,3216           14043                           STODL    34D                                   
027387,003152: 31,3217           00007                                    6                                     #  YH
027388,003153: 31,3220           77624                           CALL                                           
027389,003154: 31,3221           63365                                    DIVIDE                                
027390,003155: 31,3222           41257                           SR*      DMP                                   
027391,003156: 31,3223           20611                                    8D,1                                  #  B9
027392,003157: 31,3224           00155                                    MPAC                                  #  B18
027393,003158: 31,3225           41415                           DAD      PUSH                                  #  PUSH 16-17 =A SCALED B18
027394,003159: 31,3226           00037                                    30D                                   
027395,003160: 31,3227           75425                           DSU      SQRT                                  
027396,003161: 31,3230           23447                                    1.0B18                                
027397,003162: 31,3231           77725                           PDDL                                           #  PUSH 18-19 SQRT(A-1) B9
027398,003163: 31,3232           00021                                    16D                                   
027399,003164: 31,3233           14043                           STODL    34D                                   
027400,003165: 31,3234           00005                                    4                                     #  XH
027401,003166: 31,3235           77624                           CALL                                           
027402,003167: 31,3236           63365                                    DIVIDE                                
027403,003168: 31,3237           65257                           SR*      PDDL                                  
027404,003169: 31,3240           20622                                    17D,1                                 #  PUSH 20-21 = XH/A B29
027405,003170: 31,3241           00007                                    6                                     #  YH
027406,003171: 31,3242           77624                           CALL                                           
027407,003172: 31,3243           63365                                    DIVIDE                                
027408,003173: 31,3244           65257                           SR*      PDDL                                  
027409,003174: 31,3245           20622                                    17D,1                                 #  PUSH 22-23 = YH/A B29
027410,003175: 31,3246           00021                                    16D                                   #  A
027411,003176: 31,3247           14043                           STODL    34D                                   
027412,003177: 31,3250           00023                                    18D                                   #  SQRT(A-1)
027413,003178: 31,3251           77624                           CALL                                           
027414,003179: 31,3252           63365                                    DIVIDE                                
027415,003180: 31,3253           77657                           SR*                                            
027416,003181: 31,3254           20611                                    8D,1                                  
027417,003182: 31,3255           14035                           STODL    28D                                   
027418,003183: 31,3256           00001                                    0                                     #  BH
027419,003184: 31,3257           14043                           STODL    34D                                   
027420,003185: 31,3260           00003                                    2                                     #  AH
027421,003186: 31,3261           77624                           CALL                                           
027422,003187: 31,3262           63365                                    DIVIDE                                
027423,003188: 31,3263           41257                           SR*      DMP                                   #  AH/BH SCALED B1
027424,003189: 31,3264           20601                                    0,1                                   
027425,003190: 31,3265           00035                                    28D                                   #  SQRT(A-1)/A
027426,003191: 31,3266           72405                           DMP      SL1                                   
027427,003192: 31,3267           00007                                    6                                     #  YH
027428,003193: 31,3270           77725                           PDDL                                           
027429,003194: 31,3271           00003                                    2                                     #  AH
027430,003195: 31,3272           14043                           STODL    34D                                   
027431,003196: 31,3273           00001                                    0                                     
027432,003197: 31,3274           77624                           CALL                                           
027433,003198: 31,3275           63365                                    DIVIDE                                
027434,003199: 31,3276           41257                           SR*      DMP                                   #  BH/AH SCALED B1
027435,003200: 31,3277           20601                                    0,1                                   

Page 629

027437,003202: 31,3300           00035                                    28D                                   #  SQRT (A-1)/A
027438,003203: 31,3301           72405                           DMP      SL1                                   
027439,003204: 31,3302           00005                                    4                                     #  XH
027440,003205: 31,3303           43325                           PDDL     DAD                                   
027441,003206: 31,3304           00025                                    20D                                   #  XH/A
027442,003207: 31,3305           00031                                    24D                                   #  ALPHA
027443,003208: 31,3306           45325                           PDDL     DSU                                   
027444,003209: 31,3307           00027                                    22D                                   #  YH/A
027445,003210: 31,3310           00033                                    26D                                   #  BETA
027446,003211: 31,3311           40206                           PUSH     SETPD                                 
027447,003212: 31,3312           00021                                    16D                                   
027448,003213: 31,3313           45345                           DLOAD    DSU                                   
027449,003214: 31,3314           00025                                    20D                                   #  XH/A
027450,003215: 31,3315           00031                                    24D                                   #  ALPHA
027451,003216: 31,3316           43325                           PDDL     DAD                                   
027452,003217: 31,3317           00027                                    22D                                   #  YH/A
027453,003218: 31,3320           00033                                    26D                                   #  BETA
027454,003219: 31,3321           41525                           PDDL     PUSH                                  
027455,003220: 31,3322           15335                                    ZEROVECS                              
027456,003221: 31,3323           24041                           STOVL    32D                                   #  ZERO THIRD COMP. OF T-0 VECTOR
027457,003222: 31,3324           00035                                    28D                                   
027458,003223: 31,3325           53451                           VSU      UNIT                                  
027459,003224: 31,3326           00005                                    4                                     #  RH VECTOR
027460,003225: 31,3327           63241                           DOT      PDVL                                  #  PUSH 22-23 A-SUB-ZERO
027461,003226: 31,3330           00013                                    10D                                   #  USH VECTOR
027462,003227: 31,3331           00021                                    16D                                   #  T1 VECTOR
027463,003228: 31,3332           53451                           VSU      UNIT                                  
027464,003229: 31,3333           00005                                    4                                     #  RH VECTOR
027465,003230: 31,3334           41441                           DOT      PUSH                                  #  PUSH 24-25 A-SUB-ONE
027466,003231: 31,3335           00013                                    10D                                   
027467,003232: 31,3336           50021                           BDSU     BMN                                   
027468,003233: 31,3337           00027                                    22D                                   #  A-SUB-ZERO
027469,003234: 31,3340           63347                                    HORIZ.3                               
027470,003235: 31,3341           77614                           BON                                            
027471,003236: 31,3342           00304                                    NORFHOR                               
027472,003237: 31,3343           63353                                    HORIZ.4                               
027473,003238: 31,3344           52175        HORIZ.2            VLOAD    GOTO                                  
027474,003239: 31,3345           00035                                    28D                                   #  T-0 VECTOR
027475,003240: 31,3346           63355                                    HORIZ.5                               
027476,003241: 31,3347           52014        HORIZ.3            BON      GOTO                                  
027477,003242: 31,3350           00304                                    NORFHOR                               
027478,003243: 31,3351           63344                                    HORIZ.2                               
027479,003244: 31,3352           63353                                    HORIZ.4                               
027480,003245: 31,3353           77775        HORIZ.4            VLOAD                                          
027481,003246: 31,3354           00021                                    16D                                   #  T1 VECTOR
027482,003247: 31,3355           76505        HORIZ.5            VXM      VSL1                                  
027483,003248: 31,3356           03605                                    UBAR0                                 
027484,003249: 31,3357           77650                           GOTO                                           
027485,003250: 31,3360           03656                                    SRRETURN                              
027486,003251: 31,3361           41545        HORIZ.6            DLOAD    PUSH                                  

Page 630

027488,003253: 31,3362           23443                                    RADMOON                               
027489,003254: 31,3363           52006                           PUSH     GOTO                                  
027490,003255: 31,3364           63174                                    HORIZ.1                               
027491,003256: 31,3365           70501        DIVIDE             NORM     SR1                                   
027492,003257: 31,3366           00047                                    X1                                    
027493,003258: 31,3367           14045                           STODL    36D                                   
027494,003259: 31,3370           00043                                    34D                                   
027495,003260: 31,3371           55301                           NORM     BDDV                                  
027496,003261: 31,3372           00051                                    S1                                    
027497,003262: 31,3373           00045                                    36D                                   
027498,003263: 31,3374           43460                           XSU,1    RVQ                                   
027499,003264: 31,3375           00050                                    S1                                    
027500,003265: 31,3376           77014        RECT.1             BOFF     AXT,2                                 #  SR TO SET ZMEASURE = 0 IF MEASUREMENT
027501,003266: 31,3377           04343                                    CMOONFLG                              #    PLANET AND PRIMARY PLANET ARE THE SAME
027502,003267: 31,3400           63410                                    RECT.3                                #      OTHERWISE = 1
027503,003268: 31,3401           77775                           DEC      -2         B-14                       
027504,003269: 31,3402           77614                           BOFF                                           #        VEC. AND SCALE B29 AND B7
027505,003270: 31,3403           01743                                    LUNAFLAG                              
027506,003271: 31,3404           63414                                    RECT.4                                
027507,003272: 31,3405           52014        RECT.2             CLEAR    GOTO                                  
027508,003273: 31,3406           00265                                    ZMEASURE                              
027509,003274: 31,3407           63416                                    RECT.5                                
027510,003275: 31,3410           43174        RECT.3             AXT,2    BOFF                                  
027511,003276: 31,3411           00000                                    0                                     
027512,003277: 31,3412           01743                                    LUNAFLAG                              
027513,003278: 31,3413           63405                                    RECT.2                                
027514,003279: 31,3414           77614        RECT.4             SET                                            
027515,003280: 31,3415           00065                                    ZMEASURE                              
027516,003281: 31,3416           44575        RECT.5             VLOAD    VSR7                                  
027517,003282: 31,3417           01573                                    DELTACSM                              #  SCALED B22 OR B18
027518,003283: 31,3420           53257                           VSR*     VAD                                   
027519,003284: 31,3421           57176                                    0,2                                   
027520,003285: 31,3422           01607                                    RCVCSM                                #  SCALED B29 OR B27
027521,003286: 31,3423           77657                           VSR*                                           
027522,003287: 31,3424           57176                                    0,2                                   
027523,003288: 31,3425           27627                           STOVL    RZC                                   #  NOW SCALED B29
027524,003289: 31,3426           01601                                    NUVCSM                                #  SCALED B3 OR B-1
027525,003290: 31,3427           53702                           VSR4     VSR*                                  
027526,003291: 31,3430           57176                                    0,2                                   
027527,003292: 31,3431           53655                           VAD      VSR*                                  
027528,003293: 31,3432           01615                                    VCVCSM                                #  SCALED B7 OR B5
027529,003294: 31,3433           57176                                    0,2                                   
027530,003295: 31,3434           03635                           STORE    VZC                                   #  NOW SCALED B7
027531,003296: 31,3435           77616                           RVQ                                            
027532,003297: 31,3436           26305 05432  ONE/C              2DEC*    .333564049 E-6        B+21*           
027533,003298: 31,3440           00302 24533  AEARTH             2DEC     6378166    B-29                       #  A AXIS OF EARTH (METERS B-29)
027534,003299: 31,3442           00065 01265  RADMOON            2DEC     1738090    B-29                       #  RADIUS OF MOON IN METERS
027535,003300: 

Page 631

027537,003302: 
027538,003303: 31,3444           01604        TRUN19             OCT      01604                                 
027539,003304: 31,3445           00000        TRUN19A            OCT      00000                                 
027540,003305: 31,3446           00000 02000  1.0B18             2DEC     1.0        B-18                       
027541,003306: 31,3450           00000        VARSUBL            DEC      0          B-14                       
027542,003307: 31,3451           01505 14100  VARSUBL3           2DEC*    3.4299040  E+6        B-26*           
027543,003308: 31,3453           00012 27462  TRUNVAR            2DEC     2.5        E-9        B+18            
027544,003309: 31,3455           01461        V6N49              VN       0649                                  
027545,003310: 31,3456           01306        V05N70             VN       0570                                  
027546,003311: 31,3457           01307        V05N71             VN       0571                                  
027547,003312: 31,3460           00077        OCT00077           OCT      00077                                 
027548,003313: 31,3461           00202        V50N25P            OCT      00202                                 
027549,003314: 31,3462           00006        SPSIX              OCT      00006                                 
027550,003315: 31,3463           10464 12467  JCAXIS             2DEC     .2688190620                            #  1/2(SIN 32.523 DEG)  TRACK AXIS
027551,003316: 31,3465           00000 00000                     2DEC     0          B-28                       
027552,003317: 31,3467           15373 11346                     2DEC     .4215878460                            #  1/2(COS 32.523 DEG)
027553,003318: 31,3471           62622        R60ADRS            CADR     R60CALL    +3                         
027554,003319: 31,3472           77732        NEG37              DEC      -37        B-14                       
027555,003320: 31,3473           00700        BITS7-9            OCT      700                                   
027556,003321: 31,3474           00070        BITS4-6            OCT      70                                    
027557,003322: 14,2000                                           SETLOC   RT53                                  
027558,003323: 14,2000                                           BANK                                           
027559,003324: 14,2000           43573        LOWMEMRY           VLOAD*   RVQ                                   
027560,003325: 14,2001           31762                                    CATLOG,1                              
027561,003326: 37,2624                                           BANK     37                                    
027562,003327: 16,2000                                           SETLOC   P23S1                                 
027563,003328: 16,2000                                           BANK                                           
027564,003329: 16,2000           77776        LDPLANET           EXIT                                           #  KEEP THIS OPEN SUBROUTINE IN EBANK=5
027565,003330: 16,2001           32017                           CAF      VNPLAN23                              #  BECAUSE STAR IS EBANK=5
027566,003331: 16,2002           04662                           TC       BANKCALL                              #  LDPLANET ALLOWS VECTOR TO PLANET TO BE
027567,003332: 16,2003           20720                           CADR     GOFLASH                               #  STORED IN STARSAV2 IF STORED STARS ARE
027568,003333: 16,2004           04106                           TC       GOTOPOOH                              #  NOT VISIBLE.
027569,003334: 16,2005           02007                           TC       +2                                    
027570,003335: 16,2006           02001                           TC       -5                                    
027571,003336: 16,2007           06006                           TC       INTPRET                               
027572,003337: 16,2010           74375                           VLOAD    VXSC                                  
027573,003338: 16,2011           02766                                    STAR                                  
027574,003339: 16,2012           32433                                    1/SQR3                                
027575,003340: 16,2013           77656                           UNIT                                           
027576,003341: 16,2014           02617                           STORE    STARSAV2                              
027577,003342: 16,2015           77650                           GOTO                                           
027578,003343: 16,2016           62563                                    P23.31                                
027579,003344: 16,2017           01530        VNPLAN23           VN       0688                                  
027580,003345:    4622                                           BLOCK    02                                    
027581,003346:    4622           00006        GOTOV56            EXTEND                                         #  P20 TERMINATES BY GOTOV56 INSTEAD OF

Page 632

027583,003348:    4623           34626                           DCA      VB56CADR                              #        GOTOPOOH
027584,003349:    4624           15227                           TCF      SUPDXCHZ                              
027585,003350:    4625  E7,1777                                  EBANK=   WHOCARES                              
027586,003351:    4625           02653 66107  VB56CADR           2CADR    TRACKTRM                              
027587,003352: 
027588,003353:    4000                                           SETLOC   FFTAG2                                
027589,003354:    4000                                           BANK                                           
027590,003355:    4627                                           COUNT*   $$/P20                                
027591,003356: 40,3624                                           BANK     40                                    
027592,003357: 40,3600                                           SETLOC   ENDPINS1                              
027593,003358: 40,3600                                           BANK                                           
027594,003359: 40,3624                                           COUNT*   $$/EXTVB                              
027595,003360: 40,3624           06006        V67CALL            TC       INTPRET                               
027596,003361: 40,3625           77624                           CALL                                           
027597,003362: 40,3626           61707                                    V67WW                                 
027598,003363: 40,3627           77776                           EXIT                                           
027599,003364: 40,3630           33762        V06N99DS           CAF      V06N99A                               
027600,003365: 40,3631           04662                           TC       BANKCALL                              
027601,003366: 40,3632           20561                           CADR     GOXDSPF                               
027602,003367: 40,3633           15534                           TCF      ENDEXT                                
027603,003368: 40,3634           03636                           TC       V06N9933                              
027604,003369: 40,3635           03630                           TC       V06N99DS                              
027605,003370: 40,3636           06006        V06N9933           TC       INTPRET                               
027606,003371: 40,3637           46135                           SLOAD    BHIZ                                  #  IF R3 OF V67 = 0 EXIT
027607,003372: 40,3640           02325                                    WWOPT                                 
027608,003373: 40,3641           61644                                    +3                                    
027609,003374: 40,3642           77650                           GOTO                                           
027610,003375: 40,3643           61646                                    V6N99INP                              
027611,003376: 40,3644           77776                           EXIT                                           
027612,003377: 40,3645           15534                           TCF      ENDEXT                                
027613,003378: 40,3646           41345        V6N99INP           DLOAD    DMP                                   
027614,003379: 40,3647           02321                                    WWPOS                                 
027615,003380: 40,3650           21764                                    1/SQRT3                               
027616,003381: 40,3651           71350                           LXA,1    DLOAD                                 
027617,003382: 40,3652           00154                                    MPAC                                  
027618,003383: 40,3653           02323                                    WWVEL                                 
027619,003384: 40,3654           73005                           DMP      LXA,2                                 
027620,003385: 40,3655           21764                                    1/SQRT3                               
027621,003386: 40,3656           00154                                    MPAC                                  
027622,003387: 40,3657           45335                           SLOAD    DSU                                   
027623,003388: 40,3660           02325                                    WWOPT                                 
027624,003389: 40,3661           21766                                    V67DEC2                               
027625,003390: 40,3662           51030                           BHIZ     BPL                                   
027626,003391: 40,3663           61672                                    V67WORB                               
027627,003392: 40,3664           61677                                    V67WMID                               
027628,003393: 40,3665           67130                           SXA,1    SXA,2                                 
027629,003394: 40,3666           02000                                    WRENDPOS                              
027630,003395: 40,3667           02001                                    WRENDVEL                              
027631,003396: 40,3670           77650                           GOTO                                           
027632,003397: 40,3671           61702                                    V67EXITX                              
027633,003398: 40,3672           67130        V67WORB            SXA,1    SXA,2                                 
027634,003399: 40,3673           02004                                    WORBPOS                               
027635,003400: 40,3674           02005                                    WORBVEL                               
027636,003401: 40,3675           77650                           GOTO                                           
027637,003402: 40,3676           61702                                    V67EXITX                              
027638,003403: 40,3677           67130        V67WMID            SXA,1    SXA,2                                 

Page 633

027640,003405: 40,3700           03000                                    WMIDPOS                               
027641,003406: 40,3701           03001                                    WMIDVEL                               
027642,003407: 40,3702           43014        V67EXITX           CLEAR    CLEAR                                 
027643,003408: 40,3703           01671                                    ORBWFLAG                              
027644,003409: 40,3704           02676                                    RENDWFLG                              
027645,003410: 40,3705           77776                           EXIT                                           
027646,003411: 40,3706           15534                           TCF      ENDEXT                                
027647,003412: 40,3707           40020        V67WW              STQ      BOV                                   
027648,003413: 40,3710           00051                                    S2                                    
027649,003414: 40,3711           61712                                    +1                                    
027650,003415: 40,3712           77624                           CALL                                           
027651,003416: 40,3713           27442                                    INTSTALL                              
027652,003417: 40,3714           71331                           SSP      DLOAD                                 
027653,003418: 40,3715           00051                                    S1                                    
027654,003419: 40,3716           00006                           DEC      6          B-14                       
027655,003420: 40,3717           15335                                    ZEROVECS                              
027656,003421: 40,3720           02321                           STORE    WWPOS                                 
027657,003422: 40,3721           02323                           STORE    WWVEL                                 
027658,003423: 40,3722           02325                           STORE    WWOPT                                 
027659,003424: 40,3723           77770                           AXT,1                                          
027660,003425: 40,3724           00044                           DEC      36         B-14                       
027661,003426: 40,3725           47573        NXPOSVEL           VLOAD*   VSQ                                   
027662,003427: 40,3726           02445                                    W          +36D,1                     
027663,003428: 40,3727           77615                           DAD                                            
027664,003429: 40,3730           02321                                    WWPOS                                 
027665,003430: 40,3731           02321                           STORE    WWPOS                                 
027666,003431: 40,3732           47573                           VLOAD*   VSQ                                   
027667,003432: 40,3733           02533                                    W          +90D,1                     
027668,003433: 40,3734           77615                           DAD                                            
027669,003434: 40,3735           02323                                    WWVEL                                 
027670,003435: 40,3736           02323                           STORE    WWVEL                                 
027671,003436: 40,3737           75500                           TIX,1    SQRT                                  
027672,003437: 40,3740           61725                                    NXPOSVEL                              
027673,003438: 40,3741           16323                           STODL    WWVEL                                 
027674,003439: 40,3742           02321                                    WWPOS                                 
027675,003440: 40,3743           77766                           SQRT                                           
027676,003441: 40,3744           02321                           STORE    WWPOS                                 
027677,003442: 40,3745           52000                           BOV      GOTO                                  
027678,003443: 40,3746           61750                                    +2                                    
027679,003444: 40,3747           61754                                    V67XXX                                
027680,003445: 40,3750           77745                           DLOAD                                          
027681,003446: 40,3751           15343                                    DPPOSMAX                              
027682,003447: 40,3752           02321                           STORE    WWPOS                                 
027683,003448: 40,3753           02323                           STORE    WWVEL                                 
027684,003449: 40,3754           66150        V67XXX             LXA,1    SXA,1                                 

Page 634

027686,003451: 40,3755           00051                                    S2                                    
027687,003452: 40,3756           00052                                    QPRET                                 
027688,003453: 40,3757           77776                           EXIT                                           
027689,003454: 40,3760           04701                           TC       POSTJUMP                              
027690,003455: 40,3761           27457                           CADR     INTWAKE                               
027691,003456: 40,3762  E4,1720               WWPOS              =        RANGE                                 
027692,003457: 40,3762  E4,1722               WWVEL              =        RRATE                                 
027693,003458: 40,3762  E4,1724               WWOPT              =        RTHETA                                
027694,003459: 40,3762           01543        V06N99A            VN       0699                                  
027695,003460: 40,3763           22363 11620  1/SQRT3            2DEC     0.5773502                             
027696,003461: 40,3765           00002 00000  V67DEC2            2DEC     2          B-14                       
027697,003462: 40,3767  30,2000                                  SBANK=   LOWSUPER                              

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