Source Code

This is the source-code for the Apollo 9 Command Module's Guidance Computer. These files were derived originally from the scan from MIT's Dibner Institute's now-discontinued website titled "History of Recent Science and Technology", which in turn was originally created by Gary Neff, though his high-quality scans were unfortunately reduced in legibility when presented online. The markings on the front of the printout imply that it was the original AGC developer Norm Brodeur's copy. A scan by Ron Burkey has superceded it, made from a more-legible copy from the collection of original AGC developer Fred Martin. The source code was transcribed from those images by Ron Burkey. Note that the page images presented online are of reduced quality, and that higher-quality images are available. Report any conversion errors or legibility problems in page images to info@sandroid.org. Notations on the program listing read, in part:

	ASSEMBLE REVISION 249 OF AGC PROGRAM COLOSSUS BY NASA 2021111-041
	20'35 OCT. 28,1968
Note that the date is the date of the printout, not the date of the program revision.

024475,000002:                                                                                                  ## Copyright:   Public domain.
024476,000003:                                                                                                  ## Filename:    P20-P25.agc
024477,000004:                                                                                                  ## Purpose:     Part of the source code for Colossus, build 249.
024478,000005:                                                                                                  ##              It is part of the source code for the Command Module's (CM)
024479,000006:                                                                                                  ##              Apollo Guidance Computer (AGC), for Apollo 9.
024480,000007:                                                                                                  ## Assembler:   yaYUL
024481,000008:                                                                                                  ## Reference:   pp. 552-625.
024482,000009:                                                                                                  ## Contact:     Ron Burkey <info@sandroid.org>.
024483,000010:                                                                                                  ## Website:     www.ibiblio.org/apollo.
024484,000011:                                                                                                  ## Mod history: 08/14/04   RSB  Began transcribing.  (While there is a somewhat-
024485,000012:                                                                                                  ##                              similar source file for Luminary131, there is 
024486,000013:                                                                                                  ##                              almost useful overlap between the two.)
024487,000014:                                                                                                  ##              2010-10-24 JL   Fixed page number.
024488,000015:                                                                                                  ##              2011-05-07 JL   Flag SBANK= workarounds for future removal.
024489,000016:                                                                                                  ##              2017-01-06 RSB  Page numbers now agree with those on the
024490,000017:                                                                                                  ##                              original harcopy, as opposed to the PDF page
024491,000018:                                                                                                  ##                              numbers in 1701.pdf.
024492,000019:                                                                                                  ##              2017-01-15 RSB  Cross-diff'd comment text (not whitespace)
024493,000020:                                                                                                  ##                              vs the already-proofed corresponding Colossus
024494,000021:                                                                                                  ##                              237 and Comanche 55 source-code files
024495,000022:                                                                                                  ##                              and corrected errors found.
024496,000023:                                                                                                  ##              2017-02-06 RSB  Fixed comment-text errors noted while proofing
024497,000024:                                                                                                  ##                              Artemis 72.
024498,000025:                                                                                                  ##              2017-03-17 RSB  Comment-text fixes identified by 4-way diff'ing
024499,000026:                                                                                                  ##                              of Colossus 237 & 249, Comanche 55, and Artemis 72.
024500,000027:                                                                                                  ##              2017-06-17 MAS  Globally removed all SBANK= workarounds.
024501,000028: 
024502,000029:                                                                                                  ## The contents of the "Colossus249" files, in general, are transcribed 
024503,000030:                                                                                                  ## from a scanned copy of the program listing.  Notations on this
024504,000031:                                                                                                  ## document read, in part:
024505,000032:                                                                                                  ##
024506,000033:                                                                                                  ##      Assemble revision 249 of AGC program Colossus by NASA
024507,000034:                                                                                                  ##      2021111-041.  October 28, 1968.  
024508,000035:                                                                                                  ##
024509,000036:                                                                                                  ##      This AGC program shall also be referred to as
024510,000037:                                                                                                  ##                              Colossus 1A
024511,000038:                                                                                                  ##
024512,000039:                                                                                                  ##      Prepared by
024513,000040:                                                                                                  ##                      Massachusetts Institute of Technology
024514,000041:                                                                                                  ##                      75 Cambridge Parkway
024515,000042:                                                                                                  ##                      Cambridge, Massachusetts
024516,000043:                                                                                                  ##      under NASA contract NAS 9-4065.
024517,000044:                                                                                                  ##
024518,000045:                                                                                                  ## Refer directly to the online document mentioned above for further information.
024519,000046:                                                                                                  ## Please report any errors (relative to the scanned pages) to info@sandroid.org.
024520,000047:                                                                                                  ##
024521,000048:                                                                                                  ## In some cases, where the source code for Luminary 131 overlaps that of 
024522,000049:                                                                                                  ## Colossus 249, this code is instead copied from the corresponding Luminary 131
024523,000050:                                                                                                  ## source file, and then is proofed to incorporate any changes.
024524,000051: 

Page 552

024526,000053:                                                                                                  #  RENDEZVOUS NAVIGATION PROGRAM 20
024527,000054: 
024528,000055:                                                                                                  #  PROGRAM DESCRIPTION
024529,000056: 
024530,000057:                                                                                                  #        MOD NO - 1
024531,000058:                                                                                                  #        MOD BY - N. BRODEUR
024532,000059: 
024533,000060:                                                                                                  #  FUNCTIONAL DESCRIPTION
024534,000061: 
024535,000062:                                                                                                  #        TO CONTROL THE CSM ATTITUDE AND OPTICS TO ACQUIRE THE LEM IN THE S+T
024536,000063:                                                                                                  #        FIELD AND TO POINT THE CSM TRANSPONDER AT THE LEM.  TO UPDATE EITHER THE
024537,000064:                                                                                                  #        LEM OR CSM STATE VECTOR (AS SPECIFIED BY THE ASTRONAUT BY THE DSKY
024538,000065:                                                                                                  #        ENTRY) ON THE BASIS OF OPTICAL TRACKING DATA (REQUESTED BY DSKY)
024539,000066: 
024540,000067:                                                                                                  #  CALLING SEQUENCE -
024541,000068: 
024542,000069:                                                                                                  #        ASTRONAUT REQUEST THROUGH DSKY V37E20E
024543,000070: 
024544,000071:                                                                                                  #  SUBROUTINES CALLED-
024545,000072: 
024546,000073:                                                                                                  #        R02BOTH (IMU STATUS CHECK)                              BANKCALL
024547,000074:                                                                                                  #        FLAGUP                          2PHSCHNG                LOADTIME
024548,000075:                                                                                                  #        R61CSM (PREFERRED TRACKING ATTITUDE)                    FLAGDOWN
024549,000076:                                                                                                  #        R52 (AUTO OPTICS POSITIONING ROUT)                      SETINTG
024550,000077:                                                                                                  #        R22 (REND TRACK DATA PROC ROUT)                         PRIOCHNG
024551,000078:                                                                                                  #        ENDOFJOB                        INTEGRV                 GRP2PC
024552,000079:                                                                                                  #        INTPRET                         MKRLEES                 FINDVAC
024553,000080: 
024554,000081:                                                                                                  #  NORMAL EXIT MODES -
024555,000082: 
024556,000083:                                                                                                  #        P20 MAY BE TERMINATED IN TWO WAYS - ASTRONAUT SELECTION OF IDLING
024557,000084:                                                                                                  #        PROGRAM (P00) BY KEYING V37E00E OR BY KEYING IN V56E
024558,000085: 
024559,000086:                                                                                                  #  ALARM OR ABORT EXIT MODES -
024560,000087: 
024561,000088:                                                                                                  #        NONE DIRECTLY FROM P20
024562,000089: 
024563,000090:                                                                                                  #  OUTPUT
024564,000091: 
024565,000092:                                                                                                  #        TRKMKCNT = NO OF RENDEZVOUS TRACKING MARKS TAKEN (COUNTER)
024566,000093:                                                                                                  #        VHFCNT = NO OF VHF RANGING MARKS INCORPORATED (COUNTER)
024567,000094: 
024568,000095:                                                                                                  #  FLAGS SET + RESET
024569,000096: 
024570,000097:                                                                                                  #        RNDVZFLG,VEHUPFLG,UPDATFLG,TRACKFLG,TARG1FLG
024571,000098:                                                                                                  #        HOLDFLAG,WBODY,WBODY1,WBODY2,DELCDUX,DELCDUY,DELCDUZ
024572,000099:                                                                                                  #        STIKFLAG,PRFTRKAT,VINTFLAG,DIM0FLAG,R60FLAG,R61CNTR
024573,000100: 
024574,000101: 33,3772                                           BANK     33                                    
024575,000102: 37,2000                                           SETLOC   P20S                                  
024576,000103: 37,2000                                           BANK                                           
024577,000104: 
024578,000105: 37,2207  E6,1412                                  EBANK=   ESTROKER                              
024579,000106: 37,2207                                           COUNT*   $$/P20                                
024580,000107: 
024581,000108: 37,2207           04555        PROG20             TC       BANKCALL                              
024582,000109: 37,2210           17573                           CADR     R02BOTH                               #  IMU STATUS CHECK
024583,000110:                                                                                                  #  BLOCKING OF UPLINK IS DONE BY UPLINK PRG
024584,000111: 37,2211           34714                           CAF      ZERO                                  
024585,000112: 37,2212           55126                           TS       TRKMKCNT                              #  ZERO REND TRACKING MARK COUNTER
024586,000113: 37,2213           55125                           TS       VHFCNT                                #  ZERO REND VHF RNG MRK COUNTER
024587,000114: 37,2214           05435                           TC       UPFLAG                                #  SET PREF TRACK ATT FLAG
024588,000115: 37,2215           00120                           ADRES    PRFTRKAT                              #  BIT 10 FLAG 5
024589,000116: 37,2216           05447                           TC       DOWNFLAG                              #  LEM TO BE UPDATED.  VEHUPFLG RESET.
024590,000117: 37,2217           00026                           ADRES    VEHUPFLG                              #  BIT 8 FLAG 1

Page 553

024592,000119: 37,2220           05435                           TC       UPFLAG                                #  SET TRACKFLAG
024593,000120: 37,2221           00031                           ADRES    TRACKFLG                              #  BIT 5 FLAG 1
024594,000121: 37,2222           05435                           TC       UPFLAG                                #  SET UPDATFLG
024595,000122: 37,2223           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1
024596,000123: 37,2224           05435                           TC       UPFLAG                                #  SET RNDVZFLG
024597,000124: 37,2225           00010                           ADRES    RNDVZFLG                              #  BIT 7 FLAG 0
024598,000125: 37,2226           05261                           TC       2PHSCHNG                              
024599,000126: 37,2227           00004                           OCT      4                                     
024600,000127: 37,2230           05022                           OCT      05022                                 
024601,000128: 37,2231           26000                           OCT      26000                                 
024602,000129: 37,2232           06006                           TC       INTPRET                               
024603,000130: 37,2233           77634                           RTB                                            
024604,000131: 37,2234           45505                                    LOADTIME                              
024605,000132: 37,2235           35225                           STCALL   MARKTIME                              
024606,000133: 37,2236           56343                                    SETINTG                               #  SET INTEGRATION FLAGS
024607,000134: 37,2237           43014                           BOFF     SET                                   
024608,000135: 37,2240           02756                                    RENDWFLG                              
024609,000136: 37,2241           76243                                    P20.1                                 
024610,000137: 37,2242           01476                                    DIM0FLAG                              #  SET TO INTEGRATE THE W MATRIX
024611,000138: 37,2243           43014        P20.1              BON      CLEAR                                 
024612,000139: 37,2244           00707                                    VEHUPFLG                              
024613,000140: 37,2245           76247                                    P20.2                                 
024614,000141: 37,2246           01674                                    VINTFLAG                              #  SET FOR LM INTEGRATION
024615,000142: 37,2247           77624        P20.2              CALL                                           
024616,000143: 37,2250           27113                                    INTEGRV                               
024617,000144: 37,2251           77624                           CALL                                           
024618,000145: 37,2252           56741                                    GRP2PC                                #  GROUP 2 PHASE CHANGE
024619,000146: 37,2253           77624                           CALL                                           
024620,000147: 37,2254           56343                                    SETINTG                               #  SET INTEGRATION FLAGS
024621,000148: 37,2255           43014                           BOFF     CLEAR                                 
024622,000149: 37,2256           00747                                    VEHUPFLG                              
024623,000150: 37,2257           76261                                    P20.3                                 
024624,000151: 37,2260           01674                                    VINTFLAG                              #  SET FOR LM INTEGRATION
024625,000152: 37,2261           77624        P20.3              CALL                                           
024626,000153: 37,2262           27113                                    INTEGRV                               
024627,000154: 37,2263           77776                           EXIT                                           
024628,000155: 37,2264           37663                           CAF      PRIO26                                
024629,000156: 37,2265           05042                           TC       FINDVAC                               
024630,000157: 37,2266  E7,1734                                  EBANK=   MRKBUF2                               
024631,000158: 37,2266           02512 70067                     2CADR    R22                                   
024632,000159: 
024633,000160: 37,2270           05261                           TC       2PHSCHNG                              
024634,000161: 37,2271           00072                           OCT      00072                                 
024635,000162: 37,2272           00111                           OCT      00111                                 
024636,000163: 37,2273           34761        PIKUP20            CAF      PRIO14                                #  ALLOW HIGHER PRIO THAN LAMBERT
024637,000164: 37,2274           05103                           TC       PRIOCHNG                              
024638,000165: 37,2275           34706                           CAF      BIT5                                  #  IS TRACK FLAG SET
024639,000166: 37,2276           70075                           MASK     STATE      +1                         
024640,000167: 37,2277           00006                           EXTEND                                         
024641,000168: 37,2300           15112                           BZF      ENDOFJOB                              #  NO

Page 554

024643,000170: 37,2301           34676                           CAF      BIT13                                 
024644,000171: 37,2302           70077                           MASK     STATE      +3                         #  IS REFSMFLG SET
024645,000172: 37,2303           00006                           EXTEND                                         
024646,000173: 37,2304           15112                           BZF      ENDOFJOB                              
024647,000174: 37,2305           34714                           CAF      ZERO                                  
024648,000175: 37,2306           55775                           TS       R61CNTR                               #  INITIALIZE R61 COUNTER
024649,000176: 37,2307           05435                           TC       UPFLAG                                #  SET R60FLAG
024650,000177: 37,2310           00126                           ADRES    R60FLAG                               #  BIT 4 FLAG 5
024651,000178: 37,2311           04555                           TC       BANKCALL                              
024652,000179: 37,2312           76536                           CADR     R61CSM                                
024653,000180: 37,2313           05447                           TC       DOWNFLAG                              #  RESET R60FLAG
024654,000181: 37,2314           00126                           ADRES    R60FLAG                               #  BIT 4 FLAG 5
024655,000182: 37,2315  E5,1777                                  EBANK=   QMIN                                  
024656,000183: 37,2315           34751                           CAF      EBANK5                                
024657,000184: 37,2316           54003                           TS       EBANK                                 
024658,000185: 37,2317           05435                           TC       UPFLAG                                #  SET TARGET FLAG TO LEM
024659,000186: 37,2320           00024                           ADRES    TARG1FLG                              #  BIT 10 FLAG 1
024660,000187: 37,2321           06006        P20R52JB           TC       INTPRET                               
024661,000188: 37,2322           77624                           CALL                                           
024662,000189: 37,2323           30002                                    R52                                   #  SET UP AUTO OPTICS JOB
024663,000190: 37,2324           77776                           EXIT                                           
024664,000191: 37,2325           04555                           TC       BANKCALL                              
024665,000192: 37,2326           16070                           CADR     MKRLEES                               
024666,000193: 37,2327           34712                           CAF      ONE                                   #  HOLD PRESENT ATTITUDE
024667,000194: 37,2330           55332                           TS       HOLDFLAG                              
024668,000195: 37,2331           05112                           TC       ENDOFJOB                              
024669,000196: 37,2332           00203        OCT203             OCT      00203                                 
024670,000197: 37,2333     7707               FIRST3             EQUALS   FURST3                                
024671,000198: 

Page 555

024673,000200:                                                                                                  #  ORBITAL NAVIGATION PROGRAM 22
024674,000201: 
024675,000202: 31,2021                                           BANK     31                                    
024676,000203: 30,2000                                           SETLOC   P20S1                                 
024677,000204: 30,2000                                           BANK                                           
024678,000205: 
024679,000206: 30,2000  E5,1751                                  EBANK=   LANDMARK                              
024680,000207: 30,2000                                           COUNT*   $$/P22                                
024681,000208: 
024682,000209: 30,2000           05447        PROG22             TC       DOWNFLAG                              #  RESET RNDVZFLG BIT 7 FLAG 0
024683,000210: 30,2001           00010                           ADRES    RNDVZFLG                              
024684,000211: 30,2002           05435                           TC       UPFLAG                                
024685,000212: 30,2003           00025                           ADRES    TARG2FLG                              
024686,000213: 30,2004           04555                           TC       BANKCALL                              
024687,000214: 30,2005           17573                           CADR     R02BOTH                               #  IMU STATUS CHECK
024688,000215: 30,2006           06006                           TC       INTPRET                               #  COMPUTE ANGLE BETWEEN Y AND VXR SM
024689,000216: 30,2007           77634                           RTB                                            
024690,000217: 30,2010           45505                                    LOADTIME                              
024691,000218: 30,2011           34041                           STCALL   TDEC1                                 
024692,000219: 30,2012           27045                                    CSMCONIC                              #  INTEGRATE TO PRESENT TIME
024693,000220: 30,2013           47375                           VLOAD    VXV                                   #  CROSS PRODUCT BETWEEN V AND R
024694,000221: 30,2014           00007                                    VATT                                  
024695,000222: 30,2015           00001                                    RATT                                  
024696,000223: 30,2016           50256                           UNIT     DOT                                   
024697,000224: 30,2017           01744                                    REFSMMAT   +6                         
024698,000225: 30,2020           77646                           ABS                                            
024699,000226: 30,2021           65552                           SL1      ARCCOS                                
024700,000227: 30,2022           03626                           STORE    +MGA                                  
024701,000228: 30,2023           77414                           CLEAR    EXIT                                  
024702,000229: 30,2024           02676                                    RENDWFLG                              
024703,000230: 30,2025           32162                           CAF      V06N45B                               
024704,000231: 30,2026           04555                           TC       BANKCALL                              
024705,000232: 30,2027           20763                           CADR     GOFLASHR                              
024706,000233: 30,2030           04106                           TC       GOTOPOOH                              #  TERM P22
024707,000234: 30,2031           02036                           TC       PROG22A                               #  PROC
024708,000235: 30,2032           02025                           TC       -5                                    #  ENTER
024709,000236: 30,2033           36214                           CAF      THREE                                 
024710,000237: 30,2034           05415                           TC       BLANKET                               #  BLANK OUT R1 + R2
024711,000238: 30,2035           05112                           TC       ENDOFJOB                              
024712,000239: 30,2036           42172        PROG22A            CS       OCTL7000                              #  SET OFFSET NO.=0
024713,000240: 30,2037           71751                           MASK     LANDMARK                              
024714,000241: 30,2040           55751                           TS       LANDMARK                              
024715,000242: 30,2041           06006                           TC       INTPRET                               
024716,000243: 30,2042           77614                           CLEAR                                          
024717,000244: 30,2043           01664                                    P22MKFLG                              
024718,000245: 30,2044           43014                           SET      BOFF                                  
024719,000246: 30,2045           00462                                    ERADFLAG                              
024720,000247: 30,2046           04343                                    CMOONFLG                              
024721,000248: 30,2047           60113                                    PROG22B                               #  EARTH
024722,000249: 30,2050           77614                           SET                                            #  MOON
024723,000250: 30,2051           01463                                    LUNAFLAG                              

Page 556

024725,000252: 30,2052           77776                           EXIT                                           
024726,000253: 30,2053           32163                           CAF      V05N7022                              
024727,000254: 30,2054           04555                           TC       BANKCALL                              
024728,000255: 30,2055           20763                           CADR     GOFLASHR                              
024729,000256: 30,2056           04106                           TC       GOTOPOOH                              #  TERMINATE
024730,000257: 30,2057           02064                           TC       +5                                    #  PROCEED       UNPACK ABCDE
024731,000258: 30,2060           02053                           TC       -5                                    #  RECYCLE
024732,000259: 30,2061           34715                           CAF      FIVE                                  #  IMMEDIATE RETURN BLANK OUT R1,R2
024733,000260: 30,2062           05415                           TC       BLANKET                               
024734,000261: 30,2063           05112                           TC       ENDOFJOB                              
024735,000262: 30,2064           34715                           CAF      FIVE                                  
024736,000263: 30,2065           54301                           TS       MARKINDX                              
024737,000264: 30,2066           06006                           TC       INTPRET                               
024738,000265: 30,2067           77624                           CALL                                           #  UNPACK ABCDE FROM LANDMARK
024739,000266: 30,2070           60234                                    UNPACKAE                              
024740,000267: 30,2071           45335                           SLOAD    DSU                                   
024741,000268: 30,2072           02745                                    22SUBSCL                              
024742,000269: 30,2073           20166                                    P22MAXDE                              
024743,000270: 30,2074           45044                           BPL      CALL                                  
024744,000271: 30,2075           60101                                    DE-GR-50                              #  DE GREATER THAN MAX
024745,000272: 30,2076           76333                                    P22SUBRA                              #  SUBROUTINE A SETS LAT/LONG/ALT
024746,000273: 30,2077           77650                           GOTO                                           
024747,000274: 30,2100           60120                                    CALLR52                               
024748,000275: 30,2101           77624        DE-GR-50           CALL                                           #  CALL ADVANCED ORBIT ROUTINE
024749,000276: 30,2102           30206                                    ADVORB                                
024750,000277: 30,2103           77776                           EXIT                                           
024751,000278: 30,2104           05261                           TC       2PHSCHNG                              
024752,000279: 30,2105           00004                           OCT      00004                                 
024753,000280: 30,2106           05022                           OCT      05022                                 
024754,000281: 30,2107           13000                           OCT      13000                                 
024755,000282: 30,2110           06006                           TC       INTPRET                               
024756,000283: 30,2111           77650                           GOTO                                           
024757,000284: 30,2112           60132                                    DOV5N71                               
024758,000285: 30,2113           43014        PROG22B            CLEAR    SET                                   #  EARTH ORBIT
024759,000286: 30,2114           01663                                    LUNAFLAG                              
024760,000287: 30,2115           03067                                    KNOWNFLG                              
024761,000288: 30,2116           77624                           CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024762,000289: 30,2117           60217                                    P22SUBRB                              
024763,000290: 30,2120           77776        CALLR52            EXIT                                           
024764,000291: 30,2121           05261                           TC       2PHSCHNG                              
024765,000292: 30,2122           00004                           OCT      00004                                 
024766,000293: 30,2123           05022                           OCT      05022                                 
024767,000294: 30,2124           13000                           OCT      13000                                 
024768,000295: 30,2125           34715                           CAF      FIVE                                  
024769,000296: 30,2126           54301                           TS       MARKINDX                              #  SET MARK INDEX=5 FOR R52
024770,000297: 30,2127           06006                           TC       INTPRET                               
024771,000298: 30,2130           77624                           CALL                                           
024772,000299: 30,2131           30002                                    R52                                   
024773,000300: 30,2132           77776        DOV5N71            EXIT                                           
024774,000301: 30,2133           32164                           CAF      V05N7122                              

Page 557

024776,000303: 30,2134           04555                           TC       BANKCALL                              
024777,000304: 30,2135           20763                           CADR     GOFLASHR                              
024778,000305: 30,2136           04106                           TC       GOTOPOOH                              #  TERMINATE
024779,000306: 30,2137           02144                           TC       +5                                    #  PROCEED       UNPACK ABCDE
024780,000307: 30,2140           02133                           TC       -5                                    #  RECYCLE
024781,000308: 30,2141           34715                           CAF      FIVE                                  #  IMMEDIATE ENTRY BLANK OUT R1,R3
024782,000309: 30,2142           05415                           TC       BLANKET                               
024783,000310: 30,2143           05112                           TC       ENDOFJOB                              
024784,000311: 30,2144           06006                           TC       INTPRET                               
024785,000312: 30,2145           77624                           CALL                                           
024786,000313: 30,2146           60234                                    UNPACKAE                              
024787,000314: 30,2147           77624                           CALL                                           #  SET LAT/LANG/ALT
024788,000315: 30,2150           76333                                    P22SUBRA                              
024789,000316: 30,2151           66744        PROG22C            LXC,2    SLOAD*                                
024790,000317: 30,2152           01330                                    MARKSTAT                              
024791,000318: 30,2153           77724                                    QPRET,2                               
024792,000319: 30,2154           36750                           STCALL   8NN                                   
024793,000320: 30,2155           60255                                    S22.1                                 #  ESTABLISH LANDMARK - COMPUTE ORBITAL
024794,000321: 30,2156           77776        P22OVER            EXIT                                           
024795,000322: 30,2157           05301                           TC       PHASCHNG                              
024796,000323: 30,2160           04022                           OCT      04022                                 
024797,000324: 30,2161           02036                           TC       PROG22A                               #  POINT A ON GSOP
024798,000325: 30,2162           01455        V06N45B            VN       0645                                  
024799,000326: 30,2163           01306        V05N7022           VN       00570                                 
024800,000327: 30,2164           01307        V05N7122           VN       00571                                 
024801,000328: 30,2165           00033 00000  P22MAXDE           2DEC     27         B-14                       
024802,000329: 
024803,000330: 30,2167           01531        V06N89             VN       00689                                 
024804,000331: 30,2170           00077        OCTL77             OCT      77                                    #  DE MASK OF ABCDE
024805,000332: 30,2171           00700        OCTL700            OCT      700                                   #   C MASK OF ABCDE
024806,000333: 30,2172           07000        OCTL7000           OCT      7000                                  #   B MASK OF ABCDE
024807,000334: 37,2000                                           SETLOC   P20S                                  
024808,000335: 37,2000                                           BANK                                           
024809,000336: 
024810,000337: 37,2333           43020        P22SUBRA           STQ      BOFF                                  #  SET LAT/LONG/ALT FOR KNOWN LANDMARK
024811,000338: 37,2334           03667                                    S22TOFF                               
024812,000339: 37,2335           03347                                    KNOWNFLG                              
024813,000340: 37,2336           03667                                    S22TOFF                               #  UNKNOWN LANKMARK, EXIT
024814,000341: 37,2337           46135                           SLOAD    BHIZ                                  
024815,000342: 37,2340           02745                                    22SUBSCL                              
024816,000343: 37,2341           60213                                    OBTAINLL                              #  GET LAT/LONG/ALT FROM ASTRO
024817,000344: 37,2342           50025                           DSU      BMN                                   
024818,000345: 37,2343           21646                                    9DWID                                 #  2 B-14
024819,000346: 37,2344           60173                                    S22LSITE                              #  GET LAT/LONG/ALT FROM RLS (LANDING SITE)
024820,000347: 37,2345           70152                           SL1      LXC,1                                 #  GET LAT/LONG/ALT FROM TABLES
024821,000348: 37,2346           00154                                    MPAC                                  
024822,000349: 37,2347           70601                           SETPD    DLOAD*                                
024823,000350: 37,2350           00001                                    0D                                    
024824,000351: 37,2351           23705                                    ALTTAB,1                              
024825,000352: 37,2352           64723                           PDDL*    PDDL*                                 

Page 558

024827,000354: 37,2353           23623                                    LONGTAB,1                             
024828,000355: 37,2354           23541                                    LATTAB,1                              
024829,000356: 37,2355           77666                           VDEF                                           
024830,000357: 37,2356           35104                           STCALL   LAT                                   
024831,000358: 37,2357           03667                                    S22TOFF                               #  EXIT
024832,000359: 30,2000                                           SETLOC   P20S1                                 
024833,000360: 30,2000                                           BANK                                           
024834,000361: 
024835,000362: 30,2173           77634        S22LSITE           RTB                                            #  CONVERT RLS FROM MOON-FIXED TO BASIC REF
024836,000363: 30,2174           45505                                    LOADTIME                              
024837,000364: 30,2175           24007                           STOVL    6D                                    #  6-7D= TIME
024838,000365: 30,2176           02026                                    RLS                                   
024839,000366: 30,2177           14001                           STODL    0D                                    #  0-5D= LANDING SITE VECTOR
024840,000367: 30,2200           15330                                    HIDPHALF                              #  MPAC= ANY NON-ZERO FOR MOON
024841,000368: 30,2201           77624                           CALL                                           
024842,000369: 30,2202           55341                                    RP-TO-R                               #  RLS IN BASIC REF B-27 IN MPAC
024843,000370: 30,2203           77742                           VSR2                                           #  LUNAFLAG AND ERADFLAG SET ABOVE
024844,000371: 30,2204           02152                           STORE    ALPHAV                                #  SCALE RLS B-29 FOR LAT-LONG
024845,000372: 30,2205           77634                           RTB                                            
024846,000373: 30,2206           45505                                    LOADTIME                              #  SET PRESENT TIME IN MPAC FOR LAT-LONG
024847,000374: 30,2207           77624                           CALL                                           
024848,000375: 30,2210           26322                                    LAT-LONG                              
024849,000376: 30,2211           77650                           GOTO                                           
024850,000377: 30,2212           03667                                    S22TOFF                               #  EXIT
024851,000378: 30,2213           77624        OBTAINLL           CALL                                           #  GET LAT/LONG/ALT FROM ASTRO
024852,000379: 30,2214           60217                                    P22SUBRB                              
024853,000380: 30,2215           77650                           GOTO                                           
024854,000381: 30,2216           03667                                    S22TOFF                               #  EXIT
024855,000382: 30,2217           77420        P22SUBRB           STQ      EXIT                                  #  GET LAT/LONG/ALT FROM ASTRO
024856,000383: 30,2220           03670                                    S22TOFF    +1                         
024857,000384: 30,2221           33656                           CAF      V06N89B                               
024858,000385: 30,2222           04555                           TC       BANKCALL                              
024859,000386: 30,2223           20624                           CADR     GOFLASH                               
024860,000387: 30,2224           04106                           TC       GOTOPOOH                              #  TERMINATE
024861,000388: 30,2225           02227                           TC       +2                                    #  PROCEED
024862,000389: 30,2226           02221                           TC       -5                                    #  ENTER OR RECYCLE
024863,000390: 30,2227           06006                           TC       INTPRET                               
024864,000391: 30,2230           77624                           CALL                                           
024865,000392: 30,2231           61345                                    LLASRDA                               
024866,000393: 30,2232           77650                           GOTO                                           
024867,000394: 30,2233           03670                                    S22TOFF    +1                         #  EXIT
024868,000395: 30,2234           77776        UNPACKAE           EXIT                                           #  UNPACK LANDMARK INTO ABCDE
024869,000396: 30,2235           31751                           CA       LANDMARK                              
024870,000397: 30,2236           72170                           MASK     OCTL77                                
024871,000398: 30,2237           55744                           TS       22SUBSCL                              #  DE=L=LMK ID NO. N 00,01,02-26
024872,000399: 30,2240           31751                           CA       LANDMARK                              
024873,000400: 30,2241           72172                           MASK     OCTL7000                              
024874,000401: 30,2242           55745                           TS       CXOFF                                 #  B= OFFSET INDICATOR
024875,000402: 30,2243           05435                           TC       UPFLAG                                #  SET KNOWNFLG
024876,000403: 30,2244           00141                           ADRES    KNOWNFLG                              #  BIT 8 FLAG 6

Page 559

024878,000405: 30,2245           31751                           CA       LANDMARK                              
024879,000406: 30,2246           74675                           MASK     BIT14                                 #  IF BIT14 OF LANDMARK=1, A=2  OTHERWISE A=1
024880,000407: 30,2247           00006                           EXTEND                                         
024881,000408: 30,2250           12253                           BZF      +3                                    #  A=1   LEAVE KNOWNFLAG SET FOR KNOWN LMK
024882,000409: 30,2251           05447                           TC       DOWNFLAG                              #  A=2   CLEAR KNOWNFLG (BIT 8 FLAG 6) FOR
024883,000410: 30,2252           00141                           ADRES    KNOWNFLG                              #        UNKNOWN LMK
024884,000411: 30,2253           06006                           TC       INTPRET                               
024885,000412: 30,2254           77616                           RVQ                                            
024886,000413: 

Page 560

