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.

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

Page 552

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

Page 553

024603,000118: 37,2220           05435                           TC       UPFLAG                                #  SET TRACKFLAG
024604,000119: 37,2221           00031                           ADRES    TRACKFLG                              #  BIT 5 FLAG 1
024605,000120: 37,2222           05435                           TC       UPFLAG                                #  SET UPDATFLG
024606,000121: 37,2223           00027                           ADRES    UPDATFLG                              #  BIT 7 FLAG 1
024607,000122: 37,2224           05435                           TC       UPFLAG                                #  SET RNDVZFLG
024608,000123: 37,2225           00010                           ADRES    RNDVZFLG                              #  BIT 7 FLAG 0
024609,000124: 37,2226           05261                           TC       2PHSCHNG                              
024610,000125: 37,2227           00004                           OCT      4                                     
024611,000126: 37,2230           05022                           OCT      05022                                 
024612,000127: 37,2231           26000                           OCT      26000                                 
024613,000128: 37,2232           06006                           TC       INTPRET                               
024614,000129: 37,2233           77634                           RTB                                            
024615,000130: 37,2234           45505                                    LOADTIME                              
024616,000131: 37,2235           35225                           STCALL   MARKTIME                              
024617,000132: 37,2236           56343                                    SETINTG                               #  SET INTEGRATION FLAGS
024618,000133: 37,2237           43014                           BOFF     SET                                   
024619,000134: 37,2240           02756                                    RENDWFLG                              
024620,000135: 37,2241           76243                                    P20.1                                 
024621,000136: 37,2242           01476                                    DIM0FLAG                              #  SET TO INTEGRATE THE W MATRIX
024622,000137: 37,2243           43014        P20.1              BON      CLEAR                                 
024623,000138: 37,2244           00707                                    VEHUPFLG                              
024624,000139: 37,2245           76247                                    P20.2                                 
024625,000140: 37,2246           01674                                    VINTFLAG                              #  SET FOR LM INTEGRATION
024626,000141: 37,2247           77624        P20.2              CALL                                           
024627,000142: 37,2250           27113                                    INTEGRV                               
024628,000143: 37,2251           77624                           CALL                                           
024629,000144: 37,2252           56741                                    GRP2PC                                #  GROUP 2 PHASE CHANGE
024630,000145: 37,2253           77624                           CALL                                           
024631,000146: 37,2254           56343                                    SETINTG                               #  SET INTEGRATION FLAGS
024632,000147: 37,2255           43014                           BOFF     CLEAR                                 
024633,000148: 37,2256           00747                                    VEHUPFLG                              
024634,000149: 37,2257           76261                                    P20.3                                 
024635,000150: 37,2260           01674                                    VINTFLAG                              #  SET FOR LM INTEGRATION
024636,000151: 37,2261           77624        P20.3              CALL                                           
024637,000152: 37,2262           27113                                    INTEGRV                               
024638,000153: 37,2263           77776                           EXIT                                           
024639,000154: 37,2264           37663                           CAF      PRIO26                                
024640,000155: 37,2265           05042                           TC       FINDVAC                               

[WORKAROUND] RSB 2004

024642,000157: 37,2266  30,2000                                  SBANK=   LOWSUPER                              
024643,000158: 37,2266  E7,1734                                  EBANK=   MRKBUF2                               
024644,000159: 37,2266           02512 70067                     2CADR    R22                                   
024645,000160: 
024646,000161: 37,2270           05261                           TC       2PHSCHNG                              
024647,000162: 37,2271           00072                           OCT      00072                                 
024648,000163: 37,2272           00111                           OCT      00111                                 
024649,000164: 37,2273           34761        PIKUP20            CAF      PRIO14                                #  ALLOW HIGHER PRIO THAN LAMBERT
024650,000165: 37,2274           05103                           TC       PRIOCHNG                              
024651,000166: 37,2275           34706                           CAF      BIT5                                  #  IS TRACK FLAG SET
024652,000167: 37,2276           70075                           MASK     STATE      +1                         
024653,000168: 37,2277           00006                           EXTEND                                         
024654,000169: 37,2300           15112                           BZF      ENDOFJOB                              #  NO

Page 554

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

Page 555

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

Page 556

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

Page 557

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

Page 558

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

Page 559

024891,000406: 30,2245           31751                           CA       LANDMARK                              
024892,000407: 30,2246           74675                           MASK     BIT14                                 #  IF BIT14 OF LANDMARK=1, A=2  OTHERWISE A=1
024893,000408: 30,2247           00006                           EXTEND                                         
024894,000409: 30,2250           12253                           BZF      +3                                    #  A=1   LEAVE KNOWNFLAG SET FOR KNOWN LMK
024895,000410: 30,2251           05447                           TC       DOWNFLAG                              #  A=2   CLEAR KNOWNFLG (BIT 8 FLAG 6) FOR
024896,000411: 30,2252           00141                           ADRES    KNOWNFLG                              #        UNKNOWN LMK
024897,000412: 30,2253           06006                           TC       INTPRET                               
024898,000413: 30,2254           77616                           RVQ                                            
024899,000414: 