024888,000415:                                                                                                  #  PROGRAM NAME-  OPTICS CALIBRATION ROUTINE
024889,000416:                                                                                                  #  MOD NO-  1
024890,000417:                                                                                                  #  MOD BY-  TOM KNATT
024891,000418: 
024892,000419:                                                                                                  #  FUNCTIONAL DESCRIPTION-  TO MEASURE THE EFFECT OF SOLAR RADIATION ON
024893,000420:                                                                                                  #        THE SXT TRUNNION ANGLE AND TO STORE THE MEASURED TRUNNION BIAS FOR P23
024894,000421: 
024895,000422:                                                                                                  #  CALLING SEQUENCE-     CALL
024896,000423:                                                                                                  #                                R57
024897,000424: 
024898,000425:                                                                                                  #  SUBROUTINES CALLED-  DISPLAY ROUTINES
024899,000426: 
024900,000427:                                                                                                  #  NORMAL EXIT MODES-  VIA EGRESS
024901,000428: 
024902,000429:                                                                                                  #  ALARMS-  NONE
024903,000430: 
024904,000431:                                                                                                  #  ABORT MODES-  P23 ABORT IF MARKING SYSTEM OR EXTENDED VERB ACTIVE
024905,000432: 
024906,000433:                                                                                                  #  INPUT-  NONE REQUIRED, NORMALLY CALLED BY P23
024907,000434: 
024908,000435:                                                                                                  #  OUTPUT-  TRUNNION BIAS ANGLE- ANGLE DETERMINED WHEN SHAFT LINE OF SIGHT
024909,000436:                                                                                                  #        (SLOS) AND LANDMARK LINE OF SIGHT (LLOS) ARE SUPERIMPOSED.  THIS ANGLE
024910,000437:                                                                                                  #        MAY NOT BE EXACTLY ZERO BECAUSE OF UNEVEN HEATING OF THE OPTICS, FOR
024911,000438:                                                                                                  #        EXAMPLE.
024912,000439: 
024913,000440:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-  MRKBUF1, EXTVBACT
024914,000441: 
024915,000442:                                                                                                  #  DEBRIS-  RUPTREGS USED BY MARKRUPT AND ERASABLES USED BY DISPLAYS
024916,000443: 
024917,000444: 33,3772                                           BANK     33                                    
024918,000445: 37,2000                                           SETLOC   P20S                                  
024919,000446: 37,2000                                           BANK                                           
024920,000447: 37,2360                                           COUNT*   $$/R57                                
024921,000448: 37,2360  E7,1725                                  EBANK=   MRKBUF1                               
024922,000449: 37,2360           77420        R57                STQ      EXIT                                  
024923,000450: 37,2361           02317                                    EGRESS                                
024924,000451: 37,2362           34753                           CAF      EBANK7                                
024925,000452: 37,2363           54003                           TS       EBANK                                 
024926,000453: 37,2364           36211                           CAF      SIX                                   #  BIT2 = MARKING SYSTEM IN USE
024927,000454: 37,2365           71044                           MASK     EXTVBACT                              #  BIT3 = EXTENDED VERB IN PROGRESS
024928,000455: 37,2366           10000                           CCS      A                                     
024929,000456: 37,2367           02437                           TC       P23ABRT                               #  SET, THEREFORE ABORT
024930,000457: 37,2370           34711                           CAF      BIT2                                  #  NOT SET
024931,000458: 37,2371           27044                           ADS      EXTVBACT                              #  SET IT
024932,000459: 37,2372           05435        R57A               TC       UPFLAG                                #  SET V59FLAG (BIT 12 FLAG 5) TO INDICATE
024933,000460: 37,2373           00116                           ADRES    V59FLAG                               #  CALIBRATION MARK
024934,000461: 37,2374           32442                           CAF      V59NB                                 
024935,000462: 37,2375           04555                           TC       BANKCALL                              
024936,000463: 37,2376           20504                           CADR     GOMARKFR                              
024937,000464: 37,2377           04106                           TC       GOTOPOOH                              #  TERMINATE
024938,000465: 37,2400           02424                           TC       ENDR57                                
024939,000466: 37,2401           02424                           TC       ENDR57                                
024940,000467: 37,2402           34716                           CAF      SEVEN                                 

Page 561

024942,000469: 37,2403           05415                           TC       BLANKET                               #  BLANK OUT R1,R2,R3
024943,000470: 37,2404           05112                           TC       ENDOFJOB                              
024944,000471:                                                                                                  #  STORE TRUNNION ANGLE (OCDU)
024945,000472: 37,2405           32441        MARKDISP           CAF      V06N87NB                              
024946,000473: 37,2406           04555                           TC       BANKCALL                              
024947,000474: 37,2407           20504                           CADR     GOMARKFR                              
024948,000475: 37,2410           04106                           TC       GOTOPOOH                              #  TERMINATE
024949,000476: 37,2411           02416                           TC       R57B                                  #  PROCEED
024950,000477: 37,2412           02372                           TC       R57A                                  #  ENTER (RECYCLE)
024951,000478: 37,2413           34715                           CAF      FIVE                                  
024952,000479: 37,2414           05415                           TC       BLANKET                               #  BLANK OUT R1,R3
024953,000480: 37,2415           05112                           TC       ENDOFJOB                              
024954,000481: 37,2416           32444        R57B               CA       19.77DEG                              #  PUT FIXED INTO ERASABLE FOR MSU
024955,000482: 37,2417           54001                           TS       L                                     #  INSTRUCTION COMING UP
024956,000483: 37,2420           31732                           CA       MRKBUF1    +5                         #  CONTAINS TRUNNION
024957,000484: 37,2421           00006                           EXTEND                                         
024958,000485: 37,2422           20001                           MSU      L                                     #  CORRECTS TRUNBIAS FROM 2'S TO 1'S
024959,000486: 37,2423           55342                           TS       TRUNBIAS                              
024960,000487: 37,2424           05447        ENDR57             TC       DOWNFLAG                              #  RESET V59FLAG
024961,000488: 37,2425           00116                           ADRES    V59FLAG                               #  BIT 12 FLAG 5
024962,000489: 37,2426           34751                           CAF      EBANK5                                
024963,000490: 37,2427           54003                           TS       EBANK                                 
024964,000491: 37,2430           34761                           CAF      PRIO14                                
024965,000492: 37,2431           05027                           TC       NOVAC                                 #  THIS JOB CLEARS BIT IN
024966,000493: 37,2432     1330                                  EBANK=   MARKSTAT                              
024967,000494: 37,2432           05423 04062                     2CADR    ENDMARK                               #  MARKING IN R57 SO R53 CAN TAKE OVER
024968,000495: 
024969,000496: 37,2434           06006                           TC       INTPRET                               
024970,000497: 37,2435           77650                           GOTO                                           
024971,000498: 37,2436           02317                                    EGRESS                                
024972,000499: 37,2437           05604        P23ABRT            TC       BAILOUT                               
024973,000500: 37,2440           01211                           OCT      01211                                 
024974,000501: 37,2441           01527        V06N87NB           VN       0687                                  
024975,000502: 37,2442           16600        V59NB              VN       5900                                  
024976,000503: 37,2443           14600        V51NB              VN       5100                                  
024977,000504: 37,2444           61740        19.77DEG           OCT      61740                                 
024978,000505: 

Page 562

024980,000507:                                                                                                  #  PROGRAM DESCRIPTION
024981,000508:                                                                                                  #  MOD NO-  1
024982,000509:                                                                                                  #  MOD BY-  N. BRODEUR
024983,000510: 
024984,000511:                                                                                                  #  FUNCTIONAL DESCRIPTION
024985,000512: 
024986,000513:                                                                                                  #  TO PERFORM SIGHTING MARKS IN CONJUNCTION WITH THE RENDEZVOUS NAVIG-
024987,000514:                                                                                                  #  ATION PROGRAM.  CALLED BY ASTRONAUT VIA EXTENDED VERB
024988,000515: 
024989,000516:                                                                                                  #  CALLING SEQUENCE-
024990,000517: 
024991,000518:                                                                                                  #        R21 VIA V57
024992,000519:                                                                                                  #        R23 VIA V 54
024993,000520: 
024994,000521:                                                                                                  #  SUBROUTINES CALLED-
024995,000522: 
024996,000523:                                                                                                  #        FLAGUP          FLAGDOWN        BANKCALL
024997,000524:                                                                                                  #        ENDOFJOB        GOMARK2         GOMARKF
024998,000525:                                                                                                  #        INTPRET         GENTRAN         KLEENEX
024999,000526:                                                                                                  #        ENDMARK
025000,000527: 
025001,000528:                                                                                                  #  NORMAL EXIT MODES-
025002,000529: 
025003,000530:                                                                                                  #  MARKRUPT USED BY SXTMARK HAS BEEN MODIFIED TO STORE MARK IN MRKBUF2
025004,000531:                                                                                                  #  FOR USE BY R22.  WHEN ASTRONAUT IS FINISHED TAKING MARKS, HE HITS AN
025005,000532:                                                                                                  #  PROCEED, R21 IS TERMINATED THUS CAUSING THE FINAL MARK TO BE TRANSFRD
025006,000533:                                                                                                  #  TO MRKBUF2 FOR PROCESSING BY R22
025007,000534: 
025008,000535:                                                                                                  #  ALARM OR ABORT EXIT MODES-
025009,000536: 
025010,000537:                                                                                                  #        NONE
025011,000538: 
025012,000539:                                                                                                  #  OUTPUT-
025013,000540: 
025014,000541:                                                                                                  #        7 REGISTER MRKBUF2 CONTAINING TIME2,TIME1,CDUY,OPTICS X,CDUZ, OPTICS Y,
025015,000542:                                                                                                  #        CDUX.
025016,000543: 
025017,000544:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
025018,000545: 
025019,000546:                                                                                                  #        FLAGS SET AND RESET
025020,000547:                                                                                                  #                R21MARK         (COMMUNICATION TO MARKRUPT TO STORE MARKS IN MRKBUF1 +2)
025021,000548:                                                                                                  #                R23FLG          INDICATES COAS MARKING
025022,000549: 
025023,000550:                                                                                                  #  DEBRIS
025024,000551: 
025025,000552: 37,2445  E7,1725                                  EBANK=   MRKBUF1                               
025026,000553: 37,2000                                           SETLOC   RENDEZ                                
025027,000554: 37,2000                                           BANK                                           
025028,000555: 
025029,000556: 37,2445                                           COUNT*   $$/R21                                
025030,000557: 
025031,000558: 37,2445           05435        R21CSM             TC       UPFLAG                                #  SET R21MARK
025032,000559: 37,2446           00037                           ADRES    R21MARK                               #  BIT 14 FLAG 2
025033,000560: 37,2447           37716        R23CSM             CA       NEGONE                                
025034,000561: 37,2450           55725                           TS       MRKBUF1                               
025035,000562: 37,2451           55734                           TS       MRKBUF2                               
025036,000563: 37,2452           30075                           CA       FLAGWRD1                              
025037,000564: 37,2453           74702                           MASK     BIT9                                  #  TEST R23FLG
025038,000565: 37,2454           00006                           EXTEND                                         
025039,000566: 37,2455           12510                           BZF      R21C1                                 #  NOT SET REGULAR R21 MARKING
025040,000567: 37,2456           32535                           CAF      V0694                                 #  R23 BACKUP MARKING
025041,000568: 37,2457           04555                           TC       BANKCALL                              #  DISPLAY SHAFT + TRUNNION
025042,000569: 37,2460           20465                           CADR     GOMARKF                               
025043,000570: 37,2461           02527                           TC       R21END                                #  TERM
025044,000571: 37,2462           02464                           TC       +2                                    #  PROC

Page 563

025046,000573: 37,2463           02456                           TC       -5                                    #  ENTER
025047,000574: 37,2464           32534        R23CSM1            CAF      V53                                   #  PERFORM ALT LOS SIGHT MARK
025048,000575: 37,2465           04555                           TC       BANKCALL                              
025049,000576: 37,2466           20470                           CADR     GOMARK2                               
025050,000577: 37,2467           02527                           TC       R21END                                #  V34- TERMINATE R23
025051,000578: 37,2470           12516                           TCF      R21CSMA                               #  PROCEED- END BACK UP MARKING (R23)
025052,000579: 37,2471           36211                           CAF      SIX                                   #  TRANSFER MRKBUF1 TO MRKBUF2
025053,000580: 37,2472           05475                           TC       GENTRAN                               
025054,000581: 37,2473           01725                           ADRES    MRKBUF1                               
025055,000582: 37,2474           01734                           ADRES    MRKBUF2                               
025056,000583: 37,2475           00006                           EXTEND                                         
025057,000584: 37,2476           30025                           DCA      TIME2                                 
025058,000585: 37,2477           53726                           DXCH     MRKBUF1                               #  READ TIME
025059,000586: 37,2500           30033                           CA       CDUY                                  #  READ CDU ANGLES
025060,000587: 37,2501           55727                           TS       MRKBUF1    +2                         
025061,000588: 37,2502           30034                           CA       CDUZ                                  
025062,000589: 37,2503           55731                           TS       MRKBUF1    +4                         
025063,000590: 37,2504           30032                           CA       CDUX                                  
025064,000591: 37,2505           55733                           TS       MRKBUF1    +6                         
025065,000592: 37,2506           00003                           RELINT                                         
025066,000593: 37,2507           02464                           TC       R23CSM1                               
025067,000594: 37,2510           32443        R21C1              CAF      V51NB                                 
025068,000595: 37,2511           04555                           TC       BANKCALL                              
025069,000596: 37,2512           20470                           CADR     GOMARK2                               
025070,000597: 37,2513           02527                           TC       R21END                                #  V34- TERMINATE R21
025071,000598: 37,2514           12516                           TCF      R21CSMA                               #  PROCEED- END R21
025072,000599: 37,2515           12510                           TCF      R21C1                                 #  RECYCLE
025073,000600: 
025074,000601: 37,2516           31725        R21CSMA            CA       MRKBUF1                               #  IF -1 NO MARK
025075,000602: 37,2517           64712                           AD       ONE                                   
025076,000603: 37,2520           00006                           EXTEND                                         
025077,000604: 37,2521           12527                           BZF      R21END                                #  ZERO = NO MARK
025078,000605: 37,2522           36211                           CAF      SIX                                   #  MARK THEREFORE TRANSFER IT TO MRKBUF2
025079,000606: 37,2523           05475        R21CSM1            TC       GENTRAN                               #  TRANSFER MRKBUF1 TO MRKBUF2
025080,000607: 37,2524           01725                           ADRES    MRKBUF1                               
025081,000608: 37,2525           01734                           ADRES    MRKBUF2                               
025082,000609: 37,2526           00003                           RELINT                                         
025083,000610: 37,2527           04555        R21END             TC       BANKCALL                              
025084,000611: 37,2530           20464                           CADR     KLEENEX                               
025085,000612: 37,2531           05447                           TC       DOWNFLAG                              #  RESET R21MARK
025086,000613: 37,2532           00037                           ADRES    R21MARK                               #  BIT 14 FLAG 2
025087,000614: 37,2533           05423                           TC       ENDMARK                               #  END MARKING AND ENDJOB
025088,000615: 37,2534           15200        V53                VN       5300                                  
025089,000616: 37,2535           01536        V0694              VN       0694                                  
025090,000617: 

Page 564

025092,000619:                                                                                                  #  PREFERRED TRACKING ATTITUDE ROUTINE R61CSM
025093,000620: 
025094,000621:                                                                                                  #  PROGRAM DESCRIPTION
025095,000622:                                                                                                  #        MOD NO-  2
025096,000623:                                                                                                  #        MOD BY-  N. BRODEUR
025097,000624: 
025098,000625:                                                                                                  #  FUNCTIONAL DESCRIPTION-
025099,000626: 
025100,000627:                                                                                                  #        TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM TO ENABLE OPTICS
025101,000628:                                                                                                  #        TRACKING OF THE LM AND TO PERFORM THE MANEUVER TO THE PREFERRED
025102,000629:                                                                                                  #        OR X-AXIS TRACKING ATTITUDE.
025103,000630: 
025104,000631:                                                                                                  #  CALLING SEQUENCE-
025105,000632: 
025106,000633:                                                                                                  #        TC      BANKCALL
025107,000634:                                                                                                  #        CADR    R61CSM
025108,000635: 
025109,000636:                                                                                                  #  SUBROUTINES CALLED
025110,000637: 
025111,000638:                                                                                                  #        MAKECADR        BANKCALL
025112,000639:                                                                                                  #        INTPRET         FLAGUP          FLAGDOWN
025113,000640:                                                                                                  #        BANKJUMP        CRS61.1         R60CSM
025114,000641:                                                                                                  #        PHASCHNG
025115,000642: 
025116,000643:                                                                                                  #  NORMAL EXIT MODES-
025117,000644: 
025118,000645:                                                                                                  #        NORMAL RETURN IS TO CALLER + 1
025119,000646: 
025120,000647:                                                                                                  #  OUTPUT-
025121,000648: 
025122,000649:                                                                                                  #        SEE OUTPUT FOR CRS61.1 & ATTITUDE MANEUVER ROUTINE (R60CSM)
025123,000650: 
025124,000651:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED
025125,000652: 
025126,000653:                                                                                                  #        GENRET USED TO SAVE Q FOR RETURN
025127,000654:                                                                                                  #        R61CNTR MUST BE PRESET TO ZERO
025128,000655: 
025129,000656:                                                                                                  #  FLAGS SET + RESET
025130,000657: 
025131,000658:                                                                                                  #        3-AXIS FLAG
025132,000659: 
025133,000660:                                                                                                  #  DEBRIS
025134,000661: 
025135,000662:                                                                                                  #        SEE SUBROUTINES
025136,000663: 
025137,000664: 37,2536  E6,1770                                  EBANK=   GENRET                                
025138,000665: 37,2536                                           COUNT*   $$/R61                                #  ROUTINES - NAVIGATION - PREF. TR. 9TT=
025139,000666: 
025140,000667: 37,2536           34752        R61CSM             CAF      EBANK6                                #  SWITCH TO EBANK 6
025141,000668: 37,2537           56003                           XCH      EBANK                                 
025142,000669: 37,2540           55771                           TS       SAVBNK                                #  SAVE EBANK
025143,000670: 37,2541           04604                           TC       MAKECADR                              
025144,000671: 37,2542           55770                           TS       GENRET                                
025145,000672: 37,2543           11775                           CCS      R61CNTR                               #  TEST R61CNTR
025146,000673: 37,2544           02575                           TC       DECRM61                               #  NOT READY TO DO R61.
025147,000674: 37,2545           02547                           TC       +2                                    #  DO R61
025148,000675: 37,2546           02576                           TC       DECRM61    +1                         
025149,000676: 37,2547           06006                           TC       INTPRET                               
025150,000677: 37,2550           77624                           CALL                                           
025151,000678: 37,2551           71225                                    CRS61.1                               #  LOS DETERMINATION + VEH ATTITUDE
025152,000679: 37,2552           77776                           EXIT                                           
025153,000680: 37,2553           50154                           INDEX    MPAC                                  
025154,000681: 37,2554           02555                           TC       +1                                    
025155,000682: 37,2555           02574                           TC       R61END                                #  SUBROUTINE DRIVING DAP        (EXIT R61)
025156,000683:                                                                                                  #  OR AUTO MODE NOT SET          (EXIT R61)
025157,000684:                                                                                                  #  OR STIKFLAG SET               (EXIT R61)
025158,000685: 37,2556           05447        R61C1              TC       DOWNFLAG                              #  RESET 3-AXIS FLAG
025159,000686: 37,2557           00124                           ADRES    3AXISFLG                              #  BIT 6 FLAG 5

Page 565

025161,000688: 37,2560           44712                           CS       ONE                                   #  SET R61CNTR NEG. TO INDICATE KALCMANU
025162,000689: 37,2561           55775                           TS       R61CNTR                               
025163,000690: 
025164,000691: 37,2562           05435                           TC       UPFLAG                                #  SET FLAG FOR PROIRITY DISPLAYS FOR R60
025165,000692: 37,2563           00077                           ADRES    PDSPFLAG                              #  BIT 12 FLAG 4
025166,000693: 37,2564           04555                           TC       BANKCALL                              
025167,000694: 37,2565           56000                           CADR     R60CSM                                
025168,000695: 37,2566           05447                           TC       DOWNFLAG                              #  RESET FLAG FOR PRIORITY DISPLAYS IN R60
025169,000696: 37,2567           00077                           ADRES    PDSPFLAG                              #  BIT 12 FLAG 4
025170,000697: 37,2570           05301                           TC       PHASCHNG                              
025171,000698: 37,2571           00111                           OCT      00111                                 
025172,000699: 37,2572           34714                           CAF      ZERO                                  
025173,000700: 37,2573           02575                           TC       DECRM61                               
025174,000701: 37,2574           36214        R61END             CAF      THREE                                 
025175,000702: 
025176,000703: 37,2575           55775        DECRM61            TS       R61CNTR                               
025177,000704: 
025178,000705: 37,2576           31770                           CAE      GENRET                                
025179,000706: 37,2577           22000                           LXCH     A                                     #  RETURN IS IN L
025180,000707: 37,2600           31771                           CA       SAVBNK                                #  RESTORE EBANK
025181,000708: 37,2601           56003                           XCH      EBANK                                 
025182,000709: 37,2602           22000                           LXCH     A                                     #  RETURN IS NOW BACK IN A
025183,000710: 37,2603           04577                           TC       BANKJUMP                              #  EXIT R61
025184,000711: 13,2176                                           BANK     13                                    
025185,000712: 23,2000                                           SETLOC   P20S2                                 
025186,000713: 23,2000                                           BANK                                           
025187,000714: 
025188,000715: 23,3047  E7,1725                                  EBANK=   MRKBUF1                               

Page 566

025190,000717:                                                                                                  #  BVECTOR PERFORMS COMPUTATIONS FOR
025191,000718: 
025192,000719:                                                                                                  #        DELTAQ, THE MEASURED DEVIATION BASED ON THE DIFFERENCE BETWEEN THE CSM-LE
025193,000720:                                                                                                  #        M STATE VECTOR ESTIMATES AND THE ACTUAL TRACKING MEASUREMENT.
025194,000721: 
025195,000722:                                                                                                  #        US, THE MODIFIED FICTITIOUS STAR DIRECTION VECTOR
025196,000723:                                                                                                  #        GEOMETRY VECTOR B ASSOCIATED WITH EACH TRACKING MEASUREMENT.
025197,000724: 
025198,000725:                                                                                                  #  INPUT
025199,000726: 
025200,000727:                                                                                                  #        UM, 1/2 UNIT VECTOR ALONG THE CSM-LM LINE OF SIGHT (BASIC REF. SYSTEM)
025201,000728: 
025202,000729:                                                                                                  #        USTAR, FICTITIOUS STAR DIRECTION (1/2 UNIT VECTOR)
025203,000730: 
025204,000731:                                                                                                  #        RCLP, RELATIVE CSM TO LM POSITION VECTOR
025205,000732: 
025206,000733:                                                                                                  #  OUTPUT
025207,000734: 
025208,000735:                                                                                                  #        USTAR, MODIFIED FICTITOUS STAR DIRECTION (1/2 UNIT VECTOR)
025209,000736: 
025210,000737:                                                                                                  #        BVECTOR = 9 DIMENSIONAL BVECTOR (1/2 UNIT VEC.)
025211,000738: 
025212,000739:                                                                                                  #        DELTAQ = MEASURED DEVIATION
025213,000740: 
025214,000741:                                                                                                  #  CALLING SEQUENCE
025215,000742: 
025216,000743:                                                                                                  #        L       CALL BVECTORS
025217,000744: 
025218,000745:                                                                                                  #  NORMAL EXIT
025219,000746: 
025220,000747:                                                                                                  #        L+1 OF CALLING SEQUENCE
025221,000748: 
025222,000749: 23,3047                                           COUNT    23/20SUB                              
025223,000750: 
025224,000751: 23,3047           77620        BVECTORS           STQ                                            
025225,000752: 23,3050           02317                                    EGRESS                                
025226,000753: 23,3051           53575                           VLOAD    UNIT                                  
025227,000754: 23,3052           03531                                    RCLP                                  #  RELATIVE POSITION VECTOR
025228,000755: 23,3053           14033                           STODL    26D                                   #  RCLP UNIT VEC
025229,000756: 23,3054           00045                                    36D                                   #  RCLP ABS VALUE
025230,000757: 23,3055           25301                           STOVL    TEMPOR1                               #  MOVE TO SAFE LOCATION
025231,000758: 23,3056           01245                                    USTAR                                 
025232,000759: 23,3057           53435                           VXV      UNIT                                  
025233,000760: 23,3060           00033                                    26D                                   #  USTAR = UNIT(US X UCL)
025234,000761: 23,3061           37502                           STCALL   BVECTOR                               
025235,000762: 23,3062           56741                                    GRP2PC                                #  PHASE CHANGE
025236,000763: 23,3063           77775                           VLOAD                                          
025237,000764: 23,3064           03502                                    BVECTOR                               
025238,000765: 23,3065           01245                           STORE    USTAR                                 
025239,000766: 23,3066           72441                           DOT      SL1                                   
025240,000767: 23,3067           01235                                    UM                                    #  USTAR DOT UM
025241,000768: 23,3070           45326                           ACOS     DSU                                   
025242,000769: 23,3071           15322                                    DP1/4TH                               
025243,000770: 23,3072           41301                           NORM     DMP                                   
025244,000771: 23,3073           00047                                    X1                                    
025245,000772: 23,3074           07107                                    PI/4.0                                
025246,000773: 23,3075           53605                           DMP      SRR*                                  
025247,000774: 23,3076           01301                                    TEMPOR1                               #  RCLP ABS VALUE
025248,000775: 23,3077           21576                                    0          -3,1                       #  ADJUST SCALING
025249,000776: 23,3100           27524                           STOVL    DELTAQ                                
025250,000777: 23,3101           15332                                    ZEROVECS                              
025251,000778: 23,3102           03510                           STORE    BVECTOR    +6                         
025252,000779: 23,3103           03516                           STORE    BVECTOR    +12D                       
025253,000780: 23,3104           77650                           GOTO                                           

Page 567

025255,000782: 23,3105           02317                                    EGRESS                                
025256,000783: 23,3106           31103 36652  PI/4.0             2DEC     .785398164                            
025257,000784: 

Page 568

025259,000786:                                                                                                  #  GETUM-DETERMINES THE LINE OF SIGHT UNIT VECTOR UM IN THE BASIC REFERENC
025260,000787:                                                                                                  #  E COORDINATE SYSTEM FROM THE OPTICS SHAFT AND TRUNNION ANGLES AND THE IM
025261,000788:                                                                                                  #  U GIMBAL ANGLES.
025262,000789: 
025263,000790:                                                                                                  #  INPUT
025264,000791: 
025265,000792:                                                                                                  #        MARKDATA, BASE ADDRESS OF MARK DATA
025266,000793: 
025267,000794:                                                                                                  #        REFSMMAT, ROTATION MATRIX FROM STABLE MEMBER TO BASIC REF. COORD. SYSTEM
025268,000795: 
025269,000796:                                                                                                  #  SUBROUTINES CALLED-
025270,000797: 
025271,000798:                                                                                                  #        SXTNB - SEXT. ANGULAR READINGS TO NAV. BASE COOR.
025272,000799: 
025273,000800:                                                                                                  #        NBSM - TRANSFORM FROM NAV. BASE TO STABLE MEMBER
025274,000801: 
025275,000802:                                                                                                  #  OUTPUT
025276,000803: 
025277,000804:                                                                                                  #        MPAC = LINE OF SIGHT 1/2 UNIT VECTOR IN BASIC REFERENCE SYSTEM
025278,000805: 
025279,000806:                                                                                                  #  CALLING SEQUENCE
025280,000807: 
025281,000808:                                                                                                  #        L       CALL GETUM
025282,000809: 
025283,000810:                                                                                                  #  NORMAL EXIT
025284,000811: 
025285,000812:                                                                                                  #        L+1 OF CALLING SEQUENCE
025286,000813: 
025287,000814: 23,3110           40220        GETUM              STQ      SETPD                                 
025288,000815: 23,3111           02317                                    EGRESS                                
025289,000816: 23,3112           00001                                    0                                     
025290,000817: 23,3113           76740                           LXC,1    VLOAD*                                
025291,000818: 23,3114           01242                                    MARKDATA                              #  CONTAINS ADDRESS OF MARK DATA
025292,000819: 23,3115           00002                                    1,1                                   
025293,000820: 23,3116           23676                           STODL*   MARKDOWN   +1                         #  TRANSFER DATA FROM WORKING STORAGE
025294,000821: 23,3117           00001                                    0,1                                   #  TO MARKDOWN ARRAY FOR DOWNLINK
025295,000822: 23,3120           03675                           STORE    MARKDOWN                              
025296,000823: 23,3121           77774                           AXT,2                                          
025297,000824: 23,3122           00002                                    2                                     
025298,000825: 23,3123           67064                           XSU,2    SXA,2                                 
025299,000826: 23,3124           00046                                    X1                                    #  X1 = MARKDATA
025300,000827: 23,3125           00050                                    S1                                    #  S1 = MARKDATA(ADR) +2
025301,000828: 23,3126           77624                           CALL                                           
025302,000829: 23,3127           46000                                    SXTNB                                 #  SEXT. ANGULAR READINGS TO NAV. BASE COOR.
025303,000830: 23,3130           77624                           CALL                                           
025304,000831: 23,3131           47541                                    NBSM                                  #  TRANSFORM FROM NAV. BASE TO STABLE MEM.
025305,000832: 23,3132           76505                           VXM      VSL1                                  
025306,000833: 23,3133           01736                                    REFSMMAT                              
025307,000834: 23,3134           77650                           GOTO                                           #  MPAC = (UM) LINE OF SIGHT VECTOR
025308,000835: 23,3135           02317                                    EGRESS                                #  EXIT
025309,000836: 

Page 569

025311,000838:                                                                                                  #  RENDEZVOUS TRACKING DATA PROCESSING ROUTINE (R22)
025312,000839: 
025313,000840:                                                                                                  #  PURPOSE       (1) TO PROCESS RENDEZVOUS SIGHTING MARK DATA TO UPDATE THE STATE VECTOR OF EITHER THE CSM OR LM AS
025314,000841:                                                                                                  #                DEFINED BY THE RENDEZVOUS NAVIGATION PROGRAM (P20).
025315,000842: 
025316,000843:                                                                                                  #  ASSUMPTIONS   (1) THIS ROUTINE IS MANUALLY SELECTED BY THE ASTRONAUT BY V55E WHENEVER RENDEZVOUS SIGHTING MARKS
025317,000844:                                                                                                  #                ARE DESIRED.  ITS SELECTION HOWEVER IS LIMITED TO PERIODS WHEN THE CMC IS HOLDING FOR A V/N FLASHING
025318,000845:                                                                                                  #                DATA DISPLAY.  THIS ROUTINE RETURNS TO THE ORIGINAL PROGRAM AT THE INTERRUPTED DISPLAY.
025319,000846: 
025320,000847: 34,2512                                           BANK     34                                    
025321,000848: 34,2000                                           SETLOC   P20S3                                 
025322,000849: 34,2000                                           BANK                                           
025323,000850: 
025324,000851: 34,2512                                           COUNT    34/R22                                
025325,000852: 
025326,000853: 34,2512           37663        R22                CAF      PRIO26                                
025327,000854: 34,2513           55056                           TS       PHSPRDT2                              
025328,000855: 34,2514           05103                           TC       PRIOCHNG                              
025329,000856: 34,2515           37714                           CA       NEG3                                  
025330,000857: 34,2516           55734                           TS       MRKBUF2                               
025331,000858: 34,2517           06006                           TC       INTPRET                               
025332,000859: 34,2520           77634                           RTB                                            
025333,000860: 34,2521           45505                                    LOADTIME                              
025334,000861: 34,2522           01152                           STORE    VHFTIME                               #  PRESENT TIME
025335,000862: 34,2523           77624        REND1              CALL                                           
025336,000863: 34,2524           56741                                    GRP2PC                                
025337,000864: 34,2525           77624                           CALL                                           
025338,000865: 34,2526           56404                                    WAITONE                               
025339,000866: 34,2527           77776        REND1A             EXIT                                           
025340,000867: 34,2530           31734                           CA       MRKBUF2                               
025341,000868: 34,2531           00006                           EXTEND                                         
025342,000869: 34,2532           12535                           BZF      REND2                                 
025343,000870: 34,2533           00006                           EXTEND                                         
025344,000871: 34,2534           62554                           BZMF     REND3A                                
025345,000872: 34,2535           36211        REND2              CAF      SIX                                   
025346,000873: 34,2536           05475                           TC       GENTRAN                               
025347,000874: 34,2537           01734                           ADRES    MRKBUF2                               
025348,000875: 34,2540           01224                           ADRES    MARKTIME                              #  MARKTIME MUST BE CONTIGUOUS WITH VTEMP
025349,000876: 34,2541           37714                           CAF      NEG3                                  #  NEG VALUE TO INDICATE VALUES USED
025350,000877: 34,2542           55734                           TS       MRKBUF2                               
025351,000878: 34,2543           00003                           RELINT                                         
025352,000879: 34,2544           06006                           TC       INTPRET                               
025353,000880: 34,2545           45014                           CLEAR    CALL                                  
025354,000881: 34,2546           04667                                    SOURCFLG                              #  0 = OPTICS DATA
025355,000882: 34,2547           56741                                    GRP2PC                                #  PHASE CHANGE
025356,000883: 34,2550           52131                           SSP      GOTO                                  
025357,000884: 34,2551           01243                                    MARKDATA                              
025358,000885: 34,2552           01224                           ECADR    VTEMP      -2                         
025359,000886: 34,2553           70577                                    REND4                                 
025360,000887: 34,2554           06006        REND3A             TC       INTPRET                               
025361,000888: 34,2555           77624        REND3              CALL                                           

Page 570

025363,000890: 34,2556           56741                                    GRP2PC                                
025364,000891: 34,2557           77624                           CALL                                           
025365,000892: 34,2560           56404                                    WAITONE                               
025366,000893: 34,2561           77614                           BOFF                                           
025367,000894: 34,2562           04746                                    VHFRFLAG                              
025368,000895: 34,2563           70527                                    REND1A                                
025369,000896: 34,2564           77634                           RTB                                            
025370,000897: 34,2565           45505                                    LOADTIME                              #  PRESENT TIME
025371,000898: 34,2566           45225                           DSU      DSU                                   
025372,000899: 34,2567           14647                                    60SECDP                               #  1 MIN
025373,000900: 34,2570           01152                                    VHFTIME                               #  LAST READING OF RADAR
025374,000901: 34,2571           45040                           BMN      CALL                                  
025375,000902: 34,2572           70527                                    REND1A                                
025376,000903: 34,2573           56415                                    RANGERD                               #  READ RADAR RANGE
025377,000904: 34,2574           77745                           DLOAD                                          
025378,000905: 34,2575           01225                                    MARKTIME                              
025379,000906: 34,2576           01152                           STORE    VHFTIME                               #  FOR DOWNLINK
025380,000907: 34,2577           77624        REND4              CALL                                           
025381,000908: 34,2600           56343                                    SETINTG                               #  SET INTEGRV FLAGS
025382,000909: 34,2601           45014                           BON      CALL                                  
025383,000910: 34,2602           00707                                    VEHUPFLG                              
025384,000911: 34,2603           71034                                    CSMUPP                                #  BRANCH IF CSM UPDATE
025385,000912: 34,2604           27113                                    INTEGRV                               
025386,000913: 34,2605           77624                           CALL                                           
025387,000914: 34,2606           56741                                    GRP2PC                                #  PHASE CHANGE
025388,000915: 34,2607           77624                           CALL                                           
025389,000916: 34,2610           56343                                    SETINTG                               #  SET INTEGRV FLAGS
025390,000917: 34,2611           77614                           CLEAR                                          
025391,000918: 34,2612           01674                                    VINTFLAG                              #  SET INTEGRATION VEHICLE TO LM
025392,000919: 34,2613           43014        REND5              BOFF     SET                                   
025393,000920: 34,2614           02756                                    RENDWFLG                              
025394,000921: 34,2615           70617                                    REND5A                                #  DO NOT INTEGRATE W IF FLAG = 0
025395,000922: 34,2616           01476                                    DIM0FLAG                              
025396,000923: 34,2617           77624        REND5A             CALL                                           
025397,000924: 34,2620           27113                                    INTEGRV                               
025398,000925: 34,2621           77624                           CALL                                           
025399,000926: 34,2622           56526                                    SHIFTNDX                              #  SET EARTH MOON SCALING INDEX
025400,000927: 34,2623           77624                           CALL                                           
025401,000928: 34,2624           71123                                    CMPOS                                 #  SET CSM POSITION
025402,000929: 34,2625           45014                           SET      CALL                                  
025403,000930: 34,2626           02464                                    INCORFLG                              #  SET FOR 1ST PASS
025404,000931: 34,2627           71132                                    LMPOS                                 #  SET LM POSITION
025405,000932: 34,2630           43014                           CLEAR    BON                                   
025406,000933: 34,2631           01671                                    ORBWFLAG                              #  CLEAR FOR ORBITAL AND CISLUNAR
025407,000934: 34,2632           02716                                    RENDWFLG                              
025408,000935: 34,2633           70643                                    REND6                                 
025409,000936: 34,2634           77745                           DLOAD                                          
025410,000937: 34,2635           02001                                    WRENDPOS                              
025411,000938: 34,2636           34001                           STCALL   0                                     #  0 = WRENDPOS  1 = WRENDVEL
025412,000939: 34,2637           56544                                    INITIALW                              #  INITIALIZE W MATRIX

Page 571

025414,000941: 34,2640           77745                           DLOAD                                          
025415,000942: 34,2641           15332                                    ZEROVECS                              
025416,000943: 34,2642           01126                           STORE    VHFCNT                                #  ZERO OUT VHFCNT AND TRKMKCNT
025417,000944: 34,2643           77614        REND6              SET                                            
025418,000945: 34,2644           02476                                    RENDWFLG                              
025419,000946: 34,2645           52375                           VLOAD    VSU                                   
025420,000947: 34,2646           01215                                    LEMPOS                                
025421,000948: 34,2647           01207                                    CSMPOS                                
025422,000949: 34,2650           03531                           STORE    RCLP                                  #  LM - CSM
025423,000950: 34,2651           43056        REND7              UNIT     BON                                   
025424,000951: 34,2652           04707                                    SOURCFLG                              
025425,000952: 34,2653           71045                                    REND14                                #  BRANCH IF DATA IS RADAR
025426,000953: 34,2654           01273                           STORE    UCL                                   
025427,000954: 34,2655           45014                           BOFF     CALL                                  
025428,000955: 34,2656           02744                                    INCORFLG                              
025429,000956: 34,2657           70671                                    REND9                                 
025430,000957: 34,2660           47110                                    GETUM                                 #  CALCULATE UM LINE OF SIGHT
025431,000958: 34,2661           25235                           STOVL    UM                                    
025432,000959: 34,2662           01273                                    UCL                                   
025433,000960: 34,2663           40035                           VXV      BOV                                   
025434,000961: 34,2664           01235                                    UM                                    #  UCL X UM
025435,000962: 34,2665           70666                                    REND8                                 
025436,000963: 34,2666           40056        REND8              UNIT     BOV                                   
025437,000964: 34,2667           70555                                    REND3                                 #  BRANCH IF OVERFLOW IGNORE MARK
025438,000965: 34,2670           01245                           STORE    USTAR                                 
025439,000966: 34,2671           77624        REND9              CALL                                           
025440,000967: 34,2672           47047                                    BVECTORS                              
025441,000968: 34,2673           77214                           BON      VLOAD                                 
025442,000969: 34,2674           00707                                    VEHUPFLG                              
025443,000970: 34,2675           70701                                    REND9A                                
025444,000971: 34,2676           03502                                    BVECTOR                               
025445,000972: 34,2677           77676                           VCOMP                                          
025446,000973: 34,2700           03502                           STORE    BVECTOR                               
025447,000974: 34,2701           77624        REND9A             CALL                                           
025448,000975: 34,2702           56741                                    GRP2PC                                
025449,000976: 34,2703           77614                           BON                                            
025450,000977: 34,2704           00706                                    R23FLG                                
025451,000978: 34,2705           71076                                    REND15                                #  BRANCH IF BACKUP OPTICS (R23 WORKING)
025452,000979: 34,2706           43345                           DLOAD    DAD                                   
025453,000980: 34,2707           31220                                    SXTVAR                                
025454,000981: 34,2710           31222                                    IMUVAR                                
025455,000982: 34,2711           27526        REND10             STOVL    VARIANCE                              #  TEMP STORAGE FOR VARIANCE CALC.
025456,000983: 34,2712           03531                                    RCLP                                  
025457,000984: 34,2713           60246                           ABVAL    NORM                                  
025458,000985: 34,2714           00047                                    X1                                    
025459,000986: 34,2715           41316                           DSQ      DMP                                   
025460,000987: 34,2716           03526                                    VARIANCE                              
025461,000988: 34,2717           45070                           XAD,1    CALL                                  
025462,000989: 34,2720           00046                                    X1                                    
025463,000990: 34,2721           56526                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX

Page 572

025465,000992: 34,2722           56070                           XAD,1    XAD,1                                 
025466,000993: 34,2723           00047                                    X2                                    
025467,000994: 34,2724           00047                                    X2                                    
025468,000995: 34,2725           72257                           SR*      TLOAD                                 
025469,000996: 34,2726           20577                                    0          -2,1                       #  ADJUST SCALING TO B-40
025470,000997: 34,2727           00155                                    MPAC                                  
025471,000998: 34,2730           03526                           STORE    VARIANCE                              
025472,000999: 34,2731           54335                           SLOAD    SR                                    
025473,001000: 34,2732           02400                                    INTVAR                                #  INTEGRATION VARIANCE SCALED B-15
025474,001001: 34,2733           20632                                    25D                                   #  SCALE IT B-40
025475,001002: 34,2734           47171                           TAD      RTB                                   
025476,001003: 34,2735           03526                                    VARIANCE                              
025477,001004: 34,2736           45562                                    TPMODE                                
025478,001005: 34,2737           03526                           STORE    VARIANCE                              
025479,001006: 34,2740           76214                           BOFF     TAD                                   
025480,001007: 34,2741           04747                                    SOURCFLG                              #  BRANCH IF NOT VHF RADAR
025481,001008: 34,2742           70751                                    REND10A                               
025482,001009: 34,2743           03005                                    RVARMIN                               #  VHF RADAR MIN. VARIANCE
025483,001010: 34,2744           72244                           BPL      TLOAD                                 
025484,001011: 34,2745           70751                                    REND10A                               
025485,001012: 34,2746           03005                                    RVARMIN                               
025486,001013: 34,2747           77646                           ABS                                            #  MIN. VALUE WAS STORED AS NEG.
025487,001014: 34,2750           03526                           STORE    VARIANCE                              #  STORE MIN. VALUE
025488,001015: 34,2751           45014        REND10A            CLEAR    CALL                                  
025489,001016: 34,2752           02666                                    DMENFLG                               #  CLEAR FOR 6 X 6 W MATRIX
025490,001017: 34,2753           75250                                    INCORP1                               #  CALCULATE UPDATE
025491,001018: 34,2754           77624                           CALL                                           
025492,001019: 34,2755           56741                                    GRP2PC                                
025493,001020: 34,2756           45014                           BOFF     CALL                                  
025494,001021: 34,2757           02744                                    INCORFLG                              
025495,001022: 34,2760           71006                                    REND12                                
025496,001023: 34,2761           56526                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025497,001024: 34,2762           51575                           VLOAD    ABVAL                                 
025498,001025: 34,2763           01265                                    DELTAX     +6                         
025499,001026: 34,2764           77657                           SR*                                            
025500,001027: 34,2765           57176                                    0,2                                   
025501,001028: 34,2766           27504                           STOVL    N49DISP    +2                         
025502,001029: 34,2767           01257                                    DELTAX                                
025503,001030: 34,2770           53646                           ABVAL    SR*                                   
025504,001031: 34,2771           57176                                    0,2                                   
025505,001032: 34,2772           03502                           STORE    N49DISP                               
025506,001033: 34,2773           77735                           SLOAD                                          
025507,001034: 34,2774           02003                                    RMAX                                  
025508,001035: 34,2775           45261                           SR       DSU                                   
025509,001036: 34,2776           20613                                    10D                                   
025510,001037: 34,2777           03502                                    N49DISP                               
025511,001038: 34,3000           67240                           BMN      SLOAD                                 
025512,001039: 34,3001           71141                                    RENDISP                               #  BRANCH IF POS UP. GREATER THAN MAX.
025513,001040: 34,3002           02004                                    VMAX                                  
025514,001041: 34,3003           50025                           DSU      BMN                                   

Page 573

025516,001043: 34,3004           03504                                    N49DISP    +2                         
025517,001044: 34,3005           71141                                    RENDISP                               #  BRANCH IF VEL. UPDATE GREATER THAN MAX.
025518,001045: 34,3006           77624        REND12             CALL                                           
025519,001046: 34,3007           75462                                    INCORP2                               #  INCORPORATE UPDATE VALUES INTO STATE VEC
025520,001047: 34,3010           43014                           BON      BOFF                                  
025521,001048: 34,3011           04707                                    SOURCFLG                              
025522,001049: 34,3012           71103                                    REND16                                #  BRANCH IF DATA IS RADAR
025523,001050: 34,3013           02744                                    INCORFLG                              
025524,001051: 34,3014           71111                                    REND17                                
025525,001052: 34,3015           77624                           CALL                                           
025526,001053: 34,3016           56526                                    SHIFTNDX                              #  GET EARTH MOON SCALING INDEX
025527,001054: 34,3017           45014                           BON      CALL                                  
025528,001055: 34,3020           00707                                    VEHUPFLG                              
025529,001056: 34,3021           71117                                    REND18                                #  BRANCH IF CSM UPDATE
025530,001057: 34,3022           71132                                    LMPOS                                 #  GET LM POSITION
025531,001058: 34,3023           77624        REND13             CALL                                           
025532,001059: 34,3024           56741                                    GRP2PC                                #  PHASE CHANGE
025533,001060: 34,3025           52375                           VLOAD    VSU                                   
025534,001061: 34,3026           01215                                    LEMPOS                                
025535,001062: 34,3027           01207                                    CSMPOS                                
025536,001063: 34,3030           03531                           STORE    RCLP                                  #  LM - CSM
025537,001064: 34,3031           77614                           CLRGO                                          
025538,001065: 34,3032           02624                                    INCORFLG                              
025539,001066: 34,3033           70651                                    REND7                                 #  BRANCH FOR 2ND PASS THIS OPTICS MARK
025540,001067: 34,3034           45014        CSMUPP             CLEAR    CALL                                  
025541,001068: 34,3035           01674                                    VINTFLAG                              #  SET INTEGRATION VEHICLE EQ LM
025542,001069: 34,3036           27113                                    INTEGRV                               
025543,001070: 34,3037           77624                           CALL                                           
025544,001071: 34,3040           56741                                    GRP2PC                                #  PHASE CHANGE
025545,001072: 34,3041           77624                           CALL                                           
025546,001073: 34,3042           56343                                    SETINTG                               #  SET FLAGS FOR INTEGRATION
025547,001074: 34,3043           77650                           GOTO                                           
025548,001075: 34,3044           70613                                    REND5                                 
025549,001076: 34,3045           27502        REND14             STOVL    BVECTOR                               #  VHF RADAR BVECTOR
025550,001077: 34,3046           15332                                    ZEROVECS                              
025551,001078: 34,3047           03510                           STORE    BVECTOR    +6                         
025552,001079: 34,3050           27516                           STOVL    BVECTOR    +12D                       
025553,001080: 34,3051           03531                                    RCLP                                  
025554,001081: 34,3052           71256                           UNIT     DLOAD                                 
025555,001082: 34,3053           01257                                    VHFRANGE                              #  VHFRANGE SCALED B-27
025556,001083: 34,3054           60414                           BON      SR2                                   
025557,001084: 34,3055           04303                                    MOONTHIS                              
025558,001085: 34,3056           71057                                    +1                                    
025559,001086: 34,3057           43025                           DSU      SET                                   
025560,001087: 34,3060           00045                                    36D                                   #  ABVAL (RCLP)
025561,001088: 34,3061           02464                                    INCORFLG                              
025562,001089: 34,3062           03524                           STORE    DELTAQ                                
025563,001090: 34,3063           77214                           BOFF     VLOAD                                 
025564,001091: 34,3064           00747                                    VEHUPFLG                              
025565,001092: 34,3065           71071                                    REND14A                               

Page 574

025567,001094: 34,3066           03502                                    BVECTOR                               
025568,001095: 34,3067           77676                           VCOMP                                          
025569,001096: 34,3070           03502                           STORE    BVECTOR                               
025570,001097: 34,3071           77624        REND14A            CALL                                           
025571,001098: 34,3072           56741                                    GRP2PC                                
025572,001099: 34,3073           52145                           DLOAD    GOTO                                  
025573,001100: 34,3074           03003                                    RVAR                                  
025574,001101: 34,3075           70711                                    REND10                                
025575,001102: 34,3076           43335        REND15             SLOAD    DAD                                   #  GET ALT LOS VARIANCE
025576,001103: 34,3077           01357                                    ALTVAR                                #  BACKUP OPTICS
025577,001104: 34,3100           31222                                    IMUVAR                                #  IMU VARIANCE
025578,001105: 34,3101           77650                           GOTO                                           
025579,001106: 34,3102           70711                                    REND10                                
025580,001107: 34,3103           62150        REND16             LXA,1    INCR,1                                
025581,001108: 34,3104           01125                                    VHFCNT                                #  VHF RADAR UPDATE COUNT
025582,001109: 34,3105           00001                           DEC      1          B-14                       
025583,001110: 34,3106           52130                           SXA,1    GOTO                                  
025584,001111: 34,3107           01125                                    VHFCNT                                #  UPDATE COUNT
025585,001112: 34,3110           70523                                    REND1                                 
025586,001113: 34,3111           62150        REND17             LXA,1    INCR,1                                
025587,001114: 34,3112           01126                                    TRKMKCNT                              #  OPTICS MARK COUNT
025588,001115: 34,3113           00001                           DEC      1          B-14                       
025589,001116: 34,3114           52130                           SXA,1    GOTO                                  
025590,001117: 34,3115           01126                                    TRKMKCNT                              #  UPDATE COUNT
025591,001118: 34,3116           70555                                    REND3                                 
025592,001119: 34,3117           77624        REND18             CALL                                           
025593,001120: 34,3120           71123                                    CMPOS                                 #  GET CSM POSITION
025594,001121: 34,3121           77650                           GOTO                                           
025595,001122: 34,3122           71023                                    REND13                                
025596,001123: 34,3123           53775        CMPOS              VLOAD    VSR*                                  
025597,001124: 34,3124           01573                                    DELTACSM                              
025598,001125: 34,3125           57167                                    7,2                                   
025599,001126: 34,3126           77655                           VAD                                            
025600,001127: 34,3127           01607                                    RCVCSM                                
025601,001128: 34,3130           01207                           STORE    CSMPOS                                #  CSM POSITION SCALED B-27 OR B-29
025602,001129: 34,3131           77616                           RVQ                                            
025603,001130: 34,3132           53775        LMPOS              VLOAD    VSR*                                  
025604,001131: 34,3133           01645                                    DELTALEM                              
025605,001132: 34,3134           57167                                    7,2                                   
025606,001133: 34,3135           77655                           VAD                                            
025607,001134: 34,3136           01661                                    RCVLEM                                
025608,001135: 34,3137           01215                           STORE    LEMPOS                                #  LM POSITION SCALED B-27 OR B-29
025609,001136: 34,3140           77616                           RVQ                                            
025610,001137: 34,3141           77776        RENDISP            EXIT                                           
025611,001138: 34,3142           30105                           CA       FLAGWRD9                              
025612,001139: 34,3143           74703                           MASK     BIT8                                  
025613,001140: 34,3144           00006                           EXTEND                                         
025614,001141: 34,3145           13150                           BZF      +3                                    
025615,001142: 34,3146           34711                           CA       BIT2                                  
025616,001143: 34,3147           03151                           TC       +2                                    

Page 575

025618,001145: 34,3150           34712                           CA       BIT1                                  
025619,001146: 34,3151           55505                           TS       N49DISP    +4                         
025620,001147: 34,3152           34714                           CAF      ZERO                                  #  SET TEMPOR1 > ZERO TO INDICATE
025621,001148: 34,3153           55300                           TS       TEMPOR1                               #  V06 N49 DISPLAY HASNT BEEN ANSWERED
025622,001149: 34,3154           05301                           TC       PHASCHNG                              
025623,001150: 34,3155           04022                           OCT      04022                                 
025624,001151: 34,3156           37664                           CAF      PRIO27                                #  SET UP DISPLAY JOB WITH HIGHER PRIORITY
025625,001152: 34,3157           05027                           TC       NOVAC                                 
025626,001153: 34,3160  E7,1725                                  EBANK=   MRKBUF1                               #  THAN PRESENT JOB
025627,001154: 34,3160           03172 70067                     2CADR    RENDISP2                              
025628,001155: 
025629,001156: 34,3162           06006        RENDISP7           TC       INTPRET                               
025630,001157: 34,3163           00155                           STORE    MPAC                                  
025631,001158: 34,3164           53135                           SLOAD    BZE                                   
025632,001159: 34,3165           01301                                    TEMPOR1                               
025633,001160: 34,3166           71163                                    RENDISP7   +1                         #  DISPLAY HAS NOT BEEN ANSWERED YET
025634,001161: 34,3167           52040                           BMN      GOTO                                  
025635,001162: 34,3170           71006                                    REND12                                #  NEG INDICATES PROCEED
025636,001163: 34,3171           71201                                    RENDISP3                              #  POS INDICATES RECYCLE
025637,001164: 34,3172           33223        RENDISP2           CAF      V06N49                                
025638,001165: 34,3173           04555                           TC       BANKCALL                              
025639,001166: 34,3174           20635                           CADR     PRIODSP                               
025640,001167: 34,3175           04550                           TC       GOTOV56                               #  TERM EXIT P20 VIA V56
025641,001168: 34,3176           44712                           CS       ONE                                   #  NEG INDICATES PROCEED RENDISP7 JOB
025642,001169: 34,3177           55300                           TS       TEMPOR1                               #  POS INDICATES RECYCLE RENDISP7 JOB
025643,001170: 34,3200           05112                           TC       ENDOFJOB                              #  GO COMPLETE ABOVE JOB
025644,001171: 34,3201           77614        RENDISP3           BON                                            
025645,001172: 34,3202           04707                                    SOURCFLG                              
025646,001173: 34,3203           70523                                    REND1                                 #  DATA WAS RADAR GO LOOK FOR OPTICS NEXT
025647,001174: 34,3204           77776                           EXIT                                           
025648,001175: 34,3205  E7,1725                                  EBANK=   MRKBUF1                               
025649,001176: 34,3205           00004                           INHINT                                         
025650,001177: 34,3206           33224                           CAF      BUFBANK                               
025651,001178: 34,3207           54006                           TS       BBANK                                 
025652,001179: 34,3210           37716                           CA       NEGONE                                
025653,001180: 34,3211           55725                           TS       MRKBUF1                               #  ERASE MARK ONE BUFFER
025654,001181: 34,3212           55734                           TS       MRKBUF2                               #  ERASE MARK TWO BUFFER
025655,001182: 34,3213           00003                           RELINT                                         
025656,001183: 34,3214           06006        RENDISP4           TC       INTPRET                               
025657,001184: 34,3215           77650                           GOTO                                           
025658,001185: 34,3216           70555                                    REND3                                 
025659,001186: 34,3217           00052 36307  SXTVAR             2DEC     0.04       E-6        B+16            #  SXT ERROR VARIANCE = .04 (MR)SQ
025660,001187: 34,3221           00052 36307  IMUVAR             2DEC     0.04       E-6        B+16            #  IMU ERROR VARIANCE = .04 (MR)SQ
025661,001188: 34,3223           01461        V06N49             VN       0649                                  
025662,001189: 34,3224  E7,1725                                  EBANK=   MRKBUF1                               
025663,001190: 34,3224           70067        BUFBANK            BBCON    RENDISP3                              
025664,001191: 31,2021                                           BANK     31                                    
025665,001192: 27,2000                                           SETLOC   R22S1                                 

Page 576

025667,001194: 27,2000                                           BANK                                           
025668,001195: 27,2343           45020        SETINTG            STQ      CALL                                  
025669,001196: 27,2344           02317                                    EGRESS                                
025670,001197: 27,2345           27371                                    INTSTALL                              #  RESERVE INTEGRATION
025671,001198: 27,2346           43145                           DLOAD    SET                                   
025672,001199: 27,2347           01225                                    MARKTIME                              
025673,001200: 27,2350           01472                                    STATEFLG                              
025674,001201: 27,2351           00041                           STORE    TDEC1                                 #  MARKTIME
025675,001202: 27,2352           43014                           CLEAR    CLEAR                                 
025676,001203: 27,2353           01673                                    INTYPFLG                              #  PRECISION INTEGRATION
025677,001204: 27,2354           01676                                    DIM0FLAG                              
025678,001205: 27,2355           43014                           SET      CLRGO                                 
025679,001206: 27,2356           01474                                    VINTFLAG                              #  SET VEHICLE EQ. CSM
025680,001207: 27,2357           01635                                    D6OR9FLG                              #  SET W MATRIX DIM. EQ 6
025681,001208: 27,2360           02317                                    EGRESS                                #  EXIT
025682,001209: 27,2361           77620        CNTCHK             STQ                                            
025683,001210: 27,2362           01150                                    POINTEX                               
025684,001211: 27,2363           77614        CONTCHK            BOFF                                           
025685,001212: 27,2364           01742                                    REFSMFLG                              #  BRANCH TO END OF JOB IF REFSMMAT NO GOOD
025686,001213: 27,2365           30147                                    ENDPLAC                               
025687,001214: 27,2366           50135                           SLOAD    BMN                                   
025688,001215: 27,2367           03376                                    R61CNTR                               
025689,001216: 27,2370           56406                                    WAITONE1                              
025690,001217: 27,2371           43014                           BON      BOFF                                  #  IS TRACK FLAG SET
025691,001218: 27,2372           00710                                    UPDATFLG                              
025692,001219: 27,2373           01150                                    POINTEX                               
025693,001220: 27,2374           00752                                    TRACKFLG                              
025694,001221: 27,2375           30147                                    ENDPLAC                               
025695,001222: 27,2376           77776                           EXIT                                           
025696,001223: 27,2377           05301        REDOR22            TC       PHASCHNG                              
025697,001224: 27,2400           00132                           OCT      00132                                 
025698,001225: 27,2401           37663                           CAF      PRIO26                                
025699,001226: 27,2402           05103                           TC       PRIOCHNG                              
025700,001227: 27,2403           02407                           TC       WAITONE    +3                         
025701,001228: 27,2404           77620        WAITONE            STQ                                            
025702,001229: 27,2405           01150                                    POINTEX                               
025703,001230: 27,2406           77776        WAITONE1           EXIT                                           
025704,001231: 27,2407           34740                           CAF      4SECS                                 #  WAIT 4 SECS.
025705,001232: 27,2410           04555                           TC       BANKCALL                              
025706,001233: 27,2411           01732                           CADR     DELAYJOB                              
025707,001234: 27,2412           06006                           TC       INTPRET                               
025708,001235: 27,2413           77650                           GOTO                                           
025709,001236: 27,2414           56363                                    CONTCHK                               #  CHECK AGAIN NOW
025710,001237: 27,2415           77776        RANGERD            EXIT                                           
025711,001238: 27,2416           00004                           INHINT                                         
025712,001239: 27,2417           42472                           CS       OCT17                                 
025713,001240: 27,2420           00006                           EXTEND                                         
025714,001241: 27,2421           03013                           WAND     CHAN13                                #  ZERO OUT BITS 1-4 OF CHANNEL 13
025715,001242: 27,2422           34334                           CAF      OCT11                                 
025716,001243: 27,2423           00006                           EXTEND                                         

Page 577

025718,001245: 27,2424           05013                           WOR      CHAN13                                #  GENERATE SHIFT PULSES TO RADR, SET R. BIT
025719,001246: 27,2425           00003                           RELINT                                         
025720,001247: 27,2426           00006                           EXTEND                                         
025721,001248: 27,2427           30025                           DCA      TIME2                                 
025722,001249: 27,2430           53225                           DXCH     MARKTIME                              #  READ PRESENT TIME
025723,001250: 27,2431           04555                           TC       BANKCALL                              
025724,001251: 27,2432           17514                           CADR     RADSTALL                              #  WAIT FOR RANGE COMPLETE
025725,001252: 27,2433           02461                           TC       LIGHTON                               #  BAD DATA GOOD BIT
025726,001253: 27,2434           05520                           TC       TRFAILOF                              #  TURN TRACKER LIGHT OFF
025727,001254: 27,2435           06006        RANGERD1           TC       INTPRET                               
025728,001255: 27,2436           50135                           SLOAD    BMN                                   
025729,001256: 27,2437           03704                                    RM                                    
025730,001257: 27,2440           56447                                    RANGERD3                              
025731,001258: 27,2441           77605                           DMP                                            
025732,001259: 27,2442           16475                                    CONVRNGE                              #  CONVERT RANGE TO METERS B-27
025733,001260: 27,2443           77614        RANGERD2           SET                                            
025734,001261: 27,2444           04467                                    SOURCFLG                              #  SOURCE OF DATA TO VHF RADAR
025735,001262: 27,2445           01257                           STORE    VHFRANGE                              
025736,001263: 27,2446           77616                           RVQ                                            
025737,001264: 27,2447           77776        RANGERD3           EXIT                                           
025738,001265: 27,2450           30154                           CA       MPAC                                  
025739,001266: 27,2451           74672                           MASK     POSMAX                                
025740,001267: 27,2452           54154                           TS       MPAC                                  #  MASK OUT NEG. SIGN BIT
025741,001268: 27,2453           06006                           TC       INTPRET                               
025742,001269: 27,2454           77605                           DMP                                            
025743,001270: 27,2455           16475                                    CONVRNGE                              #  CONVERT FROM NM TO METERS AND SCALE B-27
025744,001271: 27,2456           52015                           DAD      GOTO                                  
025745,001272: 27,2457           16471                                    RANGEB14                              #  VALUE IN METERS OF SIGN BIT SCALED B-27
025746,001273: 27,2460           56443                                    RANGERD2                              
025747,001274: 27,2461           05532        LIGHTON            TC       TRFAILON                              #  TURN TRACKER LIGHT ON
025748,001275: 27,2462           06006                           TC       INTPRET                               
025749,001276: 27,2463           77745                           DLOAD                                          
025750,001277: 27,2464           01225                                    MARKTIME                              
025751,001278: 27,2465           01152                           STORE    VHFTIME                               
025752,001279: 27,2466           77650                           GOTO                                           
025753,001280: 27,2467           70523                                    REND1                                 
025754,001281: 27,2470           00045 01217  RANGEB14           2DEC     303431.7   B-27                       #  16384 X 18.52 SCALED B-27
025755,001282: 
025756,001283: 27,2472           00017        OCT17              OCT      00017                                 
025757,001284: 27,2473           40200        OC40200            OCT      40200                                 
025758,001285: 27,2474           00045 01217  CONVRNGE           2DEC     18.52      B-13                       #  VHF INPUT RANGE CONV. FROM .01 NM TO M
025759,001286: 
025760,001287: 27,2476           00006        VHFREAD            EXTEND                                         
025761,001288: 27,2477           04007                           ROR      SUPERBNK                              #  MUST SAVE SBANK BECAUSE OF RUPT
025762,001289: 27,2500           54016                           TS       BANKRUPT                              #  EXITS VIA TASKOVER BADEND OR GOODEND
025763,001290: 27,2501           44714                           CS       ZERO                                  
025764,001291: 27,2502           54734                           TS       RUPTAGN                               
025765,001292: 27,2503           00006                           EXTEND                                         
025766,001293: 27,2504           22012                           QXCH     QRUPT                                 
025767,001294: 27,2505           34704                           CAF      BIT7                                  

Page 578

025769,001296: 27,2506           70075                           MASK     STATE      +1                         #  UPDATE FLAG
025770,001297: 27,2507           00006                           EXTEND                                         
025771,001298: 27,2510           12520                           BZF      BYPASS                                
025772,001299: 27,2511           30046                           CA       RNRAD                                 
025773,001300: 27,2512           55703                           TS       RM                                    #  SAVE RANGE
025774,001301: 27,2513           34711                           CAF      BIT2                                  
025775,001302: 27,2514           00006                           EXTEND                                         
025776,001303: 27,2515           02033                           RAND     CHAN33                                #  READ DATA GOOD BIT
025777,001304: 27,2516           00006                           EXTEND                                         
025778,001305: 27,2517           12523                           BZF      VHFGOOD                               #  BRANCH IF DATA GOOD BIT EQUALS GOOD
025779,001306: 27,2520           34711        BYPASS             CAF      TWO                                   
025780,001307: 27,2521           04574                           TC       POSTJUMP                              
025781,001308: 27,2522           17464                           CADR     BADEND                                
025782,001309: 27,2523           34711        VHFGOOD            CAF      TWO                                   
025783,001310: 27,2524           04574                           TC       POSTJUMP                              
025784,001311: 27,2525           17467                           CADR     GOODEND                               
025785,001312: 27,2526           43174        SHIFTNDX           AXT,2    BON                                   
025786,001313: 27,2527           00000                                    0                                     
025787,001314: 27,2530           00707                                    VEHUPFLG                              
025788,001315: 27,2531           56537                                    SHIFTA                                #  VEHICLE IS CSM
025789,001316: 27,2532           43414                           BON      RVQ                                   
025790,001317: 27,2533           04304                                    LMOONFLG                              
025791,001318: 27,2534           56535                                    +1                                    
025792,001319: 27,2535           43514                           INCR,2   RVQ                                   
025793,001320: 27,2536           77775                           DEC      -2         B-14                       
025794,001321: 27,2537           43414        SHIFTA             BON      RVQ                                   
025795,001322: 27,2540           04303                                    CMOONFLG                              
025796,001323: 27,2541           56542                                    +1                                    #  MOON ORB.
025797,001324: 27,2542           43514                           INCR,2   RVQ                                   
025798,001325: 27,2543           77775                           DEC      -2         B-14                       
025799,001326: 27,2544           66370        INITIALW           AXT,1    SSP                                   
025800,001327: 27,2545           00044                                    36D                                   
025801,001328: 27,2546           00051                                    S1                                    
025802,001329: 27,2547           00006                                    6                                     
025803,001330: 27,2550           77775                           VLOAD                                          
025804,001331: 27,2551           15332                                    ZEROVECS                              
025805,001332: 27,2552           06445        INITA              STORE    W          +36D,1                     #  CLEAR 0 - 35
025806,001333: 27,2553           76100                           TIX,1    AXT,1                                 
025807,001334: 27,2554           56552                                    INITA                                 
025808,001335: 27,2555           00044                                    36D                                   
025809,001336: 27,2556           06533        INITB              STORE    W          +90D,1                     #  CLEAR 54 - 89
025810,001337: 27,2557           67300                           TIX,1    SLOAD                                 
025811,001338: 27,2560           56556                                    INITB                                 
025812,001339: 27,2561           00001                                    0                                     #  POSITION VALUE
025813,001340: 27,2562           02401                           STORE    W                                     #  INITIALIZE DIAGONAL W POSITION
025814,001341: 27,2563           02411                           STORE    W          +8D                        
025815,001342: 27,2564           02421                           STORE    W          +16D                       
025816,001343: 27,2565           77735                           SLOAD                                          
025817,001344: 27,2566           00002                                    1                                     #  VELOCITY VALUE
025818,001345: 27,2567           02511                           STORE    W          +72D                       #  INITIALIZE DIAGONAL W VELOCITY