Page 560

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

Page 561

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

Page 562

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

Page 563

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

Page 564

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

Page 565

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

Page 566

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

Page 567

025268,000783: 23,3105           02317                                    EGRESS                                
025269,000784: 23,3106           31103 36652  PI/4.0             2DEC     .785398164                            
025270,000785: 

Page 568

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

Page 569

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

Page 570

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

Page 571

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

Page 572

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

Page 573

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

Page 574

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

Page 575

025631,001146: 34,3150           34712                           CA       BIT1                                  
025632,001147: 34,3151           55505                           TS       N49DISP    +4                         
025633,001148: 34,3152           34714                           CAF      ZERO                                  #  SET TEMPOR1 > ZERO TO INDICATE
025634,001149: 34,3153           55300                           TS       TEMPOR1                               #  V06 N49 DISPLAY HASNT BEEN ANSWERED
025635,001150: 34,3154           05301                           TC       PHASCHNG                              
025636,001151: 34,3155           04022                           OCT      04022                                 
025637,001152: 34,3156           37664                           CAF      PRIO27                                #  SET UP DISPLAY JOB WITH HIGHER PRIORITY
025638,001153: 34,3157           05027                           TC       NOVAC                                 

[WORKAROUND] RSB 2004

025640,001155: 34,3160  30,2000                                  SBANK=   LOWSUPER                              
025641,001156: 34,3160  E7,1725                                  EBANK=   MRKBUF1                               #  THAN PRESENT JOB
025642,001157: 34,3160           03172 70067                     2CADR    RENDISP2                              
025643,001158: 
025644,001159: 34,3162           06006        RENDISP7           TC       INTPRET                               
025645,001160: 34,3163           00155                           STORE    MPAC                                  
025646,001161: 34,3164           53135                           SLOAD    BZE                                   
025647,001162: 34,3165           01301                                    TEMPOR1                               
025648,001163: 34,3166           71163                                    RENDISP7   +1                         #  DISPLAY HAS NOT BEEN ANSWERED YET
025649,001164: 34,3167           52040                           BMN      GOTO                                  
025650,001165: 34,3170           71006                                    REND12                                #  NEG INDICATES PROCEED
025651,001166: 34,3171           71201                                    RENDISP3                              #  POS INDICATES RECYCLE
025652,001167: 34,3172           33223        RENDISP2           CAF      V06N49                                
025653,001168: 34,3173           04555                           TC       BANKCALL                              
025654,001169: 34,3174           20635                           CADR     PRIODSP                               
025655,001170: 34,3175           04550                           TC       GOTOV56                               #  TERM EXIT P20 VIA V56
025656,001171: 34,3176           44712                           CS       ONE                                   #  NEG INDICATES PROCEED RENDISP7 JOB
025657,001172: 34,3177           55300                           TS       TEMPOR1                               #  POS INDICATES RECYCLE RENDISP7 JOB
025658,001173: 34,3200           05112                           TC       ENDOFJOB                              #  GO COMPLETE ABOVE JOB
025659,001174: 34,3201           77614        RENDISP3           BON                                            
025660,001175: 34,3202           04707                                    SOURCFLG                              
025661,001176: 34,3203           70523                                    REND1                                 #  DATA WAS RADAR GO LOOK FOR OPTICS NEXT
025662,001177: 34,3204           77776                           EXIT                                           
025663,001178: 34,3205  E7,1725                                  EBANK=   MRKBUF1                               
025664,001179: 34,3205           00004                           INHINT                                         
025665,001180: 34,3206           33224                           CAF      BUFBANK                               
025666,001181: 34,3207           54006                           TS       BBANK                                 
025667,001182: 34,3210           37716                           CA       NEGONE                                
025668,001183: 34,3211           55725                           TS       MRKBUF1                               #  ERASE MARK ONE BUFFER
025669,001184: 34,3212           55734                           TS       MRKBUF2                               #  ERASE MARK TWO BUFFER
025670,001185: 34,3213           00003                           RELINT                                         
025671,001186: 34,3214           06006        RENDISP4           TC       INTPRET                               
025672,001187: 34,3215           77650                           GOTO                                           
025673,001188: 34,3216           70555                                    REND3                                 
025674,001189: 34,3217           00052 36307  SXTVAR             2DEC     0.04       E-6        B+16            #  SXT ERROR VARIANCE = .04 (MR)SQ
025675,001190: 34,3221           00052 36307  IMUVAR             2DEC     0.04       E-6        B+16            #  IMU ERROR VARIANCE = .04 (MR)SQ
025676,001191: 34,3223           01461        V06N49             VN       0649                                  
025677,001192: 34,3224  E7,1725                                  EBANK=   MRKBUF1                               
025678,001193: 34,3224           70067        BUFBANK            BBCON    RENDISP3                              
025679,001194: 31,2021                                           BANK     31                                    
025680,001195: 27,2000                                           SETLOC   R22S1                                 

Page 576

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

Page 577

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

Page 578

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

Page 579

025835,001350: 27,2570           02521                           STORE    W          +80D                       
025836,001351: 27,2571           02531                           STORE    W          +88D                       
025837,001352: 27,2572           77616                           RVQ                                            