Page 579

025820,001347: 27,2570           02521                           STORE    W          +80D                       
025821,001348: 27,2571           02531                           STORE    W          +88D                       
025822,001349: 27,2572           77616                           RVQ                                            

Page 580

025824,001351:                                                                                                  #  CRS61.1       4/10/68
025825,001352: 
025826,001353:                                                                                                  #  TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025827,001354:                                                                                                  #  OPTICS TRACKING OF THE LM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
025828,001355:                                                                                                  #  AND TO COMPUTE THE &X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025829,001356:                                                                                                  #  COAS TRACKING OF THE LM.
025830,001357: 
025831,001358:                                                                                                  #  TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE 
025832,001359:                                                                                                  #  MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
025833,001360:                                                                                                  #  GREATER THAN 10 DEGREES OR IF THE R60 FLAG IS SET.
025834,001361: 
025835,001362:                                                                                                  #        (1)     EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
025836,001363:                                                                                                  #                CONIC EQUATIONS.
025837,001364: 
025838,001365:                                                                                                  #        (2)     CALCULATE LOS FROM CSM TO LM = RL - RC.
025839,001366: 
025840,001367:                                                                                                  #        (3)     THE PREFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
025841,001368:                                                                                                  #                THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM.  THE
025842,001369:                                                                                                  #                TRACK AXIS (I) IS DEFINED AS:
025843,001370: 
025844,001371:                                                                                                  #                UNIT(I)=UNIT(Z  )COS55  &  UNIT(X  )SIN55
025845,001372:                                                                                                  #                     -       -SC                -SC
025846,001373: 
025847,001374:                                                                                                  #        (4)     COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
025848,001375: 

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

025850,001377:                                                                                                  #        (7)     FORM DIFFERENCE BETWEEN DESIRED AND ACTUAL CDUS.
025851,001378:                                                                                                  #                IF ANY OF THE THREE ANGLE DIFFERENCES EXCEEDS 10 DEGREES,
025852,001379:                                                                                                  #                GROSS MANEUVER IS REQUIRED.  SIGNAL R61 (SET MPAC=1) TO
025853,001380:                                                                                                  #                OPERATE KALCMANU AND EXIT CRS61.1.
025854,001381:                                                                                                  #                IF ALL DIFFERENCES ARE LESS THAN 10 DEGREES, CONTINUE.
025855,001382: 
025856,001383:                                                                                                  #        (8)     CALCULATE ORTHOGONAL LOS RATE IN REF COORDS AS
025857,001384: 
025858,001385:                                                                                                  #                OMEGATH = (UNITLOS(B1) X UNITDV(B1))(ABSDV(B7)/ABSLOS(B29))
025859,001386: 
025860,001387:                                                                                                  #                CONVERSION FACTOR OF 100/2PI (B4) REV CSEC PER RAD SEC IS
025861,001388:                                                                                                  #                APPLIED TO YIELD UNITS OF REVS/SEC.  SCALE IS CARRIED AS
025862,001389:                                                                                                  #                B+1+1+7-29+4+1 PLUS RESULTS OF NORMALIZING ABSDV, ABSLOS.
025863,001390:                                                                                                  #                THE EXTRA B+1 RESULTS FROM RESCALING ABSDV B8 AFTER NORM
025864,001391:                                                                                                  #                TO AVOID OVFLOW ON DIVIDE.
025865,001392: 
025866,001393:                                                                                                  #                UNITLOS = UNIT( RL - RC ) B1.
025867,001394:                                                                                                  #                UNITDY  = UNIT( VL - VC ) B1.
025868,001395:                                                                                                  #                ABSLOS  = LENGTH OF LOS, METERS B29.
025869,001396:                                                                                                  #                ABSDV   = LENGTH OF DV, METERS/CSEC B7.
025870,001397: 
025871,001398:                                                                                                  #        (9)     OBTAIN RATE IN SM COORDS.
025872,001399: 
025873,001400:                                                                                                  #                OMEGATHSM = (REFSMMAT)(OMEGATH).
025874,001401: 
025875,001402:                                                                                                  #        (10)    OBTAIN GIMBAL ANGLE INCREMENTS FOR 0.1 SECOND.
025876,001403: 
025877,001404:                                                                                                  #                DTHETASM = (0.1)(OMEGATHSM)
025878,001405: 
025879,001406:                                                                                                  #        (11)    OBTAIN DELCDUX,Y,Z USING SUBR SMCDURES.

Page 581

025881,001408:                                                                                                  #                INPUT CONSISTS OF
025882,001409: 
025883,001410:                                                                                                  #                (A)     VECTOR OF ANGULAR INCREMENTS, DTHETASM, STORED
025884,001411:                                                                                                  #                        IN V(DTHETASM).
025885,001412:                                                                                                  #                (B)     SIN,COS CDUX,Y,Z FROM SUBR CDUTRIG.
025886,001413: 
025887,001414:                                                                                                  #                TRANSFER OUTPUT OF SMCDURES FROM V(DCDU) TO VAC14D.
025888,001415: 
025889,001416:                                                                                                  #        (12)    CALCULATE ANG LOS RATE IN BODY(NB) COORDS USING SUBR SMNB.
025890,001417: 
025891,001418:                                                                                                  #                OMEGANB = (SMNB)(OMEGATHSM)
025892,001419: 
025893,001420:                                                                                                  #                SUBR SMNB REQUIRES OMEGATHSM IN V(VAC32D) AND ACTUAL CDUS
025894,001421:                                                                                                  #                (Y,X,Z ORDER) IN V(VAC20D) WITH S1 OF VAC = BASE ADDRESS
025895,001422:                                                                                                  #                OF CDUS (FIXLOC + 20D).
025896,001423: 
025897,001424:                                                                                                  #        (13)    CALCULATE ANG LOS RATE IN CONTROL COORDS AS FOLLOWS
025898,001425: 
025899,001426:                                                                                                  #                WBODY = (MBDYTCTL)(OMEGANB)     UNITS=REVS/SEC(B0).
025900,001427: 
025901,001428:                                                                                                  #                               ( 0.5       0              0      )   BODY TO
025902,001429:                                                                                                  #                MBDYTCTL(B1) = (  0   COS(7.25)B1   -SIN(7.25)B1 ) = CONTROL
025903,001430:                                                                                                  #                               (  0   SIN(7.25)B1    COS(7.25)B1 )   AXES
025904,001431:                                                                                                  #                                                                     CONVERSION
025905,001432:                                                                                                  #                                                                     MATRIX
025906,001433: 
025907,001434:                                                                                                  #        (14)    RESCALE WBODY TO UNITS OF 450 DEG/SEC BY APPLYING FACTOR
025908,001435:                                                                                                  #                OF 0.8 TO REVS/SEC.
025909,001436: 
025910,001437:                                                                                                  #        (15)    ADDRESS LIVE AUTOPILOT REGISTERS IN BASIC (UNDER INHINT).
025911,001438: 
025912,001439:                                                                                                  #                TRANSFER DESIRED CDUS, SCALED 180 DEGREES, FROM T(SAVEDCDU)
025913,001440:                                                                                                  #                TO V(CDUXD).
025914,001441: 
025915,001442:                                                                                                  #                TRANSFER DELCDUS, SCALED 180 DEG, FROM V(VAC14D)
025916,001443:                                                                                                  #                TO V(DELCDUX).
025917,001444: 
025918,001445:                                                                                                  #                TRANSFER OMEGA CONTROL, SCALED 450 DEG/SEC, FROM V(MPAC)
025919,001446:                                                                                                  #                TO V(WBODY).
025920,001447: 
025921,001448:                                                                                                  #                RELINT, SET MPAC=0, EXIT CRS61.1
025922,001449: 
025923,001450:                                                                                                  #  CALL          L       CALL    CRS61.1
025924,001451: 
025925,001452:                                                                                                  #  RETURNS       ALL TO L+1.
025926,001453: 
025927,001454:                                                                                                  #                (1)     S(MPAC)=0.  NORMAL EXIT.  3 SETS OF INPUTS FED TO DAP.
025928,001455:                                                                                                  #                (2)     S(MPAC)=1.  CALCULATED DESIRED CDUS,SP, SET IN T(CPHI)
025929,001456:                                                                                                  #                        FOR KALCMANU.  ABS(ACDU - DCDU) EXCEEDS 10 DEGREES.
025930,001457:                                                                                                  #                (3)     S(MPAC)=2.  GNCS AUTO MODE NOT SELECTED (BIT10=1).
025931,001458:                                                                                                  #                (4)     S(MPAC)=3.  DAP HOLD FLAG (HOLDFLAG) NOT EQUAL -1.

Page 582

025933,001460: 
025934,001461:                                                                                                  #  INPUT         (1)     TIME2,TIME1.  COMPUTER CLOCK TIME,DP, CENTISEC B28.
025935,001462:                                                                                                  #                (2)     CDUX,Y,Z.  PRESENT CDU ANGLES,SP,2S COMPL HALF-REVS B0.
025936,001463:                                                                                                  #                (3)     M(REFSMMAT), STABLE MEMBER COORDS B1.
025937,001464: 
025938,001465:                                                                                                  #  OUTPUT        NORMAL.  EXIT WITH S(MPAC) = 0.
025939,001466: 
025940,001467:                                                                                                  #                (1)     CDUXD,CDUYD,CDUZD, DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025941,001468:                                                                                                  #                        DP, 1S COMPL, SCALED 180 DEGREES (HALF-REVS B0).
025942,001469:                                                                                                  #                (2)     DELCDUX,DELCDUY,DELCDUZ.  0.1 SEC DCU ANGULAR INCREMENTS,
025943,001470:                                                                                                  #                        DP, 1S COMPL, SCALED 180 DEG.
025944,001471:                                                                                                  #                (3)     WBODY,WBODY1,WBODY2.  LOS ANGULAR RATE IN CONTROL COORDS,
025945,001472:                                                                                                  #                        DP, 1S COMPL, SCALED 450 DEG/SEC.
025946,001473: 
025947,001474:                                                                                                  #                SPECIAL.  EXIT WITH S(MPAC) = 1.
025948,001475: 
025949,001476:                                                                                                  #                (1)     CPHI,CTHETA,CPSI.  DESIRED OUTER, INNER, MIDDLE CDU ANGLES,
025950,001477:                                                                                                  #                        SP, 2S COMPL, SCALED 180 DEGREES.
025951,001478: 
025952,001479:                                                                                                  #  EXTERNAL SUBROUTINES USED     (B)=BASIC
025953,001480: 
025954,001481:                                                                                                  #        (1) CALCGA              (5) LOADTIME(B)         (9) SMNB
025955,001482:                                                                                                  #        (2) CDUTRIG             (6) MATMOVE
025956,001483:                                                                                                  #        (3) CSMCONIC            (7) RDCDUS(B)
025957,001484:                                                                                                  #        (4) LEMCONIC            (8) SMCDURES
025958,001485: 
025959,001486:                                                                                                  #  ERASABLE (1) S(Q611),EBANK7  CRS61.1 EXIT .
025960,001487:                                                                                                  #           (2) S(Q6111)EBANK7  CALCDCDU EXIT.
025961,001488:                                                                                                  #           (3) T(SAVEDCDU) E6  SP VECTOR OF CDUDS.
025962,001489:                                                                                                  #           (4) V(SAVEPOS)  E7  CSM POS VEC AND  D(SAVEPOS)= LENGTH OF LOS.
025963,001490:                                                                                                  #           (5) V(SAVEVEL) E7  CSM VEL VEC.
025964,001491: 
025965,001492:                                                                                                  #  FLAGWDS       HOLDFLAG.  USED, NOT SET.
025966,001493: 
025967,001494:                                                                                                  #  MISC  (1) ERASABLE ITEMP1 USED TO TEMP STORE EBANK UNDER INHINT.
025968,001495:                                                                                                  #        (2) ERASABLE P21TIME USED AS TEMP STORE DURING CRS61.1
025969,001496:                                                                                                  #        (3) ERAS DTHETASM USED AS TEMP STORE DURING EARLY CRS61.1
025970,001497: 
025971,001498:                                                                                                  #  DEBRIS - CURRENT VAC AREA, CRS61.1 ERASABLES, ITEMP1, P21TIME
025972,001499: 
025973,001500: 24,2002                                           BANK     24                                    
025974,001501: 34,2000                                           SETLOC   P20S4                                 
025975,001502: 34,2000                                           BANK                                           
025976,001503: 
025977,001504: 34,3225  E6,1646                                  EBANK=   CDUXD                                 
025978,001505: 34,3225                                           COUNT*   $/CRS61                               
025979,001506: 
025980,001507: 34,3225           40220        CRS61.1            STQ      SETPD                                 
025981,001508: 34,3226           03704                                    Q611                                  
025982,001509: 34,3227           00001                                    0                                     
025983,001510: 34,3230           77634                           RTB                                            

Page 583

025985,001512: 34,3231           45505                                    LOADTIME                              #  LOAD CLOCK TIME2,1 INTO MPAC.
025986,001513: 
025987,001514: 34,3232           36316        STORT              STCALL   P21TIME                               #  STORE CLOCK TIME FOR SUBR R63
025988,001515: 34,3233           71461                                    R63                                   #  SUBR TO CALC DCDU (T=PRESENT,PASS1)
025989,001516: 34,3234           77751                           TLOAD                                          
025990,001517: 34,3235           01156                                    THETAD                                #  SAVE DCDU(T) FROM CALCDCDU FOR STEP4.
025991,001518: 34,3236           03373                           STORE    SAVEDCDU                              
025992,001519: 
025993,001520: 34,3237           77776                           EXIT                                           
025994,001521: 34,3240           03265                           TC       STEP2CK    +4                         #  ELIMINATE FORCED R60 MANEUVER
025995,001522: 34,3241           34371        AUTOCK             CAF      PRIO30                                
025996,001523: 34,3242           00006                           EXTEND                                         
025997,001524: 34,3243           06031                           RXOR     CHAN31                                
025998,001525: 34,3244           77707                           MASK     FURST3                                
025999,001526: 34,3245           00006                           EXTEND                                         #  AUTO MODE SELECTED (BITS 15-13=011)
026000,001527: 34,3246           13250                           BZF      DAPCK                                 #        YES - CONTINUE.
026001,001528: 34,3247           03254                           TC       ASET                                  
026002,001529: 
026003,001530: 34,3250           40075        DAPCK              CS       FLAGWRD1                              #  IS STIKFLAG SET (I.E. IS SOMEONE ON RHC)
026004,001531: 34,3251           74675                           MASK     BIT14                                 
026005,001532: 34,3252           10000                           CCS      A                                     
026006,001533: 34,3253           03320                           TC       STEP3CK                               
026007,001534: 34,3254           34714        ASET               CAF      ZERO                                  
026008,001535: 34,3255           54154                           TS       MPAC                                  
026009,001536: 34,3256           06006                           TC       INTPRET                               #  EXIT CRS61.1
026010,001537: 34,3257           77650                           GOTO                                           
026011,001538: 34,3260           03704                                    Q611                                  
026012,001539: 
026013,001540: 34,3261           40101        STEP2CK            CS       FLAGWRD5                              #  IS R60FLAG SET
026014,001541: 34,3262           74707                           MASK     BIT4                                  
026015,001542: 34,3263           00006                           EXTEND                                         
026016,001543: 34,3264           13452                           BZF      MANUEXIS                              #  YES, DO R60
026017,001544: 34,3265           04555                           TC       BANKCALL                              
026018,001545: 34,3266           57750                           CADR     UPACTOFF                              
026019,001546: 
026020,001547: 34,3267           34711                           CAF      TWO                                   #  SET TEMPORARY INDEX DTHETASM = 2
026021,001548: 34,3270           55611        CDULOOP            TS       DTHETASM                              
026022,001549: 34,3271           51611                           INDEX    DTHETASM                              
026023,001550: 34,3272           30032                           CA       CDUX                                  #  SET A = ACTUAL CDU (ACDU).
026024,001551: 34,3273           00006                           EXTEND                                         
026025,001552: 34,3274           51611                           INDEX    DTHETASM                              #  SET INDEX TO ACCESS DESIRED CDU (DCDU).
026026,001553: 34,3275           21155                           MSU      THETAD                                #  A = DIFF = ACDU - DCDU.
026027,001554: 34,3276           54154                           TS       MPAC                                  #  RETURN TO INTERPRETER FOR 10 DEGREE CK.
026028,001555: 34,3277           06006                           TC       INTPRET                               #  (DP APPROX SP OK FOR ROUGH CHECK)
026029,001556: 34,3300           45246                           ABS      DSU                                   
026030,001557: 34,3301           31550                                    DEGREE10                              #  IS (ACDU - DCDU) MORE THAN 10 DEGREES.
026031,001558: 34,3302           77444                           BPL      EXIT                                  #  NO - OK, CONTINUE CHECKING OTHER ANGLES.
026032,001559: 34,3303           71307                                    STKTEST                               #  TEST STICK FLAG
026033,001560: 34,3304           11611                           CCS      DTHETASM                              #  HAVE ALL 3 ANGLE DIFFS BEEN CHECKED.
026034,001561: 34,3305           03270                           TC       CDULOOP                               #  NO - DIM COUNT, CHECK NEXT ANGLE DIFF.

Page 584

026036,001563: 34,3306           03241                           TC       AUTOCK                                
026037,001564: 34,3307           77776        STKTEST            EXIT                                           
026038,001565: 34,3310           40075                           CS       FLAGWRD1                              
026039,001566: 34,3311           74675                           MASK     BIT14                                 
026040,001567: 34,3312           10000                           CCS      A                                     
026041,001568: 34,3313           03452                           TC       MANUEXIS                              #  STIKFLAG IS NOT SET (DO R63)
026042,001569: 34,3314           34710                           CAF      BIT3                                  
026043,001570: 34,3315           00006                           EXTEND                                         #  STIKFLG IS SET
026044,001571: 34,3316           05011                           WOR      DSALMOUT                              #  TURN ON UPACTY LIGHT
026045,001572: 
026046,001573: 34,3317           03254                           TC       ASET                                  #  EXIT AND SET R61CNTR
026047,001574: 34,3320           06006        STEP3CK            TC       INTPRET                               
026048,001575: 34,3321           77601                           SETPD                                          
026049,001576: 34,3322           00001                                    0                                     #  *
026050,001577:                                                                                                  #  NOW HAVE DCDUS STORED IN T(SAVEDCDU).
026051,001578:                                                                                                  #  GO CALC OTHER DAP INPUTS (DELCDU,WBODY)
026052,001579: 34,3323           52375        CRS61.2            VLOAD    VSU                                   
026053,001580: 34,3324           03204                                    DCDU                                  
026054,001581: 34,3325           03715                                    SAVEVEL                               #  DV = VL - VC
026055,001582: 34,3326           57456                           UNIT     VCOMP                                 #  V(MPAC)=-UNITDV. VAC36D=ABSDV.
026056,001583: 34,3327           74235                           VXV      VXSC                                  #  (-UNITDV)CROSS(UNITLOS).
026057,001584: 34,3330           03707                                    SAVEPOS                               
026058,001585: 34,3331           31551                                    RVCS/RDS                              #  (UNITLOS B1)(UNITDV B1)(CONST B4)=CROSS.
026059,001586: 34,3332           77606                           PUSH                                           #  HOLD CROSS IN PUSHLIST0.  SCALED B6.
026060,001587: 34,3333           60345                           DLOAD    NORM                                  #  OBTAIN ABS VALUE OF LOS.
026061,001588: 34,3334           02316                                    P21TIME                               #  P21TIME IS TEMP STORE FOR ABSLOS.
026062,001589: 34,3335           00047                                    X1                                    
026063,001590: 34,3336           77606                           PUSH                                           #  NORM ABSLOS(DENOM) AND HOLD IN PUSH1.
026064,001591: 
026065,001592: 34,3337           60345                           DLOAD    NORM                                  
026066,001593: 34,3340           00045                                    36D                                   #  NORM ABS VALUE OF DV(NUM).
026067,001594: 34,3341           00051                                    S1                                    
026068,001595: 
026069,001596: 34,3342           70460                           XSU,1    SR1                                   #  X1 = X1(N DENOM)-S1(N NUM).
026070,001597: 34,3343           00050                                    S1                                    #  SR1 TO AVOID OFLOW ON DDV.
026071,001598: 34,3344           74271                           DDV      VXSC                                  #  ABSDV(MPAC)/ABSLOS(PUSH1) = QUOT.
026072,001599: 34,3345           77730                           SXA,1                                          #  QUOT(MPAC) X CROSS(PUSH0)
026073,001600: 34,3346           03705                                    Q6111                                 #  SAVE SCALE OF RESULT (R-15,1X).
026074,001601:                                                                                                  #  X1= NORM OF QUOT. QUOT SCALE B7-B29=B-22
026075,001602:                                                                                                  #  CROSS IS SCALED B6.  NEED SL1 TO RECOVER
026076,001603:                                                                                                  #  SR1 SO THAT -22+6+1=-15.  MPAC NOW HOLDS
026077,001604:                                                                                                  #  ORTHO LOS RATE (OMEGA TH, B-15,X1).
026078,001605: 34,3347           76521                           MXV      VSL1                                  #  OBTAIN RATE IN SM COORDS (OMEGTHSM) AND
026079,001606: 34,3350           01736                                    REFSMMAT                              #  ADJUST FOR REFSMMAT SCALE OF B1.
026080,001607: 34,3351           00025                           STORE    20D                                   #  OMEGTHSM = VAC20D
026081,001608:                                                                                                  #  DELTA THETA SM = OMEGTHSM * .1B-3.
026082,001609: 34,3352           77761                           VXSC                                           
026083,001610: 34,3353           31553                                    TENTH                                 
026084,001611: 34,3354           03212                           STORE    DTHETASM                              #  STORE SM INCREM ANGLES FOR SMCDURES.
026085,001612: 34,3355           77624                           CALL                                           

Page 585

026087,001614: 34,3356           47432                                    CDUTRIG                               #  OBTAIN SIN,COSCDUS FOR SMCDURES.
026088,001615: 34,3357           45001                           SETPD    CALL                                  #  SMCDURES USES PUSH
026089,001616: 34,3360           00001                                    0                                     
026090,001617: 34,3361           47675                                    SMCDURES                              #  OBTAIN DELCDU IN V(DCDU).
026091,001618: 34,3362           77750                           LXA,1                                          #  RELOAD X1
026092,001619: 34,3363           03705                                    Q6111                                 
026093,001620: 34,3364           53775                           VLOAD    VSL*                                  #  RECOVER SCALE.
026094,001621: 34,3365           03204                                    DCDU                                  #  (B-15,X1) + TENTH(B-3) + HALFREVS(B1)
026095,001622: 34,3366           20160                                    0          -17D,1                     #  EQUALS B-17D,1 TO OBTAIN HALFREVS B0.
026096,001623: 34,3367           00017                           STORE    14D                                   #  HOLD DELS IN V(VAC14D) FOR AUTOPILOT.
026097,001624: 
026098,001625: 34,3370           77624                           CALL                                           #  COMPUTES SINES AND COSINES FOR *SMNB*
026099,001626: 34,3371           47432                                    CDUTRIG                               
026100,001627: 34,3372           45175                           VLOAD    CALL                                  #  LOAD VECTOR AND CALL TRANSFORMATION
026101,001628: 34,3373           00025                                    20D                                   #  VECTOR FOR TRG*SMNB INTO MPAC
026102,001629: 34,3374           47577                                    *SMNB*                                #  OBTAIN ANG. RATE REFERRED TO NB (BODY)
026103,001630: 34,3375           77721                           MXV                                            
026104,001631: 34,3376           31557                                    MBDYTCTL                              #  CONVERT RATE(OMEGA) TO CONTROL COORDS.
026105,001632: 34,3377           77761                           VXSC                                           #  MULT. BY 0.8 TO RESCALE REVS TO 450 DEG.
026106,001633: 34,3400           15270                                    POINT8                                #  RECOVER SCALE.
026107,001634: 34,3401           53750                           LXA,1    VSL*                                  #  RELOAD X1 TO RECOVER NORMALIZ.
026108,001635: 34,3402           03705                                    Q6111                                 #  (B-15,X1) + MBDYTCTL(B1) = B-14D,1 TO
026109,001636: 34,3403           20163                                    0          -14D,1                     #  OBTAIN REVS SCALED AT 450 DEGREES.
026110,001637: 
026111,001638: 34,3404           77776        CRS61.2A           EXIT                                           
026112,001639: 34,3405           00004                           INHINT                                         
026113,001640: 34,3406           34714                           CAF      ZERO                                  #  TRANSFER DESIRED GIMBAL ANGLES
026114,001641: 34,3407           55647                           TS       CDUXD      +1                         #  FROM T(SAVEDCDU) TO V(CDUXD).
026115,001642: 34,3410           55651                           TS       CDUYD      +1                         
026116,001643: 34,3411           55653                           TS       CDUZD      +1                         
026117,001644: 34,3412           31772                           CA       SAVEDCDU                              
026118,001645: 34,3413           55646                           TS       CDUXD                                 
026119,001646: 34,3414           31773                           CA       SAVEDCDU   +1                         
026120,001647: 34,3415           55650                           TS       CDUYD                                 
026121,001648: 34,3416           31774                           CA       SAVEDCDU   +2                         
026122,001649: 34,3417           55652                           TS       CDUZD                                 
026123,001650: 
026124,001651: 34,3420           00006                           EXTEND                                         #  TRANSFER OMEGA CONTROL (ANG. LOS RATE)
026125,001652: 34,3421           30155                           DCA      MPAC                                  #  FROM V(MPAC) TO V(WBODY).
026126,001653: 34,3422           53526                           DXCH     WBODY                                 
026127,001654: 34,3423           00006                           EXTEND                                         
026128,001655: 34,3424           30160                           DCA      MPAC       +3                         
026129,001656: 34,3425           53530                           DXCH     WBODY1                                
026130,001657: 34,3426           00006                           EXTEND                                         
026131,001658: 34,3427           30162                           DCA      MPAC       +5                         
026132,001659: 34,3430           53532                           DXCH     WBODY2                                
026133,001660: 
026134,001661: 34,3431           00006                           EXTEND                                         #  TRANSFER CDU INCREMENTS
026135,001662: 34,3432           50120                           INDEX    FIXLOC                                #  FROM V(VAC14D) TO V(DELCDUX).
026136,001663: 34,3433           30017                           DCA      14D                                   

Page 586

026138,001665: 34,3434           53576                           DXCH     DELCDUX                               
026139,001666: 34,3435           00006                           EXTEND                                         
026140,001667: 34,3436           50120                           INDEX    FIXLOC                                
026141,001668: 34,3437           30021                           DCA      16D                                   
026142,001669: 34,3440           53600                           DXCH     DELCDUY                               
026143,001670: 34,3441           00006                           EXTEND                                         
026144,001671: 34,3442           50120                           INDEX    FIXLOC                                
026145,001672: 34,3443           30023                           DCA      18D                                   
026146,001673: 34,3444           53602                           DXCH     DELCDUZ                               
026147,001674: 34,3445           44712                           CS       ONE                                   #  NOW DAP VARIABLES LOADED.  SET HOLDFLAG.
026148,001675: 34,3446           55332                           TS       HOLDFLAG                              #  TO -1.
026149,001676: 34,3447           00003                           RELINT                                         
026150,001677: 34,3450           34714                           CAF      ZERO                                  #  NORMAL RETURN (MPAC = 0)
026151,001678: 34,3451           03254                           TC       ASET                                  
026152,001679: 34,3452           06006        MANUEXIS           TC       INTPRET                               
026153,001680: 34,3453           77751        MANUEXIT           TLOAD                                          #  ENTER FROM STEP2.  ACDU-DCDU EXCEEDS
026154,001681: 34,3454           03373                                    SAVEDCDU                              #  10 DEG. STORE DCDU(T) IN CPHI,CTHETA,
026155,001682: 34,3455           01156                           STORE    CPHI                                  #  CPSI FOR KALCMANU.
026156,001683: 34,3456           52135                           SLOAD    GOTO                                  #  SPECIAL RETURN (MPAC+0 = 1
026157,001684: 34,3457           31601                                    LOONE                                 #  OCTAL 00001
026158,001685: 34,3460           03704                                    Q611                                  
026159,001686: 
026160,001687: 34,3461           71220        R63                STQ      DLOAD                                 #  SUBR TO CALC DCDUS(T)
026161,001688: 34,3462           03705                                    Q6111                                 
026162,001689: 34,3463           02316                                    P21TIME                               
026163,001690: 34,3464           34041                           STCALL   TDEC1                                 
026164,001691: 34,3465           27045                                    CSMCONIC                              
026165,001692: 34,3466           77775        HOLDATT            VLOAD                                          #  HOLD EXTRAPOLATED CSM POSITION AND
026166,001693: 34,3467           00001                                    RATT                                  #  VELOCITY
026167,001694: 34,3470           27707                           STOVL    SAVEPOS                               
026168,001695: 34,3471           00007                                    VATT                                  
026169,001696: 34,3472           03715                           STORE    SAVEVEL                               
026170,001697: 34,3473           77745        CALCLEM            DLOAD                                          #  EXTRAPOLATE LEM STATE VECTOR TO SAME
026171,001698: 34,3474           02316                                    P21TIME                               #  TIME AS CSM USING LEMCONIC.
026172,001699: 34,3475           34041                           STCALL   TDEC1                                 
026173,001700: 34,3476           27057                                    LEMCONIC                              
026174,001701: 34,3477           77775                           VLOAD                                          
026175,001702: 34,3500           00007                                    VATT                                  
026176,001703: 34,3501           27204                           STOVL    DCDU                                  #  STORE VATT IN DCDU TEMPORARILY
026177,001704: 34,3502           00001                                    RATT                                  #  LOS = RL RC
026178,001705: 34,3503           53451                           VSU      UNIT                                  
026179,001706: 34,3504           03707                                    SAVEPOS                               
026180,001707: 34,3505           03707                           STORE    SAVEPOS                               #  SAVE UNITLOS FOR CRS61.2 RATE CALC.
026181,001708: 34,3506           76521                           MXV      VSL1                                  
026182,001709: 34,3507           01736                                    REFSMMAT                              #  CONVERT TO STABLE MEMBER
026183,001710: 34,3510           17357                           STODL    POINTVSM                              
026184,001711: 34,3511           00045                                    36D                                   #  HOLD ABS VAL OF LOS (VAC 36D)
026185,001712: 34,3512           02316                           STORE    P21TIME                               #  IN D(P21TIME) FOR CRS61.2 RATE CALC.
026186,001713: 34,3513           77775                           VLOAD                                          
026187,001714: 34,3514           15330                                    UNITX                                 

Page 587