Page 580

025839,001354:                                                                                                  #  CRS61.1       4/10/68
025840,001355: 
025841,001356:                                                                                                  #  TO COMPUTE THE PREFERRED TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025842,001357:                                                                                                  #  OPTICS TRACKING OF THE LM AND LM TRACKING OF THE CSM RADAR TRANSPONDER
025843,001358:                                                                                                  #  AND TO COMPUTE THE &X-AXIS TRACKING ATTITUDE OF THE CSM WHICH ENABLES
025844,001359:                                                                                                  #  COAS TRACKING OF THE LM.
025845,001360: 
025846,001361:                                                                                                  #  TO PERFORM THE MANEUVER TO THE SELECTED TRACKING ATTITUDE IF THE 
025847,001362:                                                                                                  #  MANEUVER IS LESS THAN 10 DEGREES BUT TO CALL R60 IF THE MANEUVER IS
025848,001363:                                                                                                  #  GREATER THAN 10 DEGREES OR IF THE R60 FLAG IS SET.
025849,001364: 
025850,001365:                                                                                                  #        (1)     EXTRAPOLATE LM AND CSM STATE VECTORS TO PRESENT TIME USING
025851,001366:                                                                                                  #                CONIC EQUATIONS.
025852,001367: 
025853,001368:                                                                                                  #        (2)     CALCULATE LOS FROM CSM TO LM = RL - RC.
025854,001369: 
025855,001370:                                                                                                  #        (3)     THE PREFERRED TRACKING ATTITUDE IS DEFINED AS FOLLOWS:
025856,001371:                                                                                                  #                THE TRACK AXIS (I) IS ALIGNED ALONG THE LOS TO THE LM.  THE
025857,001372:                                                                                                  #                TRACK AXIS (I) IS DEFINED AS:
025858,001373: 
025859,001374:                                                                                                  #                UNIT(I)=UNIT(Z  )COS55  &  UNIT(X  )SIN55
025860,001375:                                                                                                  #                     -       -SC                -SC
025861,001376: 
025862,001377:                                                                                                  #        (4)     COMPUTE DESIRED CDU ANGLES, USING VECPOINT.
025863,001378: 

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

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

Page 581

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

Page 582

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

Page 583

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

Page 584

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

Page 585

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

Page 586

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

Page 587

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

Page 588

026242,001757: 34,3600           00001        LOONE              OCT      00001                                 #  TO SET MPAC = 00001 FOR SPECIAL EXIT.
026243,001758: 34,3601     7707               FURST3             EQUALS   13,14,15                              #  CONSTANT FOR AUTOCK (OCT 70000).
026244,001759: 

Page 589

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

Page 590

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

Page 591

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

Page 592

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

Page 593

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

Page 594

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

Page 595

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

Page 596

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

Page 597

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

Page 598

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

Page 599

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

Page 600

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

Page 601

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

Page 602

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

Page 603

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

Page 604

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

Page 605

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

Page 606 Nothing on this page. — RSB 2004.

027102,002617: 

Page 607

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

Page 608

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

Page 609

027200,002715: 34,3642           04555                           TC       BANKCALL                              #  PERFORMS CSM MANEUVER TO ALIGN SELECTED
027201,002716: 34,3643           56000                           CADR     R60CSM                                #  SPACECRAFT AXIS TO LOS.
027202,002717: 34,3644           15423                           TCF      ENDEXT                                
027203,002718: 34,3645           05435        SETPAF             TC       UPFLAG                                #  SET PREFERRED ATT FLAG FOR R63COMP
027204,002719: 34,3646           00120                           ADRES    RNGSCFLG                              #  TO DO PREF AXIS.  SET BIT 10 FLAG 5.
027205,002720: 34,3647           03623                           TC       V89RECL                               
027206,002721: 34,3650           01006        VB04N06            VN       0406                                  
027207,002722: 34,3651           01422        VB06N18            VN       0618                                  
027208,002723: 
027209,002724: 34,3652  34,3461               R63COMP            EQUALS   R63                                   
027210,002725: 

Page 610

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

Page 611

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

Page 612

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

Page 613

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

Page 614

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

Page 615

027481,002996: 31,2355           03665        R23.5              STORE    RL                                    
027482,002997: 31,2356           40251                           VSU      SETPD                                 
027483,002998: 31,2357           03627                                    RZC                                   
027484,002999: 31,2360           00001                                    0                                     
027485,003000: 31,2361           03657                           STORE    RCLL                                  
027486,003001: 31,2362           77650                           GOTO                                           
027487,003002: 31,2363           01150                                    POINTEX                               

Page 616

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

Page 617

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

Page 618

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

Page 619

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

Page 620

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

Page 621

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

Page 622

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

Page 623

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

Page 624

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

Page 625

027941,003456: 40,3732           01543        V06N99A            VN       0699                                  
027942,003457: 40,3733           22363 11620  1/SQRT3            2DEC     0.5773502                             
027943,003458: 40,3735           00002 00000  V67DEC2            2DEC     2          B-14                       
027944,003459: 

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