026189,001716: 34,3515           37351                           STCALL   SCAXIS                                #  TRACK AXIS UNIT VECTOR
026190,001717: 34,3516           56126                                    VECPOINT                              #  FOR +X-AXIS TRACKING ATTITUDE
026191,001718: 34,3517           01334                           STORE    CPHIX                                 #  STORE ANGLES FOR N96 DISPLAY
026192,001719: 34,3520           77775                           VLOAD                                          
026193,001720: 34,3521           31542                                    PRFUNIT                               
026194,001721: 34,3522           37351                           STCALL   SCAXIS                                
026195,001722: 34,3523           56126                                    VECPOINT                              
026196,001723: 34,3524           03723                           STORE    PRAXIS                                #  STORE ANGLES FOR N95 DISPLAY
026197,001724: 34,3525           77614                           BOFF                                           
026198,001725: 34,3526           02745                                    PRFTRKAT                              
026199,001726: 34,3527           71533                                    CRSTOR1                               
026200,001727: 34,3530           01156        CRSTOR             STORE    THETAD                                #  STORE ANGLES FOR N18 DISPLAY
026201,001728: 34,3531           77650                           GOTO                                           
026202,001729: 34,3532           03705                                    Q6111                                 
026203,001730: 34,3533           77775        CRSTOR1            VLOAD                                          
026204,001731: 34,3534           15330                                    UNITX                                 
026205,001732: 34,3535           03351                           STORE    SCAXIS                                
026206,001733: 34,3536           52151                           TLOAD    GOTO                                  
026207,001734: 34,3537           01334                                    CPHIX                                 
026208,001735: 34,3540           71530                                    CRSTOR                                
026209,001736: 
026210,001737: 34,3541           15066 17626  PRFUNIT            2DEC     .40957602                             #  55 DEG TRACK AXIS UNIT VECTOR
026211,001738: 34,3543           00000 00000                     2DEC     0.0                                   #  FOR USE WITH VECPOINT
026212,001739: 34,3545           11132 27477                     2DEC     .28678822                             
026213,001740: 34,3547           01616        DEGREE10           DEC      .05556                                #  10 DEG IN REVS                STEP2
026214,001741: 34,3550           37651 16721  RVCS/RDS           2DEC     15.915494  B-4                        #  100/2PI REV-CSEC/RAD-SEC.
026215,001742: 34,3552           31463 06315  TENTH              2DEC     .1         B+3                        #  .1 B-3 (TO SCALE ANG. RATE TO .1 INREMS)
026216,001743: 34,3554           20000 00000  MAT1B1             2DEC     1.0        B-1                        
026217,001744: 34,3556           20000 00000  MBDYTCTL           2DEC     .5                                    #                7.25 DEG NEGATIVE
026218,001745: 34,3560           00000 00000                     2DEC     0          B-28                       #                X-AXIS ROTATION MATRIX
026219,001746: 34,3562           00000 00000                     2DEC     0          B-28                       #                CONVERTS BODY TO CTL
026220,001747: 34,3564           00000 00000                     2DEC     0          B-28                       #                AXES.  SAME AS QUADROT
026221,001748: 34,3566           17676 20113                     2DEC     .99200495  B-1                        #  COS7.25 B1    BUT SCALED B1
026222,001749: 34,3570           75766 45544                     2DEC     -.12619897 B-1                        #  -SIN7.25 B1
026223,001750: 34,3572           00000 00000                     2DEC     0          B-28                       
026224,001751: 34,3574           02011 32233                     2DEC     .12619897  B-1                        #  SIN7.25 B1
026225,001752: 34,3576           17676 20113                     2DEC     .99200495  B-1                        #  COS7.25 B1

Page 588

026227,001754: 34,3600           00001        LOONE              OCT      00001                                 #  TO SET MPAC = 00001 FOR SPECIAL EXIT.
026228,001755: 34,3601     7707               FURST3             EQUALS   13,14,15                              #  CONSTANT FOR AUTOCK (OCT 70000).
026229,001756: 

Page 589

026231,001758:                                                                                                  #  ..... S22.1 ORBITAL NAVIGATION ROUTINE
026232,001759:                                                                                                  #  MOD 1
026233,001760: 
026234,001761:                                                                                                  #  FUNCTIONAL DESCRIPTION
026235,001762:                                                                                                  #        1.  UPDATE CSM STATE VECTOR
026236,001763:                                                                                                  #        2.  UPDATE LANDMARK POSITION
026237,001764:                                                                                                  #        3.  CONVERT W MATRIX FROM 9 TO 6 DIMENSIONS
026238,001765: 
026239,001766:                                                                                                  #  SUBROUTINES CALLED
026240,001767:                                                                                                  #        INTSTALL,INTEGRV,GETUM,SETRE,R-TO-TP,RP-TO-R,BVECTORS,INCORP1,INCORP2
026241,001768:                                                                                                  #        LALOTORV,S22F2410,LAT-LONG,ROWDOT
026242,001769: 
026243,001770:                                                                                                  #  ERASABLE INITIALIZATION
026244,001771:                                                                                                  #        W=9X9 MATRIX
026245,001772:                                                                                                  #        ORBWFLAG=0 FOR INVALID W MATRIX, =1 FOR VALID W MATRIX
026246,001773:                                                                                                  #        ASTRONAUT ENTRY OF KNOWN,L,OFF
026247,001774:                                                                                                  #        8NN= NUMBER OF MARKS  DECIMAL INTEGER B-14
026248,001775:                                                                                                  #        REFSMMAT= TRANSFORMATION MATRIX
026249,001776:                                                                                                  #        MARKSTAT= ADDRESS OF START OF MARK DATA (MARK DATA OF EACH MARK IS
026250,001777:                                                                                                  #                  STORED AS FOLLOWS,  TIME,AIG,SA,AMG,PA,AOG) TIME IS IN DOUBLE
026251,001778:                                                                                                  #                  PRECISION, ALL OTHERS ARE IN SINGLE PRECISION
026252,001779:                                                                                                  #        CSM STATE VECTOR
026253,001780: 
026254,001781:                                                                                                  #  OUTPUT
026255,001782:                                                                                                  #        UPDATED CSM STATE VECTOR
026256,001783:                                                                                                  #        UPDATED LANDMARK POSITION
026257,001784:                                                                                                  #        NEW 6 DIMENSIONAL W MATRIX
026258,001785: 
026259,001786:                                                                                                  #  DEBRIS
026260,001787:                                                                                                  #        PUSH LIST,CSMPOS,ALPHAV,ERADM,UM,RCLP,USTAR,VARIANCE,X789,BVECTOR,8KK,
026261,001788:                                                                                                  #        S22LOC,SVMRKDAT TABLE,22SUBSCL,LANDMARK,CXOFF,S22C,LAT,LONG,ALT,
026262,001789:                                                                                                  #        TEMPOR1,S22TOFF,S221OFF,DSPTEM1,S22EORM,S22TPRIM
026263,001790: 
026264,001791: 13,2176                                           BANK     13                                    
026265,001792: 
026266,001793: 30,2000                                           SETLOC   P20S6                                 
026267,001794: 30,2000                                           BANK                                           
026268,001795: 
026269,001796: 30,2255  E5,1751                                  EBANK=   LANDMARK                              
026270,001797: 30,2255                                           COUNT    35/LUORB                              
026271,001798: 
026272,001799: 30,2255           66220        S22.1              STQ      SSP                                   
026273,001800: 30,2256           03703                                    S22RTNEX                              
026274,001801: 30,2257           00051                                    S1                                    
026275,001802: 30,2260           00006                           DEC      6          B-14                       
026276,001803: 30,2261           66331                           SSP      SSP                                   #  SET I=1       ITEM 8KK IS I
026277,001804: 30,2262           02747                                    8KK                                   
026278,001805: 30,2263           00001                           DEC      1          B-14                       
026279,001806: 30,2264           02751                                    S22LOC                                
026280,001807: 30,2265           03537                           ECADR    SVMRKDAT                              #  SET MARK DATA ADDRESS INTO S22LOC

Page 590

026282,001809: 30,2266           76144                           LXC,2    AXT,1                                 
026283,001810: 30,2267           01330                                    MARKSTAT                              
026284,001811: 30,2270           00044                           DEC      36         B-14                       
026285,001812: 30,2271           77773        S22.111            VLOAD*                                         #  MOVE MARK DATA (5 SETS) FROM ADDR. IN
026286,001813: 30,2272           77776                                    0,2                                   #  MARKSTAT TO SVMRKDAT TABLE TO AVOID LOSS
026287,001814: 30,2273           07604                           STORE    SVMRKDAT   +36D,1                     #  IF RESTART OCCURS
026288,001815: 30,2274           60114                           INCR,2   TIX,1                                 
026289,001816: 30,2275           77771                           DEC      -6         B-14                       
026290,001817: 30,2276           60271                                    S22.111                               
026291,001818: 30,2277           77414                           SET      EXIT                                  
026292,001819: 30,2300           01464                                    P22MKFLG                              #  DOWNLINKED SVMRKDAT HOLDS PRESENT MARKS
026293,001820: 30,2301           04555                           TC       BANKCALL                              #  RELEASE VAC AREA WHERE MARK DATA WAS
026294,001821: 30,2302           16063                           CADR     MKRELEAS                              
026295,001822: 30,2303           05261                           TC       2PHSCHNG                              
026296,001823: 30,2304           00004                           OCT      00004                                 
026297,001824: 30,2305           05022                           OCT      05022                                 
026298,001825: 30,2306           13000                           OCT      13000                                 
026299,001826: 30,2307           06006                           TC       INTPRET                               
026300,001827: 30,2310           43170                           AXT,1    BOFF                                  
026301,001828: 30,2311           00000                                    0D                                    
026302,001829: 30,2312           04343                                    CMOONFLG                              #  =0 EARTH, =1 MOON
026303,001830: 30,2313           60316                                    S22SHIFT                              
026304,001831: 30,2314           77710                           INCR,1                                         
026305,001832: 30,2315           77775                           DEC      -2         B-14                       
026306,001833: 30,2316           40330        S22SHIFT           SXA,1    SETPD                                 
026307,001834: 30,2317           03673                                    S22EORM                               #  SET =0 EARTH, =-2 MOON FOR SHIFTING
026308,001835: 30,2320           00001                                    0D                                    
026309,001836: 30,2321           77624        FIG2EXIT           CALL                                           
026310,001837: 30,2322           27371                                    INTSTALL                              
026311,001838: 30,2323           77624                           CALL                                           
026312,001839: 30,2324           61326                                    S22FLGS                               
026313,001840:                                                                                                  #        FLOWCHART D=0   THEN DIM0FLAG=0 D6OR9FLG NOT TESTED
026314,001841:                                                                                                  #        FLOWCHART D=6   THEN DIM0FLAG=1 D6OR9FLG=0
026315,001842:                                                                                                  #        FLOWCHART D=9   THEN DIM0FLAG=1 D6OR9FLG=1
026316,001843: 
026317,001844: 30,2325           43014                           BOFF     CLRGO                                 
026318,001845: 30,2326           01751                                    ORBWFLAG                              
026319,001846: 30,2327           60332                                    SETWW5D                               #  BRANCH TO SET W0-W5, ORBWFLAG,D
026320,001847: 30,2330           01635                                    D6OR9FLG                              #  FLOWCHART D=6 PATH
026321,001848: 30,2331           60357                                    SETVANDI                              
026322,001849: 30,2332           77614        SETWW5D            CLEAR                                          
026323,001850: 30,2333           01676                                    DIM0FLAG                              #  FLOWCHART D=0 PATH
026324,001851: 30,2334           66370                           AXT,1    SSP                                   
026325,001852: 30,2335           00154                           DEC      108        B-14                       
026326,001853: 30,2336           00051                                    S1                                    
026327,001854: 30,2337           00006                           DEC      6          B-14                       
026328,001855: 30,2340           77214                           CLEAR    VLOAD                                 
026329,001856: 30,2341           02676                                    RENDWFLG                              #  GSOP CHANGE 8/18/67
026330,001857: 30,2342           15332                                    ZEROVECS                              
026331,001858: 30,2343           06555        CLEARWW5           STORE    W          +108D,1                    

Page 591

026333,001860: 30,2344           67300                           TIX,1    SLOAD                                 
026334,001861: 30,2345           60343                                    CLEARWW5                              
026335,001862: 30,2346           02005                                    WORBPOS                               
026336,001863: 30,2347           02401                           STORE    W                                     #  SET DIAGONALS OF W0
026337,001864: 30,2350           02411                           STORE    W          +8D                        
026338,001865: 30,2351           02421                           STORE    W          +16D                       
026339,001866: 30,2352           77735                           SLOAD                                          
026340,001867: 30,2353           02006                                    WORBVEL                               
026341,001868: 30,2354           02511                           STORE    W          +72D                       #  SET DIAGONALS OF W4
026342,001869: 30,2355           02521                           STORE    W          +80D                       
026343,001870: 30,2356           02531                           STORE    W          +88D                       
026344,001871: 30,2357           77614        SETVANDI           CLEAR                                          
026345,001872: 30,2360           02666                                    DMENFLG                               #  0=6X6W, 1=9X9W
026346,001873: 30,2361           77624        S22NXTIN           CALL                                           
026347,001874: 30,2362           61322                                    GETTF                                 
026348,001875: 30,2363           34041                           STCALL   TDEC1                                 
026349,001876: 30,2364           27113                                    INTEGRV                               
026350,001877: 30,2365           77624                           CALL                                           
026351,001878: 30,2366           61273                                    S22CALRC                              #  CALC. RC B-29 OR B-27 (CSMPOS)
026352,001879: 30,2367           66150                           LXA,1    SXA,1                                 
026353,001880: 30,2370           02750                                    S22LOC                                #  SETUP ADDR. OF MARK DATA FOR GETUM SUBR.
026354,001881: 30,2371           01242                                    MARKDATA                              
026355,001882: 30,2372           77624                           CALL                                           #  COMPUTE UM
026356,001883: 30,2373           47110        S2GETUM                     GETUM                                 
026357,001884: 30,2374           01235                           STORE    UM                                    
026358,001885: 30,2375           41535        DMPINTEG           SLOAD    PUSH                                  #  TEST OFF=I
026359,001886: 30,2376           02747                                    8KK                                   
026360,001887: 30,2377           50535                           SLOAD    SR3                                   #  CXOFF SCALED B-5, MUST MOVE TO B-14
026361,001888: 30,2400           02746                                    CXOFF                                 #  BEFORE SUBT.
026362,001889: 30,2401           50442                           SR3      SR3                                   
026363,001890: 30,2402           77625                           DSU                                            
026364,001891: 30,2403           43030                           BHIZ     BON                                   
026365,001892: 30,2404           60720                                    S22OFF=I                              #  BRANCH HERE IF OFF=I
026366,001893: 30,2405           02706                                    DMENFLG                               #  0=6X6W, 1=9X9W
026367,001894: 30,2406           60726                                    S22D=9                                
026368,001895: 30,2407           77624                           CALL                                           
026369,001896: 30,2410           56741                                    GRP2PC                                
026370,001897: 30,2411           77614                           SET                                            
026371,001898: 30,2412           01471                                    ORBWFLAG                              
026372,001899: 30,2413           43014                           SET      SET                                   
026373,001900: 30,2414           02466                                    DMENFLG                               #  =0 ON FIRST PASS THRU HERE FOR D=0, OR 6
026374,001901: 30,2415           01062                                    22DSPFLG                              #  =1 TO DISPLAY DR,DV ON FIRST PASS
026375,001902: 30,2416           43014                           SET      BON                                   
026376,001903: 30,2417           00462                                    ERADFLAG                              #  =1 TO COMPUTE FISCHER RADIUS
026377,001904: 30,2420           03307                                    KNOWNFLG                              
026378,001905: 30,2421           61070                                    S22BOX22                              
026379,001906: 30,2422           53575                           VLOAD    UNIT                                  #  UNIT ALSO PUTS ABVAL(RC) IN 36D
026380,001907: 30,2423           01207                                    CSMPOS                                
026381,001908: 30,2424           02152                           STORE    ALPHAV                                #  ALPHAV +4=SINL FOR SETRE
026382,001909: 30,2425           43014                           CLEAR    BOFF                                  

Page 592

026384,001911: 30,2426           01663                                    LUNAFLAG                              
026385,001912: 30,2427           04343                                    CMOONFLG                              
026386,001913: 30,2430           60433                                    S22C=I                                
026387,001914: 30,2431           77614                           SET                                            
026388,001915: 30,2432           01463                                    LUNAFLAG                              
026389,001916: 30,2433           77624        S22C=I             CALL                                           #  ERADM= R0 METERS B-29 BOTH EARTH/MOON
026390,001917: 30,2434           26533                                    SETRE                                 
026391,001918: 30,2435           77624                           CALL                                           #  COMPUTE RL FROM EQUATION 2.4.10
026392,001919: 30,2436           61240                                    S22F2410                              #  STORED IN X789,MPAC B-27,B-29
026393,001920: 30,2437           70414                           BOFF     VSR2                                  #  SCALE RL B-29 FOR BOTH EARTH/MOON
026394,001921: 30,2440           04343                                    CMOONFLG                              
026395,001922: 30,2441           60442                                    +1                                    
026396,001923: 30,2442           02635                           STORE    S22RL                                 
026397,001924: 30,2443           72441                           DOT      SL1                                   
026398,001925: 30,2444           01235                                    UM                                    
026399,001926: 30,2445           24037                           STOVL    S22D                                  #  D=UM.RL B-29
026400,001927: 30,2446           15332                                    ZEROVECS                              
026401,001928: 30,2447           41401                           SETPD    PUSH                                  
026402,001929: 30,2450           00001                                    0D                                    
026403,001930: 30,2451           65206                           PUSH     PDDL                                  #  SET 0-18D = I BACKWARDS
026404,001931: 30,2452           15330                                    HIDPHALF                              #  PD 18
026405,001932: 30,2453           77702                           SR2                                            #  B-3
026406,001933: 30,2454           00005                           STORE    4D                                    
026407,001934: 30,2455           00011                           STORE    8D                                    
026408,001935: 30,2456           24015                           STOVL    12D                                   
026409,001936: 30,2457           01235                                    UM                                    #  B-1
026410,001937: 30,2460           24023                           STOVL    S223X1                                
026411,001938: 30,2461           02635                                    S22RL                                 #  B-29
026412,001939: 30,2462           77624                           CALL                                           #  (UM)(RL T) B-30 STORED IN S22UMRL THRU
026413,001940: 30,2463           61303                                    S2231X13                              #  S22UMRL +17D
026414,001941: 30,2464           66370                           AXT,1    SSP                                   
026415,001942: 30,2465           00022                           DEC      18         B-14                       
026416,001943: 30,2466           00051                                    S1                                    
026417,001944: 30,2467           00006                           DEC      6          B-14                       
026418,001945: 30,2470           70573        S22NXTU            VLOAD*   VSR2                                  #  (UM)(RL T) B-32
026419,001946: 30,2471           03524                                    S22UMRL    +18D,1                     
026420,001947: 30,2472           77741                           V/SC                                           
026421,001948: 30,2473           00037                                    S22D                                  #  D B-29
026422,001949: 30,2474           45445                           BVSU     STADR                                 #  SUBTRACT FROM I B-3
026423,001950: 30,2475           70253                           STORE    S22UMRL    +18D,1                     #  U MATRIX B-3
026424,001951: 30,2476           76100                           TIX,1    AXT,1                                 #  PD 0 AFTER TIX
026425,001952: 30,2477           60470                                    S22NXTU                               
026426,001953: 30,2500           00044                           DEC      36         B-14                       #  S1 STILL 6 FROM ABOVE
026427,001954: 30,2501           64373        S22NXTWI           VLOAD*   MXV                                   
026428,001955: 30,2502           02445                                    W          +36D,1                     #  B-19
026429,001956: 30,2503           03502                                    S22UMRL                               #  B-3
026430,001957: 30,2504           77732                           SL2R                                           
026431,001958: 30,2505           06621                           STORE    W          +144D,1                    #  W(I+18)= UW(I) B-19
026432,001959: 30,2506           71300                           TIX,1    DLOAD                                 
026433,001960: 30,2507           60501                                    S22NXTWI                              

Page 593

026435,001962: 30,2510           00041                                    S22RHO                                #  B-28,B-30
026436,001963: 30,2511           60414                           BOFF     SR2                                   #  MAKE RHO B-30
026437,001964: 30,2512           04343                                    CMOONFLG                              
026438,001965: 30,2513           60514                                    +1                                    
026439,001966: 30,2514           57101                           NORM     XAD,2                                 
026440,001967: 30,2515           00050                                    X2                                    
026441,001968: 30,2516           00047                                    X2                                    
026442,001969: 30,2517           41316                           DSQ      DMP                                   
026443,001970: 30,2520           21650                                    SCTVAR                                #  B+18
026444,001971: 30,2521           77742                           SR1                                            #  ACCOUNTS FOR 1/2 IN NEXT FORMULA
026445,001972: 30,2522           00041                           STORE    S22RHO                                #  1/2(RHO SQ)(VARSCT)
026446,001973: 30,2523           77770                           AXT,1                                          
026447,001974: 30,2524           00022                           DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
026448,001975: 30,2525           64373        S22NXXA            VLOAD*   MXV                                   
026449,001976: 30,2526           03524                                    S22UMRL    +18D,1                     #  B-3
026450,001977: 30,2527           03502                                    S22UMRL                               #  B-3
026451,001978: 30,2530           53761                           VXSC     VSR*                                  
026452,001979: 30,2531           00041                                    S22RHO                                
026453,001980: 30,2532           57212                                    0          -12D,2                     #  WITH VARRP SCALED B-28
026454,001981: 30,2533           05301                           STORE    S22UUT     +18D,1                     #  1/2(RHO SQ)(VARSCT)(U)(U T)
026455,001982: 30,2534           77300                           TIX,1    VLOAD                                 
026456,001983: 30,2535           60525                                    S22NXXA                               
026457,001984: 30,2536           01235                                    UM                                    
026458,001985: 30,2537           34023                           STCALL   S223X1                                #  UM ALSO IN MPAC FOR S2231X13 SUBR.
026459,001986: 30,2540           61303                                    S2231X13                              #  (UM)(UM T) B-2 IN S22UMRL,P17D
026460,001987: 30,2541           50545                           DLOAD    SR3                                   
026461,001988: 30,2542           02241                                    ERADM                                 #  R0 B-29
026462,001989: 30,2543           63471                           DDV      DSQ                                   
026463,001990: 30,2544           00037                                    S22D                                  #  B-29
026464,001991: 30,2545           77605                           DMP                                            
026465,001992: 30,2546           02010                                    RPVAR                                 #  ***** METERS SQ
026466,001993: 30,2547           00041                           STORE    S22RHO                                #  TEMP (VARRP)(R0/D)
026467,001994: 30,2550           77770                           AXT,1                                          
026468,001995: 30,2551           00022                           DEC      18         B-14                       #  S1 STILL 6 FROM ABOVE
026469,001996: 30,2552           74373        S22NXXB            VLOAD*   VXSC                                  
026470,001997: 30,2553           03524                                    S22UMRL    +18D,1                     #  (UM)(UM T) B-2
026471,001998: 30,2554           00041                                    S22RHO                                
026472,001999: 30,2555           77653                           VAD*                                           
026473,002000: 30,2556           01301                                    S22UUT     +18D,1                     
026474,002001: 30,2557           05301                           STORE    S22UUT     +18D,1                     #  SMALL E MATRIX
026475,002002: 30,2560           77775                           VLOAD                                          
026476,002003: 30,2561           15332                                    ZEROVECS                              
026477,002004: 30,2562           06643                           STORE    W          +162D,1                    #  CLEAR W8
026478,002005: 30,2563           40100                           TIX,1    BOV                                   
026479,002006: 30,2564           60552                                    S22NXXB                               
026480,002007: 30,2565           60566                                    +1                                    
026481,002008: 30,2566           50145                           DLOAD    BMN                                   
026482,002009: 30,2567           01277                                    S22UUT     +16D                       #  E5
026483,002010: 30,2570           60607                                    S22W76X                               
026484,002011: 30,2571           53166                           SQRT     BZE                                   

Page 594

026486,002013: 30,2572           60607                                    S22W76X                               
026487,002014: 30,2573           16625                           STODL    W          +148D                      #  W74= SQ ROOT E5
026488,002015: 30,2574           01275                                    S22UUT     +14D                       #  E4
026489,002016: 30,2575           40071                           DDV      BOV                                   
026490,002017: 30,2576           02625                                    W          +148D                      
026491,002018: 30,2577           60601                                    S22W72X                               
026492,002019: 30,2600           02623                           STORE    W          +146D                      #  W73= E4/W74
026493,002020: 30,2601           56345        S22W72X            DLOAD    DDV                                   
026494,002021: 30,2602           01273                                    S22UUT     +12D                       #  E3
026495,002022: 30,2603           02625                                    W          +148D                      
026496,002023: 30,2604           77600                           BOV                                            
026497,002024: 30,2605           60607                                    S22W76X                               
026498,002025: 30,2606           02621                           STORE    W          +144D                      #  W72= E4/W74
026499,002026: 30,2607           63545        S22W76X            DLOAD    DSQ                                   
026500,002027: 30,2610           02623                                    W          +146D                      #  W73
026501,002028: 30,2611           50021                           BDSU     BMN                                   
026502,002029: 30,2612           01267                                    S22UUT     +8D                        #  E2
026503,002030: 30,2613           60627                                    S22W78X                               
026504,002031: 30,2614           53166                           SQRT     BZE                                   
026505,002032: 30,2615           60627                                    S22W78X                               
026506,002033: 30,2616           16631                           STODL    W          +152D                      #  W76= SQ ROOT (E2-W73 SQ)
026507,002034: 30,2617           02621                                    W          +144D                      #  W72
026508,002035: 30,2620           44205                           DMP      BDSU                                  
026509,002036: 30,2621           02623                                    W          +146D                      #  W73
026510,002037: 30,2622           01265                                    S22UUT     +6D                        #  E1
026511,002038: 30,2623           40071                           DDV      BOV                                   
026512,002039: 30,2624           02631                                    W          +152D                      #  W76
026513,002040: 30,2625           60627                                    S22W78X                               
026514,002041: 30,2626           02627                           STORE    W          +150D                      #  W75= (E1-W72W73)/W76
026515,002042: 30,2627           63545        S22W78X            DLOAD    DSQ                                   
026516,002043: 30,2630           02627                                    W          +150D                      
026517,002044: 30,2631           63525                           PDDL     DSQ                                   
026518,002045: 30,2632           02621                                    W          +144D                      #  W72
026519,002046: 30,2633           77615                           DAD                                            
026520,002047: 30,2634           50021                           BDSU     BMN                                   
026521,002048: 30,2635           01257                                    S22UUT                                #  E0
026522,002049: 30,2636           60641                                    S22SCLW                               
026523,002050: 30,2637           77766                           SQRT                                           
026524,002051: 30,2640           02635                           STORE    W          +156D                      #  W78= SQ RT(E0-W72 SQ-W75 SQ)
026525,002052: 30,2641           74575        S22SCLW            VLOAD    VSR1                                  #  SCALE W6 METERS B-19
026526,002053: 30,2642           02621                                    W          +144D                      
026527,002054: 30,2643           26621                           STOVL    W          +144D                      
026528,002055: 30,2644           02627                                    W          +150D                      
026529,002056: 30,2645           77762                           VSR1                                           
026530,002057: 30,2646           26627                           STOVL    W          +150D                      
026531,002058: 30,2647           02635                                    W          +156D                      
026532,002059: 30,2650           77762                           VSR1                                           
026533,002060: 30,2651           02635                           STORE    W          +156D                      
026534,002061: 30,2652           77624        S22SAVET           CALL                                           
026535,002062: 30,2653           61322                                    GETTF                                 

Page 595

026537,002064: 30,2654           03672                           STORE    S22TPRIM                              #  SAVE PRESENT TIME FOR PIOS
026538,002065: 30,2655           77776        S22I=N             EXIT                                           #  TEST I=N
026539,002066: 30,2656           05301                           TC       PHASCHNG                              
026540,002067: 30,2657           04022                           OCT      04022                                 
026541,002068: 30,2660           41746                           CS       8KK                                   
026542,002069: 30,2661           61747                           AD       8NN                                   
026543,002070: 30,2662           00006                           EXTEND                                         
026544,002071: 30,2663           63126                           BZMF     S22F244X                              #  EXIT TO FIGURE 2.4-4
026545,002072: 30,2664           31746                           CA       8KK                                   #  I=I+1
026546,002073: 30,2665           64712                           AD       ONE                                   
026547,002074: 30,2666           55300                           TS       TEMPOR1                               
026548,002075: 30,2667           31750                           CA       S22LOC                                #  ADD 7 TO LOC TO GET ADDR. OF NEXT MARK
026549,002076: 30,2670           64716                           AD       SEVEN                                 
026550,002077: 30,2671           55301                           TS       TEMPOR1    +1                         
026551,002078: 30,2672           05301                           TC       PHASCHNG                              
026552,002079: 30,2673           04022                           OCT      04022                                 
026553,002080: 30,2674           31300                           CA       TEMPOR1                               
026554,002081: 30,2675           55746                           TS       8KK                                   
026555,002082: 30,2676           31301                           CA       TEMPOR1    +1                         
026556,002083: 30,2677           55750                           TS       S22LOC                                
026557,002084: 30,2700           06006                           TC       INTPRET                               
026558,002085: 30,2701           77624                           CALL                                           #  FOR ALL INTEGRATIONS OTHER THAN FIRST
026559,002086: 30,2702           27371        S2INTS1                     INTSTALL                              
026560,002087: 30,2703           77624                           CALL                                           
026561,002088: 30,2704           61326                                    S22FLGS                               
026562,002089: 30,2705           43014                           BON      CLEAR                                 
026563,002090: 30,2706           02706                                    DMENFLG                               
026564,002091: 30,2707           60361                                    S22NXTIN                              #  RETURN ALWAYS EXCEPT OFFSET POINT MARK 1
026565,002092: 30,2710           01676                                    DIM0FLAG                              
026566,002093: 30,2711           43014                           BOFF     SET                                   
026567,002094: 30,2712           01751                                    ORBWFLAG                              
026568,002095: 30,2713           60361                                    S22NXTIN                              #  OFFSET POINT MARK 1, NO W INTEGRATION
026569,002096: 30,2714           01476                                    DIM0FLAG                              
026570,002097: 30,2715           77614                           CLRGO                                          
026571,002098: 30,2716           01635                                    D6OR9FLG                              
026572,002099: 30,2717           60361                                    S22NXTIN                              #  OFFSET POINT MARK 1, INTEGRATE W 6X6
026573,002100: 30,2720           77624        S22OFF=I           CALL                                           
026574,002101: 30,2721           61322                                    GETTF                                 
026575,002102: 30,2722           27670                           STOVL    S22TOFF                               #  TIME SUB OFF
026576,002103: 30,2723           01235                                    UM                                    
026577,002104: 30,2724           35215                           STCALL   S22UOFF                               #  U SUB OFF
026578,002105: 30,2725           60655                                    S22I=N                                #  TEST I=N
026579,002106: 30,2726           77775        S22D=9             VLOAD                                          #  D=9 PATH
026580,002107: 30,2727           01701                                    X789                                  
026581,002108: 30,2730           14001                           STODL    0D                                    #  CALL PIOS TWICE TO TRANSFORM RL TO TIME
026582,002109: 30,2731           03672                                    S22TPRIM                              #  T(SUB F) FROM TIME T PRIME
026583,002110: 30,2732           00007                           STORE    6D                                    
026584,002111: 30,2733           45135                           SLOAD    CALL                                  
026585,002112: 30,2734           03674                                    S22EORM                               #  0=EARTH, NON-ZERO=MOON
026586,002113: 30,2735           55366        S2RTRP                      R-TO-RP                               

Page 596

026588,002115: 30,2736           45006                           PUSH     CALL                                  #  R-TO-RP LEAVES PUSHLOC AT 0
026589,002116: 30,2737           61322                                    GETTF                                 
026590,002117: 30,2740           00007                           STORE    6D                                    
026591,002118: 30,2741           45135                           SLOAD    CALL                                  
026592,002119: 30,2742           03674                                    S22EORM                               
026593,002120: 30,2743           55341        S2RPTR                      RP-TO-R                               
026594,002121: 30,2744           01701        S22BOX32           STORE    X789                                  
026595,002122: 30,2745           40014                           SET      BOV                                   
026596,002123: 30,2746           02464                                    INCORFLG                              #  FLAG=1
026597,002124: 30,2747           60750                                    +1                                    #  CLEAR OVERFLOW
026598,002125: 30,2750           77651                           VSU                                            
026599,002126: 30,2751           01207                                    CSMPOS                                
026600,002127: 30,2752           03531                           STORE    RCLP                                  #  RCL=RL-RC
026601,002128: 30,2753           47256                           UNIT     VXV                                   #  USTAR=UNIT(UNIT(RCL)XUM)
026602,002129: 30,2754           01235                                    UM                                    
026603,002130: 30,2755           40056                           UNIT     BOV                                   
026604,002131: 30,2756           60652                                    S22SAVET                              #  COMPUTATION OVERFLOW, SAVE TF
026605,002132: 30,2757           01245                           STORE    USTAR                                 
026606,002133: 30,2760           43014        S22BOX12           SET      SET                                   
026607,002134: 30,2761           02466                                    DMENFLG                               #  =1 FOR 9X9 W
026608,002135: 30,2762           00467                                    VEHUPFLG                              #  =1 FOR CSM
026609,002136: 30,2763           43345                           DLOAD    DAD                                   
026610,002137: 30,2764           21650                                    SCTVAR                                #  B+18
026611,002138: 30,2765           21652                                    IMUVARR                               #  B+18
026612,002139: 30,2766           27526                           STOVL    VARIANCE                              
026613,002140: 30,2767           03531                                    RCLP                                  #  B-29 OR B-27
026614,002141: 30,2770           60246                           ABVAL    NORM                                  
026615,002142: 30,2771           00047                                    X1                                    
026616,002143: 30,2772           41316                           DSQ      DMP                                   
026617,002144: 30,2773           03526                                    VARIANCE                              
026618,002145: 30,2774           56070                           XAD,1    XAD,1                                 
026619,002146: 30,2775           00046                                    X1                                    #  DOUBLE NORM SHIFT SINCE RCLP WAS SQUARED
026620,002147: 30,2776           03673                                    S22EORM                               #  DOUBLE EARTH OR MOON SHIFT, SAME REASON
026621,002148: 30,2777           53670                           XAD,1    SR*                                   
026622,002149: 30,3000           03673                                    S22EORM                               
026623,002150: 30,3001           20601                                    0,1                                   #  SCALE VARIANCE B-40 FOR BOTH EARTH, MOON
026624,002151: 30,3002           77751                           TLOAD                                          #  CHANGE MODE TO TRIPLE
026625,002152: 30,3003           00155                                    MPAC                                  
026626,002153: 30,3004           37526                           STCALL   VARIANCE                              #  CALC B0,B1,DELTAQ, NEW USTAR
026627,002154: 30,3005           47047        S2BVTRS                     BVECTORS                              
026628,002155: 30,3006           57575                           VLOAD    VCOMP                                 
026629,002156: 30,3007           03502                                    BVECTOR                               
026630,002157: 30,3010           37516                           STCALL   BVECTOR    +12D                       #  B2=-B0
026631,002158: 30,3011           75250        S2INCP1                     INCORP1                               
026632,002159: 30,3012           77624                           CALL                                           
026633,002160: 30,3013           56741                                    GRP2PC                                
026634,002161: 30,3014           43014                           BOFF     CLEAR                                 
026635,002162: 30,3015           01342                                    22DSPFLG                              #  =1 DISPLAY DELTA R,V    =0 DO NOT
026636,002163: 30,3016           61047                                    S22BOX42                              
026637,002164: 30,3017           01262                                    22DSPFLG                              

Page 597

026639,002166: 30,3020           77624                           CALL                                           
026640,002167: 30,3021           56741                                    GRP2PC                                
026641,002168: 30,3022           51575                           VLOAD    ABVAL                                 
026642,002169: 30,3023           01257                                    DELTAX                                #  DELTA R
026643,002170: 30,3024           53750                           LXA,1    SR*                                   
026644,002171: 30,3025           03673                                    S22EORM                               #  SCALE DELTA R ALWAYS METERS B-29
026645,002172: 30,3026           20601                                    0,1                                   
026646,002173: 30,3027           27502                           STOVL    N49DISP                               
026647,002174: 30,3030           01265                                    DELTAX     +6                         #  DELTA V
026648,002175: 30,3031           53646                           ABVAL    SR*                                   #  DELTA V=METERS/CSEC B-7 ALWAYS
026649,002176: 30,3032           20601                                    0,1                                   
026650,002177: 30,3033           03504                           STORE    N49DISP    +2                         
026651,002178: 30,3034           77776                           EXIT                                           
026652,002179: 30,3035           33655                           CAF      V06N49EE                              
026653,002180: 30,3036           04555                           TC       BANKCALL                              
026654,002181: 30,3037           20763                           CADR     GOFLASHR                              
026655,002182: 30,3040           04106                           TC       GOTOPOOH                              #  V34E TERMINATE
026656,002183: 30,3041           03046                           TC       +5                                    #  INCORPORATE CHANGES
026657,002184: 30,3042           03230                           TC       S22EXEX                               #  V32E RECYCLE
026658,002185: 30,3043           34710                           CAF      BIT3                                  
026659,002186: 30,3044           05415                           TC       BLANKET                               
026660,002187: 30,3045           05112                           TC       ENDOFJOB                              
026661,002188: 30,3046           06006                           TC       INTPRET                               
026662,002189: 30,3047           77624        S22BOX42           CALL                                           
026663,002190: 30,3050           75462                                    INCORP2                               
026664,002191: 30,3051           77624                           CALL                                           #  CSMPOS=RC B-29 OR B-27
026665,002192: 30,3052           61273                                    S22CALRC                              
026666,002193: 30,3053           77414        DMPINCP2           BOFF     EXIT                                  
026667,002194: 30,3054           02744                                    INCORFLG                              
026668,002195: 30,3055           60652                                    S22SAVET                              #  SAVE TF AND TEST I=N
026669,002196: 30,3056           05301                           TC       PHASCHNG                              
026670,002197: 30,3057           04022                           OCT      04022                                 
026671,002198: 30,3060           06006                           TC       INTPRET                               
026672,002199: 30,3061           77214                           CLEAR    VLOAD                                 
026673,002200: 30,3062           02664                                    INCORFLG                              #  FLAG=0
026674,002201: 30,3063           01701                                    X789                                  
026675,002202: 30,3064           77651                           VSU                                            
026676,002203: 30,3065           01207                                    CSMPOS                                
026677,002204: 30,3066           37531                           STCALL   RCLP                                  #  RCL=RL-RC
026678,002205: 30,3067           60760                                    S22BOX12                              
026679,002206: 30,3070           66370        S22BOX22           AXT,1    SSP                                   #  CLEAR W6,W7,W8  (27 ELEMENTS 54 REGS)
026680,002207: 30,3071           00066                           DEC      54         B-14                       
026681,002208: 30,3072           00051                                    S1                                    
026682,002209: 30,3073           00006                           DEC      6          B-14                       
026683,002210: 30,3074           77775                           VLOAD                                          
026684,002211: 30,3075           15332                                    ZEROVECS                              
026685,002212: 30,3076           06643        CLRW678            STORE    W          +162D,1                    
026686,002213: 30,3077           67300                           TIX,1    SLOAD                                 
026687,002214: 30,3100           61076                                    CLRW678                               
026688,002215: 30,3101           02007                                    S22WSUBL                              

Page 598

026690,002217: 30,3102           02621                           STORE    W          +144D                      
026691,002218: 30,3103           02631                           STORE    W          +152D                      
026692,002219: 30,3104           02641                           STORE    W          +160D                      
026693,002220: 30,3105           43014                           CLEAR    BOFF                                  #  SET LUNAFLAG, TIME FOR LALOTORV
026694,002221: 30,3106           01663                                    LUNAFLAG                              #  ERADFLAG,LAT,LONG,ALT SET PREVIOUSLY
026695,002222: 30,3107           04343                                    CMOONFLG                              #  CHECK SCALING OF ITEMS,ALT INPUT AND
026696,002223: 30,3110           61113                                    S22BX22A                              #  RL OUTPUT IN ALPHAV BOTH B-29
026697,002224: 30,3111           77614                           SET                                            
026698,002225: 30,3112           01463                                    LUNAFLAG                              
026699,002226: 30,3113           77624        S22BX22A           CALL                                           
026700,002227: 30,3114           61322                                    GETTF                                 
026701,002228: 30,3115           77624                           CALL                                           #  COMPUTE RL
026702,002229: 30,3116           26373                                    LALOTORV                              
026703,002230: 30,3117           43175                           VLOAD    BOFF                                  
026704,002231: 30,3120           02152                                    ALPHAV                                #  RL B-29
026705,002232: 30,3121           04343                                    CMOONFLG                              
026706,002233: 30,3122           61124                                    S22BX22B                              
026707,002234: 30,3123           77752                           VSL2                                           #  SCALE RL B-27 FOR MOON
026708,002235: 30,3124           77650        S22BX22B           GOTO                                           
026709,002236: 30,3125           60744                                    S22BOX32                              
026710,002237: 30,3126           06006        S22F244X           TC       INTPRET                               
026711,002238: 30,3127           46135        S22F244            SLOAD    BHIZ                                  #  FIG 2.4-4     TEST OFF=0
026712,002239: 30,3130           02746                                    CXOFF                                 
026713,002240: 30,3131           61160                                    S22BOX44                              
026714,002241: 30,3132           77776                           EXIT                                           
026715,002242: 30,3133           05301                           TC       PHASCHNG                              
026716,002243: 30,3134           04022                           OCT      04022                                 
026717,002244: 30,3135           06006                           TC       INTPRET                               
026718,002245: 30,3136           77745                           DLOAD                                          
026719,002246: 30,3137           03670                                    S22TOFF                               
026720,002247: 30,3140           34041                           STCALL   TDEC1                                 #  CALC RC AT OFFSET TIME
026721,002248: 30,3141           27022                                    CSMPREC                               
026722,002249: 30,3142           77775                           VLOAD                                          
026723,002250: 30,3143           00017                                    RATT1                                 #  RC METERS B-29 OR B-27
026724,002251: 30,3144           25207                           STOVL    CSMPOS                                
026725,002252: 30,3145           01215                                    S22UOFF                               
026726,002253: 30,3146           25235                           STOVL    UM                                    #  U=UOFF
026727,002254: 30,3147           01701                                    X789                                  
026728,002255: 30,3150           43046                           ABVAL    BOFF                                  
026729,002256: 30,3151           04343                                    CMOONFLG                              
026730,002257: 30,3152           61154                                    +2                                    
026731,002258: 30,3153           77702                           SR2                                            #  SCALE MOON R0 B-29 FOR S22F2410 SUBR
026732,002259: 30,3154           36241                           STCALL   ERADM                                 
026733,002260: 30,3155           61240                                    S22F2410                              
026734,002261: 30,3156           77650                           GOTO                                           
026735,002262: 30,3157           61163                                    S22BX44A                              
026736,002263: 30,3160           77624        S22BOX44           CALL                                           
026737,002264: 30,3161           61322                                    GETTF                                 
026738,002265: 30,3162           03670                           STORE    S22TOFF                               #  PRESENT TIME FOR LAT-LONG SETUP
026739,002266: 30,3163           77214        S22BX44A           CLEAR    VLOAD                                 

Page 599

026741,002268: 30,3164           01663                                    LUNAFLAG                              
026742,002269: 30,3165           01701                                    X789                                  
026743,002270: 30,3166           43014                           BOFF     SET                                   
026744,002271: 30,3167           04343                                    CMOONFLG                              
026745,002272: 30,3170           61173                                    S22BX44B                              
026746,002273: 30,3171           01463                                    LUNAFLAG                              #  SET = 1 FOR LAT-LONG
026747,002274: 30,3172           77742                           VSR2                                           #  SCALE RL MOON B-29 FOR LAT-LONG
026748,002275: 30,3173           16152        S22BX44B           STODL    ALPHAV                                #  RL SCALED B-29 FOR LAT-LONG
026749,002276: 30,3174           03670                                    S22TOFF                               #  EITHER PRESENT OR OFFSET TIME
026750,002277: 30,3175           77624                           CALL                                           
026751,002278: 30,3176           26322                                    LAT-LONG                              #  **** ALT OUTPUT ALWAYS B-29
026752,002279: 30,3177           77624                           CALL                                           #  DISPLAY LAT/LONG/ALT
026753,002280: 30,3200           61336                                    LLASRD                                
026754,002281: 30,3201           77776                           EXIT                                           
026755,002282: 30,3202           33656                           CAF      V06N89B                               
026756,002283: 30,3203           04555                           TC       BANKCALL                              
026757,002284: 30,3204           20624                           CADR     GOFLASH                               
026758,002285: 30,3205           03233                           TC       S22GTP                                #  V34E TERMINATE
026759,002286: 30,3206           03210                           TC       +2                                    #  PROCEED       SAVE LANDING SITE COORD
026760,002287: 30,3207           03224                           TC       S22.981X                              #  RECYCLE       POINT A IN GSOP
026761,002288: 30,3210           06006                           TC       INTPRET                               
026762,002289: 30,3211           70740                           LXC,1    DLOAD*                                
026763,002290: 30,3212           02750                                    S22LOC                                
026764,002291: 30,3213           00001                                    0,1                                   
026765,002292: 30,3214           24007                           STOVL    6D                                    #  6-7D= LANDING SITE TIME FOR R-TO-RP
026766,002293: 30,3215           01701                                    X789                                  
026767,002294: 30,3216           00001                           STORE    0D                                    #  0-5D= LANDING SITE VEC FOR R-TO-RP
026768,002295: 30,3217           45135                           SLOAD    CALL                                  
026769,002296: 30,3220           15330                                    HIDPHALF                              #  ANY NON-ZERO FOR MOON
026770,002297: 30,3221           55366                                    R-TO-RP                               #  CONVERT RLS TO MOON-FIXED COORD
026771,002298: 30,3222           02026                           STORE    RLS                                   #  LANDING SITE VECTOR
026772,002299: 30,3223           77776                           EXIT                                           
026773,002300: 30,3224           06006        S22.981X           TC       INTPRET                               
026774,002301: 30,3225           77624                           CALL                                           
026775,002302: 30,3226           61354                                    9DWTO6DW                              
026776,002303: 30,3227           77776                           EXIT                                           #  GO TO POINT A IN CHAPTER 5
026777,002304: 30,3230           06006        S22EXEX            TC       INTPRET                               #  WITHOUT CONVERTING W
026778,002305: 30,3231           77650                           GOTO                                           
026779,002306: 30,3232           03703                                    S22RTNEX                              
026780,002307: 
026781,002308: 30,3233           06006        S22GTP             TC       INTPRET                               #  CONVERT W BEFORE TC GOTOPOOH
026782,002309: 30,3234           77624                           CALL                                           
026783,002310: 30,3235           61354                                    9DWTO6DW                              
026784,002311: 30,3236           77776                           EXIT                                           
026785,002312: 30,3237           04106                           TC       GOTOPOOH                              
026786,002313: 30,3240           77201        S22F2410           SETPD    VLOAD                                 #  COMPUTE FORMULA 2.4.10
026787,002314: 30,3241           00001                                    0D                                    
026788,002315: 30,3242           01207                                    CSMPOS                                #  RC B-29 EARTH, B-27 MOON
026789,002316: 30,3243           50256                           UNIT     DOT                                   #  UNIT ALSO SETS 36D=ABVAL(RC) USED BELOW
026790,002317: 30,3244           01235                                    UM                                    

Page 600

026792,002319: 30,3245           57552                           SL1      DCOMP                                 #  GSOP CHANGE 8/18/67
026793,002320: 30,3246           77606                           PUSH                                           #  PD 2D 0D=COSA=-(UM.RC)/ABVAL(RC)      B-1
026794,002321: 30,3247           44316                           DSQ      BDSU                                  
026795,002322: 30,3250           21654                                    DEC1B2                                
026796,002323: 30,3251           43125                           PDDL     BOFF                                  #  PD 4D 2D=1-COSA SQ=SINA SQ            B-2
026797,002324: 30,3252           02241                                    ERADM                                 #  R0 ALWAYS B-29 FROM SETRE
026798,002325: 30,3253           04343                                    CMOONFLG                              
026799,002326: 30,3254           61256                                    +2                                    
026800,002327: 30,3255           77712                           SL2                                            #  SCALE R0 B-27 FOR MOON
026801,002328: 30,3256           56362                           SR1R     DDV                                   #  (R0/RC)       B-1
026802,002329: 30,3257           00045                                    36D                                   
026803,002330: 30,3260           45316                           DSQ      DSU                                   #  PD 2D (R0/RC) SQ - SINA SQ            B-2
026804,002331: 30,3261           44366                           SQRT     BDSU                                  #  PD 0D COSA-SQRT((R0/RC)SQ-SINA SQ)    B-1
026805,002332: 30,3262           77605                           DMP                                            #  DMP RESULT B-28 MOON, B-30 EARTH
026806,002333: 30,3263           00045                                    36D                                   #  VXSC RESULT B-29 MOON, B-31 EARTH
026807,002334: 30,3264           00041                           STORE    S22RHO                                #  RHO FOR W INIT. OF UNKNOWN LMK B-28,B-30
026808,002335: 30,3265           77761                           VXSC                                           
026809,002336: 30,3266           01235                                    UM                                    
026810,002337: 30,3267           53352                           VSL2     VAD                                   #  SCALE B-27 MOON, B-29 EARTH AND ADD RC
026811,002338: 30,3270           01207                                    CSMPOS                                
026812,002339: 30,3271           01701                           STORE    X789                                  
026813,002340: 30,3272           77616                           RVQ                                            #  B-27 FOR EARTH OR B-29 FOR MOON
026814,002341: 30,3273           77350        S22CALRC           LXA,1    VLOAD                                 #  COMPUTE RC B-29 OR B-27
026815,002342: 30,3274           03673                                    S22EORM                               #  =0 FOR EARTH, -2 FOR MOON
026816,002343: 30,3275           01573                                    DELTACSM                              
026817,002344: 30,3276           53257                           VSR*     VAD                                   
026818,002345: 30,3277           20610                                    7,1                                   
026819,002346: 30,3300           01607                                    RCVCSM                                
026820,002347: 30,3301           01207                           STORE    CSMPOS                                
026821,002348: 30,3302           77616                           RVQ                                            
026822,002349: 30,3303           00031        S2231X13           STORE    S221X3                                #  MULT 3X1 BY 1X3, STORE RESULTING 3X3 IN
026823,002350: 30,3304           77131                           SSP      AXT,2                                 #  S22UMRL - S22UMRL+17D
026824,002351: 30,3305           00052                                    S2                                    
026825,002352: 30,3306           00002                           DEC      2          B-14                       
026826,002353: 30,3307           00006                           DEC      6          B-14                       
026827,002354: 30,3310           77770                           AXT,1                                          
026828,002355: 30,3311           00022                           DEC      18         B-14                       
026829,002356: 30,3312           73775        S2231NXT           VLOAD    VXSC*                                 
026830,002357: 30,3313           00031                                    S221X3                                
026831,002358: 30,3314           77746                                    S223X1     +6,2                       
026832,002359: 30,3315           07524                           STORE    S22UMRL    +18D,1                     
026833,002360: 30,3316           61110                           INCR,1   TIX,2                                 
026834,002361: 30,3317           77771                           DEC      -6         B-14                       
026835,002362: 30,3320           61312                                    S2231NXT                              
026836,002363: 30,3321           77616                           RVQ                                            
026837,002364: 30,3322           70740        GETTF              LXC,1    DLOAD*                                #  SET MPAC= TF
026838,002365: 30,3323           02750                                    S22LOC                                
026839,002366: 30,3324           00001                                    0,1                                   
026840,002367: 30,3325           77616                           RVQ                                            

Page 601

026842,002369: 30,3326           43014        S22FLGS            SET      SET                                   #  INTEGRATION FLAGS
026843,002370: 30,3327           01476                                    DIM0FLAG                              
026844,002371: 30,3330           01475                                    D6OR9FLG                              
026845,002372: 30,3331           43014                           SET      SET                                   
026846,002373: 30,3332           01474                                    VINTFLAG                              
026847,002374: 30,3333           01472                                    STATEFLG                              
026848,002375: 30,3334           43414                           CLEAR    RVQ                                   
026849,002376: 30,3335           01673                                    INTYPFLG                              
026850,002377: 
026851,002378:                                                                                                  #  SUBROUTINE TO MODIFY ALT AND STORE LAT TO LAT+5 IN LANDLAT TO LANDLAT+5
026852,002379:                                                                                                  #  PRIOR TO DISPLAY.
026853,002380: 
026854,002381: 30,3336           77745        LLASRD             DLOAD                                          #  ALT, LANDALT METERS B-29
026855,002382: 30,3337           01110                                    ALT                                   
026856,002383: 30,3340           16362                           STODL    LANDALT                               
026857,002384: 30,3341           01106                                    LONG                                  
026858,002385: 30,3342           77742                           SR1                                            
026859,002386: 30,3343           02360                           STORE    LANDLONG                              
026860,002387: 30,3344           77616                           RVQ                                            
026861,002388: 
026862,002389:                                                                                                  #  SUBROUTINE TO MODIFY LANDALT AND STORE LANDALT TO LANDALT+5 IN LAT TO
026863,002390:                                                                                                  #  LAT+5 AFTER LMK DATA LOADED BY ASTRONAUT.
026864,002391: 
026865,002392: 30,3345           77745        LLASRDA            DLOAD                                          #  ALT, LANDALT METERS B-29
026866,002393: 30,3346           02362                                    LANDALT                               
026867,002394: 30,3347           15110                           STODL    ALT                                   
026868,002395: 30,3350           02360                                    LANDLONG                              
026869,002396: 30,3351           77752                           SL1                                            
026870,002397: 30,3352           01106                           STORE    LONG                                  
026871,002398: 30,3353           77616                           RVQ                                            
026872,002399: 30,3354           40220        9DWTO6DW           STQ      SETPD                                 
026873,002400: 30,3355           01214                                    9DWXX                                 
026874,002401: 30,3356           00001                                    0D                                    
026875,002402: 30,3357           41575                           VLOAD    PUSH                                  #  CLEAR WORKING AREA OF PUSHLIST
026876,002403: 30,3360           15332                                    HI6ZEROS                              #  INCLUDING P
026877,002404: 30,3361           41406                           PUSH     PUSH                                  #  PD 18D
026878,002405: 30,3362           77731                           SSP                                            
026879,002406: 30,3363           00017                                    9DWJ                                  #  J=29  USE 2*29 FOR DP WORDS
026880,002407: 30,3364           00072                           DEC      58         B-14                       
026881,002408: 30,3365           66150        9DWI=J             LXA,1    SXA,1                                 #  SET I=J
026882,002409: 30,3366           00016                                    9DWJ                                  
026883,002410: 30,3367           00012                                    9DWI                                  
026884,002411: 30,3370           77624        9DWEPCAL           CALL                                           
026885,002412: 30,3371           61606                                    ROWDOT                                
026886,002413: 30,3372           77750                           LXA,1                                          #  P VARIES 0-20 INSTEAD OF 20-0
026887,002414: 30,3373           00010                                    9DWP                                  
026888,002415: 30,3374           06641                           STORE    EMATRIX    +40D,1                     
026889,002416: 30,3375           66110                           INCR,1   SXA,1                                 
026890,002417: 30,3376           00002                           DEC      2          B-14                       
026891,002418: 30,3377           00010                                    9DWP                                  
026892,002419: 30,3400           46135                           SLOAD    BHIZ                                  #  TEST I=0

Page 602

026894,002421: 30,3401           00013                                    9DWI                                  
026895,002422: 30,3402           61417                                    9DWTESTJ                              
026896,002423: 30,3403           77625                           DSU                                            #  I=I-1
026897,002424: 30,3404           21646                                    9DWID                                 
026898,002425: 30,3405           00013                           STORE    9DWI                                  
026899,002426: 30,3406           46025                           DSU      BHIZ                                  #  TEST I=26
026900,002427: 30,3407           21644                                    9DW26D                                
026901,002428: 30,3410           61413                                    9DWSETI2                              
026902,002429: 30,3411           77650                           GOTO                                           #  NEXT E SUB P
026903,002430: 30,3412           61370                                    9DWEPCAL                              
026904,002431: 30,3413           52131        9DWSETI2           SSP      GOTO                                  #  I=2
026905,002432: 30,3414           00013                                    9DWI                                  
026906,002433: 30,3415           00004                           DEC      4          B-14                       
026907,002434: 30,3416           61370                                    9DWEPCAL                              
026908,002435: 30,3417           46135        9DWTESTJ           SLOAD    BHIZ                                  #  TEST J=0
026909,002436: 30,3420           00017                                    9DWJ                                  
026910,002437: 30,3421           61436                                    9DWFIG6                               
026911,002438: 30,3422           77625                           DSU                                            
026912,002439: 30,3423           21646                                    9DWID                                 
026913,002440: 30,3424           00017                           STORE    9DWJ                                  #  J=J-1
026914,002441: 30,3425           46025                           DSU      BHIZ                                  #  TEST J=26
026915,002442: 30,3426           21644                                    9DW26D                                
026916,002443: 30,3427           61432                                    9DWSETJ2                              
026917,002444: 30,3430           77650                           GOTO                                           
026918,002445: 30,3431           61365                                    9DWI=J                                
026919,002446: 30,3432           52131        9DWSETJ2           SSP      GOTO                                  #  SET J=2
026920,002447: 30,3433           00017                                    9DWJ                                  
026921,002448: 30,3434           00004                           DEC      4          B-14                       
026922,002449: 30,3435           61365                                    9DWI=J                                
026923,002450: 30,3436           77624        9DWFIG6            CALL                                           
026924,002451: 30,3437           56741                                    GRP2PC                                
026925,002452: 30,3440           77331                           SSP      VLOAD                                 #  START OF FIGURE 2.4-6
026926,002453: 30,3441           00017                                    9DWJ                                  #  J=29
026927,002454: 30,3442           00072                           DEC      58         B-14                       
026928,002455: 30,3443           15332                                    HI6ZEROS                              
026929,002456: 30,3444           00011                           STORE    9DWP                                  #  P,N,I=0
026930,002457: 30,3445           66370                           AXT,1    SSP                                   
026931,002458: 30,3446           00154                           DEC      108        B-14                       #  CLEAR WO TO W54
026932,002459: 30,3447           00051                                    S1                                    
026933,002460: 30,3450           00006                                    6                                     
026934,002461: 30,3451           06555        CLEARW54           STORE    W          +108D,1                    
026935,002462: 30,3452           77700                           TIX,1                                          
026936,002463: 30,3453           61451                                    CLEARW54                              
026937,002464: 30,3454           66150        9DWI=JA            LXA,1    SXA,1                                 #  I=J
026938,002465: 30,3455           00016                                    9DWJ                                  
026939,002466: 30,3456           00012                                    9DWI                                  
026940,002467: 30,3457           77624                           CALL                                           
026941,002468: 30,3460           61606                                    ROWDOT                                
026942,002469: 30,3461           43750                           LXA,1    BDSU*                                 
026943,002470: 30,3462           00010                                    9DWP                                  

Page 603

026945,002472: 30,3463           02641                                    EMATRIX    +40D,1                     
026946,002473: 30,3464           66110                           INCR,1   SXA,1                                 #  -(P+1)
026947,002474: 30,3465           00002                                    2                                     
026948,002475: 30,3466           00010                                    9DWP                                  
026949,002476: 30,3467           54140                           LXC,1    XSU,1                                 #  -(I+N)
026950,002477: 30,3470           00012                                    9DWI                                  
026951,002478: 30,3471           00014                                    9DWN                                  
026952,002479: 30,3472           71244                           BPL      DLOAD                                 #  TEST WSQ LTE 0
026953,002480: 30,3473           61477                                    9DWAAA                                
026954,002481: 30,3474           15332                                    HI6ZEROS                              #  W=0
026955,002482: 30,3475           77650                           GOTO                                           
026956,002483: 30,3476           61500                                    9DWAAB                                
026957,002484: 30,3477           77766        9DWAAA             SQRT                                           #  W= SQRT(WSQ)
026958,002485: 30,3500           06401        9DWAAB             STORE    W,1                                   
026959,002486: 30,3501           14001                           STODL    WORKW                                 
026960,002487: 30,3502           00017                                    9DWJ                                  #  TEST J=0
026961,002488: 30,3503           77630                           BHIZ                                           
026962,002489: 30,3504           61572                                    9DWEXITX                              #  EXIT
026963,002490: 30,3505           46135        TST2I=0            SLOAD    BHIZ                                  #  TEST I=0
026964,002491: 30,3506           00013                                    9DWI                                  
026965,002492: 30,3507           61550                                    9DWN=N+3                              
026966,002493: 30,3510           77625                           DSU                                            
026967,002494: 30,3511           21646                                    9DWID                                 
026968,002495: 30,3512           00013                           STORE    9DWI                                  #  I=I-1
026969,002496: 30,3513           46025                           DSU      BHIZ                                  #  TEST I=26
026970,002497: 30,3514           21644                                    9DW26D                                
026971,002498: 30,3515           61520                                    9DWAAC                                
026972,002499: 30,3516           77650                           GOTO                                           
026973,002500: 30,3517           61523                                    9DWNEXEP                              
026974,002501: 30,3520           77731        9DWAAC             SSP                                            #  I=2
026975,002502: 30,3521           00013                                    9DWI                                  
026976,002503: 30,3522           00004                                    4                                     
026977,002504: 30,3523           77624        9DWNEXEP           CALL                                           
026978,002505: 30,3524           61606                                    ROWDOT                                
026979,002506: 30,3525           43750                           LXA,1    BDSU*                                 #  (EP-ROWI*ROWJ)/W
026980,002507: 30,3526           00010                                    9DWP                                  
026981,002508: 30,3527           02641                                    EMATRIX    +40D,1                     
026982,002509: 30,3530           62071                           DDV      INCR,1                                #  P=P+1
026983,002510: 30,3531           00001                                    WORKW                                 
026984,002511: 30,3532           00002                                    2                                     
026985,002512: 30,3533           70130                           SXA,1    LXC,1                                 
026986,002513: 30,3534           00010                                    9DWP                                  
026987,002514: 30,3535           00012                                    9DWI                                  
026988,002515: 30,3536           40060                           XSU,1    BOV                                   #  -(I+N)
026989,002516: 30,3537           00014                                    9DWN                                  
026990,002517: 30,3540           61543                                    SETWIN=0                              
026991,002518: 30,3541           77650                           GOTO                                           
026992,002519: 30,3542           61545                                    9DWSETWX                              
026993,002520: 30,3543           77745        SETWIN=0           DLOAD                                          #  W(I+N)=0
026994,002521: 30,3544           15332                                    HI6ZEROS                              

Page 604

026996,002523: 30,3545           06401        9DWSETWX           STORE    W,1                                   
026997,002524: 30,3546           77650                           GOTO                                           
026998,002525: 30,3547           61505                                    TST2I=0                               
026999,002526: 30,3550           62150        9DWN=N+3           LXA,1    INCR,1                                #  N=N+3
027000,002527: 30,3551           00014                                    9DWN                                  
027001,002528: 30,3552           00006                                    6                                     
027002,002529: 30,3553           67330                           SXA,1    SLOAD                                 #  J=J-1
027003,002530: 30,3554           00014                                    9DWN                                  
027004,002531: 30,3555           00017                                    9DWJ                                  
027005,002532: 30,3556           77625                           DSU                                            
027006,002533: 30,3557           21646                                    9DWID                                 
027007,002534: 30,3560           00017                           STORE    9DWJ                                  
027008,002535: 30,3561           46025                           DSU      BHIZ                                  #  TEST J=26
027009,002536: 30,3562           21644                                    9DW26D                                
027010,002537: 30,3563           61566                                    SETJ=2A                               
027011,002538: 30,3564           77650                           GOTO                                           
027012,002539: 30,3565           61454                                    9DWI=JA                               
027013,002540: 30,3566           52131        SETJ=2A            SSP      GOTO                                  #  J=2
027014,002541: 30,3567           00017                                    9DWJ                                  
027015,002542: 30,3570           00004                                    4                                     
027016,002543: 30,3571           61454                                    9DWI=JA                               
027017,002544: 30,3572           77624        9DWEXITX           CALL                                           
027018,002545: 30,3573           56741                                    GRP2PC                                
027019,002546: 30,3574           66370                           AXT,1    SSP                                   #  CLEAR W6,W7,W8 USED TEMP FOR EMATRIX
027020,002547: 30,3575           00066                           DEC      54         B-14                       
027021,002548: 30,3576           00051                                    S1                                    
027022,002549: 30,3577           00006                                    6                                     
027023,002550: 30,3600           77775                           VLOAD                                          
027024,002551: 30,3601           15332                                    HI6ZEROS                              
027025,002552: 30,3602           06643        9DWEXXXA           STORE    W          +162D,1                    
027026,002553: 30,3603           52100                           TIX,1    GOTO                                  
027027,002554: 30,3604           61602                                    9DWEXXXA                              
027028,002555: 30,3605           01214                                    9DWXX                                 
027029,002556: 30,3606           40131        ROWDOT             SSP      BOV                                   
027030,002557: 30,3607           00007                                    XTMP1                                 
027031,002558: 30,3610           00377                           OCT      377                                   
027032,002559: 30,3611           61612                                    +1                                    
027033,002560: 30,3612           71140                           LXC,1    LXC,2                                 
027034,002561: 30,3613           00012                                    9DWI                                  
027035,002562: 30,3614           00016                                    9DWJ                                  
027036,002563: 30,3615           41545                           DLOAD    PUSH                                  
027037,002564: 30,3616           15332                                    HI6ZEROS                              
027038,002565: 30,3617           56743        ROWDOT1            DLOAD*   DMPR*                                 
027039,002566: 30,3620           02401                                    W,1                                   
027040,002567: 30,3621           75376                                    W,2                                   
027041,002568: 30,3622           41415                           DAD      PUSH                                  
027042,002569: 30,3623           62000                           BOV      INCR,1                                
027043,002570: 30,3624           61640                                    ROWDOT3                               
027044,002571: 30,3625           77771                           DEC      -6         B-14                       
027045,002572: 30,3626           67314                           INCR,2   SLOAD                                 

Page 605

027047,002574: 30,3627           77771                           DEC      -6         B-14                       
027048,002575: 30,3630           00007                                    XTMP1                                 
027049,002576: 30,3631           70430                           BHIZ     SR1                                   
027050,002577: 30,3632           61636                                    ROWDOT2                               
027051,002578: 30,3633           00007                           STORE    XTMP1                                 
027052,002579: 30,3634           77650                           GOTO                                           
027053,002580: 30,3635           61617                                    ROWDOT1                               
027054,002581: 30,3636           77745        ROWDOT2            DLOAD                                          
027055,002582: 30,3637           77616                           RVQ                                            
027056,002583: 30,3640           77614        ROWDOT3            CLRGO                                          
027057,002584: 30,3641           01631                                    ORBWFLAG                              
027058,002585: 30,3642           61636                                    ROWDOT2                               
027059,002586: 30,3643                        WORKW              =        0D                                    
027060,002587: 30,3643                        XTMP1              =        6D                                    
027061,002588: 30,3643                        9DWP               =        8D                                    #  P
027062,002589: 30,3643                        9DWI               =        10D                                   #  I
027063,002590: 30,3643                        9DWN               =        12D                                   #  N
027064,002591: 30,3643                        9DWJ               =        14D                                   #  J
027065,002592: 30,3643     1214               9DWXX              =        S22UOFF                               
027066,002593: 30,3643  E7,1501               S22UMRL            =        BVECTOR                               #  18
027067,002594: 30,3643     1256               S22UUT             =        DELTAX                                #  18
027068,002595: 30,3643                        S223X1             =        18D                                   #  6
027069,002596: 30,3643                        S221X3             =        24D                                   #  6
027070,002597: 30,3643                        S22D               =        30D                                   #  2
027071,002598: 30,3643                        S22RHO             =        32D                                   #  2
027072,002599: 30,3643  E5,1634               S22RL              =        W          +156D                      #  6
027073,002600: 
027074,002601: 30,3643           00064 00000  9DW26D             2DEC     52         B-14                       
027075,002602: 30,3645           00002 00000  9DWID              2DEC     2          B-14                       
027076,002603: 30,3647           10306 36750  SCTVAR             2DEC     1.0        E-6        B+18            
027077,002604: 30,3651           00253 31436  IMUVARR            2DEC     0.04       E-6        B+18            
027078,002605: 30,3653           10000 00000  DEC1B2             2DEC     1          B-2                        
027079,002606: 
027080,002607: 30,3655           01461        V06N49EE           VN       00649                                 
027081,002608: 30,3656           01531        V06N89B            VN       00689                                 
027082,002609: 30,3657     1214               S22UOFF            =        LEMPOS                                #  6     U SUB OFF
027083,002610: 23,2000                                           SETLOC   P20S2                                 
027084,002611: 23,2000                                           BANK                                           

Page 606 Nothing on this page. — RSB 2004.

027087,002614: 

Page 607

027089,002616:                                                                                                  #  SUBROUTINE NAME:  V89CALL
027090,002617:                                                                                                  #  MOD NO:  0                                    DATE: 8 FEB 1968
027091,002618:                                                                                                  #  MOD BY:  DIGITAL DEVEL GROUP                  LOG SECTION:  P20-P25
027092,002619: 
027093,002620:                                                                                                  #  FUNCTIONAL DESCRIPTION:
027094,002621: 
027095,002622:                                                                                                  #  CALLED BY VERB 89 ENTER DURING P00.  PRIO 10 USED.  CALCULATES AND
027096,002623:                                                                                                  #  DISPLAYS FINAL GIMBAL ANGLES TO POINT CSM +X AXIS OR PREFERRED AXIS
027097,002624:                                                                                                  #  (UNIT(Z)COS55 DEG + UNIT(X)SIN55 DEG) AT LM.
027098,002625: 
027099,002626:                                                                                                  #  1. KEY IN V89 E ONLY IF IN PROG 00. IF NOT IN P00, OPERATOR ERROR AND
027100,002627:                                                                                                  #  EXIT R63, OTHERWISE CONTINUE.
027101,002628: 
027102,002629:                                                                                                  #  2. IF IN P00, DO IMU STATUS CHECK (R02BOTH).  IF IMU ON AND ITS
027103,002630:                                                                                                  #  ORIENTATION KNOWN TO CGC, CONTINUE.
027104,002631: 
027105,002632:                                                                                                  #  3. FLASH DISPLAY V 04 N 06.  R2 INDICATES WHICH SPACECRAFT AXIS IS TO
027106,002633:                                                                                                  #  BE POINTED AT LM.  INITIAL CHOICE IS PREFERRED AXIS.  (R2=1).
027107,002634:                                                                                                  #  ASTRONAUT CAN CHANGE TO (+X) AXIS (R2 NOT= 1) BY V22 E 2 E.  CONTINUE
027108,002635:                                                                                                  #  AFTER KEYING IN PROCEED.
027109,002636: 
027110,002637:                                                                                                  #  4. SET PREFERRED ATTITUDE FLAG ACCORDING TO OPTION DESIRED.  SET FLAG
027111,002638:                                                                                                  #  FOR PREFERRED AXIS.  RESET FLAG FOR X AXIS.
027112,002639: 
027113,002640:                                                                                                  #  5. CURRENT TIME IS STORED AND R63COMP IS CALLED
027114,002641: 
027115,002642:                                                                                                  #        R63COMP JOB:
027116,002643:                                                                                                  #        
027117,002644:                                                                                                  #                UPDATES CSM AND LM STATE VECTORS USING CONIC EQUATIONS
027118,002645: 
027119,002646:                                                                                                  #                CALCULATES BOTH PREFERRED AND X AXIS TRACKING ATT FROM 3SM TO LM.
027120,002647: 
027121,002648:                                                                                                  #                DESIRED GIMBAL ANGLES AS INDICATED BY PREFERRED ATTITUDE FLAG
027122,002649:                                                                                                  #                ARE STORED FOR LATER R60CSM CALL.
027123,002650: 
027124,002651:                                                                                                  #  6. FLASH DISPLAY V 06 N18 AND AWAIT RESPONSE.
027125,002652: 
027126,002653:                                                                                                  #  7. RECYCLE- RETURN TO STEP 5.
027127,002654:                                                                                                  #     TERMINATE- EXIT R63 ROUTINE
027128,002655:                                                                                                  #     PROCEED-  RESET 3AXISFLG AND CALL R60CSM FOR ATTITUDE MANEUVER.
027129,002656: 
027130,002657:                                                                                                  #  CALLING SEQUENCE:     V 89 E
027131,002658: 
027132,002659:                                                                                                  #  SUBROUTINES CALLED:  CHKPOOH, R02BOTH, GOXDSPF, R63COMP, R60CSM
027133,002660: 
027134,002661:                                                                                                  #  ALARMS        1.  OPERATOR ERROR IF NOT IN P00
027135,002662:                                                                                                  #                2.  PROGRAM ALARM IF IMU IS OFF
027136,002663:                                                                                                  #                3.  PROGRAM ALARM IF IMU ORIENTATION IS UNKNOWN

Page 608

027138,002665: 
027139,002666:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED:  NONE
027140,002667: 
027141,002668:                                                                                                  #  DEBRIS:  OPTION1, OPTION1+1, PRFTRKAT(PREF ATT FLAG), P21TIME, 3AXISFLG
027142,002669: 
027143,002670: 23,3136           00000 13560  DP1MIN             2DEC     6000       B-28                       
027144,002671: 
027145,002672: 23,3140  E4,1715                                  EBANK=   P21TIME                               
027146,002673: 34,3601                                           BANK     34                                    
027147,002674: 34,2000                                           SETLOC   P20S4                                 
027148,002675: 34,2000                                           BANK                                           
027149,002676: 34,3601                                           COUNT*   $$/R63                                
027150,002677: 34,3601           04555        V89CALL            TC       BANKCALL                              #  IMU STATUS CHECK. RETURNS IF ORIENTATION
027151,002678: 34,3602           17573                           CADR     R02BOTH                               #  KNOWN.  ALARMS IF NOT.
027152,002679: 34,3603           36214                           CAF      THREE                                 #  ALLOW ASTRONAUT TO SELECT DESIRED
027153,002680: 34,3604           55131                           TS       OPTION1                               #  TRACKING ATTITUDE AXIS.
027154,002681: 34,3605           34712                           CAF      ONE                                   
027155,002682: 34,3606           55132                           TS       OPTION1    +1                         
027156,002683: 34,3607           33650                           CAF      VB04N06                               #  V 04 N 06
027157,002684: 34,3610           04555                           TC       BANKCALL                              
027158,002685: 34,3611           20624                           CADR     GOFLASH                               
027159,002686: 34,3612           05423                           TC       ENDEXT                                #  TERMINATE
027160,002687: 34,3613           03615                           TC       +2                                    #  PROCEED
027161,002688: 34,3614           03607                           TC       -5                                    #  DATA IN.  OPTION1 +1 = 1 FOR PREF AXIS
027162,002689:                                                                                                  #                       = 2 FOR X AXIS
027163,002690: 34,3615           41132                           CS       OPTION1    +1                         #  1 FOR PREF AXIS.  2 FOR X AXIS.
027164,002691: 34,3616           64712                           AD       ONE                                   
027165,002692: 34,3617           00006                           EXTEND                                         
027166,002693: 34,3620           13645                           BZF      SETPAF                                
027167,002694: 34,3621           05447        RSTPAF             TC       DOWNFLAG                              #  RESET PREF ATT FLAG FOR R63COMP
027168,002695: 34,3622           00120                           ADRES    RNGSCFLG                              #  TO DO X AXIS.  RESET BIT 10 FLAG 5
027169,002696: 34,3623           06006        V89RECL            TC       INTPRET                               
027170,002697: 34,3624           43234                           RTB      DAD                                   
027171,002698: 34,3625           45505                                    LOADTIME                              #  READ PRESENT TIME
027172,002699: 34,3626           07137                                    DP1MIN                                #  INTEGRATE TO 1 MIN FROM NOW
027173,002700: 34,3627           36316                           STCALL   P21TIME                               #  STORE TIME FOR CALL TO R63COMP.  R63COMP
027174,002701: 34,3630           71461                                    R63COMP                               #  LEAVES DESIRED GIM ANGS IN THETAD, LOS IN
027175,002702: 34,3631           77776                           EXIT                                           #  POINTVSM, AND SELECTED AXIS IN SCAXIS.
027176,002703: 34,3632           33651                           CAF      VB06N18                               #  V 06 N 18
027177,002704: 34,3633           04555                           TC       BANKCALL                              #  NOUN 18 REFERS TO THE DESIRED GIMBAL
027178,002705: 34,3634           20624                           CADR     GOFLASH                               
027179,002706: 34,3635           05423                           TC       ENDEXT                                #  TERMINATE
027180,002707: 34,3636           03640                           TC       +2                                    #  PROCEED
027181,002708: 34,3637           03623                           TC       V89RECL                               #  RECYCLE
027182,002709: 34,3640           05447                           TC       DOWNFLAG                              #  RESET 3 AXIS FLAG
027183,002710: 34,3641           00124                           ADRES    3AXISFLG                              #  RESET BIT 6 FLAG 5

Page 609

027185,002712: 34,3642           04555                           TC       BANKCALL                              #  PERFORMS CSM MANEUVER TO ALIGN SELECTED
027186,002713: 34,3643           56000                           CADR     R60CSM                                #  SPACECRAFT AXIS TO LOS.
027187,002714: 34,3644           15423                           TCF      ENDEXT                                
027188,002715: 34,3645           05435        SETPAF             TC       UPFLAG                                #  SET PREFERRED ATT FLAG FOR R63COMP
027189,002716: 34,3646           00120                           ADRES    RNGSCFLG                              #  TO DO PREF AXIS.  SET BIT 10 FLAG 5.
027190,002717: 34,3647           03623                           TC       V89RECL                               
027191,002718: 34,3650           01006        VB04N06            VN       0406                                  
027192,002719: 34,3651           01422        VB06N18            VN       0618                                  
027193,002720: 
027194,002721: 34,3652  34,3461               R63COMP            EQUALS   R63                                   
027195,002722: 

Page 610

027197,002724:                                                                                                  #  PROGRAM NAME-  P23 CISLUNAR MIDCOURSE NAVIGATION
027198,002725:                                                                                                  #  MOD NO
027199,002726:                                                                                                  #  MOD BY-  TOM KNATT
027200,002727: 
027201,002728:                                                                                                  #  FUNCTIONAL DESCRIPTION-  DO MIDCOURSE NAVIGATION BY INCORPORATION OF STAR
027202,002729:                                                                                                  #  /EARTH AND STAR/MOON OPTICAL MEASUREMENTS.
027203,002730: 
027204,002731:                                                                                                  #  CALLING SEQUENCE-  ASTRONAUT OPERATED
027205,002732: 
027206,002733:                                                                                                  #  SUBROUTINES CALLED-  R52,R53,R57,R60,ORBITAL INTEGRATION (INTEGRV)
027207,002734:                                                                                                  #  INCORP1,INCORP2,LALOTORV,LUNLMKLD, AND DISPLAY INTERFACE ROUTINES.
027208,002735: 
027209,002736:                                                                                                  #  NORMAL EXIT MODES-  VIA ROO
027210,002737: 
027211,002738:                                                                                                  #  ALARMS-  NONE
027212,002739: 
027213,002740:                                                                                                  #  ABORT MODES-  NONE
027214,002741: 
027215,002742:                                                                                                  #  ERASABLE INITIALIZATION REQUIRED-  PAD-LOADED ERASABLES, ORBWFLAG RESET,
027216,002743:                                                                                                  #  REFSMFLG=0 IF IMU OFF AND REFSMFLG=1 IF IMU ON
027217,002744: 
027218,002745:                                                                                                  #  INPUTS BY USER REQUIRED-  STAR NUMBER, LANDMARK LAT, LONG/2, ALT OR ID NUMB.
027219,002746:                                                                                                  #  IF LANDMARK IS USED, NEAR OR FAR HORIZON IF HORIZON IS USED, AND 
027220,002747:                                                                                                  #  BODY TO BE MARKED ON (EARTH OR MOON).  SEE GSOP CHAPT 4.
027221,002748: 
027222,002749:                                                                                                  #  OUTPUT-  UPDATED CMC STATE VECTOR.  VECTOR FROM S/C TO HORIZON OR LANDMARK
027223,002750:                                                                                                  #  IN POINTAXS.  POINTAXS CAN BE USED TO GENERATE THIS VECTOR APART FROM
027224,002751:                                                                                                  #  P23 IF DESIRED.
027225,002752: 
027226,002753:                                                                                                  #  DEBRIS-  NO USABLE DEBRIS IS GENERATED.  RENDWFLG IS RESET FOR P20 UPON
027227,002754:                                                                                                  #  COMPLETION OF P23.  RUPTREGS AND ERASABLES USED BY DISPLAYS ARE DEBRIS
027228,002755: 
027229,002756: 31,2021                                           BANK     31                                    
027230,002757: 31,2000                                           SETLOC   RT23                                  
027231,002758: 31,2000                                           BANK                                           
027232,002759: 31,2021                                           COUNT    31/S23                                
027233,002760: 31,2021  E5,1400                                  EBANK=   W                                     
027234,002761: 31,2021           05447        P23                TC       DOWNFLAG                              
027235,002762: 31,2022           00010                           ADRES    RNDVZFLG                              
027236,002763: 
027237,002764: 31,2023           05261                           TC       2PHSCHNG                              
027238,002765: 31,2024           00004                           OCT      00004                                 #  LEAVE GROUP 4
027239,002766: 31,2025           00012                           OCT      00012                                 #  ENTER GROUP 2
027240,002767: 31,2026           34760                           CAF      PRIO13                                
027241,002768: 31,2027           55056                           TS       PHSPRDT2                              
027242,002769: 31,2030           06006                           TC       INTPRET                               
027243,002770: 31,2031           43131                           SSP      CLEAR                                 
027244,002771: 31,2032           00302                                    MARKINDX                              
027245,002772: 31,2033           00001                                    1                                     
027246,002773: 31,2034           00666                                    TARG2FLG                              #  TARGET FLAG USED BY R52 AND R53
027247,002774: 31,2035           66214                           CLEAR    SSP                                   
027248,002775: 31,2036           00665                                    TARG1FLG                              
027249,002776: 31,2037           00305                                    STARIND                               
027250,002777: 31,2040           00000                                    0                                     
027251,002778: 31,2041           43131                           SSP      CLEAR                                 
027252,002779: 31,2042           00303                                    BESTI                                 
027253,002780: 31,2043           00000                                    0                                     
027254,002781: 31,2044           03267                                    R57FLAG                               #  SET = DO NOT REPERFORM R57
027255,002782: 31,2045           77414                           CLEAR    EXIT                                  
027256,002783: 31,2046           04664                                    V94FLAG                               #  SET = ALLOW V94
027257,002784: 31,2047           06006        P23.00             TC       INTPRET                               

Page 611

027259,002786: 31,2050           45014                           BON      CALL                                  
027260,002787: 31,2051           01702                                    REFSMFLG                              #  SET NOW AS INPUT, NORMALLY EXTERNAL CONT
027261,002788: 31,2052           62060                                    P23.05                                #  WHEN ALIGNED, PERFORM MEASUREMENT
027262,002789: 31,2053           76360                                    R57                                   #  DO OPTICS CALIBRATION IF IMU NOT ALIGNED
027263,002790: 31,2054           77624                           CALL                                           
027264,002791: 31,2055           31322                                    R53                                   
027265,002792: 31,2056           77650                           GOTO                                           
027266,002793: 31,2057           62236                                    P23.60                                
027267,002794: 31,2060           77414        P23.05             CLEAR    EXIT                                  
027268,002795: 31,2061           04665                                    SAVECFLG                              #  USED TO SAVE SPACE IN P23.65
027269,002796: 31,2062           33050                           CAF      V05N70                                #  REQUEST RESPONSE AND DISPLAY MEASUREMENT
027270,002797: 31,2063           04555                           TC       BANKCALL                              #  IDENTIFICATION-  STAR, LMK, HOR  IDENT.
027271,002798: 31,2064           20624                           CADR     GOFLASH                               
027272,002799: 31,2065           04106                           TC       GOTOPOOH                              #  TERMINATE
027273,002800: 31,2066           02070                           TC       P23.15                                
027274,002801: 31,2067           02062                           TC       -5                                    #  REDISPLAY
027275,002802: 31,2070           31751        P23.15             CA       LANDMARK                              #  IF C=2, LUNAFLAG=1.  IF C=1, LUNAFLAG=0
027276,002803: 31,2071           00006                           EXTEND                                         
027277,002804: 31,2072           12074                           BZF      +2                                    
027278,002805: 31,2073           02075                           TC       +2                                    
027279,002806: 31,2074           31752                           CA       HORIZON                               #  SET LUNAFLAG FROM HORIZON OR LANDMARK
027280,002807: 31,2075           74703                           MASK     BIT8                                  
027281,002808: 31,2076           00006                           EXTEND                                         
027282,002809: 31,2077           12104                           BZF      P23.16                                
027283,002810: 31,2100           06006                           TC       INTPRET                               
027284,002811: 31,2101           52014                           SET      GOTO                                  
027285,002812: 31,2102           01463                                    LUNAFLAG                              
027286,002813: 31,2103           62107                                    P23.17                                
027287,002814: 31,2104           06006        P23.16             TC       INTPRET                               
027288,002815: 31,2105           77614                           CLEAR                                          
027289,002816: 31,2106           01663                                    LUNAFLAG                              
027290,002817: 31,2107           41535        P23.17             SLOAD    PUSH                                  
027291,002818: 31,2110           00736                                    STARCODE                              
027292,002819: 31,2111           41335                           SLOAD    DMP                                   
027293,002820: 31,2112           23055                                    SPSIX                                 
027294,002821: 31,2113           66150                           LXA,1    SXA,1                                 
027295,002822: 31,2114           00155                                    MPAC       +1                         
027296,002823: 31,2115           00302                                    BESTI                                 #  BESTI = 6 X STAR NUMBER
027297,002824: 31,2116           77624                           CALL                                           
027298,002825: 31,2117           30000                                    LOWMEMRY                              #  NEEDED TO RETRIEVE STAR VECTOR FROM LOW
027299,002826: 31,2120           02617                           STORE    STARSAV2                              #  STORE FOR R53,P23.  US(IN P23)=STARSAV2
027300,002827: 31,2121           77776                           EXIT                                           
027301,002828: 31,2122           31751                           CA       LANDMARK                              
027302,002829: 31,2123           73052                           MASK     OCT00077                              
027303,002830: 31,2124           55753                           TS       IDOFLMK                               #  FOR R3(DE) LUNAFLAG ALREADY SET
027304,002831: 31,2125           31752                           CA       HORIZON                               
027305,002832: 31,2126           00006                           EXTEND                                         
027306,002833: 31,2127           12144                           BZF      P23.12                                
027307,002834: 31,2130           74706                           MASK     BIT5                                  #  IF D=1,NORFHOR=0(NEAR).  D=2,NORFHOR=1,FAR
027308,002835: 31,2131           00006                           EXTEND                                         

Page 612

027310,002837: 31,2132           12137                           BZF      P23.18                                
027311,002838: 31,2133           06006                           TC       INTPRET                               
027312,002839: 31,2134           52014                           SET      GOTO                                  
027313,002840: 31,2135           00064                                    NORFHOR                               
027314,002841: 31,2136           62142                                    P23.19                                
027315,002842: 31,2137           06006        P23.18             TC       INTPRET                               
027316,002843: 31,2140           77614                           CLEAR                                          
027317,002844: 31,2141           00264                                    NORFHOR                               
027318,002845: 31,2142           77776        P23.19             EXIT                                           
027319,002846: 31,2143           02156                           TC       P23.30                                
027320,002847: 31,2144           31753        P23.12             CA       IDOFLMK                               #  IF R2(DE) NONZERO, LMK IS IDENTIFIED
027321,002848: 31,2145           00006                           EXTEND                                         
027322,002849: 31,2146           12150                           BZF      P23.20                                #  LANDMARK NOT IDENTIFIED
027323,002850: 31,2147           02156                           TC       P23.30                                #  LANDMARK IS IDENTIFIED
027324,002851: 31,2150           33047        P23.20             CAF      V6N89                                 #  REQUEST RESPONSE AND DISPLAY LMK DATA
027325,002852: 31,2151           04555                           TC       BANKCALL                              #  R1=LAT,R2=LONG/2,R3=ALT
027326,002853: 31,2152           20624                           CADR     GOFLASH                               
027327,002854: 31,2153           04106                           TC       GOTOPOOH                              #  TERMINATE
027328,002855: 31,2154           02156                           TC       P23.30                                
027329,002856: 31,2155           02150                           TC       P23.20                                #  STORE NEW DATA AND REDISPLAY
027330,002857: 31,2156           06006        P23.30             TC       INTPRET                               
027331,002858: 31,2157           77414                           BON      EXIT                                  
027332,002859: 31,2160           04705                                    SAVECFLG                              
027333,002860: 31,2161           62265                                    P23.85                                
027334,002861: 31,2162           33053                           CAF      V50N25P                               
027335,002862: 31,2163           04555                           TC       BANKCALL                              
027336,002863: 31,2164           20751                           CADR     GOPERF1                               #  GOPERF1 BLANKS OUT R2 AND R3.
027337,002864: 31,2165           04106                           TC       GOTOPOOH                              
027338,002865: 31,2166           02173                           TC       V94ENTER                              #  PROCEED.  AUTOCONTROL CMC
027339,002866: 31,2167           02170                           TC       P23.55                                #  ENTER.  MANUAL CONTROL
027340,002867: 31,2170           06006        P23.55             TC       INTPRET                               
027341,002868: 31,2171           77650                           GOTO                                           
027342,002869: 31,2172           62224                                    P23.56                                
027343,002870: 
027344,002871:                                                                                                  #  VERB 94 BEGINS HERE
027345,002872: 31,2173           06006        V94ENTER           TC       INTPRET                               
027346,002873: 31,2174           77634                           RTB                                            
027347,002874: 31,2175           45505                                    LOADTIME                              #  READ CLOCK
027348,002875: 31,2176           35225                           STCALL   MARKTIME                              
027349,002876: 31,2177           62272                                    POINTAXS                              #  RETURN LOS IN RCLL AND MPAC
027350,002877: 31,2200           53521                           MXV      UNIT                                  
027351,002878: 31,2201           01736                                    REFSMMAT                              
027352,002879: 31,2202           27357                           STOVL    POINTVSM                              
027353,002880: 31,2203           23056                                    JCAXIS                                
027354,002881: 31,2204           03351                           STORE    SCAXIS                                
027355,002882: 31,2205           77776                           EXIT                                           
027356,002883: 31,2206           05447                           TC       DOWNFLAG                              #  CLEAR AND GO TO VECPOINT IN R60
027357,002884: 31,2207           00124                           ADRES    3AXISFLG                              #  BIT 6 FLAG 5
027358,002885: 31,2210           33063                           CAF      R60ADRS                               
027359,002886: 31,2211           54374                           TS       TEMPFLSH                              
027360,002887: 31,2212           05301                           TC       PHASCHNG                              

Page 613

027362,002889: 31,2213           00012                           OCT      00012                                 
027363,002890: 31,2214           04555        R60CALL            TC       BANKCALL                              
027364,002891: 31,2215           56000                           CADR     R60CSM                                
027365,002892: 31,2216           05301                           TC       PHASCHNG                              
027366,002893: 31,2217           04022                           OCT      04022                                 
027367,002894: 31,2220           06006                           TC       INTPRET                               
027368,002895: 31,2221           77614                           BON                                            
027369,002896: 31,2222           03307                                    R57FLAG                               
027370,002897: 31,2223           62226                                    P23.57                                #  DO NOT REPERFORM R57
027371,002898: 31,2224           77624        P23.56             CALL                                           
027372,002899: 31,2225           76360                                    R57                                   
027373,002900: 31,2226           43014        P23.57             SET      SET                                   
027374,002901: 31,2227           04464                                    V94FLAG                               
027375,002902: 31,2230           03067                                    R57FLAG                               
027376,002903: 31,2231           77624                           CALL                                           
027377,002904: 31,2232           30002                                    R52                                   
027378,002905: 31,2233           43014                           CLEAR    CLEAR                                 
027379,002906: 31,2234           04664                                    V94FLAG                               
027380,002907: 31,2235           03267                                    R57FLAG                               
027381,002908: 31,2236           77776        P23.60             EXIT                                           
027382,002909: 31,2237           00004                           INHINT                                         
027383,002910: 31,2240           31330                           CA       MARKSTAT                              
027384,002911: 31,2241           74747                           MASK     LOW10                                 
027385,002912: 31,2242           55242                           TS       MARKDATA                              
027386,002913: 31,2243           00006                           EXTEND                                         
027387,002914: 31,2244           51242                           INDEX    MARKDATA                              
027388,002915: 31,2245           30001                           DCA      0                                     
027389,002916: 31,2246           53225                           DXCH     MARKTIME                              
027390,002917: 31,2247           51242                           INDEX    MARKDATA                              
027391,002918: 31,2250           30005                           CA       5                                     
027392,002919: 31,2251           57754                           XCH      TRUNION                               
027393,002920: 31,2252           00003                           RELINT                                         
027394,002921: 31,2253           33051                           CAF      V05N71                                
027395,002922: 31,2254           04555                           TC       BANKCALL                              
027396,002923: 31,2255           20624                           CADR     GOFLASH                               
027397,002924: 31,2256           04106                           TC       GOTOPOOH                              #  TERMINATE
027398,002925: 31,2257           02261                           TC       P23.65                                #  STORE DATA
027399,002926: 31,2260           02253                           TC       -5                                    #  REDISPLAY
027400,002927: 31,2261           06006        P23.65             TC       INTPRET                               
027401,002928: 31,2262           77414                           SET      EXIT                                  
027402,002929: 31,2263           04465                                    SAVECFLG                              
027403,002930: 31,2264           02070                           TC       P23.15                                
027404,002931: 31,2265           45014        P23.85             CLEAR    CALL                                  
027405,002932: 31,2266           02676                                    RENDWFLG                              
027406,002933: 31,2267           62272                                    POINTAXS                              
027407,002934: 31,2270           77650                           GOTO                                           
027408,002935: 31,2271           62364                                    R23.55                                
027409,002936: 
027410,002937:                                                                                                  #  WE BEGIN CALCULATIONS HERE
027411,002938:                                                                                                  #  POINTAXIS SUBROUTINE
027412,002939: 
027413,002940: 31,2272           67220        POINTAXS           STQ      SLOAD                                 

Page 614

027415,002942: 31,2273           01150                                    POINTEX                               
027416,002943: 31,2274           02752                                    LANDMARK                              #  IF LANDMARK=0 HORIZON IS DESIRED.
027417,002944: 31,2275           67230                           BHIZ     SLOAD                                 #  DO NOT PICK UP LMK VALUES FROM TABLE
027418,002945: 31,2276           62307                                    R23.05                                #  OR DISPLAY IN HORIZON CASE
027419,002946: 31,2277           02754                                    IDOFLMK                               
027420,002947: 31,2300           45030                           BHIZ     CALL                                  
027421,002948: 31,2301           62305                                    R23.0                                 
027422,002949: 31,2302           63064                                    LUNLMKLD                              
027423,002950: 31,2303           77650                           GOTO                                           
027424,002951: 31,2304           62307                                    R23.05                                
027425,002952: 31,2305           77624        R23.0              CALL                                           #  MUST BE DONE 2ND TIME, TO ALLOW CHANGES
027426,002953: 31,2306           61345                                    LLASRDA                               
027427,002954: 31,2307           71214        R23.05             BON      DLOAD                                 
027428,002955: 31,2310           01711                                    ORBWFLAG                              
027429,002956: 31,2311           62315                                    R23.1                                 
027430,002957: 31,2312           03001                                    WMIDPOS                               
027431,002958: 31,2313           34001                           STCALL   0                                     
027432,002959: 31,2314           56544                                    INITIALW                              #  INITIALIZE W-MATRIX FIRST PASS IN P23
027433,002960: 31,2315           77624        R23.1              CALL                                           
027434,002961: 31,2316           56343                                    SETINTG                               #  SETUP FOR CSM INTEGRATION
027435,002962: 31,2317           43014                           BOF      SET                                   
027436,002963: 31,2320           01751                                    ORBWFLAG                              
027437,002964: 31,2321           62323                                    R23.2                                 
027438,002965: 31,2322           01476                                    DIM0FLAG                              
027439,002966: 31,2323           45014        R23.2              SET      CALL                                  
027440,002967: 31,2324           01471                                    ORBWFLAG                              
027441,002968: 31,2325           27113                                    INTEGRV                               #  INTEGRATE CSM STATE VEC. TO MARKTIME
027442,002969: 31,2326           77776                           EXIT                                           
027443,002970: 31,2327           05301                           TC       PHASCHNG                              
027444,002971: 31,2330           04022                           OCT      04022                                 
027445,002972: 31,2331           06006                           TC       INTPRET                               
027446,002973: 31,2332           77624                           CALL                                           
027447,002974: 31,2333           62767                                    RECT.1                                #  PICKUP CSM STATE VECTOR FROM PERM
027448,002975: 31,2334           77214                           BOFF     VLOAD                                 
027449,002976: 31,2335           00345                                    ZMEASURE                              #  IN SPHERE OF INFLUENCE OF PRIMARY BODY
027450,002977: 31,2336           62341                                    R23.3                                 
027451,002978: 31,2337           02272                                    RQVV                                  #  CALCULATED BY INTEGRATION B29
027452,002979: 31,2340           03627                           STORE    RZC                                   
027453,002980: 31,2341           46135        R23.3              SLOAD    BHIZ                                  
027454,002981: 31,2342           02752                                    LANDMARK                              #  IF LANDMARK = 0, USE HORIZ SUBR
027455,002982: 31,2343           62353                                    R23.4                                 
027456,002983: 31,2344           77614                           SET                                            
027457,002984: 31,2345           00462                                    ERADFLAG                              
027458,002985: 31,2346           45145                           DLOAD    CALL                                  
027459,002986: 31,2347           01225                                    MARKTIME                              
027460,002987: 31,2350           26373                                    LALOTORV                              
027461,002988: 31,2351           77650                           GOTO                                           
027462,002989: 31,2352           62355                                    R23.5                                 
027463,002990: 31,2353           77624        R23.4              CALL                                           
027464,002991: 31,2354           62527                                    HORIZ                                 

Page 615

027466,002993: 31,2355           03665        R23.5              STORE    RL                                    
027467,002994: 31,2356           40251                           VSU      SETPD                                 
027468,002995: 31,2357           03627                                    RZC                                   
027469,002996: 31,2360           00001                                    0                                     
027470,002997: 31,2361           03657                           STORE    RCLL                                  
027471,002998: 31,2362           77650                           GOTO                                           
027472,002999: 31,2363           01150                                    POINTEX                               

Page 616

027474,003001: 31,2364           41456        R23.55             UNIT     PUSH                                  #  RCLL IS IN MPAC
027475,003002: 31,2365           77775                           VLOAD                                          
027476,003003: 31,2366           00043                                    34D                                   #  RCLL * RCLL
027477,003004: 31,2367           24037                           STOVL    30D                                   #  PUSH 30-31 =RCLL*RCLL 32-33=ABVAL RCLL
027478,003005: 31,2370           03635                                    VZC                                   
027479,003006: 31,2371           54361                           VXSC     VSR                                   
027480,003007: 31,2372           23030                                    ONE/C                                 
027481,003008: 31,2373           20620                                    15D                                   
027482,003009: 31,2374           77655                           VAD                                            #  PUSH UP RCLL(UNIT)
027483,003010: 31,2375           77656                           UNIT                                           
027484,003011: 31,2376           27643                           STOVL    UCLSTAR                               
027485,003012: 31,2377           03635                                    VZC                                   
027486,003013: 31,2400           52342                           VSR2     VSU                                   
027487,003014: 31,2401           02141                                    VESO                                  
027488,003015: 31,2402           54361                           VXSC     VSR                                   
027489,003016: 31,2403           23030                                    ONE/C                                 
027490,003017: 31,2404           20616                                    13D                                   
027491,003018: 31,2405           53455                           VAD      UNIT                                  
027492,003019: 31,2406           02617                                    US                                    
027493,003020: 31,2407           03651                           STORE    USSTAR                                
027494,003021: 31,2410           72441                           DOT      SL1                                   
027495,003022: 31,2411           03643                                    UCLSTAR                               
027496,003023: 31,2412           77206                           PUSH     VLOAD                                 #  PD 0,1 = USSTAR(DOT)UCLSTAR
027497,003024: 31,2413           03643                                    UCLSTAR                               
027498,003025: 31,2414           57561                           VXSC     VCOMP                                 
027499,003026: 31,2415           53372                           VSL1     VAD                                   
027500,003027: 31,2416           03651                                    USSTAR                                
027501,003028: 31,2417           77656                           UNIT                                           
027502,003029: 31,2420           27502                           STOVL    BVECTOR                               #  USSTAR - COSQ(UCLSTAR
027503,003030: 31,2421           15332                                    ZEROVECS                              
027504,003031: 31,2422           03510                           STORE    BVECTOR    +6                         
027505,003032: 31,2423           17516                           STODL    BVECTOR    +12D                       
027506,003033: 31,2424           00001                                    0                                     
027507,003034: 31,2425           57526                           ACOS     DCOMP                                 
027508,003035: 31,2426           71206                           PUSH     DLOAD                                 
027509,003036: 31,2427           15332                                    ZEROVECS                              
027510,003037: 31,2430           77776                           EXIT                                           
027511,003038: 31,2431           33041                           CA       VARSUBL                               #  PUT FIXED INTO ERASABLE FOR MSU
027512,003039: 31,2432           54001                           TS       L                                     #  INSTRUCTION COMING UP
027513,003040: 31,2433           31754                           CA       TRUNION                               #  REQUIRED TO CHANGE 2:S COMPLEMENT
027514,003041: 31,2434           00006                           EXTEND                                         #  TRUNION TO 1:S COMPLEMENT
027515,003042: 31,2435           20001                           MSU      L                                     #  TRUNION (2'S)-00000 CONVERTS TRUNION TO
027516,003043: 31,2436           54154                           TS       MPAC                                  #  1:S.  VARSUBL=00000
027517,003044: 31,2437           06006                           TC       INTPRET                               
027518,003045: 31,2440           67206                           PUSH     SLOAD                                 #  PUSH IS DP.  WHEN BDSU IS EXECUTED, 2ND
027519,003046: 31,2441           01343                                    TRUNBIAS                              #  HALF OF PUSHLIST IS GUARANTEED ZERO FROM
027520,003047: 31,2442           77621                           BDSU                                           #  DLOAD ZEROVECS ABOVE
027521,003048: 31,2443           43242                           SR3      DAD                                   
027522,003049: 31,2444           41215                           DAD      DMP                                   

Page 617

027524,003051: 31,2445           23036                                    TRUN19                                
027525,003052: 31,2446           00041                                    32D                                   
027526,003053: 31,2447           52405                           DMP      SL3                                   
027527,003054: 31,2450           07107                                    PI/4.0                                
027528,003055: 31,2451           62414                           BOFF     SL2                                   
027529,003056: 31,2452           04343                                    CMOONFLG                              
027530,003057: 31,2453           62454                                    R23.51                                
027531,003058: 31,2454           17524        R23.51             STODL    DELTAQ                                
027532,003059: 31,2455           00037                                    30D                                   #  RCLL * RCLL
027533,003060: 31,2456           47005                           DMP      RTB                                   
027534,003061: 31,2457           23045                                    TRUNVAR                               
027535,003062: 31,2460           45562                                    TPMODE                                
027536,003063: 31,2461           77771                           TAD                                            
027537,003064: 31,2462           23042                                    VARSUBL                               
027538,003065: 31,2463           03526                           STORE    VARIANCE                              
027539,003066: 31,2464           45014                           CLEAR    CALL                                  
027540,003067: 31,2465           02666                                    DMENFLG                               
027541,003068: 31,2466           75250                                    INCORP1                               
027542,003069: 31,2467           77624                           CALL                                           
027543,003070: 31,2470           56741                                    GRP2PC                                
027544,003071: 31,2471           51575                           VLOAD    ABVAL                                 
027545,003072: 31,2472           01265                                    DELTAX     +6                         
027546,003073: 31,2473           60414                           BOF      SR2                                   #  DISPLAY IS 2-27 IF IN LUNAR SPHERE
027547,003074: 31,2474           04343                                    CMOONFLG                              
027548,003075: 31,2475           62476                                    R23.52                                
027549,003076: 31,2476           27504        R23.52             STOVL    N49DISP    +2                         
027550,003077: 31,2477           01257                                    DELTAX                                
027551,003078: 31,2500           77646                           ABVAL                                          
027552,003079: 31,2501           60414                           BOF      SR2                                   
027553,003080: 31,2502           04343                                    CMOONFLG                              
027554,003081: 31,2503           62504                                    R23.53                                
027555,003082: 31,2504           03502        R23.53             STORE    N49DISP                               
027556,003083: 31,2505           77776                           EXIT                                           
027557,003084: 31,2506           33046        R23.6              CAF      V6N49                                 
027558,003085: 31,2507           04555                           TC       BANKCALL                              
027559,003086: 31,2510           20763                           CADR     GOFLASHR                              
027560,003087: 31,2511           02506                           TC       R23.6                                 #  DONT ALLOW
027561,003088: 31,2512           02521                           TC       R23.7                                 #  INCORPORATE DATA
027562,003089: 31,2513           02047                           TC       P23.00                                #  RECYCLE FOR ANOTHER MARK
027563,003090: 31,2514           34710                           CAF      BIT3                                  #  BLANK OUT R3
027564,003091: 31,2515           05415                           TC       BLANKET                               
027565,003092: 31,2516           05301                           TC       PHASCHNG                              
027566,003093: 31,2517           00012                           OCT      00012                                 
027567,003094: 31,2520           05112                           TC       ENDOFJOB                              
027568,003095: 31,2521           06006        R23.7              TC       INTPRET                               
027569,003096: 31,2522           45014        R23.8              SET      CALL                                  
027570,003097: 31,2523           00467                                    VEHUPFLG                              
027571,003098: 31,2524           75462                                    INCORP2                               
027572,003099: 31,2525           77776                           EXIT                                           
027573,003100: 31,2526           04106        R23.END            TC       GOTOPOOH                              
027574,003101: 

Page 618

027576,003103: 31,2527           40220        HORIZ              STQ      SETPD                                 
027577,003104: 31,2530           03672                                    SRRETURN                              
027578,003105: 31,2531           00001                                    0                                     
027579,003106: 31,2532           65345                           DLOAD    PDDL                                  #  PUSH 0-1 = -AYO SCALED B0
027580,003107: 31,2533           01714                                    -AYO                                  
027581,003108: 31,2534           01716                                    AXO                                   
027582,003109: 31,2535           63325                           PDDL     PDVL                                  #  PUSH 2-3 = +AX SCALED B0
027583,003110: 31,2536           15340                                    DPPOSMAX                              
027584,003111: 31,2537           02617                                    US                                    
027585,003112: 31,2540           53435                           VXV      UNIT                                  
027586,003113: 31,2541           03627                                    RZC                                   
027587,003114: 31,2542           27621                           STOVL    UBAR2                                 
027588,003115: 31,2543           53435                           VXV      UNIT                                  #  PUSH UP
027589,003116: 31,2544           03621                                    UBAR2                                 
027590,003117: 31,2545           27605                           STOVL    UBAR0                                 
027591,003118: 31,2546           03621                                    UBAR2                                 
027592,003119: 31,2547           53435                           VXV      UNIT                                  
027593,003120: 31,2550           03605                                    UBAR0                                 
027594,003121: 31,2551           03613                           STORE    UBAR1                                 
027595,003122: 31,2552           50214                           BON      DOT                                   
027596,003123: 31,2553           01703                                    LUNAFLAG                              
027597,003124: 31,2554           62752                                    HORIZ.6                               
027598,003125: 31,2555           00001                                    0                                     #  UBAR1 DOT UZ
027599,003126: 31,2556           36156                           STCALL   ALPHAV     +4                         
027600,003127: 31,2557           26437                                    GETERAD                               
027601,003128: 31,2560           65215                           DAD      PDDL                                  #  MPAC HAS RADIUS OF FISHER SLLIPSOID
027602,003129: 31,2561           01355                                    HORIZALT                              #  PUSH 0-1 = BH SCALED B29
027603,003130: 31,2562           23032                                    AEARTH                                
027604,003131: 31,2563           41415                           DAD      PUSH                                  #  PUSH 2-3 = AH B29
027605,003132: 31,2564           01355                                    HORIZALT                              
027606,003133: 31,2565           64375        HORIZ.1            VLOAD    MXV                                   
027607,003134: 31,2566           03627                                    RZC                                   #  B29
027608,003135: 31,2567           03605                                    UBAR0                                 #  B1
027609,003136: 31,2570           63372                           VSL1     PDVL                                  #  PUSH 4-9 = RH(XH,YH,ZH) B29
027610,003137: 31,2571           02617                                    US                                    
027611,003138: 31,2572           76521                           MXV      VSL1                                  
027612,003139: 31,2573           03605                                    UBAR0                                 
027613,003140: 31,2574           77725                           PDDL                                           #  PUSH 10-15 = USH B1
027614,003141: 31,2575           00003                                    2                                     #  AH
027615,003142: 31,2576           14043                           STODL    34D                                   
027616,003143: 31,2577           00005                                    4                                     #  XH
027617,003144: 31,2600           77624                           CALL                                           
027618,003145: 31,2601           62756                                    DIVIDE                                
027619,003146: 31,2602           41257                           SR*      DMP                                   
027620,003147: 31,2603           20611                                    8D,1                                  #  NOW SCALED B9
027621,003148: 31,2604           00155                                    MPAC                                  
027622,003149: 31,2605           14037                           STODL    30D                                   
027623,003150: 31,2606           00001                                    0                                     
027624,003151: 31,2607           14043                           STODL    34D                                   
027625,003152: 31,2610           00007                                    6                                     #  YH

Page 619

027627,003154: 31,2611           77624                           CALL                                           
027628,003155: 31,2612           62756                                    DIVIDE                                
027629,003156: 31,2613           41257                           SR*      DMP                                   
027630,003157: 31,2614           20611                                    8D,1                                  #  B9
027631,003158: 31,2615           00155                                    MPAC                                  #  B18
027632,003159: 31,2616           41415                           DAD      PUSH                                  #  PUSH 16-17 =A SCALED B18
027633,003160: 31,2617           00037                                    30D                                   
027634,003161: 31,2620           75425                           DSU      SQRT                                  
027635,003162: 31,2621           23040                                    1.0B18                                
027636,003163: 31,2622           77725                           PDDL                                           #  PUSH 18-19 SQRT(A-1) B9
027637,003164: 31,2623           00021                                    16D                                   
027638,003165: 31,2624           14043                           STODL    34D                                   
027639,003166: 31,2625           00005                                    4                                     #  XH
027640,003167: 31,2626           77624                           CALL                                           
027641,003168: 31,2627           62756                                    DIVIDE                                
027642,003169: 31,2630           65257                           SR*      PDDL                                  
027643,003170: 31,2631           20622                                    17D,1                                 #  PUSH 20-21 = XH/A B29
027644,003171: 31,2632           00007                                    6                                     #  YH
027645,003172: 31,2633           77624                           CALL                                           
027646,003173: 31,2634           62756                                    DIVIDE                                
027647,003174: 31,2635           65257                           SR*      PDDL                                  
027648,003175: 31,2636           20622                                    17D,1                                 #  PUSH 22-23 = YH/A B29
027649,003176: 31,2637           00021                                    16D                                   #  A
027650,003177: 31,2640           14043                           STODL    34D                                   
027651,003178: 31,2641           00023                                    18D                                   #  SQRT(A-1)
027652,003179: 31,2642           77624                           CALL                                           
027653,003180: 31,2643           62756                                    DIVIDE                                
027654,003181: 31,2644           77657                           SR*                                            
027655,003182: 31,2645           20611                                    8D,1                                  
027656,003183: 31,2646           14035                           STODL    28D                                   
027657,003184: 31,2647           00001                                    0                                     #  BH
027658,003185: 31,2650           14043                           STODL    34D                                   
027659,003186: 31,2651           00003                                    2                                     #  AH
027660,003187: 31,2652           77624                           CALL                                           
027661,003188: 31,2653           62756                                    DIVIDE                                
027662,003189: 31,2654           41257                           SR*      DMP                                   #  AH/BH SCALED B1
027663,003190: 31,2655           20601                                    0,1                                   
027664,003191: 31,2656           00035                                    28D                                   #  SQRT(A-1)/A
027665,003192: 31,2657           72405                           DMP      SL1                                   
027666,003193: 31,2660           00007                                    6                                     #  YH
027667,003194: 31,2661           77725                           PDDL                                           
027668,003195: 31,2662           00003                                    2                                     #  AH
027669,003196: 31,2663           14043                           STODL    34D                                   
027670,003197: 31,2664           00001                                    0                                     
027671,003198: 31,2665           77624                           CALL                                           
027672,003199: 31,2666           62756                                    DIVIDE                                
027673,003200: 31,2667           41257                           SR*      DMP                                   #  BH/AH SCALED B1
027674,003201: 31,2670           20601                                    0,1                                   
027675,003202: 31,2671           00035                                    28D                                   #  SQRT (A-1)/A
027676,003203: 31,2672           72405                           DMP      SL1                                   

Page 620

027678,003205: 31,2673           00005                                    4                                     #  XH
027679,003206: 31,2674           43325                           PDDL     DAD                                   
027680,003207: 31,2675           00025                                    20D                                   #  XH/A
027681,003208: 31,2676           00031                                    24D                                   #  ALPHA
027682,003209: 31,2677           45325                           PDDL     DSU                                   
027683,003210: 31,2700           00027                                    22D                                   #  YH/A
027684,003211: 31,2701           00033                                    26D                                   #  BETA
027685,003212: 31,2702           40206                           PUSH     SETPD                                 
027686,003213: 31,2703           00021                                    16D                                   
027687,003214: 31,2704           45345                           DLOAD    DSU                                   
027688,003215: 31,2705           00025                                    20D                                   #  XH/A
027689,003216: 31,2706           00031                                    24D                                   #  ALPHA
027690,003217: 31,2707           43325                           PDDL     DAD                                   
027691,003218: 31,2710           00027                                    22D                                   #  YH/A
027692,003219: 31,2711           00033                                    26D                                   #  BETA
027693,003220: 31,2712           41525                           PDDL     PUSH                                  
027694,003221: 31,2713           15332                                    ZEROVECS                              
027695,003222: 31,2714           24041                           STOVL    32D                                   #  ZERO THIRD COMP. OF T-0 VECTOR
027696,003223: 31,2715           00035                                    28D                                   
027697,003224: 31,2716           53451                           VSU      UNIT                                  
027698,003225: 31,2717           00005                                    4                                     #  RH VECTOR
027699,003226: 31,2720           63241                           DOT      PDVL                                  #  PUSH 22-23 A-SUB-ZERO
027700,003227: 31,2721           00013                                    10D                                   #  USH VECTOR
027701,003228: 31,2722           00021                                    16D                                   #  T1 VECTOR
027702,003229: 31,2723           53451                           VSU      UNIT                                  
027703,003230: 31,2724           00005                                    4                                     #  RH VECTOR
027704,003231: 31,2725           41441                           DOT      PUSH                                  #  PUSH 24-25 A-SUB-ONE
027705,003232: 31,2726           00013                                    10D                                   
027706,003233: 31,2727           50021                           BDSU     BMN                                   
027707,003234: 31,2730           00027                                    22D                                   #  A-SUB-ZERO
027708,003235: 31,2731           62740                                    HORIZ.3                               
027709,003236: 31,2732           77614                           BON                                            
027710,003237: 31,2733           00304                                    NORFHOR                               
027711,003238: 31,2734           62744                                    HORIZ.4                               
027712,003239: 31,2735           52175        HORIZ.2            VLOAD    GOTO                                  
027713,003240: 31,2736           00035                                    28D                                   #  T-0 VECTOR
027714,003241: 31,2737           62746                                    HORIZ.5                               
027715,003242: 31,2740           52014        HORIZ.3            BON      GOTO                                  
027716,003243: 31,2741           00304                                    NORFHOR                               
027717,003244: 31,2742           62735                                    HORIZ.2                               
027718,003245: 31,2743           62744                                    HORIZ.4                               
027719,003246: 31,2744           77775        HORIZ.4            VLOAD                                          
027720,003247: 31,2745           00021                                    16D                                   #  T1 VECTOR
027721,003248: 31,2746           76505        HORIZ.5            VXM      VSL1                                  
027722,003249: 31,2747           03605                                    UBAR0                                 
027723,003250: 31,2750           77650                           GOTO                                           
027724,003251: 31,2751           03672                                    SRRETURN                              
027725,003252: 31,2752           41545        HORIZ.6            DLOAD    PUSH                                  
027726,003253: 31,2753           23034                                    RADMOON                               
027727,003254: 31,2754           52006                           PUSH     GOTO                                  

Page 621

027729,003256: 31,2755           62565                                    HORIZ.1                               
027730,003257: 31,2756           70501        DIVIDE             NORM     SR1                                   
027731,003258: 31,2757           00047                                    X1                                    
027732,003259: 31,2760           14045                           STODL    36D                                   
027733,003260: 31,2761           00043                                    34D                                   
027734,003261: 31,2762           55301                           NORM     BDDV                                  
027735,003262: 31,2763           00051                                    S1                                    
027736,003263: 31,2764           00045                                    36D                                   
027737,003264: 31,2765           43460                           XSU,1    RVQ                                   
027738,003265: 31,2766           00050                                    S1                                    
027739,003266: 31,2767           77014        RECT.1             BOFF     AXT,2                                 #  SR TO SET ZMEASURE = 0 IF MEASUREMENT
027740,003267: 31,2770           04343                                    CMOONFLG                              #    PLANET AND PRIMARY PLANET ARE THE SAME
027741,003268: 31,2771           63001                                    RECT.3                                #      OTHERWISE = 1
027742,003269: 31,2772           77775                           DEC      -2         B-14                       
027743,003270: 31,2773           77614                           BOFF                                           #        VEC. AND SCALE B29 AND B7
027744,003271: 31,2774           01743                                    LUNAFLAG                              
027745,003272: 31,2775           63005                                    RECT.4                                
027746,003273: 31,2776           52014        RECT.2             CLEAR    GOTO                                  
027747,003274: 31,2777           00265                                    ZMEASURE                              
027748,003275: 31,3000           63007                                    RECT.5                                
027749,003276: 31,3001           43174        RECT.3             AXT,2    BOFF                                  
027750,003277: 31,3002           00000                                    0                                     
027751,003278: 31,3003           01743                                    LUNAFLAG                              
027752,003279: 31,3004           62776                                    RECT.2                                
027753,003280: 31,3005           77614        RECT.4             SET                                            
027754,003281: 31,3006           00065                                    ZMEASURE                              
027755,003282: 31,3007           44575        RECT.5             VLOAD    VSR7                                  
027756,003283: 31,3010           01573                                    DELTACSM                              #  SCALED B22 OR B18
027757,003284: 31,3011           53257                           VSR*     VAD                                   
027758,003285: 31,3012           57176                                    0,2                                   
027759,003286: 31,3013           01607                                    RCVCSM                                #  SCALED B29 OR B27
027760,003287: 31,3014           77657                           VSR*                                           
027761,003288: 31,3015           57176                                    0,2                                   
027762,003289: 31,3016           27627                           STOVL    RZC                                   #  NOW SCALED B29
027763,003290: 31,3017           01601                                    NUVCSM                                #  SCALED B3 OR B-1
027764,003291: 31,3020           53702                           VSR4     VSR*                                  
027765,003292: 31,3021           57176                                    0,2                                   
027766,003293: 31,3022           53655                           VAD      VSR*                                  
027767,003294: 31,3023           01615                                    VCVCSM                                #  SCALED B7 OR B5
027768,003295: 31,3024           57176                                    0,2                                   
027769,003296: 31,3025           03635                           STORE    VZC                                   #  NOW SCALED B7
027770,003297: 31,3026           77616                           RVQ                                            
027771,003298: 
027772,003299: 31,3027           26305 05432  ONE/C              2DEC*    .333564049 E-6        B+21*           
027773,003300: 31,3031           00302 24533  AEARTH             2DEC     6378166    B-29                       #  A AXIS OF EARTH (METERS B-29)
027774,003301: 31,3033           00065 01265  RADMOON            2DEC     1738090    B-29                       #  RADIUS OF MOON IN METERS
027775,003302: 31,3035           01604        TRUN19             OCT      01604                                 
027776,003303: 31,3036           00000        TRUN19A            OCT      00000                                 

Page 622

027778,003305: 31,3037           00000 02000  1.0B18             2DEC     1.0        B-18                       
027779,003306: 31,3041           00000        VARSUBL            DEC      0          B-14                       
027780,003307: 31,3042           01505 14100  VARSUBL3           2DEC*    3.4299040  E+6        B-26*           
027781,003308: 31,3044           00012 27462  TRUNVAR            2DEC     2.5        E-9        B+18            
027782,003309: 31,3046           01461        V6N49              VN       0649                                  
027783,003310: 31,3047           01531        V6N89              VN       0689                                  
027784,003311: 31,3050           01306        V05N70             VN       0570                                  
027785,003312: 31,3051           01307        V05N71             VN       0571                                  
027786,003313: 31,3052           00077        OCT00077           OCT      00077                                 
027787,003314: 31,3053           00202        V50N25P            OCT      00202                                 
027788,003315: 31,3054           00006        SPSIX              OCT      00006                                 
027789,003316: 31,3055           10461 21675  JCAXIS             2DEC     .268649805                            #  TRACK AXIS
027790,003317: 31,3057           00000 00000                     2DEC     0          B-28                       
027791,003318: 31,3061           15375 02004                     2DEC     .421695725                            
027792,003319: 
027793,003320: 31,3063           62217        R60ADRS            CADR     R60CALL    +3                         
027794,003321: 31,3064           77735        LUNLMKLD           SLOAD                                          
027795,003322: 31,3065           02754                                    IDOFLMK                               
027796,003323: 31,3066           45230                           BHIZ     DSU                                   
027797,003324: 31,3067           63101                                    LNLMKEND                              
027798,003325: 31,3070           21646                                    9DWID                                 
027799,003326: 31,3071           70152                           SL1      LXC,1                                 
027800,003327: 31,3072           00154                                    MPAC                                  
027801,003328: 31,3073           64743                           DLOAD*   PDDL*                                 
027802,003329: 31,3074           23705                                    ALTTAB,1                              
027803,003330: 31,3075           23623                                    LONGTAB,1                             
027804,003331: 31,3076           55523                           PDDL*    VDEF                                  
027805,003332: 31,3077           23541                                    LATTAB,1                              
027806,003333: 31,3100           01104                           STORE    LAT                                   
027807,003334: 31,3101           77616        LNLMKEND           RVQ                                            
027808,003335: 14,2000                                           SETLOC   RT53                                  
027809,003336: 14,2000                                           BANK                                           
027810,003337: 14,2000           43573        LOWMEMRY           VLOAD*   RVQ                                   
027811,003338: 14,2001           31744                                    CATLOG,1                              
027812,003339:    4550                                           BLOCK    02                                    
027813,003340:    4550           00006        GOTOV56            EXTEND                                         #  P20 TERMINATES BY GOTOV56 INSTEAD OF
027814,003341:    4551           34554                           DCA      VB56CADR                              #        GOTOPOOH
027815,003342:    4552           15122                           TCF      SUPDXCHZ                              
027816,003343:    4553  E7,1777                                  EBANK=   WHOCARES                              
027817,003344:    4553           02637 66107  VB56CADR           2CADR    TRACKTRM                              
027818,003345: 
027819,003346:    4000                                           SETLOC   FFTAG2                                
027820,003347:    4000                                           BANK                                           
027821,003348:    4555                                           COUNT*   $$/P20                                
027822,003349: 40,3574                                           BANK     40                                    

Page 623

027824,003351: 40,3574                                           SETLOC   ENDPINS1                              
027825,003352: 40,3574                                           BANK                                           
027826,003353: 40,3574                                           COUNT*   $$/EXTVB                              
027827,003354: 40,3574           06006        V67CALL            TC       INTPRET                               
027828,003355: 40,3575           77624                           CALL                                           
027829,003356: 40,3576           61656                                    V67WW                                 
027830,003357: 40,3577           77776                           EXIT                                           
027831,003358: 40,3600           33732        V06N99DS           CAF      V06N99A                               
027832,003359: 40,3601           04555                           TC       BANKCALL                              
027833,003360: 40,3602           20465                           CADR     GOXDSPF                               
027834,003361: 40,3603           15423                           TCF      ENDEXT                                
027835,003362: 40,3604           03610                           TC       V06N9933                              
027836,003363: 40,3605           05435                           TC       UPFLAG                                
027837,003364: 40,3606           00210                           ADRES    V67FLAG                               
027838,003365: 40,3607           03600                           TC       V06N99DS                              
027839,003366: 40,3610           06006        V06N9933           TC       INTPRET                               
027840,003367: 40,3611           77414                           BON      EXIT                                  
027841,003368: 40,3612           04701                                    V67FLAG                               
027842,003369: 40,3613           61615                                    +2                                    
027843,003370: 40,3614           15423                           TCF      ENDEXT                                
027844,003371: 40,3615           41345                           DLOAD    DMP                                   
027845,003372: 40,3616           02321                                    WWPOS                                 
027846,003373: 40,3617           21734                                    1/SQRT3                               
027847,003374: 40,3620           71350                           LXA,1    DLOAD                                 
027848,003375: 40,3621           00154                                    MPAC                                  
027849,003376: 40,3622           02323                                    WWVEL                                 
027850,003377: 40,3623           73005                           DMP      LXA,2                                 
027851,003378: 40,3624           21734                                    1/SQRT3                               
027852,003379: 40,3625           00154                                    MPAC                                  
027853,003380: 40,3626           45335                           SLOAD    DSU                                   
027854,003381: 40,3627           02325                                    WWOPT                                 
027855,003382: 40,3630           21736                                    V67DEC2                               
027856,003383: 40,3631           51030                           BHIZ     BPL                                   
027857,003384: 40,3632           61641                                    V67WORB                               
027858,003385: 40,3633           61646                                    V67WMID                               
027859,003386: 40,3634           67130                           SXA,1    SXA,2                                 
027860,003387: 40,3635           02000                                    WRENDPOS                              
027861,003388: 40,3636           02001                                    WRENDVEL                              
027862,003389: 40,3637           77650                           GOTO                                           
027863,003390: 40,3640           61651                                    V67EXITX                              
027864,003391: 40,3641           67130        V67WORB            SXA,1    SXA,2                                 
027865,003392: 40,3642           02004                                    WORBPOS                               
027866,003393: 40,3643           02005                                    WORBVEL                               
027867,003394: 40,3644           77650                           GOTO                                           
027868,003395: 40,3645           61651                                    V67EXITX                              
027869,003396: 40,3646           67130        V67WMID            SXA,1    SXA,2                                 
027870,003397: 40,3647           03000                                    WMIDPOS                               
027871,003398: 40,3650           03001                                    WMIDVEL                               
027872,003399: 40,3651           43014        V67EXITX           CLEAR    CLEAR                                 
027873,003400: 40,3652           01671                                    ORBWFLAG                              

Page 624

027875,003402: 40,3653           02676                                    RENDWFLG                              
027876,003403: 40,3654           77776                           EXIT                                           
027877,003404: 40,3655           15423                           TCF      ENDEXT                                
027878,003405: 40,3656           40020        V67WW              STQ      BOV                                   
027879,003406: 40,3657           00051                                    S2                                    
027880,003407: 40,3660           61661                                    +1                                    
027881,003408: 40,3661           45014                           CLEAR    CALL                                  
027882,003409: 40,3662           04661                                    V67FLAG                               
027883,003410: 40,3663           27371                                    INTSTALL                              
027884,003411: 40,3664           71331                           SSP      DLOAD                                 
027885,003412: 40,3665           00051                                    S1                                    
027886,003413: 40,3666           00006                           DEC      6          B-14                       
027887,003414: 40,3667           15332                                    ZEROVECS                              
027888,003415: 40,3670           02321                           STORE    WWPOS                                 
027889,003416: 40,3671           02323                           STORE    WWVEL                                 
027890,003417: 40,3672           02325                           STORE    WWOPT                                 
027891,003418: 40,3673           77770                           AXT,1                                          
027892,003419: 40,3674           00044                           DEC      36         B-14                       
027893,003420: 40,3675           47573        NXPOSVEL           VLOAD*   VSQ                                   
027894,003421: 40,3676           02445                                    W          +36D,1                     
027895,003422: 40,3677           77615                           DAD                                            
027896,003423: 40,3700           02321                                    WWPOS                                 
027897,003424: 40,3701           02321                           STORE    WWPOS                                 
027898,003425: 40,3702           47573                           VLOAD*   VSQ                                   
027899,003426: 40,3703           02533                                    W          +90D,1                     
027900,003427: 40,3704           77615                           DAD                                            
027901,003428: 40,3705           02323                                    WWVEL                                 
027902,003429: 40,3706           02323                           STORE    WWVEL                                 
027903,003430: 40,3707           75500                           TIX,1    SQRT                                  
027904,003431: 40,3710           61675                                    NXPOSVEL                              
027905,003432: 40,3711           16323                           STODL    WWVEL                                 
027906,003433: 40,3712           02321                                    WWPOS                                 
027907,003434: 40,3713           77766                           SQRT                                           
027908,003435: 40,3714           02321                           STORE    WWPOS                                 
027909,003436: 40,3715           52000                           BOV      GOTO                                  
027910,003437: 40,3716           61720                                    +2                                    
027911,003438: 40,3717           61724                                    V67XXX                                
027912,003439: 40,3720           77745                           DLOAD                                          
027913,003440: 40,3721           15340                                    DPPOSMAX                              
027914,003441: 40,3722           02321                           STORE    WWPOS                                 
027915,003442: 40,3723           02323                           STORE    WWVEL                                 
027916,003443: 40,3724           66150        V67XXX             LXA,1    SXA,1                                 
027917,003444: 40,3725           00051                                    S2                                    
027918,003445: 40,3726           00052                                    QPRET                                 
027919,003446: 40,3727           77776                           EXIT                                           
027920,003447: 40,3730           04574                           TC       POSTJUMP                              
027921,003448: 40,3731           27406                           CADR     INTWAKE                               
027922,003449: 40,3732  E4,1720               WWPOS              =        RANGE                                 
027923,003450: 40,3732  E4,1722               WWVEL              =        RRATE                                 
027924,003451: 40,3732  E4,1724               WWOPT              =        RTHETA                                

Page 625

027926,003453: 40,3732           01543        V06N99A            VN       0699                                  
027927,003454: 40,3733           22363 11620  1/SQRT3            2DEC     0.5773502                             
027928,003455: 40,3735           00002 00000  V67DEC2            2DEC     2          B-14                       
027929,003456: 

